PLOT     = $FFF0
SPRCURL  = $0340

SPRCUR   SEC
         JSR PLOT
         JSR SPRCURXY
         CPX #$28
         BCC SPRCUR1
         TXA
         SEC
         SBC #$28
         TAX
SPRCUR1  TXA
         ASL A
         ASL A
         ASL A
         CPX #$1D
         BCC ADDXL
ADDXR    CLC
         ADC #$18
         LDX #%00000001
         STX $D010
         JMP TAXR
ADDXL    CLC
         ADC #$18
         LDX #$00
         STX $D010
TAXR     TAX
         TYA
         ASL A
         ASL A
         ASL A
         CLC
         ADC #$32
         TAY
         STX $D000
         STY $D001
         LDA $0286
         STA $D027
SPRCURX  RTS
         ;------------------------------
SPRCURXY PHA
         TYA
         PHA
         TXA
         TAY
         PLA
         TAX
         PLA
         RTS
         ;------------------------------
SPRCINIT LDA #%00000001
         STA $D015
         LDA #%00000001
         STA $D01B
         LDA #SPRCURL/64
         STA $07F8
         LDA #$00
         STA $D010
         LDY #$00
COPYSPR  LDA SPRCURD,Y
         STA SPRCURL,Y
         INY
         CPY #65
         BNE COPYSPR
         RTS
         ;------------------------------
SPRCURD  .BYTE $FF,$00,$00,$FF,$00,$00
         .BYTE $FF,$00,$00,$FF,$00,$00
         .BYTE $FF,$00,$00,$FF,$00,$00
         .BYTE $FF,$00,$00,$FF,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00