mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
avra: add IF, .. THEN,
I decided to keep SKIP, .. TO, (renamed from AT,) around and limit IF, .. THEN, to the simple BRNE case.
This commit is contained in:
parent
8bbd29d37d
commit
7a41c5c6f9
5
blk/671
5
blk/671
@ -2,13 +2,14 @@
|
||||
: LBL! ( l -- ) PC SWAP ! ;
|
||||
: LBL, ( l op -- ) SWAP @ 1- SWAP EXECUTE A,, ;
|
||||
: SKIP, PC 0 A,, ;
|
||||
: AT, ( opw pc )
|
||||
: TO, ( opw pc )
|
||||
( warning: pc is a PC offset, not a mem addr! )
|
||||
2 * ORG @ + PC 1- H@ ( opw addr tgt hbkp )
|
||||
ROT HERE ! ( opw tgt hbkp ) SWAP ROT EXECUTE H@ ! ( hbkp )
|
||||
HERE ! ;
|
||||
( L1 FLBL, .. L1 ' RJMP FLBL! )
|
||||
: FLBL, ( l -- ) LBL! 0 A,, ;
|
||||
: FLBL! ( l opw -- ) SWAP @ AT, ;
|
||||
: FLBL! ( l opw -- ) SWAP @ TO, ;
|
||||
: BEGIN, PC ;
|
||||
: AGAIN, ( op ) SWAP 1- SWAP EXECUTE A,, ;
|
||||
: IF, ['] BREQ SKIP, ; : THEN, TO, ;
|
||||
|
@ -297,7 +297,7 @@ RET,
|
||||
L8 ' RCALL FLBL! ( checkBoundsY )
|
||||
( Check that Y is within bounds, reset to SRAM_START if not. )
|
||||
28 ( YL ) TST,
|
||||
' BREQ SKIP, RET, ( not zero, nothing to do ) AT,
|
||||
IF, RET, ( not zero, nothing to do ) THEN,
|
||||
( YL is zero. Reset Z )
|
||||
29 ( YH ) CLR,
|
||||
28 ( YL ) SRAM_START 0xff AND LDI,
|
||||
@ -306,7 +306,7 @@ RET,
|
||||
L3 ' RCALL FLBL! ( checkBoundsZ )
|
||||
( Check that Z is within bounds, reset to SRAM_START if not. )
|
||||
30 ( ZL ) TST,
|
||||
' BREQ SKIP, RET, ( not zero, nothing to do ) AT,
|
||||
IF, RET, ( not zero, nothing to do ) THEN,
|
||||
( ZL is zero. Reset Z )
|
||||
31 ( ZH ) CLR,
|
||||
30 ( ZL ) SRAM_START 0xff AND LDI,
|
||||
@ -318,7 +318,7 @@ L5 ' RCALL FLBL! L6 ' RCALL FLBL! ( checkParity )
|
||||
16 1 LDI,
|
||||
BEGIN,
|
||||
19 LSR,
|
||||
' BRCC SKIP, 16 INC, ( carry set? we had a 1 ) AT,
|
||||
' BRCC SKIP, 16 INC, ( carry set? we had a 1 ) TO,
|
||||
19 TST, ( is r19 zero yet? )
|
||||
' BRNE AGAIN, ( no? loop )
|
||||
16 0x1 ANDI,
|
||||
|
Loading…
Reference in New Issue
Block a user