;=================================================================
; [konami.inc] -- Hahahaa!! *coughgradiuscough*
;=================================================================


CHKKONGRD:
    phx
    ldx #$20
-   wai
    dex
    cpx #$00
    bpl -
    plx

    lda joy1+1
    and #$80                    ; is KEY_B pressed?
    bne kon_ok_a
    jmp kon_not_ok
kon_ok_a
    lda joy1
    and #$80                    ; is KEY_A pressed?
    bne kon_ok_b
    jmp kon_not_ok
kon_ok_b
    lda #$80
    sta $2100
    wai
    jsr INIT_VIDEO_03
    wai
    wai
    LOAD_PAL BG_PAL_TENONE
    wai
    LOAD_BLOCK2VRAM FONT2_TILES,$2000,$1800
    wai
    wai
    wai
    lda #$0A
    sta a_byte
    jmp kon_flash
kon_write
    GOTOXY 15,8
    PRINTS "KRSOFT ONE"
    GOTOXY 17,8
    PRINTS "ANGELAp TEN"
    lda #$0F
    sta $2100
kon_forever
    jmp kon_forever
kon_not_ok
    rts
kon_flash
    lda a_byte
    cmp #$00
    beq kon_write
    sta a_byte
    lda #$0F
    sta $2100
    wai
    wai
    wai
    lda #$00
    sta $2100
    wai
    wai
    wai
    dec a_byte
    jmp kon_flash
