1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:28:05 +11:00
collapseos/blk/301

13 lines
219 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
L3 BSET
PC ORG @ 0x34 + ! ( execute )
( DE points to wordref )
EXDEHL,
E (HL) LDrr,
D BIN( @ 256 / LDrn,
2020-04-23 11:19:12 +10:00
EXDEHL,
( HL points to code pointer )
DE INCss,
( DE points to PFA )
JP(HL),