(opctest) Restore stack state

This commit is contained in:
Devine Lu Linvega 2024-02-18 12:09:09 -08:00
parent ff9502815c
commit 14ee797a71
1 changed files with 3 additions and 1 deletions

View File

@ -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