ASS.SRC
FILE INFORMATION
FILENAME(S): ASS.SRC
FILE TYPE(S): PRG
FILE SIZE: 16.9K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 4 disk(s)
FILE HASH
bf08af377a83645baf3e4e92e245b315663490336fc18d91a1f1274591fdeaa9
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | ASS.SRC | PRG | Treasure Chest - Klaus Der Suhler | 13 | 10 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | ASS.SRC | PRG | Treasure Chest - Klaus Der Suhler | 25 | 4 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | ASS.SRC | PRG | Treasure Chest - Klaus Der Suhler | 13 | 10 | DOWNLOAD FILE |
| ORION CEBIT | ASS.SRC | PRG | Treasure Chest - OzzyC64 | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 87 43 3B 3B 3B 2D 2D 2D 20 D1 55 45 4C 4C 44 41 |.C;;;--- .UELLDA| 00000010: 54 45 49 20 41 53 53 2E 53 52 43 00 20 00 2E 57 |TEI ASS.SRC. ..W| 00000020: 41 3B C6 45 48 4C 45 52 20 41 42 46 41 4E 47 45 |A;.EHLER ABFANGE| 00000030: 4E 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |N. .;***********| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 2A |************.;**| 00000060: 2A 20 20 20 20 20 20 20 20 C5 44 49 54 4F 52 20 |* .DITOR | 00000070: 2D 20 C1 53 53 45 4D 42 4C 45 52 20 20 20 20 20 |- .SSEMBLER | 00000080: 20 20 2A 2A 2A 00 3B 2A 2A 2A 20 20 20 46 55 45 | ***.;*** FUE| 00000090: 52 20 C3 36 34 20 2B 20 C6 4C 4F 50 50 59 20 2B |R .64 + .LOPPY +| 000000A0: 20 C4 52 55 43 4B 45 52 20 20 20 2A 2A 2A 00 3B | .RUCKER ***.;| 000000B0: 2A 2A 2A 20 28 43 29 20 CD 41 4E 46 52 45 44 20 |*** (C) .ANFRED | 000000C0: C6 52 49 45 53 45 20 20 20 D6 45 52 53 49 4F 4E |.RIESE .ERSION| 000000D0: 3A C2 20 20 2A 2A 2A 00 3B 2A 2A 2A 2A 2A 2A 2A |:. ***.;*******| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 00 20 00 2E 42 45 31 3B D4 4F 4E 20 41 55 53 47 |. ..BE1;.ON AUSG| 00000110: 45 42 45 4E 00 20 00 CD CF C4 D5 CC 3A 2E 49 4E |EBEN. ......:.IN| 00000120: 22 93 11 CD 4F 44 55 4C 3D 30 20 D2 41 4D 3D 31 |"...ODUL=0 .AM=1| 00000130: 20 31 9D 22 00 20 00 2E 4F 43 3B 4B 45 49 4E 45 | 1.". ..OC;KEINE| 00000140: 20 C1 55 53 47 41 42 45 20 49 4E 20 44 45 4E 20 | .USGABE IN DEN | 00000150: D3 50 45 49 43 48 45 52 00 20 00 2E 3F 45 CD CF |.PEICHER. ..?E..| 00000160: C4 D5 CC 2D 31 3B D2 41 4D 56 45 52 53 49 4F 4E |...-1;.AMVERSION| 00000170: 00 2E 42 41 24 38 30 31 3B D3 54 41 52 54 41 44 |..BA$801;.TARTAD| 00000180: 52 45 53 53 45 00 2E 45 42 00 20 00 2E 3F 45 CD |RESSE..EB. ..?E.| 00000190: CF C4 D5 CC 3B CD 4F 44 55 4C 56 45 52 53 49 4F |....;.ODULVERSIO| 000001A0: 4E 00 2E 42 41 24 38 30 30 30 3B D3 54 41 52 54 |N..BA$8000;.TART| 000001B0: 41 44 52 45 53 53 45 00 2E 45 42 00 20 00 C4 C9 |ADRESSE..EB. ...| 000001C0: D3 CB 3A 2E 49 4E 22 C1 55 46 20 C4 49 53 4B 20 |..:.IN".UF .ISK | 000001D0: 41 55 53 47 45 42 45 4E 3F 20 28 4A 3D 31 29 20 |AUSGEBEN? (J=1) | 000001E0: 30 9D 22 00 2E 3F 4E C4 C9 D3 CB 00 2E 4F 55 22 |0."..?N......OU"| 000001F0: 40 30 3A 41 53 53 2E 45 58 45 22 3B C1 55 53 47 |@0:ASS.EXE";.USG| 00000200: 41 42 45 20 41 55 46 20 C4 49 53 4B 46 49 4C 45 |ABE AUF .ISKFILE| 00000210: 20 41 53 53 2E 45 58 45 00 2E 45 42 00 20 00 2E | ASS.EXE..EB. ..| 00000220: 3F 45 CD CF C4 D5 CC 2D 31 3B D2 41 4D 20 D3 54 |?E.....-1;.AM .T| 00000230: 41 52 54 00 2E 42 59 31 31 2C 38 2C 3C 31 39 38 |ART..BY11,8,<198| 00000240: 35 2C 3E 31 39 38 35 2C 31 35 38 2C 22 32 30 36 |5,>1985,158,"206| 00000250: 31 22 2C 30 2C 30 2C 30 3B C5 4E 54 53 50 52 49 |1",0,0,0;.NTSPRI| 00000260: 43 48 54 20 22 31 39 38 35 20 D3 D9 D3 32 30 36 |CHT "1985 ...206| 00000270: 31 22 00 2E 45 42 00 20 00 2E 3F 45 CD CF C4 D5 |1"..EB. ..?E....| 00000280: CC 3B CD 4F 44 55 4C 53 54 41 52 54 00 2E 57 4F |.;.ODULSTART..WO| 00000290: 4B 41 53 54 41 3B D3 54 41 52 54 41 44 52 45 53 |KASTA;.TARTADRES| 000002A0: 53 45 20 D2 45 53 45 54 00 2E 57 4F 57 41 52 4D |SE .ESET..WOWARM| 000002B0: 3B D3 54 41 52 54 41 44 52 45 53 53 45 20 CE CD |;.TARTADRESSE ..| 000002C0: C9 00 2E 42 59 22 C3 C2 CD 38 30 22 3B C1 55 54 |...BY"...80";.UT| 000002D0: 4F 53 54 41 52 54 2D CB 45 4E 4E 55 4E 47 00 4B |OSTART-.ENNUNG.K| 000002E0: 41 53 54 41 3A 4A 53 52 24 46 44 41 33 3B CB 45 |ASTA:JSR$FDA3;.E| 000002F0: 52 4E 41 4C 20 D3 54 41 52 54 52 4F 55 54 49 4E |RNAL .TARTROUTIN| 00000300: 45 4E 00 4A 53 52 24 46 44 35 30 00 4A 53 52 24 |EN.JSR$FD50.JSR$| 00000310: 46 44 31 35 00 4A 53 52 24 46 46 35 42 00 4C 44 |FD15.JSR$FF5B.LD| 00000320: 58 23 24 46 46 3B D3 54 41 43 4B 20 49 4E 49 54 |X#$FF;.TACK INIT| 00000330: 49 41 4C 49 53 49 45 52 45 4E 00 54 58 53 00 2E |IALISIEREN.TXS..| 00000340: 45 42 00 20 00 D3 D4 C1 CE C4 3A 2E 49 4E 22 D3 |EB. ......:.IN".| 00000350: 54 41 4E 44 41 52 54 57 45 52 54 45 20 3F 20 28 |TANDARTWERTE ? (| 00000360: 4A 3D 31 29 20 31 9D 22 00 20 00 2E 3F 45 D3 D4 |J=1) 1.". ..?E..| 00000370: C1 CE C4 2D 31 3B D3 54 41 4E 44 41 52 54 50 41 |...-1;.TANDARTPA| 00000380: 52 41 4D 45 54 45 52 00 42 41 43 4B 43 4F 4C 3A |RAMETER.BACKCOL:| 00000390: 2E 45 51 30 3B D0 4F 4B 45 20 C8 49 4E 54 45 52 |.EQ0;.OKE .INTER| 000003A0: 47 52 55 4E 44 46 41 52 42 45 00 52 41 48 4D 43 |GRUNDFARBE.RAHMC| 000003B0: 4F 4C 3A 2E 45 51 31 31 3B D0 4F 4B 45 20 D2 41 |OL:.EQ11;.OKE .A| 000003C0: 48 4D 45 4E 46 41 52 42 45 00 54 45 58 54 43 4F |HMENFARBE.TEXTCO| 000003D0: 4C 3A 2E 45 51 31 35 38 3B C1 D3 C3 C9 C9 20 D4 |L:.EQ158;..... .| 000003E0: 45 58 54 46 41 52 42 45 00 53 54 41 54 43 4F 4C |EXTFARBE.STATCOL| 000003F0: 3A 2E 45 51 35 3B C1 D3 C3 C9 C9 20 CD 45 4E 55 |:.EQ5;..... .ENU| 00000400: 45 46 41 52 42 45 00 42 4C 43 4B 43 4F 4C 3A 2E |EFARBE.BLCKCOL:.| 00000410: 45 51 31 35 34 3B C1 D3 C3 C9 C9 20 C2 4C 4F 43 |EQ154;..... .LOC| 00000420: 4B 46 41 52 42 45 00 54 41 4E 46 3A 2E 45 51 24 |KFARBE.TANF:.EQ$| 00000430: 38 30 30 30 3B D4 45 58 54 41 4E 46 41 4E 47 00 |8000;.EXTANFANG.| 00000440: 54 45 4E 44 3A 2E 45 51 24 44 46 46 46 3B D4 45 |TEND:.EQ$DFFF;.E| 00000450: 58 54 45 4E 44 45 00 4C 41 4E 46 3A 2E 45 51 24 |XTENDE.LANF:.EQ$| 00000460: 45 30 30 30 3B CC 41 42 45 4C 41 4E 46 41 4E 47 |E000;.ABELANFANG| 00000470: 00 4C 45 4E 44 3A 2E 45 51 24 46 46 46 46 3B CC |.LEND:.EQ$FFFF;.| 00000480: 41 42 45 4C 45 4E 44 45 00 46 4C 4F 44 45 56 3A |ABELENDE.FLODEV:| 00000490: 2E 45 51 38 3B C6 4C 4F 50 50 59 00 44 52 55 44 |.EQ8;.LOPPY.DRUD| 000004A0: 45 56 3A 2E 45 51 34 3B C4 52 55 43 4B 45 52 00 |EV:.EQ4;.RUCKER.| 000004B0: 44 52 55 53 45 43 3A 2E 45 51 30 3B C4 52 55 43 |DRUSEC:.EQ0;.RUC| 000004C0: 4B 45 52 20 D3 45 43 2E C1 44 52 2E 00 2E 45 42 |KER .EC..DR...EB| 000004D0: 00 20 00 2E 3F 4E D3 D4 C1 CE C4 2D 31 3B D0 41 |. ..?N.....-1;.A| 000004E0: 52 41 4D 45 54 45 52 20 41 42 46 52 41 47 45 4E |RAMETER ABFRAGEN| 000004F0: 00 42 41 43 4B 43 4F 4C 3A 2E 49 4E 22 D0 4F 4B |.BACKCOL:.IN".OK| 00000500: 45 20 C8 49 4E 54 45 52 47 52 55 4E 44 46 41 52 |E .INTERGRUNDFAR| 00000510: 42 45 20 30 9D 22 00 52 41 48 4D 43 4F 4C 3A 2E |BE 0.".RAHMCOL:.| 00000520: 49 4E 22 D0 4F 4B 45 20 D2 41 48 4D 45 4E 46 41 |IN".OKE .AHMENFA| 00000530: 52 42 45 20 31 31 9D 9D 22 00 54 45 58 54 43 4F |RBE 11..".TEXTCO| 00000540: 4C 3A 2E 49 4E 22 C1 D3 C3 C9 C9 20 D4 45 58 54 |L:.IN"..... .EXT| 00000550: 46 41 52 42 45 20 31 35 38 9D 9D 9D 22 00 53 54 |FARBE 158...".ST| 00000560: 41 54 43 4F 4C 3A 2E 49 4E 22 C1 D3 C3 C9 C9 20 |ATCOL:.IN"..... | 00000570: CD 45 4E 55 45 46 41 52 42 45 20 35 9D 22 00 42 |.ENUEFARBE 5.".B| 00000580: 4C 43 4B 43 4F 4C 3A 2E 49 4E 22 C1 D3 C3 C9 C9 |LCKCOL:.IN".....| 00000590: 20 C2 4C 4F 43 4B 46 41 52 42 45 20 31 35 34 9D | .LOCKFARBE 154.| 000005A0: 9D 9D 22 00 54 41 4E 46 3A 2E 49 4E 22 D4 45 58 |..".TANF:.IN".EX| 000005B0: 54 41 4E 46 41 4E 47 20 24 38 30 30 30 9D 9D 9D |TANFANG $8000...| 000005C0: 9D 9D 22 00 54 45 4E 44 3A 2E 49 4E 22 D4 45 58 |..".TEND:.IN".EX| 000005D0: 54 45 4E 44 45 20 20 20 24 44 46 46 46 9D 9D 9D |TENDE $DFFF...| 000005E0: 9D 9D 22 00 4C 41 4E 46 3A 2E 49 4E 22 CC 41 42 |..".LANF:.IN".AB| 000005F0: 45 4C 41 4E 46 2E 20 20 24 45 30 30 30 9D 9D 9D |ELANF. $E000...| 00000600: 9D 9D 22 00 4C 45 4E 44 3A 2E 49 4E 22 CC 41 42 |..".LEND:.IN".AB| 00000610: 45 4C 45 4E 44 45 20 20 24 46 46 46 46 9D 9D 9D |ELENDE $FFFF...| 00000620: 9D 9D 22 00 46 4C 4F 44 45 56 3A 2E 49 4E 22 C6 |..".FLODEV:.IN".| 00000630: 4C 4F 50 50 59 2D C1 44 52 2E 20 20 20 20 20 20 |LOPPY-.DR. | 00000640: 20 38 9D 22 00 44 52 55 44 45 56 3A 2E 49 4E 22 | 8.".DRUDEV:.IN"| 00000650: C4 52 55 43 4B 45 52 2D C1 44 52 2E 20 20 20 20 |.RUCKER-.DR. | 00000660: 20 20 34 9D 22 00 44 52 55 53 45 43 3A 2E 49 4E | 4.".DRUSEC:.IN| 00000670: 22 C4 52 55 43 4B 45 52 20 D3 45 43 2E 20 C1 44 |".RUCKER .EC. .D| 00000680: 52 2E 20 30 9D 22 00 2E 45 42 00 20 00 50 4F 53 |R. 0."..EB. .POS| 00000690: 3A 2E 45 51 39 3B CD 4F 4D 45 4E 54 41 4E 45 20 |:.EQ9;.OMENTANE | 000006A0: D0 4F 53 49 54 49 4F 4E 20 46 55 45 52 20 D4 41 |.OSITION FUER .A| 000006B0: 42 2D C2 45 46 45 48 4C 00 42 49 4C 44 41 44 52 |B-.EFEHL.BILDADR| 000006C0: 3A 2E 45 51 36 33 3B D3 54 41 52 54 41 44 52 45 |:.EQ63;.TARTADRE| 000006D0: 53 53 45 20 46 55 45 52 20 C2 49 4C 44 54 45 58 |SSE FUER .ILDTEX| 000006E0: 54 00 41 53 53 46 4C 41 47 53 3A 2E 45 51 37 37 |T.ASSFLAGS:.EQ77| 000006F0: 3B C1 53 53 45 4D 42 4C 45 52 20 C6 4C 41 47 53 |;.SSEMBLER .LAGS| 00000700: 00 41 53 53 46 4C 32 3A 2E 45 51 38 35 3B C1 53 |.ASSFL2:.EQ85;.S| 00000710: 53 45 4D 42 4C 45 52 20 C6 4C 41 47 53 00 4D 45 |SEMBLER .LAGS.ME| 00000720: 4D 31 3A 2E 45 51 38 37 3B DA 57 49 53 43 48 45 |M1:.EQ87;.WISCHE| 00000730: 4E 53 50 45 49 43 48 45 52 00 4D 45 4D 32 3A 2E |NSPEICHER.MEM2:.| 00000740: 45 51 4D 45 4D 31 2B 31 00 4D 45 4D 33 3A 2E 45 |EQMEM1+1.MEM3:.E| 00000750: 51 4D 45 4D 32 2B 31 00 4D 45 4D 34 3A 2E 45 51 |QMEM2+1.MEM4:.EQ| 00000760: 4D 45 4D 33 2B 31 00 54 58 54 41 4E 46 3A 2E 45 |MEM3+1.TXTANF:.E| 00000770: 51 39 31 3B D4 45 58 54 41 4E 46 41 4E 47 00 54 |Q91;.EXTANFANG.T| 00000780: 58 54 45 4E 44 3A 2E 45 51 54 58 54 41 4E 46 2B |XTEND:.EQTXTANF+| 00000790: 32 3B D4 45 58 54 45 4E 44 45 00 54 58 54 50 4F |2;.EXTENDE.TXTPO| 000007A0: 49 4E 54 3A 2E 45 51 54 58 54 45 4E 44 2B 32 3B |INT:.EQTXTEND+2;| 000007B0: DA 45 49 47 45 52 20 41 55 46 20 4C 45 54 5A 54 |.EIGER AUF LETZT| 000007C0: 45 4E 20 D4 45 58 54 45 49 4E 54 52 41 47 00 4C |EN .EXTEINTRAG.L| 000007D0: 42 4C 41 4E 46 3A 2E 45 51 39 37 3B CC 41 42 45 |BLANF:.EQ97;.ABE| 000007E0: 4C 41 4E 46 41 4E 47 00 4C 42 4C 45 4E 44 3A 2E |LANFANG.LBLEND:.| 000007F0: 45 51 4C 42 4C 41 4E 46 2B 32 3B CC 41 42 45 4C |EQLBLANF+2;.ABEL| 00000800: 45 4E 44 45 00 4C 42 4C 50 4F 49 4E 54 3A 2E 45 |ENDE.LBLPOINT:.E| 00000810: 51 4C 42 4C 45 4E 44 2B 32 3B DA 45 49 47 45 52 |QLBLEND+2;.EIGER| 00000820: 20 41 55 46 20 4C 45 54 5A 54 45 4E 20 CC 41 42 | AUF LETZTEN .AB| 00000830: 45 4C 45 49 4E 54 52 41 47 00 5A 41 48 4C 31 3A |ELEINTRAG.ZAHL1:| 00000840: 2E 45 51 31 30 35 3B DA 41 48 4C 20 46 55 45 52 |.EQ105;.AHL FUER| 00000850: 20 C5 49 4E 20 55 2E 20 C1 55 53 47 41 42 45 00 | .IN U. .USGABE.| 00000860: 5A 41 48 4C 32 3A 2E 45 51 5A 41 48 4C 31 2B 32 |ZAHL2:.EQZAHL1+2| 00000870: 3B D3 50 45 49 43 48 45 52 20 46 55 45 52 20 C2 |;.PEICHER FUER .| 00000880: 45 52 45 43 48 4E 55 4E 47 45 4E 00 5A 41 48 4C |ERECHNUNGEN.ZAHL| 00000890: 33 3A 2E 45 51 5A 41 48 4C 32 2B 32 00 53 54 41 |3:.EQZAHL2+2.STA| 000008A0: 43 4B 3A 2E 45 51 31 31 31 3B D3 50 45 49 43 48 |CK:.EQ111;.PEICH| 000008B0: 45 52 20 46 55 45 52 20 D3 54 41 43 4B 50 4F 49 |ER FUER .TACKPOI| 000008C0: 4E 54 45 52 00 53 43 52 4F 4C 4C 46 4C 41 47 3A |NTER.SCROLLFLAG:| 000008D0: 2E 45 51 31 34 37 3B C6 4C 41 47 20 46 55 45 52 |.EQ147;.LAG FUER| 000008E0: 20 D3 43 52 4F 4C 4C 45 4E 00 46 4C 41 47 53 3A | .CROLLEN.FLAGS:| 000008F0: 2E 45 51 31 35 35 3B C6 4C 41 47 53 00 42 4C 4F |.EQ155;.LAGS.BLO| 00000900: 41 4E 46 3A 2E 45 51 31 35 38 3B C2 4C 4F 43 4B |ANF:.EQ158;.LOCK| 00000910: 41 4E 46 41 4E 47 00 42 4C 4F 45 4E 44 3A 2E 45 |ANFANG.BLOEND:.E| 00000920: 51 36 35 3B C2 4C 4F 43 4B 45 4E 44 45 00 4C 41 |Q65;.LOCKENDE.LA| 00000930: 53 54 43 48 52 3A 2E 45 51 31 31 32 3B 4C 45 54 |STCHR:.EQ112;LET| 00000940: 5A 54 45 53 20 DA 45 49 43 48 45 4E 20 42 45 49 |ZTES .EICHEN BEI| 00000950: 20 C5 49 4E 47 41 42 45 00 43 53 50 41 4C 3A 2E | .INGABE.CSPAL:.| 00000960: 45 51 31 36 36 3B C3 55 52 53 4F 52 20 D3 50 41 |EQ166;.URSOR .PA| 00000970: 4C 54 45 20 28 31 2D 38 30 29 00 43 5A 45 49 4C |LTE (1-80).CZEIL| 00000980: 3A 2E 45 51 31 36 37 3B C3 55 52 53 4F 52 20 DA |:.EQ167;.URSOR .| 00000990: 45 49 4C 45 00 42 49 4C 44 5A 45 49 4C 45 3A 2E |EILE.BILDZEILE:.| 000009A0: 45 51 31 36 39 3B DA 45 49 4C 45 4E 4E 55 4D 4D |EQ169;.EILENNUMM| 000009B0: 45 52 20 44 45 52 20 45 52 53 54 45 4E 20 DA 45 |ER DER ERSTEN .E| 000009C0: 49 4C 45 20 49 4D 20 C2 49 4C 44 00 5A 45 49 4C |ILE IM .ILD.ZEIL| 000009D0: 45 4E 3A 2E 45 51 32 34 37 3B C1 4E 5A 41 48 4C |EN:.EQ247;.NZAHL| 000009E0: 20 D4 45 58 54 5A 45 49 4C 45 4E 00 41 44 52 55 | .EXTZEILEN.ADRU| 000009F0: 44 3A 2E 45 51 32 34 39 3B DA 45 49 4C 45 4E 41 |D:.EQ249;.EILENA| 00000A00: 44 52 45 53 53 45 20 46 55 45 52 20 D3 43 52 4F |DRESSE FUER .CRO| 00000A10: 4C 4C 45 4E 00 5A 47 3A 2E 45 51 32 35 31 3B DA |LLEN.ZG:.EQ251;.| 00000A20: 45 49 47 45 52 20 41 4C 4C 47 45 4D 2E 00 5A 47 |EIGER ALLGEM..ZG| 00000A30: 32 3A 2E 45 51 32 35 33 3B DA 45 49 47 45 52 20 |2:.EQ253;.EIGER | 00000A40: 41 4C 4C 47 45 4D 2E 00 20 00 46 41 3A 2E 45 51 |ALLGEM.. .FA:.EQ| 00000A50: 24 42 41 3B C7 45 52 41 45 54 45 4E 55 4D 4D 45 |$BA;.ERAETENUMME| 00000A60: 52 00 53 41 3A 2E 45 51 24 42 39 3B D3 45 4B 55 |R.SA:.EQ$B9;.EKU| 00000A70: 4E 44 41 45 52 41 44 52 45 53 53 53 45 00 53 54 |NDAERADRESSSE.ST| 00000A80: 41 54 55 53 3A 2E 45 51 24 39 30 3B D3 54 41 54 |ATUS:.EQ$90;.TAT| 00000A90: 55 53 42 59 54 45 00 46 4E 4C 45 4E 3A 2E 45 51 |USBYTE.FNLEN:.EQ| 00000AA0: 24 42 37 3B C6 49 4C 45 4E 41 4D 45 4C 41 45 4E |$B7;.ILENAMELAEN| 00000AB0: 47 45 00 46 4E 41 44 52 3A 2E 45 51 24 42 42 3B |GE.FNADR:.EQ$BB;| 00000AC0: C6 49 4C 45 4E 41 4D 45 41 44 52 45 53 53 45 00 |.ILENAMEADRESSE.| 00000AD0: 53 43 52 46 45 4C 44 3A 2E 45 51 24 41 43 3B D3 |SCRFELD:.EQ$AC;.| 00000AE0: 50 45 49 43 48 45 52 46 45 4C 44 20 46 55 45 52 |PEICHERFELD FUER| 00000AF0: 20 D3 43 52 4F 4C 4C 45 4E 00 4D 53 42 3A 2E 45 | .CROLLEN.MSB:.E| 00000B00: 51 24 44 39 3B CD D3 C2 20 44 45 52 20 C2 49 4C |Q$D9;... DER .IL| 00000B10: 44 5A 45 49 4C 45 4E 00 4D 53 47 46 4C 41 47 3A |DZEILEN.MSGFLAG:| 00000B20: 2E 45 51 31 35 37 3B C6 4C 41 47 20 46 55 45 52 |.EQ157;.LAG FUER| 00000B30: 20 C1 55 53 47 41 42 45 4E 00 52 50 44 46 4C 41 | .USGABEN.RPDFLA| 00000B40: 47 3A 2E 45 51 36 35 30 3B C6 4C 41 47 20 46 55 |G:.EQ650;.LAG FU| 00000B50: 45 52 20 D2 45 50 45 41 54 00 52 56 53 3A 2E 45 |ER .EPEAT.RVS:.E| 00000B60: 51 24 43 37 3B C6 4C 41 47 20 46 55 45 52 20 D2 |Q$C7;.LAG FUER .| 00000B70: 45 56 45 52 53 00 51 55 4F 54 45 3A 2E 45 51 24 |EVERS.QUOTE:.EQ$| 00000B80: 44 34 3B C6 4C 41 47 20 46 55 45 52 20 3E 22 3C |D4;.LAG FUER >"<| 00000B90: 00 53 50 41 4C 54 45 3A 2E 45 51 32 31 31 3B C3 |.SPALTE:.EQ211;.| 00000BA0: 55 52 53 4F 52 53 50 41 4C 54 45 00 5A 45 49 4C |URSORSPALTE.ZEIL| 00000BB0: 45 3A 2E 45 51 32 31 34 3B C3 55 52 53 4F 52 5A |E:.EQ214;.URSORZ| 00000BC0: 45 49 4C 45 00 42 4C 49 46 4C 41 47 3A 2E 45 51 |EILE.BLIFLAG:.EQ| 00000BD0: 32 30 34 3B C6 4C 41 47 20 46 55 45 52 20 C2 4C |204;.LAG FUER .L| 00000BE0: 49 4E 4B 45 4E 00 43 52 53 54 41 54 3A 2E 45 51 |INKEN.CRSTAT:.EQ| 00000BF0: 32 30 37 3B C3 55 52 53 4F 52 53 54 41 54 55 53 |207;.URSORSTATUS| 00000C00: 00 53 54 54 41 53 54 3A 2E 45 51 36 35 33 3B C6 |.STTAST:.EQ653;.| 00000C10: 4C 41 47 20 46 55 45 52 20 C3 D4 D2 CC 20 D3 C8 |LAG FUER .... ..| 00000C20: C9 C6 D4 20 C3 3D 00 49 4E 53 45 52 54 53 3A 2E |... .=.INSERTS:.| 00000C30: 45 51 32 31 36 3B C1 4E 5A 41 48 4C 20 44 45 52 |EQ216;.NZAHL DER| 00000C40: 20 C9 4E 53 45 52 54 27 53 00 20 00 4E 4F 52 4D | .NSERT'S. .NORM| 00000C50: 41 4C 3A 2E 45 51 24 33 37 3B D3 54 41 4E 44 41 |AL:.EQ$37;.TANDA| 00000C60: 52 54 53 50 45 49 43 48 45 52 56 45 52 54 45 49 |RTSPEICHERVERTEI| 00000C70: 4C 55 4E 47 00 20 00 53 54 41 52 54 46 49 4C 45 |LUNG. .STARTFILE| 00000C80: 3A 2E 45 51 32 35 36 3B C6 49 4C 45 4E 41 4D 45 |:.EQ256;.ILENAME| 00000C90: 20 42 45 49 20 C1 53 53 45 4D 4C 49 45 52 45 4E | BEI .SSEMLIEREN| 00000CA0: 00 4F 50 42 55 46 46 45 52 3A 2E 45 51 32 35 36 |.OPBUFFER:.EQ256| 00000CB0: 2B 31 36 3B D3 50 45 49 43 48 45 52 20 46 55 45 |+16;.PEICHER FUE| 00000CC0: 52 20 CF 50 45 52 41 4E 44 00 42 55 46 46 45 52 |R .PERAND.BUFFER| 00000CD0: 3A 2E 45 51 35 31 33 3B DA 45 49 4C 45 4E 53 50 |:.EQ513;.EILENSP| 00000CE0: 45 49 43 48 45 52 20 42 45 49 20 C1 53 53 2E 00 |EICHER BEI .SS..| 00000CF0: 42 55 46 46 45 52 32 3A 2E 45 51 31 31 35 3B D3 |BUFFER2:.EQ115;.| 00000D00: 50 45 49 43 48 45 52 46 45 4C 44 20 28 5A 2E C2 |PEICHERFELD (Z..| 00000D10: 2E 20 CC 41 42 45 4C 4E 41 4D 45 29 00 42 55 46 |. .ABELNAME).BUF| 00000D20: 46 45 52 33 3A 2E 45 51 36 37 39 3B D3 50 45 49 |FER3:.EQ679;.PEI| 00000D30: 43 48 45 52 46 45 4C 44 00 45 44 42 55 46 46 45 |CHERFELD.EDBUFFE| 00000D40: 52 3A 2E 45 51 38 32 30 3B DA 45 49 4C 45 4E 53 |R:.EQ820;.EILENS| 00000D50: 50 45 49 43 48 45 52 20 46 55 45 52 20 C5 44 49 |PEICHER FUER .DI| 00000D60: 54 00 41 4E 5A 45 49 42 55 46 3A 2E 45 51 45 44 |T.ANZEIBUF:.EQED| 00000D70: 42 55 46 46 45 52 2B 38 31 3B DA 45 49 4C 45 4E |BUFFER+81;.EILEN| 00000D80: 53 50 45 49 43 48 45 52 20 46 55 45 52 20 C1 4E |SPEICHER FUER .N| 00000D90: 5A 45 49 47 45 00 20 00 52 4F 55 54 49 4E 45 4E |ZEIGE. .ROUTINEN| 00000DA0: 3A 2E 45 51 37 30 34 3B D2 C1 CD 2D D2 4F 55 54 |:.EQ704;...-.OUT| 00000DB0: 49 4E 45 4E 20 31 00 52 4F 55 54 49 4E 45 32 3A |INEN 1.ROUTINE2:| 00000DC0: 2E 45 51 45 44 42 55 46 46 45 52 2B 38 31 3B D2 |.EQEDBUFFER+81;.| 00000DD0: C1 CD 2D D2 4F 55 54 49 4E 45 4E 20 32 00 20 00 |..-.OUTINEN 2. .| 00000DE0: 42 53 4F 55 54 52 3A 2E 45 51 24 46 46 44 32 3B |BSOUTR:.EQ$FFD2;| 00000DF0: C5 49 4E 20 DA 45 49 43 48 45 4E 20 41 55 53 47 |.IN .EICHEN AUSG| 00000E00: 45 42 45 4E 00 42 41 53 49 4E 52 3A 2E 45 51 24 |EBEN.BASINR:.EQ$| 00000E10: 46 46 43 46 3B C5 49 4E 20 DA 45 49 43 48 45 4E |FFCF;.IN .EICHEN| 00000E20: 20 45 49 4E 4C 45 53 45 4E 00 47 45 54 52 3A 2E | EINLESEN.GETR:.| 00000E30: 45 51 24 46 46 45 34 3B C7 45 54 2D C2 45 46 45 |EQ$FFE4;.ET-.EFE| 00000E40: 48 4C 00 42 41 53 49 43 49 4E 49 54 3A 2E 45 51 |HL.BASICINIT:.EQ| 00000E50: 24 46 43 45 32 3B C2 C1 D3 C9 C3 2D C9 4E 49 54 |$FCE2;.....-.NIT| 00000E60: 49 41 4C 49 53 49 45 52 45 4E 00 53 54 4F 50 54 |IALISIEREN.STOPT| 00000E70: 41 53 54 3A 2E 45 51 24 46 36 45 44 3B D3 D4 CF |AST:.EQ$F6ED;...| 00000E80: D0 2D D4 41 53 54 45 20 41 42 46 52 41 47 45 4E |.-.ASTE ABFRAGEN| 00000E90: 00 53 45 4E 44 3A 2E 45 51 24 45 44 44 44 3B C5 |.SEND:.EQ$EDDD;.| 00000EA0: 49 4E 20 C2 59 54 45 20 41 55 46 20 53 45 52 2E |IN .YTE AUF SER.| 00000EB0: 20 C2 55 53 00 4C 49 53 54 45 4E 3A 2E 45 51 24 | .US.LISTEN:.EQ$| 00000EC0: 45 44 30 43 3B CC 49 53 54 45 4E 20 53 45 4E 44 |ED0C;.ISTEN SEND| 00000ED0: 45 4E 00 54 41 4C 4B 3A 2E 45 51 24 45 44 30 39 |EN.TALK:.EQ$ED09| 00000EE0: 3B D4 41 4C 4B 20 53 45 4E 44 45 4E 00 55 4E 4C |;.ALK SENDEN.UNL| 00000EF0: 49 53 54 45 4E 3A 2E 45 51 24 45 44 46 45 3B D5 |ISTEN:.EQ$EDFE;.| 00000F00: 4E 4C 49 53 54 45 4E 20 53 45 4E 44 45 4E 00 55 |NLISTEN SENDEN.U| 00000F10: 4E 54 41 4C 4B 3A 2E 45 51 24 45 44 45 46 3B D5 |NTALK:.EQ$EDEF;.| 00000F20: 4E 54 41 4C 4B 20 53 45 4E 44 45 4E 00 53 45 43 |NTALK SENDEN.SEC| 00000F30: 4C 49 53 54 45 4E 3A 2E 45 51 24 45 44 42 39 3B |LISTEN:.EQ$EDB9;| 00000F40: D3 45 43 2E 20 C1 44 52 2E 20 4E 41 43 48 20 CC |.EC. .DR. NACH .| 00000F50: 49 53 54 45 4E 20 53 45 4E 44 45 4E 00 53 45 43 |ISTEN SENDEN.SEC| 00000F60: 54 41 4C 4B 3A 2E 45 51 24 45 44 43 37 3B D3 45 |TALK:.EQ$EDC7;.E| 00000F70: 43 2E 20 C1 44 52 2E 20 4E 41 43 48 20 D4 41 4C |C. .DR. NACH .AL| 00000F80: 4B 20 53 45 4E 44 45 4E 00 49 45 43 49 4E 3A 2E |K SENDEN.IECIN:.| 00000F90: 45 51 24 46 46 41 35 3B C5 49 4E 20 C2 59 54 45 |EQ$FFA5;.IN .YTE| 00000FA0: 20 56 4F 4D 20 53 45 52 2E 20 C2 55 53 00 53 45 | VOM SER. .US.SE| 00000FB0: 4E 44 4E 41 4D 45 3A 2E 45 51 24 46 33 44 35 3B |NDNAME:.EQ$F3D5;| 00000FC0: C6 49 4C 45 4E 41 4D 45 4E 20 53 45 4E 44 45 4E |.ILENAMEN SENDEN| 00000FD0: 00 43 4C 53 46 49 4C 45 3A 2E 45 51 24 46 36 34 |.CLSFILE:.EQ$F64| 00000FE0: 32 3B C6 49 4C 45 20 53 43 48 4C 49 45 53 53 45 |2;.ILE SCHLIESSE| 00000FF0: 4E 00 53 45 54 4E 41 4D 45 3A 2E 45 51 24 46 46 |N.SETNAME:.EQ$FF| 00001000: 42 44 3B C6 49 4C 45 4E 41 4D 45 4E 20 53 45 54 |BD;.ILENAMEN SET| 00001010: 5A 45 4E 00 53 45 54 50 41 52 41 3A 2E 45 51 24 |ZEN.SETPARA:.EQ$| 00001020: 46 46 42 41 3B C6 49 4C 45 50 41 52 41 4D 45 54 |FFBA;.ILEPARAMET| 00001030: 45 52 20 53 45 54 5A 45 4E 00 4F 50 45 4E 3A 2E |ER SETZEN.OPEN:.| 00001040: 45 51 24 46 46 43 30 3B CF D0 C5 CE 2D C2 45 46 |EQ$FFC0;....-.EF| 00001050: 45 48 4C 00 43 4C 4F 53 45 3A 2E 45 51 24 46 46 |EHL.CLOSE:.EQ$FF| 00001060: 43 33 3B C3 CC CF D3 C5 2D C2 45 46 45 48 4C 00 |C3;.....-.EFEHL.| 00001070: 43 48 4B 49 4E 3A 2E 45 51 24 46 46 43 36 3B C5 |CHKIN:.EQ$FFC6;.| 00001080: 49 4E 47 41 42 45 47 45 52 41 45 54 20 53 45 54 |INGABEGERAET SET| 00001090: 5A 45 4E 00 43 4B 4F 55 54 3A 2E 45 51 24 46 46 |ZEN.CKOUT:.EQ$FF| 000010A0: 43 39 3B C1 55 53 47 41 42 45 47 45 52 41 45 54 |C9;.USGABEGERAET| 000010B0: 20 53 45 54 5A 45 4E 00 43 4C 52 43 48 3A 2E 45 | SETZEN.CLRCH:.E| 000010C0: 51 24 46 46 43 43 3B C5 49 4E 20 55 2E 20 C1 55 |Q$FFCC;.IN U. .U| 000010D0: 53 47 41 42 45 20 4E 4F 52 4D 41 4C 00 54 41 53 |SGABE NORMAL.TAS| 000010E0: 54 41 54 55 52 3A 2E 45 51 24 46 46 39 46 3B D4 |TATUR:.EQ$FF9F;.| 000010F0: 41 53 54 41 54 55 52 20 41 42 46 52 41 47 45 4E |ASTATUR ABFRAGEN| 00001100: 00 43 4C 52 4C 49 4E 45 3A 2E 45 51 24 45 39 46 |.CLRLINE:.EQ$E9F| 00001110: 46 3B C2 49 4C 44 53 43 48 49 52 4D 5A 45 49 4C |F;.ILDSCHIRMZEIL| 00001120: 45 20 4C 4F 45 53 43 48 45 4E 00 53 43 52 41 55 |E LOESCHEN.SCRAU| 00001130: 53 3A 2E 45 51 24 45 37 31 36 3B C5 49 4E 20 DA |S:.EQ$E716;.IN .| 00001140: 45 49 43 48 45 4E 20 41 55 46 20 C2 49 4C 44 53 |EICHEN AUF .ILDS| 00001150: 43 48 49 52 4D 00 43 4C 52 53 43 52 3A 2E 45 51 |CHIRM.CLRSCR:.EQ| 00001160: 24 45 35 34 34 3B C2 49 4C 44 20 4C 4F 45 53 43 |$E544;.ILD LOESC| 00001170: 48 45 4E 00 55 53 43 52 3A 2E 45 51 24 45 38 46 |HEN.USCR:.EQ$E8F| 00001180: 38 3B D5 50 2D D3 43 52 4F 4C 4C 00 44 53 43 52 |8;.P-.CROLL.DSCR| 00001190: 3A 2E 45 51 24 45 39 36 35 3B C4 4F 57 4E 2D D3 |:.EQ$E965;.OWN-.| 000011A0: 43 48 52 4F 4C 4C 00 48 4F 4D 45 3A 2E 45 51 24 |CHROLL.HOME:.EQ$| 000011B0: 45 35 36 36 3B C3 55 52 53 4F 52 20 C8 4F 4D 45 |E566;.URSOR .OME| 000011C0: 00 20 00 56 49 43 3A 2E 45 51 24 44 30 30 30 3B |. .VIC:.EQ$D000;| 000011D0: D6 49 44 45 4F 2D C9 C3 00 53 49 44 3A 2E 45 51 |.IDEO-...SID:.EQ| 000011E0: 24 44 34 30 30 3B D3 4F 55 4E 44 2D C9 C3 00 55 |$D400;.OUND-...U| 000011F0: 48 52 3A 2E 45 51 35 36 33 32 38 3B D5 48 52 20 |HR:.EQ56328;.HR | 00001200: 49 4E 20 C3 C9 C1 20 31 00 20 00 3B 20 2D 20 CC |IN ... 1. .; - .| 00001210: 41 42 45 4C 44 45 46 49 4E 49 54 49 4F 4E 45 4E |ABELDEFINITIONEN| 00001220: 20 46 55 45 52 20 C1 53 53 45 4D 42 4C 45 52 20 | FUER .SSEMBLER | 00001230: 2D 00 4C 41 42 45 4C 57 45 52 54 3A 2E 45 51 43 |-.LABELWERT:.EQC| 00001240: 5A 45 49 4C 3B D7 45 52 54 20 45 49 4E 45 53 20 |ZEIL;.ERT EINES | 00001250: D3 59 4D 42 4F 4C 53 00 4C 41 42 45 4C 54 59 50 |.YMBOLS.LABELTYP| 00001260: 3A 2E 45 51 43 53 50 41 4C 3B CC 41 42 45 4C 54 |:.EQCSPAL;.ABELT| 00001270: 59 50 00 50 43 3A 2E 45 51 42 49 4C 44 5A 45 49 |YP.PC:.EQBILDZEI| 00001280: 4C 45 3B C1 44 52 45 53 53 45 20 44 45 53 20 C2 |LE;.DRESSE DES .| 00001290: 45 46 45 48 4C 53 00 46 45 48 4C 45 52 3A 2E 45 |EFEHLS.FEHLER:.E| 000012A0: 51 5A 45 49 4C 45 4E 3B C1 4E 5A 41 48 4C 20 C6 |QZEILEN;.NZAHL .| 000012B0: 45 48 4C 45 52 00 4F 52 44 45 52 3A 2E 45 51 31 |EHLER.ORDER:.EQ1| 000012C0: 30 3B C2 45 46 45 48 4C 53 42 59 54 45 00 4C 42 |0;.EFEHLSBYTE.LB| 000012D0: 4C 4C 45 4E 3A 2E 45 51 41 44 52 55 44 3B CC 41 |LLEN:.EQADRUD;.A| 000012E0: 45 4E 47 45 20 44 45 53 20 D3 59 4D 42 4F 4C 53 |ENGE DES .YMBOLS| 000012F0: 00 41 44 52 4D 4F 44 45 3A 2E 45 51 42 55 46 46 |.ADRMODE:.EQBUFF| 00001300: 45 52 33 3B C1 44 52 45 53 53 49 45 52 55 4E 47 |ER3;.DRESSIERUNG| 00001310: 53 41 52 54 00 41 53 5A 45 49 4C 45 3A 2E 45 51 |SART.ASZEILE:.EQ| 00001320: 42 55 46 46 45 52 2B 38 30 3B CE 55 4D 4D 45 52 |BUFFER+80;.UMMER| 00001330: 20 44 45 52 20 DA 45 49 4C 45 00 41 44 52 4D 4F | DER .EILE.ADRMO| 00001340: 54 58 54 3A 2E 45 51 42 55 46 46 45 52 33 2B 31 |TXT:.EQBUFFER3+1| 00001350: 3B D4 45 58 54 20 44 45 52 20 C1 44 52 45 53 53 |;.EXT DER .DRESS| 00001360: 49 45 52 55 4E 47 53 41 52 54 00 4F 50 45 52 41 |IERUNGSART.OPERA| 00001370: 4E 44 3A 2E 45 51 42 55 46 46 45 52 2B 33 3B D4 |ND:.EQBUFFER+3;.| 00001380: 45 58 54 20 44 45 53 20 CF 50 45 52 41 4E 44 45 |EXT DES .PERANDE| 00001390: 4E 00 50 41 53 53 41 44 52 45 53 53 3A 2E 45 51 |N.PASSADRESS:.EQ| 000013A0: 24 38 42 3B D3 50 45 49 43 48 45 52 20 46 55 45 |$8B;.PEICHER FUE| 000013B0: 52 20 C1 44 52 45 53 53 54 45 53 54 00 20 00 3B |R .DRESSTEST. .;| 000013C0: 20 2D 20 CC 41 42 45 4C 44 45 46 49 4E 49 54 49 | - .ABELDEFINITI| 000013D0: 4F 4E 45 4E 20 46 55 45 52 20 CD 4F 4E 49 54 4F |ONEN FUER .ONITO| 000013E0: 52 20 C5 52 57 45 49 54 45 52 55 4E 47 20 2D 00 |R .RWEITERUNG -.| 000013F0: 42 52 45 41 4B 56 3A 2E 45 51 24 33 31 36 3B C2 |BREAKV:.EQ$316;.| 00001400: 52 45 41 4B 56 45 4B 54 4F 52 00 50 50 3A 2E 45 |REAKVEKTOR.PP:.E| 00001410: 51 42 55 46 46 45 52 33 3B D3 50 45 49 43 48 45 |QBUFFER3;.PEICHE| 00001420: 52 20 46 55 45 52 20 D0 52 4F 5A 45 53 53 4F 52 |R FUER .ROZESSOR| 00001430: 50 4F 52 54 00 59 52 3A 2E 45 51 42 55 46 46 45 |PORT.YR:.EQBUFFE| 00001440: 52 33 2B 31 3B D3 50 45 49 43 48 45 52 20 46 55 |R3+1;.PEICHER FU| 00001450: 45 52 20 D9 2D D2 45 47 49 53 54 45 52 00 58 52 |ER .-.EGISTER.XR| 00001460: 3A 2E 45 51 42 55 46 46 45 52 33 2B 32 3B D3 50 |:.EQBUFFER3+2;.P| 00001470: 45 49 43 48 45 52 20 46 55 45 52 20 D8 2D D2 45 |EICHER FUER .-.E| 00001480: 47 2E 00 41 43 3A 2E 45 51 42 55 46 46 45 52 33 |G..AC:.EQBUFFER3| 00001490: 2B 33 3B D3 50 45 49 43 48 45 52 20 46 55 45 52 |+3;.PEICHER FUER| 000014A0: 20 C1 43 43 55 00 53 54 3A 2E 45 51 42 55 46 46 | .CCU.ST:.EQBUFF| 000014B0: 45 52 33 2B 34 3B D3 50 45 49 43 48 45 52 20 46 |ER3+4;.PEICHER F| 000014C0: 55 45 52 20 D3 54 41 54 55 53 46 4C 41 47 53 00 |UER .TATUSFLAGS.| 000014D0: 50 43 4C 3A 2E 45 51 42 55 46 46 45 52 33 2B 35 |PCL:.EQBUFFER3+5| 000014E0: 3B D3 50 45 49 43 48 45 52 20 46 55 45 52 20 C1 |;.PEICHER FUER .| 000014F0: 44 52 45 53 53 45 00 53 50 3A 2E 45 51 42 55 46 |DRESSE.SP:.EQBUF| 00001500: 46 45 52 33 2B 37 3B D3 50 45 49 43 48 45 52 20 |FER3+7;.PEICHER | 00001510: 46 55 45 52 20 D3 54 41 43 4B 50 4F 49 4E 54 45 |FUER .TACKPOINTE| 00001520: 52 00 42 52 4B 3A 2E 45 51 42 55 46 46 45 52 33 |R.BRK:.EQBUFFER3| 00001530: 2B 38 3B D3 50 2E 20 46 55 45 52 20 C2 D2 C5 C1 |+8;.P. FUER ....| 00001540: CB 2D C1 44 52 45 53 53 45 00 54 52 41 43 3A 2E |.-.DRESSE.TRAC:.| 00001550: 45 51 42 55 46 46 45 52 33 2B 31 30 3B D3 50 2E |EQBUFFER3+10;.P.| 00001560: 20 46 55 45 52 20 D4 52 41 43 4B 00 53 45 43 54 | FUER .RACK.SECT| 00001570: 3A 2E 45 51 42 55 46 46 45 52 33 2B 31 31 3B D3 |:.EQBUFFER3+11;.| 00001580: 50 2E 20 46 55 45 52 20 D3 45 43 54 4F 52 00 42 |P. FUER .ECTOR.B| 00001590: 55 46 3A 2E 45 51 42 55 46 46 45 52 33 2B 31 32 |UF:.EQBUFFER3+12| 000015A0: 3B DA 57 49 53 43 48 45 4E 53 50 2E 20 46 55 45 |;.WISCHENSP. FUE| 000015B0: 52 20 D7 45 52 54 45 00 42 55 46 42 55 46 46 45 |R .ERTE.BUFBUFFE| 000015C0: 52 3A 2E 45 51 24 43 46 30 30 00 20 00 20 00 3B |R:.EQ$CF00. . .;| 000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000015E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000015F0: 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 |*******.;* * | 00001600: 20 20 20 20 20 20 C8 41 55 50 54 50 52 4F 47 52 | .AUPTPROGR| 00001610: 41 4D 4D 20 20 20 20 20 20 20 20 20 20 2A 20 2A |AMM * *| 00001620: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 00001630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 4B 41 4C 54 |*********. .KALT| 00001650: 3A 4C 44 41 23 31 3B CB 41 4C 54 53 54 41 52 54 |:LDA#1;.ALTSTART| 00001660: 00 2E 42 59 24 32 43 00 57 41 52 4D 3A 4C 44 41 |..BY$2C.WARM:LDA| 00001670: 23 30 3B D7 41 52 4D 53 54 41 52 54 00 54 53 58 |#0;.ARMSTART.TSX| 00001680: 3B D3 54 41 43 4B 50 4F 49 4E 54 45 52 20 4D 45 |;.TACKPOINTER ME| 00001690: 52 4B 45 4E 00 53 54 58 53 54 41 43 4B 00 53 45 |RKEN.STXSTACK.SE| 000016A0: 49 00 43 4D 50 23 31 3B CB 41 4C 54 53 54 41 52 |I.CMP#1;.ALTSTAR| 000016B0: 54 20 3F 00 42 4E 45 57 41 53 54 41 3B CE 45 49 |T ?.BNEWASTA;.EI| 000016C0: 4E 00 4A 53 52 49 4E 49 54 52 3B C9 4E 49 54 49 |N.JSRINITR;.NITI| 000016D0: 41 4C 49 53 49 45 52 45 4E 00 57 41 53 54 41 3A |ALISIEREN.WASTA:| 000016E0: 4A 53 52 50 55 54 52 41 4D 52 4F 3B D2 41 4D 2D |JSRPUTRAMRO;.AM-| 000016F0: D2 4F 55 54 49 4E 45 4E 20 2D 2D 3E 20 D3 54 41 |.OUTINEN --> .TA| 00001700: 52 54 50 4F 53 2E 00 4A 53 52 50 4F 49 4E 54 45 |RTPOS..JSRPOINTE| 00001710: 52 3B D0 4F 49 4E 54 45 52 20 42 45 52 45 43 48 |R;.OINTER BERECH| 00001720: 4E 45 4E 00 4C 44 41 23 31 35 3B D4 4F 4E 20 41 |NEN.LDA#15;.ON A| 00001730: 4E 53 43 48 41 4C 54 45 4E 00 53 54 41 53 49 44 |NSCHALTEN.STASID| 00001740: 2B 32 34 00 4C 44 41 23 25 31 31 30 30 30 30 30 |+24.LDA#%1100000| 00001750: 30 3B CD 45 4C 44 55 4E 47 45 4E 20 44 45 53 20 |0;.ELDUNGEN DES | 00001760: CB 45 52 4E 41 4C 20 41 4E 00 53 54 41 4D 53 47 |.ERNAL AN.STAMSG| 00001770: 46 4C 41 47 00 53 54 41 52 50 44 46 4C 41 47 3B |FLAG.STARPDFLAG;| 00001780: 41 4C 4C 45 20 D4 41 53 54 45 4E 20 C1 55 54 4F |ALLE .ASTEN .UTO| 00001790: 52 45 50 45 41 54 00 4C 44 41 23 25 30 30 30 30 |REPEAT.LDA#%0000| 000017A0: 30 31 31 31 3B C6 4C 41 47 53 20 41 55 46 20 D3 |0111;.LAGS AUF .| 000017B0: 54 41 4E 44 41 52 54 00 53 54 41 46 4C 41 47 53 |TANDART.STAFLAGS| 000017C0: 00 4C 44 41 23 52 41 48 4D 43 4F 4C 3B C6 41 52 |.LDA#RAHMCOL;.AR| 000017D0: 42 45 4E 20 46 45 53 54 4C 45 47 45 4E 00 53 54 |BEN FESTLEGEN.ST| 000017E0: 41 56 49 43 2B 33 32 00 4C 44 41 23 42 41 43 4B |AVIC+32.LDA#BACK| 000017F0: 43 4F 4C 00 53 54 41 56 49 43 2B 33 33 00 4A 53 |COL.STAVIC+33.JS| 00001800: 52 42 45 45 50 3B D4 4F 4E 20 41 55 53 47 45 42 |RBEEP;.ON AUSGEB| 00001810: 45 4E 00 20 00 4D 41 49 4E 3A 4C 44 58 53 54 41 |EN. .MAIN:LDXSTA| 00001820: 43 4B 3B D3 54 41 43 4B 50 4F 49 4E 54 45 52 20 |CK;.TACKPOINTER | 00001830: 48 4F 4C 45 4E 00 54 58 53 00 4C 44 41 23 30 3B |HOLEN.TXS.LDA#0;| 00001840: C1 53 53 46 4C 41 47 53 20 52 55 45 43 4B 53 45 |.SSFLAGS RUECKSE| 00001850: 54 5A 45 4E 00 53 54 41 41 53 53 46 4C 41 47 53 |TZEN.STAASSFLAGS| 00001860: 00 20 00 4D 41 49 4E 4D 3A 53 45 49 3B C8 41 55 |. .MAINM:SEI;.AU| 00001870: 50 54 4D 45 4E 55 45 20 41 4E 5A 45 49 47 45 4E |PTMENUE ANZEIGEN| 00001880: 00 4C 44 58 23 30 3B CD 45 4E 55 45 54 45 58 54 |.LDX#0;.ENUETEXT| 00001890: 00 4A 53 52 57 52 49 54 45 00 4A 53 52 50 55 54 |.JSRWRITE.JSRPUT| 000018A0: 52 41 4D 52 4F 00 4A 53 52 54 58 54 41 4E 5A 3B |RAMRO.JSRTXTANZ;| 000018B0: D4 45 58 54 42 45 52 45 49 43 48 20 41 4E 5A 45 |.EXTBEREICH ANZE| 000018C0: 49 47 45 4E 00 4A 53 52 54 58 54 46 49 4C 4C 00 |IGEN.JSRTXTFILL.| 000018D0: 4A 53 52 4C 42 4C 41 4E 5A 3B CC 41 42 45 4C 42 |JSRLBLANZ;.ABELB| 000018E0: 45 52 45 49 43 48 20 41 4E 5A 45 49 47 45 4E 00 |EREICH ANZEIGEN.| 000018F0: 4A 53 52 4C 42 4C 46 49 4C 4C 00 4A 53 52 4E 45 |JSRLBLFILL.JSRNE| 00001900: 58 54 5A 45 49 00 4C 44 58 23 31 39 3B C1 4E 5A |XTZEI.LDX#19;.NZ| 00001910: 41 48 4C 20 DA 45 49 4C 45 4E 20 41 4E 5A 45 49 |AHL .EILEN ANZEI| 00001920: 47 45 4E 00 4A 53 52 57 52 49 54 45 00 4C 44 41 |GEN.JSRWRITE.LDA| 00001930: 5A 45 49 4C 45 4E 00 53 54 41 5A 41 48 4C 31 00 |ZEILEN.STAZAHL1.| 00001940: 4C 44 41 5A 45 49 4C 45 4E 2B 31 00 53 54 41 5A |LDAZEILEN+1.STAZ| 00001950: 41 48 4C 31 2B 31 00 4A 53 52 5A 41 48 4C 44 45 |AHL1+1.JSRZAHLDE| 00001960: 5A 4F 55 54 3B 5A 41 48 4C 31 20 44 45 5A 49 4D |ZOUT;ZAHL1 DEZIM| 00001970: 41 4C 20 41 55 53 47 45 42 45 4E 00 20 00 4C 44 |AL AUSGEBEN. .LD| 00001980: 41 23 31 39 3B C4 52 55 43 4B 45 52 20 41 4E 2F |A#19;.RUCKER AN/| 00001990: 41 55 53 00 4A 53 52 53 43 52 54 41 42 00 4C 44 |AUS.JSRSCRTAB.LD| 000019A0: 58 23 32 33 00 4A 53 52 57 52 49 54 45 00 4C 44 |X#23.JSRWRITE.LD| 000019B0: 41 46 4C 41 47 53 3B C4 52 55 43 4B 45 52 20 41 |AFLAGS;.RUCKER A| 000019C0: 4E 3F 00 41 4E 44 23 38 00 42 45 51 44 52 55 4F |N?.AND#8.BEQDRUO| 000019D0: 46 46 3B 4E 45 49 4E 00 4C 44 41 23 27 4E 3B 3E |FF;NEIN.LDA#'N;>| 000019E0: 41 4E 3C 00 4A 53 52 42 53 4F 55 54 00 4A 4D 50 |AN<.JSRBSOUT.JMP| 000019F0: 45 4E 44 44 52 55 00 44 52 55 4F 46 46 3A 4C 44 |ENDDRU.DRUOFF:LD| 00001A00: 41 23 27 55 3B 3E 41 55 53 3C 00 4A 53 52 42 53 |A#'U;>AUS<.JSRBS| 00001A10: 4F 55 54 00 4C 44 41 23 27 53 00 4A 53 52 42 53 |OUT.LDA#'S.JSRBS| 00001A20: 4F 55 54 00 45 4E 44 44 52 55 3A 4A 53 52 4E 45 |OUT.ENDDRU:JSRNE| 00001A30: 58 54 5A 45 49 00 4A 53 52 4E 45 58 54 5A 45 49 |XTZEI.JSRNEXTZEI| 00001A40: 00 20 00 4D 42 45 46 3A 4A 53 52 47 45 54 3B C2 |. .MBEF:JSRGET;.| 00001A50: 45 46 45 48 4C 20 48 4F 4C 45 4E 00 4C 44 58 23 |EFEHL HOLEN.LDX#| 00001A60: 4D 41 49 4E 53 50 52 2D 4D 41 49 4E 43 4D 44 2D |MAINSPR-MAINCMD-| 00001A70: 31 3B 49 4E 20 D4 41 42 45 4C 4C 45 20 53 55 43 |1;IN .ABELLE SUC| 00001A80: 48 45 4E 00 56 45 52 47 4C 3A 43 4D 50 4D 41 49 |HEN.VERGL:CMPMAI| 00001A90: 4E 43 4D 44 2C 58 00 42 45 51 46 4F 43 4D 44 3B |NCMD,X.BEQFOCMD;| 00001AA0: C2 45 46 45 48 4C 20 47 45 46 55 4E 44 45 4E 00 |.EFEHL GEFUNDEN.| 00001AB0: 44 45 58 00 42 50 4C 56 45 52 47 4C 00 4A 4D 50 |DEX.BPLVERGL.JMP| 00001AC0: 4D 41 49 4E 4D 3B C2 45 46 45 48 4C 20 4E 49 43 |MAINM;.EFEHL NIC| 00001AD0: 48 54 20 D4 41 42 45 4C 4C 45 00 20 00 46 4F 43 |HT .ABELLE. .FOC| 00001AE0: 4D 44 3A 54 58 41 3B D3 54 41 52 54 41 44 52 45 |MD:TXA;.TARTADRE| 00001AF0: 53 53 45 20 41 55 46 20 D3 54 41 43 4B 00 41 53 |SSE AUF .TACK.AS| 00001B00: 4C 00 54 41 58 00 4C 44 41 4D 41 49 4E 53 50 52 |L.TAX.LDAMAINSPR| 00001B10: 2B 31 2C 58 3B C8 49 47 48 20 C2 59 54 45 00 50 |+1,X;.IGH .YTE.P| 00001B20: 48 41 3B 41 55 46 20 D3 54 41 43 4B 00 4C 44 41 |HA;AUF .TACK.LDA| 00001B30: 4D 41 49 4E 53 50 52 2C 58 3B CC 4F 57 20 C2 59 |MAINSPR,X;.OW .Y| 00001B40: 54 45 00 50 48 41 3B 41 55 46 20 D3 54 41 43 4B |TE.PHA;AUF .TACK| 00001B50: 00 52 54 53 3B D2 4F 55 54 49 4E 45 20 53 54 41 |.RTS;.OUTINE STA| 00001B60: 52 54 45 4E 00 20 00 4D 41 49 4E 52 54 3A 4C 44 |RTEN. .MAINRT:LD| 00001B70: 58 53 54 41 43 4B 3B D3 54 41 43 4B 50 4F 49 4E |XSTACK;.TACKPOIN| 00001B80: 54 45 52 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |TER ZURUECKHOLEN| 00001B90: 00 54 58 53 00 53 45 49 00 4C 44 41 23 30 3B C1 |.TXS.SEI.LDA#0;.| 00001BA0: 53 53 46 4C 41 47 53 20 4C 4F 45 53 43 48 45 4E |SSFLAGS LOESCHEN| 00001BB0: 00 53 54 41 41 53 53 46 4C 41 47 53 00 4A 53 52 |.STAASSFLAGS.JSR| 00001BC0: 50 55 54 52 41 4D 52 4F 3B D2 4F 55 54 49 4E 45 |PUTRAMRO;.OUTINE| 00001BD0: 4E 20 49 4E 20 D3 50 45 49 43 48 45 52 20 42 52 |N IN .PEICHER BR| 00001BE0: 49 4E 47 45 4E 00 4A 53 52 4E 45 58 54 5A 45 49 |INGEN.JSRNEXTZEI| 00001BF0: 00 4A 4D 50 4D 42 45 46 3B CE 45 58 54 20 C2 45 |.JMPMBEF;.EXT .E| 00001C00: 46 45 48 4C 00 20 00 3B D4 41 42 45 4C 4C 45 20 |FEHL. .;.ABELLE | 00001C10: 44 45 52 20 CD 45 4E 55 45 20 C2 45 46 45 48 4C |DER .ENUE .EFEHL| 00001C20: 45 20 4D 49 54 20 D3 54 41 52 54 41 44 52 45 53 |E MIT .TARTADRES| 00001C30: 53 45 4E 00 4D 41 49 4E 43 4D 44 3A 2E 42 59 22 |SEN.MAINCMD:.BY"| 00001C40: 45 41 50 42 57 4F 52 49 47 53 4D 56 43 44 46 4C |EAPBWORIGSMVCDFL| 00001C50: 54 48 4E 22 3B C2 45 46 45 48 4C 45 00 4D 41 49 |THN";.EFEHLE.MAI| 00001C60: 4E 53 50 52 3A 2E 57 4F 45 44 49 54 4F 52 2D 31 |NSPR:.WOEDITOR-1| 00001C70: 3B 45 2D C5 44 49 54 4F 52 00 2E 57 4F 41 53 53 |;E-.DITOR..WOASS| 00001C80: 45 4D 42 4C 45 2D 31 3B 41 2D C1 53 53 45 4D 42 |EMBLE-1;A-.SSEMB| 00001C90: 4C 45 52 00 2E 57 4F 50 41 53 53 32 2D 31 3B 50 |LER..WOPASS2-1;P| 00001CA0: 2D C1 53 53 45 4D 42 4C 45 52 20 D0 41 53 53 20 |-.SSEMBLER .ASS | 00001CB0: 32 00 2E 57 4F 42 41 43 4B 2D 31 3B 42 2D C2 41 |2..WOBACK-1;B-.A| 00001CC0: 43 4B 20 28 C2 41 53 49 43 29 00 2E 57 4F 57 52 |CK (.ASIC)..WOWR| 00001CD0: 49 54 45 42 45 46 2D 31 3B 57 2D D7 52 49 54 45 |ITEBEF-1;W-.RITE| 00001CE0: 00 2E 57 4F 4F 50 54 49 4F 4E 2D 31 3B 4F 2D D3 |..WOOPTION-1;O-.| 00001CF0: 50 45 49 43 48 45 52 47 52 45 4E 5A 45 4E 00 2E |PEICHERGRENZEN..| 00001D00: 57 4F 52 55 4E 2D 31 3B 52 2D D2 55 4E 00 2E 57 |WORUN-1;R-.UN..W| 00001D10: 4F 49 4E 49 54 2D 31 3B 49 2D C9 4E 49 54 49 41 |OINIT-1;I-.NITIA| 00001D20: 4C 49 53 49 45 52 45 4E 00 2E 57 4F 4C 4F 41 44 |LISIEREN..WOLOAD| 00001D30: 2D 31 3B 47 2D C7 45 54 20 C6 49 4C 45 00 2E 57 |-1;G-.ET .ILE..W| 00001D40: 4F 53 41 56 45 2D 31 3B 53 2D D3 41 56 45 20 C6 |OSAVE-1;S-.AVE .| 00001D50: 49 4C 45 00 2E 57 4F 4D 45 52 47 45 2D 31 3B 4D |ILE..WOMERGE-1;M| 00001D60: 2D CD 45 52 47 45 20 C6 49 4C 45 00 2E 57 4F 56 |-.ERGE .ILE..WOV| 00001D70: 45 52 49 46 59 2D 31 3B 56 2D D6 45 52 49 46 59 |ERIFY-1;V-.ERIFY| 00001D80: 20 C6 49 4C 45 00 2E 57 4F 44 49 52 2D 31 3B 43 | .ILE..WODIR-1;C| 00001D90: 2D C3 41 54 41 4C 4F 47 20 C4 49 53 4B 00 2E 57 |-.ATALOG .ISK..W| 00001DA0: 4F 44 42 45 46 45 48 4C 2D 31 3B 44 2D C4 49 53 |ODBEFEHL-1;D-.IS| 00001DB0: 4B 20 C2 45 46 45 48 4C 00 2E 57 4F 44 49 45 52 |K .EFEHL..WODIER| 00001DC0: 52 2D 31 3B 46 2D C4 49 53 4B 20 C5 52 52 4F 52 |R-1;F-.ISK .RROR| 00001DD0: 00 2E 57 4F 4C 49 53 54 4C 42 4C 2D 31 3B 4C 2D |..WOLISTLBL-1;L-| 00001DE0: CC 41 42 45 4C 20 C6 49 4C 45 00 2E 57 4F 54 4F |.ABEL .ILE..WOTO| 00001DF0: 47 44 52 55 2D 31 3B 54 2D C4 52 55 43 4B 45 52 |GDRU-1;T-.RUCKER| 00001E00: 20 4F 4E 2F 4F 46 46 00 2E 57 4F 48 45 4C 50 2D | ON/OFF..WOHELP-| 00001E10: 31 3B 48 2D C8 45 4C 50 20 28 D2 45 43 48 4E 45 |1;H-.ELP (.ECHNE| 00001E20: 4E 29 00 2E 57 4F 4D 4F 4E 49 54 4F 52 2D 31 3B |N)..WOMONITOR-1;| 00001E30: 4E 2D CD 4F 4E 49 54 4F 52 00 20 00 20 00 3B 2A |N-.ONITOR. . .;*| 00001E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001E60: 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 |******.;* * | 00001E70: 20 20 20 20 C9 4E 49 54 49 41 4C 49 53 49 45 52 | .NITIALISIER| 00001E80: 45 4E 20 20 20 20 20 20 20 20 20 20 2A 20 2A 00 |EN * *.| 00001E90: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00001EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001EB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 49 4E 49 54 3A |********. .INIT:| 00001EC0: 4A 53 52 53 55 52 45 3B C1 42 53 49 43 48 45 52 |JSRSURE;.BSICHER| 00001ED0: 4E 00 4A 53 52 49 4E 49 54 52 3B C9 4E 49 54 49 |N.JSRINITR;.NITI| 00001EE0: 41 4C 49 53 49 45 52 45 4E 00 4A 4D 50 4D 41 49 |ALISIEREN.JMPMAI| 00001EF0: 4E 3B CE 45 58 54 20 C2 45 46 45 48 4C 00 49 4E |N;.EXT .EFEHL.IN| 00001F00: 49 54 52 3A 4C 44 58 23 31 31 3B CE 4F 52 4D 41 |ITR:LDX#11;.ORMA| 00001F10: 4C 57 45 52 54 45 20 55 45 42 45 52 54 52 41 47 |LWERTE UEBERTRAG| 00001F20: 45 4E 00 49 4E 49 54 4C 3A 4C 44 41 4E 4F 52 4D |EN.INITL:LDANORM| 00001F30: 57 45 52 54 2C 58 00 53 54 41 54 58 54 41 4E 46 |WERT,X.STATXTANF| 00001F40: 2C 58 00 44 45 58 00 42 50 4C 49 4E 49 54 4C 00 |,X.DEX.BPLINITL.| 00001F50: 4A 53 52 50 55 54 52 41 4D 52 4F 3B D2 4F 55 54 |JSRPUTRAMRO;.OUT| 00001F60: 49 4E 45 4E 20 41 42 4C 45 47 45 4E 00 4A 53 52 |INEN ABLEGEN.JSR| 00001F70: 5A 47 54 45 58 54 3B 5A 47 20 41 55 46 20 D4 45 |ZGTEXT;ZG AUF .E| 00001F80: 58 54 41 4E 46 41 4E 47 00 4C 44 41 23 33 32 3B |XTANFANG.LDA#32;| 00001F90: D4 45 58 54 20 4C 4F 45 53 43 48 45 4E 00 4A 53 |.EXT LOESCHEN.JS| 00001FA0: 52 50 55 54 5A 47 00 49 4E 59 3B 4D 49 54 20 30 |RPUTZG.INY;MIT 0| 00001FB0: 30 20 30 30 20 41 42 53 43 48 4C 49 45 53 53 45 |0 00 ABSCHLIESSE| 00001FC0: 4E 00 4C 44 41 23 30 00 4A 53 52 50 55 54 5A 47 |N.LDA#0.JSRPUTZG| 00001FD0: 00 49 4E 59 00 4A 53 52 50 55 54 5A 47 00 4A 4D |.INY.JSRPUTZG.JM| 00001FE0: 50 50 4F 49 4E 54 45 52 3B D0 4F 49 4E 54 45 52 |PPOINTER;.OINTER| 00001FF0: 20 4E 45 55 20 53 45 54 5A 45 4E 00 20 00 4E 4F | NEU SETZEN. .NO| 00002000: 52 4D 57 45 52 54 3A 2E 57 4F 54 41 4E 46 3B CE |RMWERT:.WOTANF;.| 00002010: 4F 52 4D 41 4C 57 45 52 54 45 20 D4 45 58 54 00 |ORMALWERTE .EXT.| 00002020: 2E 57 4F 54 45 4E 44 00 2E 57 4F 54 41 4E 46 00 |.WOTEND..WOTANF.| 00002030: 2E 57 4F 4C 41 4E 46 3B CE 4F 52 4D 41 4C 57 45 |.WOLANF;.ORMALWE| 00002040: 52 54 45 20 41 53 53 2E 45 58 45 55 4F 4C 45 4E |RTE ASS.EXEUOLEN| 00002050: 44 00 2E 57 4F 4C 45 4E 44 00 2E 57 4F 4C 41 4E |D..WOLEND..WOLAN| 00002060: 46 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |F. .;***********| 00002070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 |************.;* | 00002090: 2A 20 20 20 20 20 20 20 20 20 D3 50 45 49 43 48 |* .PEICH| 000020A0: 45 52 47 52 45 4E 5A 45 4E 20 20 20 20 20 20 20 |ERGRENZEN | 000020B0: 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;*********| 000020C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 |**************. | 000020E0: 00 54 58 54 41 4E 5A 3A 4C 44 58 23 31 3B D4 45 |.TXTANZ:LDX#1;.E| 000020F0: 58 54 47 52 45 4E 5A 45 4E 20 44 52 55 43 4B 45 |XTGRENZEN DRUCKE| 00002100: 4E 00 4A 53 52 57 52 49 54 45 00 4C 44 41 54 58 |N.JSRWRITE.LDATX| 00002110: 54 41 4E 46 3B C1 4E 46 41 4E 47 20 41 55 53 47 |TANF;.NFANG AUSG| 00002120: 45 42 45 4E 00 4C 44 59 54 58 54 41 4E 46 2B 31 |EBEN.LDYTXTANF+1| 00002130: 00 4A 53 52 48 45 58 41 44 52 4F 55 54 00 4C 44 |.JSRHEXADROUT.LD| 00002140: 58 23 39 00 4A 53 52 57 52 49 54 45 00 4C 44 41 |X#9.JSRWRITE.LDA| 00002150: 54 58 54 45 4E 44 3B C5 4E 44 45 20 41 55 53 47 |TXTEND;.NDE AUSG| 00002160: 45 42 45 4E 00 4C 44 59 54 58 54 45 4E 44 2B 31 |EBEN.LDYTXTEND+1| 00002170: 00 4A 4D 50 48 45 58 41 44 52 4F 55 54 00 20 00 |.JMPHEXADROUT. .| 00002180: 54 58 54 46 49 4C 4C 3A 4C 44 58 23 31 30 3B D4 |TXTFILL:LDX#10;.| 00002190: 45 58 54 45 4E 44 45 20 44 52 55 43 4B 45 4E 00 |EXTENDE DRUCKEN.| 000021A0: 4A 53 52 57 52 49 54 45 00 4C 44 41 54 58 54 50 |JSRWRITE.LDATXTP| 000021B0: 4F 49 4E 54 00 4C 44 59 54 58 54 50 4F 49 4E 54 |OINT.LDYTXTPOINT| 000021C0: 2B 31 00 4A 53 52 48 45 58 41 44 52 4F 55 54 00 |+1.JSRHEXADROUT.| 000021D0: 4A 4D 50 4E 45 58 54 5A 45 49 00 20 00 4C 42 4C |JMPNEXTZEI. .LBL| 000021E0: 41 4E 5A 3A 4C 44 58 23 32 3B CC 41 42 45 4C 47 |ANZ:LDX#2;.ABELG| 000021F0: 52 45 4E 5A 45 4E 20 44 52 55 43 4B 45 4E 00 4A |RENZEN DRUCKEN.J| 00002200: 53 52 57 52 49 54 45 00 4C 44 41 4C 42 4C 41 4E |SRWRITE.LDALBLAN| 00002210: 46 3B C1 4E 46 41 4E 47 20 41 55 53 47 45 42 45 |F;.NFANG AUSGEBE| 00002220: 4E 00 4C 44 59 4C 42 4C 41 4E 46 2B 31 00 4A 53 |N.LDYLBLANF+1.JS| 00002230: 52 48 45 58 41 44 52 4F 55 54 00 4C 44 58 23 39 |RHEXADROUT.LDX#9| 00002240: 00 4A 53 52 57 52 49 54 45 00 4C 44 41 4C 42 4C |.JSRWRITE.LDALBL| 00002250: 45 4E 44 3B C5 4E 44 45 20 41 55 53 47 45 42 45 |END;.NDE AUSGEBE| 00002260: 4E 00 4C 44 59 4C 42 4C 45 4E 44 2B 31 00 4A 4D |N.LDYLBLEND+1.JM| 00002270: 50 48 45 58 41 44 52 4F 55 54 00 20 00 4C 42 4C |PHEXADROUT. .LBL| 00002280: 46 49 4C 4C 3A 4C 44 58 23 31 30 3B CC 41 42 45 |FILL:LDX#10;.ABE| 00002290: 4C 45 4E 44 45 20 44 52 55 43 4B 45 4E 00 4A 53 |LENDE DRUCKEN.JS| 000022A0: 52 57 52 49 54 45 00 4C 44 41 4C 42 4C 50 4F 49 |RWRITE.LDALBLPOI| 000022B0: 4E 54 00 4C 44 59 4C 42 4C 50 4F 49 4E 54 2B 31 |NT.LDYLBLPOINT+1| 000022C0: 00 4A 53 52 48 45 58 41 44 52 4F 55 54 00 4A 4D |.JSRHEXADROUT.JM| 000022D0: 50 4E 45 58 54 5A 45 49 00 20 00 4F 50 54 49 4F |PNEXTZEI. .OPTIO| 000022E0: 4E 3A 4A 53 52 54 58 54 41 4E 5A 3B D4 45 58 54 |N:JSRTXTANZ;.EXT| 000022F0: 42 45 52 45 49 43 48 20 45 49 4E 4C 45 53 45 4E |BEREICH EINLESEN| 00002300: 00 4A 53 52 42 45 52 45 49 43 48 00 4C 44 41 5A |.JSRBEREICH.LDAZ| 00002310: 41 48 4C 32 3B C1 4E 46 41 4E 47 20 45 49 4E 4C |AHL2;.NFANG EINL| 00002320: 45 53 45 4E 00 53 54 41 54 58 54 41 4E 46 00 4C |ESEN.STATXTANF.L| 00002330: 44 41 5A 41 48 4C 32 2B 31 00 53 54 41 54 58 54 |DAZAHL2+1.STATXT| 00002340: 41 4E 46 2B 31 00 4C 44 41 5A 41 48 4C 31 3B C5 |ANF+1.LDAZAHL1;.| 00002350: 4E 44 45 20 45 49 4E 4C 45 53 45 4E 00 53 54 41 |NDE EINLESEN.STA| 00002360: 54 58 54 45 4E 44 00 4C 44 41 5A 41 48 4C 31 2B |TXTEND.LDAZAHL1+| 00002370: 31 00 53 54 41 54 58 54 45 4E 44 2B 31 00 4A 53 |1.STATXTEND+1.JS| 00002380: 52 4E 45 58 54 5A 45 49 00 4A 53 52 4C 42 4C 41 |RNEXTZEI.JSRLBLA| 00002390: 4E 5A 00 4A 53 52 42 45 52 45 49 43 48 3B CC 41 |NZ.JSRBEREICH;.A| 000023A0: 42 45 4C 42 45 52 45 49 43 48 20 45 49 4E 4C 45 |BELBEREICH EINLE| 000023B0: 53 45 4E 00 4C 44 41 5A 41 48 4C 32 3B C1 4E 46 |SEN.LDAZAHL2;.NF| 000023C0: 41 4E 47 20 45 49 4E 4C 45 53 45 4E 00 53 54 41 |ANG EINLESEN.STA| 000023D0: 4C 42 4C 41 4E 46 00 4C 44 41 5A 41 48 4C 32 2B |LBLANF.LDAZAHL2+| 000023E0: 31 00 53 54 41 4C 42 4C 41 4E 46 2B 31 00 4C 44 |1.STALBLANF+1.LD| 000023F0: 41 5A 41 48 4C 31 3B C5 4E 44 45 20 45 49 4E 4C |AZAHL1;.NDE EINL| 00002400: 45 53 45 4E 00 53 54 41 4C 42 4C 45 4E 44 00 4C |ESEN.STALBLEND.L| 00002410: 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 4C 42 4C |DAZAHL1+1.STALBL| 00002420: 45 4E 44 2B 31 00 4A 4D 50 4D 41 49 4E 00 20 00 |END+1.JMPMAIN. .| 00002430: 42 45 52 45 49 43 48 3A 4A 53 52 45 49 4E 47 41 |BEREICH:JSREINGA| 00002440: 4E 46 3B DA 55 52 20 C1 4E 46 41 4E 47 53 50 4F |NF;.UR .NFANGSPO| 00002450: 53 49 54 49 4F 4E 00 4A 53 52 5A 41 48 4C 49 4E |SITION.JSRZAHLIN| 00002460: 3B C5 49 4E 45 20 DA 41 48 4C 20 45 49 4E 4C 45 |;.INE .AHL EINLE| 00002470: 53 45 4E 00 4C 44 41 4C 41 53 54 43 48 52 3B C6 |SEN.LDALASTCHR;.| 00002480: 4F 4C 47 54 20 27 2D 27 20 3F 00 43 4D 50 23 27 |OLGT '-' ?.CMP#'| 00002490: 2D 00 42 4E 45 42 45 52 45 52 52 3B CE 45 49 4E |-.BNEBERERR;.EIN| 000024A0: 20 2D 2D 3E 20 C6 45 48 4C 45 52 00 4C 44 41 5A | --> .EHLER.LDAZ| 000024B0: 41 48 4C 31 3B DA 41 48 4C 31 2D 3E DA 41 48 4C |AHL1;.AHL1->.AHL| 000024C0: 32 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 5A 41 |2.STAZAHL2.LDAZA| 000024D0: 48 4C 31 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 |HL1+1.STAZAHL2+1| 000024E0: 00 4A 53 52 5A 41 48 4C 49 4E 3B DA 57 45 49 54 |.JSRZAHLIN;.WEIT| 000024F0: 45 20 DA 41 48 4C 20 45 49 4E 4C 45 53 45 4E 00 |E .AHL EINLESEN.| 00002500: 4C 44 41 4C 41 53 54 43 48 52 3B C5 49 4E 47 41 |LDALASTCHR;.INGA| 00002510: 42 45 45 4E 44 45 20 3F 00 43 4D 50 23 31 33 00 |BEENDE ?.CMP#13.| 00002520: 42 4E 45 42 45 52 45 52 52 3B CE 45 49 4E 20 2D |BNEBERERR;.EIN -| 00002530: 2D 3E 20 C6 45 48 4C 45 52 00 52 54 53 3B 46 45 |-> .EHLER.RTS;FE| 00002540: 52 54 49 47 00 42 45 52 45 52 52 3A 4A 53 52 42 |RTIG.BERERR:JSRB| 00002550: 45 45 50 3B C6 45 48 4C 45 52 20 41 55 53 47 45 |EEP;.EHLER AUSGE| 00002560: 42 45 4E 00 4A 53 52 4E 45 58 54 5A 45 49 00 4C |BEN.JSRNEXTZEI.L| 00002570: 44 58 23 32 35 00 4A 53 52 57 52 49 54 45 00 4A |DX#25.JSRWRITE.J| 00002580: 4D 50 4D 41 49 4E 52 54 00 20 00 45 49 4E 47 41 |MPMAINRT. .EINGA| 00002590: 4E 46 3A 4C 44 58 23 31 31 3B 31 31 20 58 20 C3 |NF:LDX#11;11 X .| 000025A0: 55 52 53 4F 52 20 4C 49 4E 4B 53 00 4C 44 41 23 |URSOR LINKS.LDA#| 000025B0: 31 35 37 3B C3 55 52 53 4F 52 20 4C 49 4E 4B 53 |157;.URSOR LINKS| 000025C0: 00 45 49 4E 47 4C 4F 4F 50 3A 4A 53 52 42 53 4F |.EINGLOOP:JSRBSO| 000025D0: 55 54 00 44 45 58 00 42 4E 45 45 49 4E 47 4C 4F |UT.DEX.BNEEINGLO| 000025E0: 4F 50 00 52 54 53 00 20 00 3B 2A 2A 2A 2A 2A 2A |OP.RTS. .;******| 000025F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002610: 2A 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 20 C2 |*.;* * .| 00002620: 41 43 4B 20 2D 20 C2 45 46 45 48 4C 20 20 20 20 |ACK - .EFEHL | 00002630: 20 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A | * *.;****| 00002640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002660: 2A 2A 2A 00 20 00 2E 3F 4E CD CF C4 D5 CC 3B D2 |***. ..?N.....;.| 00002670: 41 4D 20 D6 45 52 53 49 4F 4E 00 42 41 43 4B 3A |AM .ERSION.BACK:| 00002680: 4A 53 52 53 55 52 45 3B C1 42 53 49 43 48 45 52 |JSRSURE;.BSICHER| 00002690: 4E 00 4A 53 52 43 4C 52 53 43 52 3B C2 49 4C 44 |N.JSRCLRSCR;.ILD| 000026A0: 20 4C 4F 45 53 43 48 45 4E 00 4A 53 52 42 41 53 | LOESCHEN.JSRBAS| 000026B0: 49 43 49 4E 49 54 3B C2 41 53 49 43 20 49 4E 49 |ICINIT;.ASIC INI| 000026C0: 54 49 41 4C 49 53 49 45 52 45 4E 00 4C 44 58 53 |TIALISIEREN.LDXS| 000026D0: 54 41 43 4B 3B DA 55 52 55 45 43 4B 20 5A 55 4D |TACK;.URUECK ZUM| 000026E0: 20 41 55 46 52 55 46 45 4E 44 45 4E 20 D0 52 4F | AUFRUFENDEN .RO| 000026F0: 47 52 41 4D 4D 00 54 58 53 3B 28 49 2E 41 2E 20 |GRAMM.TXS;(I.A. | 00002700: C2 41 53 49 43 29 00 52 54 53 00 2E 45 42 00 20 |.ASIC).RTS..EB. | 00002710: 00 2E 3F 45 CD CF C4 D5 CC 3B CD 4F 44 55 4C 56 |..?E.....;.ODULV| 00002720: 45 52 53 49 4F 4E 00 42 41 43 4B 3A 4A 4D 50 4D |ERSION.BACK:JMPM| 00002730: 41 49 4E 52 54 3B C2 45 49 20 44 45 52 20 CD 4F |AINRT;.EI DER .O| 00002740: 44 55 4C 56 45 52 53 49 4F 4E 20 49 53 54 20 45 |DULVERSION IST E| 00002750: 49 4E 20 D2 55 45 43 4B 53 50 52 55 4E 47 00 2E |IN .UECKSPRUNG..| 00002760: 45 42 3B 5A 55 20 C2 41 53 49 43 20 4E 55 52 20 |EB;ZU .ASIC NUR | 00002770: 4D 49 54 20 41 42 53 43 48 41 4C 54 42 41 52 45 |MIT ABSCHALTBARE| 00002780: 4E 20 CD 4F 44 55 4C 20 4D 4F 45 47 4C 49 43 48 |N .ODUL MOEGLICH| 00002790: 20 21 21 21 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A | !!!. .;********| 000027A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000027B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000027C0: 3B 2A 20 2A 20 20 20 20 20 20 20 20 20 C4 49 53 |;* * .IS| 000027D0: 4B 20 2D 20 C2 45 46 45 48 4C 20 20 20 20 20 20 |K - .EFEHL | 000027E0: 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A | * *.;******| 000027F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002810: 2A 00 20 00 44 42 45 46 45 48 4C 3A 4C 44 58 23 |*. .DBEFEHL:LDX#| 00002820: 38 3B C2 45 46 45 48 4C 53 54 45 58 54 00 4A 53 |8;.EFEHLSTEXT.JS| 00002830: 52 57 52 49 54 45 00 4A 53 52 53 54 52 34 30 49 |RWRITE.JSRSTR40I| 00002840: 4E 3B C2 45 46 45 48 4C 20 48 4F 4C 45 4E 00 43 |N;.EFEHL HOLEN.C| 00002850: 50 59 23 30 00 42 4E 45 2A 2B 35 00 4A 4D 50 4D |PY#0.BNE*+5.JMPM| 00002860: 41 49 4E 3B CC 45 45 52 42 45 46 45 48 4C 00 4A |AIN;.EERBEFEHL.J| 00002870: 53 52 44 49 53 4B 49 4E 49 54 3B C4 49 53 4B 20 |SRDISKINIT;.ISK | 00002880: 27 C9 27 2D C2 45 46 45 48 4C 00 4C 44 41 23 46 |'.'-.EFEHL.LDA#F| 00002890: 4C 4F 44 45 56 3B C4 49 53 4B 20 4C 49 53 54 45 |LODEV;.ISK LISTE| 000028A0: 4E 00 4A 53 52 4C 49 53 54 45 4E 00 4C 44 41 23 |N.JSRLISTEN.LDA#| 000028B0: 24 36 46 00 4A 53 52 53 45 43 4C 49 53 54 45 4E |$6F.JSRSECLISTEN| 000028C0: 00 4C 44 59 23 30 3B C2 45 46 45 48 4C 20 53 45 |.LDY#0;.EFEHL SE| 000028D0: 4E 44 45 4E 00 53 45 4E 44 42 45 46 3A 4C 44 41 |NDEN.SENDBEF:LDA| 000028E0: 42 55 46 46 45 52 2C 59 00 42 45 51 45 4E 44 53 |BUFFER,Y.BEQENDS| 000028F0: 45 4E 44 00 4A 53 52 53 45 4E 44 00 49 4E 59 00 |END.JSRSEND.INY.| 00002900: 42 4E 45 53 45 4E 44 42 45 46 00 45 4E 44 53 45 |BNESENDBEF.ENDSE| 00002910: 4E 44 3A 4A 53 52 55 4E 4C 49 53 54 45 4E 3B C4 |ND:JSRUNLISTEN;.| 00002920: 49 53 4B 20 55 4E 4C 49 53 54 45 4E 00 4A 53 52 |ISK UNLISTEN.JSR| 00002930: 4E 45 58 54 5A 45 49 00 4A 53 52 44 49 53 4B 45 |NEXTZEI.JSRDISKE| 00002940: 52 52 3B C4 49 53 4B 20 CD 45 4C 44 55 4E 47 20 |RR;.ISK .ELDUNG | 00002950: 41 55 53 47 45 42 45 4E 00 4A 53 52 44 49 53 4B |AUSGEBEN.JSRDISK| 00002960: 49 4E 49 54 00 4A 4D 50 4D 41 49 4E 52 54 00 20 |INIT.JMPMAINRT. | 00002970: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 00002980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 |*********.;* * | 000029A0: 20 20 20 20 20 20 20 D7 52 49 54 45 20 2D 20 C2 | .RITE - .| 000029B0: 45 46 45 48 4C 20 20 20 20 20 20 20 20 20 20 2A |EFEHL *| 000029C0: 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *.;************| 000029D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000029E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 57 52 |***********. .WR| 000029F0: 49 54 45 42 45 46 3A 4C 44 58 23 30 3B D4 45 58 |ITEBEF:LDX#0;.EX| 00002A00: 54 2D 3E C4 52 55 43 4B 45 52 00 53 54 58 5A 41 |T->.RUCKER.STXZA| 00002A10: 48 4C 31 2B 31 3B D6 4F 4E 20 DA 45 49 4C 45 20 |HL1+1;.ON .EILE | 00002A20: 31 00 49 4E 58 00 53 54 58 5A 41 48 4C 31 00 4C |1.INX.STXZAHL1.L| 00002A30: 44 41 5A 45 49 4C 45 4E 3B C2 49 53 20 4C 45 54 |DAZEILEN;.IS LET| 00002A40: 5A 54 45 20 DA 45 49 4C 45 00 53 54 41 5A 41 48 |ZTE .EILE.STAZAH| 00002A50: 4C 32 00 4C 44 41 5A 45 49 4C 45 4E 2B 31 00 53 |L2.LDAZEILEN+1.S| 00002A60: 54 41 5A 41 48 4C 32 2B 31 00 4A 53 52 44 4F 57 |TAZAHL2+1.JSRDOW| 00002A70: 52 49 54 45 3B C4 52 55 43 4B 45 4E 00 4A 4D 50 |RITE;.RUCKEN.JMP| 00002A80: 4D 41 49 4E 52 54 00 20 00 44 4F 57 52 49 54 45 |MAINRT. .DOWRITE| 00002A90: 3A 49 4E 43 5A 41 48 4C 32 3B C5 4E 44 5A 45 49 |:INCZAHL2;.NDZEI| 00002AA0: 4C 45 2B 31 00 42 4E 45 44 57 00 49 4E 43 5A 41 |LE+1.BNEDW.INCZA| 00002AB0: 48 4C 32 2B 31 00 44 57 3A 53 45 43 3B C1 4E 5A |HL2+1.DW:SEC;.NZ| 00002AC0: 41 48 4C 20 DA 45 49 4C 45 4E 20 2D 3E 20 DA 41 |AHL .EILEN -> .A| 00002AD0: 48 4C 32 00 4C 44 41 5A 41 48 4C 32 00 53 42 43 |HL2.LDAZAHL2.SBC| 00002AE0: 5A 41 48 4C 31 00 53 54 41 5A 41 48 4C 32 00 4C |ZAHL1.STAZAHL2.L| 00002AF0: 44 41 5A 41 48 4C 32 2B 31 00 53 42 43 5A 41 48 |DAZAHL2+1.SBCZAH| 00002B00: 4C 31 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 00 |L1+1.STAZAHL2+1.| 00002B10: 4A 53 52 5A 41 44 52 3B D3 54 41 52 41 44 52 45 |JSRZADR;.TARADRE| 00002B20: 53 53 45 20 48 4F 4C 45 4E 00 4C 44 41 23 30 3B |SSE HOLEN.LDA#0;| 00002B30: C4 52 55 43 4B 45 52 20 4C 49 53 54 45 4E 00 4A |.RUCKER LISTEN.J| 00002B40: 53 52 53 45 54 4E 41 4D 45 3B CF D0 C5 CE 20 33 |SRSETNAME;.... 3| 00002B50: 2C 34 2C 30 00 4C 44 41 23 33 00 4C 44 58 23 44 |,4,0.LDA#3.LDX#D| 00002B60: 52 55 44 45 56 00 4C 44 59 23 44 52 55 53 45 43 |RUDEV.LDY#DRUSEC| 00002B70: 00 4A 53 52 53 45 54 50 41 52 41 00 4A 53 52 4F |.JSRSETPARA.JSRO| 00002B80: 50 45 4E 00 4C 44 58 23 33 3B C1 55 53 47 41 42 |PEN.LDX#3;.USGAB| 00002B90: 45 20 41 55 46 20 C4 52 55 43 4B 45 52 00 4A 53 |E AUF .RUCKER.JS| 00002BA0: 52 43 4B 4F 55 54 00 4C 44 41 23 31 33 00 4A 53 |RCKOUT.LDA#13.JS| 00002BB0: 52 42 53 4F 55 54 00 57 54 50 3A 4A 53 52 48 4F |RBSOUT.WTP:JSRHO| 00002BC0: 4C 5A 47 3B DA 45 49 4C 45 20 2D 3E 20 45 44 42 |LZG;.EILE -> EDB| 00002BD0: 55 46 46 45 52 00 53 54 41 45 44 42 55 46 46 45 |UFFER.STAEDBUFFE| 00002BE0: 52 2C 59 00 42 45 51 4C 49 45 4E 44 00 49 4E 59 |R,Y.BEQLIEND.INY| 00002BF0: 00 42 4E 45 57 54 50 00 4C 49 45 4E 44 3A 4A 53 |.BNEWTP.LIEND:JS| 00002C00: 52 57 52 49 54 45 41 55 53 3B 45 44 42 55 46 46 |RWRITEAUS;EDBUFF| 00002C10: 45 52 20 2D 3E 20 C4 52 55 43 4B 45 52 00 4A 53 |ER -> .RUCKER.JS| 00002C20: 52 4E 45 58 54 5A 45 49 00 4A 53 52 54 45 58 54 |RNEXTZEI.JSRTEXT| 00002C30: 4C 49 4E 45 00 4A 53 52 53 54 4F 50 3F 3B D3 54 |LINE.JSRSTOP?;.T| 00002C40: 4F 50 20 D4 41 53 54 45 20 3F 00 42 45 51 57 52 |OP .ASTE ?.BEQWR| 00002C50: 49 41 42 4F 52 54 00 4C 44 41 5A 41 48 4C 32 3B |IABORT.LDAZAHL2;| 00002C60: 4E 45 49 4E 20 2D 3E 20 C1 4C 4C 45 20 DA 45 49 |NEIN -> .LLE .EI| 00002C70: 4C 45 4E 20 47 45 44 52 55 43 4B 54 20 3F 00 42 |LEN GEDRUCKT ?.B| 00002C80: 4E 45 4E 44 48 42 00 44 45 43 5A 41 48 4C 32 2B |NENDHB.DECZAHL2+| 00002C90: 31 00 4E 44 48 42 3A 44 45 43 5A 41 48 4C 32 00 |1.NDHB:DECZAHL2.| 00002CA0: 4C 44 41 5A 41 48 4C 32 00 4F 52 41 5A 41 48 4C |LDAZAHL2.ORAZAHL| 00002CB0: 32 2B 31 00 42 4E 45 57 54 50 3B CE 45 49 4E 20 |2+1.BNEWTP;.EIN | 00002CC0: 2D 3E 20 CE 45 58 54 20 DA 45 49 4C 45 00 57 52 |-> .EXT .EILE.WR| 00002CD0: 49 41 42 4F 52 54 3A 4A 4D 50 43 4C 4F 41 4C 4C |IABORT:JMPCLOALL| 00002CE0: 3B C6 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E |;.ILE SCHLIESSEN| 00002CF0: 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. .;************| 00002D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A |***********.;* *| 00002D20: 20 20 20 20 20 20 20 20 D2 55 4E 20 2D 20 C2 45 | .UN - .E| 00002D30: 46 45 48 4C 20 20 20 20 20 20 20 20 20 20 20 20 |FEHL | 00002D40: 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;**********| 00002D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 |*************. .| 00002D70: 52 55 4E 3A 4A 53 52 54 41 53 54 41 55 53 44 52 |RUN:JSRTASTAUSDR| 00002D80: 3B C1 44 52 45 53 53 45 20 48 4F 4C 45 4E 00 42 |;.DRESSE HOLEN.B| 00002D90: 4E 45 41 55 53 44 52 45 52 52 32 3B 55 4E 44 45 |NEAUSDRERR2;UNDE| 00002DA0: 46 49 4E 49 45 52 54 00 4C 44 58 23 34 00 4A 53 |FINIERT.LDX#4.JS| 00002DB0: 52 57 52 49 54 45 00 4A 53 52 50 55 54 52 55 4E |RWRITE.JSRPUTRUN| 00002DC0: 52 4F 3B D2 55 4E 20 D2 4F 55 54 49 4E 45 20 53 |RO;.UN .OUTINE S| 00002DD0: 50 45 49 43 48 45 52 4E 00 4C 44 41 5A 41 48 4C |PEICHERN.LDAZAHL| 00002DE0: 31 3B C1 44 52 45 53 53 45 20 53 50 45 49 43 48 |1;.DRESSE SPEICH| 00002DF0: 45 52 4E 00 53 54 41 4A 55 4D 50 41 44 52 00 4C |ERN.STAJUMPADR.L| 00002E00: 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 4A 55 4D |DAZAHL1+1.STAJUM| 00002E10: 50 41 44 52 2B 31 00 4A 53 52 4A 41 4E 45 49 4E |PADR+1.JSRJANEIN| 00002E20: 3B CA 20 4F 44 45 52 20 CE 20 48 4F 4C 45 4E 00 |;. ODER . HOLEN.| 00002E30: 42 4E 45 4E 4F 52 4D 52 41 4D 00 4C 44 41 23 24 |BNENORMRAM.LDA#$| 00002E40: 37 38 3B C1 4C 4C 45 53 20 41 55 46 20 D2 C1 CD |78;.LLES AUF ...| 00002E50: 20 53 43 48 41 4C 54 45 4E 00 53 54 41 44 4F 52 | SCHALTEN.STADOR| 00002E60: 55 4E 00 4C 44 41 23 24 33 34 00 53 54 41 44 4F |UN.LDA#$34.STADO| 00002E70: 52 55 4E 2B 32 00 4E 4F 52 4D 52 41 4D 3A 4C 44 |RUN+2.NORMRAM:LD| 00002E80: 41 53 54 41 43 4B 3B D3 54 41 43 4B 50 4F 49 4E |ASTACK;.TACKPOIN| 00002E90: 54 45 52 20 53 50 45 49 43 48 45 52 4E 00 53 54 |TER SPEICHERN.ST| 00002EA0: 41 4D 45 52 4B 46 45 4C 44 00 4C 44 41 46 4C 41 |AMERKFELD.LDAFLA| 00002EB0: 47 53 3B C6 4C 41 47 47 45 4E 20 53 50 45 49 43 |GS;.LAGGEN SPEIC| 00002EC0: 48 45 52 4E 00 53 54 41 4D 45 52 4B 46 45 4C 44 |HERN.STAMERKFELD| 00002ED0: 2B 31 00 4C 44 41 41 53 53 46 4C 41 47 53 00 53 |+1.LDAASSFLAGS.S| 00002EE0: 54 41 4D 45 52 4B 46 45 4C 44 2B 32 00 4C 44 41 |TAMERKFELD+2.LDA| 00002EF0: 41 53 53 46 4C 32 00 53 54 41 4D 45 52 4B 46 45 |ASSFL2.STAMERKFE| 00002F00: 4C 44 2B 33 00 4C 44 58 23 31 31 3B D3 50 45 49 |LD+3.LDX#11;.PEI| 00002F10: 43 48 45 52 47 52 45 4E 5A 45 4E 20 53 50 45 49 |CHERGRENZEN SPEI| 00002F20: 43 48 45 52 4E 00 52 45 54 54 45 4E 3A 4C 44 41 |CHERN.RETTEN:LDA| 00002F30: 54 58 54 41 4E 46 2C 58 00 53 54 41 4D 45 52 4B |TXTANF,X.STAMERK| 00002F40: 46 45 4C 44 2B 34 2C 58 00 44 45 58 00 42 50 4C |FELD+4,X.DEX.BPL| 00002F50: 52 45 54 54 45 4E 00 4A 4D 50 44 4F 52 55 4E 3B |RETTEN.JMPDORUN;| 00002F60: D2 4F 55 54 49 4E 45 20 53 54 41 52 54 45 4E 00 |.OUTINE STARTEN.| 00002F70: 52 55 4E 52 45 54 55 52 4E 3A 4C 44 41 4D 45 52 |RUNRETURN:LDAMER| 00002F80: 4B 46 45 4C 44 3B D3 54 41 43 4B 50 4F 49 4E 54 |KFELD;.TACKPOINT| 00002F90: 45 52 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 |ER ZURUECKHOLEN.| 00002FA0: 53 54 41 53 54 41 43 4B 00 4C 44 41 4D 45 52 4B |STASTACK.LDAMERK| 00002FB0: 46 45 4C 44 2B 31 3B C6 4C 41 47 47 45 4E 20 5A |FELD+1;.LAGGEN Z| 00002FC0: 55 52 55 45 43 4B 48 4F 4C 45 4E 00 53 54 41 46 |URUECKHOLEN.STAF| 00002FD0: 4C 41 47 53 00 4C 44 41 4D 45 52 4B 46 45 4C 44 |LAGS.LDAMERKFELD| 00002FE0: 2B 32 00 53 54 41 41 53 53 46 4C 41 47 53 00 4C |+2.STAASSFLAGS.L| 00002FF0: 44 41 4D 45 52 4B 46 45 4C 44 2B 33 00 53 54 41 |DAMERKFELD+3.STA| 00003000: 41 53 53 46 4C 32 00 4C 44 58 23 31 31 3B D3 50 |ASSFL2.LDX#11;.P| 00003010: 45 49 43 48 45 52 47 52 45 4E 5A 45 4E 20 5A 55 |EICHERGRENZEN ZU| 00003020: 52 55 45 43 4B 48 4F 4C 45 4E 00 48 4F 4C 45 4E |RUECKHOLEN.HOLEN| 00003030: 3A 4C 44 41 4D 45 52 4B 46 45 4C 44 2B 34 2C 58 |:LDAMERKFELD+4,X| 00003040: 00 53 54 41 54 58 54 41 4E 46 2C 58 00 44 45 58 |.STATXTANF,X.DEX| 00003050: 00 42 50 4C 48 4F 4C 45 4E 00 41 55 53 44 52 45 |.BPLHOLEN.AUSDRE| 00003060: 52 52 32 3A 4A 4D 50 4D 41 49 4E 52 54 00 20 00 |RR2:JMPMAINRT. .| 00003070: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00003080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003090: 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 |********.;* * | 000030A0: 20 20 20 20 20 20 C4 49 53 4B 20 20 C3 41 54 41 | .ISK .ATA| 000030B0: 4C 4F 47 20 20 20 20 20 20 20 20 20 20 20 2A 20 |LOG * | 000030C0: 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.;*************| 000030D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000030E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 44 49 52 |**********. .DIR| 000030F0: 3A 4C 44 58 23 37 3B C4 49 52 2D CD 41 53 4B 20 |:LDX#7;.IR-.ASK | 00003100: 48 4F 4C 45 4E 00 4A 53 52 57 52 49 54 45 00 4A |HOLEN.JSRWRITE.J| 00003110: 53 52 53 54 52 34 30 49 4E 00 4A 53 52 4E 45 58 |SRSTR40IN.JSRNEX| 00003120: 54 5A 45 49 00 4C 44 41 23 27 24 3B CD 41 53 4B |TZEI.LDA#'$;.ASK| 00003130: 20 55 4D 20 27 24 27 20 45 52 47 41 45 4E 5A 45 | UM '$' ERGAENZE| 00003140: 4E 00 53 54 41 42 55 46 46 45 52 2D 31 00 49 4E |N.STABUFFER-1.IN| 00003150: 59 00 4C 44 41 23 3C 42 55 46 46 45 52 2D 31 3B |Y.LDA#<BUFFER-1;| 00003160: CE 41 4D 45 4E 50 41 52 41 4D 45 54 45 52 20 53 |.AMENPARAMETER S| 00003170: 50 45 49 43 48 45 52 4E 00 53 54 41 46 4E 41 44 |PEICHERN.STAFNAD| 00003180: 52 00 4C 44 41 23 3E 42 55 46 46 45 52 2D 31 00 |R.LDA#>BUFFER-1.| 00003190: 53 54 41 46 4E 41 44 52 2B 31 00 53 54 59 46 4E |STAFNADR+1.STYFN| 000031A0: 4C 45 4E 00 4C 44 41 23 46 4C 4F 44 45 56 3B C6 |LEN.LDA#FLODEV;.| 000031B0: 4C 4F 50 50 59 50 41 52 41 4D 45 54 45 52 00 53 |LOPPYPARAMETER.S| 000031C0: 54 41 46 41 00 4C 44 41 23 24 36 30 00 53 54 41 |TAFA.LDA#$60.STA| 000031D0: 53 41 00 4A 53 52 53 45 4E 44 4E 41 4D 45 3B CE |SA.JSRSENDNAME;.| 000031E0: 41 4D 45 4E 20 53 45 4E 44 45 4E 00 4C 44 41 46 |AMEN SENDEN.LDAF| 000031F0: 41 3B C6 4C 4F 50 50 59 20 54 41 4C 4B 00 4A 53 |A;.LOPPY TALK.JS| 00003200: 52 54 41 4C 4B 00 4C 44 41 53 41 00 4A 53 52 53 |RTALK.LDASA.JSRS| 00003210: 45 43 54 41 4C 4B 00 4C 44 41 23 30 3B D3 54 41 |ECTALK.LDA#0;.TA| 00003220: 54 55 53 20 4C 4F 45 53 43 48 45 4E 00 53 54 41 |TUS LOESCHEN.STA| 00003230: 53 54 41 54 55 53 00 4C 44 59 23 33 3B 36 20 C2 |STATUS.LDY#3;6 .| 00003240: 59 54 45 20 55 45 42 45 52 4C 45 53 45 4E 00 44 |YTE UEBERLESEN.D| 00003250: 49 52 4C 31 3A 53 54 59 4D 45 4D 31 00 4A 53 52 |IRL1:STYMEM1.JSR| 00003260: 49 45 43 49 4E 00 53 54 41 5A 41 48 4C 31 00 4C |IECIN.STAZAHL1.L| 00003270: 44 59 53 54 41 54 55 53 00 42 4E 45 44 49 52 4C |DYSTATUS.BNEDIRL| 00003280: 34 00 4A 53 52 49 45 43 49 4E 00 4C 44 59 53 54 |4.JSRIECIN.LDYST| 00003290: 41 54 55 53 00 42 4E 45 44 49 52 4C 34 00 4C 44 |ATUS.BNEDIRL4.LD| 000032A0: 59 4D 45 4D 31 00 44 45 59 00 42 4E 45 44 49 52 |YMEM1.DEY.BNEDIR| 000032B0: 4C 31 3B 57 45 49 54 45 52 4C 45 53 45 4E 00 53 |L1;WEITERLESEN.S| 000032C0: 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 48 |TAZAHL1+1.JSRZAH| 000032D0: 4C 44 45 5A 4F 55 54 3B C6 49 4C 45 4C 45 4E 20 |LDEZOUT;.ILELEN | 000032E0: 41 55 53 47 45 42 45 4E 00 4C 44 41 23 33 32 00 |AUSGEBEN.LDA#32.| 000032F0: 4A 53 52 42 53 4F 55 54 00 44 49 52 4C 33 3A 4A |JSRBSOUT.DIRL3:J| 00003300: 53 52 49 45 43 49 4E 3B CE 41 4D 45 4E 20 41 55 |SRIECIN;.AMEN AU| 00003310: 53 47 45 42 45 4E 00 4C 44 58 53 54 41 54 55 53 |SGEBEN.LDXSTATUS| 00003320: 00 42 4E 45 44 49 52 4C 34 00 54 41 58 00 42 45 |.BNEDIRL4.TAX.BE| 00003330: 51 44 49 52 4C 32 00 4A 53 52 42 53 4F 55 54 00 |QDIRL2.JSRBSOUT.| 00003340: 4A 4D 50 44 49 52 4C 33 00 44 49 52 4C 32 3A 4C |JMPDIRL3.DIRL2:L| 00003350: 44 41 23 31 33 3B CE 45 58 54 20 C5 49 4E 54 52 |DA#13;.EXT .INTR| 00003360: 41 47 00 4A 53 52 42 53 4F 55 54 00 4C 44 59 23 |AG.JSRBSOUT.LDY#| 00003370: 32 00 42 4E 45 44 49 52 4C 31 00 44 49 52 4C 34 |2.BNEDIRL1.DIRL4| 00003380: 3A 4A 53 52 43 4C 53 46 49 4C 45 00 4A 4D 50 4D |:JSRCLSFILE.JMPM| 00003390: 41 49 4E 52 54 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A |AINRT. .;*******| 000033A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000033B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000033C0: 00 3B 2A 20 2A 20 20 20 20 20 20 20 C8 45 4C 50 |.;* * .ELP| 000033D0: 20 2D 20 D2 45 43 48 4E 45 4E 20 20 20 20 20 20 | - .ECHNEN | 000033E0: 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A | * *.;*****| 000033F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003410: 2A 2A 00 20 00 48 45 4C 50 3A 4A 53 52 54 41 53 |**. .HELP:JSRTAS| 00003420: 54 41 55 53 44 52 3B C1 44 52 45 53 53 45 20 48 |TAUSDR;.DRESSE H| 00003430: 4F 4C 45 4E 00 42 4E 45 41 55 53 44 52 45 52 52 |OLEN.BNEAUSDRERR| 00003440: 31 00 4A 53 52 5A 41 48 4C 44 45 5A 4F 55 54 3B |1.JSRZAHLDEZOUT;| 00003450: C4 45 5A 2E 20 41 55 53 47 45 42 45 4E 00 4C 44 |.EZ. AUSGEBEN.LD| 00003460: 41 23 33 32 00 4A 53 52 42 53 4F 55 54 00 4C 44 |A#32.JSRBSOUT.LD| 00003470: 41 23 27 24 3B C8 45 58 2E 20 41 55 53 47 45 42 |A#'$;.EX. AUSGEB| 00003480: 45 4E 00 4A 53 52 42 53 4F 55 54 00 4A 53 52 5A |EN.JSRBSOUT.JSRZ| 00003490: 41 48 4C 48 45 58 4F 55 54 00 4C 44 41 23 33 32 |AHLHEXOUT.LDA#32| 000034A0: 00 4A 53 52 42 53 4F 55 54 00 4C 44 41 23 27 26 |.JSRBSOUT.LDA#'&| 000034B0: 3B CF 43 54 2E 20 41 55 53 47 45 42 45 4E 00 4A |;.CT. AUSGEBEN.J| 000034C0: 53 52 42 53 4F 55 54 00 4A 53 52 5A 41 48 4C 4F |SRBSOUT.JSRZAHLO| 000034D0: 43 54 4F 55 54 00 4C 44 41 23 33 32 00 4A 53 52 |CTOUT.LDA#32.JSR| 000034E0: 42 53 4F 55 54 00 4C 44 41 23 27 25 3B C2 49 4E |BSOUT.LDA#'%;.IN| 000034F0: 2E 20 41 55 53 47 45 42 45 4E 00 4A 53 52 42 53 |. AUSGEBEN.JSRBS| 00003500: 4F 55 54 00 4A 53 52 5A 41 48 4C 42 49 4E 4F 55 |OUT.JSRZAHLBINOU| 00003510: 54 00 41 55 53 44 52 45 52 52 31 3A 4A 4D 50 4D |T.AUSDRERR1:JMPM| 00003520: 41 49 4E 52 54 00 20 00 54 41 53 54 41 55 53 44 |AINRT. .TASTAUSD| 00003530: 52 3A 4A 53 52 4E 45 58 54 5A 45 49 3B 45 49 4E |R:JSRNEXTZEI;EIN| 00003540: 45 4E 20 CF 50 45 52 41 4E 44 45 4E 20 45 49 4E |EN .PERANDEN EIN| 00003550: 4C 45 53 45 4E 00 4A 53 52 50 55 54 52 4F 32 3B |LESEN.JSRPUTRO2;| 00003560: C1 53 53 45 4D 42 4C 45 52 20 D2 4F 55 54 49 4E |.SSEMBLER .OUTIN| 00003570: 45 4E 20 53 50 45 49 43 48 45 52 4E 00 4C 44 58 |EN SPEICHERN.LDX| 00003580: 23 35 00 4A 53 52 57 52 49 54 45 00 4C 44 58 23 |#5.JSRWRITE.LDX#| 00003590: 30 3B C1 55 53 44 52 55 43 4B 20 2D 3E 20 CF 50 |0;.USDRUCK -> .P| 000035A0: 45 52 41 4E 44 00 41 52 47 45 49 4E 47 3A 4A 53 |ERAND.ARGEING:JS| 000035B0: 52 42 41 53 49 4E 00 53 54 41 4F 50 45 52 41 4E |RBASIN.STAOPERAN| 000035C0: 44 2C 58 00 49 4E 58 00 43 4D 50 23 31 33 00 42 |D,X.INX.CMP#13.B| 000035D0: 4E 45 41 52 47 45 49 4E 47 00 44 45 58 00 42 45 |NEARGEING.DEX.BE| 000035E0: 51 4C 45 45 52 5A 3B CC 45 45 52 5A 45 49 4C 45 |QLEERZ;.EERZEILE| 000035F0: 20 47 45 4C 45 53 45 4E 00 4C 44 41 46 45 48 4C | GELESEN.LDAFEHL| 00003600: 45 52 3B C6 45 48 4C 45 52 20 41 55 46 20 30 00 |ER;.EHLER AUF 0.| 00003610: 50 48 41 00 4C 44 41 23 30 00 53 54 41 46 45 48 |PHA.LDA#0.STAFEH| 00003620: 4C 45 52 00 53 54 41 4F 50 45 52 41 4E 44 2C 58 |LER.STAOPERAND,X| 00003630: 00 4C 44 41 41 53 53 46 4C 41 47 53 3B D0 41 53 |.LDAASSFLAGS;.AS| 00003640: 53 32 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 4F |S2 EINSCHALTEN.O| 00003650: 52 41 23 25 31 30 30 30 31 31 30 30 00 53 54 41 |RA#%10001100.STA| 00003660: 41 53 53 46 4C 41 47 53 00 4A 53 52 41 55 53 44 |ASSFLAGS.JSRAUSD| 00003670: 52 55 43 4B 3B CF 50 45 52 41 4E 44 20 41 55 53 |RUCK;.PERAND AUS| 00003680: 57 45 52 54 45 4E 00 4C 44 41 46 45 48 4C 45 52 |WERTEN.LDAFEHLER| 00003690: 3B C6 45 48 4C 45 52 46 4C 41 47 00 53 54 41 5A |;.EHLERFLAG.STAZ| 000036A0: 41 48 4C 32 00 50 4C 41 00 53 54 41 46 45 48 4C |AHL2.PLA.STAFEHL| 000036B0: 45 52 00 4C 44 41 41 53 53 46 4C 41 47 53 3B D0 |ER.LDAASSFLAGS;.| 000036C0: 41 53 53 32 20 41 55 53 53 43 48 41 4C 54 45 4E |ASS2 AUSSCHALTEN| 000036D0: 00 41 4E 44 23 25 30 31 31 31 30 30 31 31 00 53 |.AND#%01110011.S| 000036E0: 54 41 41 53 53 46 4C 41 47 53 00 4A 53 52 4E 45 |TAASSFLAGS.JSRNE| 000036F0: 58 54 5A 45 49 00 4C 44 41 5A 41 48 4C 32 00 52 |XTZEI.LDAZAHL2.R| 00003700: 54 53 00 4C 45 45 52 5A 3A 4C 44 41 23 31 3B CC |TS.LEERZ:LDA#1;.| 00003710: 45 45 52 5A 45 49 4C 45 20 47 45 4C 45 53 45 4E |EERZEILE GELESEN| 00003720: 00 52 54 53 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |.RTS. .;********| 00003730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00003750: 3B 2A 20 2A 20 20 20 20 20 20 20 D3 59 53 54 45 |;* * .YSTE| 00003760: 4D 52 4F 55 54 49 4E 45 4E 20 20 20 20 20 20 20 |MROUTINEN | 00003770: 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A | * *.;******| 00003780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000037A0: 2A 00 20 00 53 54 4F 50 3F 3A 43 4C 49 3B D3 54 |*. .STOP?:CLI;.T| 000037B0: 4F 50 20 41 42 46 52 41 47 45 4E 00 4A 53 52 54 |OP ABFRAGEN.JSRT| 000037C0: 41 53 54 41 54 55 52 00 4C 44 41 53 54 54 41 53 |ASTATUR.LDASTTAS| 000037D0: 54 3B D3 C8 C9 C6 D4 2D D4 41 53 54 45 20 3F 00 |T;.....-.ASTE ?.| 000037E0: 41 4E 44 23 31 00 42 4E 45 57 41 49 54 3B 4A 41 |AND#1.BNEWAIT;JA| 000037F0: 00 4A 53 52 53 54 4F 50 54 41 53 54 3B D3 D4 CF |.JSRSTOPTAST;...| 00003800: D0 2D D4 41 53 54 45 20 3F 00 50 52 45 53 53 3A |.-.ASTE ?.PRESS:| 00003810: 53 45 49 00 52 54 53 00 57 41 49 54 3A 4C 44 41 |SEI.RTS.WAIT:LDA| 00003820: 53 54 54 41 53 54 3B 57 41 52 54 45 4E 00 41 4E |STTAST;WARTEN.AN| 00003830: 44 23 32 2B 34 3B D3 C8 C9 C6 D4 20 55 2E 20 C3 |D#2+4;..... U. .| 00003840: 3D 20 D4 41 53 54 45 4E 00 42 4E 45 53 54 4F 50 |= .ASTEN.BNESTOP| 00003850: 3F 00 4A 53 52 53 54 4F 50 54 41 53 54 3B D3 54 |?.JSRSTOPTAST;.T| 00003860: 4F 50 20 3F 00 42 4E 45 57 41 49 54 3B 20 CE 45 |OP ?.BNEWAIT; .E| 00003870: 49 4E 20 2D 3E 20 57 41 52 54 45 4E 00 42 45 51 |IN -> WARTEN.BEQ| 00003880: 50 52 45 53 53 00 20 00 42 41 53 49 4E 3A 4C 44 |PRESS. .BASIN:LD| 00003890: 41 41 53 53 46 4C 41 47 53 3B D1 55 45 4C 4C 45 |AASSFLAGS;.UELLE| 000038A0: 20 D2 C1 CD 20 3F 00 41 4E 44 23 34 00 42 4E 45 | ... ?.AND#4.BNE| 000038B0: 50 53 45 55 49 4E 3B CA 41 00 43 4C 49 00 4A 53 |PSEUIN;.A.CLI.JS| 000038C0: 52 42 41 53 49 4E 52 3B C5 49 4E 20 DA 45 49 43 |RBASINR;.IN .EIC| 000038D0: 48 45 4E 20 48 4F 4C 45 4E 00 53 54 41 4C 41 53 |HEN HOLEN.STALAS| 000038E0: 54 43 48 52 3B 4D 45 52 4B 45 4E 00 53 45 49 00 |TCHR;MERKEN.SEI.| 000038F0: 52 54 53 00 50 53 45 55 49 4E 3A 4C 44 41 4F 50 |RTS.PSEUIN:LDAOP| 00003900: 45 52 41 4E 44 2C 59 3B C5 49 4E 20 DA 45 49 43 |ERAND,Y;.IN .EIC| 00003910: 48 45 4E 20 41 55 53 20 D2 C1 CD 00 49 4E 59 00 |HEN AUS ....INY.| 00003920: 53 54 41 4C 41 53 54 43 48 52 3B 4D 45 52 4B 45 |STALASTCHR;MERKE| 00003930: 4E 00 52 54 53 00 20 00 42 53 4F 55 54 3A 50 48 |N.RTS. .BSOUT:PH| 00003940: 41 3B C5 49 4E 20 DA 45 49 43 48 45 4E 20 41 55 |A;.IN .EICHEN AU| 00003950: 53 47 45 42 45 4E 00 49 4E 43 50 4F 53 3B D0 4F |SGEBEN.INCPOS;.O| 00003960: 53 2B 31 20 28 D4 41 42 55 4C 41 54 4F 52 29 00 |S+1 (.ABULATOR).| 00003970: 43 4D 50 23 31 33 3B CE 45 55 45 20 DA 45 49 4C |CMP#13;.EUE .EIL| 00003980: 45 20 2D 3E 20 D0 4F 53 3D 30 00 42 4E 45 42 53 |E -> .OS=0.BNEBS| 00003990: 4F 55 54 32 00 4C 44 41 23 30 3B D0 4F 53 3D 30 |OUT2.LDA#0;.OS=0| 000039A0: 00 53 54 41 50 4F 53 00 42 53 4F 55 54 32 3A 4C |.STAPOS.BSOUT2:L| 000039B0: 44 41 46 4C 41 47 53 3B D0 52 49 4E 54 45 52 20 |DAFLAGS;.RINTER | 000039C0: 4F 4E 20 3F 00 41 4E 44 23 38 00 42 45 51 42 53 |ON ?.AND#8.BEQBS| 000039D0: 4F 55 54 33 3B CE 45 49 4E 00 4C 44 41 41 53 53 |OUT3;.EIN.LDAASS| 000039E0: 46 4C 41 47 53 3B C1 53 53 45 4D 42 4C 45 52 20 |FLAGS;.SSEMBLER | 000039F0: 4F 4E 20 3F 00 41 4E 44 23 34 00 42 4E 45 42 53 |ON ?.AND#4.BNEBS| 00003A00: 4F 55 54 34 3B CA 41 00 4C 44 41 41 53 53 46 4C |OUT4;.A.LDAASSFL| 00003A10: 32 3B CD 4F 4E 49 54 4F 52 20 4F 4E 20 3F 00 41 |2;.ONITOR ON ?.A| 00003A20: 4E 44 23 32 00 42 45 51 42 53 4F 55 54 33 3B CE |ND#2.BEQBSOUT3;.| 00003A30: 45 49 4E 00 42 53 4F 55 54 34 3A 54 58 41 3B C1 |EIN.BSOUT4:TXA;.| 00003A40: 55 46 20 C4 52 55 43 4B 45 52 20 47 45 42 45 4E |UF .RUCKER GEBEN| 00003A50: 00 50 48 41 00 4C 44 58 23 33 00 4A 53 52 43 4B |.PHA.LDX#3.JSRCK| 00003A60: 4F 55 54 00 50 4C 41 00 54 41 58 00 42 53 4F 55 |OUT.PLA.TAX.BSOU| 00003A70: 54 33 3A 50 4C 41 3B CE 4F 52 4D 41 4C 20 41 55 |T3:PLA;.ORMAL AU| 00003A80: 53 47 45 42 45 4E 00 4A 53 52 42 53 4F 55 54 52 |SGEBEN.JSRBSOUTR| 00003A90: 00 53 45 49 00 52 54 53 00 20 00 54 4F 47 44 52 |.SEI.RTS. .TOGDR| 00003AA0: 55 3A 4C 44 41 23 38 3B C4 52 55 43 4B 45 52 46 |U:LDA#8;.RUCKERF| 00003AB0: 4C 41 47 20 55 4D 44 52 45 48 45 4E 00 45 4F 52 |LAG UMDREHEN.EOR| 00003AC0: 46 4C 41 47 53 00 53 54 41 46 4C 41 47 53 00 4A |FLAGS.STAFLAGS.J| 00003AD0: 4D 50 4D 41 49 4E 00 20 00 53 43 52 41 4E 5A 3A |MPMAIN. .SCRANZ:| 00003AE0: 50 48 41 3B DA 45 49 43 48 45 4E 20 41 4E 5A 45 |PHA;.EICHEN ANZE| 00003AF0: 49 47 45 4E 00 43 4D 50 23 32 30 3B 44 45 4C 3B |IGEN.CMP#20;DEL;| 00003B00: 45 49 4E 53 43 48 4C 2E 20 D3 54 45 55 45 52 43 |EINSCHL. .TEUERC| 00003B10: 4F 44 45 53 00 42 4E 45 2A 2B 34 00 49 4E 43 49 |ODES.BNE*+4.INCI| 00003B20: 4E 53 45 52 54 53 3B C2 45 49 20 C4 45 4C 20 45 |NSERTS;.EI .EL E| 00003B30: 49 4E 20 C9 4E 53 45 52 54 20 45 52 5A 45 55 47 |IN .NSERT ERZEUG| 00003B40: 45 4E 00 4C 44 41 23 31 3B C8 4F 43 48 4B 4F 4D |EN.LDA#1;.OCHKOM| 00003B50: 4D 41 20 53 49 4D 55 4C 49 45 52 45 4E 00 53 54 |MA SIMULIEREN.ST| 00003B60: 41 51 55 4F 54 45 00 50 4C 41 00 50 48 41 00 4A |AQUOTE.PLA.PHA.J| 00003B70: 53 52 53 43 52 41 55 53 3B C1 55 53 47 45 42 45 |SRSCRAUS;.USGEBE| 00003B80: 4E 00 4C 44 41 23 30 3B C6 4C 41 47 20 52 45 53 |N.LDA#0;.LAG RES| 00003B90: 45 54 00 53 54 41 51 55 4F 54 45 00 50 4C 41 00 |ET.STAQUOTE.PLA.| 00003BA0: 53 45 49 00 52 54 53 00 20 00 50 55 53 43 48 3A |SEI.RTS. .PUSCH:| 00003BB0: 50 48 50 3B C1 4C 4C 45 20 D2 45 47 49 53 54 45 |PHP;.LLE .EGISTE| 00003BC0: 52 20 41 55 46 20 D3 54 41 43 4B 00 53 54 41 4D |R AUF .TACK.STAM| 00003BD0: 45 4D 31 3B C1 43 43 55 2D 3E 4D 45 4D 31 00 50 |EM1;.CCU->MEM1.P| 00003BE0: 4C 41 3B D3 54 41 54 55 53 2D 3E 4D 45 4D 32 00 |LA;.TATUS->MEM2.| 00003BF0: 53 54 41 4D 45 4D 32 00 50 4C 41 3B D2 55 45 43 |STAMEM2.PLA;.UEC| 00003C00: 4B 53 50 52 55 4E 47 41 44 52 2E 20 4E 41 43 48 |KSPRUNGADR. NACH| 00003C10: 20 4D 45 4D 33 2F 34 00 53 54 41 4D 45 4D 33 00 | MEM3/4.STAMEM3.| 00003C20: 50 4C 41 00 53 54 41 4D 45 4D 34 00 4C 44 41 4D |PLA.STAMEM4.LDAM| 00003C30: 45 4D 32 3B 53 54 41 54 55 53 2D 3E D3 54 41 43 |EM2;STATUS->.TAC| 00003C40: 4B 00 50 48 41 00 4C 44 41 4D 45 4D 31 3B C1 43 |K.PHA.LDAMEM1;.C| 00003C50: 43 55 2D 3E D3 54 41 43 4B 00 50 48 41 00 54 58 |CU->.TACK.PHA.TX| 00003C60: 41 3B D8 2D 3E D3 54 41 43 4B 00 50 48 41 00 54 |A;.->.TACK.PHA.T| 00003C70: 59 41 3B D9 2D 3E D3 54 41 43 4B 00 50 48 41 00 |YA;.->.TACK.PHA.| 00003C80: 4C 44 41 4D 45 4D 34 3B D2 55 45 43 4B 53 50 52 |LDAMEM4;.UECKSPR| 00003C90: 55 4E 47 2D 3E D3 54 41 43 4B 00 50 48 41 00 4C |UNG->.TACK.PHA.L| 00003CA0: 44 41 4D 45 4D 33 00 50 48 41 00 4C 44 41 4D 45 |DAMEM3.PHA.LDAME| 00003CB0: 4D 31 00 52 54 53 3B 5A 55 52 55 45 43 4B 00 20 |M1.RTS;ZURUECK. | 00003CC0: 00 50 55 4C 4C 3A 50 4C 41 3B D2 45 47 49 53 54 |.PULL:PLA;.EGIST| 00003CD0: 45 52 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 |ER ZURUECKHOLEN.| 00003CE0: 54 41 59 00 50 4C 41 00 54 41 58 00 50 4C 41 00 |TAY.PLA.TAX.PLA.| 00003CF0: 50 4C 50 00 53 45 49 00 52 54 53 00 20 00 47 45 |PLP.SEI.RTS. .GE| 00003D00: 54 3A 43 4C 49 3B C7 C5 D4 2D C2 45 46 45 48 4C |T:CLI;...-.EFEHL| 00003D10: 00 4C 44 41 46 4C 41 47 53 3B D1 55 4F 54 45 20 |.LDAFLAGS;.UOTE | 00003D20: CD 4F 44 55 53 20 3F 00 41 4E 44 23 36 34 00 42 |.ODUS ?.AND#64.B| 00003D30: 4E 45 47 45 54 41 4C 4C 3B CA 41 00 47 45 54 4E |NEGETALL;.A.GETN| 00003D40: 4F 52 3A 4C 44 41 53 54 54 41 53 54 3B C3 D4 D2 |OR:LDASTTAST;...| 00003D50: CC 2D D4 41 53 54 45 00 41 4E 44 23 34 00 42 4E |.-.ASTE.AND#4.BN| 00003D60: 45 4E 4F 47 45 54 00 4A 53 52 47 45 54 52 3B D4 |ENOGET.JSRGETR;.| 00003D70: 41 53 54 45 20 48 4F 4C 45 4E 00 42 45 51 47 45 |ASTE HOLEN.BEQGE| 00003D80: 54 4E 4F 52 00 4E 4F 47 45 54 3A 53 45 49 00 52 |TNOR.NOGET:SEI.R| 00003D90: 54 53 00 47 45 54 41 4C 4C 3A 4A 53 52 47 45 54 |TS.GETALL:JSRGET| 00003DA0: 52 3B D4 41 53 54 45 20 48 4F 4C 45 4E 00 42 45 |R;.ASTE HOLEN.BE| 00003DB0: 51 47 45 54 41 4C 4C 00 53 45 49 00 52 54 53 00 |QGETALL.SEI.RTS.| 00003DC0: 20 00 4E 45 58 54 5A 45 49 3A 4A 53 52 50 55 53 | .NEXTZEI:JSRPUS| 00003DD0: 43 48 3B D2 45 54 55 52 4E 20 41 55 53 47 45 42 |CH;.ETURN AUSGEB| 00003DE0: 45 4E 00 4C 44 41 23 31 33 00 4A 53 52 42 53 4F |EN.LDA#13.JSRBSO| 00003DF0: 55 54 00 4A 4D 50 50 55 4C 4C 00 20 00 53 55 52 |UT.JMPPULL. .SUR| 00003E00: 45 3A 4A 53 52 50 55 53 43 48 3B C1 42 53 49 43 |E:JSRPUSCH;.BSIC| 00003E10: 48 45 52 4E 00 4C 44 58 23 33 00 4A 53 52 57 52 |HERN.LDX#3.JSRWR| 00003E20: 49 54 45 00 4A 53 52 4A 41 4E 45 49 4E 3B CA 20 |ITE.JSRJANEIN;. | 00003E30: 4F 44 45 52 20 CE 20 45 49 4E 4C 45 53 45 4E 00 |ODER . EINLESEN.| 00003E40: 42 45 51 4A 41 00 4A 4D 50 4D 41 49 4E 3B CE 45 |BEQJA.JMPMAIN;.E| 00003E50: 49 4E 00 4A 41 3A 4A 4D 50 50 55 4C 4C 3B CA 41 |IN.JA:JMPPULL;.A| 00003E60: 00 20 00 4A 41 4E 45 49 4E 3A 4A 53 52 47 45 54 |. .JANEIN:JSRGET| 00003E70: 3B CA 20 4F 44 45 52 20 CE 20 48 4F 4C 45 4E 00 |;. ODER . HOLEN.| 00003E80: 43 4D 50 23 27 4A 00 42 45 51 4A 41 4E 52 54 3B |CMP#'J.BEQJANRT;| 00003E90: CA 20 47 45 4C 45 53 45 4E 00 43 4D 50 23 27 4E |. GELESEN.CMP#'N| 00003EA0: 00 42 4E 45 4A 41 4E 45 49 4E 3B C6 41 4C 53 43 |.BNEJANEIN;.ALSC| 00003EB0: 48 45 52 20 C2 55 43 48 53 54 41 42 45 00 43 4D |HER .UCHSTABE.CM| 00003EC0: 50 23 27 4A 00 4A 41 4E 52 54 3A 52 54 53 00 20 |P#'J.JANRT:RTS. | 00003ED0: 00 48 45 58 41 44 52 4F 55 54 3A 53 54 41 5A 41 |.HEXADROUT:STAZA| 00003EE0: 48 4C 31 3B C1 2F D9 20 C8 45 58 2E 20 41 55 53 |HL1;./. .EX. AUS| 00003EF0: 47 45 42 45 4E 00 53 54 59 5A 41 48 4C 31 2B 31 |GEBEN.STYZAHL1+1| 00003F00: 00 4A 4D 50 5A 41 48 4C 48 45 58 4F 55 54 00 20 |.JMPZAHLHEXOUT. | 00003F10: 00 53 54 52 34 30 49 4E 3A 4C 44 41 23 34 31 3B |.STR40IN:LDA#41;| 00003F20: D3 54 52 49 4E 47 20 4D 49 54 20 4D 41 58 2E 20 |.TRING MIT MAX. | 00003F30: 34 30 20 DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E |40 .EICHEN HOLEN| 00003F40: 00 2E 42 59 24 32 43 00 53 54 52 31 36 49 4E 3A |..BY$2C.STR16IN:| 00003F50: 4C 44 41 23 31 37 3B D3 54 52 49 4E 47 20 4D 49 |LDA#17;.TRING MI| 00003F60: 54 20 4D 41 58 2E 20 31 36 20 DA 45 49 43 48 45 |T MAX. 16 .EICHE| 00003F70: 4E 20 48 4F 4C 45 4E 00 53 54 41 4D 45 4D 31 00 |N HOLEN.STAMEM1.| 00003F80: 4C 44 59 23 30 3B 53 54 52 49 4E 47 2D 3E 42 55 |LDY#0;STRING->BU| 00003F90: 46 46 45 52 00 53 54 52 49 4E 3A 4A 53 52 42 41 |FFER.STRIN:JSRBA| 00003FA0: 53 49 4E 3B 4C 45 4E 2D 3E D9 00 53 54 41 42 55 |SIN;LEN->..STABU| 00003FB0: 46 46 45 52 2C 59 00 43 4D 50 23 31 33 00 42 45 |FFER,Y.CMP#13.BE| 00003FC0: 51 45 4E 44 53 54 52 00 49 4E 59 00 43 50 59 4D |QENDSTR.INY.CPYM| 00003FD0: 45 4D 31 3B 4D 41 58 2E 20 CC 41 45 4E 47 45 20 |EM1;MAX. .AENGE | 00003FE0: 55 45 42 45 52 53 43 48 52 49 54 54 45 4E 20 3F |UEBERSCHRITTEN ?| 00003FF0: 00 42 4E 45 53 54 52 49 4E 3B CE 45 49 4E 00 4A |.BNESTRIN;.EIN.J| 00004000: 53 52 4E 45 58 54 5A 45 49 00 4C 44 58 23 31 31 |SRNEXTZEI.LDX#11| 00004010: 3B C6 45 48 4C 45 52 20 4D 45 4C 44 45 4E 00 4A |;.EHLER MELDEN.J| 00004020: 53 52 42 45 45 50 00 4A 53 52 57 52 49 54 45 00 |SRBEEP.JSRWRITE.| 00004030: 4A 4D 50 4D 41 49 4E 52 54 00 45 4E 44 53 54 52 |JMPMAINRT.ENDSTR| 00004040: 3A 4C 44 41 23 30 3B 4D 49 54 20 30 20 41 42 53 |:LDA#0;MIT 0 ABS| 00004050: 43 48 4C 49 45 53 53 45 4E 00 53 54 41 42 55 46 |CHLIESSEN.STABUF| 00004060: 46 45 52 2C 59 00 52 54 53 00 20 00 44 49 53 4B |FER,Y.RTS. .DISK| 00004070: 49 4E 49 54 3A 4A 53 52 50 55 53 43 48 3B C4 49 |INIT:JSRPUSCH;.I| 00004080: 53 4B 20 27 C9 27 20 C2 45 46 45 48 4C 00 4C 44 |SK '.' .EFEHL.LD| 00004090: 41 23 46 4C 4F 44 45 56 3B C6 4C 4F 50 50 59 20 |A#FLODEV;.LOPPY | 000040A0: 4C 49 53 54 45 4E 00 4A 53 52 4C 49 53 54 45 4E |LISTEN.JSRLISTEN| 000040B0: 00 4C 44 41 23 24 36 46 00 4A 53 52 53 45 43 4C |.LDA#$6F.JSRSECL| 000040C0: 49 53 54 45 4E 00 4C 44 41 23 27 49 3B 27 C9 30 |ISTEN.LDA#'I;'.0| 000040D0: 27 20 53 45 4E 44 45 4E 20 20 20 20 20 20 20 20 |' SENDEN | 000040E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000040F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004110: 20 20 20 20 20 00 4A 53 52 53 45 4E 44 00 4C 44 | .JSRSEND.LD| 00004120: 41 23 27 30 00 4A 53 52 53 45 4E 44 00 4A 53 52 |A#'0.JSRSEND.JSR| 00004130: 55 4E 4C 49 53 54 45 4E 3B C6 4C 4F 50 50 59 20 |UNLISTEN;.LOPPY | 00004140: 55 4E 4C 49 53 54 45 4E 00 4A 53 52 44 49 53 4B |UNLISTEN.JSRDISK| 00004150: 45 52 52 3F 3B C6 45 48 4C 45 52 20 41 55 53 47 |ERR?;.EHLER AUSG| 00004160: 45 42 45 4E 00 4A 4D 50 50 55 4C 4C 00 20 00 44 |EBEN.JMPPULL. .D| 00004170: 49 53 4B 45 52 52 3F 3A 4C 44 41 23 46 4C 4F 44 |ISKERR?:LDA#FLOD| 00004180: 45 56 3B C4 49 53 4B 20 54 41 4C 4B 00 4A 53 52 |EV;.ISK TALK.JSR| 00004190: 54 41 4C 4B 00 4C 44 41 23 24 36 46 00 4A 53 52 |TALK.LDA#$6F.JSR| 000041A0: 53 45 43 54 41 4C 4B 00 4A 53 52 49 45 43 49 4E |SECTALK.JSRIECIN| 000041B0: 3B C6 45 48 4C 45 52 4B 41 4E 41 4C 20 4C 45 53 |;.EHLERKANAL LES| 000041C0: 45 4E 00 43 4D 50 23 27 30 00 42 4E 45 44 49 53 |EN.CMP#'0.BNEDIS| 000041D0: 4B 45 52 52 21 3B 3C 3E 30 2D 3E C6 45 48 4C 45 |KERR!;<>0->.EHLE| 000041E0: 52 00 52 45 41 44 3A 4A 53 52 49 45 43 49 4E 3B |R.READ:JSRIECIN;| 000041F0: CD 45 4C 44 55 4E 47 20 55 45 42 45 52 4C 45 53 |.ELDUNG UEBERLES| 00004200: 45 4E 00 43 4D 50 23 31 33 00 42 4E 45 52 45 41 |EN.CMP#13.BNEREA| 00004210: 44 00 54 4F 55 4E 54 41 4C 4B 3A 4A 53 52 55 4E |D.TOUNTALK:JSRUN| 00004220: 54 41 4C 4B 3B C4 49 53 4B 20 55 4E 54 41 4C 4B |TALK;.ISK UNTALK| 00004230: 00 53 45 49 00 52 54 53 00 20 00 44 49 53 4B 45 |.SEI.RTS. .DISKE| 00004240: 52 52 3A 4A 53 52 43 4C 4F 41 4C 4C 3B C6 45 48 |RR:JSRCLOALL;.EH| 00004250: 4C 45 52 4B 41 4E 41 4C 20 41 55 53 47 45 42 45 |LERKANAL AUSGEBE| 00004260: 4E 00 4C 44 41 23 46 4C 4F 44 45 56 00 4A 53 52 |N.LDA#FLODEV.JSR| 00004270: 54 41 4C 4B 00 4C 44 41 23 24 36 46 00 4A 53 52 |TALK.LDA#$6F.JSR| 00004280: 53 45 43 54 41 4C 4B 00 44 45 52 52 3A 4A 53 52 |SECTALK.DERR:JSR| 00004290: 49 45 43 49 4E 3B D3 54 52 49 4E 47 20 41 55 53 |IECIN;.TRING AUS| 000042A0: 47 45 42 45 4E 00 44 49 53 4B 45 52 52 21 3A 4A |GEBEN.DISKERR!:J| 000042B0: 53 52 42 53 4F 55 54 00 43 4D 50 23 31 33 00 42 |SRBSOUT.CMP#13.B| 000042C0: 4E 45 44 45 52 52 00 4A 4D 50 54 4F 55 4E 54 41 |NEDERR.JMPTOUNTA| 000042D0: 4C 4B 00 20 00 44 49 45 52 52 3A 4A 53 52 4E 45 |LK. .DIERR:JSRNE| 000042E0: 58 54 5A 45 49 3B C6 45 48 4C 45 52 4B 41 4E 41 |XTZEI;.EHLERKANA| 000042F0: 4C 20 41 55 53 47 45 42 45 4E 00 4A 53 52 44 49 |L AUSGEBEN.JSRDI| 00004300: 53 4B 45 52 52 00 4A 4D 50 4D 41 49 4E 52 54 00 |SKERR.JMPMAINRT.| 00004310: 20 00 5A 41 48 4C 54 4F 4D 45 4D 3A 4A 53 52 50 | .ZAHLTOMEM:JSRP| 00004320: 55 53 43 48 3B 5A 41 48 4C 31 2F 32 20 2D 3E 20 |USCH;ZAHL1/2 -> | 00004330: 4D 45 4D 31 2F 32 00 4C 44 58 23 33 00 5A 54 4D |MEM1/2.LDX#3.ZTM| 00004340: 3A 4C 44 41 5A 41 48 4C 31 2C 58 00 53 54 41 4D |:LDAZAHL1,X.STAM| 00004350: 45 4D 31 2C 58 00 44 45 58 00 42 50 4C 5A 54 4D |EM1,X.DEX.BPLZTM| 00004360: 00 4A 4D 50 50 55 4C 4C 00 20 00 2E 46 49 22 4D |.JMPPULL. ..FI"M| 00004370: 41 49 4E 22 3B 57 45 49 54 45 52 20 49 4D 20 46 |AIN";WEITER IM F| 00004380: 49 4C 45 20 4D 41 49 4E 00 00 FF |ILE MAIN... |
.C;;;--- QUELLDATEI ASS.SRC. ..WA;FEHLER
ABFANGEN. .;***************************
************.;*** EDITOR - ASSEMB
LER ***.;*** FUER C64 + FLOPPY +
DRUCKER ***.;*** (C) MANFRED FRIESE
VERSION:B ***.;***********************
****************. ..BE1;TON AUSGEBEN. .M
ODUL:.IN"..MODUL=0 RAM=1 1.". ..OC;KEINE
AUSGABE IN DEN SPEICHER. ..?EMODUL-1;RA
MVERSION..BA$801;STARTADRESSE..EB. ..?EM
ODUL;MODULVERSION..BA$8000;STARTADRESSE.
.EB. .DISK:.IN"AUF DISK AUSGEBEN? (J=1)
0."..?NDISK..OU"@0:ASS.EXE";AUSGABE AUF
DISKFILE ASS.EXE..EB. ..?EMODUL-1;RAM ST
ART..BY11,8,<1985,>1985,158,"2061",0,0,0
;ENTSPRICHT "1985 SYS2061"..EB. ..?EMODU
L;MODULSTART..WOKASTA;STARTADRESSE RESET
..WOWARM;STARTADRESSE NMI..BY"CBM80";AUT
OSTART-KENNUNG.KASTA:JSR$FDA3;KERNAL STA
RTROUTINEN.JSR$FD50.JSR$FD15.JSR$FF5B.LD
X#$FF;STACK INITIALISIEREN.TXS..EB. .STA
ND:.IN"STANDARTWERTE ? (J=1) 1.". ..?EST
AND-1;STANDARTPARAMETER.BACKCOL:.EQ0;POK
E HINTERGRUNDFARBE.RAHMCOL:.EQ11;POKE RA
HMENFARBE.TEXTCOL:.EQ158;ASCII TEXTFARBE
.STATCOL:.EQ5;ASCII MENUEFARBE.BLCKCOL:.
EQ154;ASCII BLOCKFARBE.TANF:.EQ$8000;TEX
TANFANG.TEND:.EQ$DFFF;TEXTENDE.LANF:.EQ$
E000;LABELANFANG.LEND:.EQ$FFFF;LABELENDE
.FLODEV:.EQ8;FLOPPY.DRUDEV:.EQ4;DRUCKER.
DRUSEC:.EQ0;DRUCKER SEC.ADR...EB. ..?NST
AND-1;PARAMETER ABFRAGEN.BACKCOL:.IN"POK
E HINTERGRUNDFARBE 0.".RAHMCOL:.IN"POKE
RAHMENFARBE 11..".TEXTCOL:.IN"ASCII TEXT
FARBE 158...".STATCOL:.IN"ASCII MENUEFAR
BE 5.".BLCKCOL:.IN"ASCII BLOCKFARBE 154.
..".TANF:.IN"TEXTANFANG $8000.....".TEND
:.IN"TEXTENDE $DFFF.....".LANF:.IN"LAB
ELANF. $E000.....".LEND:.IN"LABELENDE
$FFFF.....".FLODEV:.IN"FLOPPY-ADR.
8.".DRUDEV:.IN"DRUCKER-ADR. 4.".DR
USEC:.IN"DRUCKER SEC. ADR. 0."..EB. .POS
:.EQ9;MOMENTANE POSITION FUER TAB-BEFEHL
.BILDADR:.EQ63;STARTADRESSE FUER BILDTEX
T.ASSFLAGS:.EQ77;ASSEMBLER FLAGS.ASSFL2:
.EQ85;ASSEMBLER FLAGS.MEM1:.EQ87;ZWISCHE
NSPEICHER.MEM2:.EQMEM1+1.MEM3:.EQMEM2+1.
MEM4:.EQMEM3+1.TXTANF:.EQ91;TEXTANFANG.T
XTEND:.EQTXTANF+2;TEXTENDE.TXTPOINT:.EQT
XTEND+2;ZEIGER AUF LETZTEN TEXTEINTRAG.L
BLANF:.EQ97;LABELANFANG.LBLEND:.EQLBLANF
+2;LABELENDE.LBLPOINT:.EQLBLEND+2;ZEIGER
AUF LETZTEN LABELEINTRAG.ZAHL1:.EQ105;Z
AHL FUER EIN U. AUSGABE.ZAHL2:.EQZAHL1+2
;SPEICHER FUER BERECHNUNGEN.ZAHL3:.EQZAH
L2+2.STACK:.EQ111;SPEICHER FUER STACKPOI
NTER.SCROLLFLAG:.EQ147;FLAG FUER SCROLLE
N.FLAGS:.EQ155;FLAGS.BLOANF:.EQ158;BLOCK
ANFANG.BLOEND:.EQ65;BLOCKENDE.LASTCHR:.E
Q112;LETZTES ZEICHEN BEI EINGABE.CSPAL:.
EQ166;CURSOR SPALTE (1-80).CZEIL:.EQ167;
CURSOR ZEILE.BILDZEILE:.EQ169;ZEILENNUMM
ER DER ERSTEN ZEILE IM BILD.ZEILEN:.EQ24
7;ANZAHL TEXTZEILEN.ADRUD:.EQ249;ZEILENA
DRESSE FUER SCROLLEN.ZG:.EQ251;ZEIGER AL
LGEM..ZG2:.EQ253;ZEIGER ALLGEM.. .FA:.EQ
$BA;GERAETENUMMER.SA:.EQ$B9;SEKUNDAERADR
ESSSE.STATUS:.EQ$90;STATUSBYTE.FNLEN:.EQ
$B7;FILENAMELAENGE.FNADR:.EQ$BB;FILENAME
ADRESSE.SCRFELD:.EQ$AC;SPEICHERFELD FUER
SCROLLEN.MSB:.EQ$D9;MSB DER BILDZEILEN.
MSGFLAG:.EQ157;FLAG FUER AUSGABEN.RPDFLA
G:.EQ650;FLAG FUER REPEAT.RVS:.EQ$C7;FLA
G FUER REVERS.QUOTE:.EQ$D4;FLAG FUER >"<
.SPALTE:.EQ211;CURSORSPALTE.ZEILE:.EQ214
;CURSORZEILE.BLIFLAG:.EQ204;FLAG FUER BL
INKEN.CRSTAT:.EQ207;CURSORSTATUS.STTAST:
.EQ653;FLAG FUER CTRL SHIFT C=.INSERTS:.
EQ216;ANZAHL DER INSERT'S. .NORMAL:.EQ$3
7;STANDARTSPEICHERVERTEILUNG. .STARTFILE
:.EQ256;FILENAME BEI ASSEMLIEREN.OPBUFFE
R:.EQ256+16;SPEICHER FUER OPERAND.BUFFER
:.EQ513;ZEILENSPEICHER BEI ASS..BUFFER2:
.EQ115;SPEICHERFELD (Z.B. LABELNAME).BUF
FER3:.EQ679;SPEICHERFELD.EDBUFFER:.EQ820
;ZEILENSPEICHER FUER EDIT.ANZEIBUF:.EQED
BUFFER+81;ZEILENSPEICHER FUER ANZEIGE. .
ROUTINEN:.EQ704;RAM-ROUTINEN 1.ROUTINE2:
.EQEDBUFFER+81;RAM-ROUTINEN 2. .BSOUTR:.
EQ$FFD2;EIN ZEICHEN AUSGEBEN.BASINR:.EQ$
FFCF;EIN ZEICHEN EINLESEN.GETR:.EQ$FFE4;
GET-BEFEHL.BASICINIT:.EQ$FCE2;BASIC-INIT
IALISIEREN.STOPTAST:.EQ$F6ED;STOP-TASTE
ABFRAGEN.SEND:.EQ$EDDD;EIN BYTE AUF SER.
BUS.LISTEN:.EQ$ED0C;LISTEN SENDEN.TALK:
.EQ$ED09;TALK SENDEN.UNLISTEN:.EQ$EDFE;U
NLISTEN SENDEN.UNTALK:.EQ$EDEF;UNTALK SE
NDEN.SECLISTEN:.EQ$EDB9;SEC. ADR. NACH L
ISTEN SENDEN.SECTALK:.EQ$EDC7;SEC. ADR.
NACH TALK SENDEN.IECIN:.EQ$FFA5;EIN BYTE
VOM SER. BUS.SENDNAME:.EQ$F3D5;FILENAME
N SENDEN.CLSFILE:.EQ$F642;FILE SCHLIESSE
N.SETNAME:.EQ$FFBD;FILENAMEN SETZEN.SETP
ARA:.EQ$FFBA;FILEPARAMETER SETZEN.OPEN:.
EQ$FFC0;OPEN-BEFEHL.CLOSE:.EQ$FFC3;CLOSE
-BEFEHL.CHKIN:.EQ$FFC6;EINGABEGERAET SET
ZEN.CKOUT:.EQ$FFC9;AUSGABEGERAET SETZEN.
CLRCH:.EQ$FFCC;EIN U. AUSGABE NORMAL.TAS
TATUR:.EQ$FF9F;TASTATUR ABFRAGEN.CLRLINE
:.EQ$E9FF;BILDSCHIRMZEILE LOESCHEN.SCRAU
S:.EQ$E716;EIN ZEICHEN AUF BILDSCHIRM.CL
RSCR:.EQ$E544;BILD LOESCHEN.USCR:.EQ$E8F
8;UP-SCROLL.DSCR:.EQ$E965;DOWN-SCHROLL.H
OME:.EQ$E566;CURSOR HOME. .VIC:.EQ$D000;
VIDEO-IC.SID:.EQ$D400;SOUND-IC.UHR:.EQ56
328;UHR IN CIA 1. .; - LABELDEFINITIONEN
FUER ASSEMBLER -.LABELWERT:.EQCZEIL;WER
T EINES SYMBOLS.LABELTYP:.EQCSPAL;LABELT
YP.PC:.EQBILDZEILE;ADRESSE DES BEFEHLS.F
EHLER:.EQZEILEN;ANZAHL FEHLER.ORDER:.EQ1
0;BEFEHLSBYTE.LBLLEN:.EQADRUD;LAENGE DES
SYMBOLS.ADRMODE:.EQBUFFER3;ADRESSIERUNG
SART.ASZEILE:.EQBUFFER+80;NUMMER DER ZEI
LE.ADRMOTXT:.EQBUFFER3+1;TEXT DER ADRESS
IERUNGSART.OPERAND:.EQBUFFER+3;TEXT DES
OPERANDEN.PASSADRESS:.EQ$8B;SPEICHER FUE
R ADRESSTEST. .; - LABELDEFINITIONEN FUE
R MONITOR ERWEITERUNG -.BREAKV:.EQ$316;B
REAKVEKTOR.PP:.EQBUFFER3;SPEICHER FUER P
ROZESSORPORT.YR:.EQBUFFER3+1;SPEICHER FU
ER Y-REGISTER.XR:.EQBUFFER3+2;SPEICHER F
UER X-REG..AC:.EQBUFFER3+3;SPEICHER FUER
ACCU.ST:.EQBUFFER3+4;SPEICHER FUER STAT
USFLAGS.PCL:.EQBUFFER3+5;SPEICHER FUER A
DRESSE.SP:.EQBUFFER3+7;SPEICHER FUER STA
CKPOINTER.BRK:.EQBUFFER3+8;SP. FUER BREA
K-ADRESSE.TRAC:.EQBUFFER3+10;SP. FUER TR
ACK.SECT:.EQBUFFER3+11;SP. FUER SECTOR.B
UF:.EQBUFFER3+12;ZWISCHENSP. FUER WERTE.
BUFBUFFER:.EQ$CF00. . .;****************
***********************.;* * HA
UPTPROGRAMM * *.;**************
*************************. .KALT:LDA#1;K
ALTSTART..BY$2C.WARM:LDA#0;WARMSTART.TSX
;STACKPOINTER MERKEN.STXSTACK.SEI.CMP#1;
KALTSTART ?.BNEWASTA;NEIN.JSRINITR;INITI
ALISIEREN.WASTA:JSRPUTRAMRO;RAM-ROUTINEN
--> STARTPOS..JSRPOINTER;POINTER BERECH
NEN.LDA#15;TON ANSCHALTEN.STASID+24.LDA#
%11000000;MELDUNGEN DES KERNAL AN.STAMSG
FLAG.STARPDFLAG;ALLE TASTEN AUTOREPEAT.L
DA#%00000111;FLAGS AUF STANDART.STAFLAGS
.LDA#RAHMCOL;FARBEN FESTLEGEN.STAVIC+32.
LDA#BACKCOL.STAVIC+33.JSRBEEP;TON AUSGEB
EN. .MAIN:LDXSTACK;STACKPOINTER HOLEN.TX
S.LDA#0;ASSFLAGS RUECKSETZEN.STAASSFLAGS
. .MAINM:SEI;HAUPTMENUE ANZEIGEN.LDX#0;M
ENUETEXT.JSRWRITE.JSRPUTRAMRO.JSRTXTANZ;
TEXTBEREICH ANZEIGEN.JSRTXTFILL.JSRLBLAN
Z;LABELBEREICH ANZEIGEN.JSRLBLFILL.JSRNE
XTZEI.LDX#19;ANZAHL ZEILEN ANZEIGEN.JSRW
RITE.LDAZEILEN.STAZAHL1.LDAZEILEN+1.STAZ
AHL1+1.JSRZAHLDEZOUT;ZAHL1 DEZIMAL AUSGE
BEN. .LDA#19;DRUCKER AN/AUS.JSRSCRTAB.LD
X#23.JSRWRITE.LDAFLAGS;DRUCKER AN?.AND#8
.BEQDRUOFF;NEIN.LDA#'N;>AN<.JSRBSOUT.JMP
ENDDRU.DRUOFF:LDA#'U;>AUS<.JSRBSOUT.LDA#
'S.JSRBSOUT.ENDDRU:JSRNEXTZEI.JSRNEXTZEI
. .MBEF:JSRGET;BEFEHL HOLEN.LDX#MAINSPR-
MAINCMD-1;IN TABELLE SUCHEN.VERGL:CMPMAI
NCMD,X.BEQFOCMD;BEFEHL GEFUNDEN.DEX.BPLV
ERGL.JMPMAINM;BEFEHL NICHT TABELLE. .FOC
MD:TXA;STARTADRESSE AUF STACK.ASL.TAX.LD
AMAINSPR+1,X;HIGH BYTE.PHA;AUF STACK.LDA
MAINSPR,X;LOW BYTE.PHA;AUF STACK.RTS;ROU
TINE STARTEN. .MAINRT:LDXSTACK;STACKPOIN
TER ZURUECKHOLEN.TXS.SEI.LDA#0;ASSFLAGS
LOESCHEN.STAASSFLAGS.JSRPUTRAMRO;ROUTINE
N IN SPEICHER BRINGEN.JSRNEXTZEI.JMPMBEF
;NEXT BEFEHL. .;TABELLE DER MENUE BEFEHL
E MIT STARTADRESSEN.MAINCMD:.BY"EAPBWORI
GSMVCDFLTHN";BEFEHLE.MAINSPR:.WOEDITOR-1
;E-EDITOR..WOASSEMBLE-1;A-ASSEMBLER..WOP
ASS2-1;P-ASSEMBLER PASS 2..WOBACK-1;B-BA
CK (BASIC)..WOWRITEBEF-1;W-WRITE..WOOPTI
ON-1;O-SPEICHERGRENZEN..WORUN-1;R-RUN..W
OINIT-1;I-INITIALISIEREN..WOLOAD-1;G-GET
FILE..WOSAVE-1;S-SAVE FILE..WOMERGE-1;M
-MERGE FILE..WOVERIFY-1;V-VERIFY FILE..W
ODIR-1;C-CATALOG DISK..WODBEFEHL-1;D-DIS
K BEFEHL..WODIERR-1;F-DISK ERROR..WOLIST
LBL-1;L-LABEL FILE..WOTOGDRU-1;T-DRUCKER
ON/OFF..WOHELP-1;H-HELP (RECHNEN)..WOMO
NITOR-1;N-MONITOR. . .;*****************
**********************.;* * INIT
IALISIEREN * *.;***************
************************. .INIT:JSRSURE;
ABSICHERN.JSRINITR;INITIALISIEREN.JMPMAI
N;NEXT BEFEHL.INITR:LDX#11;NORMALWERTE U
EBERTRAGEN.INITL:LDANORMWERT,X.STATXTANF
,X.DEX.BPLINITL.JSRPUTRAMRO;ROUTINEN ABL
EGEN.JSRZGTEXT;ZG AUF TEXTANFANG.LDA#32;
TEXT LOESCHEN.JSRPUTZG.INY;MIT 00 00 ABS
CHLIESSEN.LDA#0.JSRPUTZG.INY.JSRPUTZG.JM
PPOINTER;POINTER NEU SETZEN. .NORMWERT:.
WOTANF;NORMALWERTE TEXT..WOTEND..WOTANF.
.WOLANF;NORMALWERTE ASS.EXEUOLEND..WOLEN
D..WOLANF. .;***************************
************.;* * SPEICHERGRENZE
N * *.;*************************
**************. .TXTANZ:LDX#1;TEXTGRENZE
N DRUCKEN.JSRWRITE.LDATXTANF;ANFANG AUSG
EBEN.LDYTXTANF+1.JSRHEXADROUT.LDX#9.JSRW
RITE.LDATXTEND;ENDE AUSGEBEN.LDYTXTEND+1
.JMPHEXADROUT. .TXTFILL:LDX#10;TEXTENDE
DRUCKEN.JSRWRITE.LDATXTPOINT.LDYTXTPOINT
+1.JSRHEXADROUT.JMPNEXTZEI. .LBLANZ:LDX#
2;LABELGRENZEN DRUCKEN.JSRWRITE.LDALBLAN
F;ANFANG AUSGEBEN.LDYLBLANF+1.JSRHEXADRO
UT.LDX#9.JSRWRITE.LDALBLEND;ENDE AUSGEBE
N.LDYLBLEND+1.JMPHEXADROUT. .LBLFILL:LDX
#10;LABELENDE DRUCKEN.JSRWRITE.LDALBLPOI
NT.LDYLBLPOINT+1.JSRHEXADROUT.JMPNEXTZEI
. .OPTION:JSRTXTANZ;TEXTBEREICH EINLESEN
.JSRBEREICH.LDAZAHL2;ANFANG EINLESEN.STA
TXTANF.LDAZAHL2+1.STATXTANF+1.LDAZAHL1;E
NDE EINLESEN.STATXTEND.LDAZAHL1+1.STATXT
END+1.JSRNEXTZEI.JSRLBLANZ.JSRBEREICH;LA
BELBEREICH EINLESEN.LDAZAHL2;ANFANG EINL
ESEN.STALBLANF.LDAZAHL2+1.STALBLANF+1.LD
AZAHL1;ENDE EINLESEN.STALBLEND.LDAZAHL1+
1.STALBLEND+1.JMPMAIN. .BEREICH:JSREINGA
NF;ZUR ANFANGSPOSITION.JSRZAHLIN;EINE ZA
HL EINLESEN.LDALASTCHR;FOLGT '-' ?.CMP#'
-.BNEBERERR;NEIN --> FEHLER.LDAZAHL1;ZAH
L1->ZAHL2.STAZAHL2.LDAZAHL1+1.STAZAHL2+1
.JSRZAHLIN;ZWEITE ZAHL EINLESEN.LDALASTC
HR;EINGABEENDE ?.CMP#13.BNEBERERR;NEIN -
-> FEHLER.RTS;FERTIG.BERERR:JSRBEEP;FEHL
ER AUSGEBEN.JSRNEXTZEI.LDX#25.JSRWRITE.J
MPMAINRT. .EINGANF:LDX#11;11 X CURSOR LI
NKS.LDA#157;CURSOR LINKS.EINGLOOP:JSRBSO
UT.DEX.BNEEINGLOOP.RTS. .;**************
*************************.;* * B
ACK - BEFEHL * *.;************
***************************. ..?NMODUL;R
AM VERSION.BACK:JSRSURE;ABSICHERN.JSRCLR
SCR;BILD LOESCHEN.JSRBASICINIT;BASIC INI
TIALISIEREN.LDXSTACK;ZURUECK ZUM AUFRUFE
NDEN PROGRAMM.TXS;(I.A. BASIC).RTS..EB.
..?EMODUL;MODULVERSION.BACK:JMPMAINRT;BE
I DER MODULVERSION IST EIN RUECKSPRUNG..
EB;ZU BASIC NUR MIT ABSCHALTBAREN MODUL
MOEGLICH !!!. .;************************
***************.;* * DISK - BEFE
HL * *.;**********************
*****************. .DBEFEHL:LDX#8;BEFEHL
STEXT.JSRWRITE.JSRSTR40IN;BEFEHL HOLEN.C
PY#0.BNE*+5.JMPMAIN;LEERBEFEHL.JSRDISKIN
IT;DISK 'I'-BEFEHL.LDA#FLODEV;DISK LISTE
N.JSRLISTEN.LDA#$6F.JSRSECLISTEN.LDY#0;B
EFEHL SENDEN.SENDBEF:LDABUFFER,Y.BEQENDS
END.JSRSEND.INY.BNESENDBEF.ENDSEND:JSRUN
LISTEN;DISK UNLISTEN.JSRNEXTZEI.JSRDISKE
RR;DISK MELDUNG AUSGEBEN.JSRDISKINIT.JMP
MAINRT. .;******************************
*********.;* * WRITE - BEFEHL
* *.;****************************
***********. .WRITEBEF:LDX#0;TEXT->DRUCK
ER.STXZAHL1+1;VON ZEILE 1.INX.STXZAHL1.L
DAZEILEN;BIS LETZTE ZEILE.STAZAHL2.LDAZE
ILEN+1.STAZAHL2+1.JSRDOWRITE;DRUCKEN.JMP
MAINRT. .DOWRITE:INCZAHL2;ENDZEILE+1.BNE
DW.INCZAHL2+1.DW:SEC;ANZAHL ZEILEN -> ZA
HL2.LDAZAHL2.SBCZAHL1.STAZAHL2.LDAZAHL2+
1.SBCZAHL1+1.STAZAHL2+1.JSRZADR;STARADRE
SSE HOLEN.LDA#0;DRUCKER LISTEN.JSRSETNAM
E;OPEN 3,4,0.LDA#3.LDX#DRUDEV.LDY#DRUSEC
.JSRSETPARA.JSROPEN.LDX#3;AUSGABE AUF DR
UCKER.JSRCKOUT.LDA#13.JSRBSOUT.WTP:JSRHO
LZG;ZEILE -> EDBUFFER.STAEDBUFFER,Y.BEQL
IEND.INY.BNEWTP.LIEND:JSRWRITEAUS;EDBUFF
ER -> DRUCKER.JSRNEXTZEI.JSRTEXTLINE.JSR
STOP?;STOP TASTE ?.BEQWRIABORT.LDAZAHL2;
NEIN -> ALLE ZEILEN GEDRUCKT ?.BNENDHB.D
ECZAHL2+1.NDHB:DECZAHL2.LDAZAHL2.ORAZAHL
2+1.BNEWTP;NEIN -> NEXT ZEILE.WRIABORT:J
MPCLOALL;FILE SCHLIESSEN. .;************
***************************.;* *
RUN - BEFEHL * *.;**********
*****************************. .RUN:JSRT
ASTAUSDR;ADRESSE HOLEN.BNEAUSDRERR2;UNDE
FINIERT.LDX#4.JSRWRITE.JSRPUTRUNRO;RUN R
OUTINE SPEICHERN.LDAZAHL1;ADRESSE SPEICH
ERN.STAJUMPADR.LDAZAHL1+1.STAJUMPADR+1.J
SRJANEIN;J ODER N HOLEN.BNENORMRAM.LDA#$
78;ALLES AUF RAM SCHALTEN.STADORUN.LDA#$
34.STADORUN+2.NORMRAM:LDASTACK;STACKPOIN
TER SPEICHERN.STAMERKFELD.LDAFLAGS;FLAGG
EN SPEICHERN.STAMERKFELD+1.LDAASSFLAGS.S
TAMERKFELD+2.LDAASSFL2.STAMERKFELD+3.LDX
#11;SPEICHERGRENZEN SPEICHERN.RETTEN:LDA
TXTANF,X.STAMERKFELD+4,X.DEX.BPLRETTEN.J
MPDORUN;ROUTINE STARTEN.RUNRETURN:LDAMER
KFELD;STACKPOINTER ZURUECKHOLEN.STASTACK
.LDAMERKFELD+1;FLAGGEN ZURUECKHOLEN.STAF
LAGS.LDAMERKFELD+2.STAASSFLAGS.LDAMERKFE
LD+3.STAASSFL2.LDX#11;SPEICHERGRENZEN ZU
RUECKHOLEN.HOLEN:LDAMERKFELD+4,X.STATXTA
NF,X.DEX.BPLHOLEN.AUSDRERR2:JMPMAINRT. .
;***************************************
.;* * DISK CATALOG *
*.;*************************************
**. .DIR:LDX#7;DIR-MASK HOLEN.JSRWRITE.J
SRSTR40IN.JSRNEXTZEI.LDA#'$;MASK UM '$'
ERGAENZEN.STABUFFER-1.INY.LDA#<BUFFER-1;
NAMENPARAMETER SPEICHERN.STAFNADR.LDA#>B
UFFER-1.STAFNADR+1.STYFNLEN.LDA#FLODEV;F
LOPPYPARAMETER.STAFA.LDA#$60.STASA.JSRSE
NDNAME;NAMEN SENDEN.LDAFA;FLOPPY TALK.JS
RTALK.LDASA.JSRSECTALK.LDA#0;STATUS LOES
CHEN.STASTATUS.LDY#3;6 BYTE UEBERLESEN.D
IRL1:STYMEM1.JSRIECIN.STAZAHL1.LDYSTATUS
.BNEDIRL4.JSRIECIN.LDYSTATUS.BNEDIRL4.LD
YMEM1.DEY.BNEDIRL1;WEITERLESEN.STAZAHL1+
1.JSRZAHLDEZOUT;FILELEN AUSGEBEN.LDA#32.
JSRBSOUT.DIRL3:JSRIECIN;NAMEN AUSGEBEN.L
DXSTATUS.BNEDIRL4.TAX.BEQDIRL2.JSRBSOUT.
JMPDIRL3.DIRL2:LDA#13;NEXT EINTRAG.JSRBS
OUT.LDY#2.BNEDIRL1.DIRL4:JSRCLSFILE.JMPM
AINRT. .;*******************************
********.;* * HELP - RECHNEN
* *.;*****************************
**********. .HELP:JSRTASTAUSDR;ADRESSE H
OLEN.BNEAUSDRERR1.JSRZAHLDEZOUT;DEZ. AUS
GEBEN.LDA#32.JSRBSOUT.LDA#'$;HEX. AUSGEB
EN.JSRBSOUT.JSRZAHLHEXOUT.LDA#32.JSRBSOU
T.LDA#'&;OCT. AUSGEBEN.JSRBSOUT.JSRZAHLO
CTOUT.LDA#32.JSRBSOUT.LDA#'%;BIN. AUSGEB
EN.JSRBSOUT.JSRZAHLBINOUT.AUSDRERR1:JMPM
AINRT. .TASTAUSDR:JSRNEXTZEI;EINEN OPERA
NDEN EINLESEN.JSRPUTRO2;ASSEMBLER ROUTIN
EN SPEICHERN.LDX#5.JSRWRITE.LDX#0;AUSDRU
CK -> OPERAND.ARGEING:JSRBASIN.STAOPERAN
D,X.INX.CMP#13.BNEARGEING.DEX.BEQLEERZ;L
EERZEILE GELESEN.LDAFEHLER;FEHLER AUF 0.
PHA.LDA#0.STAFEHLER.STAOPERAND,X.LDAASSF
LAGS;PASS2 EINSCHALTEN.ORA#%10001100.STA
ASSFLAGS.JSRAUSDRUCK;OPERAND AUSWERTEN.L
DAFEHLER;FEHLERFLAG.STAZAHL2.PLA.STAFEHL
ER.LDAASSFLAGS;PASS2 AUSSCHALTEN.AND#%01
110011.STAASSFLAGS.JSRNEXTZEI.LDAZAHL2.R
TS.LEERZ:LDA#1;LEERZEILE GELESEN.RTS. .;
***************************************.
;* * SYSTEMROUTINEN * *
.;**************************************
*. .STOP?:CLI;STOP ABFRAGEN.JSRTASTATUR.
LDASTTAST;SHIFT-TASTE ?.AND#1.BNEWAIT;JA
.JSRSTOPTAST;STOP-TASTE ?.PRESS:SEI.RTS.
WAIT:LDASTTAST;WARTEN.AND#2+4;SHIFT U. C
= TASTEN.BNESTOP?.JSRSTOPTAST;STOP ?.BNE
WAIT; NEIN -> WARTEN.BEQPRESS. .BASIN:LD
AASSFLAGS;QUELLE RAM ?.AND#4.BNEPSEUIN;J
A.CLI.JSRBASINR;EIN ZEICHEN HOLEN.STALAS
TCHR;MERKEN.SEI.RTS.PSEUIN:LDAOPERAND,Y;
EIN ZEICHEN AUS RAM.INY.STALASTCHR;MERKE
N.RTS. .BSOUT:PHA;EIN ZEICHEN AUSGEBEN.I
NCPOS;POS+1 (TABULATOR).CMP#13;NEUE ZEIL
E -> POS=0.BNEBSOUT2.LDA#0;POS=0.STAPOS.
BSOUT2:LDAFLAGS;PRINTER ON ?.AND#8.BEQBS
OUT3;NEIN.LDAASSFLAGS;ASSEMBLER ON ?.AND
#4.BNEBSOUT4;JA.LDAASSFL2;MONITOR ON ?.A
ND#2.BEQBSOUT3;NEIN.BSOUT4:TXA;AUF DRUCK
ER GEBEN.PHA.LDX#3.JSRCKOUT.PLA.TAX.BSOU
T3:PLA;NORMAL AUSGEBEN.JSRBSOUTR.SEI.RTS
. .TOGDRU:LDA#8;DRUCKERFLAG UMDREHEN.EOR
FLAGS.STAFLAGS.JMPMAIN. .SCRANZ:PHA;ZEIC
HEN ANZEIGEN.CMP#20;DEL;EINSCHL. STEUERC
ODES.BNE*+4.INCINSERTS;BEI DEL EIN INSER
T ERZEUGEN.LDA#1;HOCHKOMMA SIMULIEREN.ST
AQUOTE.PLA.PHA.JSRSCRAUS;AUSGEBEN.LDA#0;
FLAG RESET.STAQUOTE.PLA.SEI.RTS. .PUSCH:
PHP;ALLE REGISTER AUF STACK.STAMEM1;ACCU
->MEM1.PLA;STATUS->MEM2.STAMEM2.PLA;RUEC
KSPRUNGADR. NACH MEM3/4.STAMEM3.PLA.STAM
EM4.LDAMEM2;STATUS->STACK.PHA.LDAMEM1;AC
CU->STACK.PHA.TXA;X->STACK.PHA.TYA;Y->ST
ACK.PHA.LDAMEM4;RUECKSPRUNG->STACK.PHA.L
DAMEM3.PHA.LDAMEM1.RTS;ZURUECK. .PULL:PL
A;REGISTER ZURUECKHOLEN.TAY.PLA.TAX.PLA.
PLP.SEI.RTS. .GET:CLI;GET-BEFEHL.LDAFLAG
S;QUOTE MODUS ?.AND#64.BNEGETALL;JA.GETN
OR:LDASTTAST;CTRL-TASTE.AND#4.BNENOGET.J
SRGETR;TASTE HOLEN.BEQGETNOR.NOGET:SEI.R
TS.GETALL:JSRGETR;TASTE HOLEN.BEQGETALL.
SEI.RTS. .NEXTZEI:JSRPUSCH;RETURN AUSGEB
EN.LDA#13.JSRBSOUT.JMPPULL. .SURE:JSRPUS
CH;ABSICHERN.LDX#3.JSRWRITE.JSRJANEIN;J
ODER N EINLESEN.BEQJA.JMPMAIN;NEIN.JA:JM
PPULL;JA. .JANEIN:JSRGET;J ODER N HOLEN.
CMP#'J.BEQJANRT;J GELESEN.CMP#'N.BNEJANE
IN;FALSCHER BUCHSTABE.CMP#'J.JANRT:RTS.
.HEXADROUT:STAZAHL1;A/Y HEX. AUSGEBEN.ST
YZAHL1+1.JMPZAHLHEXOUT. .STR40IN:LDA#41;
STRING MIT MAX. 40 ZEICHEN HOLEN..BY$2C.
STR16IN:LDA#17;STRING MIT MAX. 16 ZEICHE
N HOLEN.STAMEM1.LDY#0;STRING->BUFFER.STR
IN:JSRBASIN;LEN->Y.STABUFFER,Y.CMP#13.BE
QENDSTR.INY.CPYMEM1;MAX. LAENGE UEBERSCH
RITTEN ?.BNESTRIN;NEIN.JSRNEXTZEI.LDX#11
;FEHLER MELDEN.JSRBEEP.JSRWRITE.JMPMAINR
T.ENDSTR:LDA#0;MIT 0 ABSCHLIESSEN.STABUF
FER,Y.RTS. .DISKINIT:JSRPUSCH;DISK 'I' B
EFEHL.LDA#FLODEV;FLOPPY LISTEN.JSRLISTEN
.LDA#$6F.JSRSECLISTEN.LDA#'I;'I0' SENDEN
.JSRSEND.LDA#'0.JSR
SEND.JSRUNLISTEN;FLOPPY UNLISTEN.JSRDISK
ERR?;FEHLER AUSGEBEN.JMPPULL. .DISKERR?:
LDA#FLODEV;DISK TALK.JSRTALK.LDA#$6F.JSR
SECTALK.JSRIECIN;FEHLERKANAL LESEN.CMP#'
0.BNEDISKERR!;<>0->FEHLER.READ:JSRIECIN;
MELDUNG UEBERLESEN.CMP#13.BNEREAD.TOUNTA
LK:JSRUNTALK;DISK UNTALK.SEI.RTS. .DISKE
RR:JSRCLOALL;FEHLERKANAL AUSGEBEN.LDA#FL
ODEV.JSRTALK.LDA#$6F.JSRSECTALK.DERR:JSR
IECIN;STRING AUSGEBEN.DISKERR!:JSRBSOUT.
CMP#13.BNEDERR.JMPTOUNTALK. .DIERR:JSRNE
XTZEI;FEHLERKANAL AUSGEBEN.JSRDISKERR.JM
PMAINRT. .ZAHLTOMEM:JSRPUSCH;ZAHL1/2 ->
MEM1/2.LDX#3.ZTM:LDAZAHL1,X.STAMEM1,X.DE
X.BPLZTM.JMPPULL. ..FI"MAIN";WEITER IM F
ILE MAIN...
> CLICK IMAGE PREVIEW FOR FULL MODAL