XBASIC.ASM
FILE INFORMATION
FILENAME(S): XBASIC.ASM
FILE TYPE(S): PRG
FILE SIZE: 22.3K
FIRST SEEN: 2025-11-30 20:09:38
APPEARS ON: 1 disk(s)
FILE HASH
4c389f10e906b6afa2ffb4231b1c22b2c0b4e98360878e05c4ebd459b5933edc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN O THEK 6 86 | XBASIC.ASM | PRG | Curtcool, Klaus & Jan | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 10 27 9E 35 38 34 35 31 3A 9E 33 32 |.....'.58451:.32|
00000010: 37 36 38 3A 2E 4F 50 54 20 20 20 4F 4F 00 23 08 |768:.OPT OO.#.|
00000020: 42 27 3A 00 29 08 74 27 3A 00 2F 08 A6 27 3A 00 |B':.).t':./..':.|
00000030: 44 08 D8 27 3A 20 20 20 20 20 20 20 AC B2 20 24 |D..': .. $|
00000040: 43 30 30 30 00 55 08 0A 28 46 31 20 20 20 20 20 |C000.U..(F1 |
00000050: 20 20 B2 20 32 00 68 08 3C 28 46 32 20 20 20 20 | . 2.h.<(F2 |
00000060: 20 20 20 B2 20 24 32 32 00 7B 08 6E 28 46 33 20 | . $22.{.n(F3 |
00000070: 20 20 20 20 20 20 B2 20 24 32 33 00 8E 08 A0 28 | . $23....(|
00000080: 41 42 4D 50 20 20 20 20 20 B2 20 24 46 39 00 A1 |ABMP . $F9..|
00000090: 08 D2 28 4D 41 53 4B 20 20 20 20 20 B2 20 24 46 |..(MASK . $F|
000000A0: 42 00 B4 08 04 29 4C 58 4B 4F 4F 20 20 20 20 B2 |B....)LXKOO .|
000000B0: 20 24 46 43 00 C7 08 36 29 4C 59 4B 4F 4F 20 20 | $FC...6)LYKOO |
000000C0: 20 20 B2 20 24 46 45 00 DA 08 68 29 41 58 4B 4F | . $FE...h)AXKO|
000000D0: 4F 20 20 20 20 B2 20 24 35 37 00 ED 08 9A 29 41 |O . $57....)A|
000000E0: 59 4B 4F 4F 20 20 20 20 B2 20 24 35 39 00 00 09 |YKOO . $59...|
000000F0: CC 29 A1 42 59 54 20 20 20 B2 20 24 42 37 39 45 |.).BYT . $B79E|
00000100: 00 13 09 FE 29 A1 41 44 42 20 20 20 B2 20 24 42 |....).ADB . $B|
00000110: 37 45 42 00 28 09 30 2A 43 4B 43 4F 4D 20 20 20 |7EB.(.0*CKCOM |
00000120: 20 B2 20 24 41 45 46 44 00 3D 09 62 2A 43 4B 4B | . $AEFD.=.b*CKK|
00000130: 4C 4D 20 20 20 20 B2 20 24 41 45 46 37 00 52 09 |LM . $AEF7.R.|
00000140: 94 2A 43 4B 5A 43 48 20 20 20 20 B2 20 24 41 45 |.*CKZCH . $AE|
00000150: 46 46 00 65 09 C6 2A 8F 20 20 20 20 20 20 3D 20 |FF.e..*. = |
00000160: 24 41 39 33 42 00 76 09 F8 2A 43 48 52 A1 20 20 |$A93B.v..*CHR. |
00000170: 20 B2 20 24 37 33 00 88 09 2A 2B 43 48 52 CB 54 | . $73...*+CHR.T|
00000180: 20 20 20 B2 20 24 37 39 00 99 09 5C 2B 43 48 52 | . $79...\+CHR|
00000190: 50 4F B5 20 B2 20 24 37 41 00 AE 09 8E 2B 45 52 |PO. . $7A....+ER|
000001A0: 52 46 4C 20 20 20 20 B2 20 24 30 33 31 33 00 C3 |RFL . $0313..|
000001B0: 09 C0 2B 5A 45 49 4C 4E 52 20 20 20 B2 20 24 30 |..+ZEILNR . $0|
000001C0: 33 32 45 00 C9 09 F2 2B 3A 00 CF 09 24 2C 3A 00 |32E....+:...$,:.|
000001D0: F3 09 56 2C 3A 20 20 20 20 4C 44 58 20 23 31 31 |..V,: LDX #11|
000001E0: 20 20 20 20 20 20 3B 42 41 53 49 43 56 45 4B A4 | ;BASICVEK.|
000001F0: 52 45 4E 00 10 0A 88 2C 4C 4F 4C 4F 20 4C 44 41 |REN....,LOLO LDA|
00000200: 20 42 53 56 4B 54 2C 58 20 20 3B 41 80 45 52 4E | BSVKT,X ;A.ERN|
00000210: 00 24 0A BA 2C 3A 20 20 20 20 53 54 41 20 24 33 |.$..,: STA $3|
00000220: 30 30 2C 58 00 31 0A EC 2C 3A 20 20 20 20 44 45 |00,X.1..,: DE|
00000230: 58 00 43 0A 1E 2D 3A 20 20 20 20 42 50 4C 20 4C |X.C..-: BPL L|
00000240: 4F 4C 4F 00 5E 0A 50 2D 3A 20 20 20 20 49 4E 58 |OLO.^.P-: INX|
00000250: 20 20 20 20 20 20 20 20 20 20 3B 58 B2 30 00 82 | ;X.0..|
00000260: 0A 82 2D 3A 20 20 20 20 53 54 58 20 4C 58 4B 4F |..-: STX LXKO|
00000270: 4F 20 20 20 20 3B 47 52 41 50 48 49 43 50 4F B5 |O ;GRAPHICPO.|
00000280: 45 52 00 A0 0A B4 2D 3A 20 20 20 20 53 54 58 20 |ER....-: STX |
00000290: 4C 58 4B 4F 4F AA 31 20 20 3B 53 45 54 5A 45 4E |LXKOO.1 ;SETZEN|
000002A0: 00 B3 0A E6 2D 3A 20 20 20 20 53 54 58 20 4C 59 |....-: STX LY|
000002B0: 4B 4F 4F 00 C6 0A 18 2E 3A 20 20 20 20 53 54 58 |KOO.....: STX|
000002C0: 20 45 52 52 46 4C 00 CC 0A 4A 2E 3A 00 F0 0A 7C | ERRFL...J.:...||
000002D0: 2E 4C 4C 4C 4F 20 4C 44 41 20 4D 45 53 53 41 47 |.LLLO LDA MESSAG|
000002E0: 45 2C 58 20 3B 55 45 42 45 52 53 43 48 52 8B 54 |E,X ;UEBERSCHR.T|
000002F0: 00 03 0B AE 2E 3A 20 20 20 20 4A 53 52 20 24 46 |.....: JSR $F|
00000300: 46 44 32 00 10 0B E0 2E 3A 20 20 20 20 49 4E 58 |FD2.....: INX|
00000310: 00 21 0B 12 2F 3A 20 20 20 20 43 50 58 20 23 37 |.!../: CPX #7|
00000320: 38 00 33 0B 44 2F 3A 20 20 20 20 42 4E 45 20 4C |8.3.D/: BNE L|
00000330: 4C 4C 4F 00 4D 0B 76 2F 3A 20 20 20 20 4A 53 52 |LLO.M.v/: JSR|
00000340: 20 24 41 36 35 45 20 20 20 20 20 3B 9C 00 71 0B | $A65E ;..q.|
00000350: A8 2F 3A 20 20 20 20 4C 44 58 20 23 24 38 30 20 |./: LDX #$80 |
00000360: 20 20 20 20 20 3B 4B 45 49 4E 20 46 45 48 4C 45 | ;KEIN FEHLE|
00000370: 52 00 83 0B DA 2F 3A 20 20 20 20 2E 42 59 54 20 |R..../: .BYT |
00000380: 24 32 43 00 A7 0B 0C 30 45 52 52 31 20 4C 44 58 |$2C....0ERR1 LDX|
00000390: 20 23 24 30 42 20 20 20 20 20 20 3B 53 59 4E 54 | #$0B ;SYNT|
000003A0: 41 58 20 45 52 52 B0 00 AD 0B 3E 30 3A 00 CF 0B |AX ERR....>0:...|
000003B0: 70 30 57 52 4D 53 54 52 54 20 54 58 41 20 20 20 |p0WRMSTRT TXA |
000003C0: 20 20 20 20 20 3B 57 41 52 4D 53 54 41 52 54 00 | ;WARMSTART.|
000003D0: F3 0B A2 30 3A 20 20 20 20 20 20 20 42 4D 49 20 |...0: BMI |
000003E0: 45 52 52 55 54 20 20 3B 4B 45 49 4E 20 46 45 48 |ERRUT ;KEIN FEH|
000003F0: 4C 45 52 00 0F 0C D4 30 3A 20 20 20 20 20 20 20 |LER....0: |
00000400: 4C 44 59 20 45 52 52 46 4C 20 20 3B DB 22 3F 00 |LDY ERRFL ;."?.|
00000410: 35 0C 06 31 3A 20 20 20 20 20 20 20 42 45 51 20 |5..1: BEQ |
00000420: 45 52 52 4F 55 54 20 3B 4E 45 49 4E B1 41 55 53 |ERROUT ;NEIN.AUS|
00000430: 47 45 42 45 4E 00 49 0C 38 31 3A 20 20 20 20 20 |GEBEN.I.81: |
00000440: 20 20 53 54 41 20 24 39 45 00 6F 0C 6A 31 3A 20 | STA $9E.o.j1: |
00000450: 20 20 20 20 20 20 4C 44 59 20 24 33 41 20 20 20 | LDY $3A |
00000460: 20 3B 44 49 52 45 4B 54 4D 4F 44 55 53 22 3F 00 | ;DIREKTMODUS"?.|
00000470: 7F 0C 9C 31 3A 20 20 20 20 20 20 20 49 4E 59 00 |...1: INY.|
00000480: A4 0C CE 31 3A 20 20 20 20 20 20 20 42 4E 45 20 |...1: BNE |
00000490: 91 45 52 52 20 20 3B 4A 41 20 B1 20 41 55 53 47 |.ERR ;JA . AUSG|
000004A0: 45 42 45 4E 00 AA 0C 00 32 3A 00 CE 0C 32 32 45 |EBEN....2:...22E|
000004B0: 52 52 4F 55 54 20 20 4A 53 52 20 47 52 4F 46 20 |RROUT JSR GROF |
000004C0: 20 20 3B 47 52 41 50 48 49 43 20 41 55 53 00 F4 | ;GRAPHIC AUS..|
000004D0: 0C 64 32 45 52 52 55 54 20 20 20 4C 44 59 20 23 |.d2ERRUT LDY #|
000004E0: 30 20 20 20 20 20 3B 46 45 48 4C 45 52 41 55 53 |0 ;FEHLERAUS|
000004F0: 47 41 42 45 00 0A 0D 96 32 3A 20 20 20 20 20 20 |GABE....2: |
00000500: 20 53 54 59 20 45 52 52 46 4C 00 20 0D C8 32 3A | STY ERRFL. ..2:|
00000510: 20 20 20 20 20 20 20 4A 4D 50 20 24 45 33 38 42 | JMP $E38B|
00000520: 00 26 0D FA 32 3A 00 48 0D 2C 33 91 45 52 52 20 |.&..2:.H.,3.ERR |
00000530: 20 20 4A 53 52 20 24 41 36 37 41 20 20 3B 49 4E | JSR $A67A ;IN|
00000540: 49 54 20 53 54 41 43 4B 00 6C 0D 5E 33 3A 20 20 |IT STACK.l.^3: |
00000550: 20 20 20 20 20 4C 44 41 20 5A 45 49 4C 4E 52 20 | LDA ZEILNR |
00000560: 3B 56 47 4C 2E 27 8A 20 38 AD 38 35 00 80 0D 90 |;VGL.'. 8.85....|
00000570: 33 3A 20 20 20 20 20 20 20 53 54 41 20 24 31 34 |3: STA $14|
00000580: 00 99 0D C2 33 3A 20 20 20 20 20 20 20 4C 44 41 |....3: LDA|
00000590: 20 5A 45 49 4C 4E 52 AA 31 00 AD 0D F4 33 3A 20 | ZEILNR.1....3: |
000005A0: 20 20 20 20 20 20 53 54 41 20 24 31 35 00 C3 0D | STA $15...|
000005B0: 26 34 3A 20 20 20 20 20 20 20 4A 53 52 20 24 41 |&4: JSR $A|
000005C0: 36 31 33 00 D7 0D 58 34 3A 20 20 20 20 20 20 20 |613...X4: |
000005D0: 4C 44 58 20 24 39 45 00 EE 0D 8A 34 3A 20 20 20 |LDX $9E....4: |
000005E0: 20 20 20 20 42 43 43 20 45 52 52 4F 55 54 00 04 | BCC ERROUT..|
000005F0: 0E BC 34 3A 20 20 20 20 20 20 20 4A 53 52 20 24 |..4: JSR $|
00000600: 41 36 38 45 00 1A 0E EE 34 3A 20 20 20 20 20 20 |A68E....4: |
00000610: 20 4A 53 52 20 24 41 38 41 33 00 30 0E 20 35 3A | JSR $A8A3.0. 5:|
00000620: 20 20 20 20 20 20 20 4A 53 52 20 24 41 37 41 45 | JSR $A7AE|
00000630: 00 36 0E 52 35 3A 00 54 0E 84 35 8C 20 52 54 49 |.6.R5:.T..5. RTI|
00000640: 20 20 20 20 20 3B 4E 4D 49 20 42 45 49 20 52 4F | ;NMI BEI RO|
00000650: 4D 4F 46 46 00 5A 0E B6 35 3A 00 7C 0E E8 35 B5 |MOFF.Z..5:.|..5.|
00000660: 45 52 20 4C 44 58 20 24 37 41 20 20 20 3B B5 45 |ER LDX $7A ;.E|
00000670: 52 50 52 45 54 45 52 43 4F 44 45 AB 00 98 0E 1A |RPRETERCODE.....|
00000680: 36 3A 20 20 20 20 20 4C 44 59 20 23 34 20 20 20 |6: LDY #4 |
00000690: 20 3B 57 AF 4C 55 4E 47 00 BA 0E 4C 36 3A 20 20 | ;W.LUNG...L6: |
000006A0: 20 20 20 53 54 59 20 24 46 20 20 20 20 3B 56 47 | STY $F ;VG|
000006B0: 4C 2E 20 52 4F 4D 9B 49 4E 47 00 CF 0E 7E 36 4C |L. ROM.ING...~6L|
000006C0: 33 37 20 20 20 4C 44 41 20 24 32 30 30 2C 58 00 |37 LDA $200,X.|
000006D0: E1 0E B0 36 3A 20 20 20 20 20 42 50 4C 20 4C 34 |...6: BPL L4|
000006E0: 33 00 F4 0E E2 36 3A 20 20 20 20 20 43 4D 50 20 |3....6: CMP |
000006F0: 23 24 46 46 00 06 0F 14 37 3A 20 20 20 20 20 42 |#$FF....7: B|
00000700: 45 51 20 4C 37 45 00 14 0F 46 37 3A 20 20 20 20 |EQ L7E...F7: |
00000710: 20 49 4E 58 00 26 0F 78 37 3A 20 20 20 20 20 42 | INX.&.x7: B|
00000720: 4E 45 20 4C 33 37 00 39 0F AA 37 4C 34 33 20 20 |NE L37.9..7L43 |
00000730: 20 43 4D 50 20 23 24 32 30 00 4B 0F DC 37 3A 20 | CMP #$20.K..7: |
00000740: 20 20 20 20 42 45 51 20 4C 37 45 00 5B 0F 0E 38 | BEQ L7E.[..8|
00000750: 3A 20 20 20 20 20 53 54 41 20 38 00 6E 0F 40 38 |: STA 8.n.@8|
00000760: 3A 20 20 20 20 20 43 4D 50 20 23 24 32 32 00 80 |: CMP #$22..|
00000770: 0F 72 38 3A 20 20 20 20 20 42 45 51 20 4C 41 33 |.r8: BEQ LA3|
00000780: 00 91 0F A4 38 3A 20 20 20 20 20 42 49 54 20 24 |....8: BIT $|
00000790: 46 00 A3 0F D6 38 3A 20 20 20 20 20 42 56 53 20 |F....8: BVS |
000007A0: 4C 37 45 00 B6 0F 08 39 3A 20 20 20 20 20 43 4D |L7E....9: CM|
000007B0: 50 20 23 24 33 46 00 C8 0F 3A 39 3A 20 20 20 20 |P #$3F...:9: |
000007C0: 20 42 4E 45 20 4C 35 39 00 DB 0F 6C 39 3A 20 20 | BNE L59...l9: |
000007D0: 20 20 20 4C 44 41 20 23 24 39 39 00 ED 0F 9E 39 | LDA #$99....9|
000007E0: 3A 20 20 20 20 20 42 4E 45 20 4C 37 45 00 00 10 |: BNE L7E...|
000007F0: D0 39 4C 35 39 20 20 20 43 4D 50 20 23 24 33 30 |.9L59 CMP #$30|
00000800: 00 12 10 02 3A 3A 20 20 20 20 20 42 43 43 20 4C |....:: BCC L|
00000810: 36 31 00 25 10 34 3A 3A 20 20 20 20 20 43 4D 50 |61.%.4:: CMP|
00000820: 20 23 24 33 43 00 37 10 66 3A 3A 20 20 20 20 20 | #$3C.7.f:: |
00000830: 42 43 43 20 4C 37 45 00 49 10 98 3A 4C 36 31 20 |BCC L7E.I..:L61 |
00000840: 20 20 53 54 59 20 24 37 31 00 5A 10 CA 3A 3A 20 | STY $71.Z..:: |
00000850: 20 20 20 20 4C 44 59 20 23 30 00 6B 10 FC 3A 3A | LDY #0.k..::|
00000860: 20 20 20 20 20 53 54 59 20 24 42 00 79 10 2E 3B | STY $B.y..;|
00000870: 3A 20 20 20 20 20 44 45 59 00 8B 10 60 3B 3A 20 |: DEY...`;: |
00000880: 20 20 20 20 53 54 58 20 24 37 41 00 99 10 92 3B | STX $7A....;|
00000890: 3A 20 20 20 20 20 44 45 58 00 A7 10 C4 3B 4C 36 |: DEX....;L6|
000008A0: 42 20 20 20 49 4E 59 00 B5 10 F6 3B 3A 20 20 20 |B INY....;: |
000008B0: 20 20 49 4E 58 00 CA 10 28 3C 4C 36 44 20 20 20 | INX...(<L6D |
000008C0: 4C 44 41 20 24 32 30 30 2C 58 00 D8 10 5A 3C 3A |LDA $200,X...Z<:|
000008D0: 20 20 20 20 20 53 45 43 00 EE 10 8C 3C 3A 20 20 | SEC....<: |
000008E0: 20 20 20 53 42 43 20 24 41 30 39 45 2C 59 00 00 | SBC $A09E,Y..|
000008F0: 11 BE 3C 3A 20 20 20 20 20 42 45 51 20 4C 36 42 |..<: BEQ L6B|
00000900: 00 13 11 F0 3C 3A 20 20 20 20 20 43 4D 50 20 23 |....<: CMP #|
00000910: 24 38 30 00 25 11 22 3D 3A 20 20 20 20 20 42 4E |$80.%."=: BN|
00000920: 45 20 4C 41 41 00 35 11 54 3D 4C 37 41 20 20 20 |E LAA.5.T=L7A |
00000930: B0 41 20 24 42 00 47 11 86 3D 4C 37 43 20 20 20 |.A $B.G..=L7C |
00000940: 4C 44 59 20 24 37 31 00 55 11 B8 3D 4C 37 45 20 |LDY $71.U..=L7E |
00000950: 20 20 49 4E 58 00 63 11 EA 3D 3A 20 20 20 20 20 | INX.c..=: |
00000960: 49 4E 59 00 78 11 1C 3E 3A 20 20 20 20 20 53 54 |INY.x..>: ST|
00000970: 41 20 24 31 46 42 2C 59 00 89 11 4E 3E 3A 20 20 |A $1FB,Y...N>: |
00000980: 20 20 20 AF 20 23 24 46 46 00 9B 11 80 3E 3A 20 | . #$FF....>: |
00000990: 20 20 20 20 42 45 51 20 4C 45 31 00 A9 11 B2 3E | BEQ LE1....>|
000009A0: 3A 20 20 20 20 20 53 45 43 00 BC 11 E4 3E 3A 20 |: SEC....>: |
000009B0: 20 20 20 20 53 42 43 20 23 24 33 41 00 CE 11 16 | SBC #$3A....|
000009C0: 3F 3A 20 20 20 20 20 42 45 51 20 4C 39 31 00 E1 |?: BEQ L91..|
000009D0: 11 48 3F 3A 20 20 20 20 20 43 4D 50 20 23 24 34 |.H?: CMP #$4|
000009E0: 39 00 F3 11 7A 3F 3A 20 20 20 20 20 42 4E 45 20 |9...z?: BNE |
000009F0: 4C 39 33 00 04 12 AC 3F 4C 39 31 20 20 20 53 54 |L93....?L91 ST|
00000A00: 41 20 24 46 00 12 12 DE 3F 4C 39 33 20 20 20 53 |A $F....?L93 S|
00000A10: 45 43 00 25 12 10 40 3A 20 20 20 20 20 53 42 43 |EC.%..@: SBC|
00000A20: 20 23 24 35 35 00 37 12 42 40 3A 20 20 20 20 20 | #$55.7.B@: |
00000A30: 42 4E 45 20 4C 33 37 00 47 12 74 40 3A 20 20 20 |BNE L37.G.t@: |
00000A40: 20 20 53 54 41 20 38 00 5C 12 A6 40 4C 39 41 20 | STA 8.\..@L9A |
00000A50: 20 20 4C 44 41 20 24 32 30 30 2C 58 00 6E 12 D8 | LDA $200,X.n..|
00000A60: 40 3A 20 20 20 20 20 42 45 51 20 4C 37 45 00 7E |@: BEQ L7E.~|
00000A70: 12 0A 41 3A 20 20 20 20 20 43 4D 50 20 38 00 90 |..A: CMP 8..|
00000A80: 12 3C 41 3A 20 20 20 20 20 42 45 51 20 4C 37 45 |.<A: BEQ L7E|
00000A90: 00 9E 12 6E 41 4C 41 33 20 20 20 49 4E 59 00 B3 |...nALA3 INY..|
00000AA0: 12 A0 41 3A 20 20 20 20 20 53 54 41 20 24 31 46 |..A: STA $1F|
00000AB0: 42 2C 59 00 C1 12 D2 41 3A 20 20 20 20 20 49 4E |B,Y....A: IN|
00000AC0: 58 00 D3 12 04 42 3A 20 20 20 20 20 42 4E 45 20 |X....B: BNE |
00000AD0: 4C 39 41 00 E5 12 36 42 4C 41 41 20 20 20 4C 44 |L9A...6BLAA LD|
00000AE0: 58 20 24 37 41 00 F6 12 68 42 3A 20 20 20 20 20 |X $7A...hB: |
00000AF0: 49 4E 43 20 24 42 00 04 13 9A 42 4C 41 45 20 20 |INC $B....BLAE |
00000B00: 20 49 4E 59 00 1A 13 CC 42 3A 20 20 20 20 20 4C | INY....B: L|
00000B10: 44 41 20 24 41 30 39 44 2C 59 00 2C 13 FE 42 3A |DA $A09D,Y.,..B:|
00000B20: 20 20 20 20 20 42 50 4C 20 4C 41 45 00 42 13 30 | BPL LAE.B.0|
00000B30: 43 3A 20 20 20 20 20 4C 44 41 20 24 41 30 39 45 |C: LDA $A09E|
00000B40: 2C 59 00 54 13 62 43 3A 20 20 20 20 20 42 4E 45 |,Y.T.bC: BNE|
00000B50: 20 4C 36 44 00 67 13 94 43 3A 20 20 20 20 20 4C | L6D.g..C: L|
00000B60: 44 59 20 23 24 46 46 00 75 13 C6 43 3A 20 20 20 |DY #$FF.u..C: |
00000B70: 20 20 44 45 58 00 83 13 F8 43 4C 42 43 20 20 20 | DEX....CLBC |
00000B80: 49 4E 58 00 91 13 2A 44 3A 20 20 20 20 20 49 4E |INX...*D: IN|
00000B90: 59 00 A6 13 5C 44 4C 42 45 20 20 20 4C 44 41 20 |Y...\DLBE LDA |
00000BA0: 24 32 30 30 2C 58 00 B4 13 8E 44 3A 20 20 20 20 |$200,X....D: |
00000BB0: 20 53 45 43 00 C8 13 C0 44 3A 20 20 20 20 20 53 | SEC....D: S|
00000BC0: 42 43 20 42 45 46 2C 59 00 DA 13 F2 44 3A 20 20 |BC BEF,Y....D: |
00000BD0: 20 20 20 42 45 51 20 4C 42 43 00 ED 13 24 45 3A | BEQ LBC...$E:|
00000BE0: 20 20 20 20 20 43 4D 50 20 23 24 38 30 00 FF 13 | CMP #$80...|
00000BF0: 56 45 3A 20 20 20 20 20 42 45 51 20 4C 37 41 00 |VE: BEQ L7A.|
00000C00: 11 14 88 45 3A 20 20 20 20 20 4C 44 58 20 24 37 |...E: LDX $7|
00000C10: 41 00 22 14 BA 45 3A 20 20 20 20 20 49 4E 43 20 |A."..E: INC |
00000C20: 24 42 00 30 14 EC 45 4C 44 31 20 20 20 49 4E 59 |$B.0..ELD1 INY|
00000C30: 00 46 14 1E 46 3A 20 20 20 20 20 4C 44 41 20 42 |.F..F: LDA B|
00000C40: 45 46 AB 31 2C 59 00 58 14 50 46 3A 20 20 20 20 |EF.1,Y.X.PF: |
00000C50: 20 42 50 4C 20 4C 44 31 00 6C 14 82 46 3A 20 20 | BPL LD1.l..F: |
00000C60: 20 20 20 4C 44 41 20 42 45 46 2C 59 00 7E 14 B4 | LDA BEF,Y.~..|
00000C70: 46 3A 20 20 20 20 20 42 4E 45 20 4C 42 45 00 93 |F: BNE LBE..|
00000C80: 14 E6 46 3A 20 20 20 20 20 4C 44 41 20 24 32 30 |..F: LDA $20|
00000C90: 30 2C 58 00 A5 14 18 47 3A 20 20 20 20 20 42 50 |0,X....G: BP|
00000CA0: 4C 20 4C 37 43 00 B9 14 4A 47 4C 45 31 20 20 20 |L L7C...JGLE1 |
00000CB0: 4A 4D 50 20 24 41 36 30 39 00 BF 14 7C 47 3A 00 |JMP $A609...|G:.|
00000CC0: DF 14 AE 47 8B 20 20 20 20 4A 53 52 20 24 41 44 |...G. JSR $AD|
00000CD0: 41 36 20 20 20 3B 47 52 41 80 45 52 54 45 52 00 |A6 ;GRA.ERTER.|
00000CE0: FE 14 E0 47 3A 20 20 20 20 20 4A 53 52 20 43 48 |...G: JSR CH|
00000CF0: 52 CB 54 20 20 3B 8B AB 42 45 46 45 48 4C 00 21 |R.T ;..BEFEHL.!|
00000D00: 15 12 48 3A 20 20 20 20 20 43 4D 50 20 23 24 41 |..H: CMP #$A|
00000D10: 37 20 20 20 20 3B 56 47 4C 20 52 4F 4D 9B 49 4E |7 ;VGL ROM.IN|
00000D20: 47 00 32 15 44 48 3A 20 20 20 20 20 42 4E 45 20 |G.2.DH: BNE |
00000D30: 89 46 00 45 15 76 48 3A 20 20 20 20 20 4A 53 52 |.F.E.vH: JSR|
00000D40: 20 43 48 52 A1 00 54 15 A8 48 89 46 20 4C 44 41 | CHR..T..H.F LDA|
00000D50: 20 24 36 31 00 67 15 DA 48 3A 20 20 20 20 20 42 | $61.g..H: B|
00000D60: 4E 45 20 57 41 48 52 00 77 15 0C 49 3A 20 20 20 |NE WAHR.w..I: |
00000D70: 20 20 4A 53 52 20 8F 00 8B 15 3E 49 3A 20 20 20 | JSR ....>I: |
00000D80: 20 20 4A 4D 50 20 24 41 37 41 45 00 9F 15 70 49 | JMP $A7AE...pI|
00000D90: 57 41 48 52 20 20 4A 53 52 20 43 48 52 CB 54 00 |WAHR JSR CHR.T.|
00000DA0: B3 15 A2 49 3A 20 20 20 20 20 42 43 53 20 46 52 |...I: BCS FR|
00000DB0: 4F 4D 8B 00 C7 15 D4 49 3A 20 20 20 20 20 4A 53 |OM.....I: JS|
00000DC0: 52 20 24 41 38 41 30 00 DB 15 06 4A 3A 20 20 20 |R $A8A0....J: |
00000DD0: 20 20 4A 4D 50 20 24 41 37 41 45 00 E1 15 38 4A | JMP $A7AE...8J|
00000DE0: 3A 00 04 16 6A 4A 42 45 46 45 52 4B 20 4A 53 52 |:...jJBEFERK JSR|
00000DF0: 20 43 48 52 A1 20 3B 42 45 46 45 48 4C 45 20 41 | CHR. ;BEFEHLE A|
00000E00: 55 53 46 2E 00 1E 16 9C 4A 46 52 4F 4D 8B 20 43 |USF.....JFROM. C|
00000E10: 4D 50 20 23 24 38 42 20 20 20 3B 8B 22 3F 00 3A |MP #$8B ;."?.:|
00000E20: 16 CE 4A 3A 20 20 20 20 20 20 42 45 51 20 8B 20 |..J: BEQ . |
00000E30: 20 20 20 20 3B 4A 41 20 B2 B1 00 5D 16 00 4B 3A | ;JA ...]..K:|
00000E40: 20 20 20 20 20 20 43 4D 50 20 23 32 30 34 20 20 | CMP #204 |
00000E50: 20 3B 45 52 57 45 49 54 45 8A 47 22 3F 00 7A 16 | ;ERWEITE.G"?.z.|
00000E60: 32 4B 3A 20 20 20 20 20 20 42 43 53 20 41 4E 46 |2K: BCS ANF|
00000E70: 55 20 20 20 3B 4A 41 20 B2 B1 00 9A 16 64 4B 45 |U ;JA .....dKE|
00000E80: 52 52 42 20 20 20 4A 53 52 20 43 48 52 CB 54 20 |RRB JSR CHR.T |
00000E90: 3B 27 4E B0 4D 41 4C 45 52 27 00 B8 16 96 4B 3A |;'N.MALER'....K:|
00000EA0: 20 20 20 20 20 20 4A 4D 50 20 24 41 37 45 37 20 | JMP $A7E7 |
00000EB0: 20 3B 42 45 46 45 48 4C 00 BE 16 C8 4B 3A 00 DF | ;BEFEHL....K:..|
00000EC0: 16 FA 4B 41 4E 46 55 20 20 20 43 4D 50 20 23 32 |..KANFU CMP #2|
00000ED0: 32 34 20 20 20 3B 46 55 4E 4B 54 49 91 22 3F 00 |24 ;FUNKTI."?.|
00000EE0: 05 17 2C 4C 3A 20 20 20 20 20 20 42 43 53 20 45 |..,L: BCS E|
00000EF0: 52 52 42 20 20 20 3B 4A 41 B1 53 59 4E 54 41 58 |RRB ;JA.SYNTAX|
00000F00: 20 45 52 52 2E 00 2B 17 5E 4C 3A 20 20 20 20 20 | ERR..+.^L: |
00000F10: 20 53 42 43 20 23 32 30 33 20 20 20 3B 42 45 46 | SBC #203 ;BEF|
00000F20: 45 48 4C 53 41 44 52 45 53 53 45 00 4C 17 90 4C |EHLSADRESSE.L..L|
00000F30: 3A 20 20 20 20 20 20 41 53 4C 20 20 20 20 20 20 |: ASL |
00000F40: 20 20 3B 42 45 52 45 43 48 4E 45 4E 00 5B 17 C2 | ;BERECHNEN.[..|
00000F50: 4C 3A 20 20 20 20 20 20 54 41 58 00 7C 17 F4 4C |L: TAX.|..L|
00000F60: 3A 20 20 20 20 20 20 4C 44 41 20 54 41 42 32 2C |: LDA TAB2,|
00000F70: 58 20 3B 41 4C 53 20 53 50 8A 47 AB 00 9D 17 26 |X ;ALS SP.G....&|
00000F80: 4D 3A 20 20 20 20 20 20 53 54 41 20 42 45 58 45 |M: STA BEXE|
00000F90: AA 31 20 20 20 20 20 3B 56 45 4B A4 52 00 B5 17 |.1 ;VEK.R...|
00000FA0: 58 4D 3A 20 20 20 20 20 20 4C 44 41 20 54 41 42 |XM: LDA TAB|
00000FB0: 32 AA 31 2C 58 00 CB 17 8A 4D 3A 20 20 20 20 20 |2.1,X....M: |
00000FC0: 20 53 54 41 20 42 45 58 45 AA 32 00 DF 17 BC 4D | STA BEXE.2....M|
00000FD0: 3A 20 20 20 20 20 20 4A 53 52 20 43 48 52 A1 00 |: JSR CHR..|
00000FE0: 01 18 EE 4D 42 45 58 45 20 20 20 4A 53 52 20 24 |...MBEXE JSR $|
00000FF0: 46 46 46 46 20 20 3B 41 55 53 46 55 45 48 52 45 |FFFF ;AUSFUEHRE|
00001000: 4E 00 25 18 20 4E 4E 42 45 46 20 20 20 4A 4D 50 |N.%. NNBEF JMP|
00001010: 20 24 41 37 41 45 20 20 3B 57 45 49 54 45 52 4D | $A7AE ;WEITERM|
00001020: 41 43 48 45 4E 00 2B 18 52 4E 3A 00 31 18 84 4E |ACHEN.+.RN:.1..N|
00001030: 3A 00 56 18 B6 4E 46 4B 54 45 52 4B 20 4C 44 41 |:.V..NFKTERK LDA|
00001040: 20 23 30 20 20 20 20 20 3B 41 55 53 44 52 55 43 | #0 ;AUSDRUC|
00001050: 4B 20 41 55 53 AB 00 74 18 E8 4E 3A 20 20 20 20 |K AUS..t..N: |
00001060: 20 20 53 54 41 20 24 30 44 20 20 20 20 3B 57 45 | STA $0D ;WE|
00001070: 52 54 45 4E 00 95 18 1A 4F 3A 20 20 20 20 20 20 |RTEN....O: |
00001080: 4A 53 52 20 43 48 52 A1 20 3B 56 47 4C 20 52 4F |JSR CHR. ;VGL RO|
00001090: 4D 9B 49 4E 47 00 B8 18 4C 4F 3A 20 20 20 20 20 |M.ING...LO: |
000010A0: 20 43 4D 50 20 23 32 33 30 20 20 20 3B 45 52 57 | CMP #230 ;ERW|
000010B0: 45 49 54 45 8A 47 22 3F 00 D3 18 7E 4F 3A 20 20 |EITE.G"?...~O: |
000010C0: 20 20 20 20 42 43 53 20 41 B7 20 20 20 3B 4A 41 | BCS A. ;JA|
000010D0: 20 B2 B1 00 F2 18 B0 4F 50 49 49 20 20 20 20 4A | ......OPII J|
000010E0: 53 52 20 43 48 52 CB 54 20 3B 27 4E B0 4D 41 4C |SR CHR.T ;'N.MAL|
000010F0: 45 27 00 11 19 E2 4F 3A 20 20 20 20 20 20 4A 4D |E'....O: JM|
00001100: 50 20 24 41 45 38 44 20 20 3B 46 55 4E 4B 54 49 |P $AE8D ;FUNKTI|
00001110: 91 00 2A 19 14 50 41 B7 20 20 20 43 4D 50 20 23 |..*..PA. CMP #|
00001120: 24 46 46 20 20 20 3B FF 22 3F 00 47 19 46 50 3A |$FF ;."?.G.FP:|
00001130: 20 20 20 20 20 20 42 45 51 20 50 49 49 20 20 20 | BEQ PII |
00001140: 20 3B 4A 41 20 B2 B1 00 68 19 78 50 3A 20 20 20 | ;JA ...h.xP: |
00001150: 20 20 20 53 45 43 20 20 20 20 20 20 20 20 3B 53 | SEC ;S|
00001160: 50 8A 47 56 45 4B A4 52 00 89 19 AA 50 3A 20 20 |P.GVEK.R....P: |
00001170: 20 20 20 20 53 42 43 20 23 32 33 30 20 20 20 3B | SBC #230 ;|
00001180: 42 45 52 45 43 48 4E 45 4E 00 98 19 DC 50 3A 20 |BERECHNEN....P: |
00001190: 20 20 20 20 20 41 53 4C 00 A7 19 0E 51 3A 20 20 | ASL....Q: |
000011A0: 20 20 20 20 54 41 58 00 BF 19 40 51 3A 20 20 20 | TAX...@Q: |
000011B0: 20 20 20 4C 44 41 20 54 41 42 34 AA 31 2C 58 00 | LDA TAB4.1,X.|
000011C0: CE 19 72 51 3A 20 20 20 20 20 20 50 48 41 00 E4 |..rQ: PHA..|
000011D0: 19 A4 51 3A 20 20 20 20 20 20 4C 44 41 20 54 41 |..Q: LDA TA|
000011E0: 42 34 2C 58 00 F3 19 D6 51 3A 20 20 20 20 20 20 |B4,X....Q: |
000011F0: 50 48 41 00 15 1A 08 52 3A 20 20 20 20 20 20 4A |PHA....R: J|
00001200: 4D 50 20 43 48 52 A1 20 3B 46 55 4E 4B 54 49 91 |MP CHR. ;FUNKTI.|
00001210: 53 57 45 52 54 00 1B 1A 3A 52 3A 00 21 1A 6C 52 |SWERT...:R:.!.lR|
00001220: 3A 00 36 1A 9E 52 50 4F 55 54 20 20 20 4A 4D 50 |:.6..RPOUT JMP|
00001230: 20 24 41 36 46 33 00 57 1A D0 52 9B 20 20 20 42 | $A6F3.W..R. B|
00001240: 50 4C 20 50 4F 55 54 20 3B 4B 4C 41 52 54 45 58 |PL POUT ;KLARTEX|
00001250: 54 57 AF 4C 55 4E 47 00 78 1A 02 53 3A 20 20 20 |TW.LUNG.x..S: |
00001260: 20 20 20 43 4D 50 20 23 24 46 46 20 3B 56 47 4C | CMP #$FF ;VGL|
00001270: 20 52 4F 4D 9B 49 4E 47 00 8C 1A 34 53 3A 20 20 | ROM.ING...4S: |
00001280: 20 20 20 20 42 45 51 20 50 4F 55 54 00 9F 1A 66 | BEQ POUT...f|
00001290: 53 3A 20 20 20 20 20 20 42 49 54 20 24 30 46 00 |S: BIT $0F.|
000012A0: B3 1A 98 53 3A 20 20 20 20 20 20 42 4D 49 20 50 |...S: BMI P|
000012B0: 4F 55 54 00 D6 1A CA 53 3A 20 20 20 20 20 20 43 |OUT....S: C|
000012C0: 4D 50 20 23 32 30 34 20 20 20 3B 45 52 57 45 49 |MP #204 ;ERWEI|
000012D0: 54 45 8A 47 22 3F 00 F0 1A FC 53 3A 20 20 20 20 |TE.G"?....S: |
000012E0: 20 20 42 43 53 20 9B 45 52 20 3B 4A 41 20 B2 B1 | BCS .ER ;JA ..|
000012F0: 00 0F 1B 2E 54 3A 20 20 20 20 20 20 4A 4D 50 20 |....T: JMP |
00001300: 24 41 37 32 34 20 20 3B 9B 20 4E B0 4D 41 4C 00 |$A724 ;. N.MAL.|
00001310: 2F 1B 60 54 9B 45 52 20 53 54 59 20 24 34 39 20 |/.`T.ER STY $49 |
00001320: 20 20 20 3B 9B 20 45 52 57 45 49 54 45 52 2E 00 | ;. ERWEITER..|
00001330: 3E 1B 92 54 3A 20 20 20 20 20 20 53 45 43 00 61 |>..T: SEC.a|
00001340: 1B C4 54 3A 20 20 20 20 20 20 53 42 43 20 23 32 |..T: SBC #2|
00001350: 30 33 20 20 20 3B 56 47 4C 20 52 4F 4D 9B 49 4E |03 ;VGL ROM.IN|
00001360: 47 00 70 1B F6 54 3A 20 20 20 20 20 20 54 41 58 |G.p..T: TAX|
00001370: 00 84 1B 28 55 3A 20 20 20 20 20 20 4C 44 59 20 |...(U: LDY |
00001380: 23 24 46 46 00 A9 1B 5A 55 4C 4F 50 20 20 20 20 |#$FF...ZULOP |
00001390: 44 45 58 20 20 20 20 20 20 20 3B 57 B0 54 20 47 |DEX ;W.T G|
000013A0: 45 46 55 4E 44 45 4E 22 3F 00 C5 1B 8C 55 3A 20 |EFUNDEN"?....U: |
000013B0: 20 20 20 20 20 42 45 51 20 4F 55 54 20 20 20 3B | BEQ OUT ;|
000013C0: 4A 41 20 B2 B1 00 E5 1B BE 55 4C 4F 50 50 20 20 |JA ......ULOPP |
000013D0: 20 49 4E 59 20 20 20 20 20 20 20 3B 4E 41 45 43 | INY ;NAEC|
000013E0: 48 53 54 45 53 00 FF 1B F0 55 3A 20 20 20 20 20 |HSTES....U: |
000013F0: 20 4C 44 41 20 42 45 46 2C 59 20 3B 57 B0 54 00 | LDA BEF,Y ;W.T.|
00001400: 1C 1C 22 56 3A 20 20 20 20 20 20 42 50 4C 20 4C |.."V: BPL L|
00001410: 4F 50 50 20 20 3B 53 55 43 48 45 4E 00 2F 1C 54 |OPP ;SUCHEN./.T|
00001420: 56 3A 20 20 20 20 20 20 42 4D 49 20 4C 4F 50 00 |V: BMI LOP.|
00001430: 52 1C 86 56 4F 55 54 20 20 20 20 49 4E 59 20 20 |R..VOUT INY |
00001440: 20 20 20 20 20 3B 57 B0 54 20 41 55 53 47 45 42 | ;W.T AUSGEB|
00001450: 45 4E 00 67 1C B8 56 3A 20 20 20 20 20 20 4C 44 |EN.g..V: LD|
00001460: 41 20 42 45 46 2C 59 00 79 1C EA 56 3A 20 20 20 |A BEF,Y.y..V: |
00001470: 20 20 20 42 4D 49 20 80 50 00 8E 1C 1C 57 3A 20 | BMI .P....W: |
00001480: 20 20 20 20 20 4A 53 52 20 24 41 42 34 37 00 A1 | JSR $AB47..|
00001490: 1C 4E 57 3A 20 20 20 20 20 20 42 4E 45 20 4F 55 |.NW: BNE OU|
000014A0: 54 00 BC 1C 80 57 80 50 20 20 20 4A 4D 50 20 24 |T....W.P JMP $|
000014B0: 41 36 45 46 20 3B 46 45 52 54 49 47 00 C2 1C B2 |A6EF ;FERTIG....|
000014C0: 57 3A 00 C8 1C E4 57 3A 00 E9 1C 16 58 3B 55 4E |W:....W:....X;UN|
000014D0: 54 45 52 52 4F 55 54 49 4E 45 4E 20 44 45 52 20 |TERROUTINEN DER |
000014E0: 45 52 57 45 49 54 45 8A 47 00 EF 1C 48 58 3A 00 |ERWEITE.G...HX:.|
000014F0: 0D 1D 7A 58 52 4F 4D 4F 46 20 20 53 45 49 20 20 |..zXROMOF SEI |
00001500: 20 20 20 20 3B 52 4F 4D 53 20 41 55 53 00 21 1D | ;ROMS AUS.!.|
00001510: AC 58 3A 20 20 20 20 20 20 4C 44 41 20 23 24 32 |.X: LDA #$2|
00001520: 35 00 35 1D DE 58 3A 20 20 20 20 20 20 2E 42 59 |5.5..X: .BY|
00001530: 54 20 24 32 43 00 3B 1D 10 59 3A 00 5D 1D 42 59 |T $2C.;..Y:.].BY|
00001540: 42 41 53 4F 46 20 20 4C 44 41 20 23 24 33 36 20 |BASOF LDA #$36 |
00001550: 3B 42 41 53 49 43 52 4F 4D 20 41 55 53 00 71 1D |;BASICROM AUS.q.|
00001560: 74 59 3A 20 20 20 20 20 20 4C 44 59 20 23 24 32 |tY: LDY #$2|
00001570: 46 00 82 1D A6 59 3A 20 20 20 20 20 20 53 54 59 |F....Y: STY|
00001580: 20 30 00 93 1D D8 59 3A 20 20 20 20 20 20 53 54 | 0....Y: ST|
00001590: 41 20 31 00 A2 1D 0A 5A 3A 20 20 20 20 20 20 52 |A 1....Z: R|
000015A0: 54 53 00 A8 1D 3C 5A 3A 00 C6 1D 6E 5A 52 4F 4D |TS...<Z:...nZROM|
000015B0: 49 4E 20 20 4C 44 41 20 23 24 33 37 20 3B 52 4F |IN LDA #$37 ;RO|
000015C0: 4D 53 20 45 49 4E 00 DA 1D A0 5A 3A 20 20 20 20 |MS EIN....Z: |
000015D0: 20 20 4C 44 59 20 23 24 32 46 00 EB 1D D2 5A 3A | LDY #$2F....Z:|
000015E0: 20 20 20 20 20 20 53 54 59 20 30 00 FC 1D 04 5B | STY 0....[|
000015F0: 3A 20 20 20 20 20 20 53 54 41 20 31 00 0B 1E 36 |: STA 1...6|
00001600: 5B 3A 20 20 20 20 20 20 43 4C 49 00 1A 1E 68 5B |[: CLI...h[|
00001610: 3A 20 20 20 20 20 20 52 54 53 00 20 1E 9A 5B 3A |: RTS. ..[:|
00001620: 00 40 1E CC 5B A1 43 4F 4C 20 20 4A 53 52 20 A1 |.@..[.COL JSR .|
00001630: 42 59 54 20 3B 5A 45 49 43 45 4E 4D 4F 44 55 53 |BYT ;ZEICENMODUS|
00001640: 00 64 1E FE 5B 3A 20 20 20 20 20 20 20 54 58 41 |.d..[: TXA|
00001650: 20 20 20 20 20 20 20 20 3B 46 2E 20 47 52 41 50 | ;F. GRAP|
00001660: 48 49 43 AB 00 84 1E 30 5C 3A 20 20 20 20 20 20 |HIC....0\: |
00001670: 20 4C 53 52 20 20 20 20 20 20 20 20 3B 42 45 46 | LSR ;BEF|
00001680: 45 48 4C 45 00 93 1E 62 5C 3A 20 20 20 20 20 20 |EHLE...b\: |
00001690: 20 52 B0 00 A2 1E 94 5C 3A 20 20 20 20 20 20 20 | R.....\: |
000016A0: 52 B0 00 C2 1E C6 5C 3A 20 20 20 20 20 20 20 53 |R.....\: S|
000016B0: 54 41 20 46 31 20 20 20 20 20 3B 4E 41 43 48 20 |TA F1 ;NACH |
000016C0: 46 31 00 D2 1E F8 5C 3A 20 20 20 20 20 20 20 52 |F1....\: R|
000016D0: 54 53 00 D8 1E 2A 5D 3A 00 F7 1E 5C 5D A1 4B 4F |TS...*]:...\].KO|
000016E0: 4F 20 20 20 4A 53 52 20 A1 41 44 42 20 3B 58 AD |O JSR .ADB ;X.|
000016F0: 59 AB 4B 4F B0 44 2E 00 1C 1F 8E 5D 3A 20 20 20 |Y.KO.D.....]: |
00001700: 20 20 20 20 20 43 50 58 20 23 32 30 30 20 20 20 | CPX #200 |
00001710: 3B 45 49 4E 4C 45 53 45 4E 20 55 2E 00 42 1F C0 |;EINLESEN U..B..|
00001720: 5D 3A 20 20 20 20 20 20 20 20 42 43 53 20 49 4C |]: BCS IL|
00001730: 47 4C 31 20 20 3B 41 55 46 20 47 55 45 4C 54 49 |GL1 ;AUF GUELTI|
00001740: 47 AB 00 67 1F F2 5D 3A 20 20 20 20 20 20 20 20 |G..g..]: |
00001750: 4C 44 59 20 24 31 34 20 20 20 20 3B 4B 45 49 54 |LDY $14 ;KEIT|
00001760: 20 54 45 53 54 45 4E 00 7C 1F 24 5E 3A 20 20 20 | TESTEN.|.$^: |
00001770: 20 20 20 20 20 4C 44 41 20 24 31 35 00 90 1F 56 | LDA $15...V|
00001780: 5E 3A 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 |^: CMP #1|
00001790: 00 A5 1F 88 5E 3A 20 20 20 20 20 20 20 20 42 43 |....^: BC|
000017A0: 43 20 4F 4B 31 00 BC 1F BA 5E 3A 20 20 20 20 20 |C OK1....^: |
000017B0: 20 20 20 42 4E 45 20 49 4C 47 4C 31 00 D1 1F EC | BNE ILGL1....|
000017C0: 5E 3A 20 20 20 20 20 20 20 20 43 50 59 20 23 36 |^: CPY #6|
000017D0: 34 00 E8 1F 1E 5F 3A 20 20 20 20 20 20 20 20 42 |4...._: B|
000017E0: 43 53 20 49 4C 47 4C 31 00 F9 1F 50 5F 4F 4B 31 |CS ILGL1...P_OK1|
000017F0: 20 20 20 20 20 20 52 54 53 00 FF 1F 82 5F 3A 00 | RTS...._:.|
00001800: 18 20 B4 5F A1 50 41 52 41 31 20 4A 53 52 20 A1 |. ._.PARA1 JSR .|
00001810: 4B 4F 4F 20 3B 48 4F C3 00 3B 20 E6 5F 3A 20 20 |KOO ;HO..; ._: |
00001820: 20 20 20 20 20 20 53 54 58 20 4C 59 4B 4F 4F 20 | STX LYKOO |
00001830: 20 3B 53 50 45 49 43 48 45 52 4E 00 54 20 18 60 | ;SPEICHERN.T .`|
00001840: 3A 20 20 20 20 20 20 20 20 53 54 41 20 4C 58 4B |: STA LXK|
00001850: 4F 4F AA 31 00 6B 20 4A 60 3A 20 20 20 20 20 20 |OO.1.k J`: |
00001860: 20 20 53 54 59 20 4C 58 4B 4F 4F 00 7C 20 7C 60 | STY LXKOO.| |`|
00001870: 3A 20 20 20 20 20 20 20 20 52 54 53 00 82 20 AE |: RTS.. .|
00001880: 60 3A 00 A4 20 E0 60 49 4C 47 4C 31 20 20 20 20 |`:.. .`ILGL1 |
00001890: 4C 44 58 20 23 24 30 45 20 20 20 20 3B 49 4C 4C |LDX #$0E ;ILL|
000018A0: 45 47 41 4C 00 C7 20 12 61 3A 20 20 20 20 20 20 |EGAL.. .a: |
000018B0: 20 20 4A 4D 50 20 57 52 4D 53 54 52 54 20 3B 51 | JMP WRMSTRT ;Q|
000018C0: 55 41 4E 54 49 54 59 00 CD 20 44 61 3A 00 ED 20 |UANTITY.. Da:.. |
000018D0: 76 61 A1 50 41 52 41 32 20 4A 53 52 20 A1 4B 4F |va.PARA2 JSR .KO|
000018E0: 4F 20 3B 56 47 4C 20 A1 50 41 52 41 31 00 04 21 |O ;VGL .PARA1..!|
000018F0: A8 61 3A 20 20 20 20 20 20 20 20 53 54 58 20 41 |.a: STX A|
00001900: 59 4B 4F 4F 00 1D 21 DA 61 3A 20 20 20 20 20 20 |YKOO..!.a: |
00001910: 20 20 53 54 41 20 41 58 4B 4F 4F AA 31 00 34 21 | STA AXKOO.1.4!|
00001920: 0C 62 3A 20 20 20 20 20 20 20 20 53 54 59 20 41 |.b: STY A|
00001930: 58 4B 4F 4F 00 45 21 3E 62 3A 20 20 20 20 20 20 |XKOO.E!>b: |
00001940: 20 20 52 54 53 00 4B 21 70 62 3A 00 6D 21 A2 62 | RTS.K!pb:.m!.b|
00001950: 42 45 52 50 4F B5 20 4C 44 58 20 4C 59 4B 4F 4F |BERPO. LDX LYKOO|
00001960: 20 20 3B 41 44 52 45 53 53 45 20 56 91 00 91 21 | ;ADRESSE V...!|
00001970: D4 62 3A 20 20 20 20 20 20 20 20 54 58 41 20 20 |.b: TXA |
00001980: 20 20 20 20 20 20 3B 48 49 52 45 53 50 55 4E 4B | ;HIRESPUNK|
00001990: 54 00 B2 21 06 63 3A 20 20 20 20 20 20 20 20 AF |T..!.c: .|
000019A0: 20 23 37 20 20 20 20 20 3B 42 45 52 45 43 48 4E | #7 ;BERECHN|
000019B0: 45 4E 00 C8 21 38 63 3A 20 20 20 20 20 20 20 20 |EN..!8c: |
000019C0: 53 54 41 20 41 42 4D 50 00 D9 21 6A 63 3A 20 20 |STA ABMP..!jc: |
000019D0: 20 20 20 20 20 20 54 58 41 00 EA 21 9C 63 3A 20 | TXA..!.c: |
000019E0: 20 20 20 20 20 20 20 4C 53 52 00 04 22 CE 63 3A | LSR..".c:|
000019F0: 20 20 20 20 20 20 20 20 AF 20 23 25 30 31 31 31 | . #%0111|
00001A00: 31 31 30 30 00 15 22 00 64 3A 20 20 20 20 20 20 |1100..".d: |
00001A10: 20 20 4C 53 52 00 26 22 32 64 3A 20 20 20 20 20 | LSR.&"2d: |
00001A20: 20 20 20 54 41 59 00 3D 22 64 64 3A 20 20 20 20 | TAY.="dd: |
00001A30: 20 20 20 20 4C 44 41 20 4C 58 4B 4F 4F 00 51 22 | LDA LXKOO.Q"|
00001A40: 96 64 3A 20 20 20 20 20 20 20 20 AF 20 23 24 46 |.d: . #$F|
00001A50: 38 00 66 22 C8 64 3A 20 20 20 20 20 20 20 20 B0 |8.f".d: .|
00001A60: 41 20 41 42 4D 50 00 7E 22 FA 64 3A 20 20 20 20 |A ABMP.~".d: |
00001A70: 20 20 20 20 41 44 43 20 4D 41 50 31 2C 59 00 94 | ADC MAP1,Y..|
00001A80: 22 2C 65 3A 20 20 20 20 20 20 20 20 53 54 41 20 |",e: STA |
00001A90: 41 42 4D 50 00 AD 22 5E 65 3A 20 20 20 20 20 20 |ABMP.."^e: |
00001AA0: 20 20 4C 44 41 20 4C 58 4B 4F 4F AA 31 00 C7 22 | LDA LXKOO.1.."|
00001AB0: 90 65 3A 20 20 20 20 20 20 20 20 41 44 43 20 4D |.e: ADC M|
00001AC0: 41 50 31 AA 31 2C 59 00 DF 22 C2 65 3A 20 20 20 |AP1.1,Y..".e: |
00001AD0: 20 20 20 20 20 53 54 41 20 41 42 4D 50 AA 31 00 | STA ABMP.1.|
00001AE0: F6 22 F4 65 3A 20 20 20 20 20 20 20 20 4C 44 41 |.".e: LDA|
00001AF0: 20 4C 58 4B 4F 4F 00 08 23 26 66 3A 20 20 20 20 | LXKOO..#&f: |
00001B00: 20 20 20 20 AF 20 23 37 00 19 23 58 66 3A 20 20 | . #7..#Xf: |
00001B10: 20 20 20 20 20 20 54 41 59 00 31 23 8A 66 3A 20 | TAY.1#.f: |
00001B20: 20 20 20 20 20 20 20 4C 44 41 20 4D 41 50 32 2C | LDA MAP2,|
00001B30: 59 00 47 23 BC 66 3A 20 20 20 20 20 20 20 20 53 |Y.G#.f: S|
00001B40: 54 41 20 4D 41 53 4B 00 58 23 EE 66 3A 20 20 20 |TA MASK.X#.f: |
00001B50: 20 20 20 20 20 52 54 53 00 5E 23 20 67 3A 00 82 | RTS.^# g:..|
00001B60: 23 52 67 53 45 54 4D 41 53 4B 20 20 4C 44 59 20 |#RgSETMASK LDY |
00001B70: 23 30 20 20 20 20 3B 42 45 52 45 43 48 4E 45 54 |#0 ;BERECHNET|
00001B80: 45 4E 00 9C 23 84 67 3A 20 20 20 20 20 20 20 20 |EN..#.g: |
00001B90: 4C 44 41 20 28 41 42 4D 50 29 2C 59 00 C1 23 B6 |LDA (ABMP),Y..#.|
00001BA0: 67 3A 20 20 20 20 20 20 20 20 42 49 54 20 46 31 |g: BIT F1|
00001BB0: 20 20 20 20 3B 50 55 4E 4B 54 20 53 45 54 5A 45 | ;PUNKT SETZE|
00001BC0: 4E 00 D7 23 E8 67 3A 20 20 20 20 20 20 20 20 42 |N..#.g: B|
00001BD0: 4D 49 20 4F 50 54 31 00 EC 23 1A 68 3A 20 20 20 |MI OPT1..#.h: |
00001BE0: 20 20 20 20 20 B0 41 20 4D 41 53 4B 00 00 24 4C | .A MASK..$L|
00001BF0: 68 3A 20 20 20 20 20 20 20 20 42 49 54 20 46 31 |h: BIT F1|
00001C00: 00 16 24 7E 68 3A 20 20 20 20 20 20 20 20 42 56 |..$~h: BV|
00001C10: 53 20 4F 50 54 32 00 2C 24 B0 68 4F 50 54 31 20 |S OPT2.,$.hOPT1 |
00001C20: 20 20 20 20 42 56 53 20 4F 50 54 33 00 41 24 E2 | BVS OPT3.A$.|
00001C30: 68 3A 20 20 20 20 20 20 20 20 45 B0 20 4D 41 53 |h: E. MAS|
00001C40: 4B 00 5B 24 14 69 4F 50 54 32 20 20 20 20 20 53 |K.[$.iOPT2 S|
00001C50: 54 41 20 28 41 42 4D 50 29 2C 59 00 6C 24 46 69 |TA (ABMP),Y.l$Fi|
00001C60: 4F 50 54 33 20 20 20 20 20 52 54 53 00 72 24 78 |OPT3 RTS.r$x|
00001C70: 69 3A 00 96 24 AA 69 44 52 41 57 20 20 20 53 45 |i:..$.iDRAW SE|
00001C80: 43 20 20 20 20 20 20 20 20 3B 4C 49 4E 49 45 20 |C ;LINIE |
00001C90: 5A 49 45 48 45 4E 00 AE 24 DC 69 3A 20 20 20 20 |ZIEHEN..$.i: |
00001CA0: 20 20 4C 44 41 20 41 58 4B 4F 4F 20 20 3B 00 C3 | LDA AXKOO ;..|
00001CB0: 24 0E 6A 3A 20 20 20 20 20 20 53 42 43 20 4C 58 |$.j: SBC LX|
00001CC0: 4B 4F 4F 00 D6 24 40 6A 3A 20 20 20 20 20 20 53 |KOO..$@j: S|
00001CD0: 54 41 20 24 36 30 00 ED 24 72 6A 3A 20 20 20 20 |TA $60..$rj: |
00001CE0: 20 20 4C 44 41 20 41 58 4B 4F 4F AA 31 00 04 25 | LDA AXKOO.1..%|
00001CF0: A4 6A 3A 20 20 20 20 20 20 53 42 43 20 4C 58 4B |.j: SBC LXK|
00001D00: 4F 4F AA 31 00 17 25 D6 6A 3A 20 20 20 20 20 20 |OO.1..%.j: |
00001D10: 53 54 41 20 24 36 31 00 2C 25 08 6B 3A 20 20 20 |STA $61.,%.k: |
00001D20: 20 20 20 42 43 53 20 44 46 31 50 4C 00 3E 25 3A | BCS DF1PL.>%:|
00001D30: 6B 3A 20 20 20 20 20 20 4C 44 41 20 23 31 00 51 |k: LDA #1.Q|
00001D40: 25 6C 6B 3A 20 20 20 20 20 20 53 42 43 20 24 36 |%lk: SBC $6|
00001D50: 30 00 64 25 9E 6B 3A 20 20 20 20 20 20 53 54 41 |0.d%.k: STA|
00001D60: 20 24 36 30 00 76 25 D0 6B 3A 20 20 20 20 20 20 | $60.v%.k: |
00001D70: 4C 44 41 20 23 30 00 89 25 02 6C 3A 20 20 20 20 |LDA #0..%.l: |
00001D80: 20 20 53 42 43 20 24 36 31 00 9C 25 34 6C 3A 20 | SBC $61..%4l: |
00001D90: 20 20 20 20 20 53 54 41 20 24 36 31 00 AE 25 66 | STA $61..%f|
00001DA0: 6C 44 46 31 4F 4B 20 20 4C 44 58 20 23 34 00 C3 |lDF1OK LDX #4..|
00001DB0: 25 98 6C 3A 20 20 20 20 20 20 42 4E 45 20 45 4F |%.l: BNE EO|
00001DC0: 44 8B 31 00 D8 25 CA 6C 44 46 31 50 4C 20 20 42 |D.1..%.lDF1PL B|
00001DD0: 4E 45 20 44 46 31 4E 45 00 EB 25 FC 6C 3A 20 20 |NE DF1NE..%.l: |
00001DE0: 20 20 20 20 4C 44 41 20 24 36 30 00 00 26 2E 6D | LDA $60..&.m|
00001DF0: 3A 20 20 20 20 20 20 42 4E 45 20 44 46 31 4E 45 |: BNE DF1NE|
00001E00: 00 12 26 60 6D 3A 20 20 20 20 20 20 4C 44 58 20 |..&`m: LDX |
00001E10: 23 38 00 26 26 92 6D 3A 20 20 20 20 20 20 2E 42 |#8.&&.m: .B|
00001E20: 59 54 20 24 32 43 00 38 26 C4 6D 44 46 31 4E 45 |YT $2C.8&.mDF1NE|
00001E30: 20 20 4C 44 58 20 23 36 00 4D 26 F6 6D 45 4F 44 | LDX #6.M&.mEOD|
00001E40: 8B 31 20 4C 44 41 20 4D 41 50 33 2C 58 00 61 26 |.1 LDA MAP3,X.a&|
00001E50: 28 6E 3A 20 20 20 20 20 20 53 54 41 20 55 31 AA |(n: STA U1.|
00001E60: 31 00 79 26 5A 6E 3A 20 20 20 20 20 20 4C 44 41 |1.y&Zn: LDA|
00001E70: 20 4D 41 50 33 AA 31 2C 58 00 8D 26 8C 6E 3A 20 | MAP3.1,X..&.n: |
00001E80: 20 20 20 20 20 53 54 41 20 55 31 AA 32 00 9C 26 | STA U1.2..&|
00001E90: BE 6E 3A 20 20 20 20 20 20 53 45 43 00 B1 26 F0 |.n: SEC..&.|
00001EA0: 6E 3A 20 20 20 20 20 20 4C 44 41 20 41 59 4B 4F |n: LDA AYKO|
00001EB0: 4F 00 C6 26 22 6F 3A 20 20 20 20 20 20 53 42 43 |O..&"o: SBC|
00001EC0: 20 4C 59 4B 4F 4F 00 D9 26 54 6F 3A 20 20 20 20 | LYKOO..&To: |
00001ED0: 20 20 53 54 41 20 24 36 33 00 EE 26 86 6F 3A 20 | STA $63..&.o: |
00001EE0: 20 20 20 20 20 42 43 53 20 44 46 32 50 4C 00 01 | BCS DF2PL..|
00001EF0: 27 B8 6F 3A 20 20 20 20 20 20 45 B0 20 23 24 46 |'.o: E. #$F|
00001F00: 46 00 14 27 EA 6F 3A 20 20 20 20 20 20 53 54 41 |F..'.o: STA|
00001F10: 20 24 36 33 00 27 27 1C 70 3A 20 20 20 20 20 20 | $63.''.p: |
00001F20: 49 4E 43 20 24 36 33 00 39 27 4E 70 3A 20 20 20 |INC $63.9'Np: |
00001F30: 20 20 20 4C 44 58 20 23 30 00 4E 27 80 70 3A 20 | LDX #0.N'.p: |
00001F40: 20 20 20 20 20 42 45 51 20 45 4F 44 8B 32 00 63 | BEQ EOD.2.c|
00001F50: 27 B2 70 44 46 32 50 4C 20 20 42 4E 45 20 44 46 |'.pDF2PL BNE DF|
00001F60: 32 4E 45 00 75 27 E4 70 3A 20 20 20 20 20 20 4C |2NE.u'.p: L|
00001F70: 44 58 20 23 38 00 89 27 16 71 3A 20 20 20 20 20 |DX #8..'.q: |
00001F80: 20 2E 42 59 54 20 24 32 43 00 9B 27 48 71 44 46 | .BYT $2C..'HqDF|
00001F90: 32 4E 45 20 20 4C 44 58 20 23 32 00 B0 27 7A 71 |2NE LDX #2..'zq|
00001FA0: 45 4F 44 8B 32 20 4C 44 41 20 4D 41 50 33 2C 58 |EOD.2 LDA MAP3,X|
00001FB0: 00 C4 27 AC 71 3A 20 20 20 20 20 20 53 54 41 20 |..'.q: STA |
00001FC0: 56 31 AA 31 00 DC 27 DE 71 3A 20 20 20 20 20 20 |V1.1..'.q: |
00001FD0: 4C 44 41 20 4D 41 50 33 AA 31 2C 58 00 F0 27 10 |LDA MAP3.1,X..'.|
00001FE0: 72 3A 20 20 20 20 20 20 53 54 41 20 56 31 AA 32 |r: STA V1.2|
00001FF0: 00 03 28 42 72 3A 20 20 20 20 20 20 4C 44 41 20 |..(Br: LDA |
00002000: 24 36 31 00 16 28 74 72 3A 20 20 20 20 20 20 42 |$61..(tr: B|
00002010: 4E 45 20 4D 47 52 00 29 28 A6 72 3A 20 20 20 20 |NE MGR.)(.r: |
00002020: 20 20 4C 44 41 20 24 36 30 00 3C 28 D8 72 3A 20 | LDA $60.<(.r: |
00002030: 20 20 20 20 20 43 4D 50 20 24 36 33 00 4F 28 0A | CMP $63.O(.|
00002040: 73 3A 20 20 20 20 20 20 42 43 53 20 4D 47 52 00 |s: BCS MGR.|
00002050: 62 28 3C 73 3A 20 20 20 20 20 20 4C 44 41 20 24 |b(<s: LDA $|
00002060: 36 30 00 75 28 6E 73 3A 20 20 20 20 20 20 4C 44 |60.u(ns: LD|
00002070: 58 20 24 36 33 00 88 28 A0 73 3A 20 20 20 20 20 |X $63..(.s: |
00002080: 20 53 54 41 20 24 36 33 00 9B 28 D2 73 3A 20 20 | STA $63..(.s: |
00002090: 20 20 20 20 53 54 58 20 24 36 30 00 AF 28 04 74 | STX $60..(.t|
000020A0: 3A 20 20 20 20 20 20 42 43 43 20 53 45 54 53 00 |: BCC SETS.|
000020B0: C3 28 36 74 4D 47 52 20 20 20 20 4C 44 41 20 55 |.(6tMGR LDA U|
000020C0: 31 AA 31 00 D7 28 68 74 3A 20 20 20 20 20 20 4C |1.1..(ht: L|
000020D0: 44 58 20 56 31 AA 31 00 EB 28 9A 74 3A 20 20 20 |DX V1.1..(.t: |
000020E0: 20 20 20 53 54 41 20 56 31 AA 31 00 FF 28 CC 74 | STA V1.1..(.t|
000020F0: 3A 20 20 20 20 20 20 53 54 58 20 55 31 AA 31 00 |: STX U1.1.|
00002100: 13 29 FE 74 3A 20 20 20 20 20 20 4C 44 41 20 55 |.).t: LDA U|
00002110: 31 AA 32 00 27 29 30 75 3A 20 20 20 20 20 20 4C |1.2.')0u: L|
00002120: 44 58 20 56 31 AA 32 00 3B 29 62 75 3A 20 20 20 |DX V1.2.;)bu: |
00002130: 20 20 20 53 54 41 20 56 31 AA 32 00 4F 29 94 75 | STA V1.2.O).u|
00002140: 3A 20 20 20 20 20 20 53 54 58 20 55 31 AA 32 00 |: STX U1.2.|
00002150: 62 29 C6 75 53 45 54 53 20 20 20 4C 44 41 20 24 |b).uSETS LDA $|
00002160: 36 31 00 71 29 F8 75 3A 20 20 20 20 20 20 4C 53 |61.q).u: LS|
00002170: 52 00 84 29 2A 76 3A 20 20 20 20 20 20 53 54 41 |R..)*v: STA|
00002180: 20 24 36 41 00 97 29 5C 76 3A 20 20 20 20 20 20 | $6A..)\v: |
00002190: 4C 44 41 20 24 36 30 00 A5 29 8E 76 3A 20 20 20 |LDA $60..).v: |
000021A0: 20 20 20 52 B0 00 B7 29 C0 76 3A 20 20 20 20 20 | R...).v: |
000021B0: 20 41 44 43 20 23 30 00 CA 29 F2 76 3A 20 20 20 | ADC #0..).v: |
000021C0: 20 20 20 53 54 41 20 24 36 39 00 DD 29 24 77 3A | STA $69..)$w:|
000021D0: 20 20 20 20 20 20 4C 44 41 20 24 36 30 00 F0 29 | LDA $60..)|
000021E0: 56 77 3A 20 20 20 20 20 20 53 54 41 20 24 36 37 |Vw: STA $67|
000021F0: 00 03 2A 88 77 3A 20 20 20 20 20 20 4C 44 41 20 |..*.w: LDA |
00002200: 24 36 31 00 16 2A BA 77 3A 20 20 20 20 20 20 53 |$61..*.w: S|
00002210: 54 41 20 24 36 38 00 3A 2A EC 77 3A 20 20 20 20 |TA $68.:*.w: |
00002220: 20 20 4A 53 52 20 42 45 52 50 4F B5 20 3B 41 44 | JSR BERPO. ;AD|
00002230: 52 2E 56 2E 50 55 4E 4B 54 31 00 49 2A 1E 78 52 |R.V.PUNKT1.I*.xR|
00002240: 45 50 45 41 54 20 43 4C 43 00 5C 2A 50 78 3A 20 |EPEAT CLC.\*Px: |
00002250: 20 20 20 20 20 4C 44 41 20 24 36 33 00 6F 2A 82 | LDA $63.o*.|
00002260: 78 3A 20 20 20 20 20 20 41 44 43 20 24 36 39 00 |x: ADC $69.|
00002270: 82 2A B4 78 3A 20 20 20 20 20 20 53 54 41 20 24 |.*.x: STA $|
00002280: 36 39 00 98 2A E6 78 3A 20 20 20 20 20 20 42 43 |69..*.x: BC|
00002290: 43 20 56 45 52 47 53 4D 00 AB 2A 18 79 3A 20 20 |C VERGSM..*.y: |
000022A0: 20 20 20 20 49 4E 43 20 24 36 41 00 BE 2A 4A 79 | INC $6A..*Jy|
000022B0: 56 45 52 47 53 4D 20 4C 44 41 20 24 36 41 00 D1 |VERGSM LDA $6A..|
000022C0: 2A 7C 79 3A 20 20 20 20 20 20 43 4D 50 20 24 36 |*|y: CMP $6|
000022D0: 31 00 E3 2A AE 79 3A 20 20 20 20 20 20 42 43 43 |1..*.y: BCC|
000022E0: 20 56 31 00 F7 2A E0 79 3A 20 20 20 20 20 20 42 | V1..*.y: B|
000022F0: 4E 45 20 53 47 52 4D 00 0A 2B 12 7A 3A 20 20 20 |NE SGRM..+.z: |
00002300: 20 20 20 4C 44 41 20 24 36 39 00 1D 2B 44 7A 3A | LDA $69..+Dz:|
00002310: 20 20 20 20 20 20 43 4D 50 20 24 36 30 00 2F 2B | CMP $60./+|
00002320: 76 7A 3A 20 20 20 20 20 20 42 43 43 20 56 31 00 |vz: BCC V1.|
00002330: 41 2B A8 7A 3A 20 20 20 20 20 20 42 45 51 20 56 |A+.z: BEQ V|
00002340: 31 00 50 2B DA 7A 53 47 52 4D 20 20 20 53 45 43 |1.P+.zSGRM SEC|
00002350: 00 63 2B 0C 7B 3A 20 20 20 20 20 20 4C 44 41 20 |.c+.{: LDA |
00002360: 24 36 39 00 76 2B 3E 7B 3A 20 20 20 20 20 20 53 |$69.v+>{: S|
00002370: 42 43 20 24 36 30 00 89 2B 70 7B 3A 20 20 20 20 |BC $60..+p{: |
00002380: 20 20 53 54 41 20 24 36 39 00 9C 2B A2 7B 3A 20 | STA $69..+.{: |
00002390: 20 20 20 20 20 4C 44 41 20 24 36 41 00 AF 2B D4 | LDA $6A..+.|
000023A0: 7B 3A 20 20 20 20 20 20 53 42 43 20 24 36 31 00 |{: SBC $61.|
000023B0: C2 2B 06 7C 3A 20 20 20 20 20 20 53 54 41 20 24 |.+.|: STA $|
000023C0: 36 41 00 D7 2B 38 7C 55 31 20 20 20 20 20 4A 53 |6A..+8|U1 JS|
000023D0: 52 20 24 46 46 46 46 00 EC 2B 6A 7C 56 31 20 20 |R $FFFF..+j|V1 |
000023E0: 20 20 20 4A 53 52 20 24 46 46 46 46 00 FF 2B 9C | JSR $FFFF..+.|
000023F0: 7C 3A 20 20 20 20 20 20 4C 44 41 20 24 36 37 00 ||: LDA $67.|
00002400: 13 2C CE 7C 3A 20 20 20 20 20 20 42 4E 45 20 4C |.,.|: BNE L|
00002410: 49 4E 5A 00 26 2C 00 7D 3A 20 20 20 20 20 20 4C |INZ.&,.}: L|
00002420: 44 41 20 24 36 38 00 3A 2C 32 7D 3A 20 20 20 20 |DA $68.:,2}: |
00002430: 20 20 42 4E 45 20 48 49 4E 5A 00 5C 2C 64 7D 3A | BNE HINZ.\,d}:|
00002440: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS |
00002450: 20 20 3B B2 B1 20 46 45 52 54 49 47 00 6F 2C 96 | ;.. FERTIG.o,.|
00002460: 7D 48 49 4E 5A 20 20 20 44 45 43 20 24 36 38 00 |}HINZ DEC $68.|
00002470: 82 2C C8 7D 4C 49 4E 5A 20 20 20 44 45 43 20 24 |.,.}LINZ DEC $|
00002480: 36 37 00 A7 2C FA 7D 3A 20 20 20 20 20 20 4A 53 |67..,.}: JS|
00002490: 52 20 53 45 54 4D 41 53 4B 20 3B 50 55 4E 4B 54 |R SETMASK ;PUNKT|
000024A0: 20 53 45 54 5A 45 4E 00 CD 2C 2C 7E 3A 20 20 20 | SETZEN..,,~: |
000024B0: 20 20 20 4A 4D 50 20 52 45 50 45 41 54 20 3B 4E | JMP REPEAT ;N|
000024C0: 41 45 43 48 53 54 2E 20 50 55 4E 4B 54 00 D3 2C |AECHST. PUNKT..,|
000024D0: 5E 7E 3A 00 D9 2C 90 7E 3A 00 FB 2C C2 7E 55 50 |^~:..,.~:..,.~UP|
000024E0: 20 20 20 20 4C 44 41 20 41 42 4D 50 20 20 20 3B | LDA ABMP ;|
000024F0: 41 44 52 45 53 53 45 20 44 45 53 00 20 2D F4 7E |ADRESSE DES. -.~|
00002500: 3A 20 20 20 20 20 42 4E 45 20 55 50 4F 4B 20 20 |: BNE UPOK |
00002510: 20 3B 4F 42 45 52 45 4E 20 50 55 4E 4B 54 45 53 | ;OBEREN PUNKTES|
00002520: 00 40 2D 26 7F 3A 20 20 20 20 20 44 45 43 20 41 |.@-&.: DEC A|
00002530: 42 4D 50 AA 31 20 3B 42 45 52 45 43 48 4E 45 4E |BMP.1 ;BERECHNEN|
00002540: 00 53 2D 58 7F 55 50 4F 4B 20 20 44 45 43 20 41 |.S-X.UPOK DEC A|
00002550: 42 4D 50 00 62 2D 8A 7F 3A 20 20 20 20 20 AF 20 |BMP.b-..: . |
00002560: 23 37 00 76 2D BC 7F 3A 20 20 20 20 20 42 4E 45 |#7.v-..: BNE|
00002570: 20 52 45 54 55 52 00 8B 2D EE 7F 3A 20 20 20 20 | RETUR..-..: |
00002580: 20 44 45 43 20 41 42 4D 50 AA 31 00 9E 2D 20 80 | DEC ABMP.1..- .|
00002590: 3A 20 20 20 20 20 4C 44 41 20 41 42 4D 50 00 AC |: LDA ABMP..|
000025A0: 2D 52 80 3A 20 20 20 20 20 53 45 43 00 BF 2D 84 |-R.: SEC..-.|
000025B0: 80 3A 20 20 20 20 20 53 42 43 20 23 24 33 38 00 |.: SBC #$38.|
000025C0: D2 2D B6 80 3A 20 20 20 20 20 53 54 41 20 41 42 |.-..: STA AB|
000025D0: 4D 50 00 E6 2D E8 80 3A 20 20 20 20 20 42 43 53 |MP..-..: BCS|
000025E0: 20 52 45 54 55 52 00 FB 2D 1A 81 3A 20 20 20 20 | RETUR..-..: |
000025F0: 20 44 45 43 20 41 42 4D 50 AA 31 00 09 2E 4C 81 | DEC ABMP.1...L.|
00002600: 52 45 54 55 52 20 52 54 53 00 0F 2E 7E 81 3A 00 |RETUR RTS...~.:.|
00002610: 33 2E B0 81 44 4F 57 4E 20 20 49 4E 43 20 41 42 |3...DOWN INC AB|
00002620: 4D 50 20 20 20 3B 55 4E 54 45 52 45 52 20 50 55 |MP ;UNTERER PU|
00002630: 4E 4B 54 00 46 2E E2 81 3A 20 20 20 20 20 42 4E |NKT.F...: BN|
00002640: 45 20 44 4E 4F 4B 00 5B 2E 14 82 3A 20 20 20 20 |E DNOK.[...: |
00002650: 20 49 4E 43 20 41 42 4D 50 AA 31 00 6E 2E 46 82 | INC ABMP.1.n.F.|
00002660: 44 4E 4F 4B 20 20 4C 44 41 20 41 42 4D 50 00 7C |DNOK LDA ABMP.||
00002670: 2E 78 82 3A 20 20 20 20 20 54 41 58 00 8B 2E AA |.x.: TAX....|
00002680: 82 3A 20 20 20 20 20 AF 20 23 37 00 9F 2E DC 82 |.: . #7.....|
00002690: 3A 20 20 20 20 20 42 4E 45 20 52 45 54 55 52 00 |: BNE RETUR.|
000026A0: AD 2E 0E 83 3A 20 20 20 20 20 54 58 41 00 C2 2E |....: TXA...|
000026B0: 40 83 3A 20 20 20 20 20 49 4E 43 20 41 42 4D 50 |@.: INC ABMP|
000026C0: AA 31 00 D0 2E 72 83 3A 20 20 20 20 20 43 4C 43 |.1...r.: CLC|
000026D0: 00 E3 2E A4 83 3A 20 20 20 20 20 41 44 43 20 23 |.....: ADC #|
000026E0: 24 33 38 00 F6 2E D6 83 3A 20 20 20 20 20 53 54 |$38.....: ST|
000026F0: 41 20 41 42 4D 50 00 0A 2F 08 84 3A 20 20 20 20 |A ABMP../..: |
00002700: 20 42 43 43 20 52 45 54 55 52 00 1F 2F 3A 84 3A | BCC RETUR../:.:|
00002710: 20 20 20 20 20 49 4E 43 20 41 42 4D 50 AA 31 00 | INC ABMP.1.|
00002720: 2D 2F 6C 84 3A 20 20 20 20 20 52 54 53 00 33 2F |-/l.: RTS.3/|
00002730: 9E 84 3A 00 56 2F D0 84 4C 45 46 54 20 20 41 53 |..:.V/..LEFT AS|
00002740: 4C 20 4D 41 53 4B 20 20 20 3B 4C 49 4E 4B 45 52 |L MASK ;LINKER|
00002750: 20 50 55 4E 4B 54 00 6A 2F 02 85 3A 20 20 20 20 | PUNKT.j/..: |
00002760: 20 42 43 43 20 52 45 54 55 52 00 7D 2F 34 85 3A | BCC RETUR.}/4.:|
00002770: 20 20 20 20 20 52 4F 4C 20 4D 41 53 4B 00 8B 2F | ROL MASK../|
00002780: 66 85 3A 20 20 20 20 20 53 45 43 00 9E 2F 98 85 |f.: SEC../..|
00002790: 3A 20 20 20 20 20 4C 44 41 20 41 42 4D 50 00 AF |: LDA ABMP..|
000027A0: 2F CA 85 3A 20 20 20 20 20 53 42 43 20 23 38 00 |/..: SBC #8.|
000027B0: C2 2F FC 85 3A 20 20 20 20 20 53 54 41 20 41 42 |./..: STA AB|
000027C0: 4D 50 00 D6 2F 2E 86 3A 20 20 20 20 20 42 43 53 |MP../..: BCS|
000027D0: 20 52 45 54 55 52 00 EB 2F 60 86 3A 20 20 20 20 | RETUR../`.: |
000027E0: 20 44 45 43 20 41 42 4D 50 AA 31 00 F9 2F 92 86 | DEC ABMP.1../..|
000027F0: 3A 20 20 20 20 20 52 54 53 00 FF 2F C4 86 3A 00 |: RTS../..:.|
00002800: 23 30 F6 86 52 49 47 48 54 20 4C 53 52 20 4D 41 |#0..RIGHT LSR MA|
00002810: 53 4B 20 20 20 3B 52 45 43 48 54 45 52 20 50 55 |SK ;RECHTER PU|
00002820: 4E 4B 54 00 37 30 28 87 3A 20 20 20 20 20 42 43 |NKT.70(.: BC|
00002830: 43 20 52 45 54 55 52 00 49 30 5A 87 3A 20 20 20 |C RETUR.I0Z.: |
00002840: 20 20 52 B0 20 4D 41 53 4B 00 57 30 8C 87 3A 20 | R. MASK.W0..: |
00002850: 20 20 20 20 43 4C 43 00 6A 30 BE 87 3A 20 20 20 | CLC.j0..: |
00002860: 20 20 4C 44 41 20 41 42 4D 50 00 7B 30 F0 87 3A | LDA ABMP.{0..:|
00002870: 20 20 20 20 20 41 44 43 20 23 38 00 8E 30 22 88 | ADC #8..0".|
00002880: 3A 20 20 20 20 20 53 54 41 20 41 42 4D 50 00 A2 |: STA ABMP..|
00002890: 30 54 88 3A 20 20 20 20 20 42 43 43 20 52 45 54 |0T.: BCC RET|
000028A0: 55 52 00 B7 30 86 88 3A 20 20 20 20 20 49 4E 43 |UR..0..: INC|
000028B0: 20 41 42 4D 50 AA 31 00 C5 30 B8 88 3A 20 20 20 | ABMP.1..0..: |
000028C0: 20 20 52 54 53 00 CB 30 EA 88 3A 00 E9 30 1C 89 | RTS..0..:..0..|
000028D0: 99 20 53 45 49 20 20 3B 5A 45 49 43 48 45 4E 20 |. SEI ;ZEICHEN |
000028E0: 41 55 46 20 48 49 52 45 53 00 0F 31 4E 89 3A 20 |AUF HIRES..1N.: |
000028F0: 20 20 20 20 53 54 41 20 24 42 35 20 20 3B 5A 57 | STA $B5 ;ZW|
00002900: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.|
00002910: 20 31 80 89 3A 20 20 20 20 20 4C 44 58 20 23 30 | 1..: LDX #0|
00002920: 00 32 31 B2 89 3A 20 20 20 20 20 53 54 58 20 24 |.21..: STX $|
00002930: 42 36 00 44 31 E4 89 3A 20 20 20 20 20 53 54 58 |B6.D1..: STX|
00002940: 20 24 42 37 00 63 31 16 8A 3A 20 20 20 20 20 4C | $B7.c1..: L|
00002950: 44 41 20 24 41 37 20 20 20 20 20 3B 59 AB 4B 4F |DA $A7 ;Y.KO|
00002960: B0 44 2E 00 71 31 48 8A 3A 20 20 20 20 20 41 53 |.D..q1H.: AS|
00002970: 4C 00 7F 31 7A 8A 3A 20 20 20 20 20 54 41 59 00 |L..1z.: TAY.|
00002980: A2 31 AC 8A 3A 20 20 20 20 20 4C 44 41 20 4D 41 |.1..: LDA MA|
00002990: 50 31 2C 59 20 20 3B 41 44 52 45 53 53 45 20 44 |P1,Y ;ADRESSE D|
000029A0: 45 53 00 C5 31 DE 8A 3A 20 20 20 20 20 53 54 41 |ES..1..: STA|
000029B0: 20 24 36 30 20 20 20 20 20 3B 5A 45 49 C3 41 4E | $60 ;ZEI.AN|
000029C0: 46 41 4E 47 53 00 E9 31 10 8B 3A 20 20 20 20 20 |FANGS..1..: |
000029D0: 4C 44 41 20 4D 41 50 31 AA 31 2C 59 3B 4E 41 43 |LDA MAP1.1,Y;NAC|
000029E0: 48 20 24 36 30 AD 24 36 31 00 01 32 42 8B 3A 20 |H $60.$61..2B.: |
000029F0: 20 20 20 20 53 54 41 20 24 36 31 20 20 20 20 20 | STA $61 |
00002A00: 3B 00 20 32 74 8B 3A 20 20 20 20 20 4C 44 41 20 |;. 2t.: LDA |
00002A10: 24 31 34 20 20 20 20 20 3B 58 AB 4B 4F B0 44 2E |$14 ;X.KO.D.|
00002A20: 00 3B 32 A6 8B 3A 20 20 20 20 20 41 53 4C 20 20 |.;2..: ASL |
00002A30: 20 20 20 20 20 20 20 3B 20 AC 38 00 53 32 D8 8B | ; .8.S2..|
00002A40: 3A 20 20 20 20 20 52 4F 4C 20 24 42 37 20 20 20 |: ROL $B7 |
00002A50: 20 20 3B 00 74 32 0A 8C 3A 20 20 20 20 20 41 53 | ;.t2..: AS|
00002A60: 4C 20 20 20 20 20 20 20 20 20 3B 55 45 42 45 52 |L ;UEBER|
00002A70: 4C 41 55 46 00 92 32 3C 8C 3A 20 20 20 20 20 52 |LAUF..2<.: R|
00002A80: 4F 4C 20 24 42 37 20 20 20 20 20 3B 49 4E 20 24 |OL $B7 ;IN $|
00002A90: 42 37 00 AA 32 6E 8C 3A 20 20 20 20 20 41 53 4C |B7..2n.: ASL|
00002AA0: 20 20 20 20 20 20 20 20 20 3B 00 C2 32 A0 8C 3A | ;..2..:|
00002AB0: 20 20 20 20 20 52 4F 4C 20 24 42 37 20 20 20 20 | ROL $B7 |
00002AC0: 20 3B 00 D0 32 D2 8C 3A 20 20 20 20 20 43 4C 43 | ;..2..: CLC|
00002AD0: 00 F2 32 04 8D 3A 20 20 20 20 20 41 44 43 20 24 |..2..: ADC $|
00002AE0: 36 30 20 20 20 20 20 3B 5A 55 20 24 36 30 AD 24 |60 ;ZU $60.$|
00002AF0: 36 31 00 12 33 36 8D 3A 20 20 20 20 20 53 54 41 |61..36.: STA|
00002B00: 20 24 36 30 20 20 20 20 20 3B 41 44 44 49 45 52 | $60 ;ADDIER|
00002B10: 45 4E 00 37 33 68 8D 3A 20 20 20 20 20 4C 44 41 |EN.73h.: LDA|
00002B20: 20 24 42 37 20 20 20 20 20 3B 24 36 30 AD 24 36 | $B7 ;$60.$6|
00002B30: 31 20 5A 45 49 47 54 00 56 33 9A 8D 3A 20 20 20 |1 ZEIGT.V3..: |
00002B40: 20 20 41 44 43 20 24 36 31 20 20 20 20 20 3B 4E | ADC $61 ;N|
00002B50: 55 4E 20 41 55 46 00 7A 33 CC 8D 3A 20 20 20 20 |UN AUF.z3..: |
00002B60: 20 53 54 41 20 24 36 31 20 20 20 20 20 3B 42 49 | STA $61 ;BI|
00002B70: 4C 44 53 43 48 49 52 4D B9 2E 00 80 33 FE 8D 3A |LDSCHIRM....3..:|
00002B80: 00 9E 33 30 8E 3A 20 20 20 20 20 4C 44 41 20 24 |..30.: LDA $|
00002B90: 42 35 20 20 20 20 20 3B C6 AB 43 4F 44 45 00 B9 |B5 ;..CODE..|
00002BA0: 33 62 8E 3A 20 20 20 20 20 43 4D 50 20 23 24 46 |3b.: CMP #$F|
00002BB0: 46 20 20 20 20 3B FF 22 3F 00 D6 33 94 8E 3A 20 |F ;."?..3..: |
00002BC0: 20 20 20 20 42 45 51 20 50 49 20 20 20 20 20 20 | BEQ PI |
00002BD0: 3B 4A 41 20 B2 B1 00 EE 33 C6 8E 3A 20 20 20 20 |;JA ....3..: |
00002BE0: 20 54 41 59 20 20 20 20 20 20 20 20 20 3B 00 06 | TAY ;..|
00002BF0: 34 F8 8E 3A 20 20 20 20 20 4C 53 52 20 20 20 20 |4..: LSR |
00002C00: 20 20 20 20 20 3B 00 22 34 2A 8F 3A 20 20 20 20 | ;."4*.: |
00002C10: 20 4C 53 52 20 20 20 20 20 20 20 20 20 3B 4E 41 | LSR ;NA|
00002C20: 43 48 00 48 34 5C 8F 3A 20 20 20 20 20 4C 53 52 |CH.H4\.: LSR|
00002C30: 20 20 20 20 20 20 20 20 20 3B 42 49 4C 44 53 43 | ;BILDSC|
00002C40: 48 49 52 4D 43 4F 44 45 00 65 34 8E 8F 3A 20 20 |HIRMCODE.e4..: |
00002C50: 20 20 20 4C 53 52 20 20 20 20 20 20 20 20 20 3B | LSR ;|
00002C60: 57 AF 45 4C 4E 00 7D 34 C0 8F 3A 20 20 20 20 20 |W.ELN.}4..: |
00002C70: 4C 53 52 20 20 20 20 20 20 20 20 20 3B 00 95 34 |LSR ;..4|
00002C80: F2 8F 3A 20 20 20 20 20 54 41 58 20 20 20 20 20 |..: TAX |
00002C90: 20 20 20 20 3B 00 A3 34 24 90 3A 20 20 20 20 20 | ;..4$.: |
00002CA0: 54 59 41 00 B1 34 56 90 3A 20 20 20 20 20 43 4C |TYA..4V.: CL|
00002CB0: 43 00 C6 34 88 90 3A 20 20 20 20 20 41 44 43 20 |C..4..: ADC |
00002CC0: 4D 41 50 34 2C 58 00 D9 34 BA 90 3A 20 20 20 20 |MAP4,X..4..: |
00002CD0: 20 2E 42 59 54 20 24 32 43 00 FB 34 EC 90 50 49 | .BYT $2C..4..PI|
00002CE0: 20 20 20 20 4C 44 41 20 23 39 34 20 20 20 20 3B | LDA #94 ;|
00002CF0: 42 AB 43 4F 44 45 20 46 2E 20 FF 00 21 35 1E 91 |B.CODE F. ..!5..|
00002D00: 3A 20 20 20 20 20 43 4D 50 20 23 24 38 30 20 20 |: CMP #$80 |
00002D10: 20 3B 44 52 55 43 4B 42 41 52 45 52 20 43 4F 44 | ;DRUCKBARER COD|
00002D20: 45 00 44 35 50 91 3A 20 20 20 20 20 42 43 53 20 |E.D5P.: BCS |
00002D30: 80 20 20 20 20 3B 4E 45 49 4E 20 B2 B1 20 46 45 |. ;NEIN .. FE|
00002D40: 52 54 49 47 00 63 35 82 91 3A 20 20 20 20 20 41 |RTIG.c5..: A|
00002D50: 53 4C 20 20 20 20 20 20 20 20 3B 50 4F B5 45 52 |SL ;PO.ER|
00002D60: 20 49 4E 00 89 35 B4 91 3A 20 20 20 20 20 52 4F | IN..5..: RO|
00002D70: 4C 20 24 42 36 20 20 20 20 3B 43 48 52 4F 4D 20 |L $B6 ;CHROM |
00002D80: 42 45 52 45 43 48 4E 45 4E 00 A0 35 E6 91 3A 20 |BERECHNEN..5..: |
00002D90: 20 20 20 20 41 53 4C 20 20 20 20 20 20 20 20 3B | ASL ;|
00002DA0: 00 BD 35 18 92 3A 20 20 20 20 20 52 4F 4C 20 24 |..5..: ROL $|
00002DB0: 42 36 20 20 20 20 3B 43 4F 44 45 AC 38 00 D4 35 |B6 ;CODE.8..5|
00002DC0: 4A 92 3A 20 20 20 20 20 41 53 4C 20 20 20 20 20 |J.: ASL |
00002DD0: 20 20 20 3B 00 EB 35 7C 92 3A 20 20 20 20 20 52 | ;..5|.: R|
00002DE0: 4F 4C 20 24 42 36 20 20 20 20 3B 00 0C 36 AE 92 |OL $B6 ;..6..|
00002DF0: 3A 20 20 20 20 20 53 54 41 20 24 42 35 20 20 20 |: STA $B5 |
00002E00: 20 3B 49 4E 20 24 42 35 AD 24 42 36 00 23 36 E0 | ;IN $B5.$B6.#6.|
00002E10: 92 3A 20 20 20 20 20 4C 44 41 20 24 41 38 20 20 |.: LDA $A8 |
00002E20: 20 20 3B 00 45 36 12 93 3A 20 20 20 20 20 AF 20 | ;.E6..: . |
00002E30: 23 33 20 20 20 20 20 3B 31 30 32 34 20 4D 41 4C |#3 ;1024 MAL|
00002E40: 20 41 4B 4B 55 00 64 36 44 93 3A 20 20 20 20 20 | AKKU.d6D.: |
00002E50: 41 53 4C 20 20 20 20 20 20 20 20 3B 41 44 44 49 |ASL ;ADDI|
00002E60: 45 52 45 4E 00 89 36 76 93 3A 20 20 20 20 20 41 |EREN..6v.: A|
00002E70: 53 4C 20 20 20 20 20 20 20 20 3B 28 31 2E 20 50 |SL ;(1. P|
00002E80: 41 52 41 4D 45 54 45 52 29 00 97 36 A8 93 3A 20 |ARAMETER)..6..: |
00002E90: 20 20 20 20 43 4C 43 00 BC 36 DA 93 3A 20 20 20 | CLC..6..: |
00002EA0: 20 20 41 44 43 20 23 24 44 30 20 20 20 3B 24 44 | ADC #$D0 ;$D|
00002EB0: 30 30 30 20 41 44 44 49 45 52 45 4E 00 D3 36 0C |000 ADDIEREN..6.|
00002EC0: 94 3A 20 20 20 20 20 41 44 43 20 24 42 36 20 20 |.: ADC $B6 |
00002ED0: 20 20 3B 00 F7 36 3E 94 3A 20 20 20 20 20 53 54 | ;..6>.: ST|
00002EE0: 41 20 24 42 36 20 20 20 20 3B 53 55 4D 4D 45 20 |A $B6 ;SUMME |
00002EF0: 24 42 35 AD 24 42 36 00 1D 37 70 94 3A 20 20 20 |$B5.$B6..7p.: |
00002F00: 20 20 4C 44 58 20 31 20 20 20 20 20 3B 43 48 52 | LDX 1 ;CHR|
00002F10: 4F 4D 20 4F 46 46 45 4E 4C 45 47 45 4E 00 2F 37 |OM OFFENLEGEN./7|
00002F20: A2 94 3A 20 20 20 20 20 53 54 58 20 24 46 46 00 |..: STX $FF.|
00002F30: 42 37 D4 94 3A 20 20 20 20 20 4C 44 41 20 23 24 |B7..: LDA #$|
00002F40: 33 31 00 52 37 06 95 3A 20 20 20 20 20 53 54 41 |31.R7..: STA|
00002F50: 20 31 00 75 37 38 95 3A 20 20 20 20 20 4C 44 59 | 1.u78.: LDY|
00002F60: 20 23 37 20 20 20 20 20 20 3B 38 20 42 59 54 45 | #7 ;8 BYTE|
00002F70: 53 20 56 4F 4D 00 93 37 6A 95 4E 50 54 20 20 20 |S VOM..7j.NPT |
00002F80: 4C 44 41 20 28 24 42 35 29 2C 59 20 3B 52 4F 4D |LDA ($B5),Y ;ROM|
00002F90: 20 49 4E 00 B3 37 9C 95 3A 20 20 20 20 20 42 49 | IN..7..: BI|
00002FA0: 54 20 46 31 20 20 20 20 20 20 3B 48 49 52 45 53 |T F1 ;HIRES|
00002FB0: 52 41 4D 00 D6 37 CE 95 3A 20 20 20 20 20 42 4D |RAM..7..: BM|
00002FC0: 49 20 53 4F 50 35 20 20 20 20 3B 55 45 42 45 52 |I SOP5 ;UEBER|
00002FD0: 4E 45 48 4D 45 4E 00 E9 37 00 96 3A 20 20 20 20 |NEHMEN..7..: |
00002FE0: 20 42 56 53 20 53 4F 50 31 00 FB 37 32 96 3A 20 | BVS SOP1..72.: |
00002FF0: 20 20 20 20 45 B0 20 23 24 46 46 00 19 38 64 96 | E. #$FF..8d.|
00003000: 3A 20 20 20 20 20 AF 20 28 24 36 30 29 2C 59 20 |: . ($60),Y |
00003010: 3B 4C 4F 45 53 43 48 45 4E 00 2C 38 96 96 3A 20 |;LOESCHEN.,8..: |
00003020: 20 20 20 20 2E 42 59 54 20 24 32 43 00 49 38 C8 | .BYT $2C.I8.|
00003030: 96 53 4F 50 31 20 20 B0 41 20 28 24 36 30 29 2C |.SOP1 .A ($60),|
00003040: 59 20 3B 53 45 54 5A 45 4E 00 5C 38 FA 96 3A 20 |Y ;SETZEN.\8..: |
00003050: 20 20 20 20 2E 42 59 54 20 24 32 43 00 7A 38 2C | .BYT $2C.z8,|
00003060: 97 53 4F 50 32 20 20 45 B0 20 28 24 36 30 29 2C |.SOP2 E. ($60),|
00003070: 59 20 3B 49 4E 56 45 52 54 2E 00 90 38 5E 97 53 |Y ;INVERT...8^.S|
00003080: 4F 50 33 20 20 53 54 41 20 28 24 36 30 29 2C 59 |OP3 STA ($60),Y|
00003090: 00 9E 38 90 97 3A 20 20 20 20 20 44 45 59 00 C4 |..8..: DEY..|
000030A0: 38 C2 97 3A 20 20 20 20 20 42 50 4C 20 4E 50 54 |8..: BPL NPT|
000030B0: 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 53 20 | ;NAECHSTES |
000030C0: 42 59 54 45 00 E8 38 F4 97 3A 20 20 20 20 20 4C |BYTE..8..: L|
000030D0: 44 58 20 24 46 46 20 20 3B 43 48 52 4F 4D 20 56 |DX $FF ;CHROM V|
000030E0: 45 52 44 45 43 4B 45 4E 00 F8 38 26 98 3A 20 20 |ERDECKEN..8&.: |
000030F0: 20 20 20 53 54 58 20 31 00 04 39 58 98 80 20 20 | STX 1..9X.. |
00003100: 20 43 4C 49 00 12 39 8A 98 3A 20 20 20 20 20 52 | CLI..9..: R|
00003110: 54 53 00 25 39 BC 98 53 4F 50 35 20 20 42 56 43 |TS.%9..SOP5 BVC|
00003120: 20 53 4F 50 32 00 38 39 EE 98 3A 20 20 20 20 20 | SOP2.89..: |
00003130: 42 56 53 20 53 4F 50 33 00 3E 39 20 99 3A 00 44 |BVS SOP3.>9 .:.D|
00003140: 39 52 99 3A 00 64 39 84 99 3B 42 45 46 45 48 4C |9R.:.d9..;BEFEHL|
00003150: 45 20 44 45 52 20 45 52 57 45 49 54 45 8A 47 20 |E DER ERWEITE.G |
00003160: 56 47 4C 2E 00 80 39 B6 99 3B 4C 41 42 45 4C 53 |VGL...9..;LABELS|
00003170: 20 27 42 45 46 27 20 55 2E 20 27 54 41 42 32 27 | 'BEF' U. 'TAB2'|
00003180: 00 86 39 E8 99 3A 00 A9 39 1A 9A 47 52 49 4E 20 |..9..:..9..GRIN |
00003190: 20 20 4C 44 41 20 23 24 39 34 20 20 20 3B 47 52 | LDA #$94 ;GR|
000031A0: 41 50 48 49 43 20 45 49 4E 00 BE 39 4C 9A 3A 20 |APHIC EIN..9L.: |
000031B0: 20 20 20 20 20 53 54 41 20 24 44 44 30 30 00 D2 | STA $DD00..|
000031C0: 39 7E 9A 3A 20 20 20 20 20 20 4C 44 41 20 23 24 |9~.: LDA #$|
000031D0: 33 42 00 E7 39 B0 9A 3A 20 20 20 20 20 20 53 54 |3B..9..: ST|
000031E0: 41 20 24 44 30 31 31 00 FB 39 E2 9A 3A 20 20 20 |A $D011..9..: |
000031F0: 20 20 20 4C 44 41 20 23 24 33 38 00 10 3A 14 9B | LDA #$38..:..|
00003200: 3A 20 20 20 20 20 20 53 54 41 20 24 44 30 31 38 |: STA $D018|
00003210: 00 1F 3A 46 9B 3A 20 20 20 20 20 20 52 54 53 00 |..:F.: RTS.|
00003220: 25 3A 78 9B 3A 00 48 3A AA 9B 47 52 4F 46 20 20 |%:x.:.H:..GROF |
00003230: 20 4C 44 41 20 23 24 39 37 20 20 20 3B 47 52 41 | LDA #$97 ;GRA|
00003240: 50 48 49 43 20 41 55 53 00 5D 3A DC 9B 3A 20 20 |PHIC AUS.]:..: |
00003250: 20 20 20 20 53 54 41 20 24 44 44 30 30 00 71 3A | STA $DD00.q:|
00003260: 0E 9C 3A 20 20 20 20 20 20 4C 44 41 20 23 24 39 |..: LDA #$9|
00003270: 42 00 86 3A 40 9C 3A 20 20 20 20 20 20 53 54 41 |B..:@.: STA|
00003280: 20 24 44 30 31 31 00 9A 3A 72 9C 3A 20 20 20 20 | $D011..:r.: |
00003290: 20 20 4C 44 41 20 23 24 31 35 00 AF 3A A4 9C 3A | LDA #$15..:..:|
000032A0: 20 20 20 20 20 20 53 54 41 20 24 44 30 31 38 00 | STA $D018.|
000032B0: BE 3A D6 9C 3A 20 20 20 20 20 20 52 54 53 00 C4 |.:..: RTS..|
000032C0: 3A 08 9D 3A 00 E9 3A 3A 9D 47 4C 4F 44 20 20 20 |:..:..::.GLOD |
000032D0: 4A 53 52 20 24 45 31 44 34 20 20 3B 47 52 41 50 |JSR $E1D4 ;GRAP|
000032E0: 48 49 43 20 4C 41 44 45 4E 00 FB 3A 6C 9D 3A 20 |HIC LADEN..:l.: |
000032F0: 20 20 20 20 20 4C 44 41 20 23 31 00 0E 3B 9E 9D | LDA #1..;..|
00003300: 3A 20 20 20 20 20 20 53 54 41 20 24 42 39 00 20 |: STA $B9. |
00003310: 3B D0 9D 3A 20 20 20 20 20 20 4C 44 41 20 23 30 |;..: LDA #0|
00003320: 00 35 3B 02 9E 3A 20 20 20 20 20 20 4A 4D 50 20 |.5;..: JMP |
00003330: 24 46 34 39 45 00 3B 3B 34 9E 3A 00 5D 3B 66 9E |$F49E.;;4.:.];f.|
00003340: 47 53 41 56 20 20 20 4A 53 52 20 24 45 31 44 34 |GSAV JSR $E1D4|
00003350: 20 20 3B 47 52 41 50 48 49 43 20 94 4E 00 7F 3B | ;GRAPHIC .N..;|
00003360: 98 9E 3A 20 20 20 20 20 20 4A 53 52 20 42 41 53 |..: JSR BAS|
00003370: 4F 46 20 20 3B 42 41 53 52 4F 4D 20 41 55 53 00 |OF ;BASROM AUS.|
00003380: 91 3B CA 9E 3A 20 20 20 20 20 20 4C 44 58 20 23 |.;..: LDX #|
00003390: 30 00 AE 3B FC 9E 3A 20 20 20 20 20 20 4C 44 59 |0..;..: LDY|
000033A0: 20 23 24 43 30 20 20 20 3B 80 41 44 52 2E 00 CF | #$C0 ;.ADR...|
000033B0: 3B 2E 9F 3A 20 20 20 20 20 20 4C 44 41 20 23 24 |;..: LDA #$|
000033C0: 41 30 20 20 20 3B 53 54 41 52 54 41 44 52 2E 00 |A0 ;STARTADR..|
000033D0: F0 3B 60 9F 3A 20 20 20 20 20 20 53 54 58 20 24 |.;`.: STX $|
000033E0: 46 37 20 20 20 20 3B 53 54 41 52 54 41 44 52 2E |F7 ;STARTADR.|
000033F0: 00 0C 3C 92 9F 3A 20 20 20 20 20 20 53 54 41 20 |..<..: STA |
00003400: 24 46 38 20 20 20 20 3B 20 20 20 22 00 31 3C C4 |$F8 ; ".1<.|
00003410: 9F 3A 20 20 20 20 20 20 4C 44 41 20 23 24 46 37 |.: LDA #$F7|
00003420: 20 20 20 3B 53 45 4B 55 4E 44 41 45 52 41 44 52 | ;SEKUNDAERADR|
00003430: 2E 00 44 3C F6 9F 3A 20 20 20 20 20 20 53 54 41 |..D<..: STA|
00003440: 20 24 42 39 00 5D 3C 28 A0 3A 20 20 20 20 20 20 | $B9.]<(.: |
00003450: 4A 53 52 20 24 46 35 44 44 20 20 3B 94 00 81 3C |JSR $F5DD ;...<|
00003460: 5A A0 3A 20 20 20 20 20 20 4A 4D 50 20 52 4F 4D |Z.: JMP ROM|
00003470: 49 4E 20 20 3B 52 4F 4D 20 45 49 4E 20 26 20 80 |IN ;ROM EIN & .|
00003480: 45 00 87 3C 8C A0 3A 00 A8 3C BE A0 43 4C 53 20 |E..<..:..<..CLS |
00003490: 20 20 20 4C 44 58 20 23 24 31 45 20 20 20 3B 48 | LDX #$1E ;H|
000034A0: 49 52 45 53 AB 4D 41 50 00 CA 3C F0 A0 3A 20 20 |IRES.MAP..<..: |
000034B0: 20 20 20 20 4C 44 59 20 23 24 45 30 20 20 20 3B | LDY #$E0 ;|
000034C0: 4C 4F 45 53 43 48 45 4E 20 26 00 EE 3C 22 A1 3A |LOESCHEN &..<".:|
000034D0: 20 20 20 20 20 20 53 54 59 20 24 36 31 20 20 20 | STY $61 |
000034E0: 20 3B 46 41 52 42 45 20 53 45 54 5A 45 4E 00 00 | ;FARBE SETZEN..|
000034F0: 3D 54 A1 3A 20 20 20 20 20 20 4C 44 59 20 23 30 |=T.: LDY #0|
00003500: 00 13 3D 86 A1 3A 20 20 20 20 20 20 53 54 59 20 |..=..: STY |
00003510: 24 36 30 00 22 3D B8 A1 3A 20 20 20 20 20 20 54 |$60."=..: T|
00003520: 59 41 00 43 3D EA A1 4C 50 31 20 20 20 20 53 54 |YA.C=..LP1 ST|
00003530: 41 20 28 24 36 30 29 2C 59 20 3B 31 35 20 50 41 |A ($60),Y ;15 PA|
00003540: 47 45 53 00 64 3D 1C A2 3A 20 20 20 20 20 20 49 |GES.d=..: I|
00003550: 4E 59 20 20 20 20 20 20 20 20 20 3B 4C 4F 45 53 |NY ;LOES|
00003560: 43 48 45 4E 00 77 3D 4E A2 3A 20 20 20 20 20 20 |CHEN.w=N.: |
00003570: 42 4E 45 20 4C 50 31 00 8A 3D 80 A2 3A 20 20 20 |BNE LP1..=..: |
00003580: 20 20 20 49 4E 43 20 24 36 31 00 99 3D B2 A2 3A | INC $61..=..:|
00003590: 20 20 20 20 20 20 44 45 58 00 AC 3D E4 A2 3A 20 | DEX..=..: |
000035A0: 20 20 20 20 20 42 50 4C 20 4C 50 31 00 C0 3D 16 | BPL LP1..=.|
000035B0: A3 3A 20 20 20 20 20 20 4C 44 58 20 23 24 34 30 |.: LDX #$40|
000035C0: 00 E5 3D 48 A3 4C 50 32 20 20 20 20 53 54 41 20 |..=H.LP2 STA |
000035D0: 24 46 46 30 30 2C 58 20 3B 36 34 20 52 45 53 54 |$FF00,X ;64 REST|
000035E0: 42 59 54 45 53 00 06 3E 7A A3 3A 20 20 20 20 20 |BYTES..>z.: |
000035F0: 20 44 45 58 20 20 20 20 20 20 20 20 20 3B 4C 4F | DEX ;LO|
00003600: 45 53 43 48 45 4E 00 19 3E AC A3 3A 20 20 20 20 |ESCHEN..>..: |
00003610: 20 20 42 50 4C 20 4C 50 32 00 3C 3E DE A3 43 4F | BPL LP2.<>..CO|
00003620: 4C 20 20 20 20 4A 53 52 20 A1 42 59 54 20 20 3B |L JSR .BYT ;|
00003630: 46 41 52 42 45 20 53 45 54 5A 45 4E 00 5D 3E 10 |FARBE SETZEN.]>.|
00003640: A4 3A 20 20 20 20 20 20 53 54 58 20 46 31 20 20 |.: STX F1 |
00003650: 20 20 20 20 3B 31 2E 20 46 41 52 42 45 00 7B 3E | ;1. FARBE.{>|
00003660: 42 A4 3A 20 20 20 20 20 20 4A 53 52 20 43 4B 43 |B.: JSR CKC|
00003670: 4F 4D 20 20 20 3B 4B 4F 4D 4D 41 00 9A 3E 74 A4 |OM ;KOMMA..>t.|
00003680: 3A 20 20 20 20 20 20 4A 53 52 20 A1 42 59 54 20 |: JSR .BYT |
00003690: 20 3B 32 2E 20 46 41 52 42 45 00 A9 3E A6 A4 3A | ;2. FARBE..>..:|
000036A0: 20 20 20 20 20 20 54 58 41 00 CC 3E D8 A4 3A 20 | TXA..>..: |
000036B0: 20 20 20 20 20 AF 20 23 24 30 46 20 20 20 20 3B | . #$0F ;|
000036C0: 4C 4F 57 45 52 20 4E 49 42 42 4C 45 00 DE 3E 0A |LOWER NIBBLE..>.|
000036D0: A5 3A 20 20 20 20 20 20 53 54 41 20 46 32 00 FF |.: STA F2..|
000036E0: 3E 3C A5 3A 20 20 20 20 20 20 4C 44 41 20 46 31 |><.: LDA F1|
000036F0: 20 20 20 20 20 20 3B 31 2E 20 46 41 52 42 45 00 | ;1. FARBE.|
00003700: 22 3F 6E A5 3A 20 20 20 20 20 20 41 53 4C 20 20 |"?n.: ASL |
00003710: 20 20 20 20 20 20 20 3B 5A 55 4D 20 48 49 47 48 | ;ZUM HIGH|
00003720: 45 52 00 48 3F A0 A5 3A 20 20 20 20 20 20 41 53 |ER.H?..: AS|
00003730: 4C 20 20 20 20 20 20 20 20 20 3B 4E 49 42 42 4C |L ;NIBBL|
00003740: 45 20 4D 41 43 48 45 4E 00 57 3F D2 A5 3A 20 20 |E MACHEN.W?..: |
00003750: 20 20 20 20 41 53 4C 00 66 3F 04 A6 3A 20 20 20 | ASL.f?..: |
00003760: 20 20 20 41 53 4C 00 86 3F 36 A6 3A 20 20 20 20 | ASL..?6.: |
00003770: 20 20 B0 41 20 46 32 20 20 20 20 20 20 3B 45 49 | .A F2 ;EI|
00003780: 4E 42 C3 44 45 4E 00 A9 3F 68 A6 4C 50 33 20 20 |NB.DEN..?h.LP3 |
00003790: 20 20 53 54 41 20 24 43 43 30 30 2C 59 20 3B 49 | STA $CC00,Y ;I|
000037A0: 4E 20 46 41 52 42 52 41 4D 00 CB 3F 9A A6 3A 20 |N FARBRAM..?..: |
000037B0: 20 20 20 20 20 53 54 41 20 24 43 44 30 30 2C 59 | STA $CD00,Y|
000037C0: 20 3B 53 43 48 52 45 49 42 45 4E 00 E2 3F CC A6 | ;SCHREIBEN..?..|
000037D0: 3A 20 20 20 20 20 20 53 54 41 20 24 43 45 30 30 |: STA $CE00|
000037E0: 2C 59 00 F9 3F FE A6 3A 20 20 20 20 20 20 53 54 |,Y..?..: ST|
000037F0: 41 20 24 43 46 30 30 2C 59 00 08 40 30 A7 3A 20 |A $CF00,Y..@0.: |
00003800: 20 20 20 20 20 49 4E 59 00 1B 40 62 A7 3A 20 20 | INY..@b.: |
00003810: 20 20 20 20 42 4E 45 20 4C 50 33 00 2A 40 94 A7 | BNE LP3.*@..|
00003820: 3A 20 20 20 20 20 20 52 54 53 00 30 40 C6 A7 3A |: RTS.0@..:|
00003830: 00 42 40 F8 A7 4F 4C 44 20 20 20 20 4C 44 41 20 |.B@..OLD LDA |
00003840: 23 31 00 51 40 2A A8 3A 20 20 20 20 20 20 54 41 |#1.Q@*.: TA|
00003850: 59 00 68 40 5C A8 3A 20 20 20 20 20 20 53 54 41 |Y.h@\.: STA|
00003860: 20 28 24 32 42 29 2C 59 00 7D 40 8E A8 3A 20 20 | ($2B),Y.}@..: |
00003870: 20 20 20 20 4A 53 52 20 24 41 35 33 33 00 90 40 | JSR $A533..@|
00003880: C0 A8 3A 20 20 20 20 20 20 4C 44 41 20 24 32 32 |..: LDA $22|
00003890: 00 A2 40 F2 A8 3A 20 20 20 20 20 20 41 44 43 20 |..@..: ADC |
000038A0: 23 32 00 B5 40 24 A9 3A 20 20 20 20 20 20 53 54 |#2..@$.: ST|
000038B0: 41 20 24 32 44 00 C8 40 56 A9 3A 20 20 20 20 20 |A $2D..@V.: |
000038C0: 20 4C 44 41 20 24 32 33 00 DA 40 88 A9 3A 20 20 | LDA $23..@..: |
000038D0: 20 20 20 20 41 44 43 20 23 30 00 ED 40 BA A9 3A | ADC #0..@..:|
000038E0: 20 20 20 20 20 20 53 54 41 20 24 32 45 00 02 41 | STA $2E..A|
000038F0: EC A9 3A 20 20 20 20 20 20 4A 53 52 20 24 41 36 |..: JSR $A6|
00003900: 36 30 00 19 41 1E AA 3A 20 20 20 20 20 20 4A 4D |60..A..: JM|
00003910: 50 20 57 52 4D 53 54 52 54 00 1F 41 50 AA 3A 00 |P WRMSTRT..AP.:.|
00003920: 45 41 82 AA 53 57 41 50 20 20 20 4C 44 41 20 23 |EA..SWAP LDA #|
00003930: 24 38 30 20 20 20 3B 46 4C 41 47 20 46 55 45 52 |$80 ;FLAG FUER|
00003940: 20 53 57 41 50 00 59 41 B4 AA 3A 20 20 20 20 20 | SWAP.YA..: |
00003950: 20 2E 42 59 54 20 24 32 43 00 5F 41 E6 AA 3A 00 | .BYT $2C._A..:.|
00003960: 85 41 18 AB 43 4F 50 59 20 20 20 4C 44 41 20 23 |.A..COPY LDA #|
00003970: 30 20 20 20 20 20 3B 46 4C 41 47 20 46 55 45 52 |0 ;FLAG FUER|
00003980: 20 43 4F 50 59 00 97 41 4A AB 3A 20 20 20 20 20 | COPY..AJ.: |
00003990: 20 53 54 41 20 46 32 00 AC 41 7C AB 3A 20 20 20 | STA F2..A|.: |
000039A0: 20 20 20 4A 53 52 20 52 4F 4D 4F 46 00 C0 41 AE | JSR ROMOF..A.|
000039B0: AB 3A 20 20 20 20 20 20 4C 44 58 20 23 24 31 45 |.: LDX #$1E|
000039C0: 00 D4 41 E0 AB 3A 20 20 20 20 20 20 4C 44 59 20 |..A..: LDY |
000039D0: 23 24 45 30 00 E7 41 12 AC 3A 20 20 20 20 20 20 |#$E0..A..: |
000039E0: 53 54 59 20 24 36 31 00 FB 41 44 AC 3A 20 20 20 |STY $61..AD.: |
000039F0: 20 20 20 4C 44 59 20 23 24 41 30 00 0E 42 76 AC | LDY #$A0..Bv.|
00003A00: 3A 20 20 20 20 20 20 53 54 59 20 24 36 33 00 20 |: STY $63. |
00003A10: 42 A8 AC 3A 20 20 20 20 20 20 4C 44 59 20 23 30 |B..: LDY #0|
00003A20: 00 33 42 DA AC 3A 20 20 20 20 20 20 53 54 59 20 |.3B..: STY |
00003A30: 24 36 30 00 46 42 0C AD 3A 20 20 20 20 20 20 53 |$60.FB..: S|
00003A40: 54 59 20 24 36 32 00 5D 42 3E AD 4C 50 36 20 20 |TY $62.]B>.LP6 |
00003A50: 20 20 4C 44 41 20 28 24 36 32 29 2C 59 00 6F 42 | LDA ($62),Y.oB|
00003A60: 70 AD 3A 20 20 20 20 20 20 53 54 41 20 46 31 00 |p.: STA F1.|
00003A70: 86 42 A2 AD 3A 20 20 20 20 20 20 4C 44 41 20 28 |.B..: LDA (|
00003A80: 24 36 30 29 2C 59 00 9D 42 D4 AD 3A 20 20 20 20 |$60),Y..B..: |
00003A90: 20 20 53 54 41 20 28 24 36 32 29 2C 59 00 BC 42 | STA ($62),Y..B|
00003AA0: 06 AE 3A 20 20 20 20 20 20 42 49 54 20 46 32 20 |..: BIT F2 |
00003AB0: 20 20 20 20 20 3B 43 4F 50 59 22 3F 00 DA 42 38 | ;COPY"?..B8|
00003AC0: AE 3A 20 20 20 20 20 20 42 50 4C 20 45 58 31 20 |.: BPL EX1 |
00003AD0: 20 20 20 20 3B 4A 41 20 B2 B1 00 EC 42 6A AE 3A | ;JA ....Bj.:|
00003AE0: 20 20 20 20 20 20 4C 44 41 20 46 31 00 03 43 9C | LDA F1..C.|
00003AF0: AE 3A 20 20 20 20 20 20 53 54 41 20 28 24 36 30 |.: STA ($60|
00003B00: 29 2C 59 00 12 43 CE AE 45 58 31 20 20 20 20 49 |),Y..C..EX1 I|
00003B10: 4E 59 00 25 43 00 AF 3A 20 20 20 20 20 20 42 4E |NY.%C..: BN|
00003B20: 45 20 4C 50 36 00 38 43 32 AF 3A 20 20 20 20 20 |E LP6.8C2.: |
00003B30: 20 49 4E 43 20 24 36 31 00 4B 43 64 AF 3A 20 20 | INC $61.KCd.: |
00003B40: 20 20 20 20 49 4E 43 20 24 36 33 00 5A 43 96 AF | INC $63.ZC..|
00003B50: 3A 20 20 20 20 20 20 44 45 58 00 6D 43 C8 AF 3A |: DEX.mC..:|
00003B60: 20 20 20 20 20 20 42 50 4C 20 4C 50 36 00 81 43 | BPL LP6..C|
00003B70: FA AF 3A 20 20 20 20 20 20 4C 44 58 20 23 24 34 |..: LDX #$4|
00003B80: 30 00 A6 43 2C B0 4C 50 37 20 20 20 20 4C 44 41 |0..C,.LP7 LDA|
00003B90: 20 24 42 46 30 30 2C 58 20 3B 36 34 20 52 45 53 | $BF00,X ;64 RES|
00003BA0: 54 42 59 54 45 53 00 B5 43 5E B0 3A 20 20 20 20 |TBYTES..C^.: |
00003BB0: 20 20 54 41 59 00 CC 43 90 B0 3A 20 20 20 20 20 | TAY..C..: |
00003BC0: 20 4C 44 41 20 24 46 46 30 30 2C 58 00 E3 43 C2 | LDA $FF00,X..C.|
00003BD0: B0 3A 20 20 20 20 20 20 53 54 41 20 24 42 46 30 |.: STA $BF0|
00003BE0: 30 2C 58 00 02 44 F4 B0 3A 20 20 20 20 20 20 42 |0,X..D..: B|
00003BF0: 49 54 20 46 32 20 20 20 20 20 20 3B 43 4F 50 59 |IT F2 ;COPY|
00003C00: 22 3F 00 20 44 26 B1 3A 20 20 20 20 20 20 42 50 |"?. D&.: BP|
00003C10: 4C 20 45 58 32 20 20 20 20 20 3B 4A 53 20 B2 B1 |L EX2 ;JS ..|
00003C20: 00 2F 44 58 B1 3A 20 20 20 20 20 20 54 59 41 00 |./DX.: TYA.|
00003C30: 46 44 8A B1 3A 20 20 20 20 20 20 53 54 41 20 24 |FD..: STA $|
00003C40: 46 46 30 30 2C 58 00 55 44 BC B1 45 58 32 20 20 |FF00,X.UD..EX2 |
00003C50: 20 20 44 45 58 00 68 44 EE B1 3A 20 20 20 20 20 | DEX.hD..: |
00003C60: 20 42 50 4C 20 4C 50 37 00 87 44 20 B2 3A 20 20 | BPL LP7..D .: |
00003C70: 20 20 20 20 4A 4D 50 20 52 4F 4D 49 4E 20 20 20 | JMP ROMIN |
00003C80: 3B 46 45 52 54 49 47 00 8D 44 52 B2 3A 00 AF 44 |;FERTIG..DR.:..D|
00003C90: 84 B2 50 4C 4F 54 20 20 20 4A 53 52 20 A1 43 4F |..PLOT JSR .CO|
00003CA0: 4C 20 20 3B 50 4C 4F 54 20 26 20 44 52 41 57 00 |L ;PLOT & DRAW.|
00003CB0: C4 44 B6 B2 50 4C 4F 20 20 20 20 4A 53 52 20 43 |.D..PLO JSR C|
00003CC0: 48 52 CB 54 00 E1 44 E8 B2 3A 20 20 20 20 20 20 |HR.T..D..: |
00003CD0: 43 4D 50 20 23 22 2C 22 20 20 20 20 3B 56 47 4C |CMP #"," ;VGL|
00003CE0: 2E 00 04 45 1A B3 3A 20 20 20 20 20 20 42 45 51 |...E..: BEQ|
00003CF0: 20 50 4F B5 20 20 20 3B 42 45 53 43 48 52 45 49 | PO. ;BESCHREI|
00003D00: 42 55 4E 47 00 18 45 4C B3 3A 20 20 20 20 20 20 |BUNG..EL.: |
00003D10: 43 4D 50 20 23 24 41 34 00 2C 45 7E B3 3A 20 20 |CMP #$A4.,E~.: |
00003D20: 20 20 20 20 42 4E 45 20 BD 4C 4F 54 00 40 45 B0 | BNE .LOT.@E.|
00003D30: B3 3A 20 20 20 20 20 20 4A 53 52 20 43 48 52 A1 |.: JSR CHR.|
00003D40: 00 56 45 E2 B3 3A 20 20 20 20 20 20 4A 53 52 20 |.VE..: JSR |
00003D50: A1 50 41 52 41 32 00 6B 45 14 B4 3A 20 20 20 20 |.PARA2.kE..: |
00003D60: 20 20 4A 53 52 20 52 4F 4D 4F 46 00 7F 45 46 B4 | JSR ROMOF..EF.|
00003D70: 3A 20 20 20 20 20 20 4A 53 52 20 44 52 41 57 00 |: JSR DRAW.|
00003D80: 94 45 78 B4 3A 20 20 20 20 20 20 4A 53 52 20 52 |.Ex.: JSR R|
00003D90: 4F 4D 49 4E 00 A9 45 AA B4 3A 20 20 20 20 20 20 |OMIN..E..: |
00003DA0: 4C 44 41 20 41 58 4B 4F 4F 00 BE 45 DC B4 3A 20 |LDA AXKOO..E..: |
00003DB0: 20 20 20 20 20 53 54 41 20 4C 58 4B 4F 4F 00 D5 | STA LXKOO..|
00003DC0: 45 0E B5 3A 20 20 20 20 20 20 4C 44 41 20 41 58 |E..: LDA AX|
00003DD0: 4B 4F 4F AA 31 00 EC 45 40 B5 3A 20 20 20 20 20 |KOO.1..E@.: |
00003DE0: 20 53 54 41 20 4C 58 4B 4F 4F AA 31 00 01 46 72 | STA LXKOO.1..Fr|
00003DF0: B5 3A 20 20 20 20 20 20 4C 44 41 20 41 59 4B 4F |.: LDA AYKO|
00003E00: 4F 00 16 46 A4 B5 3A 20 20 20 20 20 20 53 54 41 |O..F..: STA|
00003E10: 20 4C 59 4B 4F 4F 00 29 46 D6 B5 3A 20 20 20 20 | LYKOO.)F..: |
00003E20: 20 20 4A 4D 50 20 50 4C 4F 00 3B 46 08 B6 50 4F | JMP PLO.;F..PO|
00003E30: B5 20 20 4A 53 52 20 43 48 52 A1 00 51 46 3A B6 |. JSR CHR..QF:.|
00003E40: 3A 20 20 20 20 20 20 4A 53 52 20 A1 50 41 52 41 |: JSR .PARA|
00003E50: 31 00 66 46 6C B6 3A 20 20 20 20 20 20 4A 53 52 |1.fFl.: JSR|
00003E60: 20 52 4F 4D 4F 46 00 7C 46 9E B6 3A 20 20 20 20 | ROMOF.|F..: |
00003E70: 20 20 4A 53 52 20 42 45 52 50 4F B5 00 93 46 D0 | JSR BERPO...F.|
00003E80: B6 3A 20 20 20 20 20 20 4A 53 52 20 53 45 54 4D |.: JSR SETM|
00003E90: 41 53 4B 00 A8 46 02 B7 3A 20 20 20 20 20 20 4A |ASK..F..: J|
00003EA0: 53 52 20 52 4F 4D 49 4E 00 BB 46 34 B7 3A 20 20 |SR ROMIN..F4.: |
00003EB0: 20 20 20 20 4A 4D 50 20 50 4C 4F 00 D2 46 66 B7 | JMP PLO..Ff.|
00003EC0: BD 4C 4F 54 20 52 54 53 20 20 20 20 20 20 20 3B |.LOT RTS ;|
00003ED0: 80 45 00 D8 46 98 B7 3A 00 F7 46 CA B7 45 52 52 |.E..F..:..F..ERR|
00003EE0: B0 20 20 4C 44 58 20 23 24 30 45 20 20 20 3B 27 |. LDX #$0E ;'|
00003EF0: 49 4C 4C 45 47 45 4C 00 19 47 FC B7 3A 20 20 20 |ILLEGEL..G..: |
00003F00: 20 20 20 4A 4D 50 20 57 52 4D 53 54 52 54 3B 20 | JMP WRMSTRT; |
00003F10: 51 55 41 4E 54 49 54 59 27 00 1F 47 2E B8 3A 00 |QUANTITY'..G..:.|
00003F20: 41 47 60 B8 54 45 58 54 20 20 20 4A 53 52 20 A1 |AG`.TEXT JSR .|
00003F30: 42 59 54 20 3B 31 2E 20 50 41 52 41 4D 45 54 45 |BYT ;1. PARAMETE|
00003F40: 52 00 54 47 92 B8 3A 20 20 20 20 20 20 53 54 58 |R.TG..: STX|
00003F50: 20 24 41 38 00 69 47 C4 B8 3A 20 20 20 20 20 20 | $A8.iG..: |
00003F60: 4A 53 52 20 43 4B 43 4F 4D 00 8A 47 F6 B8 3A 20 |JSR CKCOM..G..: |
00003F70: 20 20 20 20 20 4A 53 52 20 A1 42 59 54 20 3B 32 | JSR .BYT ;2|
00003F80: 2E 20 20 AB AB 20 22 20 2D 2D 00 99 47 28 B9 3A |. .. " --..G(.:|
00003F90: 20 20 20 20 20 20 54 58 41 00 BD 47 5A B9 3A 20 | TXA..GZ.: |
00003FA0: 20 20 20 20 20 4C 53 52 20 20 20 20 20 20 20 20 | LSR |
00003FB0: 3B 41 4C 53 20 5A 45 49 43 48 45 4E AB 00 D9 47 |;ALS ZEICHEN...G|
00003FC0: 8C B9 3A 20 20 20 20 20 20 52 B0 20 20 20 20 20 |..: R. |
00003FD0: 20 20 20 3B 4D 4F 44 55 53 00 E7 47 BE B9 3A 20 | ;MODUS..G..: |
00003FE0: 20 20 20 20 20 52 B0 00 06 48 F0 B9 3A 20 20 20 | R...H..: |
00003FF0: 20 20 20 53 54 41 20 46 31 20 20 20 20 20 3B 4E | STA F1 ;N|
00004000: 41 43 48 20 46 31 00 1B 48 22 BA 3A 20 20 20 20 |ACH F1..H".: |
00004010: 20 20 4A 53 52 20 43 4B 43 4F 4D 00 38 48 54 BA | JSR CKCOM.8HT.|
00004020: 3A 20 20 20 20 20 20 4A 53 52 20 A1 42 59 54 20 |: JSR .BYT |
00004030: 3B 58 AB 4B 4F B0 44 2E 00 58 48 86 BA 3A 20 20 |;X.KO.D..XH..: |
00004040: 20 20 20 20 53 54 58 20 24 31 34 20 20 20 20 3B | STX $14 ;|
00004050: 4E 41 43 48 20 24 31 34 00 7B 48 B8 BA 3A 20 20 |NACH $14.{H..: |
00004060: 20 20 20 20 43 50 58 20 23 34 30 20 20 20 20 3B | CPX #40 ;|
00004070: 30 20 B3 B2 20 58 20 B3 20 34 30 00 8F 48 EA BA |0 .. X . 40..H..|
00004080: 3A 20 20 20 20 20 20 42 43 53 20 45 52 52 B0 00 |: BCS ERR..|
00004090: A4 48 1C BB 3A 20 20 20 20 20 20 4A 53 52 20 43 |.H..: JSR C|
000040A0: 4B 43 4F 4D 00 C0 48 4E BB 3A 20 20 20 20 20 20 |KCOM..HN.: |
000040B0: 4A 53 52 20 A1 42 59 54 20 3B 59 AB 4B 4F B0 44 |JSR .BYT ;Y.KO.D|
000040C0: 00 E0 48 80 BB 3A 20 20 20 20 20 20 53 54 58 20 |..H..: STX |
000040D0: 24 41 37 20 20 20 20 3B 4E 41 43 48 20 24 41 37 |$A7 ;NACH $A7|
000040E0: 00 03 49 B2 BB 3A 20 20 20 20 20 20 43 50 58 20 |..I..: CPX |
000040F0: 23 32 35 20 20 20 20 3B 30 20 B3 B2 20 58 20 B3 |#25 ;0 .. X .|
00004100: 20 32 35 00 17 49 E4 BB 3A 20 20 20 20 20 20 42 | 25..I..: B|
00004110: 43 53 20 45 52 52 B0 00 34 49 16 BC 3A 20 20 20 |CS ERR..4I..: |
00004120: 20 20 20 4A 53 52 20 43 4B 43 4F 4D 20 20 3B 4B | JSR CKCOM ;K|
00004130: 4F 4D 4D 41 00 56 49 48 BC 3A 20 20 20 20 20 20 |OMMA.VIH.: |
00004140: 4A 53 52 20 24 41 44 39 45 20 20 3B 53 54 52 49 |JSR $AD9E ;STRI|
00004150: 4E 47 20 48 4F C3 00 6B 49 7A BC 3A 20 20 20 20 |NG HO..kIz.: |
00004160: 20 20 4A 53 52 20 24 42 36 41 33 00 89 49 AC BC | JSR $B6A3..I..|
00004170: 3A 20 20 20 20 20 20 53 54 41 20 24 32 34 20 20 |: STA $24 |
00004180: 20 20 3B 4C 41 45 4E 47 45 00 9B 49 DE BC 3A 20 | ;LAENGE..I..: |
00004190: 20 20 20 20 20 4C 44 41 20 23 30 00 AE 49 10 BD | LDA #0..I..|
000041A0: 3A 20 20 20 20 20 20 53 54 41 20 24 32 35 00 D1 |: STA $25..|
000041B0: 49 42 BD 82 20 20 20 4C 44 58 20 24 32 34 20 20 |IB.. LDX $24 |
000041C0: 3B 5A 41 48 4C 20 44 45 52 20 5A 45 49 43 48 45 |;ZAHL DER ZEICHE|
000041D0: 4E 00 F4 49 74 BD 3A 20 20 20 20 20 20 42 45 51 |N..It.: BEQ|
000041E0: 20 BD 4C 4F 54 20 3B 20 B2 30 20 B2 B1 20 46 45 | .LOT ; .0 .. FE|
000041F0: 52 54 49 47 00 07 4A A6 BD 3A 20 20 20 20 20 20 |RTIG..J..: |
00004200: 4C 44 59 20 24 32 35 00 27 4A D8 BD 3A 20 20 20 |LDY $25.'J..: |
00004210: 20 20 20 4C 44 41 20 28 24 32 32 29 2C 59 20 3B | LDA ($22),Y ;|
00004220: 5A 45 49 43 48 45 4E 00 44 4A 0A BE 3A 20 20 20 |ZEICHEN.DJ..: |
00004230: 20 20 20 4A 53 52 20 99 20 20 20 3B 41 55 53 47 | JSR . ;AUSG|
00004240: 45 42 45 4E 00 6A 4A 3C BE 3A 20 20 20 20 20 20 |EBEN.jJ<.: |
00004250: 49 4E 43 20 24 32 35 20 20 20 20 3B 4E 41 45 43 |INC $25 ;NAEC|
00004260: 48 53 54 2E 20 5A 45 49 43 48 00 8E 4A 6E BE 3A |HST. ZEICH..Jn.:|
00004270: 20 20 20 20 20 20 44 45 43 20 24 32 34 20 20 20 | DEC $24 |
00004280: 20 3B 20 AB AB AB 20 20 22 20 20 2D 2D 2D 00 AF | ; ... " ---..|
00004290: 4A A0 BE 3A 20 20 20 20 20 20 49 4E 43 20 24 31 |J..: INC $1|
000042A0: 34 20 20 20 20 3B 31 20 B9 2E 20 4E 41 43 48 00 |4 ;1 .. NACH.|
000042B0: CD 4A D2 BE 3A 20 20 20 20 20 20 4C 44 58 20 24 |.J..: LDX $|
000042C0: 31 34 20 20 20 20 3B 52 45 43 48 54 53 00 F1 4A |14 ;RECHTS..J|
000042D0: 04 BF 3A 20 20 20 20 20 20 43 50 58 20 23 34 30 |..: CPX #40|
000042E0: 20 20 20 20 3B 42 49 4C 44 53 43 48 45 49 4D 80 | ;BILDSCHEIM.|
000042F0: 45 00 13 4B 36 BF 3A 20 20 20 20 20 20 42 43 53 |E..K6.: BCS|
00004300: 20 BD 4C 4F 54 20 3B 4A 41 20 B2 B1 20 46 45 52 | .LOT ;JA .. FER|
00004310: 54 49 47 00 2E 4B 68 BF 3A 20 20 20 20 20 20 42 |TIG..Kh.: B|
00004320: 43 43 20 82 20 20 20 3B 57 45 49 54 45 52 00 34 |CC . ;WEITER.4|
00004330: 4B 9A BF 3A 00 48 4B CC BF 44 49 52 20 20 20 20 |K..:.HK..DIR |
00004340: 4C 44 41 20 23 22 24 22 00 59 4B FE BF 3A 20 20 |LDA #"$".YK..: |
00004350: 20 20 20 20 53 54 41 20 32 00 6B 4B 30 C0 3A 20 | STA 2.kK0.: |
00004360: 20 20 20 20 20 4C 44 58 20 23 32 00 7E 4B 62 C0 | LDX #2.~Kb.|
00004370: 3A 20 20 20 20 20 20 53 54 58 20 24 42 42 00 8D |: STX $BB..|
00004380: 4B 94 C0 3A 20 20 20 20 20 20 44 45 58 00 A0 4B |K..: DEX..K|
00004390: C6 C0 3A 20 20 20 20 20 20 53 54 58 20 24 42 37 |..: STX $B7|
000043A0: 00 AF 4B F8 C0 3A 20 20 20 20 20 20 44 45 58 00 |..K..: DEX.|
000043B0: C2 4B 2A C1 3A 20 20 20 20 20 20 53 54 58 20 24 |.K*.: STX $|
000043C0: 42 43 00 D4 4B 5C C1 3A 20 20 20 20 20 20 4C 44 |BC..K\.: LD|
000043D0: 41 20 23 38 00 E7 4B 8E C1 3A 20 20 20 20 20 20 |A #8..K..: |
000043E0: 53 54 41 20 24 42 41 00 FB 4B C0 C1 3A 20 20 20 |STA $BA..K..: |
000043F0: 20 20 20 4C 44 41 20 23 24 36 30 00 0E 4C F2 C1 | LDA #$60..L..|
00004400: 3A 20 20 20 20 20 20 53 54 41 20 24 42 39 00 23 |: STA $B9.#|
00004410: 4C 24 C2 3A 20 20 20 20 20 20 4A 53 52 20 24 46 |L$.: JSR $F|
00004420: 33 44 35 00 36 4C 56 C2 3A 20 20 20 20 20 20 4C |3D5.6LV.: L|
00004430: 44 41 20 24 42 41 00 4B 4C 88 C2 3A 20 20 20 20 |DA $BA.KL..: |
00004440: 20 20 4A 53 52 20 24 46 32 33 37 00 5F 4C BA C2 | JSR $F237._L..|
00004450: 3A 20 20 20 20 20 20 42 43 43 20 44 49 52 31 00 |: BCC DIR1.|
00004460: 74 4C EC C2 3A 20 20 20 20 20 20 4A 4D 50 20 24 |tL..: JMP $|
00004470: 45 30 46 39 00 86 4C 1E C3 44 49 52 31 20 20 20 |E0F9..L..DIR1 |
00004480: 4C 44 58 20 23 36 00 99 4C 50 C3 44 49 52 32 20 |LDX #6..LP.DIR2 |
00004490: 20 20 4C 44 41 20 24 36 32 00 AC 4C 82 C3 3A 20 | LDA $62..L..: |
000044A0: 20 20 20 20 20 53 54 41 20 24 36 33 00 C1 4C B4 | STA $63..L.|
000044B0: C3 3A 20 20 20 20 20 20 4A 53 52 20 24 45 31 31 |.: JSR $E11|
000044C0: 32 00 D4 4C E6 C3 3A 20 20 20 20 20 20 53 54 41 |2..L..: STA|
000044D0: 20 24 36 32 00 E7 4C 18 C4 3A 20 20 20 20 20 20 | $62..L..: |
000044E0: 4C 44 41 20 24 39 30 00 FA 4C 4A C4 3A 20 20 20 |LDA $90..LJ.: |
000044F0: 20 20 20 42 4E 45 20 4C 4F 34 00 09 4D 7C C4 3A | BNE LO4..M|.:|
00004500: 20 20 20 20 20 20 44 45 58 00 1D 4D AE C4 3A 20 | DEX..M..: |
00004510: 20 20 20 20 20 42 4E 45 20 44 49 52 32 00 31 4D | BNE DIR2.1M|
00004520: E0 C4 3A 20 20 20 20 20 20 4C 44 41 20 23 22 27 |..: LDA #"'|
00004530: 22 00 46 4D 12 C5 3A 20 20 20 20 20 20 4A 53 52 |".FM..: JSR|
00004540: 20 24 45 31 30 43 00 5B 4D 44 C5 3A 20 20 20 20 | $E10C.[MD.: |
00004550: 20 20 4A 53 52 20 24 42 44 44 31 00 6F 4D 76 C5 | JSR $BDD1.oMv.|
00004560: 3A 20 20 20 20 20 20 4C 44 41 20 23 22 20 22 00 |: LDA #" ".|
00004570: 84 4D A8 C5 3A 20 20 20 20 20 20 4A 53 52 20 24 |.M..: JSR $|
00004580: 45 31 30 43 00 99 4D DA C5 4C 4F 32 20 20 20 20 |E10C..M..LO2 |
00004590: 4A 53 52 20 24 45 31 31 32 00 A8 4D 0C C6 3A 20 |JSR $E112..M..: |
000045A0: 20 20 20 20 20 54 41 58 00 BB 4D 3E C6 3A 20 20 | TAX..M>.: |
000045B0: 20 20 20 20 42 45 51 20 4C 4F 33 00 D0 4D 70 C6 | BEQ LO3..Mp.|
000045C0: 3A 20 20 20 20 20 20 4A 53 52 20 24 45 31 30 43 |: JSR $E10C|
000045D0: 00 E3 4D A2 C6 3A 20 20 20 20 20 20 42 43 43 20 |..M..: BCC |
000045E0: 4C 4F 32 00 F6 4D D4 C6 4C 4F 33 20 20 20 20 4C |LO2..M..LO3 L|
000045F0: 44 41 20 23 31 33 00 0B 4E 06 C7 3A 20 20 20 20 |DA #13..N..: |
00004600: 20 20 4A 53 52 20 24 45 31 30 43 00 20 4E 38 C7 | JSR $E10C. N8.|
00004610: 3A 20 20 20 20 20 20 4A 53 52 20 24 46 46 45 31 |: JSR $FFE1|
00004620: 00 33 4E 6A C7 3A 20 20 20 20 20 20 42 45 51 20 |.3Nj.: BEQ |
00004630: 4C 4F 34 00 45 4E 9C C7 3A 20 20 20 20 20 20 4C |LO4.EN..: L|
00004640: 44 58 20 23 34 00 59 4E CE C7 3A 20 20 20 20 20 |DX #4.YN..: |
00004650: 20 42 4E 45 20 44 49 52 32 00 6E 4E 00 C8 4C 4F | BNE DIR2.nN..LO|
00004660: 34 20 20 20 20 4A 53 52 20 24 46 46 43 43 00 83 |4 JSR $FFCC..|
00004670: 4E 32 C8 3A 20 20 20 20 20 20 4A 4D 50 20 24 46 |N2.: JMP $F|
00004680: 36 34 32 00 89 4E 64 C8 3A 00 A8 4E 96 C8 44 49 |642..Nd.:..N..DI|
00004690: 53 4B 20 4A 53 52 20 24 41 44 39 45 20 3B 53 54 |SK JSR $AD9E ;ST|
000046A0: 52 49 4E 47 20 48 4F C3 00 BB 4E C8 C8 3A 20 20 |RING HO...N..: |
000046B0: 20 20 4A 53 52 20 24 42 36 41 33 00 D8 4E FA C8 | JSR $B6A3..N..|
000046C0: 3A 20 20 20 20 53 54 41 20 32 20 20 20 20 20 20 |: STA 2 |
000046D0: 20 3B 4C 41 45 4E 47 45 00 E8 4E 2C C9 3A 20 20 | ;LAENGE..N,.: |
000046E0: 20 20 4C 44 41 20 23 38 00 0C 4F 5E C9 3A 20 20 | LDA #8..O^.: |
000046F0: 20 20 53 54 41 20 24 42 41 20 20 20 20 20 3B 47 | STA $BA ;G|
00004700: 45 52 41 45 54 45 4E 55 4D 4D 45 52 00 1F 4F 90 |ERAETENUMMER..O.|
00004710: C9 3A 20 20 20 20 4A 53 52 20 24 46 46 42 31 00 |.: JSR $FFB1.|
00004720: 34 4F C2 C9 3A 20 20 20 20 4C 44 41 20 23 31 35 |4O..: LDA #15|
00004730: AA 24 36 30 00 53 4F F4 C9 3A 20 20 20 20 53 54 |.$60.SO..: ST|
00004740: 41 20 24 42 39 20 20 20 20 20 3B 53 45 4B 2E 41 |A $B9 ;SEK.A|
00004750: 44 52 2E 00 66 4F 26 CA 3A 20 20 20 20 4A 53 52 |DR..fO&.: JSR|
00004760: 20 24 46 46 39 33 00 76 4F 58 CA 3A 20 20 20 20 | $FF93.vOX.: |
00004770: 4C 44 59 20 23 30 00 9C 4F 8A CA 50 4F 4C 20 20 |LDY #0..O..POL |
00004780: 4C 44 58 20 32 20 20 20 20 20 20 20 3B 5A 41 48 |LDX 2 ;ZAH|
00004790: 4C 20 44 2E 20 5A 45 49 43 48 45 4E 00 BC 4F BC |L D. ZEICHEN..O.|
000047A0: CA 3A 20 20 20 20 42 45 51 20 A0 20 20 20 3B 20 |.: BEQ . ; |
000047B0: B2 30 20 B2 B1 20 46 45 52 54 49 47 00 D1 4F EE |.0 .. FERTIG..O.|
000047C0: CA 3A 20 20 20 20 4C 44 41 20 28 24 32 32 29 2C |.: LDA ($22),|
000047D0: 59 00 F4 4F 20 CB 3A 20 20 20 20 4A 53 52 20 24 |Y..O .: JSR $|
000047E0: 46 46 41 38 20 20 20 3B 41 4E 20 44 49 53 4B 20 |FFA8 ;AN DISK |
000047F0: 53 80 45 4E 00 01 50 52 CB 3A 20 20 20 20 49 4E |S.EN..PR.: IN|
00004800: 59 00 10 50 84 CB 3A 20 20 20 20 44 45 43 20 32 |Y..P..: DEC 2|
00004810: 00 32 50 B6 CB 3A 20 20 20 20 42 50 4C 20 50 4F |.2P..: BPL PO|
00004820: 4C 20 20 20 20 20 3B 55 4E 42 45 44 2E 20 53 50 |L ;UNBED. SP|
00004830: 8A 47 00 4B 50 E8 CB A0 20 4A 4D 50 20 24 46 46 |.G.KP... JMP $FF|
00004840: 41 45 20 20 3B 46 45 52 54 49 47 00 51 50 1A CC |AE ;FERTIG.QP..|
00004850: 3A 00 6B 50 4C CC 44 53 54 20 20 4A 53 52 20 24 |:.kPL.DST JSR $|
00004860: 46 46 43 43 20 20 20 3B 9C 43 48 00 7B 50 7E CC |FFCC ;.CH.{P~.|
00004870: 3A 20 20 20 20 4C 44 41 20 23 38 00 8C 50 B0 CC |: LDA #8..P..|
00004880: 3A 20 20 20 20 53 54 41 20 24 42 41 00 9F 50 E2 |: STA $BA..P.|
00004890: CC 3A 20 20 20 20 4A 53 52 20 24 46 46 42 34 00 |.: JSR $FFB4.|
000048A0: B4 50 14 CD 3A 20 20 20 20 4C 44 41 20 23 31 35 |.P..: LDA #15|
000048B0: AA 24 36 30 00 C5 50 46 CD 3A 20 20 20 20 53 54 |.$60..PF.: ST|
000048C0: 41 20 24 42 39 00 D8 50 78 CD 3A 20 20 20 20 4A |A $B9..Px.: J|
000048D0: 53 52 20 24 46 46 39 36 00 F7 50 AA CD 4C 4F 4C |SR $FF96..P..LOL|
000048E0: 20 20 4A 53 52 20 24 46 46 41 35 20 20 20 3B 45 | JSR $FFA5 ;E|
000048F0: 49 4E 4C 45 53 45 4E 00 18 51 DC CD 3A 20 20 20 |INLESEN..Q..: |
00004900: 20 4A 53 52 20 24 46 46 44 32 20 20 20 3B 41 55 | JSR $FFD2 ;AU|
00004910: 53 44 52 55 43 4B 45 4E 00 29 51 0E CE 3A 20 20 |SDRUCKEN.)Q..: |
00004920: 20 20 43 4D 50 20 23 31 33 00 3A 51 40 CE 3A 20 | CMP #13.:Q@.: |
00004930: 20 20 20 42 4E 45 20 4C 4F 4C 00 52 51 72 CE 3A | BNE LOL.RQr.:|
00004940: 20 20 20 20 4A 4D 50 20 24 46 46 41 42 20 20 20 | JMP $FFAB |
00004950: 3B A0 00 58 51 A4 CE 3A 00 79 51 D6 CE 45 52 52 |;..XQ..:.yQ..ERR|
00004960: CB 20 4A 53 52 20 24 41 39 36 42 20 20 3B 5A 45 |. JSR $A96B ;ZE|
00004970: 49 C3 4E 52 2E 20 48 4F C3 00 8B 51 08 CF 3A 20 |I.NR. HO...Q..: |
00004980: 20 20 20 20 4C 44 41 20 24 31 34 00 AB 51 3A CF | LDA $14..Q:.|
00004990: 3A 20 20 20 20 20 53 54 41 20 5A 45 49 4C 4E 52 |: STA ZEILNR|
000049A0: 20 3B 53 50 45 49 43 48 45 52 4E 00 BD 51 6C CF | ;SPEICHERN..Ql.|
000049B0: 3A 20 20 20 20 20 4C 44 41 20 24 31 35 00 D4 51 |: LDA $15..Q|
000049C0: 9E CF 3A 20 20 20 20 20 53 54 41 20 5A 45 49 4C |..: STA ZEIL|
000049D0: 4E 52 AA 31 00 E7 51 D0 CF 3A 20 20 20 20 20 4C |NR.1..Q..: L|
000049E0: 44 41 20 23 24 46 46 00 FB 51 02 D0 3A 20 20 20 |DA #$FF..Q..: |
000049F0: 20 20 53 54 41 20 45 52 52 46 4C 00 09 52 34 D0 | STA ERRFL..R4.|
00004A00: 3A 20 20 20 20 20 52 54 53 00 0F 52 66 D0 3A 00 |: RTS..Rf.:.|
00004A10: 21 52 98 D0 45 52 52 4F 46 46 20 4C 44 41 20 23 |!R..ERROFF LDA #|
00004A20: 30 00 36 52 CA D0 3A 20 20 20 20 20 20 53 54 41 |0.6R..: STA|
00004A30: 20 45 52 52 46 4C 00 45 52 FC D0 3A 20 20 20 20 | ERRFL.ER..: |
00004A40: 20 20 52 54 53 00 4B 52 2E D1 3A 00 60 52 60 D1 | RTS.KR..:.`R`.|
00004A50: 3B 42 41 53 49 43 AB 46 55 4E 4B 54 49 91 45 4E |;BASIC.FUNKTI.EN|
00004A60: 00 66 52 74 D1 3A 00 8B 52 92 D1 54 45 53 54 20 |.fRt.:..R..TEST |
00004A70: 20 20 4A 53 52 20 24 41 45 46 41 20 20 20 20 3B | JSR $AEFA ;|
00004A80: 4B 4C 41 4D 4D 45 52 20 41 55 46 00 AB 52 C4 D1 |KLAMMER AUF..R..|
00004A90: 3A 20 20 20 20 20 20 4A 53 52 20 A1 50 41 52 41 |: JSR .PARA|
00004AA0: 31 20 3B 58 AD 59 AB 4B 4F B0 44 00 CF 52 F6 D1 |1 ;X.Y.KO.D..R..|
00004AB0: 3A 20 20 20 20 20 20 4A 53 52 20 43 4B 4B 4C 4D |: JSR CKKLM|
00004AC0: 20 20 20 20 3B 4B 4C 41 4D 4D 45 52 20 5A 55 00 | ;KLAMMER ZU.|
00004AD0: E4 52 28 D2 3A 20 20 20 20 20 20 4A 53 52 20 52 |.R(.: JSR R|
00004AE0: 4F 4D 4F 46 00 05 53 5A D2 3A 20 20 20 20 20 20 |OMOF..SZ.: |
00004AF0: 4A 53 52 20 42 45 52 50 4F B5 20 3B 50 55 4E 4B |JSR BERPO. ;PUNK|
00004B00: 54 41 44 52 2E 00 17 53 8C D2 3A 20 20 20 20 20 |TADR...S..: |
00004B10: 20 4C 44 59 20 23 30 00 38 53 BE D2 3A 20 20 20 | LDY #0.8S..: |
00004B20: 20 20 20 AF 20 28 41 42 4D 50 29 2C 59 20 3B 47 | . (ABMP),Y ;G|
00004B30: 45 53 45 54 5A 54 22 3F 00 57 53 F0 D2 3A 20 20 |ESETZT"?.WS..: |
00004B40: 20 20 20 20 42 45 51 20 A8 53 45 54 20 20 20 3B | BEQ .SET ;|
00004B50: 4E 45 49 4E 20 B2 B1 00 7C 53 22 D3 3A 20 20 20 |NEIN ...|S".: |
00004B60: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY |
00004B70: 3B 45 52 47 45 42 4E 49 53 B2 AB 31 00 9F 53 54 |;ERGEBNIS..1..ST|
00004B80: D3 A8 53 45 54 20 53 54 59 20 24 36 32 20 20 20 |..SET STY $62 |
00004B90: 20 20 20 3B 20 AB AB 22 2D 2D 20 20 3D 20 30 00 | ; .."-- = 0.|
00004BA0: B4 53 86 D3 3A 20 20 20 20 20 20 4A 53 52 20 52 |.S..: JSR R|
00004BB0: 4F 4D 49 4E 00 D7 53 B8 D3 3A 20 20 20 20 20 20 |OMIN..S..: |
00004BC0: 4A 4D 50 20 24 42 43 33 45 20 20 20 20 3B 56 47 |JMP $BC3E ;VG|
00004BD0: 4C 2E 20 B4 28 20 29 00 DD 53 EA D3 3A 00 03 54 |L. .( )..S..:..T|
00004BE0: 1C D4 45 56 4C 20 20 20 20 4A 53 52 20 24 41 45 |..EVL JSR $AE|
00004BF0: 46 31 20 20 20 20 3B 53 54 52 49 4E 47 20 4C 45 |F1 ;STRING LE|
00004C00: 53 45 4E 00 29 54 1D D4 3A 20 20 20 20 20 20 4A |SEN.)T..: J|
00004C10: 53 52 20 24 42 33 41 36 20 20 20 20 3B 44 49 52 |SR $B3A6 ;DIR|
00004C20: 45 4B 54 4D 4F 44 2E 22 3F 00 48 54 4E D4 3A 20 |EKTMOD."?.HTN.: |
00004C30: 20 20 20 20 20 4C 44 58 20 24 37 41 20 20 20 20 | LDX $7A |
00004C40: 20 20 3B 43 48 52 A1 AB 00 67 54 4F D4 3A 20 20 | ;CHR...gTO.: |
00004C50: 20 20 20 20 4C 44 59 20 24 37 42 20 20 20 20 20 | LDY $7B |
00004C60: 20 3B 50 4F B5 45 52 00 87 54 50 D4 3A 20 20 20 | ;PO.ER..TP.: |
00004C70: 20 20 20 53 54 58 20 24 41 37 20 20 20 20 20 20 | STX $A7 |
00004C80: 3B 52 45 54 54 45 4E 00 9A 54 51 D4 3A 20 20 20 |;RETTEN..TQ.: |
00004C90: 20 20 20 53 54 59 20 24 41 38 00 BF 54 52 D4 3A | STY $A8..TR.:|
00004CA0: 20 20 20 20 20 20 4A 53 52 20 24 42 37 38 32 20 | JSR $B782 |
00004CB0: 20 20 20 3B 53 54 52 49 4E 47 50 41 52 41 2E 00 | ;STRINGPARA..|
00004CC0: E2 54 53 D4 3A 20 20 20 20 20 20 43 4D 50 20 23 |.TS.: CMP #|
00004CD0: 24 35 30 20 20 20 20 20 3B 5A 55 20 4C 41 4E 47 |$50 ;ZU LANG|
00004CE0: 22 3F 00 02 55 54 D4 3A 20 20 20 20 20 20 42 43 |"?..UT.: BC|
00004CF0: 43 20 45 56 31 20 20 20 20 20 20 3B 4E 45 49 4E |C EV1 ;NEIN|
00004D00: B2 B1 00 22 55 80 D4 3A 20 20 20 20 20 20 4A 4D |..."U..: JM|
00004D10: 50 20 24 41 35 37 31 20 20 20 20 3B B2 B1 45 52 |P $A571 ;..ER|
00004D20: 52 B0 00 46 55 81 D4 45 56 31 20 20 20 20 54 41 |R..FU..EV1 TA|
00004D30: 58 20 20 20 20 20 20 20 20 20 20 3B 4C 41 45 4E |X ;LAEN|
00004D40: 47 45 B2 30 22 3F 00 66 55 82 D4 3A 20 20 20 20 |GE.0"?.fU..: |
00004D50: 20 20 42 4E 45 20 45 56 4C 32 20 20 20 20 20 3B | BNE EVL2 ;|
00004D60: 4E 45 49 4E B2 B1 00 89 55 83 D4 3A 20 20 20 20 |NEIN....U..: |
00004D70: 20 20 4A 4D 50 20 24 42 38 46 37 20 20 20 20 3B | JMP $B8F7 ;|
00004D80: 57 45 52 54 B2 30 20 21 21 00 9B 55 84 D4 45 56 |WERT.0 !!..U..EV|
00004D90: 4C 32 20 20 20 4C 44 59 20 23 30 00 BE 55 85 D4 |L2 LDY #0..U..|
00004DA0: 45 56 4C 4C 50 20 20 4C 44 41 20 28 24 32 32 29 |EVLLP LDA ($22)|
00004DB0: 2C 59 20 20 3B 53 54 52 49 4E 47 20 49 4E 00 E0 |,Y ;STRING IN..|
00004DC0: 55 B2 D4 3A 20 20 20 20 20 20 53 54 41 20 24 32 |U..: STA $2|
00004DD0: 30 30 2C 59 20 20 20 3B 45 49 4E 47 41 42 45 AB |00,Y ;EINGABE.|
00004DE0: 00 00 56 B3 D4 3A 20 20 20 20 20 20 49 4E 59 20 |..V..: INY |
00004DF0: 20 20 20 20 20 20 20 20 20 3B 50 55 46 46 45 52 | ;PUFFER|
00004E00: 00 0F 56 B4 D4 3A 20 20 20 20 20 20 44 45 58 00 |..V..: DEX.|
00004E10: 24 56 B5 D4 3A 20 20 20 20 20 20 42 4E 45 20 45 |$V..: BNE E|
00004E20: 56 4C 4C 50 00 33 56 B6 D4 3A 20 20 20 20 20 20 |VLLP.3V..: |
00004E30: 54 58 41 00 49 56 B7 D4 3A 20 20 20 20 20 20 53 |TXA.IV..: S|
00004E40: 54 41 20 24 32 30 30 2C 59 00 6B 56 E4 D4 3A 20 |TA $200,Y.kV..: |
00004E50: 20 20 20 20 20 53 54 41 20 24 37 41 20 20 20 20 | STA $7A |
00004E60: 20 20 3B 43 48 52 A1 20 41 55 46 00 91 56 E5 D4 | ;CHR. AUF..V..|
00004E70: 3A 20 20 20 20 20 20 4C 44 58 20 23 32 20 20 20 |: LDX #2 |
00004E80: 20 20 20 20 3B 45 49 4E 47 41 42 45 50 55 46 46 | ;EINGABEPUFF|
00004E90: 2E 00 A4 56 E6 D4 3A 20 20 20 20 20 20 53 54 58 |...V..: STX|
00004EA0: 20 24 37 42 00 C7 56 E7 D4 3A 20 20 20 20 20 20 | $7B..V..: |
00004EB0: 4A 53 52 20 24 41 35 37 39 20 20 20 20 3B B5 45 |JSR $A579 ;.E|
00004EC0: 52 50 52 45 54 45 52 00 EA 56 E8 D4 3A 20 20 20 |RPRETER..V..: |
00004ED0: 20 20 20 4A 53 52 20 24 41 44 41 36 20 20 20 20 | JSR $ADA6 |
00004EE0: 3B 41 55 53 57 45 52 54 45 4E 00 FD 56 16 D5 3A |;AUSWERTEN..V..:|
00004EF0: 20 20 20 20 20 20 4C 44 58 20 24 41 37 00 1B 57 | LDX $A7..W|
00004F00: 17 D5 3A 20 20 20 20 20 20 4C 44 59 20 24 41 38 |..: LDY $A8|
00004F10: 20 20 20 20 20 20 3B 43 48 52 A1 00 40 57 18 D5 | ;CHR..@W..|
00004F20: 3A 20 20 20 20 20 20 4A 4D 50 20 24 42 37 45 36 |: JMP $B7E6|
00004F30: 20 20 20 20 3B 5A 55 52 55 45 43 4B 53 45 54 5A | ;ZURUECKSETZ|
00004F40: 00 46 57 48 D5 3A 00 4C 57 7A D5 3A 00 62 57 AC |.FWH.:.LWz.:.bW.|
00004F50: D5 3B 44 41 54 45 4E 20 55 4E 44 20 54 41 42 45 |.;DATEN UND TABE|
00004F60: 4C C3 00 68 57 DE D5 3A 00 88 57 10 D6 42 45 46 |L..hW..:..W..BEF|
00004F70: 20 20 2E C6 20 22 44 52 41 D7 22 20 3B 42 45 46 | .. "DRA." ;BEF|
00004F80: 45 48 4C 53 57 B0 54 45 00 9B 57 42 D6 3A 20 20 |EHLSW.TE..WB.: |
00004F90: 20 20 2E C6 20 22 50 4C 4F D4 22 00 AD 57 74 D6 | .. "PLO."..Wt.|
00004FA0: 3A 20 20 20 20 2E C6 20 22 43 4C D3 22 00 BF 57 |: .. "CL."..W|
00004FB0: A6 D6 3A 20 20 20 20 2E C6 20 22 43 4F CC 22 00 |..: .. "CO.".|
00004FC0: D1 57 D8 D6 3A 20 20 20 20 2E C6 20 22 4F 4C C4 |.W..: .. "OL.|
00004FD0: 22 00 E4 57 0A D7 3A 20 20 20 20 2E C6 20 22 53 |"..W..: .. "S|
00004FE0: 57 41 D0 22 00 F7 57 3C D7 3A 20 20 20 20 2E C6 |WA."..W<.: ..|
00004FF0: 20 22 43 4F 50 D9 22 00 0A 58 6E D7 3A 20 20 20 | "COP."..Xn.: |
00005000: 20 2E C6 20 22 54 45 58 D4 22 00 1D 58 A0 D7 3A | .. "TEX."..X..:|
00005010: 20 20 20 20 2E C6 20 22 47 52 4F CE 22 00 31 58 | .. "GRO.".1X|
00005020: D2 D7 3A 20 20 20 20 2E C6 20 22 47 52 4F 46 C6 |..: .. "GROF.|
00005030: 22 00 45 58 04 D8 3A 20 20 20 20 2E C6 20 22 47 |".EX..: .. "G|
00005040: 4C 4F 41 C4 22 00 59 58 36 D8 3A 20 20 20 20 2E |LOA.".YX6.: .|
00005050: C6 20 22 47 53 41 56 C5 22 00 6F 58 68 D8 3A 20 |. "GSAV.".oXh.: |
00005060: 20 20 20 2E C6 20 22 43 41 54 41 4C 4F C7 22 00 | .. "CATALO.".|
00005070: 82 58 9A D8 3A 20 20 20 20 2E C6 20 22 44 49 53 |.X..: .. "DIS|
00005080: CB 22 00 94 58 CC D8 3A 20 20 20 20 2E C6 20 22 |."..X..: .. "|
00005090: 44 53 D4 22 00 A8 58 FE D8 3A 20 20 20 20 2E C6 |DS."..X..: ..|
000050A0: 20 22 45 52 52 47 CF 22 00 BD 58 30 D9 3A 20 20 | "ERRG."..X0.: |
000050B0: 20 20 2E C6 20 22 45 52 52 4F 46 C6 22 00 DF 58 | .. "ERROF."..X|
000050C0: 62 D9 3A 20 20 20 20 2E C6 20 22 5C D1 22 20 20 |b.: .. "\." |
000050D0: 20 20 3B 20 45 52 57 45 49 54 45 52 42 41 52 00 | ; ERWEITERBAR.|
000050E0: 01 59 94 D9 3A 20 20 20 20 2E C6 20 22 5C D1 22 |.Y..: .. "\."|
000050F0: 20 20 20 20 3B 20 AB AB AB AB 20 22 20 2D 2D 2D | ; .... " ---|
00005100: 2D 00 23 59 C6 D9 3A 20 20 20 20 2E C6 20 22 5C |-.#Y..: .. "\|
00005110: D1 22 20 20 20 20 3B 20 AB AB AB AB 20 22 20 2D |." ; .... " -|
00005120: 2D 2D 2D 00 45 59 F8 D9 3A 20 20 20 20 2E C6 20 |---.EY..: .. |
00005130: 22 5C D1 22 20 20 20 20 3B 20 AB AB 20 46 55 45 |"\." ; .. FUE|
00005140: 52 20 AB AB AB 00 67 59 2A DA 3A 20 20 20 20 2E |R ....gY*.: .|
00005150: C6 20 22 5C D1 22 20 20 20 20 3B 20 AB AB AB AB |. "\." ; ....|
00005160: 20 22 20 2D 2D 2D 2D 00 89 59 5C DA 3A 20 20 20 | " ----..Y\.: |
00005170: 20 2E C6 20 22 5C D1 22 20 20 20 20 3B 20 AB 20 | .. "\." ; . |
00005180: 42 45 46 45 48 4C 45 20 AB 00 AB 59 8E DA 3A 20 |BEFEHLE ...Y..: |
00005190: 20 20 20 2E C6 20 22 5C D1 22 20 20 20 20 3B 20 | .. "\." ; |
000051A0: AB AB AB AB 20 22 20 2D 2D 2D 2D 00 CD 59 C0 DA |.... " ----..Y..|
000051B0: 3A 20 20 20 20 2E C6 20 22 5C D1 22 20 20 20 20 |: .. "\." |
000051C0: 3B 20 AB AB AB AB 20 22 20 2D 2D 2D 2D 00 EF 59 |; .... " ----..Y|
000051D0: F2 DA 3A 20 20 20 20 2E C6 20 22 5C D1 22 20 20 |..: .. "\." |
000051E0: 20 20 3B 20 AB AB AB AB 20 22 20 2D 2D 2D 2D 00 | ; .... " ----.|
000051F0: 02 5A 24 DB 3A 20 20 20 20 2E C6 20 22 54 45 53 |.Z$.: .. "TES|
00005200: D4 22 00 14 5A 56 DB 3A 20 20 20 20 2E C6 20 22 |."..ZV.: .. "|
00005210: 45 56 CC 22 00 36 5A 88 DB 3A 20 20 20 20 2E C6 |EV.".6Z..: ..|
00005220: 20 22 22 20 20 20 20 20 20 3B 20 45 52 57 45 49 | "" ; ERWEI|
00005230: 54 45 52 42 41 52 00 57 5A BA DB 3A 20 20 20 20 |TERBAR.WZ..: |
00005240: 2E C6 20 22 22 20 20 20 20 20 20 3B 20 AB AB 20 |.. "" ; .. |
00005250: 46 55 45 52 20 AB AB 00 77 5A EC DB 3A 20 20 20 |FUER ...wZ..: |
00005260: 20 2E C6 20 22 22 20 20 20 20 20 20 3B 20 46 55 | .. "" ; FU|
00005270: 4E 4B 54 49 91 45 4E 00 88 5A 1E DC 3A 20 20 20 |NKTI.EN..Z..: |
00005280: 20 2E 42 59 54 20 30 30 00 8E 5A 50 DC 3A 00 B3 | .BYT 00..ZP.:..|
00005290: 5A 82 DC 54 41 42 32 20 2E 57 B0 20 50 4C 4F 54 |Z..TAB2 .W. PLOT|
000052A0: 20 20 20 3B 42 45 46 45 48 4C 53 41 44 52 45 53 | ;BEFEHLSADRES|
000052B0: 53 45 4E 00 C5 5A B4 DC 3A 20 20 20 20 2E 57 B0 |SEN..Z..: .W.|
000052C0: 20 50 4C 4F 54 00 D6 5A E6 DC 3A 20 20 20 20 2E | PLOT..Z..: .|
000052D0: 57 B0 20 43 4C 53 00 E7 5A 18 DD 3A 20 20 20 20 |W. CLS..Z..: |
000052E0: 2E 57 B0 20 43 4F 4C 00 F8 5A 4A DD 3A 20 20 20 |.W. COL..ZJ.: |
000052F0: 20 2E 57 B0 20 4F 4C 44 00 0A 5B 7C DD 3A 20 20 | .W. OLD..[|.: |
00005300: 20 20 2E 57 B0 20 53 57 41 50 00 1C 5B AE DD 3A | .W. SWAP..[..:|
00005310: 20 20 20 20 2E 57 B0 20 43 4F 50 59 00 2E 5B E0 | .W. COPY..[.|
00005320: DD 3A 20 20 20 20 2E 57 B0 20 54 45 58 54 00 40 |.: .W. TEXT.@|
00005330: 5B 12 DE 3A 20 20 20 20 2E 57 B0 20 47 52 49 4E |[..: .W. GRIN|
00005340: 00 52 5B 44 DE 3A 20 20 20 20 2E 57 B0 20 47 52 |.R[D.: .W. GR|
00005350: 4F 46 00 64 5B 76 DE 3A 20 20 20 20 2E 57 B0 20 |OF.d[v.: .W. |
00005360: 47 4C 4F 44 00 76 5B A8 DE 3A 20 20 20 20 2E 57 |GLOD.v[..: .W|
00005370: B0 20 47 53 41 56 00 87 5B DA DE 3A 20 20 20 20 |. GSAV..[..: |
00005380: 2E 57 B0 20 44 49 52 00 99 5B 0C DF 3A 20 20 20 |.W. DIR..[..: |
00005390: 20 2E 57 B0 20 44 49 53 4B 00 AA 5B 3E DF 3A 20 | .W. DISK..[>.: |
000053A0: 20 20 20 2E 57 B0 20 44 53 54 00 BC 5B 70 DF 3A | .W. DST..[p.:|
000053B0: 20 20 20 20 2E 57 B0 20 45 52 52 CB 00 D0 5B A2 | .W. ERR...[.|
000053C0: DF 3A 20 20 20 20 2E 57 B0 20 45 52 52 4F 46 46 |.: .W. ERROFF|
000053D0: 00 F1 5B D4 DF 3A 20 20 20 20 2E 57 B0 20 8F 20 |..[..: .W. . |
000053E0: 20 20 20 20 3B 20 45 52 57 45 49 54 45 52 42 41 | ; ERWEITERBA|
000053F0: 52 00 10 5C 06 E0 3A 20 20 20 20 2E 57 B0 20 8F |R..\..: .W. .|
00005400: 20 20 20 20 20 3B 20 2D 2D 2D 20 22 20 2D 2D 2D | ; --- " ---|
00005410: 00 2F 5C 38 E0 3A 20 20 20 20 2E 57 B0 20 8F 20 |./\8.: .W. . |
00005420: 20 20 20 20 3B 20 2D 2D 2D 20 22 20 2D 2D 2D 00 | ; --- " ---.|
00005430: 4E 5C 6A E0 3A 20 20 20 20 2E 57 B0 20 8F 20 20 |N\j.: .W. . |
00005440: 20 20 20 3B 20 2D 2D 2D 20 22 20 2D 2D 2D 00 6D | ; --- " ---.m|
00005450: 5C 9C E0 3A 20 20 20 20 2E 57 B0 20 8F 20 20 20 |\..: .W. . |
00005460: 20 20 3B 20 2D 2D 2D 20 22 20 2D 2D 2D 00 8C 5C | ; --- " ---..\|
00005470: CE E0 3A 20 20 20 20 2E 57 B0 20 8F 20 20 20 20 |..: .W. . |
00005480: 20 3B 20 2D 2D 2D 20 22 20 2D 2D 2D 00 AB 5C 00 | ; --- " ---..\.|
00005490: E1 3A 20 20 20 20 2E 57 B0 20 8F 20 20 20 20 20 |.: .W. . |
000054A0: 3B 20 2D 2D 2D 20 22 20 2D 2D 2D 00 CA 5C 32 E1 |; --- " ---..\2.|
000054B0: 3A 20 20 20 20 2E 57 B0 20 8F 20 20 20 20 20 3B |: .W. . ;|
000054C0: 20 2D 2D 2D 20 22 20 2D 2D 2D 00 E9 5C 64 E1 3A | --- " ---..\d.:|
000054D0: 20 20 20 20 2E 57 B0 20 8F 20 20 20 20 20 3B 20 | .W. . ; |
000054E0: 2D 2D 2D 20 22 20 2D 2D 2D 00 EF 5C 96 E1 3A 00 |--- " ---..\..:.|
000054F0: 2B 5D C8 E1 4D 45 53 53 41 47 45 20 2E C6 20 22 |+]..MESSAGE .. "|
00005500: 93 9A 11 2A 2A 20 20 45 52 57 45 49 54 45 52 54 |...** ERWEITERT|
00005510: 45 20 47 52 41 50 48 49 43 2D 42 41 53 49 43 20 |E GRAPHIC-BASIC |
00005520: 56 45 52 53 49 4F 4E 20 20 2A 2A 00 57 5D FA E1 |VERSION **.W]..|
00005530: 2E C6 20 22 11 20 20 20 20 20 20 20 28 43 29 20 |.. ". (C) |
00005540: 31 39 38 35 20 42 59 20 42 45 52 4E 48 41 52 44 |1985 BY BERNHARD|
00005550: 20 53 4D 49 54 48 11 00 5D 5D 2C E2 3A 00 81 5D | SMITH..]],.:..]|
00005560: 5E E2 54 41 42 34 20 2E 57 B0 20 54 45 53 54 AB |^.TAB4 .W. TEST.|
00005570: 31 3B 46 55 4E 4B 54 49 91 53 41 44 52 45 53 53 |1;FUNKTI.SADRESS|
00005580: 45 00 94 5D 90 E2 3A 20 20 20 20 2E 57 B0 20 45 |E..]..: .W. E|
00005590: 56 4C AB 31 00 B6 5D C2 E2 3A 20 20 20 20 2E 57 |VL.1..]..: .W|
000055A0: B0 20 24 46 46 46 46 20 3B 20 20 45 52 57 45 49 |. $FFFF ; ERWEI|
000055B0: 54 45 52 42 41 52 00 D8 5D F4 E2 3A 20 20 20 20 |TERBAR..]..: |
000055C0: 2E 57 B0 20 24 46 46 46 46 20 3B 20 20 AB AB AB |.W. $FFFF ; ...|
000055D0: AB 20 22 20 2D 2D 2D 2D 00 FA 5D 26 E3 3A 20 20 |. " ----..]&.: |
000055E0: 20 20 2E 57 B0 20 24 46 46 46 46 20 3B 20 20 AB | .W. $FFFF ; .|
000055F0: AB AB AB 20 22 20 2D 2D 2D 2D 00 00 5E 58 E3 3A |... " ----..^X.:|
00005600: 00 06 5E 8A E3 3A 00 2A 5E BC E3 3B 41 44 52 45 |..^..:.*^..;ADRE|
00005610: 53 53 45 4E 20 44 45 52 20 48 49 52 45 53 5A 45 |SSEN DER HIRESZE|
00005620: 49 C3 41 4E 46 41 45 4E 47 45 00 30 5E EE E3 3A |I.ANFAENGE.0^..:|
00005630: 00 55 5E 20 E4 4D 41 50 31 20 2E 57 B0 20 24 45 |.U^ .MAP1 .W. $E|
00005640: 30 30 30 2C 24 45 31 34 30 2C 24 45 32 38 30 2C |000,$E140,$E280,|
00005650: 24 45 33 43 30 00 7A 5E 52 E4 3A 20 20 20 20 2E |$E3C0.z^R.: .|
00005660: 57 B0 20 24 45 35 30 30 2C 24 45 36 34 30 2C 24 |W. $E500,$E640,$|
00005670: 45 37 38 30 2C 24 45 38 43 30 00 9F 5E 84 E4 3A |E780,$E8C0..^..:|
00005680: 20 20 20 20 2E 57 B0 20 24 45 41 30 30 2C 24 45 | .W. $EA00,$E|
00005690: 42 34 30 2C 24 45 43 38 30 2C 24 45 44 43 30 00 |B40,$EC80,$EDC0.|
000056A0: C4 5E B6 E4 3A 20 20 20 20 2E 57 B0 20 24 45 46 |.^..: .W. $EF|
000056B0: 30 30 2C 24 46 30 34 30 2C 24 46 31 38 30 2C 24 |00,$F040,$F180,$|
000056C0: 46 32 43 30 00 E9 5E E8 E4 3A 20 20 20 20 2E 57 |F2C0..^..: .W|
000056D0: B0 20 24 46 34 30 30 2C 24 46 35 34 30 2C 24 46 |. $F400,$F540,$F|
000056E0: 36 38 30 2C 24 46 37 43 30 00 0E 5F 1A E5 3A 20 |680,$F7C0.._..: |
000056F0: 20 20 20 2E 57 B0 20 24 46 39 30 30 2C 24 46 41 | .W. $F900,$FA|
00005700: 34 30 2C 24 46 42 38 30 2C 24 46 43 43 30 00 21 |40,$FB80,$FCC0.!|
00005710: 5F 4C E5 3A 20 20 20 20 2E 57 B0 20 24 46 45 30 |_L.: .W. $FE0|
00005720: 30 00 27 5F 7E E5 3A 00 4B 5F B0 E5 4D 41 50 32 |0.'_~.:.K_..MAP2|
00005730: 20 20 2E 42 59 54 20 31 32 38 2C 36 34 2C 33 32 | .BYT 128,64,32|
00005740: 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 51 5F E2 E5 |,16,8,4,2,1.Q_..|
00005750: 3A 00 62 5F 14 E6 4D 41 50 33 20 20 2E 57 B0 20 |:.b_..MAP3 .W. |
00005760: 55 50 00 75 5F 46 E6 3A 20 20 20 20 20 2E 57 B0 |UP.u_F.: .W.|
00005770: 20 44 4F 57 4E 00 88 5F 78 E6 3A 20 20 20 20 20 | DOWN.._x.: |
00005780: 2E 57 B0 20 4C 45 46 54 00 9C 5F AA E6 3A 20 20 |.W. LEFT.._..: |
00005790: 20 20 20 2E 57 B0 20 52 49 47 48 54 00 B9 5F DC | .W. RIGHT.._.|
000057A0: E6 3A 20 20 20 20 20 2E 57 B0 20 BD 4C 4F 54 20 |.: .W. .LOT |
000057B0: 20 20 20 3B 27 52 54 53 27 00 BF 5F 0E E7 3A 00 | ;'RTS'.._..:.|
000057C0: C5 5F 40 E7 3A 00 E9 5F 72 E7 3B 44 41 54 45 4E |._@.:.._r.;DATEN|
000057D0: 20 46 2E 20 C6 20 4E 41 43 48 20 42 49 4C 44 53 | F. . NACH BILDS|
000057E0: 43 48 49 52 4D 43 4F 44 45 00 EF 5F A4 E7 3A 00 |CHIRMCODE.._..:.|
000057F0: 0C 60 D6 E7 4D 41 50 34 20 20 2E 42 59 54 20 31 |.`..MAP4 .BYT 1|
00005800: 32 38 2C 30 2C 31 39 32 2C 32 32 34 00 2A 60 08 |28,0,192,224.*`.|
00005810: E8 3A 20 20 20 20 20 2E 42 59 54 20 36 34 2C 31 |.: .BYT 64,1|
00005820: 39 32 2C 31 32 38 2C 31 32 38 00 30 60 3A E8 3A |92,128,128.0`:.:|
00005830: 00 36 60 D0 E8 3A 00 58 60 02 E9 42 53 56 4B 54 |.6`..:.X`..BSVKT|
00005840: 20 2E 57 B0 20 57 52 4D 53 54 52 54 20 20 3B 57 | .W. WRMSTRT ;W|
00005850: 41 52 4D 53 54 41 52 54 00 7C 60 34 E9 3A 20 20 |ARMSTART.|`4.: |
00005860: 20 20 20 2E 57 B0 20 24 41 34 38 33 20 20 20 20 | .W. $A483 |
00005870: 3B 45 49 4E 47 2E 20 45 2E 20 5A 2E 00 9B 60 66 |;EING. E. Z...`f|
00005880: E9 3A 20 20 20 20 20 2E 57 B0 20 B5 45 52 20 20 |.: .W. .ER |
00005890: 20 20 3B B5 45 52 50 52 45 54 2E 00 B9 60 98 E9 | ;.ERPRET...`..|
000058A0: 3A 20 20 20 20 20 2E 57 B0 20 9B 20 20 20 20 20 |: .W. . |
000058B0: 3B 4B 4C 41 52 54 45 58 54 00 DC 60 CA E9 3A 20 |;KLARTEXT..`..: |
000058C0: 20 20 20 20 2E 57 B0 20 42 45 46 45 52 4B 20 20 | .W. BEFERK |
000058D0: 20 3B 42 45 46 2E 20 41 55 53 46 2E 00 01 61 FC | ;BEF. AUSF...a.|
000058E0: E9 3A 20 20 20 20 20 2E 57 B0 20 46 4B 54 45 52 |.: .W. FKTER|
000058F0: 4B 20 20 20 3B 41 55 53 44 52 2E 20 41 55 53 57 |K ;AUSDR. AUSW|
00005900: 2E 00 07 61 2E EA 3A 00 0D 61 60 EA 3A 00 14 61 |...a..:..a`.:..a|
00005910: 92 EA 2E 80 00 1B 61 C4 EA A0 31 00 00 00 |......a...1... |
.....'.58451:.32768:.OPT OO.#.B':.).T'
:./..':.D.X': .. $C000.U..(F1
. 2.H.<(F2 . $22.{.N(F3 .
$23... (ABMP . $F9...R(MASK . $F
B....)LXKOO . $FC.G.6)LYKOO . $FE.
Z.H)AXKOO . $57....)AYKOO . $59...
L).BYT . $B79E....).ADB . $B7EB.(.0*
CKCOM . $AEFD.=.B*CKKLM . $AEF7.R.
.*CKZCH . $AEFF.E.F*. = $A93B.V.
.*CHR. . $73...*+CHRKT . $79...\+CHR
PO. . $7A....+ERRFL . $0313.C..+ZEILN
R . $032E.I..+:.O.$,:...V,: LDX #11
;BASICVEK.REN....,LOLO LDA BSVKT,X
;A.ERN.$..,: STA $300,X.1..,: DE
X.C..-: BPL LOLO.^.P-: INX
;X.0....-: STX LXKOO ;GRAPHICPO.
ER. ..-: STX LXKOO.1 ;SETZEN....-:
STX LYKOO.F...: STX ERRFL.L.J.:...|
.LLLO LDA MESSAGE,X ;UEBERSCHR.T.....:
JSR $FFD2.....: INX.!../: CPX #7
8.3.D/: BNE LLLO.M.V/: JSR $A65E
;..Q../: LDX #$80 ;KEIN FEHLE
R...Z/: .BYT $2C....0ERR1 LDX #$0B
;SYNTAX ERR....>0:.O.P0WRMSTRT TXA
;WARMSTART....0: BMI ERRUT ;
KEIN FEHLER...T0: LDY ERRFL ;."?.
5..1: BEQ ERROUT ;NEIN.AUSGEBEN.I.
81: STA $9E.O.J1: LDY $3A
;DIREKTMODUS"?...1: INY...N1:
BNE .ERR ;JA . AUSGEBEN....2:.N.22E
RROUT JSR GROF ;GRAPHIC AUS...D2ERRUT
LDY #0 ;FEHLERAUSGABE....2:
STY ERRFL. .H2: JMP $E38B.&..2:.H
.,3.ERR JSR $A67A ;INIT STACK.L.^3:
LDA ZEILNR ;VGL.'. 8.85....3:
STA $14...B3: LDA ZEILNR.1....3:
STA $15.C.&4: JSR $A613.W.X4
: LDX $9E....4: BCC ERROUT..
..4: JSR $A68E....4: JSR $A8
A3.0. 5: JSR $A7AE.6.R5:.T..5. RTI
;NMI BEI ROMOFF.Z..5:.|..5.ER LDX $
7A ;.ERPRETERCODE.....6: LDY #4
;W.LUNG...L6: STY $F ;VGL. ROM.I
NG.O.~6L37 LDA $200,X....6: BPL L4
3....6: CMP #$FF....7: BEQ L7E..
.F7: INX.&.X7: BNE L37.9..7L43
CMP #$20.K..7: BEQ L7E.[..8: ST
A 8.N.@8: CMP #$22...R8: BEQ LA3
....8: BIT $F...V8: BVS L7E....9
: CMP #$3F.H.:9: BNE L59...L9:
LDA #$99....9: BNE L7E...P9L59
CMP #$30....:: BCC L61.%.4:: CMP
#$3C.7.F:: BCC L7E.I..:L61 STY $7
1.Z.J:: LDY #0.K..:: STY $B.Y..;
: DEY...`;: STX $7A....;: DE
X...D;L6B INY....;: INX.J.(<L6D
LDA $200,X.X.Z<: SEC....<: SBC $
A09E,Y....<: BEQ L6B....<: CMP #
$80.%."=: BNE LAA.5.T=L7A .A $B.G.
.=L7C LDY $71.U..=L7E INX.C..=:
INY.X..>: STA $1FB,Y...N>: . #$F
F....>: BEQ LE1....>: SEC....>:
SBC #$3A.N..?: BEQ L91...H?:
CMP #$49...Z?: BNE L93....?L91 ST
A $F....?L93 SEC.%..@: SBC #$55.7.
B@: BNE L37.G.T@: STA 8.\..@L9A
LDA $200,X.N.X@: BEQ L7E.~..A:
CMP 8...<A: BEQ L7E...NALA3 INY..
. A: STA $1FB,Y.A.RA: INX.S..B:
BNE L9A...6BLAA LDX $7A...HB:
INC $B....BLAE INY...LB: LDA $A09D
,Y.,..B: BPL LAE.B.0C: LDA $A09E
,Y.T.BC: BNE L6D.G..C: LDY #$FF.
U.FC: DEX....CLBC INX...*D: IN
Y...\DLBE LDA $200,X....D: SEC.H..
D: SBC BEF,Y.Z..D: BEQ LBC...$E:
CMP #$80...VE: BEQ L7A....E:
LDX $7A."..E: INC $B.0..ELD1 INY
.F..F: LDA BEF.1,Y.X.PF: BPL LD1
.L..F: LDA BEF,Y.~..F: BNE LBE..
..F: LDA $200,X....G: BPL L7C...
JGLE1 JMP $A609...|G:....G. JSR $AD
A6 ;GRA.ERTER....G: JSR CHRKT ;..
BEFEHL.!..H: CMP #$A7 ;VGL ROM.IN
G.2.DH: BNE .F.E.VH: JSR CHR..T.
.H.F LDA $61.G.ZH: BNE WAHR.W..I:
JSR ....>I: JMP $A7AE...PIWAHR JS
R CHRKT....I: BCS FROM..G.TI: JS
R $A8A0....J: JMP $A7AE...8J:...JJBE
FERK JSR CHR. ;BEFEHLE AUSF.....JFROM. C
MP #$8B ;."?.:.NJ: BEQ . ;JA
...]..K: CMP #204 ;ERWEITE.G"?.Z.
2K: BCS ANFU ;JA .....DKERRB JS
R CHRKT ;'N.MALER'....K: JMP $A7E7
;BEFEHL...HK:....KANFU CMP #224 ;FU
NKTI."?...,L: BCS ERRB ;JA.SYNTAX
ERR..+.^L: SBC #203 ;BEFEHLSADRE
SSE.L..L: ASL ;BERECHNEN.[.B
L: TAX.|..L: LDA TAB2,X ;ALS S
P.G....&M: STA BEXE.1 ;VEK.R...
XM: LDA TAB2.1,X.K..M: STA BEX
E.2....M: JSR CHR.....MBEXE JSR $
FFFF ;AUSFUEHREN.%. NNBEF JMP $A7AE
;WEITERMACHEN.+.RN:.1..N:.V..NFKTERK LDA
#0 ;AUSDRUCK AUS..T..N: STA $0
D ;WERTEN....O: JSR CHR. ;VGL RO
M.ING...LO: CMP #230 ;ERWEITE.G"?
.S.~O: BCS A. ;JA ......OPII J
SR CHRKT ;'N.MALE'....O: JMP $AE8D
;FUNKTI..*..PA. CMP #$FF ;."?.G.FP:
BEQ PII ;JA ...H.XP: SEC
;SP.GVEK.R....P: SBC #230 ;
BERECHNEN....P: ASL....Q: TAX.
..@Q: LDA TAB4.1,X.N.RQ: PHA..
..Q: LDA TAB4,X...VQ: PHA....R
: JMP CHR. ;FUNKTI.SWERT...:R:.!.LR
:.6..RPOUT JMP $A6F3.W.PR. BPL POUT
;KLARTEXTW.LUNG.X..S: CMP #$FF ;VGL
ROM.ING...4S: BEQ POUT...FS:
BIT $0F....S: BMI POUT.V.JS: C
MP #204 ;ERWEITE.G"?....S: BCS .E
R ;JA ......T: JMP $A724 ;. N.MAL.
/.`T.ER STY $49 ;. ERWEITER..>..T:
SEC.A.DT: SBC #203 ;VGL ROM.IN
G.P..T: TAX...(U: LDY #$FF...Z
ULOP DEX ;W.T GEFUNDEN"?.E..U:
BEQ OUT ;JA ......ULOPP INY
;NAECHSTES....U: LDA BEF,Y ;W.T.
.."V: BPL LOPP ;SUCHEN./.TV:
BMI LOP.R..VOUT INY ;W.T AUSGEB
EN.G..V: LDA BEF,Y.Y..V: BMI .
P....W: JSR $AB47...NW: BNE OU
T....W.P JMP $A6EF ;FERTIG.B..W:.H..W:
....X;UNTERROUTINEN DER ERWEITE.G...HX:.
..ZXROMOF SEI ;ROMS AUS.!..X:
LDA #$25.5..X: .BYT $2C.;..Y:.].BY
BASOF LDA #$36 ;BASICROM AUS.Q.TY:
LDY #$2F....Y: STY 0...XY: ST
A 1....Z: RTS...<Z:.F.NZROMIN LDA
#$37 ;ROMS EIN.Z. Z: LDY #$2F...RZ:
STY 0....[: STA 1...6[:
CLI...H[: RTS. ..[:.@.L[.COL JSR .
BYT ;ZEICENMODUS.D..[: TXA
;F. GRAPHIC....0\: LSR ;BEF
EHLE...B\: R.....\: R..B.F\:
STA F1 ;NACH F1.R..\: R
TS.X.*]:...\].KOO JSR .ADB ;X.Y.KO.D..
...]: CPX #200 ;EINLESEN U..B..
]: BCS ILGL1 ;AUF GUELTIG..G..]:
LDY $14 ;KEIT TESTEN.|.$^:
LDA $15...V^: CMP #1....^:
BCC OK1....^: BNE ILGL1.Q..
^: CPY #64...._: BCS ILGL1
...P_OK1 RTS...._:.. ._.PARA1 JSR .
KOO ;HOC.; ._: STX LYKOO ;SPEICH
ERN.T .`: STA LXKOO.1.K J`:
STY LXKOO.| |`: RTS.. .`:.. .`I
LGL1 LDX #$0E ;ILLEGAL.G .A:
JMP WRMSTRT ;QUANTITY.M DA:.. VA.PARA2
JSR .KOO ;VGL .PARA1..!.A: STX A
YKOO..!ZA: STA AXKOO.1.4!.B:
STY AXKOO.E!>B: RTS.K!PB:.M!.B
BERPO. LDX LYKOO ;ADRESSE V...!TB:
TXA ;HIRESPUNKT..!.C: .
#7 ;BERECHNEN.H!8C: STA ABMP
.Y!JC: TXA..!.C: LSR.."NC:
. #%01111100..".D: LSR.&"
2D: TAY.="DD: LDA LXKOO.Q"
.D: . #$F8.F"HD: .A ABMP.~
".D: ADC MAP1,Y..",E: STA
ABMP.."^E: LDA LXKOO.1.G".E:
ADC MAP1.1,Y.."BE: STA ABMP.1.
.".E: LDA LXKOO..#&F: . #7
..#XF: TAY.1#.F: LDA MAP2,
Y.G#.F: STA MASK.X#.F: RTS
.^# G:..#RGSETMASK LDY #0 ;BERECHNET
EN..#.G: LDA (ABMP),Y.A#.G:
BIT F1 ;PUNKT SETZEN.W#.G: B
MI OPT1..#.H: .A MASK..$LH:
BIT F1..$~H: BVS OPT2.,$.HOPT1
BVS OPT3.A$.H: E. MASK.[$.IOP
T2 STA (ABMP),Y.L$FIOPT3 RTS.R$X
I:..$.IDRAW SEC ;LINIE ZIEHEN..
$.I: LDA AXKOO ;.C$.J: SBC LX
KOO.V$@J: STA $60..$RJ: LDA AX
KOO.1..%.J: SBC LXKOO.1..%VJ:
STA $61.,%.K: BCS DF1PL.>%:K:
LDA #1.Q%LK: SBC $60.D%.K: STA
$60.V%PK: LDA #0..%.L: SBC $6
1..%4L: STA $61..%FLDF1OK LDX #4.C
%.L: BNE EOD.1.X%JLDF1PL BNE DF1NE
..%.L: LDA $60..&.M: BNE DF1NE
..&`M: LDX #8.&&.M: .BYT $2C.8
&DMDF1NE LDX #6.M&.MEOD.1 LDA MAP3,X.A&
(N: STA U1.1.Y&ZN: LDA MAP3.1,
X..&.N: STA U1.2..&.N: SEC..&.
N: LDA AYKOO.F&"O: SBC LYKOO.Y
&TO: STA $63..&.O: BCS DF2PL..
'.O: E. #$FF..'.O: STA $63.''.
P: INC $63.9'NP: LDX #0.N'.P:
BEQ EOD.2.C'.PDF2PL BNE DF2NE.U'.P
: LDX #8..'.Q: .BYT $2C..'HQDF
2NE LDX #2..'ZQEOD.2 LDA MAP3,X.D'.Q:
STA V1.1..'.Q: LDA MAP3.1,X..'.
R: STA V1.2..(BR: LDA $61..(TR
: BNE MGR.)(.R: LDA $60.<(XR:
CMP $63.O(.S: BCS MGR.B(<S:
LDA $60.U(NS: LDX $63..( S:
STA $63..(RS: STX $60..(.T: B
CC SETS.C(6TMGR LDA U1.1.W(HT: L
DX V1.1..(.T: STA V1.1..(LT: S
TX U1.1..).T: LDA U1.2.')0U: L
DX V1.2.;)BU: STA V1.2.O).U: S
TX U1.2.B)FUSETS LDA $61.Q).U: LS
R..)*V: STA $6A..)\V: LDA $60.
.).V: R...).V: ADC #0.J).V:
STA $69..)$W: LDA $60..)VW:
STA $67..*.W: LDA $61..*.W: S
TA $68.:*.W: JSR BERPO. ;ADR.V.PUNK
T1.I*.XREPEAT CLC.\*PX: LDA $63.O*.
X: ADC $69..*.X: STA $69..*.X:
BCC VERGSM..*.Y: INC $6A..*JY
VERGSM LDA $6A.Q*|Y: CMP $61..*.Y:
BCC V1..*.Y: BNE SGRM..+.Z:
LDA $69..+DZ: CMP $60./+VZ:
BCC V1.A+.Z: BEQ V1.P+ZZSGRM SEC
.C+.{: LDA $69.V+>{: SBC $60..
+P{: STA $69..+.{: LDA $6A..+T
{: SBC $61.B+.|: STA $6A.W+8|U
1 JSR $FFFF..+J|V1 JSR $FFFF..+.
|: LDA $67..,N|: BNE LINZ.&,.}
: LDA $68.:,2}: BNE HINZ.\,D}:
RTS ;.. FERTIG.O,.}HINZ
DEC $68..,H}LINZ DEC $67..,.}: JS
R SETMASK ;PUNKT SETZEN.M,,~: JMP R
EPEAT ;NAECHST. PUNKT.S,^~:.Y,.~:..,B~UP
LDA ABMP ;ADRESSE DES. -.~: BN
E UPOK ;OBEREN PUNKTES.@-&: DEC A
BMP.1 ;BERECHNEN.S-XUPOK DEC ABMP.B-.
: . #7.V-.: BNE RETUR..-.:
DEC ABMP.1..- .: LDA ABMP..-R.:
SEC..-..: SBC #$38.R-..: STA AB
MP..-..: BCS RETUR..-..: DEC ABM
P.1...L.RETUR RTS...~.:.3...DOWN INC AB
MP ;UNTERER PUNKT.F...: BNE DNOK.[
...: INC ABMP.1.N.F.DNOK LDA ABMP.|
.X.: TAX.....: . #7.....: BN
E RETUR.....: TXA.B.@.: INC ABMP
.1.P.R.: CLC.....: ADC #$38...V.
: STA ABMP../..: BCC RETUR../:.:
INC ABMP.1.-/L.: RTS.3/..:.V/P.
LEFT ASL MASK ;LINKER PUNKT.J/..:
BCC RETUR.}/4.: ROL MASK../F.:
SEC../..: LDA ABMP../J.: SBC #8.
B/..: STA ABMP.V/..: BCS RETUR..
/`.: DEC ABMP.1../..: RTS../D.:.
#0..RIGHT LSR MASK ;RECHTER PUNKT.70(.
: BCC RETUR.I0Z.: R. MASK.W0..:
CLC.J0..: LDA ABMP.{0..: ADC
#8..0".: STA ABMP..0T.: BCC RET
UR..0..: INC ABMP.1.E0..: RTS.K0
..:..0... SEI ;ZEICHEN AUF HIRES..1N.:
STA $B5 ;ZWISCHENSPEICHERN. 1..:
LDX #0.21..: STX $B6.D1..: STX
$B7.C1..: LDA $A7 ;Y.KO.D..Q1H.
: ASL.1Z.: TAY..1..: LDA MA
P1,Y ;ADRESSE DES.E1..: STA $60
;ZEICANFANGS..1..: LDA MAP1.1,Y;NAC
H $60.$61..2B.: STA $61 ;. 2T.:
LDA $14 ;X.KO.D..;2..: ASL
; .8.S2X.: ROL $B7 ;.T2..
: ASL ;UEBERLAUF..2<.: R
OL $B7 ;IN $B7..2N.: ASL
;.B2 .: ROL $B7 ;.P2R.: CLC
..2..: ADC $60 ;ZU $60.$61..36.:
STA $60 ;ADDIEREN.73H.: LDA
$B7 ;$60.$61 ZEIGT.V3..: ADC $6
1 ;NUN AUF.Z3L.: STA $61 ;BI
LDSCHIRM....3..:..30.: LDA $B5 ;
F.CODE..3B.: CMP #$FF ;."?.V3..:
BEQ PI ;JA ....3F.: TAY
;..4..: LSR ;."4*.:
LSR ;NACH.H4\.: LSR
;BILDSCHIRMCODE.E4..: LSR ;
W.ELN.}4..: LSR ;..4..:
TAX ;..4$.: TYA..4V.: CL
C.F4..: ADC MAP4,X.Y4..: .BYT $2
C..4..PI LDA #94 ;B.CODE F. ..!5..
: CMP #$80 ;DRUCKBARER CODE.D5P.:
BCS . ;NEIN .. FERTIG.C5..: A
SL ;PO.ER IN..5..: ROL $B6
;CHROM BERECHNEN. 5..: ASL ;
..5..: ROL $B6 ;CODE.8.T5J.:
ASL ;..5|.: ROL $B6 ;..6..
: STA $B5 ;IN $B5.$B6.#6..: L
DA $A8 ;.E6..: . #3 ;1024 MAL
AKKU.D6D.: ASL ;ADDIEREN..6V
.: ASL ;(1. PARAMETER)..6..:
CLC..6Z.: ADC #$D0 ;$D000 ADDI
EREN.S6..: ADC $B6 ;..6>.: ST
A $B6 ;SUMME $B5.$B6..7P.: LDX 1
;CHROM OFFENLEGEN./7..: STX $FF.
B7T.: LDA #$31.R7..: STA 1.U78.:
LDY #7 ;8 BYTES VOM..7J.NPT
LDA ($B5),Y ;ROM IN..7..: BIT F1
;HIRESRAM.V7N.: BMI SOP5 ;UEBER
NEHMEN..7..: BVS SOP1..72.: E. #
$FF..8D.: . ($60),Y ;LOESCHEN.,8..:
.BYT $2C.I8H.SOP1 .A ($60),Y ;SETZE
N.\8..: .BYT $2C.Z8,.SOP2 E. ($60),
Y ;INVERT...8^.SOP3 STA ($60),Y..8..:
DEY.D8B.: BPL NPT ;NAECHSTES
BYTE..8..: LDX $FF ;CHROM VERDECKEN
..8&.: STX 1..9X.. CLI..9..: R
TS.%9..SOP5 BVC SOP2.89..: BVS SOP3
.>9 .:.D9R.:.D9..;BEFEHLE DER ERWEITE.G
VGL...9..;LABELS 'BEF' U. 'TAB2'..9..:..
9..GRIN LDA #$94 ;GRAPHIC EIN..9L.:
STA $DD00.R9~.: LDA #$3B..9..:
STA $D011..9..: LDA #$38..:..
: STA $D018..:F.: RTS.%:X.:.H:
..GROF LDA #$97 ;GRAPHIC AUS.]:..:
STA $DD00.Q:..: LDA #$9B..:@.:
STA $D011..:R.: LDA #$15..:..:
STA $D018..:V.: RTS.D:..:..::
.GLOD JSR $E1D4 ;GRAPHIC LADEN..:L.:
LDA #1..;..: STA $B9. ;P.:
LDA #0.5;..: JMP $F49E.;;4.:.];F.
GSAV JSR $E1D4 ;GRAPHIC .N.;..:
JSR BASOF ;BASROM AUS..;J.: LDX #
0..;..: LDY #$C0 ;.ADR..O;..:
LDA #$A0 ;STARTADR...;`.: STX $
F7 ;STARTADR...<..: STA $F8 ;
".1<D.: LDA #$F7 ;SEKUNDAERADR
..D<..: STA $B9.]<( : JSR $F5D
D ;...<Z : JMP ROMIN ;ROM EIN & .
E..<. :..<. CLS LDX #$1E ;HIRES.MAP
.J<. : LDY #$E0 ;LOESCHEN &..<".:
STY $61 ;FARBE SETZEN..=T.:
LDY #0..=..: STY $60."=..: T
YA.C=..LP1 STA ($60),Y ;15 PAGES.D=..
: INY ;LOESCHEN.W=N.:
BNE LP1..=..: INC $61..=..: DE
X..=..: BPL LP1..=..: LDX #$40
..=H.LP2 STA $FF00,X ;64 RESTBYTES..>
Z.: DEX ;LOESCHEN..>..:
BPL LP2.<>..COL JSR .BYT ;FARBE SE
TZEN.]>..: STX F1 ;1. FARBE.{>
B.: JSR CKCOM ;KOMMA..>T.: J
SR .BYT ;2. FARBE..>..: TXA.L>X.:
. #$0F ;LOWER NIBBLE..>..:
STA F2..><.: LDA F1 ;1. FARBE.
"?N.: ASL ;ZUM HIGHER.H? .:
ASL ;NIBBLE MACHEN.W?R.:
ASL.F?..: ASL..?6.: .A F2
;EINBCDEN..?H.LP3 STA $CC00,Y ;I
N FARBRAM.K?..: STA $CD00,Y ;SCHREI
BEN..?L.: STA $CE00,Y..?..: ST
A $CF00,Y..@0.: INY..@B.: BNE
LP3.*@..: RTS.0@F.:.B@..OLD LDA
#1.Q@*.: TAY.H@\.: STA ($2B),Y
.}@..: JSR $A533..@..: LDA $22
..@..: ADC #2..@$.: STA $2D.H@
V.: LDA $23.Z@..: ADC #0..@..:
STA $2E..A..: JSR $A660..A..:
JMP WRMSTRT..AP.:.EA..SWAP LDA #
$80 ;FLAG FUER SWAP.YA..: .BYT $2
C._A..:..A..COPY LDA #0 ;FLAG FUER
COPY..AJ.: STA F2..A|.: JSR R
OMOF..A..: LDX #$1E.TA..: LDY
#$E0..A..: STY $61..AD.: LDY #
$A0..BV.: STY $63. B..: LDY #0
.3BZ.: STY $60.FB..: STY $62.]
B>.LP6 LDA ($62),Y.OBP.: STA F1.
.B..: LDA ($60),Y..BT.: STA ($
62),Y..B..: BIT F2 ;COPY"?.ZB8
.: BPL EX1 ;JA ....BJ.: LD
A F1..C..: STA ($60),Y..CN.EX1 I
NY.%C..: BNE LP6.8C2.: INC $61
.KCD.: INC $63.ZC..: DEX.MCH.:
BPL LP6..C..: LDX #$40..C,.LP
7 LDA $BF00,X ;64 RESTBYTES..C^.:
TAY.LC..: LDA $FF00,X..CB.:
STA $BF00,X..D..: BIT F2 ;COPY
"?. D&.: BPL EX2 ;JS .../DX.:
TYA.FD..: STA $FF00,X.UD..EX2
DEX.HD..: BPL LP7..D .: JMP
ROMIN ;FERTIG..DR.:..D..PLOT JSR .CO
L ;PLOT & DRAW.DD..PLO JSR CHRKT..D.
.: CMP #"," ;VGL...E..: BEQ
PO. ;BESCHREIBUNG..EL.: CMP #$A4
.,E~.: BNE .LOT.@E..: JSR CHR.
.VE..: JSR .PARA2.KE..: JSR RO
MOF.EF.: JSR DRAW..EX.: JSR R
OMIN..E..: LDA AXKOO..E..: STA
LXKOO.UE..: LDA AXKOO.1..E@.:
STA LXKOO.1..FR.: LDA AYKOO..F..:
STA LYKOO.)FV.: JMP PLO.;F..PO
. JSR CHR..QF:.: JSR .PARA1.FFL.:
JSR ROMOF.|F..: JSR BERPO...FP
.: JSR SETMASK..F..: JSR ROMIN
..F4.: JMP PLO.RFF..LOT RTS ;
.E.XF..:..FJ.ERR. LDX #$0E ;'ILLEGEL.
.G..: JMP WRMSTRT; QUANTITY'..G..:.
AG`.TEXT JSR .BYT ;1. PARAMETER.TG..:
STX $A8.IGD.: JSR CKCOM..G..:
JSR .BYT ;2. .. " --..G(.: TX
A..GZ.: LSR ;ALS ZEICHEN..YG
..: R. ;MODUS..G..: R..
.H..: STA F1 ;NACH F1..H".:
JSR CKCOM.8HT.: JSR .BYT ;X.KO.D.
.XH..: STX $14 ;NACH $14.{H..:
CPX #40 ;0 .. X . 40..H..: B
CS ERR...H..: JSR CKCOM..HN.:
JSR .BYT ;Y.KO.D..H..: STX $A7 ;
NACH $A7..I..: CPX #25 ;0 .. X .
25..I..: BCS ERR..4I..: JSR C
KCOM ;KOMMA.VIH.: JSR $AD9E ;STRI
NG HOC.KIZ.: JSR $B6A3..I..: S
TA $24 ;LAENGE..I..: LDA #0..I..
: STA $25.QIB.. LDX $24 ;ZAHL DE
R ZEICHEN..IT.: BEQ .LOT ; .0 .. FE
RTIG..J..: LDY $25.'JX.: LDA (
$22),Y ;ZEICHEN.DJ..: JSR . ;AUSG
EBEN.JJ<.: INC $25 ;NAECHST. ZEI
CH..JN.: DEC $24 ; ... " ---..
J .: INC $14 ;1 .. NACH.MJR.:
LDX $14 ;RECHTS..J..: CPX #40
;BILDSCHEIM.E..K6.: BCS .LOT ;J
A .. FERTIG..KH.: BCC . ;WEITER.4
K..:.HKL.DIR LDA #"$".YK..: STA
2.KK0.: LDX #2.~KB.: STX $BB..
K..: DEX. KF.: STX $B7..K..:
DEX.BK*A: STX $BC.TK\A: LD
A #8..K.A: STA $BA..K.A: LDA #
$60..L.A: STA $B9.#L$B: JSR $F
3D5.6LVB: LDA $BA.KL.B: JSR $F
237._L.B: BCC DIR1.TL.B: JMP $
E0F9..L.CDIR1 LDX #6..LPCDIR2 LDA $6
2..L.C: STA $63.AL.C: JSR $E11
2.TL.C: STA $62..L.D: LDA $90.
.LJD: BNE LO4..M|D: DEX..M.D:
BNE DIR2.1M.D: LDA #"'".FM.E:
JSR $E10C.[MDE: JSR $BDD1.OMVE
: LDA #" "..M.E: JSR $E10C..MZ
ELO2 JSR $E112..M.F: TAX..M>F:
BEQ LO3.PMPF: JSR $E10C..M.F:
BCC LO2..MTFLO3 LDA #13..N.G:
JSR $E10C. N8G: JSR $FFE1.3NJG:
BEQ LO4.EN.G: LDX #4.YNNG:
BNE DIR2.NN.HLO4 JSR $FFCC..N2H:
JMP $F642..NDH:..N.HDISK JSR $AD9E ;ST
RING HOC..NHH: JSR $B6A3.XN.H: STA
2 ;LAENGE..N,I: LDA #8..O^I:
STA $BA ;GERAETENUMMER..O.I: JS
R $FFB1.4OBI: LDA #15.$60.SO.I: ST
A $B9 ;SEK.ADR..FO&J: JSR $FF93.V
OXJ: LDY #0..O.JPOL LDX 2 ;ZAH
L D. ZEICHEN..O.J: BEQ ; .0 .. FE
RTIG.QO.J: LDA ($22),Y..O K: JSR $
FFA8 ;AN DISK S.EN..PRK: INY..P.K:
DEC 2.2P.K: BPL POL ;UNBED. SP
.G.KP.K JMP $FFAE ;FERTIG.QP.L:.KPLLDS
T JSR $FFCC ;.CH.{P~L: LDA #8..P.L
: STA $BA..P.L: JSR $FFB4..P.M:
LDA #15.$60.EPFM: STA $B9.XPXM: J
SR $FF96..P.MLOL JSR $FFA5 ;EINLESEN.
.Q.M: JSR $FFD2 ;AUSDRUCKEN.)Q.N:
CMP #13.:Q@N: BNE LOL.RQRN: JMP
$FFAB ; .XQ.N:.YQVNERRK JSR $A96B ;ZE
ICNR. HOC..Q.O: LDA $14..Q:O: ST
A ZEILNR ;SPEICHERN..QLO: LDA $15.TQ
.O: STA ZEILNR.1..QPO: LDA #$FF.
.Q.P: STA ERRFL..R4P: RTS..RFP:.
!R.PERROFF LDA #0.6RJP: STA ERRFL.E
R.P: RTS.KR.Q:.`R`Q;BASIC.FUNKTI.EN
.FRTQ:..R.QTEST JSR $AEFA ;KLAMMER
AUF..RDQ: JSR .PARA1 ;X.Y.KO.D.OR.Q
: JSR CKKLM ;KLAMMER ZU..R(R:
JSR ROMOF..SZR: JSR BERPO. ;PUNK
TADR...S.R: LDY #0.8S.R: . (AB
MP),Y ;GESETZT"?.WS.R: BEQ .SET ;
NEIN ...|S"S: DEY ;ERGEBNI
S..1..STS.SET STY $62 ; .."-- = 0.
.S.S: JSR ROMIN.WS.S: JMP $BC3
E ;VGL. .( )..S.S:..T.TEVL JSR $AE
F1 ;STRING LESEN.)T.T: JSR $B3A6
;DIREKTMOD."?.HTNT: LDX $7A
;CHR...GTOT: LDY $7B ;PO.ER.
.TPT: STX $A7 ;RETTEN..TQT:
STY $A8..TRT: JSR $B782 ;STRI
NGPARA...TST: CMP #$50 ;ZU LANG
"?..UTT: BCC EV1 ;NEIN..."U.T:
JMP $A571 ;..ERR..FU.TEV1 TA
X ;LAENGE.0"?.FU.T: BNE EV
L2 ;NEIN....U.T: JMP $B8F7 ;
WERT.0 !!..U.TEVL2 LDY #0..U.TEVLLP L
DA ($22),Y ;STRING IN..U.T: STA $2
00,Y ;EINGABE...V.T: INY
;PUFFER..V.T: DEX.$V.T: BNE E
VLLP.3V.T: TXA.IV.T: STA $200,
Y.KV.T: STA $7A ;CHR. AUF..V.T
: LDX #2 ;EINGABEPUFF...V.T:
STX $7B.GV.T: JSR $A579 ;.E
RPRETER..V.T: JSR $ADA6 ;AUSWERT
EN..V.U: LDX $A7..W.U: LDY $A8
;CHR..@W.U: JMP $B7E6 ;ZUR
UECKSETZ.FWHU:.LWZU:.BW.U;DATEN UND TABE
LC.HW.U:..W.VBEF .F "DRAW" ;BEFEHLSW.TE
..WBV: .F "PLOT"..WTV: .F "CLS"..W
.V: .F "COL".QWXV: .F "OLD"..W.W:
.F "SWAP"..W<W: .F "COPY"..XNW:
.F "TEXT"..X W: .F "GRON".1XRW: .
F "GROFF".EX.X: .F "GLOAD".YX6X: .
F "GSAVE".OXHX: .F "CATALOG"..X.X:
.F "DISK"..XLX: .F "DST"..X.X: .F
"ERRGO"..X0Y: .F "ERROFF"..XBY: .
F "\Q" ; ERWEITERBAR..Y.Y: .F "\Q"
; .... " ----.#YFY: .F "\Q" ;
.... " ----.EY.Y: .F "\Q" ; .. FUE
R ....GY*Z: .F "\Q" ; .... " ----.
.Y\Z: .F "\Q" ; . BEFEHLE ...Y.Z:
.F "\Q" ; .... " ----.MY.Z: .F
"\Q" ; .... " ----..Y.Z: .F "\Q"
; .... " ----..Z$.: .F "TEST"..ZV.:
.F "EVL".6Z..: .F "" ; ERWEI
TERBAR.WZ..: .F "" ; .. FUER ...
WZ..: .F "" ; FUNKTI.EN..Z..:
.BYT 00..ZP.:..Z..TAB2 .W. PLOT ;BEFE
HLSADRESSEN.EZ..: .W. PLOT.VZ..: .
W. CLS..Z..: .W. COL..ZJ.: .W. OLD
..[|.: .W. SWAP..[..: .W. COPY..[.
.: .W. TEXT.@[..: .W. GRIN.R[D.:
.W. GROF.D[V.: .W. GLOD.V[..: .W
. GSAV..[Z.: .W. DIR..[..: .W. DIS
K..[>.: .W. DST..[P.: .W. ERRK.P[.
.: .W. ERROFF..[T.: .W. . ; ER
WEITERBAR..\..: .W. . ; --- " ---
./\8.: .W. . ; --- " ---.N\J.:
.W. . ; --- " ---.M\..: .W. .
; --- " ---..\N.: .W. . ; --- "
---..\..: .W. . ; --- " ---.J\2.
: .W. . ; --- " ---..\D.: .W.
. ; --- " ---..\..:.+]H.MESSAGE .F "
...** ERWEITERTE GRAPHIC-BASIC VERSION
**.W]...F ". (C) 1985 BY BERNHARD
SMITH..]],.:..]^.TAB4 .W. TEST.1;FUNKTI
.SADRESSE..]..: .W. EVL.1..]B.: .W
. $FFFF ; ERWEITERBAR.X]..: .W. $FFF
F ; .... " ----..]&.: .W. $FFFF ; .
... " ----..^X.:..^..:.*^..;ADRESSEN DER
HIRESZEICANFAENGE.0^..:.U^ .MAP1 .W. $E
000,$E140,$E280,$E3C0.Z^R.: .W. $E500
,$E640,$E780,$E8C0..^..: .W. $EA00,$E
B40,$EC80,$EDC0.D^..: .W. $EF00,$F040
,$F180,$F2C0..^..: .W. $F400,$F540,$F
680,$F7C0.._..: .W. $F900,$FA40,$FB80
,$FCC0.!_L.: .W. $FE00.'_~.:.K_..MAP2
.BYT 128,64,32,16,8,4,2,1.Q_..:.B_..MA
P3 .W. UP.U_F.: .W. DOWN.._X.:
.W. LEFT.._..: .W. RIGHT.._..: .
W. .LOT ;'RTS'.._..:.E_@.:.._R.;DATEN
F. F NACH BILDSCHIRMCODE.._..:..`V.MAP4
.BYT 128,0,192,224.*`..: .BYT 64,1
92,128,128.0`:.:.6`P.:.X`..BSVKT .W. WRM
STRT ;WARMSTART.|`4.: .W. $A483
;EING. E. Z...`F.: .W. .ER ;.ERPR
ET...`..: .W. . ;KLARTEXT..`J.:
.W. BEFERK ;BEF. AUSF...A..: .
W. FKTERK ;AUSDR. AUSW...A..:..A`.:..A
......AD. 1...
> CLICK IMAGE PREVIEW FOR FULL MODAL