izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

wip

This commit is contained in:
Virgil Dupras 2020-05-25 20:28:30 -04:00
parent 00401077f0
commit 04335fc40a
4 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/288
View File

@ -4,7 +4,7 @@ PC ORG @ 0x22 + ! ( litWord, 0xf7, tight on the 0x100 limit )
called, puts the string's address on PS ) called, puts the string's address on PS )
IY PUSHqq, HL POPqq, ( <-- IP ) IY PUSHqq, HL POPqq, ( <-- IP )
E (HL) LDrr, D 0 LDrn, E (HL) LDrr, D 0 LDrn,
DE INCss, DE INCss, DE INCss,
DE ADDIYss, DE ADDIYss,
HL PUSHqq, HL PUSHqq,
JPNEXT, JPNEXT,

2
blk/382
View File

@ -4,7 +4,7 @@
AGAIN ; AGAIN ;
: LIT" : LIT"
34 , ( litWord ) H@ 0 C, ," 34 , ( litWord ) H@ 0 C, ,"
DUP H@ -^ 1- ( a len ) SWAP C! 0 C, DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE ; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE : ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE

2
blk/399
View File

@ -1,4 +1,4 @@
: LIT< WORD 34 , DUP C@ 1+ MOVE, 0 C, ; IMMEDIATE : LIT< WORD 34 , DUP C@ 1+ MOVE, ; IMMEDIATE
: BEGIN H@ ; IMMEDIATE : BEGIN H@ ; IMMEDIATE
: AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE : AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
: UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE : UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE

BIN
emul/forth.bin
View File

Binary file not shown.