izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pcat: fix ?DUP

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-20 07:34:46 -04:00
parent 9d2afd200c
commit 019fd8a67d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
blk/821
View File

@ -1,10 +1,10 @@
CODE DUP AX POPx, AX PUSHx, AX PUSHx, ;CODE CODE DUP AX POPx, AX PUSHx, AX PUSHx, ;CODE
CODE ?DUP AX POPx, AX AX ORxx, IFNZ, AX PUSHx, THEN, ;CODE CODE ?DUP AX POPx, AX AX ORxx, AX PUSHx,
IFNZ, AX PUSHx, THEN, ;CODE
CODE DROP AX POPx, ;CODE CODE DROP AX POPx, ;CODE
CODE SWAP AX POPx, BX POPx, AX PUSHx, BX PUSHx, ;CODE CODE SWAP AX POPx, BX POPx, AX PUSHx, BX PUSHx, ;CODE
CODE OVER ( a b -- a b a ) CODE OVER ( a b -- a b a )
DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx, DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx, ;CODE
;CODE
CODE PICK CODE PICK
DI POPx, DI SHLx1, ( x2 ) DI POPx, DI SHLx1, ( x2 )
DI SP ADDxx, DI [DI] MOVx[], DI PUSHx, DI SP ADDxx, DI [DI] MOVx[], DI PUSHx,