;---------------------------------------
;ÏKAY É LOOKED AT YOUR SCROLLER AND YOU
;MISSING QUITE A FEW IMPORTANT THINGS...
;ÓO TAKE A LOOK AT THIS AND SEE WHAT YOU
;WERE MISSING.
;---------------------------------------

         *= $1000

FD       = $02
PO       = $03
PO1      = $04
LOC1     = $05
S        = $0E00
SF       = $0D00
TEXT     = $5000
PICTURE  = $2000

         JSR SETUP

         SEI
         LDA #$7F
         STA $DC0D
         STA $D01A
         LDA #$1B
         STA $D011
         LDA #<IRQ1
         LDX #>IRQ1
         STA $0314
         STX $0315
         LDA #$32
         STA $D012
         ADC #$07
         STA $02
         CLI
SPACECK  LDA $DC01
         CMP #$EF
         BNE SPACECK
MAIN     JMP MAIN

IRQ1     INC $D019
         LDA #$3B
         STA $D011
         LDA #$18
         STA $D016
         STA $D018
         LDX #$00
         LDY #$00
H0       LDA SP,X
         STA $D000,Y
         LDA FD
         STA $D001,Y
         LDA SQ,X
         STA $07F8,X
         LDA #$0B
         STA $D027,X
         INX
         INY
         INY
         CPX #$08
         BNE H0
         JSR SS
         JMP $EA81

SS       LDX #$00
Z1       ASL SF+$02,X
         ROL SF+$01,X
         ROL SF,X
         ROL S+$01C2,X
         ROL S+$01C1,X
         ROL S+$01C0,X
         ROL S+$0182,X
         ROL S+$0181,X
         ROL S+$0180,X
         ROL S+$0142,X
         ROL S+$0141,X
         ROL S+$0140,X
         ROL S+$0102,X
         ROL S+$0101,X
         ROL S+$0100,X
         ROL S+$C2,X
         ROL S+$C1,X
         ROL S+$C0,X
         ROL S+$82,X
         ROL S+$81,X
         ROL S+$80,X
         ROL S+$42,X
         ROL S+$41,X
         ROL S+$40,X
         ROL S+$02,X
         ROL S+$01,X
         ROL S+$00,X
         INX
         INX
         INX
         CPX #3*21
         BNE Z1
         DEC PO1
         BPL X1
         LDA #$07
         STA PO1
         LDA #$32
         STA $01
VV       LDA TEXT
         AND #$3F
         BEQ RS
         INC VV+1
         BNE NT
         INC VV+2
         JMP NT
RS       LDA #<TEXT
         LDX #>TEXT
         STA VV+1
         STX VV+2
         LDA #$20
NT       LDX #$D0
         CMP #$20
         BCC N1
         INX
N1       ASL A
         ASL A
         ASL A
         STX LOC1+1
         STA LOC1
         LDY #$00
         LDX #$00
V3       LDA (LOC1),Y
         STA SF+3,X
         STA SF+6,X
         STA SF+9,X
         INX
         INX
         INX
         INX
         INX
         INX
         INX
         INX
         INX
         INY
         CPY #$08
         BNE V3
         LDA #$37
         STA $01
X1       RTS

SETUP    JSR $E544
         LDA #$00
         STA $D020
         STA $D021
         LDA #$FF
         STA $D015
         STA $D01D
         STA $D017
         LDA #$C0
         STA $D010
DISPLAY  LDX #$00
DISP1    LDA $3F40,X
         STA $0400,X
         LDA $4040,X
         STA $0500,X
         LDA $4140,X
         STA $0600,X
         LDA $4240,X
         STA $0700,X
         LDA $4338,X
         STA $D800,X
         LDA $4438,X
         STA $D900,X
         LDA $4538,X
         STA $DA00,X
         LDA $4638,X
         STA $DB00,X
         INX
         BNE DISP1
         RTS

SP       .BYTE $00,$30,$60,$90
         .BYTE $C0,$F0,$20,$50
SQ       .BYTE $38,$39,$3A,$3B
         .BYTE $3C,$3D,$3E,$3F