475caf35f4
... and rename it to KEY?. Then, add KEY from KEY? for its blocking version. I need this for an upcoming Remote Shell feature. If a Collapse OS system remotely controls another shell, it needs to be able to poll both the remote system and the local keyboard at the same time. A blocking KEY is incompatible with this. In some places, the polling mechanism doesn't make sense, so this new KEY? always returns a character. In some places, I just haven't implemented the mechanism yet, so I kept the old blocking code and added a "always 1" flag as a temporary shim. I have probably broken something, but in emulators, Collapse OS runs fine. It's an important reminder of what will be lost with the new "dogfooding" approach (see recent mailing list message): without emulators, it's much harder to to sweeping changes like this without breaking stuff. It's fine, I don't expect many more of these core changes to the system. It's nearly feature-complete.
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 C, 0xa5 C, 0xff C, ( 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!
|