|
- 0xbf00 CONSTANT RS_ADDR
- 0xbffa CONSTANT PS_ADDR
- RS_ADDR 0x80 - CONSTANT SYSVARS
- 0x8000 CONSTANT HERESTART
- SYSVARS 0x70 + CONSTANT LCD_MEM
- SYSVARS 0x72 + CONSTANT KBD_MEM
- 0x01 CONSTANT KBD_PORT
- 212 LOAD ( z80 assembler )
- : ZFILL, ( u ) 0 DO 0 A, LOOP ;
- 262 LOAD ( xcomp )
- 522 LOAD ( font compiler )
- 282 LOAD ( boot.z80.decl )
- 270 LOAD ( xcomp overrides )
-
- ( TI-84+ requires specific code at specific offsets which
- come in conflict with Collapse OS' stable ABI. We thus
- offset the binary by 0x100, which is our minimum possible
- increment and fill the TI stuff with the code below. )
-
- 0x5a JP, 0x15 ZFILL, ( 0x18 )
- 0x5a JP, ( reboot ) 0x1d ZFILL, ( 0x38 )
- ( handleInterrupt )
- DI,
- AF PUSH,
- ( did we push the ON button? )
- 0x04 ( PORT_INT_TRIG ) INAi,
- 0 ( INT_TRIG_ON ) A BIT,
- IFNZ,
- ( yes? acknowledge and boot )
- 0x03 ( PORT_INT_MASK ) INAi,
- 0x00 ( INT_MASK_ON ) A RES, ( ack interrupt )
- 0x03 ( PORT_INT_MASK ) OUTiA,
- AF POPqq,
- EI,
- 0x100 JP,
- THEN,
- AF POP,
- EI,
- RETI,
-
- 0x03 ZFILL, ( 0x53 )
- 0x5a JP, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )
- ( boot )
- DI,
- IM1,
- ( enable the ON key interrupt )
- 0x03 ( PORT_INT_MASK ) INAi,
- 0x00 ( INT_MASK_ON ) A SET,
- 0x03 ( PORT_INT_MASK ) OUTiA,
- A 0x80 LDri,
- 0x07 ( PORT_BANKB ) OUTiA,
- EI,
- ( LCD off )
- A 0x02 ( LCD_CMD_DISABLE ) LDri,
- 0x10 ( LCD_PORT_CMD ) OUTiA,
- HALT,
-
- 0x95 ZFILL, ( 0x100 )
- ( All set, carry on! )
-
- CURRENT @ XCURRENT !
-
- 0x100 BIN( !
- 283 335 LOADR ( boot.z80 )
- 353 LOAD ( xcomp core low )
- CREATE ~FNT CPFNT3x5
- 605 610 LOADR ( LCD low )
- 616 620 LOADR ( KBD low )
- 380 LOAD ( xcomp core high )
- (entry) _
- ( Update LATEST )
- PC ORG @ 8 + !
- ," LCD$ KBD$ " EOT,
- ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
- H@ 256 /MOD 2 PC! 2 PC!
|