SPG.TXT
FILE INFORMATION
FILENAME(S): SPG.TXT
FILE TYPE(S): PRG
FILE SIZE: 19.8K
FIRST SEEN: 2025-11-30 01:13:09
APPEARS ON: 1 disk(s)
FILE HASH
e2a57671fe8f263e463b9bcfb17151491e96291004cc466fb16cf65b816ee76a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15834 SEITE B | SPG.TXT | PRG | C64er | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 E8 03 9E 39 AC 34 30 39 36 3A 2E 4F |.......9.4096:.O|
00000010: 50 54 20 4F 4F 00 22 08 F2 03 AC B2 20 24 43 30 |PT OO."..... $C0|
00000020: 30 30 00 36 08 FC 03 53 43 52 42 41 53 45 20 B2 |00.6...SCRBASE .|
00000030: 20 24 43 43 30 30 00 5D 08 C5 07 3B 20 B2 B2 B2 | $CC00.]...; ...|
00000040: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000050: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 79 08 |..............y.|
00000060: C6 07 3B 20 49 4E 49 54 49 41 4C 49 53 49 45 8A |..; INITIALISIE.|
00000070: 47 53 52 4F 55 54 49 4E 45 00 98 08 C8 07 3B 20 |GSROUTINE.....; |
00000080: 20 20 53 45 54 5A 54 20 AB 20 B5 45 52 50 52 45 | SETZT . .ERPRE|
00000090: 54 45 52 56 45 4B A4 52 00 B4 08 CA 07 3B 20 20 |TERVEK.R.....; |
000000A0: 20 20 20 20 20 20 20 AB 20 9E 54 45 4D 56 45 4B | . .TEMVEK|
000000B0: A4 52 45 4E 00 D1 08 CC 07 3B 20 20 20 20 20 20 |.REN.....; |
000000C0: 20 20 20 AB 20 56 49 44 45 4F 9A 52 4F 4C 4C 45 | . VIDEO.ROLLE|
000000D0: 52 00 F6 08 CD 07 3B 20 20 20 26 20 47 49 42 54 |R.....; & GIBT|
000000E0: 20 45 49 4E 53 43 48 41 4C 54 4D 45 4C 44 55 4E | EINSCHALTMELDUN|
000000F0: 47 20 41 55 53 2C 00 1A 09 CE 07 3B 20 20 20 46 |G AUS,.....; F|
00000100: 41 4C 4C 53 20 41 55 46 52 55 46 20 49 4D 20 44 |ALLS AUFRUF IM D|
00000110: 49 52 45 4B 54 4D 4F 44 55 53 00 41 09 CF 07 3B |IREKTMODUS.A...;|
00000120: 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 | ...............|
00000130: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000140: B2 00 5F 09 D0 07 4C 44 41 20 23 B3 44 45 43 4F |.._...LDA #.DECO|
00000150: 44 45 3A 4C 44 59 20 23 B1 44 45 43 4F 44 45 00 |DE:LDY #.DECODE.|
00000160: 81 09 DA 07 53 54 41 20 24 33 30 38 3A 53 54 59 |....STA $308:STY|
00000170: 20 24 33 30 39 3A 4A 53 52 20 4D 4F 56 45 53 43 | $309:JSR MOVESC|
00000180: 52 00 A1 09 E4 07 4A 53 52 20 9E 56 45 43 3A 4C |R.....JSR .VEC:L|
00000190: 44 41 20 24 39 44 3A 42 50 4C 20 4E 4F 4D 45 53 |DA $9D:BPL NOMES|
000001A0: 53 00 CB 09 EE 07 4C 44 41 20 23 B3 4D 45 53 53 |S.....LDA #.MESS|
000001B0: 41 47 45 3A 4C 44 59 20 23 B1 4D 45 53 53 41 47 |AGE:LDY #.MESSAG|
000001C0: 45 3A 4A 53 52 20 24 41 42 31 45 00 0C 0A F8 07 |E:JSR $AB1E.....|
000001D0: 4E 4F 4D 45 53 53 20 4C 44 58 20 23 35 3A 53 56 |NOMESS LDX #5:SV|
000001E0: 45 43 20 4C 44 41 20 49 52 4E 54 41 42 2C 58 3A |EC LDA IRNTAB,X:|
000001F0: 53 54 41 20 24 46 46 46 41 2C 58 3A 44 45 58 3A |STA $FFFA,X:DEX:|
00000200: 42 50 4C 20 53 56 45 43 3A 52 54 53 00 2A 0A FD |BPL SVEC:RTS.*..|
00000210: 07 49 52 4E 54 41 42 20 2E 57 B0 20 A2 4E 4D 49 |.IRNTAB .W. .NMI|
00000220: 31 2C 30 2C 52 41 4D 49 52 51 00 30 0A 02 08 3B |1,0,RAMIRQ.0...;|
00000230: 00 44 0A 0C 08 4D 45 53 53 41 47 45 20 2E 42 59 |.D...MESSAGE .BY|
00000240: 54 20 31 33 00 72 0A 0D 08 2E C6 20 22 9A 8E 1D |T 13.r..... "...|
00000250: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00000260: A2 A2 A2 A2 A2 A2 A2 A2 A2 22 3A 2E 42 59 54 20 |.........":.BYT |
00000270: 31 33 00 9F 0A 11 08 2E C6 20 22 1D 12 20 2A 2A |13....... ".. **|
00000280: 2A 20 53 50 52 49 54 45 2D 47 52 41 50 48 49 43 |* SPRITE-GRAPHIC|
00000290: 53 20 2A 2A 2A 20 22 3A 2E 42 59 54 20 31 33 00 |S *** ":.BYT 13.|
000002A0: CC 0A 16 08 2E C6 20 22 1D 12 20 20 20 28 43 29 |...... ".. (C)|
000002B0: 20 31 39 38 38 20 56 2E 20 53 49 45 42 45 52 54 | 1988 V. SIEBERT|
000002C0: 20 20 20 22 3A 2E 42 59 54 20 31 33 00 FB 0A 1B | ":.BYT 13....|
000002D0: 08 2E C6 20 22 1D 12 A2 A2 A2 A2 A2 A2 A2 A2 A2 |... "...........|
000002E0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
000002F0: 22 3A 2E 42 59 54 20 31 33 2C 30 00 22 0B AD 0B |":.BYT 13,0."...|
00000300: 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |; ..............|
00000310: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000320: B2 B2 00 42 0B AE 0B 3B 20 54 41 42 45 4C 4C 45 |...B...; TABELLE|
00000330: 20 44 45 52 20 4E 45 55 45 4E 20 42 45 46 45 48 | DER NEUEN BEFEH|
00000340: 4C 45 00 66 0B B0 0B 3B 20 49 4E 20 41 4C 50 48 |LE.f...; IN ALPH|
00000350: 41 42 45 54 49 53 43 48 45 52 20 52 45 49 48 45 |ABETISCHER REIHE|
00000360: 4E 46 4F 4C 47 45 00 8D 0B B7 0B 3B 20 B2 B2 B2 |NFOLGE.....; ...|
00000370: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000380: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 B9 0B |................|
00000390: B8 0B 43 4F 4D 53 20 2E C6 20 22 42 42 42 42 42 |..COMS .. "BBBBB|
000003A0: 44 44 44 44 44 44 45 46 46 46 46 46 47 47 47 47 |DDDDDDEFFFFFGGGG|
000003B0: 47 47 47 47 47 47 47 47 22 00 E0 0B B9 0B 2E C6 |GGGGGGGG".......|
000003C0: 20 22 4A 4D 4D 4D 4D 4D 4D 4D 4D 4D 4D 50 50 52 | "JMMMMMMMMMMPPR|
000003D0: 52 54 54 54 54 54 54 54 22 3A 2E 42 59 54 20 30 |RTTTTTTT":.BYT 0|
000003E0: 00 0C 0C BD 0B 43 4F 4D 32 20 2E C6 20 22 42 43 |.....COM2 .. "BC|
000003F0: 4D 50 56 42 44 4C 4D 52 53 58 42 44 4C 4F 53 43 |MPVBDLMRSXBDLOSC|
00000400: 45 49 4B 4C 4E 50 52 53 57 58 59 22 00 2C 0C BE |EIKLNPRSWXY".,..|
00000410: 0B 2E C6 20 22 53 42 43 44 47 4C 4D 4F 50 58 59 |... "SBCDGLMOPXY|
00000420: 47 54 47 54 43 46 4E 50 52 54 58 22 00 55 0C C2 |GTGTCFNPRTX".U..|
00000430: 0B 43 4F 4D 54 41 42 20 2E 57 B0 20 44 53 50 42 |.COMTAB .W. DSPB|
00000440: 59 54 45 2C 44 53 50 43 48 41 52 53 2C 44 53 50 |YTE,DSPCHARS,DSP|
00000450: 4D 56 42 41 52 00 78 0C C4 0B 2E 57 B0 20 44 53 |MVBAR.x....W. DS|
00000460: 50 4D 42 59 54 45 2C 44 53 50 56 42 41 52 2C 42 |PMBYTE,DSPVBAR,B|
00000470: 4C 4F 43 4B 2C 44 4F 54 00 A3 0C C7 0B 2E 57 B0 |LOCK,DOT......W.|
00000480: 20 4C 49 4E 45 2C 4D 4F 44 45 2C 52 45 43 54 2C | LINE,MODE,RECT,|
00000490: 53 45 54 4D 55 53 54 2C 51 55 49 54 2C 46 4F 42 |SETMUST,QUIT,FOB|
000004A0: 59 54 45 00 BD 0C CC 0B 2E 57 B0 20 46 91 54 2C |YTE......W. F.T,|
000004B0: 46 4F 93 2C 4E B0 4D 41 4C 2C 46 4F 94 00 D7 0C |FO.,N.MAL,FO....|
000004C0: D1 0B 2E 57 B0 20 43 4F 4C B0 2C 45 52 41 53 45 |...W. COL.,ERASE|
000004D0: 2C 49 4E 56 45 52 54 00 F8 0C D6 0B 2E 57 B0 20 |,INVERT......W. |
000004E0: 4B 4F 4D 42 49 4E 45 2C 93 2C 53 43 52 45 45 4E |KOMBINE,.,SCREEN|
000004F0: 2C 50 52 49 B0 49 54 59 00 12 0D DB 0B 2E 57 B0 |,PRI.ITY......W.|
00000500: 20 47 52 41 50 48 2C 94 2C 57 49 44 54 48 2C 58 | GRAPH,.,WIDTH,X|
00000510: A4 50 00 32 0D E0 0B 2E 57 B0 20 59 A4 50 2C 4A |.P.2....W. Y.P,J|
00000520: 4F 59 52 45 51 2C 4D 4F 42 59 54 45 2C 4D 4F 43 |OYREQ,MOBYTE,MOC|
00000530: 4F 4C 00 54 0D E5 0B 2E 57 B0 20 4D 4F 44 B4 2C |OL.T....W. MOD.,|
00000540: 4D 4F 47 52 41 42 2C 4D 4F 4C 4F 4F 4B 2C 4D 4F |MOGRAB,MOLOOK,MO|
00000550: 4D 43 4F 4C 00 71 0D EA 0B 2E 57 B0 20 4D 4F 42 |MCOL.q....W. MOB|
00000560: 91 2C 4D 4F 50 41 52 2C 4D 4F 42 58 2C 4D 4F 42 |.,MOPAR,MOBX,MOB|
00000570: 59 00 95 0D EF 0B 2E 57 B0 20 50 55 54 53 43 52 |Y......W. PUTSCR|
00000580: 45 45 4E 2C 50 55 54 54 45 58 54 2C 52 43 4C 53 |EEN,PUTTEXT,RCLS|
00000590: 43 52 45 45 4E 00 A5 0D F1 0B 2E 57 B0 20 52 43 |CREEN......W. RC|
000005A0: 4C 54 45 58 54 00 BE 0D F4 0B 2E 57 B0 20 54 43 |LTEXT......W. TC|
000005B0: 4F 4C B0 2C 54 46 49 4C 4C 2C 54 4E B0 4D 00 DD |OL.,TFILL,TN.M..|
000005C0: 0D F9 0B 2E 57 B0 20 50 52 54 41 54 2C 54 52 45 |....W. PRTAT,TRE|
000005D0: 56 2C 54 54 55 52 4E 2C 54 58 43 48 47 00 04 0E |V,TTURN,TXCHG...|
000005E0: 11 0C 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..; ............|
000005F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000600: B2 B2 B2 B2 00 21 0E 12 0C 3B 20 4E 45 55 45 20 |.....!...; NEUE |
00000610: B5 45 52 50 52 45 54 45 52 AB 52 4F 55 54 49 4E |.ERPRETER.ROUTIN|
00000620: 45 00 48 0E 1B 0C 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 |E.H...; ........|
00000630: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000640: B2 B2 B2 B2 B2 B2 B2 B2 00 84 0E 1C 0C 44 45 43 |.............DEC|
00000650: 4F 44 45 20 4A 53 52 20 24 30 30 37 33 3A 43 4D |ODE JSR $0073:CM|
00000660: 50 20 23 22 21 22 3A 42 45 51 20 46 4F 55 4E 44 |P #"!":BEQ FOUND|
00000670: 3A 4A 53 52 20 24 30 30 37 39 3A 4A 4D 50 20 24 |:JSR $0079:JMP $|
00000680: 41 37 45 37 00 B5 0E 26 0C 46 4F 55 4E 44 20 4A |A7E7...&.FOUND J|
00000690: 53 52 20 24 37 33 3A 50 48 41 3A 4A 53 52 20 24 |SR $73:PHA:JSR $|
000006A0: 37 33 3A 53 54 41 20 24 46 42 3A 50 4C 41 3A 4C |73:STA $FB:PLA:L|
000006B0: 44 58 20 23 30 00 F3 0E 30 0C 44 4C 4F 4F 50 20 |DX #0...0.DLOOP |
000006C0: 43 4D 50 20 43 4F 4D 53 2C 58 3A 42 45 51 20 4D |CMP COMS,X:BEQ M|
000006D0: 41 59 42 45 3A 42 43 43 20 A8 46 4F 55 4E 44 3A |AYBE:BCC .FOUND:|
000006E0: A8 4A 55 53 54 20 49 4E 58 3A 42 4E 45 20 44 4C |.JUST INX:BNE DL|
000006F0: 4F 4F 50 00 08 0F 3A 0C A8 46 4F 55 4E 44 20 4A |OOP...:..FOUND J|
00000700: 4D 50 20 24 41 46 30 38 00 4A 0F 3F 0C 4D 41 59 |MP $AF08.J.?.MAY|
00000710: 42 45 20 54 41 59 3A 4C 44 41 20 24 46 42 3A 43 |BE TAY:LDA $FB:C|
00000720: 4D 50 20 43 4F 4D 32 2C 58 3A 42 45 51 20 44 4F |MP COM2,X:BEQ DO|
00000730: 4B 3A 42 43 43 20 A8 46 4F 55 4E 44 3A 54 59 41 |K:BCC .FOUND:TYA|
00000740: 3A 42 4E 45 20 A8 4A 55 53 54 00 8E 0F 44 0C 44 |:BNE .JUST...D.D|
00000750: 4F 4B 20 54 58 41 3A 41 53 4C 20 41 3A 54 41 58 |OK TXA:ASL A:TAX|
00000760: 3A 4C 44 41 20 43 4F 4D 54 41 42 2C 58 3A 53 54 |:LDA COMTAB,X:ST|
00000770: 41 20 24 33 33 34 3A 4C 44 41 20 43 4F 4D 54 41 |A $334:LDA COMTA|
00000780: 42 AA 31 2C 58 3A 53 54 41 20 24 33 33 35 00 CB |B.1,X:STA $335..|
00000790: 0F 4E 0C 4A 53 52 20 45 58 45 43 3A 4A 53 52 20 |.N.JSR EXEC:JSR |
000007A0: 43 48 4B 53 45 4D 49 3A 42 45 51 20 46 4F 55 4E |CHKSEMI:BEQ FOUN|
000007B0: 44 3A 4A 4D 50 20 24 41 37 41 45 3A 45 58 45 43 |D:JMP $A7AE:EXEC|
000007C0: 20 4A 4D 50 20 28 24 33 33 34 29 00 F2 0F 58 0C | JMP ($334)...X.|
000007D0: 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |; ..............|
000007E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000007F0: B2 B2 00 0D 10 5A 0C 3B 20 4E 45 55 45 20 B5 45 |.....Z.; NEUE .E|
00000800: 52 52 55 50 54 52 4F 55 54 49 4E 45 4E 00 34 10 |RRUPTROUTINEN.4.|
00000810: 5B 0C 3B 20 20 20 52 41 4D 43 41 53 45 20 20 AB |[.; RAMCASE .|
00000820: 20 42 45 49 20 41 55 53 47 45 53 43 48 41 4C 54 | BEI AUSGESCHALT|
00000830: 45 54 45 4D 00 5B 10 5C 0C 3B 20 20 20 20 20 20 |ETEM.[.\.; |
00000840: 20 20 20 20 20 20 20 20 52 4F 4D 2C 20 41 4B 54 | ROM, AKT|
00000850: 49 56 45 52 20 47 52 41 46 49 4B 00 80 10 5D 0C |IVER GRAFIK...].|
00000860: 3B 20 20 20 52 41 4D 49 52 51 20 20 20 AB 20 42 |; RAMIRQ . B|
00000870: 45 49 20 41 55 53 47 45 53 43 48 2E 20 52 4F 4D |EI AUSGESCH. ROM|
00000880: 00 A7 10 5E 0C 3B 20 20 20 53 50 52 49 52 51 20 |...^.; SPRIRQ |
00000890: 20 20 AB 20 42 45 49 20 45 49 4E 47 45 53 43 48 | . BEI EINGESCH|
000008A0: 41 4C 54 45 54 45 4D 00 CE 10 5F 0C 3B 20 20 20 |ALTETEM..._.; |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 52 4F 4D 2C 20 | ROM, |
000008C0: 41 4B 54 49 56 45 52 20 47 52 41 46 49 4B 00 F5 |AKTIVER GRAFIK..|
000008D0: 10 61 0C 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.a.; ...........|
000008E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000008F0: B2 B2 B2 B2 B2 00 36 11 62 0C 52 41 4D 43 41 53 |......6.b.RAMCAS|
00000900: 45 20 50 48 41 3A 54 58 41 3A 50 48 41 3A 54 59 |E PHA:TXA:PHA:TY|
00000910: 41 3A 50 48 41 3A 54 53 58 3A 4C 44 41 20 24 30 |A:PHA:TSX:LDA $0|
00000920: 31 30 34 2C 58 3A AF 20 23 31 36 3A 42 45 51 20 |104,X:. #16:BEQ |
00000930: 53 50 52 49 52 51 00 55 11 6C 0C 4C 44 41 20 23 |SPRIRQ.U.l.LDA #|
00000940: 24 33 37 3A 53 54 41 20 31 3A 4A 4D 50 20 28 24 |$37:STA 1:JMP ($|
00000950: 30 33 31 36 29 00 5B 11 76 0C 3B 00 9F 11 80 0C |0316).[.v.;.....|
00000960: 52 41 4D 49 52 51 20 50 48 41 3A 4C 44 41 20 31 |RAMIRQ PHA:LDA 1|
00000970: 3A 50 48 41 3A 4C 44 41 20 23 24 33 37 3A 53 54 |:PHA:LDA #$37:ST|
00000980: 41 20 31 3A 4C 44 41 20 24 44 43 30 44 3A 50 4C |A 1:LDA $DC0D:PL|
00000990: 41 3A 53 54 41 20 31 3A 50 4C 41 3A 52 54 49 00 |A:STA 1:PLA:RTI.|
000009A0: C3 11 8A 0C 49 52 51 42 41 43 4B 20 50 4C 41 3A |....IRQBACK PLA:|
000009B0: 54 41 59 3A 50 4C 41 3A 54 41 58 3A 50 4C 41 3A |TAY:PLA:TAX:PLA:|
000009C0: 52 54 49 00 03 12 94 0C 53 50 52 49 52 51 20 4C |RTI.....SPRIRQ L|
000009D0: 44 41 20 31 3A 50 48 41 3A B0 41 20 23 37 3A 53 |DA 1:PHA:.A #7:S|
000009E0: 54 41 20 31 3A 4C 44 58 20 4E 44 45 4C 41 59 3A |TA 1:LDX NDELAY:|
000009F0: 42 45 51 20 4E 4F 44 3A 92 20 44 45 58 3A 42 4E |BEQ NOD:. DEX:BN|
00000A00: 45 20 92 00 41 12 9E 0C 4E 4F 44 20 4C 44 59 20 |E ..A...NOD LDY |
00000A10: 4E 42 41 53 45 3A 4C 44 41 20 4E 4C 49 4E 45 3A |NBASE:LDA NLINE:|
00000A20: 53 54 59 20 24 43 46 46 38 3A 53 54 41 20 24 44 |STY $CFF8:STA $D|
00000A30: 30 30 31 3A 44 45 59 3A 53 54 59 20 24 43 46 46 |001:DEY:STY $CFF|
00000A40: 39 00 71 12 A8 0C 53 54 41 20 24 44 30 30 33 3A |9.q...STA $D003:|
00000A50: 53 54 41 20 24 44 30 30 35 3A 44 45 59 3A 53 54 |STA $D005:DEY:ST|
00000A60: 59 20 24 43 46 46 41 3A 53 54 41 20 24 44 30 30 |Y $CFFA:STA $D00|
00000A70: 37 00 B6 12 B2 0C 44 45 59 3A 53 54 59 20 24 43 |7.....DEY:STY $C|
00000A80: 46 46 42 3A 4C 44 58 20 43 4F 55 4E 54 45 52 3A |FFB:LDX COUNTER:|
00000A90: 44 45 58 3A 42 50 4C 20 53 50 49 4D 32 3A 4C 44 |DEX:BPL SPIM2:LD|
00000AA0: 58 20 23 37 3A 53 50 49 4D 32 20 53 54 58 20 43 |X #7:SPIM2 STX C|
00000AB0: 4F 55 4E 54 45 52 00 E5 12 B7 0C 4C 44 41 20 4C |OUNTER.....LDA L|
00000AC0: 49 4E 45 53 2C 58 3A 53 54 41 20 4E 4C 49 4E 45 |INES,X:STA NLINE|
00000AD0: 3A 53 45 43 3A 53 42 43 20 23 33 3A 53 54 41 20 |:SEC:SBC #3:STA |
00000AE0: 24 44 30 31 32 00 18 13 B9 0C 4C 44 41 20 53 50 |$D012.....LDA SP|
00000AF0: 42 41 53 45 2C 58 3A 53 54 41 20 4E 42 41 53 45 |BASE,X:STA NBASE|
00000B00: 3A 4C 44 41 20 44 45 4C 41 59 53 2C 58 3A 53 54 |:LDA DELAYS,X:ST|
00000B10: 41 20 4E 44 45 4C 41 59 00 65 13 BC 0C 4C 44 41 |A NDELAY.e...LDA|
00000B20: 20 24 44 30 31 31 3A AF 20 23 24 37 46 3A 53 54 | $D011:. #$7F:ST|
00000B30: 41 20 24 44 30 31 31 3A 4C 44 41 20 23 31 3A 53 |A $D011:LDA #1:S|
00000B40: 54 41 20 24 44 30 31 39 3A 50 4C 41 3A 53 54 41 |TA $D019:PLA:STA|
00000B50: 20 31 3A 43 50 58 20 23 37 3A 42 4E 45 20 49 52 | 1:CPX #7:BNE IR|
00000B60: 51 42 41 43 4B 00 8B 13 C1 0C AF 20 23 37 3A 43 |QBACK...... #7:C|
00000B70: 4D 50 20 23 37 3A 42 4E 45 20 49 52 51 42 41 43 |MP #7:BNE IRQBAC|
00000B80: 4B 3A 4A 4D 50 20 24 45 41 33 31 00 B7 13 C6 0C |K:JMP $EA31.....|
00000B90: 4C 49 4E 45 53 20 2E 42 59 54 20 31 39 37 2C 31 |LINES .BYT 197,1|
00000BA0: 37 36 2C 31 35 35 2C 31 33 34 2C 31 31 33 2C 39 |76,155,134,113,9|
00000BB0: 32 2C 37 31 2C 35 30 00 E7 13 D0 0C 53 50 42 41 |2,71,50.....SPBA|
00000BC0: 53 45 20 2E 42 59 54 20 31 35 39 2C 31 35 35 2C |SE .BYT 159,155,|
00000BD0: 31 35 31 2C 31 34 37 2C 31 34 33 2C 31 33 39 2C |151,147,143,139,|
00000BE0: 31 33 35 2C 31 33 31 00 0F 14 D5 0C 44 45 4C 41 |135,131.....DELA|
00000BF0: 59 53 20 2E 42 59 54 20 31 32 2C 31 39 2C 31 32 |YS .BYT 12,19,12|
00000C00: 2C 31 32 2C 31 39 2C 31 32 2C 31 39 2C 31 32 00 |,12,19,12,19,12.|
00000C10: 34 14 DA 0C 43 4F 55 4E 54 45 52 20 2E 42 59 54 |4...COUNTER .BYT|
00000C20: 20 37 3A 42 41 53 45 41 44 44 52 20 2E 42 59 54 | 7:BASEADDR .BYT|
00000C30: 20 24 45 30 00 63 14 E4 0C 4E 42 41 53 45 20 2E | $E0.c...NBASE .|
00000C40: 42 59 54 20 31 33 31 3A 4E 4C 49 4E 45 20 2E 42 |BYT 131:NLINE .B|
00000C50: 59 54 20 35 30 3A 4E 44 45 4C 41 59 20 2E 42 59 |YT 50:NDELAY .BY|
00000C60: 54 20 30 00 8A 14 3D 0D 3B 20 B2 B2 B2 B2 B2 B2 |T 0...=.; ......|
00000C70: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000C80: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 B0 14 3E 0D 3B |.............>.;|
00000C90: 20 4D 4F 56 45 53 43 52 20 AB 20 42 49 4C 44 53 | MOVESCR . BILDS|
00000CA0: 43 48 49 52 4D 20 4E 41 43 48 20 24 43 43 30 30 |CHIRM NACH $CC00|
00000CB0: 00 D4 14 3F 0D 3B 20 20 20 20 20 20 20 20 20 AB |...?.; .|
00000CC0: 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 49 4E 53 | ZEICHENSATZ INS|
00000CD0: 20 52 41 4D 00 F7 14 40 0D 3B 20 20 20 20 20 20 | RAM...@.; |
00000CE0: 20 20 20 AB 20 56 49 43 20 49 4E 49 54 49 41 4C | . VIC INITIAL|
00000CF0: 49 53 49 45 52 45 4E 00 1E 15 47 0D 3B 20 B2 B2 |ISIEREN...G.; ..|
00000D00: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000D10: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 56 |...............V|
00000D20: 15 48 0D 4D 4F 56 45 53 43 52 20 53 45 49 3A 4C |.H.MOVESCR SEI:L|
00000D30: 44 59 20 23 30 3A 53 54 59 20 24 46 45 3A 4C 44 |DY #0:STY $FE:LD|
00000D40: 41 20 23 24 44 30 3A 53 54 41 20 24 46 46 3A 4C |A #$D0:STA $FF:L|
00000D50: 44 58 20 23 31 36 00 A3 15 52 0D 54 52 4C 4F 4F |DX #16...R.TRLOO|
00000D60: 50 20 4C 44 41 20 23 24 33 33 3A 53 54 41 20 31 |P LDA #$33:STA 1|
00000D70: 3A 4C 44 41 20 28 24 46 45 29 2C 59 3A 50 48 41 |:LDA ($FE),Y:PHA|
00000D80: 3A 4C 44 41 20 23 24 33 30 3A 53 54 41 20 31 3A |:LDA #$30:STA 1:|
00000D90: 50 4C 41 3A 53 54 41 20 28 24 46 45 29 2C 59 3A |PLA:STA ($FE),Y:|
00000DA0: 49 4E 59 00 D4 15 5C 0D 42 4E 45 20 54 52 4C 4F |INY...\.BNE TRLO|
00000DB0: 4F 50 3A 49 4E 43 20 24 46 46 3A 44 45 58 3A 42 |OP:INC $FF:DEX:B|
00000DC0: 4E 45 20 54 52 4C 4F 4F 50 3A 4A 53 52 20 46 44 |NE TRLOOP:JSR FD|
00000DD0: 42 41 43 4B 00 18 16 66 0D 56 49 43 49 4E 49 54 |BACK...f.VICINIT|
00000DE0: 20 4A 53 52 20 24 45 35 31 38 3A 4C 44 41 20 23 | JSR $E518:LDA #|
00000DF0: 24 33 34 3A 53 54 41 20 24 44 30 31 38 3A 4C 44 |$34:STA $D018:LD|
00000E00: 41 20 24 44 44 30 30 3A AF 20 23 24 46 43 3A 53 |A $DD00:. #$FC:S|
00000E10: 54 41 20 24 44 44 30 30 00 38 16 70 0D 4C 44 41 |TA $DD00.8.p.LDA|
00000E20: 20 23 24 43 43 3A 53 54 41 20 24 32 38 38 3A 4A | #$CC:STA $288:J|
00000E30: 4D 50 20 24 45 35 34 34 00 5F 16 A1 0D 3B 20 B2 |MP $E544._...; .|
00000E40: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000E50: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 |................|
00000E60: 85 16 A2 0D 3B 20 47 41 44 44 52 20 20 20 AB 20 |....; GADDR . |
00000E70: 41 44 52 45 53 53 45 20 55 4E 44 20 42 49 54 4D |ADRESSE UND BITM|
00000E80: 55 53 54 45 52 00 A6 16 A3 0D 3B 20 20 20 20 20 |USTER.....; |
00000E90: 20 20 20 20 20 20 44 45 53 20 47 52 41 46 49 4B | DES GRAFIK|
00000EA0: 43 55 52 53 B0 53 00 C0 16 A4 0D 3B 20 20 20 20 |CURS.S.....; |
00000EB0: 20 20 20 20 20 20 20 42 45 52 45 43 48 4E 45 4E | BERECHNEN|
00000EC0: 00 E7 16 AB 0D 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.....; .........|
00000ED0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000EE0: B2 B2 B2 B2 B2 B2 B2 00 0E 17 AC 0D 47 41 44 44 |............GADD|
00000EF0: 52 20 4C 44 41 20 41 43 54 58 3A 43 4D 50 20 23 |R LDA ACTX:CMP #|
00000F00: 39 36 3A 42 43 53 20 49 4C 4C 51 55 41 4E 00 50 |96:BCS ILLQUAN.P|
00000F10: 17 B6 0D 4C 44 58 20 23 30 3A 53 54 58 20 24 46 |...LDX #0:STX $F|
00000F20: 46 3A 47 41 4C 31 20 43 4D 50 20 23 32 34 3A 42 |F:GAL1 CMP #24:B|
00000F30: 43 43 20 47 41 4D 32 3A 53 42 43 20 23 32 34 3A |CC GAM2:SBC #24:|
00000F40: 49 4E 43 20 24 46 46 3A 42 43 53 20 47 41 4C 31 |INC $FF:BCS GAL1|
00000F50: 00 99 17 C0 0D 47 41 4D 32 20 50 48 41 3A AF 20 |.....GAM2 PHA:. |
00000F60: 23 37 3A 4A 53 52 20 43 48 4B 4D 53 4B 3A 50 4C |#7:JSR CHKMSK:PL|
00000F70: 41 3A 4C 53 52 20 41 3A 4C 53 52 20 24 46 46 3A |A:LSR A:LSR $FF:|
00000F80: 52 B0 20 41 3A 4C 53 52 20 24 46 46 3A 52 B0 20 |R. A:LSR $FF:R. |
00000F90: 41 3A 53 54 41 20 24 46 45 00 BB 17 CA 0D 4C 44 |A:STA $FE.....LD|
00000FA0: 41 20 41 43 54 59 3A 43 4D 50 20 23 31 36 38 3A |A ACTY:CMP #168:|
00000FB0: 42 43 53 20 49 4C 4C 51 55 41 4E 00 EE 17 D4 0D |BCS ILLQUAN.....|
00000FC0: 47 41 4C 33 20 43 4D 50 20 23 32 31 3A 42 43 43 |GAL3 CMP #21:BCC|
00000FD0: 20 47 41 4D 34 3A 53 42 43 20 23 32 31 3A 49 4E | GAM4:SBC #21:IN|
00000FE0: 43 20 24 46 46 3A 42 43 53 20 47 41 4C 33 00 38 |C $FF:BCS GAL3.8|
00000FF0: 18 DE 0D 47 41 4D 34 20 53 54 41 20 24 32 3A 41 |...GAM4 STA $2:A|
00001000: 53 4C 20 41 3A 41 44 43 20 24 32 3A 41 44 43 20 |SL A:ADC $2:ADC |
00001010: 24 46 45 3A 53 54 41 20 24 46 45 3A 4C 44 41 20 |$FE:STA $FE:LDA |
00001020: 42 41 53 45 41 44 44 52 3A 41 44 43 20 24 46 46 |BASEADDR:ADC $FF|
00001030: 3A 53 54 41 20 24 46 46 00 75 18 E8 0D 52 54 53 |:STA $FF.u...RTS|
00001040: 3A 41 43 54 58 20 2E 42 59 54 20 30 3A 41 43 54 |:ACTX .BYT 0:ACT|
00001050: 59 20 2E 42 59 54 20 30 3A 41 43 54 42 49 54 20 |Y .BYT 0:ACTBIT |
00001060: 2E 42 59 54 20 30 3A 41 43 54 4D 4F 44 45 20 2E |.BYT 0:ACTMODE .|
00001070: 42 59 54 20 30 00 9E 18 F2 0D 43 48 4B 4D 53 4B |BYT 0.....CHKMSK|
00001080: 20 54 41 58 3A 4C 44 41 20 54 57 4F BD 2C 58 3A | TAX:LDA TWO.,X:|
00001090: 53 54 41 20 41 43 54 42 49 54 3A 52 54 53 00 C1 |STA ACTBIT:RTS..|
000010A0: 18 FC 0D 54 57 4F BD 20 2E 42 59 54 20 31 32 38 |...TWO. .BYT 128|
000010B0: 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C |,64,32,16,8,4,2,|
000010C0: 31 00 D7 18 01 0E 49 4C 4C 51 55 41 4E 20 4A 4D |1.....ILLQUAN JM|
000010D0: 50 20 24 42 32 34 38 00 FE 18 05 0E 3B 20 B2 B2 |P $B248.....; ..|
000010E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000010F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 21 |...............!|
00001100: 19 06 0E 3B 20 47 52 41 46 49 4B 43 55 52 53 B0 |...; GRAFIKCURS.|
00001110: 20 4A 45 57 45 49 4C 53 20 55 4D 20 45 49 4E 45 | JEWEILS UM EINE|
00001120: 4E 00 35 19 07 0E 3B 20 50 55 4E 4B 54 20 42 45 |N.5...; PUNKT BE|
00001130: 57 45 47 45 4E 00 5C 19 0F 0E 3B 20 B2 B2 B2 B2 |WEGEN.\...; ....|
00001140: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001150: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 9E 19 10 |................|
00001160: 0E 47 43 55 50 20 44 45 43 20 41 43 54 59 3A 4C |.GCUP DEC ACTY:L|
00001170: 44 41 20 24 46 45 3A 50 48 41 3A 53 45 43 3A 53 |DA $FE:PHA:SEC:S|
00001180: 42 43 20 23 33 3A 53 54 41 20 24 46 45 3A 50 4C |BC #3:STA $FE:PL|
00001190: 41 3A 45 B0 20 24 46 45 3A AF 20 23 36 34 00 AF |A:E. $FE:. #64..|
000011A0: 19 12 0E 42 4E 45 20 47 43 B0 52 3A 52 54 53 00 |...BNE GC.R:RTS.|
000011B0: CC 19 15 0E 47 43 56 45 52 20 4C 44 41 20 56 46 |....GCVER LDA VF|
000011C0: 4C 41 47 3A 42 45 51 20 47 43 55 50 00 15 1A 1A |LAG:BEQ GCUP....|
000011D0: 0E 47 43 44 4F 57 4E 20 49 4E 43 20 41 43 54 59 |.GCDOWN INC ACTY|
000011E0: 3A 4C 44 41 20 24 46 45 3A 50 48 41 3A 43 4C 43 |:LDA $FE:PHA:CLC|
000011F0: 3A 41 44 43 20 23 33 3A 53 54 41 20 24 46 45 3A |:ADC #3:STA $FE:|
00001200: AF 20 23 36 33 3A 43 4D 50 20 23 36 33 3A 42 45 |. #63:CMP #63:BE|
00001210: 51 20 47 43 50 00 37 1A 1C 0E 50 4C 41 3A 45 B0 |Q GCP.7...PLA:E.|
00001220: 20 24 46 45 3A AF 20 23 36 34 3A 42 4E 45 20 47 | $FE:. #64:BNE G|
00001230: 43 B0 52 3A 52 54 53 00 56 1A 1F 0E 47 43 48 B0 |C.R:RTS.V...GCH.|
00001240: 20 4C 44 41 20 48 46 4C 41 47 3A 42 4E 45 20 47 | LDA HFLAG:BNE G|
00001250: 43 52 49 47 48 54 00 82 1A 24 0E 47 43 4C 45 46 |CRIGHT...$.GCLEF|
00001260: 54 20 44 45 43 20 41 43 54 58 3A 41 53 4C 20 41 |T DEC ACTX:ASL A|
00001270: 43 54 42 49 54 3A 42 43 53 20 47 43 B0 52 3A 52 |CTBIT:BCS GC.R:R|
00001280: 54 53 00 AF 1A 2E 0E 47 43 52 49 47 48 54 20 49 |TS.....GCRIGHT I|
00001290: 4E 43 20 41 43 54 58 3A 4C 53 52 20 41 43 54 42 |NC ACTX:LSR ACTB|
000012A0: 49 54 3A 42 43 53 20 47 43 B0 52 3A 52 54 53 00 |IT:BCS GC.R:RTS.|
000012B0: CD 1A 38 0E 48 46 4C 41 47 20 2E 42 59 54 20 30 |..8.HFLAG .BYT 0|
000012C0: 3A 56 46 4C 41 47 20 2E 42 59 54 20 30 00 E8 1A |:VFLAG .BYT 0...|
000012D0: 42 0E 47 43 50 20 50 4C 41 3A 47 43 B0 52 20 4A |B.GCP PLA:GC.R J|
000012E0: 4D 50 20 47 41 44 44 52 00 0F 1B 69 0E 3B 20 B2 |MP GADDR...i.; .|
000012F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001300: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 |................|
00001310: 2F 1B 6A 0E 3B 20 50 52 4F 5A 45 53 53 B0 AB B5 |/.j.; PROZESS...|
00001320: 45 52 52 55 50 54 56 45 4B A4 52 20 42 45 49 00 |ERRUPTVEK.R BEI.|
00001330: 45 1B 6B 0E 3B 20 24 46 46 46 45 AD 46 46 20 53 |E.k.; $FFFE.FF S|
00001340: 45 54 5A 45 4E 00 6C 1B 73 0E 3B 20 B2 B2 B2 B2 |ETZEN.l.s.; ....|
00001350: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001360: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 98 1B 7E |...............~|
00001370: 0E 9E 56 91 20 4C 44 41 20 23 B3 52 41 4D 43 41 |..V. LDA #.RAMCA|
00001380: 53 45 3A 4C 44 59 20 23 B1 52 41 4D 43 41 53 45 |SE:LDY #.RAMCASE|
00001390: 3A 42 4E 45 20 53 A4 9E 00 BC 1B 88 0E 9E 56 4F |:BNE S........VO|
000013A0: 46 46 20 4C 44 41 20 23 B3 52 41 4D 49 52 51 3A |FF LDA #.RAMIRQ:|
000013B0: 4C 44 59 20 23 B1 52 41 4D 49 52 51 00 DC 1B 92 |LDY #.RAMIRQ....|
000013C0: 0E 53 A4 9E 20 53 54 41 20 24 46 46 46 45 3A 53 |.S.. STA $FFFE:S|
000013D0: 54 59 20 24 46 46 46 46 3A 52 54 53 00 03 1C CD |TY $FFFF:RTS....|
000013E0: 0E 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.; .............|
000013F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001400: B2 B2 B2 00 1B 1C CE 0E 3B 20 4E 45 55 45 20 4E |........; NEUE N|
00001410: 4D 49 AB 52 4F 55 54 49 4E 45 4E 00 3B 1C CF 0E |MI.ROUTINEN.;...|
00001420: 3B 20 20 20 A2 4E 4D 49 31 20 AB 20 46 41 4C 4C |; .NMI1 . FALL|
00001430: 53 20 52 41 4D 20 41 4B 54 49 56 00 5B 1C D0 0E |S RAM AKTIV.[...|
00001440: 3B 20 20 20 A2 4E 4D 49 32 20 AB 20 46 41 4C 4C |; .NMI2 . FALL|
00001450: 53 20 52 4F 4D 20 41 4B 54 49 56 00 77 1C D1 0E |S ROM AKTIV.w...|
00001460: 3B 20 4E 45 55 45 20 93 AB 20 26 20 94 AB 52 4F |; NEUE .. & ..RO|
00001470: 55 54 49 4E 45 4E 2C 00 9D 1C D2 0E 3B 20 20 20 |UTINEN,.....; |
00001480: 47 52 41 46 49 4B 20 57 49 52 44 20 56 B0 48 45 |GRAFIK WIRD V.HE|
00001490: 52 20 44 45 41 4B 54 49 56 49 45 52 54 00 C4 1C |R DEAKTIVIERT...|
000014A0: D7 0E 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..; ............|
000014B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000014C0: B2 B2 B2 B2 00 D2 1C D8 0E A2 4E 4D 49 31 20 53 |..........NMI1 S|
000014D0: 45 49 00 17 1D E2 0E A2 4E 4D 49 32 20 50 48 41 |EI......NMI2 PHA|
000014E0: 3A 54 58 41 3A 50 48 41 3A 54 59 41 3A 50 48 41 |:TXA:PHA:TYA:PHA|
000014F0: 3A 4C 44 41 20 31 3A 50 48 41 3A 4C 44 41 20 23 |:LDA 1:PHA:LDA #|
00001500: 24 37 46 3A 53 54 41 20 24 44 44 30 44 3A 4C 44 |$7F:STA $DD0D:LD|
00001510: 59 20 24 44 44 30 44 00 34 1D EC 0E 42 50 4C 20 |Y $DD0D.4...BPL |
00001520: 4E B0 53 32 33 32 3A 50 4C 41 3A 4A 4D 50 20 24 |N.S232:PLA:JMP $|
00001530: 46 45 37 32 00 75 1D F6 0E 4E B0 53 32 33 32 20 |FE72.u...N.S232 |
00001540: 4C 44 41 20 23 24 33 37 3A 53 54 41 20 31 3A 4A |LDA #$37:STA 1:J|
00001550: 53 52 20 24 46 44 30 32 3A 42 4E 45 20 4E 4F 4D |SR $FD02:BNE NOM|
00001560: 4F 44 55 4C 45 3A 50 4C 41 3A 4A 4D 50 20 28 24 |ODULE:PLA:JMP ($|
00001570: 38 30 30 32 29 00 8B 1D 00 0F 4E 4F 4D 4F 44 55 |8002).....NOMODU|
00001580: 4C 45 20 4A 53 52 20 9E 56 45 43 00 B1 1D 0A 0F |LE JSR .VEC.....|
00001590: 4A 53 52 20 24 46 44 41 33 3A 4A 53 52 20 56 49 |JSR $FDA3:JSR VI|
000015A0: 43 49 4E 49 54 3A 4A 4D 50 20 28 24 41 30 30 32 |CINIT:JMP ($A002|
000015B0: 29 00 DE 1D 3C 0F 9E 56 45 43 20 4C 44 58 20 23 |)...<..VEC LDX #|
000015C0: B3 56 45 43 54 41 42 3A 4C 44 59 20 23 B1 56 45 |.VECTAB:LDY #.VE|
000015D0: 43 54 41 42 3A 4A 4D 50 20 24 46 44 31 39 00 05 |CTAB:JMP $FD19..|
000015E0: 1E 46 0F 56 45 43 54 41 42 20 2E 57 B0 20 24 45 |.F.VECTAB .W. $E|
000015F0: 41 33 31 2C 24 46 45 36 36 2C A2 4E 4D 49 32 2C |A31,$FE66,.NMI2,|
00001600: 24 46 33 34 41 00 2B 1E 50 0F 2E 57 B0 20 24 46 |$F34A.+.P..W. $F|
00001610: 32 39 31 2C 24 46 32 30 45 2C 24 46 32 35 30 2C |291,$F20E,$F250,|
00001620: 24 46 33 33 33 2C 24 46 31 35 37 00 51 1E 5A 0F |$F333,$F157.Q.Z.|
00001630: 2E 57 B0 20 24 46 31 43 41 2C 24 46 36 45 44 2C |.W. $F1CA,$F6ED,|
00001640: 24 46 31 33 45 2C 24 46 33 32 46 2C 24 46 45 36 |$F13E,$F32F,$FE6|
00001650: 36 00 5F 1E 64 0F 2E 57 B0 20 A2 93 2C A2 94 00 |6._.d..W. ..,...|
00001660: 83 1E 6E 0F A2 93 20 50 48 41 3A 4A 53 52 20 49 |..n... PHA:JSR I|
00001670: 52 51 4F 46 46 3A 50 4C 41 3A 4A 4D 50 20 24 46 |RQOFF:PLA:JMP $F|
00001680: 34 41 35 00 9F 1E 78 0F A2 94 20 4A 53 52 20 49 |4A5...x... JSR I|
00001690: 52 51 4F 46 46 3A 4A 4D 50 20 24 46 35 45 44 00 |RQOFF:JMP $F5ED.|
000016A0: C6 1E 95 0F 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |....; ..........|
000016B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000016C0: B2 B2 B2 B2 B2 B2 00 E9 1E 96 0F 3B 20 47 43 AB |...........; GC.|
000016D0: 20 28 47 52 41 50 48 49 43 AB 43 4F 4C 4F 55 52 | (GRAPHIC.COLOUR|
000016E0: AB 29 20 42 45 46 45 48 4C 00 10 1F 9F 0F 3B 20 |.) BEFEHL.....; |
000016F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001700: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001710: 00 2E 1F A0 0F 43 4F 4C B0 20 4A 53 52 20 24 42 |.....COL. JSR $B|
00001720: 37 39 42 3A 54 58 41 3A 4C 44 58 20 23 33 00 5A |79B:TXA:LDX #3.Z|
00001730: 1F AA 0F 43 4F 4C 4C 4F 4F 50 20 53 54 41 20 24 |...COLLOOP STA $|
00001740: 44 30 32 37 2C 58 3A 44 45 58 3A 42 50 4C 20 43 |D027,X:DEX:BPL C|
00001750: 4F 4C 4C 4F 4F 50 3A 52 54 53 00 81 1F 7D 13 3B |OLLOOP:RTS...}.;|
00001760: 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 | ...............|
00001770: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001780: B2 00 9E 1F 7E 13 3B 20 44 44 AB 20 28 44 52 41 |....~.; DD. (DRA|
00001790: 57 AB 44 4F 54 AB 29 20 42 45 46 45 48 4C 00 C5 |W.DOT.) BEFEHL..|
000017A0: 1F 87 13 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |...; ...........|
000017B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000017C0: B2 B2 B2 B2 B2 00 FD 1F 88 13 44 4F 54 20 4A 53 |..........DOT JS|
000017D0: 52 20 24 42 37 39 42 3A 53 54 58 20 41 43 54 58 |R $B79B:STX ACTX|
000017E0: 3A 4A 53 52 20 24 42 37 46 31 3A 53 54 58 20 41 |:JSR $B7F1:STX A|
000017F0: 43 54 59 3A 4A 53 52 20 47 41 44 44 52 00 3E 20 |CTY:JSR GADDR.> |
00001800: 8A 13 44 4F A4 55 54 20 4C 44 41 20 23 24 33 30 |..DO.UT LDA #$30|
00001810: 3A 53 54 41 20 31 3A 4C 44 41 20 41 43 54 59 3A |:STA 1:LDA ACTY:|
00001820: AF 20 23 37 3A 54 41 59 3A 4C 44 41 20 4D 55 53 |. #7:TAY:LDA MUS|
00001830: 54 45 52 2C 59 3A AF 20 41 43 54 42 49 54 00 7B |TER,Y:. ACTBIT.{|
00001840: 20 8B 13 4C 44 59 20 23 30 3A 4C 44 58 20 41 43 | ..LDY #0:LDX AC|
00001850: 54 4D 4F 44 45 3A 42 45 51 20 9C 50 4B 54 3A 44 |TMODE:BEQ .PKT:D|
00001860: 45 58 3A 42 45 51 20 B0 41 50 4B 54 3A 44 45 58 |EX:BEQ .APKT:DEX|
00001870: 3A 42 4E 45 20 53 45 54 50 4B 54 00 9B 20 8D 13 |:BNE SETPKT.. ..|
00001880: 49 4E 56 50 4B 54 20 45 B0 20 28 24 46 45 29 2C |INVPKT E. ($FE),|
00001890: 59 3A 4A 4D 50 20 44 42 41 43 4B 00 B6 20 92 13 |Y:JMP DBACK.. ..|
000018A0: 9C 50 4B 54 20 45 B0 20 23 32 35 35 3A AF 20 28 |.PKT E. #255:. (|
000018B0: 24 46 45 29 2C 59 00 D7 20 9C 13 44 42 41 43 4B |$FE),Y.. ..DBACK|
000018C0: 20 53 54 41 20 28 24 46 45 29 2C 59 3A 4A 4D 50 | STA ($FE),Y:JMP|
000018D0: 20 46 44 42 41 43 4B 00 F6 20 A6 13 B0 41 50 4B | FDBACK.. ...APK|
000018E0: 54 20 B0 41 20 28 24 46 45 29 2C 59 3A 4A 4D 50 |T .A ($FE),Y:JMP|
000018F0: 20 44 42 41 43 4B 00 39 21 B0 13 53 45 54 50 4B | DBACK.9!..SETPK|
00001900: 54 20 53 54 41 20 24 34 30 30 3A 4C 44 41 20 41 |T STA $400:LDA A|
00001910: 43 54 42 49 54 3A 45 B0 20 23 32 35 35 3A AF 20 |CTBIT:E. #255:. |
00001920: 28 24 46 45 29 2C 59 3A B0 41 20 24 34 30 30 3A |($FE),Y:.A $400:|
00001930: 4A 4D 50 20 44 42 41 43 4B 00 60 21 E1 13 3B 20 |JMP DBACK.`!..; |
00001940: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001950: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001960: 00 7F 21 E2 13 3B 20 44 53 AB 20 28 44 52 41 57 |..!..; DS. (DRAW|
00001970: AB 53 54 59 4C 45 AB 29 20 42 45 46 45 48 4C 00 |.STYLE.) BEFEHL.|
00001980: A6 21 EB 13 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.!..; ..........|
00001990: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000019A0: B2 B2 B2 B2 B2 B2 00 ED 21 EC 13 53 45 54 4D 55 |........!..SETMU|
000019B0: 53 54 20 4A 53 52 20 24 42 37 39 42 3A 53 54 58 |ST JSR $B79B:STX|
000019C0: 20 4D 55 53 54 45 52 3A 4C 44 41 20 23 31 3A 53 | MUSTER:LDA #1:S|
000019D0: 54 41 20 24 46 42 3A 4D 55 53 54 4C 4F 4F 50 20 |TA $FB:MUSTLOOP |
000019E0: 4A 53 52 20 24 42 37 46 31 3A 54 58 41 00 26 22 |JSR $B7F1:TXA.&"|
000019F0: F6 13 4C 44 59 20 24 46 42 3A 53 54 41 20 4D 55 |..LDY $FB:STA MU|
00001A00: 53 54 45 52 2C 59 3A 49 4E 43 20 24 46 42 3A 43 |STER,Y:INC $FB:C|
00001A10: 50 59 20 23 37 3A 42 43 43 20 4D 55 53 54 4C 4F |PY #7:BCC MUSTLO|
00001A20: 4F 50 3A 52 54 53 00 56 22 00 14 4D 55 53 54 45 |OP:RTS.V"..MUSTE|
00001A30: 52 20 2E 42 59 54 20 32 35 35 2C 32 35 35 2C 32 |R .BYT 255,255,2|
00001A40: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 |55,255,255,255,2|
00001A50: 35 35 2C 32 35 35 00 7D 22 65 17 3B 20 B2 B2 B2 |55,255.}"e.; ...|
00001A60: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001A70: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 9F 22 |..............."|
00001A80: 66 17 3B 20 47 45 AB 20 28 47 52 41 50 48 49 43 |f.; GE. (GRAPHIC|
00001A90: AB 45 52 41 53 45 AB 29 20 42 45 46 45 48 4C 00 |.ERASE.) BEFEHL.|
00001AA0: C6 22 6F 17 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B0 |."o.; ..........|
00001AB0: B0 B0 B2 B0 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001AC0: B2 B2 B2 B2 B2 B2 00 F4 22 70 17 45 52 41 53 45 |........"p.ERASE|
00001AD0: 20 4C 44 41 20 42 41 53 45 41 44 44 52 3A 53 54 | LDA BASEADDR:ST|
00001AE0: 41 20 24 46 46 3A 4C 44 59 20 23 30 3A 53 54 59 |A $FF:LDY #0:STY|
00001AF0: 20 24 46 45 00 2A 23 7A 17 4C 44 41 20 23 30 3A | $FE.*#z.LDA #0:|
00001B00: 4C 44 58 20 23 38 3A 45 52 41 4C 4F 4F 50 20 53 |LDX #8:ERALOOP S|
00001B10: 54 41 20 28 24 46 45 29 2C 59 3A 49 4E 59 3A 42 |TA ($FE),Y:INY:B|
00001B20: 4E 45 20 45 52 41 4C 4F 4F 50 00 50 23 84 17 49 |NE ERALOOP.P#..I|
00001B30: 4E 43 20 24 46 46 3A 44 45 58 3A 42 4E 45 20 45 |NC $FF:DEX:BNE E|
00001B40: 52 41 4C 4F 4F 50 3A 4A 4D 50 20 24 30 30 37 33 |RALOOP:JMP $0073|
00001B50: 00 77 23 4D 1B 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.w#M.; .........|
00001B60: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001B70: B2 B2 B2 B2 B2 B2 B2 00 99 23 4E 1B 3B 20 47 52 |.........#N.; GR|
00001B80: AB 20 28 47 52 41 50 48 49 43 20 91 AD 4F 46 46 |. (GRAPHIC ..OFF|
00001B90: AB 29 20 42 45 46 45 48 4C 00 C0 23 57 1B 3B 20 |.) BEFEHL..#W.; |
00001BA0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001BB0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001BC0: 00 E1 23 58 1B 47 52 41 50 48 20 4A 53 52 20 24 |..#X.GRAPH JSR $|
00001BD0: 42 37 39 42 3A 54 58 41 3A 42 4E 45 20 49 52 51 |B79B:TXA:BNE IRQ|
00001BE0: 91 00 25 24 62 1B 49 52 51 4F 46 46 20 53 45 49 |..%$b.IRQOFF SEI|
00001BF0: 3A 4C 44 41 20 24 44 30 31 35 3A AF 20 23 32 34 |:LDA $D015:. #24|
00001C00: 30 3A 53 54 41 20 24 44 30 31 35 3A 4C 44 41 20 |0:STA $D015:LDA |
00001C10: 23 30 3A 53 54 41 20 24 44 30 31 41 3A 4C 44 41 |#0:STA $D01A:LDA|
00001C20: 20 23 24 38 31 00 71 24 67 1B 53 54 41 20 24 44 | #$81.q$g.STA $D|
00001C30: 43 30 44 3A 4A 53 52 20 9E 56 4F 46 46 3A 4C 44 |C0D:JSR .VOFF:LD|
00001C40: 41 20 23 24 33 31 3A 4C 44 59 20 23 24 45 41 3A |A #$31:LDY #$EA:|
00001C50: 56 45 43 54 20 53 54 41 20 24 33 31 34 3A 53 54 |VECT STA $314:ST|
00001C60: 59 20 24 33 31 35 3A 43 4C 49 3A 47 58 20 52 54 |Y $315:CLI:GX RT|
00001C70: 53 00 97 24 6C 1B 49 52 51 91 20 4C 44 41 20 24 |S..$l.IRQ. LDA $|
00001C80: 33 31 35 3A 43 4D 50 20 23 B1 53 50 52 49 52 51 |315:CMP #.SPRIRQ|
00001C90: 3A 42 45 51 20 47 58 00 B6 24 71 1B 4C 44 41 20 |:BEQ GX..$q.LDA |
00001CA0: 24 44 30 31 35 3A B0 41 20 23 31 35 3A 53 54 41 |$D015:.A #15:STA|
00001CB0: 20 24 44 30 31 35 00 F9 24 73 1B 4C 44 41 20 24 | $D015..$s.LDA $|
00001CC0: 44 30 31 37 3A AF 20 23 31 35 3A 53 54 41 20 24 |D017:. #15:STA $|
00001CD0: 44 30 31 37 3A 4C 44 41 20 24 44 30 31 43 3A AF |D017:LDA $D01C:.|
00001CE0: 20 23 32 34 30 3A 53 54 41 20 24 44 30 31 43 3A | #240:STA $D01C:|
00001CF0: 4C 44 41 20 24 44 30 31 44 00 0E 25 74 1B B0 41 |LDA $D01D..%t..A|
00001D00: 20 23 31 35 3A 53 54 41 20 24 44 30 31 44 00 52 | #15:STA $D01D.R|
00001D10: 25 76 1B 53 45 49 3A 4C 44 58 20 23 37 3A 53 54 |%v.SEI:LDX #7:ST|
00001D20: 58 20 43 4F 55 4E 54 45 52 3A 4C 44 41 20 4C 49 |X COUNTER:LDA LI|
00001D30: 4E 45 53 AA 37 3A 53 54 41 20 24 44 30 31 32 3A |NES.7:STA $D012:|
00001D40: 4C 44 41 20 23 24 37 46 3A 53 54 41 20 24 44 43 |LDA #$7F:STA $DC|
00001D50: 30 44 00 92 25 80 1B 4C 44 41 20 23 31 3A 53 54 |0D..%..LDA #1:ST|
00001D60: 41 20 24 44 30 31 41 3A 4A 53 52 20 9E 56 91 3A |A $D01A:JSR .V.:|
00001D70: 4C 44 41 20 23 B3 53 50 52 49 52 51 3A 4C 44 59 |LDA #.SPRIRQ:LDY|
00001D80: 20 23 B1 53 50 52 49 52 51 3A 42 4E 45 20 56 45 | #.SPRIRQ:BNE VE|
00001D90: 43 54 00 B9 25 15 1C 3B 20 B2 B2 B2 B2 B2 B2 B2 |CT..%..; .......|
00001DA0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001DB0: B2 B2 B2 B2 B2 B2 B2 B2 B2 00 DD 25 16 1C 3B 20 |...........%..; |
00001DC0: 47 50 AB 20 28 47 52 41 50 48 49 43 20 50 52 49 |GP. (GRAPHIC PRI|
00001DD0: B0 49 54 59 AB 29 20 42 45 46 45 48 4C 00 04 26 |.ITY.) BEFEHL..&|
00001DE0: 1F 1C 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..; ............|
00001DF0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001E00: B2 B2 B2 B2 00 29 26 20 1C 50 52 49 B0 49 54 59 |.....)& .PRI.ITY|
00001E10: 20 4A 53 52 20 24 42 37 39 42 3A 54 58 41 3A 42 | JSR $B79B:TXA:B|
00001E20: 4E 45 20 50 52 49 59 45 53 00 4C 26 2A 1C 4C 44 |NE PRIYES.L&*.LD|
00001E30: 41 20 24 44 30 31 42 3A B0 41 20 23 31 35 3A 53 |A $D01B:.A #15:S|
00001E40: 54 41 20 24 44 30 31 42 3A 52 54 53 00 76 26 34 |TA $D01B:RTS.v&4|
00001E50: 1C 50 52 49 59 45 53 20 4C 44 41 20 24 44 30 31 |.PRIYES LDA $D01|
00001E60: 42 3A AF 20 23 32 34 30 3A 53 54 41 20 24 44 30 |B:. #240:STA $D0|
00001E70: 31 42 3A 52 54 53 00 9D 26 35 1F 3B 20 B2 B2 B2 |1B:RTS..&5.; ...|
00001E80: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001E90: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 BB 26 |...............&|
00001EA0: 36 1F 3B 20 44 4C AB 20 28 44 52 41 57 AB 4C 49 |6.; DL. (DRAW.LI|
00001EB0: 4E 45 AB 29 20 42 45 46 45 48 4C 00 E2 26 3F 1F |NE.) BEFEHL..&?.|
00001EC0: 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |; ..............|
00001ED0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00001EE0: B2 B2 00 1F 27 40 1F 4C 49 4E 45 20 4A 53 52 20 |....'@.LINE JSR |
00001EF0: 44 4F 54 3A 4A 53 52 20 24 42 37 46 31 3A 54 58 |DOT:JSR $B7F1:TX|
00001F00: 41 3A 53 45 43 3A 53 42 43 20 41 43 54 58 3A 53 |A:SEC:SBC ACTX:S|
00001F10: 54 41 20 24 46 43 3A 53 54 41 20 24 34 30 32 00 |TA $FC:STA $402.|
00001F20: 3A 27 45 1F 4C 44 41 20 23 30 3A 52 4F 4C 20 41 |:'E.LDA #0:ROL A|
00001F30: 3A 53 54 41 20 48 46 4C 41 47 00 6A 27 4A 1F 42 |:STA HFLAG.j'J.B|
00001F40: 4E 45 20 48 4F 4B 3A 4C 44 41 20 23 30 3A 53 45 |NE HOK:LDA #0:SE|
00001F50: 43 3A 53 42 43 20 24 46 43 3A 53 54 41 20 24 46 |C:SBC $FC:STA $F|
00001F60: 43 3A 53 54 41 20 24 34 30 32 00 B5 27 54 1F 48 |C:STA $402..'T.H|
00001F70: 4F 4B 20 4A 53 52 20 24 42 37 46 31 3A 54 58 41 |OK JSR $B7F1:TXA|
00001F80: 3A 53 45 43 3A 53 42 43 20 41 43 54 59 3A 53 54 |:SEC:SBC ACTY:ST|
00001F90: 41 20 24 46 44 3A 53 54 41 20 24 34 30 33 3A 4C |A $FD:STA $403:L|
00001FA0: 44 41 20 23 30 3A 52 4F 4C 20 41 3A 53 54 41 20 |DA #0:ROL A:STA |
00001FB0: 56 46 4C 41 47 00 E5 27 5E 1F 42 4E 45 20 56 4F |VFLAG..'^.BNE VO|
00001FC0: 4B 3A 4C 44 41 20 23 30 3A 53 45 43 3A 53 42 43 |K:LDA #0:SEC:SBC|
00001FD0: 20 24 46 44 3A 53 54 41 20 24 46 44 3A 53 54 41 | $FD:STA $FD:STA|
00001FE0: 20 24 34 30 33 00 0A 28 68 1F 56 4F 4B 20 4C 44 | $403..(h.VOK LD|
00001FF0: 41 20 24 46 44 3A 43 4C 43 3A 41 44 43 20 24 46 |A $FD:CLC:ADC $F|
00002000: 43 3A 42 45 51 20 4C 44 91 45 00 30 28 7C 1F 4C |C:BEQ LD.E.0(|.L|
00002010: 44 41 20 24 46 43 3A 53 54 41 20 24 34 30 30 3A |DA $FC:STA $400:|
00002020: 4C 44 41 20 24 46 44 3A 53 54 41 20 24 34 30 31 |LDA $FD:STA $401|
00002030: 00 6B 28 86 1F 4C 49 4E 45 4C 4F 4F 50 20 4C 44 |.k(..LINELOOP LD|
00002040: 41 20 23 30 3A 53 54 41 20 32 3A 4C 44 41 20 24 |A #0:STA 2:LDA $|
00002050: 34 30 32 3A 42 45 51 20 4E 4F 48 4D 4F 56 45 3A |402:BEQ NOHMOVE:|
00002060: 4C 44 41 20 24 46 43 3A 43 4C 43 00 96 28 8B 1F |LDA $FC:CLC..(..|
00002070: 41 44 43 20 24 34 30 30 3A 53 54 41 20 24 34 30 |ADC $400:STA $40|
00002080: 30 3A 42 43 43 20 4E 4F 48 4D 4F 56 45 3A 4A 53 |0:BCC NOHMOVE:JS|
00002090: 52 20 47 43 48 B0 00 D2 28 90 1F 44 45 43 20 24 |R GCH...(..DEC $|
000020A0: 34 30 32 3A 49 4E 43 20 32 3A 4E 4F 48 4D 4F 56 |402:INC 2:NOHMOV|
000020B0: 45 20 4C 44 41 20 24 34 30 33 3A 42 45 51 20 4E |E LDA $403:BEQ N|
000020C0: 4F 56 4D 4F 56 45 3A 4C 44 41 20 24 46 44 3A 43 |OVMOVE:LDA $FD:C|
000020D0: 4C 43 00 FE 28 95 1F 41 44 43 20 24 34 30 31 3A |LC..(..ADC $401:|
000020E0: 53 54 41 20 24 34 30 31 3A 42 43 43 20 4E 4F 56 |STA $401:BCC NOV|
000020F0: 4D 4F 56 45 3A 4A 53 52 20 47 43 56 45 52 00 29 |MOVE:JSR GCVER.)|
00002100: 29 9A 1F 44 45 43 20 24 34 30 33 3A 49 4E 43 20 |)..DEC $403:INC |
00002110: 32 3A 4E 4F 56 4D 4F 56 45 20 4C 44 41 20 32 3A |2:NOVMOVE LDA 2:|
00002120: 42 45 51 20 4E 4F 44 4F 54 00 64 29 A4 1F 4A 53 |BEQ NODOT.d)..JS|
00002130: 52 20 44 4F A4 55 54 3A 4E 4F 44 4F 54 20 4C 44 |R DO.UT:NODOT LD|
00002140: 41 20 24 34 30 32 3A B0 41 20 24 34 30 33 3A 42 |A $402:.A $403:B|
00002150: 4E 45 20 4C 49 4E 45 4C 4F 4F 50 3A 4C 44 91 45 |NE LINELOOP:LD.E|
00002160: 20 52 54 53 00 8B 29 1D 23 3B 20 B2 B2 B2 B2 B2 | RTS..).#; .....|
00002170: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002180: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 B0 29 1E 23 |.............).#|
00002190: 3B 20 51 55 49 54 20 AB 20 53 43 48 41 4C 54 45 |; QUIT . SCHALTE|
000021A0: 54 20 4E 45 55 45 4E 20 B5 45 52 50 52 2E 41 42 |T NEUEN .ERPR.AB|
000021B0: 00 D7 29 1F 23 3B 20 20 20 20 20 20 AB 20 4C 41 |..).#; . LA|
000021C0: 45 53 53 54 20 42 49 4C 44 53 43 48 52 49 4D 20 |ESST BILDSCHRIM |
000021D0: 28 24 43 43 30 30 29 00 F7 29 20 23 3B 20 20 20 |($CC00)..) #; |
000021E0: 20 20 20 AB 20 4C 41 45 53 53 54 20 5A 45 49 43 | . LAESST ZEIC|
000021F0: 48 45 4E 53 41 54 5A 00 17 2A 21 23 3B 20 20 20 |HENSATZ..*!#; |
00002200: 20 20 20 AB 20 4C 41 45 53 53 54 20 4E 4D 49 AB | . LAESST NMI.|
00002210: 52 4F 55 54 49 4E 45 00 3E 2A 27 23 3B 20 B2 B2 |ROUTINE.>*'#; ..|
00002220: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002230: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 6D |...............m|
00002240: 2A 28 23 51 55 49 54 20 4A 53 52 20 49 52 51 4F |*(#QUIT JSR IRQO|
00002250: 46 46 3A 4A 53 52 20 24 45 34 35 33 3A 4A 53 52 |FF:JSR $E453:JSR|
00002260: 20 9E 56 45 43 3A 4A 4D 50 20 24 37 33 00 94 2A | .VEC:JMP $73..*|
00002270: 05 27 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.'; ............|
00002280: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002290: B2 B2 B2 B2 00 B5 2A 06 27 3B 20 44 52 AB 20 28 |......*.'; DR. (|
000022A0: 44 52 41 57 AB 52 45 43 C0 47 4C 45 AB 29 20 42 |DRAW.REC.GLE.) B|
000022B0: 45 46 45 48 4C 00 DC 2A 0F 27 3B 20 B2 B2 B2 B2 |EFEHL..*.'; ....|
000022C0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000022D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 F0 2A 10 |..............*.|
000022E0: 27 52 45 43 54 20 4A 53 52 20 53 51 50 52 45 50 |'RECT JSR SQPREP|
000022F0: 00 35 2B 1A 27 4C 44 41 20 24 46 42 3A 42 45 51 |.5+.'LDA $FB:BEQ|
00002300: 20 52 45 43 32 3A 48 31 4C 4F 4F 50 20 4A 53 52 | REC2:H1LOOP JSR|
00002310: 20 47 43 52 49 47 48 54 3A 4A 53 52 20 44 4F A4 | GCRIGHT:JSR DO.|
00002320: 55 54 3A 44 45 43 20 24 46 42 3A 42 4E 45 20 48 |UT:DEC $FB:BNE H|
00002330: 31 4C 4F 4F 50 00 7B 2B 24 27 52 45 43 32 20 4C |1LOOP.{+$'REC2 L|
00002340: 44 41 20 24 46 44 3A 42 45 51 20 52 45 43 33 3A |DA $FD:BEQ REC3:|
00002350: 53 54 41 20 24 46 42 3A 56 31 4C 4F 4F 50 20 4A |STA $FB:V1LOOP J|
00002360: 53 52 20 47 43 44 4F 57 4E 3A 4A 53 52 20 44 4F |SR GCDOWN:JSR DO|
00002370: A4 55 54 3A 44 45 43 20 24 46 42 00 C4 2B 2E 27 |.UT:DEC $FB..+.'|
00002380: 42 4E 45 20 56 31 4C 4F 4F 50 3A 52 45 43 33 20 |BNE V1LOOP:REC3 |
00002390: 4C 44 41 20 24 46 43 3A 42 45 51 20 52 45 43 34 |LDA $FC:BEQ REC4|
000023A0: 3A 48 32 4C 4F 4F 50 20 4A 53 52 20 47 43 4C 45 |:H2LOOP JSR GCLE|
000023B0: 46 54 3A 4A 53 52 20 44 4F A4 55 54 3A 44 45 43 |FT:JSR DO.UT:DEC|
000023C0: 20 24 46 43 00 D3 2B 38 27 42 4E 45 20 48 32 4C | $FC..+8'BNE H2L|
000023D0: 4F 4F 50 00 0E 2C 42 27 52 45 43 34 20 4C 44 41 |OOP..,B'REC4 LDA|
000023E0: 20 24 46 44 3A 42 45 51 20 52 45 43 58 3A 44 45 | $FD:BEQ RECX:DE|
000023F0: 43 20 24 46 44 3A 42 45 51 20 52 45 43 58 3A 56 |C $FD:BEQ RECX:V|
00002400: 32 4C 4F 4F 50 20 4A 53 52 20 47 43 55 50 00 38 |2LOOP JSR GCUP.8|
00002410: 2C 4C 27 4A 53 52 20 44 4F A4 55 54 3A 44 45 43 |,L'JSR DO.UT:DEC|
00002420: 20 24 46 44 3A 42 4E 45 20 56 32 4C 4F 4F 50 3A | $FD:BNE V2LOOP:|
00002430: 52 45 43 58 20 52 54 53 00 7B 2C 56 27 53 51 50 |RECX RTS.{,V'SQP|
00002440: 52 45 50 20 4A 53 52 20 44 4F 54 3A 4A 53 52 20 |REP JSR DOT:JSR |
00002450: 24 42 37 46 31 3A 53 54 58 20 24 46 43 3A 53 54 |$B7F1:STX $FC:ST|
00002460: 58 20 24 46 42 3A 4A 53 52 20 24 42 37 46 31 3A |X $FB:JSR $B7F1:|
00002470: 53 54 58 20 24 46 44 3A 52 54 53 00 A1 2C 69 27 |STX $FD:RTS..,i'|
00002480: 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |; ..............|
00002490: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000024A0: B2 00 C0 2C 6A 27 3B 20 44 42 AB 20 28 44 52 41 |...,j'; DB. (DRA|
000024B0: 57 AB 42 4C 4F 43 4B AB 29 20 42 45 46 45 48 4C |W.BLOCK.) BEFEHL|
000024C0: 00 E6 2C 73 27 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..,s'; .........|
000024D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000024E0: B2 B2 B2 B2 B2 B2 00 FB 2C 74 27 42 4C 4F 43 4B |........,t'BLOCK|
000024F0: 20 4A 53 52 20 53 51 50 52 45 50 00 44 2D 7E 27 | JSR SQPREP.D-~'|
00002500: 4C 44 41 20 24 46 44 3A 42 45 51 20 52 45 43 58 |LDA $FD:BEQ RECX|
00002510: 3A 42 4C 4B 4C 4F 4F 50 20 4A 53 52 20 44 4F A4 |:BLKLOOP JSR DO.|
00002520: 55 54 3A 4C 44 41 20 24 46 43 3A 53 54 41 20 24 |UT:LDA $FC:STA $|
00002530: 46 42 3A 4A 53 52 20 52 4C 49 4E 45 3A 44 45 43 |FB:JSR RLINE:DEC|
00002540: 20 24 46 44 00 88 2D 88 27 42 45 51 20 52 45 43 | $FD..-.'BEQ REC|
00002550: 58 3A 4A 53 52 20 47 43 44 4F 57 4E 3A 4A 53 52 |X:JSR GCDOWN:JSR|
00002560: 20 44 4F A4 55 54 3A 4C 44 41 20 24 46 43 3A 53 | DO.UT:LDA $FC:S|
00002570: 54 41 20 24 46 42 3A 4A 53 52 20 4C 4C 49 4E 45 |TA $FB:JSR LLINE|
00002580: 3A 44 45 43 20 24 46 44 00 AC 2D 92 27 42 45 51 |:DEC $FD..-.'BEQ|
00002590: 20 52 45 43 58 3A 4A 53 52 20 47 43 44 4F 57 4E | RECX:JSR GCDOWN|
000025A0: 3A 4A 4D 50 20 42 4C 4B 4C 4F 4F 50 00 F8 2D 9C |:JMP BLKLOOP..-.|
000025B0: 27 52 4C 49 4E 45 20 4C 44 41 20 24 46 42 3A 42 |'RLINE LDA $FB:B|
000025C0: 45 51 20 52 4C 58 3A 52 4C 4C 20 4A 53 52 20 47 |EQ RLX:RLL JSR G|
000025D0: 43 52 49 47 48 54 3A 4A 53 52 20 44 4F A4 55 54 |CRIGHT:JSR DO.UT|
000025E0: 3A 44 45 43 20 24 46 42 3A 42 4E 45 20 52 4C 4C |:DEC $FB:BNE RLL|
000025F0: 3A 52 4C 58 20 52 54 53 00 43 2E A6 27 4C 4C 49 |:RLX RTS.C..'LLI|
00002600: 4E 45 20 4C 44 41 20 24 46 42 3A 42 45 51 20 4C |NE LDA $FB:BEQ L|
00002610: 4C 58 3A 4C 4C 4C 20 4A 53 52 20 47 43 4C 45 46 |LX:LLL JSR GCLEF|
00002620: 54 3A 4A 53 52 20 44 4F A4 55 54 3A 44 45 43 20 |T:JSR DO.UT:DEC |
00002630: 24 46 42 3A 42 4E 45 20 4C 4C 4C 3A 4C 4C 58 20 |$FB:BNE LLL:LLX |
00002640: 52 54 53 00 69 2E ED 2A 3B 20 B2 B2 B2 B2 B2 B2 |RTS.i..*; ......|
00002650: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002660: B2 B2 B2 B2 B2 B2 B2 B2 B2 00 8C 2E EE 2A 3B 20 |.............*; |
00002670: 47 4E AB 20 28 47 52 41 50 48 49 43 AB 4E 55 4D |GN. (GRAPHIC.NUM|
00002680: 42 45 52 AB 29 20 42 45 46 45 48 4C 00 B2 2E F7 |BER.) BEFEHL....|
00002690: 2A 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |*; .............|
000026A0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000026B0: B2 B2 00 ED 2E F8 2A 53 43 52 45 45 4E 20 4A 53 |......*SCREEN JS|
000026C0: 52 20 24 42 37 39 42 3A 54 58 41 3A AF 20 23 33 |R $B79B:TXA:. #3|
000026D0: 3A 54 41 58 3A 4C 44 41 20 42 41 53 45 53 2C 58 |:TAX:LDA BASES,X|
000026E0: 3A 53 54 41 20 42 41 53 45 41 44 44 52 00 35 2F |:STA BASEADDR.5/|
000026F0: 02 2B 4C 44 41 20 53 43 52 54 41 42 2C 58 3A 4C |.+LDA SCRTAB,X:L|
00002700: 44 59 20 23 37 3A 53 43 52 4C 4F 4F 50 20 53 54 |DY #7:SCRLOOP ST|
00002710: 41 20 53 50 42 41 53 45 2C 59 3A 43 4C 43 3A 41 |A SPBASE,Y:CLC:A|
00002720: 44 43 20 23 34 3A 44 45 59 3A 42 50 4C 20 53 43 |DC #4:DEY:BPL SC|
00002730: 52 4C 4F 4F 50 00 3D 2F 0C 2B 52 54 53 00 5C 2F |RLOOP.=/.+RTS.\/|
00002740: 16 2B 42 41 53 45 53 20 2E 42 59 54 20 24 45 30 |.+BASES .BYT $E0|
00002750: 2C 24 45 38 2C 24 46 30 2C 24 45 38 00 7C 2F 20 |,$E8,$F0,$E8.|/ |
00002760: 2B 53 43 52 54 41 42 20 2E 42 59 54 20 31 33 31 |+SCRTAB .BYT 131|
00002770: 2C 31 36 33 2C 31 39 35 2C 31 36 33 00 A2 2F B5 |,163,195,163../.|
00002780: 2B 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |+; .............|
00002790: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000027A0: B2 B2 00 C2 2F B6 2B 3B 20 47 58 AB 20 28 47 52 |..../.+; GX. (GR|
000027B0: 41 50 48 49 43 AB 58 A4 50 AB 29 20 42 45 46 45 |APHIC.X.P.) BEFE|
000027C0: 48 4C 00 E8 2F BF 2B 3B 20 B2 B2 B2 B2 B2 B2 B2 |HL../.+; .......|
000027D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000027E0: B2 B2 B2 B2 B2 B2 B2 B2 00 34 30 E0 2E 58 A4 50 |.........40..X.P|
000027F0: 20 4A 53 52 20 24 42 37 39 42 3A 57 49 44 54 48 | JSR $B79B:WIDTH|
00002800: 49 4E 20 53 54 58 20 24 46 45 3A 4C 44 41 20 23 |IN STX $FE:LDA #|
00002810: 30 3A 53 54 41 20 24 46 46 3A 4C 44 41 20 24 44 |0:STA $FF:LDA $D|
00002820: 30 31 30 3A AF 20 23 32 34 30 3A 53 54 41 20 24 |010:. #240:STA $|
00002830: 44 30 31 30 00 68 30 EA 2E 4C 44 41 20 23 38 3A |D010.h0..LDA #8:|
00002840: 53 54 41 20 24 46 44 3A 4C 44 58 20 23 36 3A 58 |STA $FD:LDX #6:X|
00002850: 4C 4F 4F 50 20 4C 44 41 20 24 46 45 3A 53 54 41 |LOOP LDA $FE:STA|
00002860: 20 24 44 30 30 30 2C 58 00 97 30 F4 2E 4C 44 41 | $D000,X..0..LDA|
00002870: 20 24 46 46 3A 42 45 51 20 58 4E 43 3A 4C 44 41 | $FF:BEQ XNC:LDA|
00002880: 20 24 46 44 3A B0 41 20 24 44 30 31 30 3A 53 54 | $FD:.A $D010:ST|
00002890: 41 20 24 44 30 31 30 00 CF 30 FE 2E 58 4E 43 20 |A $D010..0..XNC |
000028A0: 4C 44 41 20 24 46 45 3A 43 4C 43 3A 41 44 43 20 |LDA $FE:CLC:ADC |
000028B0: 58 57 49 44 54 48 3A 53 54 41 20 24 46 45 3A 42 |XWIDTH:STA $FE:B|
000028C0: 43 43 20 58 4E 43 32 3A 49 4E 43 20 24 46 46 00 |CC XNC2:INC $FF.|
000028D0: F6 30 08 2F 58 4E 43 32 20 4C 53 52 20 24 46 44 |.0./XNC2 LSR $FD|
000028E0: 3A 44 45 58 3A 44 45 58 3A 42 50 4C 20 58 4C 4F |:DEX:DEX:BPL XLO|
000028F0: 4F 50 3A 52 54 53 00 09 31 12 2F 58 57 49 44 54 |OP:RTS..1./XWIDT|
00002900: 48 20 2E 42 59 54 20 34 38 00 2A 31 1C 2F 57 49 |H .BYT 48.*1./WI|
00002910: 44 54 48 20 4A 53 52 20 24 42 37 39 42 3A 54 58 |DTH JSR $B79B:TX|
00002920: 41 3A 42 4E 45 20 57 49 44 45 00 52 31 26 2F 4C |A:BNE WIDE.R1&/L|
00002930: 44 41 20 23 32 34 3A 53 54 41 20 58 57 49 44 54 |DA #24:STA XWIDT|
00002940: 48 3A 4C 44 41 20 24 44 30 31 44 3A AF 20 23 32 |H:LDA $D01D:. #2|
00002950: 34 30 00 7D 31 2B 2F 57 49 44 54 48 58 20 53 54 |40.}1+/WIDTHX ST|
00002960: 41 20 24 44 30 31 44 3A 4C 44 58 20 24 44 30 30 |A $D01D:LDX $D00|
00002970: 45 3A 4A 4D 50 20 57 49 44 54 48 49 4E 00 B5 31 |E:JMP WIDTHIN..1|
00002980: 30 2F 57 49 44 45 20 4C 44 41 20 23 34 38 3A 53 |0/WIDE LDA #48:S|
00002990: 54 41 20 58 57 49 44 54 48 3A 4C 44 41 20 24 44 |TA XWIDTH:LDA $D|
000029A0: 30 31 44 3A B0 41 20 23 31 35 3A 42 4E 45 20 57 |01D:.A #15:BNE W|
000029B0: 49 44 54 48 58 00 DB 31 BD 32 3B 20 B2 B2 B2 B2 |IDTHX..1.2; ....|
000029C0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000029D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 FB 31 BE 32 |.............1.2|
000029E0: 3B 20 47 59 AB 20 28 47 52 41 50 48 49 43 AB 59 |; GY. (GRAPHIC.Y|
000029F0: A4 50 AB 29 20 42 45 46 45 48 4C 00 21 32 C7 32 |.P.) BEFEHL.!2.2|
00002A00: 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |; ..............|
00002A10: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002A20: B2 00 4E 32 C8 32 59 A4 50 20 4A 53 52 20 24 42 |..N2.2Y.P JSR $B|
00002A30: 37 39 42 3A 54 49 4D 45 49 4E 20 54 58 41 3A 53 |79B:TIMEIN TXA:S|
00002A40: 54 41 20 24 34 30 30 3A 4C 44 58 20 23 37 00 7E |TA $400:LDX #7.~|
00002A50: 32 D2 32 59 4C 4F 4F 50 20 53 54 41 20 4C 49 4E |2.2YLOOP STA LIN|
00002A60: 45 53 2C 58 3A 43 4C 43 3A 41 44 43 20 23 32 31 |ES,X:CLC:ADC #21|
00002A70: 3A 44 45 58 3A 42 50 4C 20 59 4C 4F 4F 50 00 AD |:DEX:BPL YLOOP..|
00002A80: 32 DC 32 4C 44 41 20 24 34 30 30 3A 41 53 4C 20 |2.2LDA $400:ASL |
00002A90: 41 3A 43 4C 43 3A 41 44 43 20 24 34 30 30 3A AF |A:CLC:ADC $400:.|
00002AA0: 20 23 37 3A B0 41 20 23 38 3A 54 41 59 00 DE 32 | #7:.A #8:TAY..2|
00002AB0: E6 32 4C 44 58 20 23 37 3A 44 45 4C 59 4C 4F 4F |.2LDX #7:DELYLOO|
00002AC0: 50 20 4C 44 41 20 44 45 4C 59 54 41 42 AB 31 2C |P LDA DELYTAB.1,|
00002AD0: 59 3A 53 54 41 20 44 45 4C 41 59 53 2C 58 00 FB |Y:STA DELAYS,X..|
00002AE0: 32 F0 32 44 45 59 3A 44 45 58 3A 42 50 4C 20 44 |2.2DEY:DEX:BPL D|
00002AF0: 45 4C 59 4C 4F 4F 50 3A 52 54 53 00 39 33 FA 32 |ELYLOOP:RTS.93.2|
00002B00: 44 45 4C 59 54 41 42 20 2E 42 59 54 20 31 32 2C |DELYTAB .BYT 12,|
00002B10: 31 32 2C 31 39 2C 31 32 2C 31 39 2C 31 39 2C 31 |12,19,12,19,19,1|
00002B20: 32 2C 31 39 2C 31 32 2C 31 32 2C 31 39 2C 31 32 |2,19,12,12,19,12|
00002B30: 2C 31 39 2C 31 39 2C 31 32 00 5F 33 A5 36 3B 20 |,19,19,12._3.6; |
00002B40: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002B50: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 |................|
00002B60: 7E 33 A6 36 3B 20 46 44 AB 20 28 46 91 54 AB 44 |~3.6; FD. (F.T.D|
00002B70: 45 53 49 47 4E AB 29 20 42 45 46 45 48 4C 00 A4 |ESIGN.) BEFEHL..|
00002B80: 33 AF 36 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |3.6; ...........|
00002B90: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002BA0: B2 B2 B2 B2 00 B7 33 B0 36 46 91 54 20 4A 53 52 |......3.6F.T JSR|
00002BB0: 20 46 44 50 52 45 50 00 01 34 C4 36 4D 44 49 4E | FDPREP..4.6MDIN|
00002BC0: 20 4C 44 41 20 23 30 3A 53 54 41 20 24 46 42 3A | LDA #0:STA $FB:|
00002BD0: 43 48 52 4C 4F 4F 50 20 4A 53 52 20 24 42 37 46 |CHRLOOP JSR $B7F|
00002BE0: 31 3A 54 58 41 3A 4C 44 58 20 24 46 42 3A 53 54 |1:TXA:LDX $FB:ST|
00002BF0: 41 20 24 30 34 30 30 2C 58 3A 49 4E 43 20 24 46 |A $0400,X:INC $F|
00002C00: 42 00 2B 34 CE 36 43 50 58 20 23 37 3A 42 43 43 |B.+4.6CPX #7:BCC|
00002C10: 20 43 48 52 4C 4F 4F 50 3A 53 45 49 3A 4C 44 41 | CHRLOOP:SEI:LDA|
00002C20: 20 23 24 33 30 3A 53 54 41 20 31 00 63 34 D8 36 | #$30:STA 1.c4.6|
00002C30: 4C 44 59 20 23 37 3A 53 A4 4C 4F 4F 50 20 4C 44 |LDY #7:S.LOOP LD|
00002C40: 41 20 24 34 30 30 2C 59 3A 53 54 41 20 28 24 46 |A $400,Y:STA ($F|
00002C50: 45 29 2C 59 3A 44 45 59 3A 42 50 4C 20 53 A4 4C |E),Y:DEY:BPL S.L|
00002C60: 4F 4F 50 00 85 34 E2 36 46 44 42 41 43 4B 20 4C |OOP..4.6FDBACK L|
00002C70: 44 41 20 23 24 33 37 3A 53 54 41 20 31 3A 43 4C |DA #$37:STA 1:CL|
00002C80: 49 3A 52 54 53 00 AB 34 09 37 3B 20 B2 B2 B2 B2 |I:RTS..4.7; ....|
00002C90: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002CA0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 C8 34 0A 37 |.............4.7|
00002CB0: 3B 20 46 42 AB 20 28 46 91 54 AB 42 59 54 45 AB |; FB. (F.T.BYTE.|
00002CC0: 29 20 42 45 46 45 48 4C 00 EE 34 13 37 3B 20 B2 |) BEFEHL..4.7; .|
00002CD0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002CE0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 21 |...............!|
00002CF0: 35 14 37 46 44 50 52 45 50 20 4A 53 52 20 24 42 |5.7FDPREP JSR $B|
00002D00: 37 39 42 3A 54 58 41 3A AF 20 23 31 3A B0 41 20 |79B:TXA:. #1:.A |
00002D10: 23 32 36 3A 50 48 41 3A 4A 53 52 20 24 42 37 46 |#26:PHA:JSR $B7F|
00002D20: 31 00 67 35 1E 37 53 54 58 20 24 46 45 3A 50 4C |1.g5.7STX $FE:PL|
00002D30: 41 3A 41 53 4C 20 24 46 45 3A 52 4F 4C 20 41 3A |A:ASL $FE:ROL A:|
00002D40: 41 53 4C 20 24 46 45 3A 52 4F 4C 20 41 3A 41 53 |ASL $FE:ROL A:AS|
00002D50: 4C 20 24 46 45 3A 52 4F 4C 20 41 3A 53 54 41 20 |L $FE:ROL A:STA |
00002D60: 24 46 46 3A 52 54 53 00 A7 35 78 37 46 4F 42 59 |$FF:RTS..5x7FOBY|
00002D70: 54 45 20 4A 53 52 20 46 44 50 52 45 50 3A 4A 53 |TE JSR FDPREP:JS|
00002D80: 52 20 24 42 37 46 31 3A 54 58 41 3A AF 20 23 37 |R $B7F1:TXA:. #7|
00002D90: 3A 4D 42 49 4E 20 53 54 41 20 24 46 42 3A 4A 53 |:MBIN STA $FB:JS|
00002DA0: 52 20 24 42 37 46 31 00 DD 35 82 37 4C 44 41 20 |R $B7F1..5.7LDA |
00002DB0: 23 24 33 30 3A 53 54 41 20 31 3A 54 58 41 3A 4C |#$30:STA 1:TXA:L|
00002DC0: 44 59 20 24 46 42 3A 53 54 41 20 28 24 46 45 29 |DY $FB:STA ($FE)|
00002DD0: 2C 59 3A 4A 4D 50 20 46 44 42 41 43 4B 00 03 36 |,Y:JMP FDBACK..6|
00002DE0: 8D 3A 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.:; ............|
00002DF0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002E00: B2 B2 B2 00 21 36 8E 3A 3B 20 47 53 AB 20 28 47 |....!6.:; GS. (G|
00002E10: 52 41 50 48 49 43 AB 94 AB 29 20 42 45 46 45 48 |RAPHIC...) BEFEH|
00002E20: 4C 00 47 36 97 3A 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 |L.G6.:; ........|
00002E30: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002E40: B2 B2 B2 B2 B2 B2 B2 00 8E 36 98 3A 94 20 4A 53 |.........6.:. JS|
00002E50: 52 20 24 42 37 39 42 3A 54 58 41 3A AF 20 23 33 |R $B79B:TXA:. #3|
00002E60: 3A 54 41 58 3A 4C 44 41 20 42 41 53 45 53 2C 58 |:TAX:LDA BASES,X|
00002E70: 3A 46 53 56 49 4E 20 50 48 41 3A 4A 53 52 20 24 |:FSVIN PHA:JSR $|
00002E80: 41 45 46 44 3A 4A 53 52 20 24 45 31 44 34 00 DB |AEFD:JSR $E1D4..|
00002E90: 36 A2 3A 50 4C 41 3A 53 54 41 20 24 46 46 3A 4C |6.:PLA:STA $FF:L|
00002EA0: 44 59 20 23 30 3A 53 54 59 20 24 46 45 3A 53 54 |DY #0:STY $FE:ST|
00002EB0: 59 20 24 46 42 3A 4C 44 41 20 23 24 42 38 3A 53 |Y $FB:LDA #$B8:S|
00002EC0: 54 41 20 24 46 43 3A 53 54 41 20 24 46 44 3A 53 |TA $FC:STA $FD:S|
00002ED0: 45 49 3A 4C 44 41 20 23 24 33 30 00 1A 37 AC 3A |EI:LDA #$30..7.:|
00002EE0: 53 54 41 20 31 3A 4C 44 58 20 23 38 3A 53 56 4C |STA 1:LDX #8:SVL|
00002EF0: 4F 4F 50 20 4C 44 41 20 28 24 46 45 29 2C 59 3A |OOP LDA ($FE),Y:|
00002F00: 53 54 41 20 28 24 46 42 29 2C 59 3A 49 4E 59 3A |STA ($FB),Y:INY:|
00002F10: 42 4E 45 20 53 56 4C 4F 4F 50 00 3D 37 B6 3A 49 |BNE SVLOOP.=7.:I|
00002F20: 4E 43 20 24 46 43 3A 49 4E 43 20 24 46 46 3A 44 |NC $FC:INC $FF:D|
00002F30: 45 58 3A 42 4E 45 20 53 56 4C 4F 4F 50 00 83 37 |EX:BNE SVLOOP..7|
00002F40: C0 3A 4C 44 41 20 23 24 33 36 3A 53 54 41 20 31 |.:LDA #$36:STA 1|
00002F50: 3A 43 4C 49 3A 4C 44 58 20 23 30 3A 53 54 58 20 |:CLI:LDX #0:STX |
00002F60: 24 46 43 3A 4C 44 41 20 23 24 46 43 3A 44 45 58 |$FC:LDA #$FC:DEX|
00002F70: 3A 4C 44 59 20 23 24 42 46 3A 4A 53 52 20 24 46 |:LDY #$BF:JSR $F|
00002F80: 35 44 44 00 92 37 CA 3A 4A 4D 50 20 46 44 42 41 |5DD..7.:JMP FDBA|
00002F90: 43 4B 00 B8 37 75 3E 3B 20 B2 B2 B2 B2 B2 B2 B2 |CK..7u>; .......|
00002FA0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002FB0: B2 B2 B2 B2 B2 B2 B2 B2 00 D6 37 76 3E 3B 20 47 |..........7v>; G|
00002FC0: 4C AB 20 28 47 52 41 50 48 49 43 AB 93 AB 29 20 |L. (GRAPHIC...) |
00002FD0: 42 45 46 45 48 4C 00 FC 37 7F 3E 3B 20 B2 B2 B2 |BEFEHL..7.>; ...|
00002FE0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00002FF0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 42 38 80 |.............B8.|
00003000: 3E 93 20 4A 53 52 20 24 42 37 39 42 3A 54 58 41 |>. JSR $B79B:TXA|
00003010: 3A AF 20 23 33 3A 54 41 58 3A 4C 44 41 20 42 41 |:. #3:TAX:LDA BA|
00003020: 53 45 53 2C 58 3A 46 4C 49 4E 20 50 48 41 3A 4A |SES,X:FLIN PHA:J|
00003030: 53 52 20 24 41 45 46 44 3A 4A 53 52 20 24 45 31 |SR $AEFD:JSR $E1|
00003040: 44 34 00 6B 38 8A 3E 50 4C 41 3A 54 41 59 3A 4C |D4.k8.>PLA:TAY:L|
00003050: 44 41 20 23 30 3A 53 54 41 20 24 30 41 3A 54 41 |DA #0:STA $0A:TA|
00003060: 58 3A 4A 53 52 20 24 46 46 44 35 00 88 38 94 3E |X:JSR $FFD5..8.>|
00003070: 4C 44 58 20 24 32 44 3A 4C 44 59 20 24 32 45 3A |LDX $2D:LDY $2E:|
00003080: 4A 4D 50 20 93 41 46 54 00 AE 38 5D 42 3B 20 B2 |JMP .AFT..8]B; .|
00003090: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000030A0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 CF |................|
000030B0: 38 5E 42 3B 20 54 50 AB 20 28 54 45 58 54 53 43 |8^B; TP. (TEXTSC|
000030C0: 52 45 45 4E AB 99 AB 29 20 42 45 46 45 48 4C 00 |REEN...) BEFEHL.|
000030D0: F5 38 67 42 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.8gB; ..........|
000030E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000030F0: B2 B2 B2 B2 B2 00 0A 39 68 42 50 52 54 41 54 20 |.......9hBPRTAT |
00003100: 4A 53 52 20 43 52 53 52 58 59 00 21 39 72 42 4A |JSR CRSRXY.!9rBJ|
00003110: 53 52 20 43 48 4B 43 4F 4D 3A 42 4E 45 20 50 41 |SR CHKCOM:BNE PA|
00003120: 58 00 3B 39 7C 42 99 20 4A 53 52 20 24 30 30 37 |X.;9|B. JSR $007|
00003130: 33 3A 4A 4D 50 20 24 41 41 41 30 00 74 39 CC 42 |3:JMP $AAA0.t9.B|
00003140: 43 52 53 52 58 59 20 4A 53 52 20 24 42 37 39 42 |CRSRXY JSR $B79B|
00003150: 3A 53 54 58 20 24 44 33 3A 4A 53 52 20 24 42 37 |:STX $D3:JSR $B7|
00003160: 46 31 3A 53 54 58 20 24 44 36 3A 4A 4D 50 20 24 |F1:STX $D6:JMP $|
00003170: 45 35 36 43 00 9A 39 45 46 3B 20 B2 B2 B2 B2 B2 |E56C..9EF; .....|
00003180: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003190: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 BD 39 46 46 3B |............9FF;|
000031A0: 20 47 49 AB 20 28 47 52 41 50 48 49 43 AB 49 4E | GI. (GRAPHIC.IN|
000031B0: 56 45 52 54 AB 29 20 42 45 46 45 48 4C 00 E3 39 |VERT.) BEFEHL..9|
000031C0: 4F 46 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |OF; ............|
000031D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000031E0: B2 B2 B2 00 12 3A 50 46 49 4E 56 45 52 54 20 4C |.....:PFINVERT L|
000031F0: 44 41 20 42 41 53 45 41 44 44 52 3A 53 54 41 20 |DA BASEADDR:STA |
00003200: 24 46 46 3A 4C 44 59 20 23 30 3A 53 54 59 20 24 |$FF:LDY #0:STY $|
00003210: 46 45 00 25 3A 5A 46 4C 44 41 20 23 24 33 30 3A |FE.%:ZFLDA #$30:|
00003220: 53 54 41 20 31 00 68 3A 64 46 4C 44 58 20 23 38 |STA 1.h:dFLDX #8|
00003230: 3A 49 4E 56 4C 4F 4F 50 20 4C 44 41 20 28 24 46 |:INVLOOP LDA ($F|
00003240: 45 29 2C 59 3A 45 B0 20 23 32 35 35 3A 53 54 41 |E),Y:E. #255:STA|
00003250: 20 28 24 46 45 29 2C 59 3A 49 4E 59 3A 42 4E 45 | ($FE),Y:INY:BNE|
00003260: 20 49 4E 56 4C 4F 4F 50 00 9D 3A 6E 46 49 4E 43 | INVLOOP..:nFINC|
00003270: 20 24 46 46 3A 44 45 58 3A 42 4E 45 20 49 4E 56 | $FF:DEX:BNE INV|
00003280: 4C 4F 4F 50 3A 4C 44 41 20 23 24 33 37 3A 53 54 |LOOP:LDA #$37:ST|
00003290: 41 20 31 3A 4A 4D 50 20 24 30 30 37 33 00 C3 3A |A 1:JMP $0073..:|
000032A0: 2D 4A 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |-J; ............|
000032B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000032C0: B2 B2 B2 00 E1 3A 2E 4A 3B 20 44 4D AB 20 28 44 |.....:.J; DM. (D|
000032D0: 52 41 57 AB 4D 4F 44 45 AB 29 20 42 45 46 45 48 |RAW.MODE.) BEFEH|
000032E0: 4C 00 07 3B 37 4A 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 |L..;7J; ........|
000032F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003300: B2 B2 B2 B2 B2 B2 B2 00 2E 3B 38 4A 4D 4F 44 45 |.........;8JMODE|
00003310: 20 4A 53 52 20 24 42 37 39 42 3A 53 54 58 20 41 | JSR $B79B:STX A|
00003320: 43 54 4D 4F 44 45 3A 50 41 58 20 52 54 53 00 54 |CTMODE:PAX RTS.T|
00003330: 3B 15 4E 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |;.N; ...........|
00003340: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003350: B2 B2 B2 B2 00 74 3B 16 4E 3B 20 46 4F AB 20 28 |.....t;.N; FO. (|
00003360: 46 91 54 AB B0 49 47 49 4E 41 4C AB 29 20 42 45 |F.T..IGINAL.) BE|
00003370: 46 45 48 4C 00 9A 3B 1F 4E 3B 20 B2 B2 B2 B2 B2 |FEHL..;.N; .....|
00003380: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003390: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 C3 3B 20 4E 4E |............; NN|
000033A0: B0 4D 41 4C 20 4A 53 52 20 49 52 51 4F 46 46 3A |.MAL JSR IRQOFF:|
000033B0: 4A 53 52 20 4D 4F 56 45 53 43 52 3A 4A 4D 50 20 |JSR MOVESCR:JMP |
000033C0: 24 37 33 00 E9 3B FD 51 3B 20 B2 B2 B2 B2 B2 B2 |$73..;.Q; ......|
000033D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000033E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 00 0E 3C FE 51 3B 20 |...........<.Q; |
000033F0: 47 4B 20 28 47 52 41 50 48 49 43 AB 43 4F 4D 42 |GK (GRAPHIC.COMB|
00003400: 49 4E 41 54 45 AB 29 20 42 45 46 45 48 4C 00 34 |INATE.) BEFEHL.4|
00003410: 3C 07 52 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |<.R; ...........|
00003420: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003430: B2 B2 B2 B2 00 4A 3C 08 52 4B 4F 4D 42 49 4E 45 |.....J<.RKOMBINE|
00003440: 20 4A 53 52 20 4B 50 52 45 50 00 83 3C 12 52 4A | JSR KPREP..<.RJ|
00003450: 53 52 20 24 42 37 46 31 3A 54 58 41 3A AF 20 23 |SR $B7F1:TXA:. #|
00003460: 33 3A 54 41 58 3A 4C 44 41 20 42 41 53 45 53 2C |3:TAX:LDA BASES,|
00003470: 58 3A 53 54 41 20 24 46 46 3A 4A 53 52 20 24 42 |X:STA $FF:JSR $B|
00003480: 37 46 31 00 CA 3C 1C 52 46 4C 42 4B 20 4C 44 59 |7F1..<.RFLBK LDY|
00003490: 20 23 30 3A 53 54 59 20 24 46 43 3A 53 54 59 20 | #0:STY $FC:STY |
000034A0: 24 46 45 3A 4C 44 41 20 23 24 33 30 3A 53 54 41 |$FE:LDA #$30:STA|
000034B0: 20 31 3A 2E 42 59 54 20 24 32 43 3A 43 4F 50 59 | 1:.BYT $2C:COPY|
000034C0: 53 43 52 20 4C 44 58 20 23 33 00 0D 3D 26 52 54 |SCR LDX #3..=&RT|
000034D0: 58 41 3A AF 20 23 33 3A 41 53 4C 20 41 3A 54 41 |XA:. #3:ASL A:TA|
000034E0: 58 3A 4C 44 41 20 4B 4F 54 41 42 2C 58 3A 53 54 |X:LDA KOTAB,X:ST|
000034F0: 41 20 24 33 33 34 3A 4C 44 41 20 4B 4F 54 41 42 |A $334:LDA KOTAB|
00003500: AA 31 2C 58 3A 53 54 41 20 24 33 33 35 00 49 3D |.1,X:STA $335.I=|
00003510: 30 52 4C 44 58 20 23 38 3A 4B 43 4C 20 4C 44 41 |0RLDX #8:KCL LDA|
00003520: 20 28 24 46 43 29 2C 59 3A 4A 53 52 20 45 58 45 | ($FC),Y:JSR EXE|
00003530: 43 3A 53 54 41 20 28 24 46 45 29 2C 59 3A 49 4E |C:STA ($FE),Y:IN|
00003540: 59 3A 42 4E 45 20 4B 43 4C 00 74 3D 3A 52 49 4E |Y:BNE KCL.t=:RIN|
00003550: 43 20 24 46 44 3A 49 4E 43 20 24 46 46 3A 44 45 |C $FD:INC $FF:DE|
00003560: 58 3A 42 4E 45 20 4B 43 4C 3A 4A 4D 50 20 46 44 |X:BNE KCL:JMP FD|
00003570: 42 41 43 4B 00 91 3D 44 52 4B B0 41 20 B0 41 20 |BACK..=DRK.A .A |
00003580: 28 24 46 45 29 2C 59 3A 4B 43 4F 50 59 20 52 54 |($FE),Y:KCOPY RT|
00003590: 53 00 A6 3D 4E 52 4B AF 20 AF 20 28 24 46 45 29 |S..=NRK. . ($FE)|
000035A0: 2C 59 3A 52 54 53 00 BD 3D 58 52 4B 45 B0 20 45 |,Y:RTS..=XRKE. E|
000035B0: B0 20 28 24 46 45 29 2C 59 3A 52 54 53 00 DC 3D |. ($FE),Y:RTS..=|
000035C0: 62 52 4B 4F 54 41 42 20 2E 57 B0 20 4B AF 2C 4B |bRKOTAB .W. K.,K|
000035D0: B0 41 2C 4B 45 B0 2C 4B 43 4F 50 59 00 02 3E C5 |.A,KE.,KCOPY..>.|
000035E0: 52 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |R; .............|
000035F0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003600: B2 B2 00 27 3E C6 52 3B 20 4B 50 52 45 50 20 20 |...'>.R; KPREP |
00003610: 20 AB 20 43 4F 4D 42 49 4E 41 54 45 AB 56 B0 42 | . COMBINATE.V.B|
00003620: 45 52 45 49 54 47 2E 00 44 3E C7 52 3B 20 A1 41 |EREITG..D>.R; .A|
00003630: 44 44 52 20 AB 20 B9 2E 20 B5 45 47 45 52 5A 2E |DDR . .. .EGERZ.|
00003640: 20 48 4F C3 00 6A 3E CF 52 3B 20 B2 B2 B2 B2 B2 | HO..j>.R; .....|
00003650: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003660: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 A3 3E D0 52 4B |............>.RK|
00003670: 50 52 45 50 20 4A 53 52 20 24 42 37 39 42 3A 54 |PREP JSR $B79B:T|
00003680: 58 41 3A AF 20 23 33 3A 54 41 58 3A 4C 44 41 20 |XA:. #3:TAX:LDA |
00003690: 42 41 53 45 53 2C 58 3A 53 54 41 20 24 46 44 3A |BASES,X:STA $FD:|
000036A0: 52 54 53 00 D0 3E DA 52 A1 41 44 44 52 20 4A 53 |RTS..>.R.ADDR JS|
000036B0: 52 20 24 41 45 46 44 3A A1 31 36 42 20 4A 53 52 |R $AEFD:.16B JSR|
000036C0: 20 24 41 44 38 41 3A 4A 4D 50 20 24 42 37 46 37 | $AD8A:JMP $B7F7|
000036D0: 00 F6 3E 29 53 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..>)S; .........|
000036E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000036F0: B2 B2 B2 B2 B2 B2 00 16 3F 2A 53 3B 20 50 47 AB |........?*S; PG.|
00003700: 20 28 50 55 54 AB 47 52 41 50 48 49 43 AB 29 20 | (PUT.GRAPHIC.) |
00003710: 42 45 46 45 48 4C 00 39 3F 2B 53 3B 20 52 47 AB |BEFEHL.9?+S; RG.|
00003720: 20 28 52 45 43 41 4C 4C AB 47 52 41 50 48 49 43 | (RECALL.GRAPHIC|
00003730: AB 29 20 42 45 46 45 48 4C 00 5F 3F 33 53 3B 20 |.) BEFEHL._?3S; |
00003740: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003750: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 |................|
00003760: A0 3F 34 53 50 55 54 53 43 52 45 45 4E 20 4A 53 |.?4SPUTSCREEN JS|
00003770: 52 20 4B 50 52 45 50 3A 4C 44 41 20 23 30 3A 53 |R KPREP:LDA #0:S|
00003780: 54 41 20 24 46 43 3A 4A 53 52 20 A1 41 44 44 52 |TA $FC:JSR .ADDR|
00003790: 3A 53 54 59 20 24 46 45 3A 53 54 41 20 24 46 46 |:STY $FE:STA $FF|
000037A0: 00 C3 3F 3E 53 50 52 58 20 4C 44 41 20 23 24 33 |..?>SPRX LDA #$3|
000037B0: 30 3A 53 54 41 20 31 3A 42 4E 45 20 43 4F 50 59 |0:STA 1:BNE COPY|
000037C0: 53 43 52 00 0C 40 48 53 52 43 4C 53 43 52 45 45 |SCR..@HSRCLSCREE|
000037D0: 4E 20 4A 53 52 20 4B 50 52 45 50 3A 53 54 41 20 |N JSR KPREP:STA |
000037E0: 24 46 46 3A 4C 44 41 20 23 30 3A 53 54 41 20 24 |$FF:LDA #0:STA $|
000037F0: 46 45 3A 4A 53 52 20 A1 41 44 44 52 3A 53 54 59 |FE:JSR .ADDR:STY|
00003800: 20 24 46 43 3A 53 54 41 20 24 46 44 00 18 40 52 | $FC:STA $FD..@R|
00003810: 53 4A 4D 50 20 50 52 58 00 3E 40 8C 55 3B 20 B2 |SJMP PRX.>@.U; .|
00003820: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003830: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 57 |...............W|
00003840: 40 96 55 3B 20 54 45 58 54 53 43 52 45 45 4E AB |@.U; TEXTSCREEN.|
00003850: 42 45 46 45 48 4C 45 00 7B 40 97 55 3B 20 20 20 |BEFEHLE.{@.U; |
00003860: 54 43 20 AB 20 54 45 58 54 53 43 52 45 45 4E AB |TC . TEXTSCREEN.|
00003870: 43 4F 4C 4F 55 52 AB 46 49 4C 4C 00 9D 40 98 55 |COLOUR.FILL..@.U|
00003880: 3B 20 20 20 54 46 20 AB 20 20 20 20 20 27 27 20 |; TF . '' |
00003890: 20 20 20 AB 43 48 41 52 AB 46 49 4C 4C 00 C0 40 | .CHAR.FILL..@|
000038A0: 99 55 3B 20 20 20 54 54 20 AB 20 20 20 20 20 27 |.U; TT . '|
000038B0: 27 20 20 20 20 AB 41 54 54 52 2E AB 54 55 52 4E |' .ATTR..TURN|
000038C0: 00 DE 40 9A 55 3B 20 20 20 54 52 20 AB 20 20 20 |..@.U; TR . |
000038D0: 20 20 27 27 20 20 20 AB 52 45 56 45 52 53 00 FC | '' .REVERS..|
000038E0: 40 9B 55 3B 20 20 20 54 4E 20 AB 20 20 20 20 20 |@.U; TN . |
000038F0: 27 27 20 20 20 20 AB 4E B0 4D 41 4C 00 22 41 9C |'' .N.MAL."A.|
00003900: 55 3B 20 20 20 54 58 20 AB 20 20 20 20 20 27 27 |U; TX . ''|
00003910: 20 20 20 20 AB 43 48 41 52 AB 45 58 43 48 41 4E | .CHAR.EXCHAN|
00003920: 47 45 00 48 41 EF 55 3B 20 B2 B2 B2 B2 B2 B2 B2 |GE.HA.U; .......|
00003930: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003940: B2 B2 B2 B2 B2 B2 B2 B2 00 81 41 F0 55 54 50 52 |..........A.UTPR|
00003950: 45 50 20 4A 53 52 20 24 42 37 39 42 3A 43 50 58 |EP JSR $B79B:CPX|
00003960: 20 23 34 30 3A 42 43 53 20 49 4C 4C 51 55 41 4E | #40:BCS ILLQUAN|
00003970: 32 3A 53 54 58 20 24 46 45 3A 53 54 58 20 24 46 |2:STX $FE:STX $F|
00003980: 43 00 CA 41 FA 55 4A 53 52 20 24 42 37 46 31 3A |C..A.UJSR $B7F1:|
00003990: 43 50 58 20 23 32 35 3A 42 43 53 20 49 4C 4C 51 |CPX #25:BCS ILLQ|
000039A0: 55 41 4E 32 3A 53 54 58 20 24 46 44 3A 54 58 41 |UAN2:STX $FD:TXA|
000039B0: 3A 41 53 4C 20 41 3A 41 53 4C 20 41 3A 41 53 4C |:ASL A:ASL A:ASL|
000039C0: 20 41 3A 53 54 41 20 24 46 42 00 14 42 04 56 4C | A:STA $FB..B.VL|
000039D0: 44 58 20 23 30 3A 53 54 58 20 24 46 46 3A 41 53 |DX #0:STX $FF:AS|
000039E0: 4C 20 41 3A 52 4F 4C 20 24 46 46 3A 41 53 4C 20 |L A:ROL $FF:ASL |
000039F0: 41 3A 52 4F 4C 20 24 46 46 3A 41 44 43 20 24 46 |A:ROL $FF:ADC $F|
00003A00: 42 3A 42 43 43 20 A4 4B 3A 49 4E 43 20 24 46 46 |B:BCC .K:INC $FF|
00003A10: 3A 43 4C 43 00 49 42 0E 56 A4 4B 20 41 44 43 20 |:CLC.IB.V.K ADC |
00003A20: 24 46 45 3A 53 54 41 20 24 46 45 3A 42 43 43 20 |$FE:STA $FE:BCC |
00003A30: A4 4B 32 3A 49 4E 43 20 24 46 46 3A A4 4B 32 20 |.K2:INC $FF:.K2 |
00003A40: 4A 53 52 20 24 42 37 46 31 00 8B 42 18 56 54 58 |JSR $B7F1..B.VTX|
00003A50: 41 3A 42 45 51 20 49 4C 4C 51 55 41 4E 32 3A 43 |A:BEQ ILLQUAN2:C|
00003A60: 4C 43 3A 41 44 43 20 24 46 43 3A 43 4D 50 20 23 |LC:ADC $FC:CMP #|
00003A70: 34 31 3A 42 43 53 20 49 4C 4C 51 55 41 4E 32 3A |41:BCS ILLQUAN2:|
00003A80: 44 45 58 3A 53 54 58 20 24 46 43 00 D7 42 22 56 |DEX:STX $FC..B"V|
00003A90: 4A 53 52 20 24 42 37 46 31 3A 54 58 41 3A 42 45 |JSR $B7F1:TXA:BE|
00003AA0: 51 20 49 4C 4C 51 55 41 4E 32 3A 43 4C 43 3A 41 |Q ILLQUAN2:CLC:A|
00003AB0: 44 43 20 24 46 44 3A 43 4D 50 20 23 32 36 3A 42 |DC $FD:CMP #26:B|
00003AC0: 43 53 20 49 4C 4C 51 55 41 4E 32 3A 53 54 58 20 |CS ILLQUAN2:STX |
00003AD0: 24 46 44 3A 52 54 53 00 EE 42 2C 56 49 4C 4C 51 |$FD:RTS..B,VILLQ|
00003AE0: 55 41 4E 32 20 4A 4D 50 20 24 42 32 34 38 00 2E |UAN2 JMP $B248..|
00003AF0: 43 54 56 54 44 4F 54 20 4C 44 58 20 23 24 43 43 |CTVTDOT LDX #$CC|
00003B00: 3A 54 44 4F 20 53 54 41 20 24 33 33 34 3A 53 54 |:TDO STA $334:ST|
00003B10: 59 20 24 33 33 35 3A 54 58 41 3A 43 4C 43 3A 41 |Y $335:TXA:CLC:A|
00003B20: 44 43 20 24 46 46 3A 53 54 41 20 24 46 46 00 5D |DC $FF:STA $FF.]|
00003B30: 43 59 56 54 44 4C 31 20 4C 44 59 20 24 46 43 3A |CYVTDL1 LDY $FC:|
00003B40: 54 44 4C 32 20 4A 53 52 20 45 58 45 43 3A 53 54 |TDL2 JSR EXEC:ST|
00003B50: 41 20 28 24 46 45 29 2C 59 3A 54 59 41 00 A8 43 |A ($FE),Y:TYA..C|
00003B60: 5E 56 42 45 51 20 54 44 4D 33 3A 44 45 59 3A 4A |^VBEQ TDM3:DEY:J|
00003B70: 4D 50 20 54 44 4C 32 3A 54 44 4D 33 20 4C 44 41 |MP TDL2:TDM3 LDA|
00003B80: 20 24 46 45 3A 43 4C 43 3A 41 44 43 20 23 34 30 | $FE:CLC:ADC #40|
00003B90: 3A 53 54 41 20 24 46 45 3A 42 43 43 20 A4 4B 33 |:STA $FE:BCC .K3|
00003BA0: 3A 49 4E 43 20 24 46 46 00 C5 43 68 56 A4 4B 33 |:INC $FF..ChV.K3|
00003BB0: 20 44 45 43 20 24 46 44 3A 42 4E 45 20 54 44 4C | DEC $FD:BNE TDL|
00003BC0: 31 3A 52 54 53 00 DC 43 B8 56 54 53 43 91 53 54 |1:RTS..C.VTSC.ST|
00003BD0: 20 4C 44 41 20 24 46 42 3A 52 54 53 00 FF 43 C2 | LDA $FB:RTS..C.|
00003BE0: 56 54 53 54 55 52 4E 20 4C 44 41 20 28 24 46 45 |VTSTURN LDA ($FE|
00003BF0: 29 2C 59 3A 45 B0 20 23 31 32 38 3A 52 54 53 00 |),Y:E. #128:RTS.|
00003C00: 21 44 CC 56 54 53 50 4C 55 53 20 4C 44 41 20 28 |!D.VTSPLUS LDA (|
00003C10: 24 46 45 29 2C 59 3A AF 20 23 31 32 37 3A 52 54 |$FE),Y:. #127:RT|
00003C20: 53 00 45 44 D6 56 54 53 4D 49 4E 55 53 20 4C 44 |S.ED.VTSMINUS LD|
00003C30: 41 20 28 24 46 45 29 2C 59 3A B0 41 20 23 31 32 |A ($FE),Y:.A #12|
00003C40: 38 3A 52 54 53 00 7F 44 E0 56 54 53 58 43 48 47 |8:RTS..D.VTSXCHG|
00003C50: 20 4C 44 41 20 28 24 46 45 29 2C 59 3A 43 4D 50 | LDA ($FE),Y:CMP|
00003C60: 20 24 46 42 3A 42 4E 45 20 54 53 58 58 3A 4C 44 | $FB:BNE TSXX:LD|
00003C70: 41 20 24 34 30 30 3A 54 53 58 58 20 52 54 53 00 |A $400:TSXX RTS.|
00003C80: AE 44 1C 57 54 43 4F 4C B0 20 4A 53 52 20 54 50 |.D.WTCOL. JSR TP|
00003C90: 52 45 50 3A 4A 53 52 20 24 42 37 46 31 3A 53 54 |REP:JSR $B7F1:ST|
00003CA0: 58 20 24 46 42 3A 4C 44 58 20 23 24 44 38 00 D8 |X $FB:LDX #$D8..|
00003CB0: 44 26 57 54 43 46 20 4C 44 41 20 23 B3 54 53 43 |D&WTCF LDA #.TSC|
00003CC0: 91 53 54 3A 4C 44 59 20 23 B1 54 53 43 91 53 54 |.ST:LDY #.TSC.ST|
00003CD0: 3A 4A 4D 50 20 54 44 4F 00 0F 45 30 57 54 46 49 |:JMP TDO..E0WTFI|
00003CE0: 4C 4C 20 4A 53 52 20 54 50 52 45 50 3A 4A 53 52 |LL JSR TPREP:JSR|
00003CF0: 20 24 42 37 46 31 3A 53 54 58 20 24 46 42 3A 4C | $B7F1:STX $FB:L|
00003D00: 44 58 20 23 24 43 43 3A 42 4E 45 20 54 43 46 00 |DX #$CC:BNE TCF.|
00003D10: 46 45 3A 57 54 54 55 52 4E 20 4A 53 52 20 54 50 |FE:WTTURN JSR TP|
00003D20: 52 45 50 3A 4C 44 41 20 23 B3 54 53 54 55 52 4E |REP:LDA #.TSTURN|
00003D30: 3A 4C 44 59 20 23 B1 54 53 54 55 52 4E 3A 42 4E |:LDY #.TSTURN:BN|
00003D40: 45 20 54 44 4F 54 00 7E 45 44 57 54 52 45 56 20 |E TDOT.~EDWTREV |
00003D50: 4A 53 52 20 54 50 52 45 50 3A 4C 44 41 20 23 B3 |JSR TPREP:LDA #.|
00003D60: 54 53 4D 49 4E 55 53 3A 4C 44 59 20 23 B1 54 53 |TSMINUS:LDY #.TS|
00003D70: 4D 49 4E 55 53 3A 42 4E 45 20 54 44 4F 54 00 B4 |MINUS:BNE TDOT..|
00003D80: 45 4E 57 54 4E B0 4D 20 4A 53 52 20 54 50 52 45 |ENWTN.M JSR TPRE|
00003D90: 50 3A 4C 44 41 20 23 B3 54 53 50 4C 55 53 3A 4C |P:LDA #.TSPLUS:L|
00003DA0: 44 59 20 23 B1 54 53 50 4C 55 53 3A 4A 4D 50 20 |DY #.TSPLUS:JMP |
00003DB0: 54 44 4F 54 00 ED 45 58 57 54 58 43 48 47 20 4A |TDOT..EXWTXCHG J|
00003DC0: 53 52 20 54 50 52 45 50 3A 4A 53 52 20 24 42 37 |SR TPREP:JSR $B7|
00003DD0: 46 31 3A 53 54 58 20 24 46 42 3A 4A 53 52 20 24 |F1:STX $FB:JSR $|
00003DE0: 42 37 46 31 3A 53 54 58 20 24 34 30 30 00 14 46 |B7F1:STX $400..F|
00003DF0: 62 57 4C 44 41 20 23 B3 54 53 58 43 48 47 3A 4C |bWLDA #.TSXCHG:L|
00003E00: 44 59 20 23 B1 54 53 58 43 48 47 3A 4A 4D 50 20 |DY #.TSXCHG:JMP |
00003E10: 54 44 4F 54 00 3A 46 CD 59 3B 20 B2 B2 B2 B2 B2 |TDOT.:F.Y; .....|
00003E20: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003E30: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 54 46 CE 59 3B |...........TF.Y;|
00003E40: 20 46 53 AB 20 28 46 91 54 AB 94 AB 29 20 42 45 | FS. (F.T...) BE|
00003E50: 46 45 48 4C 00 6E 46 CF 59 3B 20 46 4C AB 20 28 |FEHL.nF.Y; FL. (|
00003E60: 46 91 54 AB 93 AB 29 20 42 45 46 45 48 4C 00 94 |F.T...) BEFEHL..|
00003E70: 46 D7 59 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |F.Y; ...........|
00003E80: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003E90: B2 B2 B2 B2 00 B1 46 D8 59 46 4F 94 20 4A 53 52 |......F.YFO. JSR|
00003EA0: 20 46 4F 50 52 45 50 3A 4A 4D 50 20 46 53 56 49 | FOPREP:JMP FSVI|
00003EB0: 4E 00 C8 46 E2 59 46 4F 54 41 42 20 2E 42 59 54 |N..F.YFOTAB .BYT|
00003EC0: 20 24 44 30 2C 24 44 38 00 0D 47 3C 5A 46 4F 93 | $D0,$D8..G<ZFO.|
00003ED0: 20 4A 53 52 20 46 4F 50 52 45 50 3A 53 54 41 20 | JSR FOPREP:STA |
00003EE0: 24 46 46 3A 4C 44 41 20 23 24 42 38 3A 53 54 41 |$FF:LDA #$B8:STA|
00003EF0: 20 24 46 44 3A 4A 53 52 20 46 4C 49 4E 3A 4C 44 | $FD:JSR FLIN:LD|
00003F00: 58 20 23 33 3A 4A 4D 50 20 46 4C 42 4B 00 3F 47 |X #3:JMP FLBK.?G|
00003F10: A0 5A 46 4F 50 52 45 50 20 4A 53 52 20 24 42 37 |.ZFOPREP JSR $B7|
00003F20: 39 42 3A 54 58 41 3A AF 20 23 31 3A 54 41 58 3A |9B:TXA:. #1:TAX:|
00003F30: 4C 44 41 20 46 4F 54 41 42 2C 58 3A 52 54 53 00 |LDA FOTAB,X:RTS.|
00003F40: 65 47 5C 5D 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |eG\]; ..........|
00003F50: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00003F60: B2 B2 B2 B2 B2 00 83 47 66 5D 3B 20 53 50 52 49 |.......Gf]; SPRI|
00003F70: 54 45 20 28 27 4D 4F 42 27 29 AB 20 42 45 46 45 |TE ('MOB'). BEFE|
00003F80: 48 4C 45 00 A4 47 67 5D 3B 20 20 20 4D 47 20 AB |HLE..Gg]; MG .|
00003F90: 20 53 50 52 49 54 45 20 28 27 4D 4F 42 27 29 AB | SPRITE ('MOB').|
00003FA0: 47 52 41 42 00 C6 47 68 5D 3B 20 20 20 4D 4F 20 |GRAB..Gh]; MO |
00003FB0: AB 20 20 20 20 20 20 27 27 20 20 20 20 20 20 20 |. '' |
00003FC0: AB 91 AD 4F 46 46 00 EC 47 69 5D 3B 20 20 20 4D |...OFF..Gi]; M|
00003FD0: 50 20 AB 20 20 20 20 20 20 27 27 20 20 20 20 20 |P . '' |
00003FE0: 20 20 AB 50 41 52 41 4D 45 54 45 52 00 0F 48 6A | .PARAMETER..Hj|
00003FF0: 5D 3B 20 20 20 4D 43 20 AB 20 20 20 20 20 20 27 |]; MC . '|
00004000: 27 20 20 20 20 20 20 20 AB 43 4F 4C 4F 55 52 00 |' .COLOUR.|
00004010: 30 48 6B 5D 3B 20 20 20 4D 4C 20 AB 20 20 20 20 |0Hk]; ML . |
00004020: 20 20 27 27 20 20 20 20 20 20 20 AB 4C 4F 4F 4B | '' .LOOK|
00004030: 00 53 48 6C 5D 3B 20 20 20 4D 44 20 AB 20 20 20 |.SHl]; MD . |
00004040: 20 20 20 27 27 20 20 20 20 20 20 20 AB 44 45 53 | '' .DES|
00004050: 49 47 4E 00 79 48 6D 5D 3B 20 20 20 4D 42 20 AB |IGN.yHm]; MB .|
00004060: 20 20 20 20 20 20 27 27 20 20 20 20 20 20 20 AB | '' .|
00004070: 42 59 54 45 AB 44 45 53 2E 00 9A 48 6E 5D 3B 20 |BYTE.DES...Hn]; |
00004080: 20 20 4D 58 20 AB 20 20 20 20 20 20 27 27 20 20 | MX . '' |
00004090: 20 20 20 20 20 AB 58 AB B9 2E 00 BB 48 6F 5D 3B | .X.....Ho];|
000040A0: 20 20 20 4D 59 20 AB 20 20 20 20 20 20 27 27 20 | MY . '' |
000040B0: 20 20 20 20 20 20 AB 59 AB B9 2E 00 E1 48 BF 5D | .Y.....H.]|
000040C0: 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |; ..............|
000040D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000040E0: B2 00 2A 49 C0 5D 4D 4F 50 52 45 50 31 20 4A 53 |..*I.]MOPREP1 JS|
000040F0: 52 20 24 42 37 46 31 3A 4A 4D 50 20 4D 4F 50 31 |R $B7F1:JMP MOP1|
00004100: 31 3A 4D 4F 50 31 20 4A 53 52 20 24 42 37 39 42 |1:MOP1 JSR $B79B|
00004110: 3A 4D 4F 50 31 31 20 54 58 41 3A AF 20 23 31 32 |:MOP11 TXA:. #12|
00004120: 37 3A 43 4D 50 20 23 31 32 37 00 48 49 CA 5D 41 |7:CMP #127.HI.]A|
00004130: 44 43 20 23 30 3A AF 20 23 31 32 37 3A B0 41 20 |DC #0:. #127:.A |
00004140: 23 24 38 30 3A 50 48 41 00 8B 49 CC 5D 53 54 41 |#$80:PHA..I.]STA|
00004150: 20 24 46 46 3A 4C 44 41 20 23 30 3A 53 45 43 3A | $FF:LDA #0:SEC:|
00004160: 52 B0 20 24 46 46 3A 52 B0 20 41 3A 53 45 43 3A |R. $FF:R. A:SEC:|
00004170: 52 B0 20 24 46 46 3A 52 B0 20 41 3A 53 54 41 20 |R. $FF:R. A:STA |
00004180: 24 46 45 3A 50 4C 41 3A 52 54 53 00 C7 49 D4 5D |$FE:PLA:RTS..I.]|
00004190: 4D 4F 50 52 45 50 32 20 4A 53 52 20 24 42 37 39 |MOPREP2 JSR $B79|
000041A0: 42 3A 54 58 41 3A AF 20 23 37 3A 54 41 58 3A 41 |B:TXA:. #7:TAX:A|
000041B0: 53 4C 20 41 3A 54 41 59 3A 4C 44 41 20 4D 4F 42 |SL A:TAY:LDA MOB|
000041C0: BD 2C 58 3A 52 54 53 00 EA 49 DE 5D 4D 4F 42 BD |.,X:RTS..I.]MOB.|
000041D0: 20 2E 42 59 54 20 31 2C 32 2C 34 2C 38 2C 31 36 | .BYT 1,2,4,8,16|
000041E0: 2C 33 32 2C 36 34 2C 31 32 38 00 2A 4A 24 5E 4D |,32,64,128.*J$^M|
000041F0: 4F 47 52 41 42 20 4A 53 52 20 4D 4F 50 31 3A 4C |OGRAB JSR MOP1:L|
00004200: 44 41 20 24 46 45 3A 53 54 41 20 24 46 43 3A 4C |DA $FE:STA $FC:L|
00004210: 44 41 20 24 46 46 3A 53 54 41 20 24 46 44 3A 4A |DA $FF:STA $FD:J|
00004220: 53 52 20 4D 4F 50 52 45 50 31 00 73 4A 38 5E 4C |SR MOPREP1.sJ8^L|
00004230: 44 41 20 23 24 33 30 3A 53 54 41 20 31 3A 4C 44 |DA #$30:STA 1:LD|
00004240: 59 20 23 36 33 3A 4D 4F 43 4F 50 59 20 4C 44 41 |Y #63:MOCOPY LDA|
00004250: 20 28 24 46 45 29 2C 59 3A 53 54 41 20 24 33 34 | ($FE),Y:STA $34|
00004260: 30 2C 59 3A 53 54 41 20 28 24 46 43 29 2C 59 3A |0,Y:STA ($FC),Y:|
00004270: 44 45 59 00 8D 4A 42 5E 42 50 4C 20 4D 4F 43 4F |DEY..JB^BPL MOCO|
00004280: 50 59 3A 4A 4D 50 20 46 44 42 41 43 4B 00 D4 4A |PY:JMP FDBACK..J|
00004290: 88 5E 4D 4F 42 91 20 4A 53 52 20 4D 4F 50 52 45 |.^MOB. JSR MOPRE|
000042A0: 50 32 3A 50 48 41 3A 4A 53 52 20 24 42 37 46 31 |P2:PHA:JSR $B7F1|
000042B0: 3A 50 4C 41 3A 4C 44 59 20 23 32 31 3A 4D 4F 53 |:PLA:LDY #21:MOS|
000042C0: 57 49 20 43 50 58 20 23 30 3A 42 45 51 20 4D 4F |WI CPX #0:BEQ MO|
000042D0: 42 4F 46 46 00 EC 4A 92 5E B0 41 20 24 44 30 30 |BOFF..J.^.A $D00|
000042E0: 30 2C 59 3A 42 4E 45 20 4D 4F 4F 58 00 1E 4B 9C |0,Y:BNE MOOX..K.|
000042F0: 5E 4D 4F 42 4F 46 46 20 45 B0 20 23 32 35 35 3A |^MOBOFF E. #255:|
00004300: AF 20 24 44 30 30 30 2C 59 3A 4D 4F 4F 58 20 53 |. $D000,Y:MOOX S|
00004310: 54 41 20 24 44 30 30 30 2C 59 3A 52 54 53 00 5E |TA $D000,Y:RTS.^|
00004320: 4B EC 5E 4D 4F 50 41 52 20 4A 53 52 20 4D 4F 50 |K.^MOPAR JSR MOP|
00004330: 52 45 50 32 3A 53 54 41 20 24 46 42 3A 4C 44 59 |REP2:STA $FB:LDY|
00004340: 20 23 32 37 3A 4A 53 52 20 4D 4F 31 50 41 52 3A | #27:JSR MO1PAR:|
00004350: 49 4E 59 3A 4A 53 52 20 4D 4F 31 50 41 52 00 79 |INY:JSR MO1PAR.y|
00004360: 4B F6 5E 49 4E 59 3A 4A 53 52 20 4D 4F 31 50 41 |K.^INY:JSR MO1PA|
00004370: 52 3A 4C 44 59 20 23 32 33 00 B0 4B 1E 5F 4D 4F |R:LDY #23..K._MO|
00004380: 31 50 41 52 20 53 54 59 20 24 46 43 3A 4A 53 52 |1PAR STY $FC:JSR|
00004390: 20 24 42 37 46 31 3A 4C 44 59 20 24 46 43 3A 4C | $B7F1:LDY $FC:L|
000043A0: 44 41 20 24 46 42 3A 42 4E 45 20 4D 4F 53 57 49 |DA $FB:BNE MOSWI|
000043B0: 00 F4 4B 50 5F 4D 4F 43 4F 4C 20 4A 53 52 20 4D |..KP_MOCOL JSR M|
000043C0: 4F 50 52 45 50 32 3A 53 54 58 20 24 46 42 3A 4A |OPREP2:STX $FB:J|
000043D0: 53 52 20 24 42 37 46 31 3A 54 58 41 3A 4C 44 58 |SR $B7F1:TXA:LDX|
000043E0: 20 24 46 42 3A 53 54 41 20 24 44 30 32 37 2C 58 | $FB:STA $D027,X|
000043F0: 3A 52 54 53 00 2B 4C 5A 5F 4D 4F 4D 43 4F 4C 20 |:RTS.+LZ_MOMCOL |
00004400: 4A 53 52 20 24 42 37 39 42 3A 53 54 58 20 24 44 |JSR $B79B:STX $D|
00004410: 30 32 35 3A 4A 53 52 20 24 42 37 46 31 3A 53 54 |025:JSR $B7F1:ST|
00004420: 58 20 24 44 30 32 36 3A 52 54 53 00 6E 4C B4 5F |X $D026:RTS.nL._|
00004430: 4D 4F 4C 4F 4F 4B 20 4A 53 52 20 4D 4F 50 52 45 |MOLOOK JSR MOPRE|
00004440: 50 32 3A 53 54 58 20 24 46 42 3A 4A 53 52 20 4D |P2:STX $FB:JSR M|
00004450: 4F 50 52 45 50 31 3A 4C 44 58 20 24 46 42 3A 53 |OPREP1:LDX $FB:S|
00004460: 54 41 20 24 43 46 46 38 2C 58 3A 52 54 53 00 B5 |TA $CFF8,X:RTS..|
00004470: 4C 18 60 4D 4F 44 B4 20 4A 53 52 20 4D 4F 50 31 |L.`MOD. JSR MOP1|
00004480: 3A 4A 53 52 20 24 42 37 46 31 3A 54 58 41 3A AF |:JSR $B7F1:TXA:.|
00004490: 20 23 37 3A 41 53 4C 20 41 3A 41 53 4C 20 41 3A | #7:ASL A:ASL A:|
000044A0: 41 53 4C 20 41 3A 41 44 43 20 24 46 45 3A 53 54 |ASL A:ADC $FE:ST|
000044B0: 41 20 24 46 45 00 C2 4C 22 60 4A 4D 50 20 4D 44 |A $FE..L"`JMP MD|
000044C0: 49 4E 00 F3 4C 7C 60 4D 4F 42 59 54 45 20 4A 53 |IN..L|`MOBYTE JS|
000044D0: 52 20 4D 4F 50 31 3A 4A 53 52 20 24 42 37 46 31 |R MOP1:JSR $B7F1|
000044E0: 3A 54 58 41 3A AF 20 23 36 33 3A 4A 4D 50 20 4D |:TXA:. #63:JMP M|
000044F0: 42 49 4E 00 3A 4D E0 60 4D 4F 42 58 20 4A 53 52 |BIN.:M.`MOBX JSR|
00004500: 20 4D 4F 50 52 45 50 32 3A 50 48 41 3A 53 54 59 | MOPREP2:PHA:STY|
00004510: 20 24 46 42 3A 4A 53 52 20 A1 41 44 44 52 3A 4C | $FB:JSR .ADDR:L|
00004520: 44 59 20 24 46 42 3A 4C 44 41 20 24 31 34 3A 53 |DY $FB:LDA $14:S|
00004530: 54 41 20 24 44 30 30 30 2C 59 00 5C 4D EA 60 50 |TA $D000,Y.\M.`P|
00004540: 4C 41 3A 4C 44 59 20 23 31 36 3A 4C 44 58 20 24 |LA:LDY #16:LDX $|
00004550: 31 35 3A 4A 53 52 20 4D 4F 53 57 49 00 7A 4D F4 |15:JSR MOSWI.zM.|
00004560: 60 4A 53 52 20 43 48 4B 43 4F 4D 3A 42 45 51 20 |`JSR CHKCOM:BEQ |
00004570: 4D 4F 42 59 49 4E 3A 52 54 53 00 C4 4D 44 61 4D |MOBYIN:RTS..MDaM|
00004580: 4F 42 59 20 4A 53 52 20 4D 4F 50 52 45 50 32 3A |OBY JSR MOPREP2:|
00004590: 53 54 59 20 24 46 42 3A 4D 4F 42 59 49 4E 20 4A |STY $FB:MOBYIN J|
000045A0: 53 52 20 24 42 37 46 31 3A 54 58 41 3A 4C 44 59 |SR $B7F1:TXA:LDY|
000045B0: 20 24 46 42 3A 53 54 41 20 24 44 30 30 31 2C 59 | $FB:STA $D001,Y|
000045C0: 3A 52 54 53 00 EA 4D 6B 61 3B 20 B2 B2 B2 B2 B2 |:RTS..Mka; .....|
000045D0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000045E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 0B 4E 6C 61 3B |............Nla;|
000045F0: 20 43 48 4B 43 4F 4D 20 20 AB 20 50 52 55 45 46 | CHKCOM . PRUEF|
00004600: 54 20 41 55 46 20 4B 4F 4D 4D 41 00 2F 4E 6D 61 |T AUF KOMMA./Nma|
00004610: 3B 20 43 48 4B 53 45 4D 49 20 AB 20 50 52 55 45 |; CHKSEMI . PRUE|
00004620: 46 54 20 41 55 46 20 53 45 4D 49 4B 4F 4C 91 00 |FT AUF SEMIKOL..|
00004630: 55 4E 75 61 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |UNua; ..........|
00004640: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004650: B2 B2 B2 B2 B2 00 9A 4E 76 61 43 48 4B 43 4F 4D |.......NvaCHKCOM|
00004660: 20 4C 44 41 20 23 22 2C 22 3A 2E 42 59 54 20 24 | LDA #",":.BYT $|
00004670: 32 43 3A 43 48 4B 53 45 4D 49 20 4C 44 41 20 23 |2C:CHKSEMI LDA #|
00004680: 22 3B 22 3A 4C 44 59 20 23 30 3A 43 4D 50 20 28 |";":LDY #0:CMP (|
00004690: 24 37 41 29 2C 59 3A 52 54 53 00 C0 4E 9D 61 3B |$7A),Y:RTS..N.a;|
000046A0: 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 | ...............|
000046B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000046C0: 00 E3 4E 9E 61 3B 20 50 54 AB 20 28 50 55 54 AB |..N.a; PT. (PUT.|
000046D0: 54 45 58 54 53 43 52 45 45 4E AB 29 20 42 45 46 |TEXTSCREEN.) BEF|
000046E0: 45 48 4C 00 09 4F 9F 61 3B 20 52 54 AB 20 28 52 |EHL..O.a; RT. (R|
000046F0: 45 43 41 4C 4C AB 54 45 58 54 53 43 52 45 45 4E |ECALL.TEXTSCREEN|
00004700: AB 29 20 42 45 46 45 48 4C 00 2F 4F A7 61 3B 20 |.) BEFEHL./O.a; |
00004710: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004720: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 |................|
00004730: 6F 4F A8 61 50 55 54 54 45 58 54 20 4A 53 52 20 |oO.aPUTTEXT JSR |
00004740: 24 37 33 3A 4A 53 52 20 A1 31 36 42 3A 53 54 59 |$73:JSR .16B:STY|
00004750: 20 24 46 45 3A 53 54 41 20 24 46 46 3A 4C 44 41 | $FE:STA $FF:LDA|
00004760: 20 23 24 43 43 3A 4A 53 52 20 50 54 53 55 42 00 | #$CC:JSR PTSUB.|
00004770: 86 4F B2 61 4C 44 41 20 23 24 44 38 3A 4A 4D 50 |.O.aLDA #$D8:JMP|
00004780: 20 50 54 53 55 42 00 C6 4F BC 61 52 43 4C 54 45 | PTSUB..O.aRCLTE|
00004790: 58 54 20 4A 53 52 20 24 37 33 3A 4A 53 52 20 A1 |XT JSR $73:JSR .|
000047A0: 31 36 42 3A 53 54 59 20 24 46 43 3A 53 54 41 20 |16B:STY $FC:STA |
000047B0: 24 46 44 3A 4C 44 41 20 23 24 43 43 3A 4A 53 52 |$FD:LDA #$CC:JSR|
000047C0: 20 47 54 53 55 42 00 DD 4F C6 61 4C 44 41 20 23 | GTSUB..O.aLDA #|
000047D0: 24 44 38 3A 4A 4D 50 20 47 54 53 55 42 00 1B 50 |$D8:JMP GTSUB..P|
000047E0: 0C 62 50 54 53 55 42 20 4C 44 59 20 23 24 33 37 |.bPTSUB LDY #$37|
000047F0: 3A 53 54 59 20 24 46 42 3A 4C 44 59 20 23 30 3A |:STY $FB:LDY #0:|
00004800: 53 54 59 20 24 46 43 3A 53 54 41 20 24 46 44 3A |STY $FC:STA $FD:|
00004810: 42 45 51 20 54 54 4C 4D 41 49 4E 00 4D 50 16 62 |BEQ TTLMAIN.MP.b|
00004820: 47 54 53 55 42 20 4C 44 59 20 23 24 33 30 3A 53 |GTSUB LDY #$30:S|
00004830: 54 59 20 24 46 42 3A 4C 44 59 20 23 30 3A 53 54 |TY $FB:LDY #0:ST|
00004840: 59 20 24 46 45 3A 53 54 41 20 24 46 46 00 81 50 |Y $FE:STA $FF..P|
00004850: 7A 62 54 54 4C 4D 41 49 4E 20 4C 44 58 20 23 33 |zbTTLMAIN LDX #3|
00004860: 3A 4C 44 59 20 23 32 35 35 3A 4A 53 52 20 54 54 |:LDY #255:JSR TT|
00004870: 4C 53 55 42 3A 49 4E 58 3A 4C 44 59 20 23 32 34 |LSUB:INX:LDY #24|
00004880: 38 00 C9 50 D4 62 54 54 4C 53 55 42 20 4C 44 41 |8..P.bTTLSUB LDA|
00004890: 20 24 46 42 3A 53 54 41 20 31 3A 4C 44 41 20 28 | $FB:STA 1:LDA (|
000048A0: 24 46 43 29 2C 59 3A 50 48 41 3A 4C 44 41 20 23 |$FC),Y:PHA:LDA #|
000048B0: 24 33 37 3A 53 54 41 20 31 3A 50 4C 41 3A 53 54 |$37:STA 1:PLA:ST|
000048C0: 41 20 28 24 46 45 29 2C 59 00 08 51 DE 62 44 45 |A ($FE),Y..Q.bDE|
000048D0: 59 3A 43 50 59 20 23 24 46 46 3A 42 4E 45 20 54 |Y:CPY #$FF:BNE T|
000048E0: 54 4C 53 55 42 3A 49 4E 43 20 24 46 46 3A 49 4E |TLSUB:INC $FF:IN|
000048F0: 43 20 24 46 44 3A 44 45 58 3A 42 4E 45 20 54 54 |C $FD:DEX:BNE TT|
00004900: 4C 53 55 42 3A 52 54 53 00 2E 51 2D 63 3B 20 B2 |LSUB:RTS..Q-c; .|
00004910: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004920: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 49 |...............I|
00004930: 51 2E 63 3B 20 42 59 54 45 AB 44 49 53 50 4C 41 |Q.c; BYTE.DISPLA|
00004940: 59 AB 42 45 46 45 48 4C 45 00 65 51 2F 63 3B 20 |Y.BEFEHLE.eQ/c; |
00004950: 20 20 42 42 20 AB 20 42 49 4E 41 52 59 AB 44 49 | BB . BINARY.DI|
00004960: 53 50 4C 41 59 00 87 51 30 63 3B 20 20 20 42 43 |SPLAY..Q0c; BC|
00004970: 20 AB 20 42 49 4E 41 52 59 AB 44 49 53 50 4C 41 | . BINARY.DISPLA|
00004980: 59 AB 43 48 41 52 53 00 A6 51 31 63 3B 20 20 20 |Y.CHARS..Q1c; |
00004990: 42 4D 20 AB 20 42 41 52 AB 4D 45 4D B0 59 AB 44 |BM . BAR.MEM.Y.D|
000049A0: 49 53 50 4C 41 59 00 C8 51 32 63 3B 20 20 20 42 |ISPLAY..Q2c; B|
000049B0: 50 20 AB 20 42 49 4E 41 52 59 AB 4D 45 4D B0 59 |P . BINARY.MEM.Y|
000049C0: AB 44 49 53 50 4C 41 59 00 EA 51 33 63 3B 20 20 |.DISPLAY..Q3c; |
000049D0: 20 42 56 20 AB 20 56 45 52 54 49 43 41 4C AB 42 | BV . VERTICAL.B|
000049E0: 41 52 AB 44 49 53 50 4C 41 59 00 10 52 37 63 3B |AR.DISPLAY..R7c;|
000049F0: 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 | ...............|
00004A00: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004A10: 00 54 52 38 63 44 53 50 42 59 54 45 20 4A 53 52 |.TR8cDSPBYTE JSR|
00004A20: 20 44 49 53 50 52 45 50 3A 44 42 49 4E 20 53 54 | DISPREP:DBIN ST|
00004A30: 58 20 24 34 30 30 3A 4C 44 58 20 23 38 3A 44 49 |X $400:LDX #8:DI|
00004A40: 42 4C 4F 4F 50 20 4C 44 59 20 23 30 3A 41 53 4C |BLOOP LDY #0:ASL|
00004A50: 20 24 46 42 00 96 52 42 63 42 43 43 20 44 42 4D | $FB..RBcBCC DBM|
00004A60: 32 3A 49 4E 59 3A 44 42 4D 32 20 4C 44 41 20 44 |2:INY:DBM2 LDA D|
00004A70: 53 50 43 4F 44 45 2C 59 3A 4A 53 52 20 24 46 46 |SPCODE,Y:JSR $FF|
00004A80: 44 32 3A 44 45 58 3A 42 4E 45 20 44 49 42 4C 4F |D2:DEX:BNE DIBLO|
00004A90: 4F 50 3A 52 54 53 00 AA 52 4C 63 44 53 50 43 4F |OP:RTS..RLcDSPCO|
00004AA0: 44 45 20 2E C6 20 22 2E 2A 22 00 CD 52 56 63 44 |DE .. ".*"..RVcD|
00004AB0: 53 50 4D 42 59 54 45 20 4A 53 52 20 44 49 53 50 |SPMBYTE JSR DISP|
00004AC0: 52 45 50 32 3A 4A 4D 50 20 44 42 49 4E 00 F0 52 |REP2:JMP DBIN..R|
00004AD0: 60 63 44 53 50 4D 56 42 41 52 20 4A 53 52 20 44 |`cDSPMVBAR JSR D|
00004AE0: 49 53 50 52 45 50 32 3A 4A 4D 50 20 44 56 49 4E |ISPREP2:JMP DVIN|
00004AF0: 00 2F 53 9C 63 44 53 50 43 48 41 52 53 20 4A 53 |./S.cDSPCHARS JS|
00004B00: 52 20 24 42 37 39 42 3A 53 54 58 20 44 53 50 43 |R $B79B:STX DSPC|
00004B10: 4F 44 45 3A 4A 53 52 20 24 42 37 46 31 3A 53 54 |ODE:JSR $B7F1:ST|
00004B20: 58 20 44 53 50 43 4F 44 45 AA 31 3A 52 54 53 00 |X DSPCODE.1:RTS.|
00004B30: 78 53 00 64 44 53 50 56 42 41 52 20 4A 53 52 20 |xS.dDSPVBAR JSR |
00004B40: 44 49 53 50 52 45 50 3A 44 56 49 4E 20 54 58 41 |DISPREP:DVIN TXA|
00004B50: 3A 4C 53 52 20 41 3A 4C 53 52 20 41 3A 4C 53 52 |:LSR A:LSR A:LSR|
00004B60: 20 41 3A 54 41 58 3A 42 45 51 20 4E 4F 44 53 42 | A:TAX:BEQ NODSB|
00004B70: 3A 53 54 58 20 24 46 43 00 B1 53 0A 64 44 53 42 |:STX $FC..S.dDSB|
00004B80: 4C 4F 4F 50 20 4A 53 52 20 52 45 56 42 4C 4B 3A |LOOP JSR REVBLK:|
00004B90: 44 45 43 20 24 46 43 3A 42 4E 45 20 44 53 42 4C |DEC $FC:BNE DSBL|
00004BA0: 4F 4F 50 3A 4E 4F 44 53 42 20 4C 44 41 20 24 46 |OOP:NODSB LDA $F|
00004BB0: 42 00 F4 53 14 64 AF 20 23 37 3A 54 41 58 3A 4C |B..S.d. #7:TAX:L|
00004BC0: 44 41 20 42 48 43 4F 44 45 2C 58 3A 42 4D 49 20 |DA BHCODE,X:BMI |
00004BD0: 4E B0 45 56 3A 54 41 59 3A 4A 53 52 20 52 45 56 |N.EV:TAY:JSR REV|
00004BE0: 4F 55 54 3A 54 59 41 3A 4E B0 45 56 20 B0 41 20 |OUT:TYA:N.EV .A |
00004BF0: 23 31 32 38 00 02 54 19 64 4A 4D 50 20 24 46 46 |#128..T.dJMP $FF|
00004C00: 44 32 00 2F 54 1E 64 42 48 43 4F 44 45 20 2E 42 |D2./T.dBHCODE .B|
00004C10: 59 54 20 31 36 30 2C 31 36 34 2C 31 37 35 2C 31 |YT 160,164,175,1|
00004C20: 38 35 2C 31 36 32 2C 35 36 2C 35 35 2C 33 35 00 |85,162,56,55,35.|
00004C30: 4D 54 28 64 52 45 56 4F 55 54 20 4C 44 41 20 23 |MT(dREVOUT LDA #|
00004C40: 22 12 22 3A 4A 4D 50 20 24 46 46 44 32 00 7E 54 |".":JMP $FFD2.~T|
00004C50: 32 64 52 45 56 42 4C 4B 20 4C 44 41 20 23 B3 52 |2dREVBLK LDA #.R|
00004C60: 56 42 43 48 52 53 3A 4C 44 59 20 23 B1 52 56 42 |VBCHRS:LDY #.RVB|
00004C70: 43 48 52 53 3A 4A 4D 50 20 24 41 42 31 45 00 9C |CHRS:JMP $AB1E..|
00004C80: 54 3C 64 52 56 42 43 48 52 53 20 2E C6 20 22 12 |T<dRVBCHRS .. ".|
00004C90: 20 92 91 9D 22 3A 2E 42 59 54 20 30 00 C9 54 64 | ...":.BYT 0..Td|
00004CA0: 64 44 49 53 50 52 45 50 20 4A 53 52 20 43 52 53 |dDISPREP JSR CRS|
00004CB0: 52 58 59 3A 4A 53 52 20 24 42 37 46 31 3A 53 54 |RXY:JSR $B7F1:ST|
00004CC0: 58 20 24 46 42 3A 52 54 53 00 11 55 6E 64 44 49 |X $FB:RTS..UndDI|
00004CD0: 53 50 52 45 50 32 20 4A 53 52 20 43 52 53 52 58 |SPREP2 JSR CRSRX|
00004CE0: 59 3A 4A 53 52 20 A1 41 44 44 52 3A 4C 44 59 20 |Y:JSR .ADDR:LDY |
00004CF0: 23 24 33 30 3A 53 54 59 20 31 3A 4C 44 59 20 23 |#$30:STY 1:LDY #|
00004D00: 30 3A 4C 44 41 20 28 24 31 34 29 2C 59 3A 54 41 |0:LDA ($14),Y:TA|
00004D10: 58 00 30 55 78 64 53 54 58 20 24 46 42 3A 4C 44 |X.0UxdSTX $FB:LD|
00004D20: 59 20 23 24 33 37 3A 53 54 59 20 31 3A 52 54 53 |Y #$37:STY 1:RTS|
00004D30: 00 56 55 85 65 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.VU.e; .........|
00004D40: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004D50: B2 B2 B2 B2 B2 B2 00 73 55 86 65 3B 20 4A 53 AB |.......sU.e; JS.|
00004D60: 20 28 4A 4F 59 53 54 49 43 4B AB 29 20 42 45 46 | (JOYSTICK.) BEF|
00004D70: 45 48 4C 00 99 55 8F 65 3B 20 B2 B2 B2 B2 B2 B2 |EHL..U.e; ......|
00004D80: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004D90: B2 B2 B2 B2 B2 B2 B2 B2 B2 00 D4 55 90 65 4A 4F |...........U.eJO|
00004DA0: 59 52 45 51 20 4C 44 41 20 24 44 43 30 30 3A 53 |YREQ LDA $DC00:S|
00004DB0: 54 41 20 24 46 42 3A 4C 44 59 20 23 34 3A 4A 53 |TA $FB:LDY #4:JS|
00004DC0: 4C 4F 4F 50 20 4C 53 52 20 24 46 42 3A 42 43 53 |LOOP LSR $FB:BCS|
00004DD0: 20 4A 53 82 00 11 56 9A 65 4C 44 41 20 4A 53 54 | JS...V.eLDA JST|
00004DE0: 41 42 2C 59 3A 53 45 49 3A 4A 53 52 20 24 45 42 |AB,Y:SEI:JSR $EB|
00004DF0: 33 35 3A 43 4C 49 3A 4A 53 82 20 44 45 59 3A 42 |35:CLI:JS. DEY:B|
00004E00: 50 4C 20 4A 53 4C 4F 4F 50 3A 4A 4D 50 20 24 37 |PL JSLOOP:JMP $7|
00004E10: 33 00 2D 56 A4 65 4A 53 54 41 42 20 2E 42 59 54 |3.-V.eJSTAB .BYT|
00004E20: 20 31 33 3A 2E C6 20 22 1D 9D 11 91 22 00 53 56 | 13:.. "....".SV|
00004E30: E9 65 3B 20 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.e; ............|
00004E40: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004E50: B2 B2 B2 00 74 56 EA 65 3B 20 4F 41 44 20 55 4E |....tV.e; OAD UN|
00004E60: 44 20 57 45 49 54 45 52 20 49 4D 20 50 52 4F 47 |D WEITER IM PROG|
00004E70: 52 41 4D 4D 00 9A 56 F3 65 3B 20 B2 B2 B2 B2 B2 |RAMM..V.e; .....|
00004E80: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00004E90: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 B7 56 F4 65 93 |............V.e.|
00004EA0: 41 46 54 20 42 43 43 20 4E 4F 45 52 52 3A 4A 4D |AFT BCC NOERR:JM|
00004EB0: 50 20 24 45 30 46 39 00 F1 56 FE 65 4E 4F 45 52 |P $E0F9..V.eNOER|
00004EC0: 52 20 4A 53 52 20 24 46 46 42 37 3A AF 20 23 31 |R JSR $FFB7:. #1|
00004ED0: 36 3A 42 45 51 20 4E 4F 45 52 52 32 3A 4A 4D 50 |6:BEQ NOERR2:JMP|
00004EE0: 20 24 45 31 39 43 3A 4E 4F 45 52 52 32 20 52 54 | $E19C:NOERR2 RT|
00004EF0: 53 00 FA 56 46 C3 2E 80 3A 80 00 07 57 60 EA 9F |S..VF...:...W`..|
00004F00: 31 35 2C 38 2C 31 35 00 29 57 6A EA A1 23 31 35 |15,8,15.)Wj..#15|
00004F10: 2C 49 24 3A 99 49 24 3B 3A 8B 49 24 B3 B1 C7 28 |,I$:.I$;:.I$...(|
00004F20: 31 33 29 A7 36 30 30 31 30 00 31 57 74 EA A0 31 |13).60010.1Wt..1|
00004F30: 35 00 00 00 |5... |
.......9.4096:.OPT OO."..... $C000.6...S
CRBASE . $CC00.].E.; ...................
..............Y.F.; INITIALISIE.GSROUTIN
E...H.; SETZT . .ERPRETERVEK.R...J.;
. .TEMVEK.REN.Q.L.; . VID
EO.ROLLER...M.; & GIBT EINSCHALTMELDUN
G AUS,...N.; FALLS AUFRUF IM DIREKTMOD
US.A.O.; ...............................
.._.P.LDA #.DECODE:LDY #.DECODE...Z.STA
$308:STY $309:JSR MOVESCR.....JSR .VEC:L
DA $9D:BPL NOMESS.K...LDA #.MESSAGE:LDY
#.MESSAGE:JSR $AB1E.....NOMESS LDX #5:SV
EC LDA IRNTAB,X:STA $FFFA,X:DEX:BPL SVEC
:RTS.*...IRNTAB .W. .NMI1,0,RAMIRQ.0...;
.D...MESSAGE .BYT 13.R....F "...........
.................":.BYT 13......F ".. **
* SPRITE-GRAPHICS *** ":.BYT 13.L....F "
.. (C) 1988 V. SIEBERT ":.BYT 13....
..F "...........................":.BYT 1
3,0."...; ..............................
...B...; TABELLE DER NEUEN BEFEHLE.F...;
IN ALPHABETISCHER REIHENFOLGE.....; ...
..................................COMS .
F "BBBBBDDDDDDEFFFFFGGGGGGGGGGGG"......F
"JMMMMMMMMMMPPRRTTTTTTT":.BYT 0.....COM
2 .F "BCMPVBDLMRSXBDLOSCEIKLNPRSWXY".,..
..F "SBCDGLMOPXYGTGTCFNPRTX".U.B.COMTAB
.W. DSPBYTE,DSPCHARS,DSPMVBAR.X.D..W. DS
PMBYTE,DSPVBAR,BLOCK,DOT...G..W. LINE,MO
DE,RECT,SETMUST,QUIT,FOBYTE...L..W. F.T,
FO.,N.MAL,FO..W.Q..W. COL.,ERASE,INVERT.
..V..W. KOMBINE,.,SCREEN,PRI.ITY......W.
GRAPH,.,WIDTH,X.P.2....W. Y.P,JOYREQ,MO
BYTE,MOCOL.T....W. MOD.,MOGRAB,MOLOOK,MO
MCOL.Q....W. MOB.,MOPAR,MOBX,MOBY......W
. PUTSCREEN,PUTTEXT,RCLSCREEN......W. RC
LTEXT......W. TCOL.,TFILL,TN.M......W. P
RTAT,TREV,TTURN,TXCHG.....; ............
.....................!...; NEUE .ERPRETE
R.ROUTINE.H...; ........................
.............DECODE JSR $0073:CMP #"!":B
EQ FOUND:JSR $0079:JMP $A7E7...&.FOUND J
SR $73:PHA:JSR $73:STA $FB:PLA:LDX #0...
0.DLOOP CMP COMS,X:BEQ MAYBE:BCC .FOUND:
.JUST INX:BNE DLOOP...:..FOUND JMP $AF08
.J.?.MAYBE TAY:LDA $FB:CMP COM2,X:BEQ DO
K:BCC .FOUND:TYA:BNE .JUST...D.DOK TXA:A
SL A:TAX:LDA COMTAB,X:STA $334:LDA COMTA
B.1,X:STA $335.K.N.JSR EXEC:JSR CHKSEMI:
BEQ FOUND:JMP $A7AE:EXEC JMP ($334)...X.
; ...................................Z.;
NEUE .ERRUPTROUTINEN.4.[.; RAMCASE .
BEI AUSGESCHALTETEM.[.\.;
ROM, AKTIVER GRAFIK...].; RAMIRQ . B
EI AUSGESCH. ROM...^.; SPRIRQ . BEI
EINGESCHALTETEM.N._.; ROM,
AKTIVER GRAFIK...A.; ...................
..............6.B.RAMCASE PHA:TXA:PHA:TY
A:PHA:TSX:LDA $0104,X:. #16:BEQ SPRIRQ.U
.L.LDA #$37:STA 1:JMP ($0316).[.V.;.....
RAMIRQ PHA:LDA 1:PHA:LDA #$37:STA 1:LDA
$DC0D:PLA:STA 1:PLA:RTI.C...IRQBACK PLA:
TAY:PLA:TAX:PLA:RTI.....SPRIRQ LDA 1:PHA
:.A #7:STA 1:LDX NDELAY:BEQ NOD:. DEX:BN
E ..A...NOD LDY NBASE:LDA NLINE:STY $CFF
8:STA $D001:DEY:STY $CFF9.Q...STA $D003:
STA $D005:DEY:STY $CFFA:STA $D007.....DE
Y:STY $CFFB:LDX COUNTER:DEX:BPL SPIM2:LD
X #7:SPIM2 STX COUNTER.....LDA LINES,X:S
TA NLINE:SEC:SBC #3:STA $D012.....LDA SP
BASE,X:STA NBASE:LDA DELAYS,X:STA NDELAY
.E...LDA $D011:. #$7F:STA $D011:LDA #1:S
TA $D019:PLA:STA 1:CPX #7:BNE IRQBACK...
A.. #7:CMP #7:BNE IRQBACK:JMP $EA31...F.
LINES .BYT 197,176,155,134,113,92,71,50.
..P.SPBASE .BYT 159,155,151,147,143,139,
135,131...U.DELAYS .BYT 12,19,12,12,19,1
2,19,12.4.Z.COUNTER .BYT 7:BASEADDR .BYT
$E0.C...NBASE .BYT 131:NLINE .BYT 50:ND
ELAY .BYT 0...=.; ......................
.............>.; MOVESCR . BILDSCHIRM NA
CH $CC00.T.?.; . ZEICHENSATZ INS
RAM...@.; . VIC INITIALISIEREN.
..G.; .................................V
.H.MOVESCR SEI:LDY #0:STY $FE:LDA #$D0:S
TA $FF:LDX #16...R.TRLOOP LDA #$33:STA 1
:LDA ($FE),Y:PHA:LDA #$30:STA 1:PLA:STA
($FE),Y:INY.T.\.BNE TRLOOP:INC $FF:DEX:B
NE TRLOOP:JSR FDBACK...F.VICINIT JSR $E5
18:LDA #$34:STA $D018:LDA $DD00:. #$FC:S
TA $DD00.8.P.LDA #$CC:STA $288:JMP $E544
._...; .................................
....; GADDR . ADRESSE UND BITMUSTER...
..; DES GRAFIKCURS.S.....;
BERECHNEN.....; .................
....................GADDR LDA ACTX:CMP #
96:BCS ILLQUAN.P...LDX #0:STX $FF:GAL1 C
MP #24:BCC GAM2:SBC #24:INC $FF:BCS GAL1
.....GAM2 PHA:. #7:JSR CHKMSK:PLA:LSR A:
LSR $FF:R. A:LSR $FF:R. A:STA $FE...J.LD
A ACTY:CMP #168:BCS ILLQUAN...T.GAL3 CMP
#21:BCC GAM4:SBC #21:INC $FF:BCS GAL3.8
...GAM4 STA $2:ASL A:ADC $2:ADC $FE:STA
$FE:LDA BASEADDR:ADC $FF:STA $FF.U...RTS
:ACTX .BYT 0:ACTY .BYT 0:ACTBIT .BYT 0:A
CTMODE .BYT 0.....CHKMSK TAX:LDA TWO.,X:
STA ACTBIT:RTS.A...TWO. .BYT 128,64,32,1
6,8,4,2,1.W...ILLQUAN JMP $B248.....; ..
...............................!...; GRA
FIKCURS. JEWEILS UM EINEN.5...; PUNKT BE
WEGEN.\...; ............................
.........GCUP DEC ACTY:LDA $FE:PHA:SEC:S
BC #3:STA $FE:PLA:E. $FE:. #64.....BNE G
C.R:RTS.L...GCVER LDA VFLAG:BEQ GCUP....
.GCDOWN INC ACTY:LDA $FE:PHA:CLC:ADC #3:
STA $FE:. #63:CMP #63:BEQ GCP.7...PLA:E.
$FE:. #64:BNE GC.R:RTS.V...GCH. LDA HFL
AG:BNE GCRIGHT...$.GCLEFT DEC ACTX:ASL A
CTBIT:BCS GC.R:RTS.....GCRIGHT INC ACTX:
LSR ACTBIT:BCS GC.R:RTS.M.8.HFLAG .BYT 0
:VFLAG .BYT 0...B.GCP PLA:GC.R JMP GADDR
...I.; .................................
/.J.; PROZESS...ERRUPTVEK.R BEI.E.K.; $F
FFE.FF SETZEN.L.S.; ....................
...............~..V. LDA #.RAMCASE:LDY #
.RAMCASE:BNE S........VOFF LDA #.RAMIRQ:
LDY #.RAMIRQ.....S.. STA $FFFE:STY $FFFF
:RTS...M.; .............................
......N.; NEUE NMI.ROUTINEN.;.O.; .NMI
1 . FALLS RAM AKTIV.[.P.; .NMI2 . FALL
S ROM AKTIV.W.Q.; NEUE .. & ..ROUTINEN,.
..R.; GRAFIK WIRD V.HER DEAKTIVIERT.D.
W.; .................................R.X
..NMI1 SEI......NMI2 PHA:TXA:PHA:TYA:PHA
:LDA 1:PHA:LDA #$7F:STA $DD0D:LDY $DD0D.
4...BPL N.S232:PLA:JMP $FE72.U...N.S232
LDA #$37:STA 1:JSR $FD02:BNE NOMODULE:PL
A:JMP ($8002).....NOMODULE JSR .VEC.....
JSR $FDA3:JSR VICINIT:JMP ($A002)...<..V
EC LDX #.VECTAB:LDY #.VECTAB:JMP $FD19..
.F.VECTAB .W. $EA31,$FE66,.NMI2,$F34A.+.
P..W. $F291,$F20E,$F250,$F333,$F157.Q.Z.
.W. $F1CA,$F6ED,$F13E,$F32F,$FE66._.D..W
. ..,.....N... PHA:JSR IRQOFF:PLA:JMP $F
4A5...X... JSR IRQOFF:JMP $F5ED.F...; ..
...................................; GC.
(GRAPHIC.COLOUR.) BEFEHL.....; ........
........................... .COL. JSR $B
79B:TXA:LDX #3.Z...COLLOOP STA $D027,X:D
EX:BPL COLLOOP:RTS...}.; ...............
....................~.; DD. (DRAW.DOT.)
BEFEHL.E...; ...........................
..........DOT JSR $B79B:STX ACTX:JSR $B7
F1:STX ACTY:JSR GADDR.> ..DO.UT LDA #$30
:STA 1:LDA ACTY:. #7:TAY:LDA MUSTER,Y:.
ACTBIT.{ ..LDY #0:LDX ACTMODE:BEQ .PKT:D
EX:BEQ .APKT:DEX:BNE SETPKT.. ..INVPKT E
. ($FE),Y:JMP DBACK.. ...PKT E. #255:. (
$FE),Y.W ..DBACK STA ($FE),Y:JMP FDBACK.
. ...APKT .A ($FE),Y:JMP DBACK.9!..SETPK
T STA $400:LDA ACTBIT:E. #255:. ($FE),Y:
.A $400:JMP DBACK.`!..; ................
.................!..; DS. (DRAW.STYLE.)
BEFEHL..!..; ..........................
........!..SETMUST JSR $B79B:STX MUSTER:
LDA #1:STA $FB:MUSTLOOP JSR $B7F1:TXA.&"
..LDY $FB:STA MUSTER,Y:INC $FB:CPY #7:BC
C MUSTLOOP:RTS.V"..MUSTER .BYT 255,255,2
55,255,255,255,255,255.}"E.; ...........
......................."F.; GE. (GRAPHIC
.ERASE.) BEFEHL.F"O.; ..................
................"P.ERASE LDA BASEADDR:ST
A $FF:LDY #0:STY $FE.*#Z.LDA #0:LDX #8:E
RALOOP STA ($FE),Y:INY:BNE ERALOOP.P#..I
NC $FF:DEX:BNE ERALOOP:JMP $0073.W#M.; .
.................................#N.; GR
. (GRAPHIC ..OFF.) BEFEHL..#W.; ........
..........................#X.GRAPH JSR $
B79B:TXA:BNE IRQ..%$B.IRQOFF SEI:LDA $D0
15:. #240:STA $D015:LDA #0:STA $D01A:LDA
#$81.Q$G.STA $DC0D:JSR .VOFF:LDA #$31:L
DY #$EA:VECT STA $314:STY $315:CLI:GX RT
S..$L.IRQ. LDA $315:CMP #.SPRIRQ:BEQ GX.
.$Q.LDA $D015:.A #15:STA $D015..$S.LDA $
D017:. #15:STA $D017:LDA $D01C:. #240:ST
A $D01C:LDA $D01D..%T..A #15:STA $D01D.R
%V.SEI:LDX #7:STX COUNTER:LDA LINES.7:ST
A $D012:LDA #$7F:STA $DC0D..%..LDA #1:ST
A $D01A:JSR .V.:LDA #.SPRIRQ:LDY #.SPRIR
Q:BNE VECT..%..; .......................
...........%..; GP. (GRAPHIC PRI.ITY.) B
EFEHL..&..; ............................
.....)& .PRI.ITY JSR $B79B:TXA:BNE PRIYE
S.L&*.LDA $D01B:.A #15:STA $D01B:RTS.V&4
.PRIYES LDA $D01B:. #240:STA $D01B:RTS..
&5.; ..................................&
6.; DL. (DRAW.LINE.) BEFEHL..&?.; ......
............................'@.LINE JSR
DOT:JSR $B7F1:TXA:SEC:SBC ACTX:STA $FC:S
TA $402.:'E.LDA #0:ROL A:STA HFLAG.J'J.B
NE HOK:LDA #0:SEC:SBC $FC:STA $FC:STA $4
02..'T.HOK JSR $B7F1:TXA:SEC:SBC ACTY:ST
A $FD:STA $403:LDA #0:ROL A:STA VFLAG..'
^.BNE VOK:LDA #0:SEC:SBC $FD:STA $FD:STA
$403..(H.VOK LDA $FD:CLC:ADC $FC:BEQ LD
.E.0(|.LDA $FC:STA $400:LDA $FD:STA $401
.K(..LINELOOP LDA #0:STA 2:LDA $402:BEQ
NOHMOVE:LDA $FC:CLC..(..ADC $400:STA $40
0:BCC NOHMOVE:JSR GCH..R(..DEC $402:INC
2:NOHMOVE LDA $403:BEQ NOVMOVE:LDA $FD:C
LC..(..ADC $401:STA $401:BCC NOVMOVE:JSR
GCVER.))..DEC $403:INC 2:NOVMOVE LDA 2:
BEQ NODOT.D)..JSR DO.UT:NODOT LDA $402:.
A $403:BNE LINELOOP:LD.E RTS..).#; .....
.............................).#; QUIT .
SCHALTET NEUEN .ERPR.AB.W).#; . LA
ESST BILDSCHRIM ($CC00)..) #; . LAE
SST ZEICHENSATZ..*!#; . LAESST NMI.
ROUTINE.>*'#; ..........................
.......M*(#QUIT JSR IRQOFF:JSR $E453:JSR
.VEC:JMP $73..*.'; ....................
..............*.'; DR. (DRAW.REC.GLE.) B
EFEHL..*.'; ............................
......*.'RECT JSR SQPREP.5+.'LDA $FB:BEQ
REC2:H1LOOP JSR GCRIGHT:JSR DO.UT:DEC $
FB:BNE H1LOOP.{+$'REC2 LDA $FD:BEQ REC3:
STA $FB:V1LOOP JSR GCDOWN:JSR DO.UT:DEC
$FB.D+.'BNE V1LOOP:REC3 LDA $FC:BEQ REC4
:H2LOOP JSR GCLEFT:JSR DO.UT:DEC $FC.S+8
'BNE H2LOOP..,B'REC4 LDA $FD:BEQ RECX:DE
C $FD:BEQ RECX:V2LOOP JSR GCUP.8,L'JSR D
O.UT:DEC $FD:BNE V2LOOP:RECX RTS.{,V'SQP
REP JSR DOT:JSR $B7F1:STX $FC:STX $FB:JS
R $B7F1:STX $FD:RTS..,I'; ..............
...................,J'; DB. (DRAW.BLOCK.
) BEFEHL..,S'; .........................
........,T'BLOCK JSR SQPREP.D-~'LDA $FD:
BEQ RECX:BLKLOOP JSR DO.UT:LDA $FC:STA $
FB:JSR RLINE:DEC $FD..-.'BEQ RECX:JSR GC
DOWN:JSR DO.UT:LDA $FC:STA $FB:JSR LLINE
:DEC $FD..-.'BEQ RECX:JSR GCDOWN:JMP BLK
LOOP..-.'RLINE LDA $FB:BEQ RLX:RLL JSR G
CRIGHT:JSR DO.UT:DEC $FB:BNE RLL:RLX RTS
.C..'LLINE LDA $FB:BEQ LLX:LLL JSR GCLEF
T:JSR DO.UT:DEC $FB:BNE LLL:LLX RTS.I..*
; ...................................*;
GN. (GRAPHIC.NUMBER.) BEFEHL....*; .....
..............................*SCREEN JS
R $B79B:TXA:. #3:TAX:LDA BASES,X:STA BAS
EADDR.5/.+LDA SCRTAB,X:LDY #7:SCRLOOP ST
A SPBASE,Y:CLC:ADC #4:DEY:BPL SCRLOOP.=/
.+RTS.\/.+BASES .BYT $E0,$E8,$F0,$E8.|/
+SCRTAB .BYT 131,163,195,163../.+; .....
...........................B/.+; GX. (GR
APHIC.X.P.) BEFEHL../.+; ...............
.................40..X.P JSR $B79B:WIDTH
IN STX $FE:LDA #0:STA $FF:LDA $D010:. #2
40:STA $D010.H0..LDA #8:STA $FD:LDX #6:X
LOOP LDA $FE:STA $D000,X..0..LDA $FF:BEQ
XNC:LDA $FD:.A $D010:STA $D010.O0..XNC
LDA $FE:CLC:ADC XWIDTH:STA $FE:BCC XNC2:
INC $FF..0./XNC2 LSR $FD:DEX:DEX:BPL XLO
OP:RTS..1./XWIDTH .BYT 48.*1./WIDTH JSR
$B79B:TXA:BNE WIDE.R1&/LDA #24:STA XWIDT
H:LDA $D01D:. #240.}1+/WIDTHX STA $D01D:
LDX $D00E:JMP WIDTHIN..10/WIDE LDA #48:S
TA XWIDTH:LDA $D01D:.A #15:BNE WIDTHX..1
.2; .................................1.2
; GY. (GRAPHIC.Y.P.) BEFEHL.!2G2; ......
..........................N2H2Y.P JSR $B
79B:TIMEIN TXA:STA $400:LDX #7.~2R2YLOOP
STA LINES,X:CLC:ADC #21:DEX:BPL YLOOP..
2.2LDA $400:ASL A:CLC:ADC $400:. #7:.A #
8:TAY..2.2LDX #7:DELYLOOP LDA DELYTAB.1,
Y:STA DELAYS,X..2.2DEY:DEX:BPL DELYLOOP:
RTS.93.2DELYTAB .BYT 12,12,19,12,19,19,1
2,19,12,12,19,12,19,19,12._3.6; ........
........................~3.6; FD. (F.T.D
ESIGN.) BEFEHL..3.6; ...................
..............3.6F.T JSR FDPREP..4D6MDIN
LDA #0:STA $FB:CHRLOOP JSR $B7F1:TXA:LD
X $FB:STA $0400,X:INC $FB.+4N6CPX #7:BCC
CHRLOOP:SEI:LDA #$30:STA 1.C4X6LDY #7:S
.LOOP LDA $400,Y:STA ($FE),Y:DEY:BPL S.L
OOP..4.6FDBACK LDA #$37:STA 1:CLI:RTS..4
.7; ................................H4.7
; FB. (F.T.BYTE.) BEFEHL..4.7; .........
.......................!5.7FDPREP JSR $B
79B:TXA:. #1:.A #26:PHA:JSR $B7F1.G5.7ST
X $FE:PLA:ASL $FE:ROL A:ASL $FE:ROL A:AS
L $FE:ROL A:STA $FF:RTS..5X7FOBYTE JSR F
DPREP:JSR $B7F1:TXA:. #7:MBIN STA $FB:JS
R $B7F1..5.7LDA #$30:STA 1:TXA:LDY $FB:S
TA ($FE),Y:JMP FDBACK..6.:; ............
....................!6.:; GS. (GRAPHIC..
.) BEFEHL.G6.:; ........................
.........6.:. JSR $B79B:TXA:. #3:TAX:LDA
BASES,X:FSVIN PHA:JSR $AEFD:JSR $E1D4..
6.:PLA:STA $FF:LDY #0:STY $FE:STY $FB:LD
A #$B8:STA $FC:STA $FD:SEI:LDA #$30..7.:
STA 1:LDX #8:SVLOOP LDA ($FE),Y:STA ($FB
),Y:INY:BNE SVLOOP.=7.:INC $FC:INC $FF:D
EX:BNE SVLOOP..7.:LDA #$36:STA 1:CLI:LDX
#0:STX $FC:LDA #$FC:DEX:LDY #$BF:JSR $F
5DD..7J:JMP FDBACK..7U>; ...............
.................V7V>; GL. (GRAPHIC...)
BEFEHL..7>; ...........................
.....B8.>. JSR $B79B:TXA:. #3:TAX:LDA BA
SES,X:FLIN PHA:JSR $AEFD:JSR $E1D4.K8.>P
LA:TAY:LDA #0:STA $0A:TAX:JSR $FFD5..8.>
LDX $2D:LDY $2E:JMP .AFT..8]B; .........
.......................O8^B; TP. (TEXTSC
REEN...) BEFEHL..8GB; ..................
...............9HBPRTAT JSR CRSRXY.!9RBJ
SR CHKCOM:BNE PAX.;9|B. JSR $0073:JMP $A
AA0.T9LBCRSRXY JSR $B79B:STX $D3:JSR $B7
F1:STX $D6:JMP $E56C..9EF; .............
....................9FF; GI. (GRAPHIC.IN
VERT.) BEFEHL..9OF; ....................
.............:PFINVERT LDA BASEADDR:STA
$FF:LDY #0:STY $FE.%:ZFLDA #$30:STA 1.H:
DFLDX #8:INVLOOP LDA ($FE),Y:E. #255:STA
($FE),Y:INY:BNE INVLOOP..:NFINC $FF:DEX
:BNE INVLOOP:LDA #$37:STA 1:JMP $0073.C:
-J; .................................:.J
; DM. (DRAW.MODE.) BEFEHL..;7J; ........
.........................;8JMODE JSR $B7
9B:STX ACTMODE:PAX RTS.T;.N; ...........
.....................T;.N; FO. (F.T..IGI
NAL.) BEFEHL..;.N; .....................
...........C; NN.MAL JSR IRQOFF:JSR MOVE
SCR:JMP $73..;.Q; ......................
...........<.Q; GK (GRAPHIC.COMBINATE.)
BEFEHL.4<.R; ...........................
.....J<.RKOMBINE JSR KPREP..<.RJSR $B7F1
:TXA:. #3:TAX:LDA BASES,X:STA $FF:JSR $B
7F1.J<.RFLBK LDY #0:STY $FC:STY $FE:LDA
#$30:STA 1:.BYT $2C:COPYSCR LDX #3..=&RT
XA:. #3:ASL A:TAX:LDA KOTAB,X:STA $334:L
DA KOTAB.1,X:STA $335.I=0RLDX #8:KCL LDA
($FC),Y:JSR EXEC:STA ($FE),Y:INY:BNE KC
L.T=:RINC $FD:INC $FF:DEX:BNE KCL:JMP FD
BACK..=DRK.A .A ($FE),Y:KCOPY RTS..=NRK.
. ($FE),Y:RTS..=XRKE. E. ($FE),Y:RTS..=
BRKOTAB .W. K.,K.A,KE.,KCOPY..>ER; .....
...........................'>FR; KPREP
. COMBINATE.V.BEREITG..D>GR; .ADDR . ..
.EGERZ. HOC.J>OR; .....................
............>PRKPREP JSR $B79B:TXA:. #3:
TAX:LDA BASES,X:STA $FD:RTS.P>ZR.ADDR JS
R $AEFD:.16B JSR $AD8A:JMP $B7F7..>)S; .
................................?*S; PG.
(PUT.GRAPHIC.) BEFEHL.9?+S; RG. (RECALL
.GRAPHIC.) BEFEHL._?3S; ................
................ ?4SPUTSCREEN JSR KPREP:
LDA #0:STA $FC:JSR .ADDR:STY $FE:STA $FF
.C?>SPRX LDA #$30:STA 1:BNE COPYSCR..@HS
RCLSCREEN JSR KPREP:STA $FF:LDA #0:STA $
FE:JSR .ADDR:STY $FC:STA $FD..@RSJMP PRX
.>@.U; ................................W
@.U; TEXTSCREEN.BEFEHLE.{@.U; TC . TEX
TSCREEN.COLOUR.FILL..@.U; TF . ''
.CHAR.FILL..@.U; TT . '' .AT
TR..TURN..@.U; TR . '' .REVERS..
@.U; TN . '' .N.MAL."A.U; TX
. '' .CHAR.EXCHANGE.HA.U; .......
..........................A.UTPREP JSR $
B79B:CPX #40:BCS ILLQUAN2:STX $FE:STX $F
C.JA.UJSR $B7F1:CPX #25:BCS ILLQUAN2:STX
$FD:TXA:ASL A:ASL A:ASL A:STA $FB..B.VL
DX #0:STX $FF:ASL A:ROL $FF:ASL A:ROL $F
F:ADC $FB:BCC .K:INC $FF:CLC.IB.V.K ADC
$FE:STA $FE:BCC .K2:INC $FF:.K2 JSR $B7F
1..B.VTXA:BEQ ILLQUAN2:CLC:ADC $FC:CMP #
41:BCS ILLQUAN2:DEX:STX $FC.WB"VJSR $B7F
1:TXA:BEQ ILLQUAN2:CLC:ADC $FD:CMP #26:B
CS ILLQUAN2:STX $FD:RTS..B,VILLQUAN2 JMP
$B248..CTVTDOT LDX #$CC:TDO STA $334:ST
Y $335:TXA:CLC:ADC $FF:STA $FF.]CYVTDL1
LDY $FC:TDL2 JSR EXEC:STA ($FE),Y:TYA..C
^VBEQ TDM3:DEY:JMP TDL2:TDM3 LDA $FE:CLC
:ADC #40:STA $FE:BCC .K3:INC $FF.ECHV.K3
DEC $FD:BNE TDL1:RTS..C.VTSC.ST LDA $FB
:RTS..CBVTSTURN LDA ($FE),Y:E. #128:RTS.
!DLVTSPLUS LDA ($FE),Y:. #127:RTS.EDVVTS
MINUS LDA ($FE),Y:.A #128:RTS.D.VTSXCHG
LDA ($FE),Y:CMP $FB:BNE TSXX:LDA $400:T
SXX RTS..D.WTCOL. JSR TPREP:JSR $B7F1:ST
X $FB:LDX #$D8.XD&WTCF LDA #.TSC.ST:LDY
#.TSC.ST:JMP TDO..E0WTFILL JSR TPREP:JSR
$B7F1:STX $FB:LDX #$CC:BNE TCF.FE:WTTUR
N JSR TPREP:LDA #.TSTURN:LDY #.TSTURN:BN
E TDOT.~EDWTREV JSR TPREP:LDA #.TSMINUS:
LDY #.TSMINUS:BNE TDOT..ENWTN.M JSR TPRE
P:LDA #.TSPLUS:LDY #.TSPLUS:JMP TDOT..EX
WTXCHG JSR TPREP:JSR $B7F1:STX $FB:JSR $
B7F1:STX $400..FBWLDA #.TSXCHG:LDY #.TSX
CHG:JMP TDOT.:FMY; .....................
...........TFNY; FS. (F.T...) BEFEHL.NFO
Y; FL. (F.T...) BEFEHL..FWY; ...........
......................FXYFO. JSR FOPREP:
JMP FSVIN.HF.YFOTAB .BYT $D0,$D8..G<ZFO.
JSR FOPREP:STA $FF:LDA #$B8:STA $FD:JSR
FLIN:LDX #3:JMP FLBK.?G ZFOPREP JSR $B7
9B:TXA:. #1:TAX:LDA FOTAB,X:RTS.EG\]; ..
...............................GF]; SPRI
TE ('MOB'). BEFEHLE..GG]; MG . SPRITE
('MOB').GRAB.FGH]; MO . ''
...OFF..GI]; MP . '' .PARAM
ETER..HJ]; MC . '' .COLOUR.
0HK]; ML . '' .LOOK.SHL];
MD . '' .DESIGN.YHM]; MB .
'' .BYTE.DES...HN]; MX .
'' .X.....HO]; MY . ''
.Y.....H.]; ......................
..........*I.]MOPREP1 JSR $B7F1:JMP MOP1
1:MOP1 JSR $B79B:MOP11 TXA:. #127:CMP #1
27.HIJ]ADC #0:. #127:.A #$80:PHA..IL]STA
$FF:LDA #0:SEC:R. $FF:R. A:SEC:R. $FF:R
. A:STA $FE:PLA:RTS.GIT]MOPREP2 JSR $B79
B:TXA:. #7:TAX:ASL A:TAY:LDA MOB.,X:RTS.
.I.]MOB. .BYT 1,2,4,8,16,32,64,128.*J$^M
OGRAB JSR MOP1:LDA $FE:STA $FC:LDA $FF:S
TA $FD:JSR MOPREP1.SJ8^LDA #$30:STA 1:LD
Y #63:MOCOPY LDA ($FE),Y:STA $340,Y:STA
($FC),Y:DEY..JB^BPL MOCOPY:JMP FDBACK.TJ
.^MOB. JSR MOPREP2:PHA:JSR $B7F1:PLA:LDY
#21:MOSWI CPX #0:BEQ MOBOFF..J.^.A $D00
0,Y:BNE MOOX..K.^MOBOFF E. #255:. $D000,
Y:MOOX STA $D000,Y:RTS.^K.^MOPAR JSR MOP
REP2:STA $FB:LDY #27:JSR MO1PAR:INY:JSR
MO1PAR.YK.^INY:JSR MO1PAR:LDY #23..K._MO
1PAR STY $FC:JSR $B7F1:LDY $FC:LDA $FB:B
NE MOSWI..KP_MOCOL JSR MOPREP2:STX $FB:J
SR $B7F1:TXA:LDX $FB:STA $D027,X:RTS.+LZ
_MOMCOL JSR $B79B:STX $D025:JSR $B7F1:ST
X $D026:RTS.NL._MOLOOK JSR MOPREP2:STX $
FB:JSR MOPREP1:LDX $FB:STA $CFF8,X:RTS..
L.`MOD. JSR MOP1:JSR $B7F1:TXA:. #7:ASL
A:ASL A:ASL A:ADC $FE:STA $FE.BL"`JMP MD
IN..L|`MOBYTE JSR MOP1:JSR $B7F1:TXA:. #
63:JMP MBIN.:M.`MOBX JSR MOPREP2:PHA:STY
$FB:JSR .ADDR:LDY $FB:LDA $14:STA $D000
,Y.\M.`PLA:LDY #16:LDX $15:JSR MOSWI.ZM.
`JSR CHKCOM:BEQ MOBYIN:RTS.DMDAMOBY JSR
MOPREP2:STY $FB:MOBYIN JSR $B7F1:TXA:LDY
$FB:STA $D001,Y:RTS..MKA; .............
....................NLA; CHKCOM . PRUEF
T AUF KOMMA./NMA; CHKSEMI . PRUEFT AUF S
EMIKOL..UNUA; ..........................
.......NVACHKCOM LDA #",":.BYT $2C:CHKSE
MI LDA #";":LDY #0:CMP ($7A),Y:RTS..N.A;
.................................N.A; P
T. (PUT.TEXTSCREEN.) BEFEHL..O.A; RT. (R
ECALL.TEXTSCREEN.) BEFEHL./O.A; ........
........................OO.APUTTEXT JSR
$73:JSR .16B:STY $FE:STA $FF:LDA #$CC:JS
R PTSUB..O.ALDA #$D8:JMP PTSUB.FO.ARCLTE
XT JSR $73:JSR .16B:STY $FC:STA $FD:LDA
#$CC:JSR GTSUB..OFALDA #$D8:JMP GTSUB..P
.BPTSUB LDY #$37:STY $FB:LDY #0:STY $FC:
STA $FD:BEQ TTLMAIN.MP.BGTSUB LDY #$30:S
TY $FB:LDY #0:STY $FE:STA $FF..PZBTTLMAI
N LDX #3:LDY #255:JSR TTLSUB:INX:LDY #24
8.IPTBTTLSUB LDA $FB:STA 1:LDA ($FC),Y:P
HA:LDA #$37:STA 1:PLA:STA ($FE),Y..Q.BDE
Y:CPY #$FF:BNE TTLSUB:INC $FF:INC $FD:DE
X:BNE TTLSUB:RTS..Q-C; .................
...............IQ.C; BYTE.DISPLAY.BEFEHL
E.EQ/C; BB . BINARY.DISPLAY..Q0C; BC
. BINARY.DISPLAY.CHARS..Q1C; BM . BAR
.MEM.Y.DISPLAY.HQ2C; BP . BINARY.MEM.Y
.DISPLAY..Q3C; BV . VERTICAL.BAR.DISPL
AY..R7C; ...............................
.TR8CDSPBYTE JSR DISPREP:DBIN STX $400:L
DX #8:DIBLOOP LDY #0:ASL $FB..RBCBCC DBM
2:INY:DBM2 LDA DSPCODE,Y:JSR $FFD2:DEX:B
NE DIBLOOP:RTS..RLCDSPCODE .F ".*".MRVCD
SPMBYTE JSR DISPREP2:JMP DBIN..R`CDSPMVB
AR JSR DISPREP2:JMP DVIN./S.CDSPCHARS JS
R $B79B:STX DSPCODE:JSR $B7F1:STX DSPCOD
E.1:RTS.XS.DDSPVBAR JSR DISPREP:DVIN TXA
:LSR A:LSR A:LSR A:TAX:BEQ NODSB:STX $FC
..S.DDSBLOOP JSR REVBLK:DEC $FC:BNE DSBL
OOP:NODSB LDA $FB..S.D. #7:TAX:LDA BHCOD
E,X:BMI N.EV:TAY:JSR REVOUT:TYA:N.EV .A
#128..T.DJMP $FFD2./T.DBHCODE .BYT 160,1
64,175,185,162,56,55,35.MT(DREVOUT LDA #
".":JMP $FFD2.~T2DREVBLK LDA #.RVBCHRS:L
DY #.RVBCHRS:JMP $AB1E..T<DRVBCHRS .F ".
...":.BYT 0.ITDDDISPREP JSR CRSRXY:JSR
$B7F1:STX $FB:RTS..UNDDISPREP2 JSR CRSRX
Y:JSR .ADDR:LDY #$30:STY 1:LDY #0:LDA ($
14),Y:TAX.0UXDSTX $FB:LDY #$37:STY 1:RTS
.VU.E; ................................S
U.E; JS. (JOYSTICK.) BEFEHL..U.E; ......
..........................TU.EJOYREQ LDA
$DC00:STA $FB:LDY #4:JSLOOP LSR $FB:BCS
JS...V.ELDA JSTAB,Y:SEI:JSR $EB35:CLI:J
S. DEY:BPL JSLOOP:JMP $73.-V.EJSTAB .BYT
13:.F "....".SV.E; ....................
............TV.E; OAD UND WEITER IM PROG
RAMM..V.E; .............................
....V.E.AFT BCC NOERR:JMP $E0F9..V.ENOER
R JSR $FFB7:. #16:BEQ NOERR2:JMP $E19C:N
OERR2 RTS..VFC..:...W`..15,8,15.)WJ..#15
,I$:.I$;:.I$..G(13).60010.1WT. 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL