MON
FILE INFORMATION
FILENAME(S): MON
FILE TYPE(S): PRG
FILE SIZE: 12.5K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 4 disk(s)
FILE HASH
4740d38bdbe474f3db6ac9f21df9a53716b581aafd5d0b71beb0190fa42408e8
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | MON | PRG | Treasure Chest - Klaus Der Suhler | 22 | 4 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | MON | PRG | Treasure Chest - Klaus Der Suhler | 13 | 9 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | MON | PRG | Treasure Chest - Klaus Der Suhler | 22 | 4 | DOWNLOAD FILE |
| ORION CEBIT | MON | PRG | Treasure Chest - OzzyC64 | 7 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: E4 31 3B 3B 3B 2D 2D 2D 20 D1 55 45 4C 4C 44 41 |.1;;;--- .UELLDA| 00000010: 54 45 49 20 4D 4F 4E 00 20 00 3B 2A 2A 2A 2A 2A |TEI MON. .;*****| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 CD |**.;* * .| 00000050: 20 CF 20 CE 20 C9 20 D4 20 CF 20 D2 20 20 20 20 | . . . . . . | 00000060: 20 20 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A | * *.;***| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 00 20 00 4D 4F 4E 53 54 41 52 54 3A |****. .MONSTART:| 000000A0: 4C 44 58 23 36 34 3B CD 4F 4E 49 54 4F 52 20 CD |LDX#64;.ONITOR .| 000000B0: 45 4C 44 55 4E 47 00 4A 53 52 57 52 49 54 45 00 |ELDUNG.JSRWRITE.| 000000C0: 4A 53 52 50 55 54 4D 4F 4E 52 4F 3B D2 4F 55 54 |JSRPUTMONRO;.OUT| 000000D0: 49 4E 45 4E 20 53 50 45 49 43 48 45 52 4E 00 4C |INEN SPEICHERN.L| 000000E0: 44 58 23 31 3B C4 49 53 4B 53 54 52 2E 20 53 50 |DX#1;.ISKSTR. SP| 000000F0: 45 49 43 48 45 52 4E 00 53 45 54 4F 52 44 3A 4C |EICHERN.SETORD:L| 00000100: 44 41 44 49 53 4B 53 54 52 49 4E 47 2C 58 00 53 |DADISKSTRING,X.S| 00000110: 54 41 42 55 46 46 45 52 32 2D 31 2C 58 00 49 4E |TABUFFER2-1,X.IN| 00000120: 58 00 43 50 58 23 31 34 3B 31 34 20 C2 59 54 45 |X.CPX#14;14 .YTE| 00000130: 00 42 4E 45 53 45 54 4F 52 44 00 4C 44 41 42 52 |.BNESETORD.LDABR| 00000140: 45 41 4B 56 3B C2 D2 C5 C1 CB 20 C1 44 52 2E 20 |EAKV;..... .DR. | 00000150: 4D 45 52 4B 45 4E 00 4C 44 58 42 52 45 41 4B 56 |MERKEN.LDXBREAKV| 00000160: 2B 31 00 53 54 41 42 52 4B 00 53 54 58 42 52 4B |+1.STABRK.STXBRK| 00000170: 2B 31 00 4C 44 41 23 3C 42 52 45 41 4B 4A 55 4D |+1.LDA#<BREAKJUM| 00000180: 50 3B C2 D2 C5 C1 CB 2D D6 45 43 54 4F 52 20 55 |P;.....-.ECTOR U| 00000190: 4D 53 45 54 5A 45 4E 00 4C 44 58 23 3E 42 52 45 |MSETZEN.LDX#>BRE| 000001A0: 41 4B 4A 55 4D 50 00 53 54 41 42 52 45 41 4B 56 |AKJUMP.STABREAKV| 000001B0: 00 53 54 58 42 52 45 41 4B 56 2B 31 00 4C 44 41 |.STXBREAKV+1.LDA| 000001C0: 23 24 33 37 3B D0 52 4F 5A 45 53 53 4F 52 50 4F |#$37;.ROZESSORPO| 000001D0: 52 54 53 54 41 4E 44 41 52 54 00 53 54 41 50 50 |RTSTANDART.STAPP| 000001E0: 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 42 52 |.JMPMONICMD. .BR| 000001F0: 45 41 4B 3A 4C 44 58 23 31 3B D2 55 45 43 4B 4B |EAK:LDX#1;.UECKK| 00000200: 45 48 52 20 4E 41 43 48 20 C2 D2 C5 C1 CB 00 48 |EHR NACH ......H| 00000210: 4F 4C 52 45 47 53 3A 50 4C 41 3B D2 45 47 49 53 |OLREGS:PLA;.EGIS| 00000220: 54 45 52 20 48 4F 4C 45 4E 00 53 54 41 42 55 46 |TER HOLEN.STABUF| 00000230: 46 45 52 33 2C 58 3B 55 4E 44 20 53 50 45 49 43 |FER3,X;UND SPEIC| 00000240: 48 45 52 4E 00 49 4E 58 00 43 50 58 23 37 00 42 |HERN.INX.CPX#7.B| 00000250: 4E 45 48 4F 4C 52 45 47 53 00 54 53 58 3B D3 54 |NEHOLREGS.TSX;.T| 00000260: 41 43 4B 50 4F 49 4E 54 45 52 20 48 4F 4C 45 4E |ACKPOINTER HOLEN| 00000270: 00 53 54 58 53 50 00 4A 4D 50 52 45 47 49 53 54 |.STXSP.JMPREGIST| 00000280: 45 52 3B D2 45 47 49 53 54 45 52 20 41 4E 5A 45 |ER;.EGISTER ANZE| 00000290: 49 47 45 4E 00 20 00 4D 4F 4E 49 52 54 3A 50 4C |IGEN. .MONIRT:PL| 000002A0: 41 3B D2 55 45 43 4B 4B 45 48 52 20 4E 41 43 48 |A;.UECKKEHR NACH| 000002B0: 20 D2 D4 D3 00 53 54 41 41 43 3B D2 45 47 2E 20 | ....STAAC;.EG. | 000002C0: 4D 45 52 4B 45 4E 00 50 4C 41 00 53 54 41 53 54 |MERKEN.PLA.STAST| 000002D0: 3B D3 54 41 54 55 53 00 53 54 58 58 52 3B D8 00 |;.TATUS.STXXR;..| 000002E0: 53 54 59 59 52 3B D9 00 54 53 58 3B D3 54 41 43 |STYYR;..TSX;.TAC| 000002F0: 4B 50 4F 49 4E 54 45 52 00 53 54 58 53 50 00 20 |KPOINTER.STXSP. | 00000300: 00 52 45 47 49 53 54 45 52 3A 4C 44 58 23 36 35 |.REGISTER:LDX#65| 00000310: 3B D2 45 47 49 53 54 45 52 20 41 4E 5A 45 49 47 |;.EGISTER ANZEIG| 00000320: 45 4E 00 4A 53 52 57 52 49 54 45 00 52 45 47 49 |EN.JSRWRITE.REGI| 00000330: 53 54 45 52 31 3A 4C 44 41 23 27 3B 3B D2 45 47 |STER1:LDA#';;.EG| 00000340: 49 53 54 45 52 20 C2 45 46 45 48 4C 00 4A 53 52 |ISTER .EFEHL.JSR| 00000350: 42 53 4F 55 54 00 4C 44 41 50 43 4C 3B C1 44 52 |BSOUT.LDAPCL;.DR| 00000360: 45 53 53 45 20 41 55 53 47 45 42 45 4E 00 53 54 |ESSE AUSGEBEN.ST| 00000370: 41 5A 41 48 4C 31 00 4C 44 41 50 43 4C 2B 31 00 |AZAHL1.LDAPCL+1.| 00000380: 53 54 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 |STAZAHL1+1.JSRZA| 00000390: 48 4C 48 45 58 4F 55 54 00 4C 44 41 23 33 32 3B |HLHEXOUT.LDA#32;| 000003A0: C1 43 43 55 20 41 55 53 47 45 42 45 4E 00 4A 53 |.CCU AUSGEBEN.JS| 000003B0: 52 42 53 4F 55 54 00 4C 44 41 41 43 00 4A 53 52 |RBSOUT.LDAAC.JSR| 000003C0: 41 55 53 47 45 42 45 4E 00 4C 44 41 58 52 3B D8 |AUSGEBEN.LDAXR;.| 000003D0: 2D D2 45 47 2E 20 41 55 53 47 45 42 45 4E 00 4A |-.EG. AUSGEBEN.J| 000003E0: 53 52 41 55 53 47 45 42 45 4E 00 4C 44 41 59 52 |SRAUSGEBEN.LDAYR| 000003F0: 3B D9 2D D2 45 47 2E 20 41 55 53 47 45 42 45 4E |;.-.EG. AUSGEBEN| 00000400: 00 4A 53 52 41 55 53 47 45 42 45 4E 00 4C 44 41 |.JSRAUSGEBEN.LDA| 00000410: 53 50 3B D3 54 41 43 4B 2D D0 4F 49 4E 54 45 52 |SP;.TACK-.OINTER| 00000420: 20 41 55 53 47 45 42 45 4E 00 4A 53 52 41 55 53 | AUSGEBEN.JSRAUS| 00000430: 47 45 42 45 4E 00 4C 44 58 23 38 3B D3 54 41 54 |GEBEN.LDX#8;.TAT| 00000440: 55 53 20 C2 49 4E 41 45 52 20 41 55 53 47 45 42 |US .INAER AUSGEB| 00000450: 45 4E 00 4C 44 41 53 54 00 42 49 4E 41 55 53 3A |EN.LDAST.BINAUS:| 00000460: 41 53 4C 3B C2 49 54 2D 3E C3 41 52 52 59 00 50 |ASL;.IT->.ARRY.P| 00000470: 48 41 00 4C 44 41 23 27 30 3B 2D 3E 20 DA 45 49 |HA.LDA#'0;-> .EI| 00000480: 43 48 45 4E 00 41 44 43 23 30 00 4A 53 52 42 53 |CHEN.ADC#0.JSRBS| 00000490: 4F 55 54 3B 41 55 53 47 45 42 45 4E 00 50 4C 41 |OUT;AUSGEBEN.PLA| 000004A0: 00 44 45 58 3B 38 2D C2 49 54 20 3F 00 42 4E 45 |.DEX;8-.IT ?.BNE| 000004B0: 42 49 4E 41 55 53 00 4C 44 41 23 33 32 00 4A 53 |BINAUS.LDA#32.JS| 000004C0: 52 42 53 4F 55 54 00 4C 44 41 50 50 3B 55 4E 54 |RBSOUT.LDAPP;UNT| 000004D0: 45 52 53 54 45 20 33 20 C2 49 54 00 4C 44 58 23 |ERSTE 3 .IT.LDX#| 000004E0: 35 3B 56 4F 4E 20 50 50 20 41 55 53 47 45 42 45 |5;VON PP AUSGEBE| 000004F0: 4E 00 42 49 4E 41 55 53 32 3A 41 53 4C 3B 50 50 |N.BINAUS2:ASL;PP| 00000500: 2A 33 32 00 44 45 58 00 42 4E 45 42 49 4E 41 55 |*32.DEX.BNEBINAU| 00000510: 53 32 00 4C 44 58 23 33 3B 4F 42 45 52 45 20 33 |S2.LDX#3;OBERE 3| 00000520: 20 C2 49 54 20 41 55 53 47 45 42 45 4E 00 42 49 | .IT AUSGEBEN.BI| 00000530: 4E 41 55 53 33 3A 41 53 4C 00 50 48 41 00 4C 44 |NAUS3:ASL.PHA.LD| 00000540: 41 23 27 30 00 41 44 43 23 30 00 4A 53 52 42 53 |A#'0.ADC#0.JSRBS| 00000550: 4F 55 54 00 50 4C 41 00 44 45 58 3B C6 45 52 54 |OUT.PLA.DEX;.ERT| 00000560: 49 47 20 3F 00 42 4E 45 42 49 4E 41 55 53 33 00 |IG ?.BNEBINAUS3.| 00000570: 4C 44 41 23 33 32 00 4A 53 52 42 53 4F 55 54 00 |LDA#32.JSRBSOUT.| 00000580: 4C 44 41 53 54 3B D3 54 41 54 55 53 20 48 45 58 |LDAST;.TATUS HEX| 00000590: 2E 20 41 55 53 47 45 42 45 4E 00 4A 53 52 41 55 |. AUSGEBEN.JSRAU| 000005A0: 53 47 45 42 45 4E 00 4C 44 41 50 50 3B 50 50 20 |SGEBEN.LDAPP;PP | 000005B0: 48 45 58 2E 20 41 55 53 47 45 42 45 4E 00 4A 53 |HEX. AUSGEBEN.JS| 000005C0: 52 41 55 53 47 45 42 45 4E 00 4A 4D 50 4D 4F 4E |RAUSGEBEN.JMPMON| 000005D0: 49 43 4D 44 00 20 00 4D 4F 4E 49 43 4D 44 3A 4A |ICMD. .MONICMD:J| 000005E0: 53 52 4E 45 58 54 5A 45 49 3B C2 45 46 45 48 4C |SRNEXTZEI;.EFEHL| 000005F0: 20 48 4F 4C 45 4E 00 4A 53 52 50 55 54 4D 4F 4E | HOLEN.JSRPUTMON| 00000600: 52 4F 00 4C 44 58 53 54 41 43 4B 3B D3 54 41 43 |RO.LDXSTACK;.TAC| 00000610: 4B 50 4F 49 4E 54 45 52 20 4B 4F 52 52 49 47 49 |KPOINTER KORRIGI| 00000620: 45 52 45 4E 00 54 58 53 00 4C 44 41 41 53 53 46 |EREN.TXS.LDAASSF| 00000630: 4C 32 3B 4B 45 49 4E 20 C4 49 53 4B 4D 4F 4E 20 |L2;KEIN .ISKMON | 00000640: C2 45 46 45 48 4C 00 41 4E 44 23 24 46 46 2D 34 |.EFEHL.AND#$FF-4| 00000650: 00 53 54 41 41 53 53 46 4C 32 00 4A 53 52 42 41 |.STAASSFL2.JSRBA| 00000660: 53 49 4E 3B C2 45 46 45 48 4C 20 48 4F 4C 45 4E |SIN;.EFEHL HOLEN| 00000670: 00 4C 44 58 23 32 33 3B 49 4E 20 D4 41 42 45 4C |.LDX#23;IN .ABEL| 00000680: 4C 45 20 53 55 43 48 45 4E 00 53 45 41 4D 4F 4E |LE SUCHEN.SEAMON| 00000690: 43 4D 44 3A 43 4D 50 4D 4F 4E 49 43 4D 44 53 2C |CMD:CMPMONICMDS,| 000006A0: 58 00 42 45 51 46 4F 4D 4F 43 4D 44 00 44 45 58 |X.BEQFOMOCMD.DEX| 000006B0: 00 42 4D 49 4D 4F 4E 49 43 4D 44 3B 4E 49 43 48 |.BMIMONICMD;NICH| 000006C0: 54 20 49 4E 20 D4 41 42 45 4C 4C 45 00 42 50 4C |T IN .ABELLE.BPL| 000006D0: 53 45 41 4D 4F 4E 43 4D 44 3B 57 45 49 54 45 52 |SEAMONCMD;WEITER| 000006E0: 53 55 43 48 45 4E 00 20 00 46 4F 4D 4F 43 4D 44 |SUCHEN. .FOMOCMD| 000006F0: 3A 54 58 41 3B C2 45 46 45 48 4C 20 47 45 46 55 |:TXA;.EFEHL GEFU| 00000700: 4E 44 45 4E 00 41 53 4C 00 54 41 58 00 4C 44 41 |NDEN.ASL.TAX.LDA| 00000710: 4D 4F 43 4D 44 54 41 42 2B 31 2C 58 3B C1 44 52 |MOCMDTAB+1,X;.DR| 00000720: 2E 20 44 45 52 20 D2 4F 55 54 49 4E 45 20 41 55 |. DER .OUTINE AU| 00000730: 46 20 D3 54 41 43 4B 00 50 48 41 00 4C 44 41 4D |F .TACK.PHA.LDAM| 00000740: 4F 43 4D 44 54 41 42 2C 58 00 50 48 41 00 52 54 |OCMDTAB,X.PHA.RT| 00000750: 53 3B 5A 55 52 20 D2 4F 55 54 49 4E 45 00 20 00 |S;ZUR .OUTINE. .| 00000760: 3B D4 41 42 45 4C 4C 45 20 44 45 52 20 CD 4F 4E |;.ABELLE DER .ON| 00000770: 49 54 4F 52 42 45 46 45 48 4C 45 20 55 4E 44 20 |ITORBEFEHLE UND | 00000780: C1 44 52 45 53 45 4E 00 4D 4F 4E 49 43 4D 44 53 |.DRESEN.MONICMDS| 00000790: 3A 2E 42 59 22 44 58 46 47 43 41 4C 4D 52 53 3D |:.BY"DXFGCALMRS=| 000007A0: 55 50 27 3A 3B 2C 42 57 49 45 40 2E 56 22 3B C2 |UP':;,BWIE@.V";.| 000007B0: 45 46 45 48 4C 53 4C 49 53 54 45 00 20 00 4D 4F |EFEHLSLISTE. .MO| 000007C0: 43 4D 44 54 41 42 3A 2E 57 4F 44 49 53 41 53 2D |CMDTAB:.WODISAS-| 000007D0: 31 3B 44 2D C4 49 53 41 53 53 45 4D 42 4C 45 52 |1;D-.ISASSEMBLER| 000007E0: 00 2E 57 4F 45 58 49 54 2D 31 3B 58 2D DA 55 4D |..WOEXIT-1;X-.UM| 000007F0: 20 CD 45 4E 55 45 00 2E 57 4F 4D 4F 46 49 4E 44 | .ENUE..WOMOFIND| 00000800: 2D 31 3B 46 2D D3 55 43 48 45 4E 00 2E 57 4F 47 |-1;F-.UCHEN..WOG| 00000810: 4F 2D 31 3B 47 2D C7 4F 00 2E 57 4F 43 4F 44 45 |O-1;G-.O..WOCODE| 00000820: 54 45 58 54 2D 31 3B 43 2D C4 49 53 50 4C 41 59 |TEXT-1;C-.ISPLAY| 00000830: 20 C3 4F 44 45 00 2E 57 4F 41 53 43 49 49 54 45 | .ODE..WOASCIITE| 00000840: 58 54 2D 31 3B 41 2D C1 D3 C3 C9 C9 20 C3 4F 44 |XT-1;A-..... .OD| 00000850: 45 00 2E 57 4F 4D 4F 4E 4C 4F 41 44 2D 31 3B 4C |E..WOMONLOAD-1;L| 00000860: 2D CC CF C1 C4 00 2E 57 4F 4D 45 4D 4F 52 2D 31 |-......WOMEMOR-1| 00000870: 3B 4D 2D D3 50 45 49 43 48 45 52 49 4E 48 41 4C |;M-.PEICHERINHAL| 00000880: 54 00 2E 57 4F 52 45 47 49 53 54 45 52 2D 31 3B |T..WOREGISTER-1;| 00000890: 52 2D D2 45 47 49 53 54 45 52 00 2E 57 4F 4D 4F |R-.EGISTER..WOMO| 000008A0: 4E 53 41 56 45 2D 31 3B 53 2D D3 C1 D6 C5 00 2E |NSAVE-1;S-......| 000008B0: 57 4F 52 41 4D 56 45 52 47 4C 2D 31 3B 3D 2D D3 |WORAMVERGL-1;=-.| 000008C0: 50 45 49 43 48 45 52 56 45 52 47 4C 45 49 43 48 |PEICHERVERGLEICH| 000008D0: 00 2E 57 4F 55 4E 54 45 52 50 52 47 2D 31 3B 55 |..WOUNTERPRG-1;U| 000008E0: 2D CA D3 D2 00 2E 57 4F 50 52 49 50 4C 55 4D 49 |-.....WOPRIPLUMI| 000008F0: 2D 31 3B 50 2D C4 52 55 43 4B 45 52 20 41 4E 2F |-1;P-.RUCKER AN/| 00000900: 41 55 53 00 2E 57 4F 54 49 43 4B 2D 31 3B 54 49 |AUS..WOTICK-1;TI| 00000910: 43 4B 00 2E 57 4F 44 4F 50 50 45 4C 50 55 4E 4B |CK..WODOPPELPUNK| 00000920: 54 2D 31 3B C4 4F 50 50 45 4C 50 55 4E 4B 54 00 |T-1;.OPPELPUNKT.| 00000930: 2E 57 4F 52 45 47 53 49 4E 2D 31 3B D3 45 4D 49 |.WOREGSIN-1;.EMI| 00000940: 4B 4F 4C 4F 4E 00 2E 57 4F 4D 4F 4B 4F 4D 4D 41 |KOLON..WOMOKOMMA| 00000950: 2D 31 3B CB 4F 4D 4D 41 00 2E 57 4F 52 45 41 44 |-1;.OMMA..WOREAD| 00000960: 42 55 46 46 45 52 2D 31 3B C2 4C 4F 43 4B 20 49 |BUFFER-1;.LOCK I| 00000970: 4E 20 C2 55 46 46 45 52 20 4C 45 53 45 4E 00 2E |N .UFFER LESEN..| 00000980: 57 4F 57 52 49 54 45 42 55 46 46 45 52 2D 31 3B |WOWRITEBUFFER-1;| 00000990: C2 4C 4F 43 4B 20 41 55 46 20 C4 49 53 4B 20 53 |.LOCK AUF .ISK S| 000009A0: 43 48 52 45 49 42 45 4E 00 2E 57 4F 49 4E 46 4F |CHREIBEN..WOINFO| 000009B0: 2D 31 3B D4 52 41 43 4B 2F D3 45 43 54 4F 52 20 |-1;.RACK/.ECTOR | 000009C0: 5A 45 49 47 45 4E 00 2E 57 4F 45 44 49 54 42 55 |ZEIGEN..WOEDITBU| 000009D0: 46 46 45 52 2D 31 3B C2 55 46 46 45 52 20 41 4E |FFER-1;.UFFER AN| 000009E0: 5A 45 49 47 45 4E 2F 41 45 4E 44 45 52 4E 00 2E |ZEIGEN/AENDERN..| 000009F0: 57 4F 46 4C 4F 4D 45 4C 44 2D 31 3B 40 2D C6 4C |WOFLOMELD-1;@-.L| 00000A00: 4F 50 50 59 20 C5 52 52 4F 52 00 2E 57 4F 50 55 |OPPY .RROR..WOPU| 00000A10: 4E 4B 54 2D 31 3B D0 55 4E 4B 54 00 2E 57 4F 56 |NKT-1;.UNKT..WOV| 00000A20: 45 52 53 43 48 49 45 42 45 4E 2D 31 3B D6 45 52 |ERSCHIEBEN-1;.ER| 00000A30: 53 43 48 49 45 42 45 4E 00 20 00 52 45 47 53 49 |SCHIEBEN. .REGSI| 00000A40: 4E 3A 4A 53 52 48 45 58 57 49 4E 3B D2 45 47 49 |N:JSRHEXWIN;.EGI| 00000A50: 53 54 45 52 57 45 52 54 45 20 45 49 4E 47 45 42 |STERWERTE EINGEB| 00000A60: 45 4E 00 4C 44 41 5A 41 48 4C 31 3B C1 44 52 45 |EN.LDAZAHL1;.DRE| 00000A70: 53 53 45 20 48 4F 4C 45 4E 00 53 54 41 50 43 4C |SSE HOLEN.STAPCL| 00000A80: 00 4C 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 50 |.LDAZAHL1+1.STAP| 00000A90: 43 4C 2B 31 00 4A 53 52 48 45 58 42 59 49 4E 3B |CL+1.JSRHEXBYIN;| 00000AA0: C1 43 43 55 20 48 4F 4C 45 4E 00 53 54 41 41 43 |.CCU HOLEN.STAAC| 00000AB0: 00 4A 53 52 48 45 58 42 59 49 4E 3B D8 20 48 4F |.JSRHEXBYIN;. HO| 00000AC0: 4C 45 4E 00 53 54 41 58 52 00 4A 53 52 48 45 58 |LEN.STAXR.JSRHEX| 00000AD0: 42 59 49 4E 3B D9 20 48 4F 4C 45 4E 00 53 54 41 |BYIN;. HOLEN.STA| 00000AE0: 59 52 00 4A 53 52 48 45 58 42 59 49 4E 3B D3 54 |YR.JSRHEXBYIN;.T| 00000AF0: 41 43 4B 2D D0 4F 49 4E 54 45 52 20 48 4F 4C 45 |ACK-.OINTER HOLE| 00000B00: 4E 00 53 54 41 53 50 00 4A 53 52 42 49 4E 42 59 |N.STASP.JSRBINBY| 00000B10: 49 4E 3B D3 54 41 54 55 53 46 4C 41 47 47 45 4E |IN;.TATUSFLAGGEN| 00000B20: 20 48 4F 4C 45 4E 00 53 54 41 53 54 00 4A 53 52 | HOLEN.STAST.JSR| 00000B30: 42 49 4E 42 59 49 4E 3B 55 4E 54 2E 20 33 20 C2 |BINBYIN;UNT. 3 .| 00000B40: 49 54 20 44 45 53 20 50 50 20 48 4F 4C 45 4E 00 |IT DES PP HOLEN.| 00000B50: 41 4E 44 23 37 00 4F 52 41 23 24 33 30 00 53 54 |AND#7.ORA#$30.ST| 00000B60: 41 50 50 00 4C 44 41 23 30 00 53 54 41 53 50 41 |APP.LDA#0.STASPA| 00000B70: 4C 54 45 3B CB 4F 52 52 45 4B 54 55 52 20 41 4E |LTE;.ORREKTUR AN| 00000B80: 5A 45 49 47 45 4E 00 4A 4D 50 52 45 47 49 53 54 |ZEIGEN.JMPREGIST| 00000B90: 45 52 31 00 20 00 48 45 58 42 59 49 4E 3A 4A 53 |ER1. .HEXBYIN:JS| 00000BA0: 52 48 45 58 57 49 4E 3B C8 45 58 42 59 54 45 20 |RHEXWIN;.EXBYTE | 00000BB0: 49 4E 20 C1 43 43 55 20 48 4F 4C 45 4E 00 4C 44 |IN .CCU HOLEN.LD| 00000BC0: 41 5A 41 48 4C 31 00 52 54 53 00 20 00 42 49 4E |AZAHL1.RTS. .BIN| 00000BD0: 42 59 49 4E 3A 4A 53 52 42 49 4E 49 4E 3B C2 49 |BYIN:JSRBININ;.I| 00000BE0: 4E 42 59 54 45 20 49 4E 20 C1 43 43 55 20 48 4F |NBYTE IN .CCU HO| 00000BF0: 4C 45 4E 00 4C 44 41 5A 41 48 4C 31 00 52 54 53 |LEN.LDAZAHL1.RTS| 00000C00: 00 20 00 55 4E 54 45 52 50 52 47 3A 4A 53 52 50 |. .UNTERPRG:JSRP| 00000C10: 55 54 41 44 52 45 53 53 45 3B C1 44 52 45 53 53 |UTADRESSE;.DRESS| 00000C20: 45 20 53 50 45 49 43 48 45 52 4E 00 4C 44 41 23 |E SPEICHERN.LDA#| 00000C30: 24 32 30 3B CA D3 D2 20 41 42 4C 45 47 45 4E 00 |$20;... ABLEGEN.| 00000C40: 53 54 41 4A 55 4D 50 42 45 46 45 48 4C 00 4C 44 |STAJUMPBEFEHL.LD| 00000C50: 58 58 52 3B D2 45 47 49 53 54 45 52 20 4C 41 44 |XXR;.EGISTER LAD| 00000C60: 45 4E 00 4C 44 59 59 52 00 4C 44 41 53 54 3B D3 |EN.LDYYR.LDAST;.| 00000C70: 54 41 54 55 53 20 41 55 46 20 D3 54 41 43 4B 00 |TATUS AUF .TACK.| 00000C80: 50 48 41 00 4C 44 41 41 43 3B C1 43 43 55 20 41 |PHA.LDAAC;.CCU A| 00000C90: 55 46 20 D3 54 41 43 4B 00 50 48 41 00 4A 4D 50 |UF .TACK.PHA.JMP| 00000CA0: 52 4F 55 54 49 4E 45 4E 3B D5 4E 54 45 52 50 52 |ROUTINEN;.NTERPR| 00000CB0: 47 2E 20 D3 54 41 52 54 45 4E 00 20 00 47 4F 3A |G. .TARTEN. .GO:| 00000CC0: 4A 53 52 50 55 54 41 44 52 45 53 53 45 3B C1 44 |JSRPUTADRESSE;.D| 00000CD0: 52 45 53 53 45 20 53 50 45 49 43 48 45 52 4E 00 |RESSE SPEICHERN.| 00000CE0: 4C 44 41 23 24 34 43 3B CA CD D0 20 41 42 4C 45 |LDA#$4C;... ABLE| 00000CF0: 47 45 4E 00 53 54 41 4A 55 4D 50 42 45 46 45 48 |GEN.STAJUMPBEFEH| 00000D00: 4C 00 4C 44 58 58 52 3B D2 45 47 49 53 54 45 52 |L.LDXXR;.EGISTER| 00000D10: 20 4C 41 44 45 4E 00 4C 44 59 59 52 00 4C 44 41 | LADEN.LDYYR.LDA| 00000D20: 53 54 3B D3 54 41 54 55 53 20 41 55 46 20 D3 54 |ST;.TATUS AUF .T| 00000D30: 41 43 4B 00 50 48 41 00 4C 44 41 41 43 3B C1 43 |ACK.PHA.LDAAC;.C| 00000D40: 43 55 20 41 55 46 20 D3 54 41 43 4B 00 50 48 41 |CU AUF .TACK.PHA| 00000D50: 00 4A 4D 50 52 4F 55 54 49 4E 45 4E 00 20 00 50 |.JMPROUTINEN. .P| 00000D60: 55 54 41 44 52 45 53 53 45 3A 4A 53 52 48 45 58 |UTADRESSE:JSRHEX| 00000D70: 57 45 52 54 4F 45 3B C1 44 52 2E 20 46 55 45 52 |WERTOE;.DR. FUER| 00000D80: 20 CA CD D0 2F CA D3 D2 20 53 50 45 49 43 48 45 | .../... SPEICHE| 00000D90: 52 4E 00 4C 44 41 5A 41 48 4C 31 3B CB 45 49 4E |RN.LDAZAHL1;.EIN| 00000DA0: 45 20 C5 49 4E 47 41 42 45 20 3F 00 4F 52 41 5A |E .INGABE ?.ORAZ| 00000DB0: 41 48 4C 31 2B 31 00 42 45 51 50 43 41 44 52 3B |AHL1+1.BEQPCADR;| 00000DC0: C4 41 4E 4E 20 D0 C3 20 D3 50 45 49 43 48 45 52 |.ANN .. .PEICHER| 00000DD0: 00 4C 44 41 5A 41 48 4C 31 00 53 54 41 4A 55 4D |.LDAZAHL1.STAJUM| 00000DE0: 50 42 45 46 45 48 4C 2B 31 00 4C 44 41 5A 41 48 |PBEFEHL+1.LDAZAH| 00000DF0: 4C 31 2B 31 00 53 54 41 4A 55 4D 50 42 45 46 45 |L1+1.STAJUMPBEFE| 00000E00: 48 4C 2B 32 00 52 54 53 00 50 43 41 44 52 3A 4C |HL+2.RTS.PCADR:L| 00000E10: 44 41 50 43 4C 3B 41 4C 54 45 52 20 D0 C3 00 53 |DAPCL;ALTER ...S| 00000E20: 54 41 4A 55 4D 50 42 45 46 45 48 4C 2B 31 00 4C |TAJUMPBEFEHL+1.L| 00000E30: 44 41 50 43 4C 2B 31 00 53 54 41 4A 55 4D 50 42 |DAPCL+1.STAJUMPB| 00000E40: 45 46 45 48 4C 2B 32 00 52 54 53 00 20 00 45 58 |EFEHL+2.RTS. .EX| 00000E50: 49 54 3A 4C 44 41 42 52 4B 3B C2 52 45 41 4B 56 |IT:LDABRK;.REAKV| 00000E60: 45 4B 54 4F 52 20 4E 4F 52 4D 41 4C 00 4C 44 58 |EKTOR NORMAL.LDX| 00000E70: 42 52 4B 2B 31 00 53 54 41 42 52 45 41 4B 56 00 |BRK+1.STABREAKV.| 00000E80: 53 54 58 42 52 45 41 4B 56 2B 31 00 4A 4D 50 4D |STXBREAKV+1.JMPM| 00000E90: 41 49 4E 3B 5A 55 4D 20 CD 45 4E 55 45 00 20 00 |AIN;ZUM .ENUE. .| 00000EA0: 4D 45 4D 4F 52 3A 4A 53 52 48 45 58 42 45 52 45 |MEMOR:JSRHEXBERE| 00000EB0: 49 43 48 3B D3 50 45 49 43 48 45 52 42 45 52 45 |ICH;.PEICHERBERE| 00000EC0: 49 43 48 20 41 4E 5A 45 49 47 45 4E 00 4D 45 4D |ICH ANZEIGEN.MEM| 00000ED0: 4F 32 3A 4A 53 52 4E 45 58 54 5A 45 49 00 4C 44 |O2:JSRNEXTZEI.LD| 00000EE0: 41 41 53 53 46 4C 32 3B C4 49 53 4B 2D 4D 4F 4E |AASSFL2;.ISK-MON| 00000EF0: 20 3F 00 41 4E 44 23 34 00 50 48 41 00 42 45 51 | ?.AND#4.PHA.BEQ| 00000F00: 4E 4F 44 49 4D 4F 3B 4E 45 49 4E 00 4C 44 41 23 |NODIMO;NEIN.LDA#| 00000F10: 27 2E 3B 27 2E 27 20 46 55 45 52 20 CD 4F 44 49 |'.;'.' FUER .ODI| 00000F20: 46 49 4B 41 54 49 4F 4E 00 42 49 54 3B 41 55 53 |FIKATION.BIT;AUS| 00000F30: 47 45 42 45 4E 00 4E 4F 44 49 4D 4F 3A 4C 44 41 |GEBEN.NODIMO:LDA| 00000F40: 23 27 3A 3B 53 4F 4E 53 54 20 27 3A 27 20 41 55 |#':;SONST ':' AU| 00000F50: 53 47 45 42 45 4E 00 4A 53 52 42 53 4F 55 54 00 |SGEBEN.JSRBSOUT.| 00000F60: 50 4C 41 3B C4 49 53 4B 2D 4D 4F 4E 20 3F 00 42 |PLA;.ISK-MON ?.B| 00000F70: 4E 45 44 49 4D 4F 3B 4A 41 2D 3E 4E 55 52 20 CC |NEDIMO;JA->NUR .| 00000F80: 4F 57 20 41 55 53 47 45 42 45 4E 00 4C 44 41 5A |OW AUSGEBEN.LDAZ| 00000F90: 47 2B 31 3B C1 44 52 45 53 53 45 20 C8 49 47 48 |G+1;.DRESSE .IGH| 00000FA0: 20 41 55 53 47 45 42 45 4E 00 4A 53 52 48 45 58 | AUSGEBEN.JSRHEX| 00000FB0: 4F 55 54 00 44 49 4D 4F 3A 4C 44 41 5A 47 3B C1 |OUT.DIMO:LDAZG;.| 00000FC0: 44 52 45 53 53 45 20 CC 4F 57 20 41 55 53 47 45 |DRESSE .OW AUSGE| 00000FD0: 42 45 4E 00 4A 53 52 41 55 53 47 45 42 45 4E 00 |BEN.JSRAUSGEBEN.| 00000FE0: 4C 44 59 23 30 00 4D 45 4D 4F 31 3A 4A 53 52 5A |LDY#0.MEMO1:JSRZ| 00000FF0: 47 45 54 3B D7 45 52 54 20 48 4F 4C 45 4E 00 53 |GET;.ERT HOLEN.S| 00001000: 54 41 42 55 46 2C 59 3B 4D 45 52 4B 45 4E 00 4A |TABUF,Y;MERKEN.J| 00001010: 53 52 41 55 53 47 45 42 45 4E 3B 55 4E 44 20 41 |SRAUSGEBEN;UND A| 00001020: 55 53 47 45 42 45 4E 00 49 4E 59 00 43 50 59 23 |USGEBEN.INY.CPY#| 00001030: 38 3B 42 49 53 20 38 20 D7 45 52 54 45 20 41 55 |8;BIS 8 .ERTE AU| 00001040: 53 47 45 47 45 42 45 4E 00 42 4E 45 4D 45 4D 4F |SGEGEBEN.BNEMEMO| 00001050: 31 00 43 4C 43 3B 5A 47 2B 38 00 4C 44 41 5A 47 |1.CLC;ZG+8.LDAZG| 00001060: 00 41 44 43 23 38 00 53 54 41 5A 47 00 42 43 43 |.ADC#8.STAZG.BCC| 00001070: 2A 2B 34 00 49 4E 43 5A 47 2B 31 00 4A 53 52 5A |*+4.INCZG+1.JSRZ| 00001080: 45 49 43 48 4E 45 4E 3B D7 45 52 54 45 20 41 4C |EICHNEN;.ERTE AL| 00001090: 53 20 D4 45 58 54 20 41 4E 5A 45 49 47 45 4E 00 |S .EXT ANZEIGEN.| 000010A0: 4A 53 52 4D 4F 41 42 4F 52 54 3F 00 42 4E 45 4D |JSRMOABORT?.BNEM| 000010B0: 45 4D 4F 32 3B 55 4E 44 20 57 45 49 54 45 52 00 |EMO2;UND WEITER.| 000010C0: 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 5A 45 49 |JMPMONICMD. .ZEI| 000010D0: 43 48 4E 45 4E 3A 4C 44 41 23 33 32 3B D7 45 52 |CHNEN:LDA#32;.ER| 000010E0: 54 45 20 41 4C 53 20 D4 45 58 54 20 41 4E 5A 45 |TE ALS .EXT ANZE| 000010F0: 49 47 45 4E 00 4A 53 52 42 53 4F 55 54 00 4C 44 |IGEN.JSRBSOUT.LD| 00001100: 59 23 30 00 4D 45 4D 4F 34 3A 4C 44 41 42 55 46 |Y#0.MEMO4:LDABUF| 00001110: 2C 59 3B D7 45 52 54 00 4A 53 52 41 53 43 49 49 |,Y;.ERT.JSRASCII| 00001120: 3F 3B 41 55 46 20 C1 D3 C3 C9 C9 20 54 45 53 54 |?;AUF ..... TEST| 00001130: 45 4E 20 55 4E 44 20 41 4E 5A 45 49 47 45 4E 00 |EN UND ANZEIGEN.| 00001140: 49 4E 59 00 43 50 59 23 38 3B 38 20 D7 45 52 54 |INY.CPY#8;8 .ERT| 00001150: 45 00 42 4E 45 4D 45 4D 4F 34 00 52 54 53 00 20 |E.BNEMEMO4.RTS. | 00001160: 00 41 53 43 49 49 3F 3A 41 4E 44 23 24 37 46 3B |.ASCII?:AND#$7F;| 00001170: D7 45 52 54 20 54 45 53 54 45 4E 00 43 4D 50 23 |.ERT TESTEN.CMP#| 00001180: 33 32 00 42 43 53 41 43 31 3B C1 D3 C3 C9 C9 20 |32.BCSAC1;..... | 00001190: D7 45 52 54 00 4C 44 41 23 27 2E 3B 4B 45 49 4E |.ERT.LDA#'.;KEIN| 000011A0: 20 C1 D3 C3 C9 C9 20 D7 45 52 54 00 42 4E 45 41 | ..... .ERT.BNEA| 000011B0: 43 32 00 41 43 31 3A 4C 44 41 42 55 46 2C 59 00 |C2.AC1:LDABUF,Y.| 000011C0: 41 43 32 3A 4A 4D 50 42 53 4F 55 54 00 20 00 41 |AC2:JMPBSOUT. .A| 000011D0: 53 43 49 49 54 45 58 54 3A 4A 53 52 48 45 58 42 |SCIITEXT:JSRHEXB| 000011E0: 45 52 45 49 43 48 3B C1 D3 C3 C9 C9 20 D4 45 58 |EREICH;..... .EX| 000011F0: 54 20 41 4E 5A 45 49 47 45 4E 00 41 53 54 45 31 |T ANZEIGEN.ASTE1| 00001200: 3A 4A 53 52 4E 45 58 54 5A 45 49 00 4C 44 41 23 |:JSRNEXTZEI.LDA#| 00001210: 27 2C 3B 27 2C 27 20 46 55 45 52 20 CD 4F 44 49 |',;',' FUER .ODI| 00001220: 46 49 4B 41 54 49 4F 4E 20 41 55 53 47 45 42 45 |FIKATION AUSGEBE| 00001230: 4E 00 4A 53 52 42 53 4F 55 54 00 4A 53 52 5A 47 |N.JSRBSOUT.JSRZG| 00001240: 48 45 58 4F 55 54 3B C1 44 52 45 53 53 45 20 41 |HEXOUT;.DRESSE A| 00001250: 55 53 47 45 42 45 4E 00 4C 44 59 23 30 00 41 53 |USGEBEN.LDY#0.AS| 00001260: 54 45 32 3A 4A 53 52 5A 47 45 54 3B D7 45 52 54 |TE2:JSRZGET;.ERT| 00001270: 20 48 4F 4C 45 4E 00 4A 53 52 54 45 58 54 3F 3B | HOLEN.JSRTEXT?;| 00001280: 55 4E 44 20 41 55 53 47 45 42 45 4E 00 49 4E 59 |UND AUSGEBEN.INY| 00001290: 00 43 50 59 23 33 32 3B 42 49 53 20 33 32 20 D7 |.CPY#32;BIS 32 .| 000012A0: 45 52 54 45 20 41 55 53 47 45 47 45 42 45 4E 00 |ERTE AUSGEGEBEN.| 000012B0: 42 4E 45 41 53 54 45 32 00 43 4C 43 3B 5A 47 2B |BNEASTE2.CLC;ZG+| 000012C0: 33 32 00 4C 44 41 5A 47 00 41 44 43 23 33 32 00 |32.LDAZG.ADC#32.| 000012D0: 53 54 41 5A 47 00 42 43 43 2A 2B 34 00 49 4E 43 |STAZG.BCC*+4.INC| 000012E0: 5A 47 2B 31 00 4A 53 52 4D 4F 41 42 4F 52 54 3F |ZG+1.JSRMOABORT?| 000012F0: 00 42 4E 45 41 53 54 45 31 3B 55 4E 44 20 57 45 |.BNEASTE1;UND WE| 00001300: 49 54 45 52 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 |ITER.JMPMONICMD.| 00001310: 20 00 43 4F 44 45 54 45 58 54 3A 4A 53 52 48 45 | .CODETEXT:JSRHE| 00001320: 58 42 45 52 45 49 43 48 3B D0 CF CB C5 20 D4 45 |XBEREICH;.... .E| 00001330: 58 54 20 41 55 53 47 45 42 45 4E 00 43 4F 54 45 |XT AUSGEBEN.COTE| 00001340: 31 3A 4A 53 52 4E 45 58 54 5A 45 49 00 4C 44 41 |1:JSRNEXTZEI.LDA| 00001350: 23 33 39 3B 27 27 27 20 46 55 45 52 20 CD 4F 44 |#39;''' FUER .OD| 00001360: 2E 20 41 55 53 47 45 42 45 4E 00 4A 53 52 42 53 |. AUSGEBEN.JSRBS| 00001370: 4F 55 54 00 4A 53 52 5A 47 48 45 58 4F 55 54 3B |OUT.JSRZGHEXOUT;| 00001380: C1 44 52 45 53 53 45 20 41 55 53 47 45 42 45 4E |.DRESSE AUSGEBEN| 00001390: 00 4C 44 59 23 30 00 43 4F 54 45 32 3A 4A 53 52 |.LDY#0.COTE2:JSR| 000013A0: 5A 47 45 54 3B D7 45 52 54 20 48 4F 4C 45 4E 00 |ZGET;.ERT HOLEN.| 000013B0: 4A 53 52 44 49 53 50 4C 3F 3B 55 4E 44 20 41 4E |JSRDISPL?;UND AN| 000013C0: 5A 45 49 47 45 4E 00 49 4E 59 00 43 50 59 23 33 |ZEIGEN.INY.CPY#3| 000013D0: 32 3B 33 32 20 D7 45 52 54 45 20 41 55 53 47 45 |2;32 .ERTE AUSGE| 000013E0: 42 45 4E 00 42 4E 45 43 4F 54 45 32 00 43 4C 43 |BEN.BNECOTE2.CLC| 000013F0: 00 4C 44 41 5A 47 3B 5A 47 2B 33 32 00 41 44 43 |.LDAZG;ZG+32.ADC| 00001400: 23 33 32 00 53 54 41 5A 47 00 42 43 43 2A 2B 34 |#32.STAZG.BCC*+4| 00001410: 00 49 4E 43 5A 47 2B 31 00 4A 53 52 4D 4F 41 42 |.INCZG+1.JSRMOAB| 00001420: 4F 52 54 3F 00 42 4E 45 43 4F 54 45 31 3B 55 4E |ORT?.BNECOTE1;UN| 00001430: 44 20 57 45 49 54 45 52 00 4A 4D 50 4D 4F 4E 49 |D WEITER.JMPMONI| 00001440: 43 4D 44 00 20 00 44 49 53 50 4C 3F 3A 53 54 41 |CMD. .DISPL?:STA| 00001450: 42 55 46 3B 41 55 46 20 D0 CF CB C5 20 C3 4F 44 |BUF;AUF .... .OD| 00001460: 45 20 54 45 53 54 45 4E 00 43 4D 50 23 27 39 2B |E TESTEN.CMP#'9+| 00001470: 31 00 42 43 43 54 45 58 54 3F 3B 41 55 46 20 D4 |1.BCCTEXT?;AUF .| 00001480: 45 58 54 20 54 45 53 54 45 4E 00 41 4E 44 23 25 |EXT TESTEN.AND#%| 00001490: 31 31 30 30 30 30 30 30 3B C3 4F 44 45 20 57 41 |11000000;.ODE WA| 000014A0: 4E 44 45 4C 4E 00 41 53 4C 00 4F 52 41 23 25 30 |NDELN.ASL.ORA#%0| 000014B0: 31 30 30 30 30 30 30 00 50 48 41 00 4C 44 41 42 |1000000.PHA.LDAB| 000014C0: 55 46 00 41 4E 44 23 25 31 31 31 31 31 31 00 53 |UF.AND#%111111.S| 000014D0: 54 41 42 55 46 00 50 4C 41 00 4F 52 41 42 55 46 |TABUF.PLA.ORABUF| 000014E0: 3B 55 4E 44 20 54 45 53 54 45 4E 00 20 00 54 45 |;UND TESTEN. .TE| 000014F0: 58 54 3F 3A 50 48 41 3B 41 55 46 20 D4 45 58 54 |XT?:PHA;AUF .EXT| 00001500: 20 54 45 53 54 45 4E 00 41 4E 44 23 24 37 46 00 | TESTEN.AND#$7F.| 00001510: 43 4D 50 23 33 32 00 42 43 43 54 3F 31 3B 4B 45 |CMP#32.BCCT?1;KE| 00001520: 49 4E 20 D4 45 58 54 00 43 4D 50 23 39 36 00 42 |IN .EXT.CMP#96.B| 00001530: 43 53 54 3F 31 3B 4B 45 49 4E 20 D4 45 58 54 00 |CST?1;KEIN .EXT.| 00001540: 50 4C 41 3B D4 45 58 54 20 41 55 53 47 45 42 45 |PLA;.EXT AUSGEBE| 00001550: 4E 00 4A 4D 50 42 53 4F 55 54 00 54 3F 31 3A 50 |N.JMPBSOUT.T?1:P| 00001560: 4C 41 3B 27 2E 27 20 41 55 53 47 45 42 45 4E 00 |LA;'.' AUSGEBEN.| 00001570: 4C 44 41 23 27 2E 00 4A 4D 50 42 53 4F 55 54 00 |LDA#'..JMPBSOUT.| 00001580: 20 00 52 41 4D 56 45 52 47 4C 3A 4A 53 52 48 45 | .RAMVERGL:JSRHE| 00001590: 58 57 49 4E 3B D3 50 45 49 43 48 45 52 56 45 52 |XWIN;.PEICHERVER| 000015A0: 47 4C 45 49 43 48 00 53 54 41 5A 41 48 4C 32 3B |GLEICH.STAZAHL2;| 000015B0: C1 44 52 45 53 53 45 20 31 20 48 4F 4C 45 4E 00 |.DRESSE 1 HOLEN.| 000015C0: 4C 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 5A 41 |LDAZAHL1+1.STAZA| 000015D0: 48 4C 32 2B 31 00 4A 53 52 48 45 58 57 49 4E 3B |HL2+1.JSRHEXWIN;| 000015E0: C1 44 52 45 53 53 45 20 32 20 48 4F 4C 45 4E 00 |.DRESSE 2 HOLEN.| 000015F0: 4C 44 59 23 30 00 44 4F 52 41 4D 56 45 52 3A 4C |LDY#0.DORAMVER:L| 00001600: 44 41 5A 41 48 4C 31 3B 5A 47 20 41 55 46 20 C1 |DAZAHL1;ZG AUF .| 00001610: 44 52 45 53 53 45 20 32 00 53 54 41 5A 47 00 4C |DRESSE 2.STAZG.L| 00001620: 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 5A 47 2B |DAZAHL1+1.STAZG+| 00001630: 31 00 4A 53 52 5A 47 45 54 3B D7 45 52 54 20 48 |1.JSRZGET;.ERT H| 00001640: 4F 4C 45 4E 00 53 54 41 42 55 46 3B 55 4E 44 20 |OLEN.STABUF;UND | 00001650: 4D 45 52 4B 45 4E 00 4C 44 41 5A 41 48 4C 32 3B |MERKEN.LDAZAHL2;| 00001660: 5A 47 20 41 55 46 20 C1 44 52 45 53 53 45 20 31 |ZG AUF .DRESSE 1| 00001670: 00 53 54 41 5A 47 00 4C 44 41 5A 41 48 4C 32 2B |.STAZG.LDAZAHL2+| 00001680: 31 00 53 54 41 5A 47 2B 31 00 4A 53 52 5A 47 45 |1.STAZG+1.JSRZGE| 00001690: 54 3B D7 45 52 54 20 48 4F 4C 45 4E 00 43 4D 50 |T;.ERT HOLEN.CMP| 000016A0: 42 55 46 3B 4D 49 54 20 D7 45 52 54 20 32 20 56 |BUF;MIT .ERT 2 V| 000016B0: 45 52 47 4C 45 49 43 48 45 4E 00 42 4E 45 55 4E |ERGLEICHEN.BNEUN| 000016C0: 47 4C 45 49 43 48 3B 55 4E 47 4C 45 49 43 48 00 |GLEICH;UNGLEICH.| 000016D0: 49 4E 43 5A 41 48 4C 31 3B 53 4F 4E 53 54 20 4E |INCZAHL1;SONST N| 000016E0: 41 45 43 48 54 45 20 C1 44 52 45 53 53 45 20 54 |AECHTE .DRESSE T| 000016F0: 45 53 54 45 4E 00 42 4E 45 2A 2B 34 00 49 4E 43 |ESTEN.BNE*+4.INC| 00001700: 5A 41 48 4C 31 2B 31 00 49 4E 43 5A 41 48 4C 32 |ZAHL1+1.INCZAHL2| 00001710: 00 42 4E 45 2A 2B 34 00 49 4E 43 5A 41 48 4C 32 |.BNE*+4.INCZAHL2| 00001720: 2B 31 00 4A 4D 50 44 4F 52 41 4D 56 45 52 00 55 |+1.JMPDORAMVER.U| 00001730: 4E 47 4C 45 49 43 48 3A 4A 53 52 5A 47 48 45 58 |NGLEICH:JSRZGHEX| 00001740: 4F 55 54 3B 55 4E 47 4C 45 49 43 48 2D 3E C1 44 |OUT;UNGLEICH->.D| 00001750: 52 45 53 53 45 20 41 55 53 47 45 42 45 4E 00 4C |RESSE AUSGEBEN.L| 00001760: 44 41 5A 41 48 4C 31 2B 31 3B 32 2E 20 C1 44 52 |DAZAHL1+1;2. .DR| 00001770: 45 53 53 45 20 41 55 53 47 45 42 45 4E 00 4A 53 |ESSE AUSGEBEN.JS| 00001780: 52 48 45 58 4F 55 54 00 4C 44 41 5A 41 48 4C 31 |RHEXOUT.LDAZAHL1| 00001790: 00 4A 53 52 48 45 58 4F 55 54 00 4A 4D 50 4D 4F |.JSRHEXOUT.JMPMO| 000017A0: 4E 49 43 4D 44 00 20 00 48 45 58 57 45 52 54 4F |NICMD. .HEXWERTO| 000017B0: 45 3A 4A 53 52 42 41 53 49 4E 3B C8 45 58 57 45 |E:JSRBASIN;.EXWE| 000017C0: 52 54 20 48 4F 4C 45 4E 00 43 4D 50 23 33 32 3B |RT HOLEN.CMP#32;| 000017D0: CC 45 45 52 5A 45 49 43 48 45 4E 20 55 45 42 45 |.EERZEICHEN UEBE| 000017E0: 52 4C 45 53 45 4E 00 42 45 51 48 45 58 57 45 52 |RLESEN.BEQHEXWER| 000017F0: 54 4F 45 00 43 4D 50 23 31 33 3B CB 45 49 4E 45 |TOE.CMP#13;.EINE| 00001800: 20 C5 49 4E 47 41 42 45 00 42 4E 45 2A 2B 33 00 | .INGABE.BNE*+3.| 00001810: 52 54 53 00 4A 4D 50 48 45 58 49 4E 2B 33 3B D7 |RTS.JMPHEXIN+3;.| 00001820: 45 52 54 20 48 4F 4C 45 4E 00 20 00 4D 4F 4B 4F |ERT HOLEN. .MOKO| 00001830: 4D 4D 41 3A 4A 53 52 48 45 58 57 49 4E 3B C1 D3 |MMA:JSRHEXWIN;..| 00001840: C3 C9 C9 20 D4 45 58 54 20 CD 4F 44 49 46 49 4B |... .EXT .ODIFIK| 00001850: 41 54 49 4F 4E 00 4C 44 41 5A 41 48 4C 31 3B 5A |ATION.LDAZAHL1;Z| 00001860: 47 20 41 55 46 20 C1 44 52 45 53 53 45 00 53 54 |G AUF .DRESSE.ST| 00001870: 41 5A 47 00 4C 44 41 5A 41 48 4C 31 2B 31 00 53 |AZG.LDAZAHL1+1.S| 00001880: 54 41 5A 47 2B 31 00 4C 44 59 23 30 00 54 45 58 |TAZG+1.LDY#0.TEX| 00001890: 54 50 55 54 3A 4A 53 52 42 41 53 49 4E 3B D4 45 |TPUT:JSRBASIN;.E| 000018A0: 58 54 20 45 49 4E 4C 45 53 45 4E 00 43 4D 50 23 |XT EINLESEN.CMP#| 000018B0: 27 2E 3B 27 2E 27 20 55 45 42 45 52 4C 45 53 45 |'.;'.' UEBERLESE| 000018C0: 4E 00 42 45 51 4E 4F 54 45 58 54 00 4A 53 52 5A |N.BEQNOTEXT.JSRZ| 000018D0: 50 55 54 3B 53 4F 4E 53 54 20 D4 45 58 54 20 53 |PUT;SONST .EXT S| 000018E0: 50 45 49 43 48 45 52 4E 00 4E 4F 54 45 58 54 3A |PEICHERN.NOTEXT:| 000018F0: 49 4E 59 00 43 50 59 23 33 32 3B 42 49 53 20 33 |INY.CPY#32;BIS 3| 00001900: 32 20 D7 45 52 54 45 20 47 45 53 50 45 49 43 48 |2 .ERTE GESPEICH| 00001910: 45 52 54 00 42 4E 45 54 45 58 54 50 55 54 00 4A |ERT.BNETEXTPUT.J| 00001920: 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 54 49 43 4B |MPMONICMD. .TICK| 00001930: 3A 4A 53 52 48 45 58 57 49 4E 3B D0 CF CB C5 20 |:JSRHEXWIN;.... | 00001940: D4 45 58 54 20 CD 4F 44 49 46 49 4B 41 54 49 4F |.EXT .ODIFIKATIO| 00001950: 4E 00 4C 44 41 5A 41 48 4C 31 3B 5A 47 20 41 55 |N.LDAZAHL1;ZG AU| 00001960: 46 20 C1 44 52 45 53 53 45 00 53 54 41 5A 47 00 |F .DRESSE.STAZG.| 00001970: 4C 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 5A 47 |LDAZAHL1+1.STAZG| 00001980: 2B 31 00 4C 44 59 23 30 00 44 50 50 55 54 3A 4A |+1.LDY#0.DPPUT:J| 00001990: 53 52 42 41 53 49 4E 3B D4 45 58 54 20 45 49 4E |SRBASIN;.EXT EIN| 000019A0: 4C 45 53 45 4E 00 43 4D 50 23 27 2E 3B 27 2E 27 |LESEN.CMP#'.;'.'| 000019B0: 20 55 45 42 45 52 4C 45 53 45 4E 00 42 45 51 4E | UEBERLESEN.BEQN| 000019C0: 4F 44 50 43 4F 44 45 00 43 4D 50 23 30 3B D4 45 |ODPCODE.CMP#0;.E| 000019D0: 58 54 20 49 4E 20 C3 4F 44 45 20 57 41 4E 44 45 |XT IN .ODE WANDE| 000019E0: 4C 4E 00 50 48 50 00 41 4E 44 23 25 31 31 31 31 |LN.PHP.AND#%1111| 000019F0: 31 31 00 50 4C 50 00 42 50 4C 2A 2B 34 00 4F 52 |11.PLP.BPL*+4.OR| 00001A00: 41 23 25 30 31 30 30 30 30 30 30 00 4A 53 52 5A |A#%01000000.JSRZ| 00001A10: 50 55 54 3B 55 4E 44 20 53 50 45 49 43 48 45 52 |PUT;UND SPEICHER| 00001A20: 4E 00 4E 4F 44 50 43 4F 44 45 3A 49 4E 59 00 43 |N.NODPCODE:INY.C| 00001A30: 50 59 23 33 32 3B 42 49 53 20 33 32 20 D7 45 52 |PY#32;BIS 32 .ER| 00001A40: 54 45 20 47 45 53 50 45 49 43 48 45 52 54 00 42 |TE GESPEICHERT.B| 00001A50: 4E 45 44 50 50 55 54 00 4A 4D 50 4D 4F 4E 49 43 |NEDPPUT.JMPMONIC| 00001A60: 4D 44 00 20 00 50 55 4E 4B 54 3A 4A 53 52 48 45 |MD. .PUNKT:JSRHE| 00001A70: 58 57 49 4E 3B C4 49 53 4B 20 C2 55 46 46 45 52 |XWIN;.ISK .UFFER| 00001A80: 20 CD 4F 44 49 46 49 4B 41 54 49 4F 4E 00 4C 44 | .ODIFIKATION.LD| 00001A90: 41 5A 41 48 4C 31 3B 5A 47 20 41 55 46 20 C2 55 |AZAHL1;ZG AUF .U| 00001AA0: 46 46 45 52 00 53 54 41 5A 47 00 4C 44 41 23 3E |FFER.STAZG.LDA#>| 00001AB0: 42 55 46 42 55 46 46 45 52 00 53 54 41 5A 47 2B |BUFBUFFER.STAZG+| 00001AC0: 31 00 4A 4D 50 57 45 52 54 45 48 4F 4C 00 44 4F |1.JMPWERTEHOL.DO| 00001AD0: 50 50 45 4C 50 55 4E 4B 54 3A 4A 53 52 48 45 58 |PPELPUNKT:JSRHEX| 00001AE0: 57 49 4E 3B CD 45 4D 4F 52 59 20 CD 4F 44 49 46 |WIN;.EMORY .ODIF| 00001AF0: 49 4B 41 54 49 4F 4E 00 4C 44 41 5A 41 48 4C 31 |IKATION.LDAZAHL1| 00001B00: 3B 5A 47 20 41 55 46 20 C1 44 52 45 53 53 45 00 |;ZG AUF .DRESSE.| 00001B10: 53 54 41 5A 47 00 4C 44 41 5A 41 48 4C 31 2B 31 |STAZG.LDAZAHL1+1| 00001B20: 00 53 54 41 5A 47 2B 31 00 57 45 52 54 45 48 4F |.STAZG+1.WERTEHO| 00001B30: 4C 3A 4C 44 59 23 30 00 44 4F 50 55 3A 4A 53 52 |L:LDY#0.DOPU:JSR| 00001B40: 48 45 58 49 4E 3B D7 45 52 54 20 45 49 4E 4C 45 |HEXIN;.ERT EINLE| 00001B50: 53 45 4E 00 4C 44 41 5A 41 48 4C 31 00 4A 53 52 |SEN.LDAZAHL1.JSR| 00001B60: 5A 50 55 54 3B 53 50 45 49 43 48 45 52 4E 00 53 |ZPUT;SPEICHERN.S| 00001B70: 54 41 42 55 46 2C 59 3B 55 4E 44 20 4D 45 52 4B |TABUF,Y;UND MERK| 00001B80: 45 4E 00 49 4E 59 00 43 50 59 23 38 3B 42 49 53 |EN.INY.CPY#8;BIS| 00001B90: 20 38 20 D7 45 52 54 45 20 47 45 53 50 45 49 43 | 8 .ERTE GESPEIC| 00001BA0: 48 45 52 54 00 42 4E 45 44 4F 50 55 00 4A 53 52 |HERT.BNEDOPU.JSR| 00001BB0: 5A 45 49 43 48 4E 45 4E 3B D4 45 58 54 20 4E 45 |ZEICHNEN;.EXT NE| 00001BC0: 55 20 41 55 53 47 45 42 45 4E 00 4A 4D 50 4D 4F |U AUSGEBEN.JMPMO| 00001BD0: 4E 49 43 4D 44 00 20 00 4D 4F 4E 4C 4F 41 44 3A |NICMD. .MONLOAD:| 00001BE0: 4C 44 58 23 46 4C 4F 44 45 56 3B C6 49 4C 45 20 |LDX#FLODEV;.ILE | 00001BF0: 4C 41 44 45 4E 00 4C 44 59 23 30 00 53 54 59 42 |LADEN.LDY#0.STYB| 00001C00: 55 46 00 4C 44 41 23 31 3B C6 49 4C 45 50 41 52 |UF.LDA#1;.ILEPAR| 00001C10: 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 4A 53 |AMETER SETZEN.JS| 00001C20: 52 53 45 54 50 41 52 41 00 4D 4F 4E 4C 4F 41 44 |RSETPARA.MONLOAD| 00001C30: 31 3A 4A 53 52 42 41 53 49 4E 00 43 4D 50 23 33 |1:JSRBASIN.CMP#3| 00001C40: 32 3B CC 45 45 52 5A 45 49 43 48 45 4E 20 55 45 |2;.EERZEICHEN UE| 00001C50: 42 45 52 4C 45 53 45 4E 00 42 45 51 4D 4F 4E 4C |BERLESEN.BEQMONL| 00001C60: 4F 41 44 31 00 43 4D 50 23 27 22 00 42 45 51 41 |OAD1.CMP#'".BEQA| 00001C70: 42 53 4C 4F 41 44 3B CE 41 4D 45 20 46 4F 4C 47 |BSLOAD;.AME FOLG| 00001C80: 54 00 4A 53 52 48 45 58 49 4E 2B 33 3B C1 44 52 |T.JSRHEXIN+3;.DR| 00001C90: 45 53 53 45 20 46 4F 4C 47 54 00 49 4E 43 42 55 |ESSE FOLGT.INCBU| 00001CA0: 46 3B C6 4C 41 47 20 53 45 54 5A 45 4E 00 43 4D |F;.LAG SETZEN.CM| 00001CB0: 50 23 27 22 00 42 4E 45 4D 4F 4E 4C 4F 41 44 31 |P#'".BNEMONLOAD1| 00001CC0: 00 41 42 53 4C 4F 41 44 3A 4C 44 59 23 30 3B C6 |.ABSLOAD:LDY#0;.| 00001CD0: 49 4C 45 4E 41 4D 45 20 2D 3E 42 55 46 46 45 52 |ILENAME ->BUFFER| 00001CE0: 20 45 49 4E 4C 45 53 45 4E 00 46 4E 49 3A 4A 53 | EINLESEN.FNI:JS| 00001CF0: 52 42 41 53 49 4E 00 53 54 41 42 55 46 46 45 52 |RBASIN.STABUFFER| 00001D00: 2C 59 00 49 4E 59 00 43 4D 50 23 27 22 00 42 4E |,Y.INY.CMP#'".BN| 00001D10: 45 46 4E 49 00 44 45 59 00 54 59 41 3B CE 41 4D |EFNI.DEY.TYA;.AM| 00001D20: 45 4E 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A |ENPARAMETER SETZ| 00001D30: 45 4E 00 4C 44 58 23 3C 42 55 46 46 45 52 00 4C |EN.LDX#<BUFFER.L| 00001D40: 44 59 23 3E 42 55 46 46 45 52 00 4A 53 52 53 45 |DY#>BUFFER.JSRSE| 00001D50: 54 4E 41 4D 45 00 4A 53 52 4F 50 45 4E 3B 4F 50 |TNAME.JSROPEN;OP| 00001D60: 45 4E 31 2C 38 2C 30 2C 22 C6 49 4C 45 4E 41 4D |EN1,8,0,".ILENAM| 00001D70: 45 22 00 4C 44 58 23 31 3B C5 49 4E 47 41 42 45 |E".LDX#1;.INGABE| 00001D80: 20 41 55 53 20 C6 49 4C 45 00 4A 53 52 43 48 4B | AUS .ILE.JSRCHK| 00001D90: 49 4E 00 4A 53 52 42 41 53 49 4E 52 3B D7 45 52 |IN.JSRBASINR;.ER| 00001DA0: 54 20 48 4F 4C 45 4E 00 53 54 41 5A 41 48 4C 32 |T HOLEN.STAZAHL2| 00001DB0: 3B 55 4E 44 20 4D 45 52 4B 45 4E 00 53 54 41 5A |;UND MERKEN.STAZ| 00001DC0: 47 00 4A 53 52 42 41 53 49 4E 52 3B C8 49 47 48 |G.JSRBASINR;.IGH| 00001DD0: 20 C2 59 54 45 20 48 4F 4C 45 4E 00 53 54 41 5A | .YTE HOLEN.STAZ| 00001DE0: 41 48 4C 32 2B 31 00 53 54 41 5A 47 2B 31 00 4C |AHL2+1.STAZG+1.L| 00001DF0: 44 41 42 55 46 3B C6 4C 41 47 20 54 45 53 54 45 |DABUF;.LAG TESTE| 00001E00: 4E 00 42 45 51 4C 4F 52 45 4C 3B C6 49 4C 45 41 |N.BEQLOREL;.ILEA| 00001E10: 44 52 45 53 53 45 20 47 49 4C 54 00 4C 44 41 5A |DRESSE GILT.LDAZ| 00001E20: 41 48 4C 31 3B 41 4E 47 45 47 45 42 45 4E 45 20 |AHL1;ANGEGEBENE | 00001E30: C1 44 52 45 53 53 45 00 53 54 41 5A 41 48 4C 32 |.DRESSE.STAZAHL2| 00001E40: 3B 49 53 54 20 D3 54 41 52 54 41 44 52 45 53 53 |;IST .TARTADRESS| 00001E50: 45 00 53 54 41 5A 47 00 4C 44 41 5A 41 48 4C 31 |E.STAZG.LDAZAHL1| 00001E60: 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 00 53 54 |+1.STAZAHL2+1.ST| 00001E70: 41 5A 47 2B 31 00 4C 4F 52 45 4C 3A 4A 53 52 42 |AZG+1.LOREL:JSRB| 00001E80: 41 53 49 4E 52 3B C6 49 4C 45 20 41 42 53 50 45 |ASINR;.ILE ABSPE| 00001E90: 49 43 48 45 52 4E 00 4C 44 59 23 30 00 4A 53 52 |ICHERN.LDY#0.JSR| 00001EA0: 5A 50 55 54 00 49 4E 43 5A 47 00 42 4E 45 2A 2B |ZPUT.INCZG.BNE*+| 00001EB0: 34 00 49 4E 43 5A 47 2B 31 00 4C 44 41 53 54 41 |4.INCZG+1.LDASTA| 00001EC0: 54 55 53 3B 42 49 53 20 C6 49 4C 45 45 4E 44 45 |TUS;BIS .ILEENDE| 00001ED0: 00 42 45 51 4C 4F 52 45 4C 00 4A 53 52 43 4C 4F |.BEQLOREL.JSRCLO| 00001EE0: 41 4C 4C 3B C6 49 4C 45 20 53 43 48 4C 49 45 53 |ALL;.ILE SCHLIES| 00001EF0: 53 45 4E 00 4C 44 41 5A 41 48 4C 32 2B 31 3B D3 |SEN.LDAZAHL2+1;.| 00001F00: 54 41 52 54 41 44 52 45 53 53 45 20 41 55 53 47 |TARTADRESSE AUSG| 00001F10: 45 42 45 4E 00 4A 53 52 48 45 58 4F 55 54 00 4C |EBEN.JSRHEXOUT.L| 00001F20: 44 41 5A 41 48 4C 32 00 4A 53 52 41 55 53 47 45 |DAZAHL2.JSRAUSGE| 00001F30: 42 45 4E 00 4A 53 52 5A 47 48 45 58 4F 55 54 3B |BEN.JSRZGHEXOUT;| 00001F40: C5 4E 44 41 44 52 45 53 53 45 20 41 55 53 47 45 |.NDADRESSE AUSGE| 00001F50: 42 45 4E 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 |BEN.JMPMONICMD. | 00001F60: 00 4D 4F 4E 53 41 56 45 3A 4A 53 52 42 41 53 49 |.MONSAVE:JSRBASI| 00001F70: 4E 3B C6 49 4C 45 20 41 42 53 50 45 49 43 48 45 |N;.ILE ABSPEICHE| 00001F80: 52 4E 00 43 4D 50 23 33 32 00 42 45 51 4D 4F 4E |RN.CMP#32.BEQMON| 00001F90: 53 41 56 45 00 4C 44 59 23 30 00 46 4E 49 31 3A |SAVE.LDY#0.FNI1:| 00001FA0: 4A 53 52 42 41 53 49 4E 3B C6 49 4C 45 4E 41 4D |JSRBASIN;.ILENAM| 00001FB0: 45 4E 20 48 4F 4C 45 4E 00 53 54 41 42 55 46 46 |EN HOLEN.STABUFF| 00001FC0: 45 52 2C 59 00 49 4E 59 00 43 4D 50 23 27 22 00 |ER,Y.INY.CMP#'".| 00001FD0: 42 4E 45 46 4E 49 31 00 44 45 59 00 54 59 41 00 |BNEFNI1.DEY.TYA.| 00001FE0: 4C 44 58 23 3C 42 55 46 46 45 52 3B C6 49 4C 45 |LDX#<BUFFER;.ILE| 00001FF0: 4E 41 4D 45 4E 20 53 45 54 5A 45 4E 00 4C 44 59 |NAMEN SETZEN.LDY| 00002000: 23 3E 42 55 46 46 45 52 00 4A 53 52 53 45 54 4E |#>BUFFER.JSRSETN| 00002010: 41 4D 45 00 4C 44 58 23 46 4C 4F 44 45 56 3B C6 |AME.LDX#FLODEV;.| 00002020: 49 4C 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 |ILEPARAMETER SET| 00002030: 5A 45 4E 00 4C 44 41 23 31 00 54 41 59 00 4A 53 |ZEN.LDA#1.TAY.JS| 00002040: 52 53 45 54 50 41 52 41 00 4A 53 52 48 45 58 42 |RSETPARA.JSRHEXB| 00002050: 45 52 45 49 43 48 3B 3C 56 4F 4E 3E 20 3C 42 49 |EREICH;<VON> <BI| 00002060: 53 3E 20 48 4F 4C 45 4E 00 4A 53 52 4F 50 45 4E |S> HOLEN.JSROPEN| 00002070: 3B 4F 50 45 4E 31 2C 38 2C 31 2C 22 C6 49 4C 45 |;OPEN1,8,1,".ILE| 00002080: 4E 41 4D 45 22 00 4C 44 58 23 31 3B C1 55 53 47 |NAME".LDX#1;.USG| 00002090: 41 42 45 20 41 55 46 20 C4 49 53 4B 00 4A 53 52 |ABE AUF .ISK.JSR| 000020A0: 43 4B 4F 55 54 00 4C 44 41 5A 47 3B C1 44 52 45 |CKOUT.LDAZG;.DRE| 000020B0: 53 53 45 20 41 55 46 20 C4 49 53 4B 00 4A 53 52 |SSE AUF .ISK.JSR| 000020C0: 42 53 4F 55 54 52 00 4C 44 41 5A 47 2B 31 00 4A |BSOUTR.LDAZG+1.J| 000020D0: 53 52 42 53 4F 55 54 52 00 4D 4F 53 41 3A 4C 44 |SRBSOUTR.MOSA:LD| 000020E0: 59 23 30 3B C6 49 4C 45 20 41 42 53 50 45 49 43 |Y#0;.ILE ABSPEIC| 000020F0: 48 45 52 4E 00 4A 53 52 5A 47 45 54 00 4A 53 52 |HERN.JSRZGET.JSR| 00002100: 42 53 4F 55 54 52 00 49 4E 43 5A 47 00 42 4E 45 |BSOUTR.INCZG.BNE| 00002110: 2A 2B 34 00 49 4E 43 5A 47 2B 31 00 4C 44 41 5A |*+4.INCZG+1.LDAZ| 00002120: 47 3B C1 44 52 45 53 53 45 20 4D 49 54 20 C5 4E |G;.DRESSE MIT .N| 00002130: 44 41 44 52 45 53 53 45 20 56 45 52 47 4C 45 49 |DADRESSE VERGLEI| 00002140: 43 48 45 4E 00 53 54 41 5A 41 48 4C 31 00 4C 44 |CHEN.STAZAHL1.LD| 00002150: 41 5A 47 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 |AZG+1.STAZAHL1+1| 00002160: 00 4A 53 52 56 45 52 47 4C 45 49 43 48 00 42 43 |.JSRVERGLEICH.BC| 00002170: 43 4D 4F 53 41 3B D7 45 49 54 45 52 00 4A 53 52 |CMOSA;.EITER.JSR| 00002180: 43 4C 4F 41 4C 4C 3B C6 45 52 54 49 47 2D 3E C6 |CLOALL;.ERTIG->.| 00002190: 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 00 4A |ILE SCHLIESSEN.J| 000021A0: 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 56 45 52 53 |MPMONICMD. .VERS| 000021B0: 43 48 49 45 42 45 4E 3A 4A 53 52 48 45 58 57 49 |CHIEBEN:JSRHEXWI| 000021C0: 4E 3B D3 50 45 49 43 48 45 52 42 45 52 45 49 43 |N;.PEICHERBEREIC| 000021D0: 48 20 56 45 52 53 43 48 49 45 42 45 4E 00 4C 44 |H VERSCHIEBEN.LD| 000021E0: 41 5A 41 48 4C 31 3B 3C 56 4F 4E 3E 20 4D 45 52 |AZAHL1;<VON> MER| 000021F0: 4B 45 4E 00 50 48 41 00 4C 44 41 5A 41 48 4C 31 |KEN.PHA.LDAZAHL1| 00002200: 2B 31 00 50 48 41 00 4A 53 52 48 45 58 57 49 4E |+1.PHA.JSRHEXWIN| 00002210: 00 4C 44 41 5A 41 48 4C 31 00 53 54 41 4D 45 4D |.LDAZAHL1.STAMEM| 00002220: 31 3B 3C 42 49 53 3E 2D 3E 4D 45 4D 31 2F 32 00 |1;<BIS>->MEM1/2.| 00002230: 4C 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 4D 45 |LDAZAHL1+1.STAME| 00002240: 4D 32 00 4A 53 52 48 45 58 57 49 4E 00 4C 44 41 |M2.JSRHEXWIN.LDA| 00002250: 5A 41 48 4C 31 3B 3C 4E 41 43 48 3E 2D 3E 5A 41 |ZAHL1;<NACH>->ZA| 00002260: 48 4C 32 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 |HL2.STAZAHL2.LDA| 00002270: 5A 41 48 4C 31 2B 31 00 53 54 41 5A 41 48 4C 32 |ZAHL1+1.STAZAHL2| 00002280: 2B 31 00 50 4C 41 3B 3C 56 4F 4E 3E 2D 3E 5A 41 |+1.PLA;<VON>->ZA| 00002290: 48 4C 31 20 5A 55 52 55 45 43 4B 53 45 54 5A 45 |HL1 ZURUECKSETZE| 000022A0: 4E 00 53 54 41 5A 41 48 4C 31 2B 31 00 50 4C 41 |N.STAZAHL1+1.PLA| 000022B0: 00 53 54 41 5A 41 48 4C 31 00 4A 53 52 4D 4F 56 |.STAZAHL1.JSRMOV| 000022C0: 45 3B D6 45 52 53 43 48 49 45 42 45 52 4F 55 54 |E;.ERSCHIEBEROUT| 000022D0: 49 4E 45 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 |INE.JMPMONICMD. | 000022E0: 00 50 52 49 50 4C 55 4D 49 3A 4A 53 52 42 41 53 |.PRIPLUMI:JSRBAS| 000022F0: 49 4E 3B D0 52 49 4E 54 45 52 20 CF 4E 2F CF 46 |IN;.RINTER .N/.F| 00002300: 46 00 43 4D 50 23 27 2B 00 42 45 51 50 52 49 50 |F.CMP#'+.BEQPRIP| 00002310: 4C 55 3B 45 49 4E 53 43 48 41 4C 54 45 4E 00 4A |LU;EINSCHALTEN.J| 00002320: 53 52 43 4C 4F 41 4C 4C 3B 41 55 53 53 43 48 41 |SRCLOALL;AUSSCHA| 00002330: 4C 54 45 4E 00 4C 44 41 46 4C 41 47 53 3B C6 4C |LTEN.LDAFLAGS;.L| 00002340: 41 47 53 20 4C 4F 45 53 43 48 45 4E 00 41 4E 44 |AGS LOESCHEN.AND| 00002350: 23 24 46 46 2D 38 00 53 54 41 46 4C 41 47 53 00 |#$FF-8.STAFLAGS.| 00002360: 4C 44 41 23 30 00 53 54 41 41 53 53 46 4C 32 00 |LDA#0.STAASSFL2.| 00002370: 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 50 52 49 |JMPMONICMD. .PRI| 00002380: 50 4C 55 3A 4C 44 41 23 30 3B D0 52 49 4E 54 45 |PLU:LDA#0;.RINTE| 00002390: 52 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 4A 53 |R EINSCHALTEN.JS| 000023A0: 52 53 45 54 4E 41 4D 45 3B C6 49 4C 45 20 4F 45 |RSETNAME;.ILE OE| 000023B0: 46 46 4E 45 4E 00 4C 44 58 23 44 52 55 44 45 56 |FFNEN.LDX#DRUDEV| 000023C0: 00 4C 44 41 23 33 00 4C 44 59 23 44 52 55 53 45 |.LDA#3.LDY#DRUSE| 000023D0: 43 00 4A 53 52 53 45 54 50 41 52 41 00 4A 53 52 |C.JSRSETPARA.JSR| 000023E0: 4F 50 45 4E 3B 4F 50 45 4E 33 2C 34 2C 30 00 4C |OPEN;OPEN3,4,0.L| 000023F0: 44 41 23 32 3B C6 4C 41 47 53 20 53 45 54 5A 45 |DA#2;.LAGS SETZE| 00002400: 4E 00 53 54 41 41 53 53 46 4C 32 00 4C 44 41 46 |N.STAASSFL2.LDAF| 00002410: 4C 41 47 53 00 41 4E 44 23 25 30 30 30 30 30 31 |LAGS.AND#%000001| 00002420: 31 31 00 4F 52 41 23 38 00 53 54 41 46 4C 41 47 |11.ORA#8.STAFLAG| 00002430: 53 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 4D |S.JMPMONICMD. .M| 00002440: 4F 46 49 4E 44 3A 4A 53 52 48 45 58 42 45 52 45 |OFIND:JSRHEXBERE| 00002450: 49 43 48 3B D3 55 43 48 42 45 52 45 49 43 48 20 |ICH;.UCHBEREICH | 00002460: 48 4F 4C 45 4E 00 4C 44 59 23 30 00 4D 4F 46 49 |HOLEN.LDY#0.MOFI| 00002470: 41 52 47 3A 4A 53 52 42 41 53 49 4E 3B D3 55 43 |ARG:JSRBASIN;.UC| 00002480: 48 4B 45 54 54 45 20 48 4F 4C 45 4E 00 43 4D 50 |HKETTE HOLEN.CMP| 00002490: 23 33 32 3B CC 45 45 52 5A 45 49 43 48 45 4E 20 |#32;.EERZEICHEN | 000024A0: 55 45 42 45 52 4C 45 53 45 4E 00 42 45 51 4D 4F |UEBERLESEN.BEQMO| 000024B0: 46 49 41 52 47 00 43 4D 50 23 31 33 3B CB 45 54 |FIARG.CMP#13;.ET| 000024C0: 54 45 4E 45 4E 44 45 00 42 45 51 4D 4F 46 49 41 |TENENDE.BEQMOFIA| 000024D0: 52 47 45 4E 44 00 43 4D 50 23 27 22 00 42 45 51 |RGEND.CMP#'".BEQ| 000024E0: 54 58 54 41 52 47 3B D4 45 58 54 20 45 49 4E 4C |TXTARG;.EXT EINL| 000024F0: 45 53 45 4E 00 4A 53 52 48 45 58 49 4E 2B 33 3B |ESEN.JSRHEXIN+3;| 00002500: C8 45 58 42 59 54 45 20 4C 45 53 45 4E 00 4C 44 |.EXBYTE LESEN.LD| 00002510: 41 5A 41 48 4C 31 00 53 54 41 42 55 46 46 45 52 |AZAHL1.STABUFFER| 00002520: 2C 59 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E |,Y;UND SPEICHERN| 00002530: 00 49 4E 59 00 4C 44 41 4C 41 53 54 43 48 52 00 |.INY.LDALASTCHR.| 00002540: 43 4D 50 23 31 33 3B 3C D2 45 54 55 52 4E 3E 3F |CMP#13;<.ETURN>?| 00002550: 00 42 4E 45 4D 4F 46 49 41 52 47 3B 4E 45 49 4E |.BNEMOFIARG;NEIN| 00002560: 2D 3E 57 45 49 54 45 52 4C 45 53 45 4E 00 42 45 |->WEITERLESEN.BE| 00002570: 51 4D 4F 46 49 41 52 47 45 4E 44 3B 4A 41 2D 3E |QMOFIARGEND;JA->| 00002580: 53 55 43 48 45 4E 00 54 58 54 41 52 47 3A 4A 53 |SUCHEN.TXTARG:JS| 00002590: 52 42 41 53 49 4E 3B D4 45 58 54 20 45 49 4E 4C |RBASIN;.EXT EINL| 000025A0: 45 53 45 4E 00 43 4D 50 23 27 22 3B 42 49 53 20 |ESEN.CMP#'";BIS | 000025B0: 27 22 27 00 42 45 51 4D 4F 46 49 41 52 47 00 53 |'"'.BEQMOFIARG.S| 000025C0: 54 41 42 55 46 46 45 52 2C 59 00 49 4E 59 00 42 |TABUFFER,Y.INY.B| 000025D0: 4E 45 54 58 54 41 52 47 00 4D 4F 46 49 41 52 47 |NETXTARG.MOFIARG| 000025E0: 45 4E 44 3A 44 45 59 3B D4 45 58 54 4C 41 45 4E |END:DEY;.EXTLAEN| 000025F0: 47 45 20 D3 50 45 49 43 48 45 52 4E 00 53 54 59 |GE .PEICHERN.STY| 00002600: 42 55 46 00 4A 53 52 4E 45 58 54 5A 45 49 00 53 |BUF.JSRNEXTZEI.S| 00002610: 45 41 53 54 52 3A 4C 44 59 42 55 46 3B DA 45 49 |EASTR:LDYBUF;.EI| 00002620: 43 48 45 4E 20 31 20 56 45 52 47 4C 45 49 43 48 |CHEN 1 VERGLEICH| 00002630: 45 4E 00 4A 53 52 5A 47 45 54 00 43 4D 50 42 55 |EN.JSRZGET.CMPBU| 00002640: 46 46 45 52 2C 59 00 42 45 51 4C 41 53 54 43 48 |FFER,Y.BEQLASTCH| 00002650: 52 4F 4B 3B 47 4C 45 49 43 48 00 4E 45 58 54 50 |ROK;GLEICH.NEXTP| 00002660: 41 52 54 3A 49 4E 43 5A 47 3B C1 44 52 45 53 53 |ART:INCZG;.DRESS| 00002670: 45 2B 31 00 42 4E 45 2A 2B 34 00 49 4E 43 5A 47 |E+1.BNE*+4.INCZG| 00002680: 2B 31 00 4A 53 52 4D 4F 41 42 4F 52 54 3F 00 42 |+1.JSRMOABORT?.B| 00002690: 4E 45 53 45 41 53 54 52 3B 57 45 49 54 45 52 53 |NESEASTR;WEITERS| 000026A0: 55 43 48 45 4E 00 4A 4D 50 4D 4F 4E 49 43 4D 44 |UCHEN.JMPMONICMD| 000026B0: 00 20 00 4C 41 53 54 43 48 52 4F 4B 3A 44 45 59 |. .LASTCHROK:DEY| 000026C0: 3B CB 45 54 54 45 20 56 45 52 47 4C 45 49 43 48 |;.ETTE VERGLEICH| 000026D0: 45 4E 00 42 4D 49 4D 4F 46 4F 55 4E 44 3B CB 45 |EN.BMIMOFOUND;.E| 000026E0: 54 54 45 20 47 45 46 55 4E 44 45 4E 00 4A 53 52 |TTE GEFUNDEN.JSR| 000026F0: 5A 47 45 54 3B 57 45 49 54 45 52 56 45 52 47 4C |ZGET;WEITERVERGL| 00002700: 45 49 43 48 45 4E 00 43 4D 50 42 55 46 46 45 52 |EICHEN.CMPBUFFER| 00002710: 2C 59 00 42 45 51 4C 41 53 54 43 48 52 4F 4B 00 |,Y.BEQLASTCHROK.| 00002720: 42 4E 45 4E 45 58 54 50 41 52 54 3B 55 4E 47 4C |BNENEXTPART;UNGL| 00002730: 45 49 43 48 00 4D 4F 46 4F 55 4E 44 3A 4A 53 52 |EICH.MOFOUND:JSR| 00002740: 5A 47 48 45 58 4F 55 54 3B 47 45 46 55 4E 44 45 |ZGHEXOUT;GEFUNDE| 00002750: 4E 2D 3E C1 44 52 45 53 53 45 20 41 55 53 47 45 |N->.DRESSE AUSGE| 00002760: 42 45 4E 00 4A 4D 50 4E 45 58 54 50 41 52 54 3B |BEN.JMPNEXTPART;| 00002770: 55 4E 44 20 57 45 49 54 45 52 53 55 43 48 45 4E |UND WEITERSUCHEN| 00002780: 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. .;************| 00002790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000027A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A |***********.;* *| 000027B0: 20 20 20 20 20 20 20 20 C4 49 53 4B 20 2D 20 C2 | .ISK - .| 000027C0: 45 46 45 48 4C 45 20 20 20 20 20 20 20 20 20 20 |EFEHLE | 000027D0: 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;**********| 000027E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000027F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 |*************. .| 00002800: 4B 41 4E 41 4C 31 35 3A 4C 44 41 23 30 3B 4F 50 |KANAL15:LDA#0;OP| 00002810: 45 4E 31 2C 38 2C 31 35 00 4A 53 52 53 45 54 4E |EN1,8,15.JSRSETN| 00002820: 41 4D 45 3B 4B 45 49 4E 20 CE 41 4D 45 00 4C 44 |AME;KEIN .AME.LD| 00002830: 58 23 46 4C 4F 44 45 56 3B 31 2C 38 2C 31 35 00 |X#FLODEV;1,8,15.| 00002840: 4C 44 41 23 31 00 4C 44 59 23 31 35 00 4A 53 52 |LDA#1.LDY#15.JSR| 00002850: 53 45 54 50 41 52 41 00 4A 4D 50 4F 50 45 4E 00 |SETPARA.JMPOPEN.| 00002860: 20 00 4B 41 4E 41 4C 32 3A 4C 44 41 23 31 3B 4F | .KANAL2:LDA#1;O| 00002870: 50 45 4E 32 2C 38 2C 32 2C 22 23 22 00 4C 44 58 |PEN2,8,2,"#".LDX| 00002880: 23 3C 44 49 53 4B 53 54 52 49 4E 47 00 4C 44 59 |#<DISKSTRING.LDY| 00002890: 23 3E 44 49 53 4B 53 54 52 49 4E 47 00 4A 53 52 |#>DISKSTRING.JSR| 000028A0: 53 45 54 4E 41 4D 45 3B 4E 41 4D 45 20 27 23 27 |SETNAME;NAME '#'| 000028B0: 00 4C 44 41 23 32 3B 32 2C 38 2C 32 00 54 41 59 |.LDA#2;2,8,2.TAY| 000028C0: 00 4C 44 58 23 46 4C 4F 44 45 56 00 4A 53 52 53 |.LDX#FLODEV.JSRS| 000028D0: 45 54 50 41 52 41 00 4A 4D 50 4F 50 45 4E 00 20 |ETPARA.JMPOPEN. | 000028E0: 00 53 45 4E 44 4F 52 44 45 52 3A 4C 44 58 23 31 |.SENDORDER:LDX#1| 000028F0: 3B C2 45 46 45 48 4C 2D 3E C4 49 53 4B 00 4A 53 |;.EFEHL->.ISK.JS| 00002900: 52 43 4B 4F 55 54 3B C1 55 53 47 41 42 45 20 41 |RCKOUT;.USGABE A| 00002910: 55 46 20 C4 49 53 4B 00 4C 44 58 23 30 00 53 45 |UF .ISK.LDX#0.SE| 00002920: 4F 52 44 3A 4C 44 41 42 55 46 46 45 52 32 2C 58 |ORD:LDABUFFER2,X| 00002930: 3B D3 54 52 49 4E 47 00 4A 53 52 42 53 4F 55 54 |;.TRING.JSRBSOUT| 00002940: 52 3B 41 55 53 47 45 42 45 4E 00 49 4E 58 00 43 |R;AUSGEBEN.INX.C| 00002950: 50 58 23 31 34 3B 31 34 20 C2 59 54 45 00 42 4E |PX#14;14 .YTE.BN| 00002960: 45 53 45 4F 52 44 00 4A 4D 50 43 4C 52 43 48 3B |ESEORD.JMPCLRCH;| 00002970: C1 55 53 47 41 42 45 20 4E 4F 52 4D 41 4C 00 20 |.USGABE NORMAL. | 00002980: 00 53 45 4E 44 42 55 46 50 4F 49 3A 4C 44 58 23 |.SENDBUFPOI:LDX#| 00002990: 31 3B C2 2D D0 20 C2 45 46 45 48 4C 2D 3E C4 49 |1;.-. .EFEHL->.I| 000029A0: 53 4B 00 4A 53 52 43 4B 4F 55 54 00 4C 44 58 23 |SK.JSRCKOUT.LDX#| 000029B0: 30 00 53 45 42 55 50 4F 49 3A 4C 44 41 42 55 46 |0.SEBUPOI:LDABUF| 000029C0: 50 4F 49 4E 54 2C 58 3B D3 54 52 49 4E 47 00 4A |POINT,X;.TRING.J| 000029D0: 53 52 42 53 4F 55 54 52 3B 41 55 53 47 45 42 45 |SRBSOUTR;AUSGEBE| 000029E0: 4E 00 49 4E 58 00 43 50 58 23 37 3B 55 20 C2 59 |N.INX.CPX#7;U .Y| 000029F0: 54 45 00 42 4E 45 53 45 42 55 50 4F 49 00 4A 4D |TE.BNESEBUPOI.JM| 00002A00: 50 43 4C 52 43 48 00 20 00 52 45 41 44 42 55 46 |PCLRCH. .READBUF| 00002A10: 46 45 52 3A 4A 53 52 4B 41 4E 41 4C 31 35 3B C2 |FER:JSRKANAL15;.| 00002A20: 4C 4F 43 4B 20 49 4E 20 C2 55 46 46 45 52 20 4C |LOCK IN .UFFER L| 00002A30: 45 53 45 4E 00 4A 53 52 4B 41 4E 41 4C 32 3B 4F |ESEN.JSRKANAL2;O| 00002A40: 50 45 4E 31 2C 38 2C 31 35 3A 4F 50 45 4E 32 2C |PEN1,8,15:OPEN2,| 00002A50: 38 2C 32 2C 22 23 22 00 4A 53 52 53 45 43 54 4F |8,2,"#".JSRSECTO| 00002A60: 52 3B D4 52 41 43 4B 2F D3 45 43 54 4F 52 20 48 |R;.RACK/.ECTOR H| 00002A70: 4F 4C 45 4E 00 4C 44 41 23 27 31 3B 55 31 20 42 |OLEN.LDA#'1;U1 B| 00002A80: 45 46 45 48 4C 00 53 54 41 42 55 46 46 45 52 32 |EFEHL.STABUFFER2| 00002A90: 2B 31 00 4A 53 52 53 45 4E 44 4F 52 44 45 52 3B |+1.JSRSENDORDER;| 00002AA0: 50 52 49 4E 54 23 31 2C 22 55 31 20 32 20 30 20 |PRINT#1,"U1 2 0 | 00002AB0: 54 20 53 22 00 4A 53 52 53 45 4E 44 42 55 46 50 |T S".JSRSENDBUFP| 00002AC0: 4F 49 00 4C 44 58 23 32 3B 47 45 54 23 32 00 4A |OI.LDX#2;GET#2.J| 00002AD0: 53 52 43 48 4B 49 4E 00 4C 44 58 23 30 3B 32 35 |SRCHKIN.LDX#0;25| 00002AE0: 36 20 C2 59 54 45 00 52 45 41 44 42 55 46 3A 4A |6 .YTE.READBUF:J| 00002AF0: 53 52 42 41 53 49 4E 52 3B 4C 45 53 45 4E 00 53 |SRBASINR;LESEN.S| 00002B00: 54 41 42 55 46 42 55 46 46 45 52 2C 58 3B 2D 3E |TABUFBUFFER,X;->| 00002B10: 20 D2 C1 CD 00 49 4E 58 00 42 4E 45 52 45 41 44 | ....INX.BNEREAD| 00002B20: 42 55 46 00 4A 53 52 43 4C 4F 41 4C 4C 3B C6 49 |BUF.JSRCLOALL;.I| 00002B30: 4C 45 20 D3 43 48 4C 49 45 53 53 45 4E 00 4A 4D |LE .CHLIESSEN.JM| 00002B40: 50 4D 4F 4E 49 43 4D 44 00 20 00 57 52 49 54 45 |PMONICMD. .WRITE| 00002B50: 42 55 46 46 45 52 3A 4A 53 52 4B 41 4E 41 4C 31 |BUFFER:JSRKANAL1| 00002B60: 35 3B 41 55 46 20 C2 4C 4F 43 4B 20 53 43 48 52 |5;AUF .LOCK SCHR| 00002B70: 45 49 42 45 4E 00 4A 53 52 4B 41 4E 41 4C 32 3B |EIBEN.JSRKANAL2;| 00002B80: 4F 50 45 4E 31 2C 38 2C 31 35 3A 4F 50 45 4E 32 |OPEN1,8,15:OPEN2| 00002B90: 2C 38 2C 32 2C 22 23 22 00 4A 53 52 42 41 53 49 |,8,2,"#".JSRBASI| 00002BA0: 4E 00 43 4D 50 23 31 33 00 42 45 51 53 41 4D 45 |N.CMP#13.BEQSAME| 00002BB0: 42 4C 4F 43 4B 00 4A 53 52 53 45 43 54 4F 52 3B |BLOCK.JSRSECTOR;| 00002BC0: D4 52 41 43 4B 2F D3 45 43 54 4F 52 20 48 4F 4C |.RACK/.ECTOR HOL| 00002BD0: 45 4E 00 4A 4D 50 42 45 46 32 53 45 54 5A 00 53 |EN.JMPBEF2SETZ.S| 00002BE0: 41 4D 45 42 4C 4F 43 4B 3A 4A 53 52 57 45 52 54 |AMEBLOCK:JSRWERT| 00002BF0: 45 53 45 54 5A 00 42 45 46 32 53 45 54 5A 3A 4C |ESETZ.BEF2SETZ:L| 00002C00: 44 41 23 27 32 3B 55 32 20 C2 45 46 45 48 4C 00 |DA#'2;U2 .EFEHL.| 00002C10: 53 54 41 42 55 46 46 45 52 32 2B 31 00 4A 53 52 |STABUFFER2+1.JSR| 00002C20: 53 45 4E 44 42 55 46 50 4F 49 00 4C 44 58 23 32 |SENDBUFPOI.LDX#2| 00002C30: 3B 50 52 49 4E 54 23 32 00 4A 53 52 43 4B 4F 55 |;PRINT#2.JSRCKOU| 00002C40: 54 00 4C 44 58 23 30 3B 32 35 36 20 C2 59 54 45 |T.LDX#0;256 .YTE| 00002C50: 00 57 52 49 42 55 46 3A 4C 44 41 42 55 46 42 55 |.WRIBUF:LDABUFBU| 00002C60: 46 46 45 52 2C 58 00 4A 53 52 42 53 4F 55 54 52 |FFER,X.JSRBSOUTR| 00002C70: 3B 41 55 53 47 45 42 45 4E 00 49 4E 58 00 42 4E |;AUSGEBEN.INX.BN| 00002C80: 45 57 52 49 42 55 46 00 4A 53 52 53 45 4E 44 4F |EWRIBUF.JSRSENDO| 00002C90: 52 44 45 52 00 4A 53 52 43 4C 4F 41 4C 4C 00 4A |RDER.JSRCLOALL.J| 00002CA0: 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 53 45 43 54 |MPMONICMD. .SECT| 00002CB0: 4F 52 3A 4A 53 52 42 41 53 49 4E 3B D4 52 41 43 |OR:JSRBASIN;.RAC| 00002CC0: 4B 2F D3 45 43 54 4F 52 20 48 4F 4C 45 4E 00 43 |K/.ECTOR HOLEN.C| 00002CD0: 4D 50 23 31 33 00 42 45 51 4C 4F 47 49 43 53 45 |MP#13.BEQLOGICSE| 00002CE0: 43 3B 4B 45 49 4E 45 20 C1 4E 47 41 42 45 00 43 |C;KEINE .NGABE.C| 00002CF0: 4D 50 23 33 32 3B CC 45 45 52 5A 45 49 43 48 45 |MP#32;.EERZEICHE| 00002D00: 4E 20 55 45 42 45 52 4C 45 53 45 4E 00 42 45 51 |N UEBERLESEN.BEQ| 00002D10: 53 45 43 54 4F 52 00 4A 53 52 48 45 58 49 4E 2B |SECTOR.JSRHEXIN+| 00002D20: 33 3B D4 52 41 43 4B 20 45 49 4E 4C 45 53 45 4E |3;.RACK EINLESEN| 00002D30: 00 4C 44 41 5A 41 48 4C 31 00 53 54 41 54 52 41 |.LDAZAHL1.STATRA| 00002D40: 43 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E 00 |C;UND SPEICHERN.| 00002D50: 4C 44 41 4C 41 53 54 43 48 52 00 43 4D 50 23 31 |LDALASTCHR.CMP#1| 00002D60: 33 00 42 4E 45 53 45 43 46 4F 4C 47 54 00 4C 44 |3.BNESECFOLGT.LD| 00002D70: 41 23 27 3F 3B D3 45 43 54 4F 52 20 46 45 48 4C |A#'?;.ECTOR FEHL| 00002D80: 54 00 4A 53 52 42 53 4F 55 54 00 4A 4D 50 4D 4F |T.JSRBSOUT.JMPMO| 00002D90: 4E 49 43 4D 44 00 53 45 43 46 4F 4C 47 54 3A 4A |NICMD.SECFOLGT:J| 00002DA0: 53 52 48 45 58 42 59 49 4E 3B D3 45 43 54 4F 52 |SRHEXBYIN;.ECTOR| 00002DB0: 20 48 4F 4C 45 4E 00 53 54 41 53 45 43 54 00 57 | HOLEN.STASECT.W| 00002DC0: 45 52 54 45 53 45 54 5A 3A 4C 44 41 23 33 32 3B |ERTESETZ:LDA#32;| 00002DD0: 41 4C 54 45 4E 20 D4 45 58 54 20 4C 4F 45 53 43 |ALTEN .EXT LOESC| 00002DE0: 48 45 4E 00 4C 44 58 23 36 00 45 52 41 54 53 3A |HEN.LDX#6.ERATS:| 00002DF0: 53 54 41 42 55 46 46 45 52 32 2B 37 2C 58 00 44 |STABUFFER2+7,X.D| 00002E00: 45 58 00 42 50 4C 45 52 41 54 53 00 4C 44 41 54 |EX.BPLERATS.LDAT| 00002E10: 52 41 43 3B D4 52 41 43 4B 20 4E 41 43 48 20 C1 |RAC;.RACK NACH .| 00002E20: D3 C3 C9 C9 20 57 41 4E 44 45 4C 4E 00 53 54 41 |.... WANDELN.STA| 00002E30: 5A 41 48 4C 31 00 4C 44 41 23 30 00 53 54 41 5A |ZAHL1.LDA#0.STAZ| 00002E40: 41 48 4C 31 2B 31 00 4A 53 52 5A 41 48 4C 54 4F |AHL1+1.JSRZAHLTO| 00002E50: 44 45 5A 00 4C 44 59 23 30 3B D4 52 41 43 4B 20 |DEZ.LDY#0;.RACK | 00002E60: 49 4E 20 C2 45 46 45 48 4C 53 54 45 58 54 00 54 |IN .EFEHLSTEXT.T| 00002E70: 52 41 43 4B 3A 50 4C 41 00 53 54 41 42 55 46 46 |RACK:PLA.STABUFF| 00002E80: 45 52 32 2B 37 2C 59 3B 45 49 4E 46 55 45 47 45 |ER2+7,Y;EINFUEGE| 00002E90: 4E 00 49 4E 59 00 44 45 58 00 42 50 4C 54 52 41 |N.INY.DEX.BPLTRA| 00002EA0: 43 4B 00 4C 44 41 53 45 43 54 3B D3 45 43 54 4F |CK.LDASECT;.ECTO| 00002EB0: 52 2D 3E C1 D3 C3 C9 C9 00 53 54 41 5A 41 48 4C |R->......STAZAHL| 00002EC0: 31 00 4A 53 52 5A 41 48 4C 54 4F 44 45 5A 00 4C |1.JSRZAHLTODEZ.L| 00002ED0: 44 59 23 30 00 53 45 43 54 53 45 54 3A 50 4C 41 |DY#0.SECTSET:PLA| 00002EE0: 00 53 54 41 42 55 46 46 45 52 32 2B 31 31 2C 59 |.STABUFFER2+11,Y| 00002EF0: 3B 55 4E 44 20 45 49 4E 46 55 45 47 45 4E 00 49 |;UND EINFUEGEN.I| 00002F00: 4E 59 00 44 45 58 00 42 50 4C 53 45 43 54 53 45 |NY.DEX.BPLSECTSE| 00002F10: 54 00 52 54 53 00 20 00 4C 4F 47 49 43 53 45 43 |T.RTS. .LOGICSEC| 00002F20: 3A 4C 44 41 42 55 46 42 55 46 46 45 52 3B 4C 4F |:LDABUFBUFFER;LO| 00002F30: 47 49 53 43 48 20 4E 41 45 43 48 53 54 45 4E 20 |GISCH NAECHSTEN | 00002F40: C2 4C 4F 43 4B 00 53 54 41 54 52 41 43 3B 45 49 |.LOCK.STATRAC;EI| 00002F50: 4E 54 52 41 47 45 4E 00 4C 44 41 42 55 46 42 55 |NTRAGEN.LDABUFBU| 00002F60: 46 46 45 52 2B 31 00 53 54 41 53 45 43 54 00 4A |FFER+1.STASECT.J| 00002F70: 4D 50 57 45 52 54 45 53 45 54 5A 00 20 00 49 4E |MPWERTESETZ. .IN| 00002F80: 46 4F 3A 4C 44 41 23 33 32 3B D4 52 41 43 4B 2F |FO:LDA#32;.RACK/| 00002F90: D3 45 43 54 4F 52 20 41 55 53 47 45 42 45 4E 00 |.ECTOR AUSGEBEN.| 00002FA0: 4A 53 52 42 53 4F 55 54 00 4C 44 41 54 52 41 43 |JSRBSOUT.LDATRAC| 00002FB0: 3B D4 52 41 43 4B 20 41 55 53 47 45 42 45 4E 00 |;.RACK AUSGEBEN.| 00002FC0: 4A 53 52 41 55 53 47 45 42 45 4E 00 4C 44 41 53 |JSRAUSGEBEN.LDAS| 00002FD0: 45 43 54 3B D3 45 43 54 4F 52 20 41 55 53 47 45 |ECT;.ECTOR AUSGE| 00002FE0: 42 45 4E 00 4A 53 52 41 55 53 47 45 42 45 4E 00 |BEN.JSRAUSGEBEN.| 00002FF0: 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 45 44 49 |JMPMONICMD. .EDI| 00003000: 54 42 55 46 46 45 52 3A 4C 44 41 23 30 3B C2 4C |TBUFFER:LDA#0;.L| 00003010: 4F 43 4B 49 4E 48 41 4C 54 20 41 4E 5A 45 49 47 |OCKINHALT ANZEIG| 00003020: 45 4E 00 53 54 41 5A 47 3B 56 4F 4E 20 30 20 42 |EN.STAZG;VON 0 B| 00003030: 49 53 20 24 46 46 00 53 54 41 5A 41 48 4C 31 00 |IS $FF.STAZAHL1.| 00003040: 4C 44 41 23 24 46 46 00 53 54 41 5A 41 48 4C 32 |LDA#$FF.STAZAHL2| 00003050: 00 4A 53 52 42 41 53 49 4E 00 43 4D 50 23 31 33 |.JSRBASIN.CMP#13| 00003060: 00 42 45 51 4E 4F 42 45 52 50 41 52 41 3B 4B 45 |.BEQNOBERPARA;KE| 00003070: 49 4E 20 C2 45 52 45 49 43 48 20 41 4E 47 45 47 |IN .EREICH ANGEG| 00003080: 45 42 45 4E 00 4A 53 52 48 45 58 42 45 52 45 49 |EBEN.JSRHEXBEREI| 00003090: 43 48 3B C2 45 52 45 49 43 48 20 45 49 4E 4C 45 |CH;.EREICH EINLE| 000030A0: 53 45 4E 00 4E 4F 42 45 52 50 41 52 41 3A 4C 44 |SEN.NOBERPARA:LD| 000030B0: 41 23 3E 42 55 46 42 55 46 46 45 52 00 53 54 41 |A#>BUFBUFFER.STA| 000030C0: 5A 41 48 4C 31 2B 31 3B C1 44 52 45 53 53 45 20 |ZAHL1+1;.DRESSE | 000030D0: 44 45 53 20 C2 55 46 46 45 52 53 00 53 54 41 5A |DES .UFFERS.STAZ| 000030E0: 41 48 4C 32 2B 31 00 53 54 41 5A 47 2B 31 00 4C |AHL2+1.STAZG+1.L| 000030F0: 44 41 41 53 53 46 4C 32 3B C4 49 53 4B 2D 4D 4F |DAASSFL2;.ISK-MO| 00003100: 4E 20 C6 4C 41 47 00 4F 52 41 23 34 3B 53 45 54 |N .LAG.ORA#4;SET| 00003110: 5A 45 4E 00 53 54 41 41 53 53 46 4C 32 00 4A 4D |ZEN.STAASSFL2.JM| 00003120: 50 4D 45 4D 4F 32 3B D7 45 49 54 45 52 20 42 45 |PMEMO2;.EITER BE| 00003130: 49 4D 20 D3 50 45 49 43 48 45 52 42 45 46 45 48 |IM .PEICHERBEFEH| 00003140: 4C 00 20 00 46 4C 4F 4D 45 4C 44 3A 4C 44 41 23 |L. .FLOMELD:LDA#| 00003150: 33 32 3B C4 49 53 4B 20 C6 45 48 4C 45 52 4B 41 |32;.ISK .EHLERKA| 00003160: 4E 41 4C 00 4A 53 52 42 53 4F 55 54 00 4A 53 52 |NAL.JSRBSOUT.JSR| 00003170: 44 49 53 4B 45 52 52 3B 41 55 53 47 45 42 45 4E |DISKERR;AUSGEBEN| 00003180: 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 3B C4 |.JMPMONICMD. .;.| 00003190: 49 53 4B 45 54 54 45 4E 42 45 46 45 48 4C 53 54 |ISKETTENBEFEHLST| 000031A0: 45 58 54 45 00 44 49 53 4B 53 54 52 49 4E 47 3A |EXTE.DISKSTRING:| 000031B0: 2E 42 59 22 23 55 31 20 32 20 30 20 20 20 20 20 |.BY"#U1 2 0 | 000031C0: 20 20 20 22 00 42 55 46 50 4F 49 4E 54 3A 2E 42 | ".BUFPOINT:.B| 000031D0: 59 22 42 2D 50 20 32 20 30 22 00 20 00 2E 46 49 |Y"B-P 2 0". ..FI| 000031E0: 22 44 49 53 22 00 00 00 |"DIS"... |
.1;;;--- QUELLDATEI MON. .;*************
**************************.;* * M
O N I T O R * *.;***********
****************************. .MONSTART:
LDX#64;MONITOR MELDUNG.JSRWRITE.JSRPUTMO
NRO;ROUTINEN SPEICHERN.LDX#1;DISKSTR. SP
EICHERN.SETORD:LDADISKSTRING,X.STABUFFER
2-1,X.INX.CPX#14;14 BYTE.BNESETORD.LDABR
EAKV;BREAK ADR. MERKEN.LDXBREAKV+1.STABR
K.STXBRK+1.LDA#<BREAKJUMP;BREAK-VECTOR U
MSETZEN.LDX#>BREAKJUMP.STABREAKV.STXBREA
KV+1.LDA#$37;PROZESSORPORTSTANDART.STAPP
.JMPMONICMD. .BREAK:LDX#1;RUECKKEHR NACH
BREAK.HOLREGS:PLA;REGISTER HOLEN.STABUF
FER3,X;UND SPEICHERN.INX.CPX#7.BNEHOLREG
S.TSX;STACKPOINTER HOLEN.STXSP.JMPREGIST
ER;REGISTER ANZEIGEN. .MONIRT:PLA;RUECKK
EHR NACH RTS.STAAC;REG. MERKEN.PLA.STAST
;STATUS.STXXR;X.STYYR;Y.TSX;STACKPOINTER
.STXSP. .REGISTER:LDX#65;REGISTER ANZEIG
EN.JSRWRITE.REGISTER1:LDA#';;REGISTER BE
FEHL.JSRBSOUT.LDAPCL;ADRESSE AUSGEBEN.ST
AZAHL1.LDAPCL+1.STAZAHL1+1.JSRZAHLHEXOUT
.LDA#32;ACCU AUSGEBEN.JSRBSOUT.LDAAC.JSR
AUSGEBEN.LDAXR;X-REG. AUSGEBEN.JSRAUSGEB
EN.LDAYR;Y-REG. AUSGEBEN.JSRAUSGEBEN.LDA
SP;STACK-POINTER AUSGEBEN.JSRAUSGEBEN.LD
X#8;STATUS BINAER AUSGEBEN.LDAST.BINAUS:
ASL;BIT->CARRY.PHA.LDA#'0;-> ZEICHEN.ADC
#0.JSRBSOUT;AUSGEBEN.PLA.DEX;8-BIT ?.BNE
BINAUS.LDA#32.JSRBSOUT.LDAPP;UNTERSTE 3
BIT.LDX#5;VON PP AUSGEBEN.BINAUS2:ASL;PP
*32.DEX.BNEBINAUS2.LDX#3;OBERE 3 BIT AUS
GEBEN.BINAUS3:ASL.PHA.LDA#'0.ADC#0.JSRBS
OUT.PLA.DEX;FERTIG ?.BNEBINAUS3.LDA#32.J
SRBSOUT.LDAST;STATUS HEX. AUSGEBEN.JSRAU
SGEBEN.LDAPP;PP HEX. AUSGEBEN.JSRAUSGEBE
N.JMPMONICMD. .MONICMD:JSRNEXTZEI;BEFEHL
HOLEN.JSRPUTMONRO.LDXSTACK;STACKPOINTER
KORRIGIEREN.TXS.LDAASSFL2;KEIN DISKMON
BEFEHL.AND#$FF-4.STAASSFL2.JSRBASIN;BEFE
HL HOLEN.LDX#23;IN TABELLE SUCHEN.SEAMON
CMD:CMPMONICMDS,X.BEQFOMOCMD.DEX.BMIMONI
CMD;NICHT IN TABELLE.BPLSEAMONCMD;WEITER
SUCHEN. .FOMOCMD:TXA;BEFEHL GEFUNDEN.ASL
.TAX.LDAMOCMDTAB+1,X;ADR. DER ROUTINE AU
F STACK.PHA.LDAMOCMDTAB,X.PHA.RTS;ZUR RO
UTINE. .;TABELLE DER MONITORBEFEHLE UND
ADRESEN.MONICMDS:.BY"DXFGCALMRS=UP':;,BW
IE@.V";BEFEHLSLISTE. .MOCMDTAB:.WODISAS-
1;D-DISASSEMBLER..WOEXIT-1;X-ZUM MENUE..
WOMOFIND-1;F-SUCHEN..WOGO-1;G-GO..WOCODE
TEXT-1;C-DISPLAY CODE..WOASCIITEXT-1;A-A
SCII CODE..WOMONLOAD-1;L-LOAD..WOMEMOR-1
;M-SPEICHERINHALT..WOREGISTER-1;R-REGIST
ER..WOMONSAVE-1;S-SAVE..WORAMVERGL-1;=-S
PEICHERVERGLEICH..WOUNTERPRG-1;U-JSR..WO
PRIPLUMI-1;P-DRUCKER AN/AUS..WOTICK-1;TI
CK..WODOPPELPUNKT-1;DOPPELPUNKT..WOREGSI
N-1;SEMIKOLON..WOMOKOMMA-1;KOMMA..WOREAD
BUFFER-1;BLOCK IN BUFFER LESEN..WOWRITEB
UFFER-1;BLOCK AUF DISK SCHREIBEN..WOINFO
-1;TRACK/SECTOR ZEIGEN..WOEDITBUFFER-1;B
UFFER ANZEIGEN/AENDERN..WOFLOMELD-1;@-FL
OPPY ERROR..WOPUNKT-1;PUNKT..WOVERSCHIEB
EN-1;VERSCHIEBEN. .REGSIN:JSRHEXWIN;REGI
STERWERTE EINGEBEN.LDAZAHL1;ADRESSE HOLE
N.STAPCL.LDAZAHL1+1.STAPCL+1.JSRHEXBYIN;
ACCU HOLEN.STAAC.JSRHEXBYIN;X HOLEN.STAX
R.JSRHEXBYIN;Y HOLEN.STAYR.JSRHEXBYIN;ST
ACK-POINTER HOLEN.STASP.JSRBINBYIN;STATU
SFLAGGEN HOLEN.STAST.JSRBINBYIN;UNT. 3 B
IT DES PP HOLEN.AND#7.ORA#$30.STAPP.LDA#
0.STASPALTE;KORREKTUR ANZEIGEN.JMPREGIST
ER1. .HEXBYIN:JSRHEXWIN;HEXBYTE IN ACCU
HOLEN.LDAZAHL1.RTS. .BINBYIN:JSRBININ;BI
NBYTE IN ACCU HOLEN.LDAZAHL1.RTS. .UNTER
PRG:JSRPUTADRESSE;ADRESSE SPEICHERN.LDA#
$20;JSR ABLEGEN.STAJUMPBEFEHL.LDXXR;REGI
STER LADEN.LDYYR.LDAST;STATUS AUF STACK.
PHA.LDAAC;ACCU AUF STACK.PHA.JMPROUTINEN
;UNTERPRG. STARTEN. .GO:JSRPUTADRESSE;AD
RESSE SPEICHERN.LDA#$4C;JMP ABLEGEN.STAJ
UMPBEFEHL.LDXXR;REGISTER LADEN.LDYYR.LDA
ST;STATUS AUF STACK.PHA.LDAAC;ACCU AUF S
TACK.PHA.JMPROUTINEN. .PUTADRESSE:JSRHEX
WERTOE;ADR. FUER JMP/JSR SPEICHERN.LDAZA
HL1;KEINE EINGABE ?.ORAZAHL1+1.BEQPCADR;
DANN PC SPEICHER.LDAZAHL1.STAJUMPBEFEHL+
1.LDAZAHL1+1.STAJUMPBEFEHL+2.RTS.PCADR:L
DAPCL;ALTER PC.STAJUMPBEFEHL+1.LDAPCL+1.
STAJUMPBEFEHL+2.RTS. .EXIT:LDABRK;BREAKV
EKTOR NORMAL.LDXBRK+1.STABREAKV.STXBREAK
V+1.JMPMAIN;ZUM MENUE. .MEMOR:JSRHEXBERE
ICH;SPEICHERBEREICH ANZEIGEN.MEMO2:JSRNE
XTZEI.LDAASSFL2;DISK-MON ?.AND#4.PHA.BEQ
NODIMO;NEIN.LDA#'.;'.' FUER MODIFIKATION
.BIT;AUSGEBEN.NODIMO:LDA#':;SONST ':' AU
SGEBEN.JSRBSOUT.PLA;DISK-MON ?.BNEDIMO;J
A->NUR LOW AUSGEBEN.LDAZG+1;ADRESSE HIGH
AUSGEBEN.JSRHEXOUT.DIMO:LDAZG;ADRESSE L
OW AUSGEBEN.JSRAUSGEBEN.LDY#0.MEMO1:JSRZ
GET;WERT HOLEN.STABUF,Y;MERKEN.JSRAUSGEB
EN;UND AUSGEBEN.INY.CPY#8;BIS 8 WERTE AU
SGEGEBEN.BNEMEMO1.CLC;ZG+8.LDAZG.ADC#8.S
TAZG.BCC*+4.INCZG+1.JSRZEICHNEN;WERTE AL
S TEXT ANZEIGEN.JSRMOABORT?.BNEMEMO2;UND
WEITER.JMPMONICMD. .ZEICHNEN:LDA#32;WER
TE ALS TEXT ANZEIGEN.JSRBSOUT.LDY#0.MEMO
4:LDABUF,Y;WERT.JSRASCII?;AUF ASCII TEST
EN UND ANZEIGEN.INY.CPY#8;8 WERTE.BNEMEM
O4.RTS. .ASCII?:AND#$7F;WERT TESTEN.CMP#
32.BCSAC1;ASCII WERT.LDA#'.;KEIN ASCII W
ERT.BNEAC2.AC1:LDABUF,Y.AC2:JMPBSOUT. .A
SCIITEXT:JSRHEXBEREICH;ASCII TEXT ANZEIG
EN.ASTE1:JSRNEXTZEI.LDA#',;',' FUER MODI
FIKATION AUSGEBEN.JSRBSOUT.JSRZGHEXOUT;A
DRESSE AUSGEBEN.LDY#0.ASTE2:JSRZGET;WERT
HOLEN.JSRTEXT?;UND AUSGEBEN.INY.CPY#32;
BIS 32 WERTE AUSGEGEBEN.BNEASTE2.CLC;ZG+
32.LDAZG.ADC#32.STAZG.BCC*+4.INCZG+1.JSR
MOABORT?.BNEASTE1;UND WEITER.JMPMONICMD.
.CODETEXT:JSRHEXBEREICH;POKE TEXT AUSGE
BEN.COTE1:JSRNEXTZEI.LDA#39;''' FUER MOD
. AUSGEBEN.JSRBSOUT.JSRZGHEXOUT;ADRESSE
AUSGEBEN.LDY#0.COTE2:JSRZGET;WERT HOLEN.
JSRDISPL?;UND ANZEIGEN.INY.CPY#32;32 WER
TE AUSGEBEN.BNECOTE2.CLC.LDAZG;ZG+32.ADC
#32.STAZG.BCC*+4.INCZG+1.JSRMOABORT?.BNE
COTE1;UND WEITER.JMPMONICMD. .DISPL?:STA
BUF;AUF POKE CODE TESTEN.CMP#'9+1.BCCTEX
T?;AUF TEXT TESTEN.AND#%11000000;CODE WA
NDELN.ASL.ORA#%01000000.PHA.LDABUF.AND#%
111111.STABUF.PLA.ORABUF;UND TESTEN. .TE
XT?:PHA;AUF TEXT TESTEN.AND#$7F.CMP#32.B
CCT?1;KEIN TEXT.CMP#96.BCST?1;KEIN TEXT.
PLA;TEXT AUSGEBEN.JMPBSOUT.T?1:PLA;'.' A
USGEBEN.LDA#'..JMPBSOUT. .RAMVERGL:JSRHE
XWIN;SPEICHERVERGLEICH.STAZAHL2;ADRESSE
1 HOLEN.LDAZAHL1+1.STAZAHL2+1.JSRHEXWIN;
ADRESSE 2 HOLEN.LDY#0.DORAMVER:LDAZAHL1;
ZG AUF ADRESSE 2.STAZG.LDAZAHL1+1.STAZG+
1.JSRZGET;WERT HOLEN.STABUF;UND MERKEN.L
DAZAHL2;ZG AUF ADRESSE 1.STAZG.LDAZAHL2+
1.STAZG+1.JSRZGET;WERT HOLEN.CMPBUF;MIT
WERT 2 VERGLEICHEN.BNEUNGLEICH;UNGLEICH.
INCZAHL1;SONST NAECHTE ADRESSE TESTEN.BN
E*+4.INCZAHL1+1.INCZAHL2.BNE*+4.INCZAHL2
+1.JMPDORAMVER.UNGLEICH:JSRZGHEXOUT;UNGL
EICH->ADRESSE AUSGEBEN.LDAZAHL1+1;2. ADR
ESSE AUSGEBEN.JSRHEXOUT.LDAZAHL1.JSRHEXO
UT.JMPMONICMD. .HEXWERTOE:JSRBASIN;HEXWE
RT HOLEN.CMP#32;LEERZEICHEN UEBERLESEN.B
EQHEXWERTOE.CMP#13;KEINE EINGABE.BNE*+3.
RTS.JMPHEXIN+3;WERT HOLEN. .MOKOMMA:JSRH
EXWIN;ASCII TEXT MODIFIKATION.LDAZAHL1;Z
G AUF ADRESSE.STAZG.LDAZAHL1+1.STAZG+1.L
DY#0.TEXTPUT:JSRBASIN;TEXT EINLESEN.CMP#
'.;'.' UEBERLESEN.BEQNOTEXT.JSRZPUT;SONS
T TEXT SPEICHERN.NOTEXT:INY.CPY#32;BIS 3
2 WERTE GESPEICHERT.BNETEXTPUT.JMPMONICM
D. .TICK:JSRHEXWIN;POKE TEXT MODIFIKATIO
N.LDAZAHL1;ZG AUF ADRESSE.STAZG.LDAZAHL1
+1.STAZG+1.LDY#0.DPPUT:JSRBASIN;TEXT EIN
LESEN.CMP#'.;'.' UEBERLESEN.BEQNODPCODE.
CMP#0;TEXT IN CODE WANDELN.PHP.AND#%1111
11.PLP.BPL*+4.ORA#%01000000.JSRZPUT;UND
SPEICHERN.NODPCODE:INY.CPY#32;BIS 32 WER
TE GESPEICHERT.BNEDPPUT.JMPMONICMD. .PUN
KT:JSRHEXWIN;DISK BUFFER MODIFIKATION.LD
AZAHL1;ZG AUF BUFFER.STAZG.LDA#>BUFBUFFE
R.STAZG+1.JMPWERTEHOL.DOPPELPUNKT:JSRHEX
WIN;MEMORY MODIFIKATION.LDAZAHL1;ZG AUF
ADRESSE.STAZG.LDAZAHL1+1.STAZG+1.WERTEHO
L:LDY#0.DOPU:JSRHEXIN;WERT EINLESEN.LDAZ
AHL1.JSRZPUT;SPEICHERN.STABUF,Y;UND MERK
EN.INY.CPY#8;BIS 8 WERTE GESPEICHERT.BNE
DOPU.JSRZEICHNEN;TEXT NEU AUSGEBEN.JMPMO
NICMD. .MONLOAD:LDX#FLODEV;FILE LADEN.LD
Y#0.STYBUF.LDA#1;FILEPARAMETER SETZEN.JS
RSETPARA.MONLOAD1:JSRBASIN.CMP#32;LEERZE
ICHEN UEBERLESEN.BEQMONLOAD1.CMP#'".BEQA
BSLOAD;NAME FOLGT.JSRHEXIN+3;ADRESSE FOL
GT.INCBUF;FLAG SETZEN.CMP#'".BNEMONLOAD1
.ABSLOAD:LDY#0;FILENAME ->BUFFER EINLESE
N.FNI:JSRBASIN.STABUFFER,Y.INY.CMP#'".BN
EFNI.DEY.TYA;NAMENPARAMETER SETZEN.LDX#<
BUFFER.LDY#>BUFFER.JSRSETNAME.JSROPEN;OP
EN1,8,0,"FILENAME".LDX#1;EINGABE AUS FIL
E.JSRCHKIN.JSRBASINR;WERT HOLEN.STAZAHL2
;UND MERKEN.STAZG.JSRBASINR;HIGH BYTE HO
LEN.STAZAHL2+1.STAZG+1.LDABUF;FLAG TESTE
N.BEQLOREL;FILEADRESSE GILT.LDAZAHL1;ANG
EGEBENE ADRESSE.STAZAHL2;IST STARTADRESS
E.STAZG.LDAZAHL1+1.STAZAHL2+1.STAZG+1.LO
REL:JSRBASINR;FILE ABSPEICHERN.LDY#0.JSR
ZPUT.INCZG.BNE*+4.INCZG+1.LDASTATUS;BIS
FILEENDE.BEQLOREL.JSRCLOALL;FILE SCHLIES
SEN.LDAZAHL2+1;STARTADRESSE AUSGEBEN.JSR
HEXOUT.LDAZAHL2.JSRAUSGEBEN.JSRZGHEXOUT;
ENDADRESSE AUSGEBEN.JMPMONICMD. .MONSAVE
:JSRBASIN;FILE ABSPEICHERN.CMP#32.BEQMON
SAVE.LDY#0.FNI1:JSRBASIN;FILENAMEN HOLEN
.STABUFFER,Y.INY.CMP#'".BNEFNI1.DEY.TYA.
LDX#<BUFFER;FILENAMEN SETZEN.LDY#>BUFFER
.JSRSETNAME.LDX#FLODEV;FILEPARAMETER SET
ZEN.LDA#1.TAY.JSRSETPARA.JSRHEXBEREICH;<
VON> <BIS> HOLEN.JSROPEN;OPEN1,8,1,"FILE
NAME".LDX#1;AUSGABE AUF DISK.JSRCKOUT.LD
AZG;ADRESSE AUF DISK.JSRBSOUTR.LDAZG+1.J
SRBSOUTR.MOSA:LDY#0;FILE ABSPEICHERN.JSR
ZGET.JSRBSOUTR.INCZG.BNE*+4.INCZG+1.LDAZ
G;ADRESSE MIT ENDADRESSE VERGLEICHEN.STA
ZAHL1.LDAZG+1.STAZAHL1+1.JSRVERGLEICH.BC
CMOSA;WEITER.JSRCLOALL;FERTIG->FILE SCHL
IESSEN.JMPMONICMD. .VERSCHIEBEN:JSRHEXWI
N;SPEICHERBEREICH VERSCHIEBEN.LDAZAHL1;<
VON> MERKEN.PHA.LDAZAHL1+1.PHA.JSRHEXWIN
.LDAZAHL1.STAMEM1;<BIS>->MEM1/2.LDAZAHL1
+1.STAMEM2.JSRHEXWIN.LDAZAHL1;<NACH>->ZA
HL2.STAZAHL2.LDAZAHL1+1.STAZAHL2+1.PLA;<
VON>->ZAHL1 ZURUECKSETZEN.STAZAHL1+1.PLA
.STAZAHL1.JSRMOVE;VERSCHIEBEROUTINE.JMPM
ONICMD. .PRIPLUMI:JSRBASIN;PRINTER ON/OF
F.CMP#'+.BEQPRIPLU;EINSCHALTEN.JSRCLOALL
;AUSSCHALTEN.LDAFLAGS;FLAGS LOESCHEN.AND
#$FF-8.STAFLAGS.LDA#0.STAASSFL2.JMPMONIC
MD. .PRIPLU:LDA#0;PRINTER EINSCHALTEN.JS
RSETNAME;FILE OEFFNEN.LDX#DRUDEV.LDA#3.L
DY#DRUSEC.JSRSETPARA.JSROPEN;OPEN3,4,0.L
DA#2;FLAGS SETZEN.STAASSFL2.LDAFLAGS.AND
#%00000111.ORA#8.STAFLAGS.JMPMONICMD. .M
OFIND:JSRHEXBEREICH;SUCHBEREICH HOLEN.LD
Y#0.MOFIARG:JSRBASIN;SUCHKETTE HOLEN.CMP
#32;LEERZEICHEN UEBERLESEN.BEQMOFIARG.CM
P#13;KETTENENDE.BEQMOFIARGEND.CMP#'".BEQ
TXTARG;TEXT EINLESEN.JSRHEXIN+3;HEXBYTE
LESEN.LDAZAHL1.STABUFFER,Y;UND SPEICHERN
.INY.LDALASTCHR.CMP#13;<RETURN>?.BNEMOFI
ARG;NEIN->WEITERLESEN.BEQMOFIARGEND;JA->
SUCHEN.TXTARG:JSRBASIN;TEXT EINLESEN.CMP
#'";BIS '"'.BEQMOFIARG.STABUFFER,Y.INY.B
NETXTARG.MOFIARGEND:DEY;TEXTLAENGE SPEIC
HERN.STYBUF.JSRNEXTZEI.SEASTR:LDYBUF;ZEI
CHEN 1 VERGLEICHEN.JSRZGET.CMPBUFFER,Y.B
EQLASTCHROK;GLEICH.NEXTPART:INCZG;ADRESS
E+1.BNE*+4.INCZG+1.JSRMOABORT?.BNESEASTR
;WEITERSUCHEN.JMPMONICMD. .LASTCHROK:DEY
;KETTE VERGLEICHEN.BMIMOFOUND;KETTE GEFU
NDEN.JSRZGET;WEITERVERGLEICHEN.CMPBUFFER
,Y.BEQLASTCHROK.BNENEXTPART;UNGLEICH.MOF
OUND:JSRZGHEXOUT;GEFUNDEN->ADRESSE AUSGE
BEN.JMPNEXTPART;UND WEITERSUCHEN. .;****
***********************************.;* *
DISK - BEFEHLE * *.;**
*************************************. .
KANAL15:LDA#0;OPEN1,8,15.JSRSETNAME;KEIN
NAME.LDX#FLODEV;1,8,15.LDA#1.LDY#15.JSR
SETPARA.JMPOPEN. .KANAL2:LDA#1;OPEN2,8,2
,"#".LDX#<DISKSTRING.LDY#>DISKSTRING.JSR
SETNAME;NAME '#'.LDA#2;2,8,2.TAY.LDX#FLO
DEV.JSRSETPARA.JMPOPEN. .SENDORDER:LDX#1
;BEFEHL->DISK.JSRCKOUT;AUSGABE AUF DISK.
LDX#0.SEORD:LDABUFFER2,X;STRING.JSRBSOUT
R;AUSGEBEN.INX.CPX#14;14 BYTE.BNESEORD.J
MPCLRCH;AUSGABE NORMAL. .SENDBUFPOI:LDX#
1;B-P BEFEHL->DISK.JSRCKOUT.LDX#0.SEBUPO
I:LDABUFPOINT,X;STRING.JSRBSOUTR;AUSGEBE
N.INX.CPX#7;U BYTE.BNESEBUPOI.JMPCLRCH.
.READBUFFER:JSRKANAL15;BLOCK IN BUFFER L
ESEN.JSRKANAL2;OPEN1,8,15:OPEN2,8,2,"#".
JSRSECTOR;TRACK/SECTOR HOLEN.LDA#'1;U1 B
EFEHL.STABUFFER2+1.JSRSENDORDER;PRINT#1,
"U1 2 0 T S".JSRSENDBUFPOI.LDX#2;GET#2.J
SRCHKIN.LDX#0;256 BYTE.READBUF:JSRBASINR
;LESEN.STABUFBUFFER,X;-> RAM.INX.BNEREAD
BUF.JSRCLOALL;FILE SCHLIESSEN.JMPMONICMD
. .WRITEBUFFER:JSRKANAL15;AUF BLOCK SCHR
EIBEN.JSRKANAL2;OPEN1,8,15:OPEN2,8,2,"#"
.JSRBASIN.CMP#13.BEQSAMEBLOCK.JSRSECTOR;
TRACK/SECTOR HOLEN.JMPBEF2SETZ.SAMEBLOCK
:JSRWERTESETZ.BEF2SETZ:LDA#'2;U2 BEFEHL.
STABUFFER2+1.JSRSENDBUFPOI.LDX#2;PRINT#2
.JSRCKOUT.LDX#0;256 BYTE.WRIBUF:LDABUFBU
FFER,X.JSRBSOUTR;AUSGEBEN.INX.BNEWRIBUF.
JSRSENDORDER.JSRCLOALL.JMPMONICMD. .SECT
OR:JSRBASIN;TRACK/SECTOR HOLEN.CMP#13.BE
QLOGICSEC;KEINE ANGABE.CMP#32;LEERZEICHE
N UEBERLESEN.BEQSECTOR.JSRHEXIN+3;TRACK
EINLESEN.LDAZAHL1.STATRAC;UND SPEICHERN.
LDALASTCHR.CMP#13.BNESECFOLGT.LDA#'?;SEC
TOR FEHLT.JSRBSOUT.JMPMONICMD.SECFOLGT:J
SRHEXBYIN;SECTOR HOLEN.STASECT.WERTESETZ
:LDA#32;ALTEN TEXT LOESCHEN.LDX#6.ERATS:
STABUFFER2+7,X.DEX.BPLERATS.LDATRAC;TRAC
K NACH ASCII WANDELN.STAZAHL1.LDA#0.STAZ
AHL1+1.JSRZAHLTODEZ.LDY#0;TRACK IN BEFEH
LSTEXT.TRACK:PLA.STABUFFER2+7,Y;EINFUEGE
N.INY.DEX.BPLTRACK.LDASECT;SECTOR->ASCII
.STAZAHL1.JSRZAHLTODEZ.LDY#0.SECTSET:PLA
.STABUFFER2+11,Y;UND EINFUEGEN.INY.DEX.B
PLSECTSET.RTS. .LOGICSEC:LDABUFBUFFER;LO
GISCH NAECHSTEN BLOCK.STATRAC;EINTRAGEN.
LDABUFBUFFER+1.STASECT.JMPWERTESETZ. .IN
FO:LDA#32;TRACK/SECTOR AUSGEBEN.JSRBSOUT
.LDATRAC;TRACK AUSGEBEN.JSRAUSGEBEN.LDAS
ECT;SECTOR AUSGEBEN.JSRAUSGEBEN.JMPMONIC
MD. .EDITBUFFER:LDA#0;BLOCKINHALT ANZEIG
EN.STAZG;VON 0 BIS $FF.STAZAHL1.LDA#$FF.
STAZAHL2.JSRBASIN.CMP#13.BEQNOBERPARA;KE
IN BEREICH ANGEGEBEN.JSRHEXBEREICH;BEREI
CH EINLESEN.NOBERPARA:LDA#>BUFBUFFER.STA
ZAHL1+1;ADRESSE DES BUFFERS.STAZAHL2+1.S
TAZG+1.LDAASSFL2;DISK-MON FLAG.ORA#4;SET
ZEN.STAASSFL2.JMPMEMO2;WEITER BEIM SPEIC
HERBEFEHL. .FLOMELD:LDA#32;DISK FEHLERKA
NAL.JSRBSOUT.JSRDISKERR;AUSGEBEN.JMPMONI
CMD. .;DISKETTENBEFEHLSTEXTE.DISKSTRING:
.BY"#U1 2 0 ".BUFPOINT:.BY"B-P 2
0". ..FI"DIS"...
> CLICK IMAGE PREVIEW FOR FULL MODAL