(opctest) Restore stack state
This commit is contained in:
parent
ff9502815c
commit
14ee797a71
|
@ -76,6 +76,8 @@
|
|||
STHr AND STHr AND
|
||||
;Dict/stack-wrap test-part
|
||||
|
||||
( restore stack ) #0000 #0000
|
||||
|
||||
( Part 8
|
||||
> Testing RAM wrapping
|
||||
> Storing 12 in 0xffff, and 34 in 0x0000 )
|
||||
|
@ -148,7 +150,7 @@ JMP2r
|
|||
|
||||
@pstr ( str* -- )
|
||||
DUP2 LDA
|
||||
DUP ?{ POP2 JMP2r }
|
||||
DUP ?{ POP POP2 JMP2r }
|
||||
#18 DEO
|
||||
INC2 !pstr
|
||||
|
||||
|
|
Loading…
Reference in New Issue