bank 6
base $8000

org $b51a
    ; Intercept part of stage fade in handler
    jmp newFadeCheck
    nop

; Remove darken screen on pause
org $b3b3
    nop 3

; Remove undarken screen on unpause
org $b3db
    nop 3

bank 7
base $c000

; start of free space
org $fe85
newFadeCheck:
    lda $7a8    ; load difficulty
    lsr
    clc
    adc $69     ; add to the fade index
    cmp #$05
    bne +
    lda #$00
    sta $52
+
    rts