d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cli/opctest/opctest.tal
View File

@ -76,6 +76,8 @@
STHr AND STHr AND STHr AND STHr AND
;Dict/stack-wrap test-part ;Dict/stack-wrap test-part
( restore stack ) #0000 #0000
( Part 8 ( Part 8
> Testing RAM wrapping > Testing RAM wrapping
> Storing 12 in 0xffff, and 34 in 0x0000 ) > Storing 12 in 0xffff, and 34 in 0x0000 )
@ -148,7 +150,7 @@ JMP2r
@pstr ( str* -- ) @pstr ( str* -- )
DUP2 LDA DUP2 LDA
DUP ?{ POP2 JMP2r } DUP ?{ POP POP2 JMP2r }
#18 DEO #18 DEO
INC2 !pstr INC2 !pstr