\ RC2014 classic with MC6850
8 CONSTS $ff00 RS_ADDR $fffa PS_ADDR $8000 HERESTART
         $80 6850_CTL $81 6850_IO
         4 SPI_DATA 5 SPI_CTL 1 SDC_DEVID
RS_ADDR $90 - CONSTANT SYSVARS
SYSVARS $409 - CONSTANT BLK_MEM
SYSVARS $80 + CONSTANT SDC_MEM
ARCHM XCOMP Z80A 
XCOMPC Z80C COREL
340 342 LOADR \ MC6850
332 LOAD \ SPI relay
250 258 LOADR \ SD Card
330 LOAD \ AT28
ALIAS SDC@ (blk@)
ALIAS SDC! (blk!)
BLKSUB
: INIT 6850$ BLK$ ;
XWRAP