3 CONSTS $f300 RS_ADDR $f3fa PS_ADDR 0 HERESTART
RS_ADDR $a0 - CONSTANT SYSVARS
SYSVARS $80 + CONSTANT DRVMEM
SYSVARS $409 - CONSTANT BLK_MEM
DRVMEM CONSTANT KBD_MEM
DRVMEM 3 + CONSTANT GRID_MEM
DRVMEM 6 + CONSTANT FDMEM
DRVMEM 13 + CONSTANT UNDERCUR \ char under cursor
DRVMEM 14 + CONSTANT RXTX_MEM 
1 LOAD \ nC,
ARCHM XCOMP Z80A TRS804PM
XCOMPC Z80C COREL TRS804PL
ALIAS FD@ (blk@)
ALIAS FD! (blk!)
BLKSUB GRIDSUB RXTXSUB TRS804PH
: INIT GRID$ KBD$ BLK$ FD$ $e CL$ ( 9600 bauds ) ;
XWRAP