izaya
/
collapseos
kopie van https://github.com/hsoft/collapseos.git
1
1
Vork 0
Code Kwesties 0 Publicaties 0 Wiki Activiteit
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.
1322 Commits
4 Branches
13MB
Tree: f6ded7712e
Branches Labels
${ item.name }
Maak branch ${ searchTerm }
van 'f6ded7712e'
${ noResults }
collapseos/blk/289

17 lines
501B
Ruw Blame Geschiedenis 

  1. ( Name of BOOT word )

  2. L1 BSET 4 A, 'B' A, 'O' A, 'O' A, 'T' A,

  3. 

  4. PC ORG @ 1 + ! ( main )

  5. ( STACK OVERFLOW PROTECTION: See B76 )

  6.     SP PS_ADDR LDddnn,

  7.     IX RS_ADDR LDddnn,

  8. ( HERE begins at RAMEND )

  9.     HL RAMSTART 0x80 + LDddnn,

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

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

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

  13.   Forth. )

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

  15.     RAMSTART 0x02 + LD(nn)HL, ( RAM+02 == CURRENT       cont. )