izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 21:50:55 +11:00
Code Issues Releases Wiki Activity
8ca85abfbd
collapseos/blk/671

14 lines
428 B
Plaintext
Raw Normal View History

avra: implement LD/ST Still making great progress on sms/kbd/ps2ctl. Still matching ref binary.
2020-05-19 12:28:58 +10:00
( L1 LBL! .. L1 ' RJMP LBL, )
: LBL! ( l -- ) PC SWAP ! ;
: LBL, ( l op -- ) SWAP @ 1- SWAP EXECUTE A,, ;
( L1 FLBL, .. L1 ' RJMP FLBL! )
: FLBL, ( l -- ) LBL! 0 A,, ;
: FLBL! ( l opw -- )
( warning: l is a PC offset, not a mem addr! )
SWAP @ 2 * ORG @ + PC 1- H@ ( opw addr tgt hbkp )
ROT HERE ! ( opw tgt hbkp ) SWAP ROT EXECUTE H@ ! ( hbkp )
HERE ! ;
avra: add BEGIN, .. AGAIN,
2020-05-19 21:39:34 +10:00
: BEGIN, PC ;
: AGAIN, ( op ) SWAP 1- SWAP EXECUTE A,, ;
avra: implement LD/ST Still making great progress on sms/kbd/ps2ctl. Still matching ref binary.
2020-05-19 12:28:58 +10:00
Reference in New Issue Copy Permalink