mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-26 19:38:06 +11:00
Compare commits
No commits in common. "0b3a328e6547b3b56808497dc6276724fd6eced6" and "b8d8007a3f40add3dfdf72779d35a6bc71219159" have entirely different histories.
0b3a328e65
...
b8d8007a3f
18
blk/081
18
blk/081
@ -1,16 +1,16 @@
|
|||||||
(cont.)
|
(cont.)
|
||||||
RAMSTART INITIAL_SP +55 (key) override
|
RAMSTART INITIAL_SP +55 EMITPTR 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) override
|
+53 EMITPTR
|
||||||
|
|
||||||
|
|
||||||
(cont.)
|
(cont.)
|
||||||
|
2
blk/359
2
blk/359
@ -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/360
1
blk/360
@ -12,5 +12,6 @@
|
|||||||
( setup interrupt )
|
( setup interrupt )
|
||||||
0xc3 0x4e RAM+ C! ( c3==JP, 4e==INTJUMP )
|
0xc3 0x4e RAM+ C! ( c3==JP, 4e==INTJUMP )
|
||||||
['] ~ACIA 0x4f RAM+ !
|
['] ~ACIA 0x4f RAM+ !
|
||||||
|
['] (emit) 0x53 RAM+ ! ( 53==EMITPTR )
|
||||||
(im1) ;
|
(im1) ;
|
||||||
|
|
||||||
|
6
blk/405
6
blk/405
@ -1,10 +1,10 @@
|
|||||||
: BOOT
|
: BOOT
|
||||||
0x02 RAM+ CURRENT* !
|
0x02 RAM+ CURRENT* !
|
||||||
LIT< (parse) (find) DROP (parse*) !
|
LIT< (parse) (find) DROP (parse*) !
|
||||||
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 )
|
LIT< (emit) (find) DROP 0x53 RAM+ ! ( 53 == EMITPTR )
|
||||||
0 0x55 RAM+ ! ( 55 == (key) override )
|
0 0x55 RAM+ ! ( 55 == EMITPTR 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<?* )
|
||||||
|
4
blk/442
4
blk/442
@ -1,6 +1,6 @@
|
|||||||
: EMIT
|
: EMIT
|
||||||
( 0x53==(emit) override )
|
( 0x53==EMITPTR 0x55==override )
|
||||||
83 RAM+ @ DUP IF EXECUTE ELSE DROP (emit) THEN ;
|
85 RAM+ @ DUP NOT IF DROP 83 RAM+ @ THEN EXECUTE ;
|
||||||
|
|
||||||
: (print)
|
: (print)
|
||||||
BEGIN
|
BEGIN
|
||||||
|
6
blk/454
6
blk/454
@ -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
2
blk/493
@ -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,
|
||||||
|
9
blk/497
9
blk/497
@ -1,9 +0,0 @@
|
|||||||
CODE @PUT ( c a -- f )
|
|
||||||
DE POPqq,
|
|
||||||
BC POPqq,
|
|
||||||
chkPS,
|
|
||||||
A 0x04 LDrn, ( @PUT )
|
|
||||||
0x28 RSTn,
|
|
||||||
PUSHZ,
|
|
||||||
;CODE
|
|
||||||
|
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
@ -16,7 +16,8 @@ H@ 256 /MOD 2 PC! 2 PC!
|
|||||||
( Update LATEST )
|
( Update LATEST )
|
||||||
PC ORG @ 8 + !
|
PC ORG @ 8 + !
|
||||||
," CURRENT @ HERE ! "
|
," CURRENT @ HERE ! "
|
||||||
," : (emit) 0 PC! ; : (key) 0 PC@ ; "
|
," : (emit) 0 PC! ; CURRENT @ 83 RAM+ ! "
|
||||||
|
," : 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!
|
||||||
|
Loading…
Reference in New Issue
Block a user