SPRITE-BASIC.ASM
FILE INFORMATION
FILENAME(S): SPRITE-BASIC.ASM
FILE TYPE(S): PRG
FILE SIZE: 27.1K
FIRST SEEN: 2025-10-20 00:37:12
APPEARS ON: 3 disk(s)
FILE HASH
29471927c729d872fd452ef09caaabce240dfc81d62a36b35778305bab2ca0bd
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 A | SPRITE-BASIC.ASM | PRG | Curtcool, Klaus & Jan, Treasure Chest - Holger | 12 | 1 | DOWNLOAD FILE |
| M O C IN 1986 | SPRITE-BASIC.ASM | PRG | Shine | 31 | 0 | DOWNLOAD FILE |
| JARVIS 18 A | SPRITE-BASIC.ASM | PRG | Shine | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 E8 03 97 35 36 2C 38 AC 31 36 AA 36 |.......56,8.16.6|
00000010: 3A 97 35 35 2C 30 00 21 08 F2 03 9E 33 34 33 30 |:.55,0.!....3430|
00000020: 34 00 2D 08 FC 03 2E 4F 50 54 20 4F 4F 00 39 08 |4.-....OPT OO.9.|
00000030: 06 04 AC B2 24 39 39 30 30 00 5B 08 10 04 3B AC |....$9900.[...;.|
00000040: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000050: AC AC AC AC AC AC AC AC AC AC AC 00 7B 08 1A 04 |............{...|
00000060: 3B AC 20 53 50 52 49 54 45 AB 42 41 53 49 43 20 |;. SPRITE.BASIC |
00000070: 45 52 57 45 49 54 45 8A 47 20 AC 00 9B 08 24 04 |ERWEITE.G ....$.|
00000080: 3B AC 20 28 43 29 42 59 20 AF 52 45 41 53 20 53 |;. (C)BY .REAS S|
00000090: 43 48 55 4C 54 45 49 53 53 20 AC 00 BD 08 2E 04 |CHULTEISS ......|
000000A0: 3B AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |;...............|
000000B0: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 DD 08 |................|
000000C0: 38 04 2E 4C 53 54 20 38 2C 32 2C 22 43 4F 4D 4D |8..LST 8,2,"COMM|
000000D0: 4F 44 4F 52 45 20 36 34 2C 53 2C 52 22 00 E3 08 |ODORE 64,S,R"...|
000000E0: 42 04 3B 00 02 09 4C 04 3B AC 20 49 4E 49 54 49 |B.;...L.;. INITI|
000000F0: 41 4C 49 53 49 45 52 45 4E 20 9E 33 39 31 38 30 |ALISIEREN .39180|
00000100: 20 AC 00 08 09 56 04 3B 00 40 09 60 04 56 45 4B | ....V.;.@.`.VEK|
00000110: A4 52 45 4E 20 2E 57 B0 44 20 24 45 33 38 42 2C |.REN .W.D $E38B,|
00000120: 57 41 52 4D 4E 45 55 2C 43 4F 44 45 2C 4B 4C 41 |WARMNEU,CODE,KLA|
00000130: 52 54 45 58 54 2C B5 45 52 50 52 2C A2 46 55 4E |RTEXT,.ERPR,.FUN|
00000140: 00 46 09 6A 04 3B 00 52 09 74 04 4C 44 58 20 23 |.F.j.;.R.t.LDX #|
00000150: 31 31 00 69 09 7E 04 49 4E 49 54 20 4C 44 41 20 |11.i.~.INIT LDA |
00000160: 56 45 4B A4 52 45 4E 2C 58 00 79 09 88 04 53 54 |VEK.REN,X.y...ST|
00000170: 41 20 24 30 33 30 30 2C 58 00 81 09 92 04 44 45 |A $0300,X.....DE|
00000180: 58 00 8E 09 9C 04 42 50 4C 20 49 4E 49 54 00 94 |X.....BPL INIT..|
00000190: 09 A6 04 3B 00 A5 09 B0 04 4A 53 52 20 4C 4F 45 |...;.....JSR LOE|
000001A0: 53 43 48 45 4E 00 B1 09 BA 04 4A 53 52 20 4F 4C |SCHEN.....JSR OL|
000001B0: 44 00 BF 09 C4 04 4A 53 52 20 24 45 35 34 34 00 |D.....JSR $E544.|
000001C0: C5 09 CE 04 3B 00 D4 09 D8 04 4A 53 52 20 56 49 |....;.....JSR VI|
000001D0: 43 53 45 54 00 DA 09 E2 04 3B 00 E5 09 EC 04 4C |CSET.....;.....L|
000001E0: 44 59 20 23 30 00 FD 09 F6 04 53 43 48 52 45 49 |DY #0.....SCHREI|
000001F0: 42 45 20 4C 44 41 20 54 45 58 54 2C 59 00 0B 0A |BE LDA TEXT,Y...|
00000200: 00 05 4A 53 52 20 24 46 46 44 32 00 13 0A 0A 05 |..JSR $FFD2.....|
00000210: 49 4E 59 00 1F 0A 14 05 43 50 59 20 23 34 31 00 |INY.....CPY #41.|
00000220: 30 0A 1E 05 42 4E 45 20 53 43 48 52 45 49 42 45 |0...BNE SCHREIBE|
00000230: 00 36 0A 28 05 3B 00 43 0A 32 05 4C 44 41 20 23 |.6.(.;.C.2.LDA #|
00000240: 24 39 39 00 4E 0A 3C 05 53 54 41 20 35 32 00 59 |$99.N.<.STA 52.Y|
00000250: 0A 46 05 53 54 41 20 35 36 00 66 0A 50 05 4C 44 |.F.STA 56.f.P.LD|
00000260: 41 20 23 24 30 30 00 71 0A 5A 05 53 54 41 20 35 |A #$00.q.Z.STA 5|
00000270: 31 00 7C 0A 64 05 53 54 41 20 35 35 00 82 0A 6E |1.|.d.STA 55...n|
00000280: 05 3B 00 98 0A 78 05 53 49 44 53 45 54 20 4C 44 |.;...x.SIDSET LD|
00000290: 41 20 23 31 35 AC 31 36 00 BC 0A 82 05 53 54 41 |A #15.16.....STA|
000002A0: 20 53 49 44 AA 36 3A 53 54 41 20 53 49 44 AA 31 | SID.6:STA SID.1|
000002B0: 33 3A 53 54 41 20 53 49 44 AA 32 30 00 C8 0A 8C |3:STA SID.20....|
000002C0: 05 4C 44 41 20 23 31 36 00 EF 0A 96 05 53 54 41 |.LDA #16.....STA|
000002D0: 20 53 49 44 32 AA 34 3A 53 54 41 20 53 49 44 32 | SID2.4:STA SID2|
000002E0: AA 31 31 3A 53 54 41 20 53 49 44 32 AA 31 38 00 |.11:STA SID2.18.|
000002F0: 13 0B A0 05 53 54 41 20 53 49 44 AA 34 3A 53 54 |....STA SID.4:ST|
00000300: 41 20 53 49 44 AA 31 31 3A 53 54 41 20 53 49 44 |A SID.11:STA SID|
00000310: AA 31 38 00 1B 0B AA 05 52 54 53 00 21 0B B4 05 |.18.....RTS.!...|
00000320: 3B 00 35 0B BE 05 4C 4F 45 53 43 48 45 4E 20 4C |;.5...LOESCHEN L|
00000330: 44 41 20 23 30 00 40 0B C8 05 4C 44 59 20 23 30 |DA #0.@...LDY #0|
00000340: 00 57 0B D2 05 4C 4F 45 53 43 48 20 53 54 41 20 |.W...LOESCH STA |
00000350: 24 30 36 30 30 2C 59 00 67 0B DC 05 53 54 41 20 |$0600,Y.g...STA |
00000360: 24 30 37 30 30 2C 59 00 6F 0B E6 05 49 4E 59 00 |$0700,Y.o...INY.|
00000370: 7E 0B F0 05 42 4E 45 20 4C 4F 45 53 43 48 00 86 |~...BNE LOESCH..|
00000380: 0B FA 05 52 54 53 00 8C 0B 04 06 3B 00 C4 0B 0E |...RTS.....;....|
00000390: 06 54 45 58 54 20 2E C6 20 22 93 11 20 20 53 50 |.TEXT .. ".. SP|
000003A0: 52 49 54 45 2D 42 41 53 49 43 11 20 28 43 29 31 |RITE-BASIC. (C)1|
000003B0: 39 38 35 20 42 59 20 41 2E 53 43 48 55 4C 54 45 |985 BY A.SCHULTE|
000003C0: 49 53 53 22 00 CA 0B 18 06 3B 00 DF 0B 22 06 3B |ISS".....;...".;|
000003D0: AC 20 41 55 53 53 43 48 41 4C 54 45 4E 20 AC 00 |. AUSSCHALTEN ..|
000003E0: E5 0B 2C 06 3B 00 F2 0B 36 06 4B 49 4C 4C 20 53 |..,.;...6.KILL S|
000003F0: 45 49 00 00 0C 40 06 4A 53 52 20 24 45 34 35 33 |EI...@.JSR $E453|
00000400: 00 0E 0C 4A 06 4A 53 52 20 24 46 44 31 35 00 19 |...J.JSR $FD15..|
00000410: 0C 54 06 4C 44 41 20 23 30 00 28 0C 5E 06 53 54 |.T.LDA #0.(.^.ST|
00000420: 41 20 53 49 44 AA 32 34 00 37 0C 68 06 53 54 41 |A SID.24.7.h.STA|
00000430: 20 56 49 43 AA 32 31 00 44 0C 72 06 4C 44 41 20 | VIC.21.D.r.LDA |
00000440: 23 24 30 33 00 51 0C 7C 06 B0 41 20 35 36 35 37 |#$03.Q.|..A 5657|
00000450: 36 00 5F 0C 86 06 53 54 41 20 35 36 35 37 36 00 |6._...STA 56576.|
00000460: 6C 0C 90 06 4C 44 41 20 23 24 31 34 00 7A 0C 9A |l...LDA #$14.z..|
00000470: 06 53 54 41 20 35 33 32 37 32 00 87 0C A4 06 4C |.STA 53272.....L|
00000480: 44 41 20 23 24 30 30 00 96 0C AE 06 53 54 41 20 |DA #$00.....STA |
00000490: 56 49 43 AA 32 36 00 9E 0C B8 06 43 4C 49 00 AB |VIC.26.....CLI..|
000004A0: 0C C2 06 4C 44 41 20 23 24 30 34 00 B7 0C CC 06 |...LDA #$04.....|
000004B0: 53 54 41 20 36 34 38 00 C5 0C D6 06 4A 4D 50 20 |STA 648.....JMP |
000004C0: 24 45 35 34 34 00 CB 0C E0 06 3B 00 EA 0C EA 06 |$E544.....;.....|
000004D0: 3B AC 20 4E 45 55 45 52 20 42 41 53 49 43 20 57 |;. NEUER BASIC W|
000004E0: 41 52 4D 53 54 41 52 54 20 AC 00 F0 0C F4 06 3B |ARMSTART ......;|
000004F0: 00 06 0D FE 06 57 41 52 4D 4E 45 55 20 4C 44 41 |.....WARMNEU LDA|
00000500: 20 35 33 32 37 32 00 13 0D 08 07 43 4D 50 20 23 | 53272.....CMP #|
00000510: 24 33 46 00 21 0D 12 07 42 45 51 20 57 41 52 4D |$3F.!...BEQ WARM|
00000520: 80 00 30 0D 1C 07 4A 53 52 20 56 49 43 53 45 54 |..0...JSR VICSET|
00000530: 00 36 0D 26 07 3B 00 5D 0D 30 07 53 45 49 20 20 |.6.&.;.].0.SEI |
00000540: 20 20 20 20 20 20 20 20 20 20 3B 49 52 51 20 49 | ;IRQ I|
00000550: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 6E 0D |NITIALISIEREN.n.|
00000560: 3A 07 4C 44 41 20 23 B3 49 52 51 4E 45 55 00 7C |:.LDA #.IRQNEU.||
00000570: 0D 44 07 53 54 41 20 24 30 33 31 34 00 8D 0D 4E |.D.STA $0314...N|
00000580: 07 4C 44 41 20 23 B1 49 52 51 4E 45 55 00 9B 0D |.LDA #.IRQNEU...|
00000590: 58 07 53 54 41 20 24 30 33 31 35 00 A1 0D 62 07 |X.STA $0315...b.|
000005A0: 3B 00 C9 0D 6C 07 4C 44 41 20 23 24 30 31 20 20 |;...l.LDA #$01 |
000005B0: 20 20 20 20 20 3B 52 41 53 54 45 52 20 49 52 51 | ;RASTER IRQ|
000005C0: 20 5A 55 4C 41 53 53 45 4E 00 D8 0D 76 07 53 54 | ZULASSEN...v.ST|
000005D0: 41 20 56 49 43 AA 32 36 00 E5 0D 80 07 4C 44 41 |A VIC.26.....LDA|
000005E0: 20 23 24 30 30 00 F4 0D 8A 07 53 54 41 20 56 49 | #$00.....STA VI|
000005F0: 43 AA 31 38 00 01 0E 94 07 4C 44 41 20 23 24 31 |C.18.....LDA #$1|
00000600: 42 00 10 0E 9E 07 53 54 41 20 56 49 43 AA 31 37 |B.....STA VIC.17|
00000610: 00 18 0E A8 07 43 4C 49 00 1E 0E A9 07 3B 00 2B |.....CLI.....;.+|
00000620: 0E AA 07 4C 44 41 20 23 24 46 46 00 37 0E AB 07 |...LDA #$FF.7...|
00000630: 53 54 41 20 24 30 41 00 44 0E AC 07 4C 44 41 20 |STA $0A.D...LDA |
00000640: 23 24 31 30 00 52 0E AD 07 B0 41 20 56 49 43 AA |#$10.R....A VIC.|
00000650: 31 37 00 61 0E AE 07 53 54 41 20 56 49 43 AA 31 |17.a...STA VIC.1|
00000660: 37 00 67 0E B1 07 3B 00 7B 0E B2 07 57 41 52 4D |7.g...;.{...WARM|
00000670: 80 20 4A 4D 50 20 24 41 34 38 33 00 81 0E BC 07 |. JMP $A483.....|
00000680: 3B 00 95 0E C6 07 56 49 43 53 45 54 20 4C 44 41 |;.....VICSET LDA|
00000690: 20 23 24 46 43 00 A1 0E D0 07 AF 20 35 36 35 37 | #$FC...... 5657|
000006A0: 36 00 AF 0E DA 07 53 54 41 20 35 36 35 37 36 00 |6.....STA 56576.|
000006B0: BC 0E E4 07 4C 44 41 20 23 24 33 43 00 CA 0E EE |....LDA #$3C....|
000006C0: 07 53 54 41 20 35 33 32 37 32 00 D7 0E F8 07 4C |.STA 53272.....L|
000006D0: 44 41 20 23 24 43 43 00 E5 0E 02 08 53 54 41 20 |DA #$CC.....STA |
000006E0: 24 30 32 38 38 00 ED 0E 0C 08 52 54 53 00 F3 0E |$0288.....RTS...|
000006F0: 16 08 3B 00 16 0F 20 08 3B AC 20 55 4D 57 AF 4C |..;... .;. UMW.L|
00000700: 55 4E 47 20 49 4E 20 B5 45 52 50 52 45 54 45 52 |UNG IN .ERPRETER|
00000710: 43 4F 44 45 20 AC 00 1C 0F 2A 08 3B 00 2D 0F 34 |CODE ....*.;.-.4|
00000720: 08 43 4F 44 45 20 4C 44 58 20 24 37 41 00 3A 0F |.CODE LDX $7A.:.|
00000730: 3E 08 4C 44 59 20 23 24 30 34 00 46 0F 48 08 53 |>.LDY #$04.F.H.S|
00000740: 54 59 20 24 30 46 00 5D 0F 52 08 48 4F 4C 42 45 |TY $0F.].R.HOLBE|
00000750: 46 20 4C 44 41 20 24 30 32 30 30 2C 58 00 6E 0F |F LDA $0200,X.n.|
00000760: 5C 08 42 50 4C 20 4B 45 49 4E 43 4F 44 45 00 7B |\.BPL KEINCODE.{|
00000770: 0F 66 08 43 4D 50 20 23 24 46 46 00 89 0F 70 08 |.f.CMP #$FF...p.|
00000780: 42 45 51 20 94 43 4F 44 45 00 91 0F 7A 08 49 4E |BEQ .CODE...z.IN|
00000790: 58 00 A0 0F 84 08 42 4E 45 20 48 4F 4C 42 45 46 |X.....BNE HOLBEF|
000007A0: 00 B6 0F 8E 08 4B 45 49 4E 43 4F 44 45 20 43 4D |.....KEINCODE CM|
000007B0: 50 20 23 24 32 30 00 C4 0F 98 08 42 45 51 20 94 |P #$20.....BEQ .|
000007C0: 43 4F 44 45 00 D0 0F A2 08 53 54 41 20 24 30 38 |CODE.....STA $08|
000007D0: 00 DD 0F AC 08 43 4D 50 20 23 24 32 32 00 EF 0F |.....CMP #$22...|
000007E0: B6 08 42 45 51 20 47 41 45 4E 53 43 4F 44 45 00 |..BEQ GAENSCODE.|
000007F0: FB 0F C0 08 42 49 54 20 24 30 46 00 09 10 CA 08 |....BIT $0F.....|
00000800: 42 56 53 20 94 43 4F 44 45 00 16 10 D4 08 43 4D |BVS .CODE.....CM|
00000810: 50 20 23 24 33 46 00 22 10 DE 08 42 4E 45 20 4E |P #$3F."...BNE N|
00000820: 4F 99 00 2F 10 E8 08 4C 44 41 20 23 24 39 39 00 |O../...LDA #$99.|
00000830: 3D 10 F2 08 42 4E 45 20 94 43 4F 44 45 00 4E 10 |=...BNE .CODE.N.|
00000840: FC 08 4E 4F 99 20 43 4D 50 20 23 24 33 30 00 5D |..NO. CMP #$30.]|
00000850: 10 06 09 42 43 43 20 4E 4F 5A 41 48 4C 00 6A 10 |...BCC NOZAHL.j.|
00000860: 10 09 43 4D 50 20 23 24 33 43 00 78 10 1A 09 42 |..CMP #$3C.x...B|
00000870: 43 43 20 94 43 4F 44 45 00 7E 10 24 09 3B 00 99 |CC .CODE.~.$.;..|
00000880: 10 2E 09 4E 4F 5A 41 48 4C 20 4A 4D 50 20 4E 45 |...NOZAHL JMP NE|
00000890: 55 45 52 4F 55 54 49 4E 45 00 9F 10 38 09 3B 00 |UEROUTINE...8.;.|
000008A0: B3 10 42 09 45 49 4E 53 50 52 32 20 53 54 59 20 |..B.EINSPR2 STY |
000008B0: 24 37 31 00 BE 10 4C 09 4C 44 59 20 23 30 00 CA |$71...L.LDY #0..|
000008C0: 10 56 09 53 54 59 20 24 30 42 00 D2 10 60 09 44 |.V.STY $0B...`.D|
000008D0: 45 59 00 DE 10 6A 09 53 54 58 20 24 37 41 00 E6 |EY...j.STX $7A..|
000008E0: 10 74 09 44 45 58 00 F6 10 7E 09 54 45 53 54 42 |.t.DEX...~.TESTB|
000008F0: 45 46 20 49 4E 59 00 FE 10 88 09 49 4E 58 00 13 |EF INY.....INX..|
00000900: 11 92 09 48 4F 4C 42 20 4C 44 41 20 24 30 32 30 |...HOLB LDA $020|
00000910: 30 2C 58 00 1B 11 9C 09 53 45 43 00 2B 11 A6 09 |0,X.....SEC.+...|
00000920: 53 42 43 20 24 41 30 39 45 2C 59 00 3B 11 B0 09 |SBC $A09E,Y.;...|
00000930: 42 45 51 20 54 45 53 54 42 45 46 00 48 11 BA 09 |BEQ TESTBEF.H...|
00000940: 43 4D 50 20 23 24 38 30 00 58 11 C4 09 42 4E 45 |CMP #$80.X...BNE|
00000950: 20 4E 4F 46 4F 55 4E 44 00 63 11 CE 09 B0 41 20 | NOFOUND.c....A |
00000960: 24 30 42 00 77 11 D8 09 45 49 4E 53 50 52 31 20 |$0B.w...EINSPR1 |
00000970: 4C 44 59 20 24 37 31 00 85 11 E2 09 94 43 4F 44 |LDY $71......COD|
00000980: 45 20 49 4E 58 00 8D 11 EC 09 49 4E 59 00 9D 11 |E INX.....INY...|
00000990: F6 09 53 54 41 20 24 30 31 46 42 2C 59 00 AD 11 |..STA $01FB,Y...|
000009A0: 00 0A 4C 44 41 20 24 30 31 46 42 2C 59 00 B8 11 |..LDA $01FB,Y...|
000009B0: 0A 0A 42 45 51 20 80 45 00 C0 11 14 0A 53 45 43 |..BEQ .E.....SEC|
000009C0: 00 CD 11 1E 0A 53 42 43 20 23 24 33 41 00 DB 11 |.....SBC #$3A...|
000009D0: 28 0A 42 45 51 20 54 52 45 4E 4E 00 E8 11 32 0A |(.BEQ TRENN...2.|
000009E0: 43 4D 50 20 23 24 34 39 00 F4 11 3C 0A 42 4E 45 |CMP #$49...<.BNE|
000009F0: 20 4E 4F 83 00 06 12 46 0A 54 52 45 4E 4E 20 53 | NO....F.TRENN S|
00000A00: 54 41 20 24 30 46 00 12 12 50 0A 4E 4F 83 20 53 |TA $0F...P.NO. S|
00000A10: 45 43 00 1F 12 5A 0A 53 42 43 20 23 24 35 35 00 |EC...Z.SBC #$55.|
00000A20: 2E 12 64 0A 42 4E 45 20 48 4F 4C 42 45 46 00 3A |..d.BNE HOLBEF.:|
00000A30: 12 6E 0A 53 54 41 20 24 30 38 00 4E 12 78 0A 48 |.n.STA $08.N.x.H|
00000A40: 4F 4C 20 4C 44 41 20 24 30 32 30 30 2C 58 00 6E |OL LDA $0200,X.n|
00000A50: 12 82 0A 42 45 51 20 94 43 4F 44 45 3A 43 4D 50 |...BEQ .CODE:CMP|
00000A60: 20 24 30 38 3A 42 45 51 20 94 43 4F 44 45 00 80 | $08:BEQ .CODE..|
00000A70: 12 8C 0A 47 41 45 4E 53 43 4F 44 45 20 49 4E 59 |...GAENSCODE INY|
00000A80: 00 90 12 96 0A 53 54 41 20 24 30 31 46 42 2C 59 |.....STA $01FB,Y|
00000A90: 00 98 12 A0 0A 49 4E 58 00 A4 12 AA 0A 42 4E 45 |.....INX.....BNE|
00000AA0: 20 48 4F 4C 00 B8 12 B4 0A 4E 4F 46 4F 55 4E 44 | HOL.....NOFOUND|
00000AB0: 20 4C 44 58 20 24 37 41 00 C4 12 BE 0A 49 4E 43 | LDX $7A.....INC|
00000AC0: 20 24 30 42 00 D4 12 C8 0A 54 41 42 54 45 53 54 | $0B.....TABTEST|
00000AD0: 20 49 4E 59 00 E4 12 D2 0A 4C 44 41 20 24 41 30 | INY.....LDA $A0|
00000AE0: 39 44 2C 59 00 F4 12 DC 0A 42 50 4C 20 54 41 42 |9D,Y.....BPL TAB|
00000AF0: 54 45 53 54 00 04 13 E6 0A 4C 44 41 20 24 41 30 |TEST.....LDA $A0|
00000B00: 39 45 2C 59 00 11 13 F0 0A 42 4E 45 20 48 4F 4C |9E,Y.....BNE HOL|
00000B10: 42 00 21 13 FA 0A 4C 44 41 20 24 30 32 30 30 2C |B.!...LDA $0200,|
00000B20: 58 00 31 13 04 0B 42 50 4C 20 94 43 4F 44 45 AB |X.1...BPL .CODE.|
00000B30: 32 00 44 13 0E 0B 80 45 20 53 54 41 20 24 30 31 |2.D....E STA $01|
00000B40: 46 44 2C 59 00 50 13 18 0B 44 45 43 20 24 37 42 |FD,Y.P...DEC $7B|
00000B50: 00 5D 13 22 0B 4C 44 41 20 23 24 46 46 00 69 13 |.].".LDA #$FF.i.|
00000B60: 2C 0B 53 54 41 20 24 37 41 00 71 13 36 0B 52 54 |,.STA $7A.q.6.RT|
00000B70: 53 00 77 13 40 0B 3B 00 8C 13 4A 0B 4E 45 55 45 |S.w.@.;...J.NEUE|
00000B80: 52 4F 55 54 20 53 54 59 20 24 37 31 00 99 13 54 |ROUT STY $71...T|
00000B90: 0B 4C 44 59 20 23 24 30 30 00 A5 13 5E 0B 53 54 |.LDY #$00...^.ST|
00000BA0: 59 20 24 30 42 00 AD 13 68 0B 44 45 59 00 B9 13 |Y $0B...h.DEY...|
00000BB0: 72 0B 53 54 58 20 24 37 41 00 C1 13 7C 0B 44 45 |r.STX $7A...|.DE|
00000BC0: 58 00 D2 13 86 0B 4E 45 55 43 48 45 43 4B 20 49 |X.....NEUCHECK I|
00000BD0: 4E 59 00 DA 13 90 0B 49 4E 58 00 EE 13 9A 0B 4E |NY.....INX.....N|
00000BE0: 45 55 20 4C 44 41 20 24 30 32 30 30 2C 58 00 F6 |EU LDA $0200,X..|
00000BF0: 13 A4 0B 53 45 43 00 08 14 AE 0B 53 42 43 20 42 |...SEC.....SBC B|
00000C00: 45 46 45 48 4C 45 2C 59 00 19 14 B8 0B 42 45 51 |EFEHLE,Y.....BEQ|
00000C10: 20 4E 45 55 43 48 45 43 4B 00 26 14 C2 0B 43 4D | NEUCHECK.&...CM|
00000C20: 50 20 23 24 38 30 00 35 14 CC 0B 42 4E 45 20 57 |P #$80.5...BNE W|
00000C30: 45 49 54 45 52 00 40 14 D6 0B B0 41 20 24 30 42 |EITER.@....A $0B|
00000C40: 00 48 14 E0 0B 43 4C 43 00 55 14 EA 0B 41 44 43 |.H...CLC.U...ADC|
00000C50: 20 23 24 34 43 00 65 14 F4 0B 4A 4D 50 20 45 49 | #$4C.e...JMP EI|
00000C60: 4E 53 50 52 31 00 78 14 FE 0B 57 45 49 54 45 52 |NSPR1.x...WEITER|
00000C70: 20 4C 44 58 20 24 37 41 00 84 14 08 0C 49 4E 43 | LDX $7A.....INC|
00000C80: 20 24 30 42 00 93 14 12 0C 53 54 49 4D 4D 54 20 | $0B.....STIMMT |
00000C90: 49 4E 59 00 A7 14 1C 0C 4C 44 41 20 42 45 46 45 |INY.....LDA BEFE|
00000CA0: 48 4C 45 AB 31 2C 59 00 B6 14 26 0C 42 50 4C 20 |HLE.1,Y...&.BPL |
00000CB0: 53 54 49 4D 4D 54 00 C8 14 30 0C 4C 44 41 20 42 |STIMMT...0.LDA B|
00000CC0: 45 46 45 48 4C 45 2C 59 00 D4 14 3A 0C 42 4E 45 |EFEHLE,Y...:.BNE|
00000CD0: 20 4E 45 55 00 E0 14 44 0C 4C 44 59 20 24 37 31 | NEU...D.LDY $71|
00000CE0: 00 EC 14 4E 0C 4C 44 58 20 24 37 41 00 FC 14 58 |...N.LDX $7A...X|
00000CF0: 0C 4A 4D 50 20 45 49 4E 53 50 52 32 00 02 15 62 |.JMP EINSPR2...b|
00000D00: 0C 3B 00 20 15 6C 0C 3B AC 20 55 4D 57 AF 4C 55 |.;. .l.;. UMW.LU|
00000D10: 4E 47 20 49 4E 20 4B 4C 41 52 54 45 58 54 20 AC |NG IN KLARTEXT .|
00000D20: 00 26 15 76 0C 3B 00 3F 15 80 0C 4B 4C 41 52 54 |.&.v.;.?...KLART|
00000D30: 45 58 54 20 42 50 4C 20 41 55 53 47 41 42 45 00 |EXT BPL AUSGABE.|
00000D40: 4C 15 8A 0C 43 4D 50 20 23 24 46 46 00 5C 15 94 |L...CMP #$FF.\..|
00000D50: 0C 42 45 51 20 41 55 53 47 41 42 45 00 68 15 9E |.BEQ AUSGABE.h..|
00000D60: 0C 42 49 54 20 24 30 46 00 78 15 A8 0C 42 4D 49 |.BIT $0F.x...BMI|
00000D70: 20 41 55 53 47 41 42 45 00 85 15 B2 0C 43 4D 50 | AUSGABE.....CMP|
00000D80: 20 23 32 30 34 00 95 15 BC 0C 42 43 53 20 4E 45 | #204.....BCS NE|
00000D90: 55 4B 4C 41 52 00 A3 15 C6 0C 4A 4D 50 20 24 41 |UKLAR.....JMP $A|
00000DA0: 37 32 34 00 B3 15 D0 0C 4E 45 55 4B 4C 41 52 20 |724.....NEUKLAR |
00000DB0: 53 45 43 00 C0 15 DA 0C 53 42 43 20 23 32 30 33 |SEC.....SBC #203|
00000DC0: 00 C8 15 E4 0C 54 41 58 00 D4 15 EE 0C 53 54 59 |.....TAX.....STY|
00000DD0: 20 24 34 39 00 E1 15 F8 0C 4C 44 59 20 23 24 46 | $49.....LDY #$F|
00000DE0: 46 00 EE 15 02 0D 82 57 B0 54 20 44 45 58 00 FD |F......W.T DEX..|
00000DF0: 15 0C 0D 42 45 51 20 48 4F 4C 57 B0 54 00 0E 16 |...BEQ HOLW.T...|
00000E00: 16 0D 53 55 43 48 4F 46 46 53 20 49 4E 59 00 20 |..SUCHOFFS INY. |
00000E10: 16 20 0D 4C 44 41 20 42 45 46 45 48 4C 45 2C 59 |. .LDA BEFEHLE,Y|
00000E20: 00 31 16 2A 0D 42 50 4C 20 53 55 43 48 4F 46 46 |.1.*.BPL SUCHOFF|
00000E30: 53 00 3E 16 34 0D 42 4D 49 20 82 57 B0 54 00 4D |S.>.4.BMI .W.T.M|
00000E40: 16 3E 0D 48 4F 4C 57 B0 54 20 49 4E 59 00 5F 16 |.>.HOLW.T INY._.|
00000E50: 48 0D 4C 44 41 20 42 45 46 45 48 4C 45 2C 59 00 |H.LDA BEFEHLE,Y.|
00000E60: 6D 16 52 0D 42 4D 49 20 57 B0 54 80 45 00 7B 16 |m.R.BMI W.T.E.{.|
00000E70: 5C 0D 4A 53 52 20 24 41 42 34 37 00 8A 16 66 0D |\.JSR $AB47...f.|
00000E80: 42 4E 45 20 48 4F 4C 57 B0 54 00 90 16 70 0D 3B |BNE HOLW.T...p.;|
00000E90: 00 A4 16 7A 0D 57 B0 54 80 45 20 4A 4D 50 20 24 |...z.W.T.E JMP $|
00000EA0: 41 36 45 46 00 BA 16 84 0D 41 55 53 47 41 42 45 |A6EF.....AUSGABE|
00000EB0: 20 4A 4D 50 20 24 41 36 46 33 00 C0 16 8E 0D 3B | JMP $A6F3.....;|
00000EC0: 00 DA 16 98 0D 3B AC 20 B5 45 52 50 52 45 54 45 |.....;. .ERPRETE|
00000ED0: 52 53 43 48 4C 45 8B 45 20 AC 00 E0 16 A2 0D 3B |RSCHLE.E ......;|
00000EE0: 00 F2 16 AC 0D B5 45 52 50 52 20 4C 44 41 20 24 |......ERPR LDA $|
00000EF0: 39 44 00 FF 16 B6 0D 42 45 51 20 B5 4E 45 55 00 |9D.....BEQ .NEU.|
00000F00: 0A 17 C0 0D 4C 44 58 20 23 37 00 15 17 CA 0D 4C |....LDX #7.....L|
00000F10: 44 41 20 23 30 00 2A 17 D4 0D 4C 4F 45 20 53 54 |DA #0.*...LOE ST|
00000F20: 41 20 53 50 52 43 4F 4C 2C 58 00 3B 17 DE 0D 53 |A SPRCOL,X.;...S|
00000F30: 54 41 20 43 48 52 43 4F 4C 2C 58 00 43 17 E8 0D |TA CHRCOL,X.C...|
00000F40: 44 45 58 00 4F 17 F2 0D 42 50 4C 20 4C 4F 45 00 |DEX.O...BPL LOE.|
00000F50: 61 17 FC 0D B5 4E 45 55 20 4A 53 52 20 43 48 52 |a....NEU JSR CHR|
00000F60: A1 00 72 17 06 0E 4A 53 52 20 41 55 53 46 55 45 |..r...JSR AUSFUE|
00000F70: 48 52 00 80 17 10 0E 4A 4D 50 20 24 41 37 41 45 |HR.....JMP $A7AE|
00000F80: 00 97 17 1A 0E 41 55 53 46 55 45 48 52 20 42 45 |.....AUSFUEHR BE|
00000F90: 51 20 5A 45 49 C3 44 00 A4 17 24 0E 53 42 43 20 |Q ZEI.D...$.SBC |
00000FA0: 23 24 38 30 00 AE 17 2E 0E 42 43 43 20 88 00 BA |#$80.....BCC ...|
00000FB0: 17 38 0E 43 4D 50 20 23 37 36 00 CB 17 42 0E 42 |.8.CMP #76...B.B|
00000FC0: 43 43 20 41 4C 54 45 52 42 45 46 00 D7 17 4C 0E |CC ALTERBEF...L.|
00000FD0: 53 42 43 20 23 37 36 00 DD 17 56 0E 3B 00 E5 17 |SBC #76...V.;...|
00000FE0: 60 0E 41 53 4C 00 ED 17 6A 0E 54 41 59 00 02 18 |`.ASL...j.TAY...|
00000FF0: 74 0E 4C 44 41 20 41 44 52 45 53 53 45 4E AA 31 |t.LDA ADRESSEN.1|
00001000: 2C 59 00 0A 18 7E 0E 50 48 41 00 1D 18 88 0E 4C |,Y...~.PHA.....L|
00001010: 44 41 20 41 44 52 45 53 53 45 4E 2C 59 00 25 18 |DA ADRESSEN,Y.%.|
00001020: 92 0E 50 48 41 00 32 18 9C 0E 4A 4D 50 20 43 48 |..PHA.2...JMP CH|
00001030: 52 A1 00 38 18 A6 0E 3B 00 46 18 B0 0E 5A 45 49 |R..8...;.F...ZEI|
00001040: C3 44 20 52 54 53 00 56 18 BA 0E 88 20 4A 4D 50 |.D RTS.V.... JMP|
00001050: 20 24 41 38 30 34 00 6D 18 C4 0E 41 4C 54 45 52 | $A804.m...ALTER|
00001060: 42 45 46 20 4A 4D 50 20 24 41 37 46 33 00 73 18 |BEF JMP $A7F3.s.|
00001070: CE 0E 3B 00 95 18 D8 0E 3B AC 20 4E 45 55 45 20 |..;.....;. NEUE |
00001080: 46 55 4E 4B 54 49 91 45 4E 20 45 49 4E 42 49 4E |FUNKTI.EN EINBIN|
00001090: 44 45 4E 20 AC 00 9B 18 E2 0E 3B 00 AD 18 EC 0E |DEN ......;.....|
000010A0: A2 46 55 4E 20 4C 44 41 20 23 24 30 30 00 B9 18 |.FUN LDA #$00...|
000010B0: F6 0E 53 54 41 20 24 30 44 00 C6 18 00 0F 4A 53 |..STA $0D.....JS|
000010C0: 52 20 43 48 52 A1 00 D3 18 0A 0F 42 43 53 20 4E |R CHR......BCS N|
000010D0: 91 55 4D 00 E1 18 14 0F 4A 4D 50 20 24 42 43 46 |.UM.....JMP $BCF|
000010E0: 33 00 F3 18 1E 0F 4E 91 55 4D 20 43 4D 50 20 23 |3.....N.UM CMP #|
000010F0: 32 34 35 00 03 19 28 0F 42 43 43 20 4E 91 45 57 |245...(.BCC N.EW|
00001100: 46 55 4E 00 10 19 32 0F 43 4D 50 20 23 24 46 46 |FUN...2.CMP #$FF|
00001110: 00 20 19 3C 0F 42 45 51 20 4E 91 45 57 46 55 4E |. .<.BEQ N.EWFUN|
00001120: 00 28 19 46 0F 53 45 43 00 35 19 50 0F 53 42 43 |.(.F.SEC.5.P.SBC|
00001130: 20 23 32 34 35 00 3D 19 5A 0F 41 53 4C 00 45 19 | #245.=.Z.ASL.E.|
00001140: 64 0F 54 41 58 00 56 19 6E 0F 4C 44 41 20 46 55 |d.TAX.V.n.LDA FU|
00001150: 4E 54 41 42 2C 58 00 73 19 78 0F 53 54 41 20 24 |NTAB,X.s.x.STA $|
00001160: 35 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |55 |
00001170: 20 20 20 00 86 19 82 0F 4C 44 41 20 46 55 4E 54 | .....LDA FUNT|
00001180: 41 42 AA 31 2C 58 00 92 19 8C 0F 53 54 41 20 24 |AB.1,X.....STA $|
00001190: 35 36 00 A0 19 96 0F 4A 53 52 20 24 30 30 35 34 |56.....JSR $0054|
000011A0: 00 AE 19 A0 0F 4A 4D 50 20 24 41 44 38 44 00 B4 |.....JMP $AD8D..|
000011B0: 19 AA 0F 3B 00 CA 19 B4 0F 4E 91 45 57 46 55 4E |...;.....N.EWFUN|
000011C0: 20 4A 4D 50 20 24 41 45 39 32 00 D0 19 BE 0F 3B | JMP $AE92.....;|
000011D0: 00 EF 19 C8 0F 3B AC 20 4E 45 55 45 20 8B AB A7 |.....;. NEUE ...|
000011E0: 20 45 4E 54 53 43 48 45 49 44 55 4E 47 20 AC 00 | ENTSCHEIDUNG ..|
000011F0: F5 19 D2 0F 3B 00 05 1A DC 0F 8B 20 4A 53 52 20 |....;...... JSR |
00001200: 24 41 44 39 45 00 13 1A E6 0F 4A 53 52 20 43 48 |$AD9E.....JSR CH|
00001210: 52 CB 54 00 20 1A F0 0F 43 4D 50 20 23 24 38 39 |R.T. ...CMP #$89|
00001220: 00 2A 1A FA 0F 42 45 51 20 CB 00 37 1A 04 10 4C |.*...BEQ ..7...L|
00001230: 44 41 20 23 24 41 37 00 45 1A 0E 10 4A 53 52 20 |DA #$A7.E...JSR |
00001240: 24 41 45 46 46 00 53 1A 18 10 CB 20 4C 44 41 20 |$AEFF.S.... LDA |
00001250: 24 36 31 00 63 1A 22 10 42 4E 45 20 52 49 43 48 |$61.c.".BNE RICH|
00001260: 54 49 47 00 71 1A 2C 10 4A 53 52 20 24 41 39 30 |TIG.q.,.JSR $A90|
00001270: 39 00 81 1A 36 10 42 4E 45 20 52 49 43 48 54 49 |9...6.BNE RICHTI|
00001280: 47 00 8F 1A 40 10 4A 4D 50 20 24 41 38 46 42 00 |G...@.JMP $A8FB.|
00001290: A5 1A 4A 10 52 49 43 48 54 49 47 20 4A 53 52 20 |..J.RICHTIG JSR |
000012A0: 43 48 52 CB 54 00 B3 1A 54 10 42 43 53 20 4E 4F |CHR.T...T.BCS NO|
000012B0: 5A 8B 46 00 C1 1A 5E 10 4A 4D 50 20 24 41 38 41 |Z.F...^.JMP $A8A|
000012C0: 30 00 D8 1A 68 10 4E 4F 5A 8B 46 20 4A 4D 50 20 |0...h.NOZ.F JMP |
000012D0: 41 55 53 46 55 45 48 52 00 DE 1A 72 10 3B 00 F6 |AUSFUEHR...r.;..|
000012E0: 1A 7C 10 3B AC 20 4E 45 55 45 52 20 8A AB 42 45 |.|.;. NEUER ..BE|
000012F0: 46 45 48 4C 20 AC 00 FC 1A 86 10 3B 00 0D 1B 90 |FEHL ......;....|
00001300: 10 8A 20 50 48 50 3A 4C 44 58 20 23 37 00 1E 1B |.. PHP:LDX #7...|
00001310: 9A 10 4A 53 52 20 4C 4F 45 53 43 48 45 4E 00 2B |..JSR LOESCHEN.+|
00001320: 1B A4 10 4C 44 41 20 23 B3 90 A2 00 39 1B AE 10 |...LDA #....9...|
00001330: 53 54 41 20 24 30 33 32 38 00 46 1B B8 10 4C 44 |STA $0328.F...LD|
00001340: 41 20 23 B1 90 A2 00 54 1B C2 10 53 54 41 20 24 |A #....T...STA $|
00001350: 30 33 32 39 00 63 1B CC 10 4A 53 52 20 53 49 44 |0329.c...JSR SID|
00001360: 53 45 54 00 71 1B D6 10 4A 4D 50 20 24 41 38 37 |SET.q...JMP $A87|
00001370: 32 00 77 1B E0 10 3B 00 97 1B EA 10 3B AC 20 41 |2.w...;.....;. A|
00001380: 44 52 45 53 53 45 4E 20 44 45 52 20 42 45 46 45 |DRESSEN DER BEFE|
00001390: 48 4C 45 AB 31 20 AC 00 9D 1B F4 10 3B 00 BE 1B |HLE.1 ......;...|
000013A0: FE 10 41 44 52 45 53 53 45 4E 20 2E 57 B0 44 20 |..ADRESSEN .W.D |
000013B0: 8B AB 31 2C 8A AB 31 2C 4B 49 4C 4C AB 31 00 F1 |..1,..1,KILL.1..|
000013C0: 1B 08 11 2E 57 B0 44 20 53 48 4F 57 AB 31 2C 48 |....W.D SHOW.1,H|
000013D0: 49 44 45 AB 31 2C 53 45 54 AB 31 2C 53 49 5A 45 |IDE.1,SET.1,SIZE|
000013E0: AB 31 2C 43 4F 4C B0 AB 31 2C 42 4C 4F 43 4B AB |.1,COL..1,BLOCK.|
000013F0: 31 00 22 1C 12 11 2E 57 B0 44 20 4D 55 4C 54 49 |1."....W.D MULTI|
00001400: AB 31 2C 53 50 43 4F 4C AB 31 2C 43 48 43 4F 4C |.1,SPCOL.1,CHCOL|
00001410: AB 31 2C 42 41 43 4B AB 31 2C 43 4C 46 4C 41 47 |.1,BACK.1,CLFLAG|
00001420: AB 31 00 49 1C 1C 11 2E 57 B0 44 20 4D 4F 56 45 |.1.I....W.D MOVE|
00001430: AB 31 2C 4E 4F 4D 4F 56 45 AB 31 2C 54 55 52 4E |.1,NOMOVE.1,TURN|
00001440: AB 31 2C A8 55 52 4E AB 31 00 7C 1C 26 11 2E 57 |.1,.URN.1.|.&..W|
00001450: B0 44 20 4E 4F 53 50 43 4F 4C AB 31 2C 4E 4F 43 |.D NOSPCOL.1,NOC|
00001460: 48 43 4F 4C AB 31 2C 41 4E 49 4D 41 54 45 AB 31 |HCOL.1,ANIMATE.1|
00001470: 2C 4E 4F 41 4E 49 4D 41 54 45 AB 31 00 AE 1C 30 |,NOANIMATE.1...0|
00001480: 11 2E 57 B0 44 20 53 50 52 45 44 49 54 AB 31 2C |..W.D SPREDIT.1,|
00001490: 50 41 54 AB 31 2C 4D 50 41 54 AB 31 2C 4E 4F 42 |PAT.1,MPAT.1,NOB|
000014A0: 52 45 41 4B AB 31 2C 43 55 52 53 B0 AB 31 00 D4 |REAK.1,CURS..1..|
000014B0: 1C 3A 11 2E 57 B0 44 20 43 48 52 45 44 49 54 AB |.:..W.D CHREDIT.|
000014C0: 31 2C 43 4F 50 59 AB 31 2C 4F 4C 44 AB 31 2C 50 |1,COPY.1,OLD.1,P|
000014D0: 4F 50 AB 31 00 FA 1C 44 11 2E 57 B0 44 20 50 4C |OP.1...D..W.D PL|
000014E0: 4F 54 AB 31 2C 42 B0 44 45 52 AB 31 2C 50 41 50 |OT.1,B.DER.1,PAP|
000014F0: 45 52 AB 31 2C 49 4E 4B AB 31 00 2C 1D 4E 11 2E |ER.1,INK.1.,.N..|
00001500: 57 B0 44 20 56 4F 4C AB 31 2C 41 44 53 52 AB 31 |W.D VOL.1,ADSR.1|
00001510: 2C 57 41 56 45 AB 31 2C 50 4C 41 59 AB 31 2C 50 |,WAVE.1,PLAY.1,P|
00001520: 55 4C 53 45 AB 31 2C 52 45 A2 AB 31 00 51 1D 58 |ULSE.1,RE..1.Q.X|
00001530: 11 46 55 4E 54 41 42 20 2E 57 B0 44 20 53 50 59 |.FUNTAB .W.D SPY|
00001540: 2C 53 50 58 2C 41 4E 47 2C 4A 4F 59 2C 46 49 52 |,SPX,ANG,JOY,FIR|
00001550: 45 00 69 1D 62 11 2E 57 B0 44 20 53 43 4F 4C 2C |E.i.b..W.D SCOL,|
00001560: 43 43 4F 4C 2C 43 48 41 52 00 6F 1D 6C 11 3B 00 |CCOL,CHAR.o.l.;.|
00001570: 85 1D 76 11 3B AC 20 42 45 46 45 48 4C 53 4E 41 |..v.;. BEFEHLSNA|
00001580: 4D 45 4E 20 AC 00 8B 1D 80 11 3B 00 A6 1D 8A 11 |MEN ......;.....|
00001590: 42 45 46 45 48 4C 45 20 2E C6 20 22 49 C6 52 55 |BEFEHLE .. "I.RU|
000015A0: CE 4B 49 4C CC 22 00 C9 1D 94 11 2E C6 20 22 53 |.KIL."....... "S|
000015B0: 48 4F D7 48 49 44 C5 53 45 D4 53 49 5A C5 43 4F |HO.HID.SE.SIZ.CO|
000015C0: 4C 4F D2 42 4C 4F 43 CB 22 00 EC 1D 9E 11 2E C6 |LO.BLOC.".......|
000015D0: 20 22 4D 55 4C 54 C9 53 50 43 4F CC 43 48 43 4F | "MULT.SPCO.CHCO|
000015E0: CC 42 41 43 CB 43 4C 46 4C 41 C7 22 00 0A 1E A8 |.BAC.CLFLA."....|
000015F0: 11 2E C6 20 22 4D 4F 56 C5 4E 4F 4D 4F 56 C5 54 |... "MOV.NOMOV.T|
00001600: 55 52 CE 4E 4F 54 55 52 CE 22 00 32 1E B2 11 2E |UR.NOTUR.".2....|
00001610: C6 20 22 4E 4F 53 50 43 4F CC 4E 4F 43 48 43 4F |. "NOSPCO.NOCHCO|
00001620: CC 41 4E 49 4D 41 54 C5 4E 4F 41 4E 49 4D 41 54 |.ANIMAT.NOANIMAT|
00001630: C5 22 00 57 1E BC 11 2E C6 20 22 53 50 52 45 44 |.".W..... "SPRED|
00001640: 49 D4 50 41 D4 4D 50 41 D4 4E 4F 42 52 45 41 CB |I.PA.MPA.NOBREA.|
00001650: 43 55 52 53 4F D2 22 00 84 1E C6 11 2E C6 20 22 |CURSO."....... "|
00001660: 43 48 52 45 44 49 D4 43 4F 50 D9 4F 4C C4 50 4F |CHREDI.COP.OL.PO|
00001670: D0 50 4C 4F D4 42 4F 52 44 45 D2 50 41 50 45 D2 |.PLO.BORDE.PAPE.|
00001680: 49 4E CB 22 00 A7 1E D0 11 2E C6 20 22 56 4F CC |IN."....... "VO.|
00001690: 41 44 53 D2 57 41 56 C5 50 4C 41 D9 50 55 4C 53 |ADS.WAV.PLA.PULS|
000016A0: C5 52 45 4E 45 D7 22 00 CD 1E DA 11 2E C6 20 22 |.RENE."....... "|
000016B0: 53 50 D9 53 50 D8 41 4E C7 4A 4F D9 46 49 52 C5 |SP.SP.AN.JO.FIR.|
000016C0: 53 43 4F CC 43 43 4F CC 43 48 41 D2 22 00 D8 1E |SCO.CCO.CHA."...|
000016D0: E4 11 2E 42 59 54 20 30 00 E4 1E EE 11 AC B2 24 |...BYT 0.......$|
000016E0: 43 30 30 30 00 EA 1E F8 11 3B 00 FF 1E 02 12 3B |C000.....;.....;|
000016F0: AC 20 42 45 46 45 48 4C 20 43 4F 50 59 20 AC 00 |. BEFEHL COPY ..|
00001700: 05 1F 0C 12 3B 00 1B 1F 16 12 43 4F 50 59 20 4A |....;.....COPY J|
00001710: 53 52 20 48 4F 4C 42 4C 4F 43 4B 00 29 1F 20 12 |SR HOLBLOCK.). .|
00001720: 4A 53 52 20 43 4B 43 4F 4D 00 3D 1F 2A 12 4C 44 |JSR CKCOM.=.*.LD|
00001730: 41 20 24 46 42 3A 53 54 41 20 24 46 44 00 51 1F |A $FB:STA $FD.Q.|
00001740: 34 12 4C 44 41 20 24 46 43 3A 53 54 41 20 24 46 |4.LDA $FC:STA $F|
00001750: 45 00 62 1F 3E 12 4A 53 52 20 48 4F 4C 42 4C 4F |E.b.>.JSR HOLBLO|
00001760: 43 4B 00 6E 1F 48 12 4C 44 59 20 23 36 33 00 76 |CK.n.H.LDY #63.v|
00001770: 1F 52 12 53 45 49 00 8A 1F 5C 12 44 45 43 20 24 |.R.SEI...\.DEC $|
00001780: 30 31 3A 44 45 43 20 24 30 31 00 A2 1F 66 12 4B |01:DEC $01...f.K|
00001790: 4F 50 49 45 52 45 20 4C 44 41 20 28 24 46 44 29 |OPIERE LDA ($FD)|
000017A0: 2C 59 00 B2 1F 70 12 53 54 41 20 28 24 46 42 29 |,Y...p.STA ($FB)|
000017B0: 2C 59 00 BA 1F 7A 12 44 45 59 00 CA 1F 84 12 42 |,Y...z.DEY.....B|
000017C0: 50 4C 20 4B 4F 50 49 45 52 45 00 DE 1F 8E 12 49 |PL KOPIERE.....I|
000017D0: 4E 43 20 24 30 31 3A 49 4E 43 20 24 30 31 00 E6 |NC $01:INC $01..|
000017E0: 1F 98 12 52 54 53 00 EC 1F A2 12 3B 00 01 20 AC |...RTS.....;.. .|
000017F0: 12 3B AC 20 42 45 46 45 48 4C 20 53 48 4F 57 20 |.;. BEFEHL SHOW |
00001800: AC 00 07 20 B6 12 3B 00 1C 20 C0 12 53 48 4F 57 |... ..;.. ..SHOW|
00001810: 20 4A 53 52 20 A1 53 50 52 49 54 45 00 2E 20 CA | JSR .SPRITE.. .|
00001820: 12 4C 44 41 20 42 49 54 53 45 54 5A 2C 58 00 3C |.LDA BITSETZ,X.<|
00001830: 20 D4 12 B0 41 20 56 49 43 AA 32 31 00 4B 20 DE | ...A VIC.21.K .|
00001840: 12 53 54 41 20 56 49 43 AA 32 31 00 51 20 E8 12 |.STA VIC.21.Q ..|
00001850: 3B 00 60 20 F2 12 4C 44 41 20 56 49 43 AA 32 38 |;.` ..LDA VIC.28|
00001860: 00 6E 20 FC 12 4A 53 52 20 A1 46 4C 41 47 00 7D |.n ..JSR .FLAG.}|
00001870: 20 06 13 53 54 41 20 56 49 43 AA 32 38 00 83 20 | ..STA VIC.28.. |
00001880: 10 13 3B 00 92 20 1A 13 4C 44 41 20 56 49 43 AA |..;.. ..LDA VIC.|
00001890: 32 37 00 A0 20 24 13 4A 53 52 20 A1 46 4C 41 47 |27.. $.JSR .FLAG|
000018A0: 00 AF 20 2E 13 53 54 41 20 56 49 43 AA 32 37 00 |.. ..STA VIC.27.|
000018B0: B5 20 38 13 3B 00 CB 20 42 13 80 53 48 4F 57 20 |. 8.;.. B..SHOW |
000018C0: 4A 53 52 20 54 45 53 54 43 4F 4D 00 D8 20 4C 13 |JSR TESTCOM.. L.|
000018D0: 42 4E 45 20 53 48 4F 57 00 E0 20 56 13 52 54 53 |BNE SHOW.. V.RTS|
000018E0: 00 E6 20 60 13 3B 00 FB 20 6A 13 3B AC 20 42 45 |.. `.;.. j.;. BE|
000018F0: 46 45 48 4C 20 48 49 44 45 20 AC 00 01 21 74 13 |FEHL HIDE ...!t.|
00001900: 3B 00 16 21 7E 13 48 49 44 45 20 4A 53 52 20 A1 |;..!~.HIDE JSR .|
00001910: 53 50 52 49 54 45 00 29 21 88 13 4C 44 41 20 42 |SPRITE.)!..LDA B|
00001920: 49 54 4C 4F 45 53 43 2C 58 00 36 21 92 13 AF 20 |ITLOESC,X.6!... |
00001930: 56 49 43 AA 32 31 00 45 21 9C 13 53 54 41 20 56 |VIC.21.E!..STA V|
00001940: 49 43 AA 32 31 00 54 21 A6 13 4C 44 58 20 53 50 |IC.21.T!..LDX SP|
00001950: 52 49 54 45 00 5F 21 B0 13 4C 44 41 20 23 30 00 |RITE._!..LDA #0.|
00001960: 70 21 BA 13 53 54 41 20 53 50 41 4E 47 4C 2C 58 |p!..STA SPANGL,X|
00001970: 00 81 21 C4 13 53 54 41 20 53 50 54 55 52 4E 2C |..!..STA SPTURN,|
00001980: 58 00 94 21 CE 13 53 54 41 20 53 50 41 4E 49 4D |X..!..STA SPANIM|
00001990: 41 54 2C 58 00 A4 21 D8 13 4A 53 52 20 54 45 53 |AT,X..!..JSR TES|
000019A0: 54 43 4F 4D 00 B1 21 E2 13 42 4E 45 20 48 49 44 |TCOM..!..BNE HID|
000019B0: 45 00 B9 21 EC 13 52 54 53 00 BF 21 F6 13 3B 00 |E..!..RTS..!..;.|
000019C0: D3 21 00 14 3B AC 20 42 45 46 45 48 4C 20 53 45 |.!..;. BEFEHL SE|
000019D0: 54 20 AC 00 D9 21 0A 14 3B 00 ED 21 14 14 53 45 |T ...!..;..!..SE|
000019E0: 54 20 4A 53 52 20 A1 53 50 52 49 54 45 00 13 22 |T JSR .SPRITE.."|
000019F0: 1E 14 54 58 41 20 20 20 20 20 20 20 20 20 20 20 |..TXA |
00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A10: 20 20 20 00 1B 22 28 14 41 53 4C 00 2D 22 32 14 | .."(.ASL.-"2.|
00001A20: 53 54 41 20 53 45 54 5A 45 4E 58 AA 31 00 35 22 |STA SETZENX.1.5"|
00001A30: 3C 14 54 41 58 00 3D 22 46 14 49 4E 58 00 4F 22 |<.TAX.="F.INX.O"|
00001A40: 50 14 53 54 58 20 53 45 54 5A 45 4E 59 AA 31 00 |P.STX SETZENY.1.|
00001A50: 55 22 5A 14 3B 00 63 22 64 14 4A 53 52 20 43 4B |U"Z.;.c"d.JSR CK|
00001A60: 43 4F 4D 00 71 22 6E 14 4A 53 52 20 24 42 37 45 |COM.q"n.JSR $B7E|
00001A70: 42 00 87 22 78 14 53 45 54 5A 45 4E 59 20 53 54 |B.."x.SETZENY ST|
00001A80: 58 20 56 49 43 AA 31 00 8D 22 82 14 3B 00 99 22 |X VIC.1.."..;.."|
00001A90: 8C 14 4C 44 41 20 24 31 34 00 AD 22 96 14 53 45 |..LDA $14.."..SE|
00001AA0: 54 5A 45 4E 58 20 53 54 41 20 56 49 43 00 B3 22 |TZENX STA VIC.."|
00001AB0: A0 14 3B 00 BF 22 AA 14 4C 44 58 20 24 31 35 00 |..;.."..LDX $15.|
00001AC0: CC 22 B4 14 43 50 58 20 23 24 30 32 00 DD 22 BE |."..CPX #$02..".|
00001AD0: 14 42 43 43 20 45 52 4C 41 55 42 54 31 00 ED 22 |.BCC ERLAUBT1.."|
00001AE0: C8 14 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 FE 22 |..JMP ILLEGAL.."|
00001AF0: D2 14 45 52 4C 41 55 42 54 31 20 44 45 58 00 0C |..ERLAUBT1 DEX..|
00001B00: 23 DC 14 42 4D 49 20 4E 4F 4D 53 42 00 1B 23 E6 |#..BMI NOMSB..#.|
00001B10: 14 4C 44 58 20 53 50 52 49 54 45 00 2D 23 F0 14 |.LDX SPRITE.-#..|
00001B20: 4C 44 41 20 42 49 54 53 45 54 5A 2C 58 00 3B 23 |LDA BITSETZ,X.;#|
00001B30: FA 14 B0 41 20 56 49 43 AA 31 36 00 4A 23 04 15 |...A VIC.16.J#..|
00001B40: 53 54 41 20 56 49 43 AA 31 36 00 58 23 0E 15 4A |STA VIC.16.X#..J|
00001B50: 4D 50 20 4C 45 53 45 82 00 5E 23 18 15 3B 00 73 |MP LESE..^#..;.s|
00001B60: 23 22 15 4E 4F 4D 53 42 20 4C 44 58 20 53 50 52 |#".NOMSB LDX SPR|
00001B70: 49 54 45 00 86 23 2C 15 4C 44 41 20 42 49 54 4C |ITE..#,.LDA BITL|
00001B80: 4F 45 53 43 2C 58 00 93 23 36 15 AF 20 56 49 43 |OESC,X..#6.. VIC|
00001B90: AA 31 36 00 A2 23 40 15 53 54 41 20 56 49 43 AA |.16..#@.STA VIC.|
00001BA0: 31 36 00 A8 23 4A 15 3B 00 BE 23 54 15 4C 45 53 |16..#J.;..#T.LES|
00001BB0: 45 82 20 4A 53 52 20 54 45 53 54 43 4F 4D 00 CA |E. JSR TESTCOM..|
00001BC0: 23 5E 15 42 4E 45 20 53 45 54 00 D2 23 68 15 52 |#^.BNE SET..#h.R|
00001BD0: 54 53 00 D8 23 72 15 3B 00 EE 23 7C 15 3B AC 20 |TS..#r.;..#|.;. |
00001BE0: 42 45 46 45 48 4C 20 4D 55 4C 54 49 20 AC 00 F4 |BEFEHL MULTI ...|
00001BF0: 23 86 15 3B 00 07 24 90 15 4D 55 4C 54 49 20 4A |#..;..$..MULTI J|
00001C00: 53 52 20 A1 42 59 54 00 16 24 9A 15 53 54 58 20 |SR .BYT..$..STX |
00001C10: 56 49 43 AA 33 37 00 1C 24 A4 15 3B 00 2A 24 AE |VIC.37..$..;.*$.|
00001C20: 15 4A 53 52 20 43 4B 43 4F 4D 00 37 24 B8 15 4A |.JSR CKCOM.7$..J|
00001C30: 53 52 20 A1 42 59 54 00 46 24 C2 15 53 54 58 20 |SR .BYT.F$..STX |
00001C40: 56 49 43 AA 33 38 00 4E 24 CC 15 52 54 53 00 54 |VIC.38.N$..RTS.T|
00001C50: 24 D6 15 3B 00 69 24 E0 15 3B AC 20 42 45 46 45 |$..;.i$..;. BEFE|
00001C60: 48 4C 20 53 49 5A 45 20 AC 00 6F 24 EA 15 3B 00 |HL SIZE ..o$..;.|
00001C70: 84 24 F4 15 53 49 5A 45 20 4A 53 52 20 A1 53 50 |.$..SIZE JSR .SP|
00001C80: 52 49 54 45 00 93 24 FE 15 4C 44 41 20 56 49 43 |RITE..$..LDA VIC|
00001C90: AA 32 39 00 A1 24 08 16 4A 53 52 20 A1 46 4C 41 |.29..$..JSR .FLA|
00001CA0: 47 00 B0 24 12 16 53 54 41 20 56 49 43 AA 32 39 |G..$..STA VIC.29|
00001CB0: 00 B6 24 1C 16 3B 00 C5 24 26 16 4C 44 41 20 56 |..$..;..$&.LDA V|
00001CC0: 49 43 AA 32 33 00 D3 24 30 16 4A 53 52 20 A1 46 |IC.23..$0.JSR .F|
00001CD0: 4C 41 47 00 E2 24 3A 16 53 54 41 20 56 49 43 AA |LAG..$:.STA VIC.|
00001CE0: 32 33 00 E8 24 44 16 3B 00 00 25 4E 16 5A 55 52 |23..$D.;..%N.ZUR|
00001CF0: 55 45 43 4B 20 4A 53 52 20 54 45 53 54 43 4F 4D |UECK JSR TESTCOM|
00001D00: 00 0D 25 58 16 42 4E 45 20 53 49 5A 45 00 15 25 |..%X.BNE SIZE..%|
00001D10: 62 16 52 54 53 00 1B 25 6C 16 3B 00 30 25 76 16 |b.RTS..%l.;.0%v.|
00001D20: 3B AC 20 42 45 46 45 48 4C 20 43 4F 4C B0 20 AC |;. BEFEHL COL. .|
00001D30: 00 36 25 80 16 3B 00 4B 25 8A 16 43 4F 4C B0 20 |.6%..;.K%..COL. |
00001D40: 4A 53 52 20 A1 53 50 52 49 54 45 00 59 25 94 16 |JSR .SPRITE.Y%..|
00001D50: 4A 53 52 20 43 4B 43 4F 4D 00 66 25 9E 16 4A 53 |JSR CKCOM.f%..JS|
00001D60: 52 20 A1 42 59 54 00 6C 25 A8 16 3B 00 74 25 B2 |R .BYT.l%..;.t%.|
00001D70: 16 54 58 41 00 83 25 BC 16 4C 44 58 20 53 50 52 |.TXA..%..LDX SPR|
00001D80: 49 54 45 00 94 25 C6 16 53 54 41 20 56 49 43 AA |ITE..%..STA VIC.|
00001D90: 33 39 2C 58 00 A4 25 D0 16 4A 53 52 20 54 45 53 |39,X..%..JSR TES|
00001DA0: 54 43 4F 4D 00 B1 25 DA 16 42 4E 45 20 43 4F 4C |TCOM..%..BNE COL|
00001DB0: B0 00 B9 25 E4 16 52 54 53 00 BF 25 EE 16 3B 00 |...%..RTS..%..;.|
00001DC0: D5 25 F8 16 3B AC 20 42 45 46 45 48 4C 20 42 4C |.%..;. BEFEHL BL|
00001DD0: 4F 43 4B 20 AC 00 DB 25 02 17 3B 00 F1 25 0C 17 |OCK ...%..;..%..|
00001DE0: 42 4C 4F 43 4B 20 4A 53 52 20 A1 53 50 52 49 54 |BLOCK JSR .SPRIT|
00001DF0: 45 00 FF 25 16 17 4A 53 52 20 43 4B 43 4F 4D 00 |E..%..JSR CKCOM.|
00001E00: 0C 26 20 17 4A 53 52 20 A1 42 59 54 00 18 26 2A |.& .JSR .BYT..&*|
00001E10: 17 43 50 58 20 23 36 34 00 27 26 34 17 42 43 43 |.CPX #64.'&4.BCC|
00001E20: 20 42 4C 4F 43 44 41 00 37 26 3E 17 4A 4D 50 20 | BLOCDA.7&>.JMP |
00001E30: 49 4C 4C 45 47 41 4C 00 46 26 48 17 42 4C 4F 43 |ILLEGAL.F&H.BLOC|
00001E40: 44 41 20 54 58 41 00 4E 26 52 17 43 4C 43 00 5B |DA TXA.N&R.CLC.[|
00001E50: 26 5C 17 41 44 43 20 23 31 32 38 00 6A 26 66 17 |&\.ADC #128.j&f.|
00001E60: 4C 44 58 20 53 50 52 49 54 45 00 7A 26 70 17 53 |LDX SPRITE.z&p.S|
00001E70: 54 41 20 24 43 46 46 38 2C 58 00 8A 26 7A 17 4A |TA $CFF8,X..&z.J|
00001E80: 53 52 20 54 45 53 54 43 4F 4D 00 98 26 84 17 42 |SR TESTCOM..&..B|
00001E90: 4E 45 20 42 4C 4F 43 4B 00 A0 26 8E 17 52 54 53 |NE BLOCK..&..RTS|
00001EA0: 00 A6 26 98 17 3B 00 BC 26 A2 17 3B AC 20 42 45 |..&..;..&..;. BE|
00001EB0: 46 45 48 4C 20 53 50 43 4F 4C 20 AC 00 C2 26 AC |FEHL SPCOL ...&.|
00001EC0: 17 3B 00 D8 26 B6 17 53 50 43 4F 4C 20 4A 53 52 |.;..&..SPCOL JSR|
00001ED0: 20 A1 53 50 52 49 54 45 00 E6 26 C0 17 4A 53 52 | .SPRITE..&..JSR|
00001EE0: 20 43 4B 43 4F 4D 00 F5 26 CA 17 4A 53 52 20 46 | CKCOM..&..JSR F|
00001EF0: 52 4D 4E 55 4D 00 04 27 D4 17 4A 53 52 20 46 41 |RMNUM..'..JSR FA|
00001F00: 43 41 44 52 00 0A 27 DE 17 3B 00 19 27 E8 17 4C |CADR..'..;..'..L|
00001F10: 44 58 20 53 50 52 49 54 45 00 25 27 F2 17 4C 44 |DX SPRITE.%'..LD|
00001F20: 41 20 24 31 34 00 37 27 FC 17 53 54 41 20 53 50 |A $14.7'..STA SP|
00001F30: 52 43 4F 4C 4C 2C 58 00 43 27 06 18 4C 44 41 20 |RCOLL,X.C'..LDA |
00001F40: 24 31 35 00 55 27 10 18 53 54 41 20 53 50 52 43 |$15.U'..STA SPRC|
00001F50: 4F 4C 48 2C 58 00 60 27 1A 18 4C 44 41 20 23 31 |OLH,X.`'..LDA #1|
00001F60: 00 71 27 24 18 53 54 41 20 53 50 52 43 4F 4C 2C |.q'$.STA SPRCOL,|
00001F70: 58 00 77 27 2E 18 3B 00 82 27 38 18 4C 44 41 20 |X.w'..;..'8.LDA |
00001F80: 23 30 00 92 27 42 18 53 54 41 20 49 52 51 46 4C |#0..'B.STA IRQFL|
00001F90: 41 47 00 A2 27 4C 18 4A 53 52 20 54 45 53 54 43 |AG..'L.JSR TESTC|
00001FA0: 4F 4D 00 B0 27 56 18 42 4E 45 20 53 50 43 4F 4C |OM..'V.BNE SPCOL|
00001FB0: 00 B8 27 60 18 52 54 53 00 BE 27 6A 18 3B 00 D6 |..'`.RTS..'j.;..|
00001FC0: 27 74 18 3B AC 20 42 45 46 45 48 4C 20 4E 4F 53 |'t.;. BEFEHL NOS|
00001FD0: 50 43 4F 4C 20 AC 00 DC 27 7E 18 3B 00 F4 27 88 |PCOL ...'~.;..'.|
00001FE0: 18 4E 4F 53 50 43 4F 4C 20 4A 53 52 20 A1 53 50 |.NOSPCOL JSR .SP|
00001FF0: 52 49 54 45 00 FF 27 92 18 4C 44 41 20 23 30 00 |RITE..'..LDA #0.|
00002000: 10 28 9C 18 53 54 41 20 53 50 52 43 4F 4C 2C 58 |.(..STA SPRCOL,X|
00002010: 00 20 28 A6 18 4A 53 52 20 54 45 53 54 43 4F 4D |. (..JSR TESTCOM|
00002020: 00 30 28 B0 18 42 4E 45 20 4E 4F 53 50 43 4F 4C |.0(..BNE NOSPCOL|
00002030: 00 38 28 BA 18 52 54 53 00 3E 28 C4 18 3B 00 55 |.8(..RTS.>(..;.U|
00002040: 28 CE 18 3B AC 20 42 45 46 45 48 4C 20 43 4C 46 |(..;. BEFEHL CLF|
00002050: 4C 41 47 20 AC 00 5B 28 D8 18 3B 00 6D 28 E2 18 |LAG ..[(..;.m(..|
00002060: 43 4C 46 4C 41 47 20 4C 44 41 20 23 30 00 7D 28 |CLFLAG LDA #0.}(|
00002070: EC 18 53 54 41 20 49 52 51 46 4C 41 47 00 85 28 |..STA IRQFLAG..(|
00002080: F6 18 52 54 53 00 8B 28 00 19 3B 00 A0 28 0A 19 |..RTS..(..;..(..|
00002090: 3B AC 20 42 45 46 45 48 4C 20 42 41 43 4B 20 AC |;. BEFEHL BACK .|
000020A0: 00 A6 28 14 19 3B 00 B6 28 1E 19 42 41 43 4B 20 |..(..;..(..BACK |
000020B0: 4C 44 41 20 23 30 00 C6 28 28 19 53 54 41 20 49 |LDA #0..((.STA I|
000020C0: 52 51 46 4C 41 47 00 D4 28 32 19 4A 4D 50 20 24 |RQFLAG..(2.JMP $|
000020D0: 41 38 44 34 00 DA 28 3C 19 3B 00 F0 28 46 19 3B |A8D4..(<.;..(F.;|
000020E0: AC 20 42 45 46 45 48 4C 20 43 48 43 4F 4C 20 AC |. BEFEHL CHCOL .|
000020F0: 00 F6 28 50 19 3B 00 0C 29 5A 19 43 48 43 4F 4C |..(P.;..)Z.CHCOL|
00002100: 20 4A 53 52 20 A1 53 50 52 49 54 45 00 1A 29 64 | JSR .SPRITE..)d|
00002110: 19 4A 53 52 20 43 4B 43 4F 4D 00 29 29 6E 19 4A |.JSR CKCOM.))n.J|
00002120: 53 52 20 46 52 4D 4E 55 4D 00 38 29 78 19 4A 53 |SR FRMNUM.8)x.JS|
00002130: 52 20 46 41 43 41 44 52 00 3E 29 82 19 3B 00 4D |R FACADR.>)..;.M|
00002140: 29 8C 19 4C 44 58 20 53 50 52 49 54 45 00 59 29 |)..LDX SPRITE.Y)|
00002150: 96 19 4C 44 41 20 24 31 34 00 6B 29 A0 19 53 54 |..LDA $14.k)..ST|
00002160: 41 20 43 48 52 43 4F 4C 4C 2C 58 00 77 29 AA 19 |A CHRCOLL,X.w)..|
00002170: 4C 44 41 20 24 31 35 00 89 29 B4 19 53 54 41 20 |LDA $15..)..STA |
00002180: 43 48 52 43 4F 4C 48 2C 58 00 94 29 BE 19 4C 44 |CHRCOLH,X..)..LD|
00002190: 41 20 23 31 00 A5 29 C8 19 53 54 41 20 43 48 52 |A #1..)..STA CHR|
000021A0: 43 4F 4C 2C 58 00 AB 29 D2 19 3B 00 B6 29 DC 19 |COL,X..)..;..)..|
000021B0: 4C 44 41 20 23 30 00 C6 29 E6 19 53 54 41 20 49 |LDA #0..)..STA I|
000021C0: 52 51 46 4C 41 47 00 D6 29 F0 19 4A 53 52 20 54 |RQFLAG..)..JSR T|
000021D0: 45 53 54 43 4F 4D 00 E4 29 FA 19 42 4E 45 20 43 |ESTCOM..)..BNE C|
000021E0: 48 43 4F 4C 00 EC 29 04 1A 52 54 53 00 F2 29 0E |HCOL..)..RTS..).|
000021F0: 1A 3B 00 0A 2A 18 1A 3B AC 20 42 45 46 45 48 4C |.;..*..;. BEFEHL|
00002200: 20 4E 4F 43 48 43 4F 4C 20 AC 00 10 2A 22 1A 3B | NOCHCOL ...*".;|
00002210: 00 28 2A 2C 1A 4E 4F 43 48 43 4F 4C 20 4A 53 52 |.(*,.NOCHCOL JSR|
00002220: 20 A1 53 50 52 49 54 45 00 33 2A 36 1A 4C 44 41 | .SPRITE.3*6.LDA|
00002230: 20 23 30 00 44 2A 40 1A 53 54 41 20 43 48 52 43 | #0.D*@.STA CHRC|
00002240: 4F 4C 2C 58 00 54 2A 4A 1A 4A 53 52 20 54 45 53 |OL,X.T*J.JSR TES|
00002250: 54 43 4F 4D 00 64 2A 54 1A 42 4E 45 20 4E 4F 43 |TCOM.d*T.BNE NOC|
00002260: 48 43 4F 4C 00 6C 2A 5E 1A 52 54 53 00 72 2A 68 |HCOL.l*^.RTS.r*h|
00002270: 1A 3B 00 89 2A 72 1A 3B AC 20 42 45 46 45 48 4C |.;..*r.;. BEFEHL|
00002280: 20 4E 4F 4D 4F 56 45 20 AC 00 8F 2A 7C 1A 3B 00 | NOMOVE ...*|.;.|
00002290: A6 2A 86 1A 4E 4F 4D 4F 56 45 20 4A 53 52 20 A1 |.*..NOMOVE JSR .|
000022A0: 53 50 52 49 54 45 00 B1 2A 90 1A 4C 44 41 20 23 |SPRITE..*..LDA #|
000022B0: 30 00 C2 2A 9A 1A 53 54 41 20 53 50 41 4E 47 4C |0..*..STA SPANGL|
000022C0: 2C 58 00 D2 2A A4 1A 4A 53 52 20 54 45 53 54 43 |,X..*..JSR TESTC|
000022D0: 4F 4D 00 E1 2A AE 1A 42 4E 45 20 4E 4F 4D 4F 56 |OM..*..BNE NOMOV|
000022E0: 45 00 E9 2A B8 1A 52 54 53 00 EF 2A C2 1A 3B 00 |E..*..RTS..*..;.|
000022F0: 04 2B CC 1A 3B AC 20 42 45 46 45 48 4C 20 4D 4F |.+..;. BEFEHL MO|
00002300: 56 45 20 AC 00 0A 2B D6 1A 3B 00 1F 2B E0 1A 4D |VE ...+..;..+..M|
00002310: 4F 56 45 20 4A 53 52 20 A1 53 50 52 49 54 45 00 |OVE JSR .SPRITE.|
00002320: 2F 2B EA 1A 4A 53 52 20 A1 57 49 4E 4B 45 4C 00 |/+..JSR .WINKEL.|
00002330: 35 2B F4 1A 3B 00 43 2B FE 1A 4A 53 52 20 43 4B |5+..;.C+..JSR CK|
00002340: 43 4F 4D 00 50 2B 08 1B 4A 53 52 20 A1 42 59 54 |COM.P+..JSR .BYT|
00002350: 00 58 2B 12 1B 54 58 41 00 69 2B 1C 1B 42 50 4C |.X+..TXA.i+..BPL|
00002360: 20 45 52 4C 41 55 42 32 35 00 79 2B 26 1B 4A 4D | ERLAUB25.y+&.JM|
00002370: 50 20 49 4C 4C 45 47 41 4C 00 7F 2B 30 1B 3B 00 |P ILLEGAL..+0.;.|
00002380: 97 2B 3A 1B 45 52 4C 41 55 42 32 35 20 4C 44 58 |.+:.ERLAUB25 LDX|
00002390: 20 53 50 52 49 54 45 00 A6 2B 44 1B 53 54 41 20 | SPRITE..+D.STA |
000023A0: 53 43 48 52 2C 58 00 AC 2B 4E 1B 3B 00 B4 2B 58 |SCHR,X..+N.;..+X|
000023B0: 1B 53 45 49 00 C0 2B 62 1B 4C 44 41 20 24 31 34 |.SEI..+b.LDA $14|
000023C0: 00 CF 2B 6C 1B 53 54 41 20 41 4E 47 4C 2C 58 00 |..+l.STA ANGL,X.|
000023D0: DC 2B 76 1B 53 54 41 20 57 49 4E 4C 00 E8 2B 80 |.+v.STA WINL..+.|
000023E0: 1B 4C 44 41 20 24 31 35 00 F7 2B 8A 1B 53 54 41 |.LDA $15..+..STA|
000023F0: 20 41 4E 47 48 2C 58 00 04 2C 94 1B 53 54 41 20 | ANGH,X..,..STA |
00002400: 57 49 4E 48 00 16 2C 9E 1B 4A 53 52 20 53 45 54 |WINH..,..JSR SET|
00002410: 57 49 4E 4B 45 4C 00 1E 2C A8 1B 43 4C 49 00 24 |WINKEL..,..CLI.$|
00002420: 2C B2 1B 3B 00 32 2C BC 1B 4A 53 52 20 43 4B 43 |,..;.2,..JSR CKC|
00002430: 4F 4D 00 3F 2C C6 1B 4A 53 52 20 A1 42 59 54 00 |OM.?,..JSR .BYT.|
00002440: 45 2C D0 1B 3B 00 4D 2C DA 1B 54 58 41 00 5C 2C |E,..;.M,..TXA.\,|
00002450: E4 1B 4C 44 58 20 53 50 52 49 54 45 00 6C 2C EE |..LDX SPRITE.l,.|
00002460: 1B 53 54 41 20 53 50 45 45 44 2C 58 00 7E 2C F8 |.STA SPEED,X.~,.|
00002470: 1B 53 54 41 20 53 50 45 45 44 5A 57 2C 58 00 84 |.STA SPEEDZW,X..|
00002480: 2C 02 1C 3B 00 8F 2C 0C 1C 4C 44 41 20 23 30 00 |,..;..,..LDA #0.|
00002490: A0 2C 16 1C 53 54 41 20 5A 45 52 4F 46 4C 2C 58 |.,..STA ZEROFL,X|
000024A0: 00 AE 2C 20 1C 4A 53 52 20 43 4B 43 4F 4D 00 BD |.., .JSR CKCOM..|
000024B0: 2C 2A 1C 4A 53 52 20 46 52 4D 4E 55 4D 00 CC 2C |,*.JSR FRMNUM..,|
000024C0: 34 1C 4A 53 52 20 46 41 43 41 44 52 00 D2 2C 3E |4.JSR FACADR..,>|
000024D0: 1C 3B 00 E1 2C 48 1C 4C 44 58 20 53 50 52 49 54 |.;..,H.LDX SPRIT|
000024E0: 45 00 ED 2C 52 1C 4C 44 41 20 24 31 34 00 00 2D |E..,R.LDA $14..-|
000024F0: 5C 1C 53 54 41 20 53 43 48 52 49 54 54 4C 2C 58 |\.STA SCHRITTL,X|
00002500: 00 0C 2D 66 1C 4C 44 41 20 24 31 35 00 1F 2D 70 |..-f.LDA $15..-p|
00002510: 1C 53 54 41 20 53 43 48 52 49 54 54 48 2C 58 00 |.STA SCHRITTH,X.|
00002520: 25 2D 7A 1C 3B 00 31 2D 84 1C 4C 44 41 20 24 31 |%-z.;.1-..LDA $1|
00002530: 34 00 41 2D 8E 1C 42 4E 45 20 44 45 43 53 43 48 |4.A-..BNE DECSCH|
00002540: 52 00 4D 2D 98 1C 4C 44 41 20 24 31 35 00 5D 2D |R.M-..LDA $15.]-|
00002550: A2 1C 42 4E 45 20 44 45 43 53 43 48 52 00 68 2D |..BNE DECSCHR.h-|
00002560: AC 1C 4C 44 41 20 23 31 00 79 2D B6 1C 53 54 41 |..LDA #1.y-..STA|
00002570: 20 5A 45 52 4F 46 4C 2C 58 00 7F 2D C0 1C 3B 00 | ZEROFL,X..-..;.|
00002580: 9A 2D CA 1C 44 45 43 53 43 48 52 20 4C 44 41 20 |.-..DECSCHR LDA |
00002590: 53 43 48 52 49 54 54 4C 2C 58 00 A9 2D D4 1C 42 |SCHRITTL,X..-..B|
000025A0: 4E 45 20 44 45 43 4C 4F 57 00 BC 2D DE 1C 44 45 |NE DECLOW..-..DE|
000025B0: 43 20 53 43 48 52 49 54 54 48 2C 58 00 D6 2D E8 |C SCHRITTH,X..-.|
000025C0: 1C 44 45 43 4C 4F 57 20 44 45 43 20 53 43 48 52 |.DECLOW DEC SCHR|
000025D0: 49 54 54 4C 2C 58 00 E8 2D F2 1C 53 45 54 49 52 |ITTL,X..-..SETIR|
000025E0: 51 20 4C 44 41 20 23 31 00 F9 2D FC 1C 53 54 41 |Q LDA #1..-..STA|
000025F0: 20 53 50 41 4E 47 4C 2C 58 00 FF 2D 06 1D 3B 00 | SPANGL,X..-..;.|
00002600: 1B 2E 10 1D 4A 53 52 20 43 4B 43 4F 4D 20 20 20 |....JSR CKCOM |
00002610: 20 20 3B 41 4E 48 41 4C 54 45 4E 00 28 2E 1A 1D | ;ANHALTEN.(...|
00002620: 4A 53 52 20 A1 42 59 54 00 33 2E 24 1D 43 50 58 |JSR .BYT.3.$.CPX|
00002630: 20 23 30 00 40 2E 2E 1D 42 45 51 20 4D 4F 56 80 | #0.@...BEQ MOV.|
00002640: 00 46 2E 38 1D 3B 00 55 2E 42 1D 4C 44 58 20 53 |.F.8.;.U.B.LDX S|
00002650: 50 52 49 54 45 00 66 2E 47 1D 4C 44 41 20 5A 45 |PRITE.f.G.LDA ZE|
00002660: 52 4F 46 4C 2C 58 00 73 2E 48 1D 42 45 51 20 4D |ROFL,X.s.H.BEQ M|
00002670: 4F 56 80 00 87 2E 4C 1D 53 92 20 4C 44 41 20 53 |OV....L.S. LDA S|
00002680: 50 41 4E 47 4C 2C 58 00 92 2E 56 1D 42 4E 45 20 |PANGL,X...V.BNE |
00002690: 53 92 00 98 2E 74 1D 3B 00 AD 2E 7E 1D 4D 4F 56 |S....t.;...~.MOV|
000026A0: 80 20 4A 53 52 20 54 45 53 54 43 4F 4D 00 BD 2E |. JSR TESTCOM...|
000026B0: 88 1D 42 45 51 20 4D 4F 56 45 52 45 54 00 CA 2E |..BEQ MOVERET...|
000026C0: 92 1D 4A 4D 50 20 4D 4F 56 45 00 DA 2E 9C 1D 4D |..JMP MOVE.....M|
000026D0: 4F 56 45 52 45 54 20 52 54 53 00 E0 2E A6 1D 3B |OVERET RTS.....;|
000026E0: 00 03 2F B0 1D 3B AC 20 48 4F 4C 54 20 57 49 4E |../..;. HOLT WIN|
000026F0: 4B 45 4C 20 41 55 53 20 42 41 53 49 43 54 45 58 |KEL AUS BASICTEX|
00002700: 54 20 AC 00 09 2F BA 1D 3B 00 1F 2F C4 1D A1 57 |T .../..;../...W|
00002710: 49 4E 4B 45 4C 20 4A 53 52 20 43 4B 43 4F 4D 00 |INKEL JSR CKCOM.|
00002720: 2E 2F CE 1D 4A 53 52 20 46 52 4D 4E 55 4D 00 34 |./..JSR FRMNUM.4|
00002730: 2F D8 1D 3B 00 40 2F E2 1D 4C 44 41 20 24 36 36 |/..;.@/..LDA $66|
00002740: 00 48 2F EC 1D 50 48 41 00 53 2F F6 1D 4C 44 41 |.H/..PHA.S/..LDA|
00002750: 20 23 30 00 5F 2F 00 1E 53 54 41 20 24 36 36 00 | #0._/..STA $66.|
00002760: 6E 2F 0A 1E 4A 53 52 20 46 41 43 41 44 52 00 74 |n/..JSR FACADR.t|
00002770: 2F 14 1E 3B 00 89 2F 1E 1E 41 4E 47 4C 45 49 43 |/..;../..ANGLEIC|
00002780: 48 20 4C 44 41 20 24 31 35 00 97 2F 28 1E 42 45 |H LDA $15../(.BE|
00002790: 51 20 41 4E 47 87 59 00 A2 2F 32 1E 43 4D 50 20 |Q ANG.Y../2.CMP |
000027A0: 23 31 00 AF 2F 3C 1E 42 4E 45 20 A8 33 36 30 00 |#1../<.BNE .360.|
000027B0: BB 2F 46 1E 4C 44 41 20 24 31 34 00 C9 2F 50 1E |./F.LDA $14../P.|
000027C0: 43 4D 50 20 23 B3 33 36 30 00 D7 2F 5A 1E 42 43 |CMP #.360../Z.BC|
000027D0: 43 20 41 4E 47 87 59 00 DD 2F 64 1E 3B 00 EE 2F |C ANG.Y../d.;../|
000027E0: 6E 1E A8 33 36 30 20 4C 44 41 20 24 31 34 00 F6 |n..360 LDA $14..|
000027F0: 2F 78 1E 53 45 43 00 04 30 82 1E 53 42 43 20 23 |/x.SEC..0..SBC #|
00002800: B3 33 36 30 00 12 30 8C 1E 42 43 53 20 4E 4F 43 |.360..0..BCS NOC|
00002810: 41 52 00 1E 30 96 1E 44 45 43 20 24 31 35 00 30 |AR..0..DEC $15.0|
00002820: 30 A0 1E 4E 4F 43 41 52 20 53 54 41 20 24 31 34 |0..NOCAR STA $14|
00002830: 00 3C 30 AA 1E 4C 44 41 20 24 31 35 00 44 30 B4 |.<0..LDA $15.D0.|
00002840: 1E 53 45 43 00 52 30 BE 1E 53 42 43 20 23 B1 33 |.SEC.R0..SBC #.3|
00002850: 36 30 00 5E 30 C8 1E 53 54 41 20 24 31 35 00 6F |60.^0..STA $15.o|
00002860: 30 D2 1E 4A 4D 50 20 41 4E 47 4C 45 49 43 48 00 |0..JMP ANGLEICH.|
00002870: 75 30 DC 1E 3B 00 83 30 E6 1E 41 4E 47 87 59 20 |u0..;..0..ANG.Y |
00002880: 50 4C 41 00 92 30 F0 1E 42 50 4C 20 52 45 43 48 |PLA..0..BPL RECH|
00002890: 4E 45 00 A0 30 FA 1E 4C 44 41 20 23 B3 33 36 30 |NE..0..LDA #.360|
000028A0: 00 A8 30 04 1F 53 45 43 00 B4 30 0E 1F 53 42 43 |..0..SEC..0..SBC|
000028B0: 20 24 31 34 00 C0 30 18 1F 53 54 41 20 24 31 34 | $14..0..STA $14|
000028C0: 00 CC 30 22 1F 42 43 53 20 4E 4F 43 00 D8 30 2C |..0".BCS NOC..0,|
000028D0: 1F 49 4E 43 20 24 31 35 00 EA 30 36 1F 4E 4F 43 |.INC $15..06.NOC|
000028E0: 20 4C 44 41 20 23 B1 33 36 30 00 F2 30 40 1F 53 | LDA #.360..0@.S|
000028F0: 45 43 00 FE 30 4A 1F 53 42 43 20 24 31 35 00 0A |EC..0J.SBC $15..|
00002900: 31 54 1F 53 54 41 20 24 31 35 00 19 31 5E 1F 52 |1T.STA $15..1^.R|
00002910: 45 43 48 4E 45 20 52 54 53 00 1F 31 68 1F 3B 00 |ECHNE RTS..1h.;.|
00002920: 3A 31 72 1F 3B AC 20 52 45 43 48 4E 45 54 20 57 |:1r.;. RECHNET W|
00002930: 49 4E 4B 45 4C 20 55 4D 20 AC 00 40 31 7C 1F 3B |INKEL UM ..@1|.;|
00002940: 00 5C 31 86 1F 53 45 54 57 49 4E 4B 45 4C 20 4C |.\1..SETWINKEL L|
00002950: 44 41 20 23 B1 57 49 4E 4B 45 4C 58 00 6C 31 90 |DA #.WINKELX.l1.|
00002960: 1F 53 54 41 20 4C 49 45 53 58 AA 32 00 7E 31 9A |.STA LIESX.2.~1.|
00002970: 1F 4C 44 41 20 23 B1 57 49 4E 4B 45 4C 59 00 8E |.LDA #.WINKELY..|
00002980: 31 A4 1F 53 54 41 20 4C 49 45 53 59 AA 32 00 94 |1..STA LIESY.2..|
00002990: 31 AE 1F 3B 00 A1 31 B8 1F 4C 44 41 20 57 49 4E |1..;..1..LDA WIN|
000029A0: 48 00 B0 31 C2 1F 42 45 51 20 48 4F 4C 44 8B 46 |H..1..BEQ HOLD.F|
000029B0: 00 C0 31 CC 1F 49 4E 43 20 4C 49 45 53 58 AA 32 |..1..INC LIESX.2|
000029C0: 00 D0 31 D6 1F 49 4E 43 20 4C 49 45 53 59 AA 32 |..1..INC LIESY.2|
000029D0: 00 D6 31 E0 1F 3B 00 EA 31 EA 1F 48 4F 4C 44 8B |..1..;..1..HOLD.|
000029E0: 46 20 4C 44 58 20 57 49 4E 4C 00 02 32 F4 1F 4C |F LDX WINL..2..L|
000029F0: 49 45 53 58 20 4C 44 41 20 57 49 4E 4B 45 4C 58 |IESX LDA WINKELX|
00002A00: 2C 58 00 0A 32 FE 1F 50 48 41 00 22 32 08 20 4C |,X..2..PHA."2. L|
00002A10: 49 45 53 59 20 4C 44 41 20 57 49 4E 4B 45 4C 59 |IESY LDA WINKELY|
00002A20: 2C 58 00 31 32 12 20 4C 44 58 20 53 50 52 49 54 |,X.12. LDX SPRIT|
00002A30: 45 00 40 32 1C 20 53 54 41 20 44 8B 46 59 2C 58 |E.@2. STA D.FY,X|
00002A40: 00 48 32 26 20 50 4C 41 00 57 32 30 20 53 54 41 |.H2& PLA.W20 STA|
00002A50: 20 44 8B 46 58 2C 58 00 5D 32 3A 20 3B 00 6C 32 | D.FX,X.]2: ;.l2|
00002A60: 44 20 4C 44 41 20 53 43 48 52 2C 58 00 7C 32 4E |D LDA SCHR,X.|2N|
00002A70: 20 53 54 41 20 49 4E 43 52 58 2C 58 00 8C 32 58 | STA INCRX,X..2X|
00002A80: 20 53 54 41 20 49 4E 43 52 59 2C 58 00 97 32 62 | STA INCRY,X..2b|
00002A90: 20 4C 44 41 20 23 30 00 A8 32 6C 20 53 54 41 20 | LDA #0..2l STA |
00002AA0: 41 49 4E 43 52 58 2C 58 00 B9 32 76 20 53 54 41 |AINCRX,X..2v STA|
00002AB0: 20 41 49 4E 43 52 59 2C 58 00 BF 32 80 20 3B 00 | AINCRY,X..2. ;.|
00002AC0: CE 32 8A 20 4C 44 41 20 44 8B 46 58 2C 58 00 DE |.2. LDA D.FX,X..|
00002AD0: 32 94 20 42 50 4C 20 54 45 53 54 44 8B 59 00 EB |2. BPL TESTD.Y..|
00002AE0: 32 9E 20 4C 44 41 20 23 24 30 30 00 F3 32 A8 20 |2. LDA #$00..2. |
00002AF0: 53 45 43 00 02 33 B2 20 53 42 43 20 53 43 48 52 |SEC..3. SBC SCHR|
00002B00: 2C 58 00 12 33 BC 20 53 54 41 20 49 4E 43 52 58 |,X..3. STA INCRX|
00002B10: 2C 58 00 18 33 C6 20 3B 00 2F 33 D0 20 54 45 53 |,X..3. ;./3. TES|
00002B20: 54 44 8B 59 20 4C 44 41 20 44 8B 46 59 2C 58 00 |TD.Y LDA D.FY,X.|
00002B30: 41 33 DA 20 42 50 4C 20 54 45 53 54 53 54 45 49 |A3. BPL TESTSTEI|
00002B40: 47 00 4E 33 E4 20 4C 44 41 20 23 24 30 30 00 56 |G.N3. LDA #$00.V|
00002B50: 33 EE 20 53 45 43 00 65 33 F8 20 53 42 43 20 53 |3. SEC.e3. SBC S|
00002B60: 43 48 52 2C 58 00 75 33 02 21 53 54 41 20 49 4E |CHR,X.u3.!STA IN|
00002B70: 43 52 59 2C 58 00 7B 33 0C 21 3B 00 94 33 16 21 |CRY,X.{3.!;..3.!|
00002B80: 54 45 53 54 53 54 45 49 47 20 4C 44 41 20 44 8B |TESTSTEIG LDA D.|
00002B90: 46 58 2C 58 00 A1 33 20 21 42 50 4C 20 4C 41 44 |FX,X..3 !BPL LAD|
00002BA0: 59 00 A7 33 2A 21 3B 00 B4 33 34 21 4C 44 41 20 |Y..3*!;..34!LDA |
00002BB0: 23 24 30 30 00 BC 33 3E 21 53 45 43 00 CB 33 48 |#$00..3>!SEC..3H|
00002BC0: 21 53 42 43 20 44 8B 46 58 2C 58 00 DA 33 52 21 |!SBC D.FX,X..3R!|
00002BD0: 53 54 41 20 44 8B 46 58 2C 58 00 E0 33 5C 21 3B |STA D.FX,X..3\!;|
00002BE0: 00 F4 33 66 21 4C 41 44 59 20 4C 44 41 20 44 8B |..3f!LADY LDA D.|
00002BF0: 46 59 2C 58 00 04 34 70 21 42 50 4C 20 43 48 45 |FY,X..4p!BPL CHE|
00002C00: 43 4B 44 8B 00 0A 34 7A 21 3B 00 17 34 84 21 4C |CKD...4z!;..4.!L|
00002C10: 44 41 20 23 24 30 30 00 1F 34 8E 21 53 45 43 00 |DA #$00..4.!SEC.|
00002C20: 2E 34 98 21 53 42 43 20 44 8B 46 59 2C 58 00 3D |.4.!SBC D.FY,X.=|
00002C30: 34 A2 21 53 54 41 20 44 8B 46 59 2C 58 00 43 34 |4.!STA D.FY,X.C4|
00002C40: AC 21 3B 00 5A 34 B6 21 43 48 45 43 4B 44 8B 20 |.!;.Z4.!CHECKD. |
00002C50: 43 4D 50 20 44 8B 46 58 2C 58 00 68 34 C0 21 42 |CMP D.FX,X.h4.!B|
00002C60: 43 43 20 80 41 4E 47 4C 00 6E 34 CA 21 3B 00 7D |CC .ANGL.n4.!;.}|
00002C70: 34 D4 21 4C 44 41 20 44 8B 46 58 2C 58 00 85 34 |4.!LDA D.FX,X..4|
00002C80: DE 21 54 41 59 00 94 34 E8 21 4C 44 41 20 44 8B |.!TAY..4.!LDA D.|
00002C90: 46 59 2C 58 00 A3 34 F2 21 53 54 41 20 44 8B 46 |FY,X..4.!STA D.F|
00002CA0: 58 2C 58 00 AB 34 FC 21 54 59 41 00 BA 34 06 22 |X,X..4.!TYA..4."|
00002CB0: 53 54 41 20 44 8B 46 59 2C 58 00 C0 34 10 22 3B |STA D.FY,X..4.";|
00002CC0: 00 D0 34 1A 22 4C 44 41 20 49 4E 43 52 58 2C 58 |..4."LDA INCRX,X|
00002CD0: 00 E1 34 24 22 53 54 41 20 41 49 4E 43 52 59 2C |..4$"STA AINCRY,|
00002CE0: 58 00 F1 34 2E 22 4C 44 41 20 49 4E 43 52 59 2C |X..4."LDA INCRY,|
00002CF0: 58 00 02 35 38 22 53 54 41 20 41 49 4E 43 52 58 |X..58"STA AINCRX|
00002D00: 2C 58 00 0D 35 42 22 4C 44 41 20 23 30 00 1D 35 |,X..5B"LDA #0..5|
00002D10: 4C 22 53 54 41 20 49 4E 43 52 58 2C 58 00 2D 35 |L"STA INCRX,X.-5|
00002D20: 56 22 53 54 41 20 49 4E 43 52 59 2C 58 00 33 35 |V"STA INCRY,X.35|
00002D30: 60 22 3B 00 48 35 6A 22 80 41 4E 47 4C 20 4C 44 |`";.H5j".ANGL LD|
00002D40: 41 20 44 8B 46 58 2C 58 00 50 35 74 22 4C 53 52 |A D.FX,X.P5t"LSR|
00002D50: 00 61 35 7E 22 53 54 41 20 41 50 50 52 4F 58 2C |.a5~"STA APPROX,|
00002D60: 58 00 67 35 88 22 3B 00 6F 35 92 22 52 54 53 00 |X.g5.";.o5."RTS.|
00002D70: 75 35 9C 22 3B 00 8A 35 A6 22 3B AC 20 42 45 46 |u5.";..5.";. BEF|
00002D80: 45 48 4C 20 54 55 52 4E 20 AC 00 90 35 B0 22 3B |EHL TURN ...5.";|
00002D90: 00 A5 35 BA 22 54 55 52 4E 20 4A 53 52 20 A1 53 |..5."TURN JSR .S|
00002DA0: 50 52 49 54 45 00 B5 35 C4 22 4A 53 52 20 A1 57 |PRITE..5."JSR .W|
00002DB0: 49 4E 4B 45 4C 00 BB 35 CE 22 3B 00 CA 35 D8 22 |INKEL..5.";..5."|
00002DC0: 4C 44 58 20 53 50 52 49 54 45 00 D6 35 E2 22 4C |LDX SPRITE..5."L|
00002DD0: 44 41 20 24 31 34 00 E7 35 EC 22 53 54 41 20 54 |DA $14..5."STA T|
00002DE0: 55 52 4E 57 4C 2C 58 00 F3 35 F6 22 4C 44 41 20 |URNWL,X..5."LDA |
00002DF0: 24 31 35 00 04 36 00 23 53 54 41 20 54 55 52 4E |$15..6.#STA TURN|
00002E00: 57 48 2C 58 00 0A 36 0A 23 3B 00 18 36 14 23 4A |WH,X..6.#;..6.#J|
00002E10: 53 52 20 43 4B 43 4F 4D 00 27 36 1E 23 4A 53 52 |SR CKCOM.'6.#JSR|
00002E20: 20 46 52 4D 4E 55 4D 00 36 36 28 23 4A 53 52 20 | FRMNUM.66(#JSR |
00002E30: 46 41 43 41 44 52 00 45 36 32 23 4C 44 58 20 53 |FACADR.E62#LDX S|
00002E40: 50 52 49 54 45 00 51 36 3C 23 4C 44 41 20 24 31 |PRITE.Q6<#LDA $1|
00002E50: 34 00 61 36 46 23 53 54 41 20 54 55 52 4E 4C 2C |4.a6F#STA TURNL,|
00002E60: 58 00 72 36 50 23 53 54 41 20 54 55 52 4E 4C 5A |X.r6P#STA TURNLZ|
00002E70: 2C 58 00 7E 36 5A 23 4C 44 41 20 24 31 35 00 8E |,X.~6Z#LDA $15..|
00002E80: 36 64 23 53 54 41 20 54 55 52 4E 48 2C 58 00 9F |6d#STA TURNH,X..|
00002E90: 36 6E 23 53 54 41 20 54 55 52 4E 48 5A 2C 58 00 |6n#STA TURNHZ,X.|
00002EA0: A5 36 78 23 3B 00 B3 36 82 23 4A 53 52 20 43 4B |.6x#;..6.#JSR CK|
00002EB0: 43 4F 4D 00 C0 36 8C 23 4A 53 52 20 A1 42 59 54 |COM..6.#JSR .BYT|
00002EC0: 00 C8 36 96 23 54 58 41 00 D7 36 A0 23 4C 44 58 |..6.#TXA..6.#LDX|
00002ED0: 20 53 50 52 49 54 45 00 EA 36 AA 23 53 54 41 20 | SPRITE..6.#STA |
00002EE0: 54 55 52 4E 5A 41 48 4C 2C 58 00 F0 36 B4 23 3B |TURNZAHL,X..6.#;|
00002EF0: 00 FB 36 BE 23 4C 44 41 20 23 31 00 0C 37 C8 23 |..6.#LDA #1..7.#|
00002F00: 53 54 41 20 53 50 54 55 52 4E 2C 58 00 1C 37 D2 |STA SPTURN,X..7.|
00002F10: 23 4A 53 52 20 54 45 53 54 43 4F 4D 00 29 37 DC |#JSR TESTCOM.)7.|
00002F20: 23 42 4E 45 20 54 55 52 4E 00 31 37 E6 23 52 54 |#BNE TURN.17.#RT|
00002F30: 53 00 37 37 F0 23 3B 00 4C 37 FA 23 3B AC 20 42 |S.77.#;.L7.#;. B|
00002F40: 45 46 45 48 4C 20 A8 55 52 4E 20 AC 00 52 37 04 |EFEHL .URN ..R7.|
00002F50: 24 3B 00 67 37 0E 24 A8 55 52 4E 20 4A 53 52 20 |$;.g7.$.URN JSR |
00002F60: A1 53 50 52 49 54 45 00 76 37 18 24 4C 44 58 20 |.SPRITE.v7.$LDX |
00002F70: 53 50 52 49 54 45 00 81 37 22 24 4C 44 41 20 23 |SPRITE..7"$LDA #|
00002F80: 30 00 92 37 2C 24 53 54 41 20 53 50 54 55 52 4E |0..7,$STA SPTURN|
00002F90: 2C 58 00 A2 37 36 24 4A 53 52 20 54 45 53 54 43 |,X..76$JSR TESTC|
00002FA0: 4F 4D 00 AF 37 40 24 42 4E 45 20 A8 55 52 4E 00 |OM..7@$BNE .URN.|
00002FB0: B7 37 4A 24 52 54 53 00 BD 37 54 24 3B 00 D5 37 |.7J$RTS..7T$;..7|
00002FC0: 5E 24 3B AC 20 42 45 46 45 48 4C 20 41 4E 49 4D |^$;. BEFEHL ANIM|
00002FD0: 41 54 45 20 AC 00 DB 37 68 24 3B 00 F3 37 72 24 |ATE ...7h$;..7r$|
00002FE0: 41 4E 49 4D 41 54 45 20 4A 53 52 20 A1 53 50 52 |ANIMATE JSR .SPR|
00002FF0: 49 54 45 00 F9 37 7C 24 3B 00 07 38 86 24 4A 53 |ITE..7|$;..8.$JS|
00003000: 52 20 43 4B 43 4F 4D 00 14 38 90 24 4A 53 52 20 |R CKCOM..8.$JSR |
00003010: A1 42 59 54 00 20 38 9A 24 43 50 58 20 23 36 34 |.BYT. 8.$CPX #64|
00003020: 00 2E 38 A4 24 42 43 43 20 4E 4F 49 4C 4C 00 3E |..8.$BCC NOILL.>|
00003030: 38 AE 24 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 4C |8.$JMP ILLEGAL.L|
00003040: 38 B8 24 4E 4F 49 4C 4C 20 54 58 41 00 54 38 C2 |8.$NOILL TXA.T8.|
00003050: 24 43 4C 43 00 61 38 CC 24 41 44 43 20 23 31 32 |$CLC.a8.$ADC #12|
00003060: 38 00 70 38 D6 24 4C 44 58 20 53 50 52 49 54 45 |8.p8.$LDX SPRITE|
00003070: 00 83 38 E0 24 53 54 41 20 42 4C 4F 43 4B 41 4E |..8.$STA BLOCKAN|
00003080: 46 2C 58 00 93 38 EA 24 53 54 41 20 24 43 46 46 |F,X..8.$STA $CFF|
00003090: 38 2C 58 00 99 38 F4 24 3B 00 A7 38 FE 24 4A 53 |8,X..8.$;..8.$JS|
000030A0: 52 20 43 4B 43 4F 4D 00 B4 38 08 25 4A 53 52 20 |R CKCOM..8.%JSR |
000030B0: A1 42 59 54 00 BC 38 12 25 54 58 41 00 CB 38 1C |.BYT..8.%TXA..8.|
000030C0: 25 4C 44 58 20 53 50 52 49 54 45 00 DC 38 26 25 |%LDX SPRITE..8&%|
000030D0: 53 54 41 20 42 4C 5A 41 48 4C 2C 58 00 ED 38 30 |STA BLZAHL,X..80|
000030E0: 25 53 54 41 20 5A 41 48 4C 5A 57 2C 58 00 F3 38 |%STA ZAHLZW,X..8|
000030F0: 3A 25 3B 00 01 39 44 25 4A 53 52 20 43 4B 43 4F |:%;..9D%JSR CKCO|
00003100: 4D 00 0E 39 4E 25 4A 53 52 20 A1 42 59 54 00 16 |M..9N%JSR .BYT..|
00003110: 39 58 25 54 58 41 00 25 39 62 25 4C 44 58 20 53 |9X%TXA.%9b%LDX S|
00003120: 50 52 49 54 45 00 38 39 6C 25 53 54 41 20 53 43 |PRITE.89l%STA SC|
00003130: 48 52 5A 41 48 4C 2C 58 00 49 39 76 25 53 54 41 |HRZAHL,X.I9v%STA|
00003140: 20 53 43 48 52 5A 57 2C 58 00 4F 39 80 25 3B 00 | SCHRZW,X.O9.%;.|
00003150: 5A 39 8A 25 4C 44 41 20 23 31 00 6D 39 94 25 53 |Z9.%LDA #1.m9.%S|
00003160: 54 41 20 53 50 41 4E 49 4D 41 54 2C 58 00 7D 39 |TA SPANIMAT,X.}9|
00003170: 9E 25 4A 53 52 20 54 45 53 54 43 4F 4D 00 8D 39 |.%JSR TESTCOM..9|
00003180: A8 25 42 4E 45 20 41 4E 49 4D 41 54 45 00 95 39 |.%BNE ANIMATE..9|
00003190: B2 25 52 54 53 00 9B 39 BC 25 3B 00 B5 39 C6 25 |.%RTS..9.%;..9.%|
000031A0: 3B AC 20 42 45 46 45 48 4C 20 4E 4F 41 4E 49 4D |;. BEFEHL NOANIM|
000031B0: 41 54 45 20 AC 00 BB 39 D0 25 3B 00 D5 39 DA 25 |ATE ...9.%;..9.%|
000031C0: 4E 4F 41 4E 49 4D 41 54 45 20 4A 53 52 20 A1 53 |NOANIMATE JSR .S|
000031D0: 50 52 49 54 45 00 E0 39 E4 25 4C 44 41 20 23 30 |PRITE..9.%LDA #0|
000031E0: 00 F3 39 EE 25 53 54 41 20 53 50 41 4E 49 4D 41 |..9.%STA SPANIMA|
000031F0: 54 2C 58 00 03 3A F8 25 4A 53 52 20 54 45 53 54 |T,X..:.%JSR TEST|
00003200: 43 4F 4D 00 15 3A 02 26 42 4E 45 20 4E 4F 41 4E |COM..:.&BNE NOAN|
00003210: 49 4D 41 54 45 00 1D 3A 0C 26 52 54 53 00 23 3A |IMATE..:.&RTS.#:|
00003220: 16 26 3B 00 3B 3A 20 26 3B AC 20 42 45 46 45 48 |.&;.;: &;. BEFEH|
00003230: 4C 20 53 50 52 45 44 49 54 20 AC 00 41 3A 2A 26 |L SPREDIT ..A:*&|
00003240: 3B 00 5A 3A 34 26 53 50 52 45 44 49 54 20 4A 53 |;.Z:4&SPREDIT JS|
00003250: 52 20 48 4F 4C 42 4C 4F 43 4B 00 65 3A 3E 26 4C |R HOLBLOCK.e:>&L|
00003260: 44 41 20 23 30 00 71 3A 48 26 4C 44 59 20 23 36 |DA #0.q:H&LDY #6|
00003270: 33 00 86 3A 52 26 4C 4F 45 53 20 53 54 41 20 28 |3..:R&LOES STA (|
00003280: 24 46 42 29 2C 59 00 8E 3A 5C 26 44 45 59 00 9B |$FB),Y..:\&DEY..|
00003290: 3A 66 26 42 50 4C 20 4C 4F 45 53 00 A6 3A 70 26 |:f&BPL LOES..:p&|
000032A0: 4C 44 41 20 23 33 00 B7 3A 7A 26 53 54 41 20 5A |LDA #3..:z&STA Z|
000032B0: 41 48 4C 42 59 54 45 00 BF 3A 84 26 52 54 53 00 |AHLBYTE..:.&RTS.|
000032C0: C5 3A 8E 26 3B 00 E9 3A 98 26 3B 20 48 4F 4C 54 |.:.&;..:.&; HOLT|
000032D0: 20 41 44 52 45 53 53 45 20 44 45 53 20 53 50 52 | ADRESSE DES SPR|
000032E0: 49 54 45 42 4C 4F 43 4B 53 00 EF 3A A2 26 3B 00 |ITEBLOCKS..:.&;.|
000032F0: 05 3B AC 26 48 4F 4C 42 4C 4F 43 4B 20 4A 53 52 |.;.&HOLBLOCK JSR|
00003300: 20 A1 42 59 54 00 11 3B B6 26 43 50 58 20 23 36 | .BYT..;.&CPX #6|
00003310: 34 00 1D 3B C0 26 42 43 43 20 88 44 41 00 2D 3B |4..;.&BCC .DA.-;|
00003320: CA 26 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 39 3B |.&JMP ILLEGAL.9;|
00003330: D4 26 88 44 41 20 54 58 41 00 45 3B DE 26 4C 53 |.&.DA TXA.E;.&LS|
00003340: 52 3A 4C 53 52 00 4D 3B E8 26 43 4C 43 00 5A 3B |R:LSR.M;.&CLC.Z;|
00003350: F2 26 41 44 43 20 23 24 45 30 00 66 3B FC 26 53 |.&ADC #$E0.f;.&S|
00003360: 54 41 20 24 46 43 00 6E 3B 06 27 54 58 41 00 8A |TA $FC.n;.'TXA..|
00003370: 3B 10 27 41 53 4C 3A 41 53 4C 3A 41 53 4C 3A 41 |;.'ASL:ASL:ASL:A|
00003380: 53 4C 3A 41 53 4C 3A 41 53 4C 00 96 3B 1A 27 53 |SL:ASL:ASL..;.'S|
00003390: 54 41 20 24 46 42 00 A2 3B 24 27 4C 44 41 20 23 |TA $FB..;$'LDA #|
000033A0: 32 31 00 B1 3B 2E 27 53 54 41 20 45 44 5A 41 48 |21..;.'STA EDZAH|
000033B0: 4C 00 B9 3B 38 27 52 54 53 00 BF 3B 42 27 3B 00 |L..;8'RTS..;B';.|
000033C0: D3 3B 4C 27 3B AC 20 42 45 46 45 48 4C 20 50 41 |.;L';. BEFEHL PA|
000033D0: 54 20 AC 00 D9 3B 56 27 3B 00 EE 3B 60 27 50 41 |T ...;V';..;`'PA|
000033E0: 54 20 4C 44 41 20 5A 41 48 4C 42 59 54 45 00 FF |T LDA ZAHLBYTE..|
000033F0: 3B 6A 27 53 54 41 20 42 59 54 45 5A 41 48 4C 00 |;j'STA BYTEZAHL.|
00003400: 05 3C 74 27 3B 00 14 3C 7E 27 4A 53 52 20 46 52 |.<t';..<~'JSR FR|
00003410: 4D 45 56 4C 00 21 3C 88 27 4A 53 52 20 B8 53 54 |MEVL.!<.'JSR .ST|
00003420: 52 00 31 3C 92 27 53 54 41 20 5A 57 49 53 43 48 |R.1<.'STA ZWISCH|
00003430: 41 00 42 3C 9C 27 4C 44 41 20 42 59 54 45 5A 41 |A.B<.'LDA BYTEZA|
00003440: 48 4C 00 52 3C A6 27 41 53 4C 3A 41 53 4C 3A 41 |HL.R<.'ASL:ASL:A|
00003450: 53 4C 00 62 3C B0 27 43 4D 50 20 5A 57 49 53 43 |SL.b<.'CMP ZWISC|
00003460: 48 41 00 71 3C BA 27 42 45 51 20 52 49 47 48 54 |HA.q<.'BEQ RIGHT|
00003470: C3 00 80 3C C4 27 4A 4D 50 20 53 59 4E 54 41 58 |...<.'JMP SYNTAX|
00003480: 00 86 3C CE 27 3B 00 9C 3C D8 27 52 49 47 48 54 |..<.';..<.'RIGHT|
00003490: C3 20 44 45 43 20 45 44 5A 41 48 4C 00 AF 3C E2 |. DEC EDZAHL..<.|
000034A0: 27 42 50 4C 20 52 49 47 48 54 4C 49 4E 45 53 00 |'BPL RIGHTLINES.|
000034B0: BE 3C EC 27 4A 4D 50 20 53 59 4E 54 41 58 00 D4 |.<.'JMP SYNTAX..|
000034C0: 3C F6 27 52 49 47 48 54 4C 49 4E 45 53 20 4C 44 |<.'RIGHTLINES LD|
000034D0: 59 20 23 30 00 E4 3C 00 28 53 54 59 20 5A 57 49 |Y #0..<.(STY ZWI|
000034E0: 53 43 48 59 00 F8 3C 0A 28 4C 49 45 53 42 59 54 |SCHY..<.(LIESBYT|
000034F0: 45 20 4C 44 58 20 23 37 00 FE 3C 14 28 3B 00 1E |E LDX #7..<.(;..|
00003500: 3D 1E 28 4C 49 45 53 42 49 54 20 53 45 49 3A 44 |=.(LIESBIT SEI:D|
00003510: 45 43 20 24 30 31 3A 44 45 43 20 24 30 31 00 2E |EC $01:DEC $01..|
00003520: 3D 28 28 4C 44 59 20 5A 57 49 53 43 48 59 00 3E |=((LDY ZWISCHY.>|
00003530: 3D 32 28 4C 44 41 20 28 24 32 32 29 2C 59 00 49 |=2(LDA ($22),Y.I|
00003540: 3D 3C 28 4C 44 59 20 23 30 00 56 3D 46 28 43 4D |=<(LDY #0.V=F(CM|
00003550: 50 20 23 22 2E 22 00 68 3D 50 28 42 45 51 20 4C |P #".".h=P(BEQ L|
00003560: 4F 45 53 43 48 42 49 54 00 7A 3D 5A 28 4C 44 41 |OESCHBIT.z=Z(LDA|
00003570: 20 42 49 54 53 45 54 5A 2C 58 00 89 3D 64 28 B0 | BITSETZ,X..=d(.|
00003580: 41 20 28 24 46 42 29 2C 59 00 99 3D 6E 28 53 54 |A ($FB),Y..=n(ST|
00003590: 41 20 28 24 46 42 29 2C 59 00 A6 3D 78 28 4A 4D |A ($FB),Y..=x(JM|
000035A0: 50 20 82 42 49 54 00 AC 3D 82 28 3B 00 CA 3D 8C |P .BIT..=.(;..=.|
000035B0: 28 4C 4F 45 53 43 48 42 49 54 20 4C 44 41 20 42 |(LOESCHBIT LDA B|
000035C0: 49 54 4C 4F 45 53 43 48 2C 58 00 D8 3D 96 28 AF |ITLOESCH,X..=.(.|
000035D0: 20 28 24 46 42 29 2C 59 00 E8 3D A0 28 53 54 41 | ($FB),Y..=.(STA|
000035E0: 20 28 24 46 42 29 2C 59 00 EE 3D AA 28 3B 00 FF | ($FB),Y..=.(;..|
000035F0: 3D B4 28 82 42 49 54 20 49 4E 43 20 24 30 31 00 |=.(.BIT INC $01.|
00003600: 0B 3E BE 28 49 4E 43 20 24 30 31 00 1B 3E C8 28 |.>.(INC $01..>.(|
00003610: 49 4E 43 20 5A 57 49 53 43 48 59 00 23 3E D2 28 |INC ZWISCHY.#>.(|
00003620: 43 4C 49 00 2B 3E DC 28 44 45 58 00 3B 3E E6 28 |CLI.+>.(DEX.;>.(|
00003630: 42 50 4C 20 4C 49 45 53 42 49 54 00 47 3E F0 28 |BPL LIESBIT.G>.(|
00003640: 49 4E 43 20 24 46 42 00 56 3E FA 28 42 4E 45 20 |INC $FB.V>.(BNE |
00003650: 4E 4F 43 41 52 52 00 62 3E 04 29 49 4E 43 20 24 |NOCARR.b>.)INC $|
00003660: 46 43 00 7B 3E 0E 29 4E 4F 43 41 52 52 20 20 44 |FC.{>.)NOCARR D|
00003670: 45 43 20 42 59 54 45 5A 41 48 4C 00 8C 3E 18 29 |EC BYTEZAHL..>.)|
00003680: 42 4E 45 20 4C 49 45 53 42 59 54 45 00 94 3E 22 |BNE LIESBYTE..>"|
00003690: 29 52 54 53 00 9A 3E 2C 29 3B 00 AF 3E 36 29 3B |)RTS..>,);..>6);|
000036A0: AC 20 42 45 46 45 48 4C 20 4D 50 41 54 20 AC 00 |. BEFEHL MPAT ..|
000036B0: B5 3E 40 29 3B 00 CB 3E 4A 29 4D 50 41 54 20 4C |.>@);..>J)MPAT L|
000036C0: 44 41 20 5A 41 48 4C 42 59 54 45 00 DC 3E 54 29 |DA ZAHLBYTE..>T)|
000036D0: 53 54 41 20 42 59 54 45 5A 41 48 4C 00 E2 3E 5E |STA BYTEZAHL..>^|
000036E0: 29 3B 00 F1 3E 68 29 4A 53 52 20 46 52 4D 45 56 |);..>h)JSR FRMEV|
000036F0: 4C 00 FE 3E 72 29 4A 53 52 20 B8 53 54 52 00 0E |L..>r)JSR .STR..|
00003700: 3F 7C 29 53 54 41 20 5A 57 49 53 43 48 41 00 1F |?|)STA ZWISCHA..|
00003710: 3F 86 29 4C 44 41 20 42 59 54 45 5A 41 48 4C 00 |?.)LDA BYTEZAHL.|
00003720: 2B 3F 90 29 41 53 4C 3A 41 53 4C 00 3B 3F 9A 29 |+?.)ASL:ASL.;?.)|
00003730: 43 4D 50 20 5A 57 49 53 43 48 41 00 4B 3F A4 29 |CMP ZWISCHA.K?.)|
00003740: 42 45 51 20 52 49 47 48 54 4C 45 00 5A 3F AE 29 |BEQ RIGHTLE.Z?.)|
00003750: 4A 4D 50 20 53 59 4E 54 41 58 00 60 3F B8 29 3B |JMP SYNTAX.`?.);|
00003760: 00 77 3F C2 29 52 49 47 48 54 4C 45 20 44 45 43 |.w?.)RIGHTLE DEC|
00003770: 20 45 44 5A 41 48 4C 00 87 3F CC 29 42 50 4C 20 | EDZAHL..?.)BPL |
00003780: 52 49 47 48 54 4C 49 00 96 3F D6 29 4A 4D 50 20 |RIGHTLI..?.)JMP |
00003790: 53 59 4E 54 41 58 00 A9 3F E0 29 52 49 47 48 54 |SYNTAX..?.)RIGHT|
000037A0: 4C 49 20 4C 44 59 20 23 30 00 B9 3F EA 29 53 54 |LI LDY #0..?.)ST|
000037B0: 59 20 5A 57 49 53 43 48 59 00 CC 3F F4 29 4C 49 |Y ZWISCHY..?.)LI|
000037C0: 53 42 59 54 45 20 4C 44 58 20 23 37 00 D2 3F FE |SBYTE LDX #7..?.|
000037D0: 29 3B 00 F1 3F 08 2A 4C 49 53 42 49 54 20 53 45 |);..?.*LISBIT SE|
000037E0: 49 3A 44 45 43 20 24 30 31 3A 44 45 43 20 24 30 |I:DEC $01:DEC $0|
000037F0: 31 00 01 40 12 2A 4C 44 59 20 5A 57 49 53 43 48 |1..@.*LDY ZWISCH|
00003800: 59 00 11 40 1C 2A 4C 44 41 20 28 24 32 32 29 2C |Y..@.*LDA ($22),|
00003810: 59 00 1C 40 26 2A 4C 44 59 20 23 30 00 29 40 30 |Y..@&*LDY #0.)@0|
00003820: 2A 43 4D 50 20 23 22 2E 22 00 3A 40 3A 2A 42 45 |*CMP #".".:@:*BE|
00003830: 51 20 4C 4F 53 43 48 42 49 54 00 47 40 44 2A 43 |Q LOSCHBIT.G@D*C|
00003840: 4D 50 20 23 22 41 22 00 55 40 4E 2A 42 45 51 20 |MP #"A".U@N*BEQ |
00003850: 53 45 54 5A 41 00 62 40 58 2A 43 4D 50 20 23 22 |SETZA.b@X*CMP #"|
00003860: 42 22 00 70 40 62 2A 42 45 51 20 53 45 54 5A 42 |B".p@b*BEQ SETZB|
00003870: 00 7D 40 6C 2A 43 4D 50 20 23 22 43 22 00 8B 40 |.}@l*CMP #"C"..@|
00003880: 76 2A 42 45 51 20 53 45 54 5A 43 00 9A 40 80 2A |v*BEQ SETZC..@.*|
00003890: 4A 4D 50 20 53 59 4E 54 41 58 00 A0 40 8A 2A 3B |JMP SYNTAX..@.*;|
000038A0: 00 C2 40 94 2A 53 45 54 5A 42 20 4C 44 41 20 42 |..@.*SETZB LDA B|
000038B0: 49 54 4C 4F 45 53 43 48 2C 58 20 3B 27 42 27 B2 |ITLOESCH,X ;'B'.|
000038C0: 30 31 00 D0 40 9E 2A AF 20 28 24 46 42 29 2C 59 |01..@.*. ($FB),Y|
000038D0: 00 D8 40 A8 2A 44 45 58 00 E9 40 B2 2A B0 41 20 |..@.*DEX..@.*.A |
000038E0: 42 49 54 53 45 54 5A 2C 58 00 F9 40 BC 2A 53 54 |BITSETZ,X..@.*ST|
000038F0: 41 20 28 24 46 42 29 2C 59 00 08 41 C6 2A 4A 4D |A ($FB),Y..A.*JM|
00003900: 50 20 4E 45 58 42 49 54 00 0E 41 D0 2A 3B 00 30 |P NEXBIT..A.*;.0|
00003910: 41 DA 2A 53 45 54 5A 41 20 4C 44 41 20 42 49 54 |A.*SETZA LDA BIT|
00003920: 53 45 54 5A 2C 58 20 20 20 3B 27 41 27 B2 31 30 |SETZ,X ;'A'.10|
00003930: 00 3F 41 E4 2A B0 41 20 28 24 46 42 29 2C 59 00 |.?A.*.A ($FB),Y.|
00003940: 47 41 EE 2A 44 45 58 00 59 41 F8 2A AF 20 42 49 |GA.*DEX.YA.*. BI|
00003950: 54 4C 4F 45 53 43 48 2C 58 00 69 41 02 2B 53 54 |TLOESCH,X.iA.+ST|
00003960: 41 20 28 24 46 42 29 2C 59 00 78 41 0C 2B 4A 4D |A ($FB),Y.xA.+JM|
00003970: 50 20 4E 45 58 42 49 54 00 7E 41 16 2B 3B 00 A0 |P NEXBIT.~A.+;..|
00003980: 41 20 2B 53 45 54 5A 43 20 4C 44 41 20 42 49 54 |A +SETZC LDA BIT|
00003990: 53 45 54 5A 2C 58 20 20 20 3B 27 43 27 B2 31 31 |SETZ,X ;'C'.11|
000039A0: 00 AF 41 2A 2B B0 41 20 28 24 46 42 29 2C 59 00 |..A*+.A ($FB),Y.|
000039B0: B7 41 34 2B 44 45 58 00 C8 41 3E 2B B0 41 20 42 |.A4+DEX..A>+.A B|
000039C0: 49 54 53 45 54 5A 2C 58 00 D8 41 48 2B 53 54 41 |ITSETZ,X..AH+STA|
000039D0: 20 28 24 46 42 29 2C 59 00 E7 41 52 2B 4A 4D 50 | ($FB),Y..AR+JMP|
000039E0: 20 4E 45 58 42 49 54 00 ED 41 5C 2B 3B 00 0A 42 | NEXBIT..A\+;..B|
000039F0: 66 2B 4C 4F 53 43 48 42 49 54 20 4C 44 41 20 42 |f+LOSCHBIT LDA B|
00003A00: 49 54 4C 4F 45 53 43 48 2C 58 00 18 42 70 2B AF |ITLOESCH,X..Bp+.|
00003A10: 20 28 24 46 42 29 2C 59 00 20 42 7A 2B 44 45 58 | ($FB),Y. Bz+DEX|
00003A20: 00 32 42 84 2B AF 20 42 49 54 4C 4F 45 53 43 48 |.2B.+. BITLOESCH|
00003A30: 2C 58 00 42 42 8E 2B 53 54 41 20 28 24 46 42 29 |,X.BB.+STA ($FB)|
00003A40: 2C 59 00 48 42 98 2B 3B 00 5B 42 A2 2B 4E 45 58 |,Y.HB.+;.[B.+NEX|
00003A50: 42 49 54 20 49 4E 43 20 24 30 31 00 67 42 AC 2B |BIT INC $01.gB.+|
00003A60: 49 4E 43 20 24 30 31 00 77 42 B6 2B 49 4E 43 20 |INC $01.wB.+INC |
00003A70: 5A 57 49 53 43 48 59 00 7F 42 C0 2B 43 4C 49 00 |ZWISCHY..B.+CLI.|
00003A80: 87 42 CA 2B 44 45 58 00 96 42 D4 2B 42 50 4C 20 |.B.+DEX..B.+BPL |
00003A90: 4C 49 53 42 49 54 00 A2 42 DE 2B 49 4E 43 20 24 |LISBIT..B.+INC $|
00003AA0: 46 42 00 B0 42 E8 2B 42 4E 45 20 4E 4F 43 52 52 |FB..B.+BNE NOCRR|
00003AB0: 00 BC 42 F2 2B 49 4E 43 20 24 46 43 00 D4 42 FC |..B.+INC $FC..B.|
00003AC0: 2B 4E 4F 43 52 52 20 20 44 45 43 20 42 59 54 45 |+NOCRR DEC BYTE|
00003AD0: 5A 41 48 4C 00 E4 42 06 2C 42 4E 45 20 4C 49 53 |ZAHL..B.,BNE LIS|
00003AE0: 42 59 54 45 00 EC 42 10 2C 52 54 53 00 F2 42 1A |BYTE..B.,RTS..B.|
00003AF0: 2C 3B 00 0A 43 24 2C 3B AC 20 42 45 46 45 48 4C |,;..C$,;. BEFEHL|
00003B00: 20 4E 4F 42 52 45 41 4B 20 AC 00 10 43 2E 2C 3B | NOBREAK ...C.,;|
00003B10: 00 23 43 38 2C 4E 4F 42 52 45 41 4B 20 4C 44 41 |.#C8,NOBREAK LDA|
00003B20: 20 23 31 00 33 43 42 2C 53 54 41 20 42 52 45 41 | #1.3CB,STA BREA|
00003B30: 4B 46 4C 00 3B 43 4C 2C 52 54 53 00 41 43 56 2C |KFL.;CL,RTS.ACV,|
00003B40: 3B 00 57 43 60 2C 3B AC 20 42 45 46 45 48 4C 20 |;.WC`,;. BEFEHL |
00003B50: 43 55 52 53 B0 20 AC 00 5D 43 6A 2C 3B 00 70 43 |CURS. ..]Cj,;.pC|
00003B60: 74 2C 43 55 52 53 B0 20 4A 53 52 20 A1 42 59 54 |t,CURS. JSR .BYT|
00003B70: 00 7C 43 7E 2C 43 50 58 20 23 34 30 00 8B 43 88 |.|C~,CPX #40..C.|
00003B80: 2C 42 43 43 20 52 49 47 48 54 58 00 9B 43 92 2C |,BCC RIGHTX..C.,|
00003B90: 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 AA 43 9C 2C |JMP ILLEGAL..C.,|
00003BA0: 52 49 47 48 54 58 20 54 58 41 00 B2 43 A6 2C 50 |RIGHTX TXA..C.,P|
00003BB0: 48 41 00 C0 43 B0 2C 4A 53 52 20 43 4B 43 4F 4D |HA..C.,JSR CKCOM|
00003BC0: 00 CD 43 BA 2C 4A 53 52 20 A1 42 59 54 00 D9 43 |..C.,JSR .BYT..C|
00003BD0: C4 2C 43 50 58 20 23 32 35 00 E8 43 CE 2C 42 43 |.,CPX #25..C.,BC|
00003BE0: 43 20 52 49 47 48 54 59 00 F8 43 D8 2C 4A 4D 50 |C RIGHTY..C.,JMP|
00003BF0: 20 49 4C 4C 45 47 41 4C 00 07 44 E2 2C 52 49 47 | ILLEGAL..D.,RIG|
00003C00: 48 54 59 20 50 4C 41 00 0F 44 EC 2C 54 41 59 00 |HTY PLA..D.,TAY.|
00003C10: 17 44 F6 2C 43 4C 43 00 25 44 00 2D 4A 4D 50 20 |.D.,CLC.%D.-JMP |
00003C20: 24 46 46 46 30 00 2B 44 0A 2D 3B 00 43 44 14 2D |$FFF0.+D.-;.CD.-|
00003C30: 3B AC 20 42 45 46 45 48 4C 20 43 48 52 45 44 49 |;. BEFEHL CHREDI|
00003C40: 54 20 AC 00 49 44 1E 2D 3B 00 60 44 28 2D 43 48 |T ..ID.-;.`D(-CH|
00003C50: 52 45 44 49 54 20 4A 53 52 20 46 52 4D 4E 55 4D |REDIT JSR FRMNUM|
00003C60: 00 6F 44 32 2D 4A 53 52 20 46 41 43 41 44 52 00 |.oD2-JSR FACADR.|
00003C70: 7B 44 3C 2D 4C 44 41 20 24 31 35 00 88 44 46 2D |{D<-LDA $15..DF-|
00003C80: 43 4D 50 20 23 24 30 32 00 97 44 50 2D 42 43 43 |CMP #$02..DP-BCC|
00003C90: 20 4E 4F 49 4C 4C 45 00 A7 44 5A 2D 4A 4D 50 20 | NOILLE..DZ-JMP |
00003CA0: 49 4C 4C 45 47 41 4C 00 BA 44 64 2D 4E 4F 49 4C |ILLEGAL..Dd-NOIL|
00003CB0: 4C 45 20 4C 44 41 20 24 31 34 00 CA 44 6E 2D 41 |LE LDA $14..Dn-A|
00003CC0: 53 4C 3A 41 53 4C 3A 41 53 4C 00 D6 44 78 2D 53 |SL:ASL:ASL..Dx-S|
00003CD0: 54 41 20 24 46 42 00 E2 44 82 2D 4C 44 41 20 24 |TA $FB..D.-LDA $|
00003CE0: 31 34 00 FA 44 8C 2D 4C 53 52 3A 4C 53 52 3A 4C |14..D.-LSR:LSR:L|
00003CF0: 53 52 3A 4C 53 52 3A 4C 53 52 00 06 45 96 2D 4C |SR:LSR:LSR..E.-L|
00003D00: 44 59 20 24 31 35 00 15 45 A0 2D 42 45 51 20 4E |DY $15..E.-BEQ N|
00003D10: 4F 50 4C 55 53 00 1D 45 AA 2D 43 4C 43 00 2A 45 |OPLUS..E.-CLC.*E|
00003D20: B4 2D 41 44 43 20 23 24 30 38 00 39 45 BE 2D 4E |.-ADC #$08.9E.-N|
00003D30: 4F 50 4C 55 53 20 43 4C 43 00 46 45 C8 2D 41 44 |OPLUS CLC.FE.-AD|
00003D40: 43 20 23 24 46 30 00 52 45 D2 2D 53 54 41 20 24 |C #$F0.RE.-STA $|
00003D50: 46 43 00 5D 45 DC 2D 4C 44 41 20 23 38 00 6C 45 |FC.]E.-LDA #8.lE|
00003D60: E6 2D 53 54 41 20 45 44 5A 41 48 4C 00 77 45 F0 |.-STA EDZAHL.wE.|
00003D70: 2D 4C 44 41 20 23 30 00 82 45 FA 2D 4C 44 59 20 |-LDA #0..E.-LDY |
00003D80: 23 37 00 95 45 04 2E 4C 4F 20 53 54 41 20 28 24 |#7..E..LO STA ($|
00003D90: 46 42 29 2C 59 00 9D 45 0E 2E 44 45 59 00 A8 45 |FB),Y..E..DEY..E|
00003DA0: 18 2E 42 50 4C 20 4C 4F 00 B3 45 22 2E 4C 44 41 |..BPL LO..E".LDA|
00003DB0: 20 23 31 00 C4 45 2C 2E 53 54 41 20 5A 41 48 4C | #1..E,.STA ZAHL|
00003DC0: 42 59 54 45 00 CC 45 36 2E 52 54 53 00 D2 45 40 |BYTE..E6.RTS..E@|
00003DD0: 2E 3B 00 E6 45 4A 2E 3B AC 20 42 45 46 45 48 4C |.;..EJ.;. BEFEHL|
00003DE0: 20 4F 4C 44 20 AC 00 EC 45 54 2E 3B 00 09 46 5E | OLD ...ET.;..F^|
00003DF0: 2E 4F 4C 44 20 53 45 49 3A 4C 44 41 20 23 30 3A |.OLD SEI:LDA #0:|
00003E00: 53 54 41 20 35 36 33 33 34 00 1B 46 68 2E 4C 44 |STA 56334..Fh.LD|
00003E10: 41 20 23 35 31 3A 53 54 41 20 31 00 21 46 72 2E |A #51:STA 1.!Fr.|
00003E20: 3B 00 2D 46 7C 2E 4C 44 58 20 23 31 36 00 38 46 |;.-F|.LDX #16.8F|
00003E30: 86 2E 4C 44 59 20 23 30 00 4D 46 90 2E 4C 44 41 |..LDY #0.MF..LDA|
00003E40: 20 23 24 44 30 3A 53 54 41 20 93 AA 32 00 62 46 | #$D0:STA ..2.bF|
00003E50: 9A 2E 4C 44 41 20 23 24 46 30 3A 53 54 41 20 94 |..LDA #$F0:STA .|
00003E60: AA 32 00 74 46 A4 2E 93 20 4C 44 41 20 24 44 30 |.2.tF... LDA $D0|
00003E70: 30 30 2C 59 00 86 46 AE 2E 94 20 53 54 41 20 24 |00,Y..F... STA $|
00003E80: 46 30 30 30 2C 59 00 8E 46 B8 2E 49 4E 59 00 98 |F000,Y..F..INY..|
00003E90: 46 C2 2E 42 4E 45 20 93 00 A4 46 CC 2E 49 4E 43 |F..BNE ...F..INC|
00003EA0: 20 93 AA 32 00 B0 46 D6 2E 49 4E 43 20 94 AA 32 | ..2..F..INC ..2|
00003EB0: 00 B8 46 E0 2E 44 45 58 00 C2 46 EA 2E 42 4E 45 |..F..DEX..F..BNE|
00003EC0: 20 93 00 C8 46 F4 2E 3B 00 DA 46 FE 2E 4C 44 41 | ...F..;..F..LDA|
00003ED0: 20 23 35 35 3A 53 54 41 20 31 00 EF 46 08 2F 4C | #55:STA 1..F./L|
00003EE0: 44 41 20 23 31 3A 53 54 41 20 35 36 33 33 34 00 |DA #1:STA 56334.|
00003EF0: F7 46 12 2F 43 4C 49 00 FF 46 1C 2F 52 54 53 00 |.F./CLI..F./RTS.|
00003F00: 05 47 26 2F 3B 00 19 47 30 2F 3B AC 20 42 45 46 |.G&/;..G0/;. BEF|
00003F10: 45 48 4C 20 50 4F 50 20 AC 00 1F 47 3A 2F 3B 00 |EHL POP ...G:/;.|
00003F20: 30 47 44 2F 50 4F 50 20 4C 44 41 20 23 24 46 46 |0GD/POP LDA #$FF|
00003F30: 00 3C 47 4E 2F 53 54 41 20 24 34 41 00 4A 47 58 |.<GN/STA $4A.JGX|
00003F40: 2F 4A 53 52 20 24 41 33 38 41 00 52 47 62 2F 54 |/JSR $A38A.RGb/T|
00003F50: 58 53 00 5F 47 6C 2F 43 4D 50 20 23 24 38 44 00 |XS._Gl/CMP #$8D.|
00003F60: 6D 47 76 2F 42 45 51 20 4E 4F 45 52 52 00 7B 47 |mGv/BEQ NOERR.{G|
00003F70: 80 2F 4A 4D 50 20 24 41 38 45 30 00 99 47 8A 2F |./JMP $A8E0..G./|
00003F80: 4E 4F 45 52 52 20 50 4C 41 3A 50 4C 41 3A 50 4C |NOERR PLA:PLA:PL|
00003F90: 41 3A 50 4C 41 3A 50 4C 41 00 A1 47 94 2F 52 54 |A:PLA:PLA..G./RT|
00003FA0: 53 00 A7 47 9E 2F 3B 00 BC 47 A8 2F 3B AC 20 42 |S..G./;..G./;. B|
00003FB0: 45 46 45 48 4C 20 50 4C 4F 54 20 AC 00 C2 47 B2 |EFEHL PLOT ...G.|
00003FC0: 2F 3B 00 D5 47 BC 2F 50 4C 4F 54 20 4A 53 52 20 |/;..G./PLOT JSR |
00003FD0: A1 4B 4F B0 44 00 E3 47 C6 2F 4A 53 52 20 43 4B |.KO.D..G./JSR CK|
00003FE0: 43 4F 4D 00 F0 47 D0 2F 4A 53 52 20 A1 42 59 54 |COM..G./JSR .BYT|
00003FF0: 00 F8 47 DA 2F 54 58 41 00 03 48 E4 2F 4C 44 59 |..G./TXA..H./LDY|
00004000: 20 23 30 00 13 48 EE 2F 53 54 41 20 28 24 46 42 | #0..H./STA ($FB|
00004010: 29 2C 59 00 19 48 F8 2F 3B 00 25 48 02 30 4C 44 |),Y..H./;.%H.0LD|
00004020: 41 20 23 31 32 00 2D 48 0C 30 43 4C 43 00 39 48 |A #12.-H.0CLC.9H|
00004030: 16 30 41 44 43 20 24 46 43 00 45 48 20 30 53 54 |.0ADC $FC.EH 0ST|
00004040: 41 20 24 46 43 00 53 48 2A 30 4A 53 52 20 43 4B |A $FC.SH*0JSR CK|
00004050: 43 4F 4D 00 60 48 34 30 4A 53 52 20 A1 42 59 54 |COM.`H40JSR .BYT|
00004060: 00 68 48 3E 30 54 58 41 00 73 48 48 30 4C 44 59 |.hH>0TXA.sHH0LDY|
00004070: 20 23 30 00 83 48 52 30 53 54 41 20 28 24 46 42 | #0..HR0STA ($FB|
00004080: 29 2C 59 00 8B 48 5C 30 52 54 53 00 91 48 66 30 |),Y..H\0RTS..Hf0|
00004090: 3B 00 A7 48 70 30 3B AC 20 42 45 46 45 48 4C 20 |;..Hp0;. BEFEHL |
000040A0: 42 B0 44 45 52 20 AC 00 AD 48 7A 30 3B 00 C0 48 |B.DER ...Hz0;..H|
000040B0: 84 30 42 B0 44 45 52 20 4A 53 52 20 A1 42 59 54 |.0B.DER JSR .BYT|
000040C0: 00 CE 48 8E 30 53 54 58 20 35 33 32 38 30 00 D6 |..H.0STX 53280..|
000040D0: 48 98 30 52 54 53 00 DC 48 A2 30 3B 00 F2 48 AC |H.0RTS..H.0;..H.|
000040E0: 30 3B AC 20 42 45 46 45 48 4C 20 50 41 50 45 52 |0;. BEFEHL PAPER|
000040F0: 20 AC 00 F8 48 B6 30 3B 00 0B 49 C0 30 50 41 50 | ...H.0;..I.0PAP|
00004100: 45 52 20 4A 53 52 20 A1 42 59 54 00 19 49 CA 30 |ER JSR .BYT..I.0|
00004110: 53 54 58 20 35 33 32 38 31 00 21 49 D4 30 52 54 |STX 53281.!I.0RT|
00004120: 53 00 27 49 DE 30 3B 00 3B 49 E8 30 3B AC 20 42 |S.'I.0;.;I.0;. B|
00004130: 45 46 45 48 4C 20 49 4E 4B 20 AC 00 41 49 F2 30 |EFEHL INK ..AI.0|
00004140: 3B 00 52 49 FC 30 49 4E 4B 20 4A 53 52 20 A1 42 |;.RI.0INK JSR .B|
00004150: 59 54 00 5E 49 06 31 53 54 58 20 36 34 36 00 66 |YT.^I.1STX 646.f|
00004160: 49 10 31 52 54 53 00 6C 49 1A 31 3B 00 80 49 24 |I.1RTS.lI.1;..I$|
00004170: 31 3B AC 20 42 45 46 45 48 4C 20 56 4F 4C 20 AC |1;. BEFEHL VOL .|
00004180: 00 86 49 2E 31 3B 00 97 49 38 31 56 4F 4C 20 4A |..I.1;..I81VOL J|
00004190: 53 52 20 A1 42 59 54 00 A3 49 42 31 43 50 58 20 |SR .BYT..IB1CPX |
000041A0: 23 31 36 00 B2 49 4C 31 42 43 43 20 4C 45 47 41 |#16..IL1BCC LEGA|
000041B0: 4C 35 00 C2 49 56 31 4A 4D 50 20 49 4C 4C 45 47 |L5..IV1JMP ILLEG|
000041C0: 41 4C 00 D1 49 60 31 4C 45 47 41 4C 35 20 54 58 |AL..I`1LEGAL5 TX|
000041D0: 41 00 DF 49 6A 31 B0 41 20 53 49 44 AA 32 34 00 |A..Ij1.A SID.24.|
000041E0: EE 49 74 31 53 54 41 20 53 49 44 AA 32 34 00 F6 |.It1STA SID.24..|
000041F0: 49 7E 31 52 54 53 00 FC 49 88 31 3B 00 11 4A 92 |I~1RTS..I.1;..J.|
00004200: 31 3B AC 20 42 45 46 45 48 4C 20 41 44 53 52 20 |1;. BEFEHL ADSR |
00004210: AC 00 17 4A 9C 31 3B 00 2B 4A A6 31 41 44 53 52 |...J.1;.+J.1ADSR|
00004220: 20 4A 53 52 20 A1 56 4F 49 43 45 00 31 4A B0 31 | JSR .VOICE.1J.1|
00004230: 3B 00 3F 4A BA 31 4A 53 52 20 43 4B 43 4F 4D 00 |;.?J.1JSR CKCOM.|
00004240: 4C 4A C4 31 4A 53 52 20 A1 42 59 54 00 58 4A CE |LJ.1JSR .BYT.XJ.|
00004250: 31 43 50 58 20 23 31 36 00 67 4A D8 31 42 43 43 |1CPX #16.gJ.1BCC|
00004260: 20 4C 45 47 41 4C 36 00 77 4A E2 31 4A 4D 50 20 | LEGAL6.wJ.1JMP |
00004270: 49 4C 4C 45 47 41 4C 00 8E 4A EC 31 4C 45 47 41 |ILLEGAL..J.1LEGA|
00004280: 4C 36 20 4C 44 41 20 5A 57 49 53 43 48 59 00 96 |L6 LDA ZWISCHY..|
00004290: 4A F6 31 43 4C 43 00 A3 4A 00 32 41 44 43 20 23 |J.1CLC..J.2ADC #|
000042A0: 24 30 35 00 AB 4A 0A 32 54 41 59 00 B3 4A 14 32 |$05..J.2TAY..J.2|
000042B0: 54 58 41 00 C7 4A 1E 32 41 53 4C 3A 41 53 4C 3A |TXA..J.2ASL:ASL:|
000042C0: 41 53 4C 3A 41 53 4C 00 D6 4A 28 32 53 54 41 20 |ASL:ASL..J(2STA |
000042D0: 53 49 44 32 2C 59 00 DC 4A 32 32 3B 00 EA 4A 3C |SID2,Y..J22;..J<|
000042E0: 32 4A 53 52 20 43 4B 43 4F 4D 00 F7 4A 46 32 4A |2JSR CKCOM..JF2J|
000042F0: 53 52 20 A1 42 59 54 00 03 4B 50 32 43 50 58 20 |SR .BYT..KP2CPX |
00004300: 23 31 36 00 12 4B 5A 32 42 43 43 20 4C 45 47 41 |#16..KZ2BCC LEGA|
00004310: 4C 37 00 22 4B 64 32 4A 4D 50 20 49 4C 4C 45 47 |L7."Kd2JMP ILLEG|
00004320: 41 4C 00 39 4B 6E 32 4C 45 47 41 4C 37 20 4C 44 |AL.9Kn2LEGAL7 LD|
00004330: 41 20 5A 57 49 53 43 48 59 00 41 4B 78 32 43 4C |A ZWISCHY.AKx2CL|
00004340: 43 00 4E 4B 82 32 41 44 43 20 23 24 30 35 00 56 |C.NK.2ADC #$05.V|
00004350: 4B 8C 32 54 41 59 00 5E 4B 96 32 54 58 41 00 6C |K.2TAY.^K.2TXA.l|
00004360: 4B A0 32 B0 41 20 53 49 44 32 2C 59 00 7B 4B AA |K.2.A SID2,Y.{K.|
00004370: 32 53 54 41 20 53 49 44 32 2C 59 00 89 4B B4 32 |2STA SID2,Y..K.2|
00004380: 53 54 41 20 53 49 44 2C 59 00 8F 4B BE 32 3B 00 |STA SID,Y..K.2;.|
00004390: 9D 4B C8 32 4A 53 52 20 43 4B 43 4F 4D 00 AA 4B |.K.2JSR CKCOM..K|
000043A0: D2 32 4A 53 52 20 A1 42 59 54 00 B6 4B DC 32 43 |.2JSR .BYT..K.2C|
000043B0: 50 58 20 23 31 36 00 C5 4B E6 32 42 43 43 20 4C |PX #16..K.2BCC L|
000043C0: 45 47 41 4C 38 00 D5 4B F0 32 4A 4D 50 20 49 4C |EGAL8..K.2JMP IL|
000043D0: 4C 45 47 41 4C 00 EC 4B FA 32 4C 45 47 41 4C 38 |LEGAL..K.2LEGAL8|
000043E0: 20 4C 44 41 20 5A 57 49 53 43 48 59 00 F4 4B 04 | LDA ZWISCHY..K.|
000043F0: 33 43 4C 43 00 01 4C 0E 33 41 44 43 20 23 24 30 |3CLC..L.3ADC #$0|
00004400: 36 00 09 4C 18 33 54 41 59 00 11 4C 22 33 54 58 |6..L.3TAY..L"3TX|
00004410: 41 00 25 4C 2C 33 41 53 4C 3A 41 53 4C 3A 41 53 |A.%L,3ASL:ASL:AS|
00004420: 4C 3A 41 53 4C 00 34 4C 36 33 53 54 41 20 53 49 |L:ASL.4L63STA SI|
00004430: 44 32 2C 59 00 3A 4C 40 33 3B 00 48 4C 4A 33 4A |D2,Y.:L@3;.HLJ3J|
00004440: 53 52 20 43 4B 43 4F 4D 00 55 4C 54 33 4A 53 52 |SR CKCOM.ULT3JSR|
00004450: 20 A1 42 59 54 00 61 4C 5E 33 43 50 58 20 23 31 | .BYT.aL^3CPX #1|
00004460: 36 00 70 4C 68 33 42 43 43 20 4C 45 47 41 4C 39 |6.pLh3BCC LEGAL9|
00004470: 00 80 4C 72 33 4A 4D 50 20 49 4C 4C 45 47 41 4C |..Lr3JMP ILLEGAL|
00004480: 00 97 4C 7C 33 4C 45 47 41 4C 39 20 4C 44 41 20 |..L|3LEGAL9 LDA |
00004490: 5A 57 49 53 43 48 59 00 9F 4C 86 33 43 4C 43 00 |ZWISCHY..L.3CLC.|
000044A0: AC 4C 90 33 41 44 43 20 23 24 30 36 00 B4 4C 9A |.L.3ADC #$06..L.|
000044B0: 33 54 41 59 00 BC 4C A4 33 54 58 41 00 CA 4C AE |3TAY..L.3TXA..L.|
000044C0: 33 B0 41 20 53 49 44 32 2C 59 00 D9 4C B8 33 53 |3.A SID2,Y..L.3S|
000044D0: 54 41 20 53 49 44 32 2C 59 00 E7 4C C2 33 53 54 |TA SID2,Y..L.3ST|
000044E0: 41 20 53 49 44 2C 59 00 F7 4C CC 33 4A 53 52 20 |A SID,Y..L.3JSR |
000044F0: 54 45 53 54 43 4F 4D 00 04 4D D6 33 42 4E 45 20 |TESTCOM..M.3BNE |
00004500: 41 44 53 52 00 0C 4D E0 33 52 54 53 00 12 4D EA |ADSR..M.3RTS..M.|
00004510: 33 3B 00 27 4D F4 33 3B AC 20 42 45 46 45 48 4C |3;.'M.3;. BEFEHL|
00004520: 20 57 41 56 45 20 AC 00 2D 4D FE 33 3B 00 41 4D | WAVE ..-M.3;.AM|
00004530: 08 34 57 41 56 45 20 4A 53 52 20 A1 56 4F 49 43 |.4WAVE JSR .VOIC|
00004540: 45 00 4F 4D 12 34 4A 53 52 20 43 4B 43 4F 4D 00 |E.OM.4JSR CKCOM.|
00004550: 5C 4D 1C 34 4A 53 52 20 A1 42 59 54 00 67 4D 26 |\M.4JSR .BYT.gM&|
00004560: 34 43 50 58 20 23 34 00 77 4D 30 34 42 43 43 20 |4CPX #4.wM04BCC |
00004570: 4C 45 47 41 4C 31 30 00 87 4D 3A 34 4A 4D 50 20 |LEGAL10..M:4JMP |
00004580: 49 4C 4C 45 47 41 4C 00 9F 4D 44 34 4C 45 47 41 |ILLEGAL..MD4LEGA|
00004590: 4C 31 30 20 4C 44 59 20 5A 57 49 53 43 48 59 00 |L10 LDY ZWISCHY.|
000045A0: B3 4D 4E 34 49 4E 59 3A 49 4E 59 3A 49 4E 59 3A |.MN4INY:INY:INY:|
000045B0: 49 4E 59 00 C0 4D 58 34 4C 44 41 20 23 24 30 46 |INY..MX4LDA #$0F|
000045C0: 00 CD 4D 62 34 AF 20 53 49 44 32 2C 59 00 DE 4D |..Mb4. SID2,Y..M|
000045D0: 6C 34 B0 41 20 57 41 56 45 54 41 42 2C 58 00 ED |l4.A WAVETAB,X..|
000045E0: 4D 76 34 53 54 41 20 53 49 44 32 2C 59 00 FB 4D |Mv4STA SID2,Y..M|
000045F0: 80 34 53 54 41 20 53 49 44 2C 59 00 0B 4E 8A 34 |.4STA SID,Y..N.4|
00004600: 4A 53 52 20 54 45 53 54 43 4F 4D 00 18 4E 94 34 |JSR TESTCOM..N.4|
00004610: 42 4E 45 20 57 41 56 45 00 20 4E 9E 34 52 54 53 |BNE WAVE. N.4RTS|
00004620: 00 41 4E A8 34 57 41 56 45 54 41 42 20 2E 42 59 |.AN.4WAVETAB .BY|
00004630: 54 20 24 31 30 2C 24 32 30 2C 24 34 30 2C 24 38 |T $10,$20,$40,$8|
00004640: 30 00 47 4E B2 34 3B 00 5C 4E BC 34 3B AC 20 42 |0.GN.4;.\N.4;. B|
00004650: 45 46 45 48 4C 20 50 4C 41 59 20 AC 00 62 4E C6 |EFEHL PLAY ..bN.|
00004660: 34 3B 00 76 4E D0 34 50 4C 41 59 20 4A 53 52 20 |4;.vN.4PLAY JSR |
00004670: A1 56 4F 49 43 45 00 86 4E DA 34 4C 44 41 20 5A |.VOICE..N.4LDA Z|
00004680: 57 49 53 43 48 59 00 8E 4E E4 34 43 4C 43 00 9B |WISCHY..N.4CLC..|
00004690: 4E EE 34 41 44 43 20 23 24 30 34 00 A3 4E F8 34 |N.4ADC #$04..N.4|
000046A0: 54 41 59 00 B0 4E 02 35 4C 44 41 20 23 24 46 45 |TAY..N.5LDA #$FE|
000046B0: 00 BD 4E 0C 35 AF 20 53 49 44 32 2C 59 00 CB 4E |..N.5. SID2,Y..N|
000046C0: 16 35 53 54 41 20 53 49 44 2C 59 00 D7 4E 20 35 |.5STA SID,Y..N 5|
000046D0: B0 41 20 23 24 30 31 00 E6 4E 2A 35 53 54 41 20 |.A #$01..N*5STA |
000046E0: 53 49 44 32 2C 59 00 F4 4E 34 35 53 54 41 20 53 |SID2,Y..N45STA S|
000046F0: 49 44 2C 59 00 FA 4E 3E 35 3B 00 08 4F 48 35 4A |ID,Y..N>5;..OH5J|
00004700: 53 52 20 43 4B 43 4F 4D 00 17 4F 52 35 4A 53 52 |SR CKCOM..OR5JSR|
00004710: 20 46 52 4D 4E 55 4D 00 22 4F 5C 35 4C 44 59 20 | FRMNUM."O\5LDY |
00004720: 23 35 00 37 4F 66 35 53 45 54 A8 45 20 4C 44 41 |#5.7Of5SET.E LDA|
00004730: 20 5A 41 48 4C 2C 59 00 45 4F 70 35 53 54 41 20 | ZAHL,Y.EOp5STA |
00004740: 24 36 39 2C 59 00 4D 4F 7A 35 44 45 59 00 5B 4F |$69,Y.MOz5DEY.[O|
00004750: 84 35 42 50 4C 20 53 45 54 A8 45 00 69 4F 8E 35 |.5BPL SET.E.iO.5|
00004760: 4A 53 52 20 24 42 41 32 42 00 78 4F 98 35 4A 53 |JSR $BA2B.xO.5JS|
00004770: 52 20 46 41 43 41 44 52 00 88 4F A2 35 4C 44 59 |R FACADR..O.5LDY|
00004780: 20 5A 57 49 53 43 48 59 00 94 4F AC 35 4C 44 41 | ZWISCHY..O.5LDA|
00004790: 20 24 31 34 00 A3 4F B6 35 53 54 41 20 53 49 44 | $14..O.5STA SID|
000047A0: 32 2C 59 00 B1 4F C0 35 53 54 41 20 53 49 44 2C |2,Y..O.5STA SID,|
000047B0: 59 00 BD 4F CA 35 4C 44 41 20 24 31 35 00 CE 4F |Y..O.5LDA $15..O|
000047C0: D4 35 53 54 41 20 53 49 44 32 AA 31 2C 59 00 DE |.5STA SID2.1,Y..|
000047D0: 4F DE 35 53 54 41 20 53 49 44 AA 31 2C 59 00 E4 |O.5STA SID.1,Y..|
000047E0: 4F E8 35 3B 00 F2 4F F2 35 4A 53 52 20 43 4B 43 |O.5;..O.5JSR CKC|
000047F0: 4F 4D 00 01 50 FC 35 4A 53 52 20 46 52 4D 4E 55 |OM..P.5JSR FRMNU|
00004800: 4D 00 0F 50 06 36 4A 53 52 20 24 42 43 30 46 00 |M..P.6JSR $BC0F.|
00004810: 22 50 10 36 4C 44 59 20 23 30 3A 53 54 59 20 24 |"P.6LDY #0:STY $|
00004820: 36 32 00 36 50 1A 36 4C 44 41 20 23 36 30 3A 53 |62.6P.6LDA #60:S|
00004830: 54 41 20 24 36 33 00 43 50 24 36 4C 44 58 20 23 |TA $63.CP$6LDX #|
00004840: 24 39 30 00 4B 50 2E 36 53 45 43 00 59 50 38 36 |$90.KP.6SEC.YP86|
00004850: 4A 53 52 20 24 42 43 34 39 00 67 50 42 36 4A 53 |JSR $BC49.gPB6JS|
00004860: 52 20 24 42 41 32 42 00 76 50 4C 36 4A 53 52 20 |R $BA2B.vPL6JSR |
00004870: 46 41 43 41 44 52 00 86 50 56 36 4C 44 41 20 5A |FACADR..PV6LDA Z|
00004880: 57 49 53 43 48 58 00 8E 50 60 36 41 53 4C 00 96 |WISCHX..P`6ASL..|
00004890: 50 6A 36 54 41 58 00 A2 50 74 36 4C 44 41 20 24 |Pj6TAX..Pt6LDA $|
000048A0: 31 34 00 B4 50 7E 36 53 54 41 20 53 49 44 32 AA |14..P~6STA SID2.|
000048B0: 32 35 2C 58 00 C0 50 88 36 4C 44 41 20 24 31 35 |25,X..P.6LDA $15|
000048C0: 00 D2 50 92 36 53 54 41 20 53 49 44 32 AA 32 36 |..P.6STA SID2.26|
000048D0: 2C 58 00 D8 50 9C 36 3B 00 E6 50 A6 36 4A 53 52 |,X..P.6;..P.6JSR|
000048E0: 20 43 4B 43 4F 4D 00 F3 50 B0 36 4A 53 52 20 A1 | CKCOM..P.6JSR .|
000048F0: 42 59 54 00 FE 50 BA 36 43 50 58 20 23 30 00 08 |BYT..P.6CPX #0..|
00004900: 51 C4 36 42 45 51 20 58 00 18 51 CE 36 4C 44 41 |Q.6BEQ X..Q.6LDA|
00004910: 20 5A 57 49 53 43 48 58 00 24 51 D8 36 41 53 4C | ZWISCHX.$Q.6ASL|
00004920: 3A 54 41 58 00 38 51 E2 36 92 20 4C 44 41 20 53 |:TAX.8Q.6. LDA S|
00004930: 49 44 32 AA 32 35 2C 58 00 42 51 F6 36 42 4E 45 |ID2.25,X.BQ.6BNE|
00004940: 20 92 00 54 51 00 37 4C 44 41 20 53 49 44 32 AA | ..TQ.7LDA SID2.|
00004950: 32 36 2C 58 00 5E 51 14 37 42 4E 45 20 92 00 64 |26,X.^Q.7BNE ..d|
00004960: 51 1E 37 3B 00 76 51 28 37 58 20 4A 53 52 20 54 |Q.7;.vQ(7X JSR T|
00004970: 45 53 54 43 4F 4D 00 84 51 32 37 42 45 51 20 80 |ESTCOM..Q27BEQ .|
00004980: 50 4C 41 59 00 91 51 3C 37 4A 4D 50 20 50 4C 41 |PLAY..Q<7JMP PLA|
00004990: 59 00 9F 51 46 37 80 50 4C 41 59 20 52 54 53 00 |Y..QF7.PLAY RTS.|
000049A0: C1 51 50 37 5A 41 48 4C 20 2E 42 59 54 20 31 33 |.QP7ZAHL .BYT 13|
000049B0: 33 2C 31 33 36 2C 35 39 2C 31 30 30 2C 39 30 2C |3,136,59,100,90,|
000049C0: 30 00 C7 51 5A 37 3B 00 DD 51 64 37 3B AC 20 42 |0..QZ7;..Qd7;. B|
000049D0: 45 46 45 48 4C 20 50 55 4C 53 45 20 AC 00 E3 51 |EFEHL PULSE ...Q|
000049E0: 6E 37 3B 00 F8 51 78 37 50 55 4C 53 45 20 4A 53 |n7;..Qx7PULSE JS|
000049F0: 52 20 A1 56 4F 49 43 45 00 06 52 82 37 4A 53 52 |R .VOICE..R.7JSR|
00004A00: 20 43 4B 43 4F 4D 00 15 52 8C 37 4A 53 52 20 46 | CKCOM..R.7JSR F|
00004A10: 52 4D 4E 55 4D 00 24 52 96 37 4A 53 52 20 46 41 |RMNUM.$R.7JSR FA|
00004A20: 43 41 44 52 00 34 52 A0 37 4C 44 41 20 5A 57 49 |CADR.4R.7LDA ZWI|
00004A30: 53 43 48 59 00 3C 52 AA 37 43 4C 43 00 47 52 B4 |SCHY.<R.7CLC.GR.|
00004A40: 37 41 44 43 20 23 32 00 4F 52 BE 37 54 41 59 00 |7ADC #2.OR.7TAY.|
00004A50: 5B 52 C8 37 4C 44 41 20 24 31 34 00 69 52 D2 37 |[R.7LDA $14.iR.7|
00004A60: 53 54 41 20 53 49 44 2C 59 00 75 52 DC 37 4C 44 |STA SID,Y.uR.7LD|
00004A70: 41 20 24 31 35 00 85 52 E6 37 53 54 41 20 53 49 |A $15..R.7STA SI|
00004A80: 44 AA 31 2C 59 00 95 52 F0 37 4A 53 52 20 54 45 |D.1,Y..R.7JSR TE|
00004A90: 53 54 43 4F 4D 00 A3 52 FA 37 42 4E 45 20 50 55 |STCOM..R.7BNE PU|
00004AA0: 4C 53 45 00 AB 52 04 38 52 54 53 00 B1 52 0E 38 |LSE..R.8RTS..R.8|
00004AB0: 3B 00 C5 52 18 38 3B AC 20 42 45 46 45 48 4C 20 |;..R.8;. BEFEHL |
00004AC0: 52 45 A2 20 AC 00 CB 52 22 38 3B 00 DB 52 2C 38 |RE. ...R"8;..R,8|
00004AD0: 52 45 A2 20 4C 44 41 20 24 32 42 00 E7 52 36 38 |RE. LDA $2B..R68|
00004AE0: 53 54 41 20 24 46 42 00 F3 52 40 38 4C 44 41 20 |STA $FB..R@8LDA |
00004AF0: 24 32 43 00 FF 52 4A 38 53 54 41 20 24 46 43 00 |$2C..RJ8STA $FC.|
00004B00: 0A 53 54 38 4C 44 59 20 23 33 00 1A 53 5E 38 53 |.ST8LDY #3..S^8S|
00004B10: 55 43 48 41 4E 46 20 49 4E 59 00 2A 53 68 38 4C |UCHANF INY.*Sh8L|
00004B20: 44 41 20 28 24 46 42 29 2C 59 00 3A 53 72 38 42 |DA ($FB),Y.:Sr8B|
00004B30: 4E 45 20 53 55 43 48 41 4E 46 00 40 53 7C 38 3B |NE SUCHANF.@S|8;|
00004B40: 00 48 53 86 38 49 4E 59 00 50 53 90 38 54 59 41 |.HS.8INY.PS.8TYA|
00004B50: 00 5B 53 9A 38 4C 44 59 20 23 30 00 63 53 A4 38 |.[S.8LDY #0.cS.8|
00004B60: 43 4C 43 00 7B 53 AE 38 41 44 43 20 28 24 46 42 |CLC.{S.8ADC ($FB|
00004B70: 29 2C 59 3A 41 44 43 20 24 32 42 00 8B 53 B8 38 |),Y:ADC $2B..S.8|
00004B80: 53 54 41 20 28 24 46 42 29 2C 59 00 98 53 C2 38 |STA ($FB),Y..S.8|
00004B90: 4C 44 41 20 23 24 30 30 00 A0 53 CC 38 49 4E 59 |LDA #$00..S.8INY|
00004BA0: 00 B8 53 D6 38 41 44 43 20 28 24 46 42 29 2C 59 |..S.8ADC ($FB),Y|
00004BB0: 3A 41 44 43 20 24 32 43 00 C8 53 E0 38 53 54 41 |:ADC $2C..S.8STA|
00004BC0: 20 28 24 46 42 29 2C 59 00 CE 53 EA 38 3B 00 E1 | ($FB),Y..S.8;..|
00004BD0: 53 F4 38 53 55 43 48 80 45 20 53 54 41 20 24 46 |S.8SUCH.E STA $F|
00004BE0: 45 00 E9 53 FE 38 44 45 59 00 F9 53 08 39 4C 44 |E..S.8DEY..S.9LD|
00004BF0: 41 20 28 24 46 42 29 2C 59 00 05 54 12 39 53 54 |A ($FB),Y..T.9ST|
00004C00: 41 20 24 46 44 00 0B 54 1C 39 3B 00 1F 54 26 39 |A $FD..T.9;..T&9|
00004C10: 4C 44 41 20 24 46 44 3A 53 54 41 20 24 46 42 00 |LDA $FD:STA $FB.|
00004C20: 33 54 30 39 4C 44 41 20 24 46 45 3A 53 54 41 20 |3T09LDA $FE:STA |
00004C30: 24 46 43 00 3B 54 3A 39 49 4E 59 00 4B 54 44 39 |$FC.;T:9INY.KTD9|
00004C40: 4C 44 41 20 28 24 46 42 29 2C 59 00 5A 54 4E 39 |LDA ($FB),Y.ZTN9|
00004C50: 42 4E 45 20 53 55 43 48 80 45 00 60 54 58 39 3B |BNE SUCH.E.`TX9;|
00004C60: 00 6C 54 62 39 4C 44 41 20 24 46 42 00 74 54 6C |.lTb9LDA $FB.tTl|
00004C70: 39 43 4C 43 00 81 54 76 39 41 44 43 20 23 24 30 |9CLC..Tv9ADC #$0|
00004C80: 32 00 9D 54 80 39 53 54 41 20 24 32 44 3A 53 54 |2..T.9STA $2D:ST|
00004C90: 41 20 24 32 46 3A 53 54 41 20 24 33 31 00 AA 54 |A $2F:STA $31..T|
00004CA0: 8A 39 4C 44 41 20 23 24 30 30 00 B6 54 94 39 41 |.9LDA #$00..T.9A|
00004CB0: 44 43 20 24 46 43 00 D2 54 9E 39 53 54 41 20 24 |DC $FC..T.9STA $|
00004CC0: 32 45 3A 53 54 41 20 24 33 30 3A 53 54 41 20 24 |2E:STA $30:STA $|
00004CD0: 33 32 00 DA 54 A8 39 52 54 53 00 E0 54 B2 39 3B |32..T.9RTS..T.9;|
00004CE0: 00 F8 54 BC 39 3B AC 20 46 55 4E 4B 54 49 91 20 |..T.9;. FUNKTI. |
00004CF0: 53 50 58 28 58 29 20 AC 00 FE 54 C6 39 3B 00 11 |SPX(X) ...T.9;..|
00004D00: 55 D0 39 53 50 58 20 4A 53 52 20 46 55 4E 53 50 |U.9SPX JSR FUNSP|
00004D10: 52 00 19 55 DA 39 54 41 59 00 1F 55 E4 39 3B 00 |R..U.9TAY..U.9;.|
00004D20: 27 55 EE 39 41 53 4C 00 2F 55 F8 39 54 41 58 00 |'U.9ASL./U.9TAX.|
00004D30: 3D 55 02 3A 4C 44 41 20 56 49 43 2C 58 00 49 55 |=U.:LDA VIC,X.IU|
00004D40: 0C 3A 53 54 41 20 24 36 33 00 54 55 16 3A 4C 44 |.:STA $63.TU.:LD|
00004D50: 41 20 23 30 00 60 55 20 3A 53 54 41 20 24 36 32 |A #0.`U :STA $62|
00004D60: 00 6F 55 2A 3A 4C 44 41 20 56 49 43 AA 31 36 00 |.oU*:LDA VIC.16.|
00004D70: 7F 55 34 3A AF 20 42 49 54 53 45 54 5A 2C 59 00 |.U4:. BITSETZ,Y.|
00004D80: 8C 55 3E 3A 42 45 51 20 4E 4F 4D 53 00 98 55 48 |.U>:BEQ NOMS..UH|
00004D90: 3A 49 4E 43 20 24 36 32 00 AA 55 52 3A 4E 4F 4D |:INC $62..UR:NOM|
00004DA0: 53 20 4C 44 58 20 23 24 39 30 00 B2 55 5C 3A 53 |S LDX #$90..U\:S|
00004DB0: 45 43 00 C0 55 66 3A 4A 4D 50 20 24 42 43 34 39 |EC..Uf:JMP $BC49|
00004DC0: 00 C6 55 70 3A 3B 00 DE 55 7A 3A 3B AC 20 46 55 |..Up:;..Uz:;. FU|
00004DD0: 4E 4B 54 49 91 20 53 50 59 28 58 29 20 AC 00 E4 |NKTI. SPY(X) ...|
00004DE0: 55 84 3A 3B 00 F7 55 8E 3A 53 50 59 20 4A 53 52 |U.:;..U.:SPY JSR|
00004DF0: 20 46 55 4E 53 50 52 00 FF 55 98 3A 41 53 4C 00 | FUNSPR..U.:ASL.|
00004E00: 07 56 A2 3A 54 41 58 00 17 56 AC 3A 4C 44 41 20 |.V.:TAX..V.:LDA |
00004E10: 56 49 43 AA 31 2C 58 00 1F 56 B6 3A 54 41 59 00 |VIC.1,X..V.:TAY.|
00004E20: 2D 56 C0 3A 4A 4D 50 20 24 42 33 41 32 00 33 56 |-V.:JMP $B3A2.3V|
00004E30: CA 3A 3B 00 4B 56 D4 3A 3B AC 20 46 55 4E 4B 54 |.:;.KV.:;. FUNKT|
00004E40: 49 91 20 41 4E 47 28 58 29 20 AC 00 51 56 DE 3A |I. ANG(X) ..QV.:|
00004E50: 3B 00 64 56 E8 3A 41 4E 47 20 4A 53 52 20 46 55 |;.dV.:ANG JSR FU|
00004E60: 4E 53 50 52 00 6C 56 F2 3A 54 41 58 00 7B 56 FC |NSPR.lV.:TAX.{V.|
00004E70: 3A 4C 44 41 20 41 4E 47 4C 2C 58 00 83 56 06 3B |:LDA ANGL,X..V.;|
00004E80: 54 41 59 00 92 56 10 3B 4C 44 41 20 41 4E 47 48 |TAY..V.;LDA ANGH|
00004E90: 2C 58 00 A0 56 1A 3B 4A 4D 50 20 24 42 33 39 35 |,X..V.;JMP $B395|
00004EA0: 00 A6 56 24 3B 3B 00 BE 56 2E 3B 3B AC 20 46 55 |..V$;;..V.;;. FU|
00004EB0: 4E 4B 54 49 91 20 4A 4F 59 28 58 29 20 AC 00 C4 |NKTI. JOY(X) ...|
00004EC0: 56 38 3B 3B 00 D7 56 42 3B 4A 4F 59 20 4A 53 52 |V8;;..VB;JOY JSR|
00004ED0: 20 46 55 4E 53 50 52 00 DF 56 4C 3B 50 48 41 00 | FUNSPR..VL;PHA.|
00004EE0: EA 56 56 3B 4C 44 58 20 23 31 00 F5 56 60 3B AF |.VV;LDX #1..V`;.|
00004EF0: 20 23 24 30 34 00 04 57 6A 3B 42 4E 45 20 4E 4F | #$04..Wj;BNE NO|
00004F00: 50 B0 54 32 00 0F 57 74 3B 4C 44 58 20 23 30 00 |P.T2..Wt;LDX #0.|
00004F10: 15 57 7E 3B 3B 00 24 57 88 3B 4E 4F 50 B0 54 32 |.W~;;.$W.;NOP.T2|
00004F20: 20 50 4C 41 00 2F 57 92 3B AF 20 23 24 30 33 00 | PLA./W.;. #$03.|
00004F30: 37 57 9C 3B 54 41 59 00 42 57 A6 3B 43 4D 50 20 |7W.;TAY.BW.;CMP |
00004F40: 23 33 00 50 57 B0 3B 42 4E 45 20 A8 44 52 45 49 |#3.PW.;BNE .DREI|
00004F50: 00 56 57 BA 3B 3B 00 63 57 C4 3B 4C 44 41 20 23 |.VW.;;.cW.;LDA #|
00004F60: 24 30 33 00 71 57 CE 3B AF 20 24 44 43 30 30 2C |$03.qW.;. $DC00,|
00004F70: 58 00 7D 57 D8 3B B0 41 20 23 24 30 43 00 8A 57 |X.}W.;.A #$0C..W|
00004F80: E2 3B 43 4D 50 20 23 24 30 46 00 98 57 EC 3B 42 |.;CMP #$0F..W.;B|
00004F90: 4E 45 20 4A 4F 59 CB 54 00 9E 57 F6 3B 3B 00 B5 |NE JOY.T..W.;;..|
00004FA0: 57 00 3C A8 44 52 45 49 20 4C 44 41 20 41 52 54 |W.<.DREI LDA ART|
00004FB0: 54 41 42 2C 59 00 C3 57 0A 3C AF 20 24 44 43 30 |TAB,Y..W.<. $DC0|
00004FC0: 30 2C 58 00 D4 57 14 3C B0 41 20 53 45 54 52 45 |0,X..W.<.A SETRE|
00004FD0: 53 54 2C 59 00 DA 57 1E 3C 3B 00 E8 57 28 3C 4A |ST,Y..W.<;..W(<J|
00004FE0: 4F 59 CB 54 20 54 41 59 00 F8 57 32 3C 4C 44 41 |OY.T TAY..W2<LDA|
00004FF0: 20 4C 4F 57 49 4E 2C 59 00 04 58 3C 3C 53 54 41 | LOWIN,Y..X<<STA|
00005000: 20 24 36 33 00 14 58 46 3C 4C 44 41 20 48 49 57 | $63..XF<LDA HIW|
00005010: 49 4E 2C 59 00 20 58 50 3C 53 54 41 20 24 36 32 |IN,Y. XP<STA $62|
00005020: 00 2D 58 5A 3C 4C 44 58 20 23 24 39 30 00 35 58 |.-XZ<LDX #$90.5X|
00005030: 64 3C 53 45 43 00 43 58 6E 3C 4A 4D 50 20 24 42 |d<SEC.CXn<JMP $B|
00005040: 43 34 39 00 49 58 78 3C 3B 00 69 58 82 3C 41 52 |C49.IXx<;.iX.<AR|
00005050: 54 54 41 42 20 2E 42 59 54 20 24 30 46 2C 24 30 |TTAB .BYT $0F,$0|
00005060: 43 2C 24 30 33 2C 24 30 43 00 8A 58 8C 3C 53 45 |C,$03,$0C..X.<SE|
00005070: 54 52 45 53 54 20 2E 42 59 54 20 24 30 30 2C 24 |TREST .BYT $00,$|
00005080: 30 33 2C 24 30 43 2C 24 30 33 00 90 58 96 3C 3B |03,$0C,$03..X.<;|
00005090: 00 D2 58 A0 3C 4C 4F 57 49 4E 20 2E 42 59 54 20 |..X.<LOWIN .BYT |
000050A0: 31 2C 30 2C 30 2C 30 2C 30 2C B3 33 31 35 2C 34 |1,0,0,0,0,.315,4|
000050B0: 35 2C B3 33 36 30 2C 30 2C 32 32 35 2C 31 33 35 |5,.360,0,225,135|
000050C0: 2C 31 38 30 2C 30 2C B3 32 37 30 2C 39 30 2C 30 |,180,0,.270,90,0|
000050D0: 2C 30 00 0A 59 AA 3C 48 49 57 49 4E 20 2E 42 59 |,0..Y.<HIWIN .BY|
000050E0: 54 20 30 2C 30 2C 30 2C 30 2C 30 2C B1 33 31 35 |T 0,0,0,0,0,.315|
000050F0: 2C 30 2C B1 33 36 30 2C 30 2C 30 2C 30 2C 30 2C |,0,.360,0,0,0,0,|
00005100: 30 2C B1 32 37 30 2C 30 2C 30 00 10 59 B4 3C 3B |0,.270,0,0..Y.<;|
00005110: 00 16 59 BE 3C 3B 00 2F 59 C8 3C 3B AC 20 46 55 |..Y.<;./Y.<;. FU|
00005120: 4E 4B 54 49 91 20 46 49 52 45 28 58 29 20 AC 00 |NKTI. FIRE(X) ..|
00005130: 35 59 D2 3C 3B 00 49 59 DC 3C 46 49 52 45 20 4A |5Y.<;.IY.<FIRE J|
00005140: 53 52 20 46 55 4E 53 50 52 00 54 59 E6 3C 43 4D |SR FUNSPR.TY.<CM|
00005150: 50 20 23 32 00 5F 59 F0 3C 42 43 43 20 50 B0 00 |P #2._Y.<BCC P..|
00005160: 6D 59 FA 3C 4A 4D 50 20 24 42 32 34 35 00 7C 59 |mY.<JMP $B245.|Y|
00005170: 04 3D 50 B0 20 45 B0 20 23 24 30 31 00 84 59 0E |.=P. E. #$01..Y.|
00005180: 3D 54 41 58 00 8A 59 18 3D 3B 00 9A 59 22 3D 4C |=TAX..Y.=;..Y"=L|
00005190: 44 41 20 24 44 43 30 30 2C 58 00 A5 59 2C 3D AF |DA $DC00,X..Y,=.|
000051A0: 20 23 24 31 30 00 AD 59 36 3D 54 41 59 00 BD 59 | #$10..Y6=TAY..Y|
000051B0: 40 3D 4C 44 41 20 4C 4F 57 49 4E 2C 59 00 C5 59 |@=LDA LOWIN,Y..Y|
000051C0: 4A 3D 54 41 59 00 D3 59 54 3D 4A 4D 50 20 24 42 |J=TAY..YT=JMP $B|
000051D0: 33 41 32 00 D9 59 5E 3D 3B 00 F2 59 68 3D 3B AC |3A2..Y^=;..Yh=;.|
000051E0: 20 46 55 4E 4B 54 49 91 20 53 43 4F 4C 28 58 29 | FUNKTI. SCOL(X)|
000051F0: 20 AC 00 F8 59 72 3D 3B 00 0C 5A 7C 3D 53 43 4F | ...Yr=;..Z|=SCO|
00005200: 4C 20 4A 53 52 20 46 55 4E 53 50 52 00 14 5A 86 |L JSR FUNSPR..Z.|
00005210: 3D 54 41 58 00 26 5A 90 3D 4C 44 41 20 42 49 54 |=TAX.&Z.=LDA BIT|
00005220: 53 45 54 5A 2C 58 00 32 5A 9A 3D AF 20 56 49 43 |SETZ,X.2Z.=. VIC|
00005230: 33 30 00 3F 5A A4 3D 42 45 51 20 A8 43 4F 4C 00 |30.?Z.=BEQ .COL.|
00005240: 4A 5A AE 3D 4C 44 41 20 23 31 00 68 5A B8 3D A8 |JZ.=LDA #1.hZ.=.|
00005250: 43 4F 4C 20 54 41 59 3A 4C 44 41 20 23 30 3A 4A |COL TAY:LDA #0:J|
00005260: 4D 50 20 24 42 33 39 35 00 6E 5A C2 3D 3B 00 87 |MP $B395.nZ.=;..|
00005270: 5A CC 3D 3B AC 20 46 55 4E 4B 54 49 91 20 43 43 |Z.=;. FUNKTI. CC|
00005280: 4F 4C 28 58 29 20 AC 00 8D 5A D6 3D 3B 00 A1 5A |OL(X) ...Z.=;..Z|
00005290: E0 3D 43 43 4F 4C 20 4A 53 52 20 46 55 4E 53 50 |.=CCOL JSR FUNSP|
000052A0: 52 00 A9 5A EA 3D 54 41 58 00 BB 5A F4 3D 4C 44 |R..Z.=TAX..Z.=LD|
000052B0: 41 20 42 49 54 53 45 54 5A 2C 58 00 C7 5A FE 3D |A BITSETZ,X..Z.=|
000052C0: AF 20 56 49 43 33 31 00 D5 5A 08 3E 42 45 51 20 |. VIC31..Z.>BEQ |
000052D0: A8 43 43 4F 4C 00 E0 5A 12 3E 4C 44 41 20 23 31 |.CCOL..Z.>LDA #1|
000052E0: 00 FF 5A 1C 3E A8 43 43 4F 4C 20 54 41 59 3A 4C |..Z.>.CCOL TAY:L|
000052F0: 44 41 20 23 30 3A 4A 4D 50 20 24 42 33 39 35 00 |DA #0:JMP $B395.|
00005300: 05 5B 26 3E 3B 00 20 5B 30 3E 3B AC 20 46 55 4E |.[&>;. [0>;. FUN|
00005310: 4B 54 49 91 20 43 48 41 52 28 58 2C 59 29 20 AC |KTI. CHAR(X,Y) .|
00005320: 00 26 5B 3A 3E 3B 00 38 5B 44 3E 43 48 41 52 20 |.&[:>;.8[D>CHAR |
00005330: 4A 53 52 20 43 48 52 A1 00 46 5B 4E 3E 4A 53 52 |JSR CHR..F[N>JSR|
00005340: 20 24 41 45 46 41 00 54 5B 58 3E 4A 53 52 20 A1 | $AEFA.T[X>JSR .|
00005350: 4B 4F B0 44 00 62 5B 62 3E 4A 53 52 20 24 41 45 |KO.D.b[b>JSR $AE|
00005360: 46 37 00 6D 5B 6C 3E 4C 44 41 20 23 30 00 79 5B |F7.m[l>LDA #0.y[|
00005370: 76 3E 53 54 41 20 24 36 32 00 84 5B 80 3E 4C 44 |v>STA $62..[.>LD|
00005380: 59 20 23 30 00 94 5B 8A 3E 4C 44 41 20 28 24 46 |Y #0..[.>LDA ($F|
00005390: 42 29 2C 59 00 A0 5B 94 3E 53 54 41 20 24 36 33 |B),Y..[.>STA $63|
000053A0: 00 AD 5B 9E 3E 4C 44 58 20 23 24 39 30 00 B5 5B |..[.>LDX #$90..[|
000053B0: A8 3E 53 45 43 00 C3 5B B2 3E 4A 4D 50 20 24 42 |.>SEC..[.>JMP $B|
000053C0: 43 34 39 00 C9 5B BC 3E 3B 00 E5 5B C6 3E 3B AC |C49..[.>;..[.>;.|
000053D0: 20 48 4F 4C 54 20 53 50 52 49 54 45 AB 4E 55 4D | HOLT SPRITE.NUM|
000053E0: 4D 45 52 20 AC 00 EB 5B D0 3E 3B 00 FF 5B DA 3E |MER ...[.>;..[.>|
000053F0: 46 55 4E 53 50 52 20 4A 53 52 20 43 48 52 A1 00 |FUNSPR JSR CHR..|
00005400: 0D 5C E4 3E 4A 53 52 20 24 41 45 46 31 00 1C 5C |.\.>JSR $AEF1..\|
00005410: EE 3E 4A 53 52 20 46 41 43 41 44 52 00 28 5C F8 |.>JSR FACADR.(\.|
00005420: 3E 4C 44 41 20 24 31 35 00 36 5C 02 3F 42 45 51 |>LDA $15.6\.?BEQ|
00005430: 20 4E 4F 42 41 44 00 44 5C 0C 3F 4A 4D 50 20 24 | NOBAD.D\.?JMP $|
00005440: 42 32 34 35 00 56 5C 16 3F 4E 4F 42 41 44 20 44 |B245.V\.?NOBAD D|
00005450: 45 43 20 24 31 34 00 62 5C 20 3F 4C 44 41 20 24 |EC $14.b\ ?LDA $|
00005460: 31 34 00 6D 5C 2A 3F 43 4D 50 20 23 38 00 7C 5C |14.m\*?CMP #8.|\|
00005470: 34 3F 42 43 43 20 4E 4F 42 41 44 32 00 8A 5C 3E |4?BCC NOBAD2..\>|
00005480: 3F 4A 4D 50 20 24 42 32 34 35 00 99 5C 48 3F 4E |?JMP $B245..\H?N|
00005490: 4F 42 41 44 32 20 52 54 53 00 9F 5C 52 3F 3B 00 |OBAD2 RTS..\R?;.|
000054A0: BC 5C 5C 3F 3B 20 48 4F 4C 54 20 5A 45 49 43 48 |.\\?; HOLT ZEICH|
000054B0: 45 4E 4B 4F B0 44 49 4E 41 54 45 4E 00 C2 5C 66 |ENKO.DINATEN..\f|
000054C0: 3F 3B 00 D5 5C 70 3F A1 4B 4F B0 44 20 4A 53 52 |?;..\p?.KO.D JSR|
000054D0: 20 A1 42 59 54 00 E5 5C 7A 3F 53 54 58 20 5A 57 | .BYT..\z?STX ZW|
000054E0: 49 53 43 48 58 00 F1 5C 84 3F 43 50 58 20 23 34 |ISCHX..\.?CPX #4|
000054F0: 30 00 FF 5C 8E 3F 42 43 43 20 4C 45 47 41 4C 00 |0..\.?BCC LEGAL.|
00005500: 0F 5D 98 3F 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 |.].?JMP ILLEGAL.|
00005510: 23 5D A2 3F 4C 45 47 41 4C 20 4A 53 52 20 43 4B |#].?LEGAL JSR CK|
00005520: 43 4F 4D 00 30 5D AC 3F 4A 53 52 20 A1 42 59 54 |COM.0].?JSR .BYT|
00005530: 00 40 5D B6 3F 53 54 58 20 5A 57 49 53 43 48 59 |.@].?STX ZWISCHY|
00005540: 00 4C 5D C0 3F 43 50 58 20 23 32 35 00 5B 5D CA |.L].?CPX #25.[].|
00005550: 3F 42 43 43 20 4C 45 47 41 4C 32 00 6B 5D D4 3F |?BCC LEGAL2.k].?|
00005560: 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 71 5D DE 3F |JMP ILLEGAL.q].?|
00005570: 3B 00 88 5D E8 3F 4C 45 47 41 4C 32 20 4C 44 41 |;..].?LEGAL2 LDA|
00005580: 20 23 32 35 36 AB 34 30 00 94 5D F2 3F 53 54 41 | #256.40..].?STA|
00005590: 20 24 46 42 00 A1 5D FC 3F 4C 44 41 20 23 24 43 | $FB..].?LDA #$C|
000055A0: 42 00 AD 5D 06 40 53 54 41 20 24 46 43 00 B3 5D |B..].@STA $FC..]|
000055B0: 10 40 3B 00 C3 5D 1A 40 4C 44 58 20 5A 57 49 53 |.@;..].@LDX ZWIS|
000055C0: 43 48 59 00 D4 5D 24 40 41 44 44 59 20 4C 44 41 |CHY..]$@ADDY LDA|
000055D0: 20 23 34 30 00 DC 5D 2E 40 43 4C 43 00 E8 5D 38 | #40..].@CLC..]8|
000055E0: 40 41 44 43 20 24 46 42 00 F4 5D 42 40 53 54 41 |@ADC $FB..]B@STA|
000055F0: 20 24 46 42 00 02 5E 4C 40 42 43 43 20 4E 43 41 | $FB..^L@BCC NCA|
00005600: 52 59 00 0E 5E 56 40 49 4E 43 20 24 46 43 00 1C |RY..^V@INC $FC..|
00005610: 5E 60 40 4E 43 41 52 59 20 44 45 58 00 29 5E 6A |^`@NCARY DEX.)^j|
00005620: 40 42 50 4C 20 41 44 44 59 00 2F 5E 74 40 3B 00 |@BPL ADDY./^t@;.|
00005630: 3F 5E 7E 40 4C 44 41 20 5A 57 49 53 43 48 58 00 |?^~@LDA ZWISCHX.|
00005640: 47 5E 88 40 43 4C 43 00 53 5E 92 40 41 44 43 20 |G^.@CLC.S^.@ADC |
00005650: 24 46 42 00 5F 5E 9C 40 53 54 41 20 24 46 42 00 |$FB._^.@STA $FB.|
00005660: 6D 5E A6 40 42 43 43 20 4E 43 41 52 58 00 79 5E |m^.@BCC NCARX.y^|
00005670: B0 40 49 4E 43 20 24 46 43 00 7F 5E BA 40 3B 00 |.@INC $FC..^.@;.|
00005680: 8D 5E C4 40 4E 43 41 52 58 20 52 54 53 00 93 5E |.^.@NCARX RTS..^|
00005690: CE 40 3B 00 AD 5E D8 40 3B AC 20 4E 45 55 45 20 |.@;..^.@;. NEUE |
000056A0: 49 52 51 AB 52 4F 55 54 49 4E 45 20 AC 00 B3 5E |IRQ.ROUTINE ...^|
000056B0: E2 40 3B 00 C9 5E EC 40 49 52 51 4E 45 55 20 4C |.@;..^.@IRQNEU L|
000056C0: 44 41 20 56 49 43 AA 32 35 00 D4 5E F6 40 AF 20 |DA VIC.25..^.@. |
000056D0: 23 24 30 31 00 E3 5E 00 41 42 45 51 20 4E 45 55 |#$01..^.ABEQ NEU|
000056E0: 49 52 51 00 FC 5E 0A 41 4C 44 41 20 56 49 43 AA |IRQ..^.ALDA VIC.|
000056F0: 33 30 3A 53 54 41 20 56 49 43 33 30 00 15 5F 14 |30:STA VIC30.._.|
00005700: 41 4C 44 41 20 56 49 43 AA 33 31 3A 53 54 41 20 |ALDA VIC.31:STA |
00005710: 56 49 43 33 31 00 2F 5F 1E 41 4C 44 41 20 56 49 |VIC31./_.ALDA VI|
00005720: 43 AA 32 35 3A 53 54 41 20 56 49 43 AA 32 35 00 |C.25:STA VIC.25.|
00005730: 3D 5F 28 41 4A 4D 50 20 24 45 41 38 31 00 43 5F |=_(AJMP $EA81.C_|
00005740: 32 41 3B 00 63 5F 3C 41 4E 45 55 49 52 51 20 4C |2A;.c_<ANEUIRQ L|
00005750: 44 41 20 24 30 41 3A 42 4D 49 20 53 4F 55 4E 44 |DA $0A:BMI SOUND|
00005760: 49 52 51 00 70 5F 3D 41 4C 44 41 20 23 24 45 46 |IRQ.p_=ALDA #$EF|
00005770: 00 7D 5F 3E 41 AF 20 56 49 43 AA 31 37 00 8C 5F |.}_>A. VIC.17.._|
00005780: 3F 41 53 54 41 20 56 49 43 AA 31 37 00 9A 5F 43 |?ASTA VIC.17.._C|
00005790: 41 4A 4D 50 20 24 45 41 33 31 00 A0 5F 44 41 3B |AJMP $EA31.._DA;|
000057A0: 00 B4 5F 45 41 53 4F 55 4E 44 49 52 51 20 4C 44 |.._EASOUNDIRQ LD|
000057B0: 58 20 23 34 00 CF 5F 46 41 44 45 43 53 4F 55 4E |X #4.._FADECSOUN|
000057C0: 44 20 4C 44 41 20 53 49 44 32 AA 32 35 2C 58 00 |D LDA SID2.25,X.|
000057D0: DE 5F 50 41 42 4E 45 20 82 53 4F 55 4E 44 00 F0 |._PABNE .SOUND..|
000057E0: 5F 5A 41 4C 44 41 20 53 49 44 32 AA 32 36 2C 58 |_ZALDA SID2.26,X|
000057F0: 00 00 60 64 41 42 4E 45 20 44 45 43 48 49 47 48 |..`dABNE DECHIGH|
00005800: 00 06 60 6E 41 3B 00 11 60 78 41 43 50 58 20 23 |..`nA;..`xACPX #|
00005810: 30 00 20 60 82 41 42 4E 45 20 4E 49 43 48 54 31 |0. `.ABNE NICHT1|
00005820: 00 2B 60 8C 41 4C 44 59 20 23 34 00 3F 60 96 41 |.+`.ALDY #4.?`.A|
00005830: 4A 4D 50 20 4C 4F 45 53 43 48 53 4F 55 4E 44 00 |JMP LOESCHSOUND.|
00005840: 45 60 A0 41 3B 00 57 60 AA 41 4E 49 43 48 54 31 |E`.A;.W`.ANICHT1|
00005850: 20 43 50 58 20 23 32 00 66 60 B4 41 42 4E 45 20 | CPX #2.f`.ABNE |
00005860: 4E 49 43 48 54 32 00 72 60 BE 41 4C 44 59 20 23 |NICHT2.r`.ALDY #|
00005870: 31 31 00 86 60 C8 41 4A 4D 50 20 4C 4F 45 53 43 |11..`.AJMP LOESC|
00005880: 48 53 4F 55 4E 44 00 8C 60 D2 41 3B 00 9F 60 DC |HSOUND..`.A;..`.|
00005890: 41 4E 49 43 48 54 32 20 4C 44 59 20 23 31 38 00 |ANICHT2 LDY #18.|
000058A0: B8 60 E6 41 4C 4F 45 53 43 48 53 4F 55 4E 44 20 |.`.ALOESCHSOUND |
000058B0: 4C 44 41 20 23 24 46 45 00 C5 60 F0 41 AF 20 53 |LDA #$FE..`.A. S|
000058C0: 49 44 32 2C 59 00 D4 60 FA 41 53 54 41 20 53 49 |ID2,Y..`.ASTA SI|
000058D0: 44 32 2C 59 00 E2 60 04 42 53 54 41 20 53 49 44 |D2,Y..`.BSTA SID|
000058E0: 2C 59 00 E8 60 0E 42 3B 00 02 61 18 42 44 45 43 |,Y..`.B;..a.BDEC|
000058F0: 48 49 47 48 20 44 45 43 20 53 49 44 32 AA 32 36 |HIGH DEC SID2.26|
00005900: 2C 58 00 1B 61 22 42 82 53 4F 55 4E 44 20 44 45 |,X..a"B.SOUND DE|
00005910: 43 20 53 49 44 32 AA 32 35 2C 58 00 27 61 2C 42 |C SID2.25,X.'a,B|
00005920: 44 45 58 3A 44 45 58 00 38 61 36 42 42 50 4C 20 |DEX:DEX.8a6BBPL |
00005930: 44 45 43 53 4F 55 4E 44 00 3E 61 40 42 3B 00 53 |DECSOUND.>a@B;.S|
00005940: 61 4A 42 53 50 52 49 54 45 49 52 51 20 4C 44 58 |aJBSPRITEIRQ LDX|
00005950: 20 23 37 00 62 61 54 42 53 54 58 20 49 52 51 53 | #7.baTBSTX IRQS|
00005960: 50 52 00 68 61 5E 42 3B 00 80 61 68 42 43 48 45 |PR.ha^B;..ahBCHE|
00005970: 43 4B 53 50 52 20 4C 44 58 20 49 52 51 53 50 52 |CKSPR LDX IRQSPR|
00005980: 00 86 61 72 42 3B 00 97 61 7C 42 4C 44 41 20 53 |..arB;..a|BLDA S|
00005990: 50 41 4E 47 4C 2C 58 00 A7 61 86 42 42 45 51 20 |PANGL,X..a.BBEQ |
000059A0: 54 45 53 54 43 4F 4C 00 B8 61 90 42 4A 53 52 20 |TESTCOL..a.BJSR |
000059B0: 4D 4F 56 45 41 4E 47 4C 00 BE 61 9A 42 3B 00 DF |MOVEANGL..a.B;..|
000059C0: 61 A4 42 54 45 53 54 43 4F 4C 20 4C 44 41 20 49 |a.BTESTCOL LDA I|
000059D0: 52 51 46 4C 41 47 3A 42 4E 45 20 82 53 50 52 00 |RQFLAG:BNE .SPR.|
000059E0: EE 61 AE 42 4C 44 58 20 49 52 51 53 50 52 00 0A |.a.BLDX IRQSPR..|
000059F0: 62 B8 42 4C 44 41 20 53 50 52 43 4F 4C 2C 58 3A |b.BLDA SPRCOL,X:|
00005A00: 42 45 51 20 4E 53 50 43 4F 4C 00 18 62 C2 42 4C |BEQ NSPCOL..b.BL|
00005A10: 44 41 20 56 49 43 33 30 00 28 62 CC 42 AF 20 42 |DA VIC30.(b.B. B|
00005A20: 49 54 53 45 54 5A 2C 58 00 38 62 D6 42 42 4E 45 |ITSETZ,X.8b.BBNE|
00005A30: 20 53 50 52 4B 4F 4C 4C 00 3E 62 E0 42 3B 00 5F | SPRKOLL.>b.B;._|
00005A40: 62 EA 42 4E 53 50 43 4F 4C 20 4C 44 41 20 43 48 |b.BNSPCOL LDA CH|
00005A50: 52 43 4F 4C 2C 58 3A 42 45 51 20 82 53 50 52 00 |RCOL,X:BEQ .SPR.|
00005A60: 6D 62 F4 42 4C 44 41 20 56 49 43 33 31 00 7D 62 |mb.BLDA VIC31.}b|
00005A70: FE 42 AF 20 42 49 54 53 45 54 5A 2C 58 00 8D 62 |.B. BITSETZ,X..b|
00005A80: 08 43 42 4E 45 20 43 48 52 4B 4F 4C 4C 00 93 62 |.CBNE CHRKOLL..b|
00005A90: 12 43 3B 00 A7 62 1C 43 82 53 50 52 20 44 45 43 |.C;..b.C.SPR DEC|
00005AA0: 20 49 52 51 53 50 52 00 B8 62 26 43 42 50 4C 20 | IRQSPR..b&CBPL |
00005AB0: 43 48 45 43 4B 53 50 52 00 BE 62 30 43 3B 00 D1 |CHECKSPR..b0C;..|
00005AC0: 62 3A 43 80 49 52 51 20 44 45 43 20 54 49 4D 45 |b:C.IRQ DEC TIME|
00005AD0: 52 00 E3 62 44 43 42 50 4C 20 53 50 52 49 54 45 |R..bDCBPL SPRITE|
00005AE0: 49 52 51 00 EE 62 4E 43 4C 44 41 20 23 33 00 FC |IRQ..bNCLDA #3..|
00005AF0: 62 58 43 53 54 41 20 54 49 4D 45 52 00 0A 63 62 |bXCSTA TIMER..cb|
00005B00: 43 4A 4D 50 20 24 45 41 33 31 00 1D 63 76 43 53 |CJMP $EA31..cvCS|
00005B10: 50 52 4B 4F 4C 4C 20 4C 44 41 20 23 31 00 31 63 |PRKOLL LDA #1.1c|
00005B20: 80 43 53 54 41 20 53 50 43 4F 4C 46 4C 41 47 2C |.CSTA SPCOLFLAG,|
00005B30: 58 00 3E 63 8A 43 4A 4D 50 20 82 53 50 52 00 44 |X.>c.CJMP .SPR.D|
00005B40: 63 94 43 3B 00 57 63 9E 43 43 48 52 4B 4F 4C 4C |c.C;.Wc.CCHRKOLL|
00005B50: 20 4C 44 41 20 23 31 00 6B 63 A8 43 53 54 41 20 | LDA #1.kc.CSTA |
00005B60: 43 48 43 4F 4C 46 4C 41 47 2C 58 00 78 63 B2 43 |CHCOLFLAG,X.xc.C|
00005B70: 4A 4D 50 20 82 53 50 52 00 7E 63 BC 43 3B 00 A2 |JMP .SPR.~c.C;..|
00005B80: 63 C6 43 3B AC 20 57 49 4E 4B 45 4C 42 45 57 45 |c.C;. WINKELBEWE|
00005B90: 47 55 4E 47 20 44 45 53 20 53 50 52 49 54 45 53 |GUNG DES SPRITES|
00005BA0: 20 04 00 A8 63 D0 43 3B 00 C0 63 DA 43 4D 4F 56 | ...c.C;..c.CMOV|
00005BB0: 45 41 4E 47 4C 20 4C 44 58 20 49 52 51 53 50 52 |EANGL LDX IRQSPR|
00005BC0: 00 D0 63 E4 43 4C 44 41 20 53 50 45 45 44 2C 58 |..c.CLDA SPEED,X|
00005BD0: 00 DF 63 EE 43 42 45 51 20 41 4E 47 4C 45 80 00 |..c.CBEQ ANGLE..|
00005BE0: F1 63 F8 43 44 45 43 20 53 50 45 45 44 5A 57 2C |.c.CDEC SPEEDZW,|
00005BF0: 58 00 00 64 02 44 42 4E 45 20 41 4E 47 4C 45 80 |X..d.DBNE ANGLE.|
00005C00: 00 10 64 0C 44 4C 44 41 20 53 50 45 45 44 2C 58 |..d.DLDA SPEED,X|
00005C10: 00 22 64 16 44 53 54 41 20 53 50 45 45 44 5A 57 |."d.DSTA SPEEDZW|
00005C20: 2C 58 00 28 64 20 44 3B 00 39 64 2A 44 4C 44 41 |,X.(d D;.9d*DLDA|
00005C30: 20 53 50 54 55 52 4E 2C 58 00 49 64 34 44 42 45 | SPTURN,X.Id4DBE|
00005C40: 51 20 41 4E 49 54 45 53 54 00 59 64 3E 44 4A 53 |Q ANITEST.Yd>DJS|
00005C50: 52 20 54 55 52 4E 53 50 52 00 5F 64 48 44 3B 00 |R TURNSPR._dHD;.|
00005C60: 7A 64 52 44 41 4E 49 54 45 53 54 20 4C 44 41 20 |zdRDANITEST LDA |
00005C70: 53 50 41 4E 49 4D 41 54 2C 58 00 8B 64 5C 44 42 |SPANIMAT,X..d\DB|
00005C80: 45 51 20 41 4E 47 4C 4D 4F 56 45 00 9B 64 66 44 |EQ ANGLMOVE..dfD|
00005C90: 4A 53 52 20 53 50 52 41 4E 49 4D 00 A1 64 70 44 |JSR SPRANIM..dpD|
00005CA0: 3B 00 B9 64 7A 44 41 4E 47 4C 4D 4F 56 45 20 4C |;..dzDANGLMOVE L|
00005CB0: 44 59 20 49 52 51 53 50 52 00 C9 64 84 44 4C 44 |DY IRQSPR..d.DLD|
00005CC0: 41 20 49 4E 43 52 58 2C 59 00 D1 64 8E 44 54 41 |A INCRX,Y..d.DTA|
00005CD0: 58 00 E2 64 98 44 4C 44 41 20 41 49 4E 43 52 58 |X..d.DLDA AINCRX|
00005CE0: 2C 59 00 F1 64 A2 44 4A 53 52 20 53 50 52 53 45 |,Y..d.DJSR SPRSE|
00005CF0: 54 00 F7 64 AC 44 3B 00 06 65 B6 44 4C 44 58 20 |T..d.D;..e.DLDX |
00005D00: 49 52 51 53 50 52 00 17 65 C0 44 4C 44 41 20 41 |IRQSPR..e.DLDA A|
00005D10: 50 50 52 4F 58 2C 58 00 1F 65 CA 44 43 4C 43 00 |PPROX,X..e.DCLC.|
00005D20: 2E 65 D4 44 41 44 43 20 44 8B 46 59 2C 58 00 3F |.e.DADC D.FY,X.?|
00005D30: 65 DE 44 53 54 41 20 41 50 50 52 4F 58 2C 58 00 |e.DSTA APPROX,X.|
00005D40: 45 65 E8 44 3B 00 54 65 F2 44 43 4D 50 20 44 8B |Ee.D;.Te.DCMP D.|
00005D50: 46 58 2C 58 00 61 65 FC 44 42 43 43 20 80 41 4E |FX,X.ae.DBCC .AN|
00005D60: 47 00 69 65 06 45 53 45 43 00 78 65 10 45 53 42 |G.ie.ESEC.xe.ESB|
00005D70: 43 20 44 8B 46 58 2C 58 00 89 65 1A 45 53 54 41 |C D.FX,X..e.ESTA|
00005D80: 20 41 50 50 52 4F 58 2C 58 00 8F 65 24 45 3B 00 | APPROX,X..e$E;.|
00005D90: 9E 65 2E 45 4C 44 59 20 49 52 51 53 50 52 00 AF |.e.ELDY IRQSPR..|
00005DA0: 65 38 45 4C 44 41 20 41 49 4E 43 52 59 2C 59 00 |e8ELDA AINCRY,Y.|
00005DB0: B7 65 42 45 54 41 58 00 C7 65 4C 45 4C 44 41 20 |.eBETAX..eLELDA |
00005DC0: 49 4E 43 52 59 2C 59 00 D6 65 56 45 4A 53 52 20 |INCRY,Y..eVEJSR |
00005DD0: 53 50 52 53 45 54 00 DC 65 60 45 3B 00 F0 65 6A |SPRSET..e`E;..ej|
00005DE0: 45 80 41 4E 47 20 4C 44 58 20 49 52 51 53 50 52 |E.ANG LDX IRQSPR|
00005DF0: 00 01 66 74 45 4C 44 41 20 5A 45 52 4F 46 4C 2C |..ftELDA ZEROFL,|
00005E00: 58 00 10 66 7E 45 42 4E 45 20 41 4E 47 4C 45 80 |X..f~EBNE ANGLE.|
00005E10: 00 16 66 88 45 3B 00 2F 66 92 45 82 53 43 48 52 |..f.E;./f.E.SCHR|
00005E20: 20 4C 44 41 20 53 43 48 52 49 54 54 4C 2C 58 00 | LDA SCHRITTL,X.|
00005E30: 3F 66 9C 45 42 4E 45 20 44 45 43 52 4C 4F 57 00 |?f.EBNE DECRLOW.|
00005E40: 52 66 A6 45 4C 44 41 20 53 43 48 52 49 54 54 48 |Rf.ELDA SCHRITTH|
00005E50: 2C 58 00 63 66 B0 45 42 4E 45 20 44 45 43 52 48 |,X.cf.EBNE DECRH|
00005E60: 49 47 48 00 69 66 BA 45 3B 00 74 66 C4 45 4C 44 |IGH.if.E;.tf.ELD|
00005E70: 41 20 23 30 00 85 66 CE 45 53 54 41 20 53 50 41 |A #0..f.ESTA SPA|
00005E80: 4E 47 4C 2C 58 00 8B 66 D8 45 3B 00 A7 66 E2 45 |NGL,X..f.E;..f.E|
00005E90: 44 45 43 52 48 49 47 48 20 44 45 43 20 53 43 48 |DECRHIGH DEC SCH|
00005EA0: 52 49 54 54 48 2C 58 00 C3 66 EC 45 44 45 43 52 |RITTH,X..f.EDECR|
00005EB0: 4C 4F 57 20 20 44 45 43 20 53 43 48 52 49 54 54 |LOW DEC SCHRITT|
00005EC0: 4C 2C 58 00 D2 66 F6 45 41 4E 47 4C 45 80 20 52 |L,X..f.EANGLE. R|
00005ED0: 54 53 00 D8 66 00 46 3B 00 F0 66 0A 46 3B AC 20 |TS..f.F;..f.F;. |
00005EE0: 52 49 43 48 54 55 4E 47 53 41 80 45 8A 47 20 AC |RICHTUNGSA.E.G .|
00005EF0: 00 F6 66 14 46 3B 00 0F 67 1E 46 54 55 52 4E 53 |..f.F;..g.FTURNS|
00005F00: 50 52 20 4C 44 41 20 54 55 52 4E 4C 5A 2C 58 00 |PR LDA TURNLZ,X.|
00005F10: 1A 67 28 46 42 45 51 20 41 41 00 28 67 32 46 4A |.g(FBEQ AA.(g2FJ|
00005F20: 4D 50 20 54 55 52 4E 80 00 3C 67 3C 46 41 41 20 |MP TURN..<g<FAA |
00005F30: 4C 44 41 20 54 55 52 4E 48 5A 2C 58 00 4C 67 46 |LDA TURNHZ,X.LgF|
00005F40: 46 42 4E 45 20 48 49 47 48 44 45 43 00 52 67 50 |FBNE HIGHDEC.RgP|
00005F50: 46 3B 00 62 67 5A 46 4C 44 41 20 54 55 52 4E 4C |F;.bgZFLDA TURNL|
00005F60: 2C 58 00 73 67 64 46 53 54 41 20 54 55 52 4E 4C |,X.sgdFSTA TURNL|
00005F70: 5A 2C 58 00 83 67 6E 46 4C 44 41 20 54 55 52 4E |Z,X..gnFLDA TURN|
00005F80: 48 2C 58 00 94 67 78 46 53 54 41 20 54 55 52 4E |H,X..gxFSTA TURN|
00005F90: 48 5A 2C 58 00 9A 67 82 46 3B 00 A2 67 8C 46 43 |HZ,X..g.F;..g.FC|
00005FA0: 4C 43 00 B3 67 96 46 4C 44 41 20 54 55 52 4E 57 |LC..g.FLDA TURNW|
00005FB0: 4C 2C 58 00 C2 67 A0 46 41 44 43 20 41 4E 47 4C |L,X..g.FADC ANGL|
00005FC0: 2C 58 00 D1 67 AA 46 53 54 41 20 41 4E 47 4C 2C |,X..g.FSTA ANGL,|
00005FD0: 58 00 E2 67 B4 46 4C 44 41 20 54 55 52 4E 57 48 |X..g.FLDA TURNWH|
00005FE0: 2C 58 00 F1 67 BE 46 41 44 43 20 41 4E 47 48 2C |,X..g.FADC ANGH,|
00005FF0: 58 00 00 68 C8 46 53 54 41 20 41 4E 47 48 2C 58 |X..h.FSTA ANGH,X|
00006000: 00 06 68 D2 46 3B 00 2A 68 DC 46 4C 44 41 20 41 |..h.F;.*h.FLDA A|
00006010: 4E 47 48 2C 58 20 3B 54 45 53 54 20 4F 42 20 57 |NGH,X ;TEST OB W|
00006020: 49 4E 4B 45 4C 20 B3 33 36 30 00 38 68 E6 46 42 |INKEL .360.8h.FB|
00006030: 45 51 20 4B 4C 33 36 30 00 43 68 F0 46 43 4D 50 |EQ KL360.Ch.FCMP|
00006040: 20 23 31 00 51 68 FA 46 42 4E 45 20 47 52 33 36 | #1.Qh.FBNE GR36|
00006050: 30 00 66 68 04 47 54 45 53 54 4C 20 4C 44 41 20 |0.fh.GTESTL LDA |
00006060: 41 4E 47 4C 2C 58 00 74 68 0E 47 43 4D 50 20 23 |ANGL,X.th.GCMP #|
00006070: B3 33 36 30 00 82 68 18 47 42 43 43 20 4B 4C 33 |.360..h.GBCC KL3|
00006080: 36 30 00 88 68 22 47 3B 00 96 68 2C 47 47 52 33 |60..h"G;..h,GGR3|
00006090: 36 30 20 53 45 43 00 A5 68 36 47 4C 44 41 20 41 |60 SEC..h6GLDA A|
000060A0: 4E 47 4C 2C 58 00 B3 68 40 47 53 42 43 20 23 B3 |NGL,X..h@GSBC #.|
000060B0: 33 36 30 00 C2 68 4A 47 53 54 41 20 41 4E 47 4C |360..hJGSTA ANGL|
000060C0: 2C 58 00 D1 68 54 47 4C 44 41 20 41 4E 47 48 2C |,X..hTGLDA ANGH,|
000060D0: 58 00 DF 68 5E 47 53 42 43 20 23 B1 33 36 30 00 |X..h^GSBC #.360.|
000060E0: EE 68 68 47 53 54 41 20 41 4E 47 48 2C 58 00 F4 |.hhGSTA ANGH,X..|
000060F0: 68 72 47 3B 00 09 69 7C 47 4B 4C 33 36 30 20 4C |hrG;..i|GKL360 L|
00006100: 44 41 20 41 4E 47 4C 2C 58 00 16 69 86 47 53 54 |DA ANGL,X..i.GST|
00006110: 41 20 57 49 4E 4C 00 25 69 90 47 4C 44 41 20 41 |A WINL.%i.GLDA A|
00006120: 4E 47 48 2C 58 00 32 69 9A 47 53 54 41 20 57 49 |NGH,X.2i.GSTA WI|
00006130: 4E 48 00 41 69 A4 47 4C 44 41 20 53 50 52 49 54 |NH.Ai.GLDA SPRIT|
00006140: 45 00 49 69 AE 47 50 48 41 00 58 69 B8 47 53 54 |E.Ii.GPHA.Xi.GST|
00006150: 58 20 53 50 52 49 54 45 00 6A 69 C2 47 4A 53 52 |X SPRITE.ji.GJSR|
00006160: 20 53 45 54 57 49 4E 4B 45 4C 00 72 69 CC 47 50 | SETWINKEL.ri.GP|
00006170: 4C 41 00 81 69 D6 47 53 54 41 20 53 50 52 49 54 |LA..i.GSTA SPRIT|
00006180: 45 00 94 69 E0 47 4C 44 41 20 54 55 52 4E 5A 41 |E..i.GLDA TURNZA|
00006190: 48 4C 2C 58 00 A2 69 EA 47 42 45 51 20 54 55 52 |HL,X..i.GBEQ TUR|
000061A0: 4E 80 00 B5 69 F4 47 44 45 43 20 54 55 52 4E 5A |N...i.GDEC TURNZ|
000061B0: 41 48 4C 2C 58 00 C3 69 FE 47 42 4E 45 20 54 55 |AHL,X..i.GBNE TU|
000061C0: 52 4E 80 00 CE 69 08 48 4C 44 41 20 23 30 00 DF |RN...i.HLDA #0..|
000061D0: 69 12 48 53 54 41 20 53 50 54 55 52 4E 2C 58 00 |i.HSTA SPTURN,X.|
000061E0: F8 69 1C 48 48 49 47 48 44 45 43 20 44 45 43 20 |.i.HHIGHDEC DEC |
000061F0: 54 55 52 4E 48 5A 2C 58 00 0F 6A 26 48 54 55 52 |TURNHZ,X..j&HTUR|
00006200: 4E 80 20 44 45 43 20 54 55 52 4E 4C 5A 2C 58 00 |N. DEC TURNLZ,X.|
00006210: 17 6A 30 48 52 54 53 00 1D 6A 3A 48 3B 00 3A 6A |.j0HRTS..j:H;.:j|
00006220: 44 48 3B AC 20 41 4E 49 4D 41 54 49 91 20 56 91 |DH;. ANIMATI. V.|
00006230: 20 53 50 52 49 54 45 53 20 AC 00 40 6A 4E 48 3B | SPRITES ..@jNH;|
00006240: 00 59 6A 58 48 53 50 52 41 4E 49 4D 20 44 45 43 |.YjXHSPRANIM DEC|
00006250: 20 53 43 48 52 5A 57 2C 58 00 67 6A 62 48 42 4E | SCHRZW,X.gjbHBN|
00006260: 45 20 41 4E 49 4D 80 00 7A 6A 6C 48 4C 44 41 20 |E ANIM..zjlHLDA |
00006270: 53 43 48 52 5A 41 48 4C 2C 58 00 8B 6A 76 48 53 |SCHRZAHL,X..jvHS|
00006280: 54 41 20 53 43 48 52 5A 57 2C 58 00 91 6A 80 48 |TA SCHRZW,X..j.H|
00006290: 3B 00 A1 6A 8A 48 49 4E 43 20 24 43 46 46 38 2C |;..j.HINC $CFF8,|
000062A0: 58 00 B2 6A 94 48 44 45 43 20 5A 41 48 4C 5A 57 |X..j.HDEC ZAHLZW|
000062B0: 2C 58 00 C0 6A 9E 48 42 4E 45 20 41 4E 49 4D 80 |,X..j.HBNE ANIM.|
000062C0: 00 D3 6A A8 48 4C 44 41 20 42 4C 4F 43 4B 41 4E |..j.HLDA BLOCKAN|
000062D0: 46 2C 58 00 E3 6A B2 48 53 54 41 20 24 43 46 46 |F,X..j.HSTA $CFF|
000062E0: 38 2C 58 00 F4 6A BC 48 4C 44 41 20 42 4C 5A 41 |8,X..j.HLDA BLZA|
000062F0: 48 4C 2C 58 00 05 6B C6 48 53 54 41 20 5A 41 48 |HL,X..k.HSTA ZAH|
00006300: 4C 5A 57 2C 58 00 13 6B D0 48 41 4E 49 4D 80 20 |LZW,X..k.HANIM. |
00006310: 52 54 53 00 19 6B DA 48 3B 00 38 6B E4 48 3B AC |RTS..k.H;.8k.H;.|
00006320: 20 42 45 57 45 47 45 4E 20 45 49 4E 45 53 20 53 | BEWEGEN EINES S|
00006330: 50 52 49 54 45 53 20 AC 00 3E 6B EE 48 3B 00 4D |PRITES ..>k.H;.M|
00006340: 6B F8 48 53 50 52 53 45 54 20 50 48 41 00 55 6B |k.HSPRSET PHA.Uk|
00006350: 02 49 54 59 41 00 5D 6B 0C 49 41 53 4C 00 65 6B |.ITYA.]k.IASL.ek|
00006360: 16 49 54 41 59 00 6D 6B 20 49 50 4C 41 00 73 6B |.ITAY.mk IPLA.sk|
00006370: 2A 49 3B 00 7B 6B 34 49 43 4C 43 00 8B 6B 3E 49 |*I;.{k4ICLC..k>I|
00006380: 41 44 43 20 56 49 43 AA 31 2C 59 00 9B 6B 48 49 |ADC VIC.1,Y..kHI|
00006390: 53 54 41 20 56 49 43 AA 31 2C 59 00 A1 6B 52 49 |STA VIC.1,Y..kRI|
000063A0: 3B 00 A9 6B 5C 49 54 58 41 00 B1 6B 66 49 43 4C |;..k\ITXA..kfICL|
000063B0: 43 00 BF 6B 70 49 41 44 43 20 56 49 43 2C 59 00 |C..kpIADC VIC,Y.|
000063C0: CD 6B 7A 49 53 54 41 20 56 49 43 2C 59 00 D3 6B |.kzISTA VIC,Y..k|
000063D0: 84 49 3B 00 E3 6B 8E 49 42 43 43 20 4E 4F 43 41 |.I;..k.IBCC NOCA|
000063E0: 52 52 59 00 EB 6B 98 49 54 58 41 00 FB 6B A2 49 |RRY..k.ITXA..k.I|
000063F0: 42 4D 49 20 80 53 50 52 53 45 54 00 0A 6C AC 49 |BMI .SPRSET..l.I|
00006400: 49 4E 56 45 52 54 20 54 59 41 00 12 6C B6 49 4C |INVERT TYA..l.IL|
00006410: 53 52 00 1A 6C C0 49 54 41 58 00 2C 6C CA 49 4C |SR..l.ITAX.,l.IL|
00006420: 44 41 20 42 49 54 53 45 54 5A 2C 58 00 3A 6C D4 |DA BITSETZ,X.:l.|
00006430: 49 45 B0 20 56 49 43 AA 31 36 00 49 6C DE 49 53 |IE. VIC.16.Il.IS|
00006440: 54 41 20 56 49 43 AA 31 36 00 59 6C E8 49 4A 4D |TA VIC.16.Yl.IJM|
00006450: 50 20 80 53 50 52 53 45 54 00 5F 6C F2 49 3B 00 |P .SPRSET._l.I;.|
00006460: 6F 6C FC 49 4E 4F 43 41 52 52 59 20 54 58 41 00 |ol.INOCARRY TXA.|
00006470: 7E 6C 06 4A 42 4D 49 20 49 4E 56 45 52 54 00 84 |~l.JBMI INVERT..|
00006480: 6C 10 4A 3B 00 94 6C 1A 4A 80 53 50 52 53 45 54 |l.J;..l.J.SPRSET|
00006490: 20 52 54 53 00 9A 6C 24 4A 3B 00 BF 6C 2E 4A 3B | RTS..l$J;..l.J;|
000064A0: AC 20 48 4F 4C 54 20 53 50 52 49 54 45 4E 55 4D |. HOLT SPRITENUM|
000064B0: 4D 45 52 20 49 4E 20 58 AB 52 45 47 2E 20 AC 00 |MER IN X.REG. ..|
000064C0: C5 6C 38 4A 3B 00 DA 6C 42 4A A1 53 50 52 49 54 |.l8J;..lBJ.SPRIT|
000064D0: 45 20 4A 53 52 20 A1 42 59 54 00 E0 6C 4C 4A 3B |E JSR .BYT..lLJ;|
000064E0: 00 E8 6C 56 4A 44 45 58 00 F7 6C 60 4A 53 54 58 |..lVJDEX..l`JSTX|
000064F0: 20 53 50 52 49 54 45 00 02 6D 6A 4A 43 50 58 20 | SPRITE..mjJCPX |
00006500: 23 38 00 12 6D 74 4A 42 43 43 20 45 52 4C 41 55 |#8..mtJBCC ERLAU|
00006510: 42 54 00 36 6D 7E 4A 4A 4D 50 20 49 4C 4C 45 47 |BT.6m~JJMP ILLEG|
00006520: 41 4C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |AL |
00006530: 20 20 20 20 20 20 00 3C 6D 88 4A 3B 00 4C 6D 92 | .<m.J;.Lm.|
00006540: 4A 45 52 4C 41 55 42 54 20 52 54 53 00 52 6D 9C |JERLAUBT RTS.Rm.|
00006550: 4A 3B 00 6D 6D A6 4A 3B AC 20 53 45 54 5A 45 4E |J;.mm.J;. SETZEN|
00006560: 20 45 49 4E 45 53 20 42 49 54 53 20 AC 00 73 6D | EINES BITS ..sm|
00006570: B0 4A 3B 00 9C 6D BA 4A 42 49 54 53 45 54 5A 20 |.J;..m.JBITSETZ |
00006580: 2E 42 59 54 20 31 2C 32 2C 34 2C 38 2C 24 31 30 |.BYT 1,2,4,8,$10|
00006590: 2C 24 32 30 2C 24 34 30 2C 24 38 30 00 A2 6D C4 |,$20,$40,$80..m.|
000065A0: 4A 3B 00 BF 6D CE 4A 3B AC 20 4C 4F 45 53 43 48 |J;..m.J;. LOESCH|
000065B0: 45 4E 20 45 49 4E 45 53 20 42 49 54 53 20 AC 00 |EN EINES BITS ..|
000065C0: C5 6D D8 4A 3B 00 F8 6D E2 4A 42 49 54 4C 4F 45 |.m.J;..m.JBITLOE|
000065D0: 53 43 48 20 2E 42 59 54 20 24 46 45 2C 24 46 44 |SCH .BYT $FE,$FD|
000065E0: 2C 24 46 42 2C 24 46 37 2C 24 45 46 2C 24 44 46 |,$FB,$F7,$EF,$DF|
000065F0: 2C 24 42 46 2C 24 37 46 00 FE 6D EC 4A 3B 00 1E |,$BF,$7F..m.J;..|
00006600: 6E F6 4A 3B AC AC AC AC AC AC AC AC AC AC AC AC |n.J;............|
00006610: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 3B |...............;|
00006620: 6E 00 4B 3B AC 20 4E 45 55 45 20 90 54 41 53 54 |n.K;. NEUE .TAST|
00006630: 45 4E 41 42 46 52 41 47 45 20 AC 00 5B 6E 0A 4B |ENABFRAGE ..[n.K|
00006640: 3B AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |;...............|
00006650: AC AC AC AC AC AC AC AC AC AC AC 00 61 6E 14 4B |............an.K|
00006660: 3B 00 70 6E 1E 4B 90 A2 20 4C 44 41 20 24 39 44 |;.pn.K.. LDA $9D|
00006670: 00 7D 6E 28 4B 42 4E 45 20 90 4F 4C 44 00 8D 6E |.}n(KBNE .OLD..n|
00006680: 32 4B 4C 44 41 20 49 52 51 46 4C 41 47 00 9A 6E |2KLDA IRQFLAG..n|
00006690: 3C 4B 42 4E 45 20 90 4F 4C 44 00 A0 6E 46 4B 3B |<KBNE .OLD..nFK;|
000066A0: 00 AB 6E 50 4B 4C 44 58 20 23 30 00 C8 6E 5A 4B |..nPKLDX #0..nZK|
000066B0: 46 4C 41 47 54 45 53 54 20 4C 44 41 20 53 50 43 |FLAGTEST LDA SPC|
000066C0: 4F 4C 46 4C 41 47 2C 58 00 D7 6E 64 4B 42 4E 45 |OLFLAG,X..ndKBNE|
000066D0: 20 53 50 43 4F 4C 49 00 EB 6E 6E 4B 4C 44 41 20 | SPCOLI..nnKLDA |
000066E0: 43 48 43 4F 4C 46 4C 41 47 2C 58 00 0B 6F 78 4B |CHCOLFLAG,X..oxK|
000066F0: 42 45 51 20 4E 4F 53 45 54 20 20 20 20 20 20 20 |BEQ NOSET |
00006700: 20 20 20 20 20 20 20 20 20 20 20 00 11 6F 82 4B | ..o.K|
00006710: 3B 00 1C 6F 8C 4B 4C 44 41 20 23 31 00 2C 6F 96 |;..o.KLDA #1.,o.|
00006720: 4B 53 54 41 20 49 52 51 46 4C 41 47 00 37 6F A0 |KSTA IRQFLAG.7o.|
00006730: 4B 4C 44 41 20 23 30 00 4B 6F AA 4B 53 54 41 20 |KLDA #0.Ko.KSTA |
00006740: 43 48 43 4F 4C 46 4C 41 47 2C 58 00 5D 6F B4 4B |CHCOLFLAG,X.]o.K|
00006750: 4C 44 41 20 43 48 52 43 4F 4C 4C 2C 58 00 69 6F |LDA CHRCOLL,X.io|
00006760: BE 4B 53 54 41 20 24 31 34 00 7B 6F C8 4B 4C 44 |.KSTA $14.{o.KLD|
00006770: 41 20 43 48 52 43 4F 4C 48 2C 58 00 87 6F D2 4B |A CHRCOLH,X..o.K|
00006780: 53 54 41 20 24 31 35 00 91 6F DC 4B 4A 4D 50 20 |STA $15..o.KJMP |
00006790: 8D 00 97 6F E6 4B 3B 00 A9 6F F0 4B 53 50 43 4F |...o.K;..o.KSPCO|
000067A0: 4C 49 20 4C 44 41 20 23 31 00 B9 6F FA 4B 53 54 |LI LDA #1..o.KST|
000067B0: 41 20 49 52 51 46 4C 41 47 00 D4 6F 04 4C 4C 44 |A IRQFLAG..o.LLD|
000067C0: 41 20 23 30 3A 53 54 41 20 53 50 43 4F 4C 46 4C |A #0:STA SPCOLFL|
000067D0: 41 47 2C 58 00 DA 6F 0E 4C 3B 00 EC 6F 18 4C 4C |AG,X..o.L;..o.LL|
000067E0: 44 41 20 53 50 52 43 4F 4C 4C 2C 58 00 F8 6F 22 |DA SPRCOLL,X..o"|
000067F0: 4C 53 54 41 20 24 31 34 00 0A 70 2C 4C 4C 44 41 |LSTA $14..p,LLDA|
00006800: 20 53 50 52 43 4F 4C 48 2C 58 00 16 70 36 4C 53 | SPRCOLH,X..p6LS|
00006810: 54 41 20 24 31 35 00 1C 70 40 4C 3B 00 2B 70 4A |TA $15..p@L;.+pJ|
00006820: 4C 8D 20 4C 44 41 20 23 24 30 33 00 39 70 54 4C |L. LDA #$03.9pTL|
00006830: 4A 53 52 20 24 41 33 46 42 00 45 70 5E 4C 4C 44 |JSR $A3FB.Ep^LLD|
00006840: 41 20 24 37 42 00 4D 70 68 4C 50 48 41 00 59 70 |A $7B.MphLPHA.Yp|
00006850: 72 4C 4C 44 41 20 24 37 41 00 61 70 7C 4C 50 48 |rLLDA $7A.ap|LPH|
00006860: 41 00 6D 70 86 4C 4C 44 41 20 24 33 41 00 75 70 |A.mp.LLDA $3A.up|
00006870: 90 4C 50 48 41 00 81 70 9A 4C 4C 44 41 20 24 33 |.LPHA..p.LLDA $3|
00006880: 39 00 89 70 A4 4C 50 48 41 00 96 70 AE 4C 4C 44 |9..p.LPHA..p.LLD|
00006890: 41 20 23 24 38 44 00 9E 70 B8 4C 50 48 41 00 AC |A #$8D..p.LPHA..|
000068A0: 70 C2 4C 4A 53 52 20 43 48 52 CB 54 00 BA 70 CC |p.LJSR CHR.T..p.|
000068B0: 4C 4A 53 52 20 24 41 38 41 33 00 C8 70 D6 4C 4A |LJSR $A8A3..p.LJ|
000068C0: 4D 50 20 24 41 37 41 45 00 CE 70 E0 4C 3B 00 E3 |MP $A7AE..p.L;..|
000068D0: 70 EA 4C 4E 4F 53 45 54 20 49 4E 58 3A 43 50 58 |p.LNOSET INX:CPX|
000068E0: 20 23 38 00 F4 70 F4 4C 42 4E 45 20 46 4C 41 47 | #8..p.LBNE FLAG|
000068F0: 54 45 53 54 00 FA 70 FE 4C 3B 00 0F 71 08 4D 90 |TEST..p.L;..q.M.|
00006900: 4F 4C 44 20 4C 44 41 20 42 52 45 41 4B 46 4C 00 |OLD LDA BREAKFL.|
00006910: 21 71 12 4D 42 45 51 20 42 52 45 41 4B 54 45 53 |!q.MBEQ BREAKTES|
00006920: 54 00 29 71 1C 4D 52 54 53 00 41 71 26 4D 42 52 |T.)q.MRTS.Aq&MBR|
00006930: 45 41 4B 54 45 53 54 20 4A 4D 50 20 24 46 36 45 |EAKTEST JMP $F6E|
00006940: 44 00 47 71 30 4D 3B 00 61 71 3A 4D 3B AC 20 50 |D.Gq0M;.aq:M;. P|
00006950: 52 55 45 46 54 20 41 55 46 20 4B 4F 4D 4D 41 20 |RUEFT AUF KOMMA |
00006960: AC 00 67 71 44 4D 3B 00 7C 71 4E 4D 54 45 53 54 |..gqDM;.|qNMTEST|
00006970: 43 4F 4D 20 4C 44 41 20 23 24 32 43 00 89 71 58 |COM LDA #$2C..qX|
00006980: 4D 4C 44 59 20 23 24 30 30 00 99 71 62 4D 43 4D |MLDY #$00..qbMCM|
00006990: 50 20 28 24 37 41 29 2C 59 00 A7 71 6C 4D 42 4E |P ($7A),Y..qlMBN|
000069A0: 45 20 4E 4F 43 4F 4D 00 B4 71 76 4D 4A 53 52 20 |E NOCOM..qvMJSR |
000069B0: 43 48 52 A1 00 C4 71 80 4D 42 4E 45 20 54 45 53 |CHR...q.MBNE TES|
000069C0: 54 52 45 54 00 CC 71 8A 4D 50 4C 41 00 D4 71 94 |TRET..q.MPLA..q.|
000069D0: 4D 50 4C 41 00 E3 71 9E 4D 4A 4D 50 20 53 59 4E |MPLA..q.MJMP SYN|
000069E0: 54 41 58 00 F4 71 A8 4D 4E 4F 43 4F 4D 20 4C 44 |TAX..q.MNOCOM LD|
000069F0: 41 20 23 30 00 04 72 B2 4D 54 45 53 54 52 45 54 |A #0..r.MTESTRET|
00006A00: 20 52 54 53 00 0A 72 BC 4D 3B 00 23 72 C6 4D 3B | RTS..r.M;.#r.M;|
00006A10: AC 20 48 4F 4C 54 20 A4 4E 47 45 4E 45 52 41 A4 |. HOLT .NGENERA.|
00006A20: 52 20 AC 00 29 72 D0 4D 3B 00 3D 72 DA 4D A1 56 |R ..)r.M;.=r.M.V|
00006A30: 4F 49 43 45 20 4A 53 52 20 A1 42 59 54 00 45 72 |OICE JSR .BYT.Er|
00006A40: E4 4D 44 45 58 00 50 72 EE 4D 43 50 58 20 23 33 |.MDEX.Pr.MCPX #3|
00006A50: 00 5F 72 F8 4D 42 43 43 20 4C 45 47 41 4C 34 00 |._r.MBCC LEGAL4.|
00006A60: 6F 72 02 4E 4A 4D 50 20 49 4C 4C 45 47 41 4C 00 |or.NJMP ILLEGAL.|
00006A70: 86 72 0C 4E 4C 45 47 41 4C 34 20 53 54 58 20 5A |.r.NLEGAL4 STX Z|
00006A80: 57 49 53 43 48 58 00 91 72 16 4E 43 50 58 20 23 |WISCHX..r.NCPX #|
00006A90: 30 00 9F 72 20 4E 42 4E 45 20 A8 45 49 4E 53 00 |0..r NBNE .EINS.|
00006AA0: AA 72 2A 4E 4C 44 59 20 23 30 00 B5 72 34 4E 4A |.r*NLDY #0..r4NJ|
00006AB0: 4D 50 20 80 A1 00 C6 72 3E 4E A8 45 49 4E 53 20 |MP ....r>N.EINS |
00006AC0: 43 50 58 20 23 31 00 D4 72 48 4E 42 4E 45 20 A8 |CPX #1..rHNBNE .|
00006AD0: 5A 57 45 49 00 DF 72 52 4E 4C 44 59 20 23 37 00 |ZWEI..rRNLDY #7.|
00006AE0: EA 72 5C 4E 4A 4D 50 20 80 A1 00 FC 72 66 4E A8 |.r\NJMP ....rfN.|
00006AF0: 5A 57 45 49 20 4C 44 59 20 23 31 34 00 0F 73 70 |ZWEI LDY #14..sp|
00006B00: 4E 80 A1 20 53 54 59 20 5A 57 49 53 43 48 59 00 |N.. STY ZWISCHY.|
00006B10: 17 73 7A 4E 52 54 53 00 1D 73 84 4E 3B 00 3F 73 |.szNRTS..s.N;.?s|
00006B20: 8E 4E 3B 20 AC 20 48 4F 4C 54 20 46 4C 41 47 53 |.N; . HOLT FLAGS|
00006B30: 20 46 55 45 52 20 53 50 52 49 54 45 53 20 AC 00 | FUER SPRITES ..|
00006B40: 45 73 98 4E 3B 00 53 73 A2 4E A1 46 4C 41 47 20 |Es.N;.Ss.N.FLAG |
00006B50: 50 48 41 00 61 73 AC 4E 4A 53 52 20 43 4B 43 4F |PHA.as.NJSR CKCO|
00006B60: 4D 00 6E 73 B6 4E 4A 53 52 20 A1 42 59 54 00 7D |M.ns.NJSR .BYT.}|
00006B70: 73 C0 4E 4C 44 59 20 53 50 52 49 54 45 00 88 73 |s.NLDY SPRITE..s|
00006B80: CA 4E 43 50 58 20 23 32 00 9A 73 D4 4E 42 43 43 |.NCPX #2..s.NBCC|
00006B90: 20 4C 45 47 41 4C 46 4C 41 47 00 AA 73 DE 4E 4A | LEGALFLAG..s.NJ|
00006BA0: 4D 50 20 49 4C 4C 45 47 41 4C 00 B0 73 E8 4E 3B |MP ILLEGAL..s.N;|
00006BB0: 00 C2 73 F2 4E 4C 45 47 41 4C 46 4C 41 47 20 44 |..s.NLEGALFLAG D|
00006BC0: 45 58 00 CF 73 FC 4E 42 4E 45 20 A8 53 45 54 00 |EX..s.NBNE .SET.|
00006BD0: D5 73 06 4F 3B 00 DD 73 10 4F 50 4C 41 00 EE 73 |.s.O;..s.OPLA..s|
00006BE0: 1A 4F B0 41 20 42 49 54 53 45 54 5A 2C 59 00 FE |.O.A BITSETZ,Y..|
00006BF0: 73 24 4F 4A 4D 50 20 46 4C 41 47 52 45 54 00 04 |s$OJMP FLAGRET..|
00006C00: 74 2E 4F 3B 00 11 74 38 4F A8 53 45 54 20 50 4C |t.O;..t8O.SET PL|
00006C10: 41 00 23 74 42 4F AF 20 42 49 54 4C 4F 45 53 43 |A.#tBO. BITLOESC|
00006C20: 48 2C 59 00 33 74 4C 4F 46 4C 41 47 52 45 54 20 |H,Y.3tLOFLAGRET |
00006C30: 52 54 53 00 54 00 |RTS.T. |
.......56,8.16.6:.55,0.!....34304.-....O
PT OO.9.....$9900.[...;.................
............{...;. SPRITE.BASIC ERWEITE.
G ....$.;. (C)BY .REAS SCHULTEISS ......
;...............................8..LST 8
,2,"COMMODORE 64,S,R"...B.;...L.;. INITI
ALISIEREN .39180 ....V.;.@.`.VEK.REN .W.
D $E38B,WARMNEU,CODE,KLARTEXT,.ERPR,.FUN
.F.J.;.R.T.LDX #11.I.~.INIT LDA VEK.REN,
X.Y...STA $0300,X.....DEX.....BPL INIT..
...;.....JSR LOESCHEN.....JSR OLD...D.JS
R $E544.E.N.;.T.X.JSR VICSET.Z...;.....L
DY #0.....SCHREIBE LDA TEXT,Y.....JSR $F
FD2.....INY.....CPY #41.0...BNE SCHREIBE
.6.(.;.C.2.LDA #$99.N.<.STA 52.Y.F.STA 5
6.F.P.LDA #$00.Q.Z.STA 51.|.D.STA 55...N
.;...X.SIDSET LDA #15.16.....STA SID.6:S
TA SID.13:STA SID.20.H...LDA #16.....STA
SID2.4:STA SID2.11:STA SID2.18... .STA
SID.4:STA SID.11:STA SID.18.....RTS.!...
;.5...LOESCHEN LDA #0.@.H.LDY #0.W.R.LOE
SCH STA $0600,Y.G...STA $0700,Y.O...INY.
~...BNE LOESCH.....RTS.....;.D...TEXT .F
".. SPRITE-BASIC. (C)1985 BY A.SCHULTE
ISS".J...;...".;. AUSSCHALTEN ....,.;...
6.KILL SEI...@.JSR $E453...J.JSR $FD15..
.T.LDA #0.(.^.STA SID.24.7.H.STA VIC.21.
D.R.LDA #$03.Q.|..A 56576._...STA 56576.
L...LDA #$14.Z...STA 53272.....LDA #$00.
....STA VIC.26.....CLI...B.LDA #$04...L.
STA 648.E.V.JMP $E544.K...;.....;. NEUER
BASIC WARMSTART ......;.....WARMNEU LDA
53272.....CMP #$3F.!...BEQ WARM..0...JS
R VICSET.6.&.;.].0.SEI ;IRQ I
NITIALISIEREN.N.:.LDA #.IRQNEU.|.D.STA $
0314...N.LDA #.IRQNEU...X.STA $0315...B.
;.I.L.LDA #$01 ;RASTER IRQ ZULASSE
N.X.V.STA VIC.26.....LDA #$00.....STA VI
C.18.....LDA #$1B.....STA VIC.17.....CLI
.....;.+...LDA #$FF.7...STA $0A.D...LDA
#$10.R....A VIC.17.A...STA VIC.17.G...;.
{...WARM. JMP $A483.....;...F.VICSET LDA
#$FC...P.. 56576...Z.STA 56576.....LDA
#$3C.J...STA 53272.W...LDA #$CC.....STA
$0288.....RTS.....;... .;. UMW.LUNG IN .
ERPRETERCODE ....*.;.-.4.CODE LDX $7A.:.
>.LDY #$04.F.H.STY $0F.].R.HOLBEF LDA $0
200,X.N.\.BPL KEINCODE.{.F.CMP #$FF...P.
BEQ .CODE...Z.INX. ...BNE HOLBEF.....KEI
NCODE CMP #$20.D...BEQ .CODE.P...STA $08
.....CMP #$22.....BEQ GAENSCODE.....BIT
$0F...J.BVS .CODE...T.CMP #$3F."...BNE N
O../...LDA #$99.=...BNE .CODE.N...NO. CM
P #$30.]...BCC NOZAHL.J...CMP #$3C.X...B
CC .CODE.~.$.;.....NOZAHL JMP NEUEROUTIN
E...8.;...B.EINSPR2 STY $71...L.LDY #0.J
.V.STY $0B.R.`.DEY...J.STX $7A...T.DEX..
.~.TESTBEF INY.....INX.....HOLB LDA $020
0,X.....SEC.+...SBC $A09E,Y.;...BEQ TEST
BEF.H...CMP #$80.X.D.BNE NOFOUND.C.N..A
$0B.W.X.EINSPR1 LDY $71......CODE INX...
..INY.....STA $01FB,Y.....LDA $01FB,Y...
..BEQ .E.....SEC.M...SBC #$3A...(.BEQ TR
ENN...2.CMP #$49...<.BNE NO....F.TRENN S
TA $0F...P.NO. SEC...Z.SBC #$55...D.BNE
HOLBEF.:.N.STA $08.N.X.HOL LDA $0200,X.N
...BEQ .CODE:CMP $08:BEQ .CODE.....GAENS
CODE INY.....STA $01FB,Y... .INX.....BNE
HOL.....NOFOUND LDX $7A.D...INC $0B.T.H
.TABTEST INY...R.LDA $A09D,Y.....BPL TAB
TEST.....LDA $A09E,Y.....BNE HOLB.!...LD
A $0200,X.1...BPL .CODE.2.D....E STA $01
FD,Y.P...DEC $7B.].".LDA #$FF.I.,.STA $7
A.Q.6.RTS.W.@.;...J.NEUEROUT STY $71...T
.LDY #$00...^.STY $0B...H.DEY...R.STX $7
A.A.|.DEX.R...NEUCHECK INY.Z...INX.....N
EU LDA $0200,X.....SEC.....SBC BEFEHLE,Y
.....BEQ NEUCHECK.&.B.CMP #$80.5.L.BNE W
EITER.@.V..A $0B.H...CLC.U...ADC #$4C.E.
..JMP EINSPR1.X...WEITER LDX $7A.....INC
$0B.....STIMMT INY.....LDA BEFEHLE.1,Y.
..&.BPL STIMMT.H.0.LDA BEFEHLE,Y.T.:.BNE
NEU...D.LDY $71...N.LDX $7A...X.JMP EIN
SPR2...B.;. .L.;. UMW.LUNG IN KLARTEXT .
.&.V.;.?...KLARTEXT BPL AUSGABE.L...CMP
#$FF.\...BEQ AUSGABE.H...BIT $0F.X...BMI
AUSGABE.....CMP #204.....BCS NEUKLAR...
F.JMP $A724...P.NEUKLAR SEC...Z.SBC #203
.H...TAX.T...STY $49.....LDY #$FF......W
.T DEX.....BEQ HOLW.T.....SUCHOFFS INY.
. .LDA BEFEHLE,Y.1.*.BPL SUCHOFFS.>.4.BM
I .W.T.M.>.HOLW.T INY._.H.LDA BEFEHLE,Y.
M.R.BMI W.T.E.{.\.JSR $AB47...F.BNE HOLW
.T...P.;...Z.W.T.E JMP $A6EF.....AUSGABE
JMP $A6F3.....;.Z...;. .ERPRETERSCHLE.E
......;......ERPR LDA $9D.....BEQ .NEU.
....LDX #7...J.LDA #0.*.T.LOE STA SPRCOL
,X.;...STA CHRCOL,X.C...DEX.O...BPL LOE.
A....NEU JSR CHR..R...JSR AUSFUEHR.....J
MP $A7AE.....AUSFUEHR BEQ ZEICD...$.SBC
#$80.....BCC ....8.CMP #76.K.B.BCC ALTER
BEF.W.L.SBC #76...V.;...`.ASL...J.TAY...
T.LDA ADRESSEN.1,Y...~.PHA.....LDA ADRES
SEN,Y.%...PHA.2...JMP CHR..8...;.F...ZEI
CD RTS.V.... JMP $A804.M.D.ALTERBEF JMP
$A7F3.S.N.;...X.;. NEUE FUNKTI.EN EINBIN
DEN ......;......FUN LDA #$00.....STA $0
D.F...JSR CHR..S...BCS N.UM.....JMP $BCF
3.....N.UM CMP #245...(.BCC N.EWFUN...2.
CMP #$FF. .<.BEQ N.EWFUN.(.F.SEC.5.P.SBC
#245.=.Z.ASL.E.D.TAX.V.N.LDA FUNTAB,X.S
.X.STA $55 .....LDA FUNT
AB.1,X.....STA $56. ...JSR $0054... .JMP
$AD8D.....;.J...N.EWFUN JMP $AE92.P...;
...H.;. NEUE ... ENTSCHEIDUNG ....R.;...
... JSR $AD9E.....JSR CHRKT. ...CMP #$89
.*...BEQ K.7...LDA #$A7.E...JSR $AEFF.S.
..K LDA $61.C.".BNE RICHTIG.Q.,.JSR $A90
9...6.BNE RICHTIG...@.JMP $A8FB...J.RICH
TIG JSR CHRKT...T.BCS NOZ.F.A.^.JMP $A8A
0.X.H.NOZ.F JMP AUSFUEHR...R.;...|.;. NE
UER ..BEFEHL ......;...... PHP:LDX #7...
..JSR LOESCHEN.+...LDA #....9...STA $032
8.F...LDA #....T.B.STA $0329.C.L.JSR SID
SET.Q.V.JMP $A872.W...;.....;. ADRESSEN
DER BEFEHLE.1 ......;.....ADRESSEN .W.D
..1,..1,KILL.1......W.D SHOW.1,HIDE.1,SE
T.1,SIZE.1,COL..1,BLOCK.1."....W.D MULTI
.1,SPCOL.1,CHCOL.1,BACK.1,CLFLAG.1.I....
W.D MOVE.1,NOMOVE.1,TURN.1,.URN.1.|.&..W
.D NOSPCOL.1,NOCHCOL.1,ANIMATE.1,NOANIMA
TE.1...0..W.D SPREDIT.1,PAT.1,MPAT.1,NOB
REAK.1,CURS..1.T.:..W.D CHREDIT.1,COPY.1
,OLD.1,POP.1...D..W.D PLOT.1,B.DER.1,PAP
ER.1,INK.1.,.N..W.D VOL.1,ADSR.1,WAVE.1,
PLAY.1,PULSE.1,RE..1.Q.X.FUNTAB .W.D SPY
,SPX,ANG,JOY,FIRE.I.B..W.D SCOL,CCOL,CHA
R.O.L.;...V.;. BEFEHLSNAMEN ......;.....
BEFEHLE .F "IFRUNKILL".I....F "SHOWHIDES
ETSIZECOLORBLOCK"......F "MULTISPCOLCHCO
LBACKCLFLAG"......F "MOVENOMOVETURNNOTUR
N".2....F "NOSPCOLNOCHCOLANIMATENOANIMAT
E".W....F "SPREDITPATMPATNOBREAKCURSOR".
..F..F "CHREDITCOPYOLDPOPPLOTBORDERPAPER
INK"...P..F "VOLADSRWAVEPLAYPULSERENEW".
M.Z..F "SPYSPXANGJOYFIRESCOLCCOLCHAR".X.
...BYT 0.......$C000.....;.....;. BEFEHL
COPY ......;.....COPY JSR HOLBLOCK.). .
JSR CKCOM.=.*.LDA $FB:STA $FD.Q.4.LDA $F
C:STA $FE.B.>.JSR HOLBLOCK.N.H.LDY #63.V
.R.SEI...\.DEC $01:DEC $01...F.KOPIERE L
DA ($FD),Y...P.STA ($FB),Y...Z.DEY.J...B
PL KOPIERE.....INC $01:INC $01.....RTS..
...;.. ..;. BEFEHL SHOW ... ..;.. ..SHOW
JSR .SPRITE.. J.LDA BITSETZ,X.< T..A VI
C.21.K ..STA VIC.21.Q ..;.` ..LDA VIC.28
.N ..JSR .FLAG.} ..STA VIC.28.. ..;.. ..
LDA VIC.27. $.JSR .FLAG.. ..STA VIC.27.
. 8.;.K B..SHOW JSR TESTCOM.X L.BNE SHOW
.. V.RTS.. `.;.. J.;. BEFEHL HIDE ...!T.
;..!~.HIDE JSR .SPRITE.)!..LDA BITLOESC,
X.6!... VIC.21.E!..STA VIC.21.T!..LDX SP
RITE._!..LDA #0.P!..STA SPANGL,X..!D.STA
SPTURN,X..!N.STA SPANIMAT,X..!X.JSR TES
TCOM..!..BNE HIDE..!..RTS..!..;.S!..;. B
EFEHL SET ..Y!..;..!..SET JSR .SPRITE.."
..TXA .."(.
ASL.-"2.STA SETZENX.1.5"<.TAX.="F.INX.O"
P.STX SETZENY.1.U"Z.;.C"D.JSR CKCOM.Q"N.
JSR $B7EB.."X.SETZENY STX VIC.1.."..;.."
..LDA $14.."..SETZENX STA VIC.." .;.."..
LDX $15.L"..CPX #$02.."..BCC ERLAUBT1.."
H.JMP ILLEGAL.."R.ERLAUBT1 DEX..#..BMI N
OMSB..#..LDX SPRITE.-#..LDA BITSETZ,X.;#
...A VIC.16.J#..STA VIC.16.X#..JMP LESE.
.^#..;.S#".NOMSB LDX SPRITE..#,.LDA BITL
OESC,X..#6.. VIC.16..#@.STA VIC.16..#J.;
..#T.LESE. JSR TESTCOM.J#^.BNE SET.R#H.R
TS.X#R.;..#|.;. BEFEHL MULTI ...#..;..$.
.MULTI JSR .BYT..$..STX VIC.37..$..;.*$.
.JSR CKCOM.7$..JSR .BYT.F$B.STX VIC.38.N
$L.RTS.T$V.;.I$..;. BEFEHL SIZE ..O$..;.
.$..SIZE JSR .SPRITE..$..LDA VIC.29..$..
JSR .FLAG..$..STA VIC.29..$..;.E$&.LDA V
IC.23.S$0.JSR .FLAG..$:.STA VIC.23..$D.;
..%N.ZURUECK JSR TESTCOM..%X.BNE SIZE..%
B.RTS..%L.;.0%V.;. BEFEHL COL. ..6%..;.K
%..COL. JSR .SPRITE.Y%..JSR CKCOM.F%..JS
R .BYT.L%..;.T%..TXA..%..LDX SPRITE..%F.
STA VIC.39,X..%P.JSR TESTCOM..%Z.BNE COL
...%..RTS..%..;.U%..;. BEFEHL BLOCK ...%
..;..%..BLOCK JSR .SPRITE..%..JSR CKCOM.
.& .JSR .BYT..&*.CPX #64.'&4.BCC BLOCDA.
7&>.JMP ILLEGAL.F&H.BLOCDA TXA.N&R.CLC.[
&\.ADC #128.J&F.LDX SPRITE.Z&P.STA $CFF8
,X..&Z.JSR TESTCOM..&..BNE BLOCK. &..RTS
..&..;..&..;. BEFEHL SPCOL ..B&..;.X&..S
PCOL JSR .SPRITE..&..JSR CKCOM..&J.JSR F
RMNUM..'T.JSR FACADR..'..;..'..LDX SPRIT
E.%'..LDA $14.7'..STA SPRCOLL,X.C'..LDA
$15.U'..STA SPRCOLH,X.`'..LDA #1.Q'$.STA
SPRCOL,X.W'..;..'8.LDA #0..'B.STA IRQFL
AG..'L.JSR TESTCOM..'V.BNE SPCOL..'`.RTS
..'J.;.V'T.;. BEFEHL NOSPCOL ...'~.;..'.
.NOSPCOL JSR .SPRITE..'..LDA #0..(..STA
SPRCOL,X. (..JSR TESTCOM.0(..BNE NOSPCOL
.8(..RTS.>(D.;.U(N.;. BEFEHL CLFLAG ..[(
X.;.M(..CLFLAG LDA #0.}(..STA IRQFLAG..(
..RTS..(..;. (..;. BEFEHL BACK ...(..;..
(..BACK LDA #0.F((.STA IRQFLAG.T(2.JMP $
A8D4.Z(<.;..(F.;. BEFEHL CHCOL ...(P.;..
)Z.CHCOL JSR .SPRITE..)D.JSR CKCOM.))N.J
SR FRMNUM.8)X.JSR FACADR.>)..;.M)..LDX S
PRITE.Y)..LDA $14.K) .STA CHRCOLL,X.W)..
LDA $15..)..STA CHRCOLH,X..)..LDA #1..)H
.STA CHRCOL,X..)R.;..)..LDA #0.F)..STA I
RQFLAG.V)..JSR TESTCOM..)..BNE CHCOL..).
.RTS..)..;..*..;. BEFEHL NOCHCOL ...*".;
.(*,.NOCHCOL JSR .SPRITE.3*6.LDA #0.D*@.
STA CHRCOL,X.T*J.JSR TESTCOM.D*T.BNE NOC
HCOL.L*^.RTS.R*H.;..*R.;. BEFEHL NOMOVE
...*|.;..*..NOMOVE JSR .SPRITE..*..LDA #
0.B*..STA SPANGL,X.R*..JSR TESTCOM..*..B
NE NOMOVE..*..RTS..*B.;..+L.;. BEFEHL MO
VE ...+V.;..+..MOVE JSR .SPRITE./+..JSR
.WINKEL.5+..;.C+..JSR CKCOM.P+..JSR .BYT
.X+..TXA.I+..BPL ERLAUB25.Y+&.JMP ILLEGA
L.+0.;..+:.ERLAUB25 LDX SPRITE..+D.STA
SCHR,X..+N.;..+X.SEI..+B.LDA $14.O+L.STA
ANGL,X..+V.STA WINL..+..LDA $15..+..STA
ANGH,X..,..STA WINH..,..JSR SETWINKEL..
,..CLI.$,..;.2,..JSR CKCOM.?,F.JSR .BYT.
E,P.;.M,Z.TXA.\,..LDX SPRITE.L,..STA SPE
ED,X.~,..STA SPEEDZW,X..,..;..,..LDA #0.
,..STA ZEROFL,X.., .JSR CKCOM..,*.JSR F
RMNUM.L,4.JSR FACADR.R,>.;..,H.LDX SPRIT
E..,R.LDA $14..-\.STA SCHRITTL,X..-F.LDA
$15..-P.STA SCHRITTH,X.%-Z.;.1-..LDA $1
4.A-..BNE DECSCHR.M-..LDA $15.]-..BNE DE
CSCHR.H-..LDA #1.Y-..STA ZEROFL,X.-..;.
.-J.DECSCHR LDA SCHRITTL,X..-T.BNE DECLO
W..-..DEC SCHRITTH,X.V-..DECLOW DEC SCHR
ITTL,X..-..SETIRQ LDA #1..-..STA SPANGL,
X..-..;.....JSR CKCOM ;ANHALTEN.(...
JSR .BYT.3.$.CPX #0.@...BEQ MOV..F.8.;.U
.B.LDX SPRITE.F.G.LDA ZEROFL,X.S.H.BEQ M
OV....L.S. LDA SPANGL,X...V.BNE S....T.;
...~.MOV. JSR TESTCOM.....BEQ MOVERET.J.
..JMP MOVE.Z...MOVERET RTS.....;../..;.
HOLT WINKEL AUS BASICTEXT .../..;../D..W
INKEL JSR CKCOM../N.JSR FRMNUM.4/X.;.@/.
.LDA $66.H/..PHA.S/..LDA #0._/..STA $66.
N/..JSR FACADR.T/..;../..ANGLEICH LDA $1
5../(.BEQ ANG.Y../2.CMP #1../<.BNE .360.
./F.LDA $14.I/P.CMP #.360.W/Z.BCC ANG.Y.
./D.;../N..360 LDA $14../X.SEC..0..SBC #
.360..0..BCS NOCAR..0..DEC $15.00 .NOCAR
STA $14.<0..LDA $15.D0..SEC.R0..SBC #.3
60.^0H.STA $15.O0R.JMP ANGLEICH.U0..;..0
..ANG.Y PLA..0..BPL RECHNE. 0..LDA #.360
..0..SEC..0..SBC $14..0..STA $14.L0".BCS
NOC.X0,.INC $15..06.NOC LDA #.360..0@.S
EC..0J.SBC $15..1T.STA $15..1^.RECHNE RT
S..1H.;.:1R.;. RECHNET WINKEL UM ..@1|.;
.\1..SETWINKEL LDA #.WINKELX.L1..STA LIE
SX.2.~1..LDA #.WINKELY..1..STA LIESY.2..
1..;..1..LDA WINH..1B.BEQ HOLD.F..1L.INC
LIESX.2.P1V.INC LIESY.2.V1..;..1..HOLD.
F LDX WINL..2..LIESX LDA WINKELX,X..2..P
HA."2. LIESY LDA WINKELY,X.12. LDX SPRIT
E.@2. STA D.FY,X.H2& PLA.W20 STA D.FX,X.
]2: ;.L2D LDA SCHR,X.|2N STA INCRX,X..2X
STA INCRY,X..2B LDA #0..2L STA AINCRX,X
..2V STA AINCRY,X..2. ;.N2. LDA D.FX,X..
2. BPL TESTD.Y..2. LDA #$00..2. SEC..3.
SBC SCHR,X..3. STA INCRX,X..3F ;./3P TES
TD.Y LDA D.FY,X.A3Z BPL TESTSTEIG.N3. LD
A #$00.V3. SEC.E3. SBC SCHR,X.U3.!STA IN
CRY,X.{3.!;..3.!TESTSTEIG LDA D.FX,X..3
!BPL LADY..3*!;..34!LDA #$00..3>!SEC.K3H
!SBC D.FX,X.Z3R!STA D.FX,X..3\!;..3F!LAD
Y LDA D.FY,X..4P!BPL CHECKD...4Z!;..4.!L
DA #$00..4.!SEC..4.!SBC D.FY,X.=4.!STA D
.FY,X.C4.!;.Z4.!CHECKD. CMP D.FX,X.H4.!B
CC .ANGL.N4J!;.}4T!LDA D.FX,X..4.!TAY..4
.!LDA D.FY,X..4.!STA D.FX,X..4.!TYA..4."
STA D.FY,X..4.";.P4."LDA INCRX,X..4$"STA
AINCRY,X..4."LDA INCRY,X..58"STA AINCRX
,X..5B"LDA #0..5L"STA INCRX,X.-5V"STA IN
CRY,X.35`";.H5J".ANGL LDA D.FX,X.P5T"LSR
.A5~"STA APPROX,X.G5.";.O5."RTS.U5.";..5
.";. BEFEHL TURN ...5.";..5."TURN JSR .S
PRITE..5D"JSR .WINKEL..5N";.J5X"LDX SPRI
TE.V5."LDA $14..5."STA TURNWL,X..5."LDA
$15..6.#STA TURNWH,X..6.#;..6.#JSR CKCOM
.'6.#JSR FRMNUM.66(#JSR FACADR.E62#LDX S
PRITE.Q6<#LDA $14.A6F#STA TURNL,X.R6P#ST
A TURNLZ,X.~6Z#LDA $15..6D#STA TURNH,X..
6N#STA TURNHZ,X..6X#;..6.#JSR CKCOM..6.#
JSR .BYT.H6.#TXA.W6 #LDX SPRITE..6.#STA
TURNZAHL,X..6.#;..6.#LDA #1..7H#STA SPTU
RN,X..7R#JSR TESTCOM.)7.#BNE TURN.17.#RT
S.77.#;.L7.#;. BEFEHL .URN ..R7.$;.G7.$.
URN JSR .SPRITE.V7.$LDX SPRITE..7"$LDA #
0..7,$STA SPTURN,X..76$JSR TESTCOM..7@$B
NE .URN..7J$RTS..7T$;.U7^$;. BEFEHL ANIM
ATE ...7H$;..7R$ANIMATE JSR .SPRITE..7|$
;..8.$JSR CKCOM..8.$JSR .BYT. 8.$CPX #64
..8.$BCC NOILL.>8.$JMP ILLEGAL.L8.$NOILL
TXA.T8B$CLC.A8L$ADC #128.P8V$LDX SPRITE
..8.$STA BLOCKANF,X..8.$STA $CFF8,X..8.$
;..8.$JSR CKCOM..8.%JSR .BYT..8.%TXA.K8.
%LDX SPRITE..8&%STA BLZAHL,X..80%STA ZAH
LZW,X..8:%;..9D%JSR CKCOM..9N%JSR .BYT..
9X%TXA.%9B%LDX SPRITE.89L%STA SCHRZAHL,X
.I9V%STA SCHRZW,X.O9.%;.Z9.%LDA #1.M9.%S
TA SPANIMAT,X.}9.%JSR TESTCOM..9.%BNE AN
IMATE..9.%RTS..9.%;..9F%;. BEFEHL NOANIM
ATE ...9P%;.U9Z%NOANIMATE JSR .SPRITE..9
.%LDA #0..9.%STA SPANIMAT,X..:.%JSR TEST
COM..:.&BNE NOANIMATE..:.&RTS.#:.&;.;: &
;. BEFEHL SPREDIT ..A:*&;.Z:4&SPREDIT JS
R HOLBLOCK.E:>&LDA #0.Q:H&LDY #63..:R&LO
ES STA ($FB),Y..:\&DEY..:F&BPL LOES..:P&
LDA #3..:Z&STA ZAHLBYTE..:.&RTS.E:.&;..:
.&; HOLT ADRESSE DES SPRITEBLOCKS..:.&;.
.;.&HOLBLOCK JSR .BYT..;.&CPX #64..;.&BC
C .DA.-;J&JMP ILLEGAL.9;T&.DA TXA.E;.&LS
R:LSR.M;.&CLC.Z;.&ADC #$E0.F;.&STA $FC.N
;.'TXA..;.'ASL:ASL:ASL:ASL:ASL:ASL..;.'S
TA $FB..;$'LDA #21..;.'STA EDZAHL..;8'RT
S..;B';.S;L';. BEFEHL PAT ..Y;V';..;`'PA
T LDA ZAHLBYTE..;J'STA BYTEZAHL..<T';..<
~'JSR FRMEVL.!<.'JSR .STR.1<.'STA ZWISCH
A.B<.'LDA BYTEZAHL.R<.'ASL:ASL:ASL.B<.'C
MP ZWISCHA.Q<.'BEQ RIGHTC..<D'JMP SYNTAX
..<N';..<X'RIGHTC DEC EDZAHL..<.'BPL RIG
HTLINES..<.'JMP SYNTAX.T<.'RIGHTLINES LD
Y #0..<.(STY ZWISCHY..<.(LIESBYTE LDX #7
..<.(;..=.(LIESBIT SEI:DEC $01:DEC $01..
=((LDY ZWISCHY.>=2(LDA ($22),Y.I=<(LDY #
0.V=F(CMP #".".H=P(BEQ LOESCHBIT.Z=Z(LDA
BITSETZ,X..=D(.A ($FB),Y..=N(STA ($FB),
Y..=X(JMP .BIT..=.(;.J=.(LOESCHBIT LDA B
ITLOESCH,X.X=.(. ($FB),Y..= (STA ($FB),Y
..=.(;..=.(.BIT INC $01..>.(INC $01..>H(
INC ZWISCHY.#>R(CLI.+>.(DEX.;>.(BPL LIES
BIT.G>.(INC $FB.V>.(BNE NOCARR.B>.)INC $
FC.{>.)NOCARR DEC BYTEZAHL..>.)BNE LIES
BYTE..>")RTS..>,);..>6);. BEFEHL MPAT ..
.>@);.K>J)MPAT LDA ZAHLBYTE..>T)STA BYTE
ZAHL..>^);..>H)JSR FRMEVL..>R)JSR .STR..
?|)STA ZWISCHA..?.)LDA BYTEZAHL.+?.)ASL:
ASL.;?.)CMP ZWISCHA.K?.)BEQ RIGHTLE.Z?.)
JMP SYNTAX.`?.);.W?B)RIGHTLE DEC EDZAHL.
.?L)BPL RIGHTLI..?V)JMP SYNTAX..?.)RIGHT
LI LDY #0..?.)STY ZWISCHY.L?.)LISBYTE LD
X #7.R?.);..?.*LISBIT SEI:DEC $01:DEC $0
1..@.*LDY ZWISCHY..@.*LDA ($22),Y..@&*LD
Y #0.)@0*CMP #".".:@:*BEQ LOSCHBIT.G@D*C
MP #"A".U@N*BEQ SETZA.B@X*CMP #"B".P@B*B
EQ SETZB.}@L*CMP #"C"..@V*BEQ SETZC..@.*
JMP SYNTAX. @.*;.B@.*SETZB LDA BITLOESCH
,X ;'B'.01.P@.*. ($FB),Y.X@.*DEX..@.*.A
BITSETZ,X..@.*STA ($FB),Y..AF*JMP NEXBIT
..AP*;.0AZ*SETZA LDA BITSETZ,X ;'A'.10
.?A.*.A ($FB),Y.GA.*DEX.YA.*. BITLOESCH,
X.IA.+STA ($FB),Y.XA.+JMP NEXBIT.~A.+;.
A +SETZC LDA BITSETZ,X ;'C'.11..A*+.A
($FB),Y..A4+DEX.HA>+.A BITSETZ,X.XAH+STA
($FB),Y..AR+JMP NEXBIT..A\+;..BF+LOSCHB
IT LDA BITLOESCH,X..BP+. ($FB),Y. BZ+DEX
.2B.+. BITLOESCH,X.BB.+STA ($FB),Y.HB.+;
.[B.+NEXBIT INC $01.GB.+INC $01.WB.+INC
ZWISCHY.B.+CLI..BJ+DEX..BT+BPL LISBIT..
B.+INC $FB..B.+BNE NOCRR..B.+INC $FC.TB.
+NOCRR DEC BYTEZAHL..B.,BNE LISBYTE..B.
,RTS..B.,;..C$,;. BEFEHL NOBREAK ...C.,;
.#C8,NOBREAK LDA #1.3CB,STA BREAKFL.;CL,
RTS.ACV,;.WC`,;. BEFEHL CURS. ..]CJ,;.PC
T,CURS. JSR .BYT.|C~,CPX #40..C.,BCC RIG
HTX..C.,JMP ILLEGAL..C.,RIGHTX TXA..C.,P
HA..C.,JSR CKCOM.MC.,JSR .BYT.YCD,CPX #2
5..CN,BCC RIGHTY..CX,JMP ILLEGAL..D.,RIG
HTY PLA..D.,TAY..D.,CLC.%D.-JMP $FFF0.+D
.-;.CD.-;. BEFEHL CHREDIT ..ID.-;.`D(-CH
REDIT JSR FRMNUM.OD2-JSR FACADR.{D<-LDA
$15..DF-CMP #$02..DP-BCC NOILLE..DZ-JMP
ILLEGAL..DD-NOILLE LDA $14.JDN-ASL:ASL:A
SL.VDX-STA $FB..D.-LDA $14..D.-LSR:LSR:L
SR:LSR:LSR..E.-LDY $15..E -BEQ NOPLUS..E
.-CLC.*E.-ADC #$08.9E.-NOPLUS CLC.FEH-AD
C #$F0.RER-STA $FC.]E.-LDA #8.LE.-STA ED
ZAHL.WE.-LDA #0..E.-LDY #7..E..LO STA ($
FB),Y..E..DEY..E..BPL LO..E".LDA #1.DE,.
STA ZAHLBYTE.LE6.RTS.RE@.;..EJ.;. BEFEHL
OLD ...ET.;..F^.OLD SEI:LDA #0:STA 5633
4..FH.LDA #51:STA 1.!FR.;.-F|.LDX #16.8F
..LDY #0.MF..LDA #$D0:STA ..2.BF..LDA #$
F0:STA ..2.TF... LDA $D000,Y..F... STA $
F000,Y..F..INY..FB.BNE ...FL.INC ..2..FV
.INC ..2..F..DEX.BF..BNE ..HF..;.ZF..LDA
#55:STA 1..F./LDA #1:STA 56334..F./CLI.
.F./RTS..G&/;..G0/;. BEFEHL POP ...G:/;.
0GD/POP LDA #$FF.<GN/STA $4A.JGX/JSR $A3
8A.RGB/TXS._GL/CMP #$8D.MGV/BEQ NOERR.{G
./JMP $A8E0..G./NOERR PLA:PLA:PLA:PLA:PL
A..G./RTS..G./;..G./;. BEFEHL PLOT ..BG.
/;.UG./PLOT JSR .KO.D..GF/JSR CKCOM..GP/
JSR .BYT..GZ/TXA..H./LDY #0..H./STA ($FB
),Y..H./;.%H.0LDA #12.-H.0CLC.9H.0ADC $F
C.EH 0STA $FC.SH*0JSR CKCOM.`H40JSR .BYT
.HH>0TXA.SHH0LDY #0..HR0STA ($FB),Y..H\0
RTS..HF0;..HP0;. BEFEHL B.DER ...HZ0;..H
.0B.DER JSR .BYT.NH.0STX 53280.VH.0RTS..
H.0;..H.0;. BEFEHL PAPER ...H.0;..I.0PAP
ER JSR .BYT..IJ0STX 53281.!IT0RTS.'I.0;.
;I.0;. BEFEHL INK ..AI.0;.RI.0INK JSR .B
YT.^I.1STX 646.FI.1RTS.LI.1;..I$1;. BEFE
HL VOL ...I.1;..I81VOL JSR .BYT..IB1CPX
#16..IL1BCC LEGAL5.BIV1JMP ILLEGAL.QI`1L
EGAL5 TXA..IJ1.A SID.24..IT1STA SID.24..
I~1RTS..I.1;..J.1;. BEFEHL ADSR ...J.1;.
+J.1ADSR JSR .VOICE.1J.1;.?J.1JSR CKCOM.
LJD1JSR .BYT.XJN1CPX #16.GJX1BCC LEGAL6.
WJ.1JMP ILLEGAL..J.1LEGAL6 LDA ZWISCHY..
J.1CLC..J.2ADC #$05..J.2TAY..J.2TXA.GJ.2
ASL:ASL:ASL:ASL.VJ(2STA SID2,Y..J22;..J<
2JSR CKCOM..JF2JSR .BYT..KP2CPX #16..KZ2
BCC LEGAL7."KD2JMP ILLEGAL.9KN2LEGAL7 LD
A ZWISCHY.AKX2CLC.NK.2ADC #$05.VK.2TAY.^
K.2TXA.LK 2.A SID2,Y.{K.2STA SID2,Y..K.2
STA SID,Y..K.2;..KH2JSR CKCOM..KR2JSR .B
YT..K.2CPX #16.EK.2BCC LEGAL8.UK.2JMP IL
LEGAL..K.2LEGAL8 LDA ZWISCHY..K.3CLC..L.
3ADC #$06..L.3TAY..L"3TXA.%L,3ASL:ASL:AS
L:ASL.4L63STA SID2,Y.:L@3;.HLJ3JSR CKCOM
.ULT3JSR .BYT.AL^3CPX #16.PLH3BCC LEGAL9
..LR3JMP ILLEGAL..L|3LEGAL9 LDA ZWISCHY.
.L.3CLC..L.3ADC #$06..L.3TAY..L.3TXA.JL.
3.A SID2,Y.YL.3STA SID2,Y..LB3STA SID,Y.
.LL3JSR TESTCOM..MV3BNE ADSR..M.3RTS..M.
3;.'M.3;. BEFEHL WAVE ..-M.3;.AM.4WAVE J
SR .VOICE.OM.4JSR CKCOM.\M.4JSR .BYT.GM&
4CPX #4.WM04BCC LEGAL10..M:4JMP ILLEGAL.
.MD4LEGAL10 LDY ZWISCHY..MN4INY:INY:INY:
INY..MX4LDA #$0F.MMB4. SID2,Y..ML4.A WAV
ETAB,X..MV4STA SID2,Y..M.4STA SID,Y..N.4
JSR TESTCOM..N.4BNE WAVE. N.4RTS.AN.4WAV
ETAB .BYT $10,$20,$40,$80.GN.4;.\N.4;. B
EFEHL PLAY ..BNF4;.VNP4PLAY JSR .VOICE..
NZ4LDA ZWISCHY..N.4CLC..N.4ADC #$04..N.4
TAY..N.5LDA #$FE..N.5. SID2,Y.KN.5STA SI
D,Y.WN 5.A #$01..N*5STA SID2,Y..N45STA S
ID,Y..N>5;..OH5JSR CKCOM..OR5JSR FRMNUM.
"O\5LDY #5.7OF5SET.E LDA ZAHL,Y.EOP5STA
$69,Y.MOZ5DEY.[O.5BPL SET.E.IO.5JSR $BA2
B.XO.5JSR FACADR..O.5LDY ZWISCHY..O.5LDA
$14..O.5STA SID2,Y..O.5STA SID,Y..OJ5LD
A $15.NOT5STA SID2.1,Y..O.5STA SID.1,Y..
O.5;..O.5JSR CKCOM..P.5JSR FRMNUM..P.6JS
R $BC0F."P.6LDY #0:STY $62.6P.6LDA #60:S
TA $63.CP$6LDX #$90.KP.6SEC.YP86JSR $BC4
9.GPB6JSR $BA2B.VPL6JSR FACADR..PV6LDA Z
WISCHX..P`6ASL..PJ6TAX..PT6LDA $14..P~6S
TA SID2.25,X..P.6LDA $15.RP.6STA SID2.26
,X.XP.6;..P.6JSR CKCOM..P.6JSR .BYT..P.6
CPX #0..QD6BEQ X..QN6LDA ZWISCHX.$QX6ASL
:TAX.8Q.6. LDA SID2.25,X.BQ.6BNE ..TQ.7L
DA SID2.26,X.^Q.7BNE ..DQ.7;.VQ(7X JSR T
ESTCOM..Q27BEQ .PLAY..Q<7JMP PLAY..QF7.P
LAY RTS.AQP7ZAHL .BYT 133,136,59,100,90,
0.GQZ7;..QD7;. BEFEHL PULSE ...QN7;..QX7
PULSE JSR .VOICE..R.7JSR CKCOM..R.7JSR F
RMNUM.$R.7JSR FACADR.4R 7LDA ZWISCHY.<R.
7CLC.GR.7ADC #2.OR.7TAY.[RH7LDA $14.IRR7
STA SID,Y.UR.7LDA $15..R.7STA SID.1,Y..R
.7JSR TESTCOM..R.7BNE PULSE..R.8RTS..R.8
;.ER.8;. BEFEHL RE. ..KR"8;..R,8RE. LDA
$2B..R68STA $FB..R@8LDA $2C..RJ8STA $FC.
.ST8LDY #3..S^8SUCHANF INY.*SH8LDA ($FB)
,Y.:SR8BNE SUCHANF.@S|8;.HS.8INY.PS.8TYA
.[S.8LDY #0.CS.8CLC.{S.8ADC ($FB),Y:ADC
$2B..S.8STA ($FB),Y..SB8LDA #$00. SL8INY
..SV8ADC ($FB),Y:ADC $2C.HS.8STA ($FB),Y
.NS.8;..S.8SUCH.E STA $FE..S.8DEY..S.9LD
A ($FB),Y..T.9STA $FD..T.9;..T&9LDA $FD:
STA $FB.3T09LDA $FE:STA $FC.;T:9INY.KTD9
LDA ($FB),Y.ZTN9BNE SUCH.E.`TX9;.LTB9LDA
$FB.TTL9CLC..TV9ADC #$02..T.9STA $2D:ST
A $2F:STA $31..T.9LDA #$00..T.9ADC $FC.R
T.9STA $2E:STA $30:STA $32.ZT.9RTS..T.9;
..T.9;. FUNKTI. SPX(X) ...TF9;..UP9SPX J
SR FUNSPR..UZ9TAY..U.9;.'U.9ASL./U.9TAX.
=U.:LDA VIC,X.IU.:STA $63.TU.:LDA #0.`U
:STA $62.OU*:LDA VIC.16.U4:. BITSETZ,Y.
.U>:BEQ NOMS..UH:INC $62..UR:NOMS LDX #$
90..U\:SEC..UF:JMP $BC49.FUP:;..UZ:;. FU
NKTI. SPY(X) ...U.:;..U.:SPY JSR FUNSPR.
.U.:ASL..V.:TAX..V.:LDA VIC.1,X..V.:TAY.
-V.:JMP $B3A2.3VJ:;.KVT:;. FUNKTI. ANG(X
) ..QV.:;.DV.:ANG JSR FUNSPR.LV.:TAX.{V.
:LDA ANGL,X..V.;TAY..V.;LDA ANGH,X. V.;J
MP $B395..V$;;..V.;;. FUNKTI. JOY(X) ..D
V8;;.WVB;JOY JSR FUNSPR..VL;PHA..VV;LDX
#1..V`;. #$04..WJ;BNE NOP.T2..WT;LDX #0.
.W~;;.$W.;NOP.T2 PLA./W.;. #$03.7W.;TAY.
BW.;CMP #3.PW.;BNE .DREI.VW.;;.CWD;LDA #
$03.QWN;. $DC00,X.}WX;.A #$0C..W.;CMP #$
0F..W.;BNE JOYKT..W.;;..W.<.DREI LDA ART
TAB,Y.CW.<. $DC00,X.TW.<.A SETREST,Y.ZW.
<;..W(<JOYKT TAY..W2<LDA LOWIN,Y..X<<STA
$63..XF<LDA HIWIN,Y. XP<STA $62.-XZ<LDX
#$90.5XD<SEC.CXN<JMP $BC49.IXX<;.IX.<AR
TTAB .BYT $0F,$0C,$03,$0C..X.<SETREST .B
YT $00,$03,$0C,$03..X.<;.RX <LOWIN .BYT
1,0,0,0,0,.315,45,.360,0,225,135,180,0,.
270,90,0,0..Y.<HIWIN .BYT 0,0,0,0,0,.315
,0,.360,0,0,0,0,0,.270,0,0..Y.<;..Y.<;./
YH<;. FUNKTI. FIRE(X) ..5YR<;.IY.<FIRE J
SR FUNSPR.TY.<CMP #2._Y.<BCC P..MY.<JMP
$B245.|Y.=P. E. #$01..Y.=TAX..Y.=;..Y"=L
DA $DC00,X..Y,=. #$10..Y6=TAY..Y@=LDA LO
WIN,Y.EYJ=TAY.SYT=JMP $B3A2.YY^=;..YH=;.
FUNKTI. SCOL(X) ...YR=;..Z|=SCOL JSR FU
NSPR..Z.=TAX.&Z.=LDA BITSETZ,X.2Z.=. VIC
30.?Z.=BEQ .COL.JZ.=LDA #1.HZ.=.COL TAY:
LDA #0:JMP $B395.NZB=;..ZL=;. FUNKTI. CC
OL(X) ...ZV=;..Z.=CCOL JSR FUNSPR..Z.=TA
X..Z.=LDA BITSETZ,X.GZ.=. VIC31.UZ.>BEQ
.CCOL..Z.>LDA #1..Z.>.CCOL TAY:LDA #0:JM
P $B395..[&>;. [0>;. FUNKTI. CHAR(X,Y) .
.&[:>;.8[D>CHAR JSR CHR..F[N>JSR $AEFA.T
[X>JSR .KO.D.B[B>JSR $AEF7.M[L>LDA #0.Y[
V>STA $62..[.>LDY #0..[.>LDA ($FB),Y. [.
>STA $63..[.>LDX #$90..[.>SEC.C[.>JMP $B
C49.I[.>;..[F>;. HOLT SPRITE.NUMMER ...[
P>;..[Z>FUNSPR JSR CHR...\.>JSR $AEF1..\
.>JSR FACADR.(\.>LDA $15.6\.?BEQ NOBAD.D
\.?JMP $B245.V\.?NOBAD DEC $14.B\ ?LDA $
14.M\*?CMP #8.|\4?BCC NOBAD2..\>?JMP $B2
45..\H?NOBAD2 RTS..\R?;..\\?; HOLT ZEICH
ENKO.DINATEN.B\F?;.U\P?.KO.D JSR .BYT..\
Z?STX ZWISCHX..\.?CPX #40..\.?BCC LEGAL.
.].?JMP ILLEGAL.#].?LEGAL JSR CKCOM.0].?
JSR .BYT.@].?STX ZWISCHY.L].?CPX #25.[]J
?BCC LEGAL2.K]T?JMP ILLEGAL.Q].?;..].?LE
GAL2 LDA #256.40..].?STA $FB..].?LDA #$C
B..].@STA $FC..].@;.C].@LDX ZWISCHY.T]$@
ADDY LDA #40..].@CLC..]8@ADC $FB..]B@STA
$FB..^L@BCC NCARY..^V@INC $FC..^`@NCARY
DEX.)^J@BPL ADDY./^T@;.?^~@LDA ZWISCHX.
G^.@CLC.S^.@ADC $FB._^.@STA $FB.M^.@BCC
NCARX.Y^.@INC $FC.^.@;..^D@NCARX RTS..^
N@;..^X@;. NEUE IRQ.ROUTINE ...^.@;.I^.@
IRQNEU LDA VIC.25.T^.@. #$01..^.ABEQ NEU
IRQ..^.ALDA VIC.30:STA VIC30.._.ALDA VIC
.31:STA VIC31./_.ALDA VIC.25:STA VIC.25.
=_(AJMP $EA81.C_2A;.C_<ANEUIRQ LDA $0A:B
MI SOUNDIRQ.P_=ALDA #$EF.}_>A. VIC.17.._
?ASTA VIC.17.._CAJMP $EA31. _DA;.._EASOU
NDIRQ LDX #4.O_FADECSOUND LDA SID2.25,X.
._PABNE .SOUND.._ZALDA SID2.26,X..`DABNE
DECHIGH..`NA;..`XACPX #0. `.ABNE NICHT1
.+`.ALDY #4.?`.AJMP LOESCHSOUND.E` A;.W`
.ANICHT1 CPX #2.F`.ABNE NICHT2.R`.ALDY #
11..`HAJMP LOESCHSOUND..`RA;..`.ANICHT2
LDY #18..`.ALOESCHSOUND LDA #$FE.E`.A. S
ID2,Y.T`.ASTA SID2,Y..`.BSTA SID,Y..`.B;
..A.BDECHIGH DEC SID2.26,X..A"B.SOUND DE
C SID2.25,X.'A,BDEX:DEX.8A6BBPL DECSOUND
.>A@B;.SAJBSPRITEIRQ LDX #7.BATBSTX IRQS
PR.HA^B;..AHBCHECKSPR LDX IRQSPR..ARB;..
A|BLDA SPANGL,X..A.BBEQ TESTCOL..A.BJSR
MOVEANGL..A.B;..A.BTESTCOL LDA IRQFLAG:B
NE .SPR..A.BLDX IRQSPR..B.BLDA SPRCOL,X:
BEQ NSPCOL..BBBLDA VIC30.(BLB. BITSETZ,X
.8BVBBNE SPRKOLL.>B.B;._B.BNSPCOL LDA CH
RCOL,X:BEQ .SPR.MB.BLDA VIC31.}B.B. BITS
ETZ,X..B.CBNE CHRKOLL..B.C;..B.C.SPR DEC
IRQSPR..B&CBPL CHECKSPR..B0C;.QB:C.IRQ
DEC TIMER..BDCBPL SPRITEIRQ..BNCLDA #3..
BXCSTA TIMER..CBCJMP $EA31..CVCSPRKOLL L
DA #1.1C.CSTA SPCOLFLAG,X.>C.CJMP .SPR.D
C.C;.WC.CCHRKOLL LDA #1.KC.CSTA CHCOLFLA
G,X.XC.CJMP .SPR.~C.C;..CFC;. WINKELBEWE
GUNG DES SPRITES ...CPC;..CZCMOVEANGL LD
X IRQSPR.PC.CLDA SPEED,X..C.CBEQ ANGLE..
.C.CDEC SPEEDZW,X..D.DBNE ANGLE...D.DLDA
SPEED,X."D.DSTA SPEEDZW,X.(D D;.9D*DLDA
SPTURN,X.ID4DBEQ ANITEST.YD>DJSR TURNSP
R._DHD;.ZDRDANITEST LDA SPANIMAT,X..D\DB
EQ ANGLMOVE..DFDJSR SPRANIM..DPD;..DZDAN
GLMOVE LDY IRQSPR.ID.DLDA INCRX,Y.QD.DTA
X..D.DLDA AINCRX,Y..D.DJSR SPRSET..D.D;.
.E.DLDX IRQSPR..E.DLDA APPROX,X..EJDCLC.
.ETDADC D.FY,X.?E.DSTA APPROX,X.EE.D;.TE
.DCMP D.FX,X.AE.DBCC .ANG.IE.ESEC.XE.ESB
C D.FX,X..E.ESTA APPROX,X..E$E;..E.ELDY
IRQSPR..E8ELDA AINCRY,Y..EBETAX.GELELDA
INCRY,Y.VEVEJSR SPRSET..E`E;..EJE.ANG LD
X IRQSPR..FTELDA ZEROFL,X..F~EBNE ANGLE.
..F.E;./F.E.SCHR LDA SCHRITTL,X.?F.EBNE
DECRLOW.RF.ELDA SCHRITTH,X.CF.EBNE DECRH
IGH.IF.E;.TFDELDA #0..FNESTA SPANGL,X..F
XE;..F.EDECRHIGH DEC SCHRITTH,X.CF.EDECR
LOW DEC SCHRITTL,X.RF.EANGLE. RTS.XF.F;
..F.F;. RICHTUNGSA.E.G ...F.F;..G.FTURNS
PR LDA TURNLZ,X..G(FBEQ AA.(G2FJMP TURN.
.<G<FAA LDA TURNHZ,X.LGFFBNE HIGHDEC.RGP
F;.BGZFLDA TURNL,X.SGDFSTA TURNLZ,X..GNF
LDA TURNH,X..GXFSTA TURNHZ,X..G.F;..G.FC
LC..G.FLDA TURNWL,X.BG FADC ANGL,X.QG.FS
TA ANGL,X..G.FLDA TURNWH,X..G.FADC ANGH,
X..HHFSTA ANGH,X..HRF;.*H.FLDA ANGH,X ;T
EST OB WINKEL .360.8H.FBEQ KL360.CH.FCMP
#1.QH.FBNE GR360.FH.GTESTL LDA ANGL,X.T
H.GCMP #.360..H.GBCC KL360..H"G;..H,GGR3
60 SEC..H6GLDA ANGL,X..H@GSBC #.360.BHJG
STA ANGL,X.QHTGLDA ANGH,X..H^GSBC #.360.
.HHGSTA ANGH,X..HRG;..I|GKL360 LDA ANGL,
X..I.GSTA WINL.%I.GLDA ANGH,X.2I.GSTA WI
NH.AI.GLDA SPRITE.II.GPHA.XI.GSTX SPRITE
.JIBGJSR SETWINKEL.RILGPLA..IVGSTA SPRIT
E..I.GLDA TURNZAHL,X..I.GBEQ TURN...I.GD
EC TURNZAHL,X.CI.GBNE TURN..NI.HLDA #0..
I.HSTA SPTURN,X..I.HHIGHDEC DEC TURNHZ,X
..J&HTURN. DEC TURNLZ,X..J0HRTS..J:H;.:J
DH;. ANIMATI. V. SPRITES ..@JNH;.YJXHSPR
ANIM DEC SCHRZW,X.GJBHBNE ANIM..ZJLHLDA
SCHRZAHL,X..JVHSTA SCHRZW,X..J.H;..J.HIN
C $CFF8,X..J.HDEC ZAHLZW,X..J.HBNE ANIM.
.SJ.HLDA BLOCKANF,X..J.HSTA $CFF8,X..J.H
LDA BLZAHL,X..KFHSTA ZAHLZW,X..KPHANIM.
RTS..KZH;.8K.H;. BEWEGEN EINES SPRITES .
.>K.H;.MK.HSPRSET PHA.UK.ITYA.]K.IASL.EK
.ITAY.MK IPLA.SK*I;.{K4ICLC..K>IADC VIC.
1,Y..KHISTA VIC.1,Y..KRI;..K\ITXA..KFICL
C..KPIADC VIC,Y.MKZISTA VIC,Y.SK.I;..K.I
BCC NOCARRY..K.ITXA..K.IBMI .SPRSET..L.I
INVERT TYA..L.ILSR..L.ITAX.,LJILDA BITSE
TZ,X.:LTIE. VIC.16.IL.ISTA VIC.16.YL.IJM
P .SPRSET._L.I;.OL.INOCARRY TXA.~L.JBMI
INVERT..L.J;..L.J.SPRSET RTS..L$J;..L.J;
. HOLT SPRITENUMMER IN X.REG. ..EL8J;.ZL
BJ.SPRITE JSR .BYT..LLJ;..LVJDEX..L`JSTX
SPRITE..MJJCPX #8..MTJBCC ERLAUBT.6M~JJ
MP ILLEGAL .<M.J;.LM.
JERLAUBT RTS.RM.J;.MM.J;. SETZEN EINES B
ITS ..SM.J;..M.JBITSETZ .BYT 1,2,4,8,$10
,$20,$40,$80..MDJ;..MNJ;. LOESCHEN EINES
BITS ..EMXJ;..M.JBITLOESCH .BYT $FE,$FD
,$FB,$F7,$EF,$DF,$BF,$7F..M.J;..N.J;....
.......................;N.K;. NEUE .TAST
ENABFRAGE ..[N.K;.......................
....AN.K;.PN.K.. LDA $9D.}N(KBNE .OLD..N
2KLDA IRQFLAG..N<KBNE .OLD. NFK;..NPKLDX
#0.HNZKFLAGTEST LDA SPCOLFLAG,X.WNDKBNE
SPCOLI..NNKLDA CHCOLFLAG,X..OXKBEQ NOSE
T ..O.K;..O.KLDA #1.,O.
KSTA IRQFLAG.7O KLDA #0.KO.KSTA CHCOLFLA
G,X.]O.KLDA CHRCOLL,X.IO.KSTA $14.{OHKLD
A CHRCOLH,X..ORKSTA $15..O.KJMP ...O.K;.
.O.KSPCOLI LDA #1..O.KSTA IRQFLAG.TO.LLD
A #0:STA SPCOLFLAG,X.ZO.L;..O.LLDA SPRCO
LL,X..O"LSTA $14..P,LLDA SPRCOLH,X..P6LS
TA $15..P@L;.+PJL. LDA #$03.9PTLJSR $A3F
B.EP^LLDA $7B.MPHLPHA.YPRLLDA $7A.AP|LPH
A.MP.LLDA $3A.UP.LPHA..P.LLDA $39..P.LPH
A..P.LLDA #$8D..P.LPHA..PBLJSR CHRKT..PL
LJSR $A8A3.HPVLJMP $A7AE.NP.L;..P.LNOSET
INX:CPX #8..P.LBNE FLAGTEST..P.L;..Q.M.
OLD LDA BREAKFL.!Q.MBEQ BREAKTEST.)Q.MRT
S.AQ&MBREAKTEST JMP $F6ED.GQ0M;.AQ:M;. P
RUEFT AUF KOMMA ..GQDM;.|QNMTESTCOM LDA
#$2C..QXMLDY #$00..QBMCMP ($7A),Y..QLMBN
E NOCOM..QVMJSR CHR..DQ.MBNE TESTRET.LQ.
MPLA.TQ.MPLA..Q.MJMP SYNTAX..Q.MNOCOM LD
A #0..R.MTESTRET RTS..R.M;.#RFM;. HOLT .
NGENERA.R ..)RPM;.=RZM.VOICE JSR .BYT.ER
.MDEX.PR.MCPX #3._R.MBCC LEGAL4.OR.NJMP
ILLEGAL..R.NLEGAL4 STX ZWISCHX..R.NCPX #
0..R NBNE .EINS..R*NLDY #0..R4NJMP ...FR
>N.EINS CPX #1.TRHNBNE .ZWEI..RRNLDY #7.
.R\NJMP ....RFN.ZWEI LDY #14..SPN.. STY
ZWISCHY..SZNRTS..S.N;.?S.N; . HOLT FLAGS
FUER SPRITES ..ES.N;.SS.N.FLAG PHA.AS.N
JSR CKCOM.NS.NJSR .BYT.}S.NLDY SPRITE..S
JNCPX #2..STNBCC LEGALFLAG..S.NJMP ILLEG
AL..S.N;.BS.NLEGALFLAG DEX.OS.NBNE .SET.
US.O;..S.OPLA..S.O.A BITSETZ,Y..S$OJMP F
LAGRET..T.O;..T8O.SET PLA.#TBO. BITLOESC
H,Y.3TLOFLAGRET RTS.T.
> CLICK IMAGE PREVIEW FOR FULL MODAL