.segment "EXTRA"
.export MONRDKEY, MONCOUT, LOAD; SAVE; ISCNTC

LOAD:
        rts

SAVE:
        rts

ISCNTC:
        lda $BC01
        cmp #$03
        beq @break
        rts
@break:
        jmp STOP

MONRDKEY:
        lda $BC01
        bmi @skipped
        sta $BC00       ; echo
@skipped:
        rts

MONCOUT:
        sta $BC00

        rts

.segment "RESETVEC"
        .word   $0000           ; NMI vector
        .word   COLD_START      ; RESET vector
        .word   $0000           ; IRQ vector