XB/B 1.2
FILE INFORMATION
FILENAME(S): XB/B 1.2
FILE TYPE(S): PRG
FILE SIZE: 21.5K
FIRST SEEN: 2025-10-20 14:31:04
APPEARS ON: 2 disk(s)
FILE HASH
8ad65f752b443791996c8ec2a828b5bf0c7ca9b8a242719b5ddbd2142c381418
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | XB/B 1.2 | PRG | Treasure Chest - Klaus Der Suhler | 26 | 4 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | XB/B 1.2 | PRG | Treasure Chest - Klaus Der Suhler | 26 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 22 56 2E 4C 53 00 3B 3B 3B D8 C2 C1 D3 C9 C3 20 |"V.LS.;;;...... | 00000010: D6 45 52 53 49 4F 4E 20 31 2E 32 20 28 43 29 20 |.ERSION 1.2 (C) | 00000020: CD 2E C6 52 49 45 53 45 20 34 2F 38 38 00 3B 3B |...RIESE 4/88.;;| 00000030: 3B 2D 2D 58 42 2F 42 20 31 2E 32 00 20 00 3B 2D |;--XB/B 1.2. .;-| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000060: 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 |------.;--- ....| 00000070: C9 C3 2D C2 45 46 45 48 4C 20 20 20 C5 CC D3 C5 |..-.EFEHL ....| 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 00 | ---.| 00000090: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 45 4C 53 45 3A |--------...ELSE:| 000000C0: 4C 44 41 4C 41 53 54 49 46 3B CC 45 54 5A 54 45 |LDALASTIF;.ETZTE| 000000D0: 20 C9 C6 2D C1 42 46 52 41 47 45 00 42 45 51 57 | ..-.BFRAGE.BEQW| 000000E0: 41 52 57 41 48 52 3B CE 55 4C 4C 20 3F 00 4C 44 |ARWAHR;.ULL ?.LD| 000000F0: 41 23 30 3B CE 45 49 4E 2C 20 CE 55 4C 4C 20 4C |A#0;.EIN, .ULL L| 00000100: 41 44 45 4E 00 42 49 54 00 57 41 52 57 41 48 52 |ADEN.BIT.WARWAHR| 00000110: 3A 4C 44 41 23 24 46 46 3B CA 41 2C 20 2D 31 20 |:LDA#$FF;.A, -1 | 00000120: 4C 41 44 45 4E 00 53 54 41 4C 41 53 54 49 46 3B |LADEN.STALASTIF;| 00000130: 55 4E 44 20 41 4C 53 20 4C 45 54 5A 54 45 53 20 |UND ALS LETZTES | 00000140: C5 52 47 45 42 4E 49 53 20 53 50 45 49 43 48 45 |.RGEBNIS SPEICHE| 00000150: 52 4E 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |RN. .;----------| 00000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D |-------------.;-| 00000180: 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C |-- ......-.EFEHL| 00000190: 20 20 20 C1 CC D3 CF 20 20 20 20 20 20 20 20 20 | .... | 000001A0: 20 20 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D | ---.;--------| 000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 000001D0: C2 C2 41 4C 53 4F 3A 4C 44 41 4C 41 53 54 49 46 |..ALSO:LDALASTIF| 000001E0: 3B 4C 45 54 5A 54 45 53 20 C5 52 47 45 42 4E 49 |;LETZTES .RGEBNI| 000001F0: 53 20 57 41 52 20 CE 55 4C 4C 00 42 4E 45 57 47 |S WAR .ULL.BNEWG| 00000200: 46 41 4C 53 43 48 3B 4E 45 49 4E 2C 20 57 45 49 |FALSCH;NEIN, WEI| 00000210: 54 45 52 4D 41 43 48 45 4E 00 4C 44 58 23 36 34 |TERMACHEN.LDX#64| 00000220: 3B DA 45 49 4C 45 20 55 45 42 45 52 53 50 52 49 |;.EILE UEBERSPRI| 00000230: 4E 47 45 4E 00 4A 53 52 42 41 53 49 43 52 4F 4D |NGEN.JSRBASICROM| 00000240: 00 57 47 46 41 4C 53 43 48 3A 52 54 53 3B 46 45 |.WGFALSCH:RTS;FE| 00000250: 52 54 49 47 00 20 00 4C 41 53 54 49 46 3A 2E 42 |RTIG. .LASTIF:.B| 00000260: 59 30 3B C5 52 47 45 42 4E 49 53 20 44 45 52 20 |Y0;.RGEBNIS DER | 00000270: 4C 45 54 5A 54 45 4E 20 C9 C6 2D C1 42 46 52 41 |LETZTEN ..-.BFRA| 00000280: 47 45 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |GE. .;----------| 00000290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D |-------------.;-| 000002B0: 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C |-- ......-.EFEHL| 000002C0: 20 20 CD C5 D2 C7 C5 20 C4 C1 D4 C5 C9 24 2C C4 | ..... .....$,.| 000002D0: C5 D6 20 2D 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D |.. ---.;--------| 000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000300: C2 C2 4D 45 52 47 45 3A 53 45 43 3B CD C5 D2 C7 |..MERGE:SEC;....| 00000310: C5 00 4C 44 41 34 35 3B 41 42 20 D0 52 4F 47 52 |..LDA45;AB .ROGR| 00000320: 41 4D 4D 45 4E 44 45 2D 32 20 4C 41 44 45 4E 00 |AMMENDE-2 LADEN.| 00000330: 53 42 43 23 32 00 53 54 41 41 5A 47 00 4C 44 41 |SBC#2.STAAZG.LDA| 00000340: 34 36 00 53 54 41 41 5A 47 2B 31 00 4A 53 52 44 |46.STAAZG+1.JSRD| 00000350: 4F 42 4C 4F 41 44 3B 5A 55 52 20 CC 41 44 45 2D |OBLOAD;ZUR .ADE-| 00000360: D2 4F 55 54 49 4E 45 00 4A 4D 50 C2 C2 4F 4C 44 |.OUTINE.JMP..OLD| 00000370: 3B 57 45 49 54 45 52 20 42 45 49 4D 20 CF CC C4 |;WEITER BEIM ...| 00000380: 2D C2 45 46 45 48 4C 00 20 00 3B 2D 2D 2D 2D 2D |-.EFEHL. .;-----| 00000390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003B0: 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 |--.;--- ......-.| 000003C0: 45 46 45 48 4C 20 20 C7 D3 C1 D6 C5 20 C4 C1 D4 |EFEHL ..... ...| 000003D0: C5 C9 24 2C C4 C5 D6 20 2D 2D 2D 00 3B 2D 2D 2D |..$,... ---.;---| 000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000400: 2D 2D 2D 2D 00 C2 C2 47 53 41 56 45 3A 4C 44 41 |----...GSAVE:LDA| 00000410: 23 3C 48 49 52 45 53 53 45 49 54 45 3B C7 D3 C1 |#<HIRESSEITE;...| 00000420: D6 C5 00 4C 44 58 23 3E 48 49 52 45 53 53 45 49 |...LDX#>HIRESSEI| 00000430: 54 45 3B 41 42 20 C8 49 52 45 53 53 45 49 54 45 |TE;AB .IRESSEITE| 00000440: 20 53 50 45 49 43 48 45 52 4E 00 53 54 41 56 4F | SPEICHERN.STAVO| 00000450: 4E 00 53 54 58 56 4F 4E 2B 31 00 4C 44 41 23 3C |N.STXVON+1.LDA#<| 00000460: 48 49 52 45 53 53 45 49 54 45 2B 38 30 30 30 3B |HIRESSEITE+8000;| 00000470: 38 30 30 30 20 C2 59 54 45 20 53 50 45 49 43 48 |8000 .YTE SPEICH| 00000480: 45 52 4E 00 4C 44 58 23 3E 48 49 52 45 53 53 45 |ERN.LDX#>HIRESSE| 00000490: 49 54 45 2B 38 30 30 30 00 53 54 41 42 49 53 00 |ITE+8000.STABIS.| 000004A0: 53 54 58 42 49 53 2B 31 00 4A 4D 50 47 53 41 56 |STXBIS+1.JMPGSAV| 000004B0: 45 3B 57 45 49 54 45 52 20 42 45 49 20 44 45 52 |E;WEITER BEI DER| 000004C0: 20 D3 C1 D6 C5 2D D2 4F 55 54 49 4E 45 00 20 00 | ....-.OUTINE. .| 000004D0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 C2 45 |--------.;--- .E| 00000500: 46 45 48 4C 20 C2 D3 C1 D6 C5 20 D6 CF CE 2C C2 |FEHL ..... ...,.| 00000510: C9 D3 2C C4 C1 D4 C5 C9 24 2C C4 C5 D6 20 2D 2D |..,.....$,... --| 00000520: 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |-.;-------------| 00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 42 53 41 |----------...BSA| 00000550: 56 45 3A 4A 53 52 47 45 54 41 44 52 3B C7 D3 C1 |VE:JSRGETADR;...| 00000560: D6 C5 00 4C 44 41 24 31 34 3B D3 54 41 52 54 41 |...LDA$14;.TARTA| 00000570: 44 52 45 53 53 45 20 45 49 4E 4C 45 53 45 4E 00 |DRESSE EINLESEN.| 00000580: 53 54 41 56 4F 4E 00 4C 44 41 24 31 35 00 53 54 |STAVON.LDA$15.ST| 00000590: 41 56 4F 4E 2B 31 00 4A 53 52 43 48 4B 4B 4F 4D |AVON+1.JSRCHKKOM| 000005A0: 3B 41 55 46 20 CB 4F 4D 4D 41 20 54 45 53 54 45 |;AUF .OMMA TESTE| 000005B0: 4E 00 4A 53 52 47 45 54 41 44 52 3B C5 4E 44 41 |N.JSRGETADR;.NDA| 000005C0: 44 52 45 53 53 45 20 45 49 4E 4C 45 53 45 4E 00 |DRESSE EINLESEN.| 000005D0: 4C 44 41 24 31 34 00 53 54 41 42 49 53 00 4C 44 |LDA$14.STABIS.LD| 000005E0: 41 24 31 35 00 53 54 41 42 49 53 2B 31 00 4A 53 |A$15.STABIS+1.JS| 000005F0: 52 43 48 4B 4B 4F 4D 3B 41 55 46 20 CB 4F 4D 4D |RCHKKOM;AUF .OMM| 00000600: 41 20 54 45 53 54 45 4E 00 47 53 41 56 45 3A 4A |A TESTEN.GSAVE:J| 00000610: 53 52 52 45 53 54 50 41 52 41 53 3B C4 41 54 45 |SRRESTPARAS;.ATE| 00000620: 49 4E 4E 41 4D 45 20 55 4E 44 20 C4 45 56 49 43 |INNAME UND .EVIC| 00000630: 45 20 46 45 53 54 4C 45 47 45 4E 00 4A 53 52 57 |E FESTLEGEN.JSRW| 00000640: 52 49 54 45 46 49 4C 45 4F 50 3B C4 41 54 45 49 |RITEFILEOP;.ATEI| 00000650: 20 4F 45 46 46 4E 45 4E 00 4C 44 41 56 4F 4E 3B | OEFFNEN.LDAVON;| 00000660: 41 5A 47 20 41 55 46 20 D3 54 41 52 54 41 44 52 |AZG AUF .TARTADR| 00000670: 45 53 53 45 00 53 54 41 41 5A 47 00 4A 53 52 42 |ESSE.STAAZG.JSRB| 00000680: 53 4F 55 54 3B 41 4C 53 20 D3 54 41 52 54 41 44 |SOUT;ALS .TARTAD| 00000690: 52 45 53 53 45 20 49 4E 20 C4 41 54 45 49 20 53 |RESSE IN .ATEI S| 000006A0: 43 48 52 45 49 42 45 4E 00 4C 44 41 56 4F 4E 2B |CHREIBEN.LDAVON+| 000006B0: 31 00 53 54 41 41 5A 47 2B 31 3B 45 42 45 4E 53 |1.STAAZG+1;EBENS| 000006C0: 4F 20 C8 49 47 48 20 C2 59 54 45 00 4A 53 52 42 |O .IGH .YTE.JSRB| 000006D0: 53 4F 55 54 00 50 55 54 49 54 3A 4C 44 59 23 30 |SOUT.PUTIT:LDY#0| 000006E0: 00 4C 44 58 50 50 3B 41 4C 4C 45 53 20 41 55 46 |.LDXPP;ALLES AUF| 000006F0: 20 D2 C1 CD 20 53 43 48 41 4C 54 45 4E 00 53 45 | ... SCHALTEN.SE| 00000700: 49 00 4C 44 41 23 24 33 30 00 53 54 41 50 50 00 |I.LDA#$30.STAPP.| 00000710: 4C 44 41 28 41 5A 47 29 2C 59 3B D7 45 52 54 20 |LDA(AZG),Y;.ERT | 00000720: 41 55 53 20 D2 C1 CD 20 4C 45 53 45 4E 00 53 54 |AUS ... LESEN.ST| 00000730: 58 50 50 3B 57 49 45 44 45 52 20 5A 55 52 55 45 |XPP;WIEDER ZURUE| 00000740: 43 4B 53 43 48 41 4C 54 45 4E 00 43 4C 49 00 4A |CKSCHALTEN.CLI.J| 00000750: 53 52 42 53 4F 55 54 00 4C 44 41 41 5A 47 3B C5 |SRBSOUT.LDAAZG;.| 00000760: 4E 44 41 44 52 45 53 53 45 20 45 52 52 45 49 43 |NDADRESSE ERREIC| 00000770: 48 54 20 3F 00 43 4D 50 42 49 53 00 42 4E 45 53 |HT ?.CMPBIS.BNES| 00000780: 41 56 43 4F 4E 3B 4E 45 49 4E 00 4C 44 41 41 5A |AVCON;NEIN.LDAAZ| 00000790: 47 2B 31 00 43 4D 50 42 49 53 2B 31 00 42 4E 45 |G+1.CMPBIS+1.BNE| 000007A0: 53 41 56 43 4F 4E 3B 4E 45 49 4E 00 4A 4D 50 52 |SAVCON;NEIN.JMPR| 000007B0: 45 41 44 46 49 4C 45 43 4C 4F 3B C4 41 54 45 49 |EADFILECLO;.ATEI| 000007C0: 20 53 43 48 4C 49 45 53 53 45 4E 00 53 41 56 43 | SCHLIESSEN.SAVC| 000007D0: 4F 4E 3A 49 4E 43 41 5A 47 3B DA 45 49 47 45 52 |ON:INCAZG;.EIGER| 000007E0: 20 2B 31 00 42 4E 45 50 55 54 49 54 00 49 4E 43 | +1.BNEPUTIT.INC| 000007F0: 41 5A 47 2B 31 3B 48 49 47 48 20 C2 59 54 45 00 |AZG+1;HIGH .YTE.| 00000800: 42 4E 45 50 55 54 49 54 00 20 00 57 52 49 54 45 |BNEPUTIT. .WRITE| 00000810: 46 49 4C 45 4F 50 3A 53 54 58 58 4D 45 4D 3B D0 |FILEOP:STXXMEM;.| 00000820: 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 |ARAMETER SETZEN.| 00000830: 4C 44 59 23 31 00 4C 44 58 23 32 36 00 4A 53 52 |LDY#1.LDX#26.JSR| 00000840: 42 41 53 49 43 52 4F 4D 00 4C 44 58 23 33 30 3B |BASICROM.LDX#30;| 00000850: CF D0 C5 CE 2D C2 45 46 45 48 4C 00 4A 53 52 42 |....-.EFEHL.JSRB| 00000860: 41 53 49 43 52 4F 4D 00 42 43 43 2A 2B 32 2B 33 |ASICROM.BCC*+2+3| 00000870: 00 54 4F 4F 50 45 4E 45 52 52 3A 4A 4D 50 4F 50 |.TOOPENERR:JMPOP| 00000880: 45 4E 45 52 52 3B 47 47 46 20 C6 45 48 4C 45 52 |ENERR;GGF .EHLER| 00000890: 20 4D 45 4C 44 45 4E 00 4C 44 41 44 41 54 45 49 | MELDEN.LDADATEI| 000008A0: 4E 52 3B C1 55 53 47 41 42 45 4E 20 41 55 46 20 |NR;.USGABEN AUF | 000008B0: C4 41 54 45 49 20 55 4D 4C 45 4E 4B 45 4E 00 53 |.ATEI UMLENKEN.S| 000008C0: 54 41 58 4D 45 4D 00 4C 44 58 23 33 36 00 4A 53 |TAXMEM.LDX#36.JS| 000008D0: 52 42 41 53 49 43 52 4F 4D 00 42 43 53 54 4F 4F |RBASICROM.BCSTOO| 000008E0: 50 45 4E 45 52 52 3B 47 47 46 20 C6 45 48 4C 45 |PENERR;GGF .EHLE| 000008F0: 52 20 4D 45 4C 44 45 4E 00 52 54 53 00 20 00 56 |R MELDEN.RTS. .V| 00000900: 4F 4E 3A 2E 45 51 4D 45 4D 3B D3 54 41 52 54 41 |ON:.EQMEM;.TARTA| 00000910: 44 52 45 53 53 45 00 42 49 53 3A 2E 45 51 4D 45 |DRESSE.BIS:.EQME| 00000920: 4D 2B 31 3B C5 4E 44 41 44 52 45 53 53 45 00 20 |M+1;.NDADRESSE. | 00000930: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 |---------.;--- .| 00000960: C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 20 C7 CC CF |.....-.EFEHL ...| 00000970: C1 C4 20 20 C4 C1 D4 C5 C9 24 2C C4 C5 D6 20 2D |.. .....$,... -| 00000980: 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 |--.;--- ......-.| 00000990: 45 46 45 48 4C 20 C7 CC CF C1 C4 C1 20 C4 C1 D4 |EFEHL ...... ...| 000009A0: C5 C9 24 2C C4 C5 D6 20 2D 2D 2D 00 3B 2D 2D 2D |..$,... ---.;---| 000009B0: 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 20 C7 | ......-.EFEHL .| 000009C0: CC CF C1 C4 CF 20 C4 C1 D4 C5 C9 24 2C C4 C5 D6 |..... .....$,...| 000009D0: 20 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 | ---.;--- ......| 000009E0: 2D C2 45 46 45 48 4C 20 C7 CC CF C1 C4 D8 20 C4 |-.EFEHL ...... .| 000009F0: C1 D4 C5 C9 24 2C C4 C5 D6 20 2D 2D 2D 00 3B 2D |....$,... ---.;-| 00000A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A20: 2D 2D 2D 2D 2D 2D 00 C2 C2 47 4C 4F 41 44 41 3A |------...GLOADA:| 00000A30: 4C 44 41 23 33 32 3B C7 CC CF C1 C4 C1 00 42 49 |LDA#32;.......BI| 00000A40: 54 00 C2 C2 47 4C 4F 41 44 4F 3A 4C 44 41 23 36 |T...GLOADO:LDA#6| 00000A50: 34 3B C7 CC CF C1 C4 CF 00 42 49 54 00 C2 C2 47 |4;.......BIT...G| 00000A60: 4C 4F 41 44 58 3A 4C 44 41 23 31 32 38 3B C7 CC |LOADX:LDA#128;..| 00000A70: CF C1 C4 D8 00 42 49 54 00 C2 C2 47 4C 4F 41 44 |.....BIT...GLOAD| 00000A80: 3A 4C 44 41 23 30 3B C7 CC CF C1 C4 00 53 54 41 |:LDA#0;......STA| 00000A90: 4C 4F 41 44 4D 4F 44 45 3B CC 41 44 45 4D 4F 44 |LOADMODE;.ADEMOD| 00000AA0: 55 53 20 46 45 53 54 4C 45 47 45 4E 00 4C 44 41 |US FESTLEGEN.LDA| 00000AB0: 23 3C 48 49 52 45 53 53 45 49 54 45 3B 41 42 20 |#<HIRESSEITE;AB | 00000AC0: 48 49 52 45 53 53 45 49 54 45 20 4C 41 44 45 4E |HIRESSEITE LADEN| 00000AD0: 00 53 54 41 41 5A 47 00 4C 44 41 23 3E 48 49 52 |.STAAZG.LDA#>HIR| 00000AE0: 45 53 53 45 49 54 45 00 53 54 41 41 5A 47 2B 31 |ESSEITE.STAAZG+1| 00000AF0: 00 4A 4D 50 44 4F 42 4C 4F 41 44 3B C4 41 54 45 |.JMPDOBLOAD;.ATE| 00000B00: 49 20 45 49 4E 4C 41 44 45 4E 00 20 00 4C 4F 41 |I EINLADEN. .LOA| 00000B10: 44 4D 4F 44 45 3A 2E 45 51 4D 45 4D 2B 34 3B CC |DMODE:.EQMEM+4;.| 00000B20: 41 44 45 4D 4F 44 55 53 00 20 00 52 45 53 54 50 |ADEMODUS. .RESTP| 00000B30: 41 52 41 53 3A 4A 53 52 46 52 4D 45 56 4C 3B D3 |ARAS:JSRFRMEVL;.| 00000B40: 54 52 49 4E 47 20 C4 C1 D4 C5 C9 24 20 48 4F 4C |TRING .....$ HOL| 00000B50: 45 4E 00 4C 44 58 23 34 00 4A 53 52 42 41 53 49 |EN.LDX#4.JSRBASI| 00000B60: 43 52 4F 4D 00 54 59 41 3B CC 41 45 4E 47 45 20 |CROM.TYA;.AENGE | 00000B70: 49 4E 20 C1 43 43 55 00 4C 44 58 24 32 32 3B C1 |IN .CCU.LDX$22;.| 00000B80: 4C 53 20 C6 49 4C 45 4E 41 4D 45 4E 20 53 45 54 |LS .ILENAMEN SET| 00000B90: 5A 45 4E 00 4C 44 59 24 32 33 00 4A 53 52 46 49 |ZEN.LDY$23.JSRFI| 00000BA0: 4C 45 4E 41 4D 45 00 4A 53 52 43 48 52 47 4F 54 |LENAME.JSRCHRGOT| 00000BB0: 3B 46 4F 4C 47 54 20 45 49 4E 20 CB 4F 4D 4D 41 |;FOLGT EIN .OMMA| 00000BC0: 20 3F 00 4C 44 58 23 38 3B 4E 4F 52 4D 41 4C 45 | ?.LDX#8;NORMALE| 00000BD0: 20 C7 45 52 41 45 54 45 41 44 52 45 53 53 45 20 | .ERAETEADRESSE | 00000BE0: 49 53 54 20 C4 49 53 4B 00 43 4D 50 23 27 2C 00 |IST .ISK.CMP#',.| 00000BF0: 42 4E 45 4E 4F 52 4D 44 45 56 32 00 4A 53 52 43 |BNENORMDEV2.JSRC| 00000C00: 48 4B 4B 4F 4D 00 4A 53 52 47 45 54 42 59 54 45 |HKKOM.JSRGETBYTE| 00000C10: 3B C7 45 52 41 45 54 45 41 44 52 45 53 53 45 20 |;.ERAETEADRESSE | 00000C20: 4C 45 53 45 4E 00 4E 4F 52 4D 44 45 56 32 3A 4C |LESEN.NORMDEV2:L| 00000C30: 44 41 44 41 54 45 49 4E 52 3B C4 41 54 45 49 4E |DADATEINR;.ATEIN| 00000C40: 55 4D 4D 45 52 20 4C 41 44 45 4E 00 52 54 53 00 |UMMER LADEN.RTS.| 00000C50: 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | .;-------------| 00000C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 |----------.;--- | 00000C80: D8 C2 C1 D3 C9 C3 2D C2 45 46 45 48 4C 20 C2 CC |......-.EFEHL ..| 00000C90: CF C1 C4 20 C1 C2 2C C4 C1 D4 C5 C9 24 2C C4 C5 |... ..,.....$,..| 00000CA0: D6 20 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. -.;-----------| 00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C2 C2 42 |------------...B| 00000CD0: 4C 4F 41 44 3A 4A 53 52 47 45 54 41 44 52 3B D3 |LOAD:JSRGETADR;.| 00000CE0: 54 41 52 54 41 44 52 45 53 53 45 20 4C 45 53 45 |TARTADRESSE LESE| 00000CF0: 4E 00 4C 44 41 23 30 3B CC 4F 41 44 4D 4F 44 45 |N.LDA#0;.OADMODE| 00000D00: 20 41 42 53 4F 4C 55 54 00 53 54 41 4C 4F 41 44 | ABSOLUT.STALOAD| 00000D10: 4D 4F 44 45 00 4C 44 41 24 31 34 3B 41 5A 47 20 |MODE.LDA$14;AZG | 00000D20: 41 55 46 20 D3 54 41 52 54 41 44 52 45 53 53 45 |AUF .TARTADRESSE| 00000D30: 00 53 54 41 41 5A 47 00 4C 44 41 24 31 35 00 53 |.STAAZG.LDA$15.S| 00000D40: 54 41 41 5A 47 2B 31 00 4A 53 52 43 48 4B 4B 4F |TAAZG+1.JSRCHKKO| 00000D50: 4D 3B 41 55 46 20 CB 4F 4D 4D 41 20 54 45 53 54 |M;AUF .OMMA TEST| 00000D60: 45 4E 00 44 4F 42 4C 4F 41 44 3A 4A 53 52 52 45 |EN.DOBLOAD:JSRRE| 00000D70: 53 54 50 41 52 41 53 3B C4 41 54 45 49 4E 41 4D |STPARAS;.ATEINAM| 00000D80: 45 20 55 4E 44 20 C4 45 56 49 43 45 20 46 45 53 |E UND .EVICE FES| 00000D90: 54 4C 45 47 45 4E 00 4C 44 59 23 30 00 4A 53 52 |TLEGEN.LDY#0.JSR| 00000DA0: 52 45 41 44 46 49 4C 45 4F 50 3B C4 41 54 45 49 |READFILEOP;.ATEI| 00000DB0: 20 5A 55 4D 20 CC 45 53 45 4E 20 4F 45 46 46 4E | ZUM .ESEN OEFFN| 00000DC0: 45 4E 00 4A 53 52 42 41 53 49 4E 3B 4F 52 49 47 |EN.JSRBASIN;ORIG| 00000DD0: 49 4E 41 4C 45 20 D3 54 41 52 54 41 44 52 45 53 |INALE .TARTADRES| 00000DE0: 53 45 20 4C 45 53 45 4E 00 53 54 41 41 5A 47 32 |SE LESEN.STAAZG2| 00000DF0: 3B 55 4E 44 20 4D 45 52 4B 45 4E 00 4A 53 52 42 |;UND MERKEN.JSRB| 00000E00: 41 53 49 4E 00 53 54 41 41 5A 47 32 2B 31 00 4C |ASIN.STAAZG2+1.L| 00000E10: 44 41 53 54 41 54 55 53 3B C4 41 54 45 49 20 42 |DASTATUS;.ATEI B| 00000E20: 45 45 4E 44 45 54 20 3F 00 42 4E 45 46 49 4C 45 |EENDET ?.BNEFILE| 00000E30: 4E 46 3B 4A 41 00 4C 44 41 41 5A 47 3B D3 54 41 |NF;JA.LDAAZG;.TA| 00000E40: 52 54 41 44 52 45 53 53 45 20 3D 30 00 4F 52 41 |RTADRESSE =0.ORA| 00000E50: 41 5A 47 2B 31 00 42 4E 45 49 53 54 48 45 41 44 |AZG+1.BNEISTHEAD| 00000E60: 52 3B 4E 45 49 4E 00 4C 44 41 41 5A 47 32 3B 4A |R;NEIN.LDAAZG2;J| 00000E70: 41 2C 20 4F 52 49 47 49 4E 41 4C 45 20 D3 54 41 |A, ORIGINALE .TA| 00000E80: 52 54 41 44 52 45 53 53 45 20 53 45 54 5A 45 4E |RTADRESSE SETZEN| 00000E90: 00 53 54 41 41 5A 47 00 4C 44 41 41 5A 47 32 2B |.STAAZG.LDAAZG2+| 00000EA0: 31 00 53 54 41 41 5A 47 2B 31 00 49 53 54 48 45 |1.STAAZG+1.ISTHE| 00000EB0: 41 44 52 3A 4A 53 52 42 41 53 49 4E 3B DA 45 49 |ADR:JSRBASIN;.EI| 00000EC0: 43 48 45 4E 20 45 49 4E 4C 45 53 45 4E 00 4A 53 |CHEN EINLESEN.JS| 00000ED0: 52 50 55 54 41 5A 47 3B 55 4E 44 20 53 50 45 49 |RPUTAZG;UND SPEI| 00000EE0: 43 48 45 52 4E 00 49 4E 43 41 5A 47 3B C1 44 52 |CHERN.INCAZG;.DR| 00000EF0: 45 53 53 45 2B 31 00 42 4E 45 2A 2B 32 2B 32 00 |ESSE+1.BNE*+2+2.| 00000F00: 49 4E 43 41 5A 47 2B 31 00 4C 44 41 53 54 41 54 |INCAZG+1.LDASTAT| 00000F10: 55 53 3B C4 41 54 45 49 20 42 45 45 4E 44 45 54 |US;.ATEI BEENDET| 00000F20: 20 3F 00 42 45 51 49 53 54 48 45 41 44 52 3B 4E | ?.BEQISTHEADR;N| 00000F30: 45 49 4E 2C 20 57 45 49 54 45 52 4C 45 53 45 4E |EIN, WEITERLESEN| 00000F40: 00 42 4C 45 4F 46 3A 4A 4D 50 52 45 41 44 46 49 |.BLEOF:JMPREADFI| 00000F50: 4C 45 43 4C 4F 3B C4 41 54 45 49 20 53 43 48 4C |LECLO;.ATEI SCHL| 00000F60: 49 45 53 53 45 4E 00 20 00 46 49 4C 45 4E 46 3A |IESSEN. .FILENF:| 00000F70: 4A 53 52 52 45 41 44 46 49 4C 45 43 4C 4F 3B C4 |JSRREADFILECLO;.| 00000F80: 41 54 45 49 20 53 43 48 4C 49 45 53 53 45 4E 00 |ATEI SCHLIESSEN.| 00000F90: 4C 44 58 23 34 3B 22 46 49 4C 45 20 4E 4F 54 20 |LDX#4;"FILE NOT | 00000FA0: 46 4F 55 4E 44 22 00 4A 4D 50 46 45 48 4C 45 52 |FOUND".JMPFEHLER| 00000FB0: 00 20 00 50 55 54 41 5A 47 3A 54 41 58 3B DA 45 |. .PUTAZG:TAX;.E| 00000FC0: 49 43 48 45 4E 20 4D 45 52 4B 45 4E 00 4C 44 41 |ICHEN MERKEN.LDA| 00000FD0: 50 50 3B D0 52 4F 5A 45 53 53 4F 52 50 4F 52 54 |PP;.ROZESSORPORT| 00000FE0: 20 4D 45 52 4B 45 4E 00 50 48 41 00 53 45 49 3B | MERKEN.PHA.SEI;| 00000FF0: 41 4C 4C 45 53 20 41 55 46 20 D2 C1 CD 20 53 43 |ALLES AUF ... SC| 00001000: 48 41 4C 54 45 4E 00 4C 44 41 23 24 33 32 00 53 |HALTEN.LDA#$32.S| 00001010: 54 41 50 50 00 54 58 41 3B DA 45 49 43 48 45 4E |TAPP.TXA;.EICHEN| 00001020: 20 57 49 45 44 45 52 20 49 4D 20 C1 43 43 55 00 | WIEDER IM .CCU.| 00001030: 4C 44 58 23 30 00 42 49 54 4C 4F 41 44 4D 4F 44 |LDX#0.BITLOADMOD| 00001040: 45 3B CC 41 44 45 4D 4F 44 55 53 20 54 45 53 54 |E;.ADEMODUS TEST| 00001050: 45 4E 00 42 4D 49 58 4F 52 4C 4F 41 44 3B 5A 55 |EN.BMIXORLOAD;ZU| 00001060: 4D 20 D8 CF D2 2D CD 4F 44 55 53 00 42 56 53 4F |M ...-.ODUS.BVSO| 00001070: 52 4D 4F 44 45 3B 5A 55 4D 20 CF D2 2D CD 4F 44 |RMODE;ZUM ..-.OD| 00001080: 55 53 00 4C 44 59 4C 4F 41 44 4D 4F 44 45 00 42 |US.LDYLOADMODE.B| 00001090: 45 51 50 55 54 4D 4F 44 45 3B 41 42 53 4F 4C 55 |EQPUTMODE;ABSOLU| 000010A0: 54 20 53 50 45 49 43 48 45 52 4E 00 41 4E 44 28 |T SPEICHERN.AND(| 000010B0: 41 5A 47 2C 58 29 3B C1 CE C4 2D CD 4F 44 55 53 |AZG,X);...-.ODUS| 000010C0: 00 4A 4D 50 50 55 54 4D 4F 44 45 00 4F 52 4D 4F |.JMPPUTMODE.ORMO| 000010D0: 44 45 3A 4F 52 41 28 41 5A 47 2C 58 29 3B CF D2 |DE:ORA(AZG,X);..| 000010E0: 2D CD 4F 44 55 53 00 4A 4D 50 50 55 54 4D 4F 44 |-.ODUS.JMPPUTMOD| 000010F0: 45 00 58 4F 52 4C 4F 41 44 3A 45 4F 52 28 41 5A |E.XORLOAD:EOR(AZ| 00001100: 47 2C 58 29 3B D8 CF D2 2D CD 4F 44 55 53 00 50 |G,X);...-.ODUS.P| 00001110: 55 54 4D 4F 44 45 3A 53 54 41 28 41 5A 47 2C 58 |UTMODE:STA(AZG,X| 00001120: 29 3B 53 50 45 49 43 48 45 52 4E 00 50 4C 41 3B |);SPEICHERN.PLA;| 00001130: D0 52 4F 5A 45 53 53 4F 52 50 4F 52 54 20 57 49 |.ROZESSORPORT WI| 00001140: 45 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 00 53 |EDERHERSTELLEN.S| 00001150: 54 41 50 50 00 43 4C 49 00 52 54 53 00 20 00 3B |TAPP.CLI.RTS. .;| 00001160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001180: 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D 2D 20 D8 C2 C1 |-------.;--- ...| 00001190: D3 C9 C3 2D C2 45 46 45 48 4C 20 20 20 20 20 20 |...-.EFEHL | 000011A0: 20 20 20 C8 D2 C4 C3 D0 D9 20 D8 20 20 2D 2D 2D | ...... . ---| 000011B0: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4F 55 54 4D 4F 44 |---------.OUTMOD| 000011E0: 45 3A 2E 45 51 4D 45 4D 3B C1 55 53 47 41 42 45 |E:.EQMEM;.USGABE| 000011F0: 4D 4F 44 55 53 00 53 50 41 4C 54 45 3A 2E 45 51 |MODUS.SPALTE:.EQ| 00001200: 4D 45 4D 2B 31 3B D3 50 41 4C 54 45 4E 5A 41 45 |MEM+1;.PALTENZAE| 00001210: 48 4C 45 52 00 43 4F 44 45 3A 2E 45 51 4D 45 4D |HLER.CODE:.EQMEM| 00001220: 2B 32 3B C4 52 55 43 4B 45 52 42 59 54 45 00 4D |+2;.RUCKERBYTE.M| 00001230: 41 53 4B 45 3A 2E 45 51 4D 45 4D 2B 33 3B C2 49 |ASKE:.EQMEM+3;.I| 00001240: 54 4D 41 53 4B 45 00 5A 47 45 4E 3A 2E 45 51 4D |TMASKE.ZGEN:.EQM| 00001250: 45 4D 2B 34 3B C1 44 52 45 53 53 45 20 DA 45 49 |EM+4;.DRESSE .EI| 00001260: 43 48 45 4E 53 41 54 5A 00 20 00 C2 C2 48 52 44 |CHENSATZ. ...HRD| 00001270: 43 50 59 3A 4C 44 41 23 24 33 30 3B CC 41 44 45 |CPY:LDA#$30;.ADE| 00001280: 4E 20 41 55 53 20 D2 C1 CD 00 53 54 41 50 50 57 |N AUS ....STAPPW| 00001290: 45 52 54 2B 31 00 4C 44 41 43 49 41 32 3B D6 49 |ERT+1.LDACIA2;.I| 000012A0: 43 2D C1 44 52 45 53 53 42 45 52 45 49 43 48 20 |C-.DRESSBEREICH | 000012B0: 48 4F 4C 45 4E 00 41 4E 44 23 25 31 31 00 54 41 |HOLEN.AND#%11.TA| 000012C0: 58 3B 49 4E 20 58 20 C2 4C 4F 43 4B 20 4D 45 52 |X;IN X .LOCK MER| 000012D0: 4B 45 4E 00 4C 44 41 56 49 43 2B 31 37 3B C8 49 |KEN.LDAVIC+17;.I| 000012E0: 52 45 53 20 CD 4F 44 55 53 20 3F 00 41 4E 44 23 |RES .ODUS ?.AND#| 000012F0: 33 32 00 50 48 50 3B C5 52 47 45 42 4E 49 53 20 |32.PHP;.RGEBNIS | 00001300: 4D 45 52 4B 45 4E 00 4C 44 41 56 49 43 2B 32 34 |MERKEN.LDAVIC+24| 00001310: 3B DA 45 49 43 48 45 4E 47 45 4E 2E 20 C1 44 52 |;.EICHENGEN. .DR| 00001320: 2E 00 41 4E 44 23 25 31 31 31 30 00 50 4C 50 00 |..AND#%1110.PLP.| 00001330: 42 45 51 4C 4F 57 47 52 41 3B 4B 45 49 4E 45 20 |BEQLOWGRA;KEINE | 00001340: 48 4F 43 48 41 55 46 4C 4F 45 53 45 4E 44 45 20 |HOCHAUFLOESENDE | 00001350: C7 52 41 50 48 49 4B 00 41 4E 44 23 25 31 30 30 |.RAPHIK.AND#%100| 00001360: 30 3B C1 44 52 2E 20 42 45 49 20 C8 49 52 45 53 |0;.DR. BEI .IRES| 00001370: 00 4C 4F 57 47 52 41 3A 41 53 4C 3B C1 44 52 45 |.LOWGRA:ASL;.DRE| 00001380: 53 53 45 20 2A 34 00 41 53 4C 00 43 4C 43 3B 2B |SSE *4.ASL.CLC;+| 00001390: 42 4C 4F 43 4B 00 41 44 43 42 4C 4F 43 4B 53 2C |BLOCK.ADCBLOCKS,| 000013A0: 58 00 53 54 41 41 5A 47 32 2B 31 3B 45 52 47 49 |X.STAAZG2+1;ERGI| 000013B0: 42 54 20 C8 49 52 45 53 20 C1 44 52 2E 20 49 4E |BT .IRES .DR. IN| 000013C0: 20 41 47 5A 32 00 53 54 41 5A 47 45 4E 2B 31 3B | AGZ2.STAZGEN+1;| 000013D0: 4F 44 45 52 20 DA 45 49 43 48 45 4E 53 41 54 5A |ODER .EICHENSATZ| 000013E0: 20 C1 44 52 2E 20 49 4E 20 5A 47 45 4E 00 4C 44 | .DR. IN ZGEN.LD| 000013F0: 41 23 30 3B CC 4F 57 20 C2 59 54 45 20 49 53 54 |A#0;.OW .YTE IST| 00001400: 20 49 4D 4D 45 52 20 CE 55 4C 4C 00 53 54 41 41 | IMMER .ULL.STAA| 00001410: 5A 47 32 00 53 54 41 41 5A 47 00 53 54 41 5A 47 |ZG2.STAAZG.STAZG| 00001420: 45 4E 00 4C 44 41 56 49 43 2B 32 34 3B C1 44 52 |EN.LDAVIC+24;.DR| 00001430: 2E 20 44 45 52 20 D4 45 58 54 53 45 49 54 45 20 |. DER .EXTSEITE | 00001440: 42 45 52 45 43 48 4E 45 4E 00 41 4E 44 23 25 31 |BERECHNEN.AND#%1| 00001450: 31 31 31 30 30 30 30 00 4C 53 52 00 4C 53 52 00 |1110000.LSR.LSR.| 00001460: 43 4C 43 3B 2B 42 4C 4F 43 4B 00 41 44 43 42 4C |CLC;+BLOCK.ADCBL| 00001470: 4F 43 4B 53 2C 58 00 53 54 41 41 5A 47 2B 31 3B |OCKS,X.STAAZG+1;| 00001480: 49 4E 20 41 5A 47 20 4D 45 52 4B 45 4E 00 20 00 |IN AZG MERKEN. .| 00001490: 4C 44 41 43 49 41 32 00 41 4E 44 23 25 31 31 3B |LDACIA2.AND#%11;| 000014A0: D2 45 4C 41 54 49 56 45 52 20 C2 45 52 45 49 43 |.ELATIVER .EREIC| 000014B0: 48 20 3F 00 43 4D 50 23 33 00 42 4E 45 48 52 44 |H ?.CMP#3.BNEHRD| 000014C0: 43 50 59 3B 4E 45 49 4E 2C 20 5A 55 52 20 C8 41 |CPY;NEIN, ZUR .A| 000014D0: 52 44 43 4F 50 59 20 D2 4F 55 54 49 4E 45 00 43 |RDCOPY .OUTINE.C| 000014E0: 4C 43 3B CF 46 46 53 45 54 20 41 44 44 49 45 52 |LC;.FFSET ADDIER| 000014F0: 45 4E 00 4C 44 41 5A 47 45 4E 2B 31 00 41 44 43 |EN.LDAZGEN+1.ADC| 00001500: 23 24 43 30 00 53 54 41 5A 47 45 4E 2B 31 00 4C |#$C0.STAZGEN+1.L| 00001510: 44 41 23 24 33 32 3B 41 55 53 20 DA 45 49 43 48 |DA#$32;AUS .EICH| 00001520: 45 4E 53 41 54 5A 2D D2 CF CD 20 4C 45 53 45 4E |ENSATZ-... LESEN| 00001530: 00 53 54 41 50 50 57 45 52 54 2B 31 00 20 00 48 |.STAPPWERT+1. .H| 00001540: 52 44 43 50 59 3A 4A 53 52 47 45 54 42 59 54 45 |RDCPY:JSRGETBYTE| 00001550: 3B D0 41 52 41 4D 45 54 45 52 20 48 4F 4C 45 4E |;.ARAMETER HOLEN| 00001560: 00 43 50 58 23 38 3B 3C 38 20 3F 00 42 43 43 50 |.CPX#8;<8 ?.BCCP| 00001570: 41 52 41 4F 4B 3B 4A 41 2C 20 4F 4B 00 4C 44 58 |ARAOK;JA, OK.LDX| 00001580: 23 31 34 3B 53 4F 4E 53 54 20 C6 45 48 4C 45 52 |#14;SONST .EHLER| 00001590: 20 4D 45 4C 44 45 4E 00 4A 4D 50 46 45 48 4C 45 | MELDEN.JMPFEHLE| 000015A0: 52 00 50 41 52 41 4F 4B 3A 4C 44 41 56 49 43 2B |R.PARAOK:LDAVIC+| 000015B0: 31 37 3B 41 55 46 20 C8 49 52 45 53 20 54 45 53 |17;AUF .IRES TES| 000015C0: 54 45 4E 00 41 4E 44 23 33 32 00 50 48 50 3B C5 |TEN.AND#32.PHP;.| 000015D0: 52 47 45 42 4E 49 53 20 4D 45 52 4B 45 4E 00 4C |RGEBNIS MERKEN.L| 000015E0: 44 41 4F 4D 4F 44 45 2C 58 3B C1 55 53 47 41 42 |DAOMODE,X;.USGAB| 000015F0: 45 4D 4F 44 45 20 48 4F 4C 45 4E 00 50 4C 50 00 |EMODE HOLEN.PLP.| 00001600: 42 4E 45 48 43 48 49 52 45 53 3B 5A 55 52 20 C8 |BNEHCHIRES;ZUR .| 00001610: 49 52 45 53 2D C1 55 53 47 41 42 45 00 4F 52 41 |IRES-.USGABE.ORA| 00001620: 23 32 3B C6 4C 41 47 20 46 55 45 52 20 DA 45 49 |#2;.LAG FUER .EI| 00001630: 43 48 45 4E 41 55 53 47 41 42 45 00 48 43 48 49 |CHENAUSGABE.HCHI| 00001640: 52 45 53 3A 53 54 41 4F 55 54 4D 4F 44 45 3B 53 |RES:STAOUTMODE;S| 00001650: 45 54 5A 45 4E 00 4C 44 41 23 30 3B 4B 45 49 4E |ETZEN.LDA#0;KEIN| 00001660: 20 C4 41 54 45 49 4E 41 4D 45 00 4C 44 58 23 32 | .ATEINAME.LDX#2| 00001670: 38 00 4A 53 52 42 41 53 49 43 52 4F 4D 00 4C 44 |8.JSRBASICROM.LD| 00001680: 59 44 53 41 44 52 3B CF D0 C5 CE 20 44 41 54 45 |YDSADR;.... DATE| 00001690: 49 4E 52 2C 44 41 44 52 2C 44 53 41 44 52 00 4C |INR,DADR,DSADR.L| 000016A0: 44 58 44 41 44 52 00 53 54 58 58 4D 45 4D 00 4C |DXDADR.STXXMEM.L| 000016B0: 44 41 44 41 54 45 49 4E 52 00 4C 44 58 23 32 36 |DADATEINR.LDX#26| 000016C0: 00 4A 53 52 42 41 53 49 43 52 4F 4D 3B D0 41 52 |.JSRBASICROM;.AR| 000016D0: 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 4C 44 |AMETER SETZEN.LD| 000016E0: 58 23 33 30 00 4A 53 52 42 41 53 49 43 52 4F 4D |X#30.JSRBASICROM| 000016F0: 3B CF D0 C5 CE 2D C2 45 46 45 48 4C 00 4C 44 41 |;....-.EFEHL.LDA| 00001700: 44 41 54 45 49 4E 52 3B C1 55 53 47 41 42 45 20 |DATEINR;.USGABE | 00001710: 41 55 46 20 C4 52 55 43 4B 45 52 00 53 54 41 58 |AUF .RUCKER.STAX| 00001720: 4D 45 4D 00 4C 44 58 23 33 36 00 4A 53 52 42 41 |MEM.LDX#36.JSRBA| 00001730: 53 49 43 52 4F 4D 00 47 4F 3A 4C 44 58 23 35 30 |SICROM.GO:LDX#50| 00001740: 3B 35 30 20 DA 45 49 4C 45 4E 20 42 45 49 20 44 |;50 .EILEN BEI D| 00001750: 4F 50 50 45 4C 54 00 42 49 54 4F 55 54 4D 4F 44 |OPPELT.BITOUTMOD| 00001760: 45 00 42 56 53 2A 2B 32 2B 32 00 4C 44 58 23 32 |E.BVS*+2+2.LDX#2| 00001770: 35 3B 32 35 20 DA 45 49 4C 45 4E 20 53 4F 4E 53 |5;25 .EILEN SONS| 00001780: 54 00 5A 45 49 4C 45 4E 3A 4C 44 59 50 52 54 36 |T.ZEILEN:LDYPRT6| 00001790: 34 30 3B C4 52 55 43 4B 45 52 20 41 55 46 20 C7 |40;.RUCKER AUF .| 000017A0: 52 41 46 49 4B 00 47 4D 44 3A 4C 44 41 50 52 54 |RAFIK.GMD:LDAPRT| 000017B0: 36 34 30 2B 31 2C 59 3B C4 4F 50 50 45 4C 54 45 |640+1,Y;.OPPELTE| 000017C0: 20 D0 55 4E 4B 54 42 52 45 49 54 45 00 42 49 54 | .UNKTBREITE.BIT| 000017D0: 4F 55 54 4D 4F 44 45 00 42 4D 49 42 49 47 00 4C |OUTMODE.BMIBIG.L| 000017E0: 44 41 50 52 54 33 32 30 2B 31 2C 59 3B C5 49 4E |DAPRT320+1,Y;.IN| 000017F0: 46 41 43 48 45 20 D0 55 4E 4B 54 42 52 45 49 54 |FACHE .UNKTBREIT| 00001800: 45 00 42 49 47 3A 4A 53 52 42 53 4F 55 54 32 3B |E.BIG:JSRBSOUT2;| 00001810: D3 54 45 55 45 52 42 59 54 45 53 20 41 55 53 47 |.TEUERBYTES AUSG| 00001820: 45 42 45 4E 00 44 45 59 00 42 50 4C 47 4D 44 3B |EBEN.DEY.BPLGMD;| 00001830: 57 45 49 54 45 52 20 42 49 53 20 41 4C 4C 45 20 |WEITER BIS ALLE | 00001840: C2 59 54 45 20 41 55 53 47 45 47 45 42 45 4E 00 |.YTE AUSGEGEBEN.| 00001850: 4C 44 41 23 34 30 3B 34 30 20 D3 50 41 4C 54 45 |LDA#40;40 .PALTE| 00001860: 4E 00 53 54 41 53 50 41 4C 54 45 00 53 50 41 4C |N.STASPALTE.SPAL| 00001870: 54 45 4E 3A 4C 44 59 23 30 3B CD 41 53 4B 45 20 |TEN:LDY#0;.ASKE | 00001880: 41 55 46 20 C2 49 54 20 37 00 4C 44 41 23 24 38 |AUF .IT 7.LDA#$8| 00001890: 30 00 53 54 41 4D 41 53 4B 45 00 53 45 49 00 4C |0.STAMASKE.SEI.L| 000018A0: 44 41 4F 55 54 4D 4F 44 45 3B C8 49 52 45 53 20 |DAOUTMODE;.IRES | 000018B0: CD 4F 44 45 20 3F 00 41 4E 44 23 32 00 42 45 51 |.ODE ?.AND#2.BEQ| 000018C0: 48 43 42 59 54 53 3B CA 41 00 4C 44 41 23 24 33 |HCBYTS;.A.LDA#$3| 000018D0: 30 3B 41 4C 4C 45 53 20 41 55 46 20 D2 C1 CD 00 |0;ALLES AUF ....| 000018E0: 53 54 41 50 50 00 4C 44 41 28 41 5A 47 29 2C 59 |STAPP.LDA(AZG),Y| 000018F0: 3B DA 45 49 43 48 45 4E 20 48 4F 4C 45 4E 00 49 |;.EICHEN HOLEN.I| 00001900: 4E 43 41 5A 47 3B DA 45 49 47 45 52 20 2B 31 00 |NCAZG;.EIGER +1.| 00001910: 42 4E 45 4E 4F 50 41 47 45 00 49 4E 43 41 5A 47 |BNENOPAGE.INCAZG| 00001920: 2B 31 00 4E 4F 50 41 47 45 3A 53 54 41 41 5A 47 |+1.NOPAGE:STAAZG| 00001930: 32 3B C1 44 52 2E 20 44 45 52 20 DA 45 49 43 48 |2;.DR. DER .EICH| 00001940: 45 4E 44 45 46 2E 20 42 45 52 45 43 48 4E 45 4E |ENDEF. BERECHNEN| 00001950: 00 4C 44 41 23 30 00 53 54 41 41 5A 47 32 2B 31 |.LDA#0.STAAZG2+1| 00001960: 3B 41 5A 47 32 3D DA 45 49 43 48 45 4E 43 4F 44 |;AZG2=.EICHENCOD| 00001970: 45 00 4C 44 59 23 33 00 4D 41 4C 38 3A 41 53 4C |E.LDY#3.MAL8:ASL| 00001980: 41 5A 47 32 3B 4D 41 4C 20 38 00 52 4F 4C 41 5A |AZG2;MAL 8.ROLAZ| 00001990: 47 32 2B 31 00 44 45 59 00 42 4E 45 4D 41 4C 38 |G2+1.DEY.BNEMAL8| 000019A0: 00 42 49 54 4F 55 54 4D 4F 44 45 3B D9 20 D2 49 |.BITOUTMODE;. .I| 000019B0: 43 48 54 55 4E 47 20 53 54 52 45 43 4B 45 4E 20 |CHTUNG STRECKEN | 000019C0: 3F 00 42 56 43 4E 4F 52 4D 5A 45 49 3B 4E 45 49 |?.BVCNORMZEI;NEI| 000019D0: 4E 00 54 58 41 3B DA 57 45 49 54 45 20 DA 45 49 |N.TXA;.WEITE .EI| 000019E0: 4C 45 20 3F 00 41 4E 44 23 31 00 42 4E 45 48 41 |LE ?.AND#1.BNEHA| 000019F0: 4C 42 5A 3B 4A 41 00 4E 4F 52 4D 5A 45 49 3A 4C |LBZ;JA.NORMZEI:L| 00001A00: 44 41 23 30 3B 30 20 41 44 44 49 45 52 45 4E 00 |DA#0;0 ADDIEREN.| 00001A10: 42 49 54 00 48 41 4C 42 5A 3A 4C 44 41 23 34 3B |BIT.HALBZ:LDA#4;| 00001A20: 34 20 41 44 44 49 45 52 45 4E 00 43 4C 43 00 41 |4 ADDIEREN.CLC.A| 00001A30: 44 43 41 5A 47 32 00 53 54 41 41 5A 47 32 00 4C |DCAZG2.STAAZG2.L| 00001A40: 44 41 41 5A 47 32 2B 31 3B 2B 20 DA 45 49 43 48 |DAAZG2+1;+ .EICH| 00001A50: 45 4E 47 45 4E 45 52 41 54 4F 52 41 44 52 45 53 |ENGENERATORADRES| 00001A60: 53 45 00 41 44 43 5A 47 45 4E 2B 31 00 53 54 41 |SE.ADCZGEN+1.STA| 00001A70: 41 5A 47 32 2B 31 3B 41 5A 47 32 3D DA 45 49 43 |AZG2+1;AZG2=.EIC| 00001A80: 48 45 4E 43 4F 44 45 2A 38 2B DA 45 49 43 48 45 |HENCODE*8+.EICHE| 00001A90: 4E 44 45 46 2E 20 C1 4E 46 41 4E 47 00 48 43 42 |NDEF. .NFANG.HCB| 00001AA0: 59 54 53 3A 4C 44 41 23 30 3B C1 55 53 47 41 42 |YTS:LDA#0;.USGAB| 00001AB0: 45 43 4F 44 45 20 30 00 53 54 41 43 4F 44 45 00 |ECODE 0.STACODE.| 00001AC0: 4C 44 59 23 33 3B 34 20 D0 55 4E 4B 54 45 20 42 |LDY#3;4 .UNKTE B| 00001AD0: 45 49 20 C4 4F 50 50 45 4C 42 52 45 49 54 45 00 |EI .OPPELBREITE.| 00001AE0: 42 49 54 4F 55 54 4D 4F 44 45 00 42 56 53 42 49 |BITOUTMODE.BVSBI| 00001AF0: 54 53 00 4C 44 59 23 37 3B 38 20 D0 55 4E 4B 54 |TS.LDY#7;8 .UNKT| 00001B00: 45 20 42 45 49 20 C5 49 4E 46 41 43 48 00 42 49 |E BEI .INFACH.BI| 00001B10: 54 53 3A 53 45 49 3B C4 45 46 2E 20 48 4F 4C 45 |TS:SEI;.EF. HOLE| 00001B20: 4E 00 50 50 57 45 52 54 3A 4C 44 41 23 24 33 30 |N.PPWERT:LDA#$30| 00001B30: 00 53 54 41 50 50 00 4C 44 41 28 41 5A 47 32 29 |.STAPP.LDA(AZG2)| 00001B40: 2C 59 00 41 4E 44 4D 41 53 4B 45 3B C2 49 54 20 |,Y.ANDMASKE;.IT | 00001B50: 41 55 53 46 49 4C 54 45 52 4E 00 42 45 51 54 54 |AUSFILTERN.BEQTT| 00001B60: 32 3B 4E 49 43 48 54 20 47 45 53 45 54 5A 54 00 |2;NICHT GESETZT.| 00001B70: 4C 44 41 50 52 54 44 4F 50 50 2C 59 3B C2 49 54 |LDAPRTDOPP,Y;.IT| 00001B80: 20 46 55 45 52 20 C4 4F 50 50 45 4C 54 00 42 49 | FUER .OPPELT.BI| 00001B90: 54 4F 55 54 4D 4F 44 45 00 42 56 53 42 49 47 32 |TOUTMODE.BVSBIG2| 00001BA0: 00 4C 44 41 50 52 54 45 49 4E 46 2C 59 3B 4F 44 |.LDAPRTEINF,Y;OD| 00001BB0: 45 52 20 45 49 4E 46 41 43 48 20 48 4F 4C 45 4E |ER EINFACH HOLEN| 00001BC0: 00 42 49 47 32 3A 4F 52 41 43 4F 44 45 3B C2 49 |.BIG2:ORACODE;.I| 00001BD0: 54 28 53 29 20 53 45 54 5A 45 4E 00 53 54 41 43 |T(S) SETZEN.STAC| 00001BE0: 4F 44 45 00 54 54 32 3A 44 45 59 3B 4E 45 58 54 |ODE.TT2:DEY;NEXT| 00001BF0: 20 C2 49 54 00 42 50 4C 42 49 54 53 00 4C 44 41 | .IT.BPLBITS.LDA| 00001C00: 4F 55 54 4D 4F 44 45 3B C9 4E 56 45 52 54 49 45 |OUTMODE;.NVERTIE| 00001C10: 52 45 4E 20 3F 00 41 4E 44 23 31 00 42 45 51 4E |REN ?.AND#1.BEQN| 00001C20: 4F 52 4D 41 4C 3B CE 45 49 4E 00 4C 44 41 23 24 |ORMAL;.EIN.LDA#$| 00001C30: 46 46 00 42 49 54 00 4E 4F 52 4D 41 4C 3A 4C 44 |FF.BIT.NORMAL:LD| 00001C40: 41 23 24 30 00 45 4F 52 43 4F 44 45 00 4A 53 52 |A#$0.EORCODE.JSR| 00001C50: 42 53 4F 55 54 32 3B C3 4F 44 45 20 2D 3E 20 C4 |BSOUT2;.ODE -> .| 00001C60: 52 55 43 4B 45 52 00 42 49 54 4F 55 54 4D 4F 44 |RUCKER.BITOUTMOD| 00001C70: 45 00 42 50 4C 2A 2B 35 00 4A 53 52 42 53 4F 55 |E.BPL*+5.JSRBSOU| 00001C80: 54 32 3B 32 58 20 42 45 49 20 C4 4F 50 50 45 4C |T2;2X BEI .OPPEL| 00001C90: 54 00 4C 53 52 4D 41 53 4B 45 3B 4D 41 53 4B 45 |T.LSRMASKE;MASKE| 00001CA0: 20 41 55 46 20 4E 45 58 54 20 C2 49 54 00 42 43 | AUF NEXT .IT.BC| 00001CB0: 43 48 43 42 59 54 53 3B 57 45 49 54 45 52 20 42 |CHCBYTS;WEITER B| 00001CC0: 49 53 20 41 4C 4C 45 20 C2 49 54 53 00 4C 44 41 |IS ALLE .ITS.LDA| 00001CD0: 41 5A 47 32 3B 4E 45 58 54 20 DA 45 49 43 48 45 |AZG2;NEXT .EICHE| 00001CE0: 4E 20 42 45 49 20 C8 49 52 45 53 00 41 44 43 23 |N BEI .IRES.ADC#| 00001CF0: 37 00 53 54 41 41 5A 47 32 00 42 43 43 54 54 33 |7.STAAZG2.BCCTT3| 00001D00: 00 49 4E 43 41 5A 47 32 2B 31 00 54 54 33 3A 44 |.INCAZG2+1.TT3:D| 00001D10: 45 43 53 50 41 4C 54 45 3B 41 4C 4C 45 20 D3 50 |ECSPALTE;ALLE .P| 00001D20: 41 4C 54 45 4E 20 3F 00 42 45 51 2A 2B 35 00 4A |ALTEN ?.BEQ*+5.J| 00001D30: 4D 50 53 50 41 4C 54 45 4E 3B 4E 45 49 4E 00 42 |MPSPALTEN;NEIN.B| 00001D40: 49 54 4F 55 54 4D 4F 44 45 00 42 56 43 54 54 34 |ITOUTMODE.BVCTT4| 00001D50: 00 54 58 41 3B CB 4F 52 52 45 4B 54 55 52 20 42 |.TXA;.ORREKTUR B| 00001D60: 45 49 20 C4 4F 50 50 45 4C 54 00 41 4E 44 23 31 |EI .OPPELT.AND#1| 00001D70: 00 42 4E 45 54 54 35 00 53 45 43 3B C1 44 52 2E |.BNETT5.SEC;.DR.| 00001D80: 20 41 55 46 20 4E 41 45 43 48 53 54 45 4E 20 C8 | AUF NAECHSTEN .| 00001D90: 41 4C 42 5A 45 49 4C 45 00 4C 44 41 41 5A 47 32 |ALBZEILE.LDAAZG2| 00001DA0: 00 53 42 43 23 3C 33 32 30 2D 34 3B 41 5A 47 32 |.SBC#<320-4;AZG2| 00001DB0: 2D 28 33 32 30 2D 34 29 00 53 54 41 41 5A 47 32 |-(320-4).STAAZG2| 00001DC0: 00 4C 44 41 41 5A 47 32 2B 31 00 53 42 43 23 3E |.LDAAZG2+1.SBC#>| 00001DD0: 33 32 30 2D 34 00 53 54 41 41 5A 47 32 2B 31 00 |320-4.STAAZG2+1.| 00001DE0: 53 45 43 00 4C 44 41 41 5A 47 3B 41 5A 47 2D 34 |SEC.LDAAZG;AZG-4| 00001DF0: 30 00 53 42 43 23 34 30 00 53 54 41 41 5A 47 00 |0.SBC#40.STAAZG.| 00001E00: 42 43 53 54 54 34 00 44 45 43 41 5A 47 2B 31 00 |BCSTT4.DECAZG+1.| 00001E10: 4A 4D 50 54 54 34 00 54 54 35 3A 53 45 43 3B C1 |JMPTT4.TT5:SEC;.| 00001E20: 55 46 20 4E 41 45 43 48 53 54 45 20 56 4F 4C 4C |UF NAECHSTE VOLL| 00001E30: 45 20 DA 45 49 4C 45 00 4C 44 41 41 5A 47 32 3B |E .EILE.LDAAZG2;| 00001E40: 41 5A 47 32 2D 34 00 53 42 43 23 34 00 53 54 41 |AZG2-4.SBC#4.STA| 00001E50: 41 5A 47 32 00 42 43 53 54 54 34 00 44 45 43 41 |AZG2.BCSTT4.DECA| 00001E60: 5A 47 32 2B 31 00 54 54 34 3A 44 45 58 3B C1 4C |ZG2+1.TT4:DEX;.L| 00001E70: 4C 45 20 DA 45 49 4C 45 4E 20 3F 00 42 45 51 2A |LE .EILEN ?.BEQ*| 00001E80: 2B 32 2B 33 00 4A 4D 50 5A 45 49 4C 45 4E 3B 4E |+2+3.JMPZEILEN;N| 00001E90: 45 49 4E 00 4C 44 59 50 52 54 4E 4F 52 4D 3B C4 |EIN.LDYPRTNORM;.| 00001EA0: 52 55 43 4B 45 52 20 41 55 46 20 27 CE 4F 52 4D |RUCKER AUF '.ORM| 00001EB0: 41 4C 27 00 4E 4C 4F 4F 50 3A 4C 44 41 50 52 54 |AL'.NLOOP:LDAPRT| 00001EC0: 4E 4F 52 4D 2B 31 2C 59 00 4A 53 52 42 53 4F 55 |NORM+1,Y.JSRBSOU| 00001ED0: 54 32 00 44 45 59 00 42 50 4C 4E 4C 4F 4F 50 3B |T2.DEY.BPLNLOOP;| 00001EE0: 57 45 49 54 45 52 20 42 49 53 20 41 4C 4C 45 20 |WEITER BIS ALLE | 00001EF0: C2 59 54 45 20 41 55 53 47 45 47 45 42 45 4E 00 |.YTE AUSGEGEBEN.| 00001F00: 4A 4D 50 52 45 41 44 46 49 4C 45 43 4C 4F 3B C4 |JMPREADFILECLO;.| 00001F10: 41 54 45 49 20 53 43 48 4C 49 45 53 53 45 4E 00 |ATEI SCHLIESSEN.| 00001F20: 20 00 42 53 4F 55 54 32 3A 50 48 41 3B DA 45 49 | .BSOUT2:PHA;.EI| 00001F30: 43 48 45 4E 20 4D 45 52 4B 45 4E 00 4C 44 41 23 |CHEN MERKEN.LDA#| 00001F40: 24 33 36 3B D2 CF CD 20 45 49 4E 53 43 48 41 4C |$36;... EINSCHAL| 00001F50: 54 45 4E 00 53 54 41 50 50 00 50 4C 41 3B 55 4E |TEN.STAPP.PLA;UN| 00001F60: 44 20 5A 55 52 20 C1 55 53 47 41 42 45 00 4A 4D |D ZUR .USGABE.JM| 00001F70: 50 42 53 4F 55 54 00 20 00 2E 42 59 22 C4 52 D5 |PBSOUT. ..BY".R.| 00001F80: 43 CB 45 D2 22 3B CB 45 4E 4E 55 4E 47 53 53 54 |C.E.";.ENNUNGSST| 00001F90: 52 49 4E 47 20 46 55 45 52 20 C9 CE D3 D4 C1 CC |RING FUER ......| 00001FA0: CC C5 D2 00 44 41 44 52 3A 2E 42 59 30 00 44 53 |....DADR:.BY0.DS| 00001FB0: 41 44 52 3A 2E 42 59 30 00 50 52 54 33 32 30 3A |ADR:.BY0.PRT320:| 00001FC0: 2E 44 42 31 36 3B C4 52 55 43 4B 45 52 20 41 55 |.DB16;.RUCKER AU| 00001FD0: 46 20 36 34 30 20 C7 52 41 46 49 4B 5A 45 49 43 |F 640 .RAFIKZEIC| 00001FE0: 48 45 4E 00 50 52 54 36 34 30 3A 2E 44 42 31 36 |HEN.PRT640:.DB16| 00001FF0: 3B C4 52 55 43 4B 45 52 20 41 55 46 20 33 32 30 |;.RUCKER AUF 320| 00002000: 20 C7 52 41 46 49 55 5A 45 49 43 48 45 4E 00 50 | .RAFIUZEICHEN.P| 00002010: 52 54 4E 4F 52 4D 3A 2E 44 42 31 30 3B C4 52 55 |RTNORM:.DB10;.RU| 00002020: 43 4B 45 52 20 4E 4F 52 4D 41 4C 00 20 00 42 4C |CKER NORMAL. .BL| 00002030: 4F 43 4B 53 3A 2E 42 59 24 43 30 2C 24 38 30 2C |OCKS:.BY$C0,$80,| 00002040: 24 34 30 2C 24 30 30 3B C2 4C 4F 43 4B 4F 46 46 |$40,$00;.LOCKOFF| 00002050: 53 45 54 00 50 52 54 44 4F 50 50 3A 2E 52 56 31 |SET.PRTDOPP:.RV1| 00002060: 2B 32 2C 34 2B 38 2C 31 36 2B 33 32 2C 36 34 2B |+2,4+8,16+32,64+| 00002070: 31 32 38 3B C2 49 54 53 20 46 55 45 52 20 C4 4F |128;.ITS FUER .O| 00002080: 50 50 45 4C 54 00 50 52 54 45 49 4E 46 3A 2E 52 |PPELT.PRTEINF:.R| 00002090: 56 31 2C 32 2C 34 2C 38 2C 31 36 2C 33 32 2C 36 |V1,2,4,8,16,32,6| 000020A0: 34 2C 31 32 38 3B C2 49 54 53 20 46 55 45 52 20 |4,128;.ITS FUER | 000020B0: C5 49 4E 46 41 43 48 00 20 00 4F 4D 4F 44 45 3A |.INFACH. .OMODE:| 000020C0: 2E 42 59 30 2C 31 32 38 2C 36 34 2C 31 32 38 2B |.BY0,128,64,128+| 000020D0: 36 34 2C 31 2C 31 32 39 2C 36 35 2C 31 32 38 2B |64,1,129,65,128+| 000020E0: 36 35 3B C3 4F 44 45 20 46 55 45 52 20 4F 55 54 |65;.ODE FUER OUT| 000020F0: 4D 4F 44 45 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D |MODE. .;--------| 00002100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00002120: 3B 2D 2D 2D 20 D8 C2 C1 D3 C9 C3 2D C2 45 46 45 |;--- ......-.EFE| 00002130: 48 4C 20 C2 CD CF D6 C5 20 D6 CF CE 2C C2 C9 D3 |HL ..... ...,...| 00002140: 2C C2 D9 D4 C5 20 2D 2D 00 3B 2D 2D 2D 2D 2D 2D |,.... --.;------| 00002150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002170: 2D 00 4D 4F 56 45 56 4F 4E 3A 2E 45 51 4D 45 4D |-.MOVEVON:.EQMEM| 00002180: 3B D6 CF CE 00 4D 4F 56 45 4E 41 43 48 3A 2E 45 |;....MOVENACH:.E| 00002190: 51 4D 45 4D 2B 32 3B CE C1 C3 C8 00 4D 4F 56 45 |QMEM+2;.....MOVE| 000021A0: 42 59 54 45 53 3A 2E 45 51 4D 45 4D 2B 34 3B C1 |BYTES:.EQMEM+4;.| 000021B0: 4E 5A 2E 20 C2 59 54 45 53 00 20 00 C2 C2 42 4D |NZ. .YTES. ...BM| 000021C0: 4F 56 45 3A 4A 53 52 47 45 54 41 44 52 3B D6 CF |OVE:JSRGETADR;..| 000021D0: CE 20 4C 45 53 45 4E 00 4C 44 41 24 31 34 3B 55 |. LESEN.LDA$14;U| 000021E0: 4E 44 20 53 50 45 49 43 48 45 52 4E 00 53 54 41 |ND SPEICHERN.STA| 000021F0: 4D 4F 56 45 56 4F 4E 00 4C 44 41 24 31 35 00 53 |MOVEVON.LDA$15.S| 00002200: 54 41 4D 4F 56 45 56 4F 4E 2B 31 00 4A 53 52 43 |TAMOVEVON+1.JSRC| 00002210: 48 4B 4B 4F 4D 3B 41 55 46 20 CB 4F 4D 4D 41 20 |HKKOM;AUF .OMMA | 00002220: 54 45 53 54 45 4E 00 4A 53 52 47 45 54 41 44 52 |TESTEN.JSRGETADR| 00002230: 3B CE C1 C3 C8 20 4C 45 53 45 4E 00 4C 44 41 24 |;.... LESEN.LDA$| 00002240: 31 34 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E |14;UND SPEICHERN| 00002250: 00 53 54 41 4D 4F 56 45 4E 41 43 48 00 4C 44 41 |.STAMOVENACH.LDA| 00002260: 24 31 35 00 53 54 41 4D 4F 56 45 4E 41 43 48 2B |$15.STAMOVENACH+| 00002270: 31 00 4A 53 52 43 48 4B 4B 4F 4D 3B 41 55 46 20 |1.JSRCHKKOM;AUF | 00002280: CB 4F 4D 4D 41 20 54 45 53 54 45 4E 00 4A 53 52 |.OMMA TESTEN.JSR| 00002290: 47 45 54 41 44 52 3B C1 4E 5A 41 48 4C 20 C2 59 |GETADR;.NZAHL .Y| 000022A0: 54 45 20 4C 45 53 45 4E 00 4C 44 41 24 31 34 3B |TE LESEN.LDA$14;| 000022B0: 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 53 54 |UND SPEICHERN.ST| 000022C0: 41 4D 4F 56 45 42 59 54 45 53 00 4C 44 41 24 31 |AMOVEBYTES.LDA$1| 000022D0: 35 00 53 54 41 4D 4F 56 45 42 59 54 45 53 2B 31 |5.STAMOVEBYTES+1| 000022E0: 00 44 4F 42 4D 4F 56 45 3A 4C 44 41 4D 4F 56 45 |.DOBMOVE:LDAMOVE| 000022F0: 4E 41 43 48 2B 31 3B CE C1 C3 C8 20 3C 20 D6 CF |NACH+1;.... < ..| 00002300: CE 20 3F 00 43 4D 50 4D 4F 56 45 56 4F 4E 2B 31 |. ?.CMPMOVEVON+1| 00002310: 00 42 43 43 4D 4F 56 45 44 4F 57 4E 3B 4A 41 2C |.BCCMOVEDOWN;JA,| 00002320: 20 4E 41 43 48 20 55 4E 54 45 4E 20 56 45 52 53 | NACH UNTEN VERS| 00002330: 43 48 49 45 42 45 4E 00 42 4E 45 4D 4F 56 45 55 |CHIEBEN.BNEMOVEU| 00002340: 50 3B 4E 45 49 4E 2C 20 4E 41 43 48 20 4F 42 45 |P;NEIN, NACH OBE| 00002350: 4E 20 56 45 52 53 43 48 49 45 42 45 4E 00 4C 44 |N VERSCHIEBEN.LD| 00002360: 41 4D 4F 56 45 4E 41 43 48 00 43 4D 50 4D 4F 56 |AMOVENACH.CMPMOV| 00002370: 45 56 4F 4E 00 42 43 43 4D 4F 56 45 44 4F 57 4E |EVON.BCCMOVEDOWN| 00002380: 00 20 00 3B 4E 41 43 48 20 4F 42 45 4E 20 56 45 |. .;NACH OBEN VE| 00002390: 52 53 43 48 49 45 42 45 4E 00 4D 4F 56 45 55 50 |RSCHIEBEN.MOVEUP| 000023A0: 3A 43 4C 43 3B 41 5A 47 32 3D D6 CF CE 2B C1 4E |:CLC;AZG2=...+.N| 000023B0: 5A 2E 20 C2 59 54 45 00 4C 44 41 4D 4F 56 45 56 |Z. .YTE.LDAMOVEV| 000023C0: 4F 4E 00 41 44 43 4D 4F 56 45 42 59 54 45 53 00 |ON.ADCMOVEBYTES.| 000023D0: 53 54 41 41 5A 47 32 00 4C 44 41 4D 4F 56 45 56 |STAAZG2.LDAMOVEV| 000023E0: 4F 4E 2B 31 00 41 44 43 4D 4F 56 45 42 59 54 45 |ON+1.ADCMOVEBYTE| 000023F0: 53 2B 31 00 53 54 41 41 5A 47 32 2B 31 00 43 4C |S+1.STAAZG2+1.CL| 00002400: 43 3B 41 5A 47 3D CE C1 C3 C8 2B C1 4E 5A 2E 20 |C;AZG=....+.NZ. | 00002410: C2 59 54 45 00 4C 44 41 4D 4F 56 45 4E 41 43 48 |.YTE.LDAMOVENACH| 00002420: 00 41 44 43 4D 4F 56 45 42 59 54 45 53 00 53 54 |.ADCMOVEBYTES.ST| 00002430: 41 41 5A 47 00 4C 44 41 4D 4F 56 45 4E 41 43 48 |AAZG.LDAMOVENACH| 00002440: 2B 31 00 41 44 43 4D 4F 56 45 42 59 54 45 53 2B |+1.ADCMOVEBYTES+| 00002450: 31 00 53 54 41 41 5A 47 2B 31 00 4C 44 59 23 30 |1.STAAZG+1.LDY#0| 00002460: 00 44 4F 4D 4F 55 50 3A 4A 53 52 44 45 43 41 5A |.DOMOUP:JSRDECAZ| 00002470: 47 3B 41 5A 47 2D 31 00 4A 53 52 44 45 43 41 5A |G;AZG-1.JSRDECAZ| 00002480: 47 32 3B 41 5A 47 32 2D 31 00 4C 44 41 28 41 5A |G2;AZG2-1.LDA(AZ| 00002490: 47 32 29 2C 59 3B 45 49 4E 20 C2 59 54 45 20 56 |G2),Y;EIN .YTE V| 000024A0: 45 52 53 43 48 49 45 42 45 4E 00 53 54 41 28 41 |ERSCHIEBEN.STA(A| 000024B0: 5A 47 29 2C 59 00 4C 44 41 4D 4F 56 45 42 59 54 |ZG),Y.LDAMOVEBYT| 000024C0: 45 53 3B C1 4E 5A 2E 20 C2 59 54 45 2D 31 00 42 |ES;.NZ. .YTE-1.B| 000024D0: 4E 45 4E 44 4D 55 33 00 44 45 43 4D 4F 56 45 42 |NENDMU3.DECMOVEB| 000024E0: 59 54 45 53 2B 31 00 4E 44 4D 55 33 3A 44 45 43 |YTES+1.NDMU3:DEC| 000024F0: 4D 4F 56 45 42 59 54 45 53 00 4C 44 41 4D 4F 56 |MOVEBYTES.LDAMOV| 00002500: 45 42 59 54 45 53 3B C1 4E 5A 2E 20 C2 59 54 45 |EBYTES;.NZ. .YTE| 00002510: 3D 30 20 3F 00 4F 52 41 4D 4F 56 45 42 59 54 45 |=0 ?.ORAMOVEBYTE| 00002520: 53 2B 31 00 42 4E 45 44 4F 4D 4F 55 50 3B 4E 45 |S+1.BNEDOMOUP;NE| 00002530: 49 4E 2C 20 4E 41 45 43 48 53 54 45 53 20 C2 59 |IN, NAECHSTES .Y| 00002540: 54 45 20 56 45 52 53 43 48 49 45 42 45 4E 00 52 |TE VERSCHIEBEN.R| 00002550: 54 53 00 20 00 3B 4E 41 43 48 20 55 4E 54 45 4E |TS. .;NACH UNTEN| 00002560: 20 56 45 52 53 43 48 49 45 42 45 4E 00 4D 4F 56 | VERSCHIEBEN.MOV| 00002570: 45 44 4F 57 4E 3A 4C 44 41 4D 4F 56 45 56 4F 4E |EDOWN:LDAMOVEVON| 00002580: 3B 41 5A 47 3D D6 CF CE 00 53 54 41 41 5A 47 00 |;AZG=....STAAZG.| 00002590: 4C 44 41 4D 4F 56 45 56 4F 4E 2B 31 00 53 54 41 |LDAMOVEVON+1.STA| 000025A0: 41 5A 47 2B 31 00 4C 44 41 4D 4F 56 45 4E 41 43 |AZG+1.LDAMOVENAC| 000025B0: 48 3B 41 5A 47 32 3D CE C1 C3 C8 00 53 54 41 41 |H;AZG2=.....STAA| 000025C0: 5A 47 32 00 4C 44 41 4D 4F 56 45 4E 41 43 48 2B |ZG2.LDAMOVENACH+| 000025D0: 31 00 53 54 41 41 5A 47 32 2B 31 00 4C 44 59 23 |1.STAAZG2+1.LDY#| 000025E0: 30 00 44 4F 4D 4F 44 4F 57 4E 3A 4C 44 41 28 41 |0.DOMODOWN:LDA(A| 000025F0: 5A 47 29 2C 59 3B 45 49 4E 20 C2 59 54 45 20 56 |ZG),Y;EIN .YTE V| 00002600: 45 52 53 43 48 49 45 42 45 4E 00 53 54 41 28 41 |ERSCHIEBEN.STA(A| 00002610: 5A 47 32 29 2C 59 00 49 4E 43 41 5A 47 3B 41 5A |ZG2),Y.INCAZG;AZ| 00002620: 47 2B 31 00 42 4E 45 2A 2B 32 2B 32 00 49 4E 43 |G+1.BNE*+2+2.INC| 00002630: 41 5A 47 2B 31 00 49 4E 43 41 5A 47 32 3B 41 5A |AZG+1.INCAZG2;AZ| 00002640: 47 32 2B 31 00 42 4E 45 2A 2B 32 2B 32 00 49 4E |G2+1.BNE*+2+2.IN| 00002650: 43 41 5A 47 32 2B 31 00 4C 44 41 4D 4F 56 45 42 |CAZG2+1.LDAMOVEB| 00002660: 59 54 45 53 3B C1 4E 5A 2E 20 C2 59 54 45 2D 31 |YTES;.NZ. .YTE-1| 00002670: 00 42 4E 45 4E 44 4D 55 34 00 44 45 43 4D 4F 56 |.BNENDMU4.DECMOV| 00002680: 45 42 59 54 45 53 2B 31 00 4E 44 4D 55 34 3A 44 |EBYTES+1.NDMU4:D| 00002690: 45 43 4D 4F 56 45 42 59 54 45 53 00 4C 44 41 4D |ECMOVEBYTES.LDAM| 000026A0: 4F 56 45 42 59 54 45 53 3B C1 4E 5A 2E 20 C2 59 |OVEBYTES;.NZ. .Y| 000026B0: 54 45 3D 30 20 3F 00 4F 52 41 4D 4F 56 45 42 59 |TE=0 ?.ORAMOVEBY| 000026C0: 54 45 53 2B 31 00 42 4E 45 44 4F 4D 4F 44 4F 57 |TES+1.BNEDOMODOW| 000026D0: 4E 3B 4E 45 49 4E 2C 20 4E 41 45 43 48 53 54 45 |N;NEIN, NAECHSTE| 000026E0: 53 20 C2 59 54 45 20 56 45 52 53 43 48 49 45 42 |S .YTE VERSCHIEB| 000026F0: 45 4E 00 52 54 53 00 20 00 44 45 43 41 5A 47 3A |EN.RTS. .DECAZG:| 00002700: 4C 44 41 41 5A 47 3B 41 5A 47 2D 31 00 42 4E 45 |LDAAZG;AZG-1.BNE| 00002710: 4E 48 45 52 45 31 00 44 45 43 41 5A 47 2B 31 00 |NHERE1.DECAZG+1.| 00002720: 4E 48 45 52 45 31 3A 44 45 43 41 5A 47 00 52 54 |NHERE1:DECAZG.RT| 00002730: 53 00 20 00 44 45 43 41 5A 47 32 3A 4C 44 41 41 |S. .DECAZG2:LDAA| 00002740: 5A 47 32 3B 41 5A 47 32 2D 31 00 42 4E 45 4E 48 |ZG2;AZG2-1.BNENH| 00002750: 45 52 45 32 00 44 45 43 41 5A 47 32 2B 31 00 4E |ERE2.DECAZG2+1.N| 00002760: 48 45 52 45 32 3A 44 45 43 41 5A 47 32 00 52 54 |HERE2:DECAZG2.RT| 00002770: 53 00 20 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |S. .;-----------| 00002780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3B 2D 2D |------------.;--| 000027A0: 2D 20 C2 45 46 45 48 4C 20 D2 C5 CE D5 CD 20 D3 |- .EFEHL ..... .| 000027B0: D4 C1 D2 D4 2C C6 C9 D2 D3 D4 2C D3 D4 C5 D0 2C |....,.....,....,| 000027C0: CF D0 D4 2D 2D 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |...--.;---------| 000027D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000027E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 42 |--------------.B| 000027F0: 41 53 53 54 41 52 54 3A 2E 45 51 34 33 3B C1 4E |ASSTART:.EQ43;.N| 00002800: 46 41 4E 47 20 C2 41 53 49 43 00 42 41 53 49 43 |FANG .ASIC.BASIC| 00002810: 45 4E 44 3A 2E 45 51 34 35 00 20 00 41 4B 54 5A |END:.EQ45. .AKTZ| 00002820: 45 49 4C 45 3A 2E 45 51 24 33 39 3B 41 4B 54 55 |EILE:.EQ$39;AKTU| 00002830: 45 4C 4C 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 |ELLE .EILENNUMME| 00002840: 52 00 20 00 59 4D 45 4D 3A 2E 45 51 39 32 3B DA |R. .YMEM:.EQ92;.| 00002850: 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 |WISCHENSPEICHER.| 00002860: 20 00 53 54 41 52 54 4C 49 4E 45 3A 2E 45 51 31 | .STARTLINE:.EQ1| 00002870: 35 38 3B D3 54 41 52 54 00 4E 45 57 53 54 41 52 |58;.TART.NEWSTAR| 00002880: 54 3A 2E 45 51 31 36 34 3B C6 49 52 53 54 00 53 |T:.EQ164;.IRST.S| 00002890: 54 45 50 3A 2E 45 51 31 36 37 3B D3 54 45 50 00 |TEP:.EQ167;.TEP.| 000028A0: 52 45 4E 4F 50 54 53 3A 2E 45 51 4D 45 4D 2B 31 |RENOPTS:.EQMEM+1| 000028B0: 30 3B CF 50 54 49 4F 4E 45 4E 00 20 00 D4 CB 47 |0;.PTIONEN. ...G| 000028C0: 4F 54 4F 3A 2E 45 51 31 33 37 00 D4 CB 47 4F 53 |OTO:.EQ137...GOS| 000028D0: 55 42 3A 2E 45 51 31 34 31 00 D4 CB 54 48 45 4E |UB:.EQ141...THEN| 000028E0: 3A 2E 45 51 31 36 37 00 D4 CB 44 41 54 41 3A 2E |:.EQ167...DATA:.| 000028F0: 45 51 31 33 31 00 D4 CB 52 45 4D 3A 2E 45 51 31 |EQ131...REM:.EQ1| 00002900: 34 33 00 20 00 C2 C2 52 45 4E 55 4D 3A 4A 53 52 |43. ...RENUM:JSR| 00002910: 47 45 54 41 44 52 3B D3 54 41 52 54 41 44 52 45 |GETADR;.TARTADRE| 00002920: 53 53 45 20 48 4F 4C 45 4E 00 4C 44 41 24 31 34 |SSE HOLEN.LDA$14| 00002930: 3B 55 4E 44 20 49 4E 20 53 54 41 52 54 4C 49 4E |;UND IN STARTLIN| 00002940: 45 20 53 50 45 49 43 48 45 52 4E 00 4C 44 58 24 |E SPEICHERN.LDX$| 00002950: 31 35 00 53 54 41 53 54 41 52 54 4C 49 4E 45 00 |15.STASTARTLINE.| 00002960: 53 54 58 53 54 41 52 54 4C 49 4E 45 2B 31 00 4A |STXSTARTLINE+1.J| 00002970: 53 52 43 48 4B 4B 4F 4D 3B 45 52 53 54 45 20 DA |SRCHKKOM;ERSTE .| 00002980: 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 48 4F 4C 45 |EILENNUMMER HOLE| 00002990: 4E 00 4A 53 52 47 45 54 41 44 52 00 4C 44 41 24 |N.JSRGETADR.LDA$| 000029A0: 31 34 3B 55 4E 44 20 49 4E 20 4E 45 57 53 54 41 |14;UND IN NEWSTA| 000029B0: 52 54 20 53 50 45 49 43 48 45 52 4E 00 4C 44 58 |RT SPEICHERN.LDX| 000029C0: 24 31 35 00 53 54 41 4E 45 57 53 54 41 52 54 00 |$15.STANEWSTART.| 000029D0: 53 54 58 4E 45 57 53 54 41 52 54 2B 31 00 43 50 |STXNEWSTART+1.CP| 000029E0: 58 53 54 41 52 54 4C 49 4E 45 2B 31 3B DA 45 49 |XSTARTLINE+1;.EI| 000029F0: 4C 45 4E 4E 55 4D 4D 45 52 20 3E 20 D3 54 41 52 |LENNUMMER > .TAR| 00002A00: 54 4C 49 4E 45 20 3F 00 42 45 51 4C 4F 57 54 45 |TLINE ?.BEQLOWTE| 00002A10: 53 54 00 42 43 53 43 4F 52 45 4E 00 53 4C 5A 55 |ST.BCSCOREN.SLZU| 00002A20: 4B 4C 45 49 4E 3A 4C 44 58 23 31 34 3B 4E 45 49 |KLEIN:LDX#14;NEI| 00002A30: 4E 2C 20 C6 45 48 4C 45 52 20 4D 45 4C 44 45 4E |N, .EHLER MELDEN| 00002A40: 00 4A 4D 50 46 45 48 4C 45 52 00 4C 4F 57 54 45 |.JMPFEHLER.LOWTE| 00002A50: 53 54 3A 43 4D 50 53 54 41 52 54 4C 49 4E 45 00 |ST:CMPSTARTLINE.| 00002A60: 42 43 43 53 4C 5A 55 4B 4C 45 49 4E 3B 4E 45 49 |BCCSLZUKLEIN;NEI| 00002A70: 4E 2C 20 5A 55 20 4B 4C 45 49 4E 00 43 4F 52 45 |N, ZU KLEIN.CORE| 00002A80: 4E 3A 4A 53 52 43 48 4B 4B 4F 4D 3B 41 55 46 20 |N:JSRCHKKOM;AUF | 00002A90: CB 4F 4D 4D 41 20 54 45 53 54 45 4E 00 4A 53 52 |.OMMA TESTEN.JSR| 00002AA0: 47 45 54 41 44 52 3B D3 43 48 52 49 54 54 20 48 |GETADR;.CHRITT H| 00002AB0: 4F 4C 45 4E 00 4C 44 41 24 31 34 00 4C 44 58 24 |OLEN.LDA$14.LDX$| 00002AC0: 31 35 00 53 54 41 53 54 45 50 00 53 54 58 53 54 |15.STASTEP.STXST| 00002AD0: 45 50 2B 31 00 4F 52 41 53 54 45 50 2B 31 3B D3 |EP+1.ORASTEP+1;.| 00002AE0: 54 45 50 20 3D 30 20 3F 00 42 45 51 53 4C 5A 55 |TEP =0 ?.BEQSLZU| 00002AF0: 4B 4C 45 49 4E 3B 4A 41 2C 20 C6 45 48 4C 45 52 |KLEIN;JA, .EHLER| 00002B00: 20 4D 45 4C 44 45 4E 00 4C 44 41 23 30 3B 4B 45 | MELDEN.LDA#0;KE| 00002B10: 49 4E 45 20 CF 50 54 49 4F 4E 45 4E 20 47 45 53 |INE .PTIONEN GES| 00002B20: 45 54 5A 54 00 53 54 41 52 45 4E 4F 50 54 53 00 |ETZT.STARENOPTS.| 00002B30: 4F 50 54 49 4F 4E 53 3A 4A 53 52 43 48 52 47 4F |OPTIONS:JSRCHRGO| 00002B40: 54 3B 4C 45 54 5A 54 45 53 20 DA 45 49 43 48 45 |T;LETZTES .EICHE| 00002B50: 4E 20 4C 45 53 45 4E 00 42 45 51 52 45 4E 55 4D |N LESEN.BEQRENUM| 00002B60: 32 3B D4 52 45 4E 4E 5A 45 49 43 48 45 4E 2C 20 |2;.RENNZEICHEN, | 00002B70: 44 41 4E 4E 20 55 4D 4E 55 4D 45 52 49 45 52 45 |DANN UMNUMERIERE| 00002B80: 4E 00 4A 53 52 43 48 52 47 45 54 3B 4E 41 45 43 |N.JSRCHRGET;NAEC| 00002B90: 48 53 54 45 53 20 DA 45 49 43 48 45 4E 20 48 4F |HSTES .EICHEN HO| 00002BA0: 4C 45 4E 00 43 4D 50 23 27 54 3B D4 20 2D 20 D4 |LEN.CMP#'T;. - .| 00002BB0: 41 42 45 4C 4C 45 00 42 45 51 54 41 42 41 4E 00 |ABELLE.BEQTABAN.| 00002BC0: 43 4D 50 23 27 4B 3B CB 20 2D 20 CB 4F 4D 4D 45 |CMP#'K;. - .OMME| 00002BD0: 4E 54 41 52 5A 45 49 4C 45 4E 00 42 45 51 4B 4F |NTARZEILEN.BEQKO| 00002BE0: 4D 41 4E 00 43 4D 50 23 27 4E 3B CE 20 2D 20 CE |MAN.CMP#'N;. - .| 00002BF0: 45 55 45 20 CE 55 4D 4D 45 52 4E 00 42 45 51 4E |EUE .UMMERN.BEQN| 00002C00: 45 57 41 4E 00 43 4D 50 23 27 42 3B C2 20 2D 20 |EWAN.CMP#'B;. - | 00002C10: C2 4C 41 4E 4B 27 53 00 42 4E 45 4F 50 54 49 4F |.LANK'S.BNEOPTIO| 00002C20: 4E 53 00 4C 44 41 23 31 3B C2 4C 41 4E 4B 53 20 |NS.LDA#1;.LANKS | 00002C30: 41 4E 00 42 49 54 00 54 41 42 41 4E 3A 4C 44 41 |AN.BIT.TABAN:LDA| 00002C40: 23 31 32 38 3B D4 41 42 45 4C 4C 45 20 41 4E 00 |#128;.ABELLE AN.| 00002C50: 42 49 54 00 4B 4F 4D 41 4E 3A 4C 44 41 23 36 34 |BIT.KOMAN:LDA#64| 00002C60: 3B CB 4F 4D 4D 45 4E 54 41 52 54 5A 2E 20 41 4E |;.OMMENTARTZ. AN| 00002C70: 00 42 49 54 00 4E 45 57 41 4E 3A 4C 44 41 23 32 |.BIT.NEWAN:LDA#2| 00002C80: 2B 31 32 38 3B 4E 45 55 45 20 CE 55 4D 4D 45 52 |+128;NEUE .UMMER| 00002C90: 4E 20 41 4E 00 4F 52 41 52 45 4E 4F 50 54 53 3B |N AN.ORARENOPTS;| 00002CA0: C2 49 54 20 53 45 54 5A 45 4E 00 53 54 41 52 45 |.IT SETZEN.STARE| 00002CB0: 4E 4F 50 54 53 00 42 4E 45 4F 50 54 49 4F 4E 53 |NOPTS.BNEOPTIONS| 00002CC0: 00 20 00 52 45 4E 55 4D 32 3A 4C 44 59 23 30 3B |. .RENUM2:LDY#0;| 00002CD0: C9 53 54 20 45 49 4E 20 D0 52 4F 47 52 41 4D 4D |.ST EIN .ROGRAMM| 00002CE0: 20 49 4D 20 D3 50 45 49 43 48 45 52 20 3F 00 4C | IM .PEICHER ?.L| 00002CF0: 44 41 28 42 41 53 53 54 41 52 54 29 2C 59 00 49 |DA(BASSTART),Y.I| 00002D00: 4E 59 00 4F 52 41 28 42 41 53 53 54 41 52 54 29 |NY.ORA(BASSTART)| 00002D10: 2C 59 00 42 4E 45 50 41 53 53 31 3B 4A 41 00 52 |,Y.BNEPASS1;JA.R| 00002D20: 54 53 3B 4E 45 49 4E 2C 20 46 45 52 54 49 47 00 |TS;NEIN, FERTIG.| 00002D30: 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 20 D0 20 C1 20 | .;******** . . | 00002D40: D3 20 D3 20 20 31 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |. . 1 *********| 00002D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 50 41 53 |**********. .PAS| 00002D60: 53 31 3A 4A 53 52 4D 4F 56 45 54 4F 54 4F 50 3B |S1:JSRMOVETOTOP;| 00002D70: D0 52 4F 47 52 41 4D 4D 20 4E 41 43 48 20 4F 42 |.ROGRAMM NACH OB| 00002D80: 45 4E 20 56 45 52 53 43 48 49 45 42 45 4E 00 4C |EN VERSCHIEBEN.L| 00002D90: 44 41 23 27 31 00 4A 53 52 50 41 53 53 3B D0 C1 |DA#'1.JSRPASS;..| 00002DA0: D3 D3 20 31 20 41 55 53 47 45 42 45 4E 00 50 41 |.. 1 AUSGEBEN.PA| 00002DB0: 53 53 31 4C 3A 4C 44 59 23 30 2B 31 3B D0 52 4F |SS1L:LDY#0+1;.RO| 00002DC0: 47 52 41 4D 4D 45 4E 44 45 20 3F 00 4C 44 41 28 |GRAMMENDE ?.LDA(| 00002DD0: 41 5A 47 29 2C 59 00 49 4E 59 00 4F 52 41 28 41 |AZG),Y.INY.ORA(A| 00002DE0: 5A 47 29 2C 59 00 42 4E 45 4E 4F 50 41 53 53 32 |ZG),Y.BNENOPASS2| 00002DF0: 3B 4E 45 49 4E 00 4A 4D 50 50 41 53 53 32 3B 4A |;NEIN.JMPPASS2;J| 00002E00: 41 2C 20 44 41 4E 4E 20 57 45 49 54 45 52 20 42 |A, DANN WEITER B| 00002E10: 45 49 20 D0 41 53 53 20 32 00 4E 4F 50 41 53 53 |EI .ASS 2.NOPASS| 00002E20: 32 3A 4C 44 59 23 33 2B 31 3B DA 45 49 4C 45 4E |2:LDY#3+1;.EILEN| 00002E30: 4E 55 4D 4D 45 52 20 48 49 47 48 00 4C 44 41 28 |NUMMER HIGH.LDA(| 00002E40: 41 5A 47 29 2C 59 00 53 54 41 24 36 32 3B 41 4C |AZG),Y.STA$62;AL| 00002E50: 53 20 41 4B 54 55 45 4C 4C 45 20 DA 45 49 4C 45 |S AKTUELLE .EILE| 00002E60: 20 53 50 45 49 43 48 45 52 4E 00 54 41 58 3B 55 | SPEICHERN.TAX;U| 00002E70: 4E 44 20 4D 45 52 4B 45 4E 00 44 45 59 00 4C 44 |ND MERKEN.DEY.LD| 00002E80: 41 28 41 5A 47 29 2C 59 3B DA 45 49 4C 45 4E 4E |A(AZG),Y;.EILENN| 00002E90: 55 4D 4D 45 52 20 4C 4F 57 00 53 54 41 24 36 33 |UMMER LOW.STA$63| 00002EA0: 3B 41 4C 53 20 41 4B 54 55 45 4C 4C 45 20 DA 45 |;ALS AKTUELLE .E| 00002EB0: 49 4C 45 20 53 50 45 49 43 48 45 52 4E 00 50 48 |ILE SPEICHERN.PH| 00002EC0: 41 3B 55 4E 44 20 4D 45 52 4B 45 4E 00 44 45 59 |A;UND MERKEN.DEY| 00002ED0: 00 54 58 41 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 |.TXA;.EILENNUMME| 00002EE0: 52 20 48 49 47 48 20 49 4E 20 CC 49 4E 4B 2D D0 |R HIGH IN .INK-.| 00002EF0: 4F 49 4E 54 45 52 00 53 54 41 28 41 5A 47 29 2C |OINTER.STA(AZG),| 00002F00: 59 00 44 45 59 3B DA 45 49 4C 45 4E 4E 55 4D 4D |Y.DEY;.EILENNUMM| 00002F10: 45 52 20 4C 4F 57 20 49 4E 20 CC 49 4E 4B 2D D0 |ER LOW IN .INK-.| 00002F20: 4F 49 4E 54 45 52 00 50 4C 41 00 53 54 41 28 41 |OINTER.PLA.STA(A| 00002F30: 5A 47 29 2C 59 00 4C 44 59 23 33 2B 31 3B DA 45 |ZG),Y.LDY#3+1;.E| 00002F40: 49 4C 45 4E 4E 55 4D 4D 45 52 20 3E 3D 20 D3 54 |ILENNUMMER >= .T| 00002F50: 41 52 54 5A 45 49 4C 45 20 3F 00 4C 44 41 53 54 |ARTZEILE ?.LDAST| 00002F60: 41 52 54 4C 49 4E 45 2B 31 00 43 4D 50 28 41 5A |ARTLINE+1.CMP(AZ| 00002F70: 47 29 2C 59 00 42 43 43 53 45 54 4E 45 57 4E 55 |G),Y.BCCSETNEWNU| 00002F80: 4D 3B 4A 41 00 42 45 51 4C 41 42 31 00 54 4F 4E |M;JA.BEQLAB1.TON| 00002F90: 4F 53 45 54 4E 45 57 3A 4A 4D 50 4E 4F 53 45 54 |OSETNEW:JMPNOSET| 00002FA0: 4E 45 57 3B 4E 45 49 4E 00 4C 41 42 31 3A 44 45 |NEW;NEIN.LAB1:DE| 00002FB0: 59 3B CC 4F 57 20 C2 59 54 45 20 50 52 55 45 46 |Y;.OW .YTE PRUEF| 00002FC0: 45 4E 00 4C 44 41 28 41 5A 47 29 2C 59 00 43 4D |EN.LDA(AZG),Y.CM| 00002FD0: 50 53 54 41 52 54 4C 49 4E 45 00 42 43 43 54 4F |PSTARTLINE.BCCTO| 00002FE0: 4E 4F 53 45 54 4E 45 57 3B 4E 45 49 4E 00 53 45 |NOSETNEW;NEIN.SE| 00002FF0: 54 4E 45 57 4E 55 4D 3A 42 49 54 52 45 4E 4F 50 |TNEWNUM:BITRENOP| 00003000: 54 53 3B D3 54 41 54 55 53 20 54 45 53 54 45 4E |TS;.TATUS TESTEN| 00003010: 00 42 50 4C 55 4E 54 41 42 3B 4B 45 49 4E 45 20 |.BPLUNTAB;KEINE | 00003020: D4 41 42 45 4C 4C 45 20 41 55 53 47 45 42 45 4E |.ABELLE AUSGEBEN| 00003030: 00 4C 44 58 23 36 36 00 4A 53 52 42 41 53 49 43 |.LDX#66.JSRBASIC| 00003040: 52 4F 4D 3B 41 4B 54 55 45 4C 4C 45 20 DA 45 49 |ROM;AKTUELLE .EI| 00003050: 4C 45 4E 4E 55 4D 4D 45 52 20 41 55 53 47 45 42 |LENNUMMER AUSGEB| 00003060: 45 4E 00 4C 44 41 23 27 3D 3B 22 3D 22 20 41 55 |EN.LDA#'=;"=" AU| 00003070: 53 47 45 42 45 4E 00 4A 53 52 42 41 53 4F 55 54 |SGEBEN.JSRBASOUT| 00003080: 00 55 4E 54 41 42 3A 4C 44 41 52 45 4E 4F 50 54 |.UNTAB:LDARENOPT| 00003090: 53 3B CE 45 55 45 20 CE 52 2E 20 42 45 49 20 CB |S;.EUE .R. BEI .| 000030A0: 4F 4D 4D 45 4E 54 41 52 20 3F 00 41 4E 44 23 32 |OMMENTAR ?.AND#2| 000030B0: 00 42 45 51 4E 4E 4E 3B 4E 45 49 4E 00 4C 44 59 |.BEQNNN;NEIN.LDY| 000030C0: 23 34 2B 31 00 4C 44 41 28 41 5A 47 29 2C 59 3B |#4+1.LDA(AZG),Y;| 000030D0: CB 4F 4D 4D 45 4E 54 41 52 5A 45 49 4C 45 20 3F |.OMMENTARZEILE ?| 000030E0: 00 43 4D 50 23 D4 CB 52 45 4D 00 42 45 51 47 45 |.CMP#..REM.BEQGE| 000030F0: 54 4E 45 57 3B 4A 41 2C 20 D2 C5 CD 00 43 4D 50 |TNEW;JA, ....CMP| 00003100: 23 D4 CB 44 41 54 41 00 42 45 51 47 45 54 4E 45 |#..DATA.BEQGETNE| 00003110: 57 3B 4A 41 2C 20 C4 C1 D4 C1 00 49 4E 59 00 4C |W;JA, .....INY.L| 00003120: 44 41 28 41 5A 47 29 2C 59 00 42 4E 45 4E 4E 4E |DA(AZG),Y.BNENNN| 00003130: 3B 4E 45 49 4E 2C 20 4C 41 45 4E 47 45 52 20 41 |;NEIN, LAENGER A| 00003140: 4C 53 20 31 20 DA 45 49 43 48 45 4E 00 44 45 59 |LS 1 .EICHEN.DEY| 00003150: 00 4C 44 41 28 41 5A 47 29 2C 59 00 43 4D 50 23 |.LDA(AZG),Y.CMP#| 00003160: 27 3A 00 42 45 51 47 45 54 4E 45 57 3B 4A 41 2C |':.BEQGETNEW;JA,| 00003170: 20 27 3A 27 00 43 4D 50 23 33 32 00 42 4E 45 4E | ':'.CMP#32.BNEN| 00003180: 4E 4E 3B 4E 45 49 4E 00 47 45 54 4E 45 57 3A 4C |NN;NEIN.GETNEW:L| 00003190: 44 41 23 27 3F 3B 22 3F 22 20 41 55 53 47 45 42 |DA#'?;"?" AUSGEB| 000031A0: 45 4E 00 4A 53 52 42 41 53 4F 55 54 00 49 53 4F |EN.JSRBASOUT.ISO| 000031B0: 55 54 3A 4C 44 41 23 30 3B CE 55 4D 4D 45 52 3D |UT:LDA#0;.UMMER=| 000031C0: 30 00 53 54 41 4E 55 4D 00 53 54 41 4E 55 4D 2B |0.STANUM.STANUM+| 000031D0: 31 00 5A 41 48 4C 45 49 4E 3A 4C 44 58 23 34 30 |1.ZAHLEIN:LDX#40| 000031E0: 3B 45 49 4E 20 DA 45 49 43 48 45 4E 20 45 49 4E |;EIN .EICHEN EIN| 000031F0: 4C 45 53 45 4E 00 4A 53 52 42 41 53 49 43 52 4F |LESEN.JSRBASICRO| 00003200: 4D 00 43 4D 50 23 31 33 00 42 45 51 45 4E 44 5A |M.CMP#13.BEQENDZ| 00003210: 41 48 4C 3B D2 C5 D4 D5 D2 CE 00 43 4D 50 23 27 |AHL;.......CMP#'| 00003220: 30 3B DA 49 46 46 45 52 20 3F 00 42 43 43 5A 41 |0;.IFFER ?.BCCZA| 00003230: 48 4C 45 49 4E 3B 4E 45 49 4E 2C 20 55 45 42 45 |HLEIN;NEIN, UEBE| 00003240: 52 4C 45 53 45 4E 00 43 4D 50 23 27 39 2B 31 00 |RLESEN.CMP#'9+1.| 00003250: 42 43 53 5A 41 48 4C 45 49 4E 3B 4E 45 49 4E 2C |BCSZAHLEIN;NEIN,| 00003260: 20 55 45 42 45 52 4C 45 53 45 4E 00 50 48 41 3B | UEBERLESEN.PHA;| 00003270: DA 49 46 46 45 52 20 4D 45 52 4B 45 4E 00 4A 53 |.IFFER MERKEN.JS| 00003280: 52 4E 55 4D 4D 41 4C 31 30 3B DA 45 49 4C 45 4E |RNUMMAL10;.EILEN| 00003290: 4E 55 4D 4D 45 52 20 4D 41 4C 20 31 30 00 50 4C |NUMMER MAL 10.PL| 000032A0: 41 00 43 4C 43 3B 2B 20 DA 49 46 46 45 52 00 41 |A.CLC;+ .IFFER.A| 000032B0: 4E 44 23 25 31 31 31 31 3B 28 57 41 4E 44 4C 55 |ND#%1111;(WANDLU| 000032C0: 4E 47 20 22 30 22 2E 2E 22 39 22 20 4E 41 43 48 |NG "0".."9" NACH| 000032D0: 20 30 2E 2E 39 29 00 41 44 43 4E 55 4D 00 53 54 | 0..9).ADCNUM.ST| 000032E0: 41 4E 55 4D 3B 45 52 47 49 42 54 20 44 49 45 20 |ANUM;ERGIBT DIE | 000032F0: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 00 42 43 43 |.EILENNUMMER.BCC| 00003300: 5A 41 48 4C 45 49 4E 00 49 4E 43 4E 55 4D 2B 31 |ZAHLEIN.INCNUM+1| 00003310: 00 42 4E 45 5A 41 48 4C 45 49 4E 00 45 4E 44 5A |.BNEZAHLEIN.ENDZ| 00003320: 41 48 4C 3A 4A 53 52 42 41 53 4F 55 54 3B D2 45 |AHL:JSRBASOUT;.E| 00003330: 54 55 52 4E 20 41 55 53 47 45 42 45 4E 00 4C 44 |TURN AUSGEBEN.LD| 00003340: 41 4E 55 4D 3B CE 55 4D 4D 45 52 3D 30 20 3F 00 |ANUM;.UMMER=0 ?.| 00003350: 4F 52 41 4E 55 4D 2B 31 00 42 45 51 4E 4E 4E 3B |ORANUM+1.BEQNNN;| 00003360: 4A 41 2C 20 44 41 4E 4E 20 4B 45 49 4E 45 20 DA |JA, DANN KEINE .| 00003370: 41 48 4C 20 45 49 4E 47 45 47 45 42 45 4E 00 4C |AHL EINGEGEBEN.L| 00003380: 44 41 4E 55 4D 2B 31 3B CE 55 4D 45 52 3C 20 41 |DANUM+1;.UMER< A| 00003390: 4B 54 55 45 4C 4C 45 20 DA 45 49 4C 45 4E 4E 55 |KTUELLE .EILENNU| 000033A0: 4D 4D 45 52 20 3F 00 43 4D 50 4E 45 57 53 54 41 |MMER ?.CMPNEWSTA| 000033B0: 52 54 2B 31 00 42 43 43 47 45 54 4E 45 57 3B 4A |RT+1.BCCGETNEW;J| 000033C0: 41 2C 20 4E 45 55 45 20 DA 41 48 4C 20 45 49 4E |A, NEUE .AHL EIN| 000033D0: 4C 45 53 45 4E 00 42 4E 45 49 53 49 4F 3B 4E 45 |LESEN.BNEISIO;NE| 000033E0: 49 4E 00 4C 44 41 4E 55 4D 00 43 4D 50 4E 45 57 |IN.LDANUM.CMPNEW| 000033F0: 53 54 41 52 54 00 42 43 43 47 45 54 4E 45 57 3B |START.BCCGETNEW;| 00003400: 4A 41 2C 20 4E 45 55 45 20 DA 41 48 4C 20 45 49 |JA, NEUE .AHL EI| 00003410: 4E 4C 45 53 45 4E 00 49 53 49 4F 3A 4C 44 41 4E |NLESEN.ISIO:LDAN| 00003420: 55 4D 3B CE 55 4D 4D 45 52 20 41 4C 53 20 4E 45 |UM;.UMMER ALS NE| 00003430: 55 45 4E 20 D3 54 41 52 54 57 45 52 54 20 53 45 |UEN .TARTWERT SE| 00003440: 54 5A 45 4E 00 53 54 41 4E 45 57 53 54 41 52 54 |TZEN.STANEWSTART| 00003450: 00 4C 44 41 4E 55 4D 2B 31 00 53 54 41 4E 45 57 |.LDANUM+1.STANEW| 00003460: 53 54 41 52 54 2B 31 00 20 00 4E 4E 4E 3A 4C 44 |START+1. .NNN:LD| 00003470: 59 23 30 2B 31 3B 4E 45 57 53 54 41 52 54 20 41 |Y#0+1;NEWSTART A| 00003480: 4C 53 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 00 |LS .EILENNUMMER.| 00003490: 43 4C 43 3B 49 4E 20 44 45 4E 20 CC 49 4E 4B 2D |CLC;IN DEN .INK-| 000034A0: D0 4F 49 4E 54 45 52 20 53 45 54 5A 45 4E 00 4C |.OINTER SETZEN.L| 000034B0: 44 41 4E 45 57 53 54 41 52 54 00 53 54 41 24 36 |DANEWSTART.STA$6| 000034C0: 33 3B 46 55 45 52 20 C1 55 53 47 41 42 45 20 53 |3;FUER .USGABE S| 000034D0: 50 45 49 43 48 45 52 4E 00 53 54 41 28 41 5A 47 |PEICHERN.STA(AZG| 000034E0: 29 2C 59 00 41 44 43 53 54 45 50 3B D3 54 45 50 |),Y.ADCSTEP;.TEP| 000034F0: 20 41 44 44 49 45 52 45 4E 00 53 54 41 4E 45 57 | ADDIEREN.STANEW| 00003500: 53 54 41 52 54 00 49 4E 59 00 4C 44 41 4E 45 57 |START.INY.LDANEW| 00003510: 53 54 41 52 54 2B 31 00 53 54 41 24 36 32 00 53 |START+1.STA$62.S| 00003520: 54 41 28 41 5A 47 29 2C 59 00 41 44 43 53 54 45 |TA(AZG),Y.ADCSTE| 00003530: 50 2B 31 00 53 54 41 4E 45 57 53 54 41 52 54 2B |P+1.STANEWSTART+| 00003540: 31 00 42 49 54 52 45 4E 4F 50 54 53 3B D4 41 42 |1.BITRENOPTS;.AB| 00003550: 45 4C 4C 45 20 44 52 55 43 4B 45 4E 20 3F 00 42 |ELLE DRUCKEN ?.B| 00003560: 50 4C 4E 4F 53 45 54 4E 45 57 00 4C 44 58 23 36 |PLNOSETNEW.LDX#6| 00003570: 36 3B 4A 41 2C 20 44 41 4E 4E 20 4E 45 55 45 20 |6;JA, DANN NEUE | 00003580: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 41 55 53 |.EILENNUMMER AUS| 00003590: 47 45 42 45 4E 00 4A 53 52 42 41 53 49 43 52 4F |GEBEN.JSRBASICRO| 000035A0: 4D 00 4C 44 41 23 31 33 3B 4E 45 55 45 20 DA 45 |M.LDA#13;NEUE .E| 000035B0: 49 4C 45 00 4A 53 52 42 41 53 4F 55 54 00 4E 4F |ILE.JSRBASOUT.NO| 000035C0: 53 45 54 4E 45 57 3A 4C 44 59 23 30 3B 34 20 C2 |SETNEW:LDY#0;4 .| 000035D0: 59 54 45 20 41 4E 20 D0 52 4F 47 52 41 4D 4D 53 |YTE AN .ROGRAMMS| 000035E0: 54 41 52 54 20 55 45 42 45 52 54 52 41 47 45 4E |TART UEBERTRAGEN| 000035F0: 00 4A 53 52 43 4F 50 59 42 59 54 45 00 4A 53 52 |.JSRCOPYBYTE.JSR| 00003600: 43 4F 50 59 42 59 54 45 00 4A 53 52 43 4F 50 59 |COPYBYTE.JSRCOPY| 00003610: 42 59 54 45 00 4A 53 52 43 4F 50 59 42 59 54 45 |BYTE.JSRCOPYBYTE| 00003620: 00 54 52 41 4E 53 3A 4C 44 59 23 30 3B 45 49 4E |.TRANS:LDY#0;EIN| 00003630: 20 C2 59 54 45 20 55 45 42 45 52 54 52 41 47 45 | .YTE UEBERTRAGE| 00003640: 4E 00 4A 53 52 43 4F 50 59 42 59 54 45 00 54 52 |N.JSRCOPYBYTE.TR| 00003650: 41 4E 53 4C 3A 43 4D 50 23 30 3B D4 52 45 4E 4E |ANSL:CMP#0;.RENN| 00003660: 42 59 54 45 20 3F 00 54 4F 50 41 53 53 31 4C 3A |BYTE ?.TOPASS1L:| 00003670: 42 4E 45 4E 45 58 54 56 47 4C 3B 4A 41 2C 20 4E |BNENEXTVGL;JA, N| 00003680: 45 55 45 20 DA 45 49 4C 45 20 42 45 48 41 4E 44 |EUE .EILE BEHAND| 00003690: 45 4C 4E 00 4A 4D 50 50 41 53 53 31 4C 00 4E 45 |ELN.JMPPASS1L.NE| 000036A0: 58 54 56 47 4C 3A 43 4D 50 23 27 22 3B D3 54 52 |XTVGL:CMP#'";.TR| 000036B0: 49 4E 47 20 3F 00 42 4E 45 4E 4F 53 54 52 49 4E |ING ?.BNENOSTRIN| 000036C0: 47 31 3B 4E 45 49 4E 00 53 54 52 49 4E 47 31 3A |G1;NEIN.STRING1:| 000036D0: 4A 53 52 43 4F 50 59 42 59 54 45 3B D3 54 52 49 |JSRCOPYBYTE;.TRI| 000036E0: 4E 47 20 55 45 42 45 52 4C 45 53 45 4E 00 43 4D |NG UEBERLESEN.CM| 000036F0: 50 23 30 3B 42 49 53 20 C5 4E 44 45 20 44 45 52 |P#0;BIS .NDE DER| 00003700: 20 DA 45 49 4C 45 00 42 45 51 54 4F 50 41 53 53 | .EILE.BEQTOPASS| 00003710: 31 4C 00 43 4D 50 23 27 22 3B 4F 44 45 52 20 C8 |1L.CMP#'";ODER .| 00003720: 4F 43 48 4B 4F 4D 4D 41 00 42 45 51 54 52 41 4E |OCHKOMMA.BEQTRAN| 00003730: 53 00 42 4E 45 53 54 52 49 4E 47 31 00 4E 4F 53 |S.BNESTRING1.NOS| 00003740: 54 52 49 4E 47 31 3A 43 4D 50 23 D4 CB 52 45 4D |TRING1:CMP#..REM| 00003750: 3B D2 C5 CD 20 3F 00 42 45 51 54 52 41 4E 53 52 |;... ?.BEQTRANSR| 00003760: 45 53 54 3B 4A 41 2C 20 D2 45 53 54 20 44 45 52 |EST;JA, .EST DER| 00003770: 20 DA 45 49 4C 45 20 55 45 42 45 52 54 52 41 47 | .EILE UEBERTRAG| 00003780: 45 4E 00 43 4D 50 23 D4 CB 44 41 54 41 3B C4 C1 |EN.CMP#..DATA;..| 00003790: D4 C1 20 3F 00 42 45 51 54 52 41 4E 53 52 45 53 |.. ?.BEQTRANSRES| 000037A0: 54 3B 4A 41 2C 20 D2 45 53 54 20 44 45 52 20 DA |T;JA, .EST DER .| 000037B0: 45 49 4C 45 20 55 45 42 45 52 54 52 41 47 45 4E |EILE UEBERTRAGEN| 000037C0: 00 43 4D 50 23 D4 CB 47 4F 54 4F 3B C7 CF D4 CF |.CMP#..GOTO;....| 000037D0: 20 3F 00 42 45 51 47 4F 54 4F 31 3B 4A 41 00 43 | ?.BEQGOTO1;JA.C| 000037E0: 4D 50 23 D4 CB 47 4F 53 55 42 3B C7 CF D3 D5 C2 |MP#..GOSUB;.....| 000037F0: 20 3F 00 42 45 51 47 4F 54 4F 31 00 43 4D 50 23 | ?.BEQGOTO1.CMP#| 00003800: D4 CB 54 48 45 4E 3B D4 C8 C5 CE 20 3F 00 42 4E |..THEN;.... ?.BN| 00003810: 45 54 52 41 4E 53 3B 4E 45 49 4E 2C 20 4E 41 45 |ETRANS;NEIN, NAE| 00003820: 43 48 53 54 45 53 20 C2 59 54 45 20 55 45 42 45 |CHSTES .YTE UEBE| 00003830: 52 54 52 41 47 45 4E 00 20 00 54 48 45 4E 31 3A |RTRAGEN. .THEN1:| 00003840: 49 4E 59 3B DA 45 49 43 48 45 4E 20 4E 41 43 48 |INY;.EICHEN NACH| 00003850: 20 D4 C8 C5 CE 20 54 45 53 54 45 4E 00 4C 44 41 | .... TESTEN.LDA| 00003860: 28 41 5A 47 29 2C 59 00 43 4D 50 23 33 32 3B CC |(AZG),Y.CMP#32;.| 00003870: 45 45 52 5A 45 49 43 48 45 4E 20 55 45 42 45 52 |EERZEICHEN UEBER| 00003880: 4C 45 53 45 4E 00 42 45 51 54 48 45 4E 31 00 43 |LESEN.BEQTHEN1.C| 00003890: 4D 50 23 27 30 3B DA 49 46 46 45 52 20 3F 00 42 |MP#'0;.IFFER ?.B| 000038A0: 43 43 54 52 41 4E 53 3B 4E 45 49 4E 2C 20 4E 55 |CCTRANS;NEIN, NU| 000038B0: 52 20 55 45 42 45 52 54 52 41 47 45 4E 00 43 4D |R UEBERTRAGEN.CM| 000038C0: 50 23 27 39 2B 31 00 42 43 53 54 52 41 4E 53 00 |P#'9+1.BCSTRANS.| 000038D0: 4C 44 59 23 30 3B CA 41 2C 20 C3 4F 44 45 20 32 |LDY#0;.A, .ODE 2| 000038E0: 31 35 20 45 49 4E 53 45 54 5A 45 4E 00 4C 44 41 |15 EINSETZEN.LDA| 000038F0: 23 32 31 35 00 53 54 41 28 41 5A 47 32 29 2C 59 |#215.STA(AZG2),Y| 00003900: 00 42 4E 45 47 4F 54 4F 31 3B 55 4E 44 20 42 45 |.BNEGOTO1;UND BE| 00003910: 49 20 C7 CF D4 CF 20 57 45 49 54 45 52 4D 41 43 |I .... WEITERMAC| 00003920: 48 45 4E 00 20 00 47 4F 54 4F 31 3A 4C 44 41 23 |HEN. .GOTO1:LDA#| 00003930: 30 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 4E |0;.EILENNUMMER N| 00003940: 41 43 48 20 C7 CF D4 CF 20 49 53 54 20 CE 55 4C |ACH .... IST .UL| 00003950: 4C 00 53 54 41 4E 55 4D 00 53 54 41 4E 55 4D 2B |L.STANUM.STANUM+| 00003960: 31 00 47 4F 54 4F 31 4C 45 45 52 3A 4A 53 52 52 |1.GOTO1LEER:JSRR| 00003970: 45 4E 47 45 54 3B CC 45 45 52 5A 45 49 43 48 45 |ENGET;.EERZEICHE| 00003980: 4E 20 55 45 42 45 52 4C 45 53 45 4E 00 43 4D 50 |N UEBERLESEN.CMP| 00003990: 23 33 32 00 42 45 51 47 4F 54 4F 31 4C 45 45 52 |#32.BEQGOTO1LEER| 000039A0: 00 42 4E 45 43 4F 4E 54 47 4F 54 4F 31 3B DA 45 |.BNECONTGOTO1;.E| 000039B0: 49 4C 45 4E 4E 55 4D 4D 45 52 20 45 49 4E 4C 45 |ILENNUMMER EINLE| 000039C0: 53 45 4E 00 47 4F 54 4F 31 4C 3A 4A 53 52 52 45 |SEN.GOTO1L:JSRRE| 000039D0: 4E 47 45 54 3B 4E 41 45 43 48 53 54 45 53 20 DA |NGET;NAECHSTES .| 000039E0: 45 49 43 48 45 4E 20 4C 45 53 45 4E 00 43 4F 4E |EICHEN LESEN.CON| 000039F0: 54 47 4F 54 4F 31 3A 43 4D 50 23 27 30 3B DA 45 |TGOTO1:CMP#'0;.E| 00003A00: 49 43 48 45 4E 20 49 53 54 20 DA 49 46 46 45 52 |ICHEN IST .IFFER| 00003A10: 20 3F 00 42 43 43 4E 55 4D 42 45 52 45 4E 44 53 | ?.BCCNUMBERENDS| 00003A20: 3B 4E 45 49 4E 00 43 4D 50 23 27 39 2B 31 00 42 |;NEIN.CMP#'9+1.B| 00003A30: 43 53 4E 55 4D 42 45 52 45 4E 44 53 3B 4E 45 49 |CSNUMBERENDS;NEI| 00003A40: 4E 00 50 48 41 3B DA 49 46 46 45 52 20 4D 45 52 |N.PHA;.IFFER MER| 00003A50: 4B 45 4E 00 4A 53 52 4E 55 4D 4D 41 4C 31 30 3B |KEN.JSRNUMMAL10;| 00003A60: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 4D 41 4C |.EILENNUMMER MAL| 00003A70: 20 31 30 00 50 4C 41 00 43 4C 43 3B 2B 20 DA 49 | 10.PLA.CLC;+ .I| 00003A80: 46 46 45 52 00 41 4E 44 23 25 31 31 31 31 3B 28 |FFER.AND#%1111;(| 00003A90: 57 41 4E 44 4C 55 4E 47 20 22 30 22 2E 2E 22 39 |WANDLUNG "0".."9| 00003AA0: 22 20 4E 41 43 48 20 30 2E 2E 39 29 00 41 44 43 |" NACH 0..9).ADC| 00003AB0: 4E 55 4D 00 53 54 41 4E 55 4D 3B 45 52 47 49 42 |NUM.STANUM;ERGIB| 00003AC0: 54 20 44 49 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D |T DIE .EILENNUMM| 00003AD0: 45 52 00 42 43 43 47 4F 54 4F 31 4C 00 49 4E 43 |ER.BCCGOTO1L.INC| 00003AE0: 4E 55 4D 2B 31 00 4A 4D 50 47 4F 54 4F 31 4C 00 |NUM+1.JMPGOTO1L.| 00003AF0: 4E 55 4D 42 45 52 45 4E 44 53 3A 50 48 41 3B 4C |NUMBERENDS:PHA;L| 00003B00: 45 54 5A 54 45 53 20 DA 45 49 43 48 45 4E 20 4D |ETZTES .EICHEN M| 00003B10: 45 52 4B 45 4E 00 4C 44 41 4E 55 4D 3B DA 45 49 |ERKEN.LDANUM;.EI| 00003B20: 4C 45 4E 4E 55 4D 4D 45 52 20 41 4C 53 20 31 36 |LENNUMMER ALS 16| 00003B30: 2D C2 49 54 20 DA 41 48 4C 00 4A 53 52 50 55 54 |-.IT .AHL.JSRPUT| 00003B40: 3B 53 50 45 49 43 48 45 52 4E 00 4C 44 41 4E 55 |;SPEICHERN.LDANU| 00003B50: 4D 2B 31 00 4A 53 52 50 55 54 00 50 4C 41 3B 4C |M+1.JSRPUT.PLA;L| 00003B60: 45 54 5A 54 45 53 20 DA 45 49 43 48 45 4E 20 57 |ETZTES .EICHEN W| 00003B70: 41 52 20 45 49 4E 20 CB 4F 4D 4D 41 20 3F 00 4A |AR EIN .OMMA ?.J| 00003B80: 53 52 50 55 54 00 43 4D 50 23 27 2C 00 42 45 51 |SRPUT.CMP#',.BEQ| 00003B90: 47 4F 54 4F 31 3B 4A 41 2C 20 57 45 49 54 45 52 |GOTO1;JA, WEITER| 00003BA0: 45 20 D3 50 52 55 4E 47 5A 49 45 4C 45 20 55 4D |E .PRUNGZIELE UM| 00003BB0: 57 41 4E 44 45 4C 4E 00 4A 4D 50 54 52 41 4E 53 |WANDELN.JMPTRANS| 00003BC0: 4C 3B 53 4F 4E 53 54 20 D2 45 53 54 20 44 45 52 |L;SONST .EST DER| 00003BD0: 20 DA 45 49 4C 45 20 42 45 48 41 4E 44 45 4C 4E | .EILE BEHANDELN| 00003BE0: 00 20 00 54 52 41 4E 53 52 45 53 54 3A 4A 53 52 |. .TRANSREST:JSR| 00003BF0: 43 4F 50 59 42 59 54 45 3B D2 45 53 54 20 44 45 |COPYBYTE;.EST DE| 00003C00: 52 20 DA 45 49 4C 45 20 4B 4F 50 49 45 52 45 4E |R .EILE KOPIEREN| 00003C10: 00 43 4D 50 23 30 00 42 4E 45 54 52 41 4E 53 52 |.CMP#0.BNETRANSR| 00003C20: 45 53 54 3B 57 45 49 54 45 52 20 42 49 53 20 DA |EST;WEITER BIS .| 00003C30: 45 49 4C 45 4E 45 4E 44 45 20 45 52 52 45 49 43 |EILENENDE ERREIC| 00003C40: 48 54 00 4A 4D 50 50 41 53 53 31 4C 00 20 00 4E |HT.JMPPASS1L. .N| 00003C50: 55 4D 4D 41 4C 31 30 3A 41 53 4C 4E 55 4D 3B 4E |UMMAL10:ASLNUM;N| 00003C60: 55 4D 20 2A 32 00 52 4F 4C 4E 55 4D 2B 31 00 4C |UM *2.ROLNUM+1.L| 00003C70: 44 41 4E 55 4D 2B 31 00 50 48 41 3B 4D 45 52 4B |DANUM+1.PHA;MERK| 00003C80: 45 4E 00 4C 44 41 4E 55 4D 00 50 48 41 00 41 53 |EN.LDANUM.PHA.AS| 00003C90: 4C 4E 55 4D 3B 28 4E 55 4D 2A 32 29 2A 34 00 52 |LNUM;(NUM*2)*4.R| 00003CA0: 4F 4C 4E 55 4D 2B 31 00 41 53 4C 4E 55 4D 00 52 |OLNUM+1.ASLNUM.R| 00003CB0: 4F 4C 4E 55 4D 2B 31 3B 45 52 47 49 42 54 20 4E |OLNUM+1;ERGIBT N| 00003CC0: 55 4D 2A 38 00 50 4C 41 00 43 4C 43 3B 4E 55 4D |UM*8.PLA.CLC;NUM| 00003CD0: 2A 32 20 41 44 44 49 45 52 45 4E 00 41 44 43 4E |*2 ADDIEREN.ADCN| 00003CE0: 55 4D 00 53 54 41 4E 55 4D 00 50 4C 41 00 41 44 |UM.STANUM.PLA.AD| 00003CF0: 43 4E 55 4D 2B 31 00 53 54 41 4E 55 4D 2B 31 3B |CNUM+1.STANUM+1;| 00003D00: 3D 4E 55 4D 2A 38 2B 4E 55 4D 2A 32 3D 4E 55 4D |=NUM*8+NUM*2=NUM| 00003D10: 2A 31 30 00 52 54 53 00 20 00 52 45 4E 47 45 54 |*10.RTS. .RENGET| 00003D20: 3A 49 4E 43 41 5A 47 3B 4E 41 45 43 48 53 54 45 |:INCAZG;NAECHSTE| 00003D30: 53 20 DA 45 49 43 48 45 4E 20 4C 45 53 45 4E 00 |S .EICHEN LESEN.| 00003D40: 42 4E 45 4E 49 4E 43 31 3B 41 5A 47 2B 31 00 49 |BNENINC1;AZG+1.I| 00003D50: 4E 43 41 5A 47 2B 31 00 4E 49 4E 43 31 3A 4C 44 |NCAZG+1.NINC1:LD| 00003D60: 41 28 41 5A 47 29 2C 59 3B DA 45 49 43 48 45 4E |A(AZG),Y;.EICHEN| 00003D70: 20 4C 45 53 45 4E 00 52 54 53 00 20 00 43 4F 50 | LESEN.RTS. .COP| 00003D80: 59 42 59 54 45 3A 4A 53 52 52 45 4E 47 45 54 3B |YBYTE:JSRRENGET;| 00003D90: DA 45 49 43 48 45 4E 20 4C 45 53 45 4E 00 50 55 |.EICHEN LESEN.PU| 00003DA0: 54 3A 49 4E 43 41 5A 47 32 3B 41 5A 47 32 20 2B |T:INCAZG2;AZG2 +| 00003DB0: 31 00 42 4E 45 4E 49 4E 43 32 00 49 4E 43 41 5A |1.BNENINC2.INCAZ| 00003DC0: 47 32 2B 31 00 4E 49 4E 43 32 3A 53 54 41 28 41 |G2+1.NINC2:STA(A| 00003DD0: 5A 47 32 29 2C 59 3B 55 4E 44 20 DA 45 49 43 48 |ZG2),Y;UND .EICH| 00003DE0: 45 4E 20 53 50 45 49 43 48 45 52 4E 00 52 54 53 |EN SPEICHERN.RTS| 00003DF0: 00 20 00 4E 55 4D 3A 2E 45 51 4D 45 4D 2B 31 31 |. .NUM:.EQMEM+11| 00003E00: 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 00 20 00 |;.EILENNUMMER. .| 00003E10: 3B 2A 2A 2A 2A 2A 2A 2A 2A 20 D0 20 C1 20 D3 20 |;******** . . . | 00003E20: D3 20 20 32 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. 2 ***********| 00003E30: 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 50 41 53 53 32 |********. .PASS2| 00003E40: 3A 4C 44 41 23 27 32 3B D0 52 4F 47 52 41 4D 4D |:LDA#'2;.ROGRAMM| 00003E50: 2D C5 4E 44 45 2D C2 59 54 45 20 55 45 42 45 52 |-.NDE-.YTE UEBER| 00003E60: 54 52 41 47 45 4E 00 4A 53 52 50 41 53 53 00 4C |TRAGEN.JSRPASS.L| 00003E70: 44 59 23 30 00 4A 53 52 43 4F 50 59 42 59 54 45 |DY#0.JSRCOPYBYTE| 00003E80: 00 4A 53 52 43 4F 50 59 42 59 54 45 00 43 4C 43 |.JSRCOPYBYTE.CLC| 00003E90: 3B D0 52 4F 47 52 41 4D 4D 45 4E 44 45 20 2B 31 |;.ROGRAMMENDE +1| 00003EA0: 00 4C 44 41 23 31 00 41 44 43 41 5A 47 32 00 53 |.LDA#1.ADCAZG2.S| 00003EB0: 54 41 42 41 53 49 43 45 4E 44 3B 41 4C 53 20 C2 |TABASICEND;ALS .| 00003EC0: 41 53 49 43 50 52 4F 47 52 41 4D 4D 45 4E 44 45 |ASICPROGRAMMENDE| 00003ED0: 20 53 50 45 49 43 48 45 52 4E 00 4C 44 41 23 30 | SPEICHERN.LDA#0| 00003EE0: 00 41 44 43 41 5A 47 32 2B 31 00 53 54 41 42 41 |.ADCAZG2+1.STABA| 00003EF0: 53 49 43 45 4E 44 2B 31 00 4C 44 41 42 41 53 53 |SICEND+1.LDABASS| 00003F00: 54 41 52 54 3B 41 5A 47 20 41 55 46 20 D0 52 4F |TART;AZG AUF .RO| 00003F10: 47 52 41 4D 4D 41 4E 46 41 4E 47 20 53 45 54 5A |GRAMMANFANG SETZ| 00003F20: 45 4E 00 53 54 41 41 5A 47 00 4C 44 41 42 41 53 |EN.STAAZG.LDABAS| 00003F30: 53 54 41 52 54 2B 31 00 53 54 41 41 5A 47 2B 31 |START+1.STAAZG+1| 00003F40: 00 44 4F 50 41 53 53 32 3A 4C 44 59 23 30 3B 45 |.DOPASS2:LDY#0;E| 00003F50: 49 4E 20 DA 45 49 43 48 45 4E 20 4C 45 53 45 4E |IN .EICHEN LESEN| 00003F60: 00 4C 44 41 28 41 5A 47 29 2C 59 00 53 54 41 41 |.LDA(AZG),Y.STAA| 00003F70: 4B 54 5A 45 49 4C 45 3B 41 4C 53 20 41 4B 54 55 |KTZEILE;ALS AKTU| 00003F80: 45 4C 4C 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 |ELLE .EILENNUMME| 00003F90: 52 20 53 45 54 5A 45 4E 00 49 4E 59 3B 46 55 45 |R SETZEN.INY;FUE| 00003FA0: 52 20 44 49 45 20 C6 45 48 4C 45 52 4D 45 4C 44 |R DIE .EHLERMELD| 00003FB0: 55 4E 47 45 4E 00 4C 44 41 28 41 5A 47 29 2C 59 |UNGEN.LDA(AZG),Y| 00003FC0: 00 53 54 41 41 4B 54 5A 45 49 4C 45 2B 31 00 49 |.STAAKTZEILE+1.I| 00003FD0: 4E 59 3B 4F 52 47 49 4E 41 4C 45 20 DA 45 49 4C |NY;ORGINALE .EIL| 00003FE0: 45 4E 4E 55 4D 4D 45 52 20 55 45 42 45 52 4C 45 |ENNUMMER UEBERLE| 00003FF0: 53 45 4E 00 49 4E 59 00 50 41 53 53 32 4C 3A 49 |SEN.INY.PASS2L:I| 00004000: 4E 59 3B DA 45 49 43 48 45 4E 20 4C 45 53 45 4E |NY;.EICHEN LESEN| 00004010: 00 4C 44 41 28 41 5A 47 29 2C 59 00 42 45 51 45 |.LDA(AZG),Y.BEQE| 00004020: 4F 4C 50 32 3B DA 45 49 4C 45 4E 45 4E 44 45 20 |OLP2;.EILENENDE | 00004030: 45 52 52 45 49 43 48 54 00 43 4D 50 23 27 22 3B |ERREICHT.CMP#'";| 00004040: D3 54 52 49 4E 47 20 3F 00 42 4E 45 4E 4F 53 54 |.TRING ?.BNENOST| 00004050: 52 49 4E 47 32 3B 4E 45 49 4E 00 53 54 52 49 4E |RING2;NEIN.STRIN| 00004060: 47 32 3A 49 4E 59 3B D3 54 52 49 4E 47 20 55 45 |G2:INY;.TRING UE| 00004070: 42 45 52 4C 45 53 45 4E 00 4C 44 41 28 41 5A 47 |BERLESEN.LDA(AZG| 00004080: 29 2C 59 00 42 45 51 45 4F 4C 50 32 3B 42 49 53 |),Y.BEQEOLP2;BIS| 00004090: 20 C5 4E 44 45 20 44 45 52 20 DA 45 49 4C 45 00 | .NDE DER .EILE.| 000040A0: 43 4D 50 23 27 22 3B 4F 44 45 52 20 42 49 53 20 |CMP#'";ODER BIS | 000040B0: C8 4F 43 48 4B 4F 4D 4D 41 00 42 45 51 50 41 53 |.OCHKOMMA.BEQPAS| 000040C0: 53 32 4C 00 42 4E 45 53 54 52 49 4E 47 32 00 4E |S2L.BNESTRING2.N| 000040D0: 4F 53 54 52 49 4E 47 32 3A 43 4D 50 23 D4 CB 47 |OSTRING2:CMP#..G| 000040E0: 4F 54 4F 00 42 45 51 47 4F 54 4F 32 3B C7 CF D4 |OTO.BEQGOTO2;...| 000040F0: CF 00 43 4D 50 23 D4 CB 47 4F 53 55 42 00 42 45 |..CMP#..GOSUB.BE| 00004100: 51 47 4F 54 4F 32 3B C7 CF D3 D5 C2 00 43 4D 50 |QGOTO2;......CMP| 00004110: 23 32 31 35 3B D4 C8 C5 CE 20 3F 00 42 4E 45 50 |#215;.... ?.BNEP| 00004120: 41 53 53 32 4C 3B 4E 45 49 4E 00 47 4F 54 4F 32 |ASS2L;NEIN.GOTO2| 00004130: 3A 49 4E 59 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 |:INY;.EILENNUMME| 00004140: 52 20 49 4E 20 4E 55 4D 20 53 50 45 49 43 48 45 |R IN NUM SPEICHE| 00004150: 52 4E 00 4C 44 41 28 41 5A 47 29 2C 59 00 53 54 |RN.LDA(AZG),Y.ST| 00004160: 41 4E 55 4D 00 53 54 59 59 4D 45 4D 3B D9 20 4D |ANUM.STYYMEM;. M| 00004170: 45 52 4B 45 4E 00 49 4E 59 00 4C 44 41 28 41 5A |ERKEN.INY.LDA(AZ| 00004180: 47 29 2C 59 00 53 54 41 4E 55 4D 2B 31 00 4A 53 |G),Y.STANUM+1.JS| 00004190: 52 53 55 43 48 5A 45 49 4C 45 3B DA 45 49 4C 45 |RSUCHZEILE;.EILE| 000041A0: 20 53 55 43 48 45 4E 20 28 4C 49 45 46 45 52 54 | SUCHEN (LIEFERT| 000041B0: 20 4E 45 55 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D | NEUE .EILENNUMM| 000041C0: 45 52 29 00 4C 44 59 59 4D 45 4D 3B D9 20 52 45 |ER).LDYYMEM;. RE| 000041D0: 53 54 41 55 52 49 45 52 45 4E 00 42 43 53 55 4E |STAURIEREN.BCSUN| 000041E0: 4B 4E 4F 57 4E 3B C3 3D 31 2C 20 44 41 4E 4E 20 |KNOWN;.=1, DANN | 000041F0: DA 45 49 4C 45 20 4E 49 43 48 54 20 47 45 46 55 |.EILE NICHT GEFU| 00004200: 4E 44 45 4E 00 53 54 41 28 41 5A 47 29 2C 59 3B |NDEN.STA(AZG),Y;| 00004210: 4E 45 55 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 |NEUE .EILENNUMME| 00004220: 52 20 53 50 45 49 43 48 45 52 4E 00 49 4E 59 00 |R SPEICHERN.INY.| 00004230: 54 58 41 00 53 54 41 28 41 5A 47 29 2C 59 00 49 |TXA.STA(AZG),Y.I| 00004240: 4E 59 00 4C 44 41 28 41 5A 47 29 2C 59 3B 4E 41 |NY.LDA(AZG),Y;NA| 00004250: 45 43 48 53 54 45 53 54 20 DA 45 49 43 48 45 4E |ECHSTEST .EICHEN| 00004260: 20 54 45 53 54 45 4E 00 43 4D 50 23 27 2C 3B CB | TESTEN.CMP#',;.| 00004270: 4F 4D 4D 41 20 3F 00 42 45 51 47 4F 54 4F 32 3B |OMMA ?.BEQGOTO2;| 00004280: 4A 41 2C 20 4E 4F 43 48 20 45 49 4E 45 20 DA 45 |JA, NOCH EINE .E| 00004290: 49 4C 45 4E 4E 55 4D 4D 45 52 00 44 45 59 3B 53 |ILENNUMMER.DEY;S| 000042A0: 4F 4E 53 54 20 DA 45 49 4C 45 20 57 45 49 54 45 |ONST .EILE WEITE| 000042B0: 52 55 4E 54 45 52 53 55 43 48 45 4E 00 4A 4D 50 |RUNTERSUCHEN.JMP| 000042C0: 50 41 53 53 32 4C 00 55 4E 4B 4E 4F 57 4E 3A 49 |PASS2L.UNKNOWN:I| 000042D0: 4E 59 3B DA 45 49 4C 45 20 45 58 49 53 54 49 45 |NY;.EILE EXISTIE| 000042E0: 52 54 20 4E 49 43 48 54 00 49 4E 59 3B 41 4C 54 |RT NICHT.INY;ALT| 000042F0: 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 53 |E .EILENNUMMER S| 00004300: 54 45 48 45 4E 20 4C 41 53 53 45 4E 00 4C 44 41 |TEHEN LASSEN.LDA| 00004310: 28 41 5A 47 29 2C 59 00 43 4D 50 23 27 2C 3B 46 |(AZG),Y.CMP#',;F| 00004320: 4F 4C 47 54 20 45 49 4E 20 CB 4F 4D 4D 41 00 42 |OLGT EIN .OMMA.B| 00004330: 45 51 47 4F 54 4F 32 3B 44 41 4E 4E 20 4E 41 45 |EQGOTO2;DANN NAE| 00004340: 43 48 53 54 45 20 DA 45 49 4C 45 4E 4E 55 4D 4D |CHSTE .EILENNUMM| 00004350: 45 52 00 44 45 59 3B 53 4F 4E 53 54 20 57 45 49 |ER.DEY;SONST WEI| 00004360: 54 45 52 55 4E 54 45 52 53 55 43 48 45 4E 00 4A |TERUNTERSUCHEN.J| 00004370: 4D 50 50 41 53 53 32 4C 00 20 00 45 4F 4C 50 32 |MPPASS2L. .EOLP2| 00004380: 3A 43 4C 43 3B DA 45 49 4C 45 20 42 45 45 4E 44 |:CLC;.EILE BEEND| 00004390: 45 54 00 49 4E 59 3B D9 20 41 55 46 20 41 5A 47 |ET.INY;. AUF AZG| 000043A0: 20 41 44 44 49 45 52 45 4E 00 54 59 41 00 41 44 | ADDIEREN.TYA.AD| 000043B0: 43 41 5A 47 3B 2D 3E 20 41 5A 47 20 5A 45 49 47 |CAZG;-> AZG ZEIG| 000043C0: 54 20 41 55 46 20 4E 41 45 43 48 53 54 45 20 DA |T AUF NAECHSTE .| 000043D0: 45 49 4C 45 00 53 54 41 41 5A 47 00 42 43 43 4E |EILE.STAAZG.BCCN| 000043E0: 43 48 45 00 49 4E 43 41 5A 47 2B 31 00 4E 43 48 |CHE.INCAZG+1.NCH| 000043F0: 45 3A 4C 44 59 23 30 3B D0 52 4F 47 52 41 4D 4D |E:LDY#0;.ROGRAMM| 00004400: 45 4E 44 45 20 45 52 52 45 49 43 48 54 00 4C 44 |ENDE ERREICHT.LD| 00004410: 41 28 41 5A 47 29 2C 59 00 49 4E 59 00 4F 52 41 |A(AZG),Y.INY.ORA| 00004420: 28 41 5A 47 29 2C 59 00 42 4E 45 44 4F 50 41 53 |(AZG),Y.BNEDOPAS| 00004430: 53 32 3B 4E 45 49 4E 00 4A 53 52 4D 4F 56 45 54 |S2;NEIN.JSRMOVET| 00004440: 4F 54 4F 50 3B 4A 41 2C 20 D0 52 4F 47 52 41 4D |OTOP;JA, .ROGRAM| 00004450: 4D 20 4E 41 43 48 20 4F 42 45 4E 20 56 45 52 53 |M NACH OBEN VERS| 00004460: 43 48 49 45 42 45 4E 00 20 00 3B 2A 2A 2A 2A 2A |CHIEBEN. .;*****| 00004470: 2A 2A 2A 20 D0 20 C1 20 D3 20 D3 20 20 33 20 2A |*** . . . . 3 *| 00004480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00004490: 2A 2A 00 20 00 4C 44 41 23 27 33 00 4A 53 52 50 |**. .LDA#'3.JSRP| 000044A0: 41 53 53 00 50 41 53 53 33 3A 4C 44 59 23 31 3B |ASS.PASS3:LDY#1;| 000044B0: CC 49 4E 4B 2D D0 4F 49 4E 54 45 52 20 41 4C 53 |.INK-.OINTER ALS| 000044C0: 20 DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 53 45 | .EILENNUMMER SE| 000044D0: 54 5A 45 4E 00 4C 44 41 28 41 5A 47 29 2C 59 00 |TZEN.LDA(AZG),Y.| 000044E0: 50 48 41 3B 4C 4F 57 20 4D 45 52 4B 45 4E 00 4C |PHA;LOW MERKEN.L| 000044F0: 44 41 23 38 3B 24 30 38 30 38 20 41 4C 53 20 CC |DA#8;$0808 ALS .| 00004500: 49 4E 4B 50 4F 49 4E 54 45 52 20 53 45 54 5A 45 |INKPOINTER SETZE| 00004510: 4E 00 53 54 41 28 41 5A 47 29 2C 59 00 49 4E 59 |N.STA(AZG),Y.INY| 00004520: 00 4C 44 41 28 41 5A 47 29 2C 59 00 54 41 58 3B |.LDA(AZG),Y.TAX;| 00004530: 48 49 47 48 20 4D 45 52 4B 45 4E 00 4C 44 41 23 |HIGH MERKEN.LDA#| 00004540: 38 3B 24 30 38 30 38 20 53 45 54 5A 45 4E 20 28 |8;$0808 SETZEN (| 00004550: 48 49 47 48 29 00 53 54 41 28 41 5A 47 29 2C 59 |HIGH).STA(AZG),Y| 00004560: 00 49 4E 59 3B CC 4F 57 2D C2 59 54 45 20 DA 45 |.INY;.OW-.YTE .E| 00004570: 49 4C 45 4E 4E 55 4D 4D 45 52 20 53 45 54 5A 45 |ILENNUMMER SETZE| 00004580: 4E 00 50 4C 41 00 53 54 41 28 41 5A 47 29 2C 59 |N.PLA.STA(AZG),Y| 00004590: 00 49 4E 59 00 54 58 41 3B C8 49 47 48 20 C2 59 |.INY.TXA;.IGH .Y| 000045A0: 54 45 20 53 45 54 5A 45 4E 00 53 54 41 28 41 5A |TE SETZEN.STA(AZ| 000045B0: 47 29 2C 59 00 4C 44 59 23 30 00 4A 53 52 43 4F |G),Y.LDY#0.JSRCO| 000045C0: 50 59 42 59 54 45 3B 41 4C 4C 45 20 34 20 C2 59 |PYBYTE;ALLE 4 .Y| 000045D0: 54 45 20 55 45 42 45 52 54 52 41 47 45 4E 00 4A |TE UEBERTRAGEN.J| 000045E0: 53 52 43 4F 50 59 42 59 54 45 00 4A 53 52 43 4F |SRCOPYBYTE.JSRCO| 000045F0: 50 59 42 59 54 45 00 4A 53 52 43 4F 50 59 42 59 |PYBYTE.JSRCOPYBY| 00004600: 54 45 00 50 41 53 53 33 4C 3A 4A 53 52 43 4F 50 |TE.PASS3L:JSRCOP| 00004610: 59 42 59 54 45 3B 45 49 4E 20 DA 45 49 43 48 45 |YBYTE;EIN .EICHE| 00004620: 4E 20 55 45 42 45 52 54 52 41 47 45 4E 00 50 41 |N UEBERTRAGEN.PA| 00004630: 53 53 33 4C 32 3A 43 4D 50 23 30 3B CE 55 4C 4C |SS3L2:CMP#0;.ULL| 00004640: 42 59 54 45 20 3F 00 42 45 51 45 4F 4C 50 33 3B |BYTE ?.BEQEOLP3;| 00004650: 4A 41 2C 20 DA 45 49 4C 45 4E 45 4E 44 45 20 45 |JA, .EILENENDE E| 00004660: 52 52 45 49 43 48 54 00 43 4D 50 23 27 22 3B D3 |RREICHT.CMP#'";.| 00004670: 54 52 49 4E 47 00 42 4E 45 4E 4F 53 54 52 49 4E |TRING.BNENOSTRIN| 00004680: 47 33 00 53 54 52 49 4E 47 33 3A 4A 53 52 43 4F |G3.STRING3:JSRCO| 00004690: 50 59 42 59 54 45 3B D3 54 52 49 4E 47 20 55 45 |PYBYTE;.TRING UE| 000046A0: 42 45 52 4C 45 53 45 4E 00 43 4D 50 23 30 3B 42 |BERLESEN.CMP#0;B| 000046B0: 49 53 20 C5 4E 44 45 20 44 45 52 20 DA 45 49 4C |IS .NDE DER .EIL| 000046C0: 45 00 42 45 51 45 4F 4C 50 33 00 43 4D 50 23 27 |E.BEQEOLP3.CMP#'| 000046D0: 22 3B 4F 44 45 52 20 42 49 53 20 C8 4F 43 48 4B |";ODER BIS .OCHK| 000046E0: 4F 4D 4D 41 54 41 00 42 45 51 50 41 53 53 33 4C |OMMATA.BEQPASS3L| 000046F0: 00 42 4E 45 53 54 52 49 4E 47 33 00 4E 4F 53 54 |.BNESTRING3.NOST| 00004700: 52 49 4E 47 33 3A 43 4D 50 23 D4 CB 47 4F 54 4F |RING3:CMP#..GOTO| 00004710: 00 42 45 51 47 4F 54 4F 33 3B C7 CF D4 CF 00 43 |.BEQGOTO3;.....C| 00004720: 4D 50 23 D4 CB 47 4F 53 55 42 00 42 45 51 47 4F |MP#..GOSUB.BEQGO| 00004730: 54 4F 33 3B C7 CF D3 D5 C2 00 43 4D 50 23 32 31 |TO3;......CMP#21| 00004740: 35 3B D4 C8 C5 CE 20 3F 00 42 4E 45 50 41 53 53 |5;.... ?.BNEPASS| 00004750: 33 4C 3B 4E 45 49 4E 00 4C 44 41 23 D4 CB 54 48 |3L;NEIN.LDA#..TH| 00004760: 45 4E 3B D4 C8 C5 CE 2D D4 4F 4B 45 4E 20 57 49 |EN;....-.OKEN WI| 00004770: 45 44 45 52 20 45 49 4E 53 45 54 5A 45 4E 00 53 |EDER EINSETZEN.S| 00004780: 54 41 28 41 5A 47 32 29 2C 59 00 47 4F 54 4F 33 |TA(AZG2),Y.GOTO3| 00004790: 3A 4C 44 41 52 45 4E 4F 50 54 53 3B D3 54 41 54 |:LDARENOPTS;.TAT| 000047A0: 55 53 20 54 45 53 54 45 4E 00 41 4E 44 23 31 3B |US TESTEN.AND#1;| 000047B0: C2 4C 41 4E 4B 20 45 49 4E 46 55 45 47 45 4E 00 |.LANK EINFUEGEN.| 000047C0: 42 45 51 47 4F 54 4F 34 3B 4E 45 49 4E 00 4C 44 |BEQGOTO4;NEIN.LD| 000047D0: 41 23 33 32 3B 4A 41 2C 20 CC 45 45 52 5A 45 49 |A#32;JA, .EERZEI| 000047E0: 43 48 45 4E 20 45 49 4E 53 45 54 5A 45 4E 00 4A |CHEN EINSETZEN.J| 000047F0: 53 52 50 55 54 00 47 4F 54 4F 34 3A 4A 53 52 52 |SRPUT.GOTO4:JSRR| 00004800: 45 4E 47 45 54 3B DA 45 49 4C 45 4E 4E 55 4D 4D |ENGET;.EILENNUMM| 00004810: 45 52 20 4C 45 53 45 4E 00 53 54 41 24 36 33 3B |ER LESEN.STA$63;| 00004820: 55 4E 44 20 46 55 45 52 20 D7 41 4E 44 4C 55 4E |UND FUER .ANDLUN| 00004830: 47 20 53 50 45 49 43 48 45 52 4E 00 4A 53 52 52 |G SPEICHERN.JSRR| 00004840: 45 4E 47 45 54 00 53 54 41 24 36 32 00 4C 44 58 |ENGET.STA$62.LDX| 00004850: 23 24 39 30 3B 31 36 2D C2 49 54 20 49 4E 20 C1 |#$90;16-.IT IN .| 00004860: D3 C3 C9 C9 20 57 41 4E 44 45 4C 4E 00 53 45 43 |.... WANDELN.SEC| 00004870: 3B 55 4E 44 20 41 42 20 24 31 30 30 20 53 50 45 |;UND AB $100 SPE| 00004880: 49 43 48 45 52 4E 00 53 54 58 58 4D 45 4D 00 4C |ICHERN.STXXMEM.L| 00004890: 44 58 23 38 00 4A 53 52 42 41 53 49 43 52 4F 4D |DX#8.JSRBASICROM| 000048A0: 00 4C 44 58 23 36 38 00 4A 53 52 42 41 53 49 43 |.LDX#68.JSRBASIC| 000048B0: 52 4F 4D 00 4C 44 58 23 24 46 46 00 4C 44 59 23 |ROM.LDX#$FF.LDY#| 000048C0: 30 00 50 55 54 5A 41 48 4C 3A 49 4E 58 3B 45 49 |0.PUTZAHL:INX;EI| 000048D0: 4E 20 DA 45 49 43 48 45 4E 20 41 55 53 20 D0 55 |N .EICHEN AUS .U| 000048E0: 46 46 45 52 20 48 4F 4C 45 4E 00 4C 44 41 24 31 |FFER HOLEN.LDA$1| 000048F0: 30 30 2C 58 00 42 45 51 5A 41 48 4C 52 45 41 44 |00,X.BEQZAHLREAD| 00004900: 59 3B CE 55 4C 4C 42 59 54 45 2C 20 44 41 4E 4E |Y;.ULLBYTE, DANN| 00004910: 20 C5 4E 44 45 20 44 45 52 20 DA 45 49 43 48 45 | .NDE DER .EICHE| 00004920: 4E 4B 45 54 54 45 00 4A 53 52 50 55 54 3B DA 45 |NKETTE.JSRPUT;.E| 00004930: 49 43 48 45 4E 20 53 50 45 49 43 48 45 52 4E 00 |ICHEN SPEICHERN.| 00004940: 4A 4D 50 50 55 54 5A 41 48 4C 3B 42 49 53 20 41 |JMPPUTZAHL;BIS A| 00004950: 4C 4C 45 20 DA 45 49 43 48 45 4E 20 47 45 53 50 |LLE .EICHEN GESP| 00004960: 45 49 43 48 45 52 54 00 5A 41 48 4C 52 45 41 44 |EICHERT.ZAHLREAD| 00004970: 59 3A 4A 53 52 43 4F 50 59 42 59 54 45 3B 4E 41 |Y:JSRCOPYBYTE;NA| 00004980: 45 43 48 53 54 45 53 20 DA 45 49 43 48 45 4E 20 |ECHSTES .EICHEN | 00004990: 55 45 42 45 52 54 52 41 47 45 4E 00 43 4D 50 23 |UEBERTRAGEN.CMP#| 000049A0: 27 2C 3B 57 41 52 20 45 53 20 45 49 4E 20 CB 4F |',;WAR ES EIN .O| 000049B0: 4D 4D 41 20 3F 00 42 45 51 47 4F 54 4F 33 3B 44 |MMA ?.BEQGOTO3;D| 000049C0: 41 4E 4E 20 4E 4F 43 48 20 45 49 4E 20 DA 45 49 |ANN NOCH EIN .EI| 000049D0: 4C 45 4E 4E 55 4D 4D 45 52 00 4A 4D 50 50 41 53 |LENNUMMER.JMPPAS| 000049E0: 53 33 4C 32 3B 53 4F 4E 53 54 20 57 45 49 54 45 |S3L2;SONST WEITE| 000049F0: 52 20 55 45 42 45 52 54 52 41 47 45 4E 00 20 00 |R UEBERTRAGEN. .| 00004A00: 45 4F 4C 50 33 3A 49 4E 59 3B C5 4E 44 45 20 44 |EOLP3:INY;.NDE D| 00004A10: 45 52 20 DA 45 49 4C 45 20 45 52 52 45 49 43 48 |ER .EILE ERREICH| 00004A20: 54 00 4C 44 41 28 41 5A 47 29 2C 59 3B C5 4E 44 |T.LDA(AZG),Y;.ND| 00004A30: 45 20 44 45 53 20 D0 52 4F 47 52 41 4D 4D 53 20 |E DES .ROGRAMMS | 00004A40: 45 52 52 45 49 43 48 54 20 3F 00 49 4E 59 00 4F |ERREICHT ?.INY.O| 00004A50: 52 41 28 41 5A 47 29 2C 59 00 42 45 51 4E 4F 50 |RA(AZG),Y.BEQNOP| 00004A60: 41 53 53 33 00 4A 4D 50 50 41 53 53 33 3B 4E 45 |ASS3.JMPPASS3;NE| 00004A70: 49 4E 2C 20 57 45 49 54 45 52 55 45 42 45 52 54 |IN, WEITERUEBERT| 00004A80: 52 41 47 45 4E 00 4E 4F 50 41 53 53 33 3A 4C 44 |RAGEN.NOPASS3:LD| 00004A90: 59 23 30 3B DA 57 45 49 20 CE 55 4C 4C 42 59 54 |Y#0;.WEI .ULLBYT| 00004AA0: 45 20 55 45 42 45 52 54 52 41 47 45 4E 00 4A 53 |E UEBERTRAGEN.JS| 00004AB0: 52 43 4F 50 59 42 59 54 45 00 4A 53 52 43 4F 50 |RCOPYBYTE.JSRCOP| 00004AC0: 59 42 59 54 45 00 4C 44 41 23 30 3B D0 52 4F 47 |YBYTE.LDA#0;.ROG| 00004AD0: 52 41 4D 4D 45 4E 44 45 20 4E 45 55 20 53 45 54 |RAMMENDE NEU SET| 00004AE0: 5A 45 4E 00 53 45 43 00 41 44 43 41 5A 47 32 00 |ZEN.SEC.ADCAZG2.| 00004AF0: 53 54 41 42 41 53 49 43 45 4E 44 00 4C 44 41 41 |STABASICEND.LDAA| 00004B00: 5A 47 32 2B 31 00 41 44 43 23 30 00 53 54 41 42 |ZG2+1.ADC#0.STAB| 00004B10: 41 53 49 43 45 4E 44 2B 31 00 4A 4D 50 C2 C2 4F |ASICEND+1.JMP..O| 00004B20: 4C 44 3B 55 4E 44 20 CC 49 4E 4B 2D D0 4F 49 4E |LD;UND .INK-.OIN| 00004B30: 54 45 52 20 4E 45 55 20 42 45 53 45 54 5A 45 4E |TER NEU BESETZEN| 00004B40: 00 20 00 20 00 53 55 43 48 5A 45 49 4C 45 3A 4C |. . .SUCHZEILE:L| 00004B50: 44 41 23 30 00 53 54 41 46 4F 55 46 4C 41 47 3B |DA#0.STAFOUFLAG;| 00004B60: C6 4C 41 47 20 46 55 45 52 20 27 47 45 46 55 4E |.LAG FUER 'GEFUN| 00004B70: 44 45 4E 27 20 4C 4F 45 53 43 48 45 4E 00 4C 44 |DEN' LOESCHEN.LD| 00004B80: 41 42 41 53 53 54 41 52 54 3B DA 45 49 4C 45 20 |ABASSTART;.EILE | 00004B90: 53 55 43 48 45 4E 00 53 54 41 41 5A 47 32 3B 41 |SUCHEN.STAAZG2;A| 00004BA0: 5A 47 32 20 41 55 46 20 D0 52 4F 47 52 41 4D 4D |ZG2 AUF .ROGRAMM| 00004BB0: 53 54 41 52 54 00 4C 44 41 42 41 53 53 54 41 52 |START.LDABASSTAR| 00004BC0: 54 2B 31 00 53 54 41 41 5A 47 32 2B 31 00 56 47 |T+1.STAAZG2+1.VG| 00004BD0: 4C 4E 55 4D 3A 4C 44 59 23 30 3B 4E 45 55 45 20 |LNUM:LDY#0;NEUE | 00004BE0: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 41 55 53 |.EILENNUMMER AUS| 00004BF0: 20 CC 49 4E 4B 2D D0 4F 49 4E 54 45 52 20 4C 45 | .INK-.OINTER LE| 00004C00: 53 45 4E 00 4C 44 41 28 41 5A 47 32 29 2C 59 3B |SEN.LDA(AZG2),Y;| 00004C10: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 4D 45 52 |.EILENNUMMER MER| 00004C20: 4B 45 4E 00 53 54 41 53 54 45 50 00 49 4E 59 00 |KEN.STASTEP.INY.| 00004C30: 4C 44 41 28 41 5A 47 32 29 2C 59 00 53 54 41 53 |LDA(AZG2),Y.STAS| 00004C40: 54 45 50 2B 31 00 49 4E 59 00 42 49 54 46 4F 55 |TEP+1.INY.BITFOU| 00004C50: 46 4C 41 47 3B 42 45 52 45 49 54 53 20 47 45 46 |FLAG;BEREITS GEF| 00004C60: 55 4E 44 45 4E 00 42 4D 49 46 4F 55 4E 44 45 54 |UNDEN.BMIFOUNDET| 00004C70: 3B 4A 41 00 4C 44 41 28 41 5A 47 32 29 2C 59 00 |;JA.LDA(AZG2),Y.| 00004C80: 43 4D 50 4E 55 4D 00 42 4E 45 43 4F 4E 54 56 47 |CMPNUM.BNECONTVG| 00004C90: 4C 3B 4E 45 49 4E 2C 20 5A 55 52 20 4E 41 45 43 |L;NEIN, ZUR NAEC| 00004CA0: 48 53 54 45 4E 20 DA 45 49 4C 45 00 49 4E 59 00 |HSTEN .EILE.INY.| 00004CB0: 4C 44 41 28 41 5A 47 32 29 2C 59 00 43 4D 50 4E |LDA(AZG2),Y.CMPN| 00004CC0: 55 4D 2B 31 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 |UM+1;.EILENNUMME| 00004CD0: 52 20 48 49 47 48 20 56 45 52 47 4C 45 49 43 48 |R HIGH VERGLEICH| 00004CE0: 45 4E 00 42 4E 45 43 4F 4E 54 56 47 4C 3B 55 4E |EN.BNECONTVGL;UN| 00004CF0: 47 4C 45 49 43 48 00 46 4F 55 4E 44 45 54 3A 4C |GLEICH.FOUNDET:L| 00004D00: 44 41 23 31 32 38 3B C6 4C 41 47 20 46 55 45 52 |DA#128;.LAG FUER| 00004D10: 20 27 47 45 46 55 4E 44 45 4E 20 53 45 54 5A 45 | 'GEFUNDEN SETZE| 00004D20: 4E 27 00 53 54 41 46 4F 55 46 4C 41 47 00 42 49 |N'.STAFOUFLAG.BI| 00004D30: 54 52 45 4E 4F 50 54 53 3B CB 4F 4D 4D 45 4E 54 |TRENOPTS;.OMMENT| 00004D40: 41 52 5A 45 49 4C 45 4E 20 55 45 42 45 52 53 50 |ARZEILEN UEBERSP| 00004D50: 52 49 4E 47 45 4E 20 3F 00 42 56 43 4E 45 49 4E |RINGEN ?.BVCNEIN| 00004D60: 4A 4B 00 4C 44 59 23 34 00 4C 44 41 28 41 5A 47 |JK.LDY#4.LDA(AZG| 00004D70: 32 29 2C 59 00 43 4D 50 23 D4 CB 52 45 4D 00 42 |2),Y.CMP#..REM.B| 00004D80: 45 51 43 4F 4E 54 56 47 4C 3B 4E 41 45 43 48 53 |EQCONTVGL;NAECHS| 00004D90: 54 45 20 DA 45 49 4C 45 20 53 55 43 48 45 4E 00 |TE .EILE SUCHEN.| 00004DA0: 43 4D 50 23 D4 CB 44 41 54 41 00 42 45 51 43 4F |CMP#..DATA.BEQCO| 00004DB0: 4E 54 56 47 4C 3B 4E 41 45 43 48 53 54 45 20 DA |NTVGL;NAECHSTE .| 00004DC0: 45 49 4C 45 20 53 55 43 48 45 4E 00 49 4E 59 00 |EILE SUCHEN.INY.| 00004DD0: 4C 44 41 28 41 5A 47 32 29 2C 59 00 42 4E 45 4E |LDA(AZG2),Y.BNEN| 00004DE0: 45 49 4E 4A 4B 00 44 45 59 00 4C 44 41 28 41 5A |EINJK.DEY.LDA(AZ| 00004DF0: 47 32 29 2C 59 00 43 4D 50 23 27 3A 00 42 45 51 |G2),Y.CMP#':.BEQ| 00004E00: 43 4F 4E 54 56 47 4C 3B 4E 41 45 43 48 53 54 45 |CONTVGL;NAECHSTE| 00004E10: 20 DA 45 49 4C 45 20 53 55 43 48 45 4E 00 43 4D | .EILE SUCHEN.CM| 00004E20: 50 23 33 32 00 42 45 51 43 4F 4E 54 56 47 4C 3B |P#32.BEQCONTVGL;| 00004E30: 4E 41 45 43 48 53 54 45 20 DA 45 49 4C 45 20 53 |NAECHSTE .EILE S| 00004E40: 55 43 48 45 4E 00 42 4E 45 4E 45 49 4E 4A 4B 3B |UCHEN.BNENEINJK;| 00004E50: 4E 45 49 4E 2C 20 DA 45 49 4C 45 20 4C 49 45 46 |NEIN, .EILE LIEF| 00004E60: 45 52 4E 00 43 4F 4E 54 56 47 4C 3A 4C 44 59 23 |ERN.CONTVGL:LDY#| 00004E70: 31 3B 4E 41 45 43 48 53 54 45 4E 20 DA 45 49 4C |1;NAECHSTEN .EIL| 00004E80: 45 4E 41 4E 46 41 4E 47 20 53 55 43 48 45 4E 00 |ENANFANG SUCHEN.| 00004E90: 43 4F 54 48 45 4E 3A 49 4E 59 00 49 4E 59 00 43 |COTHEN:INY.INY.C| 00004EA0: 4F 4E 54 56 47 4C 4C 3A 49 4E 59 3B 45 49 4E 20 |ONTVGLL:INY;EIN | 00004EB0: C2 59 54 45 20 54 45 53 54 45 4E 00 4C 44 41 28 |.YTE TESTEN.LDA(| 00004EC0: 41 5A 47 32 29 2C 59 3B CE 55 4C 4C 20 3F 00 42 |AZG2),Y;.ULL ?.B| 00004ED0: 45 51 43 4F 4E 45 4C 49 3B 4A 41 2C 20 44 41 4E |EQCONELI;JA, DAN| 00004EE0: 4E 20 DA 45 49 4C 45 4E 45 4E 44 45 20 47 45 46 |N .EILENENDE GEF| 00004EF0: 55 4E 44 45 4E 00 43 4D 50 23 32 31 35 3B D4 C8 |UNDEN.CMP#215;..| 00004F00: C5 CE 20 3F 00 42 45 51 43 4F 54 48 45 4E 3B 4A |.. ?.BEQCOTHEN;J| 00004F10: 41 2C 20 32 20 C2 59 54 45 20 55 45 42 45 52 4C |A, 2 .YTE UEBERL| 00004F20: 45 53 45 4E 00 43 4D 50 23 D4 CB 47 4F 54 4F 00 |ESEN.CMP#..GOTO.| 00004F30: 42 45 51 43 4F 47 4F 54 4F 3B C7 CF D4 CF 20 4F |BEQCOGOTO;.... O| 00004F40: 44 45 52 20 C7 CF D3 D5 C2 20 3F 00 43 4D 50 23 |DER ..... ?.CMP#| 00004F50: D4 CB 47 4F 53 55 42 00 42 4E 45 43 4F 4E 54 56 |..GOSUB.BNECONTV| 00004F60: 47 4C 4C 00 43 4F 47 4F 54 4F 3A 49 4E 59 3B 4A |GLL.COGOTO:INY;J| 00004F70: 41 2C 20 32 20 C2 59 54 45 20 55 45 42 45 52 4C |A, 2 .YTE UEBERL| 00004F80: 45 53 45 4E 00 49 4E 59 00 49 4E 59 00 4C 44 41 |ESEN.INY.INY.LDA| 00004F90: 28 41 5A 47 32 29 2C 59 3B 41 55 46 20 CB 4F 4D |(AZG2),Y;AUF .OM| 00004FA0: 4D 41 20 54 45 53 54 45 4E 00 43 4D 50 23 27 2C |MA TESTEN.CMP#',| 00004FB0: 00 42 45 51 43 4F 47 4F 54 4F 3B 4A 41 2C 20 44 |.BEQCOGOTO;JA, D| 00004FC0: 41 4E 4E 20 57 45 49 54 45 52 45 20 C2 59 54 45 |ANN WEITERE .YTE| 00004FD0: 20 55 45 42 45 52 4C 45 53 45 4E 00 44 45 59 3B | UEBERLESEN.DEY;| 00004FE0: 4E 45 49 4E 2C 20 57 45 49 54 45 52 56 45 52 47 |NEIN, WEITERVERG| 00004FF0: 4C 45 49 43 48 45 4E 00 42 4E 45 43 4F 4E 54 56 |LEICHEN.BNECONTV| 00005000: 47 4C 4C 00 43 4F 4E 45 4C 49 3A 49 4E 59 3B 5A |GLL.CONELI:INY;Z| 00005010: 55 52 20 4E 41 45 43 48 53 54 45 4E 20 DA 45 49 |UR NAECHSTEN .EI| 00005020: 4C 45 00 54 59 41 3B 41 5A 47 32 2B D9 00 43 4C |LE.TYA;AZG2+..CL| 00005030: 43 00 41 44 43 41 5A 47 32 00 53 54 41 41 5A 47 |C.ADCAZG2.STAAZG| 00005040: 32 3B 5A 45 49 47 54 20 41 55 46 20 4E 41 45 43 |2;ZEIGT AUF NAEC| 00005050: 48 53 54 45 20 DA 45 49 4C 45 00 42 43 43 4E 43 |HSTE .EILE.BCCNC| 00005060: 48 45 32 00 49 4E 43 41 5A 47 32 2B 31 00 4E 43 |HE2.INCAZG2+1.NC| 00005070: 48 45 32 3A 4C 44 59 23 30 3B 41 55 46 20 D0 52 |HE2:LDY#0;AUF .R| 00005080: 4F 47 52 41 4D 4D 45 4E 44 44 45 20 54 45 53 54 |OGRAMMENDDE TEST| 00005090: 45 4E 00 4C 44 41 28 41 5A 47 32 29 2C 59 00 49 |EN.LDA(AZG2),Y.I| 000050A0: 4E 59 00 4F 52 41 28 41 5A 47 32 29 2C 59 00 42 |NY.ORA(AZG2),Y.B| 000050B0: 4E 45 56 47 4C 4E 55 4D 3B 4E 45 49 4E 00 42 49 |NEVGLNUM;NEIN.BI| 000050C0: 54 46 4F 55 46 4C 41 47 3B DA 45 49 4C 45 20 42 |TFOUFLAG;.EILE B| 000050D0: 45 52 45 49 54 53 20 47 45 46 55 4E 44 45 4E 20 |EREITS GEFUNDEN | 000050E0: 3F 00 42 50 4C 49 4C 4C 45 47 3B 4E 45 49 4E 00 |?.BPLILLEG;NEIN.| 000050F0: 4C 44 41 23 3C 57 41 52 4E 3B 4A 41 2C 20 D7 41 |LDA#<WARN;JA, .A| 00005100: 52 4E 55 4E 47 00 4C 44 59 23 3E 57 41 52 4E 3B |RNUNG.LDY#>WARN;| 00005110: 4D 45 4C 44 45 4E 00 4A 53 52 53 54 52 4F 55 54 |MELDEN.JSRSTROUT| 00005120: 00 4C 44 58 23 37 30 00 4A 53 52 42 41 53 49 43 |.LDX#70.JSRBASIC| 00005130: 52 4F 4D 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 |ROM;.EILENNUMMER| 00005140: 20 41 55 53 47 45 42 45 4E 00 4E 45 49 4E 4A 4B | AUSGEBEN.NEINJK| 00005150: 3A 4C 44 41 53 54 45 50 3B 4C 45 54 5A 54 45 20 |:LDASTEP;LETZTE | 00005160: DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 5A 55 52 |.EILENNUMMER ZUR| 00005170: 55 45 43 4B 4C 49 45 46 45 52 4E 00 4C 44 58 53 |UECKLIEFERN.LDXS| 00005180: 54 45 50 2B 31 00 43 4C 43 00 52 54 53 00 20 00 |TEP+1.CLC.RTS. .| 00005190: 49 4C 4C 45 47 3A 4C 44 41 23 3C 49 4C 4C 45 47 |ILLEG:LDA#<ILLEG| 000051A0: 41 4C 3B 4A 41 2C 20 D5 CE C4 C5 C6 27 C4 A0 D3 |AL;JA, .....'...| 000051B0: D4 C1 D4 C5 CD C5 CE D4 00 4C 44 59 23 3E 49 4C |.........LDY#>IL| 000051C0: 4C 45 47 41 4C 3B 4D 45 4C 44 45 4E 00 4A 53 52 |LEGAL;MELDEN.JSR| 000051D0: 53 54 52 4F 55 54 00 20 00 4C 44 58 23 37 30 00 |STROUT. .LDX#70.| 000051E0: 4A 53 52 42 41 53 49 43 52 4F 4D 3B DA 45 49 4C |JSRBASICROM;.EIL| 000051F0: 45 4E 4E 55 4D 4D 45 52 20 41 55 53 47 45 42 45 |ENNUMMER AUSGEBE| 00005200: 4E 00 53 45 43 3B C6 45 48 4C 45 52 2D C6 4C 41 |N.SEC;.EHLER-.LA| 00005210: 47 20 53 45 54 5A 45 4E 00 52 54 53 00 20 00 46 |G SETZEN.RTS. .F| 00005220: 4F 55 46 4C 41 47 3A 2E 42 59 30 3B C6 4C 41 47 |OUFLAG:.BY0;.LAG| 00005230: 20 46 55 45 52 20 27 47 45 46 55 4E 44 45 4E 27 | FUER 'GEFUNDEN'| 00005240: 00 20 00 49 4C 4C 45 47 41 4C 3A 2E 42 59 31 33 |. .ILLEGAL:.BY13| 00005250: 2C 22 55 4E 44 45 46 27 44 20 53 54 41 54 45 4D |,"UNDEF'D STATEM| 00005260: 45 4E 54 22 2C 30 00 50 41 53 53 54 58 54 3A 2E |ENT",0.PASSTXT:.| 00005270: 42 59 31 33 2C 22 3E 3E 3E 20 50 41 53 53 20 22 |BY13,">>> PASS "| 00005280: 2C 30 00 57 41 52 4E 3A 2E 42 59 31 33 2C 22 53 |,0.WARN:.BY13,"S| 00005290: 54 41 54 45 4D 45 4E 54 20 49 53 20 45 4E 44 22 |TATEMENT IS END"| 000052A0: 2C 30 00 20 00 50 41 53 53 3A 50 48 41 00 4C 44 |,0. .PASS:PHA.LD| 000052B0: 41 23 3C 50 41 53 53 54 58 54 3B 27 D0 C1 D3 D3 |A#<PASSTXT;'....| 000052C0: 27 20 41 55 53 47 45 42 45 4E 00 4C 44 59 23 3E |' AUSGEBEN.LDY#>| 000052D0: 50 41 53 53 54 58 54 00 4A 53 52 53 54 52 4F 55 |PASSTXT.JSRSTROU| 000052E0: 54 00 50 4C 41 3B CE 55 4D 4D 45 52 20 41 55 53 |T.PLA;.UMMER AUS| 000052F0: 47 45 42 45 4E 00 4A 53 52 42 41 53 4F 55 54 00 |GEBEN.JSRBASOUT.| 00005300: 4C 44 41 23 31 33 3B 4E 45 55 45 20 DA 45 49 4C |LDA#13;NEUE .EIL| 00005310: 45 00 4A 4D 50 42 41 53 4F 55 54 00 20 00 53 54 |E.JMPBASOUT. .ST| 00005320: 52 4F 55 54 3A 53 54 41 58 4D 45 4D 3B D3 54 52 |ROUT:STAXMEM;.TR| 00005330: 49 4E 47 20 55 4E 54 45 52 20 D2 CF CD 20 41 55 |ING UNTER ... AU| 00005340: 53 47 45 42 45 4E 00 4C 44 41 41 5A 47 3B 41 5A |SGEBEN.LDAAZG;AZ| 00005350: 47 20 4D 45 52 4B 45 4E 00 50 48 41 00 4C 44 41 |G MERKEN.PHA.LDA| 00005360: 41 5A 47 2B 31 00 50 48 41 00 4C 44 41 58 4D 45 |AZG+1.PHA.LDAXME| 00005370: 4D 3B 41 4B 4B 55 20 5A 55 52 55 45 43 4B 48 4F |M;AKKU ZURUECKHO| 00005380: 4C 45 4E 00 53 54 41 41 5A 47 3B 41 5A 47 20 41 |LEN.STAAZG;AZG A| 00005390: 55 46 20 D3 54 52 49 4E 47 20 53 45 54 5A 45 4E |UF .TRING SETZEN| 000053A0: 00 53 54 59 41 5A 47 2B 31 00 4C 44 59 23 30 00 |.STYAZG+1.LDY#0.| 000053B0: 53 54 52 4F 55 54 4C 3A 4C 44 41 28 41 5A 47 29 |STROUTL:LDA(AZG)| 000053C0: 2C 59 3B DA 45 49 43 48 45 4E 57 45 49 53 45 20 |,Y;.EICHENWEISE | 000053D0: 41 55 53 47 45 42 45 4E 00 42 45 51 45 4E 44 45 |AUSGEBEN.BEQENDE| 000053E0: 52 52 45 49 3B 42 49 53 20 CE 55 4C 4C 42 59 54 |RREI;BIS .ULLBYT| 000053F0: 45 20 45 52 52 45 49 43 48 54 00 4A 53 52 42 53 |E ERREICHT.JSRBS| 00005400: 4F 55 54 32 00 49 4E 59 00 42 4E 45 53 54 52 4F |OUT2.INY.BNESTRO| 00005410: 55 54 4C 3B 57 45 49 54 45 52 20 41 55 53 47 45 |UTL;WEITER AUSGE| 00005420: 42 45 4E 00 45 4E 44 45 52 52 45 49 3A 50 4C 41 |BEN.ENDERREI:PLA| 00005430: 3B 41 5A 47 20 56 4F 4D 20 D3 54 41 43 4B 20 48 |;AZG VOM .TACK H| 00005440: 4F 4C 45 4E 00 53 54 41 41 5A 47 2B 31 00 50 4C |OLEN.STAAZG+1.PL| 00005450: 41 00 53 54 41 41 5A 47 00 52 54 53 3B 46 45 52 |A.STAAZG.RTS;FER| 00005460: 54 49 47 00 20 00 4D 4F 56 45 54 4F 54 4F 50 3A |TIG. .MOVETOTOP:| 00005470: 53 45 43 3B C2 C1 D3 C9 C3 20 D0 52 47 2E 20 5A |SEC;..... .RG. Z| 00005480: 55 4D 20 D2 C1 CD D4 CF D0 20 56 45 52 53 43 48 |UM ...... VERSCH| 00005490: 49 45 42 45 4E 00 4C 44 41 42 41 53 49 43 45 4E |IEBEN.LDABASICEN| 000054A0: 44 3B C1 4E 5A 2E 20 C2 59 54 45 20 3D 20 C5 4E |D;.NZ. .YTE = .N| 000054B0: 44 45 2D C1 4E 46 41 4E 47 00 53 42 43 42 41 53 |DE-.NFANG.SBCBAS| 000054C0: 53 54 41 52 54 00 53 54 41 4D 4F 56 45 42 59 54 |START.STAMOVEBYT| 000054D0: 45 53 00 4C 44 41 42 41 53 49 43 45 4E 44 2B 31 |ES.LDABASICEND+1| 000054E0: 00 53 42 43 42 41 53 53 54 41 52 54 2B 31 00 53 |.SBCBASSTART+1.S| 000054F0: 54 41 4D 4F 56 45 42 59 54 45 53 2B 31 00 4C 44 |TAMOVEBYTES+1.LD| 00005500: 41 42 41 53 53 54 41 52 54 3B D6 CF CE 20 3D 20 |ABASSTART;... = | 00005510: C1 4E 46 41 4E 47 00 4C 44 58 42 41 53 53 54 41 |.NFANG.LDXBASSTA| 00005520: 52 54 2B 31 00 53 54 41 4D 4F 56 45 56 4F 4E 00 |RT+1.STAMOVEVON.| 00005530: 53 54 58 4D 4F 56 45 56 4F 4E 2B 31 00 53 45 43 |STXMOVEVON+1.SEC| 00005540: 3B CE C1 C3 C8 3D 20 D2 C1 CD D4 CF D0 2D C1 4E |;....= ......-.N| 00005550: 5A 2E 20 C2 59 54 45 00 4C 44 41 42 41 53 45 4E |Z. .YTE.LDABASEN| 00005560: 44 00 53 42 43 4D 4F 56 45 42 59 54 45 53 00 53 |D.SBCMOVEBYTES.S| 00005570: 54 41 4D 4F 56 45 4E 41 43 48 00 4C 44 41 42 41 |TAMOVENACH.LDABA| 00005580: 53 45 4E 44 2B 31 00 53 42 43 4D 4F 56 45 42 59 |SEND+1.SBCMOVEBY| 00005590: 54 45 53 2B 31 00 53 54 41 4D 4F 56 45 4E 41 43 |TES+1.STAMOVENAC| 000055A0: 48 2B 31 00 4A 53 52 44 4F 42 4D 4F 56 45 3B 56 |H+1.JSRDOBMOVE;V| 000055B0: 45 52 53 43 48 49 45 42 45 4E 00 4C 44 58 42 41 |ERSCHIEBEN.LDXBA| 000055C0: 53 53 54 41 52 54 2B 31 3B 41 5A 47 32 20 41 55 |SSTART+1;AZG2 AU| 000055D0: 46 20 C2 41 53 49 43 53 54 41 52 54 20 53 45 54 |F .ASICSTART SET| 000055E0: 5A 45 4E 00 4C 44 41 42 41 53 53 54 41 52 54 00 |ZEN.LDABASSTART.| 000055F0: 53 54 41 41 5A 47 32 00 53 54 58 41 5A 47 32 2B |STAAZG2.STXAZG2+| 00005600: 31 00 4A 53 52 44 45 43 41 5A 47 3B 41 5A 47 2D |1.JSRDECAZG;AZG-| 00005610: 31 00 4A 4D 50 44 45 43 41 5A 47 32 3B 41 5A 47 |1.JMPDECAZG2;AZG| 00005620: 32 2D 31 00 00 FF 59 |2-1...Y |
"V.LS.;;;XBASIC VERSION 1.2 (C) M.FRIESE 4/88.;;;--XB/B 1.2. .;----------------- ----------------------.;--- XBASIC-BEFEH L ELSE ---.;--------------- ------------------------.BBELSE:LDALASTI F;LETZTE IF-ABFRAGE.BEQWARWAHR;NULL ?.LD A#0;NEIN, NULL LADEN.BIT.WARWAHR:LDA#$FF ;JA, -1 LADEN.STALASTIF;UND ALS LETZTES ERGEBNIS SPEICHERN. .;------------------ ---------------------.;--- XBASIC-BEFEHL ALSO ---.;---------------- -----------------------.BBALSO:LDALASTIF ;LETZTES ERGEBNIS WAR NULL.BNEWGFALSCH;N EIN, WEITERMACHEN.LDX#64;ZEILE UEBERSPRI NGEN.JSRBASICROM.WGFALSCH:RTS;FERTIG. .L ASTIF:.BY0;ERGEBNIS DER LETZTEN IF-ABFRA GE. .;---------------------------------- -----.;--- XBASIC-BEFEHL MERGE DATEI$,D EV ---.;-------------------------------- -------.BBMERGE:SEC;MERGE.LDA45;AB PROGR AMMENDE-2 LADEN.SBC#2.STAAZG.LDA46.STAAZ G+1.JSRDOBLOAD;ZUR LADE-ROUTINE.JMPBBOLD ;WEITER BEIM OLD-BEFEHL. .;------------- --------------------------.;--- XBASIC-B EFEHL GSAVE DATEI$,DEV ---.;----------- ----------------------------.BBGSAVE:LDA #<HIRESSEITE;GSAVE.LDX#>HIRESSEITE;AB HI RESSEITE SPEICHERN.STAVON.STXVON+1.LDA#< HIRESSEITE+8000;8000 BYTE SPEICHERN.LDX# >HIRESSEITE+8000.STABIS.STXBIS+1.JMPGSAV E;WEITER BEI DER SAVE-ROUTINE. .;------- --------------------------------.;--- BE FEHL BSAVE VON,BIS,DATEI$,DEV ---.;----- ----------------------------------.BBBSA VE:JSRGETADR;GSAVE.LDA$14;STARTADRESSE E INLESEN.STAVON.LDA$15.STAVON+1.JSRCHKKOM ;AUF KOMMA TESTEN.JSRGETADR;ENDADRESSE E INLESEN.LDA$14.STABIS.LDA$15.STABIS+1.JS RCHKKOM;AUF KOMMA TESTEN.GSAVE:JSRRESTPA RAS;DATEINNAME UND DEVICE FESTLEGEN.JSRW RITEFILEOP;DATEI OEFFNEN.LDAVON;AZG AUF STARTADRESSE.STAAZG.JSRBSOUT;ALS STARTAD RESSE IN DATEI SCHREIBEN.LDAVON+1.STAAZG +1;EBENSO HIGH BYTE.JSRBSOUT.PUTIT:LDY#0 .LDXPP;ALLES AUF RAM SCHALTEN.SEI.LDA#$3 0.STAPP.LDA(AZG),Y;WERT AUS RAM LESEN.ST XPP;WIEDER ZURUECKSCHALTEN.CLI.JSRBSOUT. LDAAZG;ENDADRESSE ERREICHT ?.CMPBIS.BNES AVCON;NEIN.LDAAZG+1.CMPBIS+1.BNESAVCON;N EIN.JMPREADFILECLO;DATEI SCHLIESSEN.SAVC ON:INCAZG;ZEIGER +1.BNEPUTIT.INCAZG+1;HI GH BYTE.BNEPUTIT. .WRITEFILEOP:STXXMEM;P ARAMETER SETZEN.LDY#1.LDX#26.JSRBASICROM .LDX#30;OPEN-BEFEHL.JSRBASICROM.BCC*+2+3 .TOOPENERR:JMPOPENERR;GGF FEHLER MELDEN. LDADATEINR;AUSGABEN AUF DATEI UMLENKEN.S TAXMEM.LDX#36.JSRBASICROM.BCSTOOPENERR;G GF FEHLER MELDEN.RTS. .VON:.EQMEM;STARTA DRESSE.BIS:.EQMEM+1;ENDADRESSE. .;------ ---------------------------------.;--- X BASIC-BEFEHL GLOAD DATEI$,DEV ---.;--- XBASIC-BEFEHL GLOADA DATEI$,DEV ---.;--- XBASIC-BEFEHL GLOADO DATEI$,DEV ---.;-- - XBASIC-BEFEHL GLOADX DATEI$,DEV ---.;- --------------------------------------.B BGLOADA:LDA#32;GLOADA.BIT.BBGLOADO:LDA#6 4;GLOADO.BIT.BBGLOADX:LDA#128;GLOADX.BIT .BBGLOAD:LDA#0;GLOAD.STALOADMODE;LADEMOD US FESTLEGEN.LDA#<HIRESSEITE;AB HIRESSEI TE LADEN.STAAZG.LDA#>HIRESSEITE.STAAZG+1 .JMPDOBLOAD;DATEI EINLADEN. .LOADMODE:.E QMEM+4;LADEMODUS. .RESTPARAS:JSRFRMEVL;S TRING DATEI$ HOLEN.LDX#4.JSRBASICROM.TYA ;LAENGE IN ACCU.LDX$22;ALS FILENAMEN SET ZEN.LDY$23.JSRFILENAME.JSRCHRGOT;FOLGT E IN KOMMA ?.LDX#8;NORMALE GERAETEADRESSE IST DISK.CMP#',.BNENORMDEV2.JSRCHKKOM.JS RGETBYTE;GERAETEADRESSE LESEN.NORMDEV2:L DADATEINR;DATEINUMMER LADEN.RTS. .;----- ----------------------------------.;--- XBASIC-BEFEHL BLOAD AB,DATEI$,DEV -.;--- ------------------------------------.BBB LOAD:JSRGETADR;STARTADRESSE LESEN.LDA#0; LOADMODE ABSOLUT.STALOADMODE.LDA$14;AZG AUF STARTADRESSE.STAAZG.LDA$15.STAAZG+1. JSRCHKKOM;AUF KOMMA TESTEN.DOBLOAD:JSRRE STPARAS;DATEINAME UND DEVICE FESTLEGEN.L DY#0.JSRREADFILEOP;DATEI ZUM LESEN OEFFN EN.JSRBASIN;ORIGINALE STARTADRESSE LESEN .STAAZG2;UND MERKEN.JSRBASIN.STAAZG2+1.L DASTATUS;DATEI BEENDET ?.BNEFILENF;JA.LD AAZG;STARTADRESSE =0.ORAAZG+1.BNEISTHEAD R;NEIN.LDAAZG2;JA, ORIGINALE STARTADRESS E SETZEN.STAAZG.LDAAZG2+1.STAAZG+1.ISTHE ADR:JSRBASIN;ZEICHEN EINLESEN.JSRPUTAZG; UND SPEICHERN.INCAZG;ADRESSE+1.BNE*+2+2. INCAZG+1.LDASTATUS;DATEI BEENDET ?.BEQIS THEADR;NEIN, WEITERLESEN.BLEOF:JMPREADFI LECLO;DATEI SCHLIESSEN. .FILENF:JSRREADF ILECLO;DATEI SCHLIESSEN.LDX#4;"FILE NOT FOUND".JMPFEHLER. .PUTAZG:TAX;ZEICHEN ME RKEN.LDAPP;PROZESSORPORT MERKEN.PHA.SEI; ALLES AUF RAM SCHALTEN.LDA#$32.STAPP.TXA ;ZEICHEN WIEDER IM ACCU.LDX#0.BITLOADMOD E;LADEMODUS TESTEN.BMIXORLOAD;ZUM XOR-MO DUS.BVSORMODE;ZUM OR-MODUS.LDYLOADMODE.B EQPUTMODE;ABSOLUT SPEICHERN.AND(AZG,X);A ND-MODUS.JMPPUTMODE.ORMODE:ORA(AZG,X);OR -MODUS.JMPPUTMODE.XORLOAD:EOR(AZG,X);XOR -MODUS.PUTMODE:STA(AZG,X);SPEICHERN.PLA; PROZESSORPORT WIEDERHERSTELLEN.STAPP.CLI .RTS. .;-------------------------------- -------.;--- XBASIC-BEFEHL HRDCP Y X ---.;------------------------------ ---------.OUTMODE:.EQMEM;AUSGABEMODUS.SP ALTE:.EQMEM+1;SPALTENZAEHLER.CODE:.EQMEM +2;DRUCKERBYTE.MASKE:.EQMEM+3;BITMASKE.Z GEN:.EQMEM+4;ADRESSE ZEICHENSATZ. .BBHRD CPY:LDA#$30;LADEN AUS RAM.STAPPWERT+1.LD ACIA2;VIC-ADRESSBEREICH HOLEN.AND#%11.TA X;IN X BLOCK MERKEN.LDAVIC+17;HIRES MODU S ?.AND#32.PHP;ERGEBNIS MERKEN.LDAVIC+24 ;ZEICHENGEN. ADR..AND#%1110.PLP.BEQLOWGR A;KEINE HOCHAUFLOESENDE GRAPHIK.AND#%100 0;ADR. BEI HIRES.LOWGRA:ASL;ADRESSE *4.A SL.CLC;+BLOCK.ADCBLOCKS,X.STAAZG2+1;ERGI BT HIRES ADR. IN AGZ2.STAZGEN+1;ODER ZEI CHENSATZ ADR. IN ZGEN.LDA#0;LOW BYTE IST IMMER NULL.STAAZG2.STAAZG.STAZGEN.LDAVI C+24;ADR. DER TEXTSEITE BERECHNEN.AND#%1 1110000.LSR.LSR.CLC;+BLOCK.ADCBLOCKS,X.S TAAZG+1;IN AZG MERKEN. .LDACIA2.AND#%11; RELATIVER BEREICH ?.CMP#3.BNEHRDCPY;NEIN , ZUR HARDCOPY ROUTINE.CLC;OFFSET ADDIER EN.LDAZGEN+1.ADC#$C0.STAZGEN+1.LDA#$32;A US ZEICHENSATZ-ROM LESEN.STAPPWERT+1. .H RDCPY:JSRGETBYTE;PARAMETER HOLEN.CPX#8;< 8 ?.BCCPARAOK;JA, OK.LDX#14;SONST FEHLER MELDEN.JMPFEHLER.PARAOK:LDAVIC+17;AUF H IRES TESTEN.AND#32.PHP;ERGEBNIS MERKEN.L DAOMODE,X;AUSGABEMODE HOLEN.PLP.BNEHCHIR ES;ZUR HIRES-AUSGABE.ORA#2;FLAG FUER ZEI CHENAUSGABE.HCHIRES:STAOUTMODE;SETZEN.LD A#0;KEIN DATEINAME.LDX#28.JSRBASICROM.LD YDSADR;OPEN DATEINR,DADR,DSADR.LDXDADR.S TXXMEM.LDADATEINR.LDX#26.JSRBASICROM;PAR AMETER SETZEN.LDX#30.JSRBASICROM;OPEN-BE FEHL.LDADATEINR;AUSGABE AUF DRUCKER.STAX MEM.LDX#36.JSRBASICROM.GO:LDX#50;50 ZEIL EN BEI DOPPELT.BITOUTMODE.BVS*+2+2.LDX#2 5;25 ZEILEN SONST.ZEILEN:LDYPRT640;DRUCK ER AUF GRAFIK.GMD:LDAPRT640+1,Y;DOPPELTE PUNKTBREITE.BITOUTMODE.BMIBIG.LDAPRT320 +1,Y;EINFACHE PUNKTBREITE.BIG:JSRBSOUT2; STEUERBYTES AUSGEBEN.DEY.BPLGMD;WEITER B IS ALLE BYTE AUSGEGEBEN.LDA#40;40 SPALTE N.STASPALTE.SPALTEN:LDY#0;MASKE AUF BIT 7.LDA#$80.STAMASKE.SEI.LDAOUTMODE;HIRES MODE ?.AND#2.BEQHCBYTS;JA.LDA#$30;ALLES AUF RAM.STAPP.LDA(AZG),Y;ZEICHEN HOLEN.I NCAZG;ZEIGER +1.BNENOPAGE.INCAZG+1.NOPAG E:STAAZG2;ADR. DER ZEICHENDEF. BERECHNEN .LDA#0.STAAZG2+1;AZG2=ZEICHENCODE.LDY#3. MAL8:ASLAZG2;MAL 8.ROLAZG2+1.DEY.BNEMAL8 .BITOUTMODE;Y RICHTUNG STRECKEN ?.BVCNOR MZEI;NEIN.TXA;ZWEITE ZEILE ?.AND#1.BNEHA LBZ;JA.NORMZEI:LDA#0;0 ADDIEREN.BIT.HALB Z:LDA#4;4 ADDIEREN.CLC.ADCAZG2.STAAZG2.L DAAZG2+1;+ ZEICHENGENERATORADRESSE.ADCZG EN+1.STAAZG2+1;AZG2=ZEICHENCODE*8+ZEICHE NDEF. ANFANG.HCBYTS:LDA#0;AUSGABECODE 0. STACODE.LDY#3;4 PUNKTE BEI DOPPELBREITE. BITOUTMODE.BVSBITS.LDY#7;8 PUNKTE BEI EI NFACH.BITS:SEI;DEF. HOLEN.PPWERT:LDA#$30 .STAPP.LDA(AZG2),Y.ANDMASKE;BIT AUSFILTE RN.BEQTT2;NICHT GESETZT.LDAPRTDOPP,Y;BIT FUER DOPPELT.BITOUTMODE.BVSBIG2.LDAPRTE INF,Y;ODER EINFACH HOLEN.BIG2:ORACODE;BI T(S) SETZEN.STACODE.TT2:DEY;NEXT BIT.BPL BITS.LDAOUTMODE;INVERTIEREN ?.AND#1.BEQN ORMAL;NEIN.LDA#$FF.BIT.NORMAL:LDA#$0.EOR CODE.JSRBSOUT2;CODE -> DRUCKER.BITOUTMOD E.BPL*+5.JSRBSOUT2;2X BEI DOPPELT.LSRMAS KE;MASKE AUF NEXT BIT.BCCHCBYTS;WEITER B IS ALLE BITS.LDAAZG2;NEXT ZEICHEN BEI HI RES.ADC#7.STAAZG2.BCCTT3.INCAZG2+1.TT3:D ECSPALTE;ALLE SPALTEN ?.BEQ*+5.JMPSPALTE N;NEIN.BITOUTMODE.BVCTT4.TXA;KORREKTUR B EI DOPPELT.AND#1.BNETT5.SEC;ADR. AUF NAE CHSTEN HALBZEILE.LDAAZG2.SBC#<320-4;AZG2 -(320-4).STAAZG2.LDAAZG2+1.SBC#>320-4.ST AAZG2+1.SEC.LDAAZG;AZG-40.SBC#40.STAAZG. BCSTT4.DECAZG+1.JMPTT4.TT5:SEC;AUF NAECH STE VOLLE ZEILE.LDAAZG2;AZG2-4.SBC#4.STA AZG2.BCSTT4.DECAZG2+1.TT4:DEX;ALLE ZEILE N ?.BEQ*+2+3.JMPZEILEN;NEIN.LDYPRTNORM;D RUCKER AUF 'NORMAL'.NLOOP:LDAPRTNORM+1,Y .JSRBSOUT2.DEY.BPLNLOOP;WEITER BIS ALLE BYTE AUSGEGEBEN.JMPREADFILECLO;DATEI SCH LIESSEN. .BSOUT2:PHA;ZEICHEN MERKEN.LDA# $36;ROM EINSCHALTEN.STAPP.PLA;UND ZUR AU SGABE.JMPBSOUT. ..BY"DRUCKER";KENNUNGSST RING FUER INSTALLER.DADR:.BY0.DSADR:.BY0 .PRT320:.DB16;DRUCKER AUF 640 GRAFIKZEIC HEN.PRT640:.DB16;DRUCKER AUF 320 GRAFIUZ EICHEN.PRTNORM:.DB10;DRUCKER NORMAL. .BL OCKS:.BY$C0,$80,$40,$00;BLOCKOFFSET.PRTD OPP:.RV1+2,4+8,16+32,64+128;BITS FUER DO PPELT.PRTEINF:.RV1,2,4,8,16,32,64,128;BI TS FUER EINFACH. .OMODE:.BY0,128,64,128+ 64,1,129,65,128+65;CODE FUER OUTMODE. .; ---------------------------------------. ;--- XBASIC-BEFEHL BMOVE VON,BIS,BYTE -- .;-------------------------------------- -.MOVEVON:.EQMEM;VON.MOVENACH:.EQMEM+2;N ACH.MOVEBYTES:.EQMEM+4;ANZ. BYTES. .BBBM OVE:JSRGETADR;VON LESEN.LDA$14;UND SPEIC HERN.STAMOVEVON.LDA$15.STAMOVEVON+1.JSRC HKKOM;AUF KOMMA TESTEN.JSRGETADR;NACH LE SEN.LDA$14;UND SPEICHERN.STAMOVENACH.LDA $15.STAMOVENACH+1.JSRCHKKOM;AUF KOMMA TE STEN.JSRGETADR;ANZAHL BYTE LESEN.LDA$14; UND SPEICHERN.STAMOVEBYTES.LDA$15.STAMOV EBYTES+1.DOBMOVE:LDAMOVENACH+1;NACH < VO N ?.CMPMOVEVON+1.BCCMOVEDOWN;JA, NACH UN TEN VERSCHIEBEN.BNEMOVEUP;NEIN, NACH OBE N VERSCHIEBEN.LDAMOVENACH.CMPMOVEVON.BCC MOVEDOWN. .;NACH OBEN VERSCHIEBEN.MOVEUP :CLC;AZG2=VON+ANZ. BYTE.LDAMOVEVON.ADCMO VEBYTES.STAAZG2.LDAMOVEVON+1.ADCMOVEBYTE S+1.STAAZG2+1.CLC;AZG=NACH+ANZ. BYTE.LDA MOVENACH.ADCMOVEBYTES.STAAZG.LDAMOVENACH +1.ADCMOVEBYTES+1.STAAZG+1.LDY#0.DOMOUP: JSRDECAZG;AZG-1.JSRDECAZG2;AZG2-1.LDA(AZ G2),Y;EIN BYTE VERSCHIEBEN.STA(AZG),Y.LD AMOVEBYTES;ANZ. BYTE-1.BNENDMU3.DECMOVEB YTES+1.NDMU3:DECMOVEBYTES.LDAMOVEBYTES;A NZ. BYTE=0 ?.ORAMOVEBYTES+1.BNEDOMOUP;NE IN, NAECHSTES BYTE VERSCHIEBEN.RTS. .;NA CH UNTEN VERSCHIEBEN.MOVEDOWN:LDAMOVEVON ;AZG=VON.STAAZG.LDAMOVEVON+1.STAAZG+1.LD AMOVENACH;AZG2=NACH.STAAZG2.LDAMOVENACH+ 1.STAAZG2+1.LDY#0.DOMODOWN:LDA(AZG),Y;EI N BYTE VERSCHIEBEN.STA(AZG2),Y.INCAZG;AZ G+1.BNE*+2+2.INCAZG+1.INCAZG2;AZG2+1.BNE *+2+2.INCAZG2+1.LDAMOVEBYTES;ANZ. BYTE-1 .BNENDMU4.DECMOVEBYTES+1.NDMU4:DECMOVEBY TES.LDAMOVEBYTES;ANZ. BYTE=0 ?.ORAMOVEBY TES+1.BNEDOMODOWN;NEIN, NAECHSTES BYTE V ERSCHIEBEN.RTS. .DECAZG:LDAAZG;AZG-1.BNE NHERE1.DECAZG+1.NHERE1:DECAZG.RTS. .DECA ZG2:LDAAZG2;AZG2-1.BNENHERE2.DECAZG2+1.N HERE2:DECAZG2.RTS. .;------------------- --------------------.;--- BEFEHL RENUM S TART,FIRST,STEP,OPT--.;----------------- ----------------------.BASSTART:.EQ43;AN FANG BASIC.BASICEND:.EQ45. .AKTZEILE:.EQ $39;AKTUELLE ZEILENNUMMER. .YMEM:.EQ92;Z WISCHENSPEICHER. .STARTLINE:.EQ158;START .NEWSTART:.EQ164;FIRST.STEP:.EQ167;STEP. RENOPTS:.EQMEM+10;OPTIONEN. .TKGOTO:.EQ1 37.TKGOSUB:.EQ141.TKTHEN:.EQ167.TKDATA:. EQ131.TKREM:.EQ143. .BBRENUM:JSRGETADR;S TARTADRESSE HOLEN.LDA$14;UND IN STARTLIN E SPEICHERN.LDX$15.STASTARTLINE.STXSTART LINE+1.JSRCHKKOM;ERSTE ZEILENNUMMER HOLE N.JSRGETADR.LDA$14;UND IN NEWSTART SPEIC HERN.LDX$15.STANEWSTART.STXNEWSTART+1.CP XSTARTLINE+1;ZEILENNUMMER > STARTLINE ?. BEQLOWTEST.BCSCOREN.SLZUKLEIN:LDX#14;NEI N, FEHLER MELDEN.JMPFEHLER.LOWTEST:CMPST ARTLINE.BCCSLZUKLEIN;NEIN, ZU KLEIN.CORE N:JSRCHKKOM;AUF KOMMA TESTEN.JSRGETADR;S CHRITT HOLEN.LDA$14.LDX$15.STASTEP.STXST EP+1.ORASTEP+1;STEP =0 ?.BEQSLZUKLEIN;JA , FEHLER MELDEN.LDA#0;KEINE OPTIONEN GES ETZT.STARENOPTS.OPTIONS:JSRCHRGOT;LETZTE S ZEICHEN LESEN.BEQRENUM2;TRENNZEICHEN, DANN UMNUMERIEREN.JSRCHRGET;NAECHSTES ZE ICHEN HOLEN.CMP#'T;T - TABELLE.BEQTABAN. CMP#'K;K - KOMMENTARZEILEN.BEQKOMAN.CMP# 'N;N - NEUE NUMMERN.BEQNEWAN.CMP#'B;B - BLANK'S.BNEOPTIONS.LDA#1;BLANKS AN.BIT.T ABAN:LDA#128;TABELLE AN.BIT.KOMAN:LDA#64 ;KOMMENTARTZ. AN.BIT.NEWAN:LDA#2+128;NEU E NUMMERN AN.ORARENOPTS;BIT SETZEN.STARE NOPTS.BNEOPTIONS. .RENUM2:LDY#0;IST EIN PROGRAMM IM SPEICHER ?.LDA(BASSTART),Y.I NY.ORA(BASSTART),Y.BNEPASS1;JA.RTS;NEIN, FERTIG. .;******** P A S S 1 ********* **********. .PASS1:JSRMOVETOTOP;PROGRAMM NACH OBEN VERSCHIEBEN.LDA#'1.JSRPASS;PA SS 1 AUSGEBEN.PASS1L:LDY#0+1;PROGRAMMEND E ?.LDA(AZG),Y.INY.ORA(AZG),Y.BNENOPASS2 ;NEIN.JMPPASS2;JA, DANN WEITER BEI PASS 2.NOPASS2:LDY#3+1;ZEILENNUMMER HIGH.LDA( AZG),Y.STA$62;ALS AKTUELLE ZEILE SPEICHE RN.TAX;UND MERKEN.DEY.LDA(AZG),Y;ZEILENN UMMER LOW.STA$63;ALS AKTUELLE ZEILE SPEI CHERN.PHA;UND MERKEN.DEY.TXA;ZEILENNUMME R HIGH IN LINK-POINTER.STA(AZG),Y.DEY;ZE ILENNUMMER LOW IN LINK-POINTER.PLA.STA(A ZG),Y.LDY#3+1;ZEILENNUMMER >= STARTZEILE ?.LDASTARTLINE+1.CMP(AZG),Y.BCCSETNEWNU M;JA.BEQLAB1.TONOSETNEW:JMPNOSETNEW;NEIN .LAB1:DEY;LOW BYTE PRUEFEN.LDA(AZG),Y.CM PSTARTLINE.BCCTONOSETNEW;NEIN.SETNEWNUM: BITRENOPTS;STATUS TESTEN.BPLUNTAB;KEINE TABELLE AUSGEBEN.LDX#66.JSRBASICROM;AKTU ELLE ZEILENNUMMER AUSGEBEN.LDA#'=;"=" AU SGEBEN.JSRBASOUT.UNTAB:LDARENOPTS;NEUE N R. BEI KOMMENTAR ?.AND#2.BEQNNN;NEIN.LDY #4+1.LDA(AZG),Y;KOMMENTARZEILE ?.CMP#TKR EM.BEQGETNEW;JA, REM.CMP#TKDATA.BEQGETNE W;JA, DATA.INY.LDA(AZG),Y.BNENNN;NEIN, L AENGER ALS 1 ZEICHEN.DEY.LDA(AZG),Y.CMP# ':.BEQGETNEW;JA, ':'.CMP#32.BNENNN;NEIN. GETNEW:LDA#'?;"?" AUSGEBEN.JSRBASOUT.ISO UT:LDA#0;NUMMER=0.STANUM.STANUM+1.ZAHLEI N:LDX#40;EIN ZEICHEN EINLESEN.JSRBASICRO M.CMP#13.BEQENDZAHL;RETURN.CMP#'0;ZIFFER ?.BCCZAHLEIN;NEIN, UEBERLESEN.CMP#'9+1. BCSZAHLEIN;NEIN, UEBERLESEN.PHA;ZIFFER M ERKEN.JSRNUMMAL10;ZEILENNUMMER MAL 10.PL A.CLC;+ ZIFFER.AND#%1111;(WANDLUNG "0".. "9" NACH 0..9).ADCNUM.STANUM;ERGIBT DIE ZEILENNUMMER.BCCZAHLEIN.INCNUM+1.BNEZAHL EIN.ENDZAHL:JSRBASOUT;RETURN AUSGEBEN.LD ANUM;NUMMER=0 ?.ORANUM+1.BEQNNN;JA, DANN KEINE ZAHL EINGEGEBEN.LDANUM+1;NUMER< A KTUELLE ZEILENNUMMER ?.CMPNEWSTART+1.BCC GETNEW;JA, NEUE ZAHL EINLESEN.BNEISIO;NE IN.LDANUM.CMPNEWSTART.BCCGETNEW;JA, NEUE ZAHL EINLESEN.ISIO:LDANUM;NUMMER ALS NE UEN STARTWERT SETZEN.STANEWSTART.LDANUM+ 1.STANEWSTART+1. .NNN:LDY#0+1;NEWSTART A LS ZEILENNUMMER.CLC;IN DEN LINK-POINTER SETZEN.LDANEWSTART.STA$63;FUER AUSGABE S PEICHERN.STA(AZG),Y.ADCSTEP;STEP ADDIERE N.STANEWSTART.INY.LDANEWSTART+1.STA$62.S TA(AZG),Y.ADCSTEP+1.STANEWSTART+1.BITREN OPTS;TABELLE DRUCKEN ?.BPLNOSETNEW.LDX#6 6;JA, DANN NEUE ZEILENNUMMER AUSGEBEN.JS RBASICROM.LDA#13;NEUE ZEILE.JSRBASOUT.NO SETNEW:LDY#0;4 BYTE AN PROGRAMMSTART UEB ERTRAGEN.JSRCOPYBYTE.JSRCOPYBYTE.JSRCOPY BYTE.JSRCOPYBYTE.TRANS:LDY#0;EIN BYTE UE BERTRAGEN.JSRCOPYBYTE.TRANSL:CMP#0;TRENN BYTE ?.TOPASS1L:BNENEXTVGL;JA, NEUE ZEIL E BEHANDELN.JMPPASS1L.NEXTVGL:CMP#'";STR ING ?.BNENOSTRING1;NEIN.STRING1:JSRCOPYB YTE;STRING UEBERLESEN.CMP#0;BIS ENDE DER ZEILE.BEQTOPASS1L.CMP#'";ODER HOCHKOMMA .BEQTRANS.BNESTRING1.NOSTRING1:CMP#TKREM ;REM ?.BEQTRANSREST;JA, REST DER ZEILE U EBERTRAGEN.CMP#TKDATA;DATA ?.BEQTRANSRES T;JA, REST DER ZEILE UEBERTRAGEN.CMP#TKG OTO;GOTO ?.BEQGOTO1;JA.CMP#TKGOSUB;GOSUB ?.BEQGOTO1.CMP#TKTHEN;THEN ?.BNETRANS;N EIN, NAECHSTES BYTE UEBERTRAGEN. .THEN1: INY;ZEICHEN NACH THEN TESTEN.LDA(AZG),Y. CMP#32;LEERZEICHEN UEBERLESEN.BEQTHEN1.C MP#'0;ZIFFER ?.BCCTRANS;NEIN, NUR UEBERT RAGEN.CMP#'9+1.BCSTRANS.LDY#0;JA, CODE 2 15 EINSETZEN.LDA#215.STA(AZG2),Y.BNEGOTO 1;UND BEI GOTO WEITERMACHEN. .GOTO1:LDA# 0;ZEILENNUMMER NACH GOTO IST NULL.STANUM .STANUM+1.GOTO1LEER:JSRRENGET;LEERZEICHE N UEBERLESEN.CMP#32.BEQGOTO1LEER.BNECONT GOTO1;ZEILENNUMMER EINLESEN.GOTO1L:JSRRE NGET;NAECHSTES ZEICHEN LESEN.CONTGOTO1:C MP#'0;ZEICHEN IST ZIFFER ?.BCCNUMBERENDS ;NEIN.CMP#'9+1.BCSNUMBERENDS;NEIN.PHA;ZI FFER MERKEN.JSRNUMMAL10;ZEILENNUMMER MAL 10.PLA.CLC;+ ZIFFER.AND#%1111;(WANDLUNG "0".."9" NACH 0..9).ADCNUM.STANUM;ERGIB T DIE ZEILENNUMMER.BCCGOTO1L.INCNUM+1.JM PGOTO1L.NUMBERENDS:PHA;LETZTES ZEICHEN M ERKEN.LDANUM;ZEILENNUMMER ALS 16-BIT ZAH L.JSRPUT;SPEICHERN.LDANUM+1.JSRPUT.PLA;L ETZTES ZEICHEN WAR EIN KOMMA ?.JSRPUT.CM P#',.BEQGOTO1;JA, WEITERE SPRUNGZIELE UM WANDELN.JMPTRANSL;SONST REST DER ZEILE B EHANDELN. .TRANSREST:JSRCOPYBYTE;REST DE R ZEILE KOPIEREN.CMP#0.BNETRANSREST;WEIT ER BIS ZEILENENDE ERREICHT.JMPPASS1L. .N UMMAL10:ASLNUM;NUM *2.ROLNUM+1.LDANUM+1. PHA;MERKEN.LDANUM.PHA.ASLNUM;(NUM*2)*4.R OLNUM+1.ASLNUM.ROLNUM+1;ERGIBT NUM*8.PLA .CLC;NUM*2 ADDIEREN.ADCNUM.STANUM.PLA.AD CNUM+1.STANUM+1;=NUM*8+NUM*2=NUM*10.RTS. .RENGET:INCAZG;NAECHSTES ZEICHEN LESEN. BNENINC1;AZG+1.INCAZG+1.NINC1:LDA(AZG),Y ;ZEICHEN LESEN.RTS. .COPYBYTE:JSRRENGET; ZEICHEN LESEN.PUT:INCAZG2;AZG2 +1.BNENIN C2.INCAZG2+1.NINC2:STA(AZG2),Y;UND ZEICH EN SPEICHERN.RTS. .NUM:.EQMEM+11;ZEILENN UMMER. .;******** P A S S 2 *********** ********. .PASS2:LDA#'2;PROGRAMM-ENDE-BY TE UEBERTRAGEN.JSRPASS.LDY#0.JSRCOPYBYTE .JSRCOPYBYTE.CLC;PROGRAMMENDE +1.LDA#1.A DCAZG2.STABASICEND;ALS BASICPROGRAMMENDE SPEICHERN.LDA#0.ADCAZG2+1.STABASICEND+1 .LDABASSTART;AZG AUF PROGRAMMANFANG SETZ EN.STAAZG.LDABASSTART+1.STAAZG+1.DOPASS2 :LDY#0;EIN ZEICHEN LESEN.LDA(AZG),Y.STAA KTZEILE;ALS AKTUELLE ZEILENNUMMER SETZEN .INY;FUER DIE FEHLERMELDUNGEN.LDA(AZG),Y .STAAKTZEILE+1.INY;ORGINALE ZEILENNUMMER UEBERLESEN.INY.PASS2L:INY;ZEICHEN LESEN .LDA(AZG),Y.BEQEOLP2;ZEILENENDE ERREICHT .CMP#'";STRING ?.BNENOSTRING2;NEIN.STRIN G2:INY;STRING UEBERLESEN.LDA(AZG),Y.BEQE OLP2;BIS ENDE DER ZEILE.CMP#'";ODER BIS HOCHKOMMA.BEQPASS2L.BNESTRING2.NOSTRING2 :CMP#TKGOTO.BEQGOTO2;GOTO.CMP#TKGOSUB.BE QGOTO2;GOSUB.CMP#215;THEN ?.BNEPASS2L;NE IN.GOTO2:INY;ZEILENNUMMER IN NUM SPEICHE RN.LDA(AZG),Y.STANUM.STYYMEM;Y MERKEN.IN Y.LDA(AZG),Y.STANUM+1.JSRSUCHZEILE;ZEILE SUCHEN (LIEFERT NEUE ZEILENNUMMER).LDYY MEM;Y RESTAURIEREN.BCSUNKNOWN;C=1, DANN ZEILE NICHT GEFUNDEN.STA(AZG),Y;NEUE ZEI LENNUMMER SPEICHERN.INY.TXA.STA(AZG),Y.I NY.LDA(AZG),Y;NAECHSTEST ZEICHEN TESTEN. CMP#',;KOMMA ?.BEQGOTO2;JA, NOCH EINE ZE ILENNUMMER.DEY;SONST ZEILE WEITERUNTERSU CHEN.JMPPASS2L.UNKNOWN:INY;ZEILE EXISTIE RT NICHT.INY;ALTE ZEILENNUMMER STEHEN LA SSEN.LDA(AZG),Y.CMP#',;FOLGT EIN KOMMA.B EQGOTO2;DANN NAECHSTE ZEILENNUMMER.DEY;S ONST WEITERUNTERSUCHEN.JMPPASS2L. .EOLP2 :CLC;ZEILE BEENDET.INY;Y AUF AZG ADDIERE N.TYA.ADCAZG;-> AZG ZEIGT AUF NAECHSTE Z EILE.STAAZG.BCCNCHE.INCAZG+1.NCHE:LDY#0; PROGRAMMENDE ERREICHT.LDA(AZG),Y.INY.ORA (AZG),Y.BNEDOPASS2;NEIN.JSRMOVETOTOP;JA, PROGRAMM NACH OBEN VERSCHIEBEN. .;***** *** P A S S 3 *******************. .LDA #'3.JSRPASS.PASS3:LDY#1;LINK-POINTER ALS ZEILENNUMMER SETZEN.LDA(AZG),Y.PHA;LOW MERKEN.LDA#8;$0808 ALS LINKPOINTER SETZE N.STA(AZG),Y.INY.LDA(AZG),Y.TAX;HIGH MER KEN.LDA#8;$0808 SETZEN (HIGH).STA(AZG),Y .INY;LOW-BYTE ZEILENNUMMER SETZEN.PLA.ST A(AZG),Y.INY.TXA;HIGH BYTE SETZEN.STA(AZ G),Y.LDY#0.JSRCOPYBYTE;ALLE 4 BYTE UEBER TRAGEN.JSRCOPYBYTE.JSRCOPYBYTE.JSRCOPYBY TE.PASS3L:JSRCOPYBYTE;EIN ZEICHEN UEBERT RAGEN.PASS3L2:CMP#0;NULLBYTE ?.BEQEOLP3; JA, ZEILENENDE ERREICHT.CMP#'";STRING.BN ENOSTRING3.STRING3:JSRCOPYBYTE;STRING UE BERLESEN.CMP#0;BIS ENDE DER ZEILE.BEQEOL P3.CMP#'";ODER BIS HOCHKOMMATA.BEQPASS3L .BNESTRING3.NOSTRING3:CMP#TKGOTO.BEQGOTO 3;GOTO.CMP#TKGOSUB.BEQGOTO3;GOSUB.CMP#21 5;THEN ?.BNEPASS3L;NEIN.LDA#TKTHEN;THEN- TOKEN WIEDER EINSETZEN.STA(AZG2),Y.GOTO3 :LDARENOPTS;STATUS TESTEN.AND#1;BLANK EI NFUEGEN.BEQGOTO4;NEIN.LDA#32;JA, LEERZEI CHEN EINSETZEN.JSRPUT.GOTO4:JSRRENGET;ZE ILENNUMMER LESEN.STA$63;UND FUER WANDLUN G SPEICHERN.JSRRENGET.STA$62.LDX#$90;16- BIT IN ASCII WANDELN.SEC;UND AB $100 SPE ICHERN.STXXMEM.LDX#8.JSRBASICROM.LDX#68. JSRBASICROM.LDX#$FF.LDY#0.PUTZAHL:INX;EI N ZEICHEN AUS PUFFER HOLEN.LDA$100,X.BEQ ZAHLREADY;NULLBYTE, DANN ENDE DER ZEICHE NKETTE.JSRPUT;ZEICHEN SPEICHERN.JMPPUTZA HL;BIS ALLE ZEICHEN GESPEICHERT.ZAHLREAD Y:JSRCOPYBYTE;NAECHSTES ZEICHEN UEBERTRA GEN.CMP#',;WAR ES EIN KOMMA ?.BEQGOTO3;D ANN NOCH EIN ZEILENNUMMER.JMPPASS3L2;SON ST WEITER UEBERTRAGEN. .EOLP3:INY;ENDE D ER ZEILE ERREICHT.LDA(AZG),Y;ENDE DES PR OGRAMMS ERREICHT ?.INY.ORA(AZG),Y.BEQNOP ASS3.JMPPASS3;NEIN, WEITERUEBERTRAGEN.NO PASS3:LDY#0;ZWEI NULLBYTE UEBERTRAGEN.JS RCOPYBYTE.JSRCOPYBYTE.LDA#0;PROGRAMMENDE NEU SETZEN.SEC.ADCAZG2.STABASICEND.LDAA ZG2+1.ADC#0.STABASICEND+1.JMPBBOLD;UND L INK-POINTER NEU BESETZEN. . .SUCHZEILE:L DA#0.STAFOUFLAG;FLAG FUER 'GEFUNDEN' LOE SCHEN.LDABASSTART;ZEILE SUCHEN.STAAZG2;A ZG2 AUF PROGRAMMSTART.LDABASSTART+1.STAA ZG2+1.VGLNUM:LDY#0;NEUE ZEILENNUMMER AUS LINK-POINTER LESEN.LDA(AZG2),Y;ZEILENNU MMER MERKEN.STASTEP.INY.LDA(AZG2),Y.STAS TEP+1.INY.BITFOUFLAG;BEREITS GEFUNDEN.BM IFOUNDET;JA.LDA(AZG2),Y.CMPNUM.BNECONTVG L;NEIN, ZUR NAECHSTEN ZEILE.INY.LDA(AZG2 ),Y.CMPNUM+1;ZEILENNUMMER HIGH VERGLEICH EN.BNECONTVGL;UNGLEICH.FOUNDET:LDA#128;F LAG FUER 'GEFUNDEN SETZEN'.STAFOUFLAG.BI TRENOPTS;KOMMENTARZEILEN UEBERSPRINGEN ? .BVCNEINJK.LDY#4.LDA(AZG2),Y.CMP#TKREM.B EQCONTVGL;NAECHSTE ZEILE SUCHEN.CMP#TKDA TA.BEQCONTVGL;NAECHSTE ZEILE SUCHEN.INY. LDA(AZG2),Y.BNENEINJK.DEY.LDA(AZG2),Y.CM P#':.BEQCONTVGL;NAECHSTE ZEILE SUCHEN.CM P#32.BEQCONTVGL;NAECHSTE ZEILE SUCHEN.BN ENEINJK;NEIN, ZEILE LIEFERN.CONTVGL:LDY# 1;NAECHSTEN ZEILENANFANG SUCHEN.COTHEN:I NY.INY.CONTVGLL:INY;EIN BYTE TESTEN.LDA( AZG2),Y;NULL ?.BEQCONELI;JA, DANN ZEILEN ENDE GEFUNDEN.CMP#215;THEN ?.BEQCOTHEN;J A, 2 BYTE UEBERLESEN.CMP#TKGOTO.BEQCOGOT O;GOTO ODER GOSUB ?.CMP#TKGOSUB.BNECONTV GLL.COGOTO:INY;JA, 2 BYTE UEBERLESEN.INY .INY.LDA(AZG2),Y;AUF KOMMA TESTEN.CMP#', .BEQCOGOTO;JA, DANN WEITERE BYTE UEBERLE SEN.DEY;NEIN, WEITERVERGLEICHEN.BNECONTV GLL.CONELI:INY;ZUR NAECHSTEN ZEILE.TYA;A ZG2+Y.CLC.ADCAZG2.STAAZG2;ZEIGT AUF NAEC HSTE ZEILE.BCCNCHE2.INCAZG2+1.NCHE2:LDY# 0;AUF PROGRAMMENDDE TESTEN.LDA(AZG2),Y.I NY.ORA(AZG2),Y.BNEVGLNUM;NEIN.BITFOUFLAG ;ZEILE BEREITS GEFUNDEN ?.BPLILLEG;NEIN. LDA#<WARN;JA, WARNUNG.LDY#>WARN;MELDEN.J SRSTROUT.LDX#70.JSRBASICROM;ZEILENNUMMER AUSGEBEN.NEINJK:LDASTEP;LETZTE ZEILENNU MMER ZURUECKLIEFERN.LDXSTEP+1.CLC.RTS. . ILLEG:LDA#<ILLEGAL;JA, UNDEF'D STATEMENT .LDY#>ILLEGAL;MELDEN.JSRSTROUT. .LDX#70. JSRBASICROM;ZEILENNUMMER AUSGEBEN.SEC;FE HLER-FLAG SETZEN.RTS. .FOUFLAG:.BY0;FLAG FUER 'GEFUNDEN'. .ILLEGAL:.BY13,"UNDEF' D STATEMENT",0.PASSTXT:.BY13,">>> PASS " ,0.WARN:.BY13,"STATEMENT IS END",0. .PAS S:PHA.LDA#<PASSTXT;'PASS' AUSGEBEN.LDY#> PASSTXT.JSRSTROUT.PLA;NUMMER AUSGEBEN.JS RBASOUT.LDA#13;NEUE ZEILE.JMPBASOUT. .ST ROUT:STAXMEM;STRING UNTER ROM AUSGEBEN.L DAAZG;AZG MERKEN.PHA.LDAAZG+1.PHA.LDAXME M;AKKU ZURUECKHOLEN.STAAZG;AZG AUF STRIN G SETZEN.STYAZG+1.LDY#0.STROUTL:LDA(AZG) ,Y;ZEICHENWEISE AUSGEBEN.BEQENDERREI;BIS NULLBYTE ERREICHT.JSRBSOUT2.INY.BNESTRO UTL;WEITER AUSGEBEN.ENDERREI:PLA;AZG VOM STACK HOLEN.STAAZG+1.PLA.STAAZG.RTS;FER TIG. .MOVETOTOP:SEC;BASIC PRG. ZUM RAMTO P VERSCHIEBEN.LDABASICEND;ANZ. BYTE = EN DE-ANFANG.SBCBASSTART.STAMOVEBYTES.LDABA SICEND+1.SBCBASSTART+1.STAMOVEBYTES+1.LD ABASSTART;VON = ANFANG.LDXBASSTART+1.STA MOVEVON.STXMOVEVON+1.SEC;NACH= RAMTOP-AN Z. BYTE.LDABASEND.SBCMOVEBYTES.STAMOVENA CH.LDABASEND+1.SBCMOVEBYTES+1.STAMOVENAC H+1.JSRDOBMOVE;VERSCHIEBEN.LDXBASSTART+1 ;AZG2 AUF BASICSTART SETZEN.LDABASSTART. STAAZG2.STXAZG2+1.JSRDECAZG;AZG-1.JMPDEC AZG2;AZG2-1...Y
> CLICK IMAGE PREVIEW FOR FULL MODAL