10       .OPT NO LIST,OBJ
0320 DMACTL = $D400
0340 WSYNC = $D40A
0350 NMIEN = $D40E
0360 SETVBV = $E45C
0370 SYSVBV = $E45F
0380 ;---------------------
0400 Z0001 = $D5
0480 Z0046 = $D1
0490 Z0048 = $D0
0500 ;----------------------
0510     *=  $4400
0620     LDA #$00
0630     STA Z0001   ;$00D5
0640     STA 559
1220     LDA #$00
1230     STA L0021   ;$4717
1240     LDX #$00
1250     STX L0022   ;$475D
1260 L0026 LDA L0021,X ;$4717
1270     CLC 
1280     ADC #$08
1290     CMP #$B4
1300     BCC L0023   ;$44AF
1310     SEC 
1320     SBC #$B4
1330 L0023 STA L0024,X ;$4718
1340     LDA L0022,X ;$475D
1350     CLC 
1360     ADC #$10
1370     STA L0025,X ;$475E
1380     INX 
1390     CPX #$0A
1400     BNE L0026   ;$44A2
1570     LDA # <DLIST
1580     STA 560
1590     LDA # >DLIST
1600     STA 561
1610     LDA # <DLI
1620     STA 512
1630     LDA # >DLI
1640     STA 513
1650     LDA #34
1660     STA 559
1670     LDA #192
1680     STA NMIEN   ;$D40E
1690     LDA #$06
1700     LDX # >VBI
1710     LDY # <VBI
1720     JSR SETVBV  ;$E45C
2070 L0035 JMP L0035
2620 VBI LDX #$8F
2630     LDA #$00
2640 L0045 STA L0044,X ;$4853
2650     DEX 
2660     BNE L0045   ;$45C4
2670     LDX #$0A
2680 L0057 LDA L0022,X ;$475D
2690     STA Z0046   ;$00D1
2700     DEC L0021,X ;$4717
2710     LDA L0021,X ;$4717
2720     CMP #$FF
2730     BNE L0047   ;$45E0
2740     LDA #$B3
2750     STA L0021,X ;$4717
2760 L0047 STX Z0048 ;$00D0
2770     CMP #$2D
2780     BEQ L0049   ;$45EA
2790     CMP #$87
2800     BNE L0050   ;$4602
2810 L0049 TAY 
2820     CPX #$00
2830     BNE L0051   ;$45F6
2840     SEC 
2850     LDA Z0001   ;$00D5
2860     SBC #$10
2870     STA Z0001   ;$00D5
2880 L0051 CLC 
2890     LDA Z0001   ;$00D5
2900     ADC L0052,X ;$47A3
2910     STA L0022,X ;$475D
2920     STA Z0046   ;$00D1
2930     TYA 
2940 L0050 TAX 
2950     LDA L0053,X ;$5000
2960     TAX 
2970     LDY #$0E
2980 L0056 LDA L0054,Y ;$47C3
2990     ORA Z0046   ;$00D1
3000     STA L0055,X ;$4854
3010     INX 
3020     DEY 
3030     BPL L0056   ;$4609
3040     LDX Z0048   ;$00D0
3050     DEX 
3060     BPL L0057   ;$45CC
3070     JMP SYSVBV  ;$E45F
3080 DLI PHA 
3090     TXA 
3100     PHA 
3160     LDX #$00
3170 L0060 LDA L0055,X ;$4854
3180     STA WSYNC   ;$D40A
3190     STA $D01A   ;COLBK
3200     INX 
3210     CPX #$8F
3220     BNE L0060   ;$462F
3230     PLA 
3240     TAX 
3250     PLA 
3260     RTI 
3270 DLIST .BYTE $70,$70,$70,$70,$70
3276     .BYTE $80,$70,$70,$70,$70
3277     .BYTE $70,$70,$70,$70,$70
3280     .BYTE $70,$70,$70,$70,$70
3290     .BYTE $70,$70,$70,$70,$70
3300     .BYTE $70,$70,$70
3990     .BYTE $41
4000     .WORD DLIST
4010 L0021 .BYTE $32
4020 L0024 .BYTE $3A
4030     .BYTE $42,$4A,$52,$5A,$62,$6A,$72,$7A .$82
4040     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4050     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4060     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4070     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4080     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4090     .BYTE $00,$00,$00,$00,$00,$00,$00,$00
4091 L0025 .BYTE $00
4660 L0022 .BYTE $30,$40,$50,$60,$70,$80,$90,$A0,$B0,$D0
4670     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4680     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4690     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4700     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4710     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
4720     .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00
5300 L0052 .BYTE $00,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$F0
5310     .BYTE $00,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$F0
5471 L0054 .BYTE $04,$06,$08,$0A,$0C,$0E,$0C,$0A,$08,$06,$04,$02,$00
5560 ;
5570     .BYTE $00,$00
6570 L0044 .BYTE 0
6580 L0055 .BYTE 0
6620 ;--------------------------
6630 L0053 = $5000
6990     *=  $5000
8000     *=  $5000
8010     .BYTE $40,$42,$44,$47,$49,$4B,$4D,$4F,$51,$53,$56,$58,$5A,$5C,$5E,$5F,$61,$63,$65,$67,$68
8020     .BYTE $6A,$6C,$6D,$6F,$70,$72,$73,$74,$75,$77,$78,$79,$7A,$7A,$7B,$7C,$7D,$7D,$7E,$7E,$7E
8030     .BYTE $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7E,$7E,$7E,$7D,$7D,$7C,$7B,$7A,$7A,$79,$78,$77,$75,$74
8040     .BYTE $73,$72,$70,$6F,$6D,$6C,$6A,$68,$67,$65,$63,$61,$60,$5E,$5C,$5A,$58,$56,$53,$51,$4F
8050     .BYTE $4D,$4B,$49,$47,$44,$42,$40,$3E,$3C,$39,$37,$35,$33,$31,$2F,$2D,$2A,$28,$26,$24,$22
8060     .BYTE $21,$1F,$1D,$1B,$19,$18,$16,$14,$13,$11,$10,$0E,$0D,$0C,$0B,$09,$08,$07,$06,$06,$05
8070     .BYTE $04,$03,$03,$02,$02,$02,$01,$01,$01,$01,$01,$01,$01,$02,$02,$02,$03,$03,$04,$05,$06
8080     .BYTE $06,$07,$08,$09,$0B,$0C,$0D,$0E,$10,$11,$13,$14,$16,$18,$19,$1B,$1D,$1F,$20,$22,$24
8090     .BYTE $26,$28,$2A,$2D,$2F,$31,$33,$35,$37,$39,$3C,$3E
9000     *=  $02E2
9010     .WORD $4400