MAIN
FILE INFORMATION
FILENAME(S): MAIN
FILE TYPE(S): PRG
FILE SIZE: 14K
FIRST SEEN: 2025-11-02 16:30:43
APPEARS ON: 2 disk(s)
FILE HASH
c50af8227600cd130d06cefe548d9b43ae5f9683160c7bb3080b8fc1e3b95076
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ORION CEBIT | MAIN | PRG | Treasure Chest - OzzyC64 | 19 | 0 | DOWNLOAD FILE |
| ORION CEBIT | MAIN | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: F1 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 30 32 2F 38 38 20 20 20 20 20 20 20 |ESE 02/88 | 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 20 00 2E 42 59 22 C5 2D C5 44 49 |3,13. ..BY".-.DI| 000007B0: 54 20 20 20 20 20 D2 2D D2 55 4E 20 20 20 20 20 |T .-.UN | 000007C0: C7 2D C7 45 54 20 20 20 20 20 C6 2D C6 4C 4F 50 |.-.ET .-.LOP| 000007D0: 50 59 20 22 00 2E 42 59 22 C1 2D C1 53 53 45 4D |PY "..BY".-.SSEM| 000007E0: 42 4C 45 20 C9 2D C9 4E 49 54 20 20 20 20 D3 2D |BLE .-.NIT .-| 000007F0: D3 41 56 45 20 20 20 20 C3 2D C3 41 54 41 4C 4F |.AVE .-.ATALO| 00000800: 47 22 00 2E 42 59 22 D0 2D D0 41 53 53 20 20 20 |G"..BY".-.ASS | 00000810: 20 20 CC 2D CC 41 42 45 4C 20 20 20 CD 2D CD 45 | .-.ABEL .-.E| 00000820: 52 47 45 20 20 20 C4 2D C4 49 53 4B C3 4D 44 22 |RGE .-.ISK.MD"| 00000830: 00 2E 42 59 22 C2 2D C2 41 43 4B 20 20 20 20 20 |..BY".-.ACK | 00000840: D4 2D C4 52 55 43 4B 45 52 20 D6 2D D6 45 52 49 |.-.RUCKER .-.ERI| 00000850: 46 59 20 20 CE 2D CD 4F 4E 49 54 4F 52 22 00 2E |FY .-.ONITOR"..| 00000860: 42 59 22 C8 2D C8 45 4C 50 20 20 20 20 20 CF 2D |BY".-.ELP .-| 00000870: CF 50 54 49 4F 4E 53 20 D7 2D D7 52 49 54 45 22 |.PTIONS .-.RITE"| 00000880: 2C 31 33 2C 31 33 2C 31 33 2C 30 00 20 00 2E 42 |,13,13,13,0. ..B| 00000890: 59 22 D4 45 58 54 3A 20 20 24 22 2C 30 3B 54 58 |Y".EXT: $",0;TX| 000008A0: 54 20 31 00 2E 42 59 22 CC 41 42 45 4C 3A 20 24 |T 1..BY".ABEL: $| 000008B0: 22 2C 30 3B 54 58 54 20 32 00 2E 42 59 22 D3 49 |",0;TXT 2..BY".I| 000008C0: 4E 44 20 D3 49 45 20 53 49 43 48 45 52 3F 20 28 |ND .IE SICHER? (| 000008D0: 4A 2F 4E 29 22 2C 31 33 2C 30 3B 54 58 54 20 33 |J/N)",13,0;TXT 3| 000008E0: 00 2E 42 59 22 C1 4C 4C 45 53 20 41 55 46 20 D2 |..BY".LLES AUF .| 000008F0: C1 CD 20 3F 22 2C 30 3B 54 58 54 20 34 00 2E 42 |.. ?",0;TXT 4..B| 00000900: 59 22 C1 44 52 45 53 53 45 3A 20 22 2C 30 3B 54 |Y".DRESSE: ",0;T| 00000910: 58 54 20 35 00 2E 42 59 22 C4 41 54 45 49 4E 41 |XT 5..BY".ATEINA| 00000920: 4D 45 3A 20 22 2C 30 3B 54 58 54 20 36 00 2E 42 |ME: ",0;TXT 6..B| 00000930: 59 22 C3 41 54 41 4C 4F 47 2D CD 41 53 4B 45 3A |Y".ATALOG-.ASKE:| 00000940: 20 22 2C 30 3B 54 58 54 20 37 00 2E 42 59 22 C2 | ",0;TXT 7..BY".| 00000950: 45 46 45 48 4C 3A 20 22 2C 30 3B 54 58 54 20 38 |EFEHL: ",0;TXT 8| 00000960: 00 2E 42 59 22 2D 24 22 2C 30 3B 54 58 54 20 39 |..BY"-$",0;TXT 9| 00000970: 00 2E 42 59 22 20 20 C7 45 46 55 45 4C 4C 54 3A |..BY" .EFUELLT:| 00000980: 20 24 22 2C 30 3B 54 58 54 20 31 30 00 2E 42 59 | $",0;TXT 10..BY| 00000990: 22 DA 45 49 4C 45 20 5A 55 20 4C 41 4E 47 22 2C |".EILE ZU LANG",| 000009A0: 30 3B 54 58 54 20 31 31 00 2E 42 59 22 C7 45 54 |0;TXT 11..BY".ET| 000009B0: 20 22 2C 30 3B 54 58 54 20 31 32 00 2E 42 59 22 | ",0;TXT 12..BY"| 000009C0: D3 41 56 45 20 22 2C 30 3B 54 58 54 20 31 33 00 |.AVE ",0;TXT 13.| 000009D0: 2E 42 59 22 CD 45 52 47 45 20 22 2C 30 3B 54 58 |.BY".ERGE ",0;TX| 000009E0: 54 20 31 34 00 2E 42 59 22 DA 55 20 57 45 4E 49 |T 14..BY".U WENI| 000009F0: 47 20 D3 50 45 49 43 48 45 52 22 2C 30 3B 54 58 |G .PEICHER",0;TX| 00000A00: 54 20 31 35 00 2E 42 59 53 54 41 54 43 4F 4C 2C |T 15..BYSTATCOL,| 00000A10: 22 12 C5 44 49 54 20 20 DA 45 49 4C 45 3A 22 2C |"..DIT .EILE:",| 00000A20: 30 3B 54 58 54 20 31 36 00 2E 42 59 22 D0 3A 1D |0;TXT 16..BY".:.| 00000A30: 20 C6 3A 1D 20 C9 3A 1D 20 D1 3A 1D 22 2C 30 3B | .:. .:. .:.",0;| 00000A40: 54 58 54 20 31 37 00 2E 42 59 22 D0 4F 53 3A 22 |TXT 17..BY".OS:"| 00000A50: 2C 30 3B 54 58 54 20 31 38 00 2E 42 59 22 DA 45 |,0;TXT 18..BY".E| 00000A60: 49 4C 45 4E 3A 20 22 2C 30 3B 54 58 54 20 31 39 |ILEN: ",0;TXT 19| 00000A70: 00 2E 42 59 22 CB 4F 4D 4D 41 4E 44 4F 20 4E 49 |..BY".OMMANDO NI| 00000A80: 43 48 54 20 44 45 46 49 4E 49 45 52 54 22 2C 30 |CHT DEFINIERT",0| 00000A90: 3B 54 58 54 20 32 30 00 2E 42 59 22 CB 45 49 4E |;TXT 20..BY".EIN| 00000AA0: 20 C2 4C 4F 43 4B 20 44 45 46 49 4E 49 45 52 54 | .LOCK DEFINIERT| 00000AB0: 22 2C 30 3B 54 58 54 20 32 31 00 2E 42 59 22 C3 |",0;TXT 21..BY".| 00000AC0: 55 52 53 4F 52 20 53 54 45 48 54 20 49 4D 20 C2 |URSOR STEHT IM .| 00000AD0: 4C 4F 43 4B 22 2C 30 3B 54 58 54 20 32 32 00 2E |LOCK",0;TXT 22..| 00000AE0: 42 59 22 C4 52 55 43 4B 45 52 20 41 22 2C 30 3B |BY".RUCKER A",0;| 00000AF0: 54 58 54 20 32 33 00 2E 42 59 22 DA 45 49 4C 45 |TXT 23..BY".EILE| 00000B00: 3A 20 22 2C 30 3B 54 58 54 20 32 34 00 2E 42 59 |: ",0;TXT 24..BY| 00000B10: 22 C5 49 4E 47 41 42 45 20 55 4E 5A 55 4C 41 45 |".INGABE UNZULAE| 00000B20: 53 53 49 47 22 2C 30 3B 54 58 54 20 32 35 00 2E |SSIG",0;TXT 25..| 00000B30: 42 59 22 D6 45 52 49 46 59 20 C6 45 48 4C 45 52 |BY".ERIFY .EHLER| 00000B40: 22 2C 30 3B 54 58 54 20 32 36 00 2E 42 59 22 D6 |",0;TXT 26..BY".| 00000B50: 45 52 49 46 59 20 22 2C 30 3B 54 58 54 20 32 37 |ERIFY ",0;TXT 27| 00000B60: 00 2E 42 59 22 D3 55 43 48 45 3A 22 2C 30 3B 54 |..BY".UCHE:",0;T| 00000B70: 58 54 20 32 38 00 2E 42 59 22 C5 52 53 41 54 5A |XT 28..BY".RSATZ| 00000B80: 3A 20 22 2C 30 3B 54 58 54 20 32 39 00 2E 42 59 |: ",0;TXT 29..BY| 00000B90: 22 D4 45 58 54 20 4E 49 43 48 54 20 47 45 46 55 |".EXT NICHT GEFU| 00000BA0: 4E 44 45 4E 22 2C 30 3B 54 58 54 20 33 30 00 2E |NDEN",0;TXT 30..| 00000BB0: 42 59 22 C5 44 49 54 20 2D 20 C6 49 4E 44 20 22 |BY".DIT - .IND "| 00000BC0: 2C 30 3B 54 58 54 20 33 31 00 2E 42 59 22 2D 20 |,0;TXT 31..BY"- | 00000BD0: D3 55 42 53 54 49 54 55 54 45 22 2C 30 3B 54 58 |.UBSTITUTE",0;TX| 00000BE0: 54 20 33 32 00 2E 42 59 22 CB 41 4E 4E 20 4E 49 |T 32..BY".ANN NI| 00000BF0: 43 48 54 20 45 52 53 45 54 5A 54 20 57 45 52 44 |CHT ERSETZT WERD| 00000C00: 45 4E 22 2C 30 3B 54 58 54 20 33 33 00 2E 42 59 |EN",0;TXT 33..BY| 00000C10: 22 D0 52 4F 47 52 41 4D 20 C6 49 58 20 D5 4E 55 |".ROGRAM .IX .NU| 00000C20: 53 45 44 20 C1 4C 4C 20 3F 20 22 2C 30 3B 54 58 |SED .LL ? ",0;TX| 00000C30: 54 20 33 34 00 2E 42 59 31 33 2C 22 CC 41 42 45 |T 34..BY13,".ABE| 00000C40: 4C 2D C6 49 4C 45 3A 22 2C 31 33 2C 31 33 2C 30 |L-.ILE:",13,13,0| 00000C50: 3B 54 58 54 20 33 35 00 20 00 2E 42 59 22 D3 50 |;TXT 35. ..BY".P| 00000C60: 52 55 4E 47 20 5A 55 20 4C 41 4E 47 22 2C 30 3B |RUNG ZU LANG",0;| 00000C70: 54 58 54 33 36 00 2E 42 59 22 CF 50 45 52 41 4E |TXT36..BY".PERAN| 00000C80: 44 22 2C 30 3B 54 58 54 20 33 37 00 2E 42 59 22 |D",0;TXT 37..BY"| 00000C90: D3 59 4D 42 4F 4C 41 4E 5A 41 48 4C 22 2C 30 3B |.YMBOLANZAHL",0;| 00000CA0: 54 58 54 20 33 38 00 2E 42 59 22 C1 44 52 2E 20 |TXT 38..BY".DR. | 00000CB0: 55 4E 42 45 4B 41 4E 4E 54 22 2C 30 3B 54 58 54 |UNBEKANNT",0;TXT| 00000CC0: 20 33 39 00 2E 42 59 22 C1 44 52 2E 20 4E 49 43 | 39..BY".DR. NIC| 00000CD0: 48 54 20 4D 4F 45 47 4C 49 43 48 22 2C 30 3B 54 |HT MOEGLICH",0;T| 00000CE0: 58 54 20 34 30 00 2E 42 59 22 D3 59 4D 42 4F 4C |XT 40..BY".YMBOL| 00000CF0: 20 44 4F 50 50 45 4C 54 22 2C 30 3B 54 58 54 20 | DOPPELT",0;TXT | 00000D00: 34 31 00 2E 42 59 22 D3 59 4D 42 4F 4C 20 55 4E |41..BY".YMBOL UN| 00000D10: 42 45 4B 41 4E 4E 54 22 2C 30 3B 54 58 54 20 34 |BEKANNT",0;TXT 4| 00000D20: 32 00 2E 42 59 22 C2 45 46 45 48 4C 20 55 4E 42 |2..BY".EFEHL UNB| 00000D30: 45 4B 41 4E 4E 54 22 2C 30 3B 54 58 54 20 34 33 |EKANNT",0;TXT 43| 00000D40: 00 2E 42 59 22 CF 50 45 52 41 4E 44 20 5A 55 20 |..BY".PERAND ZU | 00000D50: 47 52 4F 53 53 22 2C 30 3B 54 58 54 20 34 34 00 |GROSS",0;TXT 44.| 00000D60: 2E 42 59 22 D6 45 52 53 43 48 41 43 48 54 45 4C |.BY".ERSCHACHTEL| 00000D70: 54 22 2C 30 3B 54 58 54 20 34 35 00 2E 42 59 22 |T",0;TXT 45..BY"| 00000D80: D3 59 4D 42 4F 4C 20 46 45 48 4C 54 22 2C 30 3B |.YMBOL FEHLT",0;| 00000D90: 54 58 54 20 34 36 00 2E 42 59 22 C2 4C 4F 43 4B |TXT 46..BY".LOCK| 00000DA0: 20 4F 46 46 45 4E 22 2C 30 3B 54 58 54 20 34 37 | OFFEN",0;TXT 47| 00000DB0: 00 2E 42 59 22 C2 41 53 49 53 20 46 45 48 4C 54 |..BY".ASIS FEHLT| 00000DC0: 22 2C 30 3B 54 58 54 20 34 38 00 2E 42 59 22 C2 |",0;TXT 48..BY".| 00000DD0: 45 46 45 48 4C 20 44 4F 50 50 45 4C 54 22 2C 30 |EFEHL DOPPELT",0| 00000DE0: 3B 54 58 54 20 34 39 00 2E 42 59 22 CD 4F 44 45 |;TXT 49..BY".ODE| 00000DF0: 22 2C 30 3B 54 58 54 20 35 30 00 2E 42 59 22 20 |",0;TXT 50..BY" | 00000E00: C6 45 48 4C 45 52 22 2C 30 3B 54 58 54 20 35 31 |.EHLER",0;TXT 51| 00000E10: 00 2E 42 59 31 33 2C 22 2D 2D 20 22 2C 30 3B 54 |..BY13,"-- ",0;T| 00000E20: 58 54 20 35 32 00 2E 42 59 31 33 2C 22 2A 2A 20 |XT 52..BY13,"** | 00000E30: D0 41 53 53 20 22 2C 30 3B 54 58 54 20 35 33 00 |.ASS ",0;TXT 53.| 00000E40: 2E 42 59 22 20 2A 2A 22 2C 31 33 2C 30 3B 54 58 |.BY" **",13,0;TX| 00000E50: 54 20 35 34 00 2E 42 59 22 D0 52 4F 54 4F 4B 4F |T 54..BY".ROTOKO| 00000E60: 4C 4C 20 44 52 55 43 4B 45 4E 20 3F 20 22 2C 30 |LL DRUCKEN ? ",0| 00000E70: 3B 54 58 54 35 35 00 2E 42 59 22 D3 59 4D 42 4F |;TXT55..BY".YMBO| 00000E80: 4C 20 5A 55 20 4C 41 4E 47 22 2C 30 3B 54 58 54 |L ZU LANG",0;TXT| 00000E90: 35 36 00 2E 42 59 22 20 49 4E 20 DA 45 49 4C 45 |56..BY" IN .EILE| 00000EA0: 20 22 2C 30 3B 54 58 54 20 35 37 00 2E 42 59 22 | ",0;TXT 57..BY"| 00000EB0: C6 45 48 4C 45 52 3A 20 20 20 22 2C 30 3B 54 58 |.EHLER: ",0;TX| 00000EC0: 54 20 35 38 00 2E 42 59 22 DA 45 49 54 3A 20 20 |T 58..BY".EIT: | 00000ED0: 20 20 20 22 2C 30 3B 54 58 54 20 35 39 00 2E 42 | ",0;TXT 59..B| 00000EE0: 59 22 C5 4E 44 2D C1 44 52 2E 3A 20 22 2C 30 3B |Y".ND-.DR.: ",0;| 00000EF0: 54 58 54 20 36 30 00 2E 42 59 22 DA 55 20 56 49 |TXT 60..BY".U VI| 00000F00: 45 4C 45 20 CF 50 45 52 41 4E 44 45 4E 22 2C 30 |ELE .PERANDEN",0| 00000F10: 3B 54 58 54 20 36 31 00 2E 42 59 22 12 C3 4F 4E |;TXT 61..BY"..ON| 00000F20: 54 20 C1 42 4F 52 54 20 92 22 2C 30 3B 54 58 54 |T .BORT .",0;TXT| 00000F30: 20 36 32 00 2E 42 59 22 12 C5 44 49 54 92 22 2C | 62..BY"..DIT.",| 00000F40: 30 3B 54 58 54 20 36 33 00 20 00 2E 42 59 22 93 |0;TXT 63. ..BY".| 00000F50: 11 3E 3E 3E 20 CD 4F 4E 49 54 4F 52 20 3C 3C 3C |.>>> .ONITOR <<<| 00000F60: 22 2C 31 33 2C 30 3B 54 58 54 20 36 34 00 2E 42 |",13,0;TXT 64..B| 00000F70: 59 31 33 2C 22 20 50 43 20 20 20 41 43 20 58 52 |Y13," PC AC XR| 00000F80: 20 59 52 20 53 50 20 4E 56 2D 42 44 49 5A 43 20 | YR SP NV-BDIZC | 00000F90: 43 48 4C 20 53 52 20 50 50 22 2C 31 33 2C 30 3B |CHL SR PP",13,0;| 00000FA0: 54 58 54 20 36 35 00 20 00 2E 42 59 22 C2 45 52 |TXT 65. ..BY".ER| 00000FB0: 45 43 48 4E 55 4E 47 53 22 2C 30 3B 54 58 54 20 |ECHNUNGS",0;TXT | 00000FC0: 36 36 00 20 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |66. . .;********| 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 2A 2A 00 |***************.| 00000FF0: 3B 2A 20 2A 20 20 20 20 20 20 DA 41 48 4C 31 20 |;* * .AHL1 | 00001000: C5 49 4E 2F C1 55 53 47 41 42 45 20 20 20 20 20 |.IN/.USGABE | 00001010: 20 20 20 20 20 2A 20 2A 00 3B 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 2A |****************| 00001040: 2A 00 20 00 5A 41 48 4C 48 45 58 4F 55 54 3A 4C |*. .ZAHLHEXOUT:L| 00001050: 44 41 5A 41 48 4C 31 2B 31 3B 5A 41 48 4C 31 20 |DAZAHL1+1;ZAHL1 | 00001060: 48 45 58 2E 20 41 55 53 47 45 42 45 4E 00 4A 53 |HEX. AUSGEBEN.JS| 00001070: 52 48 45 58 4F 55 54 00 4C 44 41 5A 41 48 4C 31 |RHEXOUT.LDAZAHL1| 00001080: 00 20 00 48 45 58 4F 55 54 3A 50 48 41 3B 45 49 |. .HEXOUT:PHA;EI| 00001090: 4E 20 C2 59 54 45 20 48 45 58 20 41 55 53 47 45 |N .YTE HEX AUSGE| 000010A0: 42 45 4E 00 4C 53 52 3B C2 59 54 45 20 2F 20 31 |BEN.LSR;.YTE / 1| 000010B0: 36 00 4C 53 52 00 4C 53 52 00 4C 53 52 00 4A 53 |6.LSR.LSR.LSR.JS| 000010C0: 52 48 45 58 3B C8 49 2D CE 49 42 42 4C 45 20 41 |RHEX;.I-.IBBLE A| 000010D0: 55 53 47 45 42 45 4E 00 50 4C 41 00 41 4E 44 23 |USGEBEN.PLA.AND#| 000010E0: 25 31 31 31 31 3B CC 4F 57 2D CE 49 42 42 4C 45 |%1111;.OW-.IBBLE| 000010F0: 20 41 55 53 47 45 42 45 4E 00 20 00 48 45 58 3A | AUSGEBEN. .HEX:| 00001100: 43 4C 43 3B 45 49 4E 20 CE 49 42 42 4C 45 20 48 |CLC;EIN .IBBLE H| 00001110: 45 58 20 41 55 53 47 45 42 45 4E 00 41 44 43 23 |EX AUSGEBEN.ADC#| 00001120: 27 30 00 43 4D 50 23 27 3A 3B 3E 39 3F 00 42 43 |'0.CMP#':;>9?.BC| 00001130: 43 5A 41 00 41 44 43 23 36 3B 54 52 41 4E 53 46 |CZA.ADC#6;TRANSF| 00001140: 4F 52 4D 41 54 49 4F 4E 20 41 55 46 20 27 41 00 |ORMATION AUF 'A.| 00001150: 5A 41 3A 4A 4D 50 42 53 4F 55 54 00 20 00 5A 41 |ZA:JMPBSOUT. .ZA| 00001160: 48 4C 44 45 5A 4F 55 54 3A 4A 53 52 50 55 53 43 |HLDEZOUT:JSRPUSC| 00001170: 48 3B 5A 41 48 4C 31 20 44 45 5A 49 4D 41 4C 20 |H;ZAHL1 DEZIMAL | 00001180: 41 55 53 47 45 42 45 4E 00 4C 44 58 23 33 3B 5A |AUSGEBEN.LDX#3;Z| 00001190: 41 48 4C 31 2F 32 20 41 55 46 20 D3 54 41 43 4B |AHL1/2 AUF .TACK| 000011A0: 00 52 45 54 3A 4C 44 41 5A 41 48 4C 31 2C 58 00 |.RET:LDAZAHL1,X.| 000011B0: 50 48 41 00 44 45 58 00 42 50 4C 52 45 54 00 4A |PHA.DEX.BPLRET.J| 000011C0: 53 52 5A 41 48 4C 54 4F 44 45 5A 3B 5A 41 48 4C |SRZAHLTODEZ;ZAHL| 000011D0: 2D 3E D3 54 52 49 4E 47 20 41 55 46 20 D3 54 41 |->.TRING AUF .TA| 000011E0: 43 4B 00 41 53 43 4F 55 54 3A 50 4C 41 3B 45 52 |CK.ASCOUT:PLA;ER| 000011F0: 5A 45 55 47 54 45 52 20 D3 54 52 49 4E 47 20 56 |ZEUGTER .TRING V| 00001200: 4F 4E 20 D3 54 41 43 4B 00 4A 53 52 42 53 4F 55 |ON .TACK.JSRBSOU| 00001210: 54 3B 41 55 53 47 45 42 45 4E 00 44 45 58 00 42 |T;AUSGEBEN.DEX.B| 00001220: 50 4C 41 53 43 4F 55 54 00 4C 44 58 23 30 00 52 |PLASCOUT.LDX#0.R| 00001230: 48 3A 50 4C 41 3B 5A 41 48 4C 31 2F 32 20 56 4F |H:PLA;ZAHL1/2 VO| 00001240: 4D 20 D3 54 41 43 4B 00 53 54 41 5A 41 48 4C 31 |M .TACK.STAZAHL1| 00001250: 2C 58 00 49 4E 58 00 43 50 58 23 34 00 42 4E 45 |,X.INX.CPX#4.BNE| 00001260: 52 48 00 4A 4D 50 50 55 4C 4C 00 20 00 5A 41 48 |RH.JMPPULL. .ZAH| 00001270: 4C 54 4F 44 45 5A 3A 50 4C 41 3B D2 55 45 43 4B |LTODEZ:PLA;.UECK| 00001280: 53 50 52 55 4E 47 20 4D 45 52 4B 45 4E 00 53 54 |SPRUNG MERKEN.ST| 00001290: 41 42 55 46 46 45 52 2B 38 36 00 50 4C 41 00 53 |ABUFFER+86.PLA.S| 000012A0: 54 41 42 55 46 46 45 52 2B 38 37 00 4C 44 58 23 |TABUFFER+87.LDX#| 000012B0: 30 3B 5A 41 48 4C 32 20 3D 20 31 30 00 53 54 58 |0;ZAHL2 = 10.STX| 000012C0: 5A 41 48 4C 32 2B 31 00 4C 44 41 23 31 30 00 53 |ZAHL2+1.LDA#10.S| 000012D0: 54 41 5A 41 48 4C 32 00 41 53 43 49 49 3A 4A 53 |TAZAHL2.ASCII:JS| 000012E0: 52 4D 4F 44 3B 5A 41 48 4C 33 20 3A 3D 20 5A 41 |RMOD;ZAHL3 := ZA| 000012F0: 48 4C 31 20 4D 4F 44 20 5A 41 48 4C 32 00 43 4C |HL1 MOD ZAHL2.CL| 00001300: 43 3B 5A 41 48 4C 33 20 41 4C 53 20 DA 45 49 43 |C;ZAHL3 ALS .EIC| 00001310: 48 45 4E 20 41 55 46 20 D3 54 41 43 4B 00 4C 44 |HEN AUF .TACK.LD| 00001320: 41 5A 41 48 4C 33 00 41 44 43 23 27 30 00 50 48 |AZAHL3.ADC#'0.PH| 00001330: 41 00 49 4E 58 00 4A 53 52 44 49 56 3B 5A 41 48 |A.INX.JSRDIV;ZAH| 00001340: 4C 33 20 3D 20 5A 41 48 4C 31 20 44 49 56 20 5A |L3 = ZAHL1 DIV Z| 00001350: 41 48 4C 32 00 4C 44 41 5A 41 48 4C 33 2B 31 3B |AHL2.LDAZAHL3+1;| 00001360: 5A 41 48 4C 31 20 3D 20 5A 41 48 4C 33 00 53 54 |ZAHL1 = ZAHL3.ST| 00001370: 41 5A 41 48 4C 31 2B 31 00 4C 44 41 5A 41 48 4C |AZAHL1+1.LDAZAHL| 00001380: 33 00 53 54 41 5A 41 48 4C 31 3B 5A 41 48 4C 31 |3.STAZAHL1;ZAHL1| 00001390: 3D 30 20 3F 00 4F 52 41 5A 41 48 4C 31 2B 31 00 |=0 ?.ORAZAHL1+1.| 000013A0: 42 4E 45 41 53 43 49 49 3B CE 45 49 4E 20 2D 20 |BNEASCII;.EIN - | 000013B0: 57 45 49 54 45 52 00 44 45 58 00 4C 44 41 42 55 |WEITER.DEX.LDABU| 000013C0: 46 46 45 52 2B 38 37 00 50 48 41 00 4C 44 41 42 |FFER+87.PHA.LDAB| 000013D0: 55 46 46 45 52 2B 38 36 00 50 48 41 00 52 54 53 |UFFER+86.PHA.RTS| 000013E0: 00 20 00 5A 41 48 4C 42 49 4E 4F 55 54 3A 4C 44 |. .ZAHLBINOUT:LD| 000013F0: 58 23 31 36 3B DA 41 48 4C 31 20 42 49 4E 2E 20 |X#16;.AHL1 BIN. | 00001400: 41 55 53 47 45 42 45 4E 00 52 4F 5A 41 3A 52 4F |AUSGEBEN.ROZA:RO| 00001410: 4C 5A 41 48 4C 31 3B D3 54 45 4C 4C 45 20 2D 3E |LZAHL1;.TELLE ->| 00001420: 20 C3 41 52 52 59 00 52 4F 4C 5A 41 48 4C 31 2B | .ARRY.ROLZAHL1+| 00001430: 31 00 50 48 50 00 4C 44 41 23 30 3B C3 41 52 52 |1.PHP.LDA#0;.ARR| 00001440: 59 20 2B 20 27 30 00 41 44 43 23 27 30 00 4A 53 |Y + '0.ADC#'0.JS| 00001450: 52 42 53 4F 55 54 3B 41 55 53 47 45 42 45 4E 00 |RBSOUT;AUSGEBEN.| 00001460: 50 4C 50 00 44 45 58 00 42 4E 45 52 4F 5A 41 00 |PLP.DEX.BNEROZA.| 00001470: 52 4F 4C 5A 41 48 4C 31 3B DA 41 48 4C 31 20 4B |ROLZAHL1;.AHL1 K| 00001480: 4F 52 52 49 47 49 45 52 45 4E 00 52 4F 4C 5A 41 |ORRIGIEREN.ROLZA| 00001490: 48 4C 31 2B 31 00 52 54 53 00 20 00 5A 41 48 4C |HL1+1.RTS. .ZAHL| 000014A0: 4F 43 54 4F 55 54 3A 4C 44 41 5A 41 48 4C 31 3B |OCTOUT:LDAZAHL1;| 000014B0: 5A 41 48 4C 31 20 4F 43 54 2E 20 41 55 53 47 45 |ZAHL1 OCT. AUSGE| 000014C0: 42 45 4E 00 50 48 41 3B 5A 41 48 4C 31 20 52 45 |BEN.PHA;ZAHL1 RE| 000014D0: 54 54 45 4E 00 4C 44 41 5A 41 48 4C 31 2B 31 00 |TTEN.LDAZAHL1+1.| 000014E0: 50 48 41 00 4C 44 58 23 30 00 4F 43 54 4F 55 54 |PHA.LDX#0.OCTOUT| 000014F0: 3A 4C 44 41 5A 41 48 4C 31 3B 33 20 C2 49 54 20 |:LDAZAHL1;3 .IT | 00001500: 2D 3E 20 D3 54 45 4C 4C 45 00 41 4E 44 23 25 31 |-> .TELLE.AND#%1| 00001510: 31 31 00 43 4C 43 00 41 44 43 23 27 30 00 50 48 |11.CLC.ADC#'0.PH| 00001520: 41 3B 41 4C 53 20 DA 45 49 43 48 45 4E 20 41 55 |A;ALS .EICHEN AU| 00001530: 46 20 D3 54 41 43 4B 00 49 4E 58 3B DA 45 49 43 |F .TACK.INX;.EIC| 00001540: 48 45 4E 5A 41 45 48 4C 45 52 2B 31 00 4A 53 52 |HENZAEHLER+1.JSR| 00001550: 52 4F 52 5A 41 3B 5A 41 48 4C 31 20 2F 20 38 00 |RORZA;ZAHL1 / 8.| 00001560: 4A 53 52 52 4F 52 5A 41 00 4A 53 52 52 4F 52 5A |JSRRORZA.JSRRORZ| 00001570: 41 00 4C 44 41 5A 41 48 4C 31 3B 5A 41 48 4C 31 |A.LDAZAHL1;ZAHL1| 00001580: 3D 30 20 3F 00 4F 52 41 5A 41 48 4C 31 2B 31 00 |=0 ?.ORAZAHL1+1.| 00001590: 42 4E 45 4F 43 54 4F 55 54 3B 4E 45 49 4E 00 4F |BNEOCTOUT;NEIN.O| 000015A0: 4F 3A 50 4C 41 3B D3 54 52 49 4E 47 20 56 4F 4D |O:PLA;.TRING VOM| 000015B0: 20 D3 54 41 43 4B 00 4A 53 52 42 53 4F 55 54 00 | .TACK.JSRBSOUT.| 000015C0: 44 45 58 00 42 4E 45 4F 4F 00 50 4C 41 3B 5A 41 |DEX.BNEOO.PLA;ZA| 000015D0: 48 4C 31 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E |HL1 ZURUECKHOLEN| 000015E0: 00 53 54 41 5A 41 48 4C 31 2B 31 00 50 4C 41 00 |.STAZAHL1+1.PLA.| 000015F0: 53 54 41 5A 41 48 4C 31 00 52 54 53 00 52 4F 52 |STAZAHL1.RTS.ROR| 00001600: 5A 41 3A 4C 53 52 5A 41 48 4C 31 2B 31 3B 5A 41 |ZA:LSRZAHL1+1;ZA| 00001610: 48 4C 31 20 44 49 56 20 32 00 52 4F 52 5A 41 48 |HL1 DIV 2.RORZAH| 00001620: 4C 31 00 52 54 53 00 20 00 5A 41 48 4C 49 4E 3A |L1.RTS. .ZAHLIN:| 00001630: 4C 44 41 23 30 3B 5A 41 48 4C 31 20 45 49 4E 4C |LDA#0;ZAHL1 EINL| 00001640: 45 53 45 4E 00 53 54 41 5A 41 48 4C 31 3B 5A 41 |ESEN.STAZAHL1;ZA| 00001650: 48 4C 31 3D 30 00 53 54 41 5A 41 48 4C 31 2B 31 |HL1=0.STAZAHL1+1| 00001660: 00 5A 49 4E 3A 4A 53 52 42 41 53 49 4E 3B 45 52 |.ZIN:JSRBASIN;ER| 00001670: 53 54 45 53 20 DA 45 49 43 48 45 4E 20 48 4F 4C |STES .EICHEN HOL| 00001680: 45 4E 00 43 4D 50 23 33 32 00 42 45 51 5A 49 4E |EN.CMP#32.BEQZIN| 00001690: 00 43 4D 50 23 27 24 3B C8 45 58 5A 41 48 4C 20 |.CMP#'$;.EXZAHL | 000016A0: 3F 00 42 45 51 48 45 58 49 4E 00 43 4D 50 23 27 |?.BEQHEXIN.CMP#'| 000016B0: 25 3B C2 49 4E 5A 41 48 4C 20 3F 00 42 45 51 42 |%;.INZAHL ?.BEQB| 000016C0: 49 4E 49 4E 00 43 4D 50 23 27 26 3B CF 43 54 5A |ININ.CMP#'&;.CTZ| 000016D0: 41 48 4C 20 3F 00 42 45 51 4F 4B 54 49 4E 00 43 |AHL ?.BEQOKTIN.C| 000016E0: 4D 50 23 33 39 3B DA 45 49 43 48 45 4E 20 3F 20 |MP#39;.EICHEN ? | 000016F0: 28 5A 2E 42 2E 27 59 29 00 42 45 51 43 48 41 52 |(Z.B.'Y).BEQCHAR| 00001700: 49 4E 00 20 00 44 45 5A 49 4E 3A 53 45 43 3B C4 |IN. .DEZIN:SEC;.| 00001710: 45 5A 49 4D 41 4C 20 45 49 4E 4C 45 53 45 4E 00 |EZIMAL EINLESEN.| 00001720: 53 42 43 23 27 30 00 42 4D 49 52 54 5A 41 48 4C |SBC#'0.BMIRTZAHL| 00001730: 3B 49 4C 4C 45 47 41 4C 45 53 20 DA 45 49 43 48 |;ILLEGALES .EICH| 00001740: 45 4E 00 43 4D 50 23 31 30 00 42 43 53 52 54 5A |EN.CMP#10.BCSRTZ| 00001750: 41 48 4C 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 4E |AHL;ILL. .EICHEN| 00001760: 00 50 48 41 00 4A 53 52 5A 4D 41 4C 31 30 3B 5A |.PHA.JSRZMAL10;Z| 00001770: 41 48 4C 31 20 2A 20 31 30 00 50 4C 41 00 43 4C |AHL1 * 10.PLA.CL| 00001780: 43 3B 5A 41 48 4C 31 20 2B 20 DA 49 46 46 45 52 |C;ZAHL1 + .IFFER| 00001790: 00 41 44 43 5A 41 48 4C 31 00 53 54 41 5A 41 48 |.ADCZAHL1.STAZAH| 000017A0: 4C 31 00 42 43 43 4E 4F 43 00 49 4E 43 5A 41 48 |L1.BCCNOC.INCZAH| 000017B0: 4C 31 2B 31 00 4E 4F 43 3A 4A 53 52 42 41 53 49 |L1+1.NOC:JSRBASI| 000017C0: 4E 3B CE 45 58 54 20 DA 45 49 43 48 45 4E 00 4A |N;.EXT .EICHEN.J| 000017D0: 4D 50 44 45 5A 49 4E 00 52 54 5A 41 48 4C 3A 52 |MPDEZIN.RTZAHL:R| 000017E0: 54 53 00 20 00 42 49 4E 49 4E 3A 4A 53 52 42 41 |TS. .BININ:JSRBA| 000017F0: 53 49 4E 3B C2 49 4E 2E 20 45 49 4E 4C 45 53 45 |SIN;.IN. EINLESE| 00001800: 4E 00 53 45 43 00 53 42 43 23 27 30 00 42 4D 49 |N.SEC.SBC#'0.BMI| 00001810: 52 54 5A 41 48 4C 3B 49 4C 4C 2E 20 DA 45 49 43 |RTZAHL;ILL. .EIC| 00001820: 48 45 4E 00 43 4D 50 23 32 00 42 43 53 52 54 5A |HEN.CMP#2.BCSRTZ| 00001830: 41 48 4C 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 4E |AHL;ILL. .EICHEN| 00001840: 00 4C 53 52 3B DA 49 46 46 45 52 20 2D 3E 20 C3 |.LSR;.IFFER -> .| 00001850: 41 52 52 59 00 52 4F 4C 5A 41 48 4C 31 3B C3 41 |ARRY.ROLZAHL1;.A| 00001860: 52 52 59 20 2D 3E 20 C2 49 54 20 49 4E 20 DA 41 |RRY -> .IT IN .A| 00001870: 48 4C 31 00 52 4F 4C 5A 41 48 4C 31 2B 31 00 4A |HL1.ROLZAHL1+1.J| 00001880: 4D 50 42 49 4E 49 4E 00 20 00 48 45 58 49 4E 3A |MPBININ. .HEXIN:| 00001890: 4A 53 52 42 41 53 49 4E 3B C8 45 58 2E 20 45 49 |JSRBASIN;.EX. EI| 000018A0: 4E 4C 45 53 45 4E 00 53 45 43 00 53 42 43 23 27 |NLESEN.SEC.SBC#'| 000018B0: 30 00 42 4D 49 52 54 5A 41 48 4C 3B 49 4C 4C 2E |0.BMIRTZAHL;ILL.| 000018C0: 20 DA 45 49 43 48 45 4E 00 43 4D 50 23 31 30 00 | .EICHEN.CMP#10.| 000018D0: 42 43 43 4F 4B 5A 41 48 4C 00 53 42 43 23 37 00 |BCCOKZAHL.SBC#7.| 000018E0: 43 4D 50 23 31 36 00 42 43 53 52 54 5A 41 48 4C |CMP#16.BCSRTZAHL| 000018F0: 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 43 4D |;ILL. .EICHEN.CM| 00001900: 50 23 31 30 00 42 43 43 52 54 5A 41 48 4C 3B 49 |P#10.BCCRTZAHL;I| 00001910: 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 4F 4B 5A 41 |LL. .EICHEN.OKZA| 00001920: 48 4C 3A 4A 53 52 5A 4D 41 4C 34 3B 5A 41 48 4C |HL:JSRZMAL4;ZAHL| 00001930: 31 20 2A 20 31 36 00 4A 53 52 5A 4D 41 4C 34 00 |1 * 16.JSRZMAL4.| 00001940: 43 4C 43 3B 5A 41 48 4C 31 20 2B 20 DA 49 46 46 |CLC;ZAHL1 + .IFF| 00001950: 45 52 00 41 44 43 5A 41 48 4C 31 00 53 54 41 5A |ER.ADCZAHL1.STAZ| 00001960: 41 48 4C 31 00 4A 4D 50 48 45 58 49 4E 00 20 00 |AHL1.JMPHEXIN. .| 00001970: 4F 4B 54 49 4E 3A 4A 53 52 42 41 53 49 4E 3B CF |OKTIN:JSRBASIN;.| 00001980: 43 54 2E 20 45 49 4E 4C 45 53 45 4E 00 53 45 43 |CT. EINLESEN.SEC| 00001990: 00 53 42 43 23 27 30 00 42 4D 49 52 54 5A 41 48 |.SBC#'0.BMIRTZAH| 000019A0: 4C 3B 49 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 43 |L;ILL. .EICHEN.C| 000019B0: 4D 50 23 38 00 42 43 53 52 54 5A 41 48 4C 3B 49 |MP#8.BCSRTZAHL;I| 000019C0: 4C 4C 2E 20 DA 45 49 43 48 45 4E 00 4A 53 52 5A |LL. .EICHEN.JSRZ| 000019D0: 4D 41 4C 34 3B 5A 41 48 4C 31 20 2A 20 38 00 41 |MAL4;ZAHL1 * 8.A| 000019E0: 53 4C 5A 41 48 4C 31 00 52 4F 4C 5A 41 48 4C 31 |SLZAHL1.ROLZAHL1| 000019F0: 2B 31 00 43 4C 43 3B 5A 41 48 4C 31 20 2B 20 DA |+1.CLC;ZAHL1 + .| 00001A00: 49 46 46 45 52 00 41 44 43 5A 41 48 4C 31 00 53 |IFFER.ADCZAHL1.S| 00001A10: 54 41 5A 41 48 4C 31 00 4A 4D 50 4F 4B 54 49 4E |TAZAHL1.JMPOKTIN| 00001A20: 00 20 00 43 48 41 52 49 4E 3A 4A 53 52 42 41 53 |. .CHARIN:JSRBAS| 00001A30: 49 4E 3B 5A 41 48 4C 31 20 3D 20 DA 45 49 43 48 |IN;ZAHL1 = .EICH| 00001A40: 45 4E 00 53 54 41 5A 41 48 4C 31 00 4A 4D 50 42 |EN.STAZAHL1.JMPB| 00001A50: 41 53 49 4E 00 20 00 5A 4D 41 4C 34 3A 41 53 4C |ASIN. .ZMAL4:ASL| 00001A60: 5A 41 48 4C 31 3B 5A 41 48 4C 31 20 2A 20 34 00 |ZAHL1;ZAHL1 * 4.| 00001A70: 52 4F 4C 5A 41 48 4C 31 2B 31 00 41 53 4C 5A 41 |ROLZAHL1+1.ASLZA| 00001A80: 48 4C 31 00 52 4F 4C 5A 41 48 4C 31 2B 31 00 52 |HL1.ROLZAHL1+1.R| 00001A90: 54 53 00 20 00 5A 4D 41 4C 31 30 3A 41 53 4C 5A |TS. .ZMAL10:ASLZ| 00001AA0: 41 48 4C 31 3B 5A 41 48 4C 31 20 2A 20 31 30 00 |AHL1;ZAHL1 * 10.| 00001AB0: 52 4F 4C 5A 41 48 4C 31 2B 31 00 4C 44 41 5A 41 |ROLZAHL1+1.LDAZA| 00001AC0: 48 4C 31 2B 31 3B 5A 41 48 4C 31 20 2A 20 32 20 |HL1+1;ZAHL1 * 2 | 00001AD0: 41 55 46 20 D3 54 41 43 4B 00 50 48 41 00 4C 44 |AUF .TACK.PHA.LD| 00001AE0: 41 5A 41 48 4C 31 00 50 48 41 00 4A 53 52 5A 4D |AZAHL1.PHA.JSRZM| 00001AF0: 41 4C 34 3B 5A 41 48 4C 31 3D 5A 41 48 4C 31 20 |AL4;ZAHL1=ZAHL1 | 00001B00: 2A 20 38 00 43 4C 43 00 50 4C 41 00 41 44 43 5A |* 8.CLC.PLA.ADCZ| 00001B10: 41 48 4C 31 3B 5A 41 48 4C 31 3D 5A 41 48 4C 31 |AHL1;ZAHL1=ZAHL1| 00001B20: 2A 38 2B 5A 41 48 4C 31 2A 32 00 53 54 41 5A 41 |*8+ZAHL1*2.STAZA| 00001B30: 48 4C 31 00 50 4C 41 00 41 44 43 5A 41 48 4C 31 |HL1.PLA.ADCZAHL1| 00001B40: 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 00 52 54 |+1.STAZAHL1+1.RT| 00001B50: 53 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S. .;***********| 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 2A 2A 00 3B 2A 20 |************.;* | 00001B80: 2A 20 20 20 20 20 20 20 20 C1 52 49 54 48 4D 45 |* .RITHME| 00001B90: 54 49 4B 52 4F 55 54 49 4E 45 4E 20 20 20 20 20 |TIKROUTINEN | 00001BA0: 20 20 2A 20 2A 00 3B 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 2A 2A 00 20 |**************. | 00001BD0: 00 3B 5A 41 48 4C 33 3A 3D 5A 41 48 4C 31 2A 5A |.;ZAHL3:=ZAHL1*Z| 00001BE0: 41 48 4C 32 00 4D 55 4C 54 3A 4A 53 52 50 55 53 |AHL2.MULT:JSRPUS| 00001BF0: 43 48 00 4A 53 52 5A 41 48 4C 54 4F 4D 45 4D 3B |CH.JSRZAHLTOMEM;| 00001C00: 5A 41 48 4C 31 2F 32 2D 3E 4D 45 4D 31 00 4C 44 |ZAHL1/2->MEM1.LD| 00001C10: 41 23 30 3B 5A 41 48 4C 33 3D 30 00 53 54 41 5A |A#0;ZAHL3=0.STAZ| 00001C20: 41 48 4C 33 00 53 54 41 5A 41 48 4C 33 2B 31 00 |AHL3.STAZAHL3+1.| 00001C30: 4C 44 58 23 31 36 3B 31 36 2D C2 49 54 00 4D 55 |LDX#16;16-.IT.MU| 00001C40: 4C 4F 3A 4C 53 52 4D 45 4D 33 2B 31 3B 32 2E DA |LO:LSRMEM3+1;2..| 00001C50: 41 48 4C 20 44 49 56 20 32 00 52 4F 52 4D 45 4D |AHL DIV 2.RORMEM| 00001C60: 33 00 42 43 43 4E 4F 41 44 00 43 4C 43 3B C2 49 |3.BCCNOAD.CLC;.I| 00001C70: 54 20 47 45 53 45 54 5A 54 00 4C 44 41 5A 41 48 |T GESETZT.LDAZAH| 00001C80: 4C 33 3B 5A 41 48 4C 33 20 3D 20 5A 41 48 4C 33 |L3;ZAHL3 = ZAHL3| 00001C90: 20 2B 20 31 2E DA 41 48 4C 00 41 44 43 4D 45 4D | + 1..AHL.ADCMEM| 00001CA0: 31 00 53 54 41 5A 41 48 4C 33 00 4C 44 41 5A 41 |1.STAZAHL3.LDAZA| 00001CB0: 48 4C 33 2B 31 00 41 44 43 4D 45 4D 31 2B 31 00 |HL3+1.ADCMEM1+1.| 00001CC0: 53 54 41 5A 41 48 4C 33 2B 31 00 4E 4F 41 44 3A |STAZAHL3+1.NOAD:| 00001CD0: 41 53 4C 4D 45 4D 31 3B 31 2E DA 41 48 4C 20 2A |ASLMEM1;1..AHL *| 00001CE0: 20 32 00 52 4F 4C 4D 45 4D 31 2B 31 00 44 45 58 | 2.ROLMEM1+1.DEX| 00001CF0: 3B 57 45 49 54 45 52 00 42 4E 45 4D 55 4C 4F 00 |;WEITER.BNEMULO.| 00001D00: 4A 4D 50 50 55 4C 4C 00 20 00 3B 5A 41 48 4C 33 |JMPPULL. .;ZAHL3| 00001D10: 3A 3D 5A 41 48 4C 31 20 44 49 56 20 5A 41 48 4C |:=ZAHL1 DIV ZAHL| 00001D20: 32 20 28 44 49 56 3D 47 41 4E 5A 5A 41 48 4C 49 |2 (DIV=GANZZAHLI| 00001D30: 47 45 20 C4 49 56 49 53 49 4F 4E 29 00 44 49 56 |GE .IVISION).DIV| 00001D40: 3A 4A 53 52 50 55 53 43 48 00 4A 53 52 5A 41 48 |:JSRPUSCH.JSRZAH| 00001D50: 4C 54 4F 4D 45 4D 3B 5A 41 48 4C 31 2F 32 2D 3E |LTOMEM;ZAHL1/2->| 00001D60: 4D 45 4D 31 00 4A 53 52 44 49 56 49 44 45 3B C4 |MEM1.JSRDIVIDE;.| 00001D70: 49 56 49 44 49 45 52 45 4E 00 4A 4D 50 50 55 4C |IVIDIEREN.JMPPUL| 00001D80: 4C 00 20 00 3B 5A 41 48 4C 33 3A 3D 5A 41 48 4C |L. .;ZAHL3:=ZAHL| 00001D90: 31 20 4D 4F 44 20 5A 41 48 4C 32 20 28 4D 4F 44 |1 MOD ZAHL2 (MOD| 00001DA0: 3D C4 49 56 49 53 49 4F 4E 53 52 45 53 54 29 00 |=.IVISIONSREST).| 00001DB0: 4D 4F 44 3A 4A 53 52 50 55 53 43 48 00 4A 53 52 |MOD:JSRPUSCH.JSR| 00001DC0: 5A 41 48 4C 54 4F 4D 45 4D 3B 5A 41 48 4C 31 2F |ZAHLTOMEM;ZAHL1/| 00001DD0: 32 2D 3E 4D 45 4D 31 00 4A 53 52 44 49 56 49 44 |2->MEM1.JSRDIVID| 00001DE0: 45 3B C4 49 56 49 44 49 45 52 45 4E 00 4C 44 58 |E;.IVIDIEREN.LDX| 00001DF0: 23 31 3B D2 45 53 54 2D 3E 5A 41 48 4C 33 00 4D |#1;.EST->ZAHL3.M| 00001E00: 4F 44 4C 3A 4C 44 41 4D 45 4D 31 2C 58 00 53 54 |ODL:LDAMEM1,X.ST| 00001E10: 41 5A 41 48 4C 33 2C 58 00 44 45 58 00 42 50 4C |AZAHL3,X.DEX.BPL| 00001E20: 4D 4F 44 4C 00 4A 4D 50 50 55 4C 4C 00 20 00 3B |MODL.JMPPULL. .;| 00001E30: 2A 2A 20 20 20 44 49 56 49 44 45 20 D5 4E 54 45 |** DIVIDE .NTE| 00001E40: 52 50 52 4F 47 52 41 4D 4D 20 44 49 56 2F 4D 4F |RPROGRAMM DIV/MO| 00001E50: 44 20 20 2A 2A 00 44 49 56 49 44 45 3A 4C 44 58 |D **.DIVIDE:LDX| 00001E60: 23 31 3B C4 49 56 49 44 49 45 52 45 4E 00 4C 44 |#1;.IVIDIEREN.LD| 00001E70: 41 23 30 3B 5A 41 48 4C 33 3D 30 00 53 54 41 5A |A#0;ZAHL3=0.STAZ| 00001E80: 41 48 4C 33 00 53 54 41 5A 41 48 4C 33 2B 31 00 |AHL3.STAZAHL3+1.| 00001E90: 4C 31 3A 4C 44 41 4D 45 4D 33 2B 31 3B 32 2E DA |L1:LDAMEM3+1;2..| 00001EA0: 41 48 4C 20 4C 49 4E 4B 53 42 55 45 4E 44 49 47 |AHL LINKSBUENDIG| 00001EB0: 20 4D 41 43 48 45 4E 00 42 4D 49 4C 32 00 41 53 | MACHEN.BMIL2.AS| 00001EC0: 4C 4D 45 4D 33 00 52 4F 4C 4D 45 4D 33 2B 31 00 |LMEM3.ROLMEM3+1.| 00001ED0: 49 4E 58 3B C4 49 56 49 53 49 4F 4E 53 5A 41 45 |INX;.IVISIONSZAE| 00001EE0: 48 4C 45 52 20 2B 20 31 00 42 4E 45 4C 31 3B 57 |HLER + 1.BNEL1;W| 00001EF0: 45 49 54 45 52 00 4C 32 3A 53 45 43 3B 31 2E DA |EITER.L2:SEC;1..| 00001F00: 41 48 4C 31 20 2D 20 32 2E DA 41 48 4C 00 4C 44 |AHL1 - 2..AHL.LD| 00001F10: 41 4D 45 4D 31 00 53 42 43 4D 45 4D 33 00 53 54 |AMEM1.SBCMEM3.ST| 00001F20: 41 4D 45 4D 31 00 4C 44 41 4D 45 4D 31 2B 31 00 |AMEM1.LDAMEM1+1.| 00001F30: 53 42 43 4D 45 4D 33 2B 31 00 53 54 41 4D 45 4D |SBCMEM3+1.STAMEM| 00001F40: 31 2B 31 00 42 43 53 4C 33 3B C5 52 47 45 42 4E |1+1.BCSL3;.RGEBN| 00001F50: 49 53 20 50 4F 53 49 54 49 56 00 4C 44 41 4D 45 |IS POSITIV.LDAME| 00001F60: 4D 31 3B 31 2E DA 41 48 4C 20 2B 20 32 2E DA 41 |M1;1..AHL + 2..A| 00001F70: 48 4C 00 41 44 43 4D 45 4D 33 00 53 54 41 4D 45 |HL.ADCMEM3.STAME| 00001F80: 4D 31 00 4C 44 41 4D 45 4D 31 2B 31 00 41 44 43 |M1.LDAMEM1+1.ADC| 00001F90: 4D 45 4D 33 2B 31 00 53 54 41 4D 45 4D 31 2B 31 |MEM3+1.STAMEM1+1| 00001FA0: 00 43 4C 43 00 4C 33 3A 52 4F 4C 5A 41 48 4C 33 |.CLC.L3:ROLZAHL3| 00001FB0: 3B 5A 41 48 4C 33 20 2A 20 32 00 52 4F 4C 5A 41 |;ZAHL3 * 2.ROLZA| 00001FC0: 48 4C 33 2B 31 00 44 45 58 3B C4 49 56 49 53 49 |HL3+1.DEX;.IVISI| 00001FD0: 4F 4E 5A 41 45 48 4C 45 52 20 2D 31 00 42 4E 45 |ONZAEHLER -1.BNE| 00001FE0: 2A 2B 33 00 52 54 53 00 52 4F 52 4D 45 4D 33 2B |*+3.RTS.RORMEM3+| 00001FF0: 31 3B 32 2E DA 41 48 4C 20 44 49 56 20 32 00 52 |1;2..AHL DIV 2.R| 00002000: 4F 52 4D 45 4D 33 00 4A 4D 50 4C 32 3B 57 45 49 |ORMEM3.JMPL2;WEI| 00002010: 54 45 52 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |TER. .;*********| 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 2A 2A 00 3B |**************.;| 00002040: 2A 20 2A 20 20 20 20 20 20 20 20 20 20 20 D2 C1 |* * ..| 00002050: CD 2D D2 4F 55 54 49 4E 45 4E 20 20 20 20 20 20 |.-.OUTINEN | 00002060: 20 20 20 20 2A 20 2A 00 3B 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 2A 2A |****************| 00002090: 00 20 00 3B C4 49 45 20 D2 41 4D 2D D2 4F 55 54 |. .;.IE .AM-.OUT| 000020A0: 49 4E 45 4E 20 44 49 45 4E 45 4E 20 44 45 4E 20 |INEN DIENEN DEN | 000020B0: DA 55 47 52 49 46 46 20 41 55 46 20 44 45 4E 20 |.UGRIFF AUF DEN | 000020C0: 47 45 53 41 4D 54 45 4E 20 D3 50 45 49 43 48 45 |GESAMTEN .PEICHE| 000020D0: 52 00 3B 49 4E 20 44 45 52 20 CD 4F 44 55 4C 56 |R.;IN DER .ODULV| 000020E0: 45 52 53 49 4F 4E 2E 20 C4 41 20 42 45 49 20 44 |ERSION. .A BEI D| 000020F0: 45 4D 20 DA 55 47 49 46 46 20 41 55 46 20 44 49 |EM .UGIFF AUF DI| 00002100: 45 53 45 4E 20 D3 50 45 49 43 48 45 52 20 44 41 |ESEN .PEICHER DA| 00002110: 53 00 3B CD 4F 44 55 4C 20 41 42 47 45 53 43 48 |S.;.ODUL ABGESCH| 00002120: 41 4C 54 45 54 20 57 49 52 44 2C 20 4D 55 45 53 |ALTET WIRD, MUES| 00002130: 53 45 4E 20 44 49 45 20 DA 55 47 52 49 46 46 53 |SEN DIE .UGRIFFS| 00002140: 52 4F 55 54 49 4E 45 4E 20 49 4E 20 44 41 53 00 |ROUTINEN IN DAS.| 00002150: 3B D2 41 4D 20 41 55 53 47 45 4C 41 47 45 52 54 |;.AM AUSGELAGERT| 00002160: 20 57 45 52 44 45 4E 2E 00 20 00 50 55 54 52 41 | WERDEN.. .PUTRA| 00002170: 4D 52 4F 3A 4C 44 59 23 52 41 4D 52 4F 45 4E 44 |MRO:LDY#RAMROEND| 00002180: 2D 52 41 4D 52 4F 41 4E 46 2D 31 3B 52 4F 55 54 |-RAMROANF-1;ROUT| 00002190: 49 4E 45 4E 00 50 55 54 3A 4C 44 41 52 41 4D 52 |INEN.PUT:LDARAMR| 000021A0: 4F 41 4E 46 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 |OANF,Y;KOPIEREN.| 000021B0: 53 54 41 52 4F 55 54 49 4E 45 4E 2C 59 00 44 45 |STAROUTINEN,Y.DE| 000021C0: 59 00 42 50 4C 50 55 54 00 52 54 53 00 20 00 50 |Y.BPLPUT.RTS. .P| 000021D0: 55 54 43 4F 50 59 3A 4C 44 59 23 43 4F 45 4E 44 |UTCOPY:LDY#COEND| 000021E0: 2D 43 4F 41 4E 46 2D 31 3B C3 4F 50 59 52 4F 55 |-COANF-1;.OPYROU| 000021F0: 54 49 4E 45 00 50 55 54 32 3A 4C 44 41 43 4F 41 |TINE.PUT2:LDACOA| 00002200: 4E 46 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 54 |NF,Y;KOPIEREN.ST| 00002210: 41 52 4F 55 54 49 4E 45 4E 2C 59 00 44 45 59 00 |AROUTINEN,Y.DEY.| 00002220: 42 50 4C 50 55 54 32 00 52 54 53 00 20 00 50 55 |BPLPUT2.RTS. .PU| 00002230: 54 52 55 4E 52 4F 3A 4C 44 59 23 52 55 4E 45 4E |TRUNRO:LDY#RUNEN| 00002240: 44 2D 52 55 4E 41 4E 46 2D 31 3B D2 55 4E 2D D2 |D-RUNANF-1;.UN-.| 00002250: 4F 55 54 49 4E 45 00 50 55 54 33 3A 4C 44 41 52 |OUTINE.PUT3:LDAR| 00002260: 55 4E 41 4E 46 2C 59 3B 4B 4F 50 49 45 52 45 4E |UNANF,Y;KOPIEREN| 00002270: 00 53 54 41 52 4F 55 54 49 4E 45 4E 2C 59 00 44 |.STAROUTINEN,Y.D| 00002280: 45 59 00 42 50 4C 50 55 54 33 00 52 54 53 00 20 |EY.BPLPUT3.RTS. | 00002290: 00 50 55 54 52 4F 32 3A 4C 44 59 23 4C 42 4C 52 |.PUTRO2:LDY#LBLR| 000022A0: 4F 45 4E 44 2D 4C 42 4C 52 4F 41 4E 46 2D 31 3B |OEND-LBLROANF-1;| 000022B0: C1 53 53 45 4D 42 4C 45 52 2D D2 4F 55 54 49 4E |.SSEMBLER-.OUTIN| 000022C0: 45 4E 00 50 55 54 34 3A 4C 44 41 4C 42 4C 52 4F |EN.PUT4:LDALBLRO| 000022D0: 41 4E 46 2C 59 3B 4B 4F 50 49 45 52 45 4E 00 53 |ANF,Y;KOPIEREN.S| 000022E0: 54 41 52 4F 55 54 49 4E 45 32 2C 59 00 44 45 59 |TAROUTINE2,Y.DEY| 000022F0: 00 42 50 4C 50 55 54 34 00 52 54 53 00 20 00 50 |.BPLPUT4.RTS. .P| 00002300: 55 5A 41 44 52 3A 4C 44 59 23 5A 41 44 52 45 4E |UZADR:LDY#ZADREN| 00002310: 44 2D 5A 41 44 52 41 4E 46 2D 31 3B C5 44 49 54 |D-ZADRANF-1;.DIT| 00002320: 4F 52 2D D2 4F 55 54 49 4E 45 00 50 55 54 35 3A |OR-.OUTINE.PUT5:| 00002330: 4C 44 41 5A 41 44 52 41 4E 46 2C 59 3B 4B 4F 50 |LDAZADRANF,Y;KOP| 00002340: 49 45 52 45 4E 00 53 54 41 52 4F 55 54 49 4E 45 |IEREN.STAROUTINE| 00002350: 4E 2C 59 00 44 45 59 00 42 50 4C 50 55 54 35 00 |N,Y.DEY.BPLPUT5.| 00002360: 52 54 53 00 20 00 50 55 54 4D 4F 4E 52 4F 3A 4C |RTS. .PUTMONRO:L| 00002370: 44 59 23 4D 52 4F 45 4E 44 2D 4D 52 4F 41 4E 46 |DY#MROEND-MROANF| 00002380: 2D 31 3B CD 4F 4E 49 54 4F 52 45 52 57 45 49 54 |-1;.ONITORERWEIT| 00002390: 45 52 55 4E 47 2D D2 4F 55 54 49 4E 45 4E 00 50 |ERUNG-.OUTINEN.P| 000023A0: 55 54 36 3A 4C 44 41 4D 52 4F 41 4E 46 2C 59 3B |UT6:LDAMROANF,Y;| 000023B0: 4B 4F 50 49 45 52 45 4E 00 53 54 41 52 4F 55 54 |KOPIEREN.STAROUT| 000023C0: 49 4E 45 4E 2C 59 00 44 45 59 00 42 50 4C 50 55 |INEN,Y.DEY.BPLPU| 000023D0: 54 36 00 52 54 53 00 20 00 52 55 4E 41 4E 46 3A |T6.RTS. .RUNANF:| 000023E0: 00 43 4C 49 3B D2 55 4E 2D D2 4F 55 54 49 4E 45 |.CLI;.UN-.OUTINE| 000023F0: 00 4C 44 41 23 24 33 37 00 53 54 41 31 00 4A 55 |.LDA#$37.STA1.JU| 00002400: 4D 50 3A 4A 53 52 24 46 46 46 46 3B C4 55 4D 4D |MP:JSR$FFFF;.UMM| 00002410: 59 00 4C 44 41 23 4E 4F 52 4D 41 4C 00 53 54 41 |Y.LDA#NORMAL.STA| 00002420: 31 00 53 45 49 00 4A 4D 50 52 55 4E 52 45 54 55 |1.SEI.JMPRUNRETU| 00002430: 52 4E 00 52 55 4E 45 4E 44 3A 00 20 00 43 4F 41 |RN.RUNEND:. .COA| 00002440: 4E 46 3A 00 53 45 49 3B C3 4F 50 59 2D D2 4F 55 |NF:.SEI;.OPY-.OU| 00002450: 54 49 4E 45 00 4C 44 41 23 24 33 34 00 53 54 41 |TINE.LDA#$34.STA| 00002460: 31 00 4C 44 41 28 5A 47 29 2C 59 00 53 54 41 28 |1.LDA(ZG),Y.STA(| 00002470: 5A 47 32 29 2C 59 00 4C 44 41 23 4E 4F 52 4D 41 |ZG2),Y.LDA#NORMA| 00002480: 4C 00 53 54 41 31 00 52 54 53 00 43 4F 45 4E 44 |L.STA1.RTS.COEND| 00002490: 3A 00 20 00 52 41 4D 52 4F 41 4E 46 3A 00 52 52 |:. .RAMROANF:.RR| 000024A0: 4F 31 3A 53 45 49 3B 57 45 52 54 20 56 4F 4E 20 |O1:SEI;WERT VON | 000024B0: 41 44 52 45 53 53 45 20 5A 47 20 48 4F 4C 45 4E |ADRESSE ZG HOLEN| 000024C0: 00 4C 44 41 23 24 33 34 00 53 54 41 31 00 4C 44 |.LDA#$34.STA1.LD| 000024D0: 41 28 5A 47 29 2C 59 3B 57 45 52 54 20 48 4F 4C |A(ZG),Y;WERT HOL| 000024E0: 45 4E 00 50 48 41 3B 4D 45 52 4B 45 4E 00 4C 44 |EN.PHA;MERKEN.LD| 000024F0: 41 23 4E 4F 52 4D 41 4C 3B 53 50 45 49 43 48 45 |A#NORMAL;SPEICHE| 00002500: 52 20 4E 4F 52 4D 41 4C 00 53 54 41 31 00 50 4C |R NORMAL.STA1.PL| 00002510: 41 3B 57 45 52 54 20 5A 55 52 55 45 43 4B 48 4F |A;WERT ZURUECKHO| 00002520: 4C 45 4E 00 52 54 53 00 20 00 52 52 4F 32 3A 53 |LEN.RTS. .RRO2:S| 00002530: 45 49 3B 57 45 52 54 20 56 4F 4E 20 41 44 52 45 |EI;WERT VON ADRE| 00002540: 53 53 45 20 5A 47 32 20 48 4F 4C 45 4E 00 4C 44 |SSE ZG2 HOLEN.LD| 00002550: 41 23 24 33 34 00 53 54 41 31 00 4C 44 41 28 5A |A#$34.STA1.LDA(Z| 00002560: 47 32 29 2C 59 3B 57 45 52 54 20 48 4F 4C 45 4E |G2),Y;WERT HOLEN| 00002570: 00 50 48 41 3B 4D 45 52 4B 45 4E 00 4C 44 41 23 |.PHA;MERKEN.LDA#| 00002580: 4E 4F 52 4D 41 4C 3B 53 50 45 49 43 48 45 52 20 |NORMAL;SPEICHER | 00002590: 4E 4F 52 4D 41 4C 00 53 54 41 31 00 50 4C 41 3B |NORMAL.STA1.PLA;| 000025A0: 57 45 52 54 20 5A 55 52 55 45 43 4B 48 4F 4C 45 |WERT ZURUECKHOLE| 000025B0: 4E 00 52 54 53 00 20 00 52 52 4F 33 3A 50 48 41 |N.RTS. .RRO3:PHA| 000025C0: 3B 57 45 52 54 20 4E 41 43 48 20 41 44 52 45 53 |;WERT NACH ADRES| 000025D0: 53 45 20 5A 47 00 53 45 49 00 4C 44 41 23 24 33 |SE ZG.SEI.LDA#$3| 000025E0: 34 3B 41 4C 4C 45 53 20 52 41 4D 00 53 54 41 31 |4;ALLES RAM.STA1| 000025F0: 00 50 4C 41 00 50 48 41 3B 53 50 45 49 43 48 45 |.PLA.PHA;SPEICHE| 00002600: 52 4E 20 55 4E 44 20 4D 45 52 4B 45 4E 00 53 54 |RN UND MERKEN.ST| 00002610: 41 28 5A 47 29 2C 59 00 4C 44 41 23 4E 4F 52 4D |A(ZG),Y.LDA#NORM| 00002620: 41 4C 3B 53 50 45 49 43 48 45 52 20 4E 4F 52 4D |AL;SPEICHER NORM| 00002630: 41 4C 00 53 54 41 31 00 50 4C 41 3B 57 45 52 54 |AL.STA1.PLA;WERT| 00002640: 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 52 54 | ZURUECKHOLEN.RT| 00002650: 53 00 20 00 52 52 4F 34 3A 50 48 41 3B 57 45 52 |S. .RRO4:PHA;WER| 00002660: 54 20 4E 41 43 48 20 41 44 52 45 53 53 45 20 5A |T NACH ADRESSE Z| 00002670: 47 32 00 53 45 49 00 4C 44 41 23 24 33 34 3B 41 |G2.SEI.LDA#$34;A| 00002680: 4C 4C 45 53 20 52 41 4D 00 53 54 41 31 00 50 4C |LLES RAM.STA1.PL| 00002690: 41 00 50 48 41 3B 53 50 45 49 43 48 45 52 4E 20 |A.PHA;SPEICHERN | 000026A0: 55 4E 44 20 4D 45 52 4B 45 4E 00 53 54 41 28 5A |UND MERKEN.STA(Z| 000026B0: 47 32 29 2C 59 00 4C 44 41 23 4E 4F 52 4D 41 4C |G2),Y.LDA#NORMAL| 000026C0: 00 53 54 41 31 00 50 4C 41 3B 57 45 52 54 20 5A |.STA1.PLA;WERT Z| 000026D0: 55 52 55 45 43 4B 48 4F 4C 45 4E 00 52 54 53 00 |URUECKHOLEN.RTS.| 000026E0: 52 41 4D 52 4F 45 4E 44 3A 00 20 00 4C 42 4C 52 |RAMROEND:. .LBLR| 000026F0: 4F 41 4E 46 3A 00 53 45 49 3B C1 53 53 2E 20 D2 |OANF:.SEI;.SS. .| 00002700: 4F 55 54 49 4E 45 20 CC 41 42 45 4C 20 53 55 43 |OUTINE .ABEL SUC| 00002710: 48 45 4E 00 4C 44 41 23 24 33 34 00 53 54 41 31 |HEN.LDA#$34.STA1| 00002720: 00 46 49 52 53 54 3A 4C 44 58 23 30 00 4C 44 41 |.FIRST:LDX#0.LDA| 00002730: 28 5A 47 32 29 2C 59 00 42 45 51 53 4C 52 54 32 |(ZG2),Y.BEQSLRT2| 00002740: 3B CB 45 49 4E 45 20 CC 41 42 45 4C 00 43 4D 50 |;.EINE .ABEL.CMP| 00002750: 42 55 46 46 45 52 32 2C 58 3B 45 52 53 54 45 53 |BUFFER2,X;ERSTES| 00002760: 20 DA 45 49 43 48 45 4E 00 42 45 51 46 4F 4C 42 | .EICHEN.BEQFOLB| 00002770: 4C 3F 3B 47 4C 45 49 43 48 00 42 43 53 53 4C 52 |L?;GLEICH.BCSSLR| 00002780: 54 32 3B 47 52 4F 45 53 53 45 52 20 2D 3E 20 4E |T2;GROESSER -> N| 00002790: 49 43 48 54 20 47 45 46 55 4E 44 45 4E 00 41 44 |ICHT GEFUNDEN.AD| 000027A0: 5A 47 3A 49 4E 43 5A 47 32 3B CE 41 45 43 48 53 |ZG:INCZG2;.AECHS| 000027B0: 54 45 53 20 CC 41 42 45 4C 20 53 55 43 48 45 4E |TES .ABEL SUCHEN| 000027C0: 00 42 4E 45 2A 2B 34 00 49 4E 43 5A 47 32 2B 31 |.BNE*+4.INCZG2+1| 000027D0: 00 4C 44 41 28 5A 47 32 29 2C 59 00 43 4D 50 23 |.LDA(ZG2),Y.CMP#| 000027E0: 34 00 42 43 53 41 44 5A 47 00 43 4C 43 3B 5A 47 |4.BCSADZG.CLC;ZG| 000027F0: 20 2B 20 CC 41 42 45 4C 57 45 52 54 4F 46 46 53 | + .ABELWERTOFFS| 00002800: 45 54 00 4C 44 41 5A 47 32 00 41 44 43 23 33 00 |ET.LDAZG2.ADC#3.| 00002810: 53 54 41 5A 47 32 00 42 43 43 46 49 52 53 54 00 |STAZG2.BCCFIRST.| 00002820: 49 4E 43 5A 47 32 2B 31 00 42 4E 45 46 49 52 53 |INCZG2+1.BNEFIRS| 00002830: 54 3B 57 45 49 54 45 52 53 55 43 48 45 4E 00 46 |T;WEITERSUCHEN.F| 00002840: 4F 4C 42 4C 3F 3A 49 4E 58 3B 57 45 49 54 45 52 |OLBL?:INX;WEITER| 00002850: 45 20 DA 45 49 43 48 45 4E 20 56 45 52 47 4C 45 |E .EICHEN VERGLE| 00002860: 49 43 48 45 4E 00 49 4E 59 00 4C 44 41 42 55 46 |ICHEN.INY.LDABUF| 00002870: 46 45 52 32 2C 58 00 42 45 51 45 4C 42 4C 3B CC |FER2,X.BEQELBL;.| 00002880: 41 42 45 4C 45 4E 44 45 00 4C 44 41 28 5A 47 32 |ABELENDE.LDA(ZG2| 00002890: 29 2C 59 00 43 4D 50 42 55 46 46 45 52 32 2C 58 |),Y.CMPBUFFER2,X| 000028A0: 00 42 45 51 46 4F 4C 42 4C 3F 3B 4E 45 58 54 20 |.BEQFOLBL?;NEXT | 000028B0: DA 45 49 43 48 45 4E 00 42 43 53 53 4C 52 54 32 |.EICHEN.BCSSLRT2| 000028C0: 3B 47 52 4F 45 53 53 45 52 2D 3E 20 4E 49 43 48 |;GROESSER-> NICH| 000028D0: 54 20 47 45 46 55 4E 44 45 4E 00 4C 44 59 23 30 |T GEFUNDEN.LDY#0| 000028E0: 3B 4E 45 58 54 20 CC 41 42 45 4C 00 42 45 51 41 |;NEXT .ABEL.BEQA| 000028F0: 44 5A 47 00 45 4C 42 4C 3A 4C 44 41 28 5A 47 32 |DZG.ELBL:LDA(ZG2| 00002900: 29 2C 59 3B C5 49 4E 54 52 41 47 45 4E 44 45 20 |),Y;.INTRAGENDE | 00002910: 3F 00 43 4D 50 23 34 00 42 43 43 46 4F 4C 42 4C |?.CMP#4.BCCFOLBL| 00002920: 3B 47 45 46 55 4E 44 45 4E 00 42 43 53 53 4C 52 |;GEFUNDEN.BCSSLR| 00002930: 54 32 3B 4E 45 49 4E 2D 3E 20 4E 49 43 48 54 20 |T2;NEIN-> NICHT | 00002940: 47 45 46 55 4E 44 45 4E 00 46 4F 4C 42 4C 3A 53 |GEFUNDEN.FOLBL:S| 00002950: 54 41 4C 41 42 45 4C 54 59 50 3B CC 41 42 45 4C |TALABELTYP;.ABEL| 00002960: 54 59 50 20 48 4F 4C 45 4E 00 4C 44 41 41 53 53 |TYP HOLEN.LDAASS| 00002970: 46 4C 41 47 53 00 41 4E 44 23 32 00 42 45 51 4E |FLAGS.AND#2.BEQN| 00002980: 4F 54 55 53 45 44 00 4C 44 41 4C 41 42 45 4C 54 |OTUSED.LDALABELT| 00002990: 59 50 3B 41 4C 53 20 42 45 4E 55 54 5A 54 20 4B |YP;ALS BENUTZT K| 000029A0: 45 4E 4E 5A 45 49 43 48 4E 45 4E 00 4F 52 41 23 |ENNZEICHNEN.ORA#| 000029B0: 32 00 53 54 41 28 5A 47 32 29 2C 59 00 4E 4F 54 |2.STA(ZG2),Y.NOT| 000029C0: 55 53 45 44 3A 49 4E 59 3B CC 41 42 45 4C 57 45 |USED:INY;.ABELWE| 000029D0: 52 54 20 48 4F 4C 45 4E 00 4C 44 41 28 5A 47 32 |RT HOLEN.LDA(ZG2| 000029E0: 29 2C 59 00 49 4E 59 00 53 54 41 4C 41 42 45 4C |),Y.INY.STALABEL| 000029F0: 57 45 52 54 00 4C 44 41 28 5A 47 32 29 2C 59 00 |WERT.LDA(ZG2),Y.| 00002A00: 53 54 41 4C 41 42 45 4C 57 45 52 54 2B 31 00 53 |STALABELWERT+1.S| 00002A10: 4C 52 54 32 3A 4C 44 41 23 4E 4F 52 4D 41 4C 3B |LRT2:LDA#NORMAL;| 00002A20: 5A 55 52 55 45 43 4B 00 53 54 41 31 00 52 54 53 |ZURUECK.STA1.RTS| 00002A30: 00 20 00 56 4C 42 4C 52 4F 4D 41 3A 00 4C 44 41 |. .VLBLROMA:.LDA| 00002A40: 23 24 33 34 3B D2 4F 55 54 49 4E 45 20 46 55 45 |#$34;.OUTINE FUE| 00002A50: 52 20 CC 41 42 45 4C 20 56 45 52 53 43 48 49 45 |R .ABEL VERSCHIE| 00002A60: 42 45 4E 00 53 54 41 31 00 4C 44 59 23 30 00 4C |BEN.STA1.LDY#0.L| 00002A70: 44 41 28 5A 47 32 29 2C 59 00 4C 44 59 4C 42 4C |DA(ZG2),Y.LDYLBL| 00002A80: 4C 45 4E 00 53 54 41 28 5A 47 32 29 2C 59 00 42 |LEN.STA(ZG2),Y.B| 00002A90: 4E 45 53 4C 52 54 32 00 42 45 51 53 4C 52 54 32 |NESLRT2.BEQSLRT2| 00002AA0: 00 4C 42 4C 52 4F 45 4E 44 3A 00 20 00 5A 41 44 |.LBLROEND:. .ZAD| 00002AB0: 52 41 4E 46 3A 00 53 45 49 3B C1 44 52 45 53 53 |RANF:.SEI;.DRESS| 00002AC0: 45 20 44 45 52 20 DA 45 49 4C 45 20 53 55 43 48 |E DER .EILE SUCH| 00002AD0: 45 4E 00 4C 44 41 23 24 33 34 00 53 54 41 31 00 |EN.LDA#$34.STA1.| 00002AE0: 41 4C 49 4E 45 3A 49 4E 43 4D 45 4D 31 3B DA 45 |ALINE:INCMEM1;.E| 00002AF0: 49 4C 45 2B 31 00 42 4E 45 53 55 43 48 00 49 4E |ILE+1.BNESUCH.IN| 00002B00: 43 4D 45 4D 31 2B 31 00 53 55 43 48 3A 4C 44 41 |CMEM1+1.SUCH:LDA| 00002B10: 4D 45 4D 31 3B 47 45 53 55 43 48 54 45 20 DA 45 |MEM1;GESUCHTE .E| 00002B20: 49 4C 45 20 3F 00 43 4D 50 5A 41 48 4C 31 00 42 |ILE ?.CMPZAHL1.B| 00002B30: 4E 45 53 55 43 48 4C 00 4C 44 41 4D 45 4D 32 00 |NESUCHL.LDAMEM2.| 00002B40: 43 4D 50 5A 41 48 4C 31 2B 31 00 42 4E 45 53 55 |CMPZAHL1+1.BNESU| 00002B50: 43 48 4C 00 4C 44 41 23 4E 4F 52 4D 41 4C 3B 4A |CHL.LDA#NORMAL;J| 00002B60: 41 00 53 54 41 31 00 52 54 53 00 53 45 4C 3A 4C |A.STA1.RTS.SEL:L| 00002B70: 44 41 28 5A 47 29 2C 59 3B DA 45 49 4C 45 4E 45 |DA(ZG),Y;.EILENE| 00002B80: 4E 44 45 20 3F 00 42 45 51 41 4C 49 4E 45 00 53 |NDE ?.BEQALINE.S| 00002B90: 55 43 48 4C 3A 49 4E 59 3B CE 41 45 43 48 53 54 |UCHL:INY;.AECHST| 00002BA0: 45 20 DA 45 49 4C 45 00 42 4E 45 53 45 4C 00 49 |E .EILE.BNESEL.I| 00002BB0: 4E 43 5A 47 2B 31 00 42 4E 45 53 45 4C 00 5A 41 |NCZG+1.BNESEL.ZA| 00002BC0: 44 52 45 4E 44 3A 00 20 00 4D 52 4F 41 4E 46 3A |DREND:. .MROANF:| 00002BD0: 00 53 45 49 3B CD 4F 4E 49 54 4F 52 20 2D 20 D2 |.SEI;.ONITOR - .| 00002BE0: 4F 55 54 49 4E 45 4E 00 4C 44 41 50 50 3B D3 50 |OUTINEN.LDAPP;.P| 00002BF0: 45 49 43 48 45 52 56 45 52 54 45 49 4C 55 4E 47 |EICHERVERTEILUNG| 00002C00: 20 53 45 54 5A 45 4E 00 53 54 41 31 00 50 4C 41 | SETZEN.STA1.PLA| 00002C10: 00 50 4C 50 3B D2 4F 55 54 49 4E 45 20 41 55 46 |.PLP;.OUTINE AUF| 00002C20: 52 55 46 45 4E 00 4A 55 42 45 46 3A 4A 53 52 24 |RUFEN.JUBEF:JSR$| 00002C30: 46 46 46 46 3B 44 55 4D 4D 59 00 50 48 50 00 50 |FFFF;DUMMY.PHP.P| 00002C40: 48 41 00 4C 44 41 23 4E 4F 52 4D 41 4C 3B 55 4E |HA.LDA#NORMAL;UN| 00002C50: 44 20 5A 55 52 55 45 43 4B 00 53 54 41 31 00 4A |D ZURUECK.STA1.J| 00002C60: 4D 50 4D 4F 4E 49 54 4F 52 2B 33 00 20 00 42 52 |MPMONITOR+3. .BR| 00002C70: 4B 4A 55 3A 4C 44 41 23 4E 4F 52 4D 41 4C 00 53 |KJU:LDA#NORMAL.S| 00002C80: 54 41 31 00 4A 4D 50 4D 4F 4E 49 54 4F 52 2B 36 |TA1.JMPMONITOR+6| 00002C90: 00 20 00 4D 52 4F 31 3A 53 45 49 3B 57 45 52 54 |. .MRO1:SEI;WERT| 00002CA0: 20 56 4F 4E 20 41 44 52 45 53 53 45 20 5A 47 20 | VON ADRESSE ZG | 00002CB0: 48 4F 4C 45 4E 00 4C 44 41 50 50 00 53 54 41 31 |HOLEN.LDAPP.STA1| 00002CC0: 00 4C 44 41 28 5A 47 29 2C 59 3B 57 45 52 54 20 |.LDA(ZG),Y;WERT | 00002CD0: 48 4F 4C 45 4E 00 50 48 41 3B 4D 45 52 4B 45 4E |HOLEN.PHA;MERKEN| 00002CE0: 00 4C 44 41 23 4E 4F 52 4D 41 4C 3B 53 50 45 49 |.LDA#NORMAL;SPEI| 00002CF0: 43 48 45 52 20 4E 4F 52 4D 41 4C 00 53 54 41 31 |CHER NORMAL.STA1| 00002D00: 00 50 4C 41 3B 57 45 52 54 20 5A 55 52 55 45 43 |.PLA;WERT ZURUEC| 00002D10: 4B 48 4F 4C 45 4E 00 52 54 53 00 20 00 4D 52 4F |KHOLEN.RTS. .MRO| 00002D20: 32 3A 50 48 41 3B 57 45 52 54 20 4E 41 43 48 20 |2:PHA;WERT NACH | 00002D30: 41 44 52 45 53 53 45 20 5A 47 00 53 45 49 00 4C |ADRESSE ZG.SEI.L| 00002D40: 44 41 23 24 33 34 3B 41 4C 4C 45 53 20 52 41 4D |DA#$34;ALLES RAM| 00002D50: 00 53 54 41 31 00 50 4C 41 00 50 48 41 3B 53 50 |.STA1.PLA.PHA;SP| 00002D60: 45 49 43 48 45 52 4E 20 55 4E 44 20 4D 45 52 4B |EICHERN UND MERK| 00002D70: 45 4E 00 53 54 41 28 5A 47 29 2C 59 00 4C 44 41 |EN.STA(ZG),Y.LDA| 00002D80: 23 4E 4F 52 4D 41 4C 3B 53 50 45 49 43 48 45 52 |#NORMAL;SPEICHER| 00002D90: 20 4E 4F 52 4D 41 4C 00 53 54 41 31 00 50 4C 41 | NORMAL.STA1.PLA| 00002DA0: 3B 57 45 52 54 20 5A 55 52 55 45 43 4B 48 4F 4C |;WERT ZURUECKHOL| 00002DB0: 45 4E 00 52 54 53 00 4D 52 4F 45 4E 44 3A 00 20 |EN.RTS.MROEND:. | 00002DC0: 00 3B D3 54 41 52 54 41 44 52 45 53 53 45 4E 20 |.;.TARTADRESSEN | 00002DD0: 44 45 52 20 D2 4F 55 54 49 4E 45 4E 20 42 45 52 |DER .OUTINEN BER| 00002DE0: 45 43 48 4E 45 4E 00 52 41 4D 43 4F 50 59 3A 2E |ECHNEN.RAMCOPY:.| 00002DF0: 45 51 52 4F 55 54 49 4E 45 4E 00 48 4F 4C 5A 47 |EQROUTINEN.HOLZG| 00002E00: 3A 2E 45 51 52 4F 55 54 49 4E 45 4E 00 48 4F 4C |:.EQROUTINEN.HOL| 00002E10: 5A 47 32 3A 2E 45 51 48 4F 4C 5A 47 2B 52 52 4F |ZG2:.EQHOLZG+RRO| 00002E20: 32 2D 52 41 4D 52 4F 41 4E 46 00 50 55 54 5A 47 |2-RAMROANF.PUTZG| 00002E30: 3A 2E 45 51 48 4F 4C 5A 47 2B 52 52 4F 33 2D 52 |:.EQHOLZG+RRO3-R| 00002E40: 41 4D 52 4F 41 4E 46 00 50 55 54 5A 47 32 3A 2E |AMROANF.PUTZG2:.| 00002E50: 45 51 48 4F 4C 5A 47 2B 52 52 4F 34 2D 52 41 4D |EQHOLZG+RRO4-RAM| 00002E60: 52 4F 41 4E 46 00 44 4F 52 55 4E 3A 2E 45 51 52 |ROANF.DORUN:.EQR| 00002E70: 4F 55 54 49 4E 45 4E 00 4A 55 4D 50 41 44 52 3A |OUTINEN.JUMPADR:| 00002E80: 2E 45 51 44 4F 52 55 4E 2B 4A 55 4D 50 2D 52 55 |.EQDORUN+JUMP-RU| 00002E90: 4E 41 4E 46 2B 31 00 4D 45 52 4B 46 45 4C 44 3A |NANF+1.MERKFELD:| 00002EA0: 2E 45 51 44 4F 52 55 4E 2B 52 55 4E 45 4E 44 2D |.EQDORUN+RUNEND-| 00002EB0: 52 55 4E 41 4E 46 00 56 4C 42 4C 52 4F 3A 2E 45 |RUNANF.VLBLRO:.E| 00002EC0: 51 52 4F 55 54 49 4E 45 32 2B 56 4C 42 4C 52 4F |QROUTINE2+VLBLRO| 00002ED0: 4D 41 2D 4C 42 4C 52 4F 41 4E 46 00 5A 47 45 54 |MA-LBLROANF.ZGET| 00002EE0: 3A 2E 45 51 52 4F 55 54 49 4E 45 4E 2B 4D 52 4F |:.EQROUTINEN+MRO| 00002EF0: 31 2D 4D 52 4F 41 4E 46 00 5A 50 55 54 3A 2E 45 |1-MROANF.ZPUT:.E| 00002F00: 51 52 4F 55 54 49 4E 45 4E 2B 4D 52 4F 32 2D 4D |QROUTINEN+MRO2-M| 00002F10: 52 4F 41 4E 46 00 4A 55 4D 50 42 45 46 45 48 4C |ROANF.JUMPBEFEHL| 00002F20: 3A 2E 45 51 52 4F 55 54 49 4E 45 4E 2B 4A 55 42 |:.EQROUTINEN+JUB| 00002F30: 45 46 2D 4D 52 4F 41 4E 46 00 42 52 45 41 4B 4A |EF-MROANF.BREAKJ| 00002F40: 55 4D 50 3A 2E 45 51 52 4F 55 54 49 4E 45 4E 2B |UMP:.EQROUTINEN+| 00002F50: 42 52 4B 4A 55 2D 4D 52 4F 41 4E 46 00 20 00 3B |BRKJU-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 2A 2A 00 3B 2A 20 2A 20 20 20 20 |*******.;* * | 00002F90: 20 20 20 20 20 20 CC 4F 41 44 2D D2 4F 55 54 49 | .OAD-.OUTI| 00002FA0: 4E 45 20 20 20 20 20 20 20 20 20 20 20 2A 20 2A |NE * *| 00002FB0: 00 3B 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 2A 2A 00 20 00 56 45 52 49 |*********. .VERI| 00002FE0: 46 59 3A 4C 44 41 23 31 3B C6 4C 41 47 20 46 55 |FY:LDA#1;.LAG FU| 00002FF0: 45 52 20 D6 45 52 49 46 59 00 2E 42 59 24 32 43 |ER .ERIFY..BY$2C| 00003000: 00 20 00 4C 4F 41 44 3A 4C 44 41 23 30 00 53 54 |. .LOAD:LDA#0.ST| 00003010: 41 5A 41 48 4C 33 3B C6 4C 41 47 20 46 55 45 52 |AZAHL3;.LAG FUER| 00003020: 20 CC 4F 41 44 2F D6 45 52 49 46 59 00 4C 44 41 | .OAD/.ERIFY.LDA| 00003030: 54 58 54 41 4E 46 3B 5A 47 20 41 55 46 20 D4 45 |TXTANF;ZG AUF .E| 00003040: 58 54 41 4E 46 41 4E 47 00 53 54 41 5A 47 00 4C |XTANFANG.STAZG.L| 00003050: 44 41 54 58 54 41 4E 46 2B 31 00 53 54 41 5A 47 |DATXTANF+1.STAZG| 00003060: 2B 31 00 4C 44 58 23 31 32 3B D4 45 58 54 4E 55 |+1.LDX#12;.EXTNU| 00003070: 4D 4D 45 52 20 46 55 45 52 20 CC 4F 41 44 00 4C |MMER FUER .OAD.L| 00003080: 44 41 5A 41 48 4C 33 00 42 45 51 4C 4F 41 50 00 |DAZAHL3.BEQLOAP.| 00003090: 4C 44 58 23 32 37 3B D4 45 58 54 4E 55 4D 4D 45 |LDX#27;.EXTNUMME| 000030A0: 52 20 46 55 45 52 20 D6 45 52 49 46 59 00 42 4E |R FUER .ERIFY.BN| 000030B0: 45 4C 4F 41 50 00 20 00 4D 45 52 47 45 3A 4A 53 |ELOAP. .MERGE:JS| 000030C0: 52 50 4F 49 4E 54 45 52 3B CD 45 52 47 45 00 4C |RPOINTER;.ERGE.L| 000030D0: 44 41 23 30 3B CC 4F 41 44 46 4C 41 47 00 53 54 |DA#0;.OADFLAG.ST| 000030E0: 41 5A 41 48 4C 33 00 4C 44 41 54 58 54 50 4F 49 |AZAHL3.LDATXTPOI| 000030F0: 4E 54 3B 5A 47 20 41 55 46 20 D4 45 58 54 45 4E |NT;ZG AUF .EXTEN| 00003100: 44 45 00 53 54 41 5A 47 00 4C 44 41 54 58 54 50 |DE.STAZG.LDATXTP| 00003110: 4F 49 4E 54 2B 31 00 53 54 41 5A 47 2B 31 00 4C |OINT+1.STAZG+1.L| 00003120: 44 58 23 31 34 3B D4 45 58 54 4E 55 4D 4D 45 52 |DX#14;.EXTNUMMER| 00003130: 20 46 55 45 52 20 CD 45 52 47 45 00 4C 4F 41 50 | FUER .ERGE.LOAP| 00003140: 3A 4A 53 52 57 52 49 54 45 00 4C 44 58 23 36 00 |:JSRWRITE.LDX#6.| 00003150: 4A 53 52 57 52 49 54 45 00 4A 53 52 53 54 52 31 |JSRWRITE.JSRSTR1| 00003160: 36 49 4E 3B C6 49 4C 45 4E 41 4D 45 20 48 4F 4C |6IN;.ILENAME HOL| 00003170: 45 4E 00 54 59 41 00 42 4E 45 2A 2B 35 00 4A 4D |EN.TYA.BNE*+5.JM| 00003180: 50 4D 41 49 4E 52 54 00 4A 53 52 44 49 53 4B 49 |PMAINRT.JSRDISKI| 00003190: 4E 49 54 00 4C 44 58 23 3C 42 55 46 46 45 52 3B |NIT.LDX#<BUFFER;| 000031A0: CE 41 4D 45 4E 20 53 45 54 5A 45 4E 00 4C 44 59 |.AMEN SETZEN.LDY| 000031B0: 23 3E 42 55 46 46 45 52 00 4A 53 52 53 45 54 4E |#>BUFFER.JSRSETN| 000031C0: 41 4D 45 00 4C 44 41 23 31 3B C6 4C 4F 50 50 59 |AME.LDA#1;.LOPPY| 000031D0: 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E |PARAMETER SETZEN| 000031E0: 00 4C 44 58 23 46 4C 4F 44 45 56 00 4C 44 59 23 |.LDX#FLODEV.LDY#| 000031F0: 30 00 4A 53 52 53 45 54 50 41 52 41 00 4A 53 52 |0.JSRSETPARA.JSR| 00003200: 4F 50 45 4E 3B C6 49 4C 45 20 4F 45 46 46 4E 45 |OPEN;.ILE OEFFNE| 00003210: 4E 00 4C 44 58 23 31 3B C5 49 4E 47 41 42 45 20 |N.LDX#1;.INGABE | 00003220: 56 4F 4E 20 C6 4C 4F 50 50 59 00 4A 53 52 43 48 |VON .LOPPY.JSRCH| 00003230: 4B 49 4E 00 4A 53 52 42 41 53 49 4E 3B C6 49 4C |KIN.JSRBASIN;.IL| 00003240: 45 4C 41 45 4E 47 45 20 48 4F 4C 45 4E 00 53 54 |ELAENGE HOLEN.ST| 00003250: 41 4D 45 4D 31 00 4C 44 41 53 54 41 54 55 53 00 |AMEM1.LDASTATUS.| 00003260: 42 45 51 49 4E 4F 4B 00 4A 53 52 43 4C 4F 41 4C |BEQINOK.JSRCLOAL| 00003270: 4C 3B C6 4C 4F 50 50 59 20 C5 52 52 4F 52 00 4A |L;.LOPPY .RROR.J| 00003280: 4D 50 44 49 45 52 52 00 49 4E 4F 4B 3A 4A 53 52 |MPDIERR.INOK:JSR| 00003290: 42 41 53 49 4E 00 53 54 41 4D 45 4D 32 00 43 4C |BASIN.STAMEM2.CL| 000032A0: 43 3B C1 55 46 20 D3 50 45 49 43 48 45 52 50 4C |C;.UF .PEICHERPL| 000032B0: 41 54 5A 20 54 45 53 54 45 4E 00 4C 44 41 4D 45 |ATZ TESTEN.LDAME| 000032C0: 4D 31 00 41 44 43 5A 47 00 53 54 41 5A 41 48 4C |M1.ADCZG.STAZAHL| 000032D0: 31 00 4C 44 41 4D 45 4D 32 00 41 44 43 5A 47 2B |1.LDAMEM2.ADCZG+| 000032E0: 31 00 53 54 41 5A 41 48 4C 31 2B 31 3B DA 41 48 |1.STAZAHL1+1;.AH| 000032F0: 4C 20 31 3D D0 4C 41 54 5A 42 45 44 41 52 46 00 |L 1=.LATZBEDARF.| 00003300: 42 43 53 4E 4F 52 41 4D 00 4C 44 41 54 58 54 45 |BCSNORAM.LDATXTE| 00003310: 4E 44 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 54 |ND.STAZAHL2.LDAT| 00003320: 58 54 45 4E 44 2B 31 00 53 54 41 5A 41 48 4C 32 |XTEND+1.STAZAHL2| 00003330: 2B 31 00 4A 53 52 56 45 52 47 4C 45 49 43 48 3B |+1.JSRVERGLEICH;| 00003340: C2 45 44 41 52 46 20 4D 49 54 20 D0 4C 41 54 5A |.EDARF MIT .LATZ| 00003350: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 42 43 43 | VERGLEICHEN.BCC| 00003360: 4C 41 44 45 4E 00 4E 4F 52 41 4D 3A 4A 53 52 4E |LADEN.NORAM:JSRN| 00003370: 45 58 54 5A 45 49 3B DA 55 20 57 45 4E 49 47 20 |EXTZEI;.U WENIG | 00003380: D3 50 45 49 43 48 45 52 00 4C 44 58 23 31 35 00 |.PEICHER.LDX#15.| 00003390: 4C 4F 4D 45 56 45 45 52 52 3A 4A 53 52 42 45 45 |LOMEVEERR:JSRBEE| 000033A0: 50 00 4A 53 52 57 52 49 54 45 00 4A 53 52 43 4C |P.JSRWRITE.JSRCL| 000033B0: 4F 41 4C 4C 00 4A 4D 50 4D 41 49 4E 52 54 00 4C |OALL.JMPMAINRT.L| 000033C0: 41 44 45 4E 3A 4A 53 52 42 41 53 49 4E 3B C6 49 |ADEN:JSRBASIN;.I| 000033D0: 4C 45 20 4C 41 44 45 4E 00 4C 44 59 23 30 00 4C |LE LADEN.LDY#0.L| 000033E0: 44 58 5A 41 48 4C 33 00 42 4E 45 56 45 52 49 00 |DXZAHL3.BNEVERI.| 000033F0: 4A 53 52 50 55 54 5A 47 3B DA 45 49 43 48 45 4E |JSRPUTZG;.EICHEN| 00003400: 2D 3E D2 C1 CD 00 4A 4D 50 4C 4F 41 44 43 4F 4E |->....JMPLOADCON| 00003410: 54 00 56 45 52 49 3A 53 54 41 4D 45 4D 34 3B DA |T.VERI:STAMEM4;.| 00003420: 45 49 43 48 45 4E 20 56 45 52 47 4C 45 49 43 48 |EICHEN VERGLEICH| 00003430: 45 4E 00 4A 53 52 48 4F 4C 5A 47 00 43 4D 50 4D |EN.JSRHOLZG.CMPM| 00003440: 45 4D 34 00 42 45 51 4C 4F 41 44 43 4F 4E 54 00 |EM4.BEQLOADCONT.| 00003450: 4C 44 58 23 32 36 3B D6 45 52 49 46 59 20 C5 52 |LDX#26;.ERIFY .R| 00003460: 52 4F 52 00 4A 53 52 4E 45 58 54 5A 45 49 00 4A |ROR.JSRNEXTZEI.J| 00003470: 4D 50 4C 4F 4D 45 56 45 45 52 52 00 4C 4F 41 44 |MPLOMEVEERR.LOAD| 00003480: 43 4F 4E 54 3A 49 4E 43 5A 47 3B 5A 47 2B 31 00 |CONT:INCZG;ZG+1.| 00003490: 42 4E 45 2A 2B 34 00 49 4E 43 5A 47 2B 31 00 4C |BNE*+4.INCZG+1.L| 000034A0: 44 41 53 54 41 54 55 53 3B C6 49 4C 45 45 4E 44 |DASTATUS;.ILEEND| 000034B0: 45 20 3F 00 42 45 51 4C 41 44 45 4E 3B 4E 45 49 |E ?.BEQLADEN;NEI| 000034C0: 4E 00 4A 53 52 43 4C 4F 41 4C 4C 00 4A 53 52 50 |N.JSRCLOALL.JSRP| 000034D0: 4F 49 4E 54 45 52 00 4A 53 52 42 45 45 50 00 4A |OINTER.JSRBEEP.J| 000034E0: 4D 50 4D 41 49 4E 52 54 00 20 00 3B 2A 2A 2A 2A |MPMAINRT. .;****| 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 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 |***.;* * | 00003520: 20 20 20 20 D3 41 56 45 2D D2 4F 55 54 49 4E 45 | .AVE-.OUTINE| 00003530: 20 20 20 20 20 20 20 20 20 2A 20 2A 00 3B 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 2A 2A 00 20 00 53 41 56 45 3A 4A 53 52 |*****. .SAVE:JSR| 00003570: 50 4F 49 4E 54 45 52 00 53 45 43 3B 5A 41 48 4C |POINTER.SEC;ZAHL| 00003580: 31 20 3D 20 C6 49 4C 45 4C 41 45 4E 47 45 00 4C |1 = .ILELAENGE.L| 00003590: 44 41 54 58 54 50 4F 49 4E 54 00 53 42 43 54 58 |DATXTPOINT.SBCTX| 000035A0: 54 41 4E 46 00 53 54 41 5A 41 48 4C 31 00 4C 44 |TANF.STAZAHL1.LD| 000035B0: 41 54 58 54 50 4F 49 4E 54 2B 31 00 53 42 43 54 |ATXTPOINT+1.SBCT| 000035C0: 58 54 41 4E 46 2B 31 00 53 54 41 5A 41 48 4C 31 |XTANF+1.STAZAHL1| 000035D0: 2B 31 00 4C 44 58 23 31 33 3B C6 49 4C 45 4E 41 |+1.LDX#13;.ILENA| 000035E0: 4D 45 4E 20 48 4F 4C 45 4E 00 4A 53 52 57 52 49 |MEN HOLEN.JSRWRI| 000035F0: 54 45 00 4C 44 58 23 36 00 4A 53 52 57 52 49 54 |TE.LDX#6.JSRWRIT| 00003600: 45 00 4A 53 52 53 54 52 31 36 49 4E 00 54 59 41 |E.JSRSTR16IN.TYA| 00003610: 00 42 4E 45 2A 2B 35 00 4A 4D 50 4D 41 49 4E 52 |.BNE*+5.JMPMAINR| 00003620: 54 00 4A 53 52 44 49 53 4B 49 4E 49 54 00 4C 44 |T.JSRDISKINIT.LD| 00003630: 58 23 3C 42 55 46 46 45 52 3B C6 49 4C 45 50 41 |X#<BUFFER;.ILEPA| 00003640: 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 4C |RAMETER SETZEN.L| 00003650: 44 59 23 3E 42 55 46 46 45 52 00 4A 53 52 53 45 |DY#>BUFFER.JSRSE| 00003660: 54 4E 41 4D 45 00 4C 44 41 23 31 00 4C 44 58 23 |TNAME.LDA#1.LDX#| 00003670: 46 4C 4F 44 45 56 00 54 41 59 00 4A 53 52 53 45 |FLODEV.TAY.JSRSE| 00003680: 54 50 41 52 41 00 4A 53 52 4F 50 45 4E 00 4C 44 |TPARA.JSROPEN.LD| 00003690: 58 23 31 3B C1 55 53 47 41 42 45 20 41 55 46 20 |X#1;.USGABE AUF | 000036A0: C4 49 53 4B 00 4A 53 52 43 4B 4F 55 54 00 4C 44 |.ISK.JSRCKOUT.LD| 000036B0: 41 5A 41 48 4C 31 3B C6 49 4C 45 4C 41 45 4E 47 |AZAHL1;.ILELAENG| 000036C0: 45 20 41 55 53 47 45 42 45 4E 00 4A 53 52 42 53 |E AUSGEBEN.JSRBS| 000036D0: 4F 55 54 00 4C 44 41 5A 41 48 4C 31 2B 31 00 4A |OUT.LDAZAHL1+1.J| 000036E0: 53 52 42 53 4F 55 54 00 4C 44 41 53 54 41 54 55 |SRBSOUT.LDASTATU| 000036F0: 53 3B D3 54 41 54 55 53 20 54 45 53 54 45 4E 00 |S;.TATUS TESTEN.| 00003700: 42 45 51 4F 55 54 4F 4B 00 4A 53 52 43 4C 4F 41 |BEQOUTOK.JSRCLOA| 00003710: 4C 4C 3B D3 41 56 45 2D C5 52 52 4F 52 20 28 C6 |LL;.AVE-.RROR (.| 00003720: 49 4C 45 20 45 58 49 53 54 53 20 45 54 43 2E 29 |ILE EXISTS ETC.)| 00003730: 00 4A 4D 50 44 49 45 52 52 00 4F 55 54 4F 4B 3A |.JMPDIERR.OUTOK:| 00003740: 4A 53 52 5A 47 54 45 58 54 00 4F 55 54 44 3A 4A |JSRZGTEXT.OUTD:J| 00003750: 53 52 48 4F 4C 5A 47 3B DA 45 49 43 48 45 4E 20 |SRHOLZG;.EICHEN | 00003760: 41 55 53 47 45 42 45 4E 00 4A 53 52 42 53 4F 55 |AUSGEBEN.JSRBSOU| 00003770: 54 00 49 4E 43 5A 47 3B 5A 47 2B 31 00 42 4E 45 |T.INCZG;ZG+1.BNE| 00003780: 2A 2B 34 00 49 4E 43 5A 47 2B 31 00 43 4D 50 23 |*+4.INCZG+1.CMP#| 00003790: 30 3B D4 45 58 54 45 4E 44 45 20 3F 00 42 4E 45 |0;.EXTENDE ?.BNE| 000037A0: 4F 55 54 44 3B 4E 45 49 4E 00 4A 53 52 48 4F 4C |OUTD;NEIN.JSRHOL| 000037B0: 5A 47 00 42 4E 45 4F 55 54 44 3B 4E 45 49 4E 00 |ZG.BNEOUTD;NEIN.| 000037C0: 4A 53 52 42 53 4F 55 54 00 4A 53 52 43 4C 4F 41 |JSRBSOUT.JSRCLOA| 000037D0: 4C 4C 00 4A 53 52 42 45 45 50 00 4A 4D 50 4D 41 |LL.JSRBEEP.JMPMA| 000037E0: 49 4E 52 54 00 20 00 2E 46 49 22 45 44 49 54 20 |INRT. ..FI"EDIT | 000037F0: 31 22 00 00 |1".. |
.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 02/88 VERSION: B",13,13,13. ..
BY"E-EDIT R-RUN G-GET F-FLOP
PY "..BY"A-ASSEMBLE I-INIT S-SAVE
C-CATALOG"..BY"P-PASS L-LABEL M-ME
RGE D-DISKCMD"..BY"B-BACK T-DRUCKE
R V-VERIFY N-MONITOR"..BY"H-HELP O-
OPTIONS W-WRITE",13,13,13,0. ..BY"TEXT:
$",0;TXT 1..BY"LABEL: $",0;TXT 2..BY"SI
ND SIE SICHER? (J/N)",13,0;TXT 3..BY"ALL
ES AUF RAM ?",0;TXT 4..BY"ADRESSE: ",0;T
XT 5..BY"DATEINAME: ",0;TXT 6..BY"CATALO
G-MASKE: ",0;TXT 7..BY"BEFEHL: ",0;TXT 8
..BY"-$",0;TXT 9..BY" GEFUELLT: $",0;TX
T 10..BY"ZEILE ZU LANG",0;TXT 11..BY"GET
",0;TXT 12..BY"SAVE ",0;TXT 13..BY"MERG
E ",0;TXT 14..BY"ZU WENIG SPEICHER",0;TX
T 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"KOM
MANDO NICHT DEFINIERT",0;TXT 20..BY"KEIN
BLOCK DEFINIERT",0;TXT 21..BY"CURSOR ST
EHT IM BLOCK",0;TXT 22..BY"DRUCKER A",0;
TXT 23..BY"ZEILE: ",0;TXT 24..BY"EINGABE
UNZULAESSIG",0;TXT 25..BY"VERIFY FEHLER
",0;TXT 26..BY"VERIFY ",0;TXT 27..BY"SUC
HE:",0;TXT 28..BY"ERSATZ: ",0;TXT 29..BY
"TEXT NICHT GEFUNDEN",0;TXT 30..BY"EDIT
- FIND ",0;TXT 31..BY"- SUBSTITUTE",0;TX
T 32..BY"KANN NICHT ERSETZT WERDEN",0;TX
T 33..BY"PROGRAM FIX UNUSED ALL ? ",0;TX
T 34..BY13,"LABEL-FILE:",13,13,0;TXT 35.
..BY"SPRUNG ZU LANG",0;TXT36..BY"OPERAN
D",0;TXT 37..BY"SYMBOLANZAHL",0;TXT 38..
BY"ADR. UNBEKANNT",0;TXT 39..BY"ADR. NIC
HT MOEGLICH",0;TXT 40..BY"SYMBOL DOPPELT
",0;TXT 41..BY"SYMBOL UNBEKANNT",0;TXT 4
2..BY"BEFEHL UNBEKANNT",0;TXT 43..BY"OPE
RAND ZU GROSS",0;TXT 44..BY"VERSCHACHTEL
T",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.
.BY"MODE",0;TXT 50..BY" FEHLER",0;TXT 51
..BY13,"-- ",0;TXT 52..BY13,"** PASS ",0
;TXT 53..BY" **",13,0;TXT 54..BY"PROTOKO
LL DRUCKEN ? ",0;TXT55..BY"SYMBOL ZU LAN
G",0;TXT56..BY" IN ZEILE ",0;TXT 57..BY"
FEHLER: ",0;TXT 58..BY"ZEIT: ",0;T
XT 59..BY"END-ADR.: ",0;TXT 60..BY"ZU VI
ELE 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;
TXT 65. ..BY"BERECHNUNGS",0;TXT 66. . .;
***************************************.
;* * ZAHL1 EIN/AUSGABE * *
.;**************************************
*. .ZAHLHEXOUT:LDAZAHL1+1;ZAHL1 HEX. AUS
GEBEN.JSRHEXOUT.LDAZAHL1. .HEXOUT:PHA;EI
N BYTE HEX AUSGEBEN.LSR;BYTE / 16.LSR.LS
R.LSR.JSRHEX;HI-NIBBLE AUSGEBEN.PLA.AND#
%1111;LOW-NIBBLE AUSGEBEN. .HEX:CLC;EIN
NIBBLE HEX AUSGEBEN.ADC#'0.CMP#':;>9?.BC
CZA.ADC#6;TRANSFORMATION AUF 'A.ZA:JMPBS
OUT. .ZAHLDEZOUT:JSRPUSCH;ZAHL1 DEZIMAL
AUSGEBEN.LDX#3;ZAHL1/2 AUF STACK.RET:LDA
ZAHL1,X.PHA.DEX.BPLRET.JSRZAHLTODEZ;ZAHL
->STRING AUF STACK.ASCOUT:PLA;ERZEUGTER
STRING VON STACK.JSRBSOUT;AUSGEBEN.DEX.B
PLASCOUT.LDX#0.RH:PLA;ZAHL1/2 VOM STACK.
STAZAHL1,X.INX.CPX#4.BNERH.JMPPULL. .ZAH
LTODEZ:PLA;RUECKSPRUNG MERKEN.STABUFFER+
86.PLA.STABUFFER+87.LDX#0;ZAHL2 = 10.STX
ZAHL2+1.LDA#10.STAZAHL2.ASCII:JSRMOD;ZAH
L3 := ZAHL1 MOD ZAHL2.CLC;ZAHL3 ALS ZEIC
HEN AUF STACK.LDAZAHL3.ADC#'0.PHA.INX.JS
RDIV;ZAHL3 = ZAHL1 DIV ZAHL2.LDAZAHL3+1;
ZAHL1 = ZAHL3.STAZAHL1+1.LDAZAHL3.STAZAH
L1;ZAHL1=0 ?.ORAZAHL1+1.BNEASCII;NEIN -
WEITER.DEX.LDABUFFER+87.PHA.LDABUFFER+86
.PHA.RTS. .ZAHLBINOUT:LDX#16;ZAHL1 BIN.
AUSGEBEN.ROZA:ROLZAHL1;STELLE -> CARRY.R
OLZAHL1+1.PHP.LDA#0;CARRY + '0.ADC#'0.JS
RBSOUT;AUSGEBEN.PLP.DEX.BNEROZA.ROLZAHL1
;ZAHL1 KORRIGIEREN.ROLZAHL1+1.RTS. .ZAHL
OCTOUT:LDAZAHL1;ZAHL1 OCT. AUSGEBEN.PHA;
ZAHL1 RETTEN.LDAZAHL1+1.PHA.LDX#0.OCTOUT
:LDAZAHL1;3 BIT -> STELLE.AND#%111.CLC.A
DC#'0.PHA;ALS ZEICHEN AUF STACK.INX;ZEIC
HENZAEHLER+1.JSRRORZA;ZAHL1 / 8.JSRRORZA
.JSRRORZA.LDAZAHL1;ZAHL1=0 ?.ORAZAHL1+1.
BNEOCTOUT;NEIN.OO:PLA;STRING VOM STACK.J
SRBSOUT.DEX.BNEOO.PLA;ZAHL1 ZURUECKHOLEN
.STAZAHL1+1.PLA.STAZAHL1.RTS.RORZA:LSRZA
HL1+1;ZAHL1 DIV 2.RORZAHL1.RTS. .ZAHLIN:
LDA#0;ZAHL1 EINLESEN.STAZAHL1;ZAHL1=0.ST
AZAHL1+1.ZIN:JSRBASIN;ERSTES ZEICHEN HOL
EN.CMP#32.BEQZIN.CMP#'$;HEXZAHL ?.BEQHEX
IN.CMP#'%;BINZAHL ?.BEQBININ.CMP#'&;OCTZ
AHL ?.BEQOKTIN.CMP#39;ZEICHEN ? (Z.B.'Y)
.BEQCHARIN. .DEZIN:SEC;DEZIMAL EINLESEN.
SBC#'0.BMIRTZAHL;ILLEGALES ZEICHEN.CMP#1
0.BCSRTZAHL;ILL. ZEICHEN.PHA.JSRZMAL10;Z
AHL1 * 10.PLA.CLC;ZAHL1 + ZIFFER.ADCZAHL
1.STAZAHL1.BCCNOC.INCZAHL1+1.NOC:JSRBASI
N;NEXT ZEICHEN.JMPDEZIN.RTZAHL:RTS. .BIN
IN:JSRBASIN;BIN. EINLESEN.SEC.SBC#'0.BMI
RTZAHL;ILL. ZEICHEN.CMP#2.BCSRTZAHL;ILL.
ZEICHEN.LSR;ZIFFER -> CARRY.ROLZAHL1;CA
RRY -> BIT IN ZAHL1.ROLZAHL1+1.JMPBININ.
.HEXIN:JSRBASIN;HEX. EINLESEN.SEC.SBC#'
0.BMIRTZAHL;ILL. ZEICHEN.CMP#10.BCCOKZAH
L.SBC#7.CMP#16.BCSRTZAHL;ILL. ZEICHEN.CM
P#10.BCCRTZAHL;ILL. ZEICHEN.OKZAHL:JSRZM
AL4;ZAHL1 * 16.JSRZMAL4.CLC;ZAHL1 + ZIFF
ER.ADCZAHL1.STAZAHL1.JMPHEXIN. .OKTIN:JS
RBASIN;OCT. EINLESEN.SEC.SBC#'0.BMIRTZAH
L;ILL. ZEICHEN.CMP#8.BCSRTZAHL;ILL. ZEIC
HEN.JSRZMAL4;ZAHL1 * 8.ASLZAHL1.ROLZAHL1
+1.CLC;ZAHL1 + ZIFFER.ADCZAHL1.STAZAHL1.
JMPOKTIN. .CHARIN:JSRBASIN;ZAHL1 = ZEICH
EN.STAZAHL1.JMPBASIN. .ZMAL4:ASLZAHL1;ZA
HL1 * 4.ROLZAHL1+1.ASLZAHL1.ROLZAHL1+1.R
TS. .ZMAL10:ASLZAHL1;ZAHL1 * 10.ROLZAHL1
+1.LDAZAHL1+1;ZAHL1 * 2 AUF STACK.PHA.LD
AZAHL1.PHA.JSRZMAL4;ZAHL1=ZAHL1 * 8.CLC.
PLA.ADCZAHL1;ZAHL1=ZAHL1*8+ZAHL1*2.STAZA
HL1.PLA.ADCZAHL1+1.STAZAHL1+1.RTS. .;***
************************************.;*
* ARITHMETIKROUTINEN * *.;*
**************************************.
.;ZAHL3:=ZAHL1*ZAHL2.MULT:JSRPUSCH.JSRZA
HLTOMEM;ZAHL1/2->MEM1.LDA#0;ZAHL3=0.STAZ
AHL3.STAZAHL3+1.LDX#16;16-BIT.MULO:LSRME
M3+1;2.ZAHL DIV 2.RORMEM3.BCCNOAD.CLC;BI
T GESETZT.LDAZAHL3;ZAHL3 = ZAHL3 + 1.ZAH
L.ADCMEM1.STAZAHL3.LDAZAHL3+1.ADCMEM1+1.
STAZAHL3+1.NOAD:ASLMEM1;1.ZAHL * 2.ROLME
M1+1.DEX;WEITER.BNEMULO.JMPPULL. .;ZAHL3
:=ZAHL1 DIV ZAHL2 (DIV=GANZZAHLIGE DIVIS
ION).DIV:JSRPUSCH.JSRZAHLTOMEM;ZAHL1/2->
MEM1.JSRDIVIDE;DIVIDIEREN.JMPPULL. .;ZAH
L3:=ZAHL1 MOD ZAHL2 (MOD=DIVISIONSREST).
MOD:JSRPUSCH.JSRZAHLTOMEM;ZAHL1/2->MEM1.
JSRDIVIDE;DIVIDIEREN.LDX#1;REST->ZAHL3.M
ODL:LDAMEM1,X.STAZAHL3,X.DEX.BPLMODL.JMP
PULL. .;** DIVIDE UNTERPROGRAMM DIV/MO
D **.DIVIDE:LDX#1;DIVIDIEREN.LDA#0;ZAHL
3=0.STAZAHL3.STAZAHL3+1.L1:LDAMEM3+1;2.Z
AHL LINKSBUENDIG MACHEN.BMIL2.ASLMEM3.RO
LMEM3+1.INX;DIVISIONSZAEHLER + 1.BNEL1;W
EITER.L2:SEC;1.ZAHL1 - 2.ZAHL.LDAMEM1.SB
CMEM3.STAMEM1.LDAMEM1+1.SBCMEM3+1.STAMEM
1+1.BCSL3;ERGEBNIS POSITIV.LDAMEM1;1.ZAH
L + 2.ZAHL.ADCMEM3.STAMEM1.LDAMEM1+1.ADC
MEM3+1.STAMEM1+1.CLC.L3:ROLZAHL3;ZAHL3 *
2.ROLZAHL3+1.DEX;DIVISIONZAEHLER -1.BNE
*+3.RTS.RORMEM3+1;2.ZAHL DIV 2.RORMEM3.J
MPL2;WEITER. .;*************************
**************.;* * RAM-ROUTIN
EN * *.;***********************
****************. .;DIE RAM-ROUTINEN DIE
NEN DEN ZUGRIFF AUF DEN GESAMTEN SPEICHE
R.;IN DER MODULVERSION. DA BEI DEM ZUGIF
F AUF DIESEN SPEICHER DAS.;MODUL ABGESCH
ALTET WIRD, MUESSEN DIE ZUGRIFFSROUTINEN
IN DAS.;RAM AUSGELAGERT WERDEN.. .PUTRA
MRO:LDY#RAMROEND-RAMROANF-1;ROUTINEN.PUT
:LDARAMROANF,Y;KOPIEREN.STAROUTINEN,Y.DE
Y.BPLPUT.RTS. .PUTCOPY:LDY#COEND-COANF-1
;COPYROUTINE.PUT2:LDACOANF,Y;KOPIEREN.ST
AROUTINEN,Y.DEY.BPLPUT2.RTS. .PUTRUNRO:L
DY#RUNEND-RUNANF-1;RUN-ROUTINE.PUT3:LDAR
UNANF,Y;KOPIEREN.STAROUTINEN,Y.DEY.BPLPU
T3.RTS. .PUTRO2:LDY#LBLROEND-LBLROANF-1;
ASSEMBLER-ROUTINEN.PUT4:LDALBLROANF,Y;KO
PIEREN.STAROUTINE2,Y.DEY.BPLPUT4.RTS. .P
UZADR:LDY#ZADREND-ZADRANF-1;EDITOR-ROUTI
NE.PUT5:LDAZADRANF,Y;KOPIEREN.STAROUTINE
N,Y.DEY.BPLPUT5.RTS. .PUTMONRO:LDY#MROEN
D-MROANF-1;MONITORERWEITERUNG-ROUTINEN.P
UT6:LDAMROANF,Y;KOPIEREN.STAROUTINEN,Y.D
EY.BPLPUT6.RTS. .RUNANF:.CLI;RUN-ROUTINE
.LDA#$37.STA1.JUMP:JSR$FFFF;DUMMY.LDA#NO
RMAL.STA1.SEI.JMPRUNRETURN.RUNEND:. .COA
NF:.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 HOL
EN.PHA;MERKEN.LDA#NORMAL;SPEICHER NORMAL
.STA1.PLA;WERT ZURUECKHOLEN.RTS. .RRO2:S
EI;WERT VON ADRESSE ZG2 HOLEN.LDA#$34.ST
A1.LDA(ZG2),Y;WERT HOLEN.PHA;MERKEN.LDA#
NORMAL;SPEICHER NORMAL.STA1.PLA;WERT ZUR
UECKHOLEN.RTS. .RRO3:PHA;WERT NACH ADRES
SE ZG.SEI.LDA#$34;ALLES RAM.STA1.PLA.PHA
;SPEICHERN UND MERKEN.STA(ZG),Y.LDA#NORM
AL;SPEICHER NORMAL.STA1.PLA;WERT ZURUECK
HOLEN.RTS. .RRO4:PHA;WERT NACH ADRESSE Z
G2.SEI.LDA#$34;ALLES RAM.STA1.PLA.PHA;SP
EICHERN UND MERKEN.STA(ZG2),Y.LDA#NORMAL
.STA1.PLA;WERT ZURUECKHOLEN.RTS.RAMROEND
:. .LBLROANF:.SEI;ASS. ROUTINE LABEL SUC
HEN.LDA#$34.STA1.FIRST:LDX#0.LDA(ZG2),Y.
BEQSLRT2;KEINE LABEL.CMPBUFFER2,X;ERSTES
ZEICHEN.BEQFOLBL?;GLEICH.BCSSLRT2;GROES
SER -> NICHT GEFUNDEN.ADZG:INCZG2;NAECHS
TES LABEL SUCHEN.BNE*+4.INCZG2+1.LDA(ZG2
),Y.CMP#4.BCSADZG.CLC;ZG + LABELWERTOFFS
ET.LDAZG2.ADC#3.STAZG2.BCCFIRST.INCZG2+1
.BNEFIRST;WEITERSUCHEN.FOLBL?:INX;WEITER
E ZEICHEN VERGLEICHEN.INY.LDABUFFER2,X.B
EQELBL;LABELENDE.LDA(ZG2),Y.CMPBUFFER2,X
.BEQFOLBL?;NEXT ZEICHEN.BCSSLRT2;GROESSE
R-> NICHT GEFUNDEN.LDY#0;NEXT LABEL.BEQA
DZG.ELBL:LDA(ZG2),Y;EINTRAGENDE ?.CMP#4.
BCCFOLBL;GEFUNDEN.BCSSLRT2;NEIN-> NICHT
GEFUNDEN.FOLBL:STALABELTYP;LABELTYP HOLE
N.LDAASSFLAGS.AND#2.BEQNOTUSED.LDALABELT
YP;ALS BENUTZT KENNZEICHNEN.ORA#2.STA(ZG
2),Y.NOTUSED:INY;LABELWERT HOLEN.LDA(ZG2
),Y.INY.STALABELWERT.LDA(ZG2),Y.STALABEL
WERT+1.SLRT2:LDA#NORMAL;ZURUECK.STA1.RTS
. .VLBLROMA:.LDA#$34;ROUTINE FUER LABEL
VERSCHIEBEN.STA1.LDY#0.LDA(ZG2),Y.LDYLBL
LEN.STA(ZG2),Y.BNESLRT2.BEQSLRT2.LBLROEN
D:. .ZADRANF:.SEI;ADRESSE DER ZEILE SUCH
EN.LDA#$34.STA1.ALINE:INCMEM1;ZEILE+1.BN
ESUCH.INCMEM1+1.SUCH:LDAMEM1;GESUCHTE ZE
ILE ?.CMPZAHL1.BNESUCHL.LDAMEM2.CMPZAHL1
+1.BNESUCHL.LDA#NORMAL;JA.STA1.RTS.SEL:L
DA(ZG),Y;ZEILENENDE ?.BEQALINE.SUCHL:INY
;NAECHSTE ZEILE.BNESEL.INCZG+1.BNESEL.ZA
DREND:. .MROANF:.SEI;MONITOR - ROUTINEN.
LDAPP;SPEICHERVERTEILUNG SETZEN.STA1.PLA
.PLP;ROUTINE AUFRUFEN.JUBEF:JSR$FFFF;DUM
MY.PHP.PHA.LDA#NORMAL;UND ZURUECK.STA1.J
MPMONITOR+3. .BRKJU:LDA#NORMAL.STA1.JMPM
ONITOR+6. .MRO1:SEI;WERT VON ADRESSE ZG
HOLEN.LDAPP.STA1.LDA(ZG),Y;WERT HOLEN.PH
A;MERKEN.LDA#NORMAL;SPEICHER NORMAL.STA1
.PLA;WERT ZURUECKHOLEN.RTS. .MRO2:PHA;WE
RT NACH ADRESSE ZG.SEI.LDA#$34;ALLES RAM
.STA1.PLA.PHA;SPEICHERN UND MERKEN.STA(Z
G),Y.LDA#NORMAL;SPEICHER NORMAL.STA1.PLA
;WERT ZURUECKHOLEN.RTS.MROEND:. .;STARTA
DRESSEN DER ROUTINEN BERECHNEN.RAMCOPY:.
EQROUTINEN.HOLZG:.EQROUTINEN.HOLZG2:.EQH
OLZG+RRO2-RAMROANF.PUTZG:.EQHOLZG+RRO3-R
AMROANF.PUTZG2:.EQHOLZG+RRO4-RAMROANF.DO
RUN:.EQROUTINEN.JUMPADR:.EQDORUN+JUMP-RU
NANF+1.MERKFELD:.EQDORUN+RUNEND-RUNANF.V
LBLRO:.EQROUTINE2+VLBLROMA-LBLROANF.ZGET
:.EQROUTINEN+MRO1-MROANF.ZPUT:.EQROUTINE
N+MRO2-MROANF.JUMPBEFEHL:.EQROUTINEN+JUB
EF-MROANF.BREAKJUMP:.EQROUTINEN+BRKJU-MR
OANF. .;********************************
*******.;* * LOAD-ROUTINE
* *.;******************************
*********. .VERIFY:LDA#1;FLAG FUER VERIF
Y..BY$2C. .LOAD:LDA#0.STAZAHL3;FLAG FUER
LOAD/VERIFY.LDATXTANF;ZG AUF TEXTANFANG
.STAZG.LDATXTANF+1.STAZG+1.LDX#12;TEXTNU
MMER FUER LOAD.LDAZAHL3.BEQLOAP.LDX#27;T
EXTNUMMER FUER VERIFY.BNELOAP. .MERGE:JS
RPOINTER;MERGE.LDA#0;LOADFLAG.STAZAHL3.L
DATXTPOINT;ZG AUF TEXTENDE.STAZG.LDATXTP
OINT+1.STAZG+1.LDX#14;TEXTNUMMER FUER ME
RGE.LOAP:JSRWRITE.LDX#6.JSRWRITE.JSRSTR1
6IN;FILENAME HOLEN.TYA.BNE*+5.JMPMAINRT.
JSRDISKINIT.LDX#<BUFFER;NAMEN SETZEN.LDY
#>BUFFER.JSRSETNAME.LDA#1;FLOPPYPARAMETE
R SETZEN.LDX#FLODEV.LDY#0.JSRSETPARA.JSR
OPEN;FILE OEFFNEN.LDX#1;EINGABE VON FLOP
PY.JSRCHKIN.JSRBASIN;FILELAENGE HOLEN.ST
AMEM1.LDASTATUS.BEQINOK.JSRCLOALL;FLOPPY
ERROR.JMPDIERR.INOK:JSRBASIN.STAMEM2.CL
C;AUF SPEICHERPLATZ TESTEN.LDAMEM1.ADCZG
.STAZAHL1.LDAMEM2.ADCZG+1.STAZAHL1+1;ZAH
L 1=PLATZBEDARF.BCSNORAM.LDATXTEND.STAZA
HL2.LDATXTEND+1.STAZAHL2+1.JSRVERGLEICH;
BEDARF MIT PLATZ VERGLEICHEN.BCCLADEN.NO
RAM:JSRNEXTZEI;ZU WENIG SPEICHER.LDX#15.
LOMEVEERR:JSRBEEP.JSRWRITE.JSRCLOALL.JMP
MAINRT.LADEN:JSRBASIN;FILE LADEN.LDY#0.L
DXZAHL3.BNEVERI.JSRPUTZG;ZEICHEN->RAM.JM
PLOADCONT.VERI:STAMEM4;ZEICHEN VERGLEICH
EN.JSRHOLZG.CMPMEM4.BEQLOADCONT.LDX#26;V
ERIFY ERROR.JSRNEXTZEI.JMPLOMEVEERR.LOAD
CONT:INCZG;ZG+1.BNE*+4.INCZG+1.LDASTATUS
;FILEENDE ?.BEQLADEN;NEIN.JSRCLOALL.JSRP
OINTER.JSRBEEP.JMPMAINRT. .;************
***************************.;* *
SAVE-ROUTINE * *.;**********
*****************************. .SAVE:JSR
POINTER.SEC;ZAHL1 = FILELAENGE.LDATXTPOI
NT.SBCTXTANF.STAZAHL1.LDATXTPOINT+1.SBCT
XTANF+1.STAZAHL1+1.LDX#13;FILENAMEN HOLE
N.JSRWRITE.LDX#6.JSRWRITE.JSRSTR16IN.TYA
.BNE*+5.JMPMAINRT.JSRDISKINIT.LDX#<BUFFE
R;FILEPARAMETER SETZEN.LDY#>BUFFER.JSRSE
TNAME.LDA#1.LDX#FLODEV.TAY.JSRSETPARA.JS
ROPEN.LDX#1;AUSGABE AUF DISK.JSRCKOUT.LD
AZAHL1;FILELAENGE AUSGEBEN.JSRBSOUT.LDAZ
AHL1+1.JSRBSOUT.LDASTATUS;STATUS TESTEN.
BEQOUTOK.JSRCLOALL;SAVE-ERROR (FILE EXIS
TS ETC.).JMPDIERR.OUTOK:JSRZGTEXT.OUTD:J
SRHOLZG;ZEICHEN AUSGEBEN.JSRBSOUT.INCZG;
ZG+1.BNE*+4.INCZG+1.CMP#0;TEXTENDE ?.BNE
OUTD;NEIN.JSRHOLZG.BNEOUTD;NEIN.JSRBSOUT
.JSRCLOALL.JSRBEEP.JMPMAINRT. ..FI"EDIT
1"..
> CLICK IMAGE PREVIEW FOR FULL MODAL