EDIT 2
FILE INFORMATION
FILENAME(S): EDIT 2
FILE TYPE(S): PRG
FILE SIZE: 16.1K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 5 disk(s)
FILE HASH
3f516f023a00f9f0bc3e647669a933f1f3fd2499cd2b6631d792c55bcf2aae7a
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | EDIT 2 | PRG | Treasure Chest - Klaus Der Suhler | 28 | 8 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | EDIT 2 | PRG | Treasure Chest - Klaus Der Suhler | 29 | 2 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | EDIT 2 | PRG | Treasure Chest - Klaus Der Suhler | 28 | 8 | DOWNLOAD FILE |
| ORION CEBIT | EDIT 2 | PRG | Treasure Chest - OzzyC64 | 22 | 0 | DOWNLOAD FILE |
| ORION CEBIT | EDIT 2 | PRG | DuncanTwain | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 55 40 3B 3B 3B 2D 2D 2D 20 D1 55 45 4C 4C 44 41 |U@;;;--- .UELLDA| 00000010: 54 45 49 20 45 44 49 54 20 32 00 20 00 3B 2A 2A |TEI EDIT 2. .;**| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 20 |*****.;* * | 00000050: 20 C5 44 49 54 4F 52 20 2D 20 C2 45 46 45 48 4C | .DITOR - .EFEHL| 00000060: 45 20 20 20 20 20 20 20 20 20 20 2A 20 2A 00 3B |E * *.;| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 00 20 00 4F 4C 44 3A 4A 53 |*******. .OLD:JS| 000000A0: 52 5A 47 54 45 58 54 3B D4 45 58 54 20 52 45 47 |RZGTEXT;.EXT REG| 000000B0: 45 4E 45 52 49 45 52 45 4E 00 4C 44 41 23 27 3B |ENERIEREN.LDA#';| 000000C0: 3B D4 45 58 54 41 4E 46 41 4E 47 20 41 4C 53 20 |;.EXTANFANG ALS | 000000D0: CB 4F 4D 4D 45 4E 54 41 52 00 4A 53 52 50 55 54 |.OMMENTAR.JSRPUT| 000000E0: 5A 47 00 49 4E 59 00 4A 53 52 50 55 54 5A 47 00 |ZG.INY.JSRPUTZG.| 000000F0: 49 4E 59 00 4A 53 52 50 55 54 5A 47 00 4A 53 52 |INY.JSRPUTZG.JSR| 00000100: 50 4F 49 4E 54 45 52 3B D0 4F 49 4E 54 45 52 20 |POINTER;.OINTER | 00000110: 4E 45 55 20 53 45 54 5A 45 4E 00 4C 44 58 23 30 |NEU SETZEN.LDX#0| 00000120: 3B DA 45 49 4C 45 20 31 00 53 54 58 43 5A 45 49 |;.EILE 1.STXCZEI| 00000130: 4C 2B 31 00 49 4E 58 00 53 54 58 43 5A 45 49 4C |L+1.INX.STXCZEIL| 00000140: 00 53 54 58 43 53 50 41 4C 00 4C 44 59 23 30 3B |.STXCSPAL.LDY#0;| 00000150: 41 4E 5A 45 49 47 45 4E 00 4C 44 58 23 31 00 4A |ANZEIGEN.LDX#1.J| 00000160: 53 52 53 45 54 43 52 53 52 00 42 49 45 52 5A 3A |SRSETCRSR.BIERZ:| 00000170: 4A 53 52 42 49 4C 44 00 4A 4D 50 45 44 42 45 46 |JSRBILD.JMPEDBEF| 00000180: 00 20 00 54 4F 47 46 4F 52 4D 3A 4C 44 41 23 32 |. .TOGFORM:LDA#2| 00000190: 3B C6 4F 52 4D 41 54 20 C6 4C 41 47 20 55 4D 44 |;.ORMAT .LAG UMD| 000001A0: 52 45 48 45 4E 00 45 4F 52 46 4C 41 47 53 00 53 |REHEN.EORFLAGS.S| 000001B0: 54 41 46 4C 41 47 53 00 4A 4D 50 42 49 45 52 5A |TAFLAGS.JMPBIERZ| 000001C0: 3B CE 45 55 45 53 20 C2 49 4C 44 00 20 00 54 4F |;.EUES .ILD. .TO| 000001D0: 47 50 41 43 4B 3A 4C 44 41 23 31 3B D0 41 43 4B |GPACK:LDA#1;.ACK| 000001E0: 20 C6 4C 41 47 20 55 4D 44 52 45 48 45 4E 00 42 | .LAG UMDREHEN.B| 000001F0: 49 54 00 54 4F 47 49 4E 53 3A 4C 44 41 23 34 3B |IT.TOGINS:LDA#4;| 00000200: C9 4E 53 45 52 54 20 C6 4C 41 47 20 55 4D 44 52 |.NSERT .LAG UMDR| 00000210: 45 48 45 4E 00 45 4F 52 46 4C 41 47 53 00 53 54 |EHEN.EORFLAGS.ST| 00000220: 41 46 4C 41 47 53 00 4A 53 52 53 54 41 5A 45 49 |AFLAGS.JSRSTAZEI| 00000230: 3B D3 54 41 54 55 53 5A 45 49 4C 45 00 4A 4D 50 |;.TATUSZEILE.JMP| 00000240: 45 44 42 45 46 00 20 00 44 45 4C 54 45 58 54 3A |EDBEF. .DELTEXT:| 00000250: 4A 53 52 5A 47 54 45 58 54 3B D4 45 58 54 20 4C |JSRZGTEXT;.EXT L| 00000260: 4F 45 53 43 48 45 4E 00 4C 44 41 23 33 32 3B CC |OESCHEN.LDA#32;.| 00000270: 45 45 52 5A 45 49 4C 45 20 45 52 5A 45 55 47 45 |EERZEILE ERZEUGE| 00000280: 4E 00 4A 53 52 50 55 54 5A 47 00 49 4E 59 00 4C |N.JSRPUTZG.INY.L| 00000290: 44 41 23 30 00 53 54 41 43 5A 45 49 4C 2B 31 3B |DA#0.STACZEIL+1;| 000002A0: D4 45 58 54 41 4E 46 41 4E 47 00 53 54 41 42 49 |.EXTANFANG.STABI| 000002B0: 4C 44 5A 45 49 4C 45 2B 31 00 4A 53 52 50 55 54 |LDZEILE+1.JSRPUT| 000002C0: 5A 47 00 49 4E 59 00 4A 53 52 50 55 54 5A 47 00 |ZG.INY.JSRPUTZG.| 000002D0: 4C 44 59 23 30 00 4C 44 58 23 31 00 4A 53 52 53 |LDY#0.LDX#1.JSRS| 000002E0: 45 54 43 52 53 52 00 4C 44 41 23 31 3B C2 49 4C |ETCRSR.LDA#1;.IL| 000002F0: 44 20 41 4E 5A 45 49 47 45 4E 00 53 54 41 43 5A |D ANZEIGEN.STACZ| 00000300: 45 49 4C 00 53 54 41 43 53 50 41 4C 00 53 54 41 |EIL.STACSPAL.STA| 00000310: 42 49 4C 44 5A 45 49 4C 45 00 4C 44 41 41 53 53 |BILDZEILE.LDAASS| 00000320: 46 4C 32 3B CB 45 49 4E 20 41 4C 54 45 53 20 C2 |FL2;.EIN ALTES .| 00000330: 49 4C 44 00 41 4E 44 23 32 35 34 00 53 54 41 41 |ILD.AND#254.STAA| 00000340: 53 53 46 4C 32 00 4A 53 52 50 4F 49 4E 54 45 52 |SSFL2.JSRPOINTER| 00000350: 3B D0 4F 49 4E 54 45 52 20 4E 45 55 20 53 45 54 |;.OINTER NEU SET| 00000360: 5A 45 4E 00 43 52 50 4F 53 32 3A 4A 53 52 42 49 |ZEN.CRPOS2:JSRBI| 00000370: 4C 44 00 4A 4D 50 45 44 42 45 46 00 20 00 42 4C |LD.JMPEDBEF. .BL| 00000380: 4F 42 45 47 3A 4C 44 41 43 5A 45 49 4C 3B C2 4C |OBEG:LDACZEIL;.L| 00000390: 4F 43 4B 42 45 47 49 4E 20 46 45 53 54 4C 45 47 |OCKBEGIN FESTLEG| 000003A0: 45 4E 00 53 54 41 42 4C 4F 41 4E 46 00 4C 44 41 |EN.STABLOANF.LDA| 000003B0: 43 5A 45 49 4C 2B 31 00 53 54 41 42 4C 4F 41 4E |CZEIL+1.STABLOAN| 000003C0: 46 2B 31 00 4A 4D 50 43 52 50 4F 53 32 00 20 00 |F+1.JMPCRPOS2. .| 000003D0: 42 4C 4F 45 4E 44 45 3A 4C 44 41 43 5A 45 49 4C |BLOENDE:LDACZEIL| 000003E0: 3B C2 4C 4F 43 4B 45 4E 44 45 20 46 45 53 54 4C |;.LOCKENDE FESTL| 000003F0: 45 47 45 4E 00 53 54 41 42 4C 4F 45 4E 44 00 4C |EGEN.STABLOEND.L| 00000400: 44 41 43 5A 45 49 4C 2B 31 00 53 54 41 42 4C 4F |DACZEIL+1.STABLO| 00000410: 45 4E 44 2B 31 00 4A 4D 50 43 52 50 4F 53 32 00 |END+1.JMPCRPOS2.| 00000420: 20 00 44 45 4C 4B 4F 52 52 3A 4C 44 41 46 4C 41 | .DELKORR:LDAFLA| 00000430: 47 53 3B CB 45 49 4E 20 D5 50 44 41 54 45 00 41 |GS;.EIN .PDATE.A| 00000440: 4E 44 23 25 31 31 31 31 31 31 31 00 53 54 41 46 |ND#%1111111.STAF| 00000450: 4C 41 47 53 00 4A 4D 50 43 52 50 4F 53 32 00 20 |LAGS.JMPCRPOS2. | 00000460: 00 44 45 4C 42 4C 4F 44 45 46 3A 4C 44 41 23 30 |.DELBLODEF:LDA#0| 00000470: 3B C2 4C 4F 43 4B 44 45 46 2E 20 4C 4F 45 53 43 |;.LOCKDEF. LOESC| 00000480: 48 45 4E 00 53 54 41 42 4C 4F 41 4E 46 00 53 54 |HEN.STABLOANF.ST| 00000490: 41 42 4C 4F 41 4E 46 2B 31 00 53 54 41 42 4C 4F |ABLOANF+1.STABLO| 000004A0: 45 4E 44 00 53 54 41 42 4C 4F 45 4E 44 2B 31 00 |END.STABLOEND+1.| 000004B0: 4A 4D 50 43 52 50 4F 53 32 00 20 00 4E 45 57 4C |JMPCRPOS2. .NEWL| 000004C0: 49 4E 45 3A 4C 44 41 43 5A 45 49 4C 3B DA 45 49 |INE:LDACZEIL;.EI| 000004D0: 4C 45 20 45 49 4E 46 55 45 47 45 4E 00 53 54 41 |LE EINFUEGEN.STA| 000004E0: 5A 41 48 4C 31 00 4C 44 41 43 5A 45 49 4C 2B 31 |ZAHL1.LDACZEIL+1| 000004F0: 00 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 44 |.STAZAHL1+1.JSRD| 00000500: 45 4C 45 44 42 55 3B CC 45 45 52 5A 45 49 4C 45 |ELEDBU;.EERZEILE| 00000510: 00 4A 53 52 42 4C 4F 49 4E 53 4B 4F 52 52 3B C2 |.JSRBLOINSKORR;.| 00000520: 4C 4F 43 4B 44 45 46 2E 20 4B 4F 52 52 49 47 49 |LOCKDEF. KORRIGI| 00000530: 45 52 45 4E 00 4A 53 52 49 4E 53 5A 45 49 4C 45 |EREN.JSRINSZEILE| 00000540: 3B 45 49 4E 46 55 45 47 45 4E 00 4A 4D 50 43 52 |;EINFUEGEN.JMPCR| 00000550: 50 4F 53 32 00 20 00 44 45 4C 4C 49 4E 45 3A 4C |POS2. .DELLINE:L| 00000560: 44 41 5A 45 49 4C 45 4E 3B DA 45 49 4C 45 20 4C |DAZEILEN;.EILE L| 00000570: 4F 45 53 43 48 45 4E 00 43 4D 50 23 31 00 42 4E |OESCHEN.CMP#1.BN| 00000580: 45 52 45 41 4C 44 45 4C 4C 49 4E 45 00 4C 44 41 |EREALDELLINE.LDA| 00000590: 5A 45 49 4C 45 4E 2B 31 00 42 45 51 44 45 4C 54 |ZEILEN+1.BEQDELT| 000005A0: 45 58 54 3B CE 55 52 20 45 49 4E 45 20 DA 45 49 |EXT;.UR EINE .EI| 000005B0: 4C 45 2D 3E D4 45 58 54 20 4C 4F 45 53 43 48 45 |LE->.EXT LOESCHE| 000005C0: 4E 00 52 45 41 4C 44 45 4C 4C 49 4E 45 3A 4C 44 |N.REALDELLINE:LD| 000005D0: 41 43 5A 45 49 4C 3B DA 45 49 4C 45 20 4C 4F 45 |ACZEIL;.EILE LOE| 000005E0: 53 43 48 45 4E 00 53 54 41 5A 41 48 4C 31 00 4C |SCHEN.STAZAHL1.L| 000005F0: 44 41 43 5A 45 49 4C 2B 31 00 53 54 41 5A 41 48 |DACZEIL+1.STAZAH| 00000600: 4C 31 2B 31 00 4A 53 52 42 4C 4F 44 45 4C 4B 4F |L1+1.JSRBLODELKO| 00000610: 52 52 3B C2 4C 4F 43 4B 44 45 46 2E 20 4B 4F 52 |RR;.LOCKDEF. KOR| 00000620: 52 49 47 49 45 52 45 4E 00 4A 53 52 44 45 4C 5A |RIGIEREN.JSRDELZ| 00000630: 45 49 4C 45 3B 4C 4F 45 53 43 48 45 4E 00 4A 4D |EILE;LOESCHEN.JM| 00000640: 50 44 45 4C 41 42 00 20 00 42 4C 4F 49 4E 53 4B |PDELAB. .BLOINSK| 00000650: 4F 52 52 3A 4A 53 52 42 4C 4F 43 4B 54 45 53 54 |ORR:JSRBLOCKTEST| 00000660: 3B C2 4C 4F 43 4B 44 45 46 2E 20 4E 41 43 48 00 |;.LOCKDEF. NACH.| 00000670: 43 4D 50 23 32 32 3B C9 4E 53 45 52 54 20 4B 4F |CMP#22;.NSERT KO| 00000680: 52 52 49 47 49 45 52 45 4E 00 42 45 51 45 4E 44 |RRIGIEREN.BEQEND| 00000690: 4B 4F 52 52 3B 49 4D 20 C2 4C 4F 43 4B 00 4C 44 |KORR;IM .LOCK.LD| 000006A0: 41 43 5A 45 49 4C 2B 31 3B D6 4F 52 20 44 45 4D |ACZEIL+1;.OR DEM| 000006B0: 20 C2 4C 4F 43 4B 20 3F 00 43 4D 50 42 4C 4F 41 | .LOCK ?.CMPBLOA| 000006C0: 4E 46 2B 31 00 42 43 43 41 4E 46 4B 4F 52 52 00 |NF+1.BCCANFKORR.| 000006D0: 42 45 51 2A 2B 33 00 42 4B 52 54 3A 52 54 53 3B |BEQ*+3.BKRT:RTS;| 000006E0: 4E 45 49 4E 00 4C 44 41 43 5A 45 49 4C 00 43 4D |NEIN.LDACZEIL.CM| 000006F0: 50 42 4C 4F 41 4E 46 00 42 43 53 42 4B 52 54 00 |PBLOANF.BCSBKRT.| 00000700: 41 4E 46 4B 4F 52 52 3A 49 4E 43 42 4C 4F 41 4E |ANFKORR:INCBLOAN| 00000710: 46 3B C2 4C 4F 43 4B 41 4E 46 41 4E 47 20 4B 4F |F;.LOCKANFANG KO| 00000720: 52 52 49 47 49 45 52 45 4E 00 42 4E 45 45 4E 44 |RRIGIEREN.BNEEND| 00000730: 4B 4F 52 52 00 49 4E 43 42 4C 4F 41 4E 46 2B 31 |KORR.INCBLOANF+1| 00000740: 00 45 4E 44 4B 4F 52 52 3A 49 4E 43 42 4C 4F 45 |.ENDKORR:INCBLOE| 00000750: 4E 44 3B C2 4C 4F 43 4B 45 4E 44 45 20 4B 4F 52 |ND;.LOCKENDE KOR| 00000760: 52 49 47 49 45 52 45 4E 00 42 4E 45 42 4B 52 54 |RIGIEREN.BNEBKRT| 00000770: 00 49 4E 43 42 4C 4F 45 4E 44 2B 31 00 52 54 53 |.INCBLOEND+1.RTS| 00000780: 00 20 00 42 4C 4F 44 45 4C 4B 4F 52 52 3A 4A 53 |. .BLODELKORR:JS| 00000790: 52 42 4C 4F 43 4B 54 45 53 54 3B C2 4C 4F 43 4B |RBLOCKTEST;.LOCK| 000007A0: 44 45 46 2E 20 4B 4F 52 52 2E 20 4E 41 43 48 20 |DEF. KORR. NACH | 000007B0: C4 45 4C 45 54 45 00 43 4D 50 23 32 32 3B 49 4D |.ELETE.CMP#22;IM| 000007C0: 20 C2 4C 4F 43 4B 20 3F 00 42 45 51 45 4E 44 4B | .LOCK ?.BEQENDK| 000007D0: 4F 52 52 32 3B 4A 41 00 4C 44 41 43 5A 45 49 4C |ORR2;JA.LDACZEIL| 000007E0: 2B 31 3B D6 4F 52 20 44 45 4D 20 C2 4C 4F 43 4B |+1;.OR DEM .LOCK| 000007F0: 20 3F 00 43 4D 50 42 4C 4F 41 4E 46 2B 31 00 42 | ?.CMPBLOANF+1.B| 00000800: 43 43 41 4E 46 4B 4F 52 52 32 00 42 4E 45 42 4B |CCANFKORR2.BNEBK| 00000810: 52 54 00 4C 44 41 43 5A 45 49 4C 00 43 4D 50 42 |RT.LDACZEIL.CMPB| 00000820: 4C 4F 41 4E 46 00 42 43 53 42 4B 52 54 00 41 4E |LOANF.BCSBKRT.AN| 00000830: 46 4B 4F 52 52 32 3A 4C 44 41 42 4C 4F 41 4E 46 |FKORR2:LDABLOANF| 00000840: 3B C2 4C 4F 43 4B 41 4E 46 41 4E 47 20 4B 4F 52 |;.LOCKANFANG KOR| 00000850: 52 2E 00 42 4E 45 41 4B 31 00 44 45 43 42 4C 4F |R..BNEAK1.DECBLO| 00000860: 41 4E 46 2B 31 00 41 4B 31 3A 44 45 43 42 4C 4F |ANF+1.AK1:DECBLO| 00000870: 41 4E 46 00 45 4E 44 4B 4F 52 52 32 3A 4C 44 41 |ANF.ENDKORR2:LDA| 00000880: 42 4C 4F 45 4E 44 3B C2 4C 4F 43 4B 45 4E 44 45 |BLOEND;.LOCKENDE| 00000890: 20 4B 4F 52 52 2E 00 42 4E 45 41 4B 32 00 44 45 | KORR..BNEAK2.DE| 000008A0: 43 42 4C 4F 45 4E 44 2B 31 00 41 4B 32 3A 44 45 |CBLOEND+1.AK2:DE| 000008B0: 43 42 4C 4F 45 4E 44 00 52 54 53 00 20 00 4B 49 |CBLOEND.RTS. .KI| 000008C0: 4C 4C 3A 4A 53 52 45 44 55 50 44 41 54 45 4E 00 |LL:JSREDUPDATEN.| 000008D0: 4A 53 52 44 45 4C 45 44 42 55 3B DA 45 49 4C 45 |JSRDELEDBU;.EILE| 000008E0: 4E 49 4E 48 41 4C 54 20 4C 4F 45 53 43 48 45 4E |NINHALT LOESCHEN| 000008F0: 00 4A 4D 50 45 44 50 52 49 00 20 00 4C 45 4B 49 |.JMPEDPRI. .LEKI| 00000900: 4C 4C 3A 4A 53 52 45 44 55 50 44 41 54 45 4E 3B |LL:JSREDUPDATEN;| 00000910: CC 49 4E 4B 53 20 4C 4F 45 53 43 48 45 4E 00 4C |.INKS LOESCHEN.L| 00000920: 44 59 43 53 50 41 4C 00 44 45 59 00 4C 44 41 23 |DYCSPAL.DEY.LDA#| 00000930: 33 32 3B D3 50 41 43 45 53 20 45 49 4E 53 45 54 |32;.PACES EINSET| 00000940: 5A 45 4E 00 4C 45 4B 49 3A 53 54 41 45 44 42 55 |ZEN.LEKI:STAEDBU| 00000950: 46 46 45 52 2C 59 00 44 45 59 00 42 50 4C 4C 45 |FFER,Y.DEY.BPLLE| 00000960: 4B 49 00 4A 4D 50 45 44 50 52 49 00 20 00 52 49 |KI.JMPEDPRI. .RI| 00000970: 4B 49 4C 4C 3A 4A 53 52 45 44 55 50 44 41 54 45 |KILL:JSREDUPDATE| 00000980: 4E 3B D2 45 43 48 54 53 20 4C 4F 45 53 43 48 45 |N;.ECHTS LOESCHE| 00000990: 4E 00 4C 44 59 43 53 50 41 4C 00 44 45 59 00 4C |N.LDYCSPAL.DEY.L| 000009A0: 44 41 23 33 32 3B CC 45 45 52 5A 45 49 43 48 45 |DA#32;.EERZEICHE| 000009B0: 4E 20 45 49 4E 53 45 54 5A 45 4E 00 52 49 4B 49 |N EINSETZEN.RIKI| 000009C0: 3A 53 54 41 45 44 42 55 46 46 45 52 2C 59 00 49 |:STAEDBUFFER,Y.I| 000009D0: 4E 59 00 43 50 59 23 38 30 00 42 4E 45 52 49 4B |NY.CPY#80.BNERIK| 000009E0: 49 00 4A 4D 50 45 44 50 52 49 00 20 00 47 4F 54 |I.JMPEDPRI. .GOT| 000009F0: 4F 3A 4C 44 41 23 53 54 41 54 43 4F 4C 3B D3 50 |O:LDA#STATCOL;.P| 00000A00: 52 55 4E 47 20 5A 55 20 DA 45 49 4C 45 4E 4E 55 |RUNG ZU .EILENNU| 00000A10: 4D 4D 45 52 00 4A 53 52 53 43 52 41 55 53 00 4C |MMER.JSRSCRAUS.L| 00000A20: 44 58 23 30 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 |DX#0;.EILENNUMME| 00000A30: 52 20 48 4F 4C 45 4E 00 4A 53 52 43 4C 52 4C 49 |R HOLEN.JSRCLRLI| 00000A40: 4E 45 00 4A 53 52 45 49 4E 46 41 43 48 5A 45 49 |NE.JSREINFACHZEI| 00000A50: 00 4A 53 52 48 4F 4D 45 00 4C 44 58 23 32 34 00 |.JSRHOME.LDX#24.| 00000A60: 4A 53 52 57 52 49 54 45 00 4A 53 52 5A 41 48 4C |JSRWRITE.JSRZAHL| 00000A70: 49 4E 00 4C 44 58 5A 41 48 4C 32 00 4C 44 59 5A |IN.LDXZAHL2.LDYZ| 00000A80: 41 48 4C 32 2B 31 00 4A 53 52 53 45 54 43 52 53 |AHL2+1.JSRSETCRS| 00000A90: 52 00 4C 44 41 4C 41 53 54 43 48 52 3B C5 49 4E |R.LDALASTCHR;.IN| 00000AA0: 47 41 42 45 20 47 55 45 4C 54 49 47 20 3F 00 43 |GABE GUELTIG ?.C| 00000AB0: 4D 50 23 31 33 00 42 45 51 45 49 4E 47 4F 4B 00 |MP#13.BEQEINGOK.| 00000AC0: 45 49 4E 47 45 52 52 3A 4C 44 58 23 32 35 3B C5 |EINGERR:LDX#25;.| 00000AD0: 49 4E 47 41 42 45 46 45 48 4C 45 52 00 4A 53 52 |INGABEFEHLER.JSR| 00000AE0: 45 44 45 52 52 4F 52 00 4A 4D 50 45 44 42 45 46 |EDERROR.JMPEDBEF| 00000AF0: 00 45 49 4E 47 4F 4B 3A 4C 44 41 5A 45 49 4C 45 |.EINGOK:LDAZEILE| 00000B00: 4E 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 45 |N;.EILENNUMMER E| 00000B10: 52 4C 41 55 42 54 00 53 54 41 5A 41 48 4C 32 00 |RLAUBT.STAZAHL2.| 00000B20: 4C 44 41 5A 45 49 4C 45 4E 2B 31 00 53 54 41 5A |LDAZEILEN+1.STAZ| 00000B30: 41 48 4C 32 2B 31 00 4A 53 52 56 45 52 47 4C 45 |AHL2+1.JSRVERGLE| 00000B40: 49 43 48 00 42 43 53 45 49 4E 47 45 52 52 3B CE |ICH.BCSEINGERR;.| 00000B50: 45 49 4E 00 4C 44 41 5A 41 48 4C 31 00 4F 52 41 |EIN.LDAZAHL1.ORA| 00000B60: 5A 41 48 4C 31 2B 31 00 42 45 51 45 49 4E 47 45 |ZAHL1+1.BEQEINGE| 00000B70: 52 52 3B DA 45 49 4C 45 20 30 2D 3E C5 52 52 4F |RR;.EILE 0->.RRO| 00000B80: 52 00 4C 44 41 5A 41 48 4C 31 3B CE 45 55 45 53 |R.LDAZAHL1;.EUES| 00000B90: 20 C2 49 4C 44 00 53 54 41 43 5A 45 49 4C 00 4C | .ILD.STACZEIL.L| 00000BA0: 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 43 5A 45 |DAZAHL1+1.STACZE| 00000BB0: 49 4C 2B 31 00 4C 44 41 23 31 00 53 54 41 43 53 |IL+1.LDA#1.STACS| 00000BC0: 50 41 4C 00 4A 53 52 44 41 54 45 4E 42 49 4C 44 |PAL.JSRDATENBILD| 00000BD0: 00 4A 4D 50 45 44 42 45 46 00 20 00 44 41 54 45 |.JMPEDBEF. .DATE| 00000BE0: 4E 42 49 4C 44 3A 4A 53 52 46 49 41 4E 5A 50 4F |NBILD:JSRFIANZPO| 00000BF0: 53 3B C2 49 4C 44 20 41 55 46 20 DA 45 49 4C 45 |S;.ILD AUF .EILE| 00000C00: 4E 4E 55 4D 4D 45 52 20 5A 45 4E 54 52 49 45 52 |NNUMMER ZENTRIER| 00000C10: 45 4E 00 53 45 43 3B C8 4F 52 49 2E 20 D3 43 52 |EN.SEC;.ORI. .CR| 00000C20: 4F 4C 4C 20 3F 00 4C 44 41 43 53 50 41 4C 3B D3 |OLL ?.LDACSPAL;.| 00000C30: 50 41 4C 54 45 2D CF 46 46 53 45 54 00 53 42 43 |PALTE-.FFSET.SBC| 00000C40: 4D 45 4D 31 00 4E 4F 53 55 42 3A 53 54 41 53 50 |MEM1.NOSUB:STASP| 00000C50: 41 4C 54 45 3B 2D 3E C3 55 52 53 4F 52 50 4F 53 |ALTE;->.URSORPOS| 00000C60: 2E 00 4C 44 41 43 5A 45 49 4C 2B 31 3B DA 45 4E |..LDACZEIL+1;.EN| 00000C70: 54 52 49 45 52 45 4E 20 3F 00 42 4E 45 43 45 4E |TRIEREN ?.BNECEN| 00000C80: 54 52 45 00 4C 44 41 43 5A 45 49 4C 00 43 4D 50 |TRE.LDACZEIL.CMP| 00000C90: 23 32 30 00 42 43 53 43 45 4E 54 52 45 00 4C 44 |#20.BCSCENTRE.LD| 00000CA0: 58 23 30 3B 4E 45 49 4E 00 53 54 58 42 49 4C 44 |X#0;NEIN.STXBILD| 00000CB0: 5A 45 49 4C 45 2B 31 3B C2 49 4C 44 20 41 42 20 |ZEILE+1;.ILD AB | 00000CC0: DA 45 49 4C 45 20 31 00 49 4E 58 00 53 54 58 42 |.EILE 1.INX.STXB| 00000CD0: 49 4C 44 5A 45 49 4C 45 00 4C 44 58 43 5A 45 49 |ILDZEILE.LDXCZEI| 00000CE0: 4C 00 4C 44 59 53 50 41 4C 54 45 00 44 45 59 00 |L.LDYSPALTE.DEY.| 00000CF0: 4A 53 52 53 45 54 43 52 53 52 00 4C 44 41 41 53 |JSRSETCRSR.LDAAS| 00000D00: 53 46 4C 32 3B 4B 45 49 4E 20 41 4C 54 45 53 20 |SFL2;KEIN ALTES | 00000D10: C2 49 4C 44 00 41 4E 44 23 32 35 34 00 53 54 41 |.ILD.AND#254.STA| 00000D20: 41 53 53 46 4C 32 00 4A 4D 50 42 49 4C 44 3B C2 |ASSFL2.JMPBILD;.| 00000D30: 49 4C 44 20 41 4E 5A 45 49 47 45 4E 00 43 45 4E |ILD ANZEIGEN.CEN| 00000D40: 54 52 45 3A 53 45 43 3B DA 45 4E 54 52 49 45 52 |TRE:SEC;.ENTRIER| 00000D50: 45 4E 00 4C 44 41 43 5A 45 49 4C 3B 45 52 53 54 |EN.LDACZEIL;ERST| 00000D60: 45 20 DA 45 49 4C 45 3D 20 DA 45 49 4C 45 20 2D |E .EILE= .EILE -| 00000D70: 31 32 00 53 42 43 23 31 32 00 53 54 41 42 49 4C |12.SBC#12.STABIL| 00000D80: 44 5A 45 49 4C 45 00 4C 44 41 43 5A 45 49 4C 2B |DZEILE.LDACZEIL+| 00000D90: 31 00 53 42 43 23 30 00 53 54 41 42 49 4C 44 5A |1.SBC#0.STABILDZ| 00000DA0: 45 49 4C 45 2B 31 00 4C 44 59 53 50 41 4C 54 45 |EILE+1.LDYSPALTE| 00000DB0: 00 44 45 59 00 4C 44 58 23 31 33 00 4A 53 52 53 |.DEY.LDX#13.JSRS| 00000DC0: 45 54 43 52 53 52 00 4C 44 41 41 53 53 46 4C 32 |ETCRSR.LDAASSFL2| 00000DD0: 3B 4B 45 49 4E 20 41 4C 54 45 53 20 C2 49 4C 44 |;KEIN ALTES .ILD| 00000DE0: 00 41 4E 44 23 32 35 34 00 53 54 41 41 53 53 46 |.AND#254.STAASSF| 00000DF0: 4C 32 00 4A 4D 50 42 49 4C 44 3B 41 4E 5A 45 49 |L2.JMPBILD;ANZEI| 00000E00: 47 45 4E 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |GEN. .;*********| 00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E20: 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 |******.;* * | 00000E30: C2 4C 4F 43 4B 2D C2 45 46 45 48 4C 45 20 20 20 |.LOCK-.EFEHLE | 00000E40: 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A | * *.;*******| 00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 42 4C 4F 43 4B |********. .BLOCK| 00000E70: 54 45 53 54 3A 4C 44 41 42 4C 4F 41 4E 46 3B C1 |TEST:LDABLOANF;.| 00000E80: 55 46 20 C2 4C 4F 43 4B 20 54 45 53 54 45 4E 00 |UF .LOCK TESTEN.| 00000E90: 4F 52 41 42 4C 4F 41 4E 46 2B 31 00 42 4E 45 54 |ORABLOANF+1.BNET| 00000EA0: 53 54 42 4C 4F 45 4E 44 00 4E 4F 42 4C 4F 43 4B |STBLOEND.NOBLOCK| 00000EB0: 3A 4C 44 41 23 32 31 3B CB 45 49 4E 20 C2 4C 4F |:LDA#21;.EIN .LO| 00000EC0: 43 4B 20 44 45 46 49 4E 49 45 52 54 00 52 54 53 |CK DEFINIERT.RTS| 00000ED0: 00 54 53 54 42 4C 4F 45 4E 44 3A 4C 44 41 42 4C |.TSTBLOEND:LDABL| 00000EE0: 4F 45 4E 44 00 4F 52 41 42 4C 4F 45 4E 44 2B 31 |OEND.ORABLOEND+1| 00000EF0: 00 42 45 51 4E 4F 42 4C 4F 43 4B 00 4C 44 41 42 |.BEQNOBLOCK.LDAB| 00000F00: 4C 4F 41 4E 46 2B 31 3B 42 4C 4F 43 4B 41 4E 46 |LOANF+1;BLOCKANF| 00000F10: 3C 42 4C 4F 43 4B 45 4E 44 20 3F 00 43 4D 50 42 |<BLOCKEND ?.CMPB| 00000F20: 4C 4F 45 4E 44 2B 31 00 42 45 51 42 4C 4F 4C 4F |LOEND+1.BEQBLOLO| 00000F30: 54 53 54 00 42 43 53 4E 4F 42 4C 4F 43 4B 00 42 |TST.BCSNOBLOCK.B| 00000F40: 43 43 42 4C 4F 54 53 54 43 52 00 42 4C 4F 4C 4F |CCBLOTSTCR.BLOLO| 00000F50: 54 53 54 3A 4C 44 41 42 4C 4F 41 4E 46 00 43 4D |TST:LDABLOANF.CM| 00000F60: 50 42 4C 4F 45 4E 44 00 42 43 53 4E 4F 42 4C 4F |PBLOEND.BCSNOBLO| 00000F70: 43 4B 00 42 4C 4F 54 53 54 43 52 3A 4C 44 41 5A |CK.BLOTSTCR:LDAZ| 00000F80: 41 48 4C 31 2B 31 3B 4A 41 00 43 4D 50 42 4C 4F |AHL1+1;JA.CMPBLO| 00000F90: 41 4E 46 2B 31 3B C3 55 52 53 4F 52 20 49 4D 20 |ANF+1;.URSOR IM | 00000FA0: C2 4C 4F 43 4B 20 3F 00 42 43 43 41 55 53 53 45 |.LOCK ?.BCCAUSSE| 00000FB0: 52 48 41 4C 42 3B 43 52 53 52 3E 42 4C 4F 41 4E |RHALB;CRSR>BLOAN| 00000FC0: 46 20 3F 00 42 4E 45 54 53 54 55 4E 54 45 4E 00 |F ?.BNETSTUNTEN.| 00000FD0: 4C 44 41 5A 41 48 4C 31 00 43 4D 50 42 4C 4F 41 |LDAZAHL1.CMPBLOA| 00000FE0: 4E 46 00 42 43 43 41 55 53 53 45 52 48 41 4C 42 |NF.BCCAUSSERHALB| 00000FF0: 00 54 53 54 55 4E 54 45 4E 3A 4C 44 41 42 4C 4F |.TSTUNTEN:LDABLO| 00001000: 45 4E 44 2B 31 3B 43 52 53 52 3C 42 4C 4F 45 4E |END+1;CRSR<BLOEN| 00001010: 44 00 43 4D 50 5A 41 48 4C 31 2B 31 00 42 43 43 |D.CMPZAHL1+1.BCC| 00001020: 41 55 53 53 45 52 48 41 4C 42 00 42 4E 45 49 4E |AUSSERHALB.BNEIN| 00001030: 4E 45 4E 00 4C 44 41 42 4C 4F 45 4E 44 00 43 4D |NEN.LDABLOEND.CM| 00001040: 50 5A 41 48 4C 31 00 42 43 43 41 55 53 53 45 52 |PZAHL1.BCCAUSSER| 00001050: 48 41 4C 42 00 49 4E 4E 45 4E 3A 4C 44 41 23 32 |HALB.INNEN:LDA#2| 00001060: 32 3B 49 4D 20 C2 4C 4F 43 4B 00 52 54 53 00 41 |2;IM .LOCK.RTS.A| 00001070: 55 53 53 45 52 48 41 4C 42 3A 4C 44 41 23 30 3B |USSERHALB:LDA#0;| 00001080: 4E 49 43 48 54 20 49 4D 20 C2 4C 4F 43 4B 00 52 |NICHT IM .LOCK.R| 00001090: 54 53 00 20 00 3B 2A 2A 2A 20 20 20 20 C2 CC CF |TS. .;*** ...| 000010A0: C3 CB 20 CC CF C5 D3 C3 C8 C5 CE 20 20 2A 2A 2A |.. ........ ***| 000010B0: 00 42 4C 4F 43 4B 44 45 4C 3A 4C 44 41 43 5A 45 |.BLOCKDEL:LDACZE| 000010C0: 49 4C 3B C2 4C 4F 43 4B 20 4C 4F 45 53 43 48 45 |IL;.LOCK LOESCHE| 000010D0: 4E 00 53 54 41 5A 41 48 4C 31 00 4C 44 41 43 5A |N.STAZAHL1.LDACZ| 000010E0: 45 49 4C 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 |EIL+1.STAZAHL1+1| 000010F0: 00 4A 53 52 42 4C 4F 43 4B 54 45 53 54 00 42 45 |.JSRBLOCKTEST.BE| 00001100: 51 44 4F 44 45 4C 00 54 41 58 3B CC 4F 45 53 43 |QDODEL.TAX;.OESC| 00001110: 48 45 4E 20 4E 49 43 48 54 20 4D 4F 45 47 4C 49 |HEN NICHT MOEGLI| 00001120: 43 48 00 4A 53 52 45 44 45 52 52 4F 52 00 4A 4D |CH.JSREDERROR.JM| 00001130: 50 45 44 42 45 46 00 44 4F 44 45 4C 3A 4C 44 41 |PEDBEF.DODEL:LDA| 00001140: 42 4C 4F 41 4E 46 3B 4C 4F 45 53 43 48 45 4E 20 |BLOANF;LOESCHEN | 00001150: 21 00 53 54 41 5A 41 48 4C 31 3B C1 44 52 2E 20 |!.STAZAHL1;.DR. | 00001160: C2 4C 4F 43 4B 41 4E 46 41 4E 47 00 4C 44 41 42 |.LOCKANFANG.LDAB| 00001170: 4C 4F 41 4E 46 2B 31 00 53 54 41 5A 41 48 4C 31 |LOANF+1.STAZAHL1| 00001180: 2B 31 00 4A 53 52 5A 41 44 52 00 4C 44 41 5A 45 |+1.JSRZADR.LDAZE| 00001190: 49 4C 45 4E 3B C2 49 53 20 D4 45 58 54 45 4E 44 |ILEN;.IS .EXTEND| 000011A0: 45 20 4C 4F 45 53 43 48 45 4E 20 3F 00 43 4D 50 |E LOESCHEN ?.CMP| 000011B0: 42 4C 4F 45 4E 44 00 42 4E 45 44 4F 44 45 4C 32 |BLOEND.BNEDODEL2| 000011C0: 00 4C 44 41 5A 45 49 4C 45 4E 2B 31 00 43 4D 50 |.LDAZEILEN+1.CMP| 000011D0: 42 4C 4F 45 4E 44 2B 31 00 42 4E 45 44 4F 44 45 |BLOEND+1.BNEDODE| 000011E0: 4C 32 00 4C 44 41 23 30 3B 4A 41 20 2D 3E 20 30 |L2.LDA#0;JA -> 0| 000011F0: 20 30 20 49 4E 20 D4 45 58 54 00 4A 53 52 50 55 | 0 IN .EXT.JSRPU| 00001200: 54 5A 47 00 49 4E 59 00 4A 53 52 50 55 54 5A 47 |TZG.INY.JSRPUTZG| 00001210: 00 4A 4D 50 42 4C 4F 44 45 4C 45 4E 44 3B 46 45 |.JMPBLODELEND;FE| 00001220: 52 54 49 47 00 44 4F 44 45 4C 32 3A 4C 44 41 5A |RTIG.DODEL2:LDAZ| 00001230: 47 3B 45 43 48 54 20 4C 4F 45 53 43 48 45 4E 00 |G;ECHT LOESCHEN.| 00001240: 53 54 41 5A 41 48 4C 32 00 4C 44 41 5A 47 2B 31 |STAZAHL2.LDAZG+1| 00001250: 00 53 54 41 5A 41 48 4C 32 2B 31 00 4C 44 41 42 |.STAZAHL2+1.LDAB| 00001260: 4C 4F 45 4E 44 3B C1 44 52 2E 20 C2 4C 4F 43 4B |LOEND;.DR. .LOCK| 00001270: 45 4E 44 45 20 48 4F 4C 45 4E 00 53 54 41 5A 41 |ENDE HOLEN.STAZA| 00001280: 48 4C 31 00 4C 44 41 42 4C 4F 45 4E 44 2B 31 00 |HL1.LDABLOEND+1.| 00001290: 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 |STAZAHL1+1.JSRZA| 000012A0: 44 52 00 4A 53 52 54 45 58 54 4C 49 4E 45 3B 2B |DR.JSRTEXTLINE;+| 000012B0: 20 31 20 DA 45 49 4C 45 00 4C 44 41 5A 47 00 53 | 1 .EILE.LDAZG.S| 000012C0: 54 41 5A 41 48 4C 31 00 4C 44 41 5A 47 2B 31 00 |TAZAHL1.LDAZG+1.| 000012D0: 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 54 4F |STAZAHL1+1.JSRTO| 000012E0: 4D 4F 56 45 3B C2 4C 4F 43 4B 20 4C 4F 45 53 43 |MOVE;.LOCK LOESC| 000012F0: 48 45 4E 00 42 4C 4F 44 45 4C 45 4E 44 3A 4A 53 |HEN.BLODELEND:JS| 00001300: 52 50 4F 49 4E 54 45 52 3B D0 4F 49 4E 54 45 52 |RPOINTER;.OINTER| 00001310: 20 4E 45 55 20 53 45 54 5A 45 4E 00 4C 44 41 23 | NEU SETZEN.LDA#| 00001320: 30 3B C2 4C 4F 43 4B 44 45 46 2E 20 4C 4F 45 53 |0;.LOCKDEF. LOES| 00001330: 43 48 45 4E 00 53 54 41 42 4C 4F 41 4E 46 00 53 |CHEN.STABLOANF.S| 00001340: 54 41 42 4C 4F 41 4E 46 2B 31 00 53 54 41 42 4C |TABLOANF+1.STABL| 00001350: 4F 45 4E 44 00 53 54 41 42 4C 4F 45 4E 44 2B 31 |OEND.STABLOEND+1| 00001360: 00 44 45 4C 41 42 3A 4C 44 41 43 5A 45 49 4C 2B |.DELAB:LDACZEIL+| 00001370: 31 3B C3 55 52 53 4F 52 20 41 55 53 53 45 52 48 |1;.URSOR AUSSERH| 00001380: 41 4C 42 20 44 45 53 20 D4 45 58 54 45 53 20 3F |ALB DES .EXTES ?| 00001390: 00 43 4D 50 5A 45 49 4C 45 4E 2B 31 00 42 43 43 |.CMPZEILEN+1.BCC| 000013A0: 4E 4F 54 45 4E 44 00 42 4E 45 41 4D 45 4E 44 45 |NOTEND.BNEAMENDE| 000013B0: 00 4C 44 41 43 5A 45 49 4C 00 43 4D 50 5A 45 49 |.LDACZEIL.CMPZEI| 000013C0: 4C 45 4E 00 42 43 43 4E 4F 54 45 4E 44 00 41 4D |LEN.BCCNOTEND.AM| 000013D0: 45 4E 44 45 3A 4A 53 52 46 37 3B 5A 55 4D 20 D4 |ENDE:JSRF7;ZUM .| 000013E0: 45 58 54 45 4E 44 45 00 4A 53 52 46 38 00 4A 4D |EXTENDE.JSRF8.JM| 000013F0: 50 45 44 42 45 46 00 4E 4F 54 45 4E 44 3A 4A 53 |PEDBEF.NOTEND:JS| 00001400: 52 42 49 4C 44 00 4A 4D 50 45 44 42 45 46 00 20 |RBILD.JMPEDBEF. | 00001410: 00 3B 2A 2A 2A 20 20 20 20 20 20 C2 CC CF C3 CB |.;*** .....| 00001420: 20 D6 C5 D2 D3 C3 C8 C9 C5 C2 C5 CE 20 20 2A 2A | ........... **| 00001430: 2A 00 42 4C 4F 43 4B 4D 4F 56 45 3A 4C 44 41 23 |*.BLOCKMOVE:LDA#| 00001440: 31 3B C6 4C 41 47 20 46 55 45 52 20 CD 4F 56 45 |1;.LAG FUER .OVE| 00001450: 00 42 49 54 00 42 4C 4F 43 4B 43 4F 50 59 3A 4C |.BIT.BLOCKCOPY:L| 00001460: 44 41 23 30 3B C6 4C 41 47 20 46 55 45 52 20 C3 |DA#0;.LAG FUER .| 00001470: 4F 50 59 00 42 4C 43 4B 43 4F 50 59 3A 53 54 41 |OPY.BLCKCOPY:STA| 00001480: 42 55 46 46 45 52 32 00 4C 44 41 43 5A 45 49 4C |BUFFER2.LDACZEIL| 00001490: 3B C1 44 52 45 53 53 45 4E 20 42 45 52 45 43 48 |;.DRESSEN BERECH| 000014A0: 4E 45 4E 00 53 54 41 5A 41 48 4C 31 00 4C 44 41 |NEN.STAZAHL1.LDA| 000014B0: 43 5A 45 49 4C 2B 31 00 53 54 41 5A 41 48 4C 31 |CZEIL+1.STAZAHL1| 000014C0: 2B 31 00 4A 53 52 42 4C 4F 43 4B 54 45 53 54 3B |+1.JSRBLOCKTEST;| 000014D0: C2 45 46 45 48 4C 20 4D 4F 45 47 4C 49 43 48 20 |.EFEHL MOEGLICH | 000014E0: 3F 00 42 45 51 44 4F 43 4F 50 59 00 54 41 58 3B |?.BEQDOCOPY.TAX;| 000014F0: CE 45 49 4E 00 4D 45 4D 45 52 52 3A 4A 53 52 45 |.EIN.MEMERR:JSRE| 00001500: 44 45 52 52 4F 52 00 4A 4D 50 45 44 42 45 46 00 |DERROR.JMPEDBEF.| 00001510: 44 4F 43 4F 50 59 3A 4A 53 52 5A 41 44 52 3B 42 |DOCOPY:JSRZADR;B| 00001520: 55 46 46 45 52 20 41 55 46 20 C1 44 52 2E 20 DA |UFFER AUF .DR. .| 00001530: 49 45 4C 00 4C 44 41 5A 47 00 53 54 41 42 55 46 |IEL.LDAZG.STABUF| 00001540: 46 45 52 00 4C 44 41 5A 47 2B 31 00 53 54 41 42 |FER.LDAZG+1.STAB| 00001550: 55 46 46 45 52 2B 31 00 4C 44 41 42 4C 4F 41 4E |UFFER+1.LDABLOAN| 00001560: 46 3B 42 55 46 46 45 52 2B 32 20 41 55 46 20 C1 |F;BUFFER+2 AUF .| 00001570: 44 52 2E 20 C2 4C 4F 43 4B 41 4E 46 41 4E 47 00 |DR. .LOCKANFANG.| 00001580: 53 54 41 5A 41 48 4C 31 00 4C 44 41 42 4C 4F 41 |STAZAHL1.LDABLOA| 00001590: 4E 46 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 |NF+1.STAZAHL1+1.| 000015A0: 4A 53 52 5A 41 44 52 00 4C 44 41 5A 47 00 53 54 |JSRZADR.LDAZG.ST| 000015B0: 41 42 55 46 46 45 52 2B 32 00 4C 44 41 5A 47 2B |ABUFFER+2.LDAZG+| 000015C0: 31 00 53 54 41 42 55 46 46 45 52 2B 33 00 4C 44 |1.STABUFFER+3.LD| 000015D0: 41 42 4C 4F 45 4E 44 3B 42 55 46 46 45 52 2B 34 |ABLOEND;BUFFER+4| 000015E0: 20 41 55 46 20 C1 44 52 2E 20 C2 4C 4F 43 4B 45 | AUF .DR. .LOCKE| 000015F0: 4E 44 45 00 53 54 41 5A 41 48 4C 31 3B 2B 20 31 |NDE.STAZAHL1;+ 1| 00001600: 20 DA 45 49 4C 45 00 4C 44 41 42 4C 4F 45 4E 44 | .EILE.LDABLOEND| 00001610: 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 |+1.STAZAHL1+1.JS| 00001620: 52 5A 41 44 52 00 4A 53 52 54 45 58 54 4C 49 4E |RZADR.JSRTEXTLIN| 00001630: 45 00 4C 44 41 5A 47 00 53 54 41 42 55 46 46 45 |E.LDAZG.STABUFFE| 00001640: 52 2B 34 00 4C 44 41 5A 47 2B 31 00 53 54 41 42 |R+4.LDAZG+1.STAB| 00001650: 55 46 46 45 52 2B 35 00 53 45 43 3B C1 4E 5A 41 |UFFER+5.SEC;.NZA| 00001660: 48 4C 20 C2 59 54 45 20 49 4D 20 C2 4C 4F 43 4B |HL .YTE IM .LOCK| 00001670: 20 4E 41 43 48 20 5A 41 48 4C 33 00 4C 44 41 42 | NACH ZAHL3.LDAB| 00001680: 55 46 46 45 52 2B 34 00 53 42 43 42 55 46 46 45 |UFFER+4.SBCBUFFE| 00001690: 52 2B 32 00 53 54 41 5A 41 48 4C 33 00 4C 44 41 |R+2.STAZAHL3.LDA| 000016A0: 42 55 46 46 45 52 2B 35 00 53 42 43 42 55 46 46 |BUFFER+5.SBCBUFF| 000016B0: 45 52 2B 33 00 53 54 41 5A 41 48 4C 33 2B 31 00 |ER+3.STAZAHL3+1.| 000016C0: 4C 44 41 54 58 54 45 4E 44 3B C1 55 46 20 D3 50 |LDATXTEND;.UF .P| 000016D0: 45 49 43 48 45 52 50 4C 41 54 5A 20 54 45 53 54 |EICHERPLATZ TEST| 000016E0: 45 4E 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 54 |EN.STAZAHL2.LDAT| 000016F0: 58 54 45 4E 44 2B 31 00 53 54 41 5A 41 48 4C 32 |XTEND+1.STAZAHL2| 00001700: 2B 31 00 43 4C 43 00 4C 44 41 54 58 54 50 4F 49 |+1.CLC.LDATXTPOI| 00001710: 4E 54 3B CE 45 55 45 53 20 D4 45 58 54 45 4E 44 |NT;.EUES .EXTEND| 00001720: 45 00 41 44 43 5A 41 48 4C 33 00 53 54 41 5A 41 |E.ADCZAHL3.STAZA| 00001730: 48 4C 31 00 4C 44 41 54 58 54 50 4F 49 4E 54 2B |HL1.LDATXTPOINT+| 00001740: 31 00 41 44 43 5A 41 48 4C 33 2B 31 00 53 54 41 |1.ADCZAHL3+1.STA| 00001750: 5A 41 48 4C 31 2B 31 00 42 43 53 4D 45 4D 4F 52 |ZAHL1+1.BCSMEMOR| 00001760: 59 3B 5A 55 20 57 45 4E 49 47 20 D3 50 45 49 43 |Y;ZU WENIG .PEIC| 00001770: 48 45 52 00 4A 53 52 56 45 52 47 4C 45 49 43 48 |HER.JSRVERGLEICH| 00001780: 00 42 43 43 44 4F 43 4F 50 59 32 00 4D 45 4D 4F |.BCCDOCOPY2.MEMO| 00001790: 52 59 3A 4C 44 58 23 31 35 3B 5A 55 20 57 45 4E |RY:LDX#15;ZU WEN| 000017A0: 49 47 20 D3 50 45 49 43 48 45 52 00 42 4E 45 4D |IG .PEICHER.BNEM| 000017B0: 45 4D 45 52 52 00 44 4F 43 4F 50 59 32 3A 43 4C |EMERR.DOCOPY2:CL| 000017C0: 43 3B CC 55 45 43 4B 45 20 53 43 48 41 46 46 45 |C;.UECKE SCHAFFE| 000017D0: 4E 00 4C 44 41 42 55 46 46 45 52 3B 56 4F 4E 20 |N.LDABUFFER;VON | 000017E0: DA 49 45 4C 41 44 52 2E 00 53 54 41 5A 41 48 4C |.IELADR..STAZAHL| 000017F0: 31 3B 42 49 53 20 DA 49 45 4C 41 44 52 2B C2 4C |1;BIS .IELADR+.L| 00001800: 4F 43 4B 4C 41 45 4E 47 45 00 41 44 43 5A 41 48 |OCKLAENGE.ADCZAH| 00001810: 4C 33 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 42 |L3.STAZAHL2.LDAB| 00001820: 55 46 46 45 52 2B 31 00 53 54 41 5A 41 48 4C 31 |UFFER+1.STAZAHL1| 00001830: 2B 31 00 41 44 43 5A 41 48 4C 33 2B 31 00 53 54 |+1.ADCZAHL3+1.ST| 00001840: 41 5A 41 48 4C 32 2B 31 00 4A 53 52 54 4F 4D 4F |AZAHL2+1.JSRTOMO| 00001850: 56 45 3B CC 55 45 43 4B 45 20 45 49 4E 46 55 45 |VE;.UECKE EINFUE| 00001860: 47 45 4E 00 4C 44 41 42 55 46 46 45 52 2B 33 3B |GEN.LDABUFFER+3;| 00001870: C1 44 52 45 53 53 45 4E 20 4B 4F 52 52 49 47 49 |.DRESSEN KORRIGI| 00001880: 45 52 45 4E 00 43 4D 50 42 55 46 46 45 52 2B 31 |EREN.CMPBUFFER+1| 00001890: 00 42 43 43 41 44 52 4B 4F 52 52 45 4B 54 3B C5 |.BCCADRKORREKT;.| 000018A0: 49 4E 46 55 45 47 45 53 54 45 4C 4C 45 20 48 49 |INFUEGESTELLE HI| 000018B0: 4E 54 45 52 20 C2 4C 4F 43 4B 00 42 4E 45 41 44 |NTER .LOCK.BNEAD| 000018C0: 52 4B 4F 52 52 00 4C 44 41 42 55 46 46 45 52 2B |RKORR.LDABUFFER+| 000018D0: 32 00 43 4D 50 42 55 46 46 45 52 00 42 43 43 41 |2.CMPBUFFER.BCCA| 000018E0: 44 52 4B 4F 52 52 45 4B 54 00 41 44 52 4B 4F 52 |DRKORREKT.ADRKOR| 000018F0: 52 3A 43 4C 43 3B C5 49 4E 46 2E 50 4F 53 2E 20 |R:CLC;.INF.POS. | 00001900: 56 4F 52 20 C2 4C 4F 43 4B 2D 3E CB 4F 52 52 45 |VOR .LOCK->.ORRE| 00001910: 4B 54 55 52 00 4C 44 41 42 55 46 46 45 52 2B 32 |KTUR.LDABUFFER+2| 00001920: 3B C2 4C 4F 43 4B 41 4E 46 41 4E 47 53 41 44 52 |;.LOCKANFANGSADR| 00001930: 2E 20 2B 20 C2 4C 4F 43 4B 4C 41 45 4E 47 45 00 |. + .LOCKLAENGE.| 00001940: 41 44 43 5A 41 48 4C 33 00 53 54 41 42 55 46 46 |ADCZAHL3.STABUFF| 00001950: 45 52 2B 32 00 4C 44 41 42 55 46 46 45 52 2B 33 |ER+2.LDABUFFER+3| 00001960: 00 41 44 43 5A 41 48 4C 33 2B 31 00 53 54 41 42 |.ADCZAHL3+1.STAB| 00001970: 55 46 46 45 52 2B 33 00 43 4C 43 3B C2 4C 4F 43 |UFFER+3.CLC;.LOC| 00001980: 4B 45 4E 44 41 44 52 2E 20 2B 20 C2 4C 4F 43 4B |KENDADR. + .LOCK| 00001990: 4C 41 45 4E 47 45 00 4C 44 41 42 55 46 46 45 52 |LAENGE.LDABUFFER| 000019A0: 2B 34 00 41 44 43 5A 41 48 4C 33 00 53 54 41 42 |+4.ADCZAHL3.STAB| 000019B0: 55 46 46 45 52 2B 34 00 4C 44 41 42 55 46 46 45 |UFFER+4.LDABUFFE| 000019C0: 52 2B 35 00 41 44 43 5A 41 48 4C 33 2B 31 00 53 |R+5.ADCZAHL3+1.S| 000019D0: 54 41 42 55 46 46 45 52 2B 35 00 41 44 52 4B 4F |TABUFFER+5.ADRKO| 000019E0: 52 52 45 4B 54 3A 4C 44 41 42 55 46 46 45 52 3B |RREKT:LDABUFFER;| 000019F0: C2 4C 4F 43 4B 20 45 49 4E 4B 4F 50 49 45 52 45 |.LOCK EINKOPIERE| 00001A00: 4E 00 53 54 41 5A 47 32 3B 5A 47 32 20 41 55 46 |N.STAZG2;ZG2 AUF| 00001A10: 20 DA 49 45 4C 41 44 52 2E 00 4C 44 41 42 55 46 | .IELADR..LDABUF| 00001A20: 46 45 52 2B 31 00 53 54 41 5A 47 32 2B 31 00 4C |FER+1.STAZG2+1.L| 00001A30: 44 41 42 55 46 46 45 52 2B 32 3B 5A 47 20 41 55 |DABUFFER+2;ZG AU| 00001A40: 46 20 C2 4C 4F 43 4B 41 4E 46 41 4E 47 00 53 54 |F .LOCKANFANG.ST| 00001A50: 41 5A 47 00 4C 44 41 42 55 46 46 45 52 2B 33 00 |AZG.LDABUFFER+3.| 00001A60: 53 54 41 5A 47 2B 31 00 4C 44 59 23 30 3B CB 4F |STAZG+1.LDY#0;.O| 00001A70: 50 49 45 52 45 4E 00 43 4F 50 59 3A 4A 53 52 48 |PIEREN.COPY:JSRH| 00001A80: 4F 4C 5A 47 00 4A 53 52 50 55 54 5A 47 32 00 49 |OLZG.JSRPUTZG2.I| 00001A90: 4E 43 5A 47 3B 5A 47 2B 31 00 42 4E 45 58 31 00 |NCZG;ZG+1.BNEX1.| 00001AA0: 49 4E 43 5A 47 2B 31 00 58 31 3A 49 4E 43 5A 47 |INCZG+1.X1:INCZG| 00001AB0: 32 3B 5A 47 32 2B 31 00 42 4E 45 58 32 00 49 4E |2;ZG2+1.BNEX2.IN| 00001AC0: 43 5A 47 32 2B 31 00 58 32 3A 4C 44 41 5A 47 3B |CZG2+1.X2:LDAZG;| 00001AD0: 5A 47 3D C5 4E 44 41 44 52 45 53 53 45 20 3F 00 |ZG=.NDADRESSE ?.| 00001AE0: 43 4D 50 42 55 46 46 45 52 2B 34 00 42 4E 45 43 |CMPBUFFER+4.BNEC| 00001AF0: 4F 50 59 3B 4E 45 49 4E 2D 3E 20 57 45 49 54 45 |OPY;NEIN-> WEITE| 00001B00: 52 4B 4F 50 49 45 52 45 4E 00 4C 44 41 5A 47 2B |RKOPIEREN.LDAZG+| 00001B10: 31 00 43 4D 50 42 55 46 46 45 52 2B 35 00 42 4E |1.CMPBUFFER+5.BN| 00001B20: 45 43 4F 50 59 00 4C 44 41 5A 45 49 4C 45 4E 3B |ECOPY.LDAZEILEN;| 00001B30: C2 4C 4F 43 4B 44 45 46 2E 20 4B 4F 52 52 49 47 |.LOCKDEF. KORRIG| 00001B40: 49 45 52 45 4E 00 53 54 41 42 55 46 46 45 52 2B |IEREN.STABUFFER+| 00001B50: 34 3B C1 4E 5A 2E 20 DA 45 49 4C 45 4E 20 4D 45 |4;.NZ. .EILEN ME| 00001B60: 52 4B 45 4E 00 4C 44 41 5A 45 49 4C 45 4E 2B 31 |RKEN.LDAZEILEN+1| 00001B70: 00 53 54 41 42 55 46 46 45 52 2B 35 00 4A 53 52 |.STABUFFER+5.JSR| 00001B80: 50 4F 49 4E 54 45 52 3B D0 4F 49 4E 54 45 52 20 |POINTER;.OINTER | 00001B90: 4E 45 55 20 42 45 52 45 43 48 4E 45 4E 00 4C 44 |NEU BERECHNEN.LD| 00001BA0: 41 42 55 46 46 45 52 2B 31 3B CB 4F 52 52 45 4B |ABUFFER+1;.ORREK| 00001BB0: 54 55 52 20 4E 4F 45 54 49 47 20 3F 00 43 4D 50 |TUR NOETIG ?.CMP| 00001BC0: 42 55 46 46 45 52 2B 33 00 42 43 43 42 4C 4F 44 |BUFFER+3.BCCBLOD| 00001BD0: 45 46 4B 4F 00 42 4E 45 4E 4F 42 44 4B 4F 00 4C |EFKO.BNENOBDKO.L| 00001BE0: 44 41 42 55 46 46 45 52 00 43 4D 50 42 55 46 46 |DABUFFER.CMPBUFF| 00001BF0: 45 52 2B 32 00 42 43 53 4E 4F 42 44 4B 4F 00 42 |ER+2.BCSNOBDKO.B| 00001C00: 4C 4F 44 45 46 4B 4F 3A 53 45 43 3B CA 41 00 4C |LODEFKO:SEC;.A.L| 00001C10: 44 41 5A 45 49 4C 45 4E 3B C1 4E 5A 2E 20 DA 45 |DAZEILEN;.NZ. .E| 00001C20: 49 4C 45 4E 20 49 4D 20 C2 4C 4F 43 4B 20 4E 41 |ILEN IM .LOCK NA| 00001C30: 43 48 20 4D 45 4D 31 2F 32 00 53 42 43 42 55 46 |CH MEM1/2.SBCBUF| 00001C40: 46 45 52 2B 34 00 53 54 41 4D 45 4D 31 00 4C 44 |FER+4.STAMEM1.LD| 00001C50: 41 5A 45 49 4C 45 4E 2B 31 00 53 42 43 42 55 46 |AZEILEN+1.SBCBUF| 00001C60: 46 45 52 2B 35 00 53 54 41 4D 45 4D 32 00 43 4C |FER+5.STAMEM2.CL| 00001C70: 43 3B C2 4C 4F 43 4B 41 4E 46 41 4E 47 2B DA 45 |C;.LOCKANFANG+.E| 00001C80: 49 4C 45 4E 00 4C 44 41 42 4C 4F 41 4E 46 00 41 |ILEN.LDABLOANF.A| 00001C90: 44 43 4D 45 4D 31 00 53 54 41 42 4C 4F 41 4E 46 |DCMEM1.STABLOANF| 00001CA0: 00 4C 44 41 42 4C 4F 41 4E 46 2B 31 00 41 44 43 |.LDABLOANF+1.ADC| 00001CB0: 4D 45 4D 32 00 53 54 41 42 4C 4F 41 4E 46 2B 31 |MEM2.STABLOANF+1| 00001CC0: 00 43 4C 43 3B C2 4C 4F 43 4B 45 4E 44 45 2B DA |.CLC;.LOCKENDE+.| 00001CD0: 45 49 4C 45 4E 00 4C 44 41 42 4C 4F 45 4E 44 00 |EILEN.LDABLOEND.| 00001CE0: 41 44 43 4D 45 4D 31 00 53 54 41 42 4C 4F 45 4E |ADCMEM1.STABLOEN| 00001CF0: 44 00 4C 44 41 42 4C 4F 45 4E 44 2B 31 00 41 44 |D.LDABLOEND+1.AD| 00001D00: 43 4D 45 4D 32 00 53 54 41 42 4C 4F 45 4E 44 2B |CMEM2.STABLOEND+| 00001D10: 31 00 4E 4F 42 44 4B 4F 3A 4C 44 41 42 55 46 46 |1.NOBDKO:LDABUFF| 00001D20: 45 52 32 3B C3 4F 50 59 2D C2 45 46 45 48 4C 20 |ER2;.OPY-.EFEHL | 00001D30: 3F 00 42 45 51 4E 4F 42 44 4B 4F 32 00 4A 53 52 |?.BEQNOBDKO2.JSR| 00001D40: 44 4F 44 45 4C 3B CA C1 2D 3E C2 4C 4F 43 4B 20 |DODEL;..->.LOCK | 00001D50: 4C 4F 45 53 43 48 45 4E 00 4E 4F 42 44 4B 4F 32 |LOESCHEN.NOBDKO2| 00001D60: 3A 4A 53 52 42 49 4C 44 00 4A 4D 50 45 44 42 45 |:JSRBILD.JMPEDBE| 00001D70: 46 00 20 00 42 4C 4F 57 52 49 54 45 3A 4A 53 52 |F. .BLOWRITE:JSR| 00001D80: 42 4C 4F 43 4B 54 45 53 54 3B C2 4C 4F 43 4B 20 |BLOCKTEST;.LOCK | 00001D90: 41 55 46 20 C4 52 55 43 4B 45 52 00 43 4D 50 23 |AUF .RUCKER.CMP#| 00001DA0: 32 31 00 42 4E 45 42 4C 4F 57 52 00 54 41 58 3B |21.BNEBLOWR.TAX;| 00001DB0: C2 45 46 45 48 4C 20 4E 49 43 48 54 20 4D 4F 45 |.EFEHL NICHT MOE| 00001DC0: 47 4C 49 43 48 00 4A 53 52 45 44 45 52 52 4F 52 |GLICH.JSREDERROR| 00001DD0: 00 4A 4D 50 45 44 42 45 46 00 42 4C 4F 57 52 3A |.JMPEDBEF.BLOWR:| 00001DE0: 4C 44 41 42 4C 4F 41 4E 46 3B 5A 41 48 4C 31 20 |LDABLOANF;ZAHL1 | 00001DF0: 41 55 46 20 C2 4C 4F 43 4B 41 4E 46 41 4E 47 00 |AUF .LOCKANFANG.| 00001E00: 53 54 41 5A 41 48 4C 31 00 4C 44 41 42 4C 4F 41 |STAZAHL1.LDABLOA| 00001E10: 4E 46 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 |NF+1.STAZAHL1+1.| 00001E20: 4C 44 41 42 4C 4F 45 4E 44 3B 5A 41 48 4C 32 20 |LDABLOEND;ZAHL2 | 00001E30: 41 55 46 20 42 4C 4F 43 4B 45 4E 44 45 00 53 54 |AUF BLOCKENDE.ST| 00001E40: 41 5A 41 48 4C 32 00 4C 44 41 42 4C 4F 45 4E 44 |AZAHL2.LDABLOEND| 00001E50: 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 00 4A 53 |+1.STAZAHL2+1.JS| 00001E60: 52 44 4F 57 52 49 54 45 3B C4 52 55 43 4B 45 4E |RDOWRITE;.RUCKEN| 00001E70: 00 4A 4D 50 45 44 42 45 46 00 20 00 3B 2A 2A 2A |.JMPEDBEF. .;***| 00001E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 |************.;* | 00001EA0: 2A 20 20 20 20 CD 4F 56 45 20 2D 20 D6 45 52 53 |* .OVE - .ERS| 00001EB0: 43 48 49 45 42 45 4E 20 20 20 2A 20 2A 00 3B 2A |CHIEBEN * *.;*| 00001EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 |**************. | 00001EE0: 00 3B D6 45 52 53 43 48 49 45 42 45 52 4F 55 54 |.;.ERSCHIEBEROUT| 00001EF0: 49 4E 45 20 C1 4C 54 45 52 20 D3 54 41 52 54 20 |INE .LTER .TART | 00001F00: 20 20 5A 41 48 4C 31 00 3B 20 20 20 20 20 20 20 | ZAHL1.; | 00001F10: 20 20 20 20 20 20 20 20 20 20 20 CE 45 55 45 52 | .EUER| 00001F20: 20 D3 54 41 52 54 20 20 20 5A 41 48 4C 32 00 3B | .TART ZAHL2.;| 00001F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001F40: 20 20 C1 4C 54 45 53 20 C5 4E 44 45 20 20 20 20 | .LTES .NDE | 00001F50: 4D 45 4D 31 2F 32 00 20 00 4D 4F 56 45 3A 4A 53 |MEM1/2. .MOVE:JS| 00001F60: 52 50 55 54 43 4F 50 59 00 4C 44 59 23 30 3B D6 |RPUTCOPY.LDY#0;.| 00001F70: 45 52 53 43 48 49 45 42 45 52 49 43 48 54 55 4E |ERSCHIEBERICHTUN| 00001F80: 47 00 4C 44 41 23 31 32 38 00 53 54 41 53 43 52 |G.LDA#128.STASCR| 00001F90: 4F 4C 4C 46 4C 41 47 00 4C 44 41 4D 45 4D 31 3B |OLLFLAG.LDAMEM1;| 00001FA0: 45 52 4D 49 54 54 45 4C 4E 00 50 48 41 00 4A 53 |ERMITTELN.PHA.JS| 00001FB0: 52 56 45 52 47 4C 45 49 43 48 00 42 43 53 44 4F |RVERGLEICH.BCSDO| 00001FC0: 4D 4F 56 45 3B 5A 55 20 4E 49 45 44 52 49 47 45 |MOVE;ZU NIEDRIGE| 00001FD0: 52 20 C1 44 52 45 53 53 45 00 50 4C 41 00 53 45 |R .DRESSE.PLA.SE| 00001FE0: 43 00 53 54 41 5A 47 3B 5A 47 20 41 55 46 20 41 |C.STAZG;ZG AUF A| 00001FF0: 4C 54 45 53 20 C5 4E 44 45 00 53 42 43 5A 41 48 |LTES .NDE.SBCZAH| 00002000: 4C 31 3B 5A 47 32 20 41 55 46 20 C1 4E 5A 41 48 |L1;ZG2 AUF .NZAH| 00002010: 4C 20 C2 59 54 45 00 53 54 41 5A 47 32 00 4C 44 |L .YTE.STAZG2.LD| 00002020: 41 4D 45 4D 32 00 53 54 41 5A 47 2B 31 00 53 42 |AMEM2.STAZG+1.SB| 00002030: 43 5A 41 48 4C 31 2B 31 00 53 54 41 5A 47 32 2B |CZAHL1+1.STAZG2+| 00002040: 31 00 43 4C 43 3B 5A 47 32 20 41 55 46 20 C1 4E |1.CLC;ZG2 AUF .N| 00002050: 5A 2E C2 59 54 45 2B 4E 45 55 45 52 20 D3 54 41 |Z..YTE+NEUER .TA| 00002060: 52 54 20 3D 20 CE 45 55 45 53 20 C5 4E 44 45 00 |RT = .EUES .NDE.| 00002070: 4C 44 41 5A 47 32 00 41 44 43 5A 41 48 4C 32 00 |LDAZG2.ADCZAHL2.| 00002080: 53 54 41 5A 47 32 00 4C 44 41 5A 47 32 2B 31 00 |STAZG2.LDAZG2+1.| 00002090: 41 44 43 5A 41 48 4C 32 2B 31 00 53 54 41 5A 47 |ADCZAHL2+1.STAZG| 000020A0: 32 2B 31 00 55 4D 4F 3A 4A 53 52 52 41 4D 43 4F |2+1.UMO:JSRRAMCO| 000020B0: 50 59 3B C3 4F 50 59 20 D2 4F 55 54 49 4E 45 00 |PY;.OPY .OUTINE.| 000020C0: 4C 44 41 5A 47 3B 5A 47 2D 31 00 42 4E 45 4E 48 |LDAZG;ZG-1.BNENH| 000020D0: 31 00 44 45 43 5A 47 2B 31 00 4E 48 31 3A 44 45 |1.DECZG+1.NH1:DE| 000020E0: 43 5A 47 00 4C 44 41 5A 47 32 3B 5A 47 32 2D 31 |CZG.LDAZG2;ZG2-1| 000020F0: 00 42 4E 45 4E 48 32 00 44 45 43 5A 47 32 2B 31 |.BNENH2.DECZG2+1| 00002100: 00 4E 48 32 3A 44 45 43 5A 47 32 00 4C 44 41 5A |.NH2:DECZG2.LDAZ| 00002110: 47 3B 5A 47 20 41 55 46 20 41 4C 54 45 4E 20 D3 |G;ZG AUF ALTEN .| 00002120: 54 41 52 54 20 3F 00 43 4D 50 5A 41 48 4C 31 00 |TART ?.CMPZAHL1.| 00002130: 42 4E 45 55 4D 4F 00 4C 44 41 5A 47 2B 31 00 43 |BNEUMO.LDAZG+1.C| 00002140: 4D 50 5A 41 48 4C 31 2B 31 00 42 4E 45 55 4D 4F |MPZAHL1+1.BNEUMO| 00002150: 00 4A 53 52 52 41 4D 43 4F 50 59 3B 4A 41 2D 3E |.JSRRAMCOPY;JA->| 00002160: C6 45 52 54 49 47 00 4A 4D 50 50 55 54 52 41 4D |.ERTIG.JMPPUTRAM| 00002170: 52 4F 00 20 00 44 4F 4D 4F 56 45 3A 50 4C 41 00 |RO. .DOMOVE:PLA.| 00002180: 53 54 41 4D 45 4D 31 00 4C 44 41 5A 41 48 4C 31 |STAMEM1.LDAZAHL1| 00002190: 3B 5A 47 20 41 55 46 20 41 4C 54 45 4E 20 D3 54 |;ZG AUF ALTEN .T| 000021A0: 41 52 54 00 53 54 41 5A 47 00 4C 44 41 5A 41 48 |ART.STAZG.LDAZAH| 000021B0: 4C 31 2B 31 00 53 54 41 5A 47 2B 31 00 4C 44 41 |L1+1.STAZG+1.LDA| 000021C0: 5A 41 48 4C 32 3B 5A 47 32 20 41 55 46 20 4E 45 |ZAHL2;ZG2 AUF NE| 000021D0: 55 45 4E 20 D3 54 41 52 54 00 53 54 41 5A 47 32 |UEN .TART.STAZG2| 000021E0: 00 4C 44 41 5A 41 48 4C 32 2B 31 00 53 54 41 5A |.LDAZAHL2+1.STAZ| 000021F0: 47 32 2B 31 00 4C 44 41 4D 45 4D 31 3B 5A 41 48 |G2+1.LDAMEM1;ZAH| 00002200: 4C 31 20 41 55 46 20 41 4C 54 45 53 20 C5 4E 44 |L1 AUF ALTES .ND| 00002210: 45 00 53 54 41 5A 41 48 4C 31 00 4C 44 41 4D 45 |E.STAZAHL1.LDAME| 00002220: 4D 31 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 |M1+1.STAZAHL1+1.| 00002230: 44 4D 4F 3A 4A 53 52 52 41 4D 43 4F 50 59 3B C3 |DMO:JSRRAMCOPY;.| 00002240: 4F 50 59 20 D2 4F 55 54 49 4E 45 00 49 4E 43 5A |OPY .OUTINE.INCZ| 00002250: 47 3B 5A 47 2B 31 00 42 4E 45 4E 48 33 00 49 4E |G;ZG+1.BNENH3.IN| 00002260: 43 5A 47 2B 31 00 4E 48 33 3A 49 4E 43 5A 47 32 |CZG+1.NH3:INCZG2| 00002270: 3B 5A 47 32 2B 31 00 42 4E 45 4E 48 34 00 49 4E |;ZG2+1.BNENH4.IN| 00002280: 43 5A 47 32 2B 31 00 4E 48 34 3A 4C 44 41 5A 47 |CZG2+1.NH4:LDAZG| 00002290: 3B 5A 47 20 41 55 46 20 41 4C 54 45 4D 20 C5 4E |;ZG AUF ALTEM .N| 000022A0: 44 45 20 3F 00 43 4D 50 5A 41 48 4C 31 00 42 4E |DE ?.CMPZAHL1.BN| 000022B0: 45 44 4D 4F 00 4C 44 41 5A 47 2B 31 00 43 4D 50 |EDMO.LDAZG+1.CMP| 000022C0: 5A 41 48 4C 31 2B 31 00 42 4E 45 44 4D 4F 00 4A |ZAHL1+1.BNEDMO.J| 000022D0: 53 52 52 41 4D 43 4F 50 59 3B CA 41 00 4A 4D 50 |SRRAMCOPY;.A.JMP| 000022E0: 50 55 54 52 41 4D 52 4F 00 20 00 3B 2A 2A 2A 2A |PUTRAMRO. .;****| 000022F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A |***********.;* *| 00002310: 20 20 20 20 C5 44 49 54 4F 52 20 2D 20 C5 52 52 | .DITOR - .RR| 00002320: 4F 52 20 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A |OR * *.;**| 00002330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 |*************. .| 00002350: 45 44 45 52 52 4F 52 3A 4C 44 41 23 53 54 41 54 |EDERROR:LDA#STAT| 00002360: 43 4F 4C 00 4A 53 52 53 43 52 41 55 53 00 53 54 |COL.JSRSCRAUS.ST| 00002370: 58 4D 45 4D 31 3B CE 52 2E 20 4D 45 52 4B 45 4E |XMEM1;.R. MERKEN| 00002380: 00 4C 44 58 23 30 3B CF 42 45 52 45 20 DA 45 49 |.LDX#0;.BERE .EI| 00002390: 4C 45 20 4C 4F 45 53 43 48 45 4E 00 4A 53 52 43 |LE LOESCHEN.JSRC| 000023A0: 4C 52 4C 49 4E 45 00 45 44 45 52 52 4F 4C 3A 4C |LRLINE.EDERROL:L| 000023B0: 44 41 5A 45 49 4C 45 00 50 48 41 00 4C 44 41 53 |DAZEILE.PHA.LDAS| 000023C0: 50 41 4C 54 45 00 50 48 41 00 4A 53 52 48 4F 4D |PALTE.PHA.JSRHOM| 000023D0: 45 00 4C 44 58 4D 45 4D 31 00 43 50 58 23 33 31 |E.LDXMEM1.CPX#31| 000023E0: 3B D3 55 43 48 57 4F 52 54 20 47 45 46 55 4E 44 |;.UCHWORT GEFUND| 000023F0: 45 4E 00 42 4E 45 57 00 4C 44 41 43 5A 45 49 4C |EN.BNEW.LDACZEIL| 00002400: 3B DA 45 49 4C 45 20 41 55 53 47 45 42 45 4E 00 |;.EILE AUSGEBEN.| 00002410: 53 54 41 5A 41 48 4C 31 00 4C 44 41 43 5A 45 49 |STAZAHL1.LDACZEI| 00002420: 4C 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 4A |L+1.STAZAHL1+1.J| 00002430: 53 52 5A 41 48 4C 44 45 5A 4F 55 54 00 4C 44 41 |SRZAHLDEZOUT.LDA| 00002440: 23 37 00 4A 53 52 53 43 52 54 41 42 00 4C 44 58 |#7.JSRSCRTAB.LDX| 00002450: 23 33 31 00 57 3A 43 50 58 23 33 32 3B C3 4F 44 |#31.W:CPX#32;.OD| 00002460: 45 20 46 55 45 52 20 27 2D 20 C5 52 53 45 54 5A |E FUER '- .RSETZ| 00002470: 45 4E 27 00 42 4E 45 57 57 00 4C 44 41 23 32 30 |EN'.BNEWW.LDA#20| 00002480: 3B C1 4C 54 45 52 20 D4 45 58 54 20 42 4C 45 49 |;.LTER .EXT BLEI| 00002490: 42 54 00 53 54 41 53 50 41 4C 54 45 00 57 57 3A |BT.STASPALTE.WW:| 000024A0: 4A 53 52 57 52 49 54 45 00 50 4C 41 00 54 41 59 |JSRWRITE.PLA.TAY| 000024B0: 00 50 4C 41 00 54 41 58 00 4A 53 52 53 45 54 43 |.PLA.TAX.JSRSETC| 000024C0: 52 53 52 00 4A 4D 50 42 45 45 50 00 20 00 3B 2A |RSR.JMPBEEP. .;*| 000024D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000024E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B |**************.;| 000024F0: 2A 20 2A 20 20 20 20 D4 45 58 54 20 42 45 41 52 |* * .EXT BEAR| 00002500: 42 45 49 54 45 4E 20 20 20 20 20 20 2A 20 2A 00 |BEITEN * *.| 00002510: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00002520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002530: 00 20 00 44 45 4C 5A 45 49 4C 45 3A 4A 53 52 5A |. .DELZEILE:JSRZ| 00002540: 41 44 52 3B DA 45 49 4C 45 20 4C 4F 45 53 43 48 |ADR;.EILE LOESCH| 00002550: 45 4E 00 4C 44 41 5A 47 3B 5A 41 48 4C 32 2F 33 |EN.LDAZG;ZAHL2/3| 00002560: 20 41 55 46 20 DA 45 49 4C 45 4E 41 4E 46 41 4E | AUF .EILENANFAN| 00002570: 47 00 53 54 41 5A 41 48 4C 32 3B 28 20 5A 41 48 |G.STAZAHL2;( ZAH| 00002580: 4C 33 20 46 55 45 52 20 C3 48 41 4E 47 45 20 21 |L3 FUER .HANGE !| 00002590: 20 29 00 53 54 41 5A 41 48 4C 33 00 4C 44 41 5A | ).STAZAHL3.LDAZ| 000025A0: 47 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 00 53 |G+1.STAZAHL2+1.S| 000025B0: 54 41 5A 41 48 4C 33 2B 31 00 4C 44 41 43 5A 45 |TAZAHL3+1.LDACZE| 000025C0: 49 4C 3B CC 45 54 5A 54 45 20 DA 45 49 4C 45 20 |IL;.ETZTE .EILE | 000025D0: 3F 00 43 4D 50 5A 45 49 4C 45 4E 00 42 4E 45 52 |?.CMPZEILEN.BNER| 000025E0: 45 41 4C 44 45 4C 00 4C 44 41 43 5A 45 49 4C 2B |EALDEL.LDACZEIL+| 000025F0: 31 00 43 4D 50 5A 45 49 4C 45 4E 2B 31 00 42 45 |1.CMPZEILEN+1.BE| 00002600: 51 4C 41 53 54 44 45 4C 3B CA 41 00 52 45 41 4C |QLASTDEL;.A.REAL| 00002610: 44 45 4C 3A 4A 53 52 54 45 58 54 4C 49 4E 45 00 |DEL:JSRTEXTLINE.| 00002620: 4C 44 41 5A 47 3B 5A 41 48 4C 31 20 41 55 46 20 |LDAZG;ZAHL1 AUF | 00002630: C1 4E 46 41 47 20 44 45 52 00 53 54 41 5A 41 48 |.NFAG DER.STAZAH| 00002640: 4C 31 3B 4E 41 45 43 48 53 54 45 4E 20 DA 45 49 |L1;NAECHSTEN .EI| 00002650: 4C 45 00 4C 44 41 5A 47 2B 31 00 53 54 41 5A 41 |LE.LDAZG+1.STAZA| 00002660: 48 4C 31 2B 31 00 4A 53 52 54 4F 4D 4F 56 45 3B |HL1+1.JSRTOMOVE;| 00002670: DA 45 49 4C 45 20 4C 4F 45 53 43 48 45 4E 00 4C |.EILE LOESCHEN.L| 00002680: 44 41 5A 47 32 3B 54 58 54 50 4F 49 4E 54 20 4E |DAZG2;TXTPOINT N| 00002690: 45 55 20 53 45 54 5A 45 4E 00 53 54 41 54 58 54 |EU SETZEN.STATXT| 000026A0: 50 4F 49 4E 54 00 4C 44 41 5A 47 32 2B 31 00 44 |POINT.LDAZG2+1.D| 000026B0: 45 4C 41 42 53 43 48 4C 3A 53 54 41 54 58 54 50 |ELABSCHL:STATXTP| 000026C0: 4F 49 4E 54 2B 31 00 4C 44 41 5A 45 49 4C 45 4E |OINT+1.LDAZEILEN| 000026D0: 3B DA 45 49 4C 45 4E 2D 31 00 42 4E 45 4E 48 5A |;.EILEN-1.BNENHZ| 000026E0: 00 44 45 43 5A 45 49 4C 45 4E 2B 31 00 4E 48 5A |.DECZEILEN+1.NHZ| 000026F0: 3A 44 45 43 5A 45 49 4C 45 4E 00 52 54 53 00 20 |:DECZEILEN.RTS. | 00002700: 00 4C 41 53 54 44 45 4C 3A 4C 44 41 23 30 3B 4C |.LASTDEL:LDA#0;L| 00002710: 45 54 5A 54 45 20 DA 45 49 4C 45 20 4C 4F 45 53 |ETZTE .EILE LOES| 00002720: 43 48 45 4E 00 4A 53 52 50 55 54 5A 47 00 4C 44 |CHEN.JSRPUTZG.LD| 00002730: 41 5A 47 00 53 54 41 54 58 54 50 4F 49 4E 54 00 |AZG.STATXTPOINT.| 00002740: 4C 44 41 5A 47 2B 31 00 4A 4D 50 44 45 4C 41 42 |LDAZG+1.JMPDELAB| 00002750: 53 43 48 4C 00 20 00 54 4F 4D 4F 56 45 3A 4C 44 |SCHL. .TOMOVE:LD| 00002760: 41 54 58 54 50 4F 49 4E 54 3B 41 4C 54 45 53 20 |ATXTPOINT;ALTES | 00002770: C5 4E 44 45 20 3D 20 D4 45 58 54 45 4E 44 45 00 |.NDE = .EXTENDE.| 00002780: 53 54 41 4D 45 4D 31 00 4C 44 41 54 58 54 50 4F |STAMEM1.LDATXTPO| 00002790: 49 4E 54 2B 31 00 53 54 41 4D 45 4D 32 00 4A 4D |INT+1.STAMEM2.JM| 000027A0: 50 4D 4F 56 45 00 20 00 49 4E 53 5A 45 49 4C 45 |PMOVE. .INSZEILE| 000027B0: 3A 4A 53 52 42 4C 4F 49 4E 53 4B 4F 52 52 00 4C |:JSRBLOINSKORR.L| 000027C0: 44 41 23 30 3B DA 45 49 4C 45 20 45 49 4E 46 55 |DA#0;.EILE EINFU| 000027D0: 45 47 45 4E 00 49 4E 53 45 52 54 3A 50 48 41 3B |EGEN.INSERT:PHA;| 000027E0: 30 3D C6 4C 41 47 20 46 55 45 52 20 C1 44 52 2E |0=.LAG FUER .DR.| 000027F0: 20 42 45 52 45 43 48 4E 45 4E 00 4C 44 59 23 38 | BERECHNEN.LDY#8| 00002800: 30 3B DA 45 49 4C 45 4C 41 45 4E 47 45 20 53 55 |0;.EILELAENGE SU| 00002810: 43 48 45 4E 00 53 45 41 4C 45 4E 3A 4C 44 41 45 |CHEN.SEALEN:LDAE| 00002820: 44 42 55 46 46 45 52 2D 31 2C 59 00 43 4D 50 23 |DBUFFER-1,Y.CMP#| 00002830: 33 32 00 42 4E 45 4C 45 4E 46 4F 55 00 44 45 59 |32.BNELENFOU.DEY| 00002840: 00 42 4E 45 53 45 41 4C 45 4E 00 49 4E 59 3B CC |.BNESEALEN.INY;.| 00002850: 45 45 52 5A 45 49 4C 45 00 4C 45 4E 46 4F 55 3A |EERZEILE.LENFOU:| 00002860: 49 4E 59 00 4C 44 41 23 30 3B DA 45 49 4C 45 20 |INY.LDA#0;.EILE | 00002870: 4D 49 54 20 30 20 41 42 53 43 48 4C 49 45 53 53 |MIT 0 ABSCHLIESS| 00002880: 45 4E 00 53 54 41 45 44 42 55 46 46 45 52 2D 31 |EN.STAEDBUFFER-1| 00002890: 2C 59 00 53 54 59 4D 45 4D 34 3B CC 41 45 4E 47 |,Y.STYMEM4;.AENG| 000028A0: 45 20 4E 41 43 48 20 4D 45 4D 34 00 4C 44 59 23 |E NACH MEM4.LDY#| 000028B0: 30 00 4C 44 41 5A 45 49 4C 45 4E 3B DA 45 49 4C |0.LDAZEILEN;.EIL| 000028C0: 45 20 41 4E 20 D4 45 58 54 20 41 4E 48 41 45 4E |E AN .EXT ANHAEN| 000028D0: 47 45 4E 20 3F 00 53 54 41 5A 41 48 4C 32 00 4C |GEN ?.STAZAHL2.L| 000028E0: 44 41 5A 45 49 4C 45 4E 2B 31 00 53 54 41 5A 41 |DAZEILEN+1.STAZA| 000028F0: 48 4C 32 2B 31 00 4A 53 52 56 45 52 47 4C 45 49 |HL2+1.JSRVERGLEI| 00002900: 43 48 00 42 43 53 41 4E 48 41 45 4E 47 45 4E 3B |CH.BCSANHAENGEN;| 00002910: CA 41 00 50 4C 41 00 42 45 51 53 55 43 48 41 4E |.A.PLA.BEQSUCHAN| 00002920: 46 3B C1 44 52 45 53 53 45 20 53 55 43 48 45 4E |F;.DRESSE SUCHEN| 00002930: 00 4C 44 41 5A 41 48 4C 33 3B C1 44 52 45 53 53 |.LDAZAHL3;.DRESS| 00002940: 45 20 56 4F 4E 20 C4 45 4C 45 54 45 20 48 4F 4C |E VON .ELETE HOL| 00002950: 45 4E 00 53 54 41 5A 47 00 4C 44 41 5A 41 48 4C |EN.STAZG.LDAZAHL| 00002960: 33 2B 31 00 53 54 41 5A 47 2B 31 00 4A 4D 50 4E |3+1.STAZG+1.JMPN| 00002970: 4F 54 53 55 43 48 00 53 55 43 48 41 4E 46 3A 4A |OTSUCH.SUCHANF:J| 00002980: 53 52 5A 41 44 52 3B C1 44 52 2E 20 53 55 43 48 |SRZADR;.DR. SUCH| 00002990: 45 4E 00 4E 4F 54 53 55 43 48 3A 43 4C 43 3B 5A |EN.NOTSUCH:CLC;Z| 000029A0: 41 48 4C 31 20 41 55 46 20 41 4C 54 45 4E 20 D3 |AHL1 AUF ALTEN .| 000029B0: 54 41 52 54 00 4C 44 41 5A 47 00 53 54 41 5A 41 |TART.LDAZG.STAZA| 000029C0: 48 4C 31 00 41 44 43 4D 45 4D 34 00 53 54 41 5A |HL1.ADCMEM4.STAZ| 000029D0: 41 48 4C 32 3B 5A 41 48 4C 32 20 41 55 46 20 4E |AHL2;ZAHL2 AUF N| 000029E0: 45 55 45 4E 20 D3 54 41 52 54 00 4C 44 41 5A 47 |EUEN .TART.LDAZG| 000029F0: 2B 31 3B 28 20 3D 20 41 4C 54 45 52 20 D3 54 41 |+1;( = ALTER .TA| 00002A00: 52 54 20 2B 20 DA 45 49 4C 45 4E 4C 41 45 4E 47 |RT + .EILENLAENG| 00002A10: 45 20 29 00 53 54 41 5A 41 48 4C 31 2B 31 00 41 |E ).STAZAHL1+1.A| 00002A20: 44 43 23 30 00 53 54 41 5A 41 48 4C 32 2B 31 00 |DC#0.STAZAHL2+1.| 00002A30: 4A 53 52 54 4F 4D 4F 56 45 3B D6 45 52 53 43 48 |JSRTOMOVE;.ERSCH| 00002A40: 49 45 42 45 4E 00 4C 44 41 5A 41 48 4C 31 3B 5A |IEBEN.LDAZAHL1;Z| 00002A50: 47 20 41 55 46 20 41 4C 54 45 4E 20 D3 54 41 52 |G AUF ALTEN .TAR| 00002A60: 54 00 53 54 41 5A 47 00 4C 44 41 5A 41 48 4C 31 |T.STAZG.LDAZAHL1| 00002A70: 2B 31 00 53 54 41 5A 47 2B 31 00 50 55 54 5A 45 |+1.STAZG+1.PUTZE| 00002A80: 49 3A 4C 44 59 4D 45 4D 34 3B DA 45 49 4C 45 20 |I:LDYMEM4;.EILE | 00002A90: 45 49 4E 4B 4F 50 49 45 52 45 4E 00 44 45 59 00 |EINKOPIEREN.DEY.| 00002AA0: 50 55 54 5A 45 49 4C 3A 4C 44 41 45 44 42 55 46 |PUTZEIL:LDAEDBUF| 00002AB0: 46 45 52 2C 59 00 4A 53 52 50 55 54 5A 47 00 44 |FER,Y.JSRPUTZG.D| 00002AC0: 45 59 00 42 50 4C 50 55 54 5A 45 49 4C 3B C6 45 |EY.BPLPUTZEIL;.E| 00002AD0: 52 54 49 47 20 3F 00 43 4C 43 3B D4 45 58 54 45 |RTIG ?.CLC;.EXTE| 00002AE0: 4E 44 45 2B DA 45 49 4C 45 4E 4C 41 45 4E 47 45 |NDE+.EILENLAENGE| 00002AF0: 00 4C 44 41 4D 45 4D 34 00 41 44 43 54 58 54 50 |.LDAMEM4.ADCTXTP| 00002B00: 4F 49 4E 54 00 53 54 41 54 58 54 50 4F 49 4E 54 |OINT.STATXTPOINT| 00002B10: 00 4C 44 41 23 30 00 41 44 43 54 58 54 50 4F 49 |.LDA#0.ADCTXTPOI| 00002B20: 4E 54 2B 31 00 53 54 41 54 58 54 50 4F 49 4E 54 |NT+1.STATXTPOINT| 00002B30: 2B 31 00 49 4E 43 5A 45 49 4C 45 4E 3B DA 45 49 |+1.INCZEILEN;.EI| 00002B40: 4C 45 4E 20 2B 31 00 42 4E 45 49 4E 53 52 54 00 |LEN +1.BNEINSRT.| 00002B50: 49 4E 43 5A 45 49 4C 45 4E 2B 31 00 49 4E 53 52 |INCZEILEN+1.INSR| 00002B60: 54 3A 52 54 53 00 20 00 41 4E 48 41 45 4E 47 45 |T:RTS. .ANHAENGE| 00002B70: 4E 3A 50 4C 41 3B DA 45 49 4C 45 20 41 4E 20 D4 |N:PLA;.EILE AN .| 00002B80: 45 58 54 20 41 4E 48 41 45 4E 47 45 4E 00 4C 44 |EXT ANHAENGEN.LD| 00002B90: 41 54 58 54 50 4F 49 4E 54 3B 5A 47 20 41 55 46 |ATXTPOINT;ZG AUF| 00002BA0: 20 D4 45 58 54 45 4E 44 45 00 53 54 41 5A 47 00 | .EXTENDE.STAZG.| 00002BB0: 4C 44 41 54 58 54 50 4F 49 4E 54 2B 31 00 53 54 |LDATXTPOINT+1.ST| 00002BC0: 41 5A 47 2B 31 00 4A 53 52 50 55 54 5A 45 49 3B |AZG+1.JSRPUTZEI;| 00002BD0: DA 45 49 4C 45 20 41 4E 48 41 45 4E 47 45 4E 00 |.EILE ANHAENGEN.| 00002BE0: 4C 44 59 4D 45 4D 34 3B 30 20 46 55 45 52 20 D4 |LDYMEM4;0 FUER .| 00002BF0: 45 58 54 45 4E 44 45 20 41 4E 48 2E 00 4C 44 41 |EXTENDE ANH..LDA| 00002C00: 23 30 00 4A 4D 50 50 55 54 5A 47 00 20 00 3B 2A |#0.JMPPUTZG. .;*| 00002C10: 2A 2A 20 20 20 DA 45 49 4C 45 20 41 45 4E 44 45 |** .EILE AENDE| 00002C20: 52 4E 20 20 2A 2A 2A 00 43 48 41 4E 47 45 3A 4A |RN ***.CHANGE:J| 00002C30: 53 52 44 45 4C 5A 45 49 4C 45 3B DA 45 49 4C 45 |SRDELZEILE;.EILE| 00002C40: 20 4C 4F 45 53 43 48 45 4E 00 4C 44 41 43 5A 45 | LOESCHEN.LDACZE| 00002C50: 49 4C 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 |IL;.EILENNUMMER | 00002C60: 4E 41 43 48 20 5A 41 48 4C 31 00 53 54 41 5A 41 |NACH ZAHL1.STAZA| 00002C70: 48 4C 31 00 4C 44 41 43 5A 45 49 4C 2B 31 00 53 |HL1.LDACZEIL+1.S| 00002C80: 54 41 5A 41 48 4C 31 2B 31 00 4C 44 41 23 31 3B |TAZAHL1+1.LDA#1;| 00002C90: C6 4C 41 47 20 46 55 45 52 20 41 4C 54 45 20 C1 |.LAG FUER ALTE .| 00002CA0: 44 52 45 53 53 45 00 4A 4D 50 49 4E 53 45 52 54 |DRESSE.JMPINSERT| 00002CB0: 3B DA 45 49 4C 45 20 45 49 4E 46 55 45 47 45 4E |;.EILE EINFUEGEN| 00002CC0: 00 20 00 50 41 43 4B 3A 4C 44 58 23 30 3B DA 45 |. .PACK:LDX#0;.E| 00002CD0: 49 4C 45 20 50 41 43 4B 45 4E 00 4C 44 59 23 30 |ILE PACKEN.LDY#0| 00002CE0: 00 4A 53 52 44 4F 50 41 43 4B 3B 50 41 43 4B 45 |.JSRDOPACK;PACKE| 00002CF0: 4E 00 4C 44 41 23 33 32 3B D2 45 53 54 20 4D 49 |N.LDA#32;.EST MI| 00002D00: 54 20 D3 50 41 43 45 20 46 55 45 4C 4C 45 4E 00 |T .PACE FUELLEN.| 00002D10: 44 45 4C 4C 4F 3A 43 50 59 23 38 30 00 42 43 43 |DELLO:CPY#80.BCC| 00002D20: 2A 2B 33 00 52 54 53 00 53 54 41 45 44 42 55 46 |*+3.RTS.STAEDBUF| 00002D30: 46 45 52 2C 59 3B 46 55 45 4C 4C 45 4E 00 49 4E |FER,Y;FUELLEN.IN| 00002D40: 59 00 42 4E 45 44 45 4C 4C 4F 00 44 4F 50 41 43 |Y.BNEDELLO.DOPAC| 00002D50: 4B 3A 4C 44 41 45 44 42 55 46 46 45 52 2C 58 3B |K:LDAEDBUFFER,X;| 00002D60: 46 55 45 48 52 45 4E 44 45 20 CC 45 45 52 5A 45 |FUEHRENDE .EERZE| 00002D70: 49 43 48 45 4E 20 4C 4F 45 53 43 48 45 4E 00 43 |ICHEN LOESCHEN.C| 00002D80: 4D 50 23 33 32 00 42 45 51 4E 43 48 41 52 00 53 |MP#32.BEQNCHAR.S| 00002D90: 54 41 45 44 42 55 46 46 45 52 2C 59 3B 4B 45 49 |TAEDBUFFER,Y;KEI| 00002DA0: 4E 20 CC 45 45 52 5A 45 49 43 48 45 4E 00 49 4E |N .EERZEICHEN.IN| 00002DB0: 59 00 43 4D 50 23 33 39 3B C1 50 4F 53 54 52 4F |Y.CMP#39;.POSTRO| 00002DC0: 50 48 00 42 45 51 43 48 41 52 46 4C 3B 4E 45 58 |PH.BEQCHARFL;NEX| 00002DD0: 54 20 DA 45 49 43 48 45 4E 20 55 45 42 45 52 4C |T .EICHEN UEBERL| 00002DE0: 45 53 45 4E 00 43 4D 50 23 27 3B 00 42 45 51 4B |ESEN.CMP#';.BEQK| 00002DF0: 4F 4D 3B D2 45 53 54 20 CB 4F 4D 4D 45 4E 54 41 |OM;.EST .OMMENTA| 00002E00: 52 00 43 4D 50 23 27 22 00 42 45 51 51 55 4F 54 |R.CMP#'".BEQQUOT| 00002E10: 45 46 4C 3B DA 45 49 43 48 45 4E 4B 45 54 54 45 |EFL;.EICHENKETTE| 00002E20: 00 4E 43 48 41 52 3A 49 4E 58 3B CE 45 58 54 20 |.NCHAR:INX;.EXT | 00002E30: DA 45 49 43 48 45 4E 00 43 50 58 23 38 30 00 42 |.EICHEN.CPX#80.B| 00002E40: 4E 45 44 4F 50 41 43 4B 00 52 54 53 00 43 48 41 |NEDOPACK.RTS.CHA| 00002E50: 52 46 4C 3A 49 4E 58 3B DA 45 49 43 48 45 4E 20 |RFL:INX;.EICHEN | 00002E60: 55 45 42 45 52 54 52 41 47 45 4E 00 4C 44 41 45 |UEBERTRAGEN.LDAE| 00002E70: 44 42 55 46 46 45 52 2C 58 00 53 54 41 45 44 42 |DBUFFER,X.STAEDB| 00002E80: 55 46 46 45 52 2C 59 00 49 4E 59 00 42 4E 45 4E |UFFER,Y.INY.BNEN| 00002E90: 43 48 41 52 3B 55 4E 44 20 57 45 49 54 45 52 00 |CHAR;UND WEITER.| 00002EA0: 51 55 4F 54 45 46 4C 3A 49 4E 58 3B DA 45 49 43 |QUOTEFL:INX;.EIC| 00002EB0: 48 45 4E 4B 45 54 54 45 20 55 45 42 45 52 54 52 |HENKETTE UEBERTR| 00002EC0: 41 47 45 4E 00 4C 44 41 45 44 42 55 46 46 45 52 |AGEN.LDAEDBUFFER| 00002ED0: 2C 58 00 53 54 41 45 44 42 55 46 46 45 52 2C 59 |,X.STAEDBUFFER,Y| 00002EE0: 00 49 4E 59 00 43 4D 50 23 27 22 3B 42 49 53 20 |.INY.CMP#'";BIS | 00002EF0: 27 22 27 00 42 45 51 4E 43 48 41 52 00 43 50 58 |'"'.BEQNCHAR.CPX| 00002F00: 23 38 30 3B 4F 44 45 52 20 DA 45 49 4C 45 4E 45 |#80;ODER .EILENE| 00002F10: 4E 44 45 00 42 4E 45 51 55 4F 54 45 46 4C 00 52 |NDE.BNEQUOTEFL.R| 00002F20: 54 53 00 4B 4F 4D 3A 49 4E 58 3B CB 4F 4D 4D 45 |TS.KOM:INX;.OMME| 00002F30: 4E 54 41 52 20 55 45 42 45 52 54 52 41 47 45 4E |NTAR UEBERTRAGEN| 00002F40: 00 4C 44 41 45 44 42 55 46 46 45 52 2C 58 00 53 |.LDAEDBUFFER,X.S| 00002F50: 54 41 45 44 42 55 46 46 45 52 2C 59 00 49 4E 59 |TAEDBUFFER,Y.INY| 00002F60: 00 43 50 58 23 38 30 00 42 4E 45 4B 4F 4D 00 52 |.CPX#80.BNEKOM.R| 00002F70: 54 53 00 20 00 45 44 55 4E 50 41 43 4B 3A 4C 44 |TS. .EDUNPACK:LD| 00002F80: 41 45 44 42 55 46 46 45 52 3B 45 44 42 55 46 46 |AEDBUFFER;EDBUFF| 00002F90: 45 52 20 41 55 46 20 C6 4F 52 4D 41 54 20 42 52 |ER AUF .ORMAT BR| 00002FA0: 49 4E 47 45 4E 00 43 4D 50 23 27 3B 3B CB 4F 4D |INGEN.CMP#';;.OM| 00002FB0: 4D 45 4E 54 41 52 5A 45 49 4C 45 20 3F 00 42 4E |MENTARZEILE ?.BN| 00002FC0: 45 2A 2B 33 00 52 54 53 3B CA 41 00 4A 53 52 50 |E*+3.RTS;.A.JSRP| 00002FD0: 41 43 4B 3B 42 55 46 46 45 52 20 50 41 43 4B 45 |ACK;BUFFER PACKE| 00002FE0: 4E 00 4C 44 59 23 37 39 3B 41 4E 5A 45 49 42 55 |N.LDY#79;ANZEIBU| 00002FF0: 46 20 4C 4F 45 53 43 48 45 4E 00 4C 44 41 23 33 |F LOESCHEN.LDA#3| 00003000: 32 00 44 42 55 3A 53 54 41 41 4E 5A 45 49 42 55 |2.DBU:STAANZEIBU| 00003010: 46 2C 59 00 44 45 59 00 42 50 4C 44 42 55 00 4C |F,Y.DEY.BPLDBU.L| 00003020: 44 41 23 27 3B 3B 4D 45 4D 33 20 41 55 46 20 CB |DA#';;MEM3 AUF .| 00003030: 4F 4D 4D 45 4E 54 41 52 50 4F 53 2E 00 4A 53 52 |OMMENTARPOS..JSR| 00003040: 49 4E 53 54 52 49 4E 47 00 53 54 59 4D 45 4D 33 |INSTRING.STYMEM3| 00003050: 00 4C 44 41 23 27 3A 3B 4D 45 4D 32 20 41 55 46 |.LDA#':;MEM2 AUF| 00003060: 20 CC 41 42 45 4C 50 4F 53 2E 00 4A 53 52 49 4E | .ABELPOS..JSRIN| 00003070: 53 54 52 49 4E 47 00 53 54 59 4D 45 4D 32 00 43 |STRING.STYMEM2.C| 00003080: 50 59 23 30 00 42 45 51 2A 2B 34 00 49 4E 43 4D |PY#0.BEQ*+4.INCM| 00003090: 45 4D 32 3B CC 41 42 45 4C 20 56 4F 52 48 41 4E |EM2;.ABEL VORHAN| 000030A0: 44 45 4E 20 2D 3E 20 D0 4F 53 2B 31 00 4C 44 58 |DEN -> .OS+1.LDX| 000030B0: 23 30 00 4C 44 59 23 30 00 4C 44 41 4D 45 4D 32 |#0.LDY#0.LDAMEM2| 000030C0: 00 42 4E 45 2A 2B 34 00 4C 44 58 23 31 32 3B C2 |.BNE*+4.LDX#12;.| 000030D0: 45 46 45 48 4C 53 50 4F 53 2E 00 55 50 54 52 41 |EFEHLSPOS..UPTRA| 000030E0: 3A 4C 44 41 45 44 42 55 46 46 45 52 2C 59 00 53 |:LDAEDBUFFER,Y.S| 000030F0: 54 41 41 4E 5A 45 49 42 55 46 2C 58 00 49 4E 58 |TAANZEIBUF,X.INX| 00003100: 00 49 4E 59 00 43 50 58 23 38 30 3B C6 45 52 54 |.INY.CPX#80;.ERT| 00003110: 49 47 20 3F 20 20 20 20 20 20 20 20 20 20 20 20 |IG ? | 00003120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003140: 20 20 20 20 20 20 20 20 20 20 20 20 00 42 4E 45 | .BNE| 00003150: 4E 55 50 52 45 41 44 59 00 4C 44 58 23 37 39 3B |NUPREADY.LDX#79;| 00003160: 41 4E 5A 45 49 42 55 46 2D 3E 45 44 42 55 46 46 |ANZEIBUF->EDBUFF| 00003170: 45 52 00 45 4E 44 55 50 4C 3A 4C 44 41 41 4E 5A |ER.ENDUPL:LDAANZ| 00003180: 45 49 42 55 46 2C 58 00 53 54 41 45 44 42 55 46 |EIBUF,X.STAEDBUF| 00003190: 46 45 52 2C 58 00 44 45 58 00 42 50 4C 45 4E 44 |FER,X.DEX.BPLEND| 000031A0: 55 50 4C 00 52 54 53 3B C6 45 52 54 49 47 00 4E |UPL.RTS;.ERTIG.N| 000031B0: 55 50 52 45 41 44 59 3A 43 50 58 23 31 35 3B C2 |UPREADY:CPX#15;.| 000031C0: 45 46 45 48 4C 53 45 4E 44 45 20 3F 00 42 4E 45 |EFEHLSENDE ?.BNE| 000031D0: 2A 2B 33 00 49 4E 58 00 43 50 59 4D 45 4D 32 3B |*+3.INX.CPYMEM2;| 000031E0: CC 41 42 45 4C 45 4E 44 45 20 3F 00 42 4E 45 4E |.ABELENDE ?.BNEN| 000031F0: 55 50 4C 42 4C 00 43 50 58 23 31 32 00 42 43 53 |UPLBL.CPX#12.BCS| 00003200: 2A 2B 34 00 4C 44 58 23 31 32 00 4E 55 50 4C 42 |*+4.LDX#12.NUPLB| 00003210: 4C 3A 43 50 59 4D 45 4D 33 3B CB 4F 4D 4D 45 4E |L:CPYMEM3;.OMMEN| 00003220: 54 41 52 50 4F 53 2E 00 42 4E 45 55 50 54 52 41 |TARPOS..BNEUPTRA| 00003230: 00 43 50 58 23 33 31 00 42 43 53 55 50 54 52 41 |.CPX#31.BCSUPTRA| 00003240: 00 4C 44 58 23 33 31 00 42 4E 45 55 50 54 52 41 |.LDX#31.BNEUPTRA| 00003250: 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. .;************| 00003260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003270: 2A 2A 2A 00 3B 2A 20 2A 20 20 20 D3 55 43 48 45 |***.;* * .UCHE| 00003280: 4E 20 55 4E 44 20 C5 52 53 45 54 5A 45 4E 20 20 |N UND .RSETZEN | 00003290: 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;**********| 000032A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000032B0: 2A 2A 2A 2A 2A 00 20 00 3B 42 55 46 46 45 52 2B |*****. .;BUFFER+| 000032C0: 31 30 20 20 D3 55 43 48 57 4F 52 54 20 20 20 20 |10 .UCHWORT | 000032D0: 20 42 55 46 46 45 52 2B 35 30 20 20 C5 52 53 45 | BUFFER+50 .RSE| 000032E0: 54 5A 57 4F 52 54 00 3B 42 55 46 46 45 52 33 20 |TZWORT.;BUFFER3 | 000032F0: 20 20 20 CC 45 4E 20 D7 4F 52 54 31 20 20 20 20 | .EN .ORT1 | 00003300: 42 55 46 46 45 52 33 2B 31 20 20 CC 45 4E 20 57 |BUFFER3+1 .EN W| 00003310: 4F 52 54 32 00 3B 42 55 46 46 45 52 33 2B 32 20 |ORT2.;BUFFER3+2 | 00003320: 20 CC 45 4E 20 D7 4F 52 54 32 2D D7 4F 52 54 31 | .EN .ORT2-.ORT1| 00003330: 00 3B 42 55 46 46 45 52 33 2B 33 20 20 30 3D C6 |.;BUFFER3+3 0=.| 00003340: 49 4E 44 20 20 31 3D D3 55 42 53 54 2E 00 3B 42 |IND 1=.UBST..;B| 00003350: 55 46 46 45 52 33 2B 34 20 20 D9 2D D2 45 47 49 |UFFER3+4 .-.EGI| 00003360: 53 54 45 52 20 20 20 42 55 46 46 45 52 33 2B 35 |STER BUFFER3+5| 00003370: 20 20 DA 45 49 4C 45 4E 4C 41 45 4E 47 45 00 3B | .EILENLAENGE.;| 00003380: 42 55 46 46 45 52 33 2B 36 20 20 C6 4C 41 47 53 |BUFFER3+6 .LAGS| 00003390: 00 20 00 41 52 47 49 4E 3A 4C 44 58 23 30 3B C5 |. .ARGIN:LDX#0;.| 000033A0: 49 4E 20 D7 4F 52 54 20 48 4F 4C 45 4E 00 41 49 |IN .ORT HOLEN.AI| 000033B0: 3A 4A 53 52 42 41 53 49 4E 3B D7 4F 52 54 20 53 |:JSRBASIN;.ORT S| 000033C0: 50 45 49 43 48 45 52 4E 00 53 54 41 42 55 46 46 |PEICHERN.STABUFF| 000033D0: 45 52 2B 31 30 2C 59 00 43 4D 50 23 31 33 3B 42 |ER+10,Y.CMP#13;B| 000033E0: 49 53 20 C3 D2 00 42 45 51 45 4E 44 41 52 47 00 |IS ...BEQENDARG.| 000033F0: 49 4E 58 00 49 4E 59 00 43 50 58 23 33 31 3B D7 |INX.INY.CPX#31;.| 00003400: 4F 52 54 20 5A 55 20 4C 41 4E 47 20 3F 00 42 4E |ORT ZU LANG ?.BN| 00003410: 45 41 49 00 4C 44 58 23 31 31 3B CA 41 2D 3E C5 |EAI.LDX#11;.A->.| 00003420: 52 52 4F 52 00 4A 53 52 45 44 45 52 52 4F 52 00 |RROR.JSREDERROR.| 00003430: 50 4C 41 00 50 4C 41 00 46 49 41 42 4F 52 54 3A |PLA.PLA.FIABORT:| 00003440: 4C 44 58 5A 41 48 4C 32 3B C2 45 46 45 48 4C 20 |LDXZAHL2;.EFEHL | 00003450: 41 42 42 52 45 43 48 45 4E 00 4C 44 59 5A 41 48 |ABBRECHEN.LDYZAH| 00003460: 4C 32 2B 31 00 4A 53 52 53 45 54 43 52 53 52 00 |L2+1.JSRSETCRSR.| 00003470: 4C 44 41 42 55 46 46 45 52 33 2B 36 00 53 54 41 |LDABUFFER3+6.STA| 00003480: 46 4C 41 47 53 00 4A 4D 50 45 44 42 45 46 00 45 |FLAGS.JMPEDBEF.E| 00003490: 4E 44 41 52 47 3A 4C 44 41 23 30 3B D7 4F 52 54 |NDARG:LDA#0;.ORT| 000034A0: 20 4D 49 54 20 30 20 41 42 53 43 48 4C 49 45 53 | MIT 0 ABSCHLIES| 000034B0: 53 45 4E 00 53 54 41 42 55 46 46 45 52 2B 31 30 |SEN.STABUFFER+10| 000034C0: 2C 59 00 52 54 53 00 20 00 46 49 4E 44 3A 4C 44 |,Y.RTS. .FIND:LD| 000034D0: 41 23 30 3B C6 4C 41 47 20 46 55 45 52 20 C6 49 |A#0;.LAG FUER .I| 000034E0: 4E 44 00 42 49 54 00 52 45 50 4C 41 43 45 3A 4C |ND.BIT.REPLACE:L| 000034F0: 44 41 23 31 3B C6 4C 41 47 20 46 55 45 52 20 D2 |DA#1;.LAG FUER .| 00003500: 45 50 4C 41 43 45 00 53 54 41 42 55 46 46 45 52 |EPLACE.STABUFFER| 00003510: 33 2B 33 3B 53 50 45 49 43 48 45 52 4E 00 4C 44 |3+3;SPEICHERN.LD| 00003520: 41 46 4C 41 47 53 3B C6 4C 41 47 53 20 4D 45 52 |AFLAGS;.LAGS MER| 00003530: 4B 45 4E 00 53 54 41 42 55 46 46 45 52 33 2B 36 |KEN.STABUFFER3+6| 00003540: 3B C6 4F 52 4D 41 54 20 41 55 53 00 41 4E 44 23 |;.ORMAT AUS.AND#| 00003550: 24 46 46 2D 32 00 53 54 41 46 4C 41 47 53 00 4C |$FF-2.STAFLAGS.L| 00003560: 44 58 23 30 3B D7 4F 52 54 28 45 29 20 48 4F 4C |DX#0;.ORT(E) HOL| 00003570: 45 4E 00 4A 53 52 43 4C 52 4C 49 4E 45 00 4A 53 |EN.JSRCLRLINE.JS| 00003580: 52 45 49 4E 46 41 43 48 5A 45 49 00 4A 53 52 48 |REINFACHZEI.JSRH| 00003590: 4F 4D 45 00 4C 44 58 23 32 38 00 4A 53 52 57 52 |OME.LDX#28.JSRWR| 000035A0: 49 54 45 00 4C 44 59 23 30 3B 31 2E D7 4F 52 54 |ITE.LDY#0;1..ORT| 000035B0: 20 48 4F 4C 45 4E 00 4A 53 52 41 52 47 49 4E 00 | HOLEN.JSRARGIN.| 000035C0: 43 50 58 23 30 3B CC 45 45 52 57 4F 52 54 20 3F |CPX#0;.EERWORT ?| 000035D0: 00 42 45 51 46 49 41 42 4F 52 54 00 53 54 58 42 |.BEQFIABORT.STXB| 000035E0: 55 46 46 45 52 33 3B CC 41 45 4E 47 45 20 4D 45 |UFFER3;.AENGE ME| 000035F0: 52 4B 45 4E 00 4C 44 41 42 55 46 46 45 52 33 2B |RKEN.LDABUFFER3+| 00003600: 33 3B D2 45 50 4C 41 43 45 20 3F 00 42 45 51 4E |3;.EPLACE ?.BEQN| 00003610: 4F 52 45 50 4C 31 00 4C 44 58 23 30 3B 32 2E D7 |OREPL1.LDX#0;2..| 00003620: 4F 52 54 20 48 4F 4C 45 4E 00 4A 53 52 43 4C 52 |ORT HOLEN.JSRCLR| 00003630: 4C 49 4E 45 00 4A 53 52 48 4F 4D 45 00 4C 44 58 |LINE.JSRHOME.LDX| 00003640: 23 32 39 00 4A 53 52 57 52 49 54 45 00 4C 44 59 |#29.JSRWRITE.LDY| 00003650: 23 34 30 00 4A 53 52 41 52 47 49 4E 00 53 54 58 |#40.JSRARGIN.STX| 00003660: 42 55 46 46 45 52 33 2B 31 3B CC 41 45 4E 47 45 |BUFFER3+1;.AENGE| 00003670: 20 4D 45 52 4B 45 4E 00 53 45 43 3B CC 41 45 4E | MERKEN.SEC;.AEN| 00003680: 47 45 4E 44 49 46 46 45 52 45 4E 5A 00 54 58 41 |GENDIFFERENZ.TXA| 00003690: 00 53 42 43 42 55 46 46 45 52 33 00 53 54 41 42 |.SBCBUFFER3.STAB| 000036A0: 55 46 46 45 52 33 2B 32 3B 4D 45 52 4B 45 4E 00 |UFFER3+2;MERKEN.| 000036B0: 4E 4F 52 45 50 4C 31 3A 4C 44 41 43 5A 45 49 4C |NOREPL1:LDACZEIL| 000036C0: 3B C1 44 52 2E 20 44 45 52 20 45 52 53 54 45 4E |;.DR. DER ERSTEN| 000036D0: 20 D3 55 43 48 5A 45 49 4C 45 00 53 54 41 5A 41 | .UCHZEILE.STAZA| 000036E0: 48 4C 31 00 4C 44 41 43 5A 45 49 4C 2B 31 00 53 |HL1.LDACZEIL+1.S| 000036F0: 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 44 |TAZAHL1+1.JSRZAD| 00003700: 52 00 43 4F 4E 54 3A 4C 44 59 23 30 3B D4 45 58 |R.CONT:LDY#0;.EX| 00003710: 54 45 4E 44 45 20 3F 00 4A 53 52 48 4F 4C 5A 47 |TENDE ?.JSRHOLZG| 00003720: 00 42 4E 45 54 52 41 4E 53 32 00 4C 44 58 23 30 |.BNETRANS2.LDX#0| 00003730: 3B 4A 41 2D 3E 5A 55 4D 20 D4 45 58 54 41 4E 46 |;JA->ZUM .EXTANF| 00003740: 41 4E 47 00 53 54 58 43 5A 45 49 4C 2B 31 00 49 |ANG.STXCZEIL+1.I| 00003750: 4E 58 00 53 54 58 43 5A 45 49 4C 00 53 54 58 43 |NX.STXCZEIL.STXC| 00003760: 53 50 41 4C 00 4C 44 41 42 55 46 46 45 52 33 2B |SPAL.LDABUFFER3+| 00003770: 36 3B C6 4C 41 47 53 20 48 4F 4C 45 4E 00 53 54 |6;.LAGS HOLEN.ST| 00003780: 41 46 4C 41 47 53 00 4A 53 52 44 41 54 45 4E 42 |AFLAGS.JSRDATENB| 00003790: 49 4C 44 00 4C 44 58 23 33 30 3B D3 54 52 49 4E |ILD.LDX#30;.TRIN| 000037A0: 47 20 4E 4F 54 20 46 4F 55 4E 44 00 4A 53 52 45 |G NOT FOUND.JSRE| 000037B0: 44 45 52 52 4F 52 00 4A 4D 50 45 44 42 45 46 00 |DERROR.JMPEDBEF.| 000037C0: 54 52 41 4E 53 32 3A 4A 53 52 44 45 4C 45 44 42 |TRANS2:JSRDELEDB| 000037D0: 55 3B DA 45 49 4C 45 20 49 4E 20 45 44 42 55 46 |U;.EILE IN EDBUF| 000037E0: 46 45 52 00 4C 44 59 23 30 00 54 52 41 4C 4F 3A |FER.LDY#0.TRALO:| 000037F0: 4A 53 52 48 4F 4C 5A 47 00 53 54 59 42 55 46 46 |JSRHOLZG.STYBUFF| 00003800: 45 52 33 2B 35 3B DA 45 49 4C 45 4E 4C 41 45 4E |ER3+5;.EILENLAEN| 00003810: 47 45 00 53 54 41 45 44 42 55 46 46 45 52 2C 59 |GE.STAEDBUFFER,Y| 00003820: 00 42 45 51 45 4E 44 54 52 41 4E 53 32 3B C6 45 |.BEQENDTRANS2;.E| 00003830: 52 54 49 47 20 3F 00 49 4E 59 00 42 4E 45 54 52 |RTIG ?.INY.BNETR| 00003840: 41 4C 4F 00 45 4E 44 54 52 41 4E 53 32 3A 4C 44 |ALO.ENDTRANS2:LD| 00003850: 59 23 30 3B 53 55 43 48 45 4E 00 53 46 4C 3A 4C |Y#0;SUCHEN.SFL:L| 00003860: 44 58 23 30 00 4C 44 41 45 44 42 55 46 46 45 52 |DX#0.LDAEDBUFFER| 00003870: 2C 59 00 42 45 51 45 4E 44 4C 49 4E 45 3B DA 45 |,Y.BEQENDLINE;.E| 00003880: 49 4C 45 4E 45 4E 44 45 3F 00 43 4D 50 42 55 46 |ILENENDE?.CMPBUF| 00003890: 46 45 52 2B 31 30 2C 58 3B 45 52 53 54 45 52 20 |FER+10,X;ERSTER | 000038A0: C2 55 43 48 53 54 41 42 45 20 47 4C 45 49 43 48 |.UCHSTABE GLEICH| 000038B0: 00 42 45 51 57 4F 52 54 3F 00 4C 44 41 42 55 46 |.BEQWORT?.LDABUF| 000038C0: 46 45 52 2B 31 30 2C 58 3B 4F 44 45 52 20 45 47 |FER+10,X;ODER EG| 000038D0: 41 4C 00 43 4D 50 23 27 3F 00 42 45 51 57 4F 52 |AL.CMP#'?.BEQWOR| 000038E0: 54 3F 00 49 4E 59 3B 57 45 49 54 45 52 53 55 43 |T?.INY;WEITERSUC| 000038F0: 48 45 4E 00 42 4E 45 53 46 4C 00 57 4F 52 54 3F |HEN.BNESFL.WORT?| 00003900: 3A 53 54 59 42 55 46 46 45 52 33 2B 34 3B D0 4F |:STYBUFFER3+4;.O| 00003910: 53 2E 20 4D 45 52 4B 45 4E 00 56 45 52 47 4C 57 |S. MERKEN.VERGLW| 00003920: 3A 49 4E 58 3B CE 45 58 54 20 C2 55 43 48 53 54 |:INX;.EXT .UCHST| 00003930: 41 42 45 00 49 4E 59 00 4C 44 41 42 55 46 46 45 |ABE.INY.LDABUFFE| 00003940: 52 2B 31 30 2C 58 00 42 45 51 57 4F 52 54 3B D7 |R+10,X.BEQWORT;.| 00003950: 4F 52 54 45 4E 44 45 00 43 4D 50 45 44 42 55 46 |ORTENDE.CMPEDBUF| 00003960: 46 45 52 2C 59 00 42 45 51 56 45 52 47 4C 57 3B |FER,Y.BEQVERGLW;| 00003970: C2 55 43 48 53 54 41 42 45 20 47 4C 45 49 43 48 |.UCHSTABE GLEICH| 00003980: 00 43 4D 50 23 27 3F 3B 4F 44 45 52 20 45 47 41 |.CMP#'?;ODER EGA| 00003990: 4C 00 42 4E 45 4E 4F 56 45 52 47 4C 57 00 4C 44 |L.BNENOVERGLW.LD| 000039A0: 41 45 44 42 55 46 46 45 52 2C 59 00 42 4E 45 56 |AEDBUFFER,Y.BNEV| 000039B0: 45 52 47 4C 57 00 4E 4F 56 45 52 47 4C 57 3A 4C |ERGLW.NOVERGLW:L| 000039C0: 44 59 42 55 46 46 45 52 33 2B 34 3B D0 4F 53 2E |DYBUFFER3+4;.OS.| 000039D0: 20 48 4F 4C 45 4E 00 49 4E 59 00 42 4E 45 53 46 | HOLEN.INY.BNESF| 000039E0: 4C 3B 57 45 49 54 45 52 53 55 43 48 45 4E 00 45 |L;WEITERSUCHEN.E| 000039F0: 4E 44 4C 49 4E 45 3A 4C 44 41 5A 47 3B D4 45 58 |NDLINE:LDAZG;.EX| 00003A00: 54 20 55 50 44 41 54 45 4E 00 50 48 41 00 4C 44 |T UPDATEN.PHA.LD| 00003A10: 41 5A 47 2B 31 00 50 48 41 00 4A 53 52 55 50 44 |AZG+1.PHA.JSRUPD| 00003A20: 41 54 45 4E 00 50 4C 41 00 53 54 41 5A 47 2B 31 |ATEN.PLA.STAZG+1| 00003A30: 00 50 4C 41 00 53 54 41 5A 47 00 4C 44 59 23 30 |.PLA.STAZG.LDY#0| 00003A40: 3B 4E 41 45 43 48 53 54 45 20 DA 45 49 4C 45 00 |;NAECHSTE .EILE.| 00003A50: 4A 53 52 54 45 58 54 4C 49 4E 45 00 49 4E 43 43 |JSRTEXTLINE.INCC| 00003A60: 5A 45 49 4C 00 42 4E 45 54 4F 43 4F 4E 54 00 49 |ZEIL.BNETOCONT.I| 00003A70: 4E 43 43 5A 45 49 4C 2B 31 00 54 4F 43 4F 4E 54 |NCCZEIL+1.TOCONT| 00003A80: 3A 4A 4D 50 43 4F 4E 54 3B 57 45 49 54 45 52 53 |:JMPCONT;WEITERS| 00003A90: 55 43 48 45 4E 00 57 4F 52 54 3A 4C 44 59 42 55 |UCHEN.WORT:LDYBU| 00003AA0: 46 46 45 52 33 2B 34 3B D7 4F 52 54 20 47 45 46 |FFER3+4;.ORT GEF| 00003AB0: 55 4E 44 45 4E 00 49 4E 59 00 53 54 59 43 53 50 |UNDEN.INY.STYCSP| 00003AC0: 41 4C 00 4C 44 41 5A 47 3B C1 4E 5A 45 49 47 45 |AL.LDAZG;.NZEIGE| 00003AD0: 4E 00 50 48 41 00 4C 44 41 5A 47 2B 31 00 50 48 |N.PHA.LDAZG+1.PH| 00003AE0: 41 00 4A 53 52 44 41 54 45 4E 42 49 4C 44 00 50 |A.JSRDATENBILD.P| 00003AF0: 4C 41 00 53 54 41 5A 47 2B 31 00 50 4C 41 00 53 |LA.STAZG+1.PLA.S| 00003B00: 54 41 5A 47 00 4C 44 58 23 33 31 3B C2 45 46 45 |TAZG.LDX#31;.EFE| 00003B10: 48 4C 20 48 4F 4C 45 4E 00 4A 53 52 45 44 45 52 |HL HOLEN.JSREDER| 00003B20: 52 4F 52 3B 28 C6 49 4E 44 20 C5 44 49 54 29 00 |ROR;(.IND .DIT).| 00003B30: 4C 44 41 42 55 46 46 45 52 33 2B 33 00 42 45 51 |LDABUFFER3+3.BEQ| 00003B40: 4E 4F 52 45 50 4C 32 00 4C 44 58 23 33 32 3B 28 |NOREPL2.LDX#32;(| 00003B50: D3 55 42 53 54 2E 29 00 53 54 58 4D 45 4D 31 00 |.UBST.).STXMEM1.| 00003B60: 4A 53 52 45 44 45 52 52 4F 4C 00 4E 4F 52 45 50 |JSREDERROL.NOREP| 00003B70: 4C 32 3A 4A 53 52 43 52 53 52 4F 4E 00 47 45 54 |L2:JSRCRSRON.GET| 00003B80: 46 52 3A 4A 53 52 47 45 54 00 43 4D 50 23 27 45 |FR:JSRGET.CMP#'E| 00003B90: 00 42 4E 45 46 3F 00 4A 53 52 43 52 53 52 4F 46 |.BNEF?.JSRCRSROF| 00003BA0: 46 3B C5 44 49 54 20 C2 45 46 45 48 4C 00 4A 53 |F;.DIT .EFEHL.JS| 00003BB0: 52 55 50 44 41 54 45 4E 00 4C 44 58 5A 45 49 4C |RUPDATEN.LDXZEIL| 00003BC0: 45 00 4C 44 59 53 50 41 4C 54 45 00 53 54 58 5A |E.LDYSPALTE.STXZ| 00003BD0: 41 48 4C 32 00 53 54 59 5A 41 48 4C 32 2B 31 00 |AHL2.STYZAHL2+1.| 00003BE0: 4A 53 52 53 54 41 5A 45 49 00 4C 44 41 42 55 46 |JSRSTAZEI.LDABUF| 00003BF0: 46 45 52 33 2B 36 3B C6 4C 41 47 53 20 48 4F 4C |FER3+6;.LAGS HOL| 00003C00: 45 4E 00 53 54 41 46 4C 41 47 53 00 4A 53 52 44 |EN.STAFLAGS.JSRD| 00003C10: 41 54 45 4E 42 49 4C 44 00 4A 4D 50 45 44 42 45 |ATENBILD.JMPEDBE| 00003C20: 46 00 46 3F 3A 43 4D 50 23 27 46 00 42 4E 45 53 |F.F?:CMP#'F.BNES| 00003C30: 3F 00 4A 53 52 43 52 53 52 4F 46 46 3B C6 49 4E |?.JSRCRSROFF;.IN| 00003C40: 44 20 C2 45 46 45 48 4C 00 4C 44 59 42 55 46 46 |D .EFEHL.LDYBUFF| 00003C50: 45 52 33 2B 34 3B CE 45 58 54 20 50 4F 53 2E 00 |ER3+4;.EXT POS..| 00003C60: 49 4E 59 00 4A 4D 50 53 46 4C 3B 57 45 49 54 45 |INY.JMPSFL;WEITE| 00003C70: 52 53 55 43 48 45 4E 00 53 3F 3A 43 4D 50 23 27 |RSUCHEN.S?:CMP#'| 00003C80: 53 3B C5 52 53 45 54 5A 45 4E 00 42 4E 45 47 45 |S;.RSETZEN.BNEGE| 00003C90: 54 46 52 00 4C 44 41 42 55 46 46 45 52 33 2B 33 |TFR.LDABUFFER3+3| 00003CA0: 3B 4D 4F 45 47 4C 49 43 48 20 3F 00 42 45 51 47 |;MOEGLICH ?.BEQG| 00003CB0: 45 54 46 52 00 4C 44 59 42 55 46 46 45 52 33 2B |ETFR.LDYBUFFER3+| 00003CC0: 35 3B DA 45 49 4C 45 20 4D 49 54 20 30 20 41 42 |5;.EILE MIT 0 AB| 00003CD0: 53 43 48 4C 2E 00 4C 44 41 23 30 00 53 54 41 45 |SCHL..LDA#0.STAE| 00003CE0: 44 42 55 46 46 45 52 2C 59 00 4C 44 41 42 55 46 |DBUFFER,Y.LDABUF| 00003CF0: 46 45 52 33 2B 32 3B 41 55 46 20 D3 50 45 49 43 |FER3+2;AUF .PEIC| 00003D00: 48 45 52 50 4C 41 54 5A 20 54 45 53 54 45 4E 00 |HERPLATZ TESTEN.| 00003D10: 42 4D 49 52 45 50 4C 4D 4F 45 47 4C 00 43 4C 43 |BMIREPLMOEGL.CLC| 00003D20: 00 41 44 43 42 55 46 46 45 52 33 2B 35 00 43 4D |.ADCBUFFER3+5.CM| 00003D30: 50 23 38 31 00 42 43 43 52 45 50 4C 4D 4F 45 47 |P#81.BCCREPLMOEG| 00003D40: 4C 00 4C 44 58 23 33 33 3B 5A 55 20 57 45 4E 49 |L.LDX#33;ZU WENI| 00003D50: 47 20 D3 50 45 49 43 48 45 52 00 4A 53 52 45 44 |G .PEICHER.JSRED| 00003D60: 45 52 52 4F 52 00 4A 4D 50 47 45 54 46 52 00 52 |ERROR.JMPGETFR.R| 00003D70: 45 50 4C 4D 4F 45 47 4C 3A 4A 53 52 43 52 53 52 |EPLMOEGL:JSRCRSR| 00003D80: 4F 46 46 3B 45 52 53 45 54 5A 45 4E 20 4D 4F 45 |OFF;ERSETZEN MOE| 00003D90: 47 4C 49 43 48 00 4C 44 41 42 55 46 46 45 52 33 |GLICH.LDABUFFER3| 00003DA0: 2B 34 3B D9 20 41 55 46 20 C1 4E 46 41 4E 47 53 |+4;. AUF .NFANGS| 00003DB0: 50 4F 53 2E 00 54 41 59 00 43 4C 43 00 41 44 43 |POS..TAY.CLC.ADC| 00003DC0: 42 55 46 46 45 52 33 00 54 41 58 3B D8 20 41 55 |BUFFER3.TAX;. AU| 00003DD0: 46 20 D7 4F 52 54 45 4E 44 45 00 44 45 4C 57 4F |F .ORTENDE.DELWO| 00003DE0: 52 54 3A 4C 44 41 45 44 42 55 46 46 45 52 2C 58 |RT:LDAEDBUFFER,X| 00003DF0: 3B D7 4F 52 54 20 4C 4F 45 53 43 48 45 4E 00 53 |;.ORT LOESCHEN.S| 00003E00: 54 41 45 44 42 55 46 46 45 52 2C 59 00 42 45 51 |TAEDBUFFER,Y.BEQ| 00003E10: 49 4E 53 57 4F 52 54 00 49 4E 59 00 49 4E 58 00 |INSWORT.INY.INX.| 00003E20: 42 4E 45 44 45 4C 57 4F 52 54 00 49 4E 53 57 4F |BNEDELWORT.INSWO| 00003E30: 52 54 3A 54 59 41 3B D9 20 41 55 46 20 DA 45 49 |RT:TYA;. AUF .EI| 00003E40: 4C 45 4E 45 4E 44 45 00 43 4C 43 3B D8 20 41 55 |LENENDE.CLC;. AU| 00003E50: 46 20 4E 45 55 45 53 20 DA 45 49 4C 45 4E 45 4E |F NEUES .EILENEN| 00003E60: 44 45 00 41 44 43 42 55 46 46 45 52 33 2B 31 00 |DE.ADCBUFFER3+1.| 00003E70: 53 54 41 42 55 46 46 45 52 33 2B 35 00 54 41 58 |STABUFFER3+5.TAX| 00003E80: 00 49 57 4F 3A 4C 44 41 45 44 42 55 46 46 45 52 |.IWO:LDAEDBUFFER| 00003E90: 2C 59 3B D0 4C 41 54 5A 20 46 55 45 52 20 D7 4F |,Y;.LATZ FUER .O| 00003EA0: 52 54 20 53 43 48 41 46 46 45 4E 00 53 54 41 45 |RT SCHAFFEN.STAE| 00003EB0: 44 42 55 46 46 45 52 2C 58 00 44 45 58 00 44 45 |DBUFFER,X.DEX.DE| 00003EC0: 59 00 42 4D 49 49 57 4F 45 4E 44 00 43 50 59 42 |Y.BMIIWOEND.CPYB| 00003ED0: 55 46 46 45 52 33 2B 34 00 42 43 53 49 57 4F 00 |UFFER3+4.BCSIWO.| 00003EE0: 49 57 4F 45 4E 44 3A 4C 44 59 42 55 46 46 45 52 |IWOEND:LDYBUFFER| 00003EF0: 33 2B 34 3B D9 20 41 55 46 20 D7 4F 52 54 50 4F |3+4;. AUF .ORTPO| 00003F00: 53 2E 00 4C 44 58 23 30 00 50 55 54 57 4F 52 44 |S..LDX#0.PUTWORD| 00003F10: 3A 4C 44 41 42 55 46 46 45 52 2B 35 30 2C 58 3B |:LDABUFFER+50,X;| 00003F20: D7 4F 52 54 20 45 49 4E 53 45 54 5A 45 4E 00 42 |.ORT EINSETZEN.B| 00003F30: 45 51 52 45 41 44 59 00 53 54 41 45 44 42 55 46 |EQREADY.STAEDBUF| 00003F40: 46 45 52 2C 59 00 49 4E 58 00 49 4E 59 00 42 4E |FER,Y.INX.INY.BN| 00003F50: 45 50 55 54 57 4F 52 44 00 52 45 41 44 59 3A 4C |EPUTWORD.READY:L| 00003F60: 44 59 42 55 46 46 45 52 33 2B 35 3B 30 20 C1 42 |DYBUFFER3+5;0 .B| 00003F70: 53 43 48 4C 55 53 53 20 4C 4F 45 53 43 48 45 4E |SCHLUSS LOESCHEN| 00003F80: 00 4C 44 41 23 33 32 00 44 45 4C 52 45 53 54 3A |.LDA#32.DELREST:| 00003F90: 53 54 41 45 44 42 55 46 46 45 52 2C 59 00 49 4E |STAEDBUFFER,Y.IN| 00003FA0: 59 00 43 50 59 23 38 30 00 42 43 43 44 45 4C 52 |Y.CPY#80.BCCDELR| 00003FB0: 45 53 54 00 4C 44 41 23 30 3B 30 20 41 4E 20 D0 |EST.LDA#0;0 AN .| 00003FC0: 4F 53 2E 20 38 31 20 46 55 45 52 20 D3 55 43 48 |OS. 81 FUER .UCH| 00003FD0: 45 4E 44 45 00 53 54 41 45 44 42 55 46 46 45 52 |ENDE.STAEDBUFFER| 00003FE0: 2C 59 00 4C 44 41 42 55 46 46 45 52 33 2B 34 3B |,Y.LDABUFFER3+4;| 00003FF0: D3 55 43 48 50 4F 53 2E 20 48 49 4E 54 45 52 20 |.UCHPOS. HINTER | 00004000: CE 45 55 57 4F 52 54 00 43 4C 43 00 41 44 43 42 |.EUWORT.CLC.ADCB| 00004010: 55 46 46 45 52 33 2B 31 00 54 41 59 00 4C 44 41 |UFFER3+1.TAY.LDA| 00004020: 46 4C 41 47 53 3B D5 50 44 41 54 45 20 4E 4F 45 |FLAGS;.PDATE NOE| 00004030: 54 49 47 00 4F 52 41 23 31 32 38 00 53 54 41 46 |TIG.ORA#128.STAF| 00004040: 4C 41 47 53 00 4A 4D 50 53 46 4C 00 20 00 2E 46 |LAGS.JMPSFL. ..F| 00004050: 49 22 41 53 53 22 00 00 50 |I"ASS"..P |
U@;;;--- QUELLDATEI EDIT 2. .;**********
*****************************.;* *
EDITOR - BEFEHLE * *.;********
*******************************. .OLD:JS
RZGTEXT;TEXT REGENERIEREN.LDA#';;TEXTANF
ANG ALS KOMMENTAR.JSRPUTZG.INY.JSRPUTZG.
INY.JSRPUTZG.JSRPOINTER;POINTER NEU SETZ
EN.LDX#0;ZEILE 1.STXCZEIL+1.INX.STXCZEIL
.STXCSPAL.LDY#0;ANZEIGEN.LDX#1.JSRSETCRS
R.BIERZ:JSRBILD.JMPEDBEF. .TOGFORM:LDA#2
;FORMAT FLAG UMDREHEN.EORFLAGS.STAFLAGS.
JMPBIERZ;NEUES BILD. .TOGPACK:LDA#1;PACK
FLAG UMDREHEN.BIT.TOGINS:LDA#4;INSERT F
LAG UMDREHEN.EORFLAGS.STAFLAGS.JSRSTAZEI
;STATUSZEILE.JMPEDBEF. .DELTEXT:JSRZGTEX
T;TEXT LOESCHEN.LDA#32;LEERZEILE ERZEUGE
N.JSRPUTZG.INY.LDA#0.STACZEIL+1;TEXTANFA
NG.STABILDZEILE+1.JSRPUTZG.INY.JSRPUTZG.
LDY#0.LDX#1.JSRSETCRSR.LDA#1;BILD ANZEIG
EN.STACZEIL.STACSPAL.STABILDZEILE.LDAASS
FL2;KEIN ALTES BILD.AND#254.STAASSFL2.JS
RPOINTER;POINTER NEU SETZEN.CRPOS2:JSRBI
LD.JMPEDBEF. .BLOBEG:LDACZEIL;BLOCKBEGIN
FESTLEGEN.STABLOANF.LDACZEIL+1.STABLOAN
F+1.JMPCRPOS2. .BLOENDE:LDACZEIL;BLOCKEN
DE FESTLEGEN.STABLOEND.LDACZEIL+1.STABLO
END+1.JMPCRPOS2. .DELKORR:LDAFLAGS;KEIN
UPDATE.AND#%1111111.STAFLAGS.JMPCRPOS2.
.DELBLODEF:LDA#0;BLOCKDEF. LOESCHEN.STAB
LOANF.STABLOANF+1.STABLOEND.STABLOEND+1.
JMPCRPOS2. .NEWLINE:LDACZEIL;ZEILE EINFU
EGEN.STAZAHL1.LDACZEIL+1.STAZAHL1+1.JSRD
ELEDBU;LEERZEILE.JSRBLOINSKORR;BLOCKDEF.
KORRIGIEREN.JSRINSZEILE;EINFUEGEN.JMPCR
POS2. .DELLINE:LDAZEILEN;ZEILE LOESCHEN.
CMP#1.BNEREALDELLINE.LDAZEILEN+1.BEQDELT
EXT;NUR EINE ZEILE->TEXT LOESCHEN.REALDE
LLINE:LDACZEIL;ZEILE LOESCHEN.STAZAHL1.L
DACZEIL+1.STAZAHL1+1.JSRBLODELKORR;BLOCK
DEF. KORRIGIEREN.JSRDELZEILE;LOESCHEN.JM
PDELAB. .BLOINSKORR:JSRBLOCKTEST;BLOCKDE
F. NACH.CMP#22;INSERT KORRIGIEREN.BEQEND
KORR;IM BLOCK.LDACZEIL+1;VOR DEM BLOCK ?
.CMPBLOANF+1.BCCANFKORR.BEQ*+3.BKRT:RTS;
NEIN.LDACZEIL.CMPBLOANF.BCSBKRT.ANFKORR:
INCBLOANF;BLOCKANFANG KORRIGIEREN.BNEEND
KORR.INCBLOANF+1.ENDKORR:INCBLOEND;BLOCK
ENDE KORRIGIEREN.BNEBKRT.INCBLOEND+1.RTS
. .BLODELKORR:JSRBLOCKTEST;BLOCKDEF. KOR
R. NACH DELETE.CMP#22;IM BLOCK ?.BEQENDK
ORR2;JA.LDACZEIL+1;VOR DEM BLOCK ?.CMPBL
OANF+1.BCCANFKORR2.BNEBKRT.LDACZEIL.CMPB
LOANF.BCSBKRT.ANFKORR2:LDABLOANF;BLOCKAN
FANG KORR..BNEAK1.DECBLOANF+1.AK1:DECBLO
ANF.ENDKORR2:LDABLOEND;BLOCKENDE KORR..B
NEAK2.DECBLOEND+1.AK2:DECBLOEND.RTS. .KI
LL:JSREDUPDATEN.JSRDELEDBU;ZEILENINHALT
LOESCHEN.JMPEDPRI. .LEKILL:JSREDUPDATEN;
LINKS LOESCHEN.LDYCSPAL.DEY.LDA#32;SPACE
S EINSETZEN.LEKI:STAEDBUFFER,Y.DEY.BPLLE
KI.JMPEDPRI. .RIKILL:JSREDUPDATEN;RECHTS
LOESCHEN.LDYCSPAL.DEY.LDA#32;LEERZEICHE
N EINSETZEN.RIKI:STAEDBUFFER,Y.INY.CPY#8
0.BNERIKI.JMPEDPRI. .GOTO:LDA#STATCOL;SP
RUNG ZU ZEILENNUMMER.JSRSCRAUS.LDX#0;ZEI
LENNUMMER HOLEN.JSRCLRLINE.JSREINFACHZEI
.JSRHOME.LDX#24.JSRWRITE.JSRZAHLIN.LDXZA
HL2.LDYZAHL2+1.JSRSETCRSR.LDALASTCHR;EIN
GABE GUELTIG ?.CMP#13.BEQEINGOK.EINGERR:
LDX#25;EINGABEFEHLER.JSREDERROR.JMPEDBEF
.EINGOK:LDAZEILEN;ZEILENNUMMER ERLAUBT.S
TAZAHL2.LDAZEILEN+1.STAZAHL2+1.JSRVERGLE
ICH.BCSEINGERR;NEIN.LDAZAHL1.ORAZAHL1+1.
BEQEINGERR;ZEILE 0->ERROR.LDAZAHL1;NEUES
BILD.STACZEIL.LDAZAHL1+1.STACZEIL+1.LDA
#1.STACSPAL.JSRDATENBILD.JMPEDBEF. .DATE
NBILD:JSRFIANZPOS;BILD AUF ZEILENNUMMER
ZENTRIEREN.SEC;HORI. SCROLL ?.LDACSPAL;S
PALTE-OFFSET.SBCMEM1.NOSUB:STASPALTE;->C
URSORPOS..LDACZEIL+1;ZENTRIEREN ?.BNECEN
TRE.LDACZEIL.CMP#20.BCSCENTRE.LDX#0;NEIN
.STXBILDZEILE+1;BILD AB ZEILE 1.INX.STXB
ILDZEILE.LDXCZEIL.LDYSPALTE.DEY.JSRSETCR
SR.LDAASSFL2;KEIN ALTES BILD.AND#254.STA
ASSFL2.JMPBILD;BILD ANZEIGEN.CENTRE:SEC;
ZENTRIEREN.LDACZEIL;ERSTE ZEILE= ZEILE -
12.SBC#12.STABILDZEILE.LDACZEIL+1.SBC#0.
STABILDZEILE+1.LDYSPALTE.DEY.LDX#13.JSRS
ETCRSR.LDAASSFL2;KEIN ALTES BILD.AND#254
.STAASSFL2.JMPBILD;ANZEIGEN. .;*********
**********************.;* * BLOCK-BE
FEHLE * *.;***********************
********. .BLOCKTEST:LDABLOANF;AUF BLOCK
TESTEN.ORABLOANF+1.BNETSTBLOEND.NOBLOCK
:LDA#21;KEIN BLOCK DEFINIERT.RTS.TSTBLOE
ND:LDABLOEND.ORABLOEND+1.BEQNOBLOCK.LDAB
LOANF+1;BLOCKANF<BLOCKEND ?.CMPBLOEND+1.
BEQBLOLOTST.BCSNOBLOCK.BCCBLOTSTCR.BLOLO
TST:LDABLOANF.CMPBLOEND.BCSNOBLOCK.BLOTS
TCR:LDAZAHL1+1;JA.CMPBLOANF+1;CURSOR IM
BLOCK ?.BCCAUSSERHALB;CRSR>BLOANF ?.BNET
STUNTEN.LDAZAHL1.CMPBLOANF.BCCAUSSERHALB
.TSTUNTEN:LDABLOEND+1;CRSR<BLOEND.CMPZAH
L1+1.BCCAUSSERHALB.BNEINNEN.LDABLOEND.CM
PZAHL1.BCCAUSSERHALB.INNEN:LDA#22;IM BLO
CK.RTS.AUSSERHALB:LDA#0;NICHT IM BLOCK.R
TS. .;*** BLOCK LOESCHEN ***.BLOCKDE
L:LDACZEIL;BLOCK LOESCHEN.STAZAHL1.LDACZ
EIL+1.STAZAHL1+1.JSRBLOCKTEST.BEQDODEL.T
AX;LOESCHEN NICHT MOEGLICH.JSREDERROR.JM
PEDBEF.DODEL:LDABLOANF;LOESCHEN !.STAZAH
L1;ADR. BLOCKANFANG.LDABLOANF+1.STAZAHL1
+1.JSRZADR.LDAZEILEN;BIS TEXTENDE LOESCH
EN ?.CMPBLOEND.BNEDODEL2.LDAZEILEN+1.CMP
BLOEND+1.BNEDODEL2.LDA#0;JA -> 0 0 IN TE
XT.JSRPUTZG.INY.JSRPUTZG.JMPBLODELEND;FE
RTIG.DODEL2:LDAZG;ECHT LOESCHEN.STAZAHL2
.LDAZG+1.STAZAHL2+1.LDABLOEND;ADR. BLOCK
ENDE HOLEN.STAZAHL1.LDABLOEND+1.STAZAHL1
+1.JSRZADR.JSRTEXTLINE;+ 1 ZEILE.LDAZG.S
TAZAHL1.LDAZG+1.STAZAHL1+1.JSRTOMOVE;BLO
CK LOESCHEN.BLODELEND:JSRPOINTER;POINTER
NEU SETZEN.LDA#0;BLOCKDEF. LOESCHEN.STA
BLOANF.STABLOANF+1.STABLOEND.STABLOEND+1
.DELAB:LDACZEIL+1;CURSOR AUSSERHALB DES
TEXTES ?.CMPZEILEN+1.BCCNOTEND.BNEAMENDE
.LDACZEIL.CMPZEILEN.BCCNOTEND.AMENDE:JSR
F7;ZUM TEXTENDE.JSRF8.JMPEDBEF.NOTEND:JS
RBILD.JMPEDBEF. .;*** BLOCK VERSCHI
EBEN ***.BLOCKMOVE:LDA#1;FLAG FUER MOVE
.BIT.BLOCKCOPY:LDA#0;FLAG FUER COPY.BLCK
COPY:STABUFFER2.LDACZEIL;ADRESSEN BERECH
NEN.STAZAHL1.LDACZEIL+1.STAZAHL1+1.JSRBL
OCKTEST;BEFEHL MOEGLICH ?.BEQDOCOPY.TAX;
NEIN.MEMERR:JSREDERROR.JMPEDBEF.DOCOPY:J
SRZADR;BUFFER AUF ADR. ZIEL.LDAZG.STABUF
FER.LDAZG+1.STABUFFER+1.LDABLOANF;BUFFER
+2 AUF ADR. BLOCKANFANG.STAZAHL1.LDABLOA
NF+1.STAZAHL1+1.JSRZADR.LDAZG.STABUFFER+
2.LDAZG+1.STABUFFER+3.LDABLOEND;BUFFER+4
AUF ADR. BLOCKENDE.STAZAHL1;+ 1 ZEILE.L
DABLOEND+1.STAZAHL1+1.JSRZADR.JSRTEXTLIN
E.LDAZG.STABUFFER+4.LDAZG+1.STABUFFER+5.
SEC;ANZAHL BYTE IM BLOCK NACH ZAHL3.LDAB
UFFER+4.SBCBUFFER+2.STAZAHL3.LDABUFFER+5
.SBCBUFFER+3.STAZAHL3+1.LDATXTEND;AUF SP
EICHERPLATZ TESTEN.STAZAHL2.LDATXTEND+1.
STAZAHL2+1.CLC.LDATXTPOINT;NEUES TEXTEND
E.ADCZAHL3.STAZAHL1.LDATXTPOINT+1.ADCZAH
L3+1.STAZAHL1+1.BCSMEMORY;ZU WENIG SPEIC
HER.JSRVERGLEICH.BCCDOCOPY2.MEMORY:LDX#1
5;ZU WENIG SPEICHER.BNEMEMERR.DOCOPY2:CL
C;LUECKE SCHAFFEN.LDABUFFER;VON ZIELADR.
.STAZAHL1;BIS ZIELADR+BLOCKLAENGE.ADCZAH
L3.STAZAHL2.LDABUFFER+1.STAZAHL1+1.ADCZA
HL3+1.STAZAHL2+1.JSRTOMOVE;LUECKE EINFUE
GEN.LDABUFFER+3;ADRESSEN KORRIGIEREN.CMP
BUFFER+1.BCCADRKORREKT;EINFUEGESTELLE HI
NTER BLOCK.BNEADRKORR.LDABUFFER+2.CMPBUF
FER.BCCADRKORREKT.ADRKORR:CLC;EINF.POS.
VOR BLOCK->KORREKTUR.LDABUFFER+2;BLOCKAN
FANGSADR. + BLOCKLAENGE.ADCZAHL3.STABUFF
ER+2.LDABUFFER+3.ADCZAHL3+1.STABUFFER+3.
CLC;BLOCKENDADR. + BLOCKLAENGE.LDABUFFER
+4.ADCZAHL3.STABUFFER+4.LDABUFFER+5.ADCZ
AHL3+1.STABUFFER+5.ADRKORREKT:LDABUFFER;
BLOCK EINKOPIEREN.STAZG2;ZG2 AUF ZIELADR
..LDABUFFER+1.STAZG2+1.LDABUFFER+2;ZG AU
F BLOCKANFANG.STAZG.LDABUFFER+3.STAZG+1.
LDY#0;KOPIEREN.COPY:JSRHOLZG.JSRPUTZG2.I
NCZG;ZG+1.BNEX1.INCZG+1.X1:INCZG2;ZG2+1.
BNEX2.INCZG2+1.X2:LDAZG;ZG=ENDADRESSE ?.
CMPBUFFER+4.BNECOPY;NEIN-> WEITERKOPIERE
N.LDAZG+1.CMPBUFFER+5.BNECOPY.LDAZEILEN;
BLOCKDEF. KORRIGIEREN.STABUFFER+4;ANZ. Z
EILEN MERKEN.LDAZEILEN+1.STABUFFER+5.JSR
POINTER;POINTER NEU BERECHNEN.LDABUFFER+
1;KORREKTUR NOETIG ?.CMPBUFFER+3.BCCBLOD
EFKO.BNENOBDKO.LDABUFFER.CMPBUFFER+2.BCS
NOBDKO.BLODEFKO:SEC;JA.LDAZEILEN;ANZ. ZE
ILEN IM BLOCK NACH MEM1/2.SBCBUFFER+4.ST
AMEM1.LDAZEILEN+1.SBCBUFFER+5.STAMEM2.CL
C;BLOCKANFANG+ZEILEN.LDABLOANF.ADCMEM1.S
TABLOANF.LDABLOANF+1.ADCMEM2.STABLOANF+1
.CLC;BLOCKENDE+ZEILEN.LDABLOEND.ADCMEM1.
STABLOEND.LDABLOEND+1.ADCMEM2.STABLOEND+
1.NOBDKO:LDABUFFER2;COPY-BEFEHL ?.BEQNOB
DKO2.JSRDODEL;JA->BLOCK LOESCHEN.NOBDKO2
:JSRBILD.JMPEDBEF. .BLOWRITE:JSRBLOCKTES
T;BLOCK AUF DRUCKER.CMP#21.BNEBLOWR.TAX;
BEFEHL NICHT MOEGLICH.JSREDERROR.JMPEDBE
F.BLOWR:LDABLOANF;ZAHL1 AUF BLOCKANFANG.
STAZAHL1.LDABLOANF+1.STAZAHL1+1.LDABLOEN
D;ZAHL2 AUF BLOCKENDE.STAZAHL2.LDABLOEND
+1.STAZAHL2+1.JSRDOWRITE;DRUCKEN.JMPEDBE
F. .;*******************************.;*
* MOVE - VERSCHIEBEN * *.;*********
**********************. .;VERSCHIEBEROUT
INE ALTER START ZAHL1.;
NEUER START ZAHL2.;
ALTES ENDE MEM1/2. .MOVE:JSRPUTCOPY
.LDY#0;VERSCHIEBERICHTUNG.LDA#128.STASCR
OLLFLAG.LDAMEM1;ERMITTELN.PHA.JSRVERGLEI
CH.BCSDOMOVE;ZU NIEDRIGER ADRESSE.PLA.SE
C.STAZG;ZG AUF ALTES ENDE.SBCZAHL1;ZG2 A
UF ANZAHL BYTE.STAZG2.LDAMEM2.STAZG+1.SB
CZAHL1+1.STAZG2+1.CLC;ZG2 AUF ANZ.BYTE+N
EUER START = NEUES ENDE.LDAZG2.ADCZAHL2.
STAZG2.LDAZG2+1.ADCZAHL2+1.STAZG2+1.UMO:
JSRRAMCOPY;COPY ROUTINE.LDAZG;ZG-1.BNENH
1.DECZG+1.NH1:DECZG.LDAZG2;ZG2-1.BNENH2.
DECZG2+1.NH2:DECZG2.LDAZG;ZG AUF ALTEN S
TART ?.CMPZAHL1.BNEUMO.LDAZG+1.CMPZAHL1+
1.BNEUMO.JSRRAMCOPY;JA->FERTIG.JMPPUTRAM
RO. .DOMOVE:PLA.STAMEM1.LDAZAHL1;ZG AUF
ALTEN START.STAZG.LDAZAHL1+1.STAZG+1.LDA
ZAHL2;ZG2 AUF NEUEN START.STAZG2.LDAZAHL
2+1.STAZG2+1.LDAMEM1;ZAHL1 AUF ALTES END
E.STAZAHL1.LDAMEM1+1.STAZAHL1+1.DMO:JSRR
AMCOPY;COPY ROUTINE.INCZG;ZG+1.BNENH3.IN
CZG+1.NH3:INCZG2;ZG2+1.BNENH4.INCZG2+1.N
H4:LDAZG;ZG AUF ALTEM ENDE ?.CMPZAHL1.BN
EDMO.LDAZG+1.CMPZAHL1+1.BNEDMO.JSRRAMCOP
Y;JA.JMPPUTRAMRO. .;********************
***********.;* * EDITOR - ERROR
* *.;*******************************. .
EDERROR:LDA#STATCOL.JSRSCRAUS.STXMEM1;NR
. MERKEN.LDX#0;OBERE ZEILE LOESCHEN.JSRC
LRLINE.EDERROL:LDAZEILE.PHA.LDASPALTE.PH
A.JSRHOME.LDXMEM1.CPX#31;SUCHWORT GEFUND
EN.BNEW.LDACZEIL;ZEILE AUSGEBEN.STAZAHL1
.LDACZEIL+1.STAZAHL1+1.JSRZAHLDEZOUT.LDA
#7.JSRSCRTAB.LDX#31.W:CPX#32;CODE FUER '
- ERSETZEN'.BNEWW.LDA#20;ALTER TEXT BLEI
BT.STASPALTE.WW:JSRWRITE.PLA.TAY.PLA.TAX
.JSRSETCRSR.JMPBEEP. .;*****************
**************.;* * TEXT BEARBEITEN
* *.;*******************************
. .DELZEILE:JSRZADR;ZEILE LOESCHEN.LDAZG
;ZAHL2/3 AUF ZEILENANFANG.STAZAHL2;( ZAH
L3 FUER CHANGE ! ).STAZAHL3.LDAZG+1.STAZ
AHL2+1.STAZAHL3+1.LDACZEIL;LETZTE ZEILE
?.CMPZEILEN.BNEREALDEL.LDACZEIL+1.CMPZEI
LEN+1.BEQLASTDEL;JA.REALDEL:JSRTEXTLINE.
LDAZG;ZAHL1 AUF ANFAG DER.STAZAHL1;NAECH
STEN ZEILE.LDAZG+1.STAZAHL1+1.JSRTOMOVE;
ZEILE LOESCHEN.LDAZG2;TXTPOINT NEU SETZE
N.STATXTPOINT.LDAZG2+1.DELABSCHL:STATXTP
OINT+1.LDAZEILEN;ZEILEN-1.BNENHZ.DECZEIL
EN+1.NHZ:DECZEILEN.RTS. .LASTDEL:LDA#0;L
ETZTE ZEILE LOESCHEN.JSRPUTZG.LDAZG.STAT
XTPOINT.LDAZG+1.JMPDELABSCHL. .TOMOVE:LD
ATXTPOINT;ALTES ENDE = TEXTENDE.STAMEM1.
LDATXTPOINT+1.STAMEM2.JMPMOVE. .INSZEILE
:JSRBLOINSKORR.LDA#0;ZEILE EINFUEGEN.INS
ERT:PHA;0=FLAG FUER ADR. BERECHNEN.LDY#8
0;ZEILELAENGE SUCHEN.SEALEN:LDAEDBUFFER-
1,Y.CMP#32.BNELENFOU.DEY.BNESEALEN.INY;L
EERZEILE.LENFOU:INY.LDA#0;ZEILE MIT 0 AB
SCHLIESSEN.STAEDBUFFER-1,Y.STYMEM4;LAENG
E NACH MEM4.LDY#0.LDAZEILEN;ZEILE AN TEX
T ANHAENGEN ?.STAZAHL2.LDAZEILEN+1.STAZA
HL2+1.JSRVERGLEICH.BCSANHAENGEN;JA.PLA.B
EQSUCHANF;ADRESSE SUCHEN.LDAZAHL3;ADRESS
E VON DELETE HOLEN.STAZG.LDAZAHL3+1.STAZ
G+1.JMPNOTSUCH.SUCHANF:JSRZADR;ADR. SUCH
EN.NOTSUCH:CLC;ZAHL1 AUF ALTEN START.LDA
ZG.STAZAHL1.ADCMEM4.STAZAHL2;ZAHL2 AUF N
EUEN START.LDAZG+1;( = ALTER START + ZEI
LENLAENGE ).STAZAHL1+1.ADC#0.STAZAHL2+1.
JSRTOMOVE;VERSCHIEBEN.LDAZAHL1;ZG AUF AL
TEN START.STAZG.LDAZAHL1+1.STAZG+1.PUTZE
I:LDYMEM4;ZEILE EINKOPIEREN.DEY.PUTZEIL:
LDAEDBUFFER,Y.JSRPUTZG.DEY.BPLPUTZEIL;FE
RTIG ?.CLC;TEXTENDE+ZEILENLAENGE.LDAMEM4
.ADCTXTPOINT.STATXTPOINT.LDA#0.ADCTXTPOI
NT+1.STATXTPOINT+1.INCZEILEN;ZEILEN +1.B
NEINSRT.INCZEILEN+1.INSRT:RTS. .ANHAENGE
N:PLA;ZEILE AN TEXT ANHAENGEN.LDATXTPOIN
T;ZG AUF TEXTENDE.STAZG.LDATXTPOINT+1.ST
AZG+1.JSRPUTZEI;ZEILE ANHAENGEN.LDYMEM4;
0 FUER TEXTENDE ANH..LDA#0.JMPPUTZG. .;*
** ZEILE AENDERN ***.CHANGE:JSRDELZEI
LE;ZEILE LOESCHEN.LDACZEIL;ZEILENNUMMER
NACH ZAHL1.STAZAHL1.LDACZEIL+1.STAZAHL1+
1.LDA#1;FLAG FUER ALTE ADRESSE.JMPINSERT
;ZEILE EINFUEGEN. .PACK:LDX#0;ZEILE PACK
EN.LDY#0.JSRDOPACK;PACKEN.LDA#32;REST MI
T SPACE FUELLEN.DELLO:CPY#80.BCC*+3.RTS.
STAEDBUFFER,Y;FUELLEN.INY.BNEDELLO.DOPAC
K:LDAEDBUFFER,X;FUEHRENDE LEERZEICHEN LO
ESCHEN.CMP#32.BEQNCHAR.STAEDBUFFER,Y;KEI
N LEERZEICHEN.INY.CMP#39;APOSTROPH.BEQCH
ARFL;NEXT ZEICHEN UEBERLESEN.CMP#';.BEQK
OM;REST KOMMENTAR.CMP#'".BEQQUOTEFL;ZEIC
HENKETTE.NCHAR:INX;NEXT ZEICHEN.CPX#80.B
NEDOPACK.RTS.CHARFL:INX;ZEICHEN UEBERTRA
GEN.LDAEDBUFFER,X.STAEDBUFFER,Y.INY.BNEN
CHAR;UND WEITER.QUOTEFL:INX;ZEICHENKETTE
UEBERTRAGEN.LDAEDBUFFER,X.STAEDBUFFER,Y
.INY.CMP#'";BIS '"'.BEQNCHAR.CPX#80;ODER
ZEILENENDE.BNEQUOTEFL.RTS.KOM:INX;KOMME
NTAR UEBERTRAGEN.LDAEDBUFFER,X.STAEDBUFF
ER,Y.INY.CPX#80.BNEKOM.RTS. .EDUNPACK:LD
AEDBUFFER;EDBUFFER AUF FORMAT BRINGEN.CM
P#';;KOMMENTARZEILE ?.BNE*+3.RTS;JA.JSRP
ACK;BUFFER PACKEN.LDY#79;ANZEIBUF LOESCH
EN.LDA#32.DBU:STAANZEIBUF,Y.DEY.BPLDBU.L
DA#';;MEM3 AUF KOMMENTARPOS..JSRINSTRING
.STYMEM3.LDA#':;MEM2 AUF LABELPOS..JSRIN
STRING.STYMEM2.CPY#0.BEQ*+4.INCMEM2;LABE
L VORHANDEN -> POS+1.LDX#0.LDY#0.LDAMEM2
.BNE*+4.LDX#12;BEFEHLSPOS..UPTRA:LDAEDBU
FFER,Y.STAANZEIBUF,X.INX.INY.CPX#80;FERT
IG ?
.BNENUPREADY.LDX#79;
ANZEIBUF->EDBUFFER.ENDUPL:LDAANZEIBUF,X.
STAEDBUFFER,X.DEX.BPLENDUPL.RTS;FERTIG.N
UPREADY:CPX#15;BEFEHLSENDE ?.BNE*+3.INX.
CPYMEM2;LABELENDE ?.BNENUPLBL.CPX#12.BCS
*+4.LDX#12.NUPLBL:CPYMEM3;KOMMENTARPOS..
BNEUPTRA.CPX#31.BCSUPTRA.LDX#31.BNEUPTRA
. .;*******************************.;* *
SUCHEN UND ERSETZEN * *.;**********
*********************. .;BUFFER+10 SUCH
WORT BUFFER+50 ERSETZWORT.;BUFFER3
LEN WORT1 BUFFER3+1 LEN WORT2.;BU
FFER3+2 LEN WORT2-WORT1.;BUFFER3+3 0=F
IND 1=SUBST..;BUFFER3+4 Y-REGISTER B
UFFER3+5 ZEILENLAENGE.;BUFFER3+6 FLAGS
. .ARGIN:LDX#0;EIN WORT HOLEN.AI:JSRBASI
N;WORT SPEICHERN.STABUFFER+10,Y.CMP#13;B
IS CR.BEQENDARG.INX.INY.CPX#31;WORT ZU L
ANG ?.BNEAI.LDX#11;JA->ERROR.JSREDERROR.
PLA.PLA.FIABORT:LDXZAHL2;BEFEHL ABBRECHE
N.LDYZAHL2+1.JSRSETCRSR.LDABUFFER3+6.STA
FLAGS.JMPEDBEF.ENDARG:LDA#0;WORT MIT 0 A
BSCHLIESSEN.STABUFFER+10,Y.RTS. .FIND:LD
A#0;FLAG FUER FIND.BIT.REPLACE:LDA#1;FLA
G FUER REPLACE.STABUFFER3+3;SPEICHERN.LD
AFLAGS;FLAGS MERKEN.STABUFFER3+6;FORMAT
AUS.AND#$FF-2.STAFLAGS.LDX#0;WORT(E) HOL
EN.JSRCLRLINE.JSREINFACHZEI.JSRHOME.LDX#
28.JSRWRITE.LDY#0;1.WORT HOLEN.JSRARGIN.
CPX#0;LEERWORT ?.BEQFIABORT.STXBUFFER3;L
AENGE MERKEN.LDABUFFER3+3;REPLACE ?.BEQN
OREPL1.LDX#0;2.WORT HOLEN.JSRCLRLINE.JSR
HOME.LDX#29.JSRWRITE.LDY#40.JSRARGIN.STX
BUFFER3+1;LAENGE MERKEN.SEC;LAENGENDIFFE
RENZ.TXA.SBCBUFFER3.STABUFFER3+2;MERKEN.
NOREPL1:LDACZEIL;ADR. DER ERSTEN SUCHZEI
LE.STAZAHL1.LDACZEIL+1.STAZAHL1+1.JSRZAD
R.CONT:LDY#0;TEXTENDE ?.JSRHOLZG.BNETRAN
S2.LDX#0;JA->ZUM TEXTANFANG.STXCZEIL+1.I
NX.STXCZEIL.STXCSPAL.LDABUFFER3+6;FLAGS
HOLEN.STAFLAGS.JSRDATENBILD.LDX#30;STRIN
G NOT FOUND.JSREDERROR.JMPEDBEF.TRANS2:J
SRDELEDBU;ZEILE IN EDBUFFER.LDY#0.TRALO:
JSRHOLZG.STYBUFFER3+5;ZEILENLAENGE.STAED
BUFFER,Y.BEQENDTRANS2;FERTIG ?.INY.BNETR
ALO.ENDTRANS2:LDY#0;SUCHEN.SFL:LDX#0.LDA
EDBUFFER,Y.BEQENDLINE;ZEILENENDE?.CMPBUF
FER+10,X;ERSTER BUCHSTABE GLEICH.BEQWORT
?.LDABUFFER+10,X;ODER EGAL.CMP#'?.BEQWOR
T?.INY;WEITERSUCHEN.BNESFL.WORT?:STYBUFF
ER3+4;POS. MERKEN.VERGLW:INX;NEXT BUCHST
ABE.INY.LDABUFFER+10,X.BEQWORT;WORTENDE.
CMPEDBUFFER,Y.BEQVERGLW;BUCHSTABE GLEICH
.CMP#'?;ODER EGAL.BNENOVERGLW.LDAEDBUFFE
R,Y.BNEVERGLW.NOVERGLW:LDYBUFFER3+4;POS.
HOLEN.INY.BNESFL;WEITERSUCHEN.ENDLINE:L
DAZG;TEXT UPDATEN.PHA.LDAZG+1.PHA.JSRUPD
ATEN.PLA.STAZG+1.PLA.STAZG.LDY#0;NAECHST
E ZEILE.JSRTEXTLINE.INCCZEIL.BNETOCONT.I
NCCZEIL+1.TOCONT:JMPCONT;WEITERSUCHEN.WO
RT:LDYBUFFER3+4;WORT GEFUNDEN.INY.STYCSP
AL.LDAZG;ANZEIGEN.PHA.LDAZG+1.PHA.JSRDAT
ENBILD.PLA.STAZG+1.PLA.STAZG.LDX#31;BEFE
HL HOLEN.JSREDERROR;(FIND EDIT).LDABUFFE
R3+3.BEQNOREPL2.LDX#32;(SUBST.).STXMEM1.
JSREDERROL.NOREPL2:JSRCRSRON.GETFR:JSRGE
T.CMP#'E.BNEF?.JSRCRSROFF;EDIT BEFEHL.JS
RUPDATEN.LDXZEILE.LDYSPALTE.STXZAHL2.STY
ZAHL2+1.JSRSTAZEI.LDABUFFER3+6;FLAGS HOL
EN.STAFLAGS.JSRDATENBILD.JMPEDBEF.F?:CMP
#'F.BNES?.JSRCRSROFF;FIND BEFEHL.LDYBUFF
ER3+4;NEXT POS..INY.JMPSFL;WEITERSUCHEN.
S?:CMP#'S;ERSETZEN.BNEGETFR.LDABUFFER3+3
;MOEGLICH ?.BEQGETFR.LDYBUFFER3+5;ZEILE
MIT 0 ABSCHL..LDA#0.STAEDBUFFER,Y.LDABUF
FER3+2;AUF SPEICHERPLATZ TESTEN.BMIREPLM
OEGL.CLC.ADCBUFFER3+5.CMP#81.BCCREPLMOEG
L.LDX#33;ZU WENIG SPEICHER.JSREDERROR.JM
PGETFR.REPLMOEGL:JSRCRSROFF;ERSETZEN MOE
GLICH.LDABUFFER3+4;Y AUF ANFANGSPOS..TAY
.CLC.ADCBUFFER3.TAX;X AUF WORTENDE.DELWO
RT:LDAEDBUFFER,X;WORT LOESCHEN.STAEDBUFF
ER,Y.BEQINSWORT.INY.INX.BNEDELWORT.INSWO
RT:TYA;Y AUF ZEILENENDE.CLC;X AUF NEUES
ZEILENENDE.ADCBUFFER3+1.STABUFFER3+5.TAX
.IWO:LDAEDBUFFER,Y;PLATZ FUER WORT SCHAF
FEN.STAEDBUFFER,X.DEX.DEY.BMIIWOEND.CPYB
UFFER3+4.BCSIWO.IWOEND:LDYBUFFER3+4;Y AU
F WORTPOS..LDX#0.PUTWORD:LDABUFFER+50,X;
WORT EINSETZEN.BEQREADY.STAEDBUFFER,Y.IN
X.INY.BNEPUTWORD.READY:LDYBUFFER3+5;0 AB
SCHLUSS LOESCHEN.LDA#32.DELREST:STAEDBUF
FER,Y.INY.CPY#80.BCCDELREST.LDA#0;0 AN P
OS. 81 FUER SUCHENDE.STAEDBUFFER,Y.LDABU
FFER3+4;SUCHPOS. HINTER NEUWORT.CLC.ADCB
UFFER3+1.TAY.LDAFLAGS;UPDATE NOETIG.ORA#
128.STAFLAGS.JMPSFL. ..FI"ASS"..P
> CLICK IMAGE PREVIEW FOR FULL MODAL