20 RTCLOK =  $12
30 SDMCTL =  $022F
40 SDLSTL =  $0230
50 SDLSTH =  $0231
60 COLOR1 =  $02C5
70 COLOR2 =  $02C6
80 COLOR4 =  $02C8
90 RANDOM =  $D20A
0100 AUDF1 = $D200
0110 AUDC1 = $D201
0120 AUDF2 = $D202
0130 AUDC2 = $D203
0140 AUDF3 = $D204
0150 AUDC3 = $D205
0160 AUDCTL = $D208
0170 SKCTL = $D20F
0180 NMIEN = $D40E
0190 ;---------------------
0210 Z0010 = $CC
0220 Z0011 = $CD
0230 Z0017 = $DD
0240 Z0018 = $A9
0250 ;---------------------
0260     *=  $4000
0270     LDA #$00
0280     STA SDMCTL  ;$022F
0290     STA NMIEN   ;$D40E
0300     LDA #$00
0310     STA L0001   ;$4016
0320     LDA #$80
0330     STA L0002   ;$4017
0340 L0004 LDA RANDOM ;$D20A
0350 L0016 STA L0003 ;$9000
0360     INC L0001   ;$4016
0370     BNE L0004   ;$4012
0380     INC L0002   ;$4017
0390     LDA L0002   ;$4017
0400     CMP #$90
0410     BNE L0004   ;$4012
0420     JSR L0005   ;$4078
0430     JSR L0006   ;$40CF
0440     LDA #$00
0450     STA COLOR4  ;$02C8
0460     LDA #$0E
0470     STA COLOR1  ;$02C5
0480     LDA #$00
0490     STA COLOR2  ;$02C6
0500     LDA #$00
0510     STA SDLSTL  ;$0230
0520     LDA #$7C
0530     STA SDLSTH  ;$0231
0540     LDA #$23
0550     STA SDMCTL  ;$022F
0560     LDA #$40
0570     STA NMIEN   ;$D40E
0580     LDA #$00
0590     STA RTCLOK+1 ;$0013
0600     LDA #$80
0610     STA RTCLOK+2 ;$0014
0620 L0008 JSR L0005 ;$4078
0630     JSR L0007   ;$40B9
0640     LDA RTCLOK+1 ;$0013
0650     CMP #$02
0660     BNE L0008   ;$4058
0670     LDA #$00
0680     STA SDMCTL  ;$022F
0690     LDX #$08
0700 L0009 STA AUDF1,X ;$D200
0710     DEX 
0720     BPL L0009   ;$406B
0730     RTS 
0800 L0005 LDX #$EF
0810     LDA #$00
0820     STA Z0010   ;$00CC
0830     LDA #$7C
0840     STA Z0011   ;$00CD
0850 L0012 LDY #$00
0860     LDA #$4F
0870     STA (Z0010),Y ;$00CC
0880     INY 
0890     LDA RANDOM  ;$D20A
0900     STA (Z0010),Y ;$00CC
0910     LDA RANDOM  ;$D20A
0920     AND #$0F
0930     ORA #$80
0940     INY 
0950     STA (Z0010),Y ;$00CC
0960     CLC 
0970     LDA Z0010   ;$00CC
0980     ADC #$03
0990     STA Z0010   ;$00CC
1000     LDA Z0011   ;$00CD
1010     ADC #$00
1020     STA Z0011   ;$00CD
1030     DEX 
1040     BNE L0012   ;$4082
1050     LDY #$00
1060     LDA #$41
1070     STA (Z0010),Y ;$00CC
1080     LDA #$00
1090     INY 
1100     STA (Z0010),Y ;$00CC
1110     LDA #$7C
1120     INY 
1130     STA (Z0010),Y ;$00CC
1140     RTS 
1150 L0007 LDA RANDOM ;$D20A
1160     AND #$0F
1170     ORA #$80
1180     STA L0013   ;$40CA
1190     LDY #$00
1200 L0015 LDA RANDOM ;$D20A
1210 L0017 STA L0014,Y ;$8E00
1220     DEY 
1230     BNE L0015   ;$40C5
1240     RTS 
1250 L0006 LDA #$00
1260     STA AUDCTL  ;$D208
1270     LDA #$03
1280     STA SKCTL   ;$D20F
1290     LDA #$85
1300     STA AUDC1   ;$D201
1310     LDA #$05
1320     STA AUDF1   ;$D200
1330     LDA #$07
1340     STA AUDF2   ;$D202
1350     LDA #$83
1360     STA AUDC2   ;$D203
1370     LDA #$02
1380     STA AUDF3   ;$D204
1390     LDA #$82
1400     STA AUDC3   ;$D205
1410     RTS 
1470     *=  $02E2
1480     .WORD $4000
1500 ;-----------------------
1510 L0001 = L0016+1
1520 L0002 = L0016+2
1530 L0003 = $9000
1540 L0013 = L0017+3
1550 L0014 = $8E00