DIS
FILE INFORMATION
FILENAME(S): DIS
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 5 disk(s)
FILE HASH
698c3704ab192d62feb3815a682d750ccd6d9ec38329fea9213647ef2ae58b60
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | DIS | PRG | Treasure Chest - Klaus Der Suhler | 14 | 20 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | DIS | PRG | Treasure Chest - Klaus Der Suhler | 13 | 1 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | DIS | PRG | Treasure Chest - Klaus Der Suhler | 14 | 20 | DOWNLOAD FILE |
| ORION CEBIT | DIS | PRG | Treasure Chest - OzzyC64 | 7 | 3 | DOWNLOAD FILE |
| ORION CEBIT | DIS | PRG | DuncanTwain | 7 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 22 0D 3B 3B 3B 2D 2D 2D 20 D1 55 45 4C 4C 44 41 |".;;;--- .UELLDA| 00000010: 54 45 49 20 44 49 53 00 20 00 3B 2A 2A 2A 2A 2A |TEI DIS. .;*****| 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 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 20 20 |*.;* * | 00000050: C4 49 53 41 53 53 45 4D 42 4C 45 52 20 20 20 20 |.ISASSEMBLER | 00000060: 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 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 00 20 00 44 49 53 41 53 3A 4A 53 52 50 55 54 |*. .DISAS:JSRPUT| 000000A0: 4D 4F 4E 52 4F 00 4A 53 52 48 45 58 42 45 52 45 |MONRO.JSRHEXBERE| 000000B0: 49 43 48 3B C2 45 52 45 49 43 48 20 45 49 4E 4C |ICH;.EREICH EINL| 000000C0: 45 53 45 4E 00 44 49 53 4C 4F 4F 50 3A 4A 53 52 |ESEN.DISLOOP:JSR| 000000D0: 4E 45 58 54 5A 45 49 00 4A 53 52 5A 47 48 45 58 |NEXTZEI.JSRZGHEX| 000000E0: 4F 55 54 3B C1 44 52 45 53 53 45 20 41 55 53 47 |OUT;.DRESSE AUSG| 000000F0: 45 42 45 4E 00 44 49 53 3A 4C 44 59 23 30 00 4A |EBEN.DIS:LDY#0.J| 00000100: 53 52 5A 47 45 54 3B C3 4F 44 45 20 48 4F 4C 45 |SRZGET;.ODE HOLE| 00000110: 4E 00 53 54 41 42 55 46 3B 4D 45 52 4B 45 4E 00 |N.STABUF;MERKEN.| 00000120: 4A 53 52 41 55 53 47 45 42 45 4E 3B 55 4E 44 20 |JSRAUSGEBEN;UND | 00000130: 48 45 58 20 41 55 53 47 45 42 45 4E 00 4C 44 41 |HEX AUSGEBEN.LDA| 00000140: 23 3C 42 45 46 54 41 42 3B 5A 47 32 20 41 55 46 |#<BEFTAB;ZG2 AUF| 00000150: 20 C2 45 46 45 48 4C 53 54 41 42 45 4C 4C 45 00 | .EFEHLSTABELLE.| 00000160: 53 54 41 5A 47 32 00 4C 44 41 23 3E 42 45 46 54 |STAZG2.LDA#>BEFT| 00000170: 41 42 00 53 54 41 5A 47 32 2B 31 00 53 45 41 4F |AB.STAZG2+1.SEAO| 00000180: 50 43 4F 44 45 31 3A 4C 44 59 23 30 3B C3 4F 44 |PCODE1:LDY#0;.OD| 00000190: 45 20 49 4E 20 D4 41 42 45 4C 4C 45 20 53 55 43 |E IN .ABELLE SUC| 000001A0: 48 45 4E 00 42 45 46 4E 41 4D 45 3A 4C 44 41 28 |HEN.BEFNAME:LDA(| 000001B0: 5A 47 32 29 2C 59 3B C2 45 46 45 48 4C 53 4E 41 |ZG2),Y;.EFEHLSNA| 000001C0: 4D 45 20 4D 45 52 4B 45 4E 00 53 54 41 42 55 46 |ME MERKEN.STABUF| 000001D0: 2B 31 2C 59 00 49 4E 59 00 43 50 59 23 33 3B 33 |+1,Y.INY.CPY#3;3| 000001E0: 20 DA 45 49 43 48 45 4E 20 4C 41 45 4E 47 45 00 | .EICHEN LAENGE.| 000001F0: 42 4E 45 42 45 46 4E 41 4D 45 00 53 45 41 4F 50 |BNEBEFNAME.SEAOP| 00000200: 43 4F 44 45 3A 4C 44 41 28 5A 47 32 29 2C 59 3B |CODE:LDA(ZG2),Y;| 00000210: C1 44 52 45 53 53 49 45 52 55 4E 47 53 41 52 54 |.DRESSIERUNGSART| 00000220: 00 53 54 41 42 55 46 2B 34 3B 4D 45 52 4B 45 4E |.STABUF+4;MERKEN| 00000230: 00 42 45 51 4E 45 58 54 4E 41 4D 45 3B 2D 3E 4E |.BEQNEXTNAME;->N| 00000240: 41 45 43 48 53 54 45 52 20 C2 45 46 45 48 4C 00 |AECHSTER .EFEHL.| 00000250: 49 4E 59 00 4C 44 41 28 5A 47 32 29 2C 59 3B C3 |INY.LDA(ZG2),Y;.| 00000260: 4F 44 45 20 48 4F 4C 45 4E 00 49 4E 59 00 43 4D |ODE HOLEN.INY.CM| 00000270: 50 42 55 46 3B 55 4E 44 20 56 45 52 47 4C 45 49 |PBUF;UND VERGLEI| 00000280: 43 48 45 4E 00 42 4E 45 53 45 41 4F 50 43 4F 44 |CHEN.BNESEAOPCOD| 00000290: 45 00 42 45 51 46 4F 55 4E 44 4F 50 43 4F 3B 47 |E.BEQFOUNDOPCO;G| 000002A0: 45 46 55 4E 44 45 4E 00 20 00 4E 4F 4F 50 43 4F |EFUNDEN. .NOOPCO| 000002B0: 3A 4C 44 41 23 31 34 3B 4B 45 49 4E 20 36 35 31 |:LDA#14;KEIN 651| 000002C0: 30 20 C2 45 46 45 48 4C 00 4A 53 52 54 41 42 00 |0 .EFEHL.JSRTAB.| 000002D0: 4C 44 41 23 27 3F 3B 3F 3F 3F 20 41 55 53 47 45 |LDA#'?;??? AUSGE| 000002E0: 42 45 4E 00 4A 53 52 42 53 4F 55 54 00 4A 53 52 |BEN.JSRBSOUT.JSR| 000002F0: 42 53 4F 55 54 00 4A 53 52 42 53 4F 55 54 00 4C |BSOUT.JSRBSOUT.L| 00000300: 44 41 23 30 00 4A 4D 50 50 41 54 45 4E 44 31 00 |DA#0.JMPPATEND1.| 00000310: 20 00 4E 45 58 54 4E 41 4D 45 3A 49 4E 59 3B 4E | .NEXTNAME:INY;N| 00000320: 41 45 43 48 53 54 45 52 20 C2 45 46 45 48 4C 00 |AECHSTER .EFEHL.| 00000330: 4C 44 41 28 5A 47 32 29 2C 59 00 42 45 51 4E 4F |LDA(ZG2),Y.BEQNO| 00000340: 4F 50 43 4F 3B D4 41 42 45 4C 4C 45 4E 45 4E 44 |OPCO;.ABELLENEND| 00000350: 45 00 54 59 41 00 43 4C 43 3B 5A 47 32 20 4E 45 |E.TYA.CLC;ZG2 NE| 00000360: 55 20 42 45 52 45 43 48 4E 45 4E 00 41 44 43 5A |U BERECHNEN.ADCZ| 00000370: 47 32 00 53 54 41 5A 47 32 00 42 43 43 53 45 41 |G2.STAZG2.BCCSEA| 00000380: 4F 50 43 4F 44 45 31 3B 55 4E 44 20 57 45 49 54 |OPCODE1;UND WEIT| 00000390: 45 52 53 55 43 48 45 4E 00 49 4E 43 5A 47 32 2B |ERSUCHEN.INCZG2+| 000003A0: 31 00 42 4E 45 53 45 41 4F 50 43 4F 44 45 31 00 |1.BNESEAOPCODE1.| 000003B0: 20 00 46 4F 55 4E 44 4F 50 43 4F 3A 4C 44 59 42 | .FOUNDOPCO:LDYB| 000003C0: 55 46 2B 34 3B C1 4E 5A 41 48 4C 20 CF 50 45 52 |UF+4;.NZAHL .PER| 000003D0: 41 4E 44 45 4E 42 59 54 45 20 45 52 4D 49 54 54 |ANDENBYTE ERMITT| 000003E0: 45 4C 4E 00 4C 44 41 41 52 47 41 4E 5A 2C 59 00 |ELN.LDAARGANZ,Y.| 000003F0: 42 45 51 47 4F 4E 41 4D 45 3B 4B 45 49 4E 20 CF |BEQGONAME;KEIN .| 00000400: 50 45 52 41 4E 44 00 50 48 41 3B C1 4E 5A 41 48 |PERAND.PHA;.NZAH| 00000410: 4C 20 4D 45 52 4B 45 4E 00 4C 44 59 23 31 3B 31 |L MERKEN.LDY#1;1| 00000420: 2E 20 CF 50 45 52 41 4E 44 45 4E 42 59 54 45 00 |. .PERANDENBYTE.| 00000430: 4A 53 52 5A 47 45 54 00 53 54 41 42 55 46 2B 36 |JSRZGET.STABUF+6| 00000440: 3B 4D 45 52 4B 45 4E 20 55 4E 44 20 41 55 53 47 |;MERKEN UND AUSG| 00000450: 45 42 45 4E 00 4A 53 52 41 55 53 47 45 42 45 4E |EBEN.JSRAUSGEBEN| 00000460: 00 50 4C 41 3B C1 4E 5A 41 48 4C 20 C2 59 54 45 |.PLA;.NZAHL .YTE| 00000470: 20 5A 55 52 55 45 43 4B 48 4F 4C 45 4E 00 43 4D | ZURUECKHOLEN.CM| 00000480: 50 23 31 00 42 45 51 47 4F 4E 41 4D 45 3B 4E 55 |P#1.BEQGONAME;NU| 00000490: 52 20 31 20 C2 59 54 45 00 49 4E 59 3B 32 2E 20 |R 1 .YTE.INY;2. | 000004A0: C2 59 54 45 20 48 4F 4C 45 4E 00 4A 53 52 5A 47 |.YTE HOLEN.JSRZG| 000004B0: 45 54 00 53 54 41 42 55 46 2B 35 3B 4D 45 52 4B |ET.STABUF+5;MERK| 000004C0: 45 4E 20 55 4E 44 20 41 55 53 47 45 42 45 4E 00 |EN UND AUSGEBEN.| 000004D0: 4A 53 52 41 55 53 47 45 42 45 4E 00 47 4F 4E 41 |JSRAUSGEBEN.GONA| 000004E0: 4D 45 3A 4C 44 41 42 55 46 2B 34 00 43 4D 50 23 |ME:LDABUF+4.CMP#| 000004F0: 33 3B D2 45 4C 41 54 49 56 45 20 C1 44 52 45 53 |3;.ELATIVE .DRES| 00000500: 53 45 20 3F 00 42 4E 45 47 4F 4E 41 4D 45 31 3B |SE ?.BNEGONAME1;| 00000510: 4E 45 49 4E 00 4C 44 41 42 55 46 2B 36 3B C1 42 |NEIN.LDABUF+6;.B| 00000520: 53 4F 4C 55 54 45 20 C1 44 52 45 53 53 45 20 42 |SOLUTE .DRESSE B| 00000530: 45 52 45 43 48 4E 45 4E 00 42 4D 49 52 56 53 4A |ERECHNEN.BMIRVSJ| 00000540: 55 4D 50 00 49 4E 43 42 55 46 2B 36 3B 56 4F 52 |UMP.INCBUF+6;VOR| 00000550: 57 41 45 52 54 53 53 50 52 55 4E 47 00 4C 44 41 |WAERTSSPRUNG.LDA| 00000560: 5A 47 00 41 44 43 42 55 46 2B 36 00 53 54 41 42 |ZG.ADCBUF+6.STAB| 00000570: 55 46 2B 36 00 4C 44 41 5A 47 2B 31 00 41 44 43 |UF+6.LDAZG+1.ADC| 00000580: 23 30 00 53 54 41 42 55 46 2B 35 00 4A 4D 50 47 |#0.STABUF+5.JMPG| 00000590: 4F 4E 41 4D 45 31 00 52 56 53 4A 55 4D 50 3A 4C |ONAME1.RVSJUMP:L| 000005A0: 44 41 42 55 46 2B 36 3B 52 55 45 43 4B 57 41 45 |DABUF+6;RUECKWAE| 000005B0: 52 54 53 53 50 52 55 4E 47 00 45 4F 52 23 24 46 |RTSSPRUNG.EOR#$F| 000005C0: 46 00 53 54 41 42 55 46 2B 36 00 44 45 43 42 55 |F.STABUF+6.DECBU| 000005D0: 46 2B 36 00 53 45 43 00 4C 44 41 5A 47 00 53 42 |F+6.SEC.LDAZG.SB| 000005E0: 43 42 55 46 2B 36 00 53 54 41 42 55 46 2B 36 00 |CBUF+6.STABUF+6.| 000005F0: 4C 44 41 5A 47 2B 31 00 53 42 43 23 30 00 53 54 |LDAZG+1.SBC#0.ST| 00000600: 41 42 55 46 2B 35 00 47 4F 4E 41 4D 45 31 3A 4C |ABUF+5.GONAME1:L| 00000610: 44 41 23 31 34 3B D4 C1 C2 28 31 34 29 00 4A 53 |DA#14;...(14).JS| 00000620: 52 54 41 42 00 4C 44 59 23 30 00 50 52 49 43 4F |RTAB.LDY#0.PRICO| 00000630: 4E 41 4D 45 3A 4C 44 41 42 55 46 2B 31 2C 59 3B |NAME:LDABUF+1,Y;| 00000640: C2 45 46 45 48 4C 53 4E 41 4D 45 20 41 55 53 47 |.EFEHLSNAME AUSG| 00000650: 45 42 45 4E 00 4A 53 52 42 53 4F 55 54 00 49 4E |EBEN.JSRBSOUT.IN| 00000660: 59 00 43 50 59 23 33 3B 33 20 DA 45 49 43 48 45 |Y.CPY#3;3 .EICHE| 00000670: 4E 00 42 4E 45 50 52 49 43 4F 4E 41 4D 45 00 4C |N.BNEPRICONAME.L| 00000680: 44 41 23 33 32 3B D4 52 45 4E 4E 5A 45 49 43 48 |DA#32;.RENNZEICH| 00000690: 45 4E 00 4A 53 52 42 53 4F 55 54 00 4C 44 59 42 |EN.JSRBSOUT.LDYB| 000006A0: 55 46 2B 34 3B C1 4E 5A 41 48 4C 20 CF 50 45 52 |UF+4;.NZAHL .PER| 000006B0: 41 4E 44 45 4E 42 59 54 45 00 4C 44 58 41 44 52 |ANDENBYTE.LDXADR| 000006C0: 4F 46 53 45 54 2C 59 00 42 4D 49 50 41 54 45 4E |OFSET,Y.BMIPATEN| 000006D0: 44 00 50 41 54 3A 4C 44 41 41 44 52 54 58 54 2C |D.PAT:LDAADRTXT,| 000006E0: 58 3B D4 45 58 54 20 44 45 52 20 C1 44 52 45 53 |X;.EXT DER .DRES| 000006F0: 53 49 45 52 55 4E 47 53 41 52 54 00 42 45 51 50 |SIERUNGSART.BEQP| 00000700: 41 54 45 4E 44 3B 41 55 53 47 45 42 45 4E 00 4A |ATEND;AUSGEBEN.J| 00000710: 53 52 42 53 4F 55 54 00 43 4D 50 23 27 24 3B 41 |SRBSOUT.CMP#'$;A| 00000720: 4E 53 54 45 4C 4C 45 20 56 4F 4E 27 24 27 00 42 |NSTELLE VON'$'.B| 00000730: 4E 45 57 45 49 54 45 52 31 00 4C 44 59 42 55 46 |NEWEITER1.LDYBUF| 00000740: 2B 34 3B CF 50 45 52 41 4E 44 20 41 55 53 47 45 |+4;.PERAND AUSGE| 00000750: 42 45 4E 00 4C 44 41 41 52 47 41 4E 5A 2C 59 00 |BEN.LDAARGANZ,Y.| 00000760: 43 50 59 23 33 00 42 45 51 2A 2B 34 3B D2 45 4C |CPY#3.BEQ*+4;.EL| 00000770: 41 54 49 56 20 CD 4F 44 45 00 43 4D 50 23 32 00 |ATIV .ODE.CMP#2.| 00000780: 42 4E 45 4F 4F 41 00 4C 44 41 42 55 46 2B 35 3B |BNEOOA.LDABUF+5;| 00000790: 32 2E 20 C2 59 54 45 00 4A 53 52 48 45 58 4F 55 |2. .YTE.JSRHEXOU| 000007A0: 54 00 4F 4F 41 3A 4C 44 41 42 55 46 2B 36 3B 31 |T.OOA:LDABUF+6;1| 000007B0: 2E 20 C2 59 54 45 20 41 55 53 47 45 42 45 4E 00 |. .YTE AUSGEBEN.| 000007C0: 4A 53 52 48 45 58 4F 55 54 00 57 45 49 54 45 52 |JSRHEXOUT.WEITER| 000007D0: 31 3A 49 4E 58 3B D4 45 58 54 20 57 45 49 54 45 |1:INX;.EXT WEITE| 000007E0: 52 20 41 55 53 47 45 42 45 4E 00 42 4E 45 50 41 |R AUSGEBEN.BNEPA| 000007F0: 54 00 50 41 54 45 4E 44 3A 4C 44 41 41 52 47 41 |T.PATEND:LDAARGA| 00000800: 4E 5A 2C 59 3B 5A 47 20 4E 45 55 20 42 45 52 45 |NZ,Y;ZG NEU BERE| 00000810: 43 48 4E 45 4E 00 50 41 54 45 4E 44 31 3A 53 45 |CHNEN.PATEND1:SE| 00000820: 43 00 41 44 43 5A 47 00 53 54 41 5A 47 00 42 43 |C.ADCZG.STAZG.BC| 00000830: 43 2A 2B 34 00 49 4E 43 5A 47 2B 31 00 4A 53 52 |C*+4.INCZG+1.JSR| 00000840: 4D 4F 41 42 4F 52 54 3F 3B D3 54 4F 50 3F 00 42 |MOABORT?;.TOP?.B| 00000850: 45 51 2A 2B 35 00 4A 4D 50 44 49 53 4C 4F 4F 50 |EQ*+5.JMPDISLOOP| 00000860: 00 4A 4D 50 4D 4F 4E 49 43 4D 44 00 20 00 3B D4 |.JMPMONICMD. .;.| 00000870: 45 58 54 45 20 44 45 52 20 C1 44 52 45 53 53 49 |EXTE DER .DRESSI| 00000880: 45 52 55 4E 47 53 41 52 54 45 4E 00 41 44 52 54 |ERUNGSARTEN.ADRT| 00000890: 58 54 3A 2E 42 59 22 23 24 22 2C 30 2C 22 24 22 |XT:.BY"#$",0,"$"| 000008A0: 2C 30 00 2E 42 59 22 24 2C 58 22 2C 30 00 2E 42 |,0..BY"$,X",0..B| 000008B0: 59 22 24 2C 59 22 2C 30 00 2E 42 59 22 28 24 2C |Y"$,Y",0..BY"($,| 000008C0: 58 29 22 2C 30 00 2E 42 59 22 28 24 29 2C 59 22 |X)",0..BY"($),Y"| 000008D0: 2C 30 00 2E 42 59 22 28 24 29 22 2C 30 00 20 00 |,0..BY"($)",0. .| 000008E0: 41 44 52 4F 46 53 45 54 3A 2E 42 59 31 32 38 2C |ADROFSET:.BY128,| 000008F0: 31 32 38 2C 30 2C 33 2C 32 35 2C 31 33 2C 31 39 |128,0,3,25,13,19| 00000900: 2C 33 2C 33 2C 35 2C 35 2C 39 2C 39 00 20 00 3B |,3,3,5,5,9,9. .;| 00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000930: 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 |*******.;* * | 00000940: 20 20 20 20 20 C5 49 4E 2D 20 55 4E 44 20 C1 55 | .IN- UND .U| 00000950: 53 47 41 42 45 20 20 20 20 20 20 20 20 2A 20 2A |SGABE * *| 00000960: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 48 45 58 42 |*********. .HEXB| 00000990: 45 52 45 49 43 48 3A 4C 44 41 23 24 46 46 3B C2 |EREICH:LDA#$FF;.| 000009A0: 45 52 45 49 43 48 20 48 45 58 41 44 45 5A 2E 20 |EREICH HEXADEZ. | 000009B0: 48 4F 4C 45 4E 00 53 54 41 5A 41 48 4C 32 3B 42 |HOLEN.STAZAHL2;B| 000009C0: 49 53 20 24 46 46 46 46 00 53 54 41 5A 41 48 4C |IS $FFFF.STAZAHL| 000009D0: 32 2B 31 00 4A 53 52 48 45 58 57 49 4E 3B C8 45 |2+1.JSRHEXWIN;.E| 000009E0: 58 5A 41 48 4C 20 48 4F 4C 45 4E 00 4C 44 41 5A |XZAHL HOLEN.LDAZ| 000009F0: 41 48 4C 31 3B 5A 41 48 4C 2D 3E 5A 47 00 53 54 |AHL1;ZAHL->ZG.ST| 00000A00: 41 5A 47 00 4C 44 41 5A 41 48 4C 31 2B 31 00 53 |AZG.LDAZAHL1+1.S| 00000A10: 54 41 5A 47 2B 31 00 4C 44 41 4C 41 53 54 43 48 |TAZG+1.LDALASTCH| 00000A20: 52 00 43 4D 50 23 31 33 3B 3C D2 C5 D4 D5 D2 CE |R.CMP#13;<......| 00000A30: 3E 2D 3E 46 45 52 54 49 47 00 42 4E 45 2A 2B 33 |>->FERTIG.BNE*+3| 00000A40: 00 52 54 53 00 4A 53 52 48 45 58 57 49 4E 3B 42 |.RTS.JSRHEXWIN;B| 00000A50: 49 53 20 48 4F 4C 45 4E 00 4C 44 41 5A 41 48 4C |IS HOLEN.LDAZAHL| 00000A60: 31 3B 2D 3E 5A 41 48 4C 32 00 53 54 41 5A 41 48 |1;->ZAHL2.STAZAH| 00000A70: 4C 32 00 4C 44 41 5A 41 48 4C 31 2B 31 00 53 54 |L2.LDAZAHL1+1.ST| 00000A80: 41 5A 41 48 4C 32 2B 31 00 52 54 53 00 20 00 48 |AZAHL2+1.RTS. .H| 00000A90: 45 58 57 49 4E 3A 4C 44 41 23 30 3B 48 45 58 57 |EXWIN:LDA#0;HEXW| 00000AA0: 45 52 54 20 49 4E 20 5A 41 48 4C 31 20 48 4F 4C |ERT IN ZAHL1 HOL| 00000AB0: 45 4E 00 53 54 41 5A 41 48 4C 31 00 53 54 41 5A |EN.STAZAHL1.STAZ| 00000AC0: 41 48 4C 31 2B 31 00 4A 4D 50 48 45 58 57 45 52 |AHL1+1.JMPHEXWER| 00000AD0: 54 49 4E 00 20 00 41 55 53 47 45 42 45 4E 3A 4A |TIN. .AUSGEBEN:J| 00000AE0: 53 52 48 45 58 4F 55 54 3B C1 43 43 55 20 48 45 |SRHEXOUT;.CCU HE| 00000AF0: 58 2E 20 41 55 53 47 45 42 45 4E 00 4C 44 41 23 |X. AUSGEBEN.LDA#| 00000B00: 33 32 3B 55 4E 44 20 31 20 CC 45 45 52 5A 45 49 |32;UND 1 .EERZEI| 00000B10: 43 48 45 4E 00 4A 4D 50 42 53 4F 55 54 00 20 00 |CHEN.JMPBSOUT. .| 00000B20: 4D 4F 41 42 4F 52 54 3F 3A 43 4C 49 3B C1 4B 54 |MOABORT?:CLI;.KT| 00000B30: 49 4F 4E 53 45 4E 44 45 20 54 45 53 54 45 4E 00 |IONSENDE TESTEN.| 00000B40: 4C 44 41 5A 47 3B C5 4E 44 41 44 52 45 53 53 45 |LDAZG;.NDADRESSE| 00000B50: 20 45 52 52 45 49 43 48 54 3F 00 53 54 41 5A 41 | ERREICHT?.STAZA| 00000B60: 48 4C 31 00 4C 44 41 5A 47 2B 31 00 53 54 41 5A |HL1.LDAZG+1.STAZ| 00000B70: 41 48 4C 31 2B 31 00 4A 53 52 56 45 52 47 4C 45 |AHL1+1.JSRVERGLE| 00000B80: 49 43 48 00 42 4D 49 4E 45 52 52 45 49 43 48 54 |ICH.BMINERREICHT| 00000B90: 3B 4E 45 49 4E 20 2D 3E D3 54 4F 50 20 54 45 53 |;NEIN ->.TOP TES| 00000BA0: 54 45 4E 00 4C 44 41 23 30 3B D3 49 47 4E 41 4C |TEN.LDA#0;.IGNAL| 00000BB0: 20 46 55 45 52 20 D3 54 4F 50 00 52 54 53 00 4E | FUER .TOP.RTS.N| 00000BC0: 45 52 52 45 49 43 48 54 3A 4A 4D 50 53 54 4F 50 |ERREICHT:JMPSTOP| 00000BD0: 3F 00 20 00 5A 47 48 45 58 4F 55 54 3A 4C 44 41 |?. .ZGHEXOUT:LDA| 00000BE0: 5A 47 2B 31 3B 5A 47 20 48 45 58 20 41 55 53 47 |ZG+1;ZG HEX AUSG| 00000BF0: 45 42 45 4E 00 4A 53 52 48 45 58 4F 55 54 3B 48 |EBEN.JSRHEXOUT;H| 00000C00: 49 47 48 20 C2 59 54 45 00 4C 44 41 5A 47 00 4A |IGH .YTE.LDAZG.J| 00000C10: 53 52 48 45 58 4F 55 54 3B CC 4F 57 20 C2 59 54 |SRHEXOUT;.OW .YT| 00000C20: 45 00 4C 44 41 23 33 32 3B D4 52 45 4E 4E 5A 45 |E.LDA#32;.RENNZE| 00000C30: 49 43 48 45 4E 00 4A 4D 50 42 53 4F 55 54 00 20 |ICHEN.JMPBSOUT. | 00000C40: 00 48 45 58 57 45 52 54 49 4E 3A 4A 53 52 42 41 |.HEXWERTIN:JSRBA| 00000C50: 53 49 4E 3B C8 45 58 57 45 52 54 20 45 49 4E 4C |SIN;.EXWERT EINL| 00000C60: 45 53 45 4E 00 43 4D 50 23 33 32 3B CC 45 45 52 |ESEN.CMP#32;.EER| 00000C70: 5A 45 49 43 48 45 4E 20 55 45 42 45 52 4C 45 53 |ZEICHEN UEBERLES| 00000C80: 45 4E 00 42 45 51 48 45 58 57 45 52 54 49 4E 00 |EN.BEQHEXWERTIN.| 00000C90: 43 4D 50 23 31 33 3B 3C D2 45 54 55 52 4E 3E 00 |CMP#13;<.ETURN>.| 00000CA0: 42 45 51 2A 2B 35 00 4A 4D 50 48 45 58 49 4E 2B |BEQ*+5.JMPHEXIN+| 00000CB0: 33 3B C8 45 58 57 45 52 54 20 48 4F 4C 45 4E 00 |3;.EXWERT HOLEN.| 00000CC0: 4C 44 41 23 27 3F 3B C5 52 52 4F 52 00 4A 53 52 |LDA#'?;.RROR.JSR| 00000CD0: 42 53 4F 55 54 00 4A 4D 50 4D 4F 4E 49 43 4D 44 |BSOUT.JMPMONICMD| 00000CE0: 00 20 00 3B 4D 4F 4E 49 43 4D 44 3A 20 20 20 20 |. .;MONICMD: | 00000CF0: 4A 4D 50 20 4D 41 49 4E 20 20 20 20 20 20 20 20 |JMP MAIN | 00000D00: 20 20 20 3B C2 45 49 20 CD 4F 4E 49 54 4F 52 45 | ;.EI .ONITORE| 00000D10: 52 57 45 49 54 45 52 55 4E 47 20 4C 4F 45 53 43 |RWEITERUNG LOESC| 00000D20: 48 45 4E 00 00 4D |HEN..M |
".;;;--- QUELLDATEI DIS. .;*************
*************************.;* *
DISASSEMBLER * *.;*************
*************************. .DISAS:JSRPUT
MONRO.JSRHEXBEREICH;BEREICH EINLESEN.DIS
LOOP:JSRNEXTZEI.JSRZGHEXOUT;ADRESSE AUSG
EBEN.DIS:LDY#0.JSRZGET;CODE HOLEN.STABUF
;MERKEN.JSRAUSGEBEN;UND HEX AUSGEBEN.LDA
#<BEFTAB;ZG2 AUF BEFEHLSTABELLE.STAZG2.L
DA#>BEFTAB.STAZG2+1.SEAOPCODE1:LDY#0;COD
E IN TABELLE SUCHEN.BEFNAME:LDA(ZG2),Y;B
EFEHLSNAME MERKEN.STABUF+1,Y.INY.CPY#3;3
ZEICHEN LAENGE.BNEBEFNAME.SEAOPCODE:LDA
(ZG2),Y;ADRESSIERUNGSART.STABUF+4;MERKEN
.BEQNEXTNAME;->NAECHSTER BEFEHL.INY.LDA(
ZG2),Y;CODE HOLEN.INY.CMPBUF;UND VERGLEI
CHEN.BNESEAOPCODE.BEQFOUNDOPCO;GEFUNDEN.
.NOOPCO:LDA#14;KEIN 6510 BEFEHL.JSRTAB.
LDA#'?;??? AUSGEBEN.JSRBSOUT.JSRBSOUT.JS
RBSOUT.LDA#0.JMPPATEND1. .NEXTNAME:INY;N
AECHSTER BEFEHL.LDA(ZG2),Y.BEQNOOPCO;TAB
ELLENENDE.TYA.CLC;ZG2 NEU BERECHNEN.ADCZ
G2.STAZG2.BCCSEAOPCODE1;UND WEITERSUCHEN
.INCZG2+1.BNESEAOPCODE1. .FOUNDOPCO:LDYB
UF+4;ANZAHL OPERANDENBYTE ERMITTELN.LDAA
RGANZ,Y.BEQGONAME;KEIN OPERAND.PHA;ANZAH
L MERKEN.LDY#1;1. OPERANDENBYTE.JSRZGET.
STABUF+6;MERKEN UND AUSGEBEN.JSRAUSGEBEN
.PLA;ANZAHL BYTE ZURUECKHOLEN.CMP#1.BEQG
ONAME;NUR 1 BYTE.INY;2. BYTE HOLEN.JSRZG
ET.STABUF+5;MERKEN UND AUSGEBEN.JSRAUSGE
BEN.GONAME:LDABUF+4.CMP#3;RELATIVE ADRES
SE ?.BNEGONAME1;NEIN.LDABUF+6;ABSOLUTE A
DRESSE BERECHNEN.BMIRVSJUMP.INCBUF+6;VOR
WAERTSSPRUNG.LDAZG.ADCBUF+6.STABUF+6.LDA
ZG+1.ADC#0.STABUF+5.JMPGONAME1.RVSJUMP:L
DABUF+6;RUECKWAERTSSPRUNG.EOR#$FF.STABUF
+6.DECBUF+6.SEC.LDAZG.SBCBUF+6.STABUF+6.
LDAZG+1.SBC#0.STABUF+5.GONAME1:LDA#14;TA
B(14).JSRTAB.LDY#0.PRICONAME:LDABUF+1,Y;
BEFEHLSNAME AUSGEBEN.JSRBSOUT.INY.CPY#3;
3 ZEICHEN.BNEPRICONAME.LDA#32;TRENNZEICH
EN.JSRBSOUT.LDYBUF+4;ANZAHL OPERANDENBYT
E.LDXADROFSET,Y.BMIPATEND.PAT:LDAADRTXT,
X;TEXT DER ADRESSIERUNGSART.BEQPATEND;AU
SGEBEN.JSRBSOUT.CMP#'$;ANSTELLE VON'$'.B
NEWEITER1.LDYBUF+4;OPERAND AUSGEBEN.LDAA
RGANZ,Y.CPY#3.BEQ*+4;RELATIV MODE.CMP#2.
BNEOOA.LDABUF+5;2. BYTE.JSRHEXOUT.OOA:LD
ABUF+6;1. BYTE AUSGEBEN.JSRHEXOUT.WEITER
1:INX;TEXT WEITER AUSGEBEN.BNEPAT.PATEND
:LDAARGANZ,Y;ZG NEU BERECHNEN.PATEND1:SE
C.ADCZG.STAZG.BCC*+4.INCZG+1.JSRMOABORT?
;STOP?.BEQ*+5.JMPDISLOOP.JMPMONICMD. .;T
EXTE DER ADRESSIERUNGSARTEN.ADRTXT:.BY"#
$",0,"$",0..BY"$,X",0..BY"$,Y",0..BY"($,
X)",0..BY"($),Y",0..BY"($)",0. .ADROFSET
:.BY128,128,0,3,25,13,19,3,3,5,5,9,9. .;
***************************************.
;* * EIN- UND AUSGABE * *
.;**************************************
*. .HEXBEREICH:LDA#$FF;BEREICH HEXADEZ.
HOLEN.STAZAHL2;BIS $FFFF.STAZAHL2+1.JSRH
EXWIN;HEXZAHL HOLEN.LDAZAHL1;ZAHL->ZG.ST
AZG.LDAZAHL1+1.STAZG+1.LDALASTCHR.CMP#13
;<RETURN>->FERTIG.BNE*+3.RTS.JSRHEXWIN;B
IS HOLEN.LDAZAHL1;->ZAHL2.STAZAHL2.LDAZA
HL1+1.STAZAHL2+1.RTS. .HEXWIN:LDA#0;HEXW
ERT IN ZAHL1 HOLEN.STAZAHL1.STAZAHL1+1.J
MPHEXWERTIN. .AUSGEBEN:JSRHEXOUT;ACCU HE
X. AUSGEBEN.LDA#32;UND 1 LEERZEICHEN.JMP
BSOUT. .MOABORT?:CLI;AKTIONSENDE TESTEN.
LDAZG;ENDADRESSE ERREICHT?.STAZAHL1.LDAZ
G+1.STAZAHL1+1.JSRVERGLEICH.BMINERREICHT
;NEIN ->STOP TESTEN.LDA#0;SIGNAL FUER ST
OP.RTS.NERREICHT:JMPSTOP?. .ZGHEXOUT:LDA
ZG+1;ZG HEX AUSGEBEN.JSRHEXOUT;HIGH BYTE
.LDAZG.JSRHEXOUT;LOW BYTE.LDA#32;TRENNZE
ICHEN.JMPBSOUT. .HEXWERTIN:JSRBASIN;HEXW
ERT EINLESEN.CMP#32;LEERZEICHEN UEBERLES
EN.BEQHEXWERTIN.CMP#13;<RETURN>.BEQ*+5.J
MPHEXIN+3;HEXWERT HOLEN.LDA#'?;ERROR.JSR
BSOUT.JMPMONICMD. .;MONICMD: JMP MAIN
;BEI MONITORERWEITERUNG LOESC
HEN..M
> CLICK IMAGE PREVIEW FOR FULL MODAL