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.
1462 Commits
4 Branches
13MB
Tree: b9fb6a6226
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'b9fb6a6226'
${ noResults }
collapseos/blk/284

15 lines
461B
Raw Blame History 

  1. PC ORG @ 1 + ! ( main )

  2. ( STACK OVERFLOW PROTECTION: See B76 )

  3.     SP PS_ADDR LDdn, IX RS_ADDR LDdn,

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

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

  6.   Forth. )

  7.     BIN( @ 0x08 + LDHL(n),

  8.     SYSVARS 0x02 ( CURRENT ) + LD(n)HL,

  9. HERESTART [IF]

  10.     HL HERESTART LDdn,

  11. [THEN]

  12.     SYSVARS 0x04 + LD(n)HL, ( RAM+04 == HERE )

  13.     DE BIN( @ 0x04 ( BOOT ) + LDdd(n),

  14.     JR, L1 FWR ( execute, B287 )