diff --git a/blk/081 b/blk/081 index c44d84d..c894fc6 100644 --- a/blk/081 +++ b/blk/081 @@ -5,7 +5,7 @@ RAMSTART FUTURE USES +3c BLK(* +08 C<* override +53 (emit) override +0a NLPTR +55 (key) override +0c C<* +57 FUTURE USES -+0e WORDBUF +5b z80a's variables ++0e WORDBUF +2e BOOT C< PTR +5d adev's variables +30 IN> +5f FUTURE USES +32 IN(* +70 DRIVERS diff --git a/blk/212 b/blk/212 index 9f7459e..09d3733 100644 --- a/blk/212 +++ b/blk/212 @@ -1,2 +1 @@ -1 LOAD+ Z80A$ -3 37 LOADR+ +1 37 LOADR+ diff --git a/blk/213 b/blk/213 index 1984516..944d475 100644 --- a/blk/213 +++ b/blk/213 @@ -1,9 +1,6 @@ -: Z80AMEM+ 0x5b RAM+ @ + ; -: ORG 0 Z80AMEM+ ; -: BIN( 2 Z80AMEM+ ; -: L1 4 Z80AMEM+ ; : L2 6 Z80AMEM+ ; -: L3 8 Z80AMEM+ ; : L4 10 Z80AMEM+ ; -: Z80A$ H@ 0x5b RAM+ ! 12 ALLOT 0 BIN( ! ; +VARIABLE ORG +VARIABLE BIN( 0 BIN( ! +VARIABLE L1 VARIABLE L2 VARIABLE L3 VARIABLE L4 : A 7 ; : B 0 ; : C 1 ; : D 2 ; : E 3 ; : H 4 ; : L 5 ; : (HL) 6 ; : BC 0 ; : DE 1 ; : HL 2 ; : AF 3 ; : SP AF ; diff --git a/emul/forth.bin b/emul/forth.bin index 3b9e659..c08d3e4 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ