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

14 lines
483B
Raw Blame History 

  1. PC ORG @ 1 + ! ( main )

  2. ( STACK OVERFLOW PROTECTION: See B76 )

  3.     SP PS_ADDR LDddnn, IX RS_ADDR LDddnn,

  4. ( HERE begins at RAMEND )

  5.     HL RAMSTART 0x80 + LDddnn,

  6.     RAMSTART 0x04 + LD(nn)HL, ( RAM+04 == HERE )

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

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

  9.   Forth. )

  10.     BIN( @ 0x08 + LDHL(nn),

  11.     RAMSTART 0x02 ( CURRENT ) + LD(nn)HL,

  12.     DE BIN( @ 0x04 ( BOOT ) + LDdd(nn),

  13.     JR, L1 FWR ( execute, B301 )