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

17 lines
550B
Raw Blame History 

  1. ( Name of BOOT word )

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

  3. 

  4. PC ORG @ 1 + ! ( main )

  5. ( STACK OVERFLOW PROTECTION: See B76 )

  6.     SP 0xfffa LDddnn,

  7.     RAMSTART SP LD(nn)dd, ( RAM+00 == INITIAL_SP )

  8.     IX RS_ADDR LDddnn,

  9. ( HERE begins at RAMEND )

  10.     HL RAMSTART 0x80 + LDddnn,

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

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

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

  14.   Forth. )

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

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