Oh, sorry. Forgot that the list strips attachments.
Michael
; Enochs .S
VE_DOTS:
.dw $FF02
.db ".s"
.dw VE_HEAD
.set VE_HEAD = VE_DOTS
XT_DOTS:
.dw DO_COLON
PFA_DOTS:
; ( -- )
; stack picture listing order
.dw XT_DEPTH
PFA_DOTS0:
.dw XT_DUP
.dw XT_DOCONDBRANCH
.dw PFA_DOTS1
.dw XT_DUP
.dw XT_PICK
.dw XT_DOT
.dw XT_1MINUS
.dw XT_DOBRANCH
.dw PFA_DOTS0
PFA_DOTS1:
.dw XT_DROP
.dw XT_EXIT
; old form giving index#, address and value of stack items.
; ( -- ) Tools
; R( -- )
; stack dump
VE_DOTSS:
.dw $ff02
.db ".s"
.dw VE_HEAD
.set VE_HEAD = VE_DOTSS
XT_DOTSS:
.dw DO_COLON
PFA_DOTSS:
.dw XT_CR
.dw XT_DEPTH, XT_1PLUS
.dw XT_GREATERZERO
.dw XT_DOCONDBRANCH
.dw PFA_DOTSS0
; <old.s>
.dw XT_SP_FETCH
.dw XT_DEPTH
.dw XT_1MINUS
.dw XT_ZERO
.dw XT_DOQDO
.dw PFA_DOTSS2
PFA_DOTSS1:
.dw XT_SLITERAL
.dw 2
.db "[]"
.dw XT_ITYPE
.dw XT_DUP
.dw XT_I
.dw XT_DUP
.dw XT_UDOT ; index of cell
.dw XT_2STAR
.dw XT_PLUS
.dw XT_DUP
.dw XT_DOLITERAL
.dw 4
.dw XT_UZERODOTR ; address of cell
.dw XT_DOLITERAL
.dw 0x3A
.dw XT_EMIT, XT_SPACE
.dw XT_FETCH
.dw XT_UDOT ; content of cell
.dw XT_CR
.dw XT_DOLOOP
.dw PFA_DOTSS1
PFA_DOTSS2:
.dw XT_DROP
.dw XT_EXIT
; </old.s>
PFA_DOTSS0:
.dw XT_SLITERAL
.dw 3
.db "suf",0
.dw XT_ITYPE
.dw XT_EXIT
Am 03.03.2013 um 13:17 schrieb Erich Waelde:
> Michael,
>
> On 03/03/2013 01:00 AM, Michael Kalus wrote:
>
>> Here is the old form for your collection. It is "Stack UnderFlow"
>> save, telling "SUF" if you do one.
>> Maybe you have it already. Michael
>>
>>
>> -------------- next part --------------
>
> If you, too, want me to look at your code, you better
> add it to the message text. At least I do not see
> an attachment.
>
> Erich
>
> ----------------------------------------------------------------------
> --------
> Everyone hates slow websites. So do we.
> Make your web apps faster with AppDynamics
> Download AppDynamics Lite for free today:
> http://p.sf.net/sfu/appdyn_d2d_feb
> _______________________________________________
> Amforth-devel mailing list for http://amforth.sf.net/
> Amforth-devel@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://p.sf.net/sfu/appdyn_d2d_feb
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel
