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

Add a layer of indirection for KEY

Browse Source
This commit is contained in:
Virgil Dupras 2020-05-02 10:37:37 -04:00
parent 446a58006d
commit 0b3a328e65
7 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
blk/081
View File

@ -1,16 +1,16 @@
(cont.) (cont.)
RAMSTART INITIAL_SP +55 RESERVED RAMSTART INITIAL_SP +55 (key) override
+02 CURRENT +57 readln's variables +02 CURRENT +57 readln's variables
+04 HERE +59 blk's variables +04 HERE +59 blk's variables
+06 C<? +5b z80a's variables +06 C<? +5b z80a's variables
+08 C<* override +5d adev's variables +08 C<* override +5d adev's variables
+0a PARSEPTR +5f FUTURE USES +0a PARSEPTR +5f FUTURE USES
+0c C<* +70 DRIVERS +0c C<* +70 DRIVERS
+0e WORDBUF +80 RAMEND +0e WORDBUF +80 RAMEND
+2e BOOT C< PTR +2e BOOT C< PTR
+4e INTJUMP +4e INTJUMP
+51 CURRENTPTR +51 CURRENTPTR
+53 (emit) over. +53 (emit) override
(cont.) (cont.)

2
blk/359
View File

@ -1,4 +1,4 @@
: KEY : (key)
( inc then fetch ) ( inc then fetch )
ACIAR> @ 1+ DUP ACIA) @ = IF ACIAR> @ 1+ DUP ACIA) @ = IF
DROP ACIA( @ DROP ACIA( @

1
blk/405
View File

@ -4,6 +4,7 @@
CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR ) CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
0 0x08 RAM+ ! ( 08 == C<* override ) 0 0x08 RAM+ ! ( 08 == C<* override )
0 0x53 RAM+ ! ( 53 == (emit) override ) 0 0x53 RAM+ ! ( 53 == (emit) override )
0 0x55 RAM+ ! ( 55 == (key) override )
( 0c == C<* ) ( 0c == C<* )
LIT< (boot<) (find) DROP 0x0c RAM+ ! LIT< (boot<) (find) DROP 0x0c RAM+ !
( boot< always has a char waiting. 06 == C<?* ) ( boot< always has a char waiting. 06 == C<?* )

6
blk/454
View File

@ -7,9 +7,9 @@
SPC BS SPC BS
; ;
: KEY
85 RAM+ @ ( (key) override )
DUP IF EXECUTE ELSE DROP (key) THEN ;
( cont.: read one char into input buffer and returns whether we ( cont.: read one char into input buffer and returns whether we

2
blk/493
View File

@ -1,4 +1,4 @@
CODE KEY CODE (key)
A 0x01 LDrn, ( @KEY ) A 0x01 LDrn, ( @KEY )
0x28 RSTn, 0x28 RSTn,
L A LDrr, H 0 LDrn, L A LDrr, H 0 LDrn,

BIN
emul/forth.bin
View File

Binary file not shown.

5
emul/xcomp.fs
View File

@ -16,8 +16,7 @@ H@ 256 /MOD 2 PC! 2 PC!
( Update LATEST ) ( Update LATEST )
PC ORG @ 8 + ! PC ORG @ 8 + !
," CURRENT @ HERE ! " ," CURRENT @ HERE ! "
," : (emit) 0 PC! ; " ," : (emit) 0 PC! ; : (key) 0 PC@ ; "
," : KEY 0 PC@ ; "
422 470 XPACKR 422 470 XPACKR
," ' KEY 12 RAM+ ! " ," ' (key) 12 RAM+ ! "
H@ 256 /MOD 2 PC! 2 PC! H@ 256 /MOD 2 PC! 2 PC!