spaceEA PAGE : 1 DATED : 19Dec17 1 * = $E800 2 L0005 = $0005 3 L0018 = $0018 ;Start of lhpga table LSB 4 L0028 = $0028 ;Start of lhpga table MSB 5 L0030 = $0030 6 L0038 = $0038 ;Current score in decimal 7 L0039 = $0039 ; 8 L003A = $003A ; 9 L003B = $003B ;Number spaceships left 10 L003C = $003C ;Number lives left (max 4) 11 L003D = $003D ;Highest score in decimal 12 L0040 = $0040 ;current spaceship (0-3F) 13 L0041 = $0041 ;left half spaceship shape 14 L0042 = $0042 ;right half spaceship shape 15 L0043 = $0043 ;pg above register 41 16 L0044 = $0044 ;pg above register 42 17 L0045 = $0045 ;lhpga LSB for pg in 41/42 18 L0046 = $0046 ;lhpga MSB for pg in 41/42 19 L0047 = $0047 ;lhpga LSB for pg in 43/44 20 L0048 = $0048 ;lphga MSB for pg in 43/44 21 L0049 = $0049 ;Shooters horz pos (2-3A) 22 L004A = $004A ;Initial value of 4B 23 L004B = $004B ;Spaceships vert pos vv 24 L004C = $004C ;Spaceships horz pos hv 25 L004D = $004D ;Spaceships dir. 0=right 26 L004E = $004E ;Spaceships dir. 0=not down 27 L004F = $004F ;Spaceships moves (max 10) 28 L0050 = $0050 ;Spaceships moves (max 8) 29 L0051 = $0051 ;Laser horz position hv 30 L0052 = $0052 ;Laser vert vv pos 0=not fired 31 L0053 = $0053 ;Laser graphic pga LSB 32 L0054 = $0054 ;Laser graphic pga MSB 33 L0055 = $0055 ;Laser hpgn 34 L0056 = $0056 ;Laser pg 35 L0057 = $0057 ;Laser move counter (max 6) 36 L0058 = $0058 ;Laser fire counter (max 2) 37 L0059 = $0059 ;Bomb vv 38 L005F = $005F ;Bomb hv 39 L0065 = $0065 ;Bomb pg 40 L006B = $006B ;Temp Store 41 L006C = $006C ;Temp Store 42 L006D = $006D ;Temp Store 43 L006E = $006E ;Drop Bomb counter 44 L006F = $006F ;Status word 45 L0070 = $0070 ;Start of text LSB 46 L0071 = $0071 ;Start of text MSB 47 L0078 = $0078 ;Flying Saucer hv (1C - 63) 48 L0079 = $0079 ;Flying Saucer move counter max 1E 49 L007A = $007A ;Flying Saucer start counter 50 L007B = $007B ;Flying Saucer start counter 51 L007D = $007D ;Temp Store for Register 4D 52 L007E = $007E ;Game Speed 53 L0080 = $0080 ;Start of Spaceship hv table 54 L00C0 = $00C0 ;Start of Spaceship vv table 55 L0200 = $0200 ;Screen locations 56 L021F = $021F 57 L0220 = $0220 58 L0230 = $0230 59 L0300 = $0300 60 L031F = $031F 61 L03C0 = $03C0 62 L03DD = $03DD 63 L03DE = $03DE 64 L03DF = $03DF 65 L03E0 = $03E0 66 L03E1 = $03E1 67 LBFF0 = $BFF0 ;Read - Graphics on 68 LBFF2 = $BFF2 ;Write - Scan Keypad 69 LBFF3 = $BFF3 ;W-Graphics off, R-Read Keypad E800 4C3CEE 168 JMP LEE3C ;Jump to Initialisation E803 A000 169 LE803: LDY #$00 ;Draw / Delete Spaceship E805 F002 170 BEQ LE809 E807 A001 171 LE807: LDY #$01 E809 A640 172 LE809: LDX L0040 E80B B580 173 LDA L0080,X E80D 4A 174 LSR A E80E 08 175 PHP E80F 8A 176 TXA E810 4A 177 LSR A E811 4A 178 LSR A E812 4A 179 LSR A E813 4A 180 LSR A E814 AA 181 TAX E815 28 182 PLP E816 900A 183 BCC LE822 E818 BDC8EA 184 LDA LEAC8,X E81B 8541 185 STA L0041 E81D BDCCEA 186 LDA LEACC,X E820 D008 187 BNE LE82A E822 BDC0EA 188 LE822: LDA LEAC0,X E825 8541 189 STA L0041 E827 BDC4EA 190 LDA LEAC4,X E82A 8542 191 LE82A: STA L0042 E82C A900 192 LDA #$00 E82E 8543 193 STA L0043 E830 8544 194 STA L0044 E832 A640 195 LDX L0040 E834 B5C0 196 LDA L00C0,X E836 2903 197 AND #$03 E838 AA 198 TAX E839 F013 199 BEQ LE84E E83B 4641 200 LE83B: LSR L0041 E83D 6643 201 ROR L0043 E83F 4641 202 LSR L0041 E841 6643 203 ROR L0043 E843 4642 204 LSR L0042 E845 6644 205 ROR L0044 E847 4642 206 LSR L0042 E849 6644 207 ROR L0044 E84B CA 208 DEX E84C D0ED 209 BNE LE83B E84E A640 210 LE84E: LDX L0040 E850 B580 211 LDA L0080,X E852 4A 212 LSR A E853 48 213 PHA E854 B5C0 214 LDA L00C0,X E856 4A 215 LSR A E857 4A 216 LSR A E858 AA 217 TAX E859 B518 218 LDA L0018,X E85B 8545 219 STA L0045 E85D B528 220 LDA L0028,X E85F 8546 221 STA L0046 E861 E8 222 INX E862 B518 223 LDA L0018,X E864 8547 224 STA L0047 E866 B528 225 LDA L0028,X E868 8548 226 STA L0048 E86A 68 227 PLA E86B 88 228 DEY E86C 3023 229 BMI LE891 E86E A8 230 TAY E86F A541 231 LDA L0041 E871 49FF 232 EOR #$FF E873 3145 233 AND (L0045),Y E875 9145 234 STA (L0045),Y E877 A543 235 LDA L0043 E879 49FF 236 EOR #$FF E87B 3147 237 AND (L0047),Y E87D 9147 238 STA (L0047),Y E87F C8 239 INY E880 A542 240 LDA L0042 E882 49FF 241 EOR #$FF E884 3145 242 AND (L0045),Y E886 9145 243 STA (L0045),Y E888 A544 244 LDA L0044 E88A 49FF 245 EOR #$FF E88C 3147 246 AND (L0047),Y E88E 9147 247 STA (L0047),Y E890 60 248 RTS E891 48 249 LE891: PHA E892 A640 250 LDX L0040 E894 A552 251 LDA L0052 E896 38 252 SEC E897 F5C0 253 SBC L00C0,X E899 C902 254 CMP #$02 E89B B009 255 BCS LE8A6 E89D A551 256 LDA L0051 E89F 38 257 SEC E8A0 F580 258 SBC L0080,X E8A2 C903 259 CMP #$03 E8A4 9023 260 BCC LE8C9 E8A6 68 261 LE8A6: PLA E8A7 A8 262 TAY E8A8 A541 263 LDA L0041 E8AA 1145 264 ORA (L0045),Y E8AC 9145 265 STA (L0045),Y E8AE A543 266 LDA L0043 E8B0 1147 267 ORA (L0047),Y E8B2 9147 268 STA (L0047),Y E8B4 C8 269 INY E8B5 A542 270 LDA L0042 E8B7 1145 271 ORA (L0045),Y E8B9 9145 272 STA (L0045),Y E8BB A544 273 LDA L0044 E8BD 1147 274 ORA (L0047),Y E8BF 9147 275 STA (L0047),Y E8C1 B5C0 276 LDA L00C0,X E8C3 D003 277 BNE LE8C8 E8C5 4C1BEE 278 JMP LEE1B E8C8 60 279 LE8C8: RTS E8C9 A900 280 LE8C9: LDA #$00 E8CB 2065EC 281 JSR LEC65 E8CE 95C0 282 STA L00C0,X E8D0 AA 283 TAX E8D1 68 284 PLA E8D2 203AEA 285 JSR LEA3A E8D5 60 286 RTS E8D6 A549 287 LE8D6: LDA L0049 ;Delete Shooter E8D8 4A 288 LSR A E8D9 AA 289 TAX E8DA A900 290 LDA #$00 E8DC 2A 291 ROL A E8DD A8 292 TAY E8DE B9D0EA 293 LDA LEAD0,Y E8E1 49FF 294 EOR #$FF E8E3 3DE003 295 AND L03E0,X E8E6 9DE003 296 STA L03E0,X E8E9 E8 297 INX E8EA B9D2EA 298 LDA LEAD2,Y E8ED 49FF 299 EOR #$FF E8EF 3DE003 300 AND L03E0,X E8F2 9DE003 301 STA L03E0,X E8F5 60 302 RTS E8F6 A90A 303 LE8F6: LDA #$0A Draw Shooter E8F8 8549 304 STA L0049 E8FA A549 305 LE8FA: LDA L0049 E8FC 4A 306 LSR A E8FD AA 307 TAX E8FE A900 308 LDA #$00 E900 2A 309 ROL A E901 A8 310 TAY E902 B9D0EA 311 LDA LEAD0,Y E905 3DE003 312 AND L03E0,X E908 D01B 313 BNE LE925 E90A B9D2EA 314 LDA LEAD2,Y E90D 3DE103 315 AND L03E1,X E910 D013 316 BNE LE925 E912 B9D0EA 317 LDA LEAD0,Y E915 1DE003 318 ORA L03E0,X E918 9DE003 319 STA L03E0,X E91B B9D2EA 320 LDA LEAD2,Y E91E 5DE103 321 EOR L03E1,X E921 9DE103 322 STA L03E1,X E924 60 323 RTS E925 A205 324 LE925: LDX #$05 E927 A000 325 LE927: LDY #$00 E929 B559 326 LDA L0059,X E92B F006 327 BEQ LE933 E92D CA 328 LE92D: DEX E92E 10F7 329 BPL LE927 E930 4C1BEE 330 JMP LEE1B E933 A549 331 LE933: LDA L0049 E935 4A 332 LSR A E936 9001 333 BCC LE939 E938 C8 334 INY E939 38 335 LE939: SEC E93A F55F 336 SBC L005F,X E93C D00F 337 BNE LE94D E93E B565 338 LDA L0065,X E940 39D0EA 339 AND LEAD0,Y E943 F0E8 340 BEQ LE92D E945 A9FF 341 LE945: LDA #$FF E947 9559 342 STA L0059,X E949 2089EB 343 JSR LEB89 E94C 60 344 RTS E94D C9FF 345 LE94D: CMP #$FF E94F D0DC 346 BNE LE92D E951 B565 347 LDA L0065,X E953 39D2EA 348 AND LEAD2,Y E956 D0ED 349 BNE LE945 E958 F0D3 350 BEQ LE92D E95A 20ACE9 351 LE95A: JSR LE9AC ;Draw Starting Line-up E95D A900 352 LDA #$00 E95F 8540 353 STA L0040 E961 A54A 354 LDA L004A E963 854B 355 STA L004B E965 A908 356 LE965: LDA #$08 E967 854C 357 STA L004C E969 A640 358 LE969: LDX L0040 E96B A54B 359 LDA L004B E96D 95C0 360 STA L00C0,X E96F A54C 361 LDA L004C E971 9580 362 STA L0080,X E973 2003E8 363 JSR LE803 E976 E640 364 INC L0040 E978 A54C 365 LDA L004C E97A 18 366 CLC E97B 6906 367 ADC #$06 E97D 854C 368 STA L004C E97F C937 369 CMP #$37 E981 90E6 370 BCC LE969 E983 A54B 371 LDA L004B E985 38 372 SEC E986 E904 373 SBC #$04 E988 854B 374 STA L004B E98A A540 375 LDA L0040 E98C C940 376 CMP #$40 E98E D0D5 377 BNE LE965 E990 20F6E8 378 JSR LE8F6 E993 A54A 379 LDA L004A E995 C925 380 CMP #$25 E997 9012 381 BCC LE9AB E999 A21B 382 LDX #$1B E99B A006 383 LE99B: LDY #$06 E99D B9D4EA 384 LE99D: LDA LEAD4,Y E9A0 9DC003 385 STA L03C0,X E9A3 CA 386 DEX E9A4 3005 387 BMI LE9AB E9A6 88 388 DEY E9A7 10F4 389 BPL LE99D E9A9 30F0 390 BMI LE99B E9AB 60 391 LE9AB: RTS E9AC ADF0BF 392 LE9AC: LDA LBFF0 ;Clear Screen E9AF A2FF 393 LDX #$FF E9B1 A000 394 LDY #$00 E9B3 6901 395 LE9B3: ADC #$01 E9B5 EA 396 NOP E9B6 D0FB 397 BNE LE9B3 E9B8 9D0002 398 STA L0200,X E9BB 990003 399 STA L0300,Y E9BE CA 400 DEX E9BF C8 401 INY E9C0 D0F1 402 BNE LE9B3 E9C2 60 403 RTS E9C3 A56E 404 LE9C3: LDA L006E ;Move Spaceship formation E9C5 F002 405 BEQ LE9C9 E9C7 C66E 406 DEC L006E E9C9 E640 407 LE9C9: INC L0040 E9CB A640 408 LE9CB: LDX L0040 E9CD E040 409 CPX #$40 E9CF F031 410 BEQ LEA02 E9D1 B5C0 411 LDA L00C0,X E9D3 F0F4 412 BEQ LE9C9 E9D5 2007E8 413 JSR LE807 E9D8 A640 414 LDX L0040 E9DA F680 415 INC L0080,X E9DC A54D 416 LDA L004D E9DE D004 417 BNE LE9E4 E9E0 D680 418 DEC L0080,X E9E2 D680 419 DEC L0080,X E9E4 A54E 420 LE9E4: LDA L004E E9E6 F002 421 BEQ LE9EA E9E8 D6C0 422 DEC L00C0,X E9EA B5C0 423 LE9EA: LDA L00C0,X E9EC C901 424 CMP #$01 E9EE D00B 425 BNE LE9FB E9F0 A449 426 LDY L0049 E9F2 C8 427 INY E9F3 98 428 TYA E9F4 38 429 SEC E9F5 F580 430 SBC L0080,X E9F7 C903 431 CMP #$03 E9F9 9004 432 BCC LE9FF E9FB 2003E8 433 LE9FB: JSR LE803 E9FE 60 434 RTS E9FF 4C1BEE 435 LE9FF: JMP LEE1B EA02 A900 436 LEA02: LDA #$00 EA04 854E 437 STA L004E EA06 8540 438 STA L0040 EA08 A2E0 439 LDX #$E0 EA0A A54D 440 LDA L004D EA0C D011 441 BNE LEA1F EA0E BD0003 442 LEA0E: LDA L0300,X EA11 1D0002 443 ORA L0200,X EA14 D01A 444 BNE LEA30 EA16 8A 445 TXA EA17 38 446 SEC EA18 E920 447 SBC #$20 EA1A AA 448 TAX EA1B B0F1 449 BCS LEA0E EA1D 90AC 450 BCC LE9CB EA1F BD1F03 451 LEA1F: LDA L031F,X EA22 1D1F02 452 ORA L021F,X EA25 D009 453 BNE LEA30 EA27 8A 454 TXA EA28 38 455 SEC EA29 E920 456 SBC #$20 EA2B AA 457 TAX EA2C B0F1 458 BCS LEA1F EA2E 909B 459 BCC LE9CB EA30 A54D 460 LEA30: LDA L004D EA32 4901 461 EOR #$01 EA34 854D 462 STA L004D EA36 E64E 463 INC L004E EA38 D091 464 BNE LE9CB EA3A A455 465 LEA3A: LDY L0055 ;Move Laser EA3C 8A 466 TXA EA3D 3035 467 BMI LEA74 EA3F B153 468 LDA (L0053),Y EA41 2556 469 AND L0056 EA43 D005 470 BNE LEA4A EA45 A900 471 LEA45: LDA #$00 EA47 8552 472 STA L0052 EA49 60 473 RTS EA4A A556 474 LEA4A: LDA L0056 EA4C 49FF 475 EOR #$FF EA4E 3153 476 AND (L0053),Y EA50 9153 477 STA (L0053),Y EA52 8A 478 TXA EA53 F0F0 479 BEQ LEA45 EA55 A900 480 LDA #$00 EA57 E652 481 INC L0052 EA59 4656 482 LSR L0056 EA5B 6A 483 ROR A EA5C 4656 484 LSR L0056 EA5E 6A 485 ROR A EA5F F013 486 BEQ LEA74 EA61 8556 487 STA L0056 EA63 A552 488 LDA L0052 EA65 C938 489 CMP #$38 EA67 B0DC 490 BCS LEA45 EA69 A553 491 LDA L0053 EA6B 38 492 SEC EA6C E920 493 SBC #$20 EA6E 8553 494 STA L0053 EA70 B002 495 BCS LEA74 EA72 C654 496 DEC L0054 EA74 A556 497 LEA74: LDA L0056 EA76 3153 498 AND (L0053),Y EA78 D007 499 BNE LEA81 EA7A A556 500 LDA L0056 EA7C 1153 501 ORA (L0053),Y EA7E 9153 502 STA (L0053),Y EA80 60 503 RTS EA81 A652 504 LEA81: LDX L0052 ;Flying Saucer hit EA83 E034 505 CPX #$34 EA85 9003 506 BCC LEA8A EA87 4C1DED 507 JMP LED1D EA8A A23F 508 LEA8A: LDX #$3F EA8C B5C0 509 LEA8C: LDA L00C0,X EA8E F012 510 BEQ LEAA2 EA90 A552 511 LDA L0052 EA92 38 512 SEC EA93 F5C0 513 SBC L00C0,X EA95 C902 514 CMP #$02 EA97 B009 515 BCS LEAA2 EA99 A551 516 LDA L0051 EA9B 38 517 SEC EA9C F580 518 SBC L0080,X EA9E C903 519 CMP #$03 EAA0 9007 520 BCC LEAA9 EAA2 CA 521 LEAA2: DEX EAA3 10E7 522 BPL LEA8C EAA5 A200 523 LDX #$00 EAA7 F0A1 524 BEQ LEA4A EAA9 A540 525 LEAA9: LDA L0040 EAAB 48 526 PHA EAAC 8640 527 STX L0040 EAAE 2007E8 528 JSR LE807 EAB1 A640 529 LDX L0040 EAB3 2065EC 530 JSR LEC65 EAB6 A900 531 LDA #$00 EAB8 95C0 532 STA L00C0,X EABA 68 533 PLA EABB 8540 534 STA L0040 EABD 4C45EA 535 JMP LEA45 EAC0 60 536 LEAC0: DEFB $60 ;Data for drawing Line-up EAC1 70 EAC2 B0 537 DEFB $70,$B0 EAC3 90 538 DEFB $90 EAC4 40 EAC5 50 EAC6 10 539 LEAC4: DEFB $40,$50,$10 EAC7 10 540 DEFB $10 EAC8 80 EAC9 A0 541 LEAC8: DEFB $80,$A0 EACA 20 EACB 20 542 DEFB $20,$20 EACC 90 EACD B0 EACE 70 543 LEACC: DEFB $90,$B0,$70 EACF 60 544 DEFB $60 EAD0 E0 EAD1 80 545 LEAD0: DEFB $E0,$80 ;Data for Draw/Delete Shooter EAD2 40 546 LEAD2: DEFB $40 EAD3 D0 547 DEFB $D0 EAD4 00 EAD5 00 548 LEAD4: DEFB $00,$00 ;Data for drawing Blocks EAD6 00 549 DEFB $00 EAD7 00 550 DEFB $00 EAD8 FF 551 DEFB $FF EAD9 FF 552 DEFB $FF EADA FF 553 DEFB $FF EADB A005 554 LEADB: LDY #$05 ;Drop Bomb EADD B95900 555 LEADD: LDA L0059,Y EAE0 3004 556 BMI LEAE6 EAE2 88 557 DEY EAE3 10F8 558 BPL LEADD EAE5 60 559 RTS EAE6 B5C0 560 LEAE6: LDA L00C0,X EAE8 38 561 SEC EAE9 E901 562 SBC #$01 EAEB 48 563 PHA EAEC 4A 564 LSR A EAED 4A 565 LSR A EAEE 995900 566 STA L0059,Y EAF1 B580 567 LDA L0080,X EAF3 18 568 CLC EAF4 6901 569 ADC #$01 EAF6 4A 570 LSR A EAF7 0980 571 ORA #$80 EAF9 995F00 572 STA L005F,Y EAFC 68 573 PLA EAFD 2903 574 AND #$03 EAFF 2A 575 ROL A EB00 AA 576 TAX EB01 BD08EB 577 LDA LEB08,X EB04 996500 578 STA L0065,Y EB07 60 579 RTS EB08 40 580 LEB08: DEFB $40 ;Data for Drop Bomb EB09 80 581 DEFB $80 EB0A 10 EB0B 20 582 DEFB $10,$20 EB0C 04 583 DEFB $04 EB0D 08 584 DEFB $08 EB0E 01 EB0F 02 585 DEFB $01,$02 EB10 A205 586 LEB10: LDX #$05 ;Move Bomb EB12 B559 587 LEB12: LDA L0059,X EB14 1004 588 BPL LEB1A EB16 CA 589 LEB16: DEX EB17 10F9 590 BPL LEB12 EB19 60 591 RTS EB1A B459 592 LEB1A: LDY L0059,X EB1C B91800 593 LDA L0018,Y EB1F 856B 594 STA L006B EB21 B92800 595 LDA L0028,Y EB24 856C 596 STA L006C EB26 B55F 597 LDA L005F,X EB28 08 598 PHP EB29 297F 599 AND #$7F EB2B 955F 600 STA L005F,X EB2D A8 601 TAY EB2E B16B 602 LDA (L006B),Y EB30 28 603 PLP EB31 3029 604 BMI LEB5C EB33 3565 605 AND L0065,X EB35 D006 606 BNE LEB3D EB37 A9FF 607 LEB37: LDA #$FF EB39 9559 608 STA L0059,X EB3B 30D9 609 BMI LEB16 EB3D B16B 610 LEB3D: LDA (L006B),Y EB3F 5565 611 EOR L0065,X EB41 916B 612 STA (L006B),Y EB43 A900 613 LDA #$00 EB45 1665 614 ASL L0065,X EB47 2A 615 ROL A EB48 1665 616 ASL L0065,X EB4A 2A 617 ROL A EB4B F00F 618 BEQ LEB5C EB4D 9565 619 STA L0065,X EB4F D659 620 DEC L0059,X EB51 A56B 621 LDA L006B EB53 18 622 CLC EB54 6920 623 ADC #$20 EB56 856B 624 STA L006B EB58 9002 625 BCC LEB5C EB5A E66C 626 INC L006C EB5C A56C 627 LEB5C: LDA L006C EB5E C904 628 CMP #$04 EB60 F0D5 629 BEQ LEB37 EB62 B16B 630 LDA (L006B),Y EB64 3565 631 AND L0065,X EB66 D008 632 BNE LEB70 EB68 B16B 633 LDA (L006B),Y EB6A 1565 634 ORA L0065,X EB6C 916B 635 STA (L006B),Y EB6E D0A6 636 BNE LEB16 EB70 B559 637 LEB70: LDA L0059,X EB72 D00C 638 BNE LEB80 EB74 B565 639 LDA L0065,X EB76 29F0 640 AND #$F0 EB78 F006 641 BEQ LEB80 EB7A 2089EB 642 JSR LEB89 EB7D 4C37EB 643 JMP LEB37 EB80 B565 644 LEB80: LDA L0065,X EB82 516B 645 EOR (L006B),Y EB84 916B 646 STA (L006B),Y EB86 4C16EB 647 JMP LEB16 EB89 8A 648 LEB89: TXA ;Shooter destroyed EB8A 48 649 PHA EB8B 98 650 TYA EB8C 48 651 PHA EB8D 20D6E8 652 JSR LE8D6 EB90 A549 653 LDA L0049 EB92 4A 654 LSR A EB93 AA 655 TAX EB94 A900 656 LDA #$00 EB96 2A 657 ROL A EB97 A8 658 TAY EB98 BDE003 659 LEB98: LDA L03E0,X EB9B 48 660 PHA EB9C B9F7EB 661 LDA LEBF7,Y EB9F 9DE003 662 STA L03E0,X EBA2 E8 663 INX EBA3 C8 664 INY EBA4 C8 665 INY EBA5 C006 666 CPY #$06 EBA7 90EF 667 BCC LEB98 EBA9 8A 668 TXA EBAA 48 669 PHA EBAB A905 670 LDA #$05 EBAD 856B 671 STA L006B EBAF A2FF 672 LEBAF: LDX #$FF EBB1 8A 673 LEBB1: TXA EBB2 A8 674 TAY EBB3 A56F 675 LDA L006F EBB5 29FD 676 AND #$FD EBB7 8DF2BF 677 STA LBFF2 EBBA 4910 678 EOR #$10 EBBC 856F 679 STA L006F EBBE 88 680 LEBBE: DEY EBBF D0FD 681 BNE LEBBE EBC1 CA 682 DEX EBC2 D0ED 683 BNE LEBB1 EBC4 C66B 684 DEC L006B EBC6 D0E7 685 BNE LEBAF EBC8 A901 686 LDA #$01 EBCA 20FFEB 687 JSR LEBFF EBCD A56F 688 LDA L006F EBCF 29EF 689 AND #$EF EBD1 856F 690 STA L006F EBD3 68 691 PLA EBD4 AA 692 TAX EBD5 68 693 PLA EBD6 9DDF03 694 STA L03DF,X EBD9 68 695 PLA EBDA 9DDE03 696 STA L03DE,X EBDD 68 697 PLA EBDE 9DDD03 698 STA L03DD,X EBE1 20F6E8 699 JSR LE8F6 EBE4 F8 700 SED EBE5 38 701 SEC EBE6 A53C 702 LDA L003C EBE8 E901 703 SBC #$01 EBEA 853C 704 STA L003C EBEC B003 705 BCS LEBF1 EBEE 4C1BEE 706 JMP LEE1B EBF1 D8 707 LEBF1: CLD EBF2 68 708 PLA EBF3 A8 709 TAY EBF4 68 710 PLA EBF5 AA 711 TAX EBF6 60 712 RTS EBF7 24 EBF8 08 713 LEBF7: DEFB $24,$08 ;Data for Shooter Explosion EBF9 60 714 DEFB $60 EBFA 90 EBFB 04 715 DEFB $90,$04 EBFC 18 716 DEFB $18 EBFD A90F 717 LEBFD: LDA #$0F ;Delay unless 'Play' pressed EBFF 856B 718 LEBFF: STA L006B EC01 A2FF 719 LEC01: LDX #$FF EC03 88 720 LEC03: DEY EC04 D0FD 721 BNE LEC03 EC06 ADF3BF 722 LDA LBFF3 EC09 0A 723 ASL A EC0A 857E 724 STA L007E EC0C 2902 725 AND #$02 EC0E D007 726 BNE LEC17 EC10 CA 727 DEX EC11 D0F0 728 BNE LEC03 EC13 C66B 729 DEC L006B EC15 D0EA 730 BNE LEC01 EC17 60 731 LEC17: RTS EC18 8DF3BF 732 LEC18: STA LBFF3 ;Write Text / Draw Scoreplan EC1B BD64ED 733 LEC1B: LDA LED64,X EC1E 8570 734 STA L0070 EC20 E8 735 INX EC21 BD64ED 736 LDA LED64,X EC24 8571 737 STA L0071 EC26 A0FF 738 LDY #$FF EC28 C8 739 LEC28: INY EC29 E8 740 INX EC2A BD64ED 741 LDA LED64,X EC2D F004 742 BEQ LEC33 EC2F 9170 743 STA (L0070),Y EC31 D0F5 744 BNE LEC28 EC33 ADF0BF 745 LEC33: LDA LBFF0 EC36 60 746 RTS EC37 A200 747 LEC37: LDX #$00 ;Print Score EC39 BC5DEC 748 LEC39: LDY LEC5D,X EC3C 8DF3BF 749 STA LBFF3 EC3F B538 750 LDA L0038,X EC41 48 751 PHA EC42 4A 752 LSR A EC43 4A 753 LSR A EC44 4A 754 LSR A EC45 4A 755 LSR A EC46 18 756 CLC EC47 6930 757 ADC #$30 EC49 992002 758 STA L0220,Y EC4C C8 759 INY EC4D 68 760 PLA EC4E 290F 761 AND #$0F EC50 6930 762 ADC #$30 EC52 992002 763 STA L0220,Y EC55 C8 764 INY EC56 E8 765 INX EC57 E008 766 CPX #$08 EC59 D0DE 767 BNE LEC39 EC5B F0D6 768 BEQ LEC33 EC5D 08 769 LEC5D: DEFB $08 ;Data for Scoreline positions EC5E 06 EC5F 04 770 DEFB $06,$04 EC60 0C 771 DEFB $0C EC61 10 EC62 18 772 DEFB $10,$18 EC63 16 EC64 14 773 DEFB $16,$14 EC65 48 774 LEC65: PHA ;Spaceship hit EC66 8A 775 TXA EC67 48 776 PHA EC68 4A 777 LSR A EC69 4A 778 LSR A EC6A 4A 779 LSR A EC6B 4A 780 LSR A EC6C AA 781 TAX EC6D F8 782 SED EC6E A552 783 LDA L0052 EC70 C934 784 CMP #$34 EC72 B008 785 BCS LEC7C EC74 18 786 CLC EC75 BDB4EC 787 LDA LECB4,X EC78 6538 788 ADC L0038 EC7A 8538 789 STA L0038 EC7C A539 790 LEC7C: LDA L0039 EC7E 48 791 PHA EC7F 6900 792 ADC #$00 EC81 8539 793 STA L0039 EC83 A53A 794 LDA L003A EC85 6900 795 ADC #$00 EC87 853A 796 STA L003A EC89 9003 797 BCC LEC8E EC8B 4C17EE 798 JMP LEE17 EC8E 68 799 LEC8E: PLA EC8F 4539 800 EOR L0039 EC91 29E0 801 AND #$E0 EC93 F008 802 BEQ LEC9D EC95 A53C 803 LDA L003C EC97 C904 804 CMP #$04 EC99 F002 805 BEQ LEC9D EC9B E63C 806 INC L003C EC9D A552 807 LEC9D: LDA L0052 EC9F C934 808 CMP #$34 ECA1 B00C 809 BCS LECAF ECA3 A53B 810 LDA L003B ECA5 38 811 SEC ECA6 E901 812 SBC #$01 ECA8 853B 813 STA L003B ECAA D003 814 BNE LECAF ECAC 4C89EE 815 JMP LEE89 ECAF D8 816 LECAF: CLD ECB0 68 817 PLA ECB1 AA 818 TAX ECB2 68 819 PLA ECB3 60 820 RTS ECB4 50 ECB5 40 821 LECB4: DEFB $50,$40 ;Data scores for Spaceship hit ECB6 30 ECB7 20 822 DEFB $30,$20 ECB8 A578 823 LECB8: LDA L0078 ;Move Flying Saucer ECBA 4A 824 LSR A ECBB AA 825 TAX ECBC A900 826 LDA #$00 ECBE 2A 827 ROL A ECBF A8 828 TAY ECC0 E00E 829 CPX #$0E ECC2 9068 830 BCC LED2C ECC4 E033 831 CPX #$33 ECC6 B064 832 BCS LED2C ECC8 E012 833 LECC8: CPX #$12 ECCA 903F 834 BCC LED0B ECCC E02E 835 CPX #$2E ECCE B03B 836 BCS LED0B ECD0 B937ED 837 LDA LED37,Y ECD3 49FF 838 EOR #$FF ECD5 3D3002 839 AND L0230,X ECD8 9D3002 840 STA L0230,X ECDB 846B 841 STY L006B ECDD A57D 842 LDA L007D ECDF F00C 843 BEQ LECED ECE1 C8 844 INY ECE2 98 845 TYA ECE3 4A 846 LSR A ECE4 B00E 847 BCS LECF4 ECE6 88 848 DEY ECE7 88 849 DEY ECE8 88 850 LECE8: DEY ECE9 88 851 DEY ECEA 4CF4EC 852 JMP LECF4 ECED C8 853 LECED: INY ECEE 98 854 TYA ECEF 4A 855 LSR A ECF0 90F6 856 BCC LECE8 ECF2 C8 857 INY ECF3 C8 858 INY ECF4 C00A 859 LECF4: CPY #$0A ECF6 B011 860 BCS LED09 ECF8 B937ED 861 LDA LED37,Y ECFB 3D3002 862 AND L0230,X ECFE D01D 863 BNE LED1D ED00 B937ED 864 LDA LED37,Y ED03 1D3002 865 ORA L0230,X ED06 9D3002 866 STA L0230,X ED09 A46B 867 LED09: LDY L006B ED0B C8 868 LED0B: INY ED0C C8 869 INY ED0D E8 870 INX ED0E C00A 871 CPY #$0A ED10 90B6 872 BCC LECC8 ED12 E678 873 INC L0078 ED14 A57D 874 LDA L007D ED16 D004 875 BNE LED1C ED18 C678 876 DEC L0078 ED1A C678 877 DEC L0078 ED1C 60 878 LED1C: RTS ED1D 2065EC 879 LED1D: JSR $EC65 ED20 A900 880 LDA #$00 ED22 8552 881 STA $52 ED24 A21F 882 LDX #$1F ED26 9D4002 883 STA $0240,X ED29 CA 884 DEX ED2A 10FA 885 BPL $ED26 ED2C A900 886 LED2C: LDA #$00 ED2E 8578 887 STA $78 ED30 A56F 888 LDA $6F ED32 29F7 889 AND #$F7 ED34 856F 890 STA $6F ED36 60 891 RTS ED37 00 892 LED37: DEFB $00 ;Data for Draw Flying Saucer ED38 00 893 DEFB $00 ED39 B8 894 DEFB $B8 ED3A 20 ED3B 3F ED3C 7E 895 DEFB $20,$3F,$7E ED3D 74 896 DEFB $74 ED3E BD ED3F 00 ED40 10 897 DEFB $BD,$00,$10 ED41 C67A 898 LED41: DEC L007A ;Start Flying Saucer ED43 D01E 899 BNE LED63 ED45 C67B 900 DEC L007B ED47 D01A 901 BNE LED63 ED49 A905 902 LDA #$05 ED4B 857B 903 STA L007B ED4D A91C 904 LDA #$1C ED4F A64D 905 LDX L004D ED51 867D 906 STX L007D ED53 D002 907 BNE LED57 ED55 A963 908 LDA #$63 ED57 8578 909 LED57: STA L0078 ED59 A91E 910 LDA #$1E ED5B 8579 911 STA L0079 ED5D A56F 912 LDA L006F ED5F 0908 913 ORA #$08 ED61 856F 914 STA L006F ED63 60 915 LED63: RTS ED64 48 916 LED64: DEFB $48 ;"INVASION COMPLETE" ED65 02 917 DEFB $02 ED66 49 ED67 4E 918 DEFB $49,$4E ED68 56 ED69 41 919 DEFB $56,$41 ED6A 53 920 DEFB $53 ED6B 49 ED6C 4F 921 DEFB $49,$4F ED6D 4E ED6E 20 ED6F 43 922 DEFB $4E,$20,$43 ED70 4F 923 DEFB $4F ED71 4D ED72 50 ED73 4C 924 DEFB $4D,$50,$4C ED74 45 ED75 54 925 DEFB $45,$54 ED76 45 ED77 00 926 DEFB $45,$00 ED78 89 927 DEFB $89 ;"PRESS PLAY KEY" ED79 03 928 DEFB $03 ED7A 50 ED7B 52 929 DEFB $50,$52 ED7C 45 ED7D 53 930 DEFB $45,$53 ED7E 53 931 DEFB $53 ED7F 20 ED80 50 ED81 4C 932 DEFB $20,$50,$4C ED82 41 ED83 59 933 DEFB $41,$59 ED84 20 ED85 4B ED86 45 934 DEFB $20,$4B,$45 ED87 59 ED88 00 ED89 49 935 DEFB $59,$00,$49 ;"SPACE INVASION" ED8A 02 936 DEFB $02 ED8B 53 937 DEFB $53 ED8C 50 ED8D 41 938 DEFB $50,$41 ED8E 43 939 DEFB $43 ED8F 45 ED90 20 940 DEFB $45,$20 ED91 49 ED92 4E 941 DEFB $49,$4E ED93 56 ED94 41 942 DEFB $56,$41 ED95 53 943 DEFB $53 ED96 49 ED97 4F 944 DEFB $49,$4F ED98 4E ED99 00 ED9A 91 945 DEFB $4E,$00,$91 ED9B 02 946 DEFB $02 ;"100" ED9C 31 ED9D 30 947 DEFB $31,$30 ED9E 30 ED9F 00 948 DEFB $30,$00 EDA0 D1 EDA1 02 949 DEFB $D1,$02 ;"50" EDA2 35 EDA3 30 950 DEFB $35,$30 EDA4 00 951 DEFB $00 EDA5 11 EDA6 03 952 DEFB $11,$03 ;"40" EDA7 34 953 DEFB $34 EDA8 30 EDA9 00 954 DEFB $30,$00 EDAA 51 EDAB 03 955 DEFB $51,$03 ;"30" EDAC 33 956 DEFB $33 EDAD 30 EDAE 00 957 DEFB $30,$00 EDAF 91 EDB0 03 958 DEFB $91,$03 ;"20" EDB1 32 959 DEFB $32 EDB2 30 EDB3 00 960 DEFB $30,$00 EDB4 C3 961 DEFB $C3 ;"CT,ETI,(C) TANGERINE 1980" EDB5 03 962 DEFB $03 EDB6 43 963 DEFB $43 EDB7 54 964 DEFB $54 EDB8 2C EDB9 45 EDBA 54 965 DEFB $2C,$45,$54 EDBB 49 EDBC 2C 966 DEFB $49,$2C EDBD 28 967 DEFB $28 EDBE 43 968 DEFB $43 EDBF 29 EDC0 54 969 DEFB $29,$54 EDC1 41 EDC2 4E 970 DEFB $41,$4E EDC3 47 971 DEFB $47 EDC4 45 EDC5 52 972 DEFB $45,$52 EDC6 49 EDC7 4E 973 DEFB $49,$4E EDC8 45 EDC9 20 974 DEFB $45,$20 EDCA 31 EDCB 39 975 DEFB $31,$39 EDCC 38 976 DEFB $38 EDCD 30 EDCE 00 977 DEFB $30,$00 EDCF 00 978 DEFB $00 EDD0 8B 979 DEFB $8B ;028B B8 3F 74 EDD1 02 980 DEFB $02 EDD2 B8 981 DEFB $B8 EDD3 3F 982 DEFB $3F EDD4 74 983 DEFB $74 EDD5 00 984 DEFB $00 EDD6 CC EDD7 02 EDD8 18 985 DEFB $CC,$02,$18 ;02CC 18 10 EDD9 10 EDDA 00 986 DEFB $10,$00 EDDB 0C 987 DEFB $0C ;03CC 1C 14 EDDC 03 988 DEFB $03 EDDD 1C 989 DEFB $1C EDDE 14 990 DEFB $14 EDDF 00 991 DEFB $00 EDE0 4C EDE1 03 EDE2 2C 992 DEFB $4C,$03,$2C ;034C 2C 04 EDE3 04 993 DEFB $04 EDE4 00 994 DEFB $00 EDE5 8C EDE6 03 EDE7 24 995 DEFB $8C,$03,$24 ;038C 24 04 EDE8 04 996 DEFB $04 EDE9 00 997 DEFB $00 EDEA 00 998 DEFB $00 EDEB 4A 999 DEFB $4A ;024A EDEC 02 1000 DEFB $02 EDED 4F 1001 DEFB $4F EDEE 4B 1002 DEFB $4B EDEF 2C EDF0 4F EDF1 4B 1003 DEFB $2C,$4F,$4B ;",OKYOU WIN" EDF2 59 EDF3 4F EDF4 55 1004 DEFB $59,$4F,$55 EDF5 20 EDF6 57 EDF7 49 1005 DEFB $20,$57,$49 EDF8 4E EDF9 00 1006 DEFB $4E,$00 EDFA 20ACE9 1007 LEDFA: JSR LE9AC ;Draw Scoreplan EDFD A225 1008 LDX #$25 EDFF 2018EC 1009 LEDFF: JSR LEC18 EE02 E8 1010 INX EE03 BD64ED 1011 LDA LED64,X EE06 D0F7 1012 BNE LEDFF EE08 A26C 1013 LDX #$6C EE0A 201BEC 1014 LEE0A: JSR LEC1B EE0D E8 1015 INX EE0E BD64ED 1016 LDA LED64,X EE11 D0F7 1017 BNE LEE0A EE13 20FDEB 1018 JSR LEBFD EE16 60 1019 RTS EE17 A287 1020 LEE17: LDX #$87 EE19 D002 1021 BNE LEE1D EE1B A200 1022 LEE1B: LDX #$00 ;End of Game EE1D D8 1023 LEE1D: CLD EE1E 2018EC 1024 JSR LEC18 EE21 20FDEB 1025 JSR LEBFD EE24 A202 1026 LDX #$02 EE26 B53D 1027 LEE26: LDA L003D,X EE28 D538 1028 CMP L0038,X EE2A 9005 1029 BCC LEE31 EE2C D02B 1030 BNE LEE59 EE2E CA 1031 DEX EE2F 10F5 1032 BPL LEE26 EE31 A202 1033 LEE31: LDX #$02 EE33 B538 1034 LEE33: LDA L0038,X EE35 953D 1035 STA L003D,X EE37 CA 1036 DEX EE38 10F9 1037 BPL LEE33 EE3A 301D 1038 BMI LEE59 EE3C D8 1039 LEE3C: CLD ;Main program loop EE3D A900 1040 LDA #$00 EE3F A2CF 1041 LDX #$CF EE41 9530 1042 LEE41: STA L0030,X EE43 CA 1043 DEX EE44 D0FB 1044 BNE LEE41 EE46 A20F 1045 LDX #$0F EE48 A900 1046 LDA #$00 EE4A A002 1047 LDY #$02 EE4C 9518 1048 LEE4C: STA L0018,X EE4E 9428 1049 STY L0028,X EE50 18 1050 CLC EE51 6920 1051 ADC #$20 EE53 9001 1052 BCC LEE56 EE55 C8 1053 INY EE56 CA 1054 LEE56: DEX EE57 10F3 1055 BPL LEE4C EE59 A2FF 1056 LEE59: LDX #$FF EE5B 9A 1057 TXS EE5C 20FAED 1058 JSR LEDFA ; - Draw Spaceships EE5F 78 1059 SEI EE60 A930 1060 LDA #$30 EE62 854A 1061 STA L004A EE64 205AE9 1062 JSR LE95A ; - Draw Starting Line-up EE67 A214 1063 LDX #$14 EE69 2018EC 1064 JSR LEC18 ; - Write Text EE6C A900 1065 LDA #$00 EE6E 8539 1066 STA L0039 EE70 853A 1067 STA L003A EE72 8538 1068 STA L0038 EE74 A903 1069 LDA #$03 EE76 853C 1070 STA L003C EE78 A901 1071 LDA #$01 EE7A 8DF2BF 1072 STA LBFF2 EE7D 2037EC 1073 JSR LEC37 ; - Print Scoreline EE80 20FDEB 1074 JSR LEBFD ; - Delay unless Play pressed EE83 ADF3BF 1075 LDA LBFF3 EE86 4A 1076 LSR A EE87 90D0 1077 BCC LEE59 ; - Repeat opening sequence EE89 A902 1078 LEE89: LDA #$02 EE8B 20FFEB 1079 JSR LEBFF ; - Draw Spaceships EE8E A2FF 1080 LDX #$FF EE90 D8 1081 CLD EE91 9A 1082 TXS EE92 A964 1083 LDA #$64 EE94 853B 1084 STA L003B EE96 A905 1085 LDA #$05 EE98 857B 1086 STA L007B EE9A 856F 1087 STA L006F EE9C A001 1088 LDY #$01 EE9E 846D 1089 STY L006D EEA0 844F 1090 STY L004F EEA2 8450 1091 STY L0050 EEA4 88 1092 DEY EEA5 844D 1093 STY L004D EEA7 844E 1094 STY L004E EEA9 8457 1095 STY L0057 EEAB 8452 1096 STY L0052 EEAD 8478 1097 STY L0078 EEAF 8458 1098 STY L0058 EEB1 88 1099 DEY EEB2 A205 1100 LDX #$05 EEB4 9459 1101 LEEB4: STY L0059,X EEB6 CA 1102 DEX EEB7 10FB 1103 BPL LEEB4 EEB9 205AE9 1104 JSR LE95A ; - Draw Starting Line-up EEBC A9FF 1105 LDA #$FF EEBE 8540 1106 STA L0040 EEC0 A54A 1107 LDA L004A EEC2 C923 1108 CMP #$23 EEC4 9004 1109 BCC LEECA EEC6 C64A 1110 DEC L004A EEC8 C64A 1111 DEC L004A EECA A9FF 1112 LEECA: LDA #$FF EECC 457E 1113 EOR L007E EECE A8 1114 TAY EECF 88 1115 LEECF: DEY EED0 D0FD 1116 BNE LEECF EED2 C650 1117 DEC L0050 EED4 1035 1118 BPL LEF0B EED6 20C3E9 1119 JSR LE9C3 ; - Move Spaceships EED9 A908 1120 LDA #$08 EEDB 8550 1121 STA L0050 EEDD 2041ED 1122 JSR LED41 ; - Start Flying Saucer EEE0 A56E 1123 LDA L006E EEE2 D027 1124 BNE LEF0B EEE4 A54E 1125 LDA L004E EEE6 D023 1126 BNE LEF0B EEE8 A540 1127 LDA L0040 EEEA 2907 1128 AND #$07 EEEC 18 1129 CLC EEED 6938 1130 ADC #$38 EEEF AA 1131 LEEEF: TAX EEF0 B5C0 1132 LDA L00C0,X EEF2 D006 1133 BNE LEEFA EEF4 8A 1134 TXA EEF5 38 1135 SEC EEF6 E908 1136 SBC #$08 EEF8 B0F5 1137 BCS LEEEF EEFA 20DBEA 1138 LEEFA: JSR LEADB ; - Drop Bomb EEFD A67A 1139 LDX L007A EEFF BD3CEE 1140 LDA LEE3C,X EF02 293F 1141 AND #$3F EF04 653B 1142 ADC L003B EF06 4A 1143 LSR A EF07 6902 1144 ADC #$02 EF09 856E 1145 STA L006E EF0B C64F 1146 LEF0B: DEC L004F EF0D D031 1147 BNE LEF40 EF0F E64F 1148 INC L004F EF11 ADF3BF 1149 LDA LBFF3 ; - "Left" pressed? EF14 2904 1150 AND #$04 EF16 F014 1151 BEQ LEF2C EF18 A649 1152 LDX L0049 EF1A E004 1153 CPX #$04 EF1C F022 1154 BEQ LEF40 EF1E 20D6E8 1155 JSR LE8D6 ; - Delete Shooter EF21 C649 1156 DEC L0049 EF23 20FAE8 1157 LEF23: JSR LE8FA ; - Draw Shooter EF26 A910 1158 LDA #$10 EF28 854F 1159 STA L004F EF2A D014 1160 BNE LEF40 EF2C ADF3BF 1161 LEF2C: LDA LBFF3 ; - "Right" pressed? EF2F 2902 1162 AND #$02 EF31 F00D 1163 BEQ LEF40 EF33 A649 1164 LDX L0049 EF35 E038 1165 CPX #$38 EF37 F007 1166 BEQ LEF40 EF39 20D6E8 1167 JSR LE8D6 ; - Delete Shooter EF3C E649 1168 INC L0049 EF3E D0E3 1169 BNE LEF23 EF40 A201 1170 LEF40: LDX #$01 EF42 A552 1171 LDA L0052 EF44 D03F 1172 BNE LEF85 EF46 ADF3BF 1173 LDA LBFF3 ; - "Fire" pressed? EF49 2908 1174 AND #$08 EF4B D008 1175 BNE LEF55 EF4D C658 1176 DEC L0058 EF4F 104B 1177 BPL LEF9C EF51 E658 1178 INC L0058 EF53 F047 1179 BEQ LEF9C EF55 A558 1180 LEF55: LDA L0058 EF57 D043 1181 BNE LEF9C EF59 2041ED 1182 JSR LED41 ; - Start Flying Saucer EF5C A903 1183 LDA #$03 EF5E 8554 1184 STA L0054 EF60 A9E0 1185 LDA #$E0 EF62 8553 1186 STA L0053 EF64 A649 1187 LDX L0049 EF66 E8 1188 INX EF67 8651 1189 STX L0051 EF69 8A 1190 TXA EF6A 4A 1191 LSR A EF6B 8555 1192 STA L0055 EF6D A56F 1193 LDA L006F EF6F 29FB 1194 AND #$FB EF71 856F 1195 STA L006F EF73 A904 1196 LDA #$04 EF75 9001 1197 BCC LEF78 EF77 0A 1198 ASL A EF78 8556 1199 LEF78: STA L0056 EF7A A902 1200 LDA #$02 EF7C 8552 1201 STA L0052 EF7E A200 1202 LDX #$00 EF80 8657 1203 STX L0057 EF82 CA 1204 DEX EF83 300A 1205 BMI LEF8F EF85 A56F 1206 LEF85: LDA L006F EF87 0904 1207 ORA #$04 EF89 856F 1208 STA L006F EF8B A557 1209 LDA L0057 EF8D D00B 1210 BNE LEF9A EF8F 203AEA 1211 LEF8F: JSR LEA3A ; - Move Laser EF92 A906 1212 LDA #$06 EF94 8557 1213 STA L0057 EF96 A902 1214 LDA #$02 EF98 8558 1215 STA L0058 EF9A C657 1216 LEF9A: DEC L0057 EF9C A56F 1217 LEF9C: LDA L006F EF9E A650 1218 LDX L0050 EFA0 D011 1219 BNE LEFB3 EFA2 C6 EFA3 7C 1220 DEFB $C6,$7C EFA4 D0 EFA5 0D 1221 DEFB $D0,$0D EFA6 49 EFA7 02 1222 DEFB $49,$02 EFA8 A2 EFA9 04 1223 DEFB $A2,$04 EFAA 2C EFAB A7 EFAC EF 1224 DEFB $2C,$A7,$EF EFAD D0 EFAE 02 1225 DEFB $D0,$02 EFAF A6 EFB0 3B 1226 DEFB $A6,$3B EFB1 86 EFB2 7C 1227 DEFB $86,$7C EFB3 8DF2BF 1228 LEFB3: STA LBFF2 EFB6 856F 1229 STA L006F EFB8 ADF3BF 1230 LDA LBFF3 ; - "Hold" pressed? EFBB 2910 1231 AND #$10 EFBD F018 1232 BEQ LEFD7 EFBF A0FF 1233 LEFBF: LDY #$FF EFC1 A905 1234 LDA #$05 EFC3 8DF2BF 1235 STA LBFF2 EFC6 ADF3BF 1236 LEFC6: LDA LBFF3 ; - "Hold" still pressed? EFC9 2910 1237 AND #$10 EFCB D0F2 1238 BNE LEFBF EFCD 88 1239 DEY EFCE D0F6 1240 BNE LEFC6 EFD0 ADF3BF 1241 LEFD0: LDA LBFF3 ; - Any other game key pressed? EFD3 290F 1242 AND #$0F EFD5 F0F9 1243 BEQ LEFD0 EFD7 C66D 1244 LEFD7: DEC L006D EFD9 D00B 1245 BNE LEFE6 EFDB 2010EB 1246 JSR LEB10 ; - Move Bomb EFDE A53B 1247 LDA L003B EFE0 4A 1248 LSR A EFE1 4A 1249 LSR A EFE2 690A 1250 ADC #$0A EFE4 856D 1251 STA L006D EFE6 2037EC 1252 LEFE6: JSR LEC37 ; - Print Score EFE9 A578 1253 LDA L0078 EFEB F00B 1254 BEQ LEFF8 EFED C679 1255 DEC L0079 EFEF D007 1256 BNE LEFF8 EFF1 A91E 1257 LDA #$1E EFF3 8579 1258 STA L0079 EFF5 20B8EC 1259 JSR LECB8 ; - Move Flying Saucer EFF8 4CCAEE 1260 JMP $EECA ;jump to Program Loop start No errors. End of object = $EFFA L0005 = $0005 L0018 = $0018 L0028 = $0028 L0030 = $0030 L0038 = $0038 L0039 = $0039 L003A = $003A L003B = $003B L003C = $003C L003D = $003D L0040 = $0040 L0041 = $0041 L0042 = $0042 L0043 = $0043 L0044 = $0044 L0045 = $0045 L0046 = $0046 L0047 = $0047 L0048 = $0048 L0049 = $0049 L004A = $004A L004B = $004B L004C = $004C L004D = $004D L004E = $004E L004F = $004F L0050 = $0050 L0051 = $0051 L0052 = $0052 L0053 = $0053 L0054 = $0054 L0055 = $0055 L0056 = $0056 L0057 = $0057 L0058 = $0058 L0059 = $0059 L005F = $005F L0065 = $0065 L006B = $006B L006C = $006C L006D = $006D L006E = $006E L006F = $006F L0070 = $0070 L0071 = $0071 L0078 = $0078 L0079 = $0079 L007A = $007A L007B = $007B L007D = $007D L007E = $007E L0080 = $0080 L00C0 = $00C0 L0200 = $0200 L021F = $021F L0220 = $0220 L0230 = $0230 L0300 = $0300 L031F = $031F L03C0 = $03C0 L03DD = $03DD L03DE = $03DE L03DF = $03DF L03E0 = $03E0 L03E1 = $03E1 LBFF0 = $BFF0 LBFF2 = $BFF2 LBFF3 = $BFF3 LE803 = $E803 LE807 = $E807 LE809 = $E809 LE822 = $E822 LE82A = $E82A LE83B = $E83B LE84E = $E84E LE891 = $E891 LE8A6 = $E8A6 LE8C8 = $E8C8 LE8C9 = $E8C9 LE8D6 = $E8D6 LE8F6 = $E8F6 LE8FA = $E8FA LE925 = $E925 LE927 = $E927 LE92D = $E92D LE933 = $E933 LE939 = $E939 LE945 = $E945 LE94D = $E94D LE95A = $E95A LE965 = $E965 LE969 = $E969 LE99B = $E99B LE99D = $E99D LE9AB = $E9AB LE9AC = $E9AC LE9B3 = $E9B3 LE9C3 = $E9C3 LE9C9 = $E9C9 LE9CB = $E9CB LE9E4 = $E9E4 LE9EA = $E9EA LE9FB = $E9FB LE9FF = $E9FF LEA02 = $EA02 LEA0E = $EA0E LEA1F = $EA1F LEA30 = $EA30 LEA3A = $EA3A LEA45 = $EA45 LEA4A = $EA4A LEA74 = $EA74 LEA81 = $EA81 LEA8A = $EA8A LEA8C = $EA8C LEAA2 = $EAA2 LEAA9 = $EAA9 LEAC0 = $EAC0 LEAC4 = $EAC4 LEAC8 = $EAC8 LEACC = $EACC LEAD0 = $EAD0 LEAD2 = $EAD2 LEAD4 = $EAD4 LEADB = $EADB LEADD = $EADD LEAE6 = $EAE6 LEB08 = $EB08 LEB10 = $EB10 LEB12 = $EB12 LEB16 = $EB16 LEB1A = $EB1A LEB37 = $EB37 LEB3D = $EB3D LEB5C = $EB5C LEB70 = $EB70 LEB80 = $EB80 LEB89 = $EB89 LEB98 = $EB98 LEBAF = $EBAF LEBB1 = $EBB1 LEBBE = $EBBE LEBF1 = $EBF1 LEBF7 = $EBF7 LEBFD = $EBFD LEBFF = $EBFF LEC01 = $EC01 LEC03 = $EC03 LEC17 = $EC17 LEC18 = $EC18 LEC1B = $EC1B LEC28 = $EC28 LEC33 = $EC33 LEC37 = $EC37 LEC39 = $EC39 LEC5D = $EC5D LEC65 = $EC65 LEC7C = $EC7C LEC8E = $EC8E LEC9D = $EC9D LECAF = $ECAF LECB4 = $ECB4 LECB8 = $ECB8 LECC8 = $ECC8 LECE8 = $ECE8 LECED = $ECED LECF4 = $ECF4 LED09 = $ED09 LED0B = $ED0B LED1C = $ED1C LED1D = $ED1D LED2C = $ED2C LED37 = $ED37 LED41 = $ED41 LED57 = $ED57 LED63 = $ED63 LED64 = $ED64 LEDFA = $EDFA LEDFF = $EDFF LEE0A = $EE0A LEE17 = $EE17 LEE1B = $EE1B LEE1D = $EE1D LEE26 = $EE26 LEE31 = $EE31 LEE33 = $EE33 LEE3C = $EE3C LEE41 = $EE41 LEE4C = $EE4C LEE56 = $EE56 LEE59 = $EE59 LEE89 = $EE89 LEEB4 = $EEB4 LEECA = $EECA LEECF = $EECF LEEEF = $EEEF LEEFA = $EEFA LEF0B = $EF0B LEF23 = $EF23 LEF2C = $EF2C LEF40 = $EF40 LEF55 = $EF55 LEF78 = $EF78 LEF85 = $EF85 LEF8F = $EF8F LEF9A = $EF9A LEF9C = $EF9C LEFB3 = $EFB3 LEFBF = $EFBF LEFC6 = $EFC6 LEFD0 = $EFD0 LEFD7 = $EFD7 LEFE6 = $EFE6 LEFF8 = $EFF8