// Fast solution 75W per frame
// ***************************

.pc=$032c
.byte <init,>init

init:
    sei
    lda #<irq
    sta $fffe
    lda #>irq
    sta $ffff
    lda #$7d        // Enable RAM and count $100-$7d
    sta $01

carryset:
    sec
    nop
    eor (0,x)       // This is done 2 times before using A
    nop
    nop
    nop
    ldy #25
loop:
    brk         // 7
irq:
    bit $d020       // 4
    ldx #89         // 89*5+2-1 => 446
    in1:
        dex
        bne in1
    ldx #227        // 2 => Used on next loop
    dey             // 2
    bne loop        // 3/2      => 464 [63x7+23]
    out2:           // 227*(2+5*5-1+2+3)-1 => 7036
        ldy #5
        in2:
            dey
            bne in2
        dex
        bne out2
    // From now on: 21 cycles till next frame
    // -1+7036+21 => 7056 [112*63] => 7056
    bcc carryset
    adc #$00
    bcc carryset+2
    lda #STY_ABS
    sta irq
    bcs carryset+5