;--------------------------------------;
;1X1 ÐROPORTIONAL ÓCROLL               ;
;--------------------------------------;

TEXT    = $4000
CSET1X1 = $2000

        *= $1000

        SEI
        LDA #$7F
        STA $DC0D
        LDA #$01
        STA $D01A
        LDA #$1B
        STA $D011
        LDA #$32
        STA $D012
        LDA #<IRQ
        LDX #>IRQ
        STA $0314
        STX $0315
        LDX #$00
CHEESE  TXA
        STA $0400,X
        LDA #$00
        STA $D800,X
        INX
        CPX #$28
        BNE CHEESE
        LDX #$00
        LDA #$FF
CHESE   STA $2800,X
        STA $2840,X
        INX
        BNE CHESE
        CLI
MAIN    RTS
IRQ     LDA #$00
XPOS    = *-1
        STA $D016
        LDA #$1A
        STA $D018
        LDX #$00
CBAR    LDA COLOR,X
        LDY TIME1,X
WAIT    DEY
        BNE WAIT
        STA $D021
        INX
        CPX #$09
        BNE CBAR
        LDA #$15
        STA $D018
        LDA #$00
        STA $D021
        LDA #$08
        STA $D016
        LDA #$40
        STA $D012
        LDA #<IRQ1
        LDX #>IRQ1
        STA $0314
        STX $0315
        INC $D019
        JMP $EA81
IRQ1    NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        LDA #$08
        STA $D016
        LDA #$31
        STA $D012
        LDA #$15
        STA $D018
        INC $D020
        JSR SCROLL
        JSR ROLL
        DEC $D020
        INC $D019
        LDA #<IRQ
        LDX #>IRQ
        STA $0314
        STX $0315
        JMP $EA31
SCROLL  LDA XPOS
        SEC
        SBC #$02
SPEED   = *-1
        STA XPOS
        BPL SCROLL1
        AND #$07
        STA XPOS
        LDY $0400
        LDX #$00
SC1     LDA $0401,X
        STA $0400,X
        INX
        CPX #$27
        BNE SC1
        STY $0427
        LDY #$28
        CMP #$20
        BCC SC2
        INY
SC2     ASL A
        ASL A
        ASL A
        STA P1
        STY P1+1
        LDX #$07
SC3     LDA TEMP,X
        EOR #$FF
        STA P1,X
P1      = *-2
        DEX
        BPL SC3

SCROLL1 LDA SPEED
        STA COUNTER
SCVH    LDY #$00
        STY BITA
        INY
        LDX #$07
SC1A    ASL TEMP+$10,X
        ROL TEMP+$08,X
        BCC FINE
        STY BITA
FINE    ROL TEMP,X
        DEX
        BPL SC1A
        LDA #$00
CHAR    = *-1
        CMP #$20
        BNE NSPACE
        DEC TIME
        BNE EXIT
        LDA #$04
        STA TIME
        JMP GCHR
NSPACE  LDA BITA
        BNE EXIT
GCHR    LDA TEXT
TP      = *-2
        BEQ RESTART
        INC TP
        BNE PCHR
        INC TP+1
        BNE PCHR
RESTART LDA #<TEXT
        STA TP
        LDA #>TEXT
        STA TP+1
        LDA #$20
PCHR    STA CHAR
        LDY #$20
        CMP #$20
        BCC PCH1
        INY
PCH1    ASL A
        ASL A
        ASL A
        STA PC1
        STA PC2
        STY PC1+1
        TYA
        CLC
        ADC #$02
        STA PC2+1
        LDX #$07
SCRL1   LDA PC1,X
PC1     = *-2
        STA TEMP+8,X
        LDA PC2,X
PC2     = *-2
        STA TEMP+16,X
        DEX
        BPL SCRL1
EXIT    DEC COUNTER
        BNE SCVH
        RTS
ROLL    LDA #$00
TIME2   = *-1
        BNE ROLL1
        LDA #$02
        STA TIME2
        LDY COLOR+$1C
        LDX #$1B
RO1     LDA COLOR,X
        STA COLOR+1,X
        DEX
        BPL RO1
        STY COLOR
        RTS
ROLL1   DEC TIME2
        RTS
;---------------------------------------
COUNTER .BYTE $00;BRK
TIME    .BYTE $04;4
TEMP    .BYTE 0,0,0,0,0,0,0,0
        .BYTE 0,0,0,0,0,0,0,0
        .BYTE 0,0,0,0,0,0,0,0
BITA    .BYTE $00;BRK
COLOR   .BYTE $0B,$0C,$0F,$01
        .BYTE $01,$0F,$0C,$0B
        .BYTE $06,$04,$0E,$03
        .BYTE $0D,$01,$07,$0A
        .BYTE $08,$02,$09,$09
        .BYTE $02,$08,$0A,$07
        .BYTE $01,$0D,$03,$0E
        .BYTE $04,$06
TIME1   .BYTE 6,9,9,9,9,9,9,9,9