18 CONSTS $ff00 RS_ADDR $fffa PS_ADDR $4000 HERESTART
         $02 SIOA_CTL $00 SIOA_DATA
         $03 SIOB_CTL $01 SIOB_DATA
         $20 SPI_DATA $1B CTL8255 1 SDC_DEVID
         66 VID_WDTH 25 VID_LN 246 VID_SCN 16 VID_VBL
         8 PS2_BLEN 7 PS2_BMSK $1B SPI_CTL $1A PTC8255
RS_ADDR 16428 - CONSTANT SYSVARS \ 128 BYTES FOR OTHER SYSVARS
SYSVARS $409 - CONSTANT BLK_MEM
SYSVARS $80 + CONSTANT SDC_MEM  \ 2 BYTES
SYSVARS $82 + CONSTANT PSK_MEM  \ 16 BYTES
SYSVARS $94 + CONSTANT GRID_MEM \ 3 BYTES
SYSVARS $98 + CONSTANT PS2_MEM  \ 2 BYTES
SYSVARS $9A + CONSTANT VID_MEM  \ 16 + FB BYTES
  \ FB BYTES = VID_SCN X VID_WDTH
ARCHM XCOMP FONTC Z80A 
395 LOAD \ Dan SBC macros
XCOMPC Z80C COREL 
CREATE ~FNT CPFNT5x7
345 348 LOADR \ SIO
396 LOAD  \ SPI relay
250 258 LOADR \ SD Card
397 400 LOADR \ video
GRIDSUB
401 402 LOADR \ (vidfr) single scan
405 409 LOADR \ PSK
PS2SUB
ALIAS SDC@ (blk@)
ALIAS SDC! (blk!)
BLKSUB
: INIT SIOB$ BLK$ VID$ GRID$ PSK$ PS2$ ;
XWRAP