izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1482 Commits
4 Branches
13MB
Tree: 7ace3032ef
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '7ace3032ef'
${ noResults }
collapseos/blk/284

14 lines
421B
Raw Blame History 

  1. PC ORG @ 1 + ! ( main )

  2.     SP PS_ADDR LDdi, IX RS_ADDR LDdi,

  3. ( LATEST is a label to the latest entry of the dict. It is

  4.   written at offset 0x08 by the process or person building

  5.   Forth. )

  6.     BIN( @ 0x08 + LDHL(i),

  7.     SYSVARS 0x02 ( CURRENT ) + LD(i)HL,

  8. HERESTART [IF]

  9.     HL HERESTART LDdi,

  10. [THEN]

  11.     SYSVARS 0x04 + LD(i)HL, ( RAM+04 == HERE )

  12.     DE BIN( @ 0x04 ( BOOT ) + LDd(i),

  13.     JR, L1 FWR ( execute, B287 )