|
|
@@ -1,8 +1,9 @@ |
|
|
|
CODE 0 AX AX XORxx, AX PUSHx, ;CODE |
|
|
|
CODE 1 AX 1 MOVxI, AX PUSHx, ;CODE |
|
|
|
CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE |
|
|
|
CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE |
|
|
|
CODE EMIT |
|
|
|
AX POPx, AH 0x0e MOVri, ( print char ) 0x10 INT, |
|
|
|
CODE _find ( cur w -- a f ) |
|
|
|
SI POPx, ( w ) DI POPx, ( cur ) |
|
|
|
CALLn, lblfind @ RPCn, |
|
|
|
IFNZ, ( not found ) |
|
|
|
SI PUSHx, AX AX XORxx, AX PUSHx, |
|
|
|
JMPn, lblnext @ RPCn, |
|
|
|
THEN, ( found ) |
|
|
|
DI PUSHx, AX 1 MOVxI, AX PUSHx, |
|
|
|
;CODE |
|
|
|
: BOOT 4 5 CMP '=' + EMIT ; |