*=$6000
sysvbv =$e45c

xitvbv =$e462
inicio
    jsr inicia.vbi
loop
    jmp loop
inicia.vbi
    lda #7
    ldy #<rutina
    ldx #>rutina
    jsr sysvbv
    rts
rutina
    lda $14
    sta $2c6
    jmp xitvbv
    *=$2e0
    .word inicio