izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-27 05:58:05 +11:00
Code Issues Releases Wiki Activity
3607eefa55
collapseos/blk/808

10 lines
299 B
Plaintext
Raw Normal View History

Extract (s) code from stable ABI zone Only its jump addr remains.
2020-07-05 22:54:22 +10:00
lblnext BSET PC 0x1d - ORG @ 0x1b + ! ( next )
( RSP check )
AX RS_ADDR MOVxI, BP AX CMPxx,
IFC, ( BP < RS_ADDR )
DI 0x06 MOVxm, JMPs, L1 FWRs ( execute )
THEN,
DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
DI [DI] MOVx[], ( wordref )
( continue to execute ) L1 FSET
Reference in New Issue Copy Permalink