10 ;System equates used
0120 COLOR1 = $02C5
0260 SKCTL = $D20F
0290 WSYNC = $D40A
0310 SETVBV = $E45C
0320 SYSVBV = $E45F
0330 ;End of system equates
0359 ;---------------------
0360     *=  $8000
0370     LDA #$03
0380     STA SKCTL   ;$D20F
0430     LDA #$06
0440     LDX # >VBI
0450     LDY # <VBI
0460     JSR SETVBV  ;$E45C
0530     LDA #$00
0540     STA COLOR1  ;$02C5
0610     LDA # <DLIST
0620     STA 560
0630     LDA # >DLIST
0640     STA 561
0650     LDA # <DLI
0660     STA 512
0670     LDA # >DLI
0680     STA 513
0690     LDA #192
0700     STA 54286
1760 LI  JMP LI
1769 ;---------------------
1780 DLI PHA 
1790     TYA 
1800     PHA 
1810     LDY #$00
1850 L0030 LDA C712,Y ;$9654
1855     STA WSYNC
1860     STA L0027   ;$D01A
1930     INY 
1940     CPY #$C0
1950     BNE L0030   ;$91B7
1960     LDA #$00
1970     STA WSYNC   ;$D40A
1980     STA L0027   ;$D01A
1981     LDA # <DLI
1982     STA 512
1983     LDA # >DLI
1984     STA 513
1990     PLA 
2000     TAY 
2010     PLA 
2020     RTI 
2549 ;---------------------
2800 VBI DEC N4      ;$9653
2810     BNE L0040   ;$9585
2820     LDA #$03
2830     STA N4      ;$9653
2840     LDA #$00
2850     STA N3      ;$9652
2860     STA N2      ;$9651
2870     TAX 
2880 L0047 LDA N1    ;$9650
2890     CLC 
2900     ADC N3      ;$9652
2910     TAY 
2920 L0046 LDA L0044,Y ;$940B
2930     STA C712,X  ;$9654
2940     INY 
2950     INX 
2960     CPX #$C0
2970     BEQ L0045   ;$9582
2980     INC N2      ;$9651
2990     LDA N2      ;$9651
3000     CMP #$0C
3010     BNE L0046   ;$9561
3020     LDA #$00
3030     STA N2      ;$9651
3040     INC N3      ;$9652
3050     JMP L0047   ;$9559
3060 L0045 INC N1    ;$9650
3070 L0040 JMP SYSVBV ;$E45F
3075 ;-------------------------
3080 ;External reference equates
3260 L0027 = $D01A
3360 L0044 = $940B
3370 ;End of external references
3400 ;----------------------------
3510 DLIST .BYTE 240,112,112,112,112,112,112,112,112,112,112,112,112,112,112
3520     .BYTE 112,112,112,112,112,112,112,112,112,112,112,112,112,112
3610     .BYTE 65
3620     .WORD DLIST
3630 ;-----------------------------
3710 N1  .BYTE 254
3711 N2  .BYTE 11
3712 N3  .BYTE 15
3713 N4  .BYTE 1
3720 ;---------------------------
3810 C712 .BYTE 52,50,48,48,50,52,54,56,58,60,62,62
3820     .BYTE 50,48,48,50,52,54,56,58,60,62,62,60
3830     .BYTE 48,48,50,52,54,56,58,60,62,62,60,58
3840     .BYTE 48,50,52,54,56,58,60,62,62,60,58,56
3850     .BYTE 50,52,54,56,58,60,62,62,60,58,56,54
3860     .BYTE 52,54,56,58,60,62,62,60,58,56,54,52
3870     .BYTE 54,56,58,60,62,62,60,58,56,54,52,50
3880     .BYTE 56,58,60,62,62,60,58,56,54,52,50,48
3890     .BYTE 58,60,62,62,60,58,56,54,52,50,48,48
3900     .BYTE 60,62,62,60,58,56,54,52,50,48,48,50
3910     .BYTE 62,62,60,58,56,54,52,50,48,48,50,52
3920     .BYTE 62,60,58,56,54,52,50,48,48,50,52,54
3930     .BYTE 60,58,56,54,52,50,48,48,50,52,54,56
3940     .BYTE 58,56,54,52,50,48,48,50,52,54,56,58
3950     .BYTE 56,54,52,50,48,48,50,52,54,56,58,60
3960     .BYTE 54,52,50,48,48,50,52,54,56,58,60,62
3970 ;-----------------------------
3980     .INCLUDE #D:ESADAT.ASM
3990 ;-----------------------------
4000     *=  $02E2
4010     .WORD $8000