*= $1000
FD = $02
PO = $03
PO1 = $04
LOC1 = $05
S  = $0E00
SF = $0D00
TSCTXT = $5000
   SEI
   LDA #$7F
   STA $DC0D
   LDA #$01
   STA $D01A
   LDA #$1B
   STA $D011
   LDA #<IRQ
   LDX #>IRQ
   STA $0314
   STX $0315
   LDA #$31
   STA $D012
   ADC #$04
   STA FD
   CLI
   RTS
IRQ LDX #$30
F1 LDA $D012
F2 DEC $D016
   INC $D016
   CMP $D012
   BEQ F2
   AND #$07
   ORA #$10
   STA $D011
   DEC $FFFF
   DEC $FFFF
   DEX
   BNE F1
   LDA #$00
   STA $D020
   LDA #$1B
   STA $D011
   LDA #$08
   STA $D016
   INC $D019
   LDX #$0E
   LDY CO+$0F
FR LDA CO,X
   STA CO+1,X
   DEX
   BPL FR
   STY CO
   LDX #$00
   LDY #$00
H0 LDA SP,X
   STA $D000,Y
   LDA FD
   STA $D001,Y
   LDA SQ,X
   STA $07F8,X
   LDA #$01
   STA $D027,X
   INX
   INY
   INY
   CPX #$08
   BNE H0
   LDA #$FF
   STA $D015
   STA $D01D
   STA $D017
   LDA #$C0
   STA $D010
   JSR SS
   JMP $EA31
CO .BYTE $0B,$09,$0C,$02,$0F,$08,$01,$0A
   .BYTE $0D,$07,$03,$0A,$0E,$08,$06,$02
SP .BYTE $00,$30,$60,$90,$C0,$F0,$20,$50
SQ .BYTE $38,$39,$3A,$3B,$3C,$3D,$3E,$3F
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 TSCTXT
   AND #$3F
   BEQ RS
   INC VV+1
   BNE NT
   INC VV+2
   JMP NT
RS LDA #<TSCTXT
   STA VV+1
   LDA #>TSCTXT
   STA 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