collapseos/arch/z80/ti84/xcomp.fs

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 )
: 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 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 - 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!
By default, allocate about 0x100 bytes for PSP+RSP During "make updatebootstrap", we use less than 0x20 bytes on the PSP side and less than 0x40 bytes on the RSP one. 0x100 bytes ought to be enough for anybody. 2020-05-15 08:41:09 +10:00			`0xbf00 CONSTANT RS_ADDR`
Replace INITIAL_SP with PS_ADDR conf Now I struggle to remember why I ever did things they way I did. There must have been a reason... 2020-05-12 11:08:24 +10:00			`0xbffa CONSTANT PS_ADDR`
Add HERESTART xcomp config 2020-06-29 09:45:28 +10:00			`RS_ADDR 0x80 - CONSTANT SYSVARS`
			`0x8000 CONSTANT HERESTART`
Rename RAMSTART to SYSVARS It's more descriptive this way. Also, I'll soon add a new HERESTART config. 2020-06-29 08:49:30 +10:00			`SYSVARS 0x70 + CONSTANT LCD_MEM`
ti84: use Grid subsystem Also, rename CLRLN to NEWLN and make it clear that it's only called on entering a new line. This way, we can set Z offset in there for the TI-84+ LCD driver. 2020-11-11 12:30:37 +11:00			`SYSVARS 0x72 + CONSTANT GRID_MEM`
grid: add XYMODE In VE on the SMS, the first contents line would always be cleared because of NEWLN being called when the FBUF would spit its last char. Inconvenient... I've added a "graphical" mode to the grid subsystem to inhibit this behavior in a graphical situation such as in VE. Also, write a more complete Grid documentation. 2020-11-15 14:35:08 +11:00			`SYSVARS 0x75 + CONSTANT KBD_MEM`
ti84: kbd driver wip 2020-05-10 01:55:58 +10:00			`0x01 CONSTANT KBD_PORT`
Move z80a from B200 to B5 The idea is to consider assemblers as "runtime" apps instead of placing them in the "bootstrap" section of the blocks. These apps will be used for much more than bootstrapping. Moved its documentation to doc/asm.txt and made its code blocks more compact. 2020-09-22 07:51:08 +10:00			`5 LOAD ( z80 assembler )`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`: ZFILL, ( u ) 0 DO 0 A, LOOP ;`
ti84: WIP 2020-05-08 20:50:34 +10:00			`262 LOAD ( xcomp )`
ti84: first glyph on screen! On the emulator of course... 2020-05-08 23:07:44 +10:00			`522 LOAD ( font compiler )`
z80: make boot binary a 2-part process Previously, recipes that began spitting binary contents before loading block 282 would end up with VARIABLE code in their binary, thus breaking them. We fix this by making this loading process 2-part. 2020-06-27 11:41:17 +10:00			`282 LOAD ( boot.z80.decl )`
xcomp: add overrides into a loadable block Makes xcomp.fs units shorter. 2020-05-14 03:33:24 +10:00			`270 LOAD ( xcomp overrides )`
ti84: WIP 2020-05-08 20:50:34 +10:00
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`( 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. )`

Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`0x5a JP, 0x15 ZFILL, ( 0x18 )`
			`0x5a JP, ( reboot ) 0x1d ZFILL, ( 0x38 )`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`( handleInterrupt )`
			`DI,`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`AF PUSH,`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`( did we push the ON button? )`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`0x04 ( PORT_INT_TRIG ) INAi,`
			`0 ( INT_TRIG_ON ) A BIT,`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`IFNZ,`
			`( yes? acknowledge and boot )`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`0x03 ( PORT_INT_MASK ) INAi,`
			`0x00 ( INT_MASK_ON ) A RES, ( ack interrupt )`
			`0x03 ( PORT_INT_MASK ) OUTiA,`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`AF POPqq,`
			`EI,`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`0x100 JP,`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`THEN,`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`AF POP,`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`EI,`
			`RETI,`

			`0x03 ZFILL, ( 0x53 )`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`0x5a JP, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )`
ti84: working! 2020-05-11 04:33:35 +10:00			`( boot )`
			`DI,`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`IM1,`
ti84: working! 2020-05-11 04:33:35 +10:00			`( enable the ON key interrupt )`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`0x03 ( PORT_INT_MASK ) INAi,`
			`0x00 ( INT_MASK_ON ) A SET,`
			`0x03 ( PORT_INT_MASK ) OUTiA,`
			`A 0x80 LDri,`
			`0x07 ( PORT_BANKB ) OUTiA,`
ti84: working! 2020-05-11 04:33:35 +10:00			`EI,`
			`( LCD off )`
Fix sms and ti84 recipes Their asm code has been broken for a little while! oops! 2020-09-20 11:03:18 +10:00			`A 0x02 ( LCD_CMD_DISABLE ) LDri,`
			`0x10 ( LCD_PORT_CMD ) OUTiA,`
ti84: working! 2020-05-11 04:33:35 +10:00			`HALT,`

			`0x95 ZFILL, ( 0x100 )`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`( All set, carry on! )`

ti84: WIP 2020-05-08 20:50:34 +10:00			`CURRENT @ XCURRENT !`

ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`0x100 BIN( !`
z80: make boot binary a 2-part process Previously, recipes that began spitting binary contents before loading block 282 would end up with VARIABLE code in their binary, thus breaking them. We fix this by making this loading process 2-part. 2020-06-27 11:41:17 +10:00			`283 335 LOADR ( boot.z80 )`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`353 LOAD ( xcomp core low )`
ti84: unify drivers No more low/high 2020-05-13 02:41:47 +10:00			`CREATE ~FNT CPFNT3x5`
ti84: use Grid subsystem Also, rename CLRLN to NEWLN and make it clear that it's only called on entering a new line. This way, we can set Z offset in there for the TI-84+ LCD driver. 2020-11-11 12:30:37 +11:00			`605 609 LOADR ( LCD low )`
			`402 403 LOADR ( Grid )`
recipes/ti84: move recipe blocks into local overlay 2020-09-21 10:24:09 +10:00			`616 620 LOADR ( KBD low )`
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-29 09:06:58 +11:00			`390 LOAD ( xcomp core high )`
ti84: WIP 2020-05-08 20:50:34 +10:00			`(entry) _`
			`( Update LATEST )`
			`PC ORG @ 8 + !`
grid: add XYMODE In VE on the SMS, the first contents line would always be cleared because of NEWLN being called when the FBUF would spit its last char. Inconvenient... I've added a "graphical" mode to the grid subsystem to inhibit this behavior in a graphical situation such as in VE. Also, write a more complete Grid documentation. 2020-11-15 14:35:08 +11:00			`," LCD$ KBD$ GRID$ " EOT,`
ti84: offset binary by 0x100 to free space for TI-specific stuff Not yet tried on real hardware, but we should be getting pretty close... 2020-05-11 04:06:01 +10:00			`ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!`
ti84: WIP 2020-05-08 20:50:34 +10:00			`H@ 256 /MOD 2 PC! 2 PC!`