mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 14:08:05 +11:00
80d1b59050
Splitting a word into MSB/LSB pairs happens often and is worth, I think, native words. Also, I'm going to need it in the upcoming commits.
77 lines
1.7 KiB
Forth
77 lines
1.7 KiB
Forth
0xbf00 CONSTANT RS_ADDR
|
|
0xbffa CONSTANT PS_ADDR
|
|
RS_ADDR 0x80 - CONSTANT SYSVARS
|
|
0x8000 CONSTANT HERESTART
|
|
SYSVARS 0x70 + CONSTANT LCD_MEM
|
|
SYSVARS 0x72 + CONSTANT GRID_MEM
|
|
SYSVARS 0x75 + CONSTANT KBD_MEM
|
|
0x01 CONSTANT KBD_PORT
|
|
5 LOAD ( z80 assembler )
|
|
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 ALLOT0 ( 0x18 )
|
|
0x5a JP, ( reboot ) 0x1d ALLOT0 ( 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 ALLOT0 ( 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 ALLOT0 ( 0x100 )
|
|
( All set, carry on! )
|
|
|
|
CURRENT @ XCURRENT !
|
|
|
|
0x100 BIN( !
|
|
283 335 LOADR ( boot.z80 )
|
|
353 LOAD ( xcomp core low )
|
|
CREATE ~FNT CPFNT3x5
|
|
605 609 LOADR ( LCD low )
|
|
402 403 LOADR ( Grid )
|
|
616 620 LOADR ( KBD low )
|
|
390 LOAD ( xcomp core high )
|
|
(entry) _
|
|
( Update LATEST )
|
|
PC ORG @ 8 + !
|
|
," LCD$ KBD$ GRID$ " EOT,
|
|
ORG @ 0x100 - |M 2 PC! 2 PC!
|
|
H@ |M 2 PC! 2 PC!
|