10 *= 23808
12 .S
16 .D ML.MAIN2
18 JMP SETUP
20 FILE .BYTE "MP.@"
22 C2 .BYTE 0
24 C3 .BYTE 0
26 C10 .BYTE 0
30 TEXT .BYTE "...............................PAUSED":.BYTE 0
32 SPEED .BYTE 5
100 SETUP LDA #64
102 STA FILE+3:LDA #9:STA $4763
107 L107 LDA #2:JSR 28300
110 NEXTLEV LDA #2:JSR 19861:LDA #1:JSR 18272
112 JSR LOADMAP:LDX 856:INX:STX 856:JSR PRMEN:LDA #0:JSR 21011
114 JSR 28500:LDA 55296:STA 646
116 JSR 20543
120 JSR 20742:LDX #0:STX 53249
122 JSR 20779:LDX 830:STX 831:LDX #104:STX 848:LDA #1:JSR 21011
123 LDX #0:STX 834:STX 835:STX 836:STX 837:STX 847:LDA #1:JSR 21080
124 MOVEMAN JSR DELAY:LDA #0:JSR 21080
126 JSR 23296
128 JSR 19667
130 JSR 19556
134 JSR 28160
136 LDX C2:INX:STX C2:CPX #3:BNE MOVEMAN:LDX #0:STX C2
137 JSR 20335
142 JSR 18050
144 JSR 19508
146 LDA #0:JSR 19861
148 JSR 23422
150 DO3 LDX C3:INX:STX C3:CPX #4:BNE MOVEMAN:LDX #0:STX C3
152 LDA #0:JSR 18272
154 JSR 19420
155 JSR 17987
156 JSR 19524
157 JSR ENERGY
158 JSR 18125
160 JSR $FFE4
162 CMP #3:BNE L164:JMP DIE
164 L164 CMP #133:BNE L166:JMP DONE
166 L166 CMP #32:BNE L170
168 L168 LDA 831:CMP #0:BNE L180:JMP NEXTLEV
170 L170 CMP #80:BNE L172:JMP PAUSE
172 L172 CMP #136:BNE L173:JMP RELOAD
173 L173 CMP #173:BNE L174:JMP MEN1
174 L174 CMP #179:BNE L175:JMP NEXTLEV
175 L175 CMP #177:BNE L176:JMP RESETCOINS
176 L176 CMP #189:BNE L177:JMP DINAMITE
177 L177 CMP #188:BNE L178:JMP LKEY
178 L178 CMP #190:BNE L179:JMP MKEY
179 L179 JMP CCHEAT
180 L180 LDX C10:INX:STX C10:CPX #10:BNE L198:LDX #0:STX C10
182 JSR ENERGYMINUS
198 L198 JMP MOVEMAN
200 LOADMAP LDX FILE+3:INX:STX FILE+3:LDA #0:JSR 21011
202 LDA #4:LDX #<FILE:LDY #>FILE:JSR $FFBD
204 LDA #8:TAX:LDY #1:JSR $FFBA
206 LDA #0:JSR $FFD5:LDA #1:JSR 21011
208 LDA 144:CMP #66:BEQ RESET
209 RTS
210 RESET LDA #64:STA FILE+3:JMP LOADMAP
220 DIE LDA #1:STA 855:JMP MOVEMAN
222 DONE RTS
300 ENERGY LDA 848:CMP #104:BCC L301:LDX #104:STX 848
301 L301 LDA #0:JSR 28300:CMP 848:BEQ CHECK
302 BCS LOWER
304 HIGHER LDA #1:JSR 28300:JMP ENDONE
306 LOWER LDA #2:JSR 28300
308 CHECK CMP #0:BEQ PULDIE
310 ENDONE RTS
312 ENERGYMINUS LDX 848:DEX:STX 848:RTS
320 PRMEN LDX #0:LDY #6:CLC:JSR $FFF0
322 LDX 856:LDA #0:JSR $BDCD:LDA #32:JSR $FFD2:RTS
324 PULDIE PLA:PLA:JMP DIE
400 CCHEAT CMP #191:BNE L401:JMP MKEY
401 L401 CMP #170:BNE L402:JMP DKEY
402 L402 CMP #167:BNE L403:JMP SKEY
403 L403 CMP #171:BNE L404:JMP ENERGY104
404 L404 CMP #43:BNE L406:JMP SLOWER
406 L406 CMP #45:BNE L408:JMP FASTER
408 L408 JMP L180
500 LKEY LDX 834:INX:STX 834:JMP L180
502 MKEY LDX 835:INX:STX 835:JMP L180
504 DKEY LDX 836:INX:STX 836:JMP L180
506 SKEY LDX 837:INX:STX 837:JMP L180
507 ENERGY104 LDX #104:STX 848:JMP L180
510 DINAMITE LDX 847:INX:STX 847:JMP L180
512 MEN1 LDX 856:INX:STX 856:JSR PRMEN:JMP L180
514 RELOAD LDX 856:DEX:STX 856:LDX FILE+3:DEX:STX FILE+3:JMP NEXTLEV
516 RESETCOINS LDX #0:STX 831:JMP L180
520 PAUSE LDA 56295:STA 646:LDA #<TEXT:LDY #>TEXT:JSR $AB1E:LDA 55296:STA 646
522 L522 JSR $FFE4:CMP #80:BNE L522
526 LDA #0:JSR 17664:JMP L180
600 SLOWER LDX SPEED:INX:CPX #20:BNE L602:LDX #19
602 L602 STX SPEED:JMP L180
604 FASTER LDX SPEED:DEX:CPX #255:BNE L602:LDX #0:JMP L602
610 DELAY LDX #0:LDY #0
612 L612 CPX SPEED:BEQ DELAYDONE
614 L614 INY:CPY #0:BNE L614
616 INX:JMP L612
618 DELAYDONE RTS
999 .END TX.MAIN2