MAIN
FILE INFORMATION
FILENAME(S): MAIN
FILE TYPE(S): PRG
FILE SIZE: 14K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 3 disk(s)
FILE HASH
4d842d1b3200105cce99c8422df09005ff55ee9155230e9491c7ab0639e83ad1
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | MAIN | PRG | Treasure Chest - Klaus Der Suhler | 24 | 2 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | MAIN | PRG | Treasure Chest - Klaus Der Suhler | 10 | 0 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | MAIN | PRG | Treasure Chest - Klaus Der Suhler | 24 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: EF 37 3B 3B 3B 2D 2D 2D 20 D1 55 45 4C 4C 44 41 |.7;;;--- .UELLDA| 00000010: 54 45 49 20 4D 41 49 4E 00 20 00 56 45 52 47 4C |TEI MAIN. .VERGL| 00000020: 45 49 43 48 3A 53 54 41 4D 45 4D 31 3B 56 45 52 |EICH:STAMEM1;VER| 00000030: 47 4C 45 49 43 48 20 5A 41 48 4C 31 20 4D 49 54 |GLEICH ZAHL1 MIT| 00000040: 20 5A 41 48 4C 32 00 4C 44 41 5A 41 48 4C 31 2B | ZAHL2.LDAZAHL1+| 00000050: 31 3B 4C 49 45 46 45 52 54 20 C3 20 DA 20 CE 00 |1;LIEFERT . . ..| 00000060: 43 4D 50 5A 41 48 4C 32 2B 31 3B 20 20 20 20 20 |CMPZAHL2+1; | 00000070: 20 20 20 31 20 30 20 30 20 5A 41 48 4C 31 20 3E | 1 0 0 ZAHL1 >| 00000080: 20 5A 41 48 4C 32 00 42 45 51 4C 4F 54 53 54 3B | ZAHL2.BEQLOTST;| 00000090: 20 20 20 20 20 20 20 20 30 20 31 20 30 20 5A 41 | 0 1 0 ZA| 000000A0: 48 4C 31 20 3D 20 5A 41 48 4C 32 00 42 43 53 47 |HL1 = ZAHL2.BCSG| 000000B0: 52 54 3B 20 20 20 20 20 20 20 20 30 20 30 20 31 |RT; 0 0 1| 000000C0: 20 5A 41 48 4C 31 20 3C 20 5A 41 48 4C 32 00 4C | ZAHL1 < ZAHL2.L| 000000D0: 52 54 3A 4C 44 41 23 31 32 38 3B 4E 3D 31 00 2E |RT:LDA#128;N=1..| 000000E0: 42 59 24 32 43 00 47 52 54 3A 4C 44 41 23 31 3B |BY$2C.GRT:LDA#1;| 000000F0: 43 3D 31 00 2E 42 59 24 32 43 00 45 52 54 3A 4C |C=1..BY$2C.ERT:L| 00000100: 44 41 23 32 3B 5A 3D 31 00 50 48 41 3B 41 55 46 |DA#2;Z=1.PHA;AUF| 00000110: 20 53 54 41 43 4B 00 4C 44 41 4D 45 4D 31 00 50 | STACK.LDAMEM1.P| 00000120: 4C 50 3B 41 4C 53 20 53 54 41 54 55 53 20 48 4F |LP;ALS STATUS HO| 00000130: 4C 45 4E 00 52 54 53 00 4C 4F 54 53 54 3A 4C 44 |LEN.RTS.LOTST:LD| 00000140: 41 5A 41 48 4C 31 00 43 4D 50 5A 41 48 4C 32 00 |AZAHL1.CMPZAHL2.| 00000150: 42 45 51 45 52 54 3B 47 4C 45 49 43 48 00 42 43 |BEQERT;GLEICH.BC| 00000160: 53 47 52 54 3B 47 52 4F 45 53 53 45 52 00 42 43 |SGRT;GROESSER.BC| 00000170: 43 4C 52 54 3B 4B 4C 45 49 4E 45 52 00 20 00 5A |CLRT;KLEINER. .Z| 00000180: 47 54 45 58 54 3A 4C 44 41 54 58 54 41 4E 46 3B |GTEXT:LDATXTANF;| 00000190: 5A 47 20 41 55 46 20 54 45 58 54 41 4E 46 41 4E |ZG AUF TEXTANFAN| 000001A0: 47 00 53 54 41 5A 47 00 4C 44 41 54 58 54 41 4E |G.STAZG.LDATXTAN| 000001B0: 46 2B 31 00 53 54 41 5A 47 2B 31 00 4C 44 59 23 |F+1.STAZG+1.LDY#| 000001C0: 30 3B 55 4E 44 20 D9 20 41 55 46 20 30 00 52 54 |0;UND . AUF 0.RT| 000001D0: 53 00 20 00 50 4F 49 4E 54 45 52 3A 4A 53 52 5A |S. .POINTER:JSRZ| 000001E0: 47 54 45 58 54 3B 50 4F 49 4E 54 45 52 20 53 45 |GTEXT;POINTER SE| 000001F0: 54 5A 45 4E 00 4C 44 41 23 30 3B 5A 45 49 4C 45 |TZEN.LDA#0;ZEILE| 00000200: 4E 20 3D 30 00 53 54 41 5A 45 49 4C 45 4E 00 53 |N =0.STAZEILEN.S| 00000210: 54 41 5A 45 49 4C 45 4E 2B 31 00 4A 53 52 48 4F |TAZEILEN+1.JSRHO| 00000220: 4C 5A 47 00 42 45 51 4C 45 45 52 3B 4B 45 49 4E |LZG.BEQLEER;KEIN| 00000230: 20 54 45 58 54 00 50 4F 49 3A 4A 53 52 54 45 58 | TEXT.POI:JSRTEX| 00000240: 54 4C 49 4E 45 00 49 4E 43 5A 45 49 4C 45 4E 3B |TLINE.INCZEILEN;| 00000250: 5A 45 49 4C 45 4E 2B 31 00 42 4E 45 2A 2B 34 00 |ZEILEN+1.BNE*+4.| 00000260: 49 4E 43 5A 45 49 4C 45 4E 2B 31 00 43 4D 50 23 |INCZEILEN+1.CMP#| 00000270: 30 3B D4 45 58 54 45 4E 44 45 20 3F 00 42 4E 45 |0;.EXTENDE ?.BNE| 00000280: 50 4F 49 3B CE 45 49 4E 00 4C 45 45 52 3A 4C 44 |POI;.EIN.LEER:LD| 00000290: 41 5A 47 3B 54 58 54 50 4F 49 4E 54 20 53 45 54 |AZG;TXTPOINT SET| 000002A0: 5A 45 4E 00 53 54 41 54 58 54 50 4F 49 4E 54 00 |ZEN.STATXTPOINT.| 000002B0: 4C 44 41 5A 47 2B 31 00 53 54 41 54 58 54 50 4F |LDAZG+1.STATXTPO| 000002C0: 49 4E 54 2B 31 00 52 54 53 00 20 00 43 4C 4F 41 |INT+1.RTS. .CLOA| 000002D0: 4C 4C 3A 4A 53 52 43 4C 52 43 48 3B C1 4C 4C 45 |LL:JSRCLRCH;.LLE| 000002E0: 20 C6 49 4C 45 27 53 20 53 43 48 4C 49 45 53 53 | .ILE'S SCHLIESS| 000002F0: 45 4E 00 4C 44 41 23 31 00 4A 53 52 43 4C 4F 53 |EN.LDA#1.JSRCLOS| 00000300: 45 00 4C 44 41 23 32 00 4A 53 52 43 4C 4F 53 45 |E.LDA#2.JSRCLOSE| 00000310: 00 4C 44 41 23 33 00 4A 53 52 43 4C 4F 53 45 00 |.LDA#3.JSRCLOSE.| 00000320: 53 45 49 00 52 54 53 00 20 00 42 45 45 50 3A 4C |SEI.RTS. .BEEP:L| 00000330: 44 41 23 31 30 3B D4 4F 4E 20 41 55 53 47 45 42 |DA#10;.ON AUSGEB| 00000340: 45 4E 00 53 54 41 53 49 44 2B 35 00 4C 44 41 23 |EN.STASID+5.LDA#| 00000350: 32 30 00 53 54 41 53 49 44 2B 31 00 4C 44 41 23 |20.STASID+1.LDA#| 00000360: 33 32 00 53 54 41 53 49 44 2B 34 00 4C 44 41 23 |32.STASID+4.LDA#| 00000370: 33 33 00 53 54 41 53 49 44 2B 34 00 52 54 53 00 |33.STASID+4.RTS.| 00000380: 20 00 54 45 58 54 4C 49 4E 45 3A 4A 53 52 48 4F | .TEXTLINE:JSRHO| 00000390: 4C 5A 47 3B 5A 47 20 41 55 46 20 C1 4E 46 41 4E |LZG;ZG AUF .NFAN| 000003A0: 47 20 4E 41 45 43 48 53 54 45 20 DA 45 49 4C 45 |G NAECHSTE .EILE| 000003B0: 00 42 45 51 46 4F 45 4C 49 3B DA 45 49 4C 45 4E |.BEQFOELI;.EILEN| 000003C0: 45 4E 44 45 20 53 55 43 48 45 4E 00 49 4E 59 00 |ENDE SUCHEN.INY.| 000003D0: 42 4E 45 54 45 58 54 4C 49 4E 45 00 46 4F 45 4C |BNETEXTLINE.FOEL| 000003E0: 49 3A 53 45 43 00 54 59 41 3B 5A 47 20 2B 20 DA |I:SEC.TYA;ZG + .| 000003F0: 45 49 4C 45 4E 4C 41 45 4E 47 45 00 41 44 43 5A |EILENLAENGE.ADCZ| 00000400: 47 00 53 54 41 5A 47 00 42 43 43 2A 2B 34 00 49 |G.STAZG.BCC*+4.I| 00000410: 4E 43 5A 47 2B 31 00 4C 44 59 23 30 00 4A 4D 50 |NCZG+1.LDY#0.JMP| 00000420: 48 4F 4C 5A 47 3B 45 52 53 54 45 53 20 DA 45 49 |HOLZG;ERSTES .EI| 00000430: 43 48 45 4E 20 48 4F 4C 45 4E 00 20 00 45 49 4E |CHEN HOLEN. .EIN| 00000440: 46 41 43 48 5A 45 49 3A 4C 44 58 23 32 34 3B C2 |FACHZEI:LDX#24;.| 00000450: 49 4C 44 53 43 48 49 52 4D 5A 45 49 4C 45 4E 20 |ILDSCHIRMZEILEN | 00000460: 41 4C 53 00 53 45 54 42 49 54 3A 4C 44 41 4D 53 |ALS.SETBIT:LDAMS| 00000470: 42 2C 58 3B C5 49 4E 46 41 43 48 5A 45 49 4C 45 |B,X;.INFACHZEILE| 00000480: 4E 20 4B 45 4E 4E 5A 45 49 43 48 4E 45 4E 00 4F |N KENNZEICHNEN.O| 00000490: 52 41 23 31 32 38 3B C2 49 54 20 37 20 53 45 54 |RA#128;.IT 7 SET| 000004A0: 5A 45 4E 00 53 54 41 4D 53 42 2C 58 00 44 45 58 |ZEN.STAMSB,X.DEX| 000004B0: 00 42 50 4C 53 45 54 42 49 54 00 52 54 53 00 20 |.BPLSETBIT.RTS. | 000004C0: 00 44 45 43 5A 47 3A 4C 44 41 5A 47 3B 5A 47 2D |.DECZG:LDAZG;ZG-| 000004D0: 31 00 42 4E 45 4E 44 48 00 44 45 43 5A 47 2B 31 |1.BNENDH.DECZG+1| 000004E0: 00 4E 44 48 3A 44 45 43 5A 47 00 52 54 53 00 20 |.NDH:DECZG.RTS. | 000004F0: 00 44 45 4C 45 44 42 55 3A 4C 44 59 23 38 30 3B |.DELEDBU:LDY#80;| 00000500: 45 44 42 55 46 46 45 52 20 4D 49 54 20 D3 50 41 |EDBUFFER MIT .PA| 00000510: 43 45 20 46 55 45 4C 4C 45 4E 00 4C 44 41 23 33 |CE FUELLEN.LDA#3| 00000520: 32 00 44 45 42 3A 53 54 41 45 44 42 55 46 46 45 |2.DEB:STAEDBUFFE| 00000530: 52 2C 59 00 44 45 59 00 42 50 4C 44 45 42 00 52 |R,Y.DEY.BPLDEB.R| 00000540: 54 53 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TS. .;**********| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A |*************.;*| 00000570: 20 2A 20 20 20 20 D4 45 58 54 20 4D 49 54 20 CE | * .EXT MIT .| 00000580: 52 20 49 4E 20 D8 20 44 52 55 43 4B 45 4E 20 20 |R IN . DRUCKEN | 00000590: 20 20 20 20 2A 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A | **.;********| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000005C0: 20 00 57 52 49 54 45 3A 4A 53 52 50 55 53 43 48 | .WRITE:JSRPUSCH| 000005D0: 00 4C 44 41 23 3C 54 45 58 54 45 3B 4D 45 4D 31 |.LDA#<TEXTE;MEM1| 000005E0: 20 41 4C 53 20 DA 45 49 47 45 52 20 41 55 46 20 | ALS .EIGER AUF | 000005F0: 54 45 58 54 45 00 53 54 41 4D 45 4D 31 00 4C 44 |TEXTE.STAMEM1.LD| 00000600: 41 23 3E 54 45 58 54 45 00 53 54 41 4D 45 4D 32 |A#>TEXTE.STAMEM2| 00000610: 00 4C 44 59 23 30 00 49 4E 58 00 57 53 54 58 54 |.LDY#0.INX.WSTXT| 00000620: 3A 44 45 58 3B D4 45 58 54 20 53 55 43 48 45 4E |:DEX;.EXT SUCHEN| 00000630: 00 42 4E 45 53 45 41 54 58 54 00 57 52 54 4F 55 |.BNESEATXT.WRTOU| 00000640: 54 3A 4C 44 41 28 4D 45 4D 31 29 2C 59 3B D4 45 |T:LDA(MEM1),Y;.E| 00000650: 58 54 20 41 55 53 47 45 42 45 4E 00 42 4E 45 4F |XT AUSGEBEN.BNEO| 00000660: 55 54 00 4A 4D 50 50 55 4C 4C 00 4F 55 54 3A 4A |UT.JMPPULL.OUT:J| 00000670: 53 52 42 53 4F 55 54 00 49 4E 59 00 42 4E 45 57 |SRBSOUT.INY.BNEW| 00000680: 52 54 4F 55 54 00 49 4E 43 4D 45 4D 32 00 42 4E |RTOUT.INCMEM2.BN| 00000690: 45 57 52 54 4F 55 54 00 53 45 41 54 58 54 3A 49 |EWRTOUT.SEATXT:I| 000006A0: 4E 59 3B 4E 41 45 43 48 53 54 45 4E 20 D4 45 58 |NY;NAECHSTEN .EX| 000006B0: 54 41 4E 46 41 4E 47 20 53 55 43 48 45 4E 00 42 |TANFANG SUCHEN.B| 000006C0: 4E 45 53 45 41 54 58 54 32 00 49 4E 43 4D 45 4D |NESEATXT2.INCMEM| 000006D0: 32 00 53 45 41 54 58 54 32 3A 4C 44 41 28 4D 45 |2.SEATXT2:LDA(ME| 000006E0: 4D 31 29 2C 59 00 42 4E 45 53 45 41 54 58 54 00 |M1),Y.BNESEATXT.| 000006F0: 49 4E 59 00 42 4E 45 57 53 54 58 54 3B 57 45 49 |INY.BNEWSTXT;WEI| 00000700: 54 45 52 53 55 43 48 45 4E 00 49 4E 43 4D 45 4D |TERSUCHEN.INCMEM| 00000710: 32 00 42 4E 45 57 53 54 58 54 00 20 00 54 45 58 |2.BNEWSTXT. .TEX| 00000720: 54 45 3A 2E 42 59 31 34 37 2C 38 2C 31 34 3B 54 |TE:.BY147,8,14;T| 00000730: 58 54 20 30 00 2E 42 59 53 54 41 54 43 4F 4C 2C |XT 0..BYSTATCOL,| 00000740: 22 12 20 C5 44 49 54 4F 52 20 20 20 20 20 20 C1 |". .DITOR .| 00000750: 53 53 45 4D 42 4C 45 52 20 20 20 20 20 20 CD 4F |SSEMBLER .O| 00000760: 4E 49 54 4F 52 20 20 20 20 20 22 2C 31 33 2C 31 |NITOR ",13,1| 00000770: 33 00 2E 42 59 22 20 28 43 29 20 CD 2E C6 52 49 |3..BY" (C) ...RI| 00000780: 45 53 45 20 31 31 2F 38 35 20 20 20 20 20 20 20 |ESE 11/85 | 00000790: D6 45 52 53 49 4F 4E 3A 20 C2 22 2C 31 33 2C 31 |.ERSION: .",13,1| 000007A0: 33 2C 31 33 00 2E 42 59 22 C5 2D C5 44 49 54 20 |3,13..BY".-.DIT | 000007B0: 20 20 20 20 D2 2D D2 55 4E 20 20 20 20 20 C7 2D | .-.UN .-| 000007C0: C7 45 54 20 20 20 20 20 C6 2D C6 4C 4F 50 50 59 |.ET .-.LOPPY| 000007D0: 20 22 00 2E 42 59 22 C1 2D C1 53 53 45 4D 42 4C | "..BY".-.SSEMBL| 000007E0: 45 20 C9 2D C9 4E 49 54 20 20 20 20 D3 2D D3 41 |E .-.NIT .-.A| 000007F0: 56 45 20 20 20 20 C3 2D C3 41 54 41 4C 4F 47 22 |VE .-.ATALOG"| 00000800: 00 2E 42 59 22 D0 2D D0 41 53 53 20 20 20 20 20 |..BY".-.ASS | 00000810: CC 2D CC 41 42 45 4C 20 20 20 CD 2D CD 45 52 47 |.-.ABEL .-.ERG| 00000820: 45 20 20 20 C4 2D C4 49 53 4B C3 4D 44 22 00 2E |E .-.ISK.MD"..| 00000830: 42 59 22 C2 2D C2 41 43 4B 20 20 20 20 20 D4 2D |BY".-.ACK .-| 00000840: C4 52 55 43 4B 45 52 20 D6 2D D6 45 52 49 46 59 |.RUCKER .-.ERIFY| 00000850: 20 20 CE 2D CD 4F 4E 49 54 4F 52 22 00 2E 42 59 | .-.ONITOR"..BY| 00000860: 22 C8 2D C8 45 4C 50 20 20 20 20 20 CF 2D CF 50 |".-.ELP .-.P| 00000870: 54 49 4F 4E 53 20 D7 2D D7 52 49 54 45 22 2C 31 |TIONS .-.RITE",1| 00000880: 33 2C 31 33 2C 31 33 2C 30 00 20 00 2E 42 59 22 |3,13,13,0. ..BY"| 00000890: D4 45 58 54 3A 20 20 24 22 2C 30 3B 54 58 54 20 |.EXT: $",0;TXT | 000008A0: 31 00 2E 42 59 22 CC 41 42 45 4C 3A 20 24 22 2C |1..BY".ABEL: $",| 000008B0: 30 3B 54 58 54 20 32 00 2E 42 59 22 D3 49 4E 44 |0;TXT 2..BY".IND| 000008C0: 20 D3 49 45 20 53 49 43 48 45 52 3F 20 28 4A 2F | .IE SICHER? (J/| 000008D0: 4E 29 22 2C 31 33 2C 30 3B 54 58 54 20 33 00 2E |N)",13,0;TXT 3..| 000008E0: 42 59 22 C1 4C 4C 45 53 20 41 55 46 20 D2 C1 CD |BY".LLES AUF ...| 000008F0: 20 3F 22 2C 30 3B 54 58 54 20 34 00 2E 42 59 22 | ?",0;TXT 4..BY"| 00000900: C1 44 52 45 53 53 45 3A 20 22 2C 30 3B 54 58 54 |.DRESSE: ",0;TXT| 00000910: 20 35 00 2E 42 59 22 C4 41 54 45 49 4E 41 4D 45 | 5..BY".ATEINAME| 00000920: 3A 20 22 2C 30 3B 54 58 54 20 36 00 2E 42 59 22 |: ",0;TXT 6..BY"| 00000930: C3 41 54 41 4C 4F 47 2D CD 41 53 4B 45 3A 20 22 |.ATALOG-.ASKE: "| 00000940: 2C 30 3B 54 58 54 20 37 00 2E 42 59 22 C2 45 46 |,0;TXT 7..BY".EF| 00000950: 45 48 4C 3A 20 22 2C 30 3B 54 58 54 20 38 00 2E |EHL: ",0;TXT 8..| 00000960: 42 59 22 2D 24 22 2C 30 3B 54 58 54 20 39 00 2E |BY"-$",0;TXT 9..| 00000970: 42 59 22 20 20 C7 45 46 55 45 4C 4C 54 3A 20 24 |BY" .EFUELLT: $| 00000980: 22 2C 30 3B 54 58 54 20 31 30 00 2E 42 59 22 DA |",0;TXT 10..BY".| 00000990: 45 49 4C 45 20 5A 55 20 4C 41 4E 47 22 2C 30 3B |EILE ZU LANG",0;| 000009A0: 54 58 54 20 31 31 00 2E 42 59 22 C7 45 54 20 22 |TXT 11..BY".ET "| 000009B0: 2C 30 3B 54 58 54 20 31 32 00 2E 42 59 22 D3 41 |,0;TXT 12..BY".A| 000009C0: 56 45 20 22 2C 30 3B 54 58 54 20 31 33 00 2E 42 |VE ",0;TXT 13..B| 000009D0: 59 22 CD 45 52 47 45 20 22 2C 30 3B 54 58 54 20 |Y".ERGE ",0;TXT | 000009E0: 31 34 00 2E 42 59 22 DA 55 20 57 45 4E 49 47 20 |14..BY".U WENIG | 000009F0: D3 50 45 49 43 48 45 52 22 2C 30 3B 54 58 54 20 |.PEICHER",0;TXT | 00000A00: 31 35 00 2E 42 59 53 54 41 54 43 4F 4C 2C 22 12 |15..BYSTATCOL,".| 00000A10: C5 44 49 54 20 20 DA 45 49 4C 45 3A 22 2C 30 3B |.DIT .EILE:",0;| 00000A20: 54 58 54 20 31 36 00 2E 42 59 22 D0 3A 1D 20 C6 |TXT 16..BY".:. .| 00000A30: 3A 1D 20 C9 3A 1D 20 D1 3A 1D 22 2C 30 3B 54 58 |:. .:. .:.",0;TX| 00000A40: 54 20 31 37 00 2E 42 59 22 D0 4F 53 3A 22 2C 30 |T 17..BY".OS:",0| 00000A50: 3B 54 58 54 20 31 38 00 2E 42 59 22 DA 45 49 4C |;TXT 18..BY".EIL| 00000A60: 45 4E 3A 20 22 2C 30 3B 54 58 54 20 31 39 00 2E |EN: ",0;TXT 19..| 00000A70: 42 59 22 CB 4F 4D 4D 41 4E 44 4F 20 4E 49 43 48 |BY".OMMANDO NICH| 00000A80: 54 20 44 45 46 49 4E 49 45 52 54 22 2C 30 3B 54 |T DEFINIERT",0;T| 00000A90: 58 54 20 32 30 00 2E 42 59 22 CB 45 49 4E 20 C2 |XT 20..BY".EIN .| 00000AA0: 4C 4F 43 4B 20 44 45 46 49 4E 49 45 52 54 22 2C |LOCK DEFINIERT",| 00000AB0: 30 3B 54 58 54 20 32 31 00 2E 42 59 22 C3 55 52 |0;TXT 21..BY".UR| 00000AC0: 53 4F 52 20 53 54 45 48 54 20 49 4D 20 C2 4C 4F |SOR STEHT IM .LO| 00000AD0: 43 4B 22 2C 30 3B 54 58 54 20 32 32 00 2E 42 59 |CK",0;TXT 22..BY| 00000AE0: 22 C4 52 55 43 4B 45 52 20 41 22 2C 30 3B 54 58 |".RUCKER A",0;TX| 00000AF0: 54 20 32 33 00 2E 42 59 22 DA 45 49 4C 45 3A 20 |T 23..BY".EILE: | 00000B00: 22 2C 30 3B 54 58 54 20 32 34 00 2E 42 59 22 C5 |",0;TXT 24..BY".| 00000B10: 49 4E 47 41 42 45 20 55 4E 5A 55 4C 41 45 53 53 |INGABE UNZULAESS| 00000B20: 49 47 22 2C 30 3B 54 58 54 20 32 35 00 2E 42 59 |IG",0;TXT 25..BY| 00000B30: 22 D6 45 52 49 46 59 20 C6 45 48 4C 45 52 22 2C |".ERIFY .EHLER",| 00000B40: 30 3B 54 58 54 20 32 36 00 2E 42 59 22 D6 45 52 |0;TXT 26..BY".ER| 00000B50: 49 46 59 20 22 2C 30 3B 54 58 54 20 32 37 00 2E |IFY ",0;TXT 27..| 00000B60: 42 59 22 D3 55 43 48 45 3A 22 2C 30 3B 54 58 54 |BY".UCHE:",0;TXT| 00000B70: 20 32 38 00 2E 42 59 22 C5 52 53 41 54 5A 3A 20 | 28..BY".RSATZ: | 00000B80: 22 2C 30 3B 54 58 54 20 32 39 00 2E 42 59 22 D4 |",0;TXT 29..BY".| 00000B90: 45 58 54 20 4E 49 43 48 54 20 47 45 46 55 4E 44 |EXT NICHT GEFUND| 00000BA0: 45 4E 22 2C 30 3B 54 58 54 20 33 30 00 2E 42 59 |EN",0;TXT 30..BY| 00000BB0: 22 C5 44 49 54 20 2D 20 C6 49 4E 44 20 22 2C 30 |".DIT - .IND ",0| 00000BC0: 3B 54 58 54 20 33 31 00 2E 42 59 22 2D 20 D3 55 |;TXT 31..BY"- .U| 00000BD0: 42 53 54 49 54 55 54 45 22 2C 30 3B 54 58 54 20 |BSTITUTE",0;TXT | 00000BE0: 33 32 00 2E 42 59 22 CB 41 4E 4E 20 4E 49 43 48 |32..BY".ANN NICH| 00000BF0: 54 20 45 52 53 45 54 5A 54 20 57 45 52 44 45 4E |T ERSETZT WERDEN| 00000C00: 22 2C 30 3B 54 58 54 20 33 33 00 2E 42 59 22 D0 |",0;TXT 33..BY".| 00000C10: 52 4F 47 52 41 4D 20 C6 49 58 20 D5 4E 55 53 45 |ROGRAM .IX .NUSE| 00000C20: 44 20 C1 4C 4C 20 3F 20 22 2C 30 3B 54 58 54 20 |D .LL ? ",0;TXT | 00000C30: 33 34 00 2E 42 59 31 33 2C 22 CC 41 42 45 4C 2D |34..BY13,".ABEL-| 00000C40: C6 49 4C 45 3A 22 2C 31 33 2C 31 33 2C 30 3B 54 |.ILE:",13,13,0;T| 00000C50: 58 54 20 33 35 00 20 00 2E 42 59 22 D3 50 52 55 |XT 35. ..BY".PRU| 00000C60: 4E 47 20 5A 55 20 4C 41 4E 47 22 2C 30 3B 54 58 |NG ZU LANG",0;TX| 00000C70: 54 33 36 00 2E 42 59 22 CF 50 45 52 41 4E 44 22 |T36..BY".PERAND"| 00000C80: 2C 30 3B 54 58 54 20 33 37 00 2E 42 59 22 D3 59 |,0;TXT 37..BY".Y| 00000C90: 4D 42 4F 4C 41 4E 5A 41 48 4C 22 2C 30 3B 54 58 |MBOLANZAHL",0;TX| 00000CA0: 54 20 33 38 00 2E 42 59 22 C1 44 52 2E 20 55 4E |T 38..BY".DR. UN| 00000CB0: 42 45 4B 41 4E 4E 54 22 2C 30 3B 54 58 54 20 33 |BEKANNT",0;TXT 3| 00000CC0: 39 00 2E 42 59 22 C1 44 52 2E 20 4E 49 43 48 54 |9..BY".DR. NICHT| 00000CD0: 20 4D 4F 45 47 4C 49 43 48 22 2C 30 3B 54 58 54 | MOEGLICH",0;TXT| 00000CE0: 20 34 30 00 2E 42 59 22 D3 59 4D 42 4F 4C 20 44 | 40..BY".YMBOL D| 00000CF0: 4F 50 50 45 4C 54 22 2C 30 3B 54 58 54 20 34 31 |OPPELT",0;TXT 41| 00000D00: 00 2E 42 59 22 D3 59 4D 42 4F 4C 20 55 4E 42 45 |..BY".YMBOL UNBE| 00000D10: 4B 41 4E 4E 54 22 2C 30 3B 54 58 54 20 34 32 00 |KANNT",0;TXT 42.| 00000D20: 2E 42 59 22 C2 45 46 45 48 4C 20 55 4E 42 45 4B |.BY".EFEHL UNBEK| 00000D30: 41 4E 4E 54 22 2C 30 3B 54 58 54 20 34 33 00 2E |ANNT",0;TXT 43..| 00000D40: 42 59 22 CF 50 45 52 41 4E 44 20 5A 55 20 47 52 |BY".PERAND ZU GR| 00000D50: 4F 53 53 22 2C 30 3B 54 58 54 20 34 34 00 2E 42 |OSS",0;TXT 44..B| 00000D60: 59 22 D6 45 52 53 43 48 41 43 48 54 45 4C 54 22 |Y".ERSCHACHTELT"| 00000D70: 2C 30 3B 54 58 54 20 34 35 00 2E 42 59 22 D3 59 |,0;TXT 45..BY".Y| 00000D80: 4D 42 4F 4C 20 46 45 48 4C 54 22 2C 30 3B 54 58 |MBOL FEHLT",0;TX| 00000D90: 54 20 34 36 00 2E 42 59 22 C2 4C 4F 43 4B 20 4F |T 46..BY".LOCK O| 00000DA0: 46 46 45 4E 22 2C 30 3B 54 58 54 20 34 37 00 2E |FFEN",0;TXT 47..| 00000DB0: 42 59 22 C2 41 53 49 53 20 46 45 48 4C 54 22 2C |BY".ASIS FEHLT",| 00000DC0: 30 3B 54 58 54 20 34 38 00 2E 42 59 22 C2 45 46 |0;TXT 48..BY".EF| 00000DD0: 45 48 4C 20 44 4F 50 50 45 4C 54 22 2C 30 3B 54 |EHL DOPPELT",0;T| 00000DE0: 58 54 20 34 39 00 2E 42 59 22 CD 4F 44 45 22 2C |XT 49..BY".ODE",| 00000DF0: 30 3B 54 58 54 20 35 30 00 2E 42 59 22 20 C6 45 |0;TXT 50..BY" .E| 00000E00: 48 4C 45 52 22 2C 30 3B 54 58 54 20 35 31 00 2E |HLER",0;TXT 51..| 00000E10: 42 59 31 33 2C 22 2D 2D 20 22 2C 30 3B 54 58 54 |BY13,"-- ",0;TXT| 00000E20: 20 35 32 00 2E 42 59 31 33 2C 22 2A 2A 20 D0 41 | 52..BY13,"** .A| 00000E30: 53 53 20 22 2C 30 3B 54 58 54 20 35 33 00 2E 42 |SS ",0;TXT 53..B| 00000E40: 59 22 20 2A 2A 22 2C 31 33 2C 30 3B 54 58 54 20 |Y" **",13,0;TXT | 00000E50: 35 34 00 2E 42 59 22 D0 52 4F 54 4F 4B 4F 4C 4C |54..BY".ROTOKOLL| 00000E60: 20 44 52 55 43 4B 45 4E 20 3F 20 22 2C 30 3B 54 | DRUCKEN ? ",0;T| 00000E70: 58 54 35 35 00 2E 42 59 22 D3 59 4D 42 4F 4C 20 |XT55..BY".YMBOL | 00000E80: 5A 55 20 4C 41 4E 47 22 2C 30 3B 54 58 54 35 36 |ZU LANG",0;TXT56| 00000E90: 00 2E 42 59 22 20 49 4E 20 DA 45 49 4C 45 20 22 |..BY" IN .EILE "| 00000EA0: 2C 30 3B 54 58 54 20 35 37 00 2E 42 59 22 C6 45 |,0;TXT 57..BY".E| 00000EB0: 48 4C 45 52 3A 20 20 20 22 2C 30 3B 54 58 54 20 |HLER: ",0;TXT | 00000EC0: 35 38 00 2E 42 59 22 DA 45 49 54 3A 20 20 20 20 |58..BY".EIT: | 00000ED0: 20 22 2C 30 3B 54 58 54 20 35 39 00 2E 42 59 22 | ",0;TXT 59..BY"| 00000EE0: C5 4E 44 2D C1 44 52 2E 3A 20 22 2C 30 3B 54 58 |.ND-.DR.: ",0;TX| 00000EF0: 54 20 36 30 00 2E 42 59 22 DA 55 20 56 49 45 4C |T 60..BY".U VIEL| 00000F00: 45 20 CF 50 45 52 41 4E 44 45 4E 22 2C 30 3B 54 |E .PERANDEN",0;T| 00000F10: 58 54 20 36 31 00 2E 42 59 22 12 C3 4F 4E 54 20 |XT 61..BY"..ONT | 00000F20: C1 42 4F 52 54 20 92 22 2C 30 3B 54 58 54 20 36 |.BORT .",0;TXT 6| 00000F30: 32 00 2E 42 59 22 12 C5 44 49 54 92 22 2C 30 3B |2..BY"..DIT.",0;| 00000F40: 54 58 54 20 36 33 00 20 00 2E 42 59 22 93 11 3E |TXT 63. ..BY"..>| 00000F50: 3E 3E 20 CD 4F 4E 49 54 4F 52 20 3C 3C 3C 22 2C |>> .ONITOR <<<",| 00000F60: 31 33 2C 30 3B 54 58 54 20 36 34 00 2E 42 59 31 |13,0;TXT 64..BY1| 00000F70: 33 2C 22 20 50 43 20 20 20 41 43 20 58 52 20 59 |3," PC AC XR Y| 00000F80: 52 20 53 50 20 4E 56 2D 42 44 49 5A 43 20 43 48 |R SP NV-BDIZC CH| 00000F90: 4C 20 53 52 20 50 50 22 2C 31 33 2C 30 3B 54 58 |L SR PP",13,0;TX| 00000FA0: 54 20 36 35 00 20 00 2E 42 59 22 C2 45 52 45 43 |T 65. ..BY".EREC| 00000FB0: 48 4E 55 4E 47 53 22 2C 30 3B 54 58 54 20 36 36 |HNUNGS",0;TXT 66| 00000FC0: 00 20 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. . .;**********| 00000FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A |*************.;*| 00000FF0: 20 2A 20 20 20 20 20 20 DA 41 48 4C 31 20 C5 49 | * .AHL1 .I| 00001000: 4E 2F C1 55 53 47 41 42 45 20 20 20 20 20 20 20 |N/.USGABE | 00001010: 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A | * *.;********| 00001020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00001040: 20 00 5A 41 48 4C 48 45 58 4F 55 54 3A 4C 44 41 | .ZAHLHEXOUT:LDA| 00001050: 5A 41 48 4C 31 2B 31 3B 5A 41 48 4C 31 20 48 45 |ZAHL1+1;ZAHL1 HE| 00001060: 58 2E 20 41 55 53 47 45 42 45 4E 00 4A 53 52 48 |X. AUSGEBEN.JSRH| 00001070: 45 58 4F 55 54 00 4C 44 41 5A 41 48 4C 31 00 20 |EXOUT.LDAZAHL1. | 00001080: 00 48 45 58 4F 55 54 3A 50 48 41 3B 45 49 4E 20 |.HEXOUT:PHA;EIN | 00001090: C2 59 54 45 20 48 45 58 20 41 55 53 47 45 42 45 |.YTE HEX AUSGEBE| 000010A0: 4E 00 4C 53 52 3B C2 59 54 45 20 2F 20 31 36 00 |N.LSR;.YTE / 16.| 000010B0: 4C 53 52 00 4C 53 52 00 4C 53 52 00 4A 53 52 48 |LSR.LSR.LSR.JSRH| 000010C0: 45 58 3B C8 49 2D CE 49 42 42 4C 45 20 41 55 53 |EX;.I-.IBBLE AUS| 000010D0: 47 45 42 45 4E 00 50 4C 41 00 41 4E 44 23 25 31 |GEBEN.PLA.AND#%1| 000010E0: 31 31 31 3B CC 4F 57 2D CE 49 42 42 4C 45 20 41 |111;.OW-.IBBLE A| 000010F0: 55 53 47 45 42 45 4E 00 20 00 48 45 58 3A 43 4C |USGEBEN. .HEX:CL| 00001100: 43 3B 45 49 4E 20 CE 49 42 42 4C 45 20 48 45 58 |C;EIN .IBBLE HEX| 00001110: 20 41 55 53 47 45 42 45 4E 00 41 44 43 23 27 30 | AUSGEBEN.ADC#'0| 00001120: 00 43 4D 50 23 27 3A 3B 3E 39 3F 00 42 43 43 5A |.CMP#':;>9?.BCCZ| 00001130: 41 00 41 44 43 23 36 3B 54 52 41 4E 53 46 4F 52 |A.ADC#6;TRANSFOR| 00001140: 4D 41 54 49 4F 4E 20 41 55 46 20 27 41 00 5A 41 |MATION AUF 'A.ZA| 00001150: 3A 4A 4D 50 42 53 4F 55 54 00 20 00 5A 41 48 4C |:JMPBSOUT. .ZAHL| 00001160: 44 45 5A 4F 55 54 3A 4A 53 52 50 55 53 43 48 3B |DEZOUT:JSRPUSCH;| 00001170: 5A 41 48 4C 31 20 44 45 5A 49 4D 41 4C 20 41 55 |ZAHL1 DEZIMAL AU| 00001180: 53 47 45 42 45 4E 00 4C 44 58 23 33 3B 5A 41 48 |SGEBEN.LDX#3;ZAH| 00001190: 4C 31 2F 32 20 41 55 46 20 D3 54 41 43 4B 00 52 |L1/2 AUF .TACK.R| 000011A0: 45 54 3A 4C 44 41 5A 41 48 4C 31 2C 58 00 50 48 |ET:LDAZAHL1,X.PH| 000011B0: 41 00 44 45 58 00 42 50 4C 52 45 54 00 4A 53 52 |A.DEX.BPLRET.JSR| 000011C0: 5A 41 48 4C 54 4F 44 45 5A 3B 5A 41 48 4C 2D 3E |ZAHLTODEZ;ZAHL->| 000011D0: D3 54 52 49 4E 47 20 41 55 46 20 D3 54 41 43 4B |.TRING AUF .TACK| 000011E0: 00 41 53 43 4F 55 54 3A 50 4C 41 3B 45 52 5A 45 |.ASCOUT:PLA;ERZE| 000011F0: 55 47 54 45 52 20 D3 54 52 49 4E 47 20 56 4F 4E |UGTER .TRING VON| 00001200: 20 D3 54 41 43 4B 00 4A 53 52 42 53 4F 55 54 3B | .TACK.JSRBSOUT;| 00001210: 41 55 53 47 45 42 45 4E 00 44 45 58 00 42 50 4C |AUSGEBEN.DEX.BPL| 00001220: 41 53 43 4F 55 54 00 4C 44 58 23 30 00 52 48 3A |ASCOUT.LDX#0.RH:| 00001230: 50 4C 41 3B 5A 41 48 4C 31 2F 32 20 56 4F 4D 20 |PLA;ZAHL1/2 VOM | 00001240: D3 54 41 43 4B 00 53 54 41 5A 41 48 4C 31 2C 58 |.TACK.STAZAHL1,X| 00001250: 00 49 4E 58 00 43 50 58 23 34 00 42 4E 45 52 48 |.INX.CPX#4.BNERH| 00001260: 00 4A 4D 50 50 55 4C 4C 00 20 00 5A 41 48 4C 54 |.JMPPULL. .ZAHLT| 00001270: 4F 44 45 5A 3A 50 4C 41 3B D2 55 45 43 4B 53 50 |ODEZ:PLA;.UECKSP| 00001280: 52 55 4E 47 20 4D 45 52 4B 45 4E 00 53 54 41 42 |RUNG MERKEN.STAB| 00001290: 55 46 46 45 52 2B 38 36 00 50 4C 41 00 53 54 41 |UFFER+86.PLA.STA| 000012A0: 42 55 46 46 45 52 2B 38 37 00 4C 44 58 23 30 3B |BUFFER+87.LDX#0;| 000012B0: 5A 41 48 4C 32 20 3D 20 31 30 00 53 54 58 5A 41 |ZAHL2 = 10.STXZA| 000012C0: 48 4C 32 2B 31 00 4C 44 41 23 31 30 00 53 54 41 |HL2+1.LDA#10.STA| 000012D0: 5A 41 48 4C 32 00 41 53 43 49 49 3A 4A 53 52 4D |ZAHL2.ASCII:JSRM| 000012E0: 4F 44 3B 5A 41 48 4C 33 20 3A 3D 20 5A 41 48 4C |OD;ZAHL3 := ZAHL| 000012F0: 31 20 4D 4F 44 20 5A 41 48 4C 32 00 43 4C 43 3B |1 MOD ZAHL2.CLC;| 00001300: 5A 41 48 4C 33 20 41 4C 53 20 DA 45 49 43 48 45 |ZAHL3 ALS .EICHE| 00001310: 4E 20 41 55 46 20 D3 54 41 43 4B 00 4C 44 41 5A |N AUF .TACK.LDAZ| 00001320: 41 48 4C 33 00 41 44 43 23 27 30 00 50 48 41 00 |AHL3.ADC#'0.PHA.| 00001330: 49 4E 58 00 4A 53 52 44 49 56 3B 5A 41 48 4C 33 |INX.JSRDIV;ZAHL3| 00001340: 20 3D 20 5A 41 48 4C 31 20 44 49 56 20 5A 41 48 | = ZAHL1 DIV ZAH| 00001350: 4C 32 00 4C 44 41 5A 41 48 4C 33 2B 31 3B 5A 41 |L2.LDAZAHL3+1;ZA| 00001360: 48 4C 31 20 3D 20 5A 41 48 4C 33 00 53 54 41 5A |HL1 = ZAHL3.STAZ| 00001370: 41 48 4C 31 2B 31 00 4C 44 41 5A 41 48 4C 33 00 |AHL1+1.LDAZAHL3.| 00001380: 53 54 41 5A 41 48 4C 31 3B 5A 41 48 4C 31 3D 30 |STAZAHL1;ZAHL1=0| 00001390: 20 3F 00 4F 52 41 5A 41 48 4C 31 2B 31 00 42 4E | ?.ORAZAHL1+1.BN| 000013A0: 45 41 53 43 49 49 3B CE 45 49 4E 20 2D 20 57 45 |EASCII;.EIN - WE| 000013B0: 49 54 45 52 00 44 45 58 00 4C 44 41 42 55 46 46 |ITER.DEX.LDABUFF| 000013C0: 45 52 2B 38 37 00 50 48 41 00 4C 44 41 42 55 46 |ER+87.PHA.LDABUF| 000013D0: 46 45 52 2B 38 36 00 50 48 41 00 52 54 53 00 20 |FER+86.PHA.RTS. | 000013E0: 00 5A 41 48 4C 42 49 4E 4F 55 54 3A 4C 44 58 23 |.ZAHLBINOUT:LDX#| 000013F0: 31 36 3B DA 41 48 4C 31 20 42 49 4E 2E 20 41 55 |16;.AHL1 BIN. AU| 00001400: 53 47 45 42 45 4E 00 52 4F 5A 41 3A 52 4F 4C 5A |SGEBEN.ROZA:ROLZ| 00001410: 41 48 4C 31 3B D3 54 45 4C 4C 45 20 2D 3E 20 C3 |AHL1;.TELLE -> .| 00001420: 41 52 52 59 00 52 4F 4C 5A 41 48 4C 31 2B 31 00 |ARRY.ROLZAHL1+1.| 00001430: 50 48 50 00 4C 44 41 23 30 3B C3 41 52 52 59 20 |PHP.LDA#0;.ARRY | 00001440: 2B 20 27 30 00 41 44 43 23 27 30 00 4A 53 52 42 |+ '0.ADC#'0.JSRB| 00001450: 53 4F 55 54 3B 41 55 53 47 45 42 45 4E 00 50 4C |SOUT;AUSGEBEN.PL| 00001460: 50 00 44 45 58 00 42 4E 45 52 4F 5A 41 00 52 4F |P.DEX.BNEROZA.RO| 00001470: 4C 5A 41 48 4C 31 3B DA 41 48 4C 31 20 4B 4F 52 |LZAHL1;.AHL1 KOR| 00001480: 52 49 47 49 45 52 45 4E 00 52 4F 4C 5A 41 48 4C |RIGIEREN.ROLZAHL| 00001490: 31 2B 31 00 52 54 53 00 20 00 5A 41 48 4C 4F 43 |1+1.RTS. .ZAHLOC| 000014A0: 54 4F 55 54 3A 4C 44 41 5A 41 48 4C 31 3B 5A 41 |TOUT:LDAZAHL1;ZA| 000014B0: 48 4C 31 20 4F 43 54 2E 20 41 55 53 47 45 42 45 |HL1 OCT. AUSGEBE| 000014C0: 4E 00 50 48 41 3B 5A 41 48 4C 31 20 52 45 54 54 |N.PHA;ZAHL1 RETT| 000014D0: 45 4E 00 4C 44 41 5A 41 48 4C 31 2B 31 00 50 48 |EN.LDAZAHL1+1.PH| 000014E0: 41 00 4C 44 58 23 30 00 4F 43 54 4F 55 54 3A 4C |A.LDX#0.OCTOUT:L| 000014F0: 44 41 5A 41 48 4C 31 3B 33 20 C2 49 54 20 2D 3E |DAZAHL1;3 .IT ->| 00001500: 20 D3 54 45 4C 4C 45 00 41 4E 44 23 25 31 31 31 | .TELLE.AND#%111| 00001510: 00 43 4C 43 00 41 44 43 23 27 30 00 50 48 41 3B |.CLC.ADC#'0.PHA;| 00001520: 41 4C 53 20 DA 45 49 43 48 45 4E 20 41 55 46 20 |ALS .EICHEN AUF | 00001530: D3 54 41 43 4B 00 49 4E 58 3B DA 45 49 43 48 45 |.TACK.INX;.EICHE| 00001540: 4E 5A 41 45 48 4C 45 52 2B 31 00 4A 53 52 52 4F |NZAEHLER+1.JSRRO| 00001550: 52 5A 41 3B 5A 41 48 4C 31 20 2F 20 38 00 4A 53 |RZA;ZAHL1 / 8.JS| 00001560: 52 52 4F 52 5A 41 00 4A 53 52 52 4F 52 5A 41 00 |RRORZA.JSRRORZA.| 00001570: 4C 44 41 5A 41 48 4C 31 3B 5A 41 48 4C 31 3D 30 |LDAZAHL1;ZAHL1=0| 00001580: 20 3F 00 4F 52 41 5A 41 48 4C 31 2B 31 00 42 4E | ?.ORAZAHL1+1.BN| 00001590: 45 4F 43 54 4F 55 54 3B 4E 45 49 4E 00 4F 4F 3A |EOCTOUT;NEIN.OO:| 000015A0: 50 4C 41 3B D3 54 52 49 4E 47 20 56 4F 4D 20 D3 |PLA;.TRING VOM .| 000015B0: 54 41 43 4B 00 4A 53 52 42 53 4F 55 54 00 44 45 |TACK.JSRBSOUT.DE| 000015C0: 58 00 42 4E 45 4F 4F 00 50 4C 41 3B 5A 41 48 4C |X.BNEOO.PLA;ZAHL| 000015D0: 31 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 53 |1 ZURUECKHOLEN.S| 000015E0: 54 41 5A 41 48 4C 31 2B 31 00 50 4C 41 00 53 54 |TAZAHL1+1.PLA.ST| 000015F0: 41 5A 41 48 4C 31 00 52 54 53 00 52 4F 52 5A 41 |AZAHL1.RTS.RORZA| 00001600: 3A 4C 53 52 5A 41 48 4C 31 2B 31 3B 5A 41 48 4C |:LSRZAHL1+1;ZAHL| 00001610: 31 20 44 49 56 20 32 00 52 4F 52 5A 41 48 4C 31 |1 DIV 2.RORZAHL1| 00001620: 00 52 54 53 00 20 00 5A 41 48 4C 49 4E 3A 4C 44 |.RTS. .ZAHLIN:LD| 00001630: 41 23 30 3B 5A 41 48 4C 31 20 45 49 4E 4C 45 53 |A#0;ZAHL1 EINLES| 00001640: 45 4E 00 53 54 41 5A 41 48 4C 31 3B 5A 41 48 4C |EN.STAZAHL1;ZAHL| 00001650: 31 3D 30 00 53 54 41 5A 41 48 4C 31 2B 31 00 5A |1=0.STAZAHL1+1.Z| 00001660: 49 4E 3A 4A 53 52 42 41 53 49 4E 3B 45 52 53 54 |IN:JSRBASIN;ERST| 00001670: 45 53 20 DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E |ES .EICHEN HOLEN| 00001680: 00 43 4D 50 23 33 32 00 42 45 51 5A 49 4E 00 43 |.CMP#32.BEQZIN.C| 00001690: 4D 50 23 27 24 3B C8 45 58 5A 41 48 4C 20 3F 00 |MP#'$;.EXZAHL ?.| 000016A0: 42 45 51 48 45 58 49 4E 00 43 4D 50 23 27 25 3B |BEQHEXIN.CMP#'%;| 000016B0: C2 49 4E 5A 41 48 4C 20 3F 00 42 45 51 42 49 4E |.INZAHL ?.BEQBIN| 000016C0: 49 4E 00 43 4D 50 23 27 26 3B CF 43 54 5A 41 48 |IN.CMP#'&;.CTZAH| 000016D0: 4C 20 3F 00 42 45 51 4F 4B 54 49 4E 00 43 4D 50 |L ?.BEQOKTIN.CMP| 000016E0: 23 33 39 3B DA 45 49 43 48 45 4E 20 3F 20 28 5A |#39;.EICHEN ? (Z| 000016F0: 2E 42 2E 27 59 29 00 42 45 51 43 48 41 52 49 4E |.B.'Y).BEQCHARIN| 00001700: 00 20 00 44 45 5A 49 4E 3A 53 45 43 3B C4 45 5A |. .DEZIN:SEC;.EZ| 00001710: 49 4D 41 4C 20 45 49 4E 4C 45 53 45 4E 00 53 42 |IMAL EINLESEN.SB| 00001720: 43 23 27 30 00 42 4D 49 52 54 5A 41 48 4C 3B 49 |C#'0.BMIRTZAHL;I| 00001730: 4C 4C 45 47 41 4C 45 53 20 DA 45 49 43 48 45 4E |LLEGALES .EICHEN| 00001740: 00 43 4D 50 23 31 30 00 42 43 53 52 54 5A 41 48 |.CMP#10.BCSRTZAH| 00001750: 4C 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 50 |L;ILL. .EICHEN.P| 00001760: 48 41 00 4A 53 52 5A 4D 41 4C 31 30 3B 5A 41 48 |HA.JSRZMAL10;ZAH| 00001770: 4C 31 20 2A 20 31 30 00 50 4C 41 00 43 4C 43 3B |L1 * 10.PLA.CLC;| 00001780: 5A 41 48 4C 31 20 2B 20 DA 49 46 46 45 52 00 41 |ZAHL1 + .IFFER.A| 00001790: 44 43 5A 41 48 4C 31 00 53 54 41 5A 41 48 4C 31 |DCZAHL1.STAZAHL1| 000017A0: 00 42 43 43 4E 4F 43 00 49 4E 43 5A 41 48 4C 31 |.BCCNOC.INCZAHL1| 000017B0: 2B 31 00 4E 4F 43 3A 4A 53 52 42 41 53 49 4E 3B |+1.NOC:JSRBASIN;| 000017C0: CE 45 58 54 20 DA 45 49 43 48 45 4E 00 4A 4D 50 |.EXT .EICHEN.JMP| 000017D0: 44 45 5A 49 4E 00 52 54 5A 41 48 4C 3A 52 54 53 |DEZIN.RTZAHL:RTS| 000017E0: 00 20 00 42 49 4E 49 4E 3A 4A 53 52 42 41 53 49 |. .BININ:JSRBASI| 000017F0: 4E 3B C2 49 4E 2E 20 45 49 4E 4C 45 53 45 4E 00 |N;.IN. EINLESEN.| 00001800: 53 45 43 00 53 42 43 23 27 30 00 42 4D 49 52 54 |SEC.SBC#'0.BMIRT| 00001810: 5A 41 48 4C 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 |ZAHL;ILL. .EICHE| 00001820: 4E 00 43 4D 50 23 32 00 42 43 53 52 54 5A 41 48 |N.CMP#2.BCSRTZAH| 00001830: 4C 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 4C |L;ILL. .EICHEN.L| 00001840: 53 52 3B DA 49 46 46 45 52 20 2D 3E 20 C3 41 52 |SR;.IFFER -> .AR| 00001850: 52 59 00 52 4F 4C 5A 41 48 4C 31 3B C3 41 52 52 |RY.ROLZAHL1;.ARR| 00001860: 59 20 2D 3E 20 C2 49 54 20 49 4E 20 DA 41 48 4C |Y -> .IT IN .AHL| 00001870: 31 00 52 4F 4C 5A 41 48 4C 31 2B 31 00 4A 4D 50 |1.ROLZAHL1+1.JMP| 00001880: 42 49 4E 49 4E 00 20 00 48 45 58 49 4E 3A 4A 53 |BININ. .HEXIN:JS| 00001890: 52 42 41 53 49 4E 3B C8 45 58 2E 20 45 49 4E 4C |RBASIN;.EX. EINL| 000018A0: 45 53 45 4E 00 53 45 43 00 53 42 43 23 27 30 00 |ESEN.SEC.SBC#'0.| 000018B0: 42 4D 49 52 54 5A 41 48 4C 3B 49 4C 4C 2E 20 DA |BMIRTZAHL;ILL. .| 000018C0: 45 49 43 48 45 4E 00 43 4D 50 23 31 30 00 42 43 |EICHEN.CMP#10.BC| 000018D0: 43 4F 4B 5A 41 48 4C 00 53 42 43 23 37 00 43 4D |COKZAHL.SBC#7.CM| 000018E0: 50 23 31 36 00 42 43 53 52 54 5A 41 48 4C 3B 49 |P#16.BCSRTZAHL;I| 000018F0: 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 43 4D 50 23 |LL. .EICHEN.CMP#| 00001900: 31 30 00 42 43 43 52 54 5A 41 48 4C 3B 49 4C 4C |10.BCCRTZAHL;ILL| 00001910: 2E 20 DA 45 49 43 48 45 4E 00 4F 4B 5A 41 48 4C |. .EICHEN.OKZAHL| 00001920: 3A 4A 53 52 5A 4D 41 4C 34 3B 5A 41 48 4C 31 20 |:JSRZMAL4;ZAHL1 | 00001930: 2A 20 31 36 00 4A 53 52 5A 4D 41 4C 34 00 43 4C |* 16.JSRZMAL4.CL| 00001940: 43 3B 5A 41 48 4C 31 20 2B 20 DA 49 46 46 45 52 |C;ZAHL1 + .IFFER| 00001950: 00 41 44 43 5A 41 48 4C 31 00 53 54 41 5A 41 48 |.ADCZAHL1.STAZAH| 00001960: 4C 31 00 4A 4D 50 48 45 58 49 4E 00 20 00 4F 4B |L1.JMPHEXIN. .OK| 00001970: 54 49 4E 3A 4A 53 52 42 41 53 49 4E 3B CF 43 54 |TIN:JSRBASIN;.CT| 00001980: 2E 20 45 49 4E 4C 45 53 45 4E 00 53 45 43 00 53 |. EINLESEN.SEC.S| 00001990: 42 43 23 27 30 00 42 4D 49 52 54 5A 41 48 4C 3B |BC#'0.BMIRTZAHL;| 000019A0: 49 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 43 4D 50 |ILL. .EICHEN.CMP| 000019B0: 23 38 00 42 43 53 52 54 5A 41 48 4C 3B 49 4C 4C |#8.BCSRTZAHL;ILL| 000019C0: 2E 20 DA 45 49 43 48 45 4E 00 4A 53 52 5A 4D 41 |. .EICHEN.JSRZMA| 000019D0: 4C 34 3B 5A 41 48 4C 31 20 2A 20 38 00 41 53 4C |L4;ZAHL1 * 8.ASL| 000019E0: 5A 41 48 4C 31 00 52 4F 4C 5A 41 48 4C 31 2B 31 |ZAHL1.ROLZAHL1+1| 000019F0: 00 43 4C 43 3B 5A 41 48 4C 31 20 2B 20 DA 49 46 |.CLC;ZAHL1 + .IF| 00001A00: 46 45 52 00 41 44 43 5A 41 48 4C 31 00 53 54 41 |FER.ADCZAHL1.STA| 00001A10: 5A 41 48 4C 31 00 4A 4D 50 4F 4B 54 49 4E 00 20 |ZAHL1.JMPOKTIN. | 00001A20: 00 43 48 41 52 49 4E 3A 4A 53 52 42 41 53 49 4E |.CHARIN:JSRBASIN| 00001A30: 3B 5A 41 48 4C 31 20 3D 20 DA 45 49 43 48 45 4E |;ZAHL1 = .EICHEN| 00001A40: 00 53 54 41 5A 41 48 4C 31 00 4A 4D 50 42 41 53 |.STAZAHL1.JMPBAS| 00001A50: 49 4E 00 20 00 5A 4D 41 4C 34 3A 41 53 4C 5A 41 |IN. .ZMAL4:ASLZA| 00001A60: 48 4C 31 3B 5A 41 48 4C 31 20 2A 20 34 00 52 4F |HL1;ZAHL1 * 4.RO| 00001A70: 4C 5A 41 48 4C 31 2B 31 00 41 53 4C 5A 41 48 4C |LZAHL1+1.ASLZAHL| 00001A80: 31 00 52 4F 4C 5A 41 48 4C 31 2B 31 00 52 54 53 |1.ROLZAHL1+1.RTS| 00001A90: 00 20 00 5A 4D 41 4C 31 30 3A 41 53 4C 5A 41 48 |. .ZMAL10:ASLZAH| 00001AA0: 4C 31 3B 5A 41 48 4C 31 20 2A 20 31 30 00 52 4F |L1;ZAHL1 * 10.RO| 00001AB0: 4C 5A 41 48 4C 31 2B 31 00 4C 44 41 5A 41 48 4C |LZAHL1+1.LDAZAHL| 00001AC0: 31 2B 31 3B 5A 41 48 4C 31 20 2A 20 32 20 41 55 |1+1;ZAHL1 * 2 AU| 00001AD0: 46 20 D3 54 41 43 4B 00 50 48 41 00 4C 44 41 5A |F .TACK.PHA.LDAZ| 00001AE0: 41 48 4C 31 00 50 48 41 00 4A 53 52 5A 4D 41 4C |AHL1.PHA.JSRZMAL| 00001AF0: 34 3B 5A 41 48 4C 31 3D 5A 41 48 4C 31 20 2A 20 |4;ZAHL1=ZAHL1 * | 00001B00: 38 00 43 4C 43 00 50 4C 41 00 41 44 43 5A 41 48 |8.CLC.PLA.ADCZAH| 00001B10: 4C 31 3B 5A 41 48 4C 31 3D 5A 41 48 4C 31 2A 38 |L1;ZAHL1=ZAHL1*8| 00001B20: 2B 5A 41 48 4C 31 2A 32 00 53 54 41 5A 41 48 4C |+ZAHL1*2.STAZAHL| 00001B30: 31 00 50 4C 41 00 41 44 43 5A 41 48 4C 31 2B 31 |1.PLA.ADCZAHL1+1| 00001B40: 00 53 54 41 5A 41 48 4C 31 2B 31 00 52 54 53 00 |.STAZAHL1+1.RTS.| 00001B50: 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | .;*************| 00001B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 |**********.;* * | 00001B80: 20 20 20 20 20 20 20 C1 52 49 54 48 4D 45 54 49 | .RITHMETI| 00001B90: 4B 52 4F 55 54 49 4E 45 4E 20 20 20 20 20 20 20 |KROUTINEN | 00001BA0: 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |* *.;***********| 00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 3B |************. .;| 00001BD0: 5A 41 48 4C 33 3A 3D 5A 41 48 4C 31 2A 5A 41 48 |ZAHL3:=ZAHL1*ZAH| 00001BE0: 4C 32 00 4D 55 4C 54 3A 4A 53 52 50 55 53 43 48 |L2.MULT:JSRPUSCH| 00001BF0: 00 4A 53 52 5A 41 48 4C 54 4F 4D 45 4D 3B 5A 41 |.JSRZAHLTOMEM;ZA| 00001C00: 48 4C 31 2F 32 2D 3E 4D 45 4D 31 00 4C 44 41 23 |HL1/2->MEM1.LDA#| 00001C10: 30 3B 5A 41 48 4C 33 3D 30 00 53 54 41 5A 41 48 |0;ZAHL3=0.STAZAH| 00001C20: 4C 33 00 53 54 41 5A 41 48 4C 33 2B 31 00 4C 44 |L3.STAZAHL3+1.LD| 00001C30: 58 23 31 36 3B 31 36 2D C2 49 54 00 4D 55 4C 4F |X#16;16-.IT.MULO| 00001C40: 3A 4C 53 52 4D 45 4D 33 2B 31 3B 32 2E DA 41 48 |:LSRMEM3+1;2..AH| 00001C50: 4C 20 44 49 56 20 32 00 52 4F 52 4D 45 4D 33 00 |L DIV 2.RORMEM3.| 00001C60: 42 43 43 4E 4F 41 44 00 43 4C 43 3B C2 49 54 20 |BCCNOAD.CLC;.IT | 00001C70: 47 45 53 45 54 5A 54 00 4C 44 41 5A 41 48 4C 33 |GESETZT.LDAZAHL3| 00001C80: 3B 5A 41 48 4C 33 20 3D 20 5A 41 48 4C 33 20 2B |;ZAHL3 = ZAHL3 +| 00001C90: 20 31 2E DA 41 48 4C 00 41 44 43 4D 45 4D 31 00 | 1..AHL.ADCMEM1.| 00001CA0: 53 54 41 5A 41 48 4C 33 00 4C 44 41 5A 41 48 4C |STAZAHL3.LDAZAHL| 00001CB0: 33 2B 31 00 41 44 43 4D 45 4D 31 2B 31 00 53 54 |3+1.ADCMEM1+1.ST| 00001CC0: 41 5A 41 48 4C 33 2B 31 00 4E 4F 41 44 3A 41 53 |AZAHL3+1.NOAD:AS| 00001CD0: 4C 4D 45 4D 31 3B 31 2E DA 41 48 4C 20 2A 20 32 |LMEM1;1..AHL * 2| 00001CE0: 00 52 4F 4C 4D 45 4D 31 2B 31 00 44 45 58 3B 57 |.ROLMEM1+1.DEX;W| 00001CF0: 45 49 54 45 52 00 42 4E 45 4D 55 4C 4F 00 4A 4D |EITER.BNEMULO.JM| 00001D00: 50 50 55 4C 4C 00 20 00 3B 5A 41 48 4C 33 3A 3D |PPULL. .;ZAHL3:=| 00001D10: 5A 41 48 4C 31 20 44 49 56 20 5A 41 48 4C 32 20 |ZAHL1 DIV ZAHL2 | 00001D20: 28 44 49 56 3D 47 41 4E 5A 5A 41 48 4C 49 47 45 |(DIV=GANZZAHLIGE| 00001D30: 20 C4 49 56 49 53 49 4F 4E 29 00 44 49 56 3A 4A | .IVISION).DIV:J| 00001D40: 53 52 50 55 53 43 48 00 4A 53 52 5A 41 48 4C 54 |SRPUSCH.JSRZAHLT| 00001D50: 4F 4D 45 4D 3B 5A 41 48 4C 31 2F 32 2D 3E 4D 45 |OMEM;ZAHL1/2->ME| 00001D60: 4D 31 00 4A 53 52 44 49 56 49 44 45 3B C4 49 56 |M1.JSRDIVIDE;.IV| 00001D70: 49 44 49 45 52 45 4E 00 4A 4D 50 50 55 4C 4C 00 |IDIEREN.JMPPULL.| 00001D80: 20 00 3B 5A 41 48 4C 33 3A 3D 5A 41 48 4C 31 20 | .;ZAHL3:=ZAHL1 | 00001D90: 4D 4F 44 20 5A 41 48 4C 32 20 28 4D 4F 44 3D C4 |MOD ZAHL2 (MOD=.| 00001DA0: 49 56 49 53 49 4F 4E 53 52 45 53 54 29 00 4D 4F |IVISIONSREST).MO| 00001DB0: 44 3A 4A 53 52 50 55 53 43 48 00 4A 53 52 5A 41 |D:JSRPUSCH.JSRZA| 00001DC0: 48 4C 54 4F 4D 45 4D 3B 5A 41 48 4C 31 2F 32 2D |HLTOMEM;ZAHL1/2-| 00001DD0: 3E 4D 45 4D 31 00 4A 53 52 44 49 56 49 44 45 3B |>MEM1.JSRDIVIDE;| 00001DE0: C4 49 56 49 44 49 45 52 45 4E 00 4C 44 58 23 31 |.IVIDIEREN.LDX#1| 00001DF0: 3B D2 45 53 54 2D 3E 5A 41 48 4C 33 00 4D 4F 44 |;.EST->ZAHL3.MOD| 00001E00: 4C 3A 4C 44 41 4D 45 4D 31 2C 58 00 53 54 41 5A |L:LDAMEM1,X.STAZ| 00001E10: 41 48 4C 33 2C 58 00 44 45 58 00 42 50 4C 4D 4F |AHL3,X.DEX.BPLMO| 00001E20: 44 4C 00 4A 4D 50 50 55 4C 4C 00 20 00 3B 2A 2A |DL.JMPPULL. .;**| 00001E30: 20 20 20 44 49 56 49 44 45 20 D5 4E 54 45 52 50 | DIVIDE .NTERP| 00001E40: 52 4F 47 52 41 4D 4D 20 44 49 56 2F 4D 4F 44 20 |ROGRAMM DIV/MOD | 00001E50: 20 2A 2A 00 44 49 56 49 44 45 3A 4C 44 58 23 31 | **.DIVIDE:LDX#1| 00001E60: 3B C4 49 56 49 44 49 45 52 45 4E 00 4C 44 41 23 |;.IVIDIEREN.LDA#| 00001E70: 30 3B 5A 41 48 4C 33 3D 30 00 53 54 41 5A 41 48 |0;ZAHL3=0.STAZAH| 00001E80: 4C 33 00 53 54 41 5A 41 48 4C 33 2B 31 00 4C 31 |L3.STAZAHL3+1.L1| 00001E90: 3A 4C 44 41 4D 45 4D 33 2B 31 3B 32 2E DA 41 48 |:LDAMEM3+1;2..AH| 00001EA0: 4C 20 4C 49 4E 4B 53 42 55 45 4E 44 49 47 20 4D |L LINKSBUENDIG M| 00001EB0: 41 43 48 45 4E 00 42 4D 49 4C 32 00 41 53 4C 4D |ACHEN.BMIL2.ASLM| 00001EC0: 45 4D 33 00 52 4F 4C 4D 45 4D 33 2B 31 00 49 4E |EM3.ROLMEM3+1.IN| 00001ED0: 58 3B C4 49 56 49 53 49 4F 4E 53 5A 41 45 48 4C |X;.IVISIONSZAEHL| 00001EE0: 45 52 20 2B 20 31 00 42 4E 45 4C 31 3B 57 45 49 |ER + 1.BNEL1;WEI| 00001EF0: 54 45 52 00 4C 32 3A 53 45 43 3B 31 2E DA 41 48 |TER.L2:SEC;1..AH| 00001F00: 4C 31 20 2D 20 32 2E DA 41 48 4C 00 4C 44 41 4D |L1 - 2..AHL.LDAM| 00001F10: 45 4D 31 00 53 42 43 4D 45 4D 33 00 53 54 41 4D |EM1.SBCMEM3.STAM| 00001F20: 45 4D 31 00 4C 44 41 4D 45 4D 31 2B 31 00 53 42 |EM1.LDAMEM1+1.SB| 00001F30: 43 4D 45 4D 33 2B 31 00 53 54 41 4D 45 4D 31 2B |CMEM3+1.STAMEM1+| 00001F40: 31 00 42 43 53 4C 33 3B C5 52 47 45 42 4E 49 53 |1.BCSL3;.RGEBNIS| 00001F50: 20 50 4F 53 49 54 49 56 00 4C 44 41 4D 45 4D 31 | POSITIV.LDAMEM1| 00001F60: 3B 31 2E DA 41 48 4C 20 2B 20 32 2E DA 41 48 4C |;1..AHL + 2..AHL| 00001F70: 00 41 44 43 4D 45 4D 33 00 53 54 41 4D 45 4D 31 |.ADCMEM3.STAMEM1| 00001F80: 00 4C 44 41 4D 45 4D 31 2B 31 00 41 44 43 4D 45 |.LDAMEM1+1.ADCME| 00001F90: 4D 33 2B 31 00 53 54 41 4D 45 4D 31 2B 31 00 43 |M3+1.STAMEM1+1.C| 00001FA0: 4C 43 00 4C 33 3A 52 4F 4C 5A 41 48 4C 33 3B 5A |LC.L3:ROLZAHL3;Z| 00001FB0: 41 48 4C 33 20 2A 20 32 00 52 4F 4C 5A 41 48 4C |AHL3 * 2.ROLZAHL| 00001FC0: 33 2B 31 00 44 45 58 3B C4 49 56 49 53 49 4F 4E |3+1.DEX;.IVISION| 00001FD0: 5A 41 45 48 4C 45 52 20 2D 31 00 42 4E 45 2A 2B |ZAEHLER -1.BNE*+| 00001FE0: 33 00 52 54 53 00 52 4F 52 4D 45 4D 33 2B 31 3B |3.RTS.RORMEM3+1;| 00001FF0: 32 2E DA 41 48 4C 20 44 49 56 20 32 00 52 4F 52 |2..AHL DIV 2.ROR| 00002000: 4D 45 4D 33 00 4A 4D 50 4C 32 3B 57 45 49 54 45 |MEM3.JMPL2;WEITE| 00002010: 52 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |R. .;***********| 00002020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 |************.;* | 00002040: 2A 20 20 20 20 20 20 20 20 20 20 20 D2 C1 CD 2D |* ...-| 00002050: D2 4F 55 54 49 4E 45 4E 20 20 20 20 20 20 20 20 |.OUTINEN | 00002060: 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;*********| 00002070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 |**************. | 00002090: 00 3B C4 49 45 20 D2 41 4D 2D D2 4F 55 54 49 4E |.;.IE .AM-.OUTIN| 000020A0: 45 4E 20 44 49 45 4E 45 4E 20 44 45 4E 20 DA 55 |EN DIENEN DEN .U| 000020B0: 47 52 49 46 46 20 41 55 46 20 44 45 4E 20 47 45 |GRIFF AUF DEN GE| 000020C0: 53 41 4D 54 45 4E 20 D3 50 45 49 43 48 45 52 00 |SAMTEN .PEICHER.| 000020D0: 3B 49 4E 20 44 45 52 20 CD 4F 44 55 4C 56 45 52 |;IN DER .ODULVER| 000020E0: 53 49 4F 4E 2E 20 C4 41 20 42 45 49 20 44 45 4D |SION. .A BEI DEM| 000020F0: 20 DA 55 47 49 46 46 20 41 55 46 20 44 49 45 53 | .UGIFF AUF DIES| 00002100: 45 4E 20 D3 50 45 49 43 48 45 52 20 44 41 53 00 |EN .PEICHER DAS.| 00002110: 3B CD 4F 44 55 4C 20 41 42 47 45 53 43 48 41 4C |;.ODUL ABGESCHAL| 00002120: 54 45 54 20 57 49 52 44 2C 20 4D 55 45 53 53 45 |TET WIRD, MUESSE| 00002130: 4E 20 44 49 45 20 DA 55 47 52 49 46 46 53 52 4F |N DIE .UGRIFFSRO| 00002140: 55 54 49 4E 45 4E 20 49 4E 20 44 41 53 00 3B D2 |UTINEN IN DAS.;.| 00002150: 41 4D 20 41 55 53 47 45 4C 41 47 45 52 54 20 57 |AM AUSGELAGERT W| 00002160: 45 52 44 45 4E 2E 00 20 00 50 55 54 52 41 4D 52 |ERDEN.. .PUTRAMR| 00002170: 4F 3A 4C 44 59 23 52 41 4D 52 4F 45 4E 44 2D 52 |O:LDY#RAMROEND-R| 00002180: 41 4D 52 4F 41 4E 46 2D 31 3B 52 4F 55 54 49 4E |AMROANF-1;ROUTIN| 00002190: 45 4E 00 50 55 54 3A 4C 44 41 52 41 4D 52 4F 41 |EN.PUT:LDARAMROA| 000021A0: 4E 46 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 54 |NF,Y;KOPIEREN.ST| 000021B0: 41 52 4F 55 54 49 4E 45 4E 2C 59 00 44 45 59 00 |AROUTINEN,Y.DEY.| 000021C0: 42 50 4C 50 55 54 00 52 54 53 00 20 00 50 55 54 |BPLPUT.RTS. .PUT| 000021D0: 43 4F 50 59 3A 4C 44 59 23 43 4F 45 4E 44 2D 43 |COPY:LDY#COEND-C| 000021E0: 4F 41 4E 46 2D 31 3B C3 4F 50 59 52 4F 55 54 49 |OANF-1;.OPYROUTI| 000021F0: 4E 45 00 50 55 54 32 3A 4C 44 41 43 4F 41 4E 46 |NE.PUT2:LDACOANF| 00002200: 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 54 41 52 |,Y;KOPIEREN.STAR| 00002210: 4F 55 54 49 4E 45 4E 2C 59 00 44 45 59 00 42 50 |OUTINEN,Y.DEY.BP| 00002220: 4C 50 55 54 32 00 52 54 53 00 20 00 50 55 54 52 |LPUT2.RTS. .PUTR| 00002230: 55 4E 52 4F 3A 4C 44 59 23 52 55 4E 45 4E 44 2D |UNRO:LDY#RUNEND-| 00002240: 52 55 4E 41 4E 46 2D 31 3B D2 55 4E 2D D2 4F 55 |RUNANF-1;.UN-.OU| 00002250: 54 49 4E 45 00 50 55 54 33 3A 4C 44 41 52 55 4E |TINE.PUT3:LDARUN| 00002260: 41 4E 46 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 |ANF,Y;KOPIEREN.S| 00002270: 54 41 52 4F 55 54 49 4E 45 4E 2C 59 00 44 45 59 |TAROUTINEN,Y.DEY| 00002280: 00 42 50 4C 50 55 54 33 00 52 54 53 00 20 00 50 |.BPLPUT3.RTS. .P| 00002290: 55 54 52 4F 32 3A 4C 44 59 23 4C 42 4C 52 4F 45 |UTRO2:LDY#LBLROE| 000022A0: 4E 44 2D 4C 42 4C 52 4F 41 4E 46 2D 31 3B C1 53 |ND-LBLROANF-1;.S| 000022B0: 53 45 4D 42 4C 45 52 2D D2 4F 55 54 49 4E 45 4E |SEMBLER-.OUTINEN| 000022C0: 00 50 55 54 34 3A 4C 44 41 4C 42 4C 52 4F 41 4E |.PUT4:LDALBLROAN| 000022D0: 46 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 54 41 |F,Y;KOPIEREN.STA| 000022E0: 52 4F 55 54 49 4E 45 32 2C 59 00 44 45 59 00 42 |ROUTINE2,Y.DEY.B| 000022F0: 50 4C 50 55 54 34 00 52 54 53 00 20 00 50 55 5A |PLPUT4.RTS. .PUZ| 00002300: 41 44 52 3A 4C 44 59 23 5A 41 44 52 45 4E 44 2D |ADR:LDY#ZADREND-| 00002310: 5A 41 44 52 41 4E 46 2D 31 3B C5 44 49 54 4F 52 |ZADRANF-1;.DITOR| 00002320: 2D D2 4F 55 54 49 4E 45 00 50 55 54 35 3A 4C 44 |-.OUTINE.PUT5:LD| 00002330: 41 5A 41 44 52 41 4E 46 2C 59 3B 4B 4F 50 49 45 |AZADRANF,Y;KOPIE| 00002340: 52 45 4E 00 53 54 41 52 4F 55 54 49 4E 45 4E 2C |REN.STAROUTINEN,| 00002350: 59 00 44 45 59 00 42 50 4C 50 55 54 35 00 52 54 |Y.DEY.BPLPUT5.RT| 00002360: 53 00 20 00 50 55 54 4D 4F 4E 52 4F 3A 4C 44 59 |S. .PUTMONRO:LDY| 00002370: 23 4D 52 4F 45 4E 44 2D 4D 52 4F 41 4E 46 2D 31 |#MROEND-MROANF-1| 00002380: 3B CD 4F 4E 49 54 4F 52 45 52 57 45 49 54 45 52 |;.ONITORERWEITER| 00002390: 55 4E 47 2D D2 4F 55 54 49 4E 45 4E 00 50 55 54 |UNG-.OUTINEN.PUT| 000023A0: 36 3A 4C 44 41 4D 52 4F 41 4E 46 2C 59 3B 4B 4F |6:LDAMROANF,Y;KO| 000023B0: 50 49 45 52 45 4E 00 53 54 41 52 4F 55 54 49 4E |PIEREN.STAROUTIN| 000023C0: 45 4E 2C 59 00 44 45 59 00 42 50 4C 50 55 54 36 |EN,Y.DEY.BPLPUT6| 000023D0: 00 52 54 53 00 20 00 52 55 4E 41 4E 46 3A 00 43 |.RTS. .RUNANF:.C| 000023E0: 4C 49 3B D2 55 4E 2D D2 4F 55 54 49 4E 45 00 4C |LI;.UN-.OUTINE.L| 000023F0: 44 41 23 24 33 37 00 53 54 41 31 00 4A 55 4D 50 |DA#$37.STA1.JUMP| 00002400: 3A 4A 53 52 24 46 46 46 46 3B C4 55 4D 4D 59 00 |:JSR$FFFF;.UMMY.| 00002410: 4C 44 41 23 4E 4F 52 4D 41 4C 00 53 54 41 31 00 |LDA#NORMAL.STA1.| 00002420: 53 45 49 00 4A 4D 50 52 55 4E 52 45 54 55 52 4E |SEI.JMPRUNRETURN| 00002430: 00 52 55 4E 45 4E 44 3A 00 20 00 43 4F 41 4E 46 |.RUNEND:. .COANF| 00002440: 3A 00 53 45 49 3B C3 4F 50 59 2D D2 4F 55 54 49 |:.SEI;.OPY-.OUTI| 00002450: 4E 45 00 4C 44 41 23 24 33 34 00 53 54 41 31 00 |NE.LDA#$34.STA1.| 00002460: 4C 44 41 28 5A 47 29 2C 59 00 53 54 41 28 5A 47 |LDA(ZG),Y.STA(ZG| 00002470: 32 29 2C 59 00 4C 44 41 23 4E 4F 52 4D 41 4C 00 |2),Y.LDA#NORMAL.| 00002480: 53 54 41 31 00 52 54 53 00 43 4F 45 4E 44 3A 00 |STA1.RTS.COEND:.| 00002490: 20 00 52 41 4D 52 4F 41 4E 46 3A 00 52 52 4F 31 | .RAMROANF:.RRO1| 000024A0: 3A 53 45 49 3B 57 45 52 54 20 56 4F 4E 20 41 44 |:SEI;WERT VON AD| 000024B0: 52 45 53 53 45 20 5A 47 20 48 4F 4C 45 4E 00 4C |RESSE ZG HOLEN.L| 000024C0: 44 41 23 24 33 34 00 53 54 41 31 00 4C 44 41 28 |DA#$34.STA1.LDA(| 000024D0: 5A 47 29 2C 59 3B 57 45 52 54 20 48 4F 4C 45 4E |ZG),Y;WERT HOLEN| 000024E0: 00 50 48 41 3B 4D 45 52 4B 45 4E 00 4C 44 41 23 |.PHA;MERKEN.LDA#| 000024F0: 4E 4F 52 4D 41 4C 3B 53 50 45 49 43 48 45 52 20 |NORMAL;SPEICHER | 00002500: 4E 4F 52 4D 41 4C 00 53 54 41 31 00 50 4C 41 3B |NORMAL.STA1.PLA;| 00002510: 57 45 52 54 20 5A 55 52 55 45 43 4B 48 4F 4C 45 |WERT ZURUECKHOLE| 00002520: 4E 00 52 54 53 00 20 00 52 52 4F 32 3A 53 45 49 |N.RTS. .RRO2:SEI| 00002530: 3B 57 45 52 54 20 56 4F 4E 20 41 44 52 45 53 53 |;WERT VON ADRESS| 00002540: 45 20 5A 47 32 20 48 4F 4C 45 4E 00 4C 44 41 23 |E ZG2 HOLEN.LDA#| 00002550: 24 33 34 00 53 54 41 31 00 4C 44 41 28 5A 47 32 |$34.STA1.LDA(ZG2| 00002560: 29 2C 59 3B 57 45 52 54 20 48 4F 4C 45 4E 00 50 |),Y;WERT HOLEN.P| 00002570: 48 41 3B 4D 45 52 4B 45 4E 00 4C 44 41 23 4E 4F |HA;MERKEN.LDA#NO| 00002580: 52 4D 41 4C 3B 53 50 45 49 43 48 45 52 20 4E 4F |RMAL;SPEICHER NO| 00002590: 52 4D 41 4C 00 53 54 41 31 00 50 4C 41 3B 57 45 |RMAL.STA1.PLA;WE| 000025A0: 52 54 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 |RT ZURUECKHOLEN.| 000025B0: 52 54 53 00 20 00 52 52 4F 33 3A 50 48 41 3B 57 |RTS. .RRO3:PHA;W| 000025C0: 45 52 54 20 4E 41 43 48 20 41 44 52 45 53 53 45 |ERT NACH ADRESSE| 000025D0: 20 5A 47 00 53 45 49 00 4C 44 41 23 24 33 34 3B | ZG.SEI.LDA#$34;| 000025E0: 41 4C 4C 45 53 20 52 41 4D 00 53 54 41 31 00 50 |ALLES RAM.STA1.P| 000025F0: 4C 41 00 50 48 41 3B 53 50 45 49 43 48 45 52 4E |LA.PHA;SPEICHERN| 00002600: 20 55 4E 44 20 4D 45 52 4B 45 4E 00 53 54 41 28 | UND MERKEN.STA(| 00002610: 5A 47 29 2C 59 00 4C 44 41 23 4E 4F 52 4D 41 4C |ZG),Y.LDA#NORMAL| 00002620: 3B 53 50 45 49 43 48 45 52 20 4E 4F 52 4D 41 4C |;SPEICHER NORMAL| 00002630: 00 53 54 41 31 00 50 4C 41 3B 57 45 52 54 20 5A |.STA1.PLA;WERT Z| 00002640: 55 52 55 45 43 4B 48 4F 4C 45 4E 00 52 54 53 00 |URUECKHOLEN.RTS.| 00002650: 20 00 52 52 4F 34 3A 50 48 41 3B 57 45 52 54 20 | .RRO4:PHA;WERT | 00002660: 4E 41 43 48 20 41 44 52 45 53 53 45 20 5A 47 32 |NACH ADRESSE ZG2| 00002670: 00 53 45 49 00 4C 44 41 23 24 33 34 3B 41 4C 4C |.SEI.LDA#$34;ALL| 00002680: 45 53 20 52 41 4D 00 53 54 41 31 00 50 4C 41 00 |ES RAM.STA1.PLA.| 00002690: 50 48 41 3B 53 50 45 49 43 48 45 52 4E 20 55 4E |PHA;SPEICHERN UN| 000026A0: 44 20 4D 45 52 4B 45 4E 00 53 54 41 28 5A 47 32 |D MERKEN.STA(ZG2| 000026B0: 29 2C 59 00 4C 44 41 23 4E 4F 52 4D 41 4C 00 53 |),Y.LDA#NORMAL.S| 000026C0: 54 41 31 00 50 4C 41 3B 57 45 52 54 20 5A 55 52 |TA1.PLA;WERT ZUR| 000026D0: 55 45 43 4B 48 4F 4C 45 4E 00 52 54 53 00 52 41 |UECKHOLEN.RTS.RA| 000026E0: 4D 52 4F 45 4E 44 3A 00 20 00 4C 42 4C 52 4F 41 |MROEND:. .LBLROA| 000026F0: 4E 46 3A 00 53 45 49 3B C1 53 53 2E 20 D2 4F 55 |NF:.SEI;.SS. .OU| 00002700: 54 49 4E 45 20 CC 41 42 45 4C 20 53 55 43 48 45 |TINE .ABEL SUCHE| 00002710: 4E 00 4C 44 41 23 24 33 34 00 53 54 41 31 00 46 |N.LDA#$34.STA1.F| 00002720: 49 52 53 54 3A 4C 44 58 23 30 00 4C 44 41 28 5A |IRST:LDX#0.LDA(Z| 00002730: 47 32 29 2C 59 00 42 45 51 53 4C 52 54 32 3B CB |G2),Y.BEQSLRT2;.| 00002740: 45 49 4E 45 20 CC 41 42 45 4C 00 43 4D 50 42 55 |EINE .ABEL.CMPBU| 00002750: 46 46 45 52 32 2C 58 3B 45 52 53 54 45 53 20 DA |FFER2,X;ERSTES .| 00002760: 45 49 43 48 45 4E 00 42 45 51 46 4F 4C 42 4C 3F |EICHEN.BEQFOLBL?| 00002770: 3B 47 4C 45 49 43 48 00 42 43 53 53 4C 52 54 32 |;GLEICH.BCSSLRT2| 00002780: 3B 47 52 4F 45 53 53 45 52 20 2D 3E 20 4E 49 43 |;GROESSER -> NIC| 00002790: 48 54 20 47 45 46 55 4E 44 45 4E 00 41 44 5A 47 |HT GEFUNDEN.ADZG| 000027A0: 3A 49 4E 43 5A 47 32 3B CE 41 45 43 48 53 54 45 |:INCZG2;.AECHSTE| 000027B0: 53 20 CC 41 42 45 4C 20 53 55 43 48 45 4E 00 42 |S .ABEL SUCHEN.B| 000027C0: 4E 45 2A 2B 34 00 49 4E 43 5A 47 32 2B 31 00 4C |NE*+4.INCZG2+1.L| 000027D0: 44 41 28 5A 47 32 29 2C 59 00 43 4D 50 23 34 00 |DA(ZG2),Y.CMP#4.| 000027E0: 42 43 53 41 44 5A 47 00 43 4C 43 3B 5A 47 20 2B |BCSADZG.CLC;ZG +| 000027F0: 20 CC 41 42 45 4C 57 45 52 54 4F 46 46 53 45 54 | .ABELWERTOFFSET| 00002800: 00 4C 44 41 5A 47 32 00 41 44 43 23 33 00 53 54 |.LDAZG2.ADC#3.ST| 00002810: 41 5A 47 32 00 42 43 43 46 49 52 53 54 00 49 4E |AZG2.BCCFIRST.IN| 00002820: 43 5A 47 32 2B 31 00 42 4E 45 46 49 52 53 54 3B |CZG2+1.BNEFIRST;| 00002830: 57 45 49 54 45 52 53 55 43 48 45 4E 00 46 4F 4C |WEITERSUCHEN.FOL| 00002840: 42 4C 3F 3A 49 4E 58 3B 57 45 49 54 45 52 45 20 |BL?:INX;WEITERE | 00002850: DA 45 49 43 48 45 4E 20 56 45 52 47 4C 45 49 43 |.EICHEN VERGLEIC| 00002860: 48 45 4E 00 49 4E 59 00 4C 44 41 42 55 46 46 45 |HEN.INY.LDABUFFE| 00002870: 52 32 2C 58 00 42 45 51 45 4C 42 4C 3B CC 41 42 |R2,X.BEQELBL;.AB| 00002880: 45 4C 45 4E 44 45 00 4C 44 41 28 5A 47 32 29 2C |ELENDE.LDA(ZG2),| 00002890: 59 00 43 4D 50 42 55 46 46 45 52 32 2C 58 00 42 |Y.CMPBUFFER2,X.B| 000028A0: 45 51 46 4F 4C 42 4C 3F 3B 4E 45 58 54 20 DA 45 |EQFOLBL?;NEXT .E| 000028B0: 49 43 48 45 4E 00 42 43 53 53 4C 52 54 32 3B 47 |ICHEN.BCSSLRT2;G| 000028C0: 52 4F 45 53 53 45 52 2D 3E 20 4E 49 43 48 54 20 |ROESSER-> NICHT | 000028D0: 47 45 46 55 4E 44 45 4E 00 4C 44 59 23 30 3B 4E |GEFUNDEN.LDY#0;N| 000028E0: 45 58 54 20 CC 41 42 45 4C 00 42 45 51 41 44 5A |EXT .ABEL.BEQADZ| 000028F0: 47 00 45 4C 42 4C 3A 4C 44 41 28 5A 47 32 29 2C |G.ELBL:LDA(ZG2),| 00002900: 59 3B C5 49 4E 54 52 41 47 45 4E 44 45 20 3F 00 |Y;.INTRAGENDE ?.| 00002910: 43 4D 50 23 34 00 42 43 43 46 4F 4C 42 4C 3B 47 |CMP#4.BCCFOLBL;G| 00002920: 45 46 55 4E 44 45 4E 00 42 43 53 53 4C 52 54 32 |EFUNDEN.BCSSLRT2| 00002930: 3B 4E 45 49 4E 2D 3E 20 4E 49 43 48 54 20 47 45 |;NEIN-> NICHT GE| 00002940: 46 55 4E 44 45 4E 00 46 4F 4C 42 4C 3A 53 54 41 |FUNDEN.FOLBL:STA| 00002950: 4C 41 42 45 4C 54 59 50 3B CC 41 42 45 4C 54 59 |LABELTYP;.ABELTY| 00002960: 50 20 48 4F 4C 45 4E 00 4C 44 41 41 53 53 46 4C |P HOLEN.LDAASSFL| 00002970: 41 47 53 00 41 4E 44 23 32 00 42 45 51 4E 4F 54 |AGS.AND#2.BEQNOT| 00002980: 55 53 45 44 00 4C 44 41 4C 41 42 45 4C 54 59 50 |USED.LDALABELTYP| 00002990: 3B 41 4C 53 20 42 45 4E 55 54 5A 54 20 4B 45 4E |;ALS BENUTZT KEN| 000029A0: 4E 5A 45 49 43 48 4E 45 4E 00 4F 52 41 23 32 00 |NZEICHNEN.ORA#2.| 000029B0: 53 54 41 28 5A 47 32 29 2C 59 00 4E 4F 54 55 53 |STA(ZG2),Y.NOTUS| 000029C0: 45 44 3A 49 4E 59 3B CC 41 42 45 4C 57 45 52 54 |ED:INY;.ABELWERT| 000029D0: 20 48 4F 4C 45 4E 00 4C 44 41 28 5A 47 32 29 2C | HOLEN.LDA(ZG2),| 000029E0: 59 00 49 4E 59 00 53 54 41 4C 41 42 45 4C 57 45 |Y.INY.STALABELWE| 000029F0: 52 54 00 4C 44 41 28 5A 47 32 29 2C 59 00 53 54 |RT.LDA(ZG2),Y.ST| 00002A00: 41 4C 41 42 45 4C 57 45 52 54 2B 31 00 53 4C 52 |ALABELWERT+1.SLR| 00002A10: 54 32 3A 4C 44 41 23 4E 4F 52 4D 41 4C 3B 5A 55 |T2:LDA#NORMAL;ZU| 00002A20: 52 55 45 43 4B 00 53 54 41 31 00 52 54 53 00 20 |RUECK.STA1.RTS. | 00002A30: 00 56 4C 42 4C 52 4F 4D 41 3A 00 4C 44 41 23 24 |.VLBLROMA:.LDA#$| 00002A40: 33 34 3B D2 4F 55 54 49 4E 45 20 46 55 45 52 20 |34;.OUTINE FUER | 00002A50: CC 41 42 45 4C 20 56 45 52 53 43 48 49 45 42 45 |.ABEL VERSCHIEBE| 00002A60: 4E 00 53 54 41 31 00 4C 44 59 23 30 00 4C 44 41 |N.STA1.LDY#0.LDA| 00002A70: 28 5A 47 32 29 2C 59 00 4C 44 59 4C 42 4C 4C 45 |(ZG2),Y.LDYLBLLE| 00002A80: 4E 00 53 54 41 28 5A 47 32 29 2C 59 00 42 4E 45 |N.STA(ZG2),Y.BNE| 00002A90: 53 4C 52 54 32 00 42 45 51 53 4C 52 54 32 00 4C |SLRT2.BEQSLRT2.L| 00002AA0: 42 4C 52 4F 45 4E 44 3A 00 20 00 5A 41 44 52 41 |BLROEND:. .ZADRA| 00002AB0: 4E 46 3A 00 53 45 49 3B C1 44 52 45 53 53 45 20 |NF:.SEI;.DRESSE | 00002AC0: 44 45 52 20 DA 45 49 4C 45 20 53 55 43 48 45 4E |DER .EILE SUCHEN| 00002AD0: 00 4C 44 41 23 24 33 34 00 53 54 41 31 00 41 4C |.LDA#$34.STA1.AL| 00002AE0: 49 4E 45 3A 49 4E 43 4D 45 4D 31 3B DA 45 49 4C |INE:INCMEM1;.EIL| 00002AF0: 45 2B 31 00 42 4E 45 53 55 43 48 00 49 4E 43 4D |E+1.BNESUCH.INCM| 00002B00: 45 4D 31 2B 31 00 53 55 43 48 3A 4C 44 41 4D 45 |EM1+1.SUCH:LDAME| 00002B10: 4D 31 3B 47 45 53 55 43 48 54 45 20 DA 45 49 4C |M1;GESUCHTE .EIL| 00002B20: 45 20 3F 00 43 4D 50 5A 41 48 4C 31 00 42 4E 45 |E ?.CMPZAHL1.BNE| 00002B30: 53 55 43 48 4C 00 4C 44 41 4D 45 4D 32 00 43 4D |SUCHL.LDAMEM2.CM| 00002B40: 50 5A 41 48 4C 31 2B 31 00 42 4E 45 53 55 43 48 |PZAHL1+1.BNESUCH| 00002B50: 4C 00 4C 44 41 23 4E 4F 52 4D 41 4C 3B 4A 41 00 |L.LDA#NORMAL;JA.| 00002B60: 53 54 41 31 00 52 54 53 00 53 45 4C 3A 4C 44 41 |STA1.RTS.SEL:LDA| 00002B70: 28 5A 47 29 2C 59 3B DA 45 49 4C 45 4E 45 4E 44 |(ZG),Y;.EILENEND| 00002B80: 45 20 3F 00 42 45 51 41 4C 49 4E 45 00 53 55 43 |E ?.BEQALINE.SUC| 00002B90: 48 4C 3A 49 4E 59 3B CE 41 45 43 48 53 54 45 20 |HL:INY;.AECHSTE | 00002BA0: DA 45 49 4C 45 00 42 4E 45 53 45 4C 00 49 4E 43 |.EILE.BNESEL.INC| 00002BB0: 5A 47 2B 31 00 42 4E 45 53 45 4C 00 5A 41 44 52 |ZG+1.BNESEL.ZADR| 00002BC0: 45 4E 44 3A 00 20 00 4D 52 4F 41 4E 46 3A 00 53 |END:. .MROANF:.S| 00002BD0: 45 49 3B CD 4F 4E 49 54 4F 52 20 2D 20 D2 4F 55 |EI;.ONITOR - .OU| 00002BE0: 54 49 4E 45 4E 00 4C 44 41 50 50 3B D3 50 45 49 |TINEN.LDAPP;.PEI| 00002BF0: 43 48 45 52 56 45 52 54 45 49 4C 55 4E 47 20 53 |CHERVERTEILUNG S| 00002C00: 45 54 5A 45 4E 00 53 54 41 31 00 50 4C 41 00 50 |ETZEN.STA1.PLA.P| 00002C10: 4C 50 3B D2 4F 55 54 49 4E 45 20 41 55 46 52 55 |LP;.OUTINE AUFRU| 00002C20: 46 45 4E 00 4A 55 42 45 46 3A 4A 53 52 24 46 46 |FEN.JUBEF:JSR$FF| 00002C30: 46 46 3B 44 55 4D 4D 59 00 50 48 50 00 50 48 41 |FF;DUMMY.PHP.PHA| 00002C40: 00 4C 44 41 23 4E 4F 52 4D 41 4C 3B 55 4E 44 20 |.LDA#NORMAL;UND | 00002C50: 5A 55 52 55 45 43 4B 00 53 54 41 31 00 4A 4D 50 |ZURUECK.STA1.JMP| 00002C60: 4D 4F 4E 49 54 4F 52 2B 33 00 20 00 42 52 4B 4A |MONITOR+3. .BRKJ| 00002C70: 55 3A 4C 44 41 23 4E 4F 52 4D 41 4C 00 53 54 41 |U:LDA#NORMAL.STA| 00002C80: 31 00 4A 4D 50 4D 4F 4E 49 54 4F 52 2B 36 00 20 |1.JMPMONITOR+6. | 00002C90: 00 4D 52 4F 31 3A 53 45 49 3B 57 45 52 54 20 56 |.MRO1:SEI;WERT V| 00002CA0: 4F 4E 20 41 44 52 45 53 53 45 20 5A 47 20 48 4F |ON ADRESSE ZG HO| 00002CB0: 4C 45 4E 00 4C 44 41 50 50 00 53 54 41 31 00 4C |LEN.LDAPP.STA1.L| 00002CC0: 44 41 28 5A 47 29 2C 59 3B 57 45 52 54 20 48 4F |DA(ZG),Y;WERT HO| 00002CD0: 4C 45 4E 00 50 48 41 3B 4D 45 52 4B 45 4E 00 4C |LEN.PHA;MERKEN.L| 00002CE0: 44 41 23 4E 4F 52 4D 41 4C 3B 53 50 45 49 43 48 |DA#NORMAL;SPEICH| 00002CF0: 45 52 20 4E 4F 52 4D 41 4C 00 53 54 41 31 00 50 |ER NORMAL.STA1.P| 00002D00: 4C 41 3B 57 45 52 54 20 5A 55 52 55 45 43 4B 48 |LA;WERT ZURUECKH| 00002D10: 4F 4C 45 4E 00 52 54 53 00 20 00 4D 52 4F 32 3A |OLEN.RTS. .MRO2:| 00002D20: 50 48 41 3B 57 45 52 54 20 4E 41 43 48 20 41 44 |PHA;WERT NACH AD| 00002D30: 52 45 53 53 45 20 5A 47 00 53 45 49 00 4C 44 41 |RESSE ZG.SEI.LDA| 00002D40: 23 24 33 34 3B 41 4C 4C 45 53 20 52 41 4D 00 53 |#$34;ALLES RAM.S| 00002D50: 54 41 31 00 50 4C 41 00 50 48 41 3B 53 50 45 49 |TA1.PLA.PHA;SPEI| 00002D60: 43 48 45 52 4E 20 55 4E 44 20 4D 45 52 4B 45 4E |CHERN UND MERKEN| 00002D70: 00 53 54 41 28 5A 47 29 2C 59 00 4C 44 41 23 4E |.STA(ZG),Y.LDA#N| 00002D80: 4F 52 4D 41 4C 3B 53 50 45 49 43 48 45 52 20 4E |ORMAL;SPEICHER N| 00002D90: 4F 52 4D 41 4C 00 53 54 41 31 00 50 4C 41 3B 57 |ORMAL.STA1.PLA;W| 00002DA0: 45 52 54 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |ERT ZURUECKHOLEN| 00002DB0: 00 52 54 53 00 4D 52 4F 45 4E 44 3A 00 20 00 3B |.RTS.MROEND:. .;| 00002DC0: D3 54 41 52 54 41 44 52 45 53 53 45 4E 20 44 45 |.TARTADRESSEN DE| 00002DD0: 52 20 D2 4F 55 54 49 4E 45 4E 20 42 45 52 45 43 |R .OUTINEN BEREC| 00002DE0: 48 4E 45 4E 00 52 41 4D 43 4F 50 59 3A 2E 45 51 |HNEN.RAMCOPY:.EQ| 00002DF0: 52 4F 55 54 49 4E 45 4E 00 48 4F 4C 5A 47 3A 2E |ROUTINEN.HOLZG:.| 00002E00: 45 51 52 4F 55 54 49 4E 45 4E 00 48 4F 4C 5A 47 |EQROUTINEN.HOLZG| 00002E10: 32 3A 2E 45 51 48 4F 4C 5A 47 2B 52 52 4F 32 2D |2:.EQHOLZG+RRO2-| 00002E20: 52 41 4D 52 4F 41 4E 46 00 50 55 54 5A 47 3A 2E |RAMROANF.PUTZG:.| 00002E30: 45 51 48 4F 4C 5A 47 2B 52 52 4F 33 2D 52 41 4D |EQHOLZG+RRO3-RAM| 00002E40: 52 4F 41 4E 46 00 50 55 54 5A 47 32 3A 2E 45 51 |ROANF.PUTZG2:.EQ| 00002E50: 48 4F 4C 5A 47 2B 52 52 4F 34 2D 52 41 4D 52 4F |HOLZG+RRO4-RAMRO| 00002E60: 41 4E 46 00 44 4F 52 55 4E 3A 2E 45 51 52 4F 55 |ANF.DORUN:.EQROU| 00002E70: 54 49 4E 45 4E 00 4A 55 4D 50 41 44 52 3A 2E 45 |TINEN.JUMPADR:.E| 00002E80: 51 44 4F 52 55 4E 2B 4A 55 4D 50 2D 52 55 4E 41 |QDORUN+JUMP-RUNA| 00002E90: 4E 46 2B 31 00 4D 45 52 4B 46 45 4C 44 3A 2E 45 |NF+1.MERKFELD:.E| 00002EA0: 51 44 4F 52 55 4E 2B 52 55 4E 45 4E 44 2D 52 55 |QDORUN+RUNEND-RU| 00002EB0: 4E 41 4E 46 00 56 4C 42 4C 52 4F 3A 2E 45 51 52 |NANF.VLBLRO:.EQR| 00002EC0: 4F 55 54 49 4E 45 32 2B 56 4C 42 4C 52 4F 4D 41 |OUTINE2+VLBLROMA| 00002ED0: 2D 4C 42 4C 52 4F 41 4E 46 00 5A 47 45 54 3A 2E |-LBLROANF.ZGET:.| 00002EE0: 45 51 52 4F 55 54 49 4E 45 4E 2B 4D 52 4F 31 2D |EQROUTINEN+MRO1-| 00002EF0: 4D 52 4F 41 4E 46 00 5A 50 55 54 3A 2E 45 51 52 |MROANF.ZPUT:.EQR| 00002F00: 4F 55 54 49 4E 45 4E 2B 4D 52 4F 32 2D 4D 52 4F |OUTINEN+MRO2-MRO| 00002F10: 41 4E 46 00 4A 55 4D 50 42 45 46 45 48 4C 3A 2E |ANF.JUMPBEFEHL:.| 00002F20: 45 51 52 4F 55 54 49 4E 45 4E 2B 4A 55 42 45 46 |EQROUTINEN+JUBEF| 00002F30: 2D 4D 52 4F 41 4E 46 00 42 52 45 41 4B 4A 55 4D |-MROANF.BREAKJUM| 00002F40: 50 3A 2E 45 51 52 4F 55 54 49 4E 45 4E 2B 42 52 |P:.EQROUTINEN+BR| 00002F50: 4B 4A 55 2D 4D 52 4F 41 4E 46 00 20 00 3B 2A 2A |KJU-MROANF. .;**| 00002F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002F80: 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 20 |*****.;* * | 00002F90: 20 20 20 20 CC 4F 41 44 2D D2 4F 55 54 49 4E 45 | .OAD-.OUTINE| 00002FA0: 20 20 20 20 20 20 20 20 20 20 20 2A 20 2A 00 3B | * *.;| 00002FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002FD0: 2A 2A 2A 2A 2A 2A 2A 00 20 00 56 45 52 49 46 59 |*******. .VERIFY| 00002FE0: 3A 4C 44 41 23 31 3B C6 4C 41 47 20 46 55 45 52 |:LDA#1;.LAG FUER| 00002FF0: 20 D6 45 52 49 46 59 00 2E 42 59 24 32 43 00 20 | .ERIFY..BY$2C. | 00003000: 00 4C 4F 41 44 3A 4C 44 41 23 30 00 53 54 41 5A |.LOAD:LDA#0.STAZ| 00003010: 41 48 4C 33 3B C6 4C 41 47 20 46 55 45 52 20 CC |AHL3;.LAG FUER .| 00003020: 4F 41 44 2F D6 45 52 49 46 59 00 4C 44 41 54 58 |OAD/.ERIFY.LDATX| 00003030: 54 41 4E 46 3B 5A 47 20 41 55 46 20 D4 45 58 54 |TANF;ZG AUF .EXT| 00003040: 41 4E 46 41 4E 47 00 53 54 41 5A 47 00 4C 44 41 |ANFANG.STAZG.LDA| 00003050: 54 58 54 41 4E 46 2B 31 00 53 54 41 5A 47 2B 31 |TXTANF+1.STAZG+1| 00003060: 00 4C 44 58 23 31 32 3B D4 45 58 54 4E 55 4D 4D |.LDX#12;.EXTNUMM| 00003070: 45 52 20 46 55 45 52 20 CC 4F 41 44 00 4C 44 41 |ER FUER .OAD.LDA| 00003080: 5A 41 48 4C 33 00 42 45 51 4C 4F 41 50 00 4C 44 |ZAHL3.BEQLOAP.LD| 00003090: 58 23 32 37 3B D4 45 58 54 4E 55 4D 4D 45 52 20 |X#27;.EXTNUMMER | 000030A0: 46 55 45 52 20 D6 45 52 49 46 59 00 42 4E 45 4C |FUER .ERIFY.BNEL| 000030B0: 4F 41 50 00 20 00 4D 45 52 47 45 3A 4A 53 52 50 |OAP. .MERGE:JSRP| 000030C0: 4F 49 4E 54 45 52 3B CD 45 52 47 45 00 4C 44 41 |OINTER;.ERGE.LDA| 000030D0: 23 30 3B CC 4F 41 44 46 4C 41 47 00 53 54 41 5A |#0;.OADFLAG.STAZ| 000030E0: 41 48 4C 33 00 4C 44 41 54 58 54 50 4F 49 4E 54 |AHL3.LDATXTPOINT| 000030F0: 3B 5A 47 20 41 55 46 20 D4 45 58 54 45 4E 44 45 |;ZG AUF .EXTENDE| 00003100: 00 53 54 41 5A 47 00 4C 44 41 54 58 54 50 4F 49 |.STAZG.LDATXTPOI| 00003110: 4E 54 2B 31 00 53 54 41 5A 47 2B 31 00 4C 44 58 |NT+1.STAZG+1.LDX| 00003120: 23 31 34 3B D4 45 58 54 4E 55 4D 4D 45 52 20 46 |#14;.EXTNUMMER F| 00003130: 55 45 52 20 CD 45 52 47 45 00 4C 4F 41 50 3A 4A |UER .ERGE.LOAP:J| 00003140: 53 52 57 52 49 54 45 00 4C 44 58 23 36 00 4A 53 |SRWRITE.LDX#6.JS| 00003150: 52 57 52 49 54 45 00 4A 53 52 53 54 52 31 36 49 |RWRITE.JSRSTR16I| 00003160: 4E 3B C6 49 4C 45 4E 41 4D 45 20 48 4F 4C 45 4E |N;.ILENAME HOLEN| 00003170: 00 54 59 41 00 42 4E 45 2A 2B 35 00 4A 4D 50 4D |.TYA.BNE*+5.JMPM| 00003180: 41 49 4E 52 54 00 4A 53 52 44 49 53 4B 49 4E 49 |AINRT.JSRDISKINI| 00003190: 54 00 4C 44 58 23 3C 42 55 46 46 45 52 3B CE 41 |T.LDX#<BUFFER;.A| 000031A0: 4D 45 4E 20 53 45 54 5A 45 4E 00 4C 44 59 23 3E |MEN SETZEN.LDY#>| 000031B0: 42 55 46 46 45 52 00 4A 53 52 53 45 54 4E 41 4D |BUFFER.JSRSETNAM| 000031C0: 45 00 4C 44 41 23 31 3B C6 4C 4F 50 50 59 50 41 |E.LDA#1;.LOPPYPA| 000031D0: 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 4C |RAMETER SETZEN.L| 000031E0: 44 58 23 46 4C 4F 44 45 56 00 4C 44 59 23 30 00 |DX#FLODEV.LDY#0.| 000031F0: 4A 53 52 53 45 54 50 41 52 41 00 4A 53 52 4F 50 |JSRSETPARA.JSROP| 00003200: 45 4E 3B C6 49 4C 45 20 4F 45 46 46 4E 45 4E 00 |EN;.ILE OEFFNEN.| 00003210: 4C 44 58 23 31 3B C5 49 4E 47 41 42 45 20 56 4F |LDX#1;.INGABE VO| 00003220: 4E 20 C6 4C 4F 50 50 59 00 4A 53 52 43 48 4B 49 |N .LOPPY.JSRCHKI| 00003230: 4E 00 4A 53 52 42 41 53 49 4E 3B C6 49 4C 45 4C |N.JSRBASIN;.ILEL| 00003240: 41 45 4E 47 45 20 48 4F 4C 45 4E 00 53 54 41 4D |AENGE HOLEN.STAM| 00003250: 45 4D 31 00 4C 44 41 53 54 41 54 55 53 00 42 45 |EM1.LDASTATUS.BE| 00003260: 51 49 4E 4F 4B 00 4A 53 52 43 4C 4F 41 4C 4C 3B |QINOK.JSRCLOALL;| 00003270: C6 4C 4F 50 50 59 20 C5 52 52 4F 52 00 4A 4D 50 |.LOPPY .RROR.JMP| 00003280: 44 49 45 52 52 00 49 4E 4F 4B 3A 4A 53 52 42 41 |DIERR.INOK:JSRBA| 00003290: 53 49 4E 00 53 54 41 4D 45 4D 32 00 43 4C 43 3B |SIN.STAMEM2.CLC;| 000032A0: C1 55 46 20 D3 50 45 49 43 48 45 52 50 4C 41 54 |.UF .PEICHERPLAT| 000032B0: 5A 20 54 45 53 54 45 4E 00 4C 44 41 4D 45 4D 31 |Z TESTEN.LDAMEM1| 000032C0: 00 41 44 43 5A 47 00 53 54 41 5A 41 48 4C 31 00 |.ADCZG.STAZAHL1.| 000032D0: 4C 44 41 4D 45 4D 32 00 41 44 43 5A 47 2B 31 00 |LDAMEM2.ADCZG+1.| 000032E0: 53 54 41 5A 41 48 4C 31 2B 31 3B DA 41 48 4C 20 |STAZAHL1+1;.AHL | 000032F0: 31 3D D0 4C 41 54 5A 42 45 44 41 52 46 00 42 43 |1=.LATZBEDARF.BC| 00003300: 53 4E 4F 52 41 4D 00 4C 44 41 54 58 54 45 4E 44 |SNORAM.LDATXTEND| 00003310: 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 54 58 54 |.STAZAHL2.LDATXT| 00003320: 45 4E 44 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 |END+1.STAZAHL2+1| 00003330: 00 4A 53 52 56 45 52 47 4C 45 49 43 48 3B C2 45 |.JSRVERGLEICH;.E| 00003340: 44 41 52 46 20 4D 49 54 20 D0 4C 41 54 5A 20 56 |DARF MIT .LATZ V| 00003350: 45 52 47 4C 45 49 43 48 45 4E 00 42 43 43 4C 41 |ERGLEICHEN.BCCLA| 00003360: 44 45 4E 00 4E 4F 52 41 4D 3A 4A 53 52 4E 45 58 |DEN.NORAM:JSRNEX| 00003370: 54 5A 45 49 3B DA 55 20 57 45 4E 49 47 20 D3 50 |TZEI;.U WENIG .P| 00003380: 45 49 43 48 45 52 00 4C 44 58 23 31 35 00 4C 4F |EICHER.LDX#15.LO| 00003390: 4D 45 56 45 45 52 52 3A 4A 53 52 42 45 45 50 00 |MEVEERR:JSRBEEP.| 000033A0: 4A 53 52 57 52 49 54 45 00 4A 53 52 43 4C 4F 41 |JSRWRITE.JSRCLOA| 000033B0: 4C 4C 00 4A 4D 50 4D 41 49 4E 52 54 00 4C 41 44 |LL.JMPMAINRT.LAD| 000033C0: 45 4E 3A 4A 53 52 42 41 53 49 4E 3B C6 49 4C 45 |EN:JSRBASIN;.ILE| 000033D0: 20 4C 41 44 45 4E 00 4C 44 59 23 30 00 4C 44 58 | LADEN.LDY#0.LDX| 000033E0: 5A 41 48 4C 33 00 42 4E 45 56 45 52 49 00 4A 53 |ZAHL3.BNEVERI.JS| 000033F0: 52 50 55 54 5A 47 3B DA 45 49 43 48 45 4E 2D 3E |RPUTZG;.EICHEN->| 00003400: D2 C1 CD 00 4A 4D 50 4C 4F 41 44 43 4F 4E 54 00 |....JMPLOADCONT.| 00003410: 56 45 52 49 3A 53 54 41 4D 45 4D 34 3B DA 45 49 |VERI:STAMEM4;.EI| 00003420: 43 48 45 4E 20 56 45 52 47 4C 45 49 43 48 45 4E |CHEN VERGLEICHEN| 00003430: 00 4A 53 52 48 4F 4C 5A 47 00 43 4D 50 4D 45 4D |.JSRHOLZG.CMPMEM| 00003440: 34 00 42 45 51 4C 4F 41 44 43 4F 4E 54 00 4C 44 |4.BEQLOADCONT.LD| 00003450: 58 23 32 36 3B D6 45 52 49 46 59 20 C5 52 52 4F |X#26;.ERIFY .RRO| 00003460: 52 00 4A 53 52 4E 45 58 54 5A 45 49 00 4A 4D 50 |R.JSRNEXTZEI.JMP| 00003470: 4C 4F 4D 45 56 45 45 52 52 00 4C 4F 41 44 43 4F |LOMEVEERR.LOADCO| 00003480: 4E 54 3A 49 4E 43 5A 47 3B 5A 47 2B 31 00 42 4E |NT:INCZG;ZG+1.BN| 00003490: 45 2A 2B 34 00 49 4E 43 5A 47 2B 31 00 4C 44 41 |E*+4.INCZG+1.LDA| 000034A0: 53 54 41 54 55 53 3B C6 49 4C 45 45 4E 44 45 20 |STATUS;.ILEENDE | 000034B0: 3F 00 42 45 51 4C 41 44 45 4E 3B 4E 45 49 4E 00 |?.BEQLADEN;NEIN.| 000034C0: 4A 53 52 43 4C 4F 41 4C 4C 00 4A 53 52 50 4F 49 |JSRCLOALL.JSRPOI| 000034D0: 4E 54 45 52 00 4A 53 52 42 45 45 50 00 4A 4D 50 |NTER.JSRBEEP.JMP| 000034E0: 4D 41 49 4E 52 54 00 20 00 3B 2A 2A 2A 2A 2A 2A |MAINRT. .;******| 000034F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003510: 2A 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 20 20 |*.;* * | 00003520: 20 20 D3 41 56 45 2D D2 4F 55 54 49 4E 45 20 20 | .AVE-.OUTINE | 00003530: 20 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A | * *.;****| 00003540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003560: 2A 2A 2A 00 20 00 53 41 56 45 3A 4A 53 52 50 4F |***. .SAVE:JSRPO| 00003570: 49 4E 54 45 52 00 53 45 43 3B 5A 41 48 4C 31 20 |INTER.SEC;ZAHL1 | 00003580: 3D 20 C6 49 4C 45 4C 41 45 4E 47 45 00 4C 44 41 |= .ILELAENGE.LDA| 00003590: 54 58 54 50 4F 49 4E 54 00 53 42 43 54 58 54 41 |TXTPOINT.SBCTXTA| 000035A0: 4E 46 00 53 54 41 5A 41 48 4C 31 00 4C 44 41 54 |NF.STAZAHL1.LDAT| 000035B0: 58 54 50 4F 49 4E 54 2B 31 00 53 42 43 54 58 54 |XTPOINT+1.SBCTXT| 000035C0: 41 4E 46 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 |ANF+1.STAZAHL1+1| 000035D0: 00 4C 44 58 23 31 33 3B C6 49 4C 45 4E 41 4D 45 |.LDX#13;.ILENAME| 000035E0: 4E 20 48 4F 4C 45 4E 00 4A 53 52 57 52 49 54 45 |N HOLEN.JSRWRITE| 000035F0: 00 4C 44 58 23 36 00 4A 53 52 57 52 49 54 45 00 |.LDX#6.JSRWRITE.| 00003600: 4A 53 52 53 54 52 31 36 49 4E 00 54 59 41 00 42 |JSRSTR16IN.TYA.B| 00003610: 4E 45 2A 2B 35 00 4A 4D 50 4D 41 49 4E 52 54 00 |NE*+5.JMPMAINRT.| 00003620: 4A 53 52 44 49 53 4B 49 4E 49 54 00 4C 44 58 23 |JSRDISKINIT.LDX#| 00003630: 3C 42 55 46 46 45 52 3B C6 49 4C 45 50 41 52 41 |<BUFFER;.ILEPARA| 00003640: 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 4C 44 59 |METER SETZEN.LDY| 00003650: 23 3E 42 55 46 46 45 52 00 4A 53 52 53 45 54 4E |#>BUFFER.JSRSETN| 00003660: 41 4D 45 00 4C 44 41 23 31 00 4C 44 58 23 46 4C |AME.LDA#1.LDX#FL| 00003670: 4F 44 45 56 00 54 41 59 00 4A 53 52 53 45 54 50 |ODEV.TAY.JSRSETP| 00003680: 41 52 41 00 4A 53 52 4F 50 45 4E 00 4C 44 58 23 |ARA.JSROPEN.LDX#| 00003690: 31 3B C1 55 53 47 41 42 45 20 41 55 46 20 C4 49 |1;.USGABE AUF .I| 000036A0: 53 4B 00 4A 53 52 43 4B 4F 55 54 00 4C 44 41 5A |SK.JSRCKOUT.LDAZ| 000036B0: 41 48 4C 31 3B C6 49 4C 45 4C 41 45 4E 47 45 20 |AHL1;.ILELAENGE | 000036C0: 41 55 53 47 45 42 45 4E 00 4A 53 52 42 53 4F 55 |AUSGEBEN.JSRBSOU| 000036D0: 54 00 4C 44 41 5A 41 48 4C 31 2B 31 00 4A 53 52 |T.LDAZAHL1+1.JSR| 000036E0: 42 53 4F 55 54 00 4C 44 41 53 54 41 54 55 53 3B |BSOUT.LDASTATUS;| 000036F0: D3 54 41 54 55 53 20 54 45 53 54 45 4E 00 42 45 |.TATUS TESTEN.BE| 00003700: 51 4F 55 54 4F 4B 00 4A 53 52 43 4C 4F 41 4C 4C |QOUTOK.JSRCLOALL| 00003710: 3B D3 41 56 45 2D C5 52 52 4F 52 20 28 C6 49 4C |;.AVE-.RROR (.IL| 00003720: 45 20 45 58 49 53 54 53 20 45 54 43 2E 29 00 4A |E EXISTS ETC.).J| 00003730: 4D 50 44 49 45 52 52 00 4F 55 54 4F 4B 3A 4A 53 |MPDIERR.OUTOK:JS| 00003740: 52 5A 47 54 45 58 54 00 4F 55 54 44 3A 4A 53 52 |RZGTEXT.OUTD:JSR| 00003750: 48 4F 4C 5A 47 3B DA 45 49 43 48 45 4E 20 41 55 |HOLZG;.EICHEN AU| 00003760: 53 47 45 42 45 4E 00 4A 53 52 42 53 4F 55 54 00 |SGEBEN.JSRBSOUT.| 00003770: 49 4E 43 5A 47 3B 5A 47 2B 31 00 42 4E 45 2A 2B |INCZG;ZG+1.BNE*+| 00003780: 34 00 49 4E 43 5A 47 2B 31 00 43 4D 50 23 30 3B |4.INCZG+1.CMP#0;| 00003790: D4 45 58 54 45 4E 44 45 20 3F 00 42 4E 45 4F 55 |.EXTENDE ?.BNEOU| 000037A0: 54 44 3B 4E 45 49 4E 00 4A 53 52 48 4F 4C 5A 47 |TD;NEIN.JSRHOLZG| 000037B0: 00 42 4E 45 4F 55 54 44 3B 4E 45 49 4E 00 4A 53 |.BNEOUTD;NEIN.JS| 000037C0: 52 42 53 4F 55 54 00 4A 53 52 43 4C 4F 41 4C 4C |RBSOUT.JSRCLOALL| 000037D0: 00 4A 53 52 42 45 45 50 00 4A 4D 50 4D 41 49 4E |.JSRBEEP.JMPMAIN| 000037E0: 52 54 00 20 00 2E 46 49 22 45 44 49 54 20 31 22 |RT. ..FI"EDIT 1"| 000037F0: 00 00 00 |... |
.7;;;--- QUELLDATEI MAIN. .VERGLEICH:STA
MEM1;VERGLEICH ZAHL1 MIT ZAHL2.LDAZAHL1+
1;LIEFERT C Z N.CMPZAHL2+1; 1 0 0
ZAHL1 > ZAHL2.BEQLOTST; 0 1 0 ZA
HL1 = ZAHL2.BCSGRT; 0 0 1 ZAHL1 <
ZAHL2.LRT:LDA#128;N=1..BY$2C.GRT:LDA#1;
C=1..BY$2C.ERT:LDA#2;Z=1.PHA;AUF STACK.L
DAMEM1.PLP;ALS STATUS HOLEN.RTS.LOTST:LD
AZAHL1.CMPZAHL2.BEQERT;GLEICH.BCSGRT;GRO
ESSER.BCCLRT;KLEINER. .ZGTEXT:LDATXTANF;
ZG AUF TEXTANFANG.STAZG.LDATXTANF+1.STAZ
G+1.LDY#0;UND Y AUF 0.RTS. .POINTER:JSRZ
GTEXT;POINTER SETZEN.LDA#0;ZEILEN =0.STA
ZEILEN.STAZEILEN+1.JSRHOLZG.BEQLEER;KEIN
TEXT.POI:JSRTEXTLINE.INCZEILEN;ZEILEN+1
.BNE*+4.INCZEILEN+1.CMP#0;TEXTENDE ?.BNE
POI;NEIN.LEER:LDAZG;TXTPOINT SETZEN.STAT
XTPOINT.LDAZG+1.STATXTPOINT+1.RTS. .CLOA
LL:JSRCLRCH;ALLE FILE'S SCHLIESSEN.LDA#1
.JSRCLOSE.LDA#2.JSRCLOSE.LDA#3.JSRCLOSE.
SEI.RTS. .BEEP:LDA#10;TON AUSGEBEN.STASI
D+5.LDA#20.STASID+1.LDA#32.STASID+4.LDA#
33.STASID+4.RTS. .TEXTLINE:JSRHOLZG;ZG A
UF ANFANG NAECHSTE ZEILE.BEQFOELI;ZEILEN
ENDE SUCHEN.INY.BNETEXTLINE.FOELI:SEC.TY
A;ZG + ZEILENLAENGE.ADCZG.STAZG.BCC*+4.I
NCZG+1.LDY#0.JMPHOLZG;ERSTES ZEICHEN HOL
EN. .EINFACHZEI:LDX#24;BILDSCHIRMZEILEN
ALS.SETBIT:LDAMSB,X;EINFACHZEILEN KENNZE
ICHNEN.ORA#128;BIT 7 SETZEN.STAMSB,X.DEX
.BPLSETBIT.RTS. .DECZG:LDAZG;ZG-1.BNENDH
.DECZG+1.NDH:DECZG.RTS. .DELEDBU:LDY#80;
EDBUFFER MIT SPACE FUELLEN.LDA#32.DEB:ST
AEDBUFFER,Y.DEY.BPLDEB.RTS. .;**********
*****************************.;* * TE
XT MIT NR IN X DRUCKEN **.;********
*******************************. .WRITE:
JSRPUSCH.LDA#<TEXTE;MEM1 ALS ZEIGER AUF
TEXTE.STAMEM1.LDA#>TEXTE.STAMEM2.LDY#0.I
NX.WSTXT:DEX;TEXT SUCHEN.BNESEATXT.WRTOU
T:LDA(MEM1),Y;TEXT AUSGEBEN.BNEOUT.JMPPU
LL.OUT:JSRBSOUT.INY.BNEWRTOUT.INCMEM2.BN
EWRTOUT.SEATXT:INY;NAECHSTEN TEXTANFANG
SUCHEN.BNESEATXT2.INCMEM2.SEATXT2:LDA(ME
M1),Y.BNESEATXT.INY.BNEWSTXT;WEITERSUCHE
N.INCMEM2.BNEWSTXT. .TEXTE:.BY147,8,14;T
XT 0..BYSTATCOL,". EDITOR ASSEMBLER
MONITOR ",13,13..BY" (C) M.FRI
ESE 11/85 VERSION: B",13,13,13..BY
"E-EDIT R-RUN G-GET F-FLOPPY
"..BY"A-ASSEMBLE I-INIT S-SAVE C-
CATALOG"..BY"P-PASS L-LABEL M-MERG
E D-DISKCMD"..BY"B-BACK T-DRUCKER
V-VERIFY N-MONITOR"..BY"H-HELP O-OP
TIONS W-WRITE",13,13,13,0. ..BY"TEXT: $
",0;TXT 1..BY"LABEL: $",0;TXT 2..BY"SIND
SIE SICHER? (J/N)",13,0;TXT 3..BY"ALLES
AUF RAM ?",0;TXT 4..BY"ADRESSE: ",0;TXT
5..BY"DATEINAME: ",0;TXT 6..BY"CATALOG-
MASKE: ",0;TXT 7..BY"BEFEHL: ",0;TXT 8..
BY"-$",0;TXT 9..BY" GEFUELLT: $",0;TXT
10..BY"ZEILE ZU LANG",0;TXT 11..BY"GET "
,0;TXT 12..BY"SAVE ",0;TXT 13..BY"MERGE
",0;TXT 14..BY"ZU WENIG SPEICHER",0;TXT
15..BYSTATCOL,".EDIT ZEILE:",0;TXT 16..
BY"P:. F:. I:. Q:.",0;TXT 17..BY"POS:",0
;TXT 18..BY"ZEILEN: ",0;TXT 19..BY"KOMMA
NDO NICHT DEFINIERT",0;TXT 20..BY"KEIN B
LOCK DEFINIERT",0;TXT 21..BY"CURSOR STEH
T IM BLOCK",0;TXT 22..BY"DRUCKER A",0;TX
T 23..BY"ZEILE: ",0;TXT 24..BY"EINGABE U
NZULAESSIG",0;TXT 25..BY"VERIFY FEHLER",
0;TXT 26..BY"VERIFY ",0;TXT 27..BY"SUCHE
:",0;TXT 28..BY"ERSATZ: ",0;TXT 29..BY"T
EXT NICHT GEFUNDEN",0;TXT 30..BY"EDIT -
FIND ",0;TXT 31..BY"- SUBSTITUTE",0;TXT
32..BY"KANN NICHT ERSETZT WERDEN",0;TXT
33..BY"PROGRAM FIX UNUSED ALL ? ",0;TXT
34..BY13,"LABEL-FILE:",13,13,0;TXT 35. .
.BY"SPRUNG ZU LANG",0;TXT36..BY"OPERAND"
,0;TXT 37..BY"SYMBOLANZAHL",0;TXT 38..BY
"ADR. UNBEKANNT",0;TXT 39..BY"ADR. NICHT
MOEGLICH",0;TXT 40..BY"SYMBOL DOPPELT",
0;TXT 41..BY"SYMBOL UNBEKANNT",0;TXT 42.
.BY"BEFEHL UNBEKANNT",0;TXT 43..BY"OPERA
ND ZU GROSS",0;TXT 44..BY"VERSCHACHTELT"
,0;TXT 45..BY"SYMBOL FEHLT",0;TXT 46..BY
"BLOCK OFFEN",0;TXT 47..BY"BASIS FEHLT",
0;TXT 48..BY"BEFEHL DOPPELT",0;TXT 49..B
Y"MODE",0;TXT 50..BY" FEHLER",0;TXT 51..
BY13,"-- ",0;TXT 52..BY13,"** PASS ",0;T
XT 53..BY" **",13,0;TXT 54..BY"PROTOKOLL
DRUCKEN ? ",0;TXT55..BY"SYMBOL ZU LANG"
,0;TXT56..BY" IN ZEILE ",0;TXT 57..BY"FE
HLER: ",0;TXT 58..BY"ZEIT: ",0;TXT
59..BY"END-ADR.: ",0;TXT 60..BY"ZU VIEL
E OPERANDEN",0;TXT 61..BY".CONT ABORT ."
,0;TXT 62..BY".EDIT.",0;TXT 63. ..BY"..>
>> MONITOR <<<",13,0;TXT 64..BY13," PC
AC XR YR SP NV-BDIZC CHL SR PP",13,0;TX
T 65. ..BY"BERECHNUNGS",0;TXT 66. . .;**
*************************************.;*
* ZAHL1 EIN/AUSGABE * *.;
***************************************.
.ZAHLHEXOUT:LDAZAHL1+1;ZAHL1 HEX. AUSGE
BEN.JSRHEXOUT.LDAZAHL1. .HEXOUT:PHA;EIN
BYTE HEX AUSGEBEN.LSR;BYTE / 16.LSR.LSR.
LSR.JSRHEX;HI-NIBBLE AUSGEBEN.PLA.AND#%1
111;LOW-NIBBLE AUSGEBEN. .HEX:CLC;EIN NI
BBLE HEX AUSGEBEN.ADC#'0.CMP#':;>9?.BCCZ
A.ADC#6;TRANSFORMATION AUF 'A.ZA:JMPBSOU
T. .ZAHLDEZOUT:JSRPUSCH;ZAHL1 DEZIMAL AU
SGEBEN.LDX#3;ZAHL1/2 AUF STACK.RET:LDAZA
HL1,X.PHA.DEX.BPLRET.JSRZAHLTODEZ;ZAHL->
STRING AUF STACK.ASCOUT:PLA;ERZEUGTER ST
RING VON STACK.JSRBSOUT;AUSGEBEN.DEX.BPL
ASCOUT.LDX#0.RH:PLA;ZAHL1/2 VOM STACK.ST
AZAHL1,X.INX.CPX#4.BNERH.JMPPULL. .ZAHLT
ODEZ:PLA;RUECKSPRUNG MERKEN.STABUFFER+86
.PLA.STABUFFER+87.LDX#0;ZAHL2 = 10.STXZA
HL2+1.LDA#10.STAZAHL2.ASCII:JSRMOD;ZAHL3
:= ZAHL1 MOD ZAHL2.CLC;ZAHL3 ALS ZEICHE
N AUF STACK.LDAZAHL3.ADC#'0.PHA.INX.JSRD
IV;ZAHL3 = ZAHL1 DIV ZAHL2.LDAZAHL3+1;ZA
HL1 = ZAHL3.STAZAHL1+1.LDAZAHL3.STAZAHL1
;ZAHL1=0 ?.ORAZAHL1+1.BNEASCII;NEIN - WE
ITER.DEX.LDABUFFER+87.PHA.LDABUFFER+86.P
HA.RTS. .ZAHLBINOUT:LDX#16;ZAHL1 BIN. AU
SGEBEN.ROZA:ROLZAHL1;STELLE -> CARRY.ROL
ZAHL1+1.PHP.LDA#0;CARRY + '0.ADC#'0.JSRB
SOUT;AUSGEBEN.PLP.DEX.BNEROZA.ROLZAHL1;Z
AHL1 KORRIGIEREN.ROLZAHL1+1.RTS. .ZAHLOC
TOUT:LDAZAHL1;ZAHL1 OCT. AUSGEBEN.PHA;ZA
HL1 RETTEN.LDAZAHL1+1.PHA.LDX#0.OCTOUT:L
DAZAHL1;3 BIT -> STELLE.AND#%111.CLC.ADC
#'0.PHA;ALS ZEICHEN AUF STACK.INX;ZEICHE
NZAEHLER+1.JSRRORZA;ZAHL1 / 8.JSRRORZA.J
SRRORZA.LDAZAHL1;ZAHL1=0 ?.ORAZAHL1+1.BN
EOCTOUT;NEIN.OO:PLA;STRING VOM STACK.JSR
BSOUT.DEX.BNEOO.PLA;ZAHL1 ZURUECKHOLEN.S
TAZAHL1+1.PLA.STAZAHL1.RTS.RORZA:LSRZAHL
1+1;ZAHL1 DIV 2.RORZAHL1.RTS. .ZAHLIN:LD
A#0;ZAHL1 EINLESEN.STAZAHL1;ZAHL1=0.STAZ
AHL1+1.ZIN:JSRBASIN;ERSTES ZEICHEN HOLEN
.CMP#32.BEQZIN.CMP#'$;HEXZAHL ?.BEQHEXIN
.CMP#'%;BINZAHL ?.BEQBININ.CMP#'&;OCTZAH
L ?.BEQOKTIN.CMP#39;ZEICHEN ? (Z.B.'Y).B
EQCHARIN. .DEZIN:SEC;DEZIMAL EINLESEN.SB
C#'0.BMIRTZAHL;ILLEGALES ZEICHEN.CMP#10.
BCSRTZAHL;ILL. ZEICHEN.PHA.JSRZMAL10;ZAH
L1 * 10.PLA.CLC;ZAHL1 + ZIFFER.ADCZAHL1.
STAZAHL1.BCCNOC.INCZAHL1+1.NOC:JSRBASIN;
NEXT ZEICHEN.JMPDEZIN.RTZAHL:RTS. .BININ
:JSRBASIN;BIN. EINLESEN.SEC.SBC#'0.BMIRT
ZAHL;ILL. ZEICHEN.CMP#2.BCSRTZAHL;ILL. Z
EICHEN.LSR;ZIFFER -> CARRY.ROLZAHL1;CARR
Y -> BIT IN ZAHL1.ROLZAHL1+1.JMPBININ. .
HEXIN:JSRBASIN;HEX. EINLESEN.SEC.SBC#'0.
BMIRTZAHL;ILL. ZEICHEN.CMP#10.BCCOKZAHL.
SBC#7.CMP#16.BCSRTZAHL;ILL. ZEICHEN.CMP#
10.BCCRTZAHL;ILL. ZEICHEN.OKZAHL:JSRZMAL
4;ZAHL1 * 16.JSRZMAL4.CLC;ZAHL1 + ZIFFER
.ADCZAHL1.STAZAHL1.JMPHEXIN. .OKTIN:JSRB
ASIN;OCT. EINLESEN.SEC.SBC#'0.BMIRTZAHL;
ILL. ZEICHEN.CMP#8.BCSRTZAHL;ILL. ZEICHE
N.JSRZMAL4;ZAHL1 * 8.ASLZAHL1.ROLZAHL1+1
.CLC;ZAHL1 + ZIFFER.ADCZAHL1.STAZAHL1.JM
POKTIN. .CHARIN:JSRBASIN;ZAHL1 = ZEICHEN
.STAZAHL1.JMPBASIN. .ZMAL4:ASLZAHL1;ZAHL
1 * 4.ROLZAHL1+1.ASLZAHL1.ROLZAHL1+1.RTS
. .ZMAL10:ASLZAHL1;ZAHL1 * 10.ROLZAHL1+1
.LDAZAHL1+1;ZAHL1 * 2 AUF STACK.PHA.LDAZ
AHL1.PHA.JSRZMAL4;ZAHL1=ZAHL1 * 8.CLC.PL
A.ADCZAHL1;ZAHL1=ZAHL1*8+ZAHL1*2.STAZAHL
1.PLA.ADCZAHL1+1.STAZAHL1+1.RTS. .;*****
**********************************.;* *
ARITHMETIKROUTINEN * *.;***
************************************. .;
ZAHL3:=ZAHL1*ZAHL2.MULT:JSRPUSCH.JSRZAHL
TOMEM;ZAHL1/2->MEM1.LDA#0;ZAHL3=0.STAZAH
L3.STAZAHL3+1.LDX#16;16-BIT.MULO:LSRMEM3
+1;2.ZAHL DIV 2.RORMEM3.BCCNOAD.CLC;BIT
GESETZT.LDAZAHL3;ZAHL3 = ZAHL3 + 1.ZAHL.
ADCMEM1.STAZAHL3.LDAZAHL3+1.ADCMEM1+1.ST
AZAHL3+1.NOAD:ASLMEM1;1.ZAHL * 2.ROLMEM1
+1.DEX;WEITER.BNEMULO.JMPPULL. .;ZAHL3:=
ZAHL1 DIV ZAHL2 (DIV=GANZZAHLIGE DIVISIO
N).DIV:JSRPUSCH.JSRZAHLTOMEM;ZAHL1/2->ME
M1.JSRDIVIDE;DIVIDIEREN.JMPPULL. .;ZAHL3
:=ZAHL1 MOD ZAHL2 (MOD=DIVISIONSREST).MO
D:JSRPUSCH.JSRZAHLTOMEM;ZAHL1/2->MEM1.JS
RDIVIDE;DIVIDIEREN.LDX#1;REST->ZAHL3.MOD
L:LDAMEM1,X.STAZAHL3,X.DEX.BPLMODL.JMPPU
LL. .;** DIVIDE UNTERPROGRAMM DIV/MOD
**.DIVIDE:LDX#1;DIVIDIEREN.LDA#0;ZAHL3=
0.STAZAHL3.STAZAHL3+1.L1:LDAMEM3+1;2.ZAH
L LINKSBUENDIG MACHEN.BMIL2.ASLMEM3.ROLM
EM3+1.INX;DIVISIONSZAEHLER + 1.BNEL1;WEI
TER.L2:SEC;1.ZAHL1 - 2.ZAHL.LDAMEM1.SBCM
EM3.STAMEM1.LDAMEM1+1.SBCMEM3+1.STAMEM1+
1.BCSL3;ERGEBNIS POSITIV.LDAMEM1;1.ZAHL
+ 2.ZAHL.ADCMEM3.STAMEM1.LDAMEM1+1.ADCME
M3+1.STAMEM1+1.CLC.L3:ROLZAHL3;ZAHL3 * 2
.ROLZAHL3+1.DEX;DIVISIONZAEHLER -1.BNE*+
3.RTS.RORMEM3+1;2.ZAHL DIV 2.RORMEM3.JMP
L2;WEITER. .;***************************
************.;* * RAM-ROUTINEN
* *.;*************************
**************. .;DIE RAM-ROUTINEN DIENE
N DEN ZUGRIFF AUF DEN GESAMTEN SPEICHER.
;IN DER MODULVERSION. DA BEI DEM ZUGIFF
AUF DIESEN SPEICHER DAS.;MODUL ABGESCHAL
TET WIRD, MUESSEN DIE ZUGRIFFSROUTINEN I
N DAS.;RAM AUSGELAGERT WERDEN.. .PUTRAMR
O:LDY#RAMROEND-RAMROANF-1;ROUTINEN.PUT:L
DARAMROANF,Y;KOPIEREN.STAROUTINEN,Y.DEY.
BPLPUT.RTS. .PUTCOPY:LDY#COEND-COANF-1;C
OPYROUTINE.PUT2:LDACOANF,Y;KOPIEREN.STAR
OUTINEN,Y.DEY.BPLPUT2.RTS. .PUTRUNRO:LDY
#RUNEND-RUNANF-1;RUN-ROUTINE.PUT3:LDARUN
ANF,Y;KOPIEREN.STAROUTINEN,Y.DEY.BPLPUT3
.RTS. .PUTRO2:LDY#LBLROEND-LBLROANF-1;AS
SEMBLER-ROUTINEN.PUT4:LDALBLROANF,Y;KOPI
EREN.STAROUTINE2,Y.DEY.BPLPUT4.RTS. .PUZ
ADR:LDY#ZADREND-ZADRANF-1;EDITOR-ROUTINE
.PUT5:LDAZADRANF,Y;KOPIEREN.STAROUTINEN,
Y.DEY.BPLPUT5.RTS. .PUTMONRO:LDY#MROEND-
MROANF-1;MONITORERWEITERUNG-ROUTINEN.PUT
6:LDAMROANF,Y;KOPIEREN.STAROUTINEN,Y.DEY
.BPLPUT6.RTS. .RUNANF:.CLI;RUN-ROUTINE.L
DA#$37.STA1.JUMP:JSR$FFFF;DUMMY.LDA#NORM
AL.STA1.SEI.JMPRUNRETURN.RUNEND:. .COANF
:.SEI;COPY-ROUTINE.LDA#$34.STA1.LDA(ZG),
Y.STA(ZG2),Y.LDA#NORMAL.STA1.RTS.COEND:.
.RAMROANF:.RRO1:SEI;WERT VON ADRESSE ZG
HOLEN.LDA#$34.STA1.LDA(ZG),Y;WERT HOLEN
.PHA;MERKEN.LDA#NORMAL;SPEICHER NORMAL.S
TA1.PLA;WERT ZURUECKHOLEN.RTS. .RRO2:SEI
;WERT VON ADRESSE ZG2 HOLEN.LDA#$34.STA1
.LDA(ZG2),Y;WERT HOLEN.PHA;MERKEN.LDA#NO
RMAL;SPEICHER NORMAL.STA1.PLA;WERT ZURUE
CKHOLEN.RTS. .RRO3:PHA;WERT NACH ADRESSE
ZG.SEI.LDA#$34;ALLES RAM.STA1.PLA.PHA;S
PEICHERN UND MERKEN.STA(ZG),Y.LDA#NORMAL
;SPEICHER NORMAL.STA1.PLA;WERT ZURUECKHO
LEN.RTS. .RRO4:PHA;WERT NACH ADRESSE ZG2
.SEI.LDA#$34;ALLES RAM.STA1.PLA.PHA;SPEI
CHERN UND MERKEN.STA(ZG2),Y.LDA#NORMAL.S
TA1.PLA;WERT ZURUECKHOLEN.RTS.RAMROEND:.
.LBLROANF:.SEI;ASS. ROUTINE LABEL SUCHE
N.LDA#$34.STA1.FIRST:LDX#0.LDA(ZG2),Y.BE
QSLRT2;KEINE LABEL.CMPBUFFER2,X;ERSTES Z
EICHEN.BEQFOLBL?;GLEICH.BCSSLRT2;GROESSE
R -> NICHT GEFUNDEN.ADZG:INCZG2;NAECHSTE
S LABEL SUCHEN.BNE*+4.INCZG2+1.LDA(ZG2),
Y.CMP#4.BCSADZG.CLC;ZG + LABELWERTOFFSET
.LDAZG2.ADC#3.STAZG2.BCCFIRST.INCZG2+1.B
NEFIRST;WEITERSUCHEN.FOLBL?:INX;WEITERE
ZEICHEN VERGLEICHEN.INY.LDABUFFER2,X.BEQ
ELBL;LABELENDE.LDA(ZG2),Y.CMPBUFFER2,X.B
EQFOLBL?;NEXT ZEICHEN.BCSSLRT2;GROESSER-
> NICHT GEFUNDEN.LDY#0;NEXT LABEL.BEQADZ
G.ELBL:LDA(ZG2),Y;EINTRAGENDE ?.CMP#4.BC
CFOLBL;GEFUNDEN.BCSSLRT2;NEIN-> NICHT GE
FUNDEN.FOLBL:STALABELTYP;LABELTYP HOLEN.
LDAASSFLAGS.AND#2.BEQNOTUSED.LDALABELTYP
;ALS BENUTZT KENNZEICHNEN.ORA#2.STA(ZG2)
,Y.NOTUSED:INY;LABELWERT HOLEN.LDA(ZG2),
Y.INY.STALABELWERT.LDA(ZG2),Y.STALABELWE
RT+1.SLRT2:LDA#NORMAL;ZURUECK.STA1.RTS.
.VLBLROMA:.LDA#$34;ROUTINE FUER LABEL VE
RSCHIEBEN.STA1.LDY#0.LDA(ZG2),Y.LDYLBLLE
N.STA(ZG2),Y.BNESLRT2.BEQSLRT2.LBLROEND:
. .ZADRANF:.SEI;ADRESSE DER ZEILE SUCHEN
.LDA#$34.STA1.ALINE:INCMEM1;ZEILE+1.BNES
UCH.INCMEM1+1.SUCH:LDAMEM1;GESUCHTE ZEIL
E ?.CMPZAHL1.BNESUCHL.LDAMEM2.CMPZAHL1+1
.BNESUCHL.LDA#NORMAL;JA.STA1.RTS.SEL:LDA
(ZG),Y;ZEILENENDE ?.BEQALINE.SUCHL:INY;N
AECHSTE ZEILE.BNESEL.INCZG+1.BNESEL.ZADR
END:. .MROANF:.SEI;MONITOR - ROUTINEN.LD
APP;SPEICHERVERTEILUNG SETZEN.STA1.PLA.P
LP;ROUTINE AUFRUFEN.JUBEF:JSR$FFFF;DUMMY
.PHP.PHA.LDA#NORMAL;UND ZURUECK.STA1.JMP
MONITOR+3. .BRKJU:LDA#NORMAL.STA1.JMPMON
ITOR+6. .MRO1:SEI;WERT VON ADRESSE ZG HO
LEN.LDAPP.STA1.LDA(ZG),Y;WERT HOLEN.PHA;
MERKEN.LDA#NORMAL;SPEICHER NORMAL.STA1.P
LA;WERT ZURUECKHOLEN.RTS. .MRO2:PHA;WERT
NACH ADRESSE ZG.SEI.LDA#$34;ALLES RAM.S
TA1.PLA.PHA;SPEICHERN UND MERKEN.STA(ZG)
,Y.LDA#NORMAL;SPEICHER NORMAL.STA1.PLA;W
ERT ZURUECKHOLEN.RTS.MROEND:. .;STARTADR
ESSEN DER ROUTINEN BERECHNEN.RAMCOPY:.EQ
ROUTINEN.HOLZG:.EQROUTINEN.HOLZG2:.EQHOL
ZG+RRO2-RAMROANF.PUTZG:.EQHOLZG+RRO3-RAM
ROANF.PUTZG2:.EQHOLZG+RRO4-RAMROANF.DORU
N:.EQROUTINEN.JUMPADR:.EQDORUN+JUMP-RUNA
NF+1.MERKFELD:.EQDORUN+RUNEND-RUNANF.VLB
LRO:.EQROUTINE2+VLBLROMA-LBLROANF.ZGET:.
EQROUTINEN+MRO1-MROANF.ZPUT:.EQROUTINEN+
MRO2-MROANF.JUMPBEFEHL:.EQROUTINEN+JUBEF
-MROANF.BREAKJUMP:.EQROUTINEN+BRKJU-MROA
NF. .;**********************************
*****.;* * LOAD-ROUTINE
* *.;********************************
*******. .VERIFY:LDA#1;FLAG FUER VERIFY.
.BY$2C. .LOAD:LDA#0.STAZAHL3;FLAG FUER L
OAD/VERIFY.LDATXTANF;ZG AUF TEXTANFANG.S
TAZG.LDATXTANF+1.STAZG+1.LDX#12;TEXTNUMM
ER FUER LOAD.LDAZAHL3.BEQLOAP.LDX#27;TEX
TNUMMER FUER VERIFY.BNELOAP. .MERGE:JSRP
OINTER;MERGE.LDA#0;LOADFLAG.STAZAHL3.LDA
TXTPOINT;ZG AUF TEXTENDE.STAZG.LDATXTPOI
NT+1.STAZG+1.LDX#14;TEXTNUMMER FUER MERG
E.LOAP:JSRWRITE.LDX#6.JSRWRITE.JSRSTR16I
N;FILENAME HOLEN.TYA.BNE*+5.JMPMAINRT.JS
RDISKINIT.LDX#<BUFFER;NAMEN SETZEN.LDY#>
BUFFER.JSRSETNAME.LDA#1;FLOPPYPARAMETER
SETZEN.LDX#FLODEV.LDY#0.JSRSETPARA.JSROP
EN;FILE OEFFNEN.LDX#1;EINGABE VON FLOPPY
.JSRCHKIN.JSRBASIN;FILELAENGE HOLEN.STAM
EM1.LDASTATUS.BEQINOK.JSRCLOALL;FLOPPY E
RROR.JMPDIERR.INOK:JSRBASIN.STAMEM2.CLC;
AUF SPEICHERPLATZ TESTEN.LDAMEM1.ADCZG.S
TAZAHL1.LDAMEM2.ADCZG+1.STAZAHL1+1;ZAHL
1=PLATZBEDARF.BCSNORAM.LDATXTEND.STAZAHL
2.LDATXTEND+1.STAZAHL2+1.JSRVERGLEICH;BE
DARF MIT PLATZ VERGLEICHEN.BCCLADEN.NORA
M:JSRNEXTZEI;ZU WENIG SPEICHER.LDX#15.LO
MEVEERR:JSRBEEP.JSRWRITE.JSRCLOALL.JMPMA
INRT.LADEN:JSRBASIN;FILE LADEN.LDY#0.LDX
ZAHL3.BNEVERI.JSRPUTZG;ZEICHEN->RAM.JMPL
OADCONT.VERI:STAMEM4;ZEICHEN VERGLEICHEN
.JSRHOLZG.CMPMEM4.BEQLOADCONT.LDX#26;VER
IFY ERROR.JSRNEXTZEI.JMPLOMEVEERR.LOADCO
NT:INCZG;ZG+1.BNE*+4.INCZG+1.LDASTATUS;F
ILEENDE ?.BEQLADEN;NEIN.JSRCLOALL.JSRPOI
NTER.JSRBEEP.JMPMAINRT. .;**************
*************************.;* *
SAVE-ROUTINE * *.;************
***************************. .SAVE:JSRPO
INTER.SEC;ZAHL1 = FILELAENGE.LDATXTPOINT
.SBCTXTANF.STAZAHL1.LDATXTPOINT+1.SBCTXT
ANF+1.STAZAHL1+1.LDX#13;FILENAMEN HOLEN.
JSRWRITE.LDX#6.JSRWRITE.JSRSTR16IN.TYA.B
NE*+5.JMPMAINRT.JSRDISKINIT.LDX#<BUFFER;
FILEPARAMETER SETZEN.LDY#>BUFFER.JSRSETN
AME.LDA#1.LDX#FLODEV.TAY.JSRSETPARA.JSRO
PEN.LDX#1;AUSGABE AUF DISK.JSRCKOUT.LDAZ
AHL1;FILELAENGE AUSGEBEN.JSRBSOUT.LDAZAH
L1+1.JSRBSOUT.LDASTATUS;STATUS TESTEN.BE
QOUTOK.JSRCLOALL;SAVE-ERROR (FILE EXISTS
ETC.).JMPDIERR.OUTOK:JSRZGTEXT.OUTD:JSR
HOLZG;ZEICHEN AUSGEBEN.JSRBSOUT.INCZG;ZG
+1.BNE*+4.INCZG+1.CMP#0;TEXTENDE ?.BNEOU
TD;NEIN.JSRHOLZG.BNEOUTD;NEIN.JSRBSOUT.J
SRCLOALL.JSRBEEP.JMPMAINRT. ..FI"EDIT 1"
...
> CLICK IMAGE PREVIEW FOR FULL MODAL