UELLPROG.
FILE INFORMATION
FILENAME(S): UELLPROG.
FILE TYPE(S): PRG
FILE SIZE: 16.4K
FIRST SEEN: 2025-10-20 00:37:13
APPEARS ON: 3 disk(s)
FILE HASH
0d4e9410eaff5e5ae55cde16c0e752a0b9af63d711bc8e16db38688c3df3f2cc
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 4 | UELLPROG. | PRG | Treasure Chest - Holger | 12 | 1 | DOWNLOAD FILE |
| SONDERHEFT 4 | UELLPROG. | PRG | Treasure Chest - ralf | 12 | 1 | DOWNLOAD FILE |
| SONDERHEFT 4 | UELLPROG. | PRG | C64er | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *|
00000030: 20 20 20 20 20 20 20 20 50 4C 4F 54 54 45 52 2D | PLOTTER-|
00000040: 42 41 53 49 43 20 20 20 20 20 20 20 20 20 2A 00 |BASIC *.|
00000050: 76 08 1E 00 8F 20 2A 20 20 20 20 20 28 42 45 46 |v.... * (BEF|
00000060: 45 48 4C 53 45 52 57 45 49 54 45 52 55 4E 47 29 |EHLSERWEITERUNG)|
00000070: 20 20 20 20 20 2A 00 9D 08 28 00 8F 20 2A 43 4F | *...(.. *CO|
00000080: 50 59 52 49 47 48 54 20 42 59 3A 53 54 45 50 48 |PYRIGHT BY:STEPH|
00000090: 41 4E 20 53 43 48 41 45 46 45 52 20 2A 00 C4 08 |AN SCHAEFER *...|
000000A0: 32 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |2.. * |
000000B0: 20 20 42 55 52 42 41 43 48 45 52 53 54 52 2E 31 | BURBACHERSTR.1|
000000C0: 36 32 20 2A 00 EB 08 3C 00 8F 20 2A 4A 41 4E 2E |62 *...<.. *JAN.|
000000D0: 31 39 38 35 20 20 20 20 20 35 33 30 30 20 42 4F |1985 5300 BO|
000000E0: 4E 4E 20 31 20 20 20 20 20 20 2A 00 12 09 46 00 |NN 1 *...F.|
000000F0: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000100: 54 45 4C 2E 3A 30 32 32 38 2F 32 33 35 35 36 37 |TEL.:0228/235567|
00000110: 20 2A 00 39 09 50 00 8F 20 2A 2A 2A 2A 2A 2A 2A | *.9.P.. *******|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 09 5A 00 9E 20 |*********.F.Z.. |
00000140: 39 AC 34 30 39 36 00 52 09 64 00 2E 4F 50 54 20 |9.4096.R.d..OPT |
00000150: 4F 4F 00 74 09 6E 00 43 48 52 A1 20 20 20 B2 20 |OO.t.n.CHR. . |
00000160: 24 30 30 37 33 20 20 3B 20 5A 45 49 43 48 45 4E |$0073 ; ZEICHEN|
00000170: 20 48 4F C3 00 88 09 78 00 43 48 52 CB 54 20 20 | HO....x.CHR.T |
00000180: 20 B2 20 24 30 30 37 39 00 B0 09 82 00 5A 45 49 | . $0079.....ZEI|
00000190: 47 45 52 20 20 20 B2 20 24 30 33 30 38 20 20 3B |GER . $0308 ;|
000001A0: 20 41 55 46 20 45 52 4B 45 4E 4E 52 4F 55 54 2E | AUF ERKENNROUT.|
000001B0: 00 D0 09 8C 00 B5 50 52 54 20 20 20 B2 20 24 41 |......PRT . $A|
000001C0: 37 41 45 20 20 3B 20 B5 45 52 50 52 45 54 45 52 |7AE ; .ERPRETER|
000001D0: 00 F9 09 96 00 42 53 4F 55 54 20 20 20 20 B2 20 |.....BSOUT . |
000001E0: 24 46 46 44 32 20 20 3B 20 5A 45 49 43 48 45 4E |$FFD2 ; ZEICHEN|
000001F0: 20 41 55 53 47 45 42 45 4E 00 21 0A A0 00 47 41 | AUSGEBEN.!...GA|
00000200: 20 20 20 20 20 20 20 B2 20 36 20 20 20 20 20 20 | . 6 |
00000210: 3B 20 47 45 52 41 45 54 45 AB 41 44 52 45 53 53 |; GERAETE.ADRESS|
00000220: 45 00 45 0A AA 00 4C 46 20 20 20 20 20 20 20 B2 |E.E...LF .|
00000230: 20 39 39 20 20 20 20 20 3B 20 BC 2E 20 46 49 C3 | 99 ; .. FI.|
00000240: 55 4D 4D 45 52 00 6B 0A B4 00 50 55 46 46 45 52 |UMMER.k...PUFFER|
00000250: 20 20 20 B2 20 24 43 38 44 37 20 20 3B 20 4E 41 | . $C8D7 ; NA|
00000260: 43 48 20 50 52 4F 47 52 2E 80 45 00 81 0A BE 00 |CH PROGR..E.....|
00000270: 4B 58 20 20 20 20 20 20 20 B2 20 50 55 46 46 45 |KX . PUFFE|
00000280: 52 00 95 0A C8 00 4B 59 20 20 20 20 20 20 20 B2 |R.....KY .|
00000290: 20 4B 58 AA 35 00 A9 0A D2 00 58 52 41 44 20 20 | KX.5.....XRAD |
000002A0: 20 20 20 B2 20 4B 59 AA 35 00 BF 0A DC 00 59 52 | . KY.5.....YR|
000002B0: 41 44 20 20 20 20 20 B2 20 58 52 41 44 AA 35 00 |AD . XRAD.5.|
000002C0: D2 0A E6 00 A9 20 20 20 20 20 B2 20 59 52 41 44 |..... . YRAD|
000002D0: AA 35 00 E5 0A F0 00 41 52 47 55 20 20 20 20 20 |.5.....ARGU |
000002E0: B2 20 A9 AA 35 00 F7 0A FA 00 58 52 20 20 20 20 |. ..5.....XR |
000002F0: 20 20 20 B2 20 4B 58 00 09 0B 04 01 59 52 20 20 | . KX.....YR |
00000300: 20 20 20 20 20 B2 20 4B 59 00 1D 0B 0E 01 5A 52 | . KY.....ZR|
00000310: 20 20 20 20 20 20 20 B2 20 58 52 41 44 00 31 0B | . XRAD.1.|
00000320: 18 01 58 56 20 20 20 20 20 20 20 B2 20 59 52 41 |..XV . YRA|
00000330: 44 00 42 0B 22 01 59 56 20 20 20 20 20 20 20 B2 |D.B.".YV .|
00000340: 20 A9 00 56 0B 2C 01 4B 4F 45 46 20 20 20 20 20 | ..V.,.KOEF |
00000350: B2 20 41 52 47 55 00 6C 0B 36 01 57 49 4E 4B 20 |. ARGU.l.6.WINK |
00000360: 20 20 20 20 B2 20 41 52 47 55 AA 35 00 82 0B 40 | . ARGU.5...@|
00000370: 01 50 41 52 4B 20 20 20 20 20 B2 20 57 49 4E 4B |.PARK . WINK|
00000380: AA 35 00 A9 0B 4A 01 50 4F B5 45 52 20 20 B2 20 |.5...J.PO.ER . |
00000390: 24 46 42 20 20 20 20 3B 49 4E 48 41 4C 54 B2 50 |$FB ;INHALT.P|
000003A0: 55 46 46 45 52 41 44 52 2E 00 D0 0B 54 01 42 45 |UFFERADR....T.BE|
000003B0: 46 5A 45 49 47 20 20 B2 20 24 46 44 20 20 20 20 |FZEIG . $FD |
000003C0: 3B 41 55 46 20 42 45 46 45 48 4C 53 54 41 42 2E |;AUF BEFEHLSTAB.|
000003D0: 00 E2 0B 5E 01 9F 20 20 20 20 20 B2 20 24 46 46 |...^.. . $FF|
000003E0: 43 30 00 F3 0B 68 01 A0 20 20 20 20 B2 20 24 46 |C0...h.. . $F|
000003F0: 46 43 33 00 08 0C 72 01 53 45 54 46 4C 53 20 20 |FC3...r.SETFLS |
00000400: 20 B2 20 24 46 46 42 41 00 1D 0C 7C 01 53 45 54 | . $FFBA...|.SET|
00000410: 4E 41 4D 20 20 20 B2 20 24 46 46 42 44 00 32 0C |NAM . $FFBD.2.|
00000420: 86 01 43 4B 4F 55 54 20 20 20 20 B2 20 24 46 46 |..CKOUT . $FF|
00000430: 43 39 00 45 0C 90 01 9C 43 48 20 20 20 20 B2 20 |C9.E....CH . |
00000440: 24 46 46 43 43 00 6C 0C 9A 01 43 48 4B 4F 4D 20 |$FFCC.l...CHKOM |
00000450: 20 20 20 B2 20 24 41 45 46 44 20 20 3B 20 54 45 | . $AEFD ; TE|
00000460: 53 54 20 41 55 46 20 4B 4F 4D 4D 41 00 91 0C A4 |ST AUF KOMMA....|
00000470: 01 46 52 4D 45 56 4C 20 20 20 B2 20 24 41 44 39 |.FRMEVL . $AD9|
00000480: 45 20 20 3B 20 41 55 53 44 52 55 43 4B 20 48 4F |E ; AUSDRUCK HO|
00000490: C3 00 A6 0C AE 01 46 52 4D 4E 55 4D 20 20 20 B2 |......FRMNUM .|
000004A0: 20 24 41 44 38 41 00 B9 0C B8 01 A1 41 44 52 20 | $AD8A......ADR |
000004B0: 20 20 B2 20 24 42 37 46 37 00 CE 0C C2 01 4D 45 | . $B7F7.....ME|
000004C0: 4D 46 41 43 20 20 20 B2 20 24 42 42 41 32 00 E3 |MFAC . $BBA2..|
000004D0: 0C CC 01 46 41 43 4D 45 4D 20 20 20 B2 20 24 42 |...FACMEM . $B|
000004E0: 42 44 34 00 07 0D D6 01 56 45 52 47 4C 43 48 20 |BD4.....VERGLCH |
000004F0: 20 B2 20 24 42 43 35 42 20 20 3B 20 46 41 43 20 | . $BC5B ; FAC |
00000500: 4D 49 54 20 41 AD 59 00 26 0D E0 01 43 48 B4 20 |MIT A.Y.&...CH. |
00000510: 20 20 20 B2 20 24 42 46 42 34 20 20 3B 20 46 41 | . $BFB4 ; FA|
00000520: 43 B2 AB 46 41 43 00 3B 0D EA 01 4D 45 4D 4D 55 |C..FAC.;...MEMMU|
00000530: 4C 54 20 20 B2 20 24 42 41 32 38 00 50 0D F4 01 |LT . $BA28.P...|
00000540: 4D 45 4D 50 4C 55 53 20 20 B2 20 24 42 38 36 37 |MEMPLUS . $B867|
00000550: 00 63 0D FE 01 BE 20 20 20 20 20 20 B2 20 24 45 |.c.... . $E|
00000560: 32 36 34 00 76 0D 08 02 BF 20 20 20 20 20 20 B2 |264.v.... .|
00000570: 20 24 45 32 36 42 00 89 0D 12 02 46 41 43 C6 20 | $E26B.....FAC. |
00000580: 20 20 B2 20 24 42 44 44 44 00 AF 0D 1C 02 46 41 | . $BDDD.....FA|
00000590: 43 56 41 52 20 20 20 B2 20 24 41 39 44 36 20 20 |CVAR . $A9D6 |
000005A0: 3B 20 46 41 43 20 4E 41 43 48 20 56 41 52 2E 00 |; FAC NACH VAR..|
000005B0: C4 0D 26 02 42 59 54 46 41 43 20 20 20 B2 20 24 |..&.BYTFAC . $|
000005C0: 42 33 41 32 00 D5 0D 30 02 99 20 20 20 20 B2 20 |B3A2...0.. . |
000005D0: 24 41 41 41 34 00 E7 0D 3A 02 89 20 20 20 20 20 |$AAA4...:.. |
000005E0: B2 20 24 41 38 41 33 00 F9 0D 44 02 87 59 20 20 |. $A8A3...D..Y |
000005F0: 20 20 B2 20 24 41 34 37 34 00 21 0E 4E 02 56 41 | . $A474.!.N.VA|
00000600: 52 53 55 43 48 20 20 B2 20 24 42 30 38 42 20 20 |RSUCH . $B08B |
00000610: 3B 20 53 55 43 48 54 20 42 41 53 49 43 56 41 52 |; SUCHT BASICVAR|
00000620: 2E 00 49 0E 58 02 53 54 52 4F 55 54 20 20 20 B2 |..I.X.STROUT .|
00000630: 20 24 41 42 31 45 20 20 3B 20 53 54 52 49 4E 47 | $AB1E ; STRING|
00000640: 20 41 55 53 47 45 42 45 4E 00 4F 0E 62 02 3B 00 | AUSGEBEN.O.b.;.|
00000650: 55 0E 6C 02 3B 00 62 0E 76 02 AC B2 20 24 43 30 |U.l.;.b.v... $C0|
00000660: 30 30 00 8E 0E 80 02 4E 4F 50 20 3B 20 57 49 52 |00.....NOP ; WIR|
00000670: 44 20 4E 41 43 48 20 53 54 41 52 54 20 44 55 52 |D NACH START DUR|
00000680: 43 48 20 52 54 53 20 45 52 53 45 54 5A 54 00 C0 |CH RTS ERSETZT..|
00000690: 0E 8A 02 4A 53 52 20 9E 54 45 4D 20 20 20 20 20 |...JSR .TEM |
000006A0: 20 20 20 3B 20 54 45 58 54 20 41 55 53 47 45 42 | ; TEXT AUSGEB|
000006B0: 45 4E AD 56 45 4B A4 52 45 4E 20 41 80 45 52 4E |EN.VEK.REN A.ERN|
000006C0: 00 C8 0E 94 02 52 54 53 00 CE 0E 9E 02 3B 00 D4 |.....RTS.....;..|
000006D0: 0E A8 02 3B 00 E5 0E B2 02 41 55 53 20 4C 44 41 |...;.....AUS LDA|
000006E0: 20 48 49 4C 46 00 07 0F BC 02 53 54 41 20 24 33 | HILF.....STA $3|
000006F0: 30 30 20 20 20 20 3B 20 57 41 52 4D 53 54 41 52 |00 ; WARMSTAR|
00000700: 54 AB 56 45 4B A4 52 00 16 0F C6 02 4C 44 41 20 |T.VEK.R.....LDA |
00000710: 48 49 4C 46 AA 31 00 23 0F D0 02 53 54 41 20 24 |HILF.1.#...STA $|
00000720: 33 30 31 00 32 0F DA 02 4C 44 41 20 4A 55 4D 50 |301.2...LDA JUMP|
00000730: AA 31 00 51 0F E4 02 53 54 41 20 5A 45 49 47 45 |.1.Q...STA ZEIGE|
00000740: 52 20 20 3B 20 41 4C 54 45 20 56 45 4B A4 52 45 |R ; ALTE VEK.RE|
00000750: 4E 00 71 0F EE 02 4C 44 41 20 4A 55 4D 50 AA 32 |N.q...LDA JUMP.2|
00000760: 20 20 3B 20 5A 55 52 55 45 43 4B 53 45 54 5A 45 | ; ZURUECKSETZE|
00000770: 4E 00 82 0F F8 02 53 54 41 20 5A 45 49 47 45 52 |N.....STA ZEIGER|
00000780: AA 31 00 9D 0F 02 03 4C 44 41 20 23 24 45 41 20 |.1.....LDA #$EA |
00000790: 20 20 20 3B 20 4E 4F 50 AB 43 4F 44 45 00 C4 0F | ; NOP.CODE...|
000007A0: 0C 03 53 54 41 20 24 43 30 30 30 20 20 20 3B 20 |..STA $C000 ; |
000007B0: 52 45 53 54 41 52 54 20 45 52 4D 4F 45 47 4C 49 |RESTART ERMOEGLI|
000007C0: 43 48 45 4E 00 CC 0F 16 03 52 54 53 00 D2 0F 20 |CHEN.....RTS... |
000007D0: 03 3B 00 D8 0F 2A 03 3B 00 E9 0F 34 03 4E 45 55 |.;...*.;...4.NEU|
000007E0: 20 4A 53 52 20 43 48 52 A1 00 F6 0F 3E 03 43 4D | JSR CHR....>.CM|
000007F0: 50 20 23 22 2E 22 00 04 10 48 03 42 45 51 20 46 |P #"."...H.BEQ F|
00000800: 4F 55 4E 44 00 0C 10 52 03 53 45 43 00 2C 10 5C |OUND...R.SEC.,.\|
00000810: 03 4C 44 41 20 24 37 41 20 20 20 20 20 3B 54 45 |.LDA $7A ;TE|
00000820: 58 54 50 4F B5 45 52 20 43 48 52 A1 00 49 10 66 |XTPO.ER CHR..I.f|
00000830: 03 53 42 43 20 23 31 20 20 20 20 20 20 3B 45 52 |.SBC #1 ;ER|
00000840: 4E 49 45 44 52 49 47 45 4E 00 6E 10 70 03 53 54 |NIEDRIGEN.n.p.ST|
00000850: 41 20 24 37 41 20 20 20 20 20 3B 55 4D 20 47 4C |A $7A ;UM GL|
00000860: 45 49 43 48 45 53 20 5A 45 49 43 48 45 4E 00 8E |EICHES ZEICHEN..|
00000870: 10 7A 03 4C 44 41 20 24 37 42 20 20 20 20 20 3B |.z.LDA $7B ;|
00000880: 32 20 4D 41 4C 20 5A 55 20 4C 45 53 45 4E 00 99 |2 MAL ZU LESEN..|
00000890: 10 84 03 53 42 43 20 23 30 00 A5 10 8E 03 53 54 |...SBC #0.....ST|
000008A0: 41 20 24 37 42 00 D2 10 98 03 4A 55 4D 50 20 4A |A $7B.....JUMP J|
000008B0: 4D 50 20 24 30 30 30 30 20 3B 20 42 41 53 49 43 |MP $0000 ; BASIC|
000008C0: AB 42 45 46 45 48 4C 20 41 55 53 46 55 45 48 52 |.BEFEHL AUSFUEHR|
000008D0: 45 4E 00 F3 10 A2 03 46 4F 55 4E 44 20 4C 44 41 |EN.....FOUND LDA|
000008E0: 20 23 B3 50 55 46 46 45 52 3A 53 54 41 20 50 4F | #.PUFFER:STA PO|
000008F0: B5 45 52 00 10 11 AC 03 4C 44 41 20 23 B1 50 55 |.ER.....LDA #.PU|
00000900: 46 46 45 52 3A 53 54 41 20 50 4F B5 45 52 AA 31 |FFER:STA PO.ER.1|
00000910: 00 2E 11 B6 03 4C 44 41 20 23 B3 42 45 46 45 48 |.....LDA #.BEFEH|
00000920: 4C 45 3A 53 54 41 20 42 45 46 5A 45 49 47 00 4E |LE:STA BEFZEIG.N|
00000930: 11 C0 03 4C 44 41 20 23 B1 42 45 46 45 48 4C 45 |...LDA #.BEFEHLE|
00000940: 3A 53 54 41 20 42 45 46 5A 45 49 47 AA 31 00 54 |:STA BEFZEIG.1.T|
00000950: 11 CA 03 3B 00 61 11 D4 03 4A 53 52 20 43 48 52 |...;.a...JSR CHR|
00000960: A1 00 7B 11 DE 03 4A 53 52 20 48 4F C3 20 20 20 |..{...JSR HO. |
00000970: 3B 42 45 46 45 48 4C 20 48 4F C3 00 A0 11 E8 03 |;BEFEHL HO......|
00000980: 4A 53 52 20 45 52 4B 45 4E 4E 20 20 3B 45 52 4B |JSR ERKENN ;ERK|
00000990: 45 4E 4E 45 4E AA 41 55 53 46 55 45 48 52 45 4E |ENNEN.AUSFUEHREN|
000009A0: 00 AD 11 F2 03 4A 4D 50 20 B5 50 52 54 00 B3 11 |.....JMP .PRT...|
000009B0: FC 03 3B 00 B9 11 06 04 3B 00 C8 11 10 04 48 4F |..;.....;.....HO|
000009C0: C3 20 4C 44 59 20 23 30 00 DF 11 1A 04 53 A4 52 |. LDY #0.....S.R|
000009D0: 45 20 53 54 41 20 28 50 4F B5 45 52 29 2C 59 00 |E STA (PO.ER),Y.|
000009E0: E7 11 24 04 49 4E 59 00 F4 11 2E 04 4A 53 52 20 |..$.INY.....JSR |
000009F0: 43 48 52 A1 00 01 12 38 04 42 45 51 20 4E 55 4C |CHR....8.BEQ NUL|
00000A00: 4C 00 0E 12 42 04 43 4D 50 20 23 22 2C 22 00 1B |L...B.CMP #","..|
00000A10: 12 4C 04 42 45 51 20 4E 55 4C 4C 00 28 12 56 04 |.L.BEQ NULL.(.V.|
00000A20: 43 4D 50 20 23 22 3A 22 00 35 12 60 04 42 45 51 |CMP #":".5.`.BEQ|
00000A30: 20 4E 55 4C 4C 00 42 12 6A 04 4A 4D 50 20 53 A4 | NULL.B.j.JMP S.|
00000A40: 52 45 00 52 12 74 04 4E 55 4C 4C 20 4C 44 41 20 |RE.R.t.NULL LDA |
00000A50: 23 30 00 64 12 7E 04 53 54 41 20 28 50 4F B5 45 |#0.d.~.STA (PO.E|
00000A60: 52 29 2C 59 00 6C 12 88 04 52 54 53 00 72 12 92 |R),Y.l...RTS.r..|
00000A70: 04 3B 00 84 12 9C 04 45 52 4B 45 4E 4E 20 4C 44 |.;.....ERKENN LD|
00000A80: 58 20 23 30 00 8F 12 A6 04 4C 44 59 20 23 30 00 |X #0.....LDY #0.|
00000A90: A9 12 B0 04 53 43 48 4C 45 8B 45 20 4C 44 41 20 |....SCHLE.E LDA |
00000AA0: 28 50 4F B5 45 52 29 2C 59 00 B4 12 BA 04 42 45 |(PO.ER),Y.....BE|
00000AB0: 51 20 80 45 00 C8 12 C4 04 43 4D 50 20 28 42 45 |Q .E.....CMP (BE|
00000AC0: 46 5A 45 49 47 29 2C 59 00 D2 12 CE 04 42 4E 45 |FZEIG),Y.....BNE|
00000AD0: 20 82 00 DA 12 D8 04 49 4E 59 00 EA 12 E2 04 4A | ......INY.....J|
00000AE0: 4D 50 20 53 43 48 4C 45 8B 45 00 FA 12 EC 04 80 |MP SCHLE.E......|
00000AF0: 45 20 4A 4D 50 20 45 58 45 43 00 18 13 F6 04 82 |E JMP EXEC......|
00000B00: 20 49 4E 58 20 20 20 3B 4E 41 45 43 48 53 54 45 | INX ;NAECHSTE|
00000B10: 52 20 42 45 46 45 48 4C 00 37 13 00 05 43 50 58 |R BEFEHL.7...CPX|
00000B20: 20 23 33 35 20 20 20 20 3B 42 45 46 45 48 4C 53 | #35 ;BEFEHLS|
00000B30: 54 41 42 2E 20 80 45 00 46 13 0A 05 42 45 51 20 |TAB. .E.F...BEQ |
00000B40: 53 59 4E 54 41 58 00 4E 13 14 05 43 4C 43 00 71 |SYNTAX.N...CLC.q|
00000B50: 13 1E 05 4C 44 41 20 23 37 20 20 3B 20 4C 41 45 |...LDA #7 ; LAE|
00000B60: 4E 47 45 20 4A 45 44 45 53 20 42 45 46 45 48 4C |NGE JEDES BEFEHL|
00000B70: 53 00 81 13 28 05 41 44 43 20 42 45 46 5A 45 49 |S...(.ADC BEFZEI|
00000B80: 47 00 A2 13 32 05 53 54 41 20 42 45 46 5A 45 49 |G...2.STA BEFZEI|
00000B90: 47 20 20 20 20 20 3B 20 5A 45 49 47 45 52 20 41 |G ; ZEIGER A|
00000BA0: 55 46 00 C7 13 3C 05 4C 44 41 20 23 30 20 20 20 |UF...<.LDA #0 |
00000BB0: 20 20 20 20 20 20 20 3B 20 42 45 46 45 48 4C 53 | ; BEFEHLS|
00000BC0: 54 41 42 45 4C 4C 45 00 E6 13 46 05 41 44 43 20 |TABELLE...F.ADC |
00000BD0: 42 45 46 5A 45 49 47 AA 31 20 20 20 3B 20 45 52 |BEFZEIG.1 ; ER|
00000BE0: 48 4F 45 48 45 4E 00 F8 13 50 05 53 54 41 20 42 |HOEHEN...P.STA B|
00000BF0: 45 46 5A 45 49 47 AA 31 00 03 14 5A 05 4C 44 59 |EFZEIG.1...Z.LDY|
00000C00: 20 23 30 00 13 14 64 05 4A 4D 50 20 53 43 48 4C | #0...d.JMP SCHL|
00000C10: 45 8B 45 00 36 14 6E 05 53 59 4E 54 41 58 20 4A |E.E.6.n.SYNTAX J|
00000C20: 4D 50 20 24 41 46 30 38 20 3B 20 53 59 4E 54 41 |MP $AF08 ; SYNTA|
00000C30: 58 20 45 52 52 B0 00 3C 14 78 05 3B 00 42 14 82 |X ERR..<.x.;.B..|
00000C40: 05 3B 00 48 14 8C 05 3B 00 6D 14 96 05 45 58 45 |.;.H...;.m...EXE|
00000C50: 43 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 20 |C TXA ; |
00000C60: 42 45 46 45 48 4C 53 4E 55 4D 4D 45 52 00 8C 14 |BEFEHLSNUMMER...|
00000C70: A0 05 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 |..CLC |
00000C80: 20 20 20 3B 20 B2 5A 45 49 47 45 52 00 A9 14 AA | ; .ZEIGER....|
00000C90: 05 41 53 4C 20 20 20 20 20 20 20 20 20 20 20 20 |.ASL |
00000CA0: 20 20 3B 20 4D 41 4C 20 32 00 C2 14 B4 05 41 44 | ; MAL 2.....AD|
00000CB0: 43 20 23 B3 53 50 8A 47 54 41 42 20 20 3B 20 41 |C #.SP.GTAB ; A|
00000CC0: 55 46 00 E3 14 BE 05 53 54 41 20 50 4F B5 45 52 |UF.....STA PO.ER|
00000CD0: 20 20 20 20 20 20 3B 20 53 50 8A 47 54 41 42 45 | ; SP.GTABE|
00000CE0: 4C 4C 45 00 F5 14 C8 05 4C 44 41 20 23 B1 53 50 |LLE.....LDA #.SP|
00000CF0: 8A 47 54 41 42 00 00 15 D2 05 41 44 43 20 23 30 |.GTAB.....ADC #0|
00000D00: 00 10 15 DC 05 53 54 41 20 50 4F B5 45 52 AA 31 |.....STA PO.ER.1|
00000D10: 00 1B 15 E6 05 4C 44 59 20 23 30 00 40 15 F0 05 |.....LDY #0.@...|
00000D20: 4C 44 41 20 28 50 4F B5 45 52 29 2C 59 20 20 3B |LDA (PO.ER),Y ;|
00000D30: 20 4C 53 42 20 42 45 46 2E 41 44 52 45 53 53 45 | LSB BEF.ADRESSE|
00000D40: 00 50 15 FA 05 53 54 41 20 42 45 46 5A 45 49 47 |.P...STA BEFZEIG|
00000D50: 00 58 15 04 06 49 4E 59 00 7D 15 0E 06 4C 44 41 |.X...INY.}...LDA|
00000D60: 20 28 50 4F B5 45 52 29 2C 59 20 20 3B 20 4D 53 | (PO.ER),Y ; MS|
00000D70: 42 20 42 45 46 2E 41 44 52 45 53 53 45 00 8F 15 |B BEF.ADRESSE...|
00000D80: 18 06 53 54 41 20 42 45 46 5A 45 49 47 AA 31 00 |..STA BEFZEIG.1.|
00000D90: B0 15 22 06 4A 4D 50 20 28 42 45 46 5A 45 49 47 |..".JMP (BEFZEIG|
00000DA0: 29 20 20 20 20 3B 20 41 55 53 46 55 45 48 8A 47 |) ; AUSFUEH.G|
00000DB0: 00 B6 15 2C 06 3B 00 BC 15 36 06 3B 00 C2 15 40 |...,.;...6.;...@|
00000DC0: 06 3B 00 DB 15 4A 06 42 45 46 45 48 4C 45 20 2E |.;...J.BEFEHLE .|
00000DD0: C6 20 22 49 4E 49 54 20 20 20 22 00 EC 15 54 06 |. "INIT "...T.|
00000DE0: 2E C6 20 22 4D 4F 56 45 20 20 20 22 00 FD 15 5E |.. "MOVE "...^|
00000DF0: 06 2E C6 20 22 44 52 41 57 20 20 20 22 00 0E 16 |... "DRAW "...|
00000E00: 68 06 2E C6 20 22 52 4D 4F 56 45 20 20 22 00 1F |h... "RMOVE "..|
00000E10: 16 72 06 2E C6 20 22 52 44 52 41 57 20 20 22 00 |.r... "RDRAW ".|
00000E20: 30 16 7C 06 2E C6 20 22 48 4F 4D 45 20 20 20 22 |0.|... "HOME "|
00000E30: 00 41 16 86 06 2E C6 20 22 52 41 48 4D 45 4E 20 |.A..... "RAHMEN |
00000E40: 22 00 52 16 90 06 2E C6 20 22 4C 49 4E 49 45 20 |".R..... "LINIE |
00000E50: 20 22 00 63 16 9A 06 2E C6 20 22 4B 52 45 49 53 | ".c..... "KREIS|
00000E60: 20 20 22 00 74 16 A4 06 2E C6 20 22 52 41 44 49 | ".t..... "RADI|
00000E70: 55 53 20 22 00 85 16 AE 06 2E C6 20 22 54 52 41 |US "....... "TRA|
00000E80: 4E 53 4D 20 22 00 96 16 B8 06 2E C6 20 22 54 52 |NSM "....... "TR|
00000E90: 41 4E 53 44 20 22 00 A7 16 C2 06 2E C6 20 22 54 |ANSD "....... "T|
00000EA0: 52 41 4E 53 4C 20 22 00 B8 16 CC 06 2E C6 20 22 |RANSL "....... "|
00000EB0: 54 55 52 4E 20 20 20 22 00 C9 16 D6 06 2E C6 20 |TURN "....... |
00000EC0: 22 42 4C 41 55 20 20 20 22 00 DA 16 E0 06 2E C6 |"BLAU ".......|
00000ED0: 20 22 52 4F 54 20 20 20 20 22 00 EB 16 EA 06 2E | "ROT "......|
00000EE0: C6 20 22 47 52 55 45 4E 20 20 22 00 FC 16 F4 06 |. "GRUEN ".....|
00000EF0: 2E C6 20 22 53 43 48 57 41 52 5A 22 00 0D 17 FE |.. "SCHWARZ"....|
00000F00: 06 2E C6 20 22 46 41 52 42 45 20 20 22 00 1E 17 |... "FARBE "...|
00000F10: 08 07 2E C6 20 22 4B 4C 45 49 4E 20 20 22 00 2F |.... "KLEIN "./|
00000F20: 17 12 07 2E C6 20 22 4D 49 54 54 45 4C 20 22 00 |..... "MITTEL ".|
00000F30: 40 17 1C 07 2E C6 20 22 47 52 4F 53 53 20 20 22 |@..... "GROSS "|
00000F40: 00 51 17 26 07 2E C6 20 22 53 55 50 45 52 20 20 |.Q.&... "SUPER |
00000F50: 22 00 62 17 30 07 2E C6 20 22 53 49 5A 45 20 20 |".b.0... "SIZE |
00000F60: 20 22 00 73 17 3A 07 2E C6 20 22 44 52 45 48 20 | ".s.:... "DREH |
00000F70: 20 20 22 00 84 17 44 07 2E C6 20 22 53 54 52 49 | "...D... "STRI|
00000F80: 43 48 20 22 00 95 17 4E 07 2E C6 20 22 47 47 20 |CH "...N... "GG |
00000F90: 20 20 20 20 22 00 A6 17 58 07 2E C6 20 22 47 4B | "...X... "GK|
00000FA0: 20 20 20 20 20 22 00 B7 17 62 07 2E C6 20 22 50 | "...b... "P|
00000FB0: 52 4F 47 20 20 20 22 00 C8 17 6C 07 2E C6 20 22 |ROG "...l... "|
00000FC0: 54 45 58 54 20 20 20 22 00 D9 17 76 07 2E C6 20 |TEXT "...v... |
00000FD0: 22 52 45 53 45 54 20 20 22 00 EA 17 80 07 2E C6 |"RESET ".......|
00000FE0: 20 22 45 52 52 4A 55 4D 50 22 00 FB 17 8A 07 2E | "ERRJUMP"......|
00000FF0: C6 20 22 45 52 52 4F 55 54 20 22 00 0C 18 94 07 |. "ERROUT ".....|
00001000: 2E C6 20 22 45 52 52 4E 55 4D 20 22 00 1D 18 9E |.. "ERRNUM "....|
00001010: 07 2E C6 20 22 41 55 53 20 20 20 20 22 00 23 18 |... "AUS ".#.|
00001020: A8 07 3B 00 39 18 B2 07 53 50 8A 47 54 41 42 20 |..;.9...SP.GTAB |
00001030: 2E 57 B0 44 20 49 4E 49 54 00 47 18 BC 07 2E 57 |.W.D INIT.G....W|
00001040: B0 44 20 4D 4F 56 45 00 55 18 C6 07 2E 57 B0 44 |.D MOVE.U....W.D|
00001050: 20 44 52 41 57 00 64 18 D0 07 2E 57 B0 44 20 52 | DRAW.d....W.D R|
00001060: 4D 4F 56 45 00 73 18 DA 07 2E 57 B0 44 20 52 44 |MOVE.s....W.D RD|
00001070: 52 41 57 00 81 18 E4 07 2E 57 B0 44 20 48 4F 4D |RAW......W.D HOM|
00001080: 45 00 91 18 EE 07 2E 57 B0 44 20 52 41 48 4D 45 |E......W.D RAHME|
00001090: 4E 00 A0 18 F8 07 2E 57 B0 44 20 4C 49 4E 49 45 |N......W.D LINIE|
000010A0: 00 AF 18 02 08 2E 57 B0 44 20 4B 52 45 49 53 00 |......W.D KREIS.|
000010B0: BF 18 0C 08 2E 57 B0 44 20 52 41 44 49 55 53 00 |.....W.D RADIUS.|
000010C0: CF 18 16 08 2E 57 B0 44 20 54 52 41 4E 53 4D 00 |.....W.D TRANSM.|
000010D0: DF 18 20 08 2E 57 B0 44 20 54 52 41 4E 53 44 00 |.. ..W.D TRANSD.|
000010E0: EF 18 2A 08 2E 57 B0 44 20 54 52 41 4E 53 4C 00 |..*..W.D TRANSL.|
000010F0: FD 18 34 08 2E 57 B0 44 20 54 55 52 4E 00 0B 19 |..4..W.D TURN...|
00001100: 3E 08 2E 57 B0 44 20 42 4C 41 55 00 18 19 48 08 |>..W.D BLAU...H.|
00001110: 2E 57 B0 44 20 52 4F 54 00 27 19 52 08 2E 57 B0 |.W.D ROT.'.R..W.|
00001120: 44 20 47 52 55 45 4E 00 38 19 5C 08 2E 57 B0 44 |D GRUEN.8.\..W.D|
00001130: 20 53 43 48 57 41 52 5A 00 47 19 66 08 2E 57 B0 | SCHWARZ.G.f..W.|
00001140: 44 20 46 41 52 42 45 00 56 19 70 08 2E 57 B0 44 |D FARBE.V.p..W.D|
00001150: 20 4B 4C 45 49 4E 00 66 19 7A 08 2E 57 B0 44 20 | KLEIN.f.z..W.D |
00001160: 4D 49 54 54 45 4C 00 75 19 84 08 2E 57 B0 44 20 |MITTEL.u....W.D |
00001170: 47 52 4F 53 53 00 84 19 8E 08 2E 57 B0 44 20 53 |GROSS......W.D S|
00001180: 55 50 45 52 00 92 19 98 08 2E 57 B0 44 20 53 49 |UPER......W.D SI|
00001190: 5A 45 00 A0 19 A2 08 2E 57 B0 44 20 44 52 45 48 |ZE......W.D DREH|
000011A0: 00 B0 19 AC 08 2E 57 B0 44 20 53 54 52 49 43 48 |......W.D STRICH|
000011B0: 00 BC 19 B6 08 2E 57 B0 44 20 47 47 00 C8 19 C0 |......W.D GG....|
000011C0: 08 2E 57 B0 44 20 47 4B 00 D6 19 CA 08 2E 57 B0 |..W.D GK......W.|
000011D0: 44 20 50 52 4F 47 00 E4 19 D4 08 2E 57 B0 44 20 |D PROG......W.D |
000011E0: 54 45 58 54 00 F3 19 DE 08 2E 57 B0 44 20 52 45 |TEXT......W.D RE|
000011F0: 53 45 54 00 04 1A E8 08 2E 57 B0 44 20 45 52 52 |SET......W.D ERR|
00001200: 4A 55 4D 50 00 14 1A F2 08 2E 57 B0 44 20 45 52 |JUMP......W.D ER|
00001210: 52 4F 55 54 00 24 1A FC 08 2E 57 B0 44 20 45 52 |ROUT.$....W.D ER|
00001220: 52 4E 55 4D 00 31 1A 06 09 2E 57 B0 44 20 41 55 |RNUM.1....W.D AU|
00001230: 53 00 37 1A 10 09 3B 00 45 1A 1A 09 3B 20 42 45 |S.7...;.E...; BE|
00001240: 46 45 48 4C 45 00 4B 1A 24 09 3B 00 71 1A 2E 09 |FEHLE.K.$.;.q...|
00001250: 43 4F 4C B0 20 4C 44 59 20 23 32 20 20 20 20 20 |COL. LDY #2 |
00001260: 20 3B 20 53 45 4B 55 4E 44 41 45 52 AB 41 44 52 | ; SEKUNDAER.ADR|
00001270: 2E 00 94 1A 38 09 42 59 54 53 80 20 4A 53 52 20 |....8.BYTS. JSR |
00001280: 41 55 46 20 20 20 3B 20 4B 41 4E 41 4C 20 4F 45 |AUF ; KANAL OE|
00001290: 46 A5 45 4E 00 B1 1A 42 09 4C 44 41 20 24 46 46 |F.EN...B.LDA $FF|
000012A0: 20 20 20 20 20 20 3B 20 46 41 52 42 45 20 48 4F | ; FARBE HO|
000012B0: C3 00 BF 1A 4C 09 4A 53 52 20 42 53 4F 55 54 00 |....L.JSR BSOUT.|
000012C0: E3 1A 56 09 4A 53 52 20 5A 55 20 20 20 20 20 20 |..V.JSR ZU |
000012D0: 20 3B 20 4B 41 4E 41 4C 20 53 43 48 4C 49 45 53 | ; KANAL SCHLIES|
000012E0: 53 45 4E 00 EB 1A 60 09 52 54 53 00 F1 1A 6A 09 |SEN...`.RTS...j.|
000012F0: 3B 00 04 1B 74 09 3B 20 4B 41 4E 41 4C 20 4F 45 |;...t.; KANAL OE|
00001300: 46 A5 45 4E 00 0A 1B 7E 09 3B 00 2F 1B 88 09 41 |F.EN...~.;./...A|
00001310: 55 46 20 4C 44 58 20 23 47 41 20 20 20 20 3B 20 |UF LDX #GA ; |
00001320: 50 4C 4F 54 54 45 52 AB 41 44 52 45 53 53 45 00 |PLOTTER.ADRESSE.|
00001330: 4A 1B 92 09 4C 44 41 20 23 4C 46 20 20 20 20 20 |J...LDA #LF |
00001340: 20 20 20 3B 20 46 49 4C 45 23 00 59 1B 9C 09 4A | ; FILE#.Y...J|
00001350: 53 52 20 53 45 54 46 4C 53 00 7F 1B A6 09 4C 44 |SR SETFLS.....LD|
00001360: 41 20 23 30 20 20 20 20 20 20 20 20 20 3B 20 4B |A #0 ; K|
00001370: 45 49 4E 20 4E 41 4D 45 20 4E 4F 45 54 49 47 00 |EIN NAME NOETIG.|
00001380: 8E 1B B0 09 4A 53 52 20 53 45 54 4E 41 4D 00 98 |....JSR SETNAM..|
00001390: 1B BA 09 4A 53 52 20 9F 00 A4 1B C4 09 4C 44 58 |...JSR ......LDX|
000013A0: 20 23 4C 46 00 CA 1B CE 09 4A 53 52 20 43 4B 4F | #LF.....JSR CKO|
000013B0: 55 54 20 20 20 20 20 20 3B 20 41 55 53 47 41 42 |UT ; AUSGAB|
000013C0: 45 20 4E 41 43 48 20 23 4C 46 00 D2 1B D8 09 52 |E NACH #LF.....R|
000013D0: 54 53 00 D8 1B E2 09 3B 00 EF 1B EC 09 3B 20 4B |TS.....;.....; K|
000013E0: 41 4E 41 4C 20 53 43 48 4C 49 45 53 53 45 4E 00 |ANAL SCHLIESSEN.|
000013F0: F5 1B F6 09 3B 00 04 1C 00 0A 5A 55 20 4A 53 52 |....;.....ZU JSR|
00001400: 20 9C 43 48 00 10 1C 0A 0A 4C 44 41 20 23 4C 46 | .CH.....LDA #LF|
00001410: 00 1A 1C 14 0A 4A 53 52 20 A0 00 22 1C 1E 0A 52 |.....JSR .."...R|
00001420: 54 53 00 28 1C 28 0A 3B 00 2E 1C 32 0A 3B 00 40 |TS.(.(.;...2.;.@|
00001430: 1C 3C 0A 42 4C 41 55 20 4C 44 41 20 23 22 31 22 |.<.BLAU LDA #"1"|
00001440: 00 4C 1C 46 0A 53 54 41 20 24 46 46 00 59 1C 50 |.L.F.STA $FF.Y.P|
00001450: 0A 4A 53 52 20 43 4F 4C B0 00 61 1C 5A 0A 52 54 |.JSR COL..a.Z.RT|
00001460: 53 00 67 1C 64 0A 3B 00 78 1C 6E 0A 52 4F 54 20 |S.g.d.;.x.n.ROT |
00001470: 4C 44 41 20 23 22 33 22 00 84 1C 78 0A 53 54 41 |LDA #"3"...x.STA|
00001480: 20 24 46 46 00 91 1C 82 0A 4A 53 52 20 43 4F 4C | $FF.....JSR COL|
00001490: B0 00 99 1C 8C 0A 52 54 53 00 9F 1C 96 0A 3B 00 |......RTS.....;.|
000014A0: B2 1C A0 0A 47 52 55 45 4E 20 4C 44 41 20 23 22 |....GRUEN LDA #"|
000014B0: 32 22 00 BE 1C AA 0A 53 54 41 20 24 46 46 00 CB |2".....STA $FF..|
000014C0: 1C B4 0A 4A 53 52 20 43 4F 4C B0 00 D3 1C BE 0A |...JSR COL......|
000014D0: 52 54 53 00 D9 1C C8 0A 3B 00 EE 1C D2 0A 53 43 |RTS.....;.....SC|
000014E0: 48 57 41 52 5A 20 4C 44 41 20 23 22 30 22 00 FA |HWARZ LDA #"0"..|
000014F0: 1C DC 0A 53 54 41 20 24 46 46 00 07 1D E6 0A 4A |...STA $FF.....J|
00001500: 53 52 20 43 4F 4C B0 00 0F 1D F0 0A 52 54 53 00 |SR COL......RTS.|
00001510: 15 1D FA 0A 3B 00 1B 1D 04 0B 3B 00 2F 1D 0E 0B |....;.....;./...|
00001520: 46 41 52 42 45 20 4A 53 52 20 43 48 4B 4F 4D 00 |FARBE JSR CHKOM.|
00001530: 3A 1D 18 0B 4C 44 59 20 23 32 00 46 1D 22 0B 4A |:...LDY #2.F.".J|
00001540: 53 52 20 41 55 46 00 55 1D 2C 0B 4A 53 52 20 46 |SR AUF.U.,.JSR F|
00001550: 52 4D 45 56 4C 00 62 1D 36 0B 4A 53 52 20 53 80 |RMEVL.b.6.JSR S.|
00001560: 45 52 00 6D 1D 40 0B 4A 53 52 20 5A 55 00 75 1D |ER.m.@.JSR ZU.u.|
00001570: 4A 0B 52 54 53 00 7B 1D 54 0B 3B 00 81 1D 5E 0B |J.RTS.{.T.;...^.|
00001580: 3B 00 94 1D 68 0B 47 52 4F 45 53 53 45 20 4C 44 |;...h.GROESSE LD|
00001590: 59 20 23 33 00 A2 1D 72 0B 4A 53 52 20 42 59 54 |Y #3...r.JSR BYT|
000015A0: 53 80 00 AA 1D 7C 0B 52 54 53 00 B0 1D 86 0B 3B |S....|.RTS.....;|
000015B0: 00 C3 1D 90 0B 4B 4C 45 49 4E 20 4C 44 41 20 23 |.....KLEIN LDA #|
000015C0: 22 30 22 00 CF 1D 9A 0B 53 54 41 20 24 46 46 00 |"0".....STA $FF.|
000015D0: DF 1D A4 0B 4A 53 52 20 47 52 4F 45 53 53 45 00 |....JSR GROESSE.|
000015E0: E7 1D AE 0B 52 54 53 00 ED 1D B8 0B 3B 00 01 1E |....RTS.....;...|
000015F0: C2 0B 4D 49 54 54 45 4C 20 4C 44 41 20 23 22 31 |..MITTEL LDA #"1|
00001600: 22 00 0D 1E CC 0B 53 54 41 20 24 46 46 00 1D 1E |".....STA $FF...|
00001610: D6 0B 4A 53 52 20 47 52 4F 45 53 53 45 00 25 1E |..JSR GROESSE.%.|
00001620: E0 0B 52 54 53 00 2B 1E EA 0B 3B 00 3E 1E F4 0B |..RTS.+...;.>...|
00001630: 47 52 4F 53 53 20 4C 44 41 20 23 22 32 22 00 4A |GROSS LDA #"2".J|
00001640: 1E FE 0B 53 54 41 20 24 46 46 00 5A 1E 08 0C 4A |...STA $FF.Z...J|
00001650: 53 52 20 47 52 4F 45 53 53 45 00 62 1E 12 0C 52 |SR GROESSE.b...R|
00001660: 54 53 00 68 1E 1C 0C 3B 00 7B 1E 26 0C 53 55 50 |TS.h...;.{.&.SUP|
00001670: 45 52 20 4C 44 41 20 23 22 33 22 00 87 1E 30 0C |ER LDA #"3"...0.|
00001680: 53 54 41 20 24 46 46 00 97 1E 3A 0C 4A 53 52 20 |STA $FF...:.JSR |
00001690: 47 52 4F 45 53 53 45 00 9F 1E 44 0C 52 54 53 00 |GROESSE...D.RTS.|
000016A0: A5 1E 4E 0C 3B 00 AB 1E 58 0C 3B 00 BE 1E 62 0C |..N.;...X.;...b.|
000016B0: 53 49 5A 45 20 4A 53 52 20 43 48 4B 4F 4D 00 C9 |SIZE JSR CHKOM..|
000016C0: 1E 6C 0C 4C 44 59 20 23 33 00 D5 1E 76 0C 4A 53 |.l.LDY #3...v.JS|
000016D0: 52 20 41 55 46 00 E4 1E 80 0C 4A 53 52 20 46 52 |R AUF.....JSR FR|
000016E0: 4D 45 56 4C 00 F1 1E 8A 0C 4A 53 52 20 53 80 45 |MEVL.....JSR S.E|
000016F0: 52 00 FC 1E 94 0C 4A 53 52 20 5A 55 00 04 1F 9E |R.....JSR ZU....|
00001700: 0C 52 54 53 00 0A 1F A8 0C 3B 00 1B 1F B2 0C 5A |.RTS.....;.....Z|
00001710: 53 41 54 5A 20 4C 44 59 20 23 36 00 29 1F BC 0C |SATZ LDY #6.)...|
00001720: 4A 53 52 20 42 59 54 53 80 00 31 1F C6 0C 52 54 |JSR BYTS..1...RT|
00001730: 53 00 37 1F D0 0C 3B 00 47 1F DA 0C 47 47 20 4C |S.7...;.G...GG L|
00001740: 44 41 20 23 22 30 22 00 53 1F E4 0C 53 54 41 20 |DA #"0".S...STA |
00001750: 24 46 46 00 61 1F EE 0C 4A 53 52 20 5A 53 41 54 |$FF.a...JSR ZSAT|
00001760: 5A 00 69 1F F8 0C 52 54 53 00 6F 1F 02 0D 3B 00 |Z.i...RTS.o...;.|
00001770: 7F 1F 0C 0D 47 4B 20 4C 44 41 20 23 22 31 22 00 |....GK LDA #"1".|
00001780: 8B 1F 16 0D 53 54 41 20 24 46 46 00 99 1F 20 0D |....STA $FF... .|
00001790: 4A 53 52 20 5A 53 41 54 5A 00 A1 1F 2A 0D 52 54 |JSR ZSATZ...*.RT|
000017A0: 53 00 A7 1F 34 0D 3B 00 AD 1F 3E 0D 3B 00 BE 1F |S...4.;...>.;...|
000017B0: 48 0D 52 45 53 45 54 20 4C 44 59 20 23 37 00 C9 |H.RESET LDY #7..|
000017C0: 1F 52 0D 4C 44 41 20 23 30 00 D5 1F 5C 0D 53 54 |.R.LDA #0...\.ST|
000017D0: 41 20 24 46 46 00 E3 1F 66 0D 4A 53 52 20 42 59 |A $FF...f.JSR BY|
000017E0: 54 53 80 00 EB 1F 70 0D 52 54 53 00 F1 1F 7A 0D |TS....p.RTS...z.|
000017F0: 3B 00 F7 1F 84 0D 3B 00 0A 20 8E 0D 44 52 45 48 |;.....;.. ..DREH|
00001800: 20 4A 53 52 20 43 48 4B 4F 4D 00 19 20 98 0D 4A | JSR CHKOM.. ..J|
00001810: 53 52 20 46 52 4D 45 56 4C 00 24 20 A2 0D 4C 44 |SR FRMEVL.$ ..LD|
00001820: 59 20 23 34 00 30 20 AC 0D 4A 53 52 20 41 55 46 |Y #4.0 ..JSR AUF|
00001830: 00 3D 20 B6 0D 4A 53 52 20 53 80 45 52 00 48 20 |.= ..JSR S.ER.H |
00001840: C0 0D 4A 53 52 20 5A 55 00 50 20 CA 0D 52 54 53 |..JSR ZU.P ..RTS|
00001850: 00 56 20 D4 0D 3B 00 5C 20 DE 0D 3B 00 83 20 E8 |.V ..;.\ ..;.. .|
00001860: 0D 54 45 58 54 20 4C 44 41 20 23 22 2C 22 20 20 |.TEXT LDA #"," |
00001870: 20 3B 20 41 55 46 20 4B 4F 4D 4D 41 20 54 45 53 | ; AUF KOMMA TES|
00001880: 54 45 4E 00 8E 20 F2 0D 4C 44 59 20 23 30 00 B4 |TEN.. ..LDY #0..|
00001890: 20 FC 0D 43 4D 50 20 28 24 37 41 29 2C 59 20 20 | ..CMP ($7A),Y |
000018A0: 20 20 20 3B 20 4C 41 55 46 80 45 53 20 5A 45 49 | ; LAUF.ES ZEI|
000018B0: 43 48 45 4E 00 C1 20 06 0E 42 4E 45 20 4C 45 45 |CHEN.. ..BNE LEE|
000018C0: 52 00 CF 20 10 0E 4A 53 52 20 24 30 30 37 33 00 |R.. ..JSR $0073.|
000018D0: DA 20 1A 0E 4C 44 59 20 23 30 00 E6 20 24 0E 4A |. ..LDY #0.. $.J|
000018E0: 53 52 20 41 55 46 00 F0 20 2E 0E 4A 53 52 20 99 |SR AUF.. ..JSR .|
000018F0: 00 FB 20 38 0E 4A 53 52 20 5A 55 00 03 21 42 0E |.. 8.JSR ZU..!B.|
00001900: 52 54 53 00 13 21 4C 0E 4C 45 45 52 20 4C 44 59 |RTS..!L.LEER LDY|
00001910: 20 23 30 00 1F 21 56 0E 4A 53 52 20 41 55 46 00 | #0..!V.JSR AUF.|
00001920: 42 21 60 0E 4C 44 41 20 23 31 33 20 20 20 20 20 |B!`.LDA #13 |
00001930: 20 3B 20 4E 55 52 20 43 52 20 41 55 53 47 45 42 | ; NUR CR AUSGEB|
00001940: 45 4E 00 50 21 6A 0E 4A 53 52 20 42 53 4F 55 54 |EN.P!j.JSR BSOUT|
00001950: 00 5B 21 74 0E 4A 53 52 20 5A 55 00 63 21 7E 0E |.[!t.JSR ZU.c!~.|
00001960: 52 54 53 00 69 21 88 0E 3B 00 6F 21 92 0E 3B 00 |RTS.i!..;.o!..;.|
00001970: 84 21 9C 0E 53 54 52 49 43 48 20 4A 53 52 20 43 |.!..STRICH JSR C|
00001980: 48 4B 4F 4D 00 8F 21 A6 0E 4C 44 59 20 23 35 00 |HKOM..!..LDY #5.|
00001990: 9B 21 B0 0E 4A 53 52 20 41 55 46 00 AA 21 BA 0E |.!..JSR AUF..!..|
000019A0: 4A 53 52 20 46 52 4D 45 56 4C 00 B7 21 C4 0E 4A |JSR FRMEVL..!..J|
000019B0: 53 52 20 53 80 45 52 00 C2 21 CE 0E 4A 53 52 20 |SR S.ER..!..JSR |
000019C0: 5A 55 00 CA 21 D8 0E 52 54 53 00 D0 21 E2 0E 3B |ZU..!..RTS..!..;|
000019D0: 00 D6 21 EC 0E 3B 00 E6 21 F6 0E 48 4F 4D 45 20 |..!..;..!..HOME |
000019E0: 4C 44 59 20 23 31 00 F3 21 00 0F 4C 44 41 20 23 |LDY #1..!..LDA #|
000019F0: 22 48 22 00 FF 21 0A 0F 53 54 41 20 24 46 46 00 |"H"..!..STA $FF.|
00001A00: 0D 22 14 0F 4A 53 52 20 42 59 54 53 80 00 15 22 |."..JSR BYTS..."|
00001A10: 1E 0F 52 54 53 00 1B 22 28 0F 3B 00 21 22 32 0F |..RTS.."(.;.!"2.|
00001A20: 3B 00 31 22 3C 0F 49 4E 49 54 20 4C 44 59 20 23 |;.1"<.INIT LDY #|
00001A30: 31 00 3E 22 46 0F 4C 44 41 20 23 22 49 22 00 4A |1.>"F.LDA #"I".J|
00001A40: 22 50 0F 53 54 41 20 24 46 46 00 58 22 5A 0F 4A |"P.STA $FF.X"Z.J|
00001A50: 53 52 20 42 59 54 53 80 00 60 22 64 0F 52 54 53 |SR BYTS..`"d.RTS|
00001A60: 00 66 22 6E 0F 3B 00 6C 22 78 0F 3B 00 7F 22 82 |.f"n.;.l"x.;..".|
00001A70: 0F 4D 4F 56 45 20 4A 53 52 20 43 48 4B 4F 4D 00 |.MOVE JSR CHKOM.|
00001A80: 8A 22 8C 0F 4C 44 59 20 23 31 00 96 22 96 0F 4A |."..LDY #1.."..J|
00001A90: 53 52 20 41 55 46 00 A3 22 A0 0F 4C 44 41 20 23 |SR AUF.."..LDA #|
00001AA0: 22 4D 22 00 B7 22 AA 0F 44 42 59 54 45 20 4A 53 |"M".."..DBYTE JS|
00001AB0: 52 20 42 53 4F 55 54 00 C4 22 B4 0F 4C 44 41 20 |R BSOUT.."..LDA |
00001AC0: 23 22 20 22 00 D2 22 BE 0F 4A 53 52 20 42 53 4F |#" ".."..JSR BSO|
00001AD0: 55 54 00 F1 22 C8 0F 4A 53 52 20 46 52 4D 45 56 |UT.."..JSR FRMEV|
00001AE0: 4C 20 20 20 20 20 20 20 3B 20 58 AB 4B 4F B0 44 |L ; X.KO.D|
00001AF0: 2E 00 FE 22 D2 0F 4A 53 52 20 46 41 43 C6 00 0D |..."..JSR FAC...|
00001B00: 23 DC 0F 4A 53 52 20 53 54 52 4F 55 54 00 1A 23 |#..JSR STROUT..#|
00001B10: E6 0F 4C 44 41 20 23 22 20 22 00 28 23 F0 0F 4A |..LDA #" ".(#..J|
00001B20: 53 52 20 42 53 4F 55 54 00 36 23 FA 0F 4A 53 52 |SR BSOUT.6#..JSR|
00001B30: 20 43 48 4B 4F 4D 00 55 23 04 10 4A 53 52 20 46 | CHKOM.U#..JSR F|
00001B40: 52 4D 45 56 4C 20 20 20 20 20 20 20 3B 20 59 AB |RMEVL ; Y.|
00001B50: 4B 4F B0 44 2E 00 62 23 0E 10 4A 53 52 20 46 41 |KO.D..b#..JSR FA|
00001B60: 43 C6 00 71 23 18 10 4A 53 52 20 53 54 52 4F 55 |C..q#..JSR STROU|
00001B70: 54 00 7C 23 22 10 4A 53 52 20 5A 55 00 84 23 2C |T.|#".JSR ZU..#,|
00001B80: 10 52 54 53 00 8A 23 36 10 3B 00 90 23 40 10 3B |.RTS..#6.;..#@.;|
00001B90: 00 A3 23 4A 10 44 52 41 57 20 4A 53 52 20 43 48 |..#J.DRAW JSR CH|
00001BA0: 4B 4F 4D 00 AE 23 54 10 4C 44 59 20 23 31 00 BA |KOM..#T.LDY #1..|
00001BB0: 23 5E 10 4A 53 52 20 41 55 46 00 C7 23 68 10 4C |#^.JSR AUF..#h.L|
00001BC0: 44 41 20 23 22 44 22 00 D5 23 72 10 4A 4D 50 20 |DA #"D"..#r.JMP |
00001BD0: 44 42 59 54 45 00 DB 23 7C 10 3B 00 E1 23 86 10 |DBYTE..#|.;..#..|
00001BE0: 3B 00 F5 23 90 10 52 4D 4F 56 45 20 4A 53 52 20 |;..#..RMOVE JSR |
00001BF0: 43 48 4B 4F 4D 00 00 24 9A 10 4C 44 59 20 23 31 |CHKOM..$..LDY #1|
00001C00: 00 0C 24 A4 10 4A 53 52 20 41 55 46 00 19 24 AE |..$..JSR AUF..$.|
00001C10: 10 4C 44 41 20 23 22 52 22 00 27 24 B8 10 4A 4D |.LDA #"R".'$..JM|
00001C20: 50 20 44 42 59 54 45 00 2D 24 C2 10 3B 00 33 24 |P DBYTE.-$..;.3$|
00001C30: CC 10 3B 00 47 24 D6 10 52 44 52 41 57 20 4A 53 |..;.G$..RDRAW JS|
00001C40: 52 20 43 48 4B 4F 4D 00 52 24 E0 10 4C 44 59 20 |R CHKOM.R$..LDY |
00001C50: 23 31 00 5E 24 EA 10 4A 53 52 20 41 55 46 00 6B |#1.^$..JSR AUF.k|
00001C60: 24 F4 10 4C 44 41 20 23 22 4A 22 00 79 24 FE 10 |$..LDA #"J".y$..|
00001C70: 4A 4D 50 20 44 42 59 54 45 00 7F 24 08 11 3B 00 |JMP DBYTE..$..;.|
00001C80: 85 24 12 11 3B 00 98 24 1C 11 4C 49 4E 49 45 20 |.$..;..$..LINIE |
00001C90: 4A 53 52 20 4D 4F 56 45 00 A5 24 26 11 4A 53 52 |JSR MOVE..$&.JSR|
00001CA0: 20 44 52 41 57 00 AD 24 30 11 52 54 53 00 B3 24 | DRAW..$0.RTS..$|
00001CB0: 3A 11 3B 00 B9 24 44 11 3B 00 CB 24 4E 11 9E 54 |:.;..$D.;..$N..T|
00001CC0: 45 4D 20 4C 44 58 20 23 32 35 35 00 D6 24 58 11 |EM LDX #255..$X.|
00001CD0: 4C 31 20 49 4E 58 00 E8 24 62 11 4C 44 41 20 4D |L1 INX..$b.LDA M|
00001CE0: 45 4C 44 55 4E 47 2C 58 00 F6 24 6C 11 4A 53 52 |ELDUNG,X..$l.JSR|
00001CF0: 20 42 53 4F 55 54 00 02 25 76 11 43 50 58 20 23 | BSOUT..%v.CPX #|
00001D00: 38 31 00 0D 25 80 11 42 4E 45 20 4C 31 00 2F 25 |81..%..BNE L1./%|
00001D10: 8A 11 4C 44 41 20 24 33 30 30 20 3A 20 53 54 41 |..LDA $300 : STA|
00001D20: 20 48 49 4C 46 20 20 20 20 3B 20 41 4C 54 45 00 | HILF ; ALTE.|
00001D30: 54 25 94 11 4C 44 41 20 24 33 30 31 20 3A 20 53 |T%..LDA $301 : S|
00001D40: 54 41 20 48 49 4C 46 AA 31 20 20 3B 20 56 45 4B |TA HILF.1 ; VEK|
00001D50: A4 52 45 4E 00 78 25 9E 11 43 4C 43 20 20 20 20 |.REN.x%..CLC |
00001D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D70: 3B 20 52 45 54 54 45 4E 00 83 25 A8 11 4C 44 41 |; RETTEN..%..LDA|
00001D80: 20 23 33 00 A7 25 B2 11 4C 44 41 20 24 33 30 38 | #3..%..LDA $308|
00001D90: 20 3A 20 53 54 41 20 4A 55 4D 50 AA 31 3B 53 50 | : STA JUMP.1;SP|
00001DA0: 8A 47 20 4E 41 43 48 00 CD 25 BC 11 4C 44 41 20 |.G NACH..%..LDA |
00001DB0: 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |#0 |
00001DC0: 20 3B 45 56 45 4E 54 55 45 4C 4C 45 52 00 F4 25 | ;EVENTUELLER..%|
00001DD0: C6 11 4C 44 41 20 24 33 30 39 20 3A 20 53 54 41 |..LDA $309 : STA|
00001DE0: 20 4A 55 4D 50 AA 32 3B 42 45 46 2E AB 45 52 57 | JUMP.2;BEF..ERW|
00001DF0: 45 49 54 2E 00 17 26 D0 11 4C 44 41 20 23 B3 57 |EIT...&..LDA #.W|
00001E00: 41 52 4D 20 3A 20 53 54 41 20 24 33 30 30 20 20 |ARM : STA $300 |
00001E10: 20 20 3B 4E 45 55 45 00 3D 26 DA 11 4C 44 41 20 | ;NEUE.=&..LDA |
00001E20: 23 B1 57 41 52 4D 20 3A 20 53 54 41 20 24 33 30 |#.WARM : STA $30|
00001E30: 31 20 20 20 20 3B 56 45 4B A4 52 45 4E 00 62 26 |1 ;VEK.REN.b&|
00001E40: E4 11 4C 44 41 20 23 B3 4E 45 55 20 20 3A 20 53 |..LDA #.NEU : S|
00001E50: 54 41 20 5A 45 49 47 45 52 20 20 3B 53 45 54 5A |TA ZEIGER ;SETZ|
00001E60: 45 4E 00 80 26 EE 11 4C 44 41 20 23 B1 4E 45 55 |EN..&..LDA #.NEU|
00001E70: 20 20 3A 20 53 54 41 20 5A 45 49 47 45 52 AA 31 | : STA ZEIGER.1|
00001E80: 00 9B 26 F8 11 4C 44 41 20 23 24 36 30 20 20 3B |..&..LDA #$60 ;|
00001E90: 20 52 54 53 20 42 45 46 45 48 4C 00 BE 26 02 12 | RTS BEFEHL..&..|
00001EA0: 53 54 41 20 24 43 30 30 30 20 3B 20 56 45 52 48 |STA $C000 ; VERH|
00001EB0: 49 4E 44 45 52 54 20 52 45 53 54 41 52 54 00 C6 |INDERT RESTART..|
00001EC0: 26 0C 12 52 54 53 00 CC 26 16 12 3B 00 DF 26 20 |&..RTS..&..;..& |
00001ED0: 12 4D 45 4C 44 55 4E 47 20 2E C6 20 22 93 22 00 |.MELDUNG .. ".".|
00001EE0: 10 27 2A 12 2E C6 20 22 11 05 20 20 20 2A 2A 2A |.'*... ".. ***|
00001EF0: 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 31 35 32 30 |* COMMODORE 1520|
00001F00: 20 42 41 53 49 43 20 31 2E 33 20 2A 2A 2A 2A 22 | BASIC 1.3 ****"|
00001F10: 00 1D 27 34 12 2E 42 59 54 20 24 30 44 00 2A 27 |..'4..BYT $0D.*'|
00001F20: 3E 12 2E 42 59 54 20 24 30 44 00 5B 27 48 12 2E |>..BYT $0D.['H..|
00001F30: C6 20 22 20 20 20 28 50 29 20 4A 41 4E 2E 31 39 |. " (P) JAN.19|
00001F40: 38 35 20 3D 3A 3D 20 28 43 29 20 42 59 20 53 2E |85 =:= (C) BY S.|
00001F50: 53 43 48 41 45 46 45 52 20 20 22 00 68 27 52 12 |SCHAEFER ".h'R.|
00001F60: 2E 42 59 54 20 24 30 44 00 8E 27 5C 12 48 49 4C |.BYT $0D..'\.HIL|
00001F70: 46 20 2E 42 59 54 20 24 30 30 20 20 3B 20 5A 57 |F .BYT $00 ; ZW|
00001F80: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 B3 |ISCHENSPEICHER..|
00001F90: 27 66 12 2E 42 59 54 20 24 30 30 20 20 3B 20 46 |'f..BYT $00 ; F|
00001FA0: 55 45 52 20 57 41 52 4D 53 54 41 52 54 AB 56 45 |UER WARMSTART.VE|
00001FB0: 4B A4 52 00 B9 27 70 12 3B 00 BF 27 7A 12 3B 00 |K.R..'p.;..'z.;.|
00001FC0: DC 27 84 12 53 80 45 52 20 4A 53 52 20 46 41 43 |.'..S.ER JSR FAC|
00001FD0: C6 20 20 3B 20 46 41 43 20 41 55 46 00 FE 27 8E |. ; FAC AUF..'.|
00001FE0: 12 4A 53 52 20 53 54 52 4F 55 54 20 20 20 20 20 |.JSR STROUT |
00001FF0: 20 20 20 20 3B 20 44 52 55 43 4B 45 52 AB 00 1D | ; DRUCKER...|
00002000: 28 98 12 4C 44 41 20 23 22 20 22 20 20 20 20 20 |(..LDA #" " |
00002010: 20 20 20 20 20 20 3B 20 4B 41 4E 41 4C 00 3E 28 | ; KANAL.>(|
00002020: A2 12 4A 53 52 20 42 53 4F 55 54 20 20 20 20 20 |..JSR BSOUT |
00002030: 20 20 20 20 20 3B 20 AA 20 53 50 41 43 45 00 46 | ; . SPACE.F|
00002040: 28 AC 12 52 54 53 00 4C 28 B6 12 3B 00 52 28 C0 |(..RTS.L(..;.R(.|
00002050: 12 3B 00 66 28 CA 12 4B 52 45 49 53 20 4A 53 52 |.;.f(..KREIS JSR|
00002060: 20 50 41 52 41 4D 00 74 28 D4 12 4A 53 52 20 4B | PARAM.t(..JSR K|
00002070: 52 4D 49 54 00 80 28 DE 12 4A 53 52 20 4D 41 C3 |RMIT..(..JSR MA.|
00002080: 00 88 28 E8 12 52 54 53 00 8E 28 F2 12 3B 00 A2 |..(..RTS..(..;..|
00002090: 28 FC 12 50 41 52 41 4D 20 4A 53 52 20 43 48 4B |(..PARAM JSR CHK|
000020A0: 4F 4D 00 B1 28 06 13 4A 53 52 20 46 52 4D 45 56 |OM..(..JSR FRMEV|
000020B0: 4C 00 C9 28 10 13 4C 44 58 20 23 B3 4B 58 20 3A |L..(..LDX #.KX :|
000020C0: 20 4C 44 59 20 23 B1 4B 58 00 D8 28 1A 13 4A 53 | LDY #.KX..(..JS|
000020D0: 52 20 46 41 43 4D 45 4D 00 E6 28 24 13 4A 53 52 |R FACMEM..($.JSR|
000020E0: 20 43 48 4B 4F 4D 00 F5 28 2E 13 4A 53 52 20 46 | CHKOM..(..JSR F|
000020F0: 52 4D 45 56 4C 00 0D 29 38 13 4C 44 58 20 23 B3 |RMEVL..)8.LDX #.|
00002100: 4B 59 20 3A 20 4C 44 59 20 23 B1 4B 59 00 1C 29 |KY : LDY #.KY..)|
00002110: 42 13 4A 53 52 20 46 41 43 4D 45 4D 00 2A 29 4C |B.JSR FACMEM.*)L|
00002120: 13 4A 53 52 20 43 48 4B 4F 4D 00 39 29 56 13 4A |.JSR CHKOM.9)V.J|
00002130: 53 52 20 46 52 4D 45 56 4C 00 55 29 60 13 4C 44 |SR FRMEVL.U)`.LD|
00002140: 58 20 23 B3 58 52 41 44 20 3A 20 4C 44 59 20 23 |X #.XRAD : LDY #|
00002150: B1 58 52 41 44 00 64 29 6A 13 4A 53 52 20 46 41 |.XRAD.d)j.JSR FA|
00002160: 43 4D 45 4D 00 72 29 74 13 4A 53 52 20 43 48 4B |CMEM.r)t.JSR CHK|
00002170: 4F 4D 00 81 29 7E 13 4A 53 52 20 46 52 4D 45 56 |OM..)~.JSR FRMEV|
00002180: 4C 00 9D 29 88 13 4C 44 58 20 23 B3 59 52 41 44 |L..)..LDX #.YRAD|
00002190: 20 3A 20 4C 44 59 20 23 B1 59 52 41 44 00 AC 29 | : LDY #.YRAD..)|
000021A0: 92 13 4A 53 52 20 46 41 43 4D 45 4D 00 B4 29 9C |..JSR FACMEM..).|
000021B0: 13 52 54 53 00 BA 29 A6 13 3B 00 D8 29 B0 13 4B |.RTS..)..;..)..K|
000021C0: 52 4D 49 54 20 4C 44 41 20 23 B3 4B 58 20 3A 20 |RMIT LDA #.KX : |
000021D0: 4C 44 59 20 23 B1 4B 58 00 E7 29 BA 13 4A 53 52 |LDY #.KX..)..JSR|
000021E0: 20 4D 45 4D 46 41 43 00 F2 29 C4 13 4C 44 59 20 | MEMFAC..)..LDY |
000021F0: 23 31 00 FE 29 CE 13 4A 53 52 20 41 55 46 00 2F |#1..)..JSR AUF./|
00002200: 2A D8 13 4C 44 41 20 23 22 4D 22 20 3A 20 4A 53 |*..LDA #"M" : JS|
00002210: 52 20 42 53 4F 55 54 20 20 3B 20 41 55 46 20 4B |R BSOUT ; AUF K|
00002220: 52 45 49 53 4D 49 54 54 45 4C 50 55 4E 4B 54 00 |REISMITTELPUNKT.|
00002230: 3C 2A E2 13 4A 53 52 20 53 80 45 52 00 54 2A EC |<*..JSR S.ER.T*.|
00002240: 13 4C 44 41 20 23 B3 4B 59 20 3A 20 4C 44 59 20 |.LDA #.KY : LDY |
00002250: 23 B1 4B 59 00 63 2A F6 13 4A 53 52 20 4D 45 4D |#.KY.c*..JSR MEM|
00002260: 46 41 43 00 88 2A 00 14 4A 53 52 20 53 80 45 52 |FAC..*..JSR S.ER|
00002270: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 B9 49 | ; .I|
00002280: 54 49 91 49 45 52 45 4E 00 93 2A 0A 14 4A 53 52 |TI.IEREN..*..JSR|
00002290: 20 5A 55 00 A0 2A 14 14 4A 53 52 20 49 4E 49 54 | ZU..*..JSR INIT|
000022A0: 00 A8 2A 1E 14 52 54 53 00 AE 2A 28 14 3B 00 CE |..*..RTS..*(.;..|
000022B0: 2A 32 14 4D 41 C3 20 4C 44 41 20 23 B3 58 52 41 |*2.MA. LDA #.XRA|
000022C0: 44 20 3A 20 4C 44 59 20 23 B1 58 52 41 44 00 DD |D : LDY #.XRAD..|
000022D0: 2A 3C 14 4A 53 52 20 4D 45 4D 46 41 43 00 E8 2A |*<.JSR MEMFAC..*|
000022E0: 46 14 4C 44 59 20 23 31 00 F4 2A 50 14 4A 53 52 |F.LDY #1..*P.JSR|
000022F0: 20 41 55 46 00 01 2B 5A 14 4C 44 41 20 23 22 52 | AUF..+Z.LDA #"R|
00002300: 22 00 0F 2B 64 14 4A 53 52 20 42 53 4F 55 54 00 |"..+d.JSR BSOUT.|
00002310: 1C 2B 6E 14 4A 53 52 20 53 80 45 52 00 29 2B 78 |.+n.JSR S.ER.)+x|
00002320: 14 4C 44 41 20 23 22 30 22 00 37 2B 82 14 4A 53 |.LDA #"0".7+..JS|
00002330: 52 20 42 53 4F 55 54 00 42 2B 8C 14 4A 53 52 20 |R BSOUT.B+..JSR |
00002340: 5A 55 00 48 2B 96 14 3B 00 53 2B A0 14 4C 44 41 |ZU.H+..;.S+..LDA|
00002350: 20 23 30 00 6B 2B AA 14 53 54 41 20 41 52 47 55 | #0.k+..STA ARGU|
00002360: 3A 53 54 41 20 41 52 47 55 AA 31 00 90 2B B4 14 |:STA ARGU.1..+..|
00002370: 53 54 41 20 41 52 47 55 AA 32 3A 53 54 41 20 41 |STA ARGU.2:STA A|
00002380: 52 47 55 AA 33 3A 53 54 41 20 41 52 47 55 AA 34 |RGU.3:STA ARGU.4|
00002390: 00 B3 2B BE 14 4A 4D 50 20 50 4C 20 20 20 20 20 |..+..JMP PL |
000023A0: 3B 20 41 52 47 55 4D 45 4E 54 20 45 52 48 4F 45 |; ARGUMENT ERHOE|
000023B0: 48 45 4E 00 CD 2B C8 14 4C 4F 4F 50 20 4C 44 59 |HEN..+..LOOP LDY|
000023C0: 20 23 31 20 3A 20 4A 53 52 20 41 55 46 00 D7 2B | #1 : JSR AUF..+|
000023D0: D2 14 4A 53 52 20 BE 00 F3 2B DC 14 4C 44 41 20 |..JSR ...+..LDA |
000023E0: 23 B3 58 52 41 44 20 3A 20 4C 44 59 20 23 B1 58 |#.XRAD : LDY #.X|
000023F0: 52 41 44 00 03 2C E6 14 4A 53 52 20 4D 45 4D 4D |RAD..,..JSR MEMM|
00002400: 55 4C 54 00 10 2C F0 14 4C 44 41 20 23 22 4A 22 |ULT..,..LDA #"J"|
00002410: 00 1E 2C FA 14 4A 53 52 20 42 53 4F 55 54 00 2B |..,..JSR BSOUT.+|
00002420: 2C 04 15 4A 53 52 20 53 80 45 52 00 31 2C 0E 15 |,..JSR S.ER.1,..|
00002430: 3B 00 4D 2C 18 15 4C 44 41 20 23 B3 41 52 47 55 |;.M,..LDA #.ARGU|
00002440: 20 3A 20 4C 44 59 20 23 B1 41 52 47 55 00 5C 2C | : LDY #.ARGU.\,|
00002450: 22 15 4A 53 52 20 4D 45 4D 46 41 43 00 66 2C 2C |".JSR MEMFAC.f,,|
00002460: 15 4A 53 52 20 BF 00 82 2C 36 15 4C 44 41 20 23 |.JSR ...,6.LDA #|
00002470: B3 59 52 41 44 20 3A 20 4C 44 59 20 23 B1 59 52 |.YRAD : LDY #.YR|
00002480: 41 44 00 92 2C 40 15 4A 53 52 20 4D 45 4D 4D 55 |AD..,@.JSR MEMMU|
00002490: 4C 54 00 9F 2C 4A 15 4A 53 52 20 53 80 45 52 00 |LT..,J.JSR S.ER.|
000024A0: AA 2C 54 15 4A 53 52 20 5A 55 00 B0 2C 5E 15 3B |.,T.JSR ZU..,^.;|
000024B0: 00 C0 2C 68 15 50 4C 20 4C 44 41 20 23 24 36 43 |..,h.PL LDA #$6C|
000024C0: 00 DD 2C 72 15 4C 44 59 20 23 24 45 33 20 20 20 |..,r.LDY #$E3 |
000024D0: 20 3B 20 46 4C 50 20 30 2E 31 39 B2 A9 00 EC 2C | ; FLP 0.19....,|
000024E0: 7C 15 4A 53 52 20 4D 45 4D 46 41 43 00 08 2D 86 ||.JSR MEMFAC..-.|
000024F0: 15 4C 44 41 20 23 B3 41 52 47 55 20 3A 20 4C 44 |.LDA #.ARGU : LD|
00002500: 59 20 23 B1 41 52 47 55 00 18 2D 90 15 4A 53 52 |Y #.ARGU..-..JSR|
00002510: 20 4D 45 4D 50 4C 55 53 00 34 2D 9A 15 4C 44 58 | MEMPLUS.4-..LDX|
00002520: 20 23 B3 41 52 47 55 20 3A 20 4C 44 59 20 23 B1 | #.ARGU : LDY #.|
00002530: 41 52 47 55 00 43 2D A4 15 4A 53 52 20 46 41 43 |ARGU.C-..JSR FAC|
00002540: 4D 45 4D 00 63 2D AE 15 4C 44 41 20 23 B3 47 52 |MEM.c-..LDA #.GR|
00002550: 45 4E 5A 45 20 3A 20 4C 44 59 20 23 B1 47 52 45 |ENZE : LDY #.GRE|
00002560: 4E 5A 45 00 6B 2D B8 15 43 4C 43 00 7B 2D C2 15 |NZE.k-..CLC.{-..|
00002570: 4A 53 52 20 56 45 52 47 4C 43 48 00 88 2D CC 15 |JSR VERGLCH..-..|
00002580: 42 43 53 20 4C 4F 4F 50 00 93 2D D6 15 4A 53 52 |BCS LOOP..-..JSR|
00002590: 20 5A 55 00 9B 2D E0 15 52 54 53 00 A1 2D EA 15 | ZU..-..RTS..-..|
000025A0: 3B 00 A7 2D F4 15 3B 00 CE 2D FE 15 50 52 4F 47 |;..-..;..-..PROG|
000025B0: 20 4C 44 41 20 23 22 2C 22 20 20 20 3B 20 41 55 | LDA #"," ; AU|
000025C0: 46 20 4B 4F 4D 4D 41 20 54 45 53 54 45 4E 00 D9 |F KOMMA TESTEN..|
000025D0: 2D 08 16 4C 44 59 20 23 30 00 01 2E 12 16 43 4D |-..LDY #0.....CM|
000025E0: 50 20 28 24 37 41 29 2C 59 20 20 20 20 20 3B 20 |P ($7A),Y ; |
000025F0: 41 4B 54 55 45 4C 4C 45 53 20 5A 45 49 43 48 45 |AKTUELLES ZEICHE|
00002600: 4E 00 0F 2E 1C 16 42 4E 45 20 41 4C 4C 45 53 00 |N.....BNE ALLES.|
00002610: 1D 2E 26 16 4A 53 52 20 24 30 30 37 33 00 2E 2E |..&.JSR $0073...|
00002620: 30 16 41 4C 4C 45 53 20 4C 44 59 20 23 30 00 3A |0.ALLES LDY #0.:|
00002630: 2E 3A 16 4A 53 52 20 41 55 46 00 5F 2E 44 16 44 |.:.JSR AUF._.D.D|
00002640: 45 43 20 24 37 41 20 20 3B 20 54 45 58 54 50 4F |EC $7A ; TEXTPO|
00002650: B5 45 52 20 45 52 4E 49 45 44 52 49 47 45 4E 00 |.ER ERNIEDRIGEN.|
00002660: 75 2E 4E 16 4C 44 41 20 23 24 39 42 20 3B 20 9B |u.N.LDA #$9B ; .|
00002670: AB 43 4F 44 45 00 9C 2E 58 16 4C 44 58 20 23 39 |.CODE...X.LDX #9|
00002680: 39 20 3A 20 53 54 58 20 46 4C 41 47 20 20 3B 9B |9 : STX FLAG ;.|
00002690: AB 46 4C 41 47 20 53 45 54 5A 45 4E 00 AA 2E 62 |.FLAG SETZEN...b|
000026A0: 16 4A 53 52 20 24 41 37 46 37 00 B5 2E 6C 16 4A |.JSR $A7F7...l.J|
000026B0: 53 52 20 5A 55 00 BD 2E 76 16 52 54 53 00 C3 2E |SR ZU...v.RTS...|
000026C0: 80 16 3B 00 C9 2E 8A 16 3B 00 F0 2E 94 16 57 41 |..;.....;.....WA|
000026D0: 52 4D 20 4C 44 41 20 46 4C 41 47 20 20 3B 20 57 |RM LDA FLAG ; W|
000026E0: 41 52 4D 53 54 41 52 54 20 52 4F 55 54 49 4E 45 |ARMSTART ROUTINE|
000026F0: 00 13 2F 9E 16 43 4D 50 20 23 39 39 20 20 20 20 |../..CMP #99 |
00002700: 20 20 20 20 3B 20 55 4D 20 4E 41 43 48 20 9B 20 | ; UM NACH . |
00002710: 44 45 4E 00 38 2F A8 16 42 45 51 20 43 48 20 20 |DEN.8/..BEQ CH |
00002720: 20 20 20 20 20 20 20 3B 20 44 52 55 43 4B 45 52 | ; DRUCKER|
00002730: 4B 41 4E 41 4C 20 5A 55 00 5C 2F B2 16 4A 4D 50 |KANAL ZU.\/..JMP|
00002740: 20 28 48 49 4C 46 29 20 20 20 20 20 3B 20 53 43 | (HILF) ; SC|
00002750: 48 4C 49 45 53 53 45 4E 20 55 4E 44 00 80 2F BC |HLIESSEN UND../.|
00002760: 16 43 48 20 4C 44 41 20 23 30 20 20 20 20 20 20 |.CH LDA #0 |
00002770: 3B 20 44 49 45 20 87 59 AB 4D 45 4C 44 55 4E 47 |; DIE .Y.MELDUNG|
00002780: 00 A6 2F C6 16 53 54 41 20 46 4C 41 47 20 20 20 |../..STA FLAG |
00002790: 20 20 20 20 3B 20 5A 55 20 55 4E 54 45 52 44 52 | ; ZU UNTERDR|
000027A0: 55 45 43 4B 45 4E 00 B7 2F D0 16 4C 44 41 20 23 |UECKEN../..LDA #|
000027B0: 31 33 20 20 3B 43 52 00 C5 2F DA 16 4A 53 52 20 |13 ;CR../..JSR |
000027C0: 42 53 4F 55 54 00 D0 2F E4 16 4A 53 52 20 5A 55 |BSOUT../..JSR ZU|
000027D0: 00 EE 2F EE 16 4A 4D 50 20 24 41 34 37 34 20 20 |../..JMP $A474 |
000027E0: 20 20 20 20 3B 20 87 59 AB 4D 4F 44 55 53 00 F4 | ; .Y.MODUS..|
000027F0: 2F F8 16 3B 00 FA 2F 02 17 3B 00 0F 30 0C 17 52 |/..;../..;..0..R|
00002800: 41 48 4D 45 4E 20 4A 53 52 20 50 41 52 41 4D 00 |AHMEN JSR PARAM.|
00002810: 15 30 16 17 3B 00 20 30 20 17 4C 44 59 20 23 31 |.0..;. 0 .LDY #1|
00002820: 00 2C 30 2A 17 4A 53 52 20 41 55 46 00 39 30 34 |.,0*.JSR AUF.904|
00002830: 17 4C 44 41 20 23 22 4D 22 00 47 30 3E 17 4A 53 |.LDA #"M".G0>.JS|
00002840: 52 20 42 53 4F 55 54 00 54 30 48 17 4C 44 41 20 |R BSOUT.T0H.LDA |
00002850: 23 22 20 22 00 62 30 52 17 4A 53 52 20 42 53 4F |#" ".b0R.JSR BSO|
00002860: 55 54 00 86 30 5C 17 4C 44 41 20 23 B3 4B 58 20 |UT..0\.LDA #.KX |
00002870: 3A 20 4C 44 59 20 23 B1 4B 58 20 20 3B 20 42 45 |: LDY #.KX ; BE|
00002880: 57 45 47 55 4E 47 00 A6 30 66 17 4A 53 52 20 4D |WEGUNG..0f.JSR M|
00002890: 45 4D 46 41 43 20 20 20 20 20 20 20 20 20 20 20 |EMFAC |
000028A0: 3B 20 4E 41 43 48 00 C5 30 70 17 4A 53 52 20 53 |; NACH..0p.JSR S|
000028B0: 80 45 52 20 20 20 20 20 20 20 20 20 20 20 3B 20 |.ER ; |
000028C0: 58 31 AD 59 31 00 DD 30 7A 17 4C 44 41 20 23 B3 |X1.Y1..0z.LDA #.|
000028D0: 4B 59 20 3A 20 4C 44 59 20 23 B1 4B 59 00 EC 30 |KY : LDY #.KY..0|
000028E0: 84 17 4A 53 52 20 4D 45 4D 46 41 43 00 F9 30 8E |..JSR MEMFAC..0.|
000028F0: 17 4A 53 52 20 53 80 45 52 00 04 31 98 17 4A 53 |.JSR S.ER..1..JS|
00002900: 52 20 5A 55 00 0A 31 A2 17 3B 00 18 31 AC 17 4A |R ZU..1..;..1..J|
00002910: 53 52 20 44 52 41 55 46 00 34 31 B6 17 4C 44 41 |SR DRAUF.41..LDA|
00002920: 20 23 B3 58 52 41 44 20 3A 20 4C 44 59 20 23 B1 | #.XRAD : LDY #.|
00002930: 58 52 41 44 00 43 31 C0 17 4A 53 52 20 4D 45 4D |XRAD.C1..JSR MEM|
00002940: 46 41 43 00 50 31 CA 17 4A 53 52 20 53 80 45 52 |FAC.P1..JSR S.ER|
00002950: 00 6A 31 D4 17 4C 44 41 20 23 B3 4B 59 20 20 20 |.j1..LDA #.KY |
00002960: 3A 20 4C 44 59 20 23 B1 4B 59 00 79 31 DE 17 4A |: LDY #.KY.y1..J|
00002970: 53 52 20 4D 45 4D 46 41 43 00 86 31 E8 17 4A 53 |SR MEMFAC..1..JS|
00002980: 52 20 53 80 45 52 00 91 31 F2 17 4A 53 52 20 5A |R S.ER..1..JSR Z|
00002990: 55 00 9F 31 FC 17 4A 53 52 20 44 52 41 55 46 00 |U..1..JSR DRAUF.|
000029A0: BB 31 06 18 4C 44 41 20 23 B3 58 52 41 44 20 3A |.1..LDA #.XRAD :|
000029B0: 20 4C 44 59 20 23 B1 58 52 41 44 00 CA 31 10 18 | LDY #.XRAD..1..|
000029C0: 4A 53 52 20 4D 45 4D 46 41 43 00 D7 31 1A 18 4A |JSR MEMFAC..1..J|
000029D0: 53 52 20 53 80 45 52 00 F3 31 24 18 4C 44 41 20 |SR S.ER..1$.LDA |
000029E0: 23 B3 59 52 41 44 20 3A 20 4C 44 59 20 23 B1 59 |#.YRAD : LDY #.Y|
000029F0: 52 41 44 00 02 32 2E 18 4A 53 52 20 4D 45 4D 46 |RAD..2..JSR MEMF|
00002A00: 41 43 00 0F 32 38 18 4A 53 52 20 53 80 45 52 00 |AC..28.JSR S.ER.|
00002A10: 1A 32 42 18 4A 53 52 20 5A 55 00 28 32 4C 18 4A |.2B.JSR ZU.(2L.J|
00002A20: 53 52 20 44 52 41 55 46 00 42 32 56 18 4C 44 41 |SR DRAUF.B2V.LDA|
00002A30: 20 23 B3 4B 58 20 20 20 3A 20 4C 44 59 20 23 B1 | #.KX : LDY #.|
00002A40: 4B 58 00 51 32 60 18 4A 53 52 20 4D 45 4D 46 41 |KX.Q2`.JSR MEMFA|
00002A50: 43 00 5E 32 6A 18 4A 53 52 20 53 80 45 52 00 7A |C.^2j.JSR S.ER.z|
00002A60: 32 74 18 4C 44 41 20 23 B3 59 52 41 44 20 3A 20 |2t.LDA #.YRAD : |
00002A70: 4C 44 59 20 23 B1 59 52 41 44 00 89 32 7E 18 4A |LDY #.YRAD..2~.J|
00002A80: 53 52 20 4D 45 4D 46 41 43 00 96 32 88 18 4A 53 |SR MEMFAC..2..JS|
00002A90: 52 20 53 80 45 52 00 A1 32 92 18 4A 53 52 20 5A |R S.ER..2..JSR Z|
00002AA0: 55 00 AF 32 9C 18 4A 53 52 20 44 52 41 55 46 00 |U..2..JSR DRAUF.|
00002AB0: C9 32 A6 18 4C 44 41 20 23 B3 4B 58 20 20 20 3A |.2..LDA #.KX :|
00002AC0: 20 4C 44 59 20 23 B1 4B 58 00 D8 32 B0 18 4A 53 | LDY #.KX..2..JS|
00002AD0: 52 20 4D 45 4D 46 41 43 00 E5 32 BA 18 4A 53 52 |R MEMFAC..2..JSR|
00002AE0: 20 53 80 45 52 00 FF 32 C4 18 4C 44 41 20 23 B3 | S.ER..2..LDA #.|
00002AF0: 4B 59 20 20 20 3A 20 4C 44 59 20 23 B1 4B 59 00 |KY : LDY #.KY.|
00002B00: 0E 33 CE 18 4A 53 52 20 4D 45 4D 46 41 43 00 1B |.3..JSR MEMFAC..|
00002B10: 33 D8 18 4A 53 52 20 53 80 45 52 00 26 33 E2 18 |3..JSR S.ER.&3..|
00002B20: 4A 53 52 20 5A 55 00 2E 33 EC 18 52 54 53 00 34 |JSR ZU..3..RTS.4|
00002B30: 33 F6 18 3B 00 3A 33 00 19 3B 00 5E 33 0A 19 44 |3..;.:3..;.^3..D|
00002B40: 52 41 55 46 20 4C 44 59 20 23 31 20 20 20 3B 9F |RAUF LDY #1 ;.|
00002B50: 20 AA 20 44 52 41 57 AB 42 45 46 45 48 4C 00 6A | . DRAW.BEFEHL.j|
00002B60: 33 14 19 4A 53 52 20 41 55 46 00 77 33 1E 19 4C |3..JSR AUF.w3..L|
00002B70: 44 41 20 23 22 44 22 00 85 33 28 19 4A 53 52 20 |DA #"D"..3(.JSR |
00002B80: 42 53 4F 55 54 00 92 33 32 19 4C 44 41 20 23 22 |BSOUT..32.LDA #"|
00002B90: 20 22 00 A0 33 3C 19 4A 53 52 20 42 53 4F 55 54 | "..3<.JSR BSOUT|
00002BA0: 00 A8 33 46 19 52 54 53 00 AE 33 50 19 3B 00 B4 |..3F.RTS..3P.;..|
00002BB0: 33 5A 19 3B 00 CF 33 64 19 47 52 45 4E 5A 45 20 |3Z.;..3d.GRENZE |
00002BC0: 2E 42 59 54 20 24 38 33 20 20 3B 20 32 AC FF 00 |.BYT $83 ; 2...|
00002BD0: DC 33 6E 19 2E 42 59 54 20 24 35 35 00 E9 33 78 |.3n..BYT $55..3x|
00002BE0: 19 2E 42 59 54 20 24 44 43 00 F6 33 82 19 2E 42 |..BYT $DC..3...B|
00002BF0: 59 54 20 24 41 37 00 03 34 8C 19 2E 42 59 54 20 |YT $A7..4...BYT |
00002C00: 24 36 45 00 38 34 96 19 46 4C 41 47 20 2E 42 59 |$6E.84..FLAG .BY|
00002C10: 54 20 24 30 30 20 20 20 20 3B 20 9B AB 46 4C 41 |T $00 ; ..FLA|
00002C20: 47 20 46 55 45 52 20 57 41 52 4D 53 54 41 52 54 |G FUER WARMSTART|
00002C30: AB 52 4F 55 54 49 4E 45 00 54 34 A0 19 46 41 4B |.ROUTINE.T4..FAK|
00002C40: A4 52 20 2E 42 59 54 20 24 37 42 20 20 3B 20 FF |.R .BYT $7B ; .|
00002C50: AD 31 38 30 00 61 34 AA 19 2E 42 59 54 20 24 30 |.180.a4...BYT $0|
00002C60: 45 00 6E 34 B4 19 2E 42 59 54 20 24 46 41 00 7B |E.n4...BYT $FA.{|
00002C70: 34 BE 19 2E 42 59 54 20 24 33 35 00 88 34 C8 19 |4...BYT $35..4..|
00002C80: 2E 42 59 54 20 24 31 32 00 8E 34 D2 19 3B 00 A3 |.BYT $12..4..;..|
00002C90: 34 DC 19 52 41 44 49 55 53 20 4A 53 52 20 50 41 |4..RADIUS JSR PA|
00002CA0: 52 41 4D 00 B1 34 E6 19 4A 53 52 20 43 48 4B 4F |RAM..4..JSR CHKO|
00002CB0: 4D 00 C0 34 F0 19 4A 53 52 20 46 52 4D 45 56 4C |M..4..JSR FRMEVL|
00002CC0: 00 DE 34 FA 19 4C 44 41 20 23 B3 46 41 4B A4 52 |..4..LDA #.FAK.R|
00002CD0: 20 3A 20 4C 44 59 20 23 B1 46 41 4B A4 52 00 EE | : LDY #.FAK.R..|
00002CE0: 34 04 1A 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 0A |4..JSR MEMMULT..|
00002CF0: 35 0E 1A 4C 44 58 20 23 B3 41 52 47 55 20 3A 20 |5..LDX #.ARGU : |
00002D00: 4C 44 59 20 23 B1 41 52 47 55 00 19 35 18 1A 4A |LDY #.ARGU..5..J|
00002D10: 53 52 20 46 41 43 4D 45 4D 00 1F 35 22 1A 3B 00 |SR FACMEM..5".;.|
00002D20: 2D 35 2C 1A 4A 53 52 20 4B 52 4D 49 54 00 33 35 |-5,.JSR KRMIT.35|
00002D30: 36 1A 3B 00 3E 35 40 1A 4C 44 59 20 23 31 00 4A |6.;.>5@.LDY #1.J|
00002D40: 35 4A 1A 4A 53 52 20 41 55 46 00 57 35 54 1A 4C |5J.JSR AUF.W5T.L|
00002D50: 44 41 20 23 22 4A 22 00 65 35 5E 1A 4A 53 52 20 |DA #"J".e5^.JSR |
00002D60: 42 53 4F 55 54 00 72 35 68 1A 4C 44 41 20 23 22 |BSOUT.r5h.LDA #"|
00002D70: 20 22 00 80 35 72 1A 4A 53 52 20 42 53 4F 55 54 | "..5r.JSR BSOUT|
00002D80: 00 9C 35 7C 1A 4C 44 41 20 23 B3 41 52 47 55 20 |..5|.LDA #.ARGU |
00002D90: 3A 20 4C 44 59 20 23 B1 41 52 47 55 00 AB 35 86 |: LDY #.ARGU..5.|
00002DA0: 1A 4A 53 52 20 4D 45 4D 46 41 43 00 B5 35 90 1A |.JSR MEMFAC..5..|
00002DB0: 4A 53 52 20 BE 00 D1 35 9A 1A 4C 44 41 20 23 B3 |JSR ...5..LDA #.|
00002DC0: 58 52 41 44 20 3A 20 4C 44 59 20 23 B1 58 52 41 |XRAD : LDY #.XRA|
00002DD0: 44 00 E1 35 A4 1A 4A 53 52 20 4D 45 4D 4D 55 4C |D..5..JSR MEMMUL|
00002DE0: 54 00 EE 35 AE 1A 4A 53 52 20 53 80 45 52 00 0A |T..5..JSR S.ER..|
00002DF0: 36 B8 1A 4C 44 41 20 23 B3 41 52 47 55 20 3A 20 |6..LDA #.ARGU : |
00002E00: 4C 44 59 20 23 B1 41 52 47 55 00 19 36 C2 1A 4A |LDY #.ARGU..6..J|
00002E10: 53 52 20 4D 45 4D 46 41 43 00 23 36 CC 1A 4A 53 |SR MEMFAC.#6..JS|
00002E20: 52 20 BF 00 3F 36 D6 1A 4C 44 41 20 23 B3 59 52 |R ..?6..LDA #.YR|
00002E30: 41 44 20 3A 20 4C 44 59 20 23 B1 59 52 41 44 00 |AD : LDY #.YRAD.|
00002E40: 4F 36 E0 1A 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 |O6..JSR MEMMULT.|
00002E50: 5C 36 EA 1A 4A 53 52 20 53 80 45 52 00 67 36 F4 |\6..JSR S.ER.g6.|
00002E60: 1A 4A 53 52 20 5A 55 00 6F 36 FE 1A 52 54 53 00 |.JSR ZU.o6..RTS.|
00002E70: 75 36 08 1B 3B 00 7B 36 12 1B 3B 00 A1 36 1C 1B |u6..;.{6..;..6..|
00002E80: 54 52 41 4E 53 4D 20 4A 53 52 20 41 4C 4C 50 41 |TRANSM JSR ALLPA|
00002E90: 52 41 4D 20 3B 20 37 20 50 41 52 41 4D 45 54 45 |RAM ; 7 PARAMETE|
00002EA0: 52 00 B0 36 26 1B 54 52 4D 20 4C 44 59 20 23 31 |R..6&.TRM LDY #1|
00002EB0: 00 BC 36 30 1B 4A 53 52 20 41 55 46 00 C9 36 3A |..60.JSR AUF..6:|
00002EC0: 1B 4C 44 41 20 23 22 4D 22 00 DC 36 44 1B 52 45 |.LDA #"M"..6D.RE|
00002ED0: 53 54 20 4A 53 52 20 42 53 4F 55 54 00 E9 36 4E |ST JSR BSOUT..6N|
00002EE0: 1B 4C 44 41 20 23 22 20 22 00 F7 36 58 1B 4A 53 |.LDA #" "..6X.JS|
00002EF0: 52 20 42 53 4F 55 54 00 08 37 62 1B 4A 53 52 20 |R BSOUT..7b.JSR |
00002F00: 55 4D 52 45 43 48 4E 47 00 10 37 6C 1B 52 54 53 |UMRECHNG..7l.RTS|
00002F10: 00 16 37 76 1B 3B 00 1C 37 80 1B 3B 00 42 37 8A |..7v.;..7..;.B7.|
00002F20: 1B 54 52 41 4E 53 44 20 4A 53 52 20 41 4C 4C 50 |.TRANSD JSR ALLP|
00002F30: 41 52 41 4D 20 3B 20 37 20 50 41 52 41 4D 45 54 |ARAM ; 7 PARAMET|
00002F40: 45 52 00 51 37 94 1B 54 52 44 20 4C 44 59 20 23 |ER.Q7..TRD LDY #|
00002F50: 31 00 5D 37 9E 1B 4A 53 52 20 41 55 46 00 6A 37 |1.]7..JSR AUF.j7|
00002F60: A8 1B 4C 44 41 20 23 22 44 22 00 77 37 B2 1B 4A |..LDA #"D".w7..J|
00002F70: 4D 50 20 52 45 53 54 00 7D 37 BC 1B 3B 00 83 37 |MP REST.}7..;..7|
00002F80: C6 1B 3B 00 9B 37 D0 1B 54 52 41 4E 53 4C 20 4A |..;..7..TRANSL J|
00002F90: 53 52 20 41 4C 4C 50 41 52 41 4D 00 A7 37 DA 1B |SR ALLPARAM..7..|
00002FA0: 4A 53 52 20 54 52 4D 00 B5 37 E4 1B 4A 53 52 20 |JSR TRM..7..JSR |
00002FB0: 43 48 4B 4F 4D 00 C4 37 EE 1B 4A 53 52 20 46 52 |CHKOM..7..JSR FR|
00002FC0: 4D 45 56 4C 00 DC 37 F8 1B 4C 44 58 20 23 B3 58 |MEVL..7..LDX #.X|
00002FD0: 52 20 3A 20 4C 44 59 20 23 B1 58 52 00 EB 37 02 |R : LDY #.XR..7.|
00002FE0: 1C 4A 53 52 20 46 41 43 4D 45 4D 00 F9 37 0C 1C |.JSR FACMEM..7..|
00002FF0: 4A 53 52 20 43 48 4B 4F 4D 00 08 38 16 1C 4A 53 |JSR CHKOM..8..JS|
00003000: 52 20 46 52 4D 45 56 4C 00 20 38 20 1C 4C 44 58 |R FRMEVL. 8 .LDX|
00003010: 20 23 B3 59 52 20 3A 20 4C 44 59 20 23 B1 59 52 | #.YR : LDY #.YR|
00003020: 00 2F 38 2A 1C 4A 53 52 20 46 41 43 4D 45 4D 00 |./8*.JSR FACMEM.|
00003030: 3D 38 34 1C 4A 53 52 20 43 48 4B 4F 4D 00 4C 38 |=84.JSR CHKOM.L8|
00003040: 3E 1C 4A 53 52 20 46 52 4D 45 56 4C 00 64 38 48 |>.JSR FRMEVL.d8H|
00003050: 1C 4C 44 58 20 23 B3 5A 52 20 3A 20 4C 44 59 20 |.LDX #.ZR : LDY |
00003060: 23 B1 5A 52 00 73 38 52 1C 4A 53 52 20 46 41 43 |#.ZR.s8R.JSR FAC|
00003070: 4D 45 4D 00 7F 38 5C 1C 4A 4D 50 20 54 52 44 00 |MEM..8\.JMP TRD.|
00003080: 85 38 66 1C 3B 00 8B 38 70 1C 3B 00 A2 38 7A 1C |.8f.;..8p.;..8z.|
00003090: 41 4C 4C 50 41 52 41 4D 20 4A 53 52 20 43 48 4B |ALLPARAM JSR CHK|
000030A0: 4F 4D 00 B1 38 84 1C 4A 53 52 20 46 52 4D 45 56 |OM..8..JSR FRMEV|
000030B0: 4C 00 C9 38 8E 1C 4C 44 58 20 23 B3 58 52 20 3A |L..8..LDX #.XR :|
000030C0: 20 4C 44 59 20 23 B1 58 52 00 D8 38 98 1C 4A 53 | LDY #.XR..8..JS|
000030D0: 52 20 46 41 43 4D 45 4D 00 E6 38 A2 1C 4A 53 52 |R FACMEM..8..JSR|
000030E0: 20 43 48 4B 4F 4D 00 F5 38 AC 1C 4A 53 52 20 46 | CHKOM..8..JSR F|
000030F0: 52 4D 45 56 4C 00 0D 39 B6 1C 4C 44 58 20 23 B3 |RMEVL..9..LDX #.|
00003100: 59 52 20 3A 20 4C 44 59 20 23 B1 59 52 00 1C 39 |YR : LDY #.YR..9|
00003110: C0 1C 4A 53 52 20 46 41 43 4D 45 4D 00 2A 39 CA |..JSR FACMEM.*9.|
00003120: 1C 4A 53 52 20 43 48 4B 4F 4D 00 39 39 D4 1C 4A |.JSR CHKOM.99..J|
00003130: 53 52 20 46 52 4D 45 56 4C 00 51 39 DE 1C 4C 44 |SR FRMEVL.Q9..LD|
00003140: 58 20 23 B3 5A 52 20 3A 20 4C 44 59 20 23 B1 5A |X #.ZR : LDY #.Z|
00003150: 52 00 60 39 E8 1C 4A 53 52 20 46 41 43 4D 45 4D |R.`9..JSR FACMEM|
00003160: 00 6E 39 F2 1C 4A 53 52 20 43 48 4B 4F 4D 00 7D |.n9..JSR CHKOM.}|
00003170: 39 FC 1C 4A 53 52 20 46 52 4D 45 56 4C 00 95 39 |9..JSR FRMEVL..9|
00003180: 06 1D 4C 44 58 20 23 B3 58 56 20 3A 20 4C 44 59 |..LDX #.XV : LDY|
00003190: 20 23 B1 58 56 00 A4 39 10 1D 4A 53 52 20 46 41 | #.XV..9..JSR FA|
000031A0: 43 4D 45 4D 00 B2 39 1A 1D 4A 53 52 20 43 48 4B |CMEM..9..JSR CHK|
000031B0: 4F 4D 00 C1 39 24 1D 4A 53 52 20 46 52 4D 45 56 |OM..9$.JSR FRMEV|
000031C0: 4C 00 D9 39 2E 1D 4C 44 58 20 23 B3 59 56 20 3A |L..9..LDX #.YV :|
000031D0: 20 4C 44 59 20 23 B1 59 56 00 E8 39 38 1D 4A 53 | LDY #.YV..98.JS|
000031E0: 52 20 46 41 43 4D 45 4D 00 F6 39 42 1D 4A 53 52 |R FACMEM..9B.JSR|
000031F0: 20 43 48 4B 4F 4D 00 05 3A 4C 1D 4A 53 52 20 46 | CHKOM..:L.JSR F|
00003200: 52 4D 45 56 4C 00 21 3A 56 1D 4C 44 58 20 23 B3 |RMEVL.!:V.LDX #.|
00003210: 4B 4F 45 46 20 3A 20 4C 44 59 20 23 B1 4B 4F 45 |KOEF : LDY #.KOE|
00003220: 46 00 30 3A 60 1D 4A 53 52 20 46 41 43 4D 45 4D |F.0:`.JSR FACMEM|
00003230: 00 3E 3A 6A 1D 4A 53 52 20 43 48 4B 4F 4D 00 4D |.>:j.JSR CHKOM.M|
00003240: 3A 74 1D 4A 53 52 20 46 52 4D 45 56 4C 00 69 3A |:t.JSR FRMEVL.i:|
00003250: 7E 1D 4C 44 58 20 23 B3 57 49 4E 4B 20 3A 20 4C |~.LDX #.WINK : L|
00003260: 44 59 20 23 B1 57 49 4E 4B 00 78 3A 88 1D 4A 53 |DY #.WINK.x:..JS|
00003270: 52 20 46 41 43 4D 45 4D 00 80 3A 92 1D 52 54 53 |R FACMEM..:..RTS|
00003280: 00 86 3A 9C 1D 3B 00 8C 3A A6 1D 3B 00 B1 3A B0 |..:..;..:..;..:.|
00003290: 1D 55 4D 52 45 43 48 4E 47 20 4C 44 41 20 23 B3 |.UMRECHNG LDA #.|
000032A0: 57 49 4E 4B 20 3A 20 4C 44 59 20 23 B1 57 49 4E |WINK : LDY #.WIN|
000032B0: 4B 00 C0 3A BA 1D 4A 53 52 20 4D 45 4D 46 41 43 |K..:..JSR MEMFAC|
000032C0: 00 DE 3A C4 1D 4C 44 41 20 23 B3 46 41 4B A4 52 |..:..LDA #.FAK.R|
000032D0: 20 3A 20 4C 44 59 20 23 B1 46 41 4B A4 52 00 01 | : LDY #.FAK.R..|
000032E0: 3B CE 1D 4A 53 52 20 4D 45 4D 4D 55 4C 54 20 3B |;..JSR MEMMULT ;|
000032F0: 20 46 41 43 20 4E 41 43 48 20 52 41 44 49 41 4E | FAC NACH RADIAN|
00003300: 54 00 0B 3B D8 1D 4A 53 52 20 BE 00 23 3B E2 1D |T..;..JSR ..#;..|
00003310: 4C 44 41 20 23 B3 59 52 20 3A 20 4C 44 59 20 23 |LDA #.YR : LDY #|
00003320: B1 59 52 00 33 3B EC 1D 4A 53 52 20 4D 45 4D 4D |.YR.3;..JSR MEMM|
00003330: 55 4C 54 00 4B 3B F6 1D 4C 44 41 20 23 B3 58 52 |ULT.K;..LDA #.XR|
00003340: 20 3A 20 4C 44 59 20 23 B1 58 52 00 5B 3B 00 1E | : LDY #.XR.[;..|
00003350: 4A 53 52 20 4D 45 4D 50 4C 55 53 00 77 3B 0A 1E |JSR MEMPLUS.w;..|
00003360: 4C 44 41 20 23 B3 4B 4F 45 46 20 3A 20 4C 44 59 |LDA #.KOEF : LDY|
00003370: 20 23 B1 4B 4F 45 46 00 87 3B 14 1E 4A 53 52 20 | #.KOEF..;..JSR |
00003380: 4D 45 4D 4D 55 4C 54 00 9F 3B 1E 1E 4C 44 41 20 |MEMMULT..;..LDA |
00003390: 23 B3 58 56 20 3A 20 4C 44 59 20 23 B1 58 56 00 |#.XV : LDY #.XV.|
000033A0: AF 3B 28 1E 4A 53 52 20 4D 45 4D 50 4C 55 53 00 |.;(.JSR MEMPLUS.|
000033B0: BC 3B 32 1E 4A 53 52 20 53 80 45 52 00 C2 3B 3C |.;2.JSR S.ER..;<|
000033C0: 1E 3B 00 DE 3B 46 1E 4C 44 41 20 23 B3 57 49 4E |.;..;F.LDA #.WIN|
000033D0: 4B 20 3A 20 4C 44 59 20 23 B1 57 49 4E 4B 00 ED |K : LDY #.WINK..|
000033E0: 3B 50 1E 4A 53 52 20 4D 45 4D 46 41 43 00 0B 3C |;P.JSR MEMFAC..<|
000033F0: 5A 1E 4C 44 41 20 23 B3 46 41 4B A4 52 20 3A 20 |Z.LDA #.FAK.R : |
00003400: 4C 44 59 20 23 B1 46 41 4B A4 52 00 2E 3C 64 1E |LDY #.FAK.R..<d.|
00003410: 4A 53 52 20 4D 45 4D 4D 55 4C 54 20 3B 20 46 41 |JSR MEMMULT ; FA|
00003420: 43 20 4E 41 43 48 20 52 41 44 49 41 4E 54 00 38 |C NACH RADIANT.8|
00003430: 3C 6E 1E 4A 53 52 20 BF 00 50 3C 78 1E 4C 44 41 |<n.JSR ..P<x.LDA|
00003440: 20 23 B3 59 52 20 3A 20 4C 44 59 20 23 B1 59 52 | #.YR : LDY #.YR|
00003450: 00 60 3C 82 1E 4A 53 52 20 4D 45 4D 4D 55 4C 54 |.`<..JSR MEMMULT|
00003460: 00 78 3C 8C 1E 4C 44 41 20 23 B3 5A 52 20 3A 20 |.x<..LDA #.ZR : |
00003470: 4C 44 59 20 23 B1 5A 52 00 88 3C 96 1E 4A 53 52 |LDY #.ZR..<..JSR|
00003480: 20 4D 45 4D 50 4C 55 53 00 A4 3C A0 1E 4C 44 41 | MEMPLUS..<..LDA|
00003490: 20 23 B3 4B 4F 45 46 20 3A 20 4C 44 59 20 23 B1 | #.KOEF : LDY #.|
000034A0: 4B 4F 45 46 00 B4 3C AA 1E 4A 53 52 20 4D 45 4D |KOEF..<..JSR MEM|
000034B0: 4D 55 4C 54 00 CC 3C B4 1E 4C 44 41 20 23 B3 59 |MULT..<..LDA #.Y|
000034C0: 56 20 3A 20 4C 44 59 20 23 B1 59 56 00 DC 3C BE |V : LDY #.YV..<.|
000034D0: 1E 4A 53 52 20 4D 45 4D 50 4C 55 53 00 E9 3C C8 |.JSR MEMPLUS..<.|
000034E0: 1E 4A 53 52 20 53 80 45 52 00 F4 3C D2 1E 4A 53 |.JSR S.ER..<..JS|
000034F0: 52 20 5A 55 00 FC 3C DC 1E 52 54 53 00 02 3D E6 |R ZU..<..RTS..=.|
00003500: 1E 3B 00 08 3D F0 1E 3B 00 1B 3D FA 1E 50 41 52 |.;..=..;..=..PAR|
00003510: 33 20 4A 53 52 20 43 48 4B 4F 4D 00 2B 3D 04 1F |3 JSR CHKOM.+=..|
00003520: 4A 53 52 20 56 41 52 53 55 43 48 00 60 3D 0E 1F |JSR VARSUCH.`=..|
00003530: 53 54 41 20 59 52 41 44 20 3A 20 53 54 59 20 59 |STA YRAD : STY Y|
00003540: 52 41 44 AA 31 20 3B 5A 45 49 47 45 52 20 41 55 |RAD.1 ;ZEIGER AU|
00003550: 46 20 45 52 53 54 45 20 56 41 52 49 41 42 4C 45 |F ERSTE VARIABLE|
00003560: 00 6E 3D 18 1F 4A 53 52 20 43 48 4B 4F 4D 00 7E |.n=..JSR CHKOM.~|
00003570: 3D 22 1F 4A 53 52 20 56 41 52 53 55 43 48 00 B6 |=".JSR VARSUCH..|
00003580: 3D 2C 1F 53 54 41 20 59 52 41 44 AA 32 20 3A 20 |=,.STA YRAD.2 : |
00003590: 53 54 59 20 59 52 41 44 AA 33 20 3B 5A 45 49 47 |STY YRAD.3 ;ZEIG|
000035A0: 45 52 20 41 55 46 20 5A 57 45 49 54 45 20 56 41 |ER AUF ZWEITE VA|
000035B0: 52 49 41 42 4C 45 00 C4 3D 36 1F 4A 53 52 20 43 |RIABLE..=6.JSR C|
000035C0: 48 4B 4F 4D 00 D3 3D 40 1F 4A 53 52 20 46 52 4D |HKOM..=@.JSR FRM|
000035D0: 45 56 4C 00 EF 3D 4A 1F 4C 44 58 20 23 B3 57 49 |EVL..=J.LDX #.WI|
000035E0: 4E 4B 20 3A 20 4C 44 59 20 23 B1 57 49 4E 4B 00 |NK : LDY #.WINK.|
000035F0: FE 3D 54 1F 4A 53 52 20 46 41 43 4D 45 4D 00 06 |.=T.JSR FACMEM..|
00003600: 3E 5E 1F 52 54 53 00 0C 3E 68 1F 3B 00 30 3E 72 |>^.RTS..>h.;.0>r|
00003610: 1F 52 41 44 49 41 4E 54 20 4C 44 41 20 23 B3 57 |.RADIANT LDA #.W|
00003620: 49 4E 4B 20 3A 20 4C 44 59 20 23 B1 57 49 4E 4B |INK : LDY #.WINK|
00003630: 00 3F 3E 7C 1F 4A 53 52 20 4D 45 4D 46 41 43 00 |.?>|.JSR MEMFAC.|
00003640: 5D 3E 86 1F 4C 44 41 20 23 B3 46 41 4B A4 52 20 |]>..LDA #.FAK.R |
00003650: 3A 20 4C 44 59 20 23 B1 46 41 4B A4 52 00 6D 3E |: LDY #.FAK.R.m>|
00003660: 90 1F 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 77 3E |..JSR MEMMULT.w>|
00003670: 9A 1F 4A 53 52 20 BE 00 8F 3E A4 1F 4C 44 58 20 |..JSR ...>..LDX |
00003680: 23 B3 A9 20 20 20 3A 20 4C 44 59 20 23 B1 A9 00 |#.. : LDY #...|
00003690: A7 3E AE 1F 4A 53 52 20 46 41 43 4D 45 4D 20 3B |.>..JSR FACMEM ;|
000036A0: 20 A9 B2 BE 28 57 29 00 C3 3E B8 1F 4C 44 41 20 | ...(W)..>..LDA |
000036B0: 23 B3 57 49 4E 4B 20 3A 20 4C 44 59 20 23 B1 57 |#.WINK : LDY #.W|
000036C0: 49 4E 4B 00 D2 3E C2 1F 4A 53 52 20 4D 45 4D 46 |INK..>..JSR MEMF|
000036D0: 41 43 00 F0 3E CC 1F 4C 44 41 20 23 B3 46 41 4B |AC..>..LDA #.FAK|
000036E0: A4 52 20 3A 20 4C 44 59 20 23 B1 46 41 4B A4 52 |.R : LDY #.FAK.R|
000036F0: 00 00 3F D6 1F 4A 53 52 20 4D 45 4D 4D 55 4C 54 |..?..JSR MEMMULT|
00003700: 00 0A 3F E0 1F 4A 53 52 20 BF 00 28 3F EA 1F 4C |..?..JSR ..(?..L|
00003710: 44 58 20 23 B3 41 52 47 55 20 20 20 3A 20 4C 44 |DX #.ARGU : LD|
00003720: 59 20 23 B1 41 52 47 55 00 43 3F F4 1F 4A 53 52 |Y #.ARGU.C?..JSR|
00003730: 20 46 41 43 4D 45 4D 20 3B 20 41 52 47 55 B2 BF | FACMEM ; ARGU..|
00003740: 28 57 29 00 4B 3F FE 1F 52 54 53 00 51 3F 08 20 |(W).K?..RTS.Q?. |
00003750: 3B 00 57 3F 12 20 3B 00 69 3F 1C 20 54 55 52 4E |;.W?. ;.i?. TURN|
00003760: 20 4A 53 52 20 50 41 52 33 00 79 3F 26 20 4A 53 | JSR PAR3.y?& JS|
00003770: 52 20 52 41 44 49 41 4E 54 00 93 3F 30 20 4C 44 |R RADIANT..?0 LD|
00003780: 41 20 59 52 41 44 20 3A 20 4C 44 59 20 59 52 41 |A YRAD : LDY YRA|
00003790: 44 AA 31 00 A2 3F 3A 20 4A 53 52 20 4D 45 4D 46 |D.1..?: JSR MEMF|
000037A0: 41 43 00 BE 3F 44 20 4C 44 41 20 23 B3 A9 20 3A |AC..?D LDA #.. :|
000037B0: 20 4C 44 59 20 23 B1 A9 20 3B BE 28 57 29 00 CE | LDY #.. ;.(W)..|
000037C0: 3F 4E 20 4A 53 52 20 4D 45 4D 4D 55 4C 54 00 E6 |?N JSR MEMMULT..|
000037D0: 3F 58 20 4C 44 58 20 23 B3 5A 52 20 3A 20 4C 44 |?X LDX #.ZR : LD|
000037E0: 59 20 23 B1 5A 52 00 0C 40 62 20 4A 53 52 20 46 |Y #.ZR..@b JSR F|
000037F0: 41 43 4D 45 4D 20 20 20 20 20 20 20 20 20 20 20 |ACMEM |
00003800: 20 20 20 20 20 3B 4D 45 52 4B 45 4E 00 28 40 6C | ;MERKEN.(@l|
00003810: 20 4C 44 41 20 59 52 41 44 AA 32 20 3A 20 4C 44 | LDA YRAD.2 : LD|
00003820: 59 20 59 52 41 44 AA 33 00 37 40 76 20 4A 53 52 |Y YRAD.3.7@v JSR|
00003830: 20 4D 45 4D 46 41 43 00 59 40 80 20 4C 44 41 20 | MEMFAC.Y@. LDA |
00003840: 23 B3 41 52 47 55 20 3A 20 4C 44 59 20 23 B1 41 |#.ARGU : LDY #.A|
00003850: 52 47 55 20 3B BF 28 57 29 00 69 40 8A 20 4A 53 |RGU ;.(W).i@. JS|
00003860: 52 20 4D 45 4D 4D 55 4C 54 00 81 40 94 20 4C 44 |R MEMMULT..@. LD|
00003870: 41 20 23 B3 5A 52 20 3A 20 4C 44 59 20 23 B1 5A |A #.ZR : LDY #.Z|
00003880: 52 00 91 40 9E 20 4A 53 52 20 4D 45 4D 50 4C 55 |R..@. JSR MEMPLU|
00003890: 53 00 AD 40 A8 20 4C 44 58 20 23 B3 50 41 52 4B |S..@. LDX #.PARK|
000038A0: 20 3A 20 4C 44 59 20 23 B1 50 41 52 4B 00 D3 40 | : LDY #.PARK..@|
000038B0: B2 20 4A 53 52 20 46 41 43 4D 45 4D 20 20 20 20 |. JSR FACMEM |
000038C0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 4D 45 52 | ;MER|
000038D0: 4B 45 4E 00 D9 40 BC 20 3B 00 F3 40 C6 20 4C 44 |KEN..@. ;..@. LD|
000038E0: 41 20 59 52 41 44 20 3A 20 4C 44 59 20 59 52 41 |A YRAD : LDY YRA|
000038F0: 44 AA 31 00 02 41 D0 20 4A 53 52 20 4D 45 4D 46 |D.1..A. JSR MEMF|
00003900: 41 43 00 20 41 DA 20 4A 53 52 20 43 48 B4 20 20 |AC. A. JSR CH. |
00003910: 20 20 20 20 20 20 3B 20 46 41 43 B2 AB 46 41 43 | ; FAC..FAC|
00003920: 00 42 41 E4 20 4C 44 41 20 23 B3 41 52 47 55 20 |.BA. LDA #.ARGU |
00003930: 3A 20 4C 44 59 20 23 B1 41 52 47 55 20 3B BF 28 |: LDY #.ARGU ;.(|
00003940: 57 29 00 52 41 EE 20 4A 53 52 20 4D 45 4D 4D 55 |W).RA. JSR MEMMU|
00003950: 4C 54 00 6A 41 F8 20 4C 44 58 20 23 B3 5A 52 20 |LT.jA. LDX #.ZR |
00003960: 3A 20 4C 44 59 20 23 B1 5A 52 00 90 41 02 21 4A |: LDY #.ZR..A.!J|
00003970: 53 52 20 46 41 43 4D 45 4D 20 20 20 20 20 20 20 |SR FACMEM |
00003980: 20 20 20 20 20 20 20 20 20 3B 4D 45 52 4B 45 4E | ;MERKEN|
00003990: 00 AC 41 0C 21 4C 44 41 20 59 52 41 44 AA 32 20 |..A.!LDA YRAD.2 |
000039A0: 3A 20 4C 44 59 20 59 52 41 44 AA 33 00 BB 41 16 |: LDY YRAD.3..A.|
000039B0: 21 4A 53 52 20 4D 45 4D 46 41 43 00 D7 41 20 21 |!JSR MEMFAC..A !|
000039C0: 4C 44 41 20 23 B3 A9 20 3A 20 4C 44 59 20 23 B1 |LDA #.. : LDY #.|
000039D0: A9 20 3B BE 28 57 29 00 E7 41 2A 21 4A 53 52 20 |. ;.(W)..A*!JSR |
000039E0: 4D 45 4D 4D 55 4C 54 00 FF 41 34 21 4C 44 41 20 |MEMMULT..A4!LDA |
000039F0: 23 B3 5A 52 20 3A 20 4C 44 59 20 23 B1 5A 52 00 |#.ZR : LDY #.ZR.|
00003A00: 0F 42 3E 21 4A 53 52 20 4D 45 4D 50 4C 55 53 00 |.B>!JSR MEMPLUS.|
00003A10: 2B 42 48 21 4C 44 41 20 59 52 41 44 AA 32 20 3A |+BH!LDA YRAD.2 :|
00003A20: 20 4C 44 59 20 59 52 41 44 AA 33 00 51 42 52 21 | LDY YRAD.3.QBR!|
00003A30: 53 54 41 20 24 34 39 20 20 3A 20 53 54 59 20 24 |STA $49 : STY $|
00003A40: 34 41 20 3B 5A 45 49 47 45 52 20 53 45 54 5A 45 |4A ;ZEIGER SETZE|
00003A50: 4E 00 60 42 5C 21 4A 53 52 20 46 41 43 56 41 52 |N.`B\!JSR FACVAR|
00003A60: 00 7C 42 66 21 4C 44 41 20 23 B3 50 41 52 4B 20 |.|Bf!LDA #.PARK |
00003A70: 3A 20 4C 44 59 20 23 B1 50 41 52 4B 00 8B 42 70 |: LDY #.PARK..Bp|
00003A80: 21 4A 53 52 20 4D 45 4D 46 41 43 00 A6 42 7A 21 |!JSR MEMFAC..Bz!|
00003A90: 4C 44 41 20 59 52 41 44 20 20 3A 20 4C 44 59 20 |LDA YRAD : LDY |
00003AA0: 59 52 41 44 AA 31 00 CC 42 84 21 53 54 41 20 24 |YRAD.1..B.!STA $|
00003AB0: 34 39 20 20 3A 20 53 54 59 20 24 34 41 20 3B 5A |49 : STY $4A ;Z|
00003AC0: 45 49 47 45 52 20 53 45 54 5A 45 4E 00 DB 42 8E |EIGER SETZEN..B.|
00003AD0: 21 4A 53 52 20 46 41 43 56 41 52 00 E3 42 98 21 |!JSR FACVAR..B.!|
00003AE0: 52 54 53 00 E9 42 A2 21 3B 00 EF 42 AC 21 3B 00 |RTS..B.!;..B.!;.|
00003AF0: 05 43 B6 21 45 52 52 4A 55 4D 50 20 4A 53 52 20 |.C.!ERRJUMP JSR |
00003B00: 43 48 4B 4F 4D 00 14 43 C0 21 4A 53 52 20 46 52 |CHKOM..C.!JSR FR|
00003B10: 4D 4E 55 4D 00 37 43 CA 21 4A 53 52 20 A1 41 44 |MNUM.7C.!JSR .AD|
00003B20: 52 20 3B 20 5A 45 49 C3 4E 52 2E 20 4E 41 43 48 |R ; ZEI.NR. NACH|
00003B30: 20 24 31 34 AD 31 35 00 43 43 D4 21 4C 44 41 20 | $14.15.CC.!LDA |
00003B40: 24 31 34 00 4F 43 DE 21 4C 44 59 20 24 31 35 00 |$14.OC.!LDY $15.|
00003B50: 5D 43 E8 21 53 54 41 20 5A 45 49 4C 45 00 6D 43 |]C.!STA ZEILE.mC|
00003B60: F2 21 53 54 59 20 5A 45 49 4C 45 AA 31 00 8F 43 |.!STY ZEILE.1..C|
00003B70: FC 21 4C 44 41 20 23 B3 45 52 54 45 53 54 20 3B |.!LDA #.ERTEST ;|
00003B80: 20 46 45 48 4C 45 52 42 45 48 AF 4C 55 4E 47 00 | FEHLERBEH.LUNG.|
00003B90: 9C 43 06 22 53 54 41 20 24 33 30 30 00 BB 43 10 |.C."STA $300..C.|
00003BA0: 22 4C 44 41 20 23 B1 45 52 54 45 53 54 20 3B 20 |"LDA #.ERTEST ; |
00003BB0: 45 49 4E 53 43 48 41 4C 54 45 4E 00 C8 43 1A 22 |EINSCHALTEN..C."|
00003BC0: 53 54 41 20 24 33 30 31 00 D3 43 24 22 4C 44 59 |STA $301..C$"LDY|
00003BD0: 20 23 30 00 E0 43 2E 22 4C 44 41 20 23 22 2C 22 | #0..C."LDA #","|
00003BE0: 00 02 44 38 22 43 4D 50 20 28 24 37 41 29 2C 59 |..D8"CMP ($7A),Y|
00003BF0: 20 20 3B 20 54 45 53 54 20 41 55 46 20 4B 4F 4D | ; TEST AUF KOM|
00003C00: 4D 41 00 0D 44 42 22 42 4E 45 20 52 31 00 1A 44 |MA..DB"BNE R1..D|
00003C10: 4C 22 4A 53 52 20 43 48 52 A1 00 29 44 56 22 4A |L"JSR CHR..)DV"J|
00003C20: 53 52 20 46 52 4D 45 56 4C 00 48 44 60 22 4C 44 |SR FRMEVL.HD`"LD|
00003C30: 41 20 23 39 39 20 20 20 20 20 20 3B 20 41 4C 4C |A #99 ; ALL|
00003C40: 45 20 46 45 48 4C 45 52 00 69 44 6A 22 53 54 41 |E FEHLER.iDj"STA|
00003C50: 20 45 52 52 46 4C 41 47 20 20 3B 20 55 4E 54 45 | ERRFLAG ; UNTE|
00003C60: 52 44 52 55 45 43 4B 45 4E 00 71 44 74 22 52 54 |RDRUECKEN.qDt"RT|
00003C70: 53 00 95 44 7E 22 52 31 20 4C 44 41 20 23 30 20 |S..D~"R1 LDA #0 |
00003C80: 20 20 3B 4E 55 52 20 41 52 49 54 48 4D 45 54 48 | ;NUR ARITHMETH|
00003C90: 49 53 43 48 45 00 BB 44 88 22 53 54 41 20 45 52 |ISCHE..D."STA ER|
00003CA0: 52 46 4C 41 47 20 3B 46 45 48 4C 45 52 20 55 4E |RFLAG ;FEHLER UN|
00003CB0: 54 45 52 44 52 55 45 43 4B 45 4E 00 C3 44 92 22 |TERDRUECKEN..D."|
00003CC0: 52 54 53 00 D6 44 9C 22 5A 45 49 4C 45 20 2E 42 |RTS..D."ZEILE .B|
00003CD0: 59 54 20 24 30 30 00 E3 44 A6 22 2E 42 59 54 20 |YT $00..D.".BYT |
00003CE0: 24 30 30 00 E9 44 B0 22 3B 00 EF 44 BA 22 3B 00 |$00..D.";..D.";.|
00003CF0: 13 45 C4 22 45 52 52 4F 55 54 20 4C 44 41 20 23 |.E."ERROUT LDA #|
00003D00: B3 57 41 52 4D 20 3B 20 45 52 52 4A 55 4D 50 20 |.WARM ; ERRJUMP |
00003D10: 41 42 AB 00 33 45 CE 22 4C 44 59 20 23 B1 57 41 |AB..3E."LDY #.WA|
00003D20: 52 4D 20 20 20 20 20 20 20 3B 20 53 43 48 41 4C |RM ; SCHAL|
00003D30: 54 45 4E 00 40 45 D8 22 53 54 41 20 24 33 30 30 |TEN.@E."STA $300|
00003D40: 00 4D 45 E2 22 53 54 59 20 24 33 30 31 00 55 45 |.ME."STY $301.UE|
00003D50: EC 22 52 54 53 00 5B 45 F6 22 3B 00 7B 45 00 23 |."RTS.[E.";.{E.#|
00003D60: 45 52 54 45 53 54 20 43 4D 50 20 23 24 38 31 20 |ERTEST CMP #$81 |
00003D70: 20 3B 20 54 45 53 54 20 41 55 46 00 87 45 0A 23 | ; TEST AUF..E.#|
00003D80: 42 4E 45 20 4E 4F 80 00 A9 45 14 23 43 50 59 20 |BNE NO...E.#CPY |
00003D90: 23 24 41 33 20 20 20 20 20 20 20 20 20 3B 20 50 |#$A3 ; P|
00003DA0: 52 4F 47 52 41 4D 4D 80 45 00 B5 45 1E 23 42 4E |ROGRAMM.E..E.#BN|
00003DB0: 45 20 4E 4F 80 00 DC 45 28 23 4A 53 52 20 45 52 |E NO...E(#JSR ER|
00003DC0: 52 4F 55 54 20 3B 46 45 48 4C 45 52 4D 45 4C 44 |ROUT ;FEHLERMELD|
00003DD0: 55 4E 47 20 45 52 4D 4F 45 47 4C 2E 00 F4 45 32 |UNG ERMOEGL...E2|
00003DE0: 23 4A 4D 50 20 4F 4B 41 59 20 20 3B 87 59 AB 4D |#JMP OKAY ;.Y.M|
00003DF0: 4F 44 55 53 00 08 46 3C 23 4E 4F 80 20 4C 44 41 |ODUS..F<#NO. LDA|
00003E00: 20 45 52 52 46 4C 41 47 00 16 46 46 23 42 4E 45 | ERRFLAG..FF#BNE|
00003E10: 20 4E 4F 45 52 52 00 3A 46 50 23 53 54 58 20 24 | NOERR.:FP#STX $|
00003E20: 30 32 20 20 20 3B 20 46 45 48 4C 45 52 4E 55 4D |02 ; FEHLERNUM|
00003E30: 4D 45 52 20 4D 45 52 4B 45 4E 00 42 46 5A 23 54 |MER MERKEN.BFZ#T|
00003E40: 58 41 00 5F 46 64 23 42 4D 49 20 4F 4B 41 59 20 |XA._Fd#BMI OKAY |
00003E50: 20 20 3B 20 4B 45 49 4E 20 46 45 48 4C 45 52 00 | ; KEIN FEHLER.|
00003E60: 7E 46 6E 23 43 50 58 20 23 31 34 20 20 20 20 3B |~Fn#CPX #14 ;|
00003E70: 20 49 4C 4C 2E 20 51 55 41 4E 54 49 54 59 00 8C | ILL. QUANTITY..|
00003E80: 46 78 23 42 45 51 20 4E 4F 45 52 52 00 A6 46 82 |Fx#BEQ NOERR..F.|
00003E90: 23 43 50 58 20 23 31 35 20 20 20 20 3B 20 4F 56 |#CPX #15 ; OV|
00003EA0: 45 52 46 4C 4F 57 00 B4 46 8C 23 42 45 51 20 4E |ERFLOW..F.#BEQ N|
00003EB0: 4F 45 52 52 00 D2 46 96 23 43 50 58 20 23 31 36 |OERR..F.#CPX #16|
00003EC0: 20 20 20 20 3B 20 4F 55 54 20 4F 46 20 4D 45 4D | ; OUT OF MEM|
00003ED0: B0 59 00 E0 46 A0 23 42 45 51 20 4D 45 4D B0 59 |.Y..F.#BEQ MEM.Y|
00003EE0: 00 01 47 AA 23 43 50 58 20 23 32 30 20 20 20 20 |..G.#CPX #20 |
00003EF0: 3B 20 44 49 56 49 53 49 91 20 42 59 20 5A 45 52 |; DIVISI. BY ZER|
00003F00: 4F 00 0F 47 B4 23 42 45 51 20 4E 4F 45 52 52 00 |O..G.#BEQ NOERR.|
00003F10: 17 47 BE 23 54 41 58 00 3E 47 C8 23 4A 4D 50 20 |.G.#TAX.>G.#JMP |
00003F20: 28 48 49 4C 46 29 20 20 3B 20 5A 55 4D 20 45 43 |(HILF) ; ZUM EC|
00003F30: 48 54 45 4E 20 57 41 52 4D 53 54 41 52 54 00 5A |HTEN WARMSTART.Z|
00003F40: 47 D2 23 4F 4B 41 59 20 4A 4D 50 20 87 59 20 20 |G.#OKAY JMP .Y |
00003F50: 3B 20 87 59 AB 4D 4F 44 55 53 00 81 47 DC 23 4E |; .Y.MODUS..G.#N|
00003F60: 4F 45 52 52 20 53 54 58 20 24 30 32 20 3B 46 45 |OERR STX $02 ;FE|
00003F70: 48 4C 45 52 4E 55 4D 4D 45 52 20 4D 45 52 4B 45 |HLERNUMMER MERKE|
00003F80: 4E 00 8F 47 E6 23 4C 44 41 20 5A 45 49 4C 45 00 |N..G.#LDA ZEILE.|
00003F90: 9F 47 F0 23 4C 44 59 20 5A 45 49 4C 45 AA 31 00 |.G.#LDY ZEILE.1.|
00003FA0: AB 47 FA 23 53 54 41 20 24 31 34 00 B7 47 04 24 |.G.#STA $14..G.$|
00003FB0: 53 54 59 20 24 31 35 00 DA 47 0E 24 4A 53 52 20 |STY $15..G.$JSR |
00003FC0: 89 20 20 20 3B 50 52 4F 47 52 41 4D 4D 5A 41 45 |. ;PROGRAMMZAE|
00003FD0: 48 4C 45 52 AB 49 4E 43 52 2E 00 E7 47 18 24 4A |HLER.INCR...G.$J|
00003FE0: 4D 50 20 B5 50 52 54 00 ED 47 22 24 3B 00 02 48 |MP .PRT..G"$;..H|
00003FF0: 2C 24 45 52 52 46 4C 41 47 20 2E 42 59 54 20 24 |,$ERRFLAG .BYT $|
00004000: 30 30 00 08 48 36 24 3B 00 16 48 40 24 4D 45 4D |00..H6$;..H@$MEM|
00004010: B0 59 20 50 4C 41 00 1E 48 4A 24 54 41 59 00 26 |.Y PLA..HJ$TAY.&|
00004020: 48 54 24 50 4C 41 00 40 48 5E 24 4C 44 58 20 23 |HT$PLA.@H^$LDX #|
00004030: 24 46 41 20 3B 20 53 54 41 43 4B 50 4F B5 45 52 |$FA ; STACKPO.ER|
00004040: 00 5E 48 68 24 54 58 53 20 20 20 20 20 20 3B 20 |.^Hh$TXS ; |
00004050: 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 66 |INITIALISIEREN.f|
00004060: 48 72 24 50 48 41 00 6E 48 7C 24 54 59 41 00 76 |Hr$PHA.nH|$TYA.v|
00004070: 48 86 24 50 48 41 00 84 48 90 24 4A 4D 50 20 4E |H.$PHA..H.$JMP N|
00004080: 4F 45 52 52 00 8A 48 9A 24 3B 00 90 48 A4 24 3B |OERR..H.$;..H.$;|
00004090: 00 A5 48 AE 24 45 52 52 4E 55 4D 20 4A 53 52 20 |..H.$ERRNUM JSR |
000040A0: 43 48 4B 4F 4D 00 CC 48 B8 24 4A 53 52 20 56 41 |CHKOM..H.$JSR VA|
000040B0: 52 53 55 43 48 20 20 3B 20 42 41 53 49 43 56 41 |RSUCH ; BASICVA|
000040C0: 52 49 41 42 4C 45 20 42 45 53 54 2E 00 E6 48 C2 |RIABLE BEST...H.|
000040D0: 24 53 54 41 20 59 52 41 44 20 3A 20 53 54 59 20 |$STA YRAD : STY |
000040E0: 59 52 41 44 AA 31 00 09 49 CC 24 4C 44 59 20 24 |YRAD.1..I.$LDY $|
000040F0: 30 32 20 20 20 20 20 3B 20 46 45 48 4C 45 52 4E |02 ; FEHLERN|
00004100: 55 4D 4D 45 52 20 48 4F C3 00 27 49 D6 24 4A 53 |UMMER HO..'I.$JS|
00004110: 52 20 42 59 54 46 41 43 20 20 3B 20 55 4E 44 20 |R BYTFAC ; UND |
00004120: 55 4D 57 AF 45 4C 4E 00 41 49 E0 24 4C 44 41 20 |UMW.ELN.AI.$LDA |
00004130: 59 52 41 44 20 3A 20 4C 44 59 20 59 52 41 44 AA |YRAD : LDY YRAD.|
00004140: 31 00 58 49 EA 24 53 54 41 20 24 34 39 20 20 3A |1.XI.$STA $49 :|
00004150: 20 53 54 59 20 24 34 41 00 7E 49 F4 24 4A 53 52 | STY $4A.~I.$JSR|
00004160: 20 46 41 43 56 41 52 20 20 3B 20 4E 55 4D 4D 45 | FACVAR ; NUMME|
00004170: 52 20 49 4E 20 42 41 53 49 43 56 41 52 2E 00 89 |R IN BASICVAR...|
00004180: 49 FE 24 4C 44 41 20 23 30 00 95 49 08 25 53 54 |I.$LDA #0..I.%ST|
00004190: 41 20 24 30 32 00 9D 49 12 25 52 54 53 00 00 00 |A $02..I.%RTS...|
..(.... ********************************
.O.... * PLOTTER-BASIC *.
V.... * (BEFEHLSERWEITERUNG) *..
.(.. *COPYRIGHT BY:STEPHAN SCHAEFER *.D.
2.. * BURBACHERSTR.162 *...<
.. *JAN.1985 5300 BONN 1 *...F.
. * TEL.:0228/235567 *.9.P..
********************************.F.Z..
9.4096.R.D..OPT OO.T.N.CHR. . $0073 ;
ZEICHEN HOC...X.CHRKT . $0079.....ZEI
GER . $0308 ; AUF ERKENNROUT..P....PR
T . $A7AE ; .ERPRETER.....BSOUT .
$FFD2 ; ZEICHEN AUSGEBEN.!. .GA .
6 ; GERAETE.ADRESSE.E...LF .
99 ; .. FICUMMER.K...PUFFER . $C8
D7 ; NACH PROGR..E.....KX . PUFFE
R...H.KY . KX.5...R.XRAD . KY.
5.....YRAD . XRAD.5.R.... . YRAD
.5.....ARGU . ..5.....XR . KX.
....YR . KY.....ZR . XRAD.1.
..XV . YRAD.B.".YV . ..V.,.K
OEF . ARGU.L.6.WINK . ARGU.5...@
.PARK . WINK.5...J.PO.ER . $FB ;
INHALT.PUFFERADR..P.T.BEFZEIG . $FD
;AUF BEFEHLSTAB....^.. . $FFC0...H.
. $FFC3...R.SETFLS . $FFBA...|.SET
NAM . $FFBD.2...CKOUT . $FFC9.E....
CH . $FFCC.L...CHKOM . $AEFD ; TE
ST AUF KOMMA.....FRMEVL . $AD9E ; AUS
DRUCK HOC.....FRMNUM . $AD8A......ADR
. $B7F7.N.B.MEMFAC . $BBA2...L.FACME
M . $BBD4...V.VERGLCH . $BC5B ; FAC
MIT A.Y.&...CH. . $BFB4 ; FAC..FAC.;
...MEMMULT . $BA28.P...MEMPLUS . $B867
.C.... . $E264.V.... . $E26B..
...FACF . $BDDD.....FACVAR . $A9D6
; FAC NACH VAR..D.&.BYTFAC . $B3A2.U.0
.. . $AAA4...:.. . $A8A3...D..Y
. $A474.!.N.VARSUCH . $B08B ; SUCHT
BASICVAR..I.X.STROUT . $AB1E ; STRING
AUSGEBEN.O.B.;.U.L.;.B.V... $C000.....N
OP ; WIRD NACH START DURCH RTS ERSETZT..
...JSR .TEM ; TEXT AUSGEBEN.VEK.R
EN A.ERN.H...RTS.N...;.T...;.....AUS LDA
HILF.....STA $300 ; WARMSTART.VEK.R.
..F.LDA HILF.1.#.P.STA $301.2.Z.LDA JUMP
.1.Q...STA ZEIGER ; ALTE VEK.REN.Q...LD
A JUMP.2 ; ZURUECKSETZEN.....STA ZEIGER
.1.....LDA #$EA ; NOP.CODE.D...STA $C
000 ; RESTART ERMOEGLICHEN.L...RTS.R.
.;.X.*.;...4.NEU JSR CHR....>.CMP #"."..
.H.BEQ FOUND...R.SEC.,.\.LDA $7A ;TE
XTPO.ER CHR..I.F.SBC #1 ;ERNIEDRIGE
N.N.P.STA $7A ;UM GLEICHES ZEICHEN..
.Z.LDA $7B ;2 MAL ZU LESEN.....SBC #
0.....STA $7B.R...JUMP JMP $0000 ; BASIC
.BEFEHL AUSFUEHREN.....FOUND LDA #.PUFFE
R:STA PO.ER.....LDA #.PUFFER:STA PO.ER.1
.....LDA #.BEFEHLE:STA BEFZEIG.N...LDA #
.BEFEHLE:STA BEFZEIG.1.T.J.;.A.T.JSR CHR
..{...JSR HOC ;BEFEHL HOC. ...JSR ERKE
NN ;ERKENNEN.AUSFUEHREN.....JMP .PRT...
..;.....;.H...HOC LDY #0.....S.RE STA (P
O.ER),Y...$.INY.....JSR CHR....8.BEQ NUL
L...B.CMP #","...L.BEQ NULL.(.V.CMP #":"
.5.`.BEQ NULL.B.J.JMP S.RE.R.T.NULL LDA
#0.D.~.STA (PO.ER),Y.L...RTS.R...;.....E
RKENN LDX #0.....LDY #0.....SCHLE.E LDA
(PO.ER),Y.....BEQ .E.H.D.CMP (BEFZEIG),Y
.R.N.BNE ..Z.X.INY.....JMP SCHLE.E......
E JMP EXEC...... INX ;NAECHSTER BEFEHL
.7...CPX #35 ;BEFEHLSTAB. .E.F...BEQ
SYNTAX.N...CLC.Q...LDA #7 ; LAENGE JEDE
S BEFEHLS...(.ADC BEFZEIG...2.STA BEFZEI
G ; ZEIGER AUF.G.<.LDA #0 ;
BEFEHLSTABELLE...F.ADC BEFZEIG.1 ; ER
HOEHEN...P.STA BEFZEIG.1...Z.LDY #0...D.
JMP SCHLE.E.6.N.SYNTAX JMP $AF08 ; SYNTA
X ERR..<.X.;.B...;.H...;.M...EXEC TXA
; BEFEHLSNUMMER... .CLC
; .ZEIGER.....ASL ; MAL
2.B...ADC #.SP.GTAB ; AUF.....STA PO.ER
; SP.GTABELLE...H.LDA #.SP.GTAB...
R.ADC #0.....STA PO.ER.1.....LDY #0.@...
LDA (PO.ER),Y ; LSB BEF.ADRESSE.P...STA
BEFZEIG.X...INY.}...LDA (PO.ER),Y ; MS
B BEF.ADRESSE.....STA BEFZEIG.1...".JMP
(BEFZEIG) ; AUSFUEH.G...,.;...6.;.B.@
.;...J.BEFEHLE .F "INIT "...T..F "MOVE
"...^..F "DRAW "...H..F "RMOVE "..
.R..F "RDRAW ".0.|..F "HOME ".A....F
"RAHMEN ".R....F "LINIE ".C....F "KREIS
".T....F "RADIUS "......F "TRANSM "...
...F "TRANSD "...B..F "TRANSL "...L..F "
TURN ".I.V..F "BLAU ".Z....F "ROT
"......F "GRUEN "......F "SCHWARZ"....
..F "FARBE "......F "KLEIN "./....F "M
ITTEL ".@....F "GROSS ".Q.&..F "SUPER
".B.0..F "SIZE ".S.:..F "DREH "...D.
.F "STRICH "...N..F "GG "...X..F "GK
"...B..F "PROG ".H.L..F "TEXT "
.Y.V..F "RESET "......F "ERRJUMP"......
F "ERROUT "......F "ERRNUM "......F "AUS
".#...;.9...SP.GTAB .W.D INIT.G....W
.D MOVE.U.F..W.D DRAW.D.P..W.D RMOVE.S.Z
..W.D RDRAW......W.D HOME......W.D RAHME
N. ....W.D LINIE......W.D KREIS......W.D
RADIUS.O....W.D TRANSM... ..W.D TRANSD.
..*..W.D TRANSL...4..W.D TURN...>..W.D B
LAU...H..W.D ROT.'.R..W.D GRUEN.8.\..W.D
SCHWARZ.G.F..W.D FARBE.V.P..W.D KLEIN.F
.Z..W.D MITTEL.U....W.D GROSS......W.D S
UPER......W.D SIZE. ....W.D DREH......W.
D STRICH......W.D GG.H....W.D GK.V.J..W.
D PROG...T..W.D TEXT......W.D RESET.....
.W.D ERRJUMP......W.D ERROUT.$....W.D ER
RNUM.1....W.D AUS.7...;.E...; BEFEHLE.K.
$.;.Q...COL. LDY #2 ; SEKUNDAER.ADR
....8.BYTS. JSR AUF ; KANAL OEF.EN...B
.LDA $FF ; FARBE HOC...L.JSR BSOUT.
..V.JSR ZU ; KANAL SCHLIESSEN...`.
RTS...J.;...T.; KANAL OEF.EN...~.;./...A
UF LDX #GA ; PLOTTER.ADRESSE.J...LDA
#LF ; FILE#.Y...JSR SETFLS....LD
A #0 ; KEIN NAME NOETIG.....JSR
SETNAM.....JSR ....D.LDX #LF.J.N.JSR CKO
UT ; AUSGABE NACH #LF.R.X.RTS.X...;
.....; KANAL SCHLIESSEN.....;.....ZU JSR
.CH.....LDA #LF.....JSR ."...RTS.(.(.;
...2.;.@.<.BLAU LDA #"1".L.F.STA $FF.Y.P
.JSR COL..A.Z.RTS.G.D.;.X.N.ROT LDA #"3"
...X.STA $FF.....JSR COL......RTS.....;.
.. .GRUEN LDA #"2".....STA $FF.K...JSR C
OL..S...RTS.Y.H.;...R.SCHWARZ LDA #"0"..
...STA $FF.....JSR COL......RTS.....;...
..;./...FARBE JSR CHKOM.:...LDY #2.F.".J
SR AUF.U.,.JSR FRMEVL.B.6.JSR S.ER.M.@.J
SR ZU.U.J.RTS.{.T.;...^.;...H.GROESSE LD
Y #3...R.JSR BYTS....|.RTS.....;.C...KLE
IN LDA #"0".O...STA $FF.....JSR GROESSE.
....RTS.....;...B.MITTEL LDA #"1"...L.ST
A $FF...V.JSR GROESSE.%...RTS.+...;.>...
GROSS LDA #"2".J...STA $FF.Z...JSR GROES
SE.B...RTS.H...;.{.&.SUPER LDA #"3"...0.
STA $FF...:.JSR GROESSE...D.RTS...N.;...
X.;...B.SIZE JSR CHKOM.I.L.LDY #3.U.V.JS
R AUF.....JSR FRMEVL.....JSR S.ER.....JS
R ZU.....RTS.....;.....ZSATZ LDY #6.)...
JSR BYTS..1.F.RTS.7.P.;.G.Z.GG LDA #"0".
S...STA $FF.A...JSR ZSATZ.I...RTS.O...;.
...GK LDA #"1".....STA $FF... .JSR ZSAT
Z...*.RTS...4.;...>.;...H.RESET LDY #7.I
.R.LDA #0.U.\.STA $FF...F.JSR BYTS....P.
RTS...Z.;.....;.. ..DREH JSR CHKOM.. ..J
SR FRMEVL.$ ..LDY #4.0 ..JSR AUF.= ..JSR
S.ER.H ..JSR ZU.P J.RTS.V T.;.\ ..;.. .
.TEXT LDA #"," ; AUF KOMMA TESTEN.. ..
LDY #0.. ..CMP ($7A),Y ; LAUF.ES ZEI
CHEN.A ..BNE LEER.O ..JSR $0073.Z ..LDY
#0.. $.JSR AUF.. ..JSR ... 8.JSR ZU..!B.
RTS..!L.LEER LDY #0..!V.JSR AUF.B!`.LDA
#13 ; NUR CR AUSGEBEN.P!J.JSR BSOUT
.[!T.JSR ZU.C!~.RTS.I!..;.O!..;..!..STRI
CH JSR CHKOM..!..LDY #5..!..JSR AUF..!..
JSR FRMEVL..!D.JSR S.ER.B!N.JSR ZU.J!X.R
TS.P!..;.V!..;..!..HOME LDY #1..!..LDA #
"H"..!..STA $FF.."..JSR BYTS..."..RTS.."
(.;.!"2.;.1"<.INIT LDY #1.>"F.LDA #"I".J
"P.STA $FF.X"Z.JSR BYTS..`"D.RTS.F"N.;.L
"X.;."..MOVE JSR CHKOM.."..LDY #1.."..J
SR AUF.." .LDA #"M".."..DBYTE JSR BSOUT.
D"..LDA #" ".R"..JSR BSOUT.."H.JSR FRMEV
L ; X.KO.D..."R.JSR FACF..#..JSR S
TROUT..#..LDA #" ".(#..JSR BSOUT.6#..JSR
CHKOM.U#..JSR FRMEVL ; Y.KO.D..B#
..JSR FACF.Q#..JSR STROUT.|#".JSR ZU..#,
.RTS..#6.;..#@.;..#J.DRAW JSR CHKOM..#T.
LDY #1..#^.JSR AUF.G#H.LDA #"D".U#R.JMP
DBYTE..#|.;..#..;..#..RMOVE JSR CHKOM..$
..LDY #1..$..JSR AUF..$..LDA #"R".'$..JM
P DBYTE.-$B.;.3$L.;.G$V.RDRAW JSR CHKOM.
R$..LDY #1.^$..JSR AUF.K$..LDA #"J".Y$..
JMP DBYTE.$..;..$..;..$..LINIE JSR MOVE
..$&.JSR DRAW..$0.RTS..$:.;..$D.;.K$N..T
EM LDX #255.V$X.L1 INX..$B.LDA MELDUNG,X
..$L.JSR BSOUT..%V.CPX #81..%..BNE L1./%
..LDA $300 : STA HILF ; ALTE.T%..LDA
$301 : STA HILF.1 ; VEK.REN.X%..CLC
; RETTEN..%..LDA #3..%..
LDA $308 : STA JUMP.1;SP.G NACH.M%..LDA
#0 ;EVENTUELLER..%F.LDA $3
09 : STA JUMP.2;BEF..ERWEIT...&P.LDA #.W
ARM : STA $300 ;NEUE.=&Z.LDA #.WARM :
STA $301 ;VEK.REN.B&..LDA #.NEU : S
TA ZEIGER ;SETZEN..&..LDA #.NEU : STA
ZEIGER.1..&..LDA #$60 ; RTS BEFEHL..&..
STA $C000 ; VERHINDERT RESTART.F&..RTS.L
&..;..& .MELDUNG .F "."..'*..F ".. ***
* COMMODORE 1520 BASIC 1.3 ****"..'4..BY
T $0D.*'>..BYT $0D.['H..F " (P) JAN.19
85 =:= (C) BY S.SCHAEFER ".H'R..BYT $0D
..'\.HILF .BYT $00 ; ZWISCHENSPEICHER..
'F..BYT $00 ; FUER WARMSTART.VEK.R..'P.
;..'Z.;..'..S.ER JSR FACF ; FAC AUF..'.
.JSR STROUT ; DRUCKER...(..LDA #
" " ; KANAL.>(..JSR BSOUT
; . SPACE.F(..RTS.L(..;.R(..;.F(J.K
REIS JSR PARAM.T(T.JSR KRMIT..(..JSR MAC
..(..RTS..(..;..(..PARAM JSR CHKOM..(..J
SR FRMEVL.I(..LDX #.KX : LDY #.KX.X(..JS
R FACMEM..($.JSR CHKOM..(..JSR FRMEVL..)
8.LDX #.KY : LDY #.KY..)B.JSR FACMEM.*)L
.JSR CHKOM.9)V.JSR FRMEVL.U)`.LDX #.XRAD
: LDY #.XRAD.D)J.JSR FACMEM.R)T.JSR CHK
OM..)~.JSR FRMEVL..)..LDX #.YRAD : LDY #
.YRAD..)..JSR FACMEM..)..RTS..)..;.X)..K
RMIT LDA #.KX : LDY #.KX..)..JSR MEMFAC.
.)D.LDY #1..)N.JSR AUF./*X.LDA #"M" : JS
R BSOUT ; AUF KREISMITTELPUNKT.<*..JSR
S.ER.T*..LDA #.KY : LDY #.KY.C*..JSR MEM
FAC..*..JSR S.ER ; .ITI.IEREN
..*..JSR ZU. *..JSR INIT..*..RTS..*(.;.N
*2.MAC LDA #.XRAD : LDY #.XRAD..*<.JSR M
EMFAC..*F.LDY #1..*P.JSR AUF..+Z.LDA #"R
"..+D.JSR BSOUT..+N.JSR S.ER.)+X.LDA #"0
".7+..JSR BSOUT.B+..JSR ZU.H+..;.S+ .LDA
#0.K+..STA ARGU:STA ARGU.1..+..STA ARGU
.2:STA ARGU.3:STA ARGU.4..+..JMP PL
; ARGUMENT ERHOEHEN.M+H.LOOP LDY #1 : JS
R AUF.W+R.JSR ...+..LDA #.XRAD : LDY #.X
RAD..,..JSR MEMMULT..,..LDA #"J"..,..JSR
BSOUT.+,..JSR S.ER.1,..;.M,..LDA #.ARGU
: LDY #.ARGU.\,".JSR MEMFAC.F,,.JSR ...
,6.LDA #.YRAD : LDY #.YRAD..,@.JSR MEMMU
LT..,J.JSR S.ER..,T.JSR ZU..,^.;..,H.PL
LDA #$6C..,R.LDY #$E3 ; FLP 0.19....,
|.JSR MEMFAC..-..LDA #.ARGU : LDY #.ARGU
..-..JSR MEMPLUS.4-..LDX #.ARGU : LDY #.
ARGU.C-..JSR FACMEM.C-..LDA #.GRENZE : L
DY #.GRENZE.K-..CLC.{-B.JSR VERGLCH..-L.
BCS LOOP..-V.JSR ZU..-..RTS..-..;..-..;.
N-..PROG LDA #"," ; AUF KOMMA TESTEN.Y
-..LDY #0.....CMP ($7A),Y ; AKTUELLE
S ZEICHEN.....BNE ALLES...&.JSR $0073...
0.ALLES LDY #0.:.:.JSR AUF._.D.DEC $7A
; TEXTPO.ER ERNIEDRIGEN.U.N.LDA #$9B ; .
.CODE...X.LDX #99 : STX FLAG ;..FLAG SE
TZEN...B.JSR $A7F7...L.JSR ZU...V.RTS.C.
..;.I...;.....WARM LDA FLAG ; WARMSTART
ROUTINE../..CMP #99 ; UM NACH .
DEN.8/..BEQ CH ; DRUCKERKANAL ZU
.\/..JMP (HILF) ; SCHLIESSEN UND../.
.CH LDA #0 ; DIE .Y.MELDUNG../F.STA
FLAG ; ZU UNTERDRUECKEN../P.LDA #
13 ;CR.E/Z.JSR BSOUT.P/..JSR ZU../..JMP
$A474 ; .Y.MODUS../..;../..;..0..R
AHMEN JSR PARAM..0..;. 0 .LDY #1.,0*.JSR
AUF.904.LDA #"M".G0>.JSR BSOUT.T0H.LDA
#" ".B0R.JSR BSOUT..0\.LDA #.KX : LDY #.
KX ; BEWEGUNG..0F.JSR MEMFAC
; NACH.E0P.JSR S.ER ; X1.Y1..0
Z.LDA #.KY : LDY #.KY..0..JSR MEMFAC..0.
.JSR S.ER..1..JSR ZU..1..;..1..JSR DRAUF
.41..LDA #.XRAD : LDY #.XRAD.C1..JSR MEM
FAC.P1J.JSR S.ER.J1T.LDA #.KY : LDY #.
KY.Y1..JSR MEMFAC..1..JSR S.ER..1..JSR Z
U..1..JSR DRAUF..1..LDA #.XRAD : LDY #.X
RAD.J1..JSR MEMFAC.W1..JSR S.ER..1$.LDA
#.YRAD : LDY #.YRAD..2..JSR MEMFAC..28.J
SR S.ER..2B.JSR ZU.(2L.JSR DRAUF.B2V.LDA
#.KX : LDY #.KX.Q2`.JSR MEMFAC.^2J.JS
R S.ER.Z2T.LDA #.YRAD : LDY #.YRAD..2~.J
SR MEMFAC..2..JSR S.ER..2..JSR ZU..2..JS
R DRAUF.I2..LDA #.KX : LDY #.KX.X2..JS
R MEMFAC..2..JSR S.ER..2D.LDA #.KY : L
DY #.KY..3N.JSR MEMFAC..3X.JSR S.ER.&3..
JSR ZU..3..RTS.43..;.:3..;.^3..DRAUF LDY
#1 ;. . DRAW.BEFEHL.J3..JSR AUF.W3..L
DA #"D"..3(.JSR BSOUT..32.LDA #" ". 3<.J
SR BSOUT..3F.RTS..3P.;..3Z.;.O3D.GRENZE
.BYT $83 ; 2....3N..BYT $55..3X..BYT $D
C..3...BYT $A7..4...BYT $6E.84..FLAG .BY
T $00 ; ..FLAG FUER WARMSTART.ROUTINE
.T4 .FAK.R .BYT $7B ; ..180.A4...BYT $0
E.N4...BYT $FA.{4...BYT $35..4H..BYT $12
..4R.;..4..RADIUS JSR PARAM..4..JSR CHKO
M..4..JSR FRMEVL..4..LDA #.FAK.R : LDY #
.FAK.R..4..JSR MEMMULT..5..LDX #.ARGU :
LDY #.ARGU..5..JSR FACMEM..5".;.-5,.JSR
KRMIT.356.;.>5@.LDY #1.J5J.JSR AUF.W5T.L
DA #"J".E5^.JSR BSOUT.R5H.LDA #" "..5R.J
SR BSOUT..5|.LDA #.ARGU : LDY #.ARGU..5.
.JSR MEMFAC..5..JSR ..Q5..LDA #.XRAD : L
DY #.XRAD..5..JSR MEMMULT..5..JSR S.ER..
6..LDA #.ARGU : LDY #.ARGU..6B.JSR MEMFA
C.#6L.JSR ..?6V.LDA #.YRAD : LDY #.YRAD.
O6..JSR MEMMULT.\6..JSR S.ER.G6..JSR ZU.
O6..RTS.U6..;.{6..;..6..TRANSM JSR ALLPA
RAM ; 7 PARAMETER..6&.TRM LDY #1..60.JSR
AUF.I6:.LDA #"M"..6D.REST JSR BSOUT..6N
.LDA #" "..6X.JSR BSOUT..7B.JSR UMRECHNG
..7L.RTS..7V.;..7..;.B7..TRANSD JSR ALLP
ARAM ; 7 PARAMETER.Q7..TRD LDY #1.]7..JS
R AUF.J7..LDA #"D".W7..JMP REST.}7..;..7
F.;..7P.TRANSL JSR ALLPARAM..7Z.JSR TRM.
.7..JSR CHKOM.D7..JSR FRMEVL..7..LDX #.X
R : LDY #.XR..7..JSR FACMEM..7..JSR CHKO
M..8..JSR FRMEVL. 8 .LDX #.YR : LDY #.YR
./8*.JSR FACMEM.=84.JSR CHKOM.L8>.JSR FR
MEVL.D8H.LDX #.ZR : LDY #.ZR.S8R.JSR FAC
MEM.8\.JMP TRD..8F.;..8P.;..8Z.ALLPARAM
JSR CHKOM..8..JSR FRMEVL.I8..LDX #.XR :
LDY #.XR.X8..JSR FACMEM..8..JSR CHKOM..
8..JSR FRMEVL..9..LDX #.YR : LDY #.YR..9
..JSR FACMEM.*9J.JSR CHKOM.99T.JSR FRMEV
L.Q9..LDX #.ZR : LDY #.ZR.`9..JSR FACMEM
.N9..JSR CHKOM.}9..JSR FRMEVL..9..LDX #.
XV : LDY #.XV..9..JSR FACMEM..9..JSR CHK
OM.A9$.JSR FRMEVL.Y9..LDX #.YV : LDY #.Y
V..98.JSR FACMEM..9B.JSR CHKOM..:L.JSR F
RMEVL.!:V.LDX #.KOEF : LDY #.KOEF.0:`.JS
R FACMEM.>:J.JSR CHKOM.M:T.JSR FRMEVL.I:
~.LDX #.WINK : LDY #.WINK.X:..JSR FACMEM
..:..RTS..:..;..:..;..:..UMRECHNG LDA #.
WINK : LDY #.WINK..:..JSR MEMFAC..:D.LDA
#.FAK.R : LDY #.FAK.R..;N.JSR MEMMULT ;
FAC NACH RADIANT..;X.JSR ..#;..LDA #.YR
: LDY #.YR.3;..JSR MEMMULT.K;..LDA #.XR
: LDY #.XR.[;..JSR MEMPLUS.W;..LDA #.KO
EF : LDY #.KOEF..;..JSR MEMMULT..;..LDA
#.XV : LDY #.XV..;(.JSR MEMPLUS..;2.JSR
S.ER.B;<.;..;F.LDA #.WINK : LDY #.WINK..
;P.JSR MEMFAC..<Z.LDA #.FAK.R : LDY #.FA
K.R..<D.JSR MEMMULT ; FAC NACH RADIANT.8
<N.JSR ..P<X.LDA #.YR : LDY #.YR.`<..JSR
MEMMULT.X<..LDA #.ZR : LDY #.ZR..<..JSR
MEMPLUS..< .LDA #.KOEF : LDY #.KOEF..<.
.JSR MEMMULT.L<..LDA #.YV : LDY #.YV..<.
.JSR MEMPLUS..<H.JSR S.ER..<R.JSR ZU..<.
.RTS..=..;..=..;..=..PAR3 JSR CHKOM.+=..
JSR VARSUCH.`=..STA YRAD : STY YRAD.1 ;Z
EIGER AUF ERSTE VARIABLE.N=..JSR CHKOM.~
=".JSR VARSUCH..=,.STA YRAD.2 : STY YRAD
.3 ;ZEIGER AUF ZWEITE VARIABLE.D=6.JSR C
HKOM.S=@.JSR FRMEVL..=J.LDX #.WINK : LDY
#.WINK..=T.JSR FACMEM..>^.RTS..>H.;.0>R
.RADIANT LDA #.WINK : LDY #.WINK.?>|.JSR
MEMFAC.]>..LDA #.FAK.R : LDY #.FAK.R.M>
..JSR MEMMULT.W>..JSR ...>..LDX #.. :
LDY #....>..JSR FACMEM ; ...(W).C>..LDA
#.WINK : LDY #.WINK.R>B.JSR MEMFAC..>L.L
DA #.FAK.R : LDY #.FAK.R..?V.JSR MEMMULT
..?..JSR ..(?..LDX #.ARGU : LDY #.ARGU
.C?..JSR FACMEM ; ARGU..(W).K?..RTS.Q?.
;.W?. ;.I?. TURN JSR PAR3.Y?& JSR RADIAN
T..?0 LDA YRAD : LDY YRAD.1..?: JSR MEMF
AC..?D LDA #.. : LDY #.. ;.(W).N?N JSR M
EMMULT..?X LDX #.ZR : LDY #.ZR..@B JSR F
ACMEM ;MERKEN.(@L LDA YRA
D.2 : LDY YRAD.3.7@V JSR MEMFAC.Y@. LDA
#.ARGU : LDY #.ARGU ;.(W).I@. JSR MEMMUL
T..@. LDA #.ZR : LDY #.ZR..@. JSR MEMPLU
S..@. LDX #.PARK : LDY #.PARK.S@. JSR FA
CMEM ;MERKEN.Y@. ;..@F LD
A YRAD : LDY YRAD.1..AP JSR MEMFAC. AZ J
SR CH. ; FAC..FAC.BA. LDA #.ARGU
: LDY #.ARGU ;.(W).RA. JSR MEMMULT.JA. L
DX #.ZR : LDY #.ZR..A.!JSR FACMEM
;MERKEN..A.!LDA YRAD.2 : LDY YR
AD.3..A.!JSR MEMFAC.WA !LDA #.. : LDY #.
. ;.(W)..A*!JSR MEMMULT..A4!LDA #.ZR : L
DY #.ZR..B>!JSR MEMPLUS.+BH!LDA YRAD.2 :
LDY YRAD.3.QBR!STA $49 : STY $4A ;ZEIG
ER SETZEN.`B\!JSR FACVAR.|BF!LDA #.PARK
: LDY #.PARK..BP!JSR MEMFAC..BZ!LDA YRAD
: LDY YRAD.1.LB.!STA $49 : STY $4A ;Z
EIGER SETZEN..B.!JSR FACVAR..B.!RTS..B.!
;..B.!;..C.!ERRJUMP JSR CHKOM..C.!JSR FR
MNUM.7CJ!JSR .ADR ; ZEICNR. NACH $14.15.
CCT!LDA $14.OC.!LDY $15.]C.!STA ZEILE.MC
.!STY ZEILE.1..C.!LDA #.ERTEST ; FEHLERB
EH.LUNG..C."STA $300..C."LDA #.ERTEST ;
EINSCHALTEN.HC."STA $301.SC$"LDY #0..C."
LDA #","..D8"CMP ($7A),Y ; TEST AUF KOM
MA..DB"BNE R1..DL"JSR CHR..)DV"JSR FRMEV
L.HD`"LDA #99 ; ALLE FEHLER.IDJ"STA
ERRFLAG ; UNTERDRUECKEN.QDT"RTS..D~"R1
LDA #0 ;NUR ARITHMETHISCHE..D."STA ER
RFLAG ;FEHLER UNTERDRUECKEN.CD."RTS.VD."
ZEILE .BYT $00..D.".BYT $00..D.";..D.";.
.ED"ERROUT LDA #.WARM ; ERRJUMP AB..3EN"
LDY #.WARM ; SCHALTEN.@EX"STA $300
.ME."STY $301.UE."RTS.[E.";.{E.#ERTEST C
MP #$81 ; TEST AUF..E.#BNE NO...E.#CPY
#$A3 ; PROGRAMM.E..E.#BNE NO...E
(#JSR ERROUT ;FEHLERMELDUNG ERMOEGL...E2
#JMP OKAY ;.Y.MODUS..F<#NO. LDA ERRFLAG
..FF#BNE NOERR.:FP#STX $02 ; FEHLERNUM
MER MERKEN.BFZ#TXA._FD#BMI OKAY ; KEIN
FEHLER.~FN#CPX #14 ; ILL. QUANTITY..
FX#BEQ NOERR..F.#CPX #15 ; OVERFLOW..
F.#BEQ NOERR.RF.#CPX #16 ; OUT OF MEM
.Y..F #BEQ MEM.Y..G.#CPX #20 ; DIVISI
. BY ZERO..G.#BEQ NOERR..G.#TAX.>GH#JMP
(HILF) ; ZUM ECHTEN WARMSTART.ZGR#OKAY
JMP .Y ; .Y.MODUS..G.#NOERR STX $02 ;FE
HLERNUMMER MERKEN..G.#LDA ZEILE..G.#LDY
ZEILE.1..G.#STA $14..G.$STY $15.ZG.$JSR
. ;PROGRAMMZAEHLER.INCR...G.$JMP .PRT.
.G"$;..H,$ERRFLAG .BYT $00..H6$;..H@$MEM
.Y PLA..HJ$TAY.&HT$PLA.@H^$LDX #$FA ; ST
ACKPO.ER.^HH$TXS ; INITIALISIEREN.F
HR$PHA.NH|$TYA.VH.$PHA..H.$JMP NOERR..H.
$;..H.$;..H.$ERRNUM JSR CHKOM.LH.$JSR VA
RSUCH ; BASICVARIABLE BEST...HB$STA YRA
D : STY YRAD.1..IL$LDY $02 ; FEHLERN
UMMER HOC.'IV$JSR BYTFAC ; UND UMW.ELN.
AI.$LDA YRAD : LDY YRAD.1.XI.$STA $49 :
STY $4A.~I.$JSR FACVAR ; NUMMER IN BAS
ICVAR...I.$LDA #0..I.%STA $02..I.%RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL