.psc02
.code
.include "iic.defs"
.org $c552
jsr setnorm
jsr init
bra cbtfail
.res coma-*,$ea
bra coma ; Make sure coma routine exists
.byte 0 ; rom4x present
cbtfail: jsr setvid
jsr setkbd
lda #$01 ; cmd = boot fail1
jmp $c7fc ; to dispatcher