\ xcomp for a SMS with PS/2 keyboard on port A

\ xcomp for a SMS with PS/2 keyboard on port A
8 CONSTS $dd00 RS_ADDR $ddca PS_ADDR $c000 HERESTART
$bf TMS_CTLPORT $be TMS_DATAPORT
$3f CPORT_CTL $dc CPORT_D1 $dd CPORT_D2
RS_ADDR $90 - CONSTANT SYSVARS
SYSVARS $80 + CONSTANT GRID_MEM
SYSVARS $83 + CONSTANT CPORT_MEM
SYSVARS $84 + CONSTANT PS2_MEM
ARCHM XCOMP FONTC
45 LOAD \ Sega ROM signer
Z80A XCOMPC Z80C COREL
CREATE ~FNT CPFNT7x7
335 337 LOADR ( TMS9918 )
350 352 LOADR ( VDP )
GRIDSUB
368 369 LOADR ( SMS ports )
360 LOAD ( KBD )
: (ps2kc) (ps2kcA) ;
PS2SUB
: INIT VDP$ GRID$ PS2$ (im1) ;
XWRAP
$4000 OALLOT XORG 1 ( 16K ) segasig