ASS
FILE INFORMATION
FILENAME(S): ASS
FILE TYPE(S): PRG
FILE SIZE: 20.7K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 5 disk(s)
FILE HASH
1c21a4570e9a26f9666e1c4048ebd96c52ea668b5f829983ca223eb53779c35f
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | ASS | PRG | Treasure Chest - Klaus Der Suhler | 5 | 20 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | ASS | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | ASS | PRG | Treasure Chest - Klaus Der Suhler | 5 | 20 | DOWNLOAD FILE |
| ORION CEBIT | ASS | PRG | Treasure Chest - OzzyC64 | 11 | 2 | DOWNLOAD FILE |
| ORION CEBIT | ASS | PRG | DuncanTwain | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: C2 52 3B 2D 2D 2D 2D 20 D1 55 45 4C 4C 44 41 54 |.R;---- .UELLDAT| 00000010: 45 49 20 41 53 53 00 20 00 3B 2A 2A 2A 2A 2A 2A |EI ASS. .;******| 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 CC 41 42 |*.;* * .AB| 00000050: 45 4C 2D C6 49 4C 45 20 44 52 55 43 4B 45 4E 20 |EL-.ILE DRUCKEN | 00000060: 20 20 20 20 20 20 20 2A 20 2A 00 3B 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 2A 2A 00 20 00 4C 49 53 54 4C 42 4C 3A 4C 44 |***. .LISTLBL:LD| 000000A0: 58 23 33 34 3B CC 41 42 45 4C 54 59 50 20 48 4F |X#34;.ABELTYP HO| 000000B0: 4C 45 4E 00 4A 53 52 57 52 49 54 45 00 47 45 54 |LEN.JSRWRITE.GET| 000000C0: 54 59 50 3A 4A 53 52 47 45 54 3B D4 59 50 20 47 |TYP:JSRGET;.YP G| 000000D0: 55 45 4C 54 49 47 00 43 4D 50 23 27 50 00 42 45 |UELTIG.CMP#'P.BE| 000000E0: 51 50 52 47 4C 3B D0 52 4F 47 52 41 4D 00 43 4D |QPRGL;.ROGRAM.CM| 000000F0: 50 23 27 46 00 42 45 51 46 49 58 4C 3B C6 49 58 |P#'F.BEQFIXL;.IX| 00000100: 00 43 4D 50 23 27 55 00 42 45 51 55 4E 55 4C 3B |.CMP#'U.BEQUNUL;| 00000110: D5 4E 42 45 4E 55 54 5A 54 00 43 4D 50 23 27 41 |.NBENUTZT.CMP#'A| 00000120: 00 42 4E 45 47 45 54 54 59 50 00 4C 44 58 23 30 |.BNEGETTYP.LDX#0| 00000130: 3B C6 4C 41 47 20 46 55 45 52 20 41 4C 4C 45 53 |;.LAG FUER ALLES| 00000140: 00 42 49 54 00 50 52 47 4C 3A 4C 44 58 23 32 3B |.BIT.PRGL:LDX#2;| 00000150: C6 4C 41 47 20 46 55 45 52 20 D0 52 47 2E 00 42 |.LAG FUER .RG..B| 00000160: 49 54 00 46 49 58 4C 3A 4C 44 58 23 33 3B C6 4C |IT.FIXL:LDX#3;.L| 00000170: 41 47 20 46 55 45 52 20 C6 49 58 00 42 49 54 00 |AG FUER .IX.BIT.| 00000180: 55 4E 55 4C 3A 4C 44 58 23 31 3B C6 4C 41 47 20 |UNUL:LDX#1;.LAG | 00000190: 46 55 45 52 20 D5 4E 42 45 4E 2E 00 53 54 58 4C |FUER .NBEN..STXL| 000001A0: 41 42 45 4C 54 59 50 3B 4D 45 52 4B 45 4E 00 4A |ABELTYP;MERKEN.J| 000001B0: 53 52 42 53 4F 55 54 3B 55 4E 44 20 41 4E 5A 45 |SRBSOUT;UND ANZE| 000001C0: 49 47 45 4E 00 4C 44 41 46 4C 41 47 53 3B D0 52 |IGEN.LDAFLAGS;.R| 000001D0: 49 4E 54 45 52 20 3F 00 41 4E 44 23 38 00 42 45 |INTER ?.AND#8.BE| 000001E0: 51 4E 4F 50 52 49 4E 54 45 52 00 4C 44 41 23 30 |QNOPRINTER.LDA#0| 000001F0: 3B C4 52 55 43 4B 45 52 4B 41 4E 41 4C 20 4F 45 |;.RUCKERKANAL OE| 00000200: 46 46 4E 45 4E 00 4A 53 52 53 45 54 4E 41 4D 45 |FFNEN.JSRSETNAME| 00000210: 00 4C 44 41 23 31 00 4C 44 58 23 44 52 55 44 45 |.LDA#1.LDX#DRUDE| 00000220: 56 00 4C 44 59 23 44 52 55 53 45 43 00 4A 53 52 |V.LDY#DRUSEC.JSR| 00000230: 53 45 54 50 41 52 41 00 4A 53 52 4F 50 45 4E 00 |SETPARA.JSROPEN.| 00000240: 4C 44 58 23 31 3B C1 55 53 47 41 42 45 20 41 55 |LDX#1;.USGABE AU| 00000250: 46 20 C4 52 55 43 4B 45 52 00 4A 53 52 43 4B 4F |F .RUCKER.JSRCKO| 00000260: 55 54 00 4E 4F 50 52 49 4E 54 45 52 3A 4C 44 41 |UT.NOPRINTER:LDA| 00000270: 4C 42 4C 41 4E 46 3B 5A 47 20 41 55 46 20 CC 41 |LBLANF;ZG AUF .A| 00000280: 42 45 4C 41 4E 46 41 4E 47 00 53 54 41 5A 47 00 |BELANFANG.STAZG.| 00000290: 4C 44 41 4C 42 4C 41 4E 46 2B 31 00 53 54 41 5A |LDALBLANF+1.STAZ| 000002A0: 47 2B 31 00 4A 53 52 4E 45 58 54 5A 45 49 00 4C |G+1.JSRNEXTZEI.L| 000002B0: 44 58 23 33 35 3B D5 45 42 45 52 53 43 48 52 49 |DX#35;.EBERSCHRI| 000002C0: 46 54 20 44 52 55 43 4B 45 4E 00 4A 53 52 57 52 |FT DRUCKEN.JSRWR| 000002D0: 49 54 45 00 4C 44 41 23 34 3B 34 20 C1 55 53 47 |ITE.LDA#4;4 .USG| 000002E0: 41 42 45 20 50 52 4F 20 DA 45 49 4C 45 00 53 54 |ABE PRO .EILE.ST| 000002F0: 41 4D 45 4D 32 00 4C 42 4C 3A 4A 53 52 53 54 4F |AMEM2.LBL:JSRSTO| 00000300: 50 3F 3B C1 42 42 52 45 43 48 45 4E 20 3F 00 42 |P?;.BBRECHEN ?.B| 00000310: 45 51 41 42 4C 41 00 4C 44 59 23 30 3B C6 49 4C |EQABLA.LDY#0;.IL| 00000320: 45 45 4E 44 45 20 3F 00 4A 53 52 48 4F 4C 5A 47 |EENDE ?.JSRHOLZG| 00000330: 00 42 4E 45 46 4F 4C 41 42 45 4C 00 41 42 4C 41 |.BNEFOLABEL.ABLA| 00000340: 3A 4A 53 52 4E 45 58 54 5A 45 49 3B CA 41 00 4A |:JSRNEXTZEI;.A.J| 00000350: 53 52 43 4C 52 43 48 3B C4 52 55 43 4B 45 52 20 |SRCLRCH;.RUCKER | 00000360: 41 55 53 00 4C 44 41 23 31 00 4A 53 52 43 4C 4F |AUS.LDA#1.JSRCLO| 00000370: 53 45 00 4A 4D 50 4D 41 49 4E 52 54 3B 5A 55 4D |SE.JMPMAINRT;ZUM| 00000380: 20 CD 45 4E 55 45 00 46 4F 4C 41 42 45 4C 3A 4C | .ENUE.FOLABEL:L| 00000390: 44 58 23 30 3B CC 41 42 45 4C 4E 41 4D 45 2D 3E |DX#0;.ABELNAME->| 000003A0: 42 55 46 46 45 52 00 54 52 41 4C 42 4C 3A 53 54 |BUFFER.TRALBL:ST| 000003B0: 41 42 55 46 46 45 52 2C 58 00 49 4E 58 00 49 4E |ABUFFER,X.INX.IN| 000003C0: 59 00 4A 53 52 48 4F 4C 5A 47 00 43 4D 50 23 35 |Y.JSRHOLZG.CMP#5| 000003D0: 3B CC 41 42 45 4C 45 4E 44 45 20 3F 00 42 43 53 |;.ABELENDE ?.BCS| 000003E0: 54 52 41 4C 42 4C 3B 4E 45 49 4E 00 53 54 41 4D |TRALBL;NEIN.STAM| 000003F0: 45 4D 31 3B CC 41 42 45 4C 54 59 50 20 2D 3E 20 |EM1;.ABELTYP -> | 00000400: 4D 45 4D 31 00 4C 44 41 23 30 3B CC 41 42 45 4C |MEM1.LDA#0;.ABEL| 00000410: 4E 41 4D 45 20 4D 49 54 20 30 20 41 42 53 43 48 |NAME MIT 0 ABSCH| 00000420: 4C 49 45 53 53 45 4E 00 53 54 41 42 55 46 46 45 |LIESSEN.STABUFFE| 00000430: 52 2C 58 00 4C 44 41 4C 41 42 45 4C 54 59 50 3B |R,X.LDALABELTYP;| 00000440: C1 4C 4C 45 2D 3E 41 55 53 47 45 42 45 4E 00 42 |.LLE->AUSGEBEN.B| 00000450: 45 51 57 52 49 4C 42 4C 00 43 4D 50 4D 45 4D 31 |EQWRILBL.CMPMEM1| 00000460: 3B D4 59 50 47 4C 45 49 43 48 48 45 49 54 2D 3E |;.YPGLEICHHEIT->| 00000470: 41 55 53 47 45 42 45 4E 00 42 45 51 57 52 49 4C |AUSGEBEN.BEQWRIL| 00000480: 42 4C 00 43 4D 50 23 31 3B D5 4E 42 45 4E 2E 20 |BL.CMP#1;.NBEN. | 00000490: 3F 00 42 4E 45 4E 4F 57 52 49 3B 46 41 4C 53 43 |?.BNENOWRI;FALSC| 000004A0: 48 45 52 20 D4 59 50 00 4C 44 41 4D 45 4D 31 00 |HER .YP.LDAMEM1.| 000004B0: 42 45 51 57 52 49 4C 42 4C 00 4E 4F 57 52 49 3A |BEQWRILBL.NOWRI:| 000004C0: 49 4E 59 3B 4E 49 43 48 54 20 41 55 53 47 45 42 |INY;NICHT AUSGEB| 000004D0: 45 4E 00 49 4E 59 00 43 4F 4C 42 4C 3A 54 59 41 |EN.INY.COLBL:TYA| 000004E0: 3B 5A 47 20 41 55 46 20 4E 41 45 43 48 53 54 45 |;ZG AUF NAECHSTE| 000004F0: 53 20 D3 59 4D 42 4F 4C 00 53 45 43 00 41 44 43 |S .YMBOL.SEC.ADC| 00000500: 5A 47 00 53 54 41 5A 47 00 42 43 43 4C 42 4C 3B |ZG.STAZG.BCCLBL;| 00000510: 55 4E 44 20 57 45 49 54 45 52 00 49 4E 43 5A 47 |UND WEITER.INCZG| 00000520: 2B 31 00 42 4E 45 4C 42 4C 00 57 52 49 4C 42 4C |+1.BNELBL.WRILBL| 00000530: 3A 4C 44 58 23 30 3B CC 41 42 45 4C 4E 41 4D 45 |:LDX#0;.ABELNAME| 00000540: 20 44 52 55 43 4B 45 4E 00 57 52 49 4C 42 4C 4F | DRUCKEN.WRILBLO| 00000550: 55 54 3A 4C 44 41 42 55 46 46 45 52 2C 58 00 42 |UT:LDABUFFER,X.B| 00000560: 45 51 45 4E 44 4C 42 4C 00 4A 53 52 42 53 4F 55 |EQENDLBL.JSRBSOU| 00000570: 54 00 49 4E 58 00 42 4E 45 57 52 49 4C 42 4C 4F |T.INX.BNEWRILBLO| 00000580: 55 54 00 45 4E 44 4C 42 4C 3A 4C 44 41 23 33 32 |UT.ENDLBL:LDA#32| 00000590: 3B D4 41 42 55 4C 41 54 4F 52 00 4A 53 52 42 53 |;.ABULATOR.JSRBS| 000005A0: 4F 55 54 00 49 4E 58 00 43 50 58 23 31 32 00 42 |OUT.INX.CPX#12.B| 000005B0: 43 43 45 4E 44 4C 42 4C 00 4C 44 58 4D 45 4D 31 |CCENDLBL.LDXMEM1| 000005C0: 3B CC 41 42 45 4C 54 59 50 20 41 55 53 47 45 42 |;.ABELTYP AUSGEB| 000005D0: 45 4E 00 4C 44 41 4C 42 4C 54 59 50 2C 58 00 4A |EN.LDALBLTYP,X.J| 000005E0: 53 52 42 53 4F 55 54 00 4C 44 41 23 33 32 00 4A |SRBSOUT.LDA#32.J| 000005F0: 53 52 42 53 4F 55 54 00 49 4E 59 3B CC 41 42 45 |SRBSOUT.INY;.ABE| 00000600: 4C 57 45 52 54 20 41 55 53 47 45 42 45 4E 00 4A |LWERT AUSGEBEN.J| 00000610: 53 52 48 4F 4C 5A 47 00 53 54 41 5A 41 48 4C 31 |SRHOLZG.STAZAHL1| 00000620: 00 49 4E 59 00 4A 53 52 48 4F 4C 5A 47 00 53 54 |.INY.JSRHOLZG.ST| 00000630: 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 48 4C |AZAHL1+1.JSRZAHL| 00000640: 48 45 58 4F 55 54 00 44 45 43 4D 45 4D 32 3B 53 |HEXOUT.DECMEM2;S| 00000650: 43 48 4F 4E 20 34 20 20 C1 55 53 47 41 42 45 4E |CHON 4 .USGABEN| 00000660: 20 3F 00 42 4E 45 57 45 49 54 45 52 3B 4E 45 49 | ?.BNEWEITER;NEI| 00000670: 4E 00 4A 53 52 4E 45 58 54 5A 45 49 3B 4E 45 55 |N.JSRNEXTZEI;NEU| 00000680: 45 20 DA 45 49 4C 45 00 4C 44 41 23 34 00 53 54 |E .EILE.LDA#4.ST| 00000690: 41 4D 45 4D 32 00 42 4E 45 43 4F 4C 42 4C 00 57 |AMEM2.BNECOLBL.W| 000006A0: 45 49 54 45 52 3A 4C 44 41 23 33 32 3B 57 45 49 |EITER:LDA#32;WEI| 000006B0: 54 45 52 20 41 55 53 47 45 42 45 4E 00 4A 53 52 |TER AUSGEBEN.JSR| 000006C0: 42 53 4F 55 54 00 4A 53 52 42 53 4F 55 54 00 4A |BSOUT.JSRBSOUT.J| 000006D0: 4D 50 43 4F 4C 42 4C 00 20 00 4C 42 4C 54 59 50 |MPCOLBL. .LBLTYP| 000006E0: 3A 2E 42 59 22 55 55 50 46 22 3B CC 41 42 45 4C |:.BY"UUPF";.ABEL| 000006F0: 54 59 50 45 4E 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A |TYPEN. .;*******| 00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000720: 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 20 CC 41 |.;* * .A| 00000730: 42 45 4C 57 45 52 54 20 53 55 43 48 45 4E 20 20 |BELWERT SUCHEN | 00000740: 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A | * *.;*****| 00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000770: 2A 2A 00 20 00 53 45 41 4C 42 4C 3A 4C 44 41 5A |**. .SEALBL:LDAZ| 00000780: 47 32 3B 48 4F 4C 54 20 4C 41 42 45 4C 57 45 52 |G2;HOLT LABELWER| 00000790: 54 00 53 54 41 4D 45 4D 31 3B 5A 47 32 20 4D 45 |T.STAMEM1;ZG2 ME| 000007A0: 52 4B 45 4E 00 4C 44 41 5A 47 32 2B 31 00 53 54 |RKEN.LDAZG2+1.ST| 000007B0: 41 4D 45 4D 32 00 4C 44 41 4C 42 4C 41 4E 46 3B |AMEM2.LDALBLANF;| 000007C0: 5A 47 32 20 41 55 46 20 CC 41 42 45 4C 46 49 4C |ZG2 AUF .ABELFIL| 000007D0: 45 00 53 54 41 5A 47 32 00 4C 44 41 4C 42 4C 41 |E.STAZG2.LDALBLA| 000007E0: 4E 46 2B 31 00 53 54 41 5A 47 32 2B 31 00 4C 44 |NF+1.STAZG2+1.LD| 000007F0: 41 23 31 32 38 3B CC 41 42 45 4C 20 55 4E 44 45 |A#128;.ABEL UNDE| 00000800: 46 49 4E 49 45 52 54 00 53 54 41 4C 41 42 45 4C |FINIERT.STALABEL| 00000810: 54 59 50 00 4C 44 59 23 30 3B CC 41 42 45 4C 46 |TYP.LDY#0;.ABELF| 00000820: 49 4C 45 20 4C 45 45 52 20 3F 00 4A 53 52 48 4F |ILE LEER ?.JSRHO| 00000830: 4C 5A 47 32 00 42 45 51 53 4C 52 54 3B CA 41 00 |LZG2.BEQSLRT;.A.| 00000840: 4A 53 52 52 4F 55 54 49 4E 45 32 3B DA 55 52 20 |JSRROUTINE2;.UR | 00000850: D3 55 43 48 52 4F 55 54 49 4E 45 00 20 00 53 4C |.UCHROUTINE. .SL| 00000860: 52 54 3A 4C 44 41 5A 47 32 3B CC 41 42 45 4C 50 |RT:LDAZG2;.ABELP| 00000870: 4F 53 2E 20 4D 45 52 4B 45 4E 00 53 54 41 4D 45 |OS. MERKEN.STAME| 00000880: 4D 33 00 4C 44 41 4D 45 4D 31 3B 55 4E 44 20 5A |M3.LDAMEM1;UND Z| 00000890: 47 32 20 52 55 45 43 4B 53 45 54 5A 45 4E 00 53 |G2 RUECKSETZEN.S| 000008A0: 54 41 5A 47 32 00 4C 44 41 5A 47 32 2B 31 00 53 |TAZG2.LDAZG2+1.S| 000008B0: 54 41 4D 45 4D 34 00 4C 44 41 4D 45 4D 32 00 53 |TAMEM4.LDAMEM2.S| 000008C0: 54 41 5A 47 32 2B 31 00 52 54 53 00 20 00 3B 2A |TAZG2+1.RTS. .;*| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008F0: 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 |******.;* * | 00000900: 20 20 20 20 20 CC 41 42 45 4C 20 45 49 4E 54 52 | .ABEL EINTR| 00000910: 41 47 45 4E 20 20 20 20 20 20 20 20 2A 20 2A 00 |AGEN * *.| 00000920: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000940: 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 49 4E 53 4C 42 |********. .INSLB| 00000950: 4C 3A 4C 44 41 41 53 53 46 4C 41 47 53 3B 4E 49 |L:LDAASSFLAGS;NI| 00000960: 43 48 54 20 41 4C 53 20 42 45 4E 55 54 5A 54 00 |CHT ALS BENUTZT.| 00000970: 41 4E 44 23 25 31 31 31 31 31 31 30 31 3B 4B 45 |AND#%11111101;KE| 00000980: 4E 4E 5A 45 49 43 48 4E 45 4E 00 53 54 41 41 53 |NNZEICHNEN.STAAS| 00000990: 53 46 4C 41 47 53 00 4A 53 52 53 45 41 4C 42 4C |SFLAGS.JSRSEALBL| 000009A0: 3B CC 41 42 45 4C 20 53 55 43 48 45 4E 00 4C 44 |;.ABEL SUCHEN.LD| 000009B0: 41 41 53 53 46 4C 41 47 53 3B C2 45 4E 55 54 5A |AASSFLAGS;.ENUTZ| 000009C0: 54 2D C6 4C 41 47 20 53 45 54 5A 45 4E 00 4F 52 |T-.LAG SETZEN.OR| 000009D0: 41 23 32 00 53 54 41 41 53 53 46 4C 41 47 53 00 |A#2.STAASSFLAGS.| 000009E0: 4C 44 41 41 53 53 46 4C 32 3B D5 4D 44 45 46 49 |LDAASSFL2;.MDEFI| 000009F0: 4E 49 45 52 45 4E 20 3F 00 41 4E 44 23 36 34 00 |NIEREN ?.AND#64.| 00000A00: 42 45 51 2A 2B 35 00 4A 4D 50 52 45 44 45 46 49 |BEQ*+5.JMPREDEFI| 00000A10: 4E 45 3B CA 41 00 4C 44 41 4C 41 42 45 4C 54 59 |NE;.A.LDALABELTY| 00000A20: 50 3B CC 41 42 45 4C 20 55 4E 42 45 4B 41 4E 4E |P;.ABEL UNBEKANN| 00000A30: 54 20 3F 00 42 4D 49 4E 4F 53 41 4D 45 3B CA 41 |T ?.BMINOSAME;.A| 00000A40: 00 4C 44 41 41 53 53 46 4C 32 3B CC 41 42 45 4C |.LDAASSFL2;.ABEL| 00000A50: 20 44 4F 50 50 45 4C 54 20 C6 4C 41 47 00 4F 52 | DOPPELT .LAG.OR| 00000A60: 41 23 33 32 00 53 54 41 41 53 53 46 4C 32 00 4C |A#32.STAASSFL2.L| 00000A70: 44 58 23 34 31 3B CC 41 42 45 4C 20 44 4F 50 50 |DX#41;.ABEL DOPP| 00000A80: 45 4C 54 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 |ELT.JMPASSERROR.| 00000A90: 4E 4F 53 41 4D 45 3A 4C 44 41 5A 47 32 3B 5A 47 |NOSAME:LDAZG2;ZG| 00000AA0: 32 20 4D 45 52 4B 45 4E 00 53 54 41 4D 45 4D 31 |2 MERKEN.STAMEM1| 00000AB0: 00 4C 44 41 5A 47 32 2B 31 00 53 54 41 4D 45 4D |.LDAZG2+1.STAMEM| 00000AC0: 32 00 4C 44 41 4C 42 4C 50 4F 49 4E 54 3B 5A 47 |2.LDALBLPOINT;ZG| 00000AD0: 32 20 41 55 46 20 CC 41 42 45 4C 46 49 4C 45 45 |2 AUF .ABELFILEE| 00000AE0: 4E 44 45 00 53 54 41 5A 47 32 00 4C 44 41 4C 42 |NDE.STAZG2.LDALB| 00000AF0: 4C 50 4F 49 4E 54 2B 31 00 53 54 41 5A 47 32 2B |LPOINT+1.STAZG2+| 00000B00: 31 00 4C 44 59 4C 42 4C 4C 45 4E 3B CC 41 42 45 |1.LDYLBLLEN;.ABE| 00000B10: 4C 4C 41 45 4E 47 45 00 49 4E 59 3B 2B 33 20 46 |LLAENGE.INY;+3 F| 00000B20: 55 45 52 20 CC 41 42 45 4C 57 45 52 54 00 49 4E |UER .ABELWERT.IN| 00000B30: 59 00 49 4E 59 00 53 54 59 4C 42 4C 4C 45 4E 00 |Y.INY.STYLBLLEN.| 00000B40: 43 4C 43 00 54 59 41 00 41 44 43 4C 42 4C 50 4F |CLC.TYA.ADCLBLPO| 00000B50: 49 4E 54 3B C5 4E 44 45 50 4F 49 4E 54 45 52 20 |INT;.NDEPOINTER | 00000B60: 2B 20 CC 41 42 45 4C 4C 45 4E 00 53 54 41 4C 42 |+ .ABELLEN.STALB| 00000B70: 4C 50 4F 49 4E 54 00 4C 44 41 4C 42 4C 50 4F 49 |LPOINT.LDALBLPOI| 00000B80: 4E 54 2B 31 00 41 44 43 23 30 00 53 54 41 4C 42 |NT+1.ADC#0.STALB| 00000B90: 4C 50 4F 49 4E 54 2B 31 00 42 43 53 54 4F 4D 41 |LPOINT+1.BCSTOMA| 00000BA0: 4C 42 3B 5A 55 20 56 49 45 4C 45 20 CC 41 42 45 |LB;ZU VIELE .ABE| 00000BB0: 4C 00 43 4D 50 4C 42 4C 45 4E 44 2B 31 3B 4D 49 |L.CMPLBLEND+1;MI| 00000BC0: 54 20 D3 50 45 49 43 48 45 52 45 4E 44 45 20 56 |T .PEICHERENDE V| 00000BD0: 45 52 47 4C 45 49 43 48 45 4E 00 42 43 43 56 4C |ERGLEICHEN.BCCVL| 00000BE0: 42 4C 00 4C 44 41 4C 42 4C 50 4F 49 4E 54 00 43 |BL.LDALBLPOINT.C| 00000BF0: 4D 50 4C 42 4C 45 4E 44 00 42 43 43 56 4C 42 4C |MPLBLEND.BCCVLBL| 00000C00: 00 54 4F 4D 41 4C 42 3A 4A 53 52 53 4C 52 54 3B |.TOMALB:JSRSLRT;| 00000C10: DA 55 20 56 49 45 4C 45 20 CC 41 42 45 4C 00 4C |.U VIELE .ABEL.L| 00000C20: 44 41 23 30 3B D7 41 49 54 46 4C 41 47 20 4C 4F |DA#0;.AITFLAG LO| 00000C30: 45 53 43 48 45 4E 00 53 54 41 41 53 53 46 4C 32 |ESCHEN.STAASSFL2| 00000C40: 00 4C 44 58 23 33 38 3B C6 45 48 4C 45 52 20 4D |.LDX#38;.EHLER M| 00000C50: 45 4C 44 45 4E 00 4A 53 52 41 53 53 45 52 52 4F |ELDEN.JSRASSERRO| 00000C60: 52 00 4A 4D 50 50 41 53 53 41 42 4F 52 54 3B D0 |R.JMPPASSABORT;.| 00000C70: 41 53 53 20 42 45 45 4E 44 45 4E 00 56 4C 42 4C |ASS BEENDEN.VLBL| 00000C80: 3A 4A 53 52 56 4C 42 4C 52 4F 3B D0 4C 41 54 5A |:JSRVLBLRO;.LATZ| 00000C90: 20 46 55 45 52 20 CC 41 42 45 4C 20 53 43 48 41 | FUER .ABEL SCHA| 00000CA0: 46 46 45 4E 00 4C 44 41 5A 47 32 2B 31 3B C6 45 |FFEN.LDAZG2+1;.E| 00000CB0: 52 54 49 47 20 3F 00 43 4D 50 4D 45 4D 34 00 42 |RTIG ?.CMPMEM4.B| 00000CC0: 4E 45 4C 42 57 00 4C 44 41 5A 47 32 00 43 4D 50 |NELBW.LDAZG2.CMP| 00000CD0: 4D 45 4D 33 00 42 45 51 56 4C 42 4C 45 00 4C 42 |MEM3.BEQVLBLE.LB| 00000CE0: 57 3A 4C 44 41 5A 47 32 3B CE 45 49 4E 2D 3E 5A |W:LDAZG2;.EIN->Z| 00000CF0: 47 32 2D 31 00 42 4E 45 2A 2B 34 00 44 45 43 5A |G2-1.BNE*+4.DECZ| 00000D00: 47 32 2B 31 00 44 45 43 5A 47 32 00 4A 4D 50 56 |G2+1.DECZG2.JMPV| 00000D10: 4C 42 4C 3B 57 45 49 54 45 52 20 D6 45 52 53 43 |LBL;WEITER .ERSC| 00000D20: 48 49 45 42 45 4E 00 56 4C 42 4C 45 3A 4C 44 59 |HIEBEN.VLBLE:LDY| 00000D30: 4C 42 4C 4C 45 4E 3B CC 41 42 45 4C 20 45 49 4E |LBLLEN;.ABEL EIN| 00000D40: 46 55 45 47 45 4E 00 44 45 59 00 4C 44 41 4D 45 |FUEGEN.DEY.LDAME| 00000D50: 4D 33 3B 5A 47 32 20 41 55 46 20 CC 41 42 45 4C |M3;ZG2 AUF .ABEL| 00000D60: 50 4F 53 2E 00 53 54 41 5A 47 32 00 4C 44 41 4D |POS..STAZG2.LDAM| 00000D70: 45 4D 34 00 53 54 41 5A 47 32 2B 31 00 4C 44 41 |EM4.STAZG2+1.LDA| 00000D80: 50 43 2B 31 3B CC 41 42 45 4C 57 45 52 54 20 45 |PC+1;.ABELWERT E| 00000D90: 49 4E 53 45 54 5A 45 4E 00 4A 53 52 50 55 54 5A |INSETZEN.JSRPUTZ| 00000DA0: 47 32 00 44 45 59 00 4C 44 41 50 43 00 4A 53 52 |G2.DEY.LDAPC.JSR| 00000DB0: 50 55 54 5A 47 32 00 44 45 59 00 4C 44 41 41 53 |PUTZG2.DEY.LDAAS| 00000DC0: 53 46 4C 41 47 53 3B CC 41 42 45 4C 54 59 50 20 |SFLAGS;.ABELTYP | 00000DD0: 45 49 4E 53 45 54 5A 45 4E 00 41 4E 44 23 31 00 |EINSETZEN.AND#1.| 00000DE0: 4A 53 52 50 55 54 5A 47 32 00 50 55 4C 42 4C 3A |JSRPUTZG2.PULBL:| 00000DF0: 44 45 59 3B CC 41 42 45 4C 4E 41 4D 45 20 45 49 |DEY;.ABELNAME EI| 00000E00: 4E 53 45 54 5A 45 4E 00 42 50 4C 2A 2B 35 00 4A |NSETZEN.BPL*+5.J| 00000E10: 4D 50 53 4C 52 54 3B 46 45 52 54 49 47 00 4C 44 |MPSLRT;FERTIG.LD| 00000E20: 41 42 55 46 46 45 52 32 2C 59 00 4A 53 52 50 55 |ABUFFER2,Y.JSRPU| 00000E30: 54 5A 47 32 00 4A 4D 50 50 55 4C 42 4C 00 20 00 |TZG2.JMPPULBL. .| 00000E40: 52 45 44 45 46 49 4E 45 3A 4C 44 41 41 53 53 46 |REDEFINE:LDAASSF| 00000E50: 4C 32 3B CC 41 42 45 4C 20 44 4F 50 50 45 4C 54 |L2;.ABEL DOPPELT| 00000E60: 20 3F 00 41 4E 44 23 33 32 00 42 45 51 2A 2B 33 | ?.AND#32.BEQ*+3| 00000E70: 00 52 54 53 3B CA 41 00 4C 44 41 4C 41 42 45 4C |.RTS;.A.LDALABEL| 00000E80: 54 59 50 3B CC 41 42 45 4C 20 56 4F 52 48 41 4E |TYP;.ABEL VORHAN| 00000E90: 44 45 4E 20 3F 00 42 50 4C 2A 2B 35 00 4A 4D 50 |DEN ?.BPL*+5.JMP| 00000EA0: 4E 4F 53 41 4D 45 3B 4E 45 49 4E 00 4C 44 41 5A |NOSAME;NEIN.LDAZ| 00000EB0: 47 32 3B 55 4D 44 45 46 49 4E 49 45 52 45 4E 00 |G2;UMDEFINIEREN.| 00000EC0: 53 54 41 4D 45 4D 31 00 4C 44 41 5A 47 32 2B 31 |STAMEM1.LDAZG2+1| 00000ED0: 00 53 54 41 4D 45 4D 32 00 4A 4D 50 56 4C 42 4C |.STAMEM2.JMPVLBL| 00000EE0: 45 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E. .;***********| 00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 |************.;* | 00000F10: 2A 20 20 20 20 20 20 20 20 20 20 20 C1 53 53 45 |* .SSE| 00000F20: 4D 42 4C 49 45 52 45 4E 20 20 20 20 20 20 20 20 |MBLIEREN | 00000F30: 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A | * *.;*********| 00000F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 |**************. | 00000F60: 00 55 48 52 41 4E 3A 4C 44 41 55 48 52 2B 37 3B |.UHRAN:LDAUHR+7;| 00000F70: D5 48 52 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 |.HR EINSCHALTEN.| 00000F80: 41 4E 44 23 31 32 37 00 53 54 41 55 48 52 2B 37 |AND#127.STAUHR+7| 00000F90: 00 4C 44 41 55 48 52 2B 36 00 4F 52 41 23 31 32 |.LDAUHR+6.ORA#12| 00000FA0: 38 00 53 54 41 55 48 52 2B 36 00 4C 44 41 23 30 |8.STAUHR+6.LDA#0| 00000FB0: 3B 55 4E 44 20 41 55 46 20 30 30 3A 30 30 3A 30 |;UND AUF 00:00:0| 00000FC0: 30 20 53 45 54 5A 45 4E 00 53 54 41 55 48 52 2B |0 SETZEN.STAUHR+| 00000FD0: 33 00 53 54 41 55 48 52 2B 32 00 53 54 41 55 48 |3.STAUHR+2.STAUH| 00000FE0: 52 2B 31 00 53 54 41 55 48 52 3B D5 48 52 20 53 |R+1.STAUHR;.HR S| 00000FF0: 54 41 52 54 45 4E 00 52 54 53 00 20 00 50 41 53 |TARTEN.RTS. .PAS| 00001000: 53 32 3A 4A 53 52 50 41 53 53 50 41 52 41 3B D0 |S2:JSRPASSPARA;.| 00001010: 41 53 53 20 32 20 53 54 41 52 54 45 4E 00 4A 53 |ASS 2 STARTEN.JS| 00001020: 52 55 48 52 41 4E 00 4A 4D 50 44 4F 50 41 53 53 |RUHRAN.JMPDOPASS| 00001030: 32 00 20 00 41 53 53 45 4D 42 4C 45 3A 4A 53 52 |2. .ASSEMBLE:JSR| 00001040: 50 41 53 53 50 41 52 41 3B C1 53 53 45 4D 42 4C |PASSPARA;.SSEMBL| 00001050: 45 52 20 53 54 41 52 54 45 4E 00 4C 44 41 23 25 |ER STARTEN.LDA#%| 00001060: 30 30 30 30 30 31 31 30 3B 41 53 53 46 4C 41 47 |00000110;ASSFLAG| 00001070: 53 20 41 55 46 20 D3 54 41 52 54 53 49 54 55 41 |S AUF .TARTSITUA| 00001080: 54 49 4F 4E 00 4F 52 41 41 53 53 46 4C 41 47 53 |TION.ORAASSFLAGS| 00001090: 00 53 54 41 41 53 53 46 4C 41 47 53 00 4A 53 52 |.STAASSFLAGS.JSR| 000010A0: 55 48 52 41 4E 3B D5 48 52 20 41 4E 00 4C 44 41 |UHRAN;.HR AN.LDA| 000010B0: 4C 42 4C 41 4E 46 3B CC 41 42 45 4C 20 C6 49 4C |LBLANF;.ABEL .IL| 000010C0: 45 20 4C 4F 45 53 43 48 45 4E 00 53 54 41 4C 42 |E LOESCHEN.STALB| 000010D0: 4C 50 4F 49 4E 54 00 53 54 41 5A 47 32 00 4C 44 |LPOINT.STAZG2.LD| 000010E0: 41 4C 42 4C 41 4E 46 2B 31 00 53 54 41 4C 42 4C |ALBLANF+1.STALBL| 000010F0: 50 4F 49 4E 54 2B 31 00 53 54 41 5A 47 32 2B 31 |POINT+1.STAZG2+1| 00001100: 00 4C 44 41 23 30 3B 44 55 52 43 48 20 30 20 41 |.LDA#0;DURCH 0 A| 00001110: 4D 20 C1 4E 46 41 4E 47 00 54 41 59 00 4A 53 52 |M .NFANG.TAY.JSR| 00001120: 50 55 54 5A 47 32 00 4A 53 52 57 52 49 54 45 50 |PUTZG2.JSRWRITEP| 00001130: 41 53 53 3B D0 41 53 53 20 41 55 53 47 45 42 45 |ASS;.ASS AUSGEBE| 00001140: 4E 00 4A 53 52 50 41 53 53 42 45 47 49 4E 3B D0 |N.JSRPASSBEGIN;.| 00001150: 41 52 41 4D 45 54 45 52 20 46 55 45 52 20 D0 41 |ARAMETER FUER .A| 00001160: 53 53 20 53 45 54 5A 45 4E 00 4A 53 52 50 41 53 |SS SETZEN.JSRPAS| 00001170: 53 3B D0 41 53 53 20 44 55 52 43 48 46 55 45 48 |S;.ASS DURCHFUEH| 00001180: 52 45 4E 00 4A 53 52 43 4C 52 43 48 00 4C 44 41 |REN.JSRCLRCH.LDA| 00001190: 23 32 3B C4 49 53 4B 46 49 4C 45 27 53 20 53 43 |#2;.ISKFILE'S SC| 000011A0: 48 4C 49 45 53 53 45 4E 00 4A 53 52 43 4C 4F 53 |HLIESSEN.JSRCLOS| 000011B0: 45 00 4C 44 41 23 31 00 4A 53 52 43 4C 4F 53 45 |E.LDA#1.JSRCLOSE| 000011C0: 00 4C 44 41 50 43 00 53 54 41 50 41 53 53 41 44 |.LDAPC.STAPASSAD| 000011D0: 52 45 53 53 00 4C 44 41 50 43 2B 31 00 53 54 41 |RESS.LDAPC+1.STA| 000011E0: 50 41 53 53 41 44 52 45 53 53 2B 31 00 44 4F 50 |PASSADRESS+1.DOP| 000011F0: 41 53 53 32 3A 4C 44 41 41 53 53 46 4C 41 47 53 |ASS2:LDAASSFLAGS| 00001200: 3B D0 41 53 53 20 32 20 41 55 53 46 55 45 48 52 |;.ASS 2 AUSFUEHR| 00001210: 45 4E 00 4F 52 41 23 25 31 30 30 30 30 31 31 30 |EN.ORA#%10000110| 00001220: 3B 41 53 53 46 4C 41 47 53 20 41 55 46 20 D3 54 |;ASSFLAGS AUF .T| 00001230: 41 4E 44 41 52 54 00 41 4E 44 23 25 31 31 30 30 |ANDART.AND#%1100| 00001240: 30 31 31 30 00 53 54 41 41 53 53 46 4C 41 47 53 |0110.STAASSFLAGS| 00001250: 00 4A 53 52 57 52 49 54 45 50 41 53 53 3B D0 41 |.JSRWRITEPASS;.A| 00001260: 53 53 20 41 55 53 47 45 42 45 4E 00 4A 53 52 50 |SS AUSGEBEN.JSRP| 00001270: 41 53 53 42 45 47 49 4E 3B D0 41 52 41 4D 45 54 |ASSBEGIN;.ARAMET| 00001280: 45 52 20 46 55 45 52 20 D0 41 53 53 20 53 45 54 |ER FUER .ASS SET| 00001290: 5A 45 4E 00 4A 53 52 50 41 53 53 3B D0 41 53 53 |ZEN.JSRPASS;.ASS| 000012A0: 20 44 55 52 43 48 46 55 45 48 52 45 4E 00 4C 44 | DURCHFUEHREN.LD| 000012B0: 41 23 30 3B 41 53 53 46 4C 41 47 53 20 4C 4F 45 |A#0;ASSFLAGS LOE| 000012C0: 53 43 48 45 4E 00 53 54 41 41 53 53 46 4C 41 47 |SCHEN.STAASSFLAG| 000012D0: 53 00 4A 53 52 4E 45 58 54 5A 45 49 00 4C 44 41 |S.JSRNEXTZEI.LDA| 000012E0: 50 43 00 43 4D 50 50 41 53 53 41 44 52 45 53 53 |PC.CMPPASSADRESS| 000012F0: 00 42 4E 45 50 41 53 53 45 52 52 4F 52 00 4C 44 |.BNEPASSERROR.LD| 00001300: 41 50 43 2B 31 00 43 4D 50 50 41 53 53 41 44 52 |APC+1.CMPPASSADR| 00001310: 45 53 53 2B 31 00 42 4E 45 50 41 53 53 45 52 52 |ESS+1.BNEPASSERR| 00001320: 4F 52 00 4C 44 58 23 35 38 3B C6 45 48 4C 45 52 |OR.LDX#58;.EHLER| 00001330: 5A 41 48 4C 20 41 55 53 47 45 42 45 4E 00 4A 53 |ZAHL AUSGEBEN.JS| 00001340: 52 57 52 49 54 45 00 4C 44 41 46 45 48 4C 45 52 |RWRITE.LDAFEHLER| 00001350: 00 53 54 41 5A 41 48 4C 31 00 4C 44 41 46 45 48 |.STAZAHL1.LDAFEH| 00001360: 4C 45 52 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 |LER+1.STAZAHL1+1| 00001370: 00 4A 53 52 5A 41 48 4C 44 45 5A 4F 55 54 00 4A |.JSRZAHLDEZOUT.J| 00001380: 53 52 4E 45 58 54 5A 45 49 3B C1 53 53 45 4D 42 |SRNEXTZEI;.SSEMB| 00001390: 4C 49 45 52 5A 45 49 54 20 41 55 53 47 45 42 45 |LIERZEIT AUSGEBE| 000013A0: 4E 00 4C 44 58 23 35 39 00 4A 53 52 57 52 49 54 |N.LDX#59.JSRWRIT| 000013B0: 45 00 4C 44 58 23 33 00 52 45 41 44 54 49 3A 4C |E.LDX#3.READTI:L| 000013C0: 44 41 55 48 52 2C 58 3B DA 45 49 54 20 49 4E 20 |DAUHR,X;.EIT IN | 000013D0: 42 55 46 46 45 52 20 53 50 45 49 43 48 45 52 4E |BUFFER SPEICHERN| 000013E0: 00 53 54 41 42 55 46 46 45 52 2C 58 00 44 45 58 |.STABUFFER,X.DEX| 000013F0: 00 42 50 4C 52 45 41 44 54 49 00 4C 44 58 23 33 |.BPLREADTI.LDX#3| 00001400: 3B 55 4E 44 20 41 55 53 47 45 42 45 4E 00 57 52 |;UND AUSGEBEN.WR| 00001410: 49 54 45 54 49 3A 4C 44 41 42 55 46 46 45 52 2C |ITETI:LDABUFFER,| 00001420: 58 00 4A 53 52 48 45 58 4F 55 54 00 43 50 58 23 |X.JSRHEXOUT.CPX#| 00001430: 31 00 42 45 51 45 4E 44 5A 45 49 54 00 4C 44 41 |1.BEQENDZEIT.LDA| 00001440: 23 27 3A 00 4A 53 52 42 53 4F 55 54 00 44 45 58 |#':.JSRBSOUT.DEX| 00001450: 00 42 4E 45 57 52 49 54 45 54 49 00 45 4E 44 5A |.BNEWRITETI.ENDZ| 00001460: 45 49 54 3A 4A 53 52 4E 45 58 54 5A 45 49 3B C5 |EIT:JSRNEXTZEI;.| 00001470: 4E 44 41 44 52 45 53 53 45 20 41 55 53 47 45 42 |NDADRESSE AUSGEB| 00001480: 45 4E 00 4C 44 58 23 36 30 00 4A 53 52 57 52 49 |EN.LDX#60.JSRWRI| 00001490: 54 45 00 4C 44 41 50 43 00 53 54 41 5A 41 48 4C |TE.LDAPC.STAZAHL| 000014A0: 31 00 4C 44 41 50 43 2B 31 00 53 54 41 5A 41 48 |1.LDAPC+1.STAZAH| 000014B0: 4C 31 2B 31 00 4A 53 52 5A 41 48 4C 48 45 58 4F |L1+1.JSRZAHLHEXO| 000014C0: 55 54 00 4C 44 41 23 27 2F 3B C5 4E 44 41 44 52 |UT.LDA#'/;.NDADR| 000014D0: 2E 20 42 45 49 20 41 42 4C 45 47 45 4E 20 41 55 |. BEI ABLEGEN AU| 000014E0: 53 47 45 42 45 4E 00 4A 53 52 42 53 4F 55 54 00 |SGEBEN.JSRBSOUT.| 000014F0: 4C 44 41 5A 47 32 00 53 54 41 5A 41 48 4C 31 00 |LDAZG2.STAZAHL1.| 00001500: 4C 44 41 5A 47 32 2B 31 00 53 54 41 5A 41 48 4C |LDAZG2+1.STAZAHL| 00001510: 31 2B 31 00 4A 53 52 5A 41 48 4C 48 45 58 4F 55 |1+1.JSRZAHLHEXOU| 00001520: 54 00 4A 53 52 4E 45 58 54 5A 45 49 00 4A 53 52 |T.JSRNEXTZEI.JSR| 00001530: 4E 45 58 54 5A 45 49 00 50 41 53 53 41 42 4F 52 |NEXTZEI.PASSABOR| 00001540: 54 3A 4A 53 52 50 4F 49 4E 54 45 52 3B C6 45 52 |T:JSRPOINTER;.ER| 00001550: 54 49 47 00 4A 53 52 42 45 45 50 00 4A 53 52 43 |TIG.JSRBEEP.JSRC| 00001560: 4C 4F 41 4C 4C 00 4A 4D 50 4D 41 49 4E 52 54 00 |LOALL.JMPMAINRT.| 00001570: 20 00 50 41 53 53 45 52 52 4F 52 3A 4C 44 58 23 | .PASSERROR:LDX#| 00001580: 36 36 3B C2 45 52 45 43 48 4E 55 4E 47 53 46 45 |66;.ERECHNUNGSFE| 00001590: 48 4C 45 52 00 4A 53 52 41 53 53 45 52 52 4F 52 |HLER.JSRASSERROR| 000015A0: 00 4A 4D 50 50 41 53 53 41 42 4F 52 54 3B D0 41 |.JMPPASSABORT;.A| 000015B0: 53 53 20 42 45 45 4E 44 45 4E 00 20 00 50 41 53 |SS BEENDEN. .PAS| 000015C0: 53 42 45 47 49 4E 3A 4A 53 52 50 55 54 52 4F 32 |SBEGIN:JSRPUTRO2| 000015D0: 3B D0 41 53 53 20 53 54 41 52 54 45 4E 00 4C 44 |;.ASS STARTEN.LD| 000015E0: 41 41 53 53 46 4C 32 00 41 4E 44 23 25 30 31 31 |AASSFL2.AND#%011| 000015F0: 31 31 31 31 31 00 53 54 41 41 53 53 46 4C 32 00 |11111.STAASSFL2.| 00001600: 4C 44 41 23 30 3B D0 C3 20 41 55 46 20 30 00 53 |LDA#0;.. AUF 0.S| 00001610: 54 41 50 43 2B 31 00 53 54 41 50 43 00 53 54 41 |TAPC+1.STAPC.STA| 00001620: 41 53 5A 45 49 4C 45 3B DA 45 49 4C 45 20 41 55 |ASZEILE;.EILE AU| 00001630: 46 20 30 00 53 54 41 41 53 5A 45 49 4C 45 2B 31 |F 0.STAASZEILE+1| 00001640: 00 4C 44 41 46 4C 41 47 53 3B C4 49 53 4B 20 CD |.LDAFLAGS;.ISK .| 00001650: CF C4 C5 3F 00 41 4E 44 23 31 36 00 42 4E 45 2A |...?.AND#16.BNE*| 00001660: 2B 33 00 52 54 53 00 4C 44 41 53 54 41 52 54 46 |+3.RTS.LDASTARTF| 00001670: 49 4C 45 3B C6 49 4C 45 4E 41 4D 45 20 53 45 54 |ILE;.ILENAME SET| 00001680: 5A 45 4E 00 4C 44 58 23 3C 53 54 41 52 54 46 49 |ZEN.LDX#<STARTFI| 00001690: 4C 45 2B 31 00 4C 44 59 23 3E 53 54 41 52 54 46 |LE+1.LDY#>STARTF| 000016A0: 49 4C 45 2B 31 00 4A 53 52 53 45 54 4E 41 4D 45 |ILE+1.JSRSETNAME| 000016B0: 00 4C 44 58 23 46 4C 4F 44 45 56 3B C6 49 4C 45 |.LDX#FLODEV;.ILE| 000016C0: 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E |PARAMETER SETZEN| 000016D0: 00 4C 44 41 23 31 00 4C 44 59 23 30 00 4A 53 52 |.LDA#1.LDY#0.JSR| 000016E0: 53 45 54 50 41 52 41 00 4A 53 52 4F 50 45 4E 3B |SETPARA.JSROPEN;| 000016F0: C6 49 4C 45 20 4F 45 46 46 4E 45 4E 00 4C 44 58 |.ILE OEFFNEN.LDX| 00001700: 23 31 3B C5 49 4E 47 41 42 45 20 41 55 53 20 C6 |#1;.INGABE AUS .| 00001710: 49 4C 45 00 4A 53 52 43 48 4B 49 4E 00 4A 53 52 |ILE.JSRCHKIN.JSR| 00001720: 42 41 53 49 4E 52 3B C6 49 4C 45 4C 41 45 4E 47 |BASINR;.ILELAENG| 00001730: 45 20 48 4F 4C 45 4E 00 53 54 41 5A 41 48 4C 31 |E HOLEN.STAZAHL1| 00001740: 00 4A 53 52 42 41 53 49 4E 52 00 53 54 41 5A 41 |.JSRBASINR.STAZA| 00001750: 48 4C 31 2B 31 00 4C 44 41 53 54 41 54 55 53 3B |HL1+1.LDASTATUS;| 00001760: D3 54 41 54 55 53 20 54 45 53 54 45 4E 00 42 45 |.TATUS TESTEN.BE| 00001770: 51 44 49 53 4B 4F 4B 00 4A 53 52 44 49 53 4B 45 |QDISKOK.JSRDISKE| 00001780: 52 52 3B C4 49 53 4B 45 52 52 4F 52 20 28 C6 49 |RR;.ISKERROR (.I| 00001790: 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 20 45 54 43 |LE NOT FOUND ETC| 000017A0: 2E 29 00 4A 4D 50 50 41 53 53 41 42 4F 52 54 00 |.).JMPPASSABORT.| 000017B0: 44 49 53 4B 4F 4B 3A 4A 53 52 43 4C 52 43 48 3B |DISKOK:JSRCLRCH;| 000017C0: C6 49 4C 45 4C 41 45 4E 47 45 00 4A 53 52 5A 41 |.ILELAENGE.JSRZA| 000017D0: 48 4C 48 45 58 4F 55 54 00 4C 44 41 23 33 32 00 |HLHEXOUT.LDA#32.| 000017E0: 4A 53 52 42 53 4F 55 54 00 4C 44 59 23 30 3B 55 |JSRBSOUT.LDY#0;U| 000017F0: 4E 44 20 C6 49 4C 45 4E 41 4D 45 4E 20 41 55 53 |ND .ILENAMEN AUS| 00001800: 47 45 42 45 4E 00 53 54 46 49 4F 55 3A 4C 44 41 |GEBEN.STFIOU:LDA| 00001810: 53 54 41 52 54 46 49 4C 45 2B 31 2C 59 00 4A 53 |STARTFILE+1,Y.JS| 00001820: 52 42 53 4F 55 54 00 49 4E 59 00 43 50 59 53 54 |RBSOUT.INY.CPYST| 00001830: 41 52 54 46 49 4C 45 00 42 4E 45 53 54 46 49 4F |ARTFILE.BNESTFIO| 00001840: 55 00 4A 4D 50 4E 45 58 54 5A 45 49 00 20 00 57 |U.JMPNEXTZEI. .W| 00001850: 52 49 54 45 50 41 53 53 3A 4C 44 58 23 35 33 3B |RITEPASS:LDX#53;| 00001860: 27 2A 2A 2A 20 50 41 53 53 20 58 20 2A 2A 2A 27 |'*** PASS X ***'| 00001870: 20 41 55 53 47 45 42 45 4E 00 4A 53 52 57 52 49 | AUSGEBEN.JSRWRI| 00001880: 54 45 00 42 49 54 41 53 53 46 4C 41 47 53 00 42 |TE.BITASSFLAGS.B| 00001890: 4D 49 50 41 32 00 4C 44 41 23 27 31 00 42 49 54 |MIPA2.LDA#'1.BIT| 000018A0: 00 50 41 32 3A 4C 44 41 23 27 32 00 4A 53 52 42 |.PA2:LDA#'2.JSRB| 000018B0: 53 4F 55 54 00 4C 44 58 23 35 34 00 4A 4D 50 57 |SOUT.LDX#54.JMPW| 000018C0: 52 49 54 45 00 20 00 50 41 53 53 50 41 52 41 3A |RITE. .PASSPARA:| 000018D0: 4C 44 58 23 35 35 3B D0 41 53 53 50 41 52 41 4D |LDX#55;.ASSPARAM| 000018E0: 45 54 45 52 20 48 4F 4C 45 4E 00 4A 53 52 57 52 |ETER HOLEN.JSRWR| 000018F0: 49 54 45 3B D0 52 4F 54 4F 4B 4F 4C 4C 20 44 52 |ITE;.ROTOKOLL DR| 00001900: 55 43 4B 45 4E 20 3F 00 4A 53 52 4A 41 4E 45 49 |UCKEN ?.JSRJANEI| 00001910: 4E 00 42 45 51 50 52 4F 44 52 55 00 4C 44 41 23 |N.BEQPRODRU.LDA#| 00001920: 30 3B 4E 45 49 4E 00 42 49 54 00 50 52 4F 44 52 |0;NEIN.BIT.PRODR| 00001930: 55 3A 4C 44 41 23 36 34 3B 4A 41 00 53 54 41 41 |U:LDA#64;JA.STAA| 00001940: 53 53 46 4C 41 47 53 00 4C 44 41 46 4C 41 47 53 |SSFLAGS.LDAFLAGS| 00001950: 00 41 4E 44 23 25 31 31 30 30 31 31 31 31 00 53 |.AND#%11001111.S| 00001960: 54 41 46 4C 41 47 53 00 41 4E 44 23 38 00 42 45 |TAFLAGS.AND#8.BE| 00001970: 51 50 52 49 4F 46 46 00 4C 44 41 23 30 3B C4 52 |QPRIOFF.LDA#0;.R| 00001980: 55 43 4B 45 52 46 49 4C 45 20 45 52 4F 45 46 46 |UCKERFILE EROEFF| 00001990: 4E 45 4E 00 4A 53 52 53 45 54 4E 41 4D 45 00 4C |NEN.JSRSETNAME.L| 000019A0: 44 58 23 44 52 55 44 45 56 00 4C 44 41 23 33 00 |DX#DRUDEV.LDA#3.| 000019B0: 4C 44 59 23 44 52 55 53 45 43 00 4A 53 52 53 45 |LDY#DRUSEC.JSRSE| 000019C0: 54 50 41 52 41 00 4A 53 52 4F 50 45 4E 00 50 52 |TPARA.JSROPEN.PR| 000019D0: 49 4F 46 46 3A 4A 53 52 4E 45 58 54 5A 45 49 00 |IOFF:JSRNEXTZEI.| 000019E0: 4C 44 58 23 36 3B C6 49 4C 45 4E 41 4D 45 20 48 |LDX#6;.ILENAME H| 000019F0: 4F 4C 45 4E 00 4A 53 52 57 52 49 54 45 00 4A 53 |OLEN.JSRWRITE.JS| 00001A00: 52 53 54 52 31 36 49 4E 00 4A 53 52 4E 45 58 54 |RSTR16IN.JSRNEXT| 00001A10: 5A 45 49 00 43 50 59 23 30 00 42 45 51 4E 4F 46 |ZEI.CPY#0.BEQNOF| 00001A20: 49 4C 45 4D 4F 44 45 3B 4B 45 49 4E 20 CE 41 4D |ILEMODE;KEIN .AM| 00001A30: 45 2D 3E D2 41 4D 44 41 54 45 49 00 53 54 59 53 |E->.AMDATEI.STYS| 00001A40: 54 41 52 54 46 49 4C 45 3B CE 41 4D 45 4E 20 53 |TARTFILE;.AMEN S| 00001A50: 50 45 49 43 48 45 52 4E 20 46 55 45 52 20 32 2E |PEICHERN FUER 2.| 00001A60: D0 41 53 53 00 44 45 59 00 54 52 53 54 41 4E 41 |.ASS.DEY.TRSTANA| 00001A70: 3A 4C 44 41 42 55 46 46 45 52 2C 59 00 53 54 41 |:LDABUFFER,Y.STA| 00001A80: 53 54 41 52 54 46 49 4C 45 2B 31 2C 59 00 44 45 |STARTFILE+1,Y.DE| 00001A90: 59 00 42 50 4C 54 52 53 54 41 4E 41 00 4C 44 41 |Y.BPLTRSTANA.LDA| 00001AA0: 46 4C 41 47 53 3B C4 49 53 4B 4D 4F 44 45 20 45 |FLAGS;.ISKMODE E| 00001AB0: 49 4E 53 43 48 41 4C 54 45 4E 00 4F 52 41 23 31 |INSCHALTEN.ORA#1| 00001AC0: 36 00 53 54 41 46 4C 41 47 53 00 4E 4F 46 49 4C |6.STAFLAGS.NOFIL| 00001AD0: 45 4D 4F 44 45 3A 4C 44 41 23 30 3B C1 4E 5A 41 |EMODE:LDA#0;.NZA| 00001AE0: 48 4C 20 C6 45 48 4C 45 52 3D 30 00 53 54 41 46 |HL .EHLER=0.STAF| 00001AF0: 45 48 4C 45 52 00 53 54 41 46 45 48 4C 45 52 2B |EHLER.STAFEHLER+| 00001B00: 31 00 52 54 53 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A |1.RTS. .;*******| 00001B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B30: 00 3B 2A 20 2A 20 20 20 20 20 20 20 C1 53 53 45 |.;* * .SSE| 00001B40: 4D 42 4C 45 52 20 2D 20 C5 52 52 4F 52 20 20 20 |MBLER - .RROR | 00001B50: 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A | * *.;*****| 00001B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001B80: 2A 2A 00 20 00 41 53 53 45 52 52 4F 52 3A 4A 53 |**. .ASSERROR:JS| 00001B90: 52 50 55 53 43 48 00 4C 44 41 41 53 53 46 4C 41 |RPUSCH.LDAASSFLA| 00001BA0: 47 53 00 42 50 4C 4E 49 46 48 3B 46 45 48 4C 45 |GS.BPLNIFH;FEHLE| 00001BB0: 52 41 4E 5A 41 48 4C 20 45 52 48 4F 45 48 45 4E |RANZAHL ERHOEHEN| 00001BC0: 00 49 4E 43 46 45 48 4C 45 52 00 42 4E 45 4E 49 |.INCFEHLER.BNENI| 00001BD0: 46 48 00 49 4E 43 46 45 48 4C 45 52 2B 31 00 4E |FH.INCFEHLER+1.N| 00001BE0: 49 46 48 3A 54 58 41 00 50 48 41 00 4A 53 52 42 |IFH:TXA.PHA.JSRB| 00001BF0: 45 45 50 3B C6 45 48 4C 45 52 20 4D 45 4C 44 45 |EEP;.EHLER MELDE| 00001C00: 4E 00 4C 44 58 23 35 32 00 4A 53 52 57 52 49 54 |N.LDX#52.JSRWRIT| 00001C10: 45 00 50 4C 41 00 54 41 58 3B C6 45 48 4C 45 52 |E.PLA.TAX;.EHLER| 00001C20: 54 45 58 54 20 44 52 55 43 4B 45 4E 00 4A 53 52 |TEXT DRUCKEN.JSR| 00001C30: 57 52 49 54 45 00 4C 44 58 23 35 31 00 4A 53 52 |WRITE.LDX#51.JSR| 00001C40: 57 52 49 54 45 00 4C 44 41 41 53 53 46 4C 41 47 |WRITE.LDAASSFLAG| 00001C50: 53 3B C1 53 53 45 4D 42 4C 45 52 20 4C 41 55 46 |S;.SSEMBLER LAUF| 00001C60: 54 3F 00 41 4E 44 23 38 00 42 45 51 41 53 4C 41 |T?.AND#8.BEQASLA| 00001C70: 55 46 00 4A 4D 50 50 55 4C 4C 00 41 53 4C 41 55 |UF.JMPPULL.ASLAU| 00001C80: 46 3A 4C 44 58 23 35 37 3B CA C1 20 2D 3E DA 45 |F:LDX#57;.. ->.E| 00001C90: 49 4C 45 4E 4E 55 4D 4D 45 52 20 41 55 53 47 45 |ILENNUMMER AUSGE| 00001CA0: 42 45 4E 00 4A 53 52 57 52 49 54 45 00 4C 44 41 |BEN.JSRWRITE.LDA| 00001CB0: 41 53 5A 45 49 4C 45 00 53 54 41 5A 41 48 4C 31 |ASZEILE.STAZAHL1| 00001CC0: 00 53 54 41 43 5A 45 49 4C 00 4C 44 41 41 53 5A |.STACZEIL.LDAASZ| 00001CD0: 45 49 4C 45 2B 31 00 53 54 41 5A 41 48 4C 31 2B |EILE+1.STAZAHL1+| 00001CE0: 31 00 53 54 41 43 5A 45 49 4C 2B 31 00 4A 53 52 |1.STACZEIL+1.JSR| 00001CF0: 5A 41 48 4C 44 45 5A 4F 55 54 3B CE 55 4D 4D 45 |ZAHLDEZOUT;.UMME| 00001D00: 52 20 41 55 53 47 45 42 45 4E 00 4A 53 52 4E 45 |R AUSGEBEN.JSRNE| 00001D10: 58 54 5A 45 49 00 42 49 54 41 53 53 46 4C 32 00 |XTZEI.BITASSFL2.| 00001D20: 42 50 4C 41 53 45 52 45 4E 44 00 47 45 54 33 3A |BPLASEREND.GET3:| 00001D30: 4C 44 58 23 36 32 3B D7 41 49 54 20 CD 4F 44 55 |LDX#62;.AIT .ODU| 00001D40: 53 00 4A 53 52 57 52 49 54 45 3B 27 C3 4F 4E 54 |S.JSRWRITE;'.ONT| 00001D50: 20 C1 42 4F 52 54 27 20 C1 42 46 52 41 47 45 00 | .BORT' .BFRAGE.| 00001D60: 4C 44 41 46 4C 41 47 53 00 41 4E 44 23 31 36 00 |LDAFLAGS.AND#16.| 00001D70: 42 4E 45 2A 2B 32 2B 32 2B 33 00 4C 44 58 23 36 |BNE*+2+2+3.LDX#6| 00001D80: 33 3B D2 41 4D 20 CD 4F 44 55 53 00 4A 53 52 57 |3;.AM .ODUS.JSRW| 00001D90: 52 49 54 45 3B 27 C5 44 49 54 27 20 C1 42 46 52 |RITE;'.DIT' .BFR| 00001DA0: 41 47 45 00 4A 53 52 47 45 54 3B C2 45 46 45 48 |AGE.JSRGET;.EFEH| 00001DB0: 4C 20 48 4F 4C 45 4E 00 4C 44 58 5A 45 49 4C 45 |L HOLEN.LDXZEILE| 00001DC0: 00 50 48 41 00 4A 53 52 43 4C 52 4C 49 4E 45 3B |.PHA.JSRCLRLINE;| 00001DD0: C1 42 46 52 41 47 45 54 45 58 54 20 4C 4F 45 53 |.BFRAGETEXT LOES| 00001DE0: 43 48 45 4E 00 4C 44 59 23 30 00 53 54 59 50 4F |CHEN.LDY#0.STYPO| 00001DF0: 53 00 53 54 59 43 53 50 41 4C 00 4A 53 52 53 45 |S.STYCSPAL.JSRSE| 00001E00: 54 43 52 53 52 00 50 4C 41 00 43 4D 50 23 27 41 |TCRSR.PLA.CMP#'A| 00001E10: 3B C1 42 4F 52 54 00 42 45 51 54 4F 54 41 4C 41 |;.BORT.BEQTOTALA| 00001E20: 42 00 43 4D 50 23 27 43 3B C3 4F 4E 54 49 4E 55 |B.CMP#'C;.ONTINU| 00001E30: 45 00 42 45 51 41 53 45 52 45 4E 44 00 43 4D 50 |E.BEQASEREND.CMP| 00001E40: 23 27 45 3B C5 44 49 54 00 42 4E 45 47 45 54 33 |#'E;.DIT.BNEGET3| 00001E50: 3B 46 41 4C 53 43 48 45 20 C5 49 4E 47 41 42 45 |;FALSCHE .INGABE| 00001E60: 00 4C 44 41 46 4C 41 47 53 00 41 4E 44 23 31 36 |.LDAFLAGS.AND#16| 00001E70: 00 42 4E 45 47 45 54 33 3B C5 44 49 54 20 4E 55 |.BNEGET3;.DIT NU| 00001E80: 52 20 49 4D 20 D2 41 4D 20 CD 4F 44 55 53 00 4A |R IM .AM .ODUS.J| 00001E90: 53 52 50 4F 49 4E 54 45 52 3B 5A 55 4D 20 C5 44 |SRPOINTER;ZUM .D| 00001EA0: 49 54 4F 52 00 4A 53 52 43 4C 4F 41 4C 4C 00 4A |ITOR.JSRCLOALL.J| 00001EB0: 53 52 45 44 49 54 49 4E 49 54 00 49 4E 43 43 53 |SREDITINIT.INCCS| 00001EC0: 50 41 4C 00 4A 53 52 44 41 54 45 4E 42 49 4C 44 |PAL.JSRDATENBILD| 00001ED0: 00 4C 44 58 53 54 41 43 4B 00 54 58 53 00 4A 4D |.LDXSTACK.TXS.JM| 00001EE0: 50 45 44 42 45 46 00 41 53 45 52 45 4E 44 3A 4A |PEDBEF.ASEREND:J| 00001EF0: 4D 50 50 55 4C 4C 3B C3 4F 4E 54 20 41 55 53 46 |MPPULL;.ONT AUSF| 00001F00: 55 45 48 52 45 4E 00 54 4F 54 41 4C 41 42 3A 4A |UEHREN.TOTALAB:J| 00001F10: 4D 50 50 41 53 53 41 42 4F 52 54 3B C1 42 4F 52 |MPPASSABORT;.BOR| 00001F20: 54 20 41 55 53 46 55 45 48 52 45 4E 00 20 00 3B |T AUSFUEHREN. .;| 00001F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001F40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001F50: 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 |*******.;* * | 00001F60: 20 20 C5 49 4E 45 4E 20 D0 41 53 53 20 41 55 53 | .INEN .ASS AUS| 00001F70: 46 55 45 48 52 45 4E 20 20 20 20 20 20 2A 20 2A |FUEHREN * *| 00001F80: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************| 00001F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 50 41 53 53 |*********. .PASS| 00001FB0: 3A 4A 53 52 5A 47 54 45 58 54 3B C5 49 4E 45 20 |:JSRZGTEXT;.INE | 00001FC0: D0 41 53 53 20 41 55 53 46 55 45 48 52 45 4E 00 |.ASS AUSFUEHREN.| 00001FD0: 44 4F 50 41 53 53 3A 4A 53 52 53 59 4E 54 41 58 |DOPASS:JSRSYNTAX| 00001FE0: 3B DA 45 49 4C 45 20 41 4E 41 4C 59 53 49 45 52 |;.EILE ANALYSIER| 00001FF0: 45 4E 00 4C 44 41 42 55 46 46 45 52 3B C1 55 46 |EN.LDABUFFER;.UF| 00002000: 20 C2 45 46 45 48 4C 20 54 45 53 54 45 4E 00 42 | .EFEHL TESTEN.B| 00002010: 45 51 4E 4F 42 45 46 00 4C 44 41 42 55 46 46 45 |EQNOBEF.LDABUFFE| 00002020: 52 2B 31 00 42 45 51 4E 4F 42 45 46 00 4C 44 41 |R+1.BEQNOBEF.LDA| 00002030: 42 55 46 46 45 52 2B 32 00 42 4E 45 42 45 46 44 |BUFFER+2.BNEBEFD| 00002040: 41 00 4E 4F 42 45 46 3A 53 54 41 42 55 46 46 45 |A.NOBEF:STABUFFE| 00002050: 52 2B 33 3B 4B 45 49 4E 20 C2 45 46 45 48 4C 20 |R+3;KEIN .EFEHL | 00002060: 49 4E 20 DA 45 49 4C 45 00 42 45 46 44 41 3A 4C |IN .EILE.BEFDA:L| 00002070: 44 41 41 53 53 46 4C 41 47 53 3B D4 45 58 54 20 |DAASSFLAGS;.EXT | 00002080: 49 4D 20 C2 4C 4F 43 4B 3F 00 41 4E 44 23 33 32 |IM .LOCK?.AND#32| 00002090: 00 42 45 51 2A 2B 35 00 4A 4D 50 42 4C 4F 43 4B |.BEQ*+5.JMPBLOCK| 000020A0: 3B CA 41 2D 3E DA 45 49 4C 45 20 41 4C 53 20 CB |;.A->.EILE ALS .| 000020B0: 4F 4D 4D 45 4E 54 41 52 20 42 45 48 41 4E 44 45 |OMMENTAR BEHANDE| 000020C0: 4C 00 4C 44 41 41 53 53 46 4C 41 47 53 3B CC 41 |L.LDAASSFLAGS;.A| 000020D0: 42 45 4C 20 49 4E 20 D0 41 53 53 20 32 00 42 4D |BEL IN .ASS 2.BM| 000020E0: 49 4E 4F 4C 42 4C 49 4E 53 3B 55 45 42 45 52 4C |INOLBLINS;UEBERL| 000020F0: 45 53 45 4E 00 4C 44 41 42 55 46 46 45 52 32 00 |ESEN.LDABUFFER2.| 00002100: 42 45 51 4E 4F 4C 42 4C 49 4E 53 3B 4B 45 49 4E |BEQNOLBLINS;KEIN| 00002110: 20 CC 41 42 45 4C 20 56 4F 52 48 41 4E 44 45 4E | .ABEL VORHANDEN| 00002120: 00 4A 53 52 49 4E 53 4C 42 4C 3B CC 41 42 45 4C |.JSRINSLBL;.ABEL| 00002130: 20 45 49 4E 54 52 41 47 45 4E 00 4E 4F 4C 42 4C | EINTRAGEN.NOLBL| 00002140: 49 4E 53 3A 4C 44 41 42 55 46 46 45 52 00 43 4D |INS:LDABUFFER.CM| 00002150: 50 23 27 2E 3B D0 53 45 55 44 4F 20 C2 45 46 45 |P#'.;.SEUDO .EFE| 00002160: 48 4C 20 3F 00 42 4E 45 2A 2B 32 2B 33 2B 33 00 |HL ?.BNE*+2+3+3.| 00002170: 4A 53 52 45 58 45 50 53 45 3B CA 41 20 2D 3E 20 |JSREXEPSE;.A -> | 00002180: 41 55 53 46 55 45 48 52 45 4E 00 4A 4D 50 4E 4F |AUSFUEHREN.JMPNO| 00002190: 54 4F 55 54 33 00 4A 53 52 41 55 53 44 52 55 43 |TOUT3.JSRAUSDRUC| 000021A0: 4B 3B CF 50 45 52 41 4E 44 20 41 55 53 57 45 52 |K;.PERAND AUSWER| 000021B0: 54 45 4E 00 4C 44 41 4C 41 42 45 4C 54 59 50 00 |TEN.LDALABELTYP.| 000021C0: 42 50 4C 44 45 46 49 4E 49 45 52 54 3B CF 50 45 |BPLDEFINIERT;.PE| 000021D0: 52 41 4E 44 20 49 53 54 20 44 45 46 49 4E 49 45 |RAND IST DEFINIE| 000021E0: 52 54 00 4C 44 41 23 31 3B DA 45 52 4F 2D CD 4F |RT.LDA#1;.ERO-.O| 000021F0: 44 45 20 46 55 45 52 20 55 4E 44 45 46 2E 20 53 |DE FUER UNDEF. S| 00002200: 50 45 52 52 45 4E 00 53 54 41 5A 41 48 4C 31 2B |PERREN.STAZAHL1+| 00002210: 31 00 44 45 46 49 4E 49 45 52 54 3A 4A 53 52 47 |1.DEFINIERT:JSRG| 00002220: 45 54 41 44 52 4D 4F 44 45 3B C1 44 52 45 53 53 |ETADRMODE;.DRESS| 00002230: 49 45 52 55 4E 47 53 41 52 54 20 45 52 4D 49 54 |IERUNGSART ERMIT| 00002240: 54 45 4C 4E 00 4C 44 41 41 44 52 4D 4F 44 45 00 |TELN.LDAADRMODE.| 00002250: 42 45 51 41 44 52 46 45 48 4C 45 52 3B C1 44 52 |BEQADRFEHLER;.DR| 00002260: 2E 46 45 48 4C 54 00 4C 44 41 42 55 46 46 45 52 |.FEHLT.LDABUFFER| 00002270: 00 42 45 51 4E 4F 54 4F 55 54 33 3B 4B 45 49 4E |.BEQNOTOUT3;KEIN| 00002280: 20 C2 45 46 45 48 4C 00 4A 53 52 47 45 54 43 4F | .EFEHL.JSRGETCO| 00002290: 44 45 3B C3 4F 44 45 20 45 52 4D 49 54 54 45 4C |DE;.ODE ERMITTEL| 000022A0: 4E 00 41 44 52 46 45 48 4C 45 52 3A 4C 44 58 41 |N.ADRFEHLER:LDXA| 000022B0: 44 52 4D 4F 44 45 3B C1 4E 5A 41 48 4C 20 C2 59 |DRMODE;.NZAHL .Y| 000022C0: 54 45 20 45 52 4D 49 54 54 45 4C 4E 00 4C 44 41 |TE ERMITTELN.LDA| 000022D0: 41 52 47 41 4E 5A 2C 58 00 53 54 41 4F 52 44 45 |ARGANZ,X.STAORDE| 000022E0: 52 2B 32 00 4C 44 41 41 53 53 46 4C 41 47 53 3B |R+2.LDAASSFLAGS;| 000022F0: C1 55 53 47 41 42 45 3F 00 42 50 4C 4E 4F 54 4F |.USGABE?.BPLNOTO| 00002300: 55 54 00 4C 44 41 4F 52 44 45 52 3B CA 41 00 4A |UT.LDAORDER;.A.J| 00002310: 53 52 43 4F 44 45 4F 55 54 3B C3 4F 44 45 20 41 |SRCODEOUT;.ODE A| 00002320: 55 53 47 45 42 45 4E 00 4C 44 41 4F 52 44 45 52 |USGEBEN.LDAORDER| 00002330: 2B 32 00 42 45 51 4E 4F 41 52 47 53 3B 4B 45 49 |+2.BEQNOARGS;KEI| 00002340: 4E 20 CF 50 45 52 41 4E 44 20 46 4F 4C 47 54 00 |N .PERAND FOLGT.| 00002350: 4C 44 41 5A 41 48 4C 31 3B 45 49 4E 20 CF 50 45 |LDAZAHL1;EIN .PE| 00002360: 52 41 4E 44 20 46 4F 4C 47 54 00 4A 53 52 43 4F |RAND FOLGT.JSRCO| 00002370: 44 45 4F 55 54 00 4C 44 41 4F 52 44 45 52 2B 32 |DEOUT.LDAORDER+2| 00002380: 00 43 4D 50 23 31 00 42 4E 45 5A 57 45 49 42 59 |.CMP#1.BNEZWEIBY| 00002390: 54 45 00 4C 44 41 5A 41 48 4C 31 2B 31 3B CF 50 |TE.LDAZAHL1+1;.P| 000023A0: 45 52 41 4E 44 20 54 45 53 54 45 4E 00 42 45 51 |ERAND TESTEN.BEQ| 000023B0: 4E 4F 41 52 47 53 00 4C 44 58 23 34 34 3B CF 50 |NOARGS.LDX#44;.P| 000023C0: 45 52 41 4E 44 20 5A 55 20 47 52 4F 53 53 00 4A |ERAND ZU GROSS.J| 000023D0: 53 52 41 53 53 45 52 52 4F 52 00 4A 4D 50 4E 4F |SRASSERROR.JMPNO| 000023E0: 41 52 47 53 00 5A 57 45 49 42 59 54 45 3A 4C 44 |ARGS.ZWEIBYTE:LD| 000023F0: 41 5A 41 48 4C 31 2B 31 3B 5A 57 45 49 20 CF 50 |AZAHL1+1;ZWEI .P| 00002400: 45 52 41 4E 44 45 4E 20 46 4F 4C 47 45 4E 00 4A |ERANDEN FOLGEN.J| 00002410: 53 52 43 4F 44 45 4F 55 54 00 4E 4F 41 52 47 53 |SRCODEOUT.NOARGS| 00002420: 3A 4A 53 52 43 4F 44 45 41 42 53 43 48 4C 00 4E |:JSRCODEABSCHL.N| 00002430: 4F 54 4F 55 54 3A 53 45 43 3B D0 C3 20 4E 45 55 |OTOUT:SEC;.. NEU| 00002440: 20 42 45 52 45 43 48 4E 45 4E 00 4C 44 41 50 43 | BERECHNEN.LDAPC| 00002450: 00 41 44 43 4F 52 44 45 52 2B 32 00 53 54 41 50 |.ADCORDER+2.STAP| 00002460: 43 00 42 43 43 4E 4F 54 4F 55 54 32 00 49 4E 43 |C.BCCNOTOUT2.INC| 00002470: 50 43 2B 31 00 4E 4F 54 4F 55 54 32 3A 4A 53 52 |PC+1.NOTOUT2:JSR| 00002480: 53 54 4F 50 3F 00 42 45 51 41 42 4F 52 54 50 41 |STOP?.BEQABORTPA| 00002490: 53 53 3B D3 D4 CF D0 2D 3E C1 42 42 52 55 43 48 |SS;....->.BBRUCH| 000024A0: 00 4C 44 41 41 53 53 46 4C 41 47 53 00 41 4E 44 |.LDAASSFLAGS.AND| 000024B0: 23 38 00 42 4E 45 50 41 53 52 54 00 4C 44 59 23 |#8.BNEPASRT.LDY#| 000024C0: 30 00 4A 53 52 48 4F 4C 5A 47 00 42 45 51 2A 2B |0.JSRHOLZG.BEQ*+| 000024D0: 35 00 4A 4D 50 44 4F 50 41 53 53 00 50 41 53 52 |5.JMPDOPASS.PASR| 000024E0: 54 3A 4C 44 41 41 53 53 46 4C 41 47 53 3B C6 49 |T:LDAASSFLAGS;.I| 000024F0: 4C 45 45 4E 44 45 20 4F 44 45 52 20 2E 45 4E 00 |LEENDE ODER .EN.| 00002500: 41 4E 44 23 33 32 00 42 4E 45 2A 2B 33 00 52 54 |AND#32.BNE*+3.RT| 00002510: 53 00 4C 44 58 23 34 37 3B C2 4C 4F 43 4B 20 4F |S.LDX#47;.LOCK O| 00002520: 46 46 45 4E 00 4A 4D 50 41 53 53 45 52 52 4F 52 |FFEN.JMPASSERROR| 00002530: 00 20 00 4E 4F 54 4F 55 54 33 3A 4C 44 41 41 53 |. .NOTOUT3:LDAAS| 00002540: 53 46 4C 41 47 53 00 42 50 4C 4E 4F 54 4F 55 54 |SFLAGS.BPLNOTOUT| 00002550: 32 00 4A 53 52 43 4F 44 45 41 42 53 43 48 4C 00 |2.JSRCODEABSCHL.| 00002560: 4A 4D 50 4E 4F 54 4F 55 54 32 00 20 00 42 4C 4F |JMPNOTOUT2. .BLO| 00002570: 43 4B 3A 4C 44 41 23 27 2E 3B 41 55 46 20 C2 45 |CK:LDA#'.;AUF .E| 00002580: 46 45 48 4C 20 2E 45 42 20 54 45 53 54 45 4E 00 |FEHL .EB TESTEN.| 00002590: 43 4D 50 42 55 46 46 45 52 00 42 4E 45 4E 4F 54 |CMPBUFFER.BNENOT| 000025A0: 4F 55 54 33 00 4C 44 41 23 27 45 00 43 4D 50 42 |OUT3.LDA#'E.CMPB| 000025B0: 55 46 46 45 52 2B 31 00 42 4E 45 4E 4F 54 4F 55 |UFFER+1.BNENOTOU| 000025C0: 54 33 00 4C 44 41 23 27 42 00 43 4D 50 42 55 46 |T3.LDA#'B.CMPBUF| 000025D0: 46 45 52 2B 32 00 42 4E 45 4E 4F 54 4F 55 54 33 |FER+2.BNENOTOUT3| 000025E0: 00 4C 44 41 41 53 53 46 4C 41 47 53 3B 47 45 46 |.LDAASSFLAGS;GEF| 000025F0: 55 4E 44 45 4E 2D 3E C2 4C 4F 43 4B 20 53 43 48 |UNDEN->.LOCK SCH| 00002600: 4C 49 45 53 53 45 4E 00 41 4E 44 23 25 31 31 30 |LIESSEN.AND#%110| 00002610: 31 31 31 31 31 00 53 54 41 41 53 53 46 4C 41 47 |11111.STAASSFLAG| 00002620: 53 00 4A 4D 50 4E 4F 54 4F 55 54 33 00 20 00 41 |S.JMPNOTOUT3. .A| 00002630: 42 4F 52 54 50 41 53 53 3A 4A 4D 50 50 41 53 53 |BORTPASS:JMPPASS| 00002640: 41 42 4F 52 54 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A |ABORT. .;*******| 00002650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002670: 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 20 D3 59 |.;* * .Y| 00002680: 4E 54 41 58 41 4E 41 4C 59 53 45 20 20 20 20 20 |NTAXANALYSE | 00002690: 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A | * *.;*****| 000026A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000026B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000026C0: 2A 2A 00 20 00 49 4E 53 54 52 49 4E 47 3A 53 54 |**. .INSTRING:ST| 000026D0: 41 4D 45 4D 31 3B C5 49 4E 20 DA 45 49 43 48 45 |AMEM1;.IN .EICHE| 000026E0: 4E 20 49 4E 20 DA 45 49 4C 45 20 53 55 43 48 45 |N IN .EILE SUCHE| 000026F0: 4E 00 4C 44 59 23 24 46 45 00 54 4E 43 3A 49 4E |N.LDY#$FE.TNC:IN| 00002700: 59 00 4E 43 3A 49 4E 59 00 4C 44 41 45 44 42 55 |Y.NC:INY.LDAEDBU| 00002710: 46 46 45 52 2C 59 00 42 4E 45 4E 4F 54 52 45 41 |FFER,Y.BNENOTREA| 00002720: 44 59 00 49 53 52 3A 4C 44 59 23 30 3B DA 45 49 |DY.ISR:LDY#0;.EI| 00002730: 4C 45 45 4E 44 45 20 45 52 52 45 49 43 48 54 00 |LEENDE ERREICHT.| 00002740: 52 54 53 3B 55 4E 44 20 4E 49 43 48 54 20 47 45 |RTS;UND NICHT GE| 00002750: 46 55 4E 44 45 4E 00 4E 4F 54 52 45 41 44 59 3A |FUNDEN.NOTREADY:| 00002760: 43 4D 50 4D 45 4D 31 3B DA 45 49 43 48 45 4E 20 |CMPMEM1;.EICHEN | 00002770: 56 45 52 47 4C 45 49 43 48 45 4E 00 42 4E 45 2A |VERGLEICHEN.BNE*| 00002780: 2B 33 00 52 54 53 3B 47 45 46 55 4E 44 45 4E 2C |+3.RTS;GEFUNDEN,| 00002790: D0 4F 53 2E 20 49 4E 20 D9 00 43 4D 50 23 33 39 |.OS. IN ..CMP#39| 000027A0: 3B DA 45 49 43 48 45 4E 20 4E 41 43 48 20 27 20 |;.EICHEN NACH ' | 000027B0: 55 45 42 45 52 4C 45 53 45 4E 00 42 45 51 54 4E |UEBERLESEN.BEQTN| 000027C0: 43 00 43 4D 50 23 27 3B 3B CB 4F 4D 4D 45 54 41 |C.CMP#';;.OMMETA| 000027D0: 52 20 55 45 42 45 52 4C 45 53 45 4E 00 42 45 51 |R UEBERLESEN.BEQ| 000027E0: 49 53 52 00 43 4D 50 23 27 22 00 42 4E 45 4E 43 |ISR.CMP#'".BNENC| 000027F0: 00 53 45 41 51 55 45 4E 44 3A 49 4E 59 3B DA 45 |.SEAQUEND:INY;.E| 00002800: 49 43 48 45 4E 4B 45 54 54 45 4E 20 55 45 42 45 |ICHENKETTEN UEBE| 00002810: 52 4C 45 53 45 4E 00 4C 44 41 45 44 42 55 46 46 |RLESEN.LDAEDBUFF| 00002820: 45 52 2C 59 00 42 45 51 49 53 52 00 43 4D 50 23 |ER,Y.BEQISR.CMP#| 00002830: 27 22 00 42 45 51 4E 43 00 42 4E 45 53 45 41 51 |'".BEQNC.BNESEAQ| 00002840: 55 45 4E 44 00 20 00 53 59 4E 54 41 58 3A 4C 44 |UEND. .SYNTAX:LD| 00002850: 41 41 53 53 46 4C 32 3B C5 49 4E 45 20 DA 45 49 |AASSFL2;.INE .EI| 00002860: 4C 45 20 41 4E 41 4C 59 53 49 45 52 45 4E 00 41 |LE ANALYSIEREN.A| 00002870: 4E 44 23 25 31 30 30 31 31 31 31 31 00 53 54 41 |ND#%10011111.STA| 00002880: 41 53 53 46 4C 32 00 4C 44 59 23 30 3B C2 45 46 |ASSFL2.LDY#0;.EF| 00002890: 45 48 4C 2C CF 50 45 52 41 4E 44 20 55 4E 44 00 |EHL,.PERAND UND.| 000028A0: 53 54 59 42 55 46 46 45 52 32 3B C1 44 52 45 53 |STYBUFFER2;.DRES| 000028B0: 53 49 45 52 55 4E 47 53 41 52 54 20 41 55 46 20 |SIERUNGSART AUF | 000028C0: 30 00 53 54 59 4F 52 44 45 52 2B 31 00 53 54 59 |0.STYORDER+1.STY| 000028D0: 41 44 52 4D 4F 44 45 00 53 54 59 41 44 52 4D 4F |ADRMODE.STYADRMO| 000028E0: 54 58 54 00 53 54 59 4C 42 4C 4C 45 4E 00 49 4E |TXT.STYLBLLEN.IN| 000028F0: 43 41 53 5A 45 49 4C 45 3B DA 45 49 4C 45 4E 4E |CASZEILE;.EILENN| 00002900: 55 4D 4D 45 52 20 2B 31 00 42 4E 45 54 52 41 4C |UMMER +1.BNETRAL| 00002910: 49 3F 00 49 4E 43 41 53 5A 45 49 4C 45 2B 31 00 |I?.INCASZEILE+1.| 00002920: 54 52 41 4C 49 3F 3A 4C 44 41 46 4C 41 47 53 00 |TRALI?:LDAFLAGS.| 00002930: 41 4E 44 23 31 36 00 42 45 51 54 52 41 4C 49 00 |AND#16.BEQTRALI.| 00002940: 4A 53 52 46 52 4F 4D 44 49 53 4B 3B DA 45 49 4C |JSRFROMDISK;.EIL| 00002950: 45 20 56 4F 4E 20 C4 49 53 4B 20 48 4F 4C 45 4E |E VON .ISK HOLEN| 00002960: 00 4A 4D 50 53 59 4E 54 32 00 54 52 41 4C 49 3A |.JMPSYNT2.TRALI:| 00002970: 4A 53 52 48 4F 4C 5A 47 3B DA 45 49 4C 45 20 41 |JSRHOLZG;.EILE A| 00002980: 55 53 20 D2 41 4D 00 53 54 41 42 55 46 46 45 52 |US .AM.STABUFFER| 00002990: 2C 59 00 53 54 41 45 44 42 55 46 46 45 52 2C 59 |,Y.STAEDBUFFER,Y| 000029A0: 3B 49 4E 20 42 55 46 46 45 52 20 55 45 42 45 52 |;IN BUFFER UEBER| 000029B0: 54 52 41 47 45 4E 00 42 45 51 53 59 4E 54 00 49 |TRAGEN.BEQSYNT.I| 000029C0: 4E 59 00 42 4E 45 54 52 41 4C 49 00 53 59 4E 54 |NY.BNETRALI.SYNT| 000029D0: 3A 4A 53 52 54 45 58 54 4C 49 4E 45 3B 5A 47 20 |:JSRTEXTLINE;ZG | 000029E0: 41 55 46 20 CE 41 43 48 46 4F 4C 47 45 52 5A 45 |AUF .ACHFOLGERZE| 000029F0: 49 4C 45 00 53 59 4E 54 32 3A 4C 44 41 23 27 3B |ILE.SYNT2:LDA#';| 00002A00: 3B CB 4F 4D 4D 45 54 41 52 20 41 42 54 52 45 4E |;.OMMETAR ABTREN| 00002A10: 4E 45 4E 00 4A 53 52 49 4E 53 54 52 49 4E 47 00 |NEN.JSRINSTRING.| 00002A20: 43 50 59 23 30 00 42 45 51 4E 4F 4B 4F 4D 4D 00 |CPY#0.BEQNOKOMM.| 00002A30: 41 4C 4C 4B 4F 4D 4D 3A 4C 44 41 23 30 3B CB 4F |ALLKOMM:LDA#0;.O| 00002A40: 4D 4D 45 4E 54 41 52 5A 45 49 4C 45 00 53 54 41 |MMENTARZEILE.STA| 00002A50: 42 55 46 46 45 52 2C 59 00 4E 4F 4B 4F 4D 4D 3A |BUFFER,Y.NOKOMM:| 00002A60: 4C 44 41 42 55 46 46 45 52 00 42 4E 45 2A 2B 33 |LDABUFFER.BNE*+3| 00002A70: 00 52 54 53 00 43 4D 50 23 27 3B 00 42 45 51 41 |.RTS.CMP#';.BEQA| 00002A80: 4C 4C 4B 4F 4D 4D 00 4C 44 41 23 27 3A 3B C1 55 |LLKOMM.LDA#':;.U| 00002A90: 46 20 CC 41 42 45 4C 20 54 45 53 54 45 4E 00 4A |F .ABEL TESTEN.J| 00002AA0: 53 52 49 4E 53 54 52 49 4E 47 00 43 50 59 23 30 |SRINSTRING.CPY#0| 00002AB0: 00 42 45 51 4B 45 49 4E 4C 42 4C 00 53 54 59 4D |.BEQKEINLBL.STYM| 00002AC0: 45 4D 31 3B CC 41 42 45 4C 20 56 4F 52 48 41 4E |EM1;.ABEL VORHAN| 00002AD0: 44 45 4E 00 4C 44 59 23 30 00 4C 44 58 23 30 00 |DEN.LDY#0.LDX#0.| 00002AE0: 54 52 41 4C 42 4C 32 3A 4C 44 41 42 55 46 46 45 |TRALBL2:LDABUFFE| 00002AF0: 52 2C 59 3B CC 41 42 45 4C 20 49 4E 20 42 55 46 |R,Y;.ABEL IN BUF| 00002B00: 46 45 52 32 20 55 45 42 45 52 54 52 41 47 45 4E |FER2 UEBERTRAGEN| 00002B10: 00 53 54 41 42 55 46 46 45 52 32 2C 58 00 43 4D |.STABUFFER2,X.CM| 00002B20: 50 23 33 32 00 42 45 51 2A 2B 33 00 49 4E 58 00 |P#32.BEQ*+3.INX.| 00002B30: 43 50 58 23 32 31 00 42 4E 45 4C 45 4E 4F 4B 00 |CPX#21.BNELENOK.| 00002B40: 4C 44 58 23 35 36 3B 27 D3 59 4D 42 4F 4C 20 5A |LDX#56;'.YMBOL Z| 00002B50: 55 20 4C 41 4E 47 27 00 4A 4D 50 41 53 53 45 52 |U LANG'.JMPASSER| 00002B60: 52 4F 52 00 4C 45 4E 4F 4B 3A 49 4E 59 00 43 50 |ROR.LENOK:INY.CP| 00002B70: 59 4D 45 4D 31 00 42 4E 45 54 52 41 4C 42 4C 32 |YMEM1.BNETRALBL2| 00002B80: 00 53 54 58 4C 42 4C 4C 45 4E 3B CC 41 45 4E 47 |.STXLBLLEN;.AENG| 00002B90: 45 20 4D 45 52 4B 45 4E 20 55 4E 44 00 4C 44 41 |E MERKEN UND.LDA| 00002BA0: 23 30 3B CC 41 42 45 4C 20 4D 49 54 20 30 20 41 |#0;.ABEL MIT 0 A| 00002BB0: 42 53 43 48 4C 49 45 53 53 45 4E 00 53 54 41 42 |BSCHLIESSEN.STAB| 00002BC0: 55 46 46 45 52 32 2C 58 00 49 4E 59 00 4B 45 49 |UFFER2,X.INY.KEI| 00002BD0: 4E 4C 42 4C 3A 4C 44 58 23 30 00 53 54 58 4D 45 |NLBL:LDX#0.STXME| 00002BE0: 4D 31 00 50 41 43 4B 52 45 53 54 3A 4C 44 41 42 |M1.PACKREST:LDAB| 00002BF0: 55 46 46 45 52 2C 59 3B D2 45 53 54 5A 45 49 4C |UFFER,Y;.ESTZEIL| 00002C00: 45 20 50 41 43 4B 45 4E 00 42 45 51 45 4F 4C 4E |E PACKEN.BEQEOLN| 00002C10: 00 49 4E 59 00 43 4D 50 23 33 32 3B CC 45 45 52 |.INY.CMP#32;.EER| 00002C20: 5A 45 49 43 48 45 4E 20 55 45 42 45 52 4C 45 53 |ZEICHEN UEBERLES| 00002C30: 45 4E 00 42 45 51 50 41 43 4B 52 45 53 54 00 43 |EN.BEQPACKREST.C| 00002C40: 4D 50 23 27 23 00 42 45 51 4B 4C 41 4D 4D 45 52 |MP#'#.BEQKLAMMER| 00002C50: 00 43 4D 50 23 27 29 00 42 45 51 4B 4C 41 4D 4D |.CMP#').BEQKLAMM| 00002C60: 45 52 00 43 4D 50 23 27 28 00 42 45 51 4B 4C 41 |ER.CMP#'(.BEQKLA| 00002C70: 4D 4D 45 52 00 43 4D 50 23 34 34 00 42 45 51 4B |MMER.CMP#44.BEQK| 00002C80: 4F 4D 4D 41 00 43 4D 50 23 33 39 00 42 45 51 43 |OMMA.CMP#39.BEQC| 00002C90: 46 4C 00 43 4D 50 23 27 22 00 42 45 51 51 46 4C |FL.CMP#'".BEQQFL| 00002CA0: 00 4B 54 53 54 3A 53 54 41 42 55 46 46 45 52 2C |.KTST:STABUFFER,| 00002CB0: 58 00 49 4E 58 00 42 4E 45 50 41 43 4B 52 45 53 |X.INX.BNEPACKRES| 00002CC0: 54 00 45 4F 4C 4E 3A 53 54 41 42 55 46 46 45 52 |T.EOLN:STABUFFER| 00002CD0: 2C 58 3B DA 45 49 4C 45 45 4E 44 45 20 45 52 52 |,X;.EILEENDE ERR| 00002CE0: 45 49 43 48 54 00 4C 44 58 4D 45 4D 31 00 53 54 |EICHT.LDXMEM1.ST| 00002CF0: 41 41 44 52 4D 4F 54 58 54 2C 58 00 52 54 53 00 |AADRMOTXT,X.RTS.| 00002D00: 4B 4C 41 4D 4D 45 52 3A 53 54 58 4D 45 4D 32 3B |KLAMMER:STXMEM2;| 00002D10: C1 44 52 45 53 53 49 45 52 55 4E 47 53 41 52 54 |.DRESSIERUNGSART| 00002D20: 00 4C 44 58 4D 45 4D 31 3B 49 4E 20 41 44 52 4D |.LDXMEM1;IN ADRM| 00002D30: 4F 54 58 54 20 53 50 45 49 43 48 45 52 4E 00 53 |OTXT SPEICHERN.S| 00002D40: 54 41 41 44 52 4D 4F 54 58 54 2C 58 00 4C 44 58 |TAADRMOTXT,X.LDX| 00002D50: 4D 45 4D 32 00 49 4E 43 4D 45 4D 31 00 42 4E 45 |MEM2.INCMEM1.BNE| 00002D60: 50 41 43 4B 52 45 53 54 00 4B 4F 4D 4D 41 3A 4C |PACKREST.KOMMA:L| 00002D70: 44 41 42 55 46 46 45 52 00 43 4D 50 23 27 2E 3B |DABUFFER.CMP#'.;| 00002D80: D0 53 45 55 44 4F 20 C2 45 46 45 48 4C 20 3F 00 |.SEUDO .EFEHL ?.| 00002D90: 42 4E 45 4E 4F 50 53 45 3B CE 45 49 4E 00 4C 44 |BNENOPSE;.EIN.LD| 00002DA0: 41 23 34 34 00 42 4E 45 4B 54 53 54 00 4E 4F 50 |A#44.BNEKTST.NOP| 00002DB0: 53 45 3A 53 54 58 4D 45 4D 32 00 4C 44 58 4D 45 |SE:STXMEM2.LDXME| 00002DC0: 4D 31 00 4C 44 41 23 34 34 3B C1 44 52 45 53 53 |M1.LDA#44;.DRESS| 00002DD0: 4D 4F 44 45 20 53 50 45 49 43 48 45 52 4E 00 4E |MODE SPEICHERN.N| 00002DE0: 4F 50 53 45 32 3A 53 54 41 41 44 52 4D 4F 54 58 |OPSE2:STAADRMOTX| 00002DF0: 54 2C 58 00 4C 44 58 4D 45 4D 32 00 49 4E 43 4D |T,X.LDXMEM2.INCM| 00002E00: 45 4D 31 00 53 50 41 43 45 3A 4C 44 41 42 55 46 |EM1.SPACE:LDABUF| 00002E10: 46 45 52 2C 59 3B CC 45 45 52 5A 45 49 43 48 45 |FER,Y;.EERZEICHE| 00002E20: 4E 20 55 45 42 45 52 4C 45 53 45 4E 00 42 45 51 |N UEBERLESEN.BEQ| 00002E30: 45 4F 4C 4E 3B DA 45 49 4C 45 4E 45 4E 44 45 00 |EOLN;.EILENENDE.| 00002E40: 49 4E 59 00 43 4D 50 23 33 32 00 42 45 51 53 50 |INY.CMP#32.BEQSP| 00002E50: 41 43 45 00 42 4E 45 4B 4C 41 4D 4D 45 52 00 43 |ACE.BNEKLAMMER.C| 00002E60: 46 4C 3A 53 54 41 42 55 46 46 45 52 2C 58 3B 27 |FL:STABUFFER,X;'| 00002E70: 27 27 20 41 42 53 50 45 49 43 48 45 52 4E 00 49 |'' ABSPEICHERN.I| 00002E80: 4E 58 00 4C 44 41 42 55 46 46 45 52 2C 59 00 42 |NX.LDABUFFER,Y.B| 00002E90: 45 51 45 4F 4C 4E 3B DA 45 49 4C 45 4E 45 4E 44 |EQEOLN;.EILENEND| 00002EA0: 45 00 49 4E 59 00 42 4E 45 4B 54 53 54 00 51 46 |E.INY.BNEKTST.QF| 00002EB0: 4C 3A 53 54 41 42 55 46 46 45 52 2C 58 3B DA 45 |L:STABUFFER,X;.E| 00002EC0: 49 43 48 45 4E 4B 45 54 54 45 20 41 42 53 50 45 |ICHENKETTE ABSPE| 00002ED0: 49 43 48 45 52 4E 00 49 4E 58 00 4C 44 41 42 55 |ICHERN.INX.LDABU| 00002EE0: 46 46 45 52 2C 59 00 42 45 51 45 4F 4C 4E 3B DA |FFER,Y.BEQEOLN;.| 00002EF0: 45 49 4C 45 4E 45 4E 44 45 00 49 4E 59 00 43 4D |EILENENDE.INY.CM| 00002F00: 50 23 27 22 00 42 4E 45 51 46 4C 00 42 45 51 4B |P#'".BNEQFL.BEQK| 00002F10: 54 53 54 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |TST. .;*********| 00002F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B |**************.;| 00002F40: 2A 20 2A 20 20 20 20 20 20 20 20 20 CF 50 45 52 |* * .PER| 00002F50: 41 4E 44 20 42 45 52 45 43 48 4E 45 4E 20 20 20 |AND BERECHNEN | 00002F60: 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A | * *.;*******| 00002F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002F90: 00 20 00 41 55 53 44 52 55 43 4B 3A 4C 44 59 23 |. .AUSDRUCK:LDY#| 00002FA0: 30 3B 5A 41 48 4C 31 3D 30 00 53 54 59 5A 41 48 |0;ZAHL1=0.STYZAH| 00002FB0: 4C 31 00 53 54 59 5A 41 48 4C 31 2B 31 00 53 54 |L1.STYZAHL1+1.ST| 00002FC0: 59 4C 41 42 45 4C 54 59 50 00 4C 44 41 4F 50 45 |YLABELTYP.LDAOPE| 00002FD0: 52 41 4E 44 00 43 4D 50 23 27 3C 3B CC 4F 57 20 |RAND.CMP#'<;.OW | 00002FE0: C2 59 54 45 20 3F 00 42 4E 45 4E 4F 54 4C 4F 57 |.YTE ?.BNENOTLOW| 00002FF0: 00 49 4D 4D 54 53 54 3A 4C 44 41 41 44 52 4D 4F |.IMMTST:LDAADRMO| 00003000: 54 58 54 3B 4E 55 52 20 42 45 49 20 27 23 27 20 |TXT;NUR BEI '#' | 00003010: 4D 4F 45 47 4C 49 43 48 00 43 4D 50 23 27 23 00 |MOEGLICH.CMP#'#.| 00003020: 42 45 51 46 49 52 45 53 00 4C 44 41 42 55 46 46 |BEQFIRES.LDABUFF| 00003030: 45 52 3B 4F 44 45 52 20 D0 53 45 55 44 4F 20 C2 |ER;ODER .SEUDO .| 00003040: 45 46 45 48 4C 00 43 4D 50 23 27 2E 00 42 45 51 |EFEHL.CMP#'..BEQ| 00003050: 46 49 52 45 53 00 4C 44 58 23 33 37 3B CF 50 45 |FIRES.LDX#37;.PE| 00003060: 52 41 4E 44 20 45 52 52 4F 52 00 4A 4D 50 41 53 |RAND ERROR.JMPAS| 00003070: 53 45 52 52 4F 52 00 4E 4F 54 4C 4F 57 3A 43 4D |SERROR.NOTLOW:CM| 00003080: 50 23 27 3E 3B C8 49 47 48 20 C2 59 54 45 20 3F |P#'>;.IGH .YTE ?| 00003090: 00 42 45 51 49 4D 4D 54 53 54 00 43 4D 50 23 27 |.BEQIMMTST.CMP#'| 000030A0: 2A 3B D0 C3 20 3F 00 42 4E 45 41 55 53 44 52 00 |*;.. ?.BNEAUSDR.| 000030B0: 4C 44 41 50 43 3B 5A 41 48 4C 31 3D D0 C3 00 53 |LDAPC;ZAHL1=...S| 000030C0: 54 41 5A 41 48 4C 31 00 4C 44 41 50 43 2B 31 00 |TAZAHL1.LDAPC+1.| 000030D0: 53 54 41 5A 41 48 4C 31 2B 31 00 46 49 52 45 53 |STAZAHL1+1.FIRES| 000030E0: 3A 49 4E 59 3B 45 52 53 54 45 53 20 DA 45 49 43 |:INY;ERSTES .EIC| 000030F0: 48 45 4E 20 42 45 52 45 49 54 53 20 42 45 48 41 |HEN BEREITS BEHA| 00003100: 4E 44 45 4C 54 00 41 55 53 44 52 3A 4C 44 41 4F |NDELT.AUSDR:LDAO| 00003110: 50 45 52 41 4E 44 2C 59 3B 45 49 4E 45 4E 20 D7 |PERAND,Y;EINEN .| 00003120: 45 52 54 20 48 4F 4C 45 4E 00 42 4E 45 4E 5A 45 |ERT HOLEN.BNENZE| 00003130: 00 4C 44 41 4F 50 45 52 41 4E 44 3B C6 45 52 54 |.LDAOPERAND;.ERT| 00003140: 49 47 00 43 4D 50 23 27 3C 00 42 4E 45 48 49 3F |IG.CMP#'<.BNEHI?| 00003150: 00 52 54 57 44 3A 4C 44 41 23 30 3B CC 4F 57 20 |.RTWD:LDA#0;.OW | 00003160: C2 59 54 45 20 47 49 4C 54 00 53 54 41 5A 41 48 |.YTE GILT.STAZAH| 00003170: 4C 31 2B 31 00 4C 4F 48 49 52 54 3A 52 54 53 00 |L1+1.LOHIRT:RTS.| 00003180: 48 49 3F 3A 43 4D 50 23 27 3E 00 42 4E 45 4C 4F |HI?:CMP#'>.BNELO| 00003190: 48 49 52 54 00 4C 44 41 5A 41 48 4C 31 2B 31 3B |HIRT.LDAZAHL1+1;| 000031A0: C8 49 47 48 20 C2 59 54 45 20 47 49 4C 54 00 53 |.IGH .YTE GILT.S| 000031B0: 54 41 5A 41 48 4C 31 00 4A 4D 50 52 54 57 44 00 |TAZAHL1.JMPRTWD.| 000031C0: 4E 5A 45 3A 49 4E 59 00 43 4D 50 23 27 2B 00 42 |NZE:INY.CMP#'+.B| 000031D0: 45 51 50 4C 55 53 3B C1 44 44 49 54 4F 4E 20 46 |EQPLUS;.DDITON F| 000031E0: 4F 4C 47 54 00 43 4D 50 23 27 2D 00 42 45 51 4D |OLGT.CMP#'-.BEQM| 000031F0: 49 4E 55 53 3B D3 55 42 54 52 41 4B 54 49 4F 4E |INUS;.UBTRAKTION| 00003200: 20 46 4F 4C 47 54 00 43 4D 50 23 27 2A 00 42 45 | FOLGT.CMP#'*.BE| 00003210: 51 4D 41 4C 3B CD 55 4C 54 49 50 4C 49 4B 41 54 |QMAL;.ULTIPLIKAT| 00003220: 49 4F 4E 20 46 4F 4C 47 54 00 43 4D 50 23 27 2F |ION FOLGT.CMP#'/| 00003230: 00 42 45 51 44 55 52 43 48 3B C4 49 56 49 53 49 |.BEQDURCH;.IVISI| 00003240: 4F 4E 20 46 4F 4C 47 54 00 43 4D 50 23 27 5E 00 |ON FOLGT.CMP#'^.| 00003250: 42 45 51 52 45 53 54 3B CD 4F 44 55 4C 4F 20 46 |BEQREST;.ODULO F| 00003260: 4F 4C 47 54 00 44 45 59 00 4A 53 52 57 45 52 54 |OLGT.DEY.JSRWERT| 00003270: 00 4A 4D 50 41 55 53 44 52 00 20 00 50 4C 55 53 |.JMPAUSDR. .PLUS| 00003280: 3A 4C 44 41 5A 41 48 4C 31 2B 31 3B 5A 41 48 4C |:LDAZAHL1+1;ZAHL| 00003290: 31 20 4D 45 52 4B 45 4E 00 50 48 41 00 4C 44 41 |1 MERKEN.PHA.LDA| 000032A0: 5A 41 48 4C 31 00 50 48 41 00 4A 53 52 57 45 52 |ZAHL1.PHA.JSRWER| 000032B0: 54 3B 32 2E 20 57 45 52 54 20 48 4F 4C 45 4E 00 |T;2. WERT HOLEN.| 000032C0: 43 4C 43 3B 55 4E 44 20 41 44 44 49 45 52 45 4E |CLC;UND ADDIEREN| 000032D0: 00 50 4C 41 00 41 44 43 5A 41 48 4C 31 00 53 54 |.PLA.ADCZAHL1.ST| 000032E0: 41 5A 41 48 4C 31 00 50 4C 41 00 41 44 43 5A 41 |AZAHL1.PLA.ADCZA| 000032F0: 48 4C 31 2B 31 00 53 54 41 5A 41 48 4C 31 2B 31 |HL1+1.STAZAHL1+1| 00003300: 00 4A 4D 50 41 55 53 44 52 00 20 00 4D 49 4E 55 |.JMPAUSDR. .MINU| 00003310: 53 3A 4C 44 41 5A 41 48 4C 31 2B 31 3B 5A 41 48 |S:LDAZAHL1+1;ZAH| 00003320: 4C 31 20 4D 45 52 4B 45 4E 00 50 48 41 00 4C 44 |L1 MERKEN.PHA.LD| 00003330: 41 5A 41 48 4C 31 00 50 48 41 00 4A 53 52 57 45 |AZAHL1.PHA.JSRWE| 00003340: 52 54 3B 32 2E 20 57 45 52 54 20 48 4F 4C 45 4E |RT;2. WERT HOLEN| 00003350: 00 53 45 43 3B 55 4E 44 20 53 55 42 54 52 41 48 |.SEC;UND SUBTRAH| 00003360: 49 45 52 45 4E 00 50 4C 41 00 53 42 43 5A 41 48 |IEREN.PLA.SBCZAH| 00003370: 4C 31 00 53 54 41 5A 41 48 4C 31 00 50 4C 41 00 |L1.STAZAHL1.PLA.| 00003380: 53 42 43 5A 41 48 4C 31 2B 31 00 53 54 41 5A 41 |SBCZAHL1+1.STAZA| 00003390: 48 4C 31 2B 31 00 4A 4D 50 41 55 53 44 52 00 20 |HL1+1.JMPAUSDR. | 000033A0: 00 4D 41 4C 3A 4C 44 41 5A 41 48 4C 31 2B 31 3B |.MAL:LDAZAHL1+1;| 000033B0: 5A 41 48 4C 31 20 4D 45 52 4B 45 4E 00 50 48 41 |ZAHL1 MERKEN.PHA| 000033C0: 00 4C 44 41 5A 41 48 4C 31 00 50 48 41 00 4A 53 |.LDAZAHL1.PHA.JS| 000033D0: 52 57 45 52 54 3B 32 2E 20 57 45 52 54 20 48 4F |RWERT;2. WERT HO| 000033E0: 4C 45 4E 00 50 4C 41 00 53 54 41 5A 41 48 4C 32 |LEN.PLA.STAZAHL2| 000033F0: 00 50 4C 41 00 53 54 41 5A 41 48 4C 32 2B 31 00 |.PLA.STAZAHL2+1.| 00003400: 4A 53 52 4D 55 4C 54 3B 4D 55 4C 54 49 50 4C 49 |JSRMULT;MULTIPLI| 00003410: 5A 49 45 52 45 4E 00 48 45 4C 50 32 3A 4C 44 41 |ZIEREN.HELP2:LDA| 00003420: 5A 41 48 4C 33 3B 5A 41 48 4C 33 2D 3E 5A 41 48 |ZAHL3;ZAHL3->ZAH| 00003430: 4C 31 00 53 54 41 5A 41 48 4C 31 00 4C 44 41 5A |L1.STAZAHL1.LDAZ| 00003440: 41 48 4C 33 2B 31 00 53 54 41 5A 41 48 4C 31 2B |AHL3+1.STAZAHL1+| 00003450: 31 00 4A 4D 50 41 55 53 44 52 00 20 00 44 55 52 |1.JMPAUSDR. .DUR| 00003460: 43 48 3A 4C 44 41 5A 41 48 4C 31 2B 31 3B 5A 41 |CH:LDAZAHL1+1;ZA| 00003470: 48 4C 31 20 4D 45 52 4B 45 4E 00 50 48 41 00 4C |HL1 MERKEN.PHA.L| 00003480: 44 41 5A 41 48 4C 31 00 50 48 41 00 4A 53 52 57 |DAZAHL1.PHA.JSRW| 00003490: 45 52 54 3B 32 2E 20 57 45 52 54 20 48 4F 4C 45 |ERT;2. WERT HOLE| 000034A0: 4E 00 4A 53 52 48 45 4C 50 31 3B 5A 41 48 4C 31 |N.JSRHELP1;ZAHL1| 000034B0: 2D 3E 5A 41 48 4C 32 00 50 4C 41 00 53 54 41 5A |->ZAHL2.PLA.STAZ| 000034C0: 41 48 4C 31 00 50 4C 41 00 53 54 41 5A 41 48 4C |AHL1.PLA.STAZAHL| 000034D0: 31 2B 31 00 4A 53 52 44 49 56 3B C4 49 56 49 53 |1+1.JSRDIV;.IVIS| 000034E0: 49 4F 4E 00 4A 4D 50 48 45 4C 50 32 00 20 00 52 |ION.JMPHELP2. .R| 000034F0: 45 53 54 3A 4C 44 41 5A 41 48 4C 31 2B 31 3B CD |EST:LDAZAHL1+1;.| 00003500: 4F 44 55 4C 4F 46 55 4E 4B 54 49 4F 4E 00 50 48 |ODULOFUNKTION.PH| 00003510: 41 3B 28 45 52 47 49 42 54 20 C4 49 56 49 53 49 |A;(ERGIBT .IVISI| 00003520: 4F 4E 53 52 45 53 54 29 00 4C 44 41 5A 41 48 4C |ONSREST).LDAZAHL| 00003530: 31 00 50 48 41 00 4A 53 52 57 45 52 54 00 4A 53 |1.PHA.JSRWERT.JS| 00003540: 52 48 45 4C 50 31 00 50 4C 41 00 53 54 41 5A 41 |RHELP1.PLA.STAZA| 00003550: 48 4C 31 00 50 4C 41 00 53 54 41 5A 41 48 4C 31 |HL1.PLA.STAZAHL1| 00003560: 2B 31 00 4A 53 52 4D 4F 44 00 4A 4D 50 48 45 4C |+1.JSRMOD.JMPHEL| 00003570: 50 32 00 20 00 48 45 4C 50 31 3A 4C 44 41 5A 41 |P2. .HELP1:LDAZA| 00003580: 48 4C 31 3B 5A 41 48 4C 31 2D 3E 5A 41 48 4C 32 |HL1;ZAHL1->ZAHL2| 00003590: 00 53 54 41 5A 41 48 4C 32 00 4C 44 41 5A 41 48 |.STAZAHL2.LDAZAH| 000035A0: 4C 31 2B 31 00 53 54 41 5A 41 48 4C 32 2B 31 00 |L1+1.STAZAHL2+1.| 000035B0: 52 54 53 00 20 00 57 45 52 54 3A 4C 44 41 4F 50 |RTS. .WERT:LDAOP| 000035C0: 45 52 41 4E 44 2C 59 3B 48 4F 4C 54 20 45 49 4E |ERAND,Y;HOLT EIN| 000035D0: 45 20 D7 45 52 54 00 42 4E 45 4E 4F 4F 50 45 52 |E .ERT.BNENOOPER| 000035E0: 52 00 4F 50 45 52 52 3A 4C 44 58 23 33 37 3B 4F |R.OPERR:LDX#37;O| 000035F0: 50 45 52 41 4E 44 20 46 45 48 4C 54 00 4A 53 52 |PERAND FEHLT.JSR| 00003600: 41 53 53 45 52 52 4F 52 00 4C 44 41 42 55 46 46 |ASSERROR.LDABUFF| 00003610: 45 52 2C 59 00 42 4E 45 2A 2B 33 00 52 54 53 00 |ER,Y.BNE*+3.RTS.| 00003620: 49 4E 59 00 52 54 53 00 4E 4F 4F 50 45 52 52 3A |INY.RTS.NOOPERR:| 00003630: 41 4E 44 23 31 32 37 3B 54 45 53 54 45 4E 20 41 |AND#127;TESTEN A| 00003640: 55 46 20 CC 41 42 45 4C 00 43 4D 50 23 27 41 00 |UF .ABEL.CMP#'A.| 00003650: 42 43 43 5A 41 48 4C 00 43 4D 50 23 27 5A 2B 31 |BCCZAHL.CMP#'Z+1| 00003660: 00 42 43 53 5A 41 48 4C 00 4C 44 58 23 24 46 46 |.BCSZAHL.LDX#$FF| 00003670: 3B CC 41 42 45 4C 2D 3E 42 55 46 46 45 52 32 00 |;.ABEL->BUFFER2.| 00003680: 54 52 41 4C 49 33 3A 49 4E 58 00 4C 44 41 4F 50 |TRALI3:INX.LDAOP| 00003690: 45 52 41 4E 44 2C 59 00 53 54 41 42 55 46 46 45 |ERAND,Y.STABUFFE| 000036A0: 52 32 2C 58 00 49 4E 59 00 43 50 58 23 32 31 00 |R2,X.INY.CPX#21.| 000036B0: 42 45 51 4F 50 45 52 52 3B CC 41 42 45 4C 20 5A |BEQOPERR;.ABEL Z| 000036C0: 55 20 4C 41 4E 47 00 4A 53 52 4F 50 45 52 41 54 |U LANG.JSROPERAT| 000036D0: 4F 52 3F 3B CC 41 42 45 4C 45 4E 44 45 20 3F 00 |OR?;.ABELENDE ?.| 000036E0: 42 4E 45 54 52 41 4C 49 33 3B 4E 45 49 4E 00 45 |BNETRALI3;NEIN.E| 000036F0: 4C 41 3A 44 45 59 00 4C 44 41 23 30 3B CC 41 42 |LA:DEY.LDA#0;.AB| 00003700: 45 4C 20 4D 49 54 20 30 20 41 42 53 43 48 4C 49 |EL MIT 0 ABSCHLI| 00003710: 45 53 53 45 4E 00 53 54 41 42 55 46 46 45 52 32 |ESSEN.STABUFFER2| 00003720: 2C 58 00 54 59 41 00 50 48 41 00 4A 53 52 53 45 |,X.TYA.PHA.JSRSE| 00003730: 41 4C 42 4C 3B CC 41 42 45 4C 20 53 55 43 48 45 |ALBL;.ABEL SUCHE| 00003740: 4E 00 4C 44 41 4C 41 42 45 4C 57 45 52 54 3B 5A |N.LDALABELWERT;Z| 00003750: 41 48 4C 31 3D CC 41 42 45 4C 57 45 52 54 00 53 |AHL1=.ABELWERT.S| 00003760: 54 41 5A 41 48 4C 31 00 4C 44 41 4C 41 42 45 4C |TAZAHL1.LDALABEL| 00003770: 57 45 52 54 2B 31 00 53 54 41 5A 41 48 4C 31 2B |WERT+1.STAZAHL1+| 00003780: 31 00 50 4C 41 00 54 41 59 00 4C 44 41 41 53 53 |1.PLA.TAY.LDAASS| 00003790: 46 4C 41 47 53 00 42 4D 49 2A 2B 33 00 44 45 46 |FLAGS.BMI*+3.DEF| 000037A0: 3A 52 54 53 00 4C 44 41 4C 41 42 45 4C 54 59 50 |:RTS.LDALABELTYP| 000037B0: 3B D4 45 53 54 20 41 55 46 20 44 45 46 49 4E 49 |;.EST AUF DEFINI| 000037C0: 45 52 54 20 49 4E 20 D0 41 53 53 20 32 00 42 50 |ERT IN .ASS 2.BP| 000037D0: 4C 44 45 46 00 4C 44 58 23 34 32 3B D3 59 4D 42 |LDEF.LDX#42;.YMB| 000037E0: 4F 4C 20 55 4E 42 45 4B 41 4E 4E 54 00 4A 4D 50 |OL UNBEKANNT.JMP| 000037F0: 41 53 53 45 52 52 4F 52 00 5A 41 48 4C 3A 4A 53 |ASSERROR.ZAHL:JS| 00003800: 52 5A 41 48 4C 49 4E 3B 5A 41 48 4C 20 41 4C 53 |RZAHLIN;ZAHL ALS| 00003810: 20 57 45 52 54 20 45 49 4E 4C 45 53 45 4E 00 44 | WERT EINLESEN.D| 00003820: 45 59 00 4C 44 41 4C 41 53 54 43 48 52 00 4A 53 |EY.LDALASTCHR.JS| 00003830: 52 4F 50 45 52 41 54 4F 52 3F 3B 46 4F 4C 47 54 |ROPERATOR?;FOLGT| 00003840: 20 CF 50 45 52 41 54 4F 52 00 42 4E 45 4F 50 45 | .PERATOR.BNEOPE| 00003850: 52 52 3B 4E 45 49 4E 2D 3E C6 45 48 4C 45 52 20 |RR;NEIN->.EHLER | 00003860: 49 4E 20 DA 41 48 4C 00 52 54 53 00 20 00 4F 50 |IN .AHL.RTS. .OP| 00003870: 45 52 41 54 4F 52 3F 3A 53 54 58 4D 45 4D 31 3B |ERATOR?:STXMEM1;| 00003880: D4 45 53 54 45 54 20 41 55 46 20 CF 50 45 52 41 |.ESTET AUF .PERA| 00003890: 54 4F 52 00 4A 53 52 4F 50 45 52 41 54 4F 52 00 |TOR.JSROPERATOR.| 000038A0: 50 48 50 00 4C 44 58 4D 45 4D 31 3B D8 20 5A 55 |PHP.LDXMEM1;. ZU| 000038B0: 52 55 45 43 4B 48 4F 4C 45 4E 00 50 4C 50 00 52 |RUECKHOLEN.PLP.R| 000038C0: 54 53 00 4F 50 45 52 41 54 4F 52 3A 4C 44 58 23 |TS.OPERATOR:LDX#| 000038D0: 35 00 56 4F 3A 43 4D 50 4F 50 45 52 41 54 4F 52 |5.VO:CMPOPERATOR| 000038E0: 45 4E 2C 58 00 42 4E 45 2A 2B 33 00 52 54 53 3B |EN,X.BNE*+3.RTS;| 000038F0: 47 45 46 55 4E 44 45 4E 00 44 45 58 00 42 50 4C |GEFUNDEN.DEX.BPL| 00003900: 56 4F 00 52 54 53 3B 4E 49 43 48 54 20 47 45 46 |VO.RTS;NICHT GEF| 00003910: 55 4E 44 45 4E 00 20 00 4F 50 45 52 41 54 4F 52 |UNDEN. .OPERATOR| 00003920: 45 4E 3A 2E 42 59 22 5E 2F 2A 2D 2B 22 2C 30 00 |EN:.BY"^/*-+",0.| 00003930: 20 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | .;*************| 00003940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 |**********.;* * | 00003960: 20 20 20 20 20 20 20 C1 44 52 45 53 53 49 45 52 | .DRESSIER| 00003970: 55 4E 47 53 41 52 54 20 20 20 20 20 20 20 20 20 |UNGSART | 00003980: 2A 20 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |* *.;***********| 00003990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000039A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 47 |************. .G| 000039B0: 45 54 41 44 52 4D 4F 44 45 3A 4A 53 52 41 44 52 |ETADRMODE:JSRADR| 000039C0: 4D 4F 44 45 32 3B C1 44 52 45 53 53 49 45 52 55 |MODE2;.DRESSIERU| 000039D0: 4E 47 41 52 54 20 45 52 4D 49 54 54 45 4C 4E 00 |NGART ERMITTELN.| 000039E0: 4C 44 41 41 44 52 4D 4F 44 45 00 42 45 51 41 44 |LDAADRMODE.BEQAD| 000039F0: 52 45 52 52 3B 55 4E 42 45 4B 41 4E 4E 54 00 43 |RERR;UNBEKANNT.C| 00003A00: 4D 50 23 37 00 42 43 53 2A 2B 33 3B DA 45 52 4F |MP#7.BCS*+3;.ERO| 00003A10: 20 45 56 54 4C 2E 20 4D 4F 45 47 4C 49 43 48 00 | EVTL. MOEGLICH.| 00003A20: 41 44 52 52 54 3A 52 54 53 00 4C 44 41 5A 41 48 |ADRRT:RTS.LDAZAH| 00003A30: 4C 31 2B 31 00 42 4E 45 41 44 52 52 54 3B D7 45 |L1+1.BNEADRRT;.E| 00003A40: 52 54 20 46 55 45 52 20 DA 45 52 4F 20 5A 55 20 |RT FUER .ERO ZU | 00003A50: 47 52 4F 53 53 00 49 4E 43 41 44 52 4D 4F 44 45 |GROSS.INCADRMODE| 00003A60: 3B DA 45 52 4F 20 C1 44 52 45 53 53 49 45 52 55 |;.ERO .DRESSIERU| 00003A70: 4E 47 00 42 4E 45 41 44 52 52 54 00 41 44 52 45 |NG.BNEADRRT.ADRE| 00003A80: 52 52 3A 4C 44 58 23 33 39 3B C1 44 52 2E 20 55 |RR:LDX#39;.DR. U| 00003A90: 4E 42 45 4B 41 4E 4E 54 00 4A 4D 50 41 53 53 45 |NBEKANNT.JMPASSE| 00003AA0: 52 52 4F 52 00 20 00 41 44 52 4D 4F 44 45 32 3A |RROR. .ADRMODE2:| 00003AB0: 4C 44 41 4F 50 45 52 41 4E 44 00 42 45 51 49 4D |LDAOPERAND.BEQIM| 00003AC0: 50 4C 49 5A 49 54 3B 4B 45 49 4E 45 20 CF 50 45 |PLIZIT;KEINE .PE| 00003AD0: 52 41 4E 44 20 41 4E 47 45 47 45 42 45 4E 00 4C |RAND ANGEGEBEN.L| 00003AE0: 44 41 41 44 52 4D 4F 54 58 54 00 42 45 51 41 42 |DAADRMOTXT.BEQAB| 00003AF0: 53 4F 4C 55 54 3B 4B 45 49 4E 45 20 C1 44 52 2E |SOLUT;KEINE .DR.| 00003B00: 41 52 54 20 41 4E 47 45 47 45 42 45 4E 00 4C 44 |ART ANGEGEBEN.LD| 00003B10: 58 23 24 46 46 00 53 45 4D 4F 3A 49 4E 58 3B C1 |X#$FF.SEMO:INX;.| 00003B20: 44 52 2E 54 45 58 54 45 20 56 45 52 47 4C 45 49 |DR.TEXTE VERGLEI| 00003B30: 43 48 45 4E 00 4C 44 41 4D 4F 44 45 53 2C 58 00 |CHEN.LDAMODES,X.| 00003B40: 53 54 41 41 44 52 4D 4F 44 45 3B CE 55 4D 4D 45 |STAADRMODE;.UMME| 00003B50: 52 20 4D 45 52 4B 45 4E 00 42 45 51 41 44 52 52 |R MERKEN.BEQADRR| 00003B60: 54 00 49 4E 58 00 4C 44 59 23 30 00 4C 44 41 4D |T.INX.LDY#0.LDAM| 00003B70: 4F 44 45 53 2C 58 00 42 45 51 53 45 4D 4F 3B 54 |ODES,X.BEQSEMO;T| 00003B80: 45 58 54 45 4E 44 45 00 43 4D 50 41 44 52 4D 4F |EXTENDE.CMPADRMO| 00003B90: 54 58 54 2C 59 3B 54 45 58 54 56 45 52 47 4C 45 |TXT,Y;TEXTVERGLE| 00003BA0: 49 43 48 00 42 45 51 46 4F 4D 4F 3F 00 54 4F 4D |ICH.BEQFOMO?.TOM| 00003BB0: 4F 45 3A 49 4E 58 3B 3C 3E 20 2D 3E 20 4E 41 45 |OE:INX;<> -> NAE| 00003BC0: 43 48 54 45 52 20 D4 45 58 54 00 54 4F 4D 4F 45 |CHTER .EXT.TOMOE| 00003BD0: 32 3A 4C 44 41 4D 4F 44 45 53 2C 58 00 42 4E 45 |2:LDAMODES,X.BNE| 00003BE0: 54 4F 4D 4F 45 00 42 45 51 53 45 4D 4F 00 46 4F |TOMOE.BEQSEMO.FO| 00003BF0: 4D 4F 3F 3A 49 4E 58 3B D4 45 58 54 20 57 45 49 |MO?:INX;.EXT WEI| 00003C00: 54 45 52 20 56 45 52 47 4C 45 49 43 48 45 4E 00 |TER VERGLEICHEN.| 00003C10: 49 4E 59 00 4C 44 41 41 44 52 4D 4F 54 58 54 2C |INY.LDAADRMOTXT,| 00003C20: 59 00 42 45 51 41 44 52 52 54 3B D4 45 58 54 20 |Y.BEQADRRT;.EXT | 00003C30: 47 45 46 55 4E 44 45 4E 00 43 4D 50 4D 4F 44 45 |GEFUNDEN.CMPMODE| 00003C40: 53 2C 58 00 42 45 51 46 4F 4D 4F 3F 00 42 4E 45 |S,X.BEQFOMO?.BNE| 00003C50: 54 4F 4D 4F 45 32 00 49 4D 50 4C 49 5A 49 54 3A |TOMOE2.IMPLIZIT:| 00003C60: 4C 44 41 23 31 3B C9 4D 50 4C 49 5A 49 54 00 42 |LDA#1;.MPLIZIT.B| 00003C70: 49 54 00 41 42 53 4F 4C 55 54 3A 4C 44 41 23 37 |IT.ABSOLUT:LDA#7| 00003C80: 3B C1 42 53 4F 4C 55 54 00 53 54 41 41 44 52 4D |;.BSOLUT.STAADRM| 00003C90: 4F 44 45 00 52 54 53 00 20 00 3B D4 45 58 54 45 |ODE.RTS. .;.EXTE| 00003CA0: 20 44 45 52 20 C1 44 52 45 53 53 49 45 52 55 4E | DER .DRESSIERUN| 00003CB0: 47 53 41 52 54 45 4E 00 4D 4F 44 45 53 3A 2E 42 |GSARTEN.MODES:.B| 00003CC0: 59 32 2C 22 23 22 2C 30 00 2E 42 59 34 2C 22 28 |Y2,"#",0..BY4,"(| 00003CD0: 29 22 2C 30 00 2E 42 59 35 2C 22 28 2C 58 29 22 |)",0..BY5,"(,X)"| 00003CE0: 2C 30 00 2E 42 59 36 2C 22 28 29 2C 59 22 2C 30 |,0..BY6,"(),Y",0| 00003CF0: 00 2E 42 59 39 2C 34 34 2C 22 58 22 2C 30 00 2E |..BY9,44,"X",0..| 00003D00: 42 59 31 31 2C 34 34 2C 22 59 22 2C 30 2C 30 00 |BY11,44,"Y",0,0.| 00003D10: 20 00 41 52 47 41 4E 5A 3A 2E 42 59 30 2C 30 2C | .ARGANZ:.BY0,0,| 00003D20: 31 2C 31 2C 32 2C 31 2C 31 2C 32 2C 31 2C 32 2C |1,1,2,1,1,2,1,2,| 00003D30: 31 2C 32 2C 31 00 20 00 3B 2A 2A 2A 2A 2A 2A 2A |1,2,1. .;*******| 00003D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003D60: 00 3B 2A 20 2A 20 20 20 20 20 20 20 20 C3 4F 44 |.;* * .OD| 00003D70: 45 20 45 52 4D 49 54 54 45 4C 4E 20 20 20 20 20 |E ERMITTELN | 00003D80: 20 20 20 20 20 20 2A 20 2A 00 3B 2A 2A 2A 2A 2A | * *.;*****| 00003D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00003DB0: 2A 2A 00 20 00 47 45 54 43 4F 44 45 3A 4C 44 41 |**. .GETCODE:LDA| 00003DC0: 50 43 3B C2 45 46 45 48 4C 43 4F 44 45 20 45 52 |PC;.EFEHLCODE ER| 00003DD0: 4D 49 54 54 45 4C 4E 00 4F 52 41 50 43 2B 31 00 |MITTELN.ORAPC+1.| 00003DE0: 42 4E 45 47 45 54 43 4F 44 45 32 00 4C 44 58 23 |BNEGETCODE2.LDX#| 00003DF0: 34 38 3B 2E 42 41 20 46 45 48 4C 54 00 4A 53 52 |48;.BA FEHLT.JSR| 00003E00: 41 53 53 45 52 52 4F 52 00 47 45 54 43 4F 44 45 |ASSERROR.GETCODE| 00003E10: 32 3A 4A 53 52 47 45 54 43 4F 44 45 52 3B C3 4F |2:JSRGETCODER;.O| 00003E20: 44 45 20 41 55 53 20 D4 41 42 45 4C 4C 45 20 48 |DE AUS .ABELLE H| 00003E30: 4F 4C 45 4E 00 4C 44 41 4F 52 44 45 52 00 43 4D |OLEN.LDAORDER.CM| 00003E40: 50 23 24 46 46 3B C3 4F 44 45 3D 24 C6 C6 00 42 |P#$FF;.ODE=$...B| 00003E50: 4E 45 43 4F 4F 4B 3F 00 4C 44 58 23 34 33 3B C2 |NECOOK?.LDX#43;.| 00003E60: 45 46 45 48 4C 20 55 4E 42 45 4B 41 4E 4E 54 00 |EFEHL UNBEKANNT.| 00003E70: 4A 4D 50 41 53 53 45 52 52 4F 52 00 43 4F 4F 4B |JMPASSERROR.COOK| 00003E80: 3F 3A 43 4D 50 23 32 3B C3 4F 44 45 3D 32 00 42 |?:CMP#2;.ODE=2.B| 00003E90: 45 51 2A 2B 33 00 52 54 53 3B 4E 45 49 4E 2D 3E |EQ*+3.RTS;NEIN->| 00003EA0: CF 2E CB 2E 00 4C 44 41 41 44 52 4D 4F 44 45 3B |.....LDAADRMODE;| 00003EB0: DA 45 52 4F 20 C1 44 52 2E 4E 49 43 48 54 20 4D |.ERO .DR.NICHT M| 00003EC0: 4F 45 47 4C 49 43 48 3F 00 43 4D 50 23 37 00 42 |OEGLICH?.CMP#7.B| 00003ED0: 43 43 43 4F 45 52 52 00 41 4E 44 23 31 00 42 4E |CCCOERR.AND#1.BN| 00003EE0: 45 43 4F 45 52 52 00 44 45 43 41 44 52 4D 4F 44 |ECOERR.DECADRMOD| 00003EF0: 45 3B 31 36 2D C2 49 54 20 C1 44 52 2E 20 54 45 |E;16-.IT .DR. TE| 00003F00: 53 54 45 4E 00 42 4E 45 47 45 54 43 4F 44 45 32 |STEN.BNEGETCODE2| 00003F10: 00 43 4F 45 52 52 3A 4C 44 58 23 34 30 3B C1 44 |.COERR:LDX#40;.D| 00003F20: 52 2E 41 52 54 20 4E 49 43 48 54 20 4D 4F 45 47 |R.ART NICHT MOEG| 00003F30: 4C 49 43 48 00 4A 4D 50 41 53 53 45 52 52 4F 52 |LICH.JMPASSERROR| 00003F40: 00 20 00 47 45 54 43 4F 44 45 52 3A 4C 44 41 23 |. .GETCODER:LDA#| 00003F50: 24 46 46 3B C3 4F 44 45 20 41 55 53 20 D4 41 42 |$FF;.ODE AUS .AB| 00003F60: 45 4C 4C 45 20 48 4F 4C 45 4E 00 53 54 41 4F 52 |ELLE HOLEN.STAOR| 00003F70: 44 45 52 00 4C 44 41 23 3C 42 45 46 54 41 42 3B |DER.LDA#<BEFTAB;| 00003F80: 4D 45 4D 31 2F 32 20 41 4C 53 20 DA 45 49 47 45 |MEM1/2 ALS .EIGE| 00003F90: 52 20 41 55 46 20 D4 41 42 45 4C 4C 45 00 53 54 |R AUF .ABELLE.ST| 00003FA0: 41 4D 45 4D 31 00 4C 44 41 23 3E 42 45 46 54 41 |AMEM1.LDA#>BEFTA| 00003FB0: 42 00 53 54 41 4D 45 4D 32 00 43 4F 44 45 3F 3A |B.STAMEM2.CODE?:| 00003FC0: 4C 44 59 23 30 00 4C 44 41 28 4D 45 4D 31 29 2C |LDY#0.LDA(MEM1),| 00003FD0: 59 00 42 4E 45 2A 2B 33 00 52 54 53 3B D4 41 42 |Y.BNE*+3.RTS;.AB| 00003FE0: 45 4C 4C 45 4E 45 4E 44 45 00 43 4D 50 42 55 46 |ELLENENDE.CMPBUF| 00003FF0: 46 45 52 3B C5 52 53 54 45 53 20 DA 45 49 43 48 |FER;.RSTES .EICH| 00004000: 45 4E 20 56 45 52 47 4C 45 49 43 48 45 4E 00 42 |EN VERGLEICHEN.B| 00004010: 4E 45 4E 45 43 4F 00 49 4E 59 00 4C 44 41 28 4D |NENECO.INY.LDA(M| 00004020: 45 4D 31 29 2C 59 3B DA 57 45 49 54 45 53 20 DA |EM1),Y;.WEITES .| 00004030: 45 49 43 48 45 4E 20 56 45 52 47 4C 2E 00 43 4D |EICHEN VERGL..CM| 00004040: 50 42 55 46 46 45 52 2B 31 00 42 4E 45 4E 45 43 |PBUFFER+1.BNENEC| 00004050: 4F 00 49 4E 59 00 4C 44 41 28 4D 45 4D 31 29 2C |O.INY.LDA(MEM1),| 00004060: 59 3B C4 52 49 54 54 45 53 20 DA 45 49 43 48 45 |Y;.RITTES .EICHE| 00004070: 4E 20 56 45 52 47 4C 2E 00 43 4D 50 42 55 46 46 |N VERGL..CMPBUFF| 00004080: 45 52 2B 32 00 42 45 51 46 4F 43 4F 3B C2 45 46 |ER+2.BEQFOCO;.EF| 00004090: 45 48 4C 20 47 45 46 55 4E 44 45 4E 00 4E 45 43 |EHL GEFUNDEN.NEC| 000040A0: 4F 3A 4C 44 59 23 33 3B 4E 49 43 48 54 20 47 45 |O:LDY#3;NICHT GE| 000040B0: 46 55 4E 44 45 4E 00 4E 45 43 4F 4C 3A 4C 44 41 |FUNDEN.NECOL:LDA| 000040C0: 28 4D 45 4D 31 29 2C 59 3B C5 49 4E 54 52 41 47 |(MEM1),Y;.INTRAG| 000040D0: 53 45 4E 44 45 00 42 45 51 41 44 32 5A 47 3B 53 |SENDE.BEQAD2ZG;S| 000040E0: 55 43 48 45 4E 00 49 4E 59 00 49 4E 59 00 42 4E |UCHEN.INY.INY.BN| 000040F0: 45 4E 45 43 4F 4C 00 41 44 32 5A 47 3A 53 45 43 |ENECOL.AD2ZG:SEC| 00004100: 3B D4 41 42 45 4C 4C 45 4E 5A 45 49 47 45 52 20 |;.ABELLENZEIGER | 00004110: 4E 45 55 20 42 45 52 45 43 48 4E 45 4E 00 54 59 |NEU BERECHNEN.TY| 00004120: 41 00 41 44 43 4D 45 4D 31 00 53 54 41 4D 45 4D |A.ADCMEM1.STAMEM| 00004130: 31 00 42 43 43 2A 2B 34 00 49 4E 43 4D 45 4D 32 |1.BCC*+4.INCMEM2| 00004140: 00 4A 4D 50 43 4F 44 45 3F 3B CE 41 45 43 48 53 |.JMPCODE?;.AECHS| 00004150: 54 45 4E 20 C5 49 4E 54 52 41 47 20 54 45 53 54 |TEN .INTRAG TEST| 00004160: 45 4E 00 46 4F 43 4F 3A 4C 44 41 23 32 3B C2 45 |EN.FOCO:LDA#2;.E| 00004170: 46 45 48 4C 20 47 45 46 55 4E 44 45 4E 00 53 54 |FEHL GEFUNDEN.ST| 00004180: 41 4F 52 44 45 52 3B 2D 3E 20 C1 44 52 2E 41 52 |AORDER;-> .DR.AR| 00004190: 54 20 53 55 43 48 45 4E 00 4C 44 59 23 33 00 4C |T SUCHEN.LDY#3.L| 000041A0: 44 41 28 4D 45 4D 31 29 2C 59 00 46 4F 41 4D 4F |DA(MEM1),Y.FOAMO| 000041B0: 3F 3A 43 4D 50 23 33 3B D2 45 4C 41 54 49 56 20 |?:CMP#3;.ELATIV | 000041C0: 3F 00 42 45 51 52 45 4C 41 54 49 56 3B CA 41 00 |?.BEQRELATIV;.A.| 000041D0: 43 4D 50 41 44 52 4D 4F 44 45 3B C1 44 52 2E 41 |CMPADRMODE;.DR.A| 000041E0: 52 54 20 47 45 46 55 4E 44 45 4E 3F 00 42 4E 45 |RT GEFUNDEN?.BNE| 000041F0: 4E 45 41 4D 4F 00 49 4E 59 3B CA 41 00 4C 44 41 |NEAMO.INY;.A.LDA| 00004200: 28 4D 45 4D 31 29 2C 59 3B C2 45 46 2E 43 4F 44 |(MEM1),Y;.EF.COD| 00004210: 45 2D 3E 4F 52 44 45 52 00 53 54 41 4F 52 44 45 |E->ORDER.STAORDE| 00004220: 52 00 52 54 53 3B 46 45 52 54 49 47 00 52 45 4C |R.RTS;FERTIG.REL| 00004230: 41 54 49 56 3A 53 54 41 41 44 52 4D 4F 44 45 3B |ATIV:STAADRMODE;| 00004240: D2 45 4C 41 54 49 56 4D 4F 44 45 20 53 45 54 5A |.ELATIVMODE SETZ| 00004250: 45 4E 00 49 4E 59 00 4C 44 41 28 4D 45 4D 31 29 |EN.INY.LDA(MEM1)| 00004260: 2C 59 3B 55 4E 44 20 C3 4F 44 45 20 53 45 54 5A |,Y;UND .ODE SETZ| 00004270: 45 4E 00 53 54 41 4F 52 44 45 52 00 4C 44 41 4C |EN.STAORDER.LDAL| 00004280: 41 42 45 4C 54 59 50 00 42 50 4C 2A 2B 33 00 52 |ABELTYP.BPL*+3.R| 00004290: 54 53 00 43 4C 43 3B CC 41 42 45 4C 20 44 45 46 |TS.CLC;.ABEL DEF| 000042A0: 49 4E 49 45 52 54 2D 3E D3 50 52 55 4E 47 20 42 |INIERT->.PRUNG B| 000042B0: 45 52 45 43 48 4E 45 4E 00 4C 44 41 5A 41 48 4C |ERECHNEN.LDAZAHL| 000042C0: 31 3B D3 50 52 55 4E 47 57 45 49 54 45 20 42 45 |1;.PRUNGWEITE BE| 000042D0: 52 45 43 48 4E 45 4E 00 53 42 43 50 43 00 53 54 |RECHNEN.SBCPC.ST| 000042E0: 41 5A 41 48 4C 31 00 4C 44 41 5A 41 48 4C 31 2B |AZAHL1.LDAZAHL1+| 000042F0: 31 00 53 42 43 50 43 2B 31 00 53 54 41 5A 41 48 |1.SBCPC+1.STAZAH| 00004300: 4C 31 2B 31 00 4C 44 41 5A 41 48 4C 31 00 42 4E |L1+1.LDAZAHL1.BN| 00004310: 45 4E 4F 45 51 00 44 45 43 5A 41 48 4C 31 2B 31 |ENOEQ.DECZAHL1+1| 00004320: 00 4E 4F 45 51 3A 44 45 43 5A 41 48 4C 31 3B 5A |.NOEQ:DECZAHL1;Z| 00004330: 41 48 4C 31 3D 5A 41 48 4C 31 2D 50 43 2D 32 00 |AHL1=ZAHL1-PC-2.| 00004340: 4C 44 41 5A 41 48 4C 31 2B 31 3B 31 36 C2 49 54 |LDAZAHL1+1;16.IT| 00004350: 20 C4 49 53 54 41 4E 5A 20 57 41 4E 44 45 4C 4E | .ISTANZ WANDELN| 00004360: 00 42 45 51 42 52 50 4C 00 43 4D 50 23 24 46 46 |.BEQBRPL.CMP#$FF| 00004370: 00 42 45 51 42 52 4D 49 00 53 54 4C 3A 4C 44 58 |.BEQBRMI.STL:LDX| 00004380: 23 33 36 3B D3 50 52 55 4E 47 20 5A 55 20 4C 41 |#36;.PRUNG ZU LA| 00004390: 4E 47 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 42 |NG.JMPASSERROR.B| 000043A0: 52 50 4C 3A 4C 44 41 5A 41 48 4C 31 3B D3 50 52 |RPL:LDAZAHL1;.PR| 000043B0: 55 4E 47 20 50 4F 53 49 54 49 56 00 42 4D 49 53 |UNG POSITIV.BMIS| 000043C0: 54 4C 00 52 54 53 00 42 52 4D 49 3A 4C 44 41 23 |TL.RTS.BRMI:LDA#| 000043D0: 30 3B D3 50 52 55 4E 47 20 4E 45 47 41 54 49 56 |0;.PRUNG NEGATIV| 000043E0: 00 53 54 41 5A 41 48 4C 31 2B 31 00 4C 44 41 5A |.STAZAHL1+1.LDAZ| 000043F0: 41 48 4C 31 00 42 50 4C 53 54 4C 00 52 54 53 00 |AHL1.BPLSTL.RTS.| 00004400: 20 00 4E 45 41 4D 4F 3A 49 4E 59 3B 5A 55 52 20 | .NEAMO:INY;ZUR | 00004410: 4E 41 45 43 48 53 54 45 4E 20 C1 44 52 2E 41 52 |NAECHSTEN .DR.AR| 00004420: 54 00 49 4E 59 00 4C 44 41 28 4D 45 4D 31 29 2C |T.INY.LDA(MEM1),| 00004430: 59 00 42 4E 45 46 4F 41 4D 4F 3F 00 52 54 53 00 |Y.BNEFOAMO?.RTS.| 00004440: 20 00 3B D4 41 42 45 4C 4C 45 20 44 45 52 20 36 | .;.ABELLE DER 6| 00004450: 35 30 32 2F 36 35 31 30 20 C2 45 46 45 48 4C 45 |502/6510 .EFEHLE| 00004460: 00 42 45 46 54 41 42 3A 00 2E 42 59 22 4A 4D 50 |.BEFTAB:..BY"JMP| 00004470: 22 2C 37 2C 24 34 43 2C 34 2C 24 36 43 2C 30 00 |",7,$4C,4,$6C,0.| 00004480: 2E 42 59 22 4A 53 52 22 2C 37 2C 24 32 30 2C 30 |.BY"JSR",7,$20,0| 00004490: 00 2E 42 59 22 4C 44 41 22 2C 37 2C 24 41 44 2C |..BY"LDA",7,$AD,| 000044A0: 38 2C 24 41 35 2C 32 2C 24 41 39 2C 39 2C 24 42 |8,$A5,2,$A9,9,$B| 000044B0: 44 2C 31 31 2C 24 42 39 2C 35 2C 24 41 31 2C 36 |D,11,$B9,5,$A1,6| 000044C0: 2C 24 42 31 2C 31 30 2C 24 42 35 2C 30 00 2E 42 |,$B1,10,$B5,0..B| 000044D0: 59 22 4C 44 58 22 2C 37 2C 24 41 45 2C 38 2C 24 |Y"LDX",7,$AE,8,$| 000044E0: 41 36 2C 32 2C 24 41 32 2C 31 31 2C 24 42 45 2C |A6,2,$A2,11,$BE,| 000044F0: 31 32 2C 24 42 36 2C 30 00 2E 42 59 22 4C 44 59 |12,$B6,0..BY"LDY| 00004500: 22 2C 37 2C 24 41 43 2C 38 2C 24 41 34 2C 32 2C |",7,$AC,8,$A4,2,| 00004510: 24 41 30 2C 39 2C 24 42 43 2C 31 30 2C 24 42 34 |$A0,9,$BC,10,$B4| 00004520: 2C 30 00 2E 42 59 22 53 54 41 22 2C 37 2C 24 38 |,0..BY"STA",7,$8| 00004530: 44 2C 38 2C 24 38 35 2C 39 2C 24 39 44 2C 31 31 |D,8,$85,9,$9D,11| 00004540: 2C 24 39 39 2C 35 2C 24 38 31 2C 36 2C 24 39 31 |,$99,5,$81,6,$91| 00004550: 2C 31 30 2C 24 39 35 2C 30 00 2E 42 59 22 53 54 |,10,$95,0..BY"ST| 00004560: 58 22 2C 37 2C 24 38 45 2C 38 2C 24 38 36 2C 31 |X",7,$8E,8,$86,1| 00004570: 32 2C 24 39 36 2C 30 00 2E 42 59 22 53 54 59 22 |2,$96,0..BY"STY"| 00004580: 2C 37 2C 24 38 43 2C 38 2C 24 38 34 2C 31 30 2C |,7,$8C,8,$84,10,| 00004590: 24 39 34 2C 30 00 2E 42 59 22 41 44 43 22 2C 37 |$94,0..BY"ADC",7| 000045A0: 2C 24 36 44 2C 38 2C 24 36 35 2C 32 2C 24 36 39 |,$6D,8,$65,2,$69| 000045B0: 2C 39 2C 24 37 44 2C 31 31 2C 24 37 39 2C 35 2C |,9,$7D,11,$79,5,| 000045C0: 24 36 31 2C 36 2C 24 37 31 2C 31 30 2C 24 37 35 |$61,6,$71,10,$75| 000045D0: 2C 30 00 2E 42 59 22 42 45 51 22 2C 33 2C 24 46 |,0..BY"BEQ",3,$F| 000045E0: 30 2C 30 00 2E 42 59 22 42 43 43 22 2C 33 2C 24 |0,0..BY"BCC",3,$| 000045F0: 39 30 2C 30 00 2E 42 59 22 42 43 53 22 2C 33 2C |90,0..BY"BCS",3,| 00004600: 24 42 30 2C 30 00 2E 42 59 22 49 4E 58 22 2C 31 |$B0,0..BY"INX",1| 00004610: 2C 24 45 38 2C 30 00 2E 42 59 22 49 4E 59 22 2C |,$E8,0..BY"INY",| 00004620: 31 2C 24 43 38 2C 30 00 2E 42 59 22 44 45 58 22 |1,$C8,0..BY"DEX"| 00004630: 2C 31 2C 24 43 41 2C 30 00 2E 42 59 22 44 45 59 |,1,$CA,0..BY"DEY| 00004640: 22 2C 31 2C 24 38 38 2C 30 00 2E 42 59 22 42 49 |",1,$88,0..BY"BI| 00004650: 54 22 2C 37 2C 24 32 43 2C 38 2C 24 32 34 2C 31 |T",7,$2C,8,$24,1| 00004660: 2C 24 32 43 2C 30 00 2E 42 59 22 42 4D 49 22 2C |,$2C,0..BY"BMI",| 00004670: 33 2C 24 33 30 2C 30 00 2E 42 59 22 42 4E 45 22 |3,$30,0..BY"BNE"| 00004680: 2C 33 2C 24 44 30 2C 30 00 2E 42 59 22 42 50 4C |,3,$D0,0..BY"BPL| 00004690: 22 2C 33 2C 24 31 30 2C 30 00 2E 42 59 22 41 4E |",3,$10,0..BY"AN| 000046A0: 44 22 2C 37 2C 24 32 44 2C 38 2C 24 32 35 2C 32 |D",7,$2D,8,$25,2| 000046B0: 2C 24 32 39 2C 39 2C 24 33 44 2C 31 31 2C 24 33 |,$29,9,$3D,11,$3| 000046C0: 39 2C 35 2C 24 32 31 2C 36 2C 24 33 31 2C 31 30 |9,5,$21,6,$31,10| 000046D0: 2C 24 33 35 2C 30 00 2E 42 59 22 41 53 4C 22 2C |,$35,0..BY"ASL",| 000046E0: 31 2C 24 30 41 2C 37 2C 24 30 45 2C 38 2C 24 30 |1,$0A,7,$0E,8,$0| 000046F0: 36 2C 39 2C 24 31 45 2C 31 30 2C 24 31 36 2C 30 |6,9,$1E,10,$16,0| 00004700: 00 2E 42 59 22 42 52 4B 22 2C 31 2C 24 30 30 2C |..BY"BRK",1,$00,| 00004710: 30 00 2E 42 59 22 42 56 43 22 2C 33 2C 24 35 30 |0..BY"BVC",3,$50| 00004720: 2C 30 00 2E 42 59 22 42 56 53 22 2C 33 2C 24 37 |,0..BY"BVS",3,$7| 00004730: 30 2C 30 00 2E 42 59 22 43 4C 43 22 2C 31 2C 24 |0,0..BY"CLC",1,$| 00004740: 31 38 2C 30 00 2E 42 59 22 43 4C 44 22 2C 31 2C |18,0..BY"CLD",1,| 00004750: 24 44 38 2C 30 00 2E 42 59 22 43 4C 49 22 2C 31 |$D8,0..BY"CLI",1| 00004760: 2C 24 35 38 2C 30 00 2E 42 59 22 43 4C 56 22 2C |,$58,0..BY"CLV",| 00004770: 31 2C 24 42 38 2C 30 00 2E 42 59 22 43 4D 50 22 |1,$B8,0..BY"CMP"| 00004780: 2C 37 2C 24 43 44 2C 38 2C 24 43 35 2C 32 2C 24 |,7,$CD,8,$C5,2,$| 00004790: 43 39 2C 39 2C 24 44 44 2C 31 31 2C 24 44 39 2C |C9,9,$DD,11,$D9,| 000047A0: 35 2C 24 43 31 2C 36 2C 24 44 31 2C 31 30 2C 24 |5,$C1,6,$D1,10,$| 000047B0: 44 35 2C 30 00 2E 42 59 22 43 50 58 22 2C 37 2C |D5,0..BY"CPX",7,| 000047C0: 24 45 43 2C 38 2C 24 45 34 2C 32 2C 24 45 30 2C |$EC,8,$E4,2,$E0,| 000047D0: 30 00 2E 42 59 22 43 50 59 22 2C 37 2C 24 43 43 |0..BY"CPY",7,$CC| 000047E0: 2C 38 2C 24 43 34 2C 32 2C 24 43 30 2C 30 00 2E |,8,$C4,2,$C0,0..| 000047F0: 42 59 22 44 45 43 22 2C 37 2C 24 43 45 2C 38 2C |BY"DEC",7,$CE,8,| 00004800: 24 43 36 2C 39 2C 24 44 45 2C 31 30 2C 24 44 36 |$C6,9,$DE,10,$D6| 00004810: 2C 30 00 2E 42 59 22 45 4F 52 22 2C 37 2C 24 34 |,0..BY"EOR",7,$4| 00004820: 44 2C 38 2C 24 34 35 2C 32 2C 24 34 39 2C 39 2C |D,8,$45,2,$49,9,| 00004830: 24 35 44 2C 31 31 2C 24 35 39 2C 35 2C 24 34 31 |$5D,11,$59,5,$41| 00004840: 2C 36 2C 24 35 31 2C 31 30 2C 24 35 35 2C 30 00 |,6,$51,10,$55,0.| 00004850: 2E 42 59 22 49 4E 43 22 2C 37 2C 24 45 45 2C 38 |.BY"INC",7,$EE,8| 00004860: 2C 24 45 36 2C 39 2C 24 46 45 2C 31 30 2C 24 46 |,$E6,9,$FE,10,$F| 00004870: 36 2C 30 00 2E 42 59 22 4C 53 52 22 2C 31 2C 24 |6,0..BY"LSR",1,$| 00004880: 34 41 2C 37 2C 24 34 45 2C 38 2C 24 34 36 2C 39 |4A,7,$4E,8,$46,9| 00004890: 2C 24 35 45 2C 31 30 2C 24 35 36 2C 30 00 2E 42 |,$5E,10,$56,0..B| 000048A0: 59 22 4E 4F 50 22 2C 31 2C 24 45 41 2C 30 00 2E |Y"NOP",1,$EA,0..| 000048B0: 42 59 22 4F 52 41 22 2C 37 2C 24 30 44 2C 38 2C |BY"ORA",7,$0D,8,| 000048C0: 24 30 35 2C 32 2C 24 30 39 2C 39 2C 24 31 44 2C |$05,2,$09,9,$1D,| 000048D0: 31 31 2C 24 31 39 2C 35 2C 24 30 31 2C 36 2C 24 |11,$19,5,$01,6,$| 000048E0: 31 31 2C 31 30 2C 24 31 35 2C 30 00 2E 42 59 22 |11,10,$15,0..BY"| 000048F0: 50 48 41 22 2C 31 2C 24 34 38 2C 30 00 2E 42 59 |PHA",1,$48,0..BY| 00004900: 22 50 48 50 22 2C 31 2C 24 30 38 2C 30 00 2E 42 |"PHP",1,$08,0..B| 00004910: 59 22 50 4C 41 22 2C 31 2C 24 36 38 2C 30 00 2E |Y"PLA",1,$68,0..| 00004920: 42 59 22 50 4C 50 22 2C 31 2C 24 32 38 2C 30 00 |BY"PLP",1,$28,0.| 00004930: 2E 42 59 22 52 4F 4C 22 2C 31 2C 24 32 41 2C 37 |.BY"ROL",1,$2A,7| 00004940: 2C 24 32 45 2C 38 2C 24 32 36 2C 39 2C 24 33 45 |,$2E,8,$26,9,$3E| 00004950: 2C 31 30 2C 24 33 36 2C 30 00 2E 42 59 22 52 4F |,10,$36,0..BY"RO| 00004960: 52 22 2C 31 2C 24 36 41 2C 37 2C 24 36 45 2C 38 |R",1,$6A,7,$6E,8| 00004970: 2C 24 36 36 2C 39 2C 24 37 45 2C 31 30 2C 24 37 |,$66,9,$7E,10,$7| 00004980: 36 2C 30 00 2E 42 59 22 52 54 49 22 2C 31 2C 24 |6,0..BY"RTI",1,$| 00004990: 34 30 2C 30 00 2E 42 59 22 52 54 53 22 2C 31 2C |40,0..BY"RTS",1,| 000049A0: 24 36 30 2C 30 00 2E 42 59 22 53 42 43 22 2C 37 |$60,0..BY"SBC",7| 000049B0: 2C 24 45 44 2C 38 2C 24 45 35 2C 32 2C 24 45 39 |,$ED,8,$E5,2,$E9| 000049C0: 2C 39 2C 24 46 44 2C 31 31 2C 24 46 39 2C 35 2C |,9,$FD,11,$F9,5,| 000049D0: 24 45 31 2C 36 2C 24 46 31 2C 31 30 2C 24 46 35 |$E1,6,$F1,10,$F5| 000049E0: 2C 30 00 2E 42 59 22 53 45 43 22 2C 31 2C 24 33 |,0..BY"SEC",1,$3| 000049F0: 38 2C 30 00 2E 42 59 22 53 45 44 22 2C 31 2C 24 |8,0..BY"SED",1,$| 00004A00: 46 38 2C 30 00 2E 42 59 22 53 45 49 22 2C 31 2C |F8,0..BY"SEI",1,| 00004A10: 24 37 38 2C 30 00 2E 42 59 22 54 41 58 22 2C 31 |$78,0..BY"TAX",1| 00004A20: 2C 24 41 41 2C 30 00 2E 42 59 22 54 41 59 22 2C |,$AA,0..BY"TAY",| 00004A30: 31 2C 24 41 38 2C 30 00 2E 42 59 22 54 53 58 22 |1,$A8,0..BY"TSX"| 00004A40: 2C 31 2C 24 42 41 2C 30 00 2E 42 59 22 54 58 41 |,1,$BA,0..BY"TXA| 00004A50: 22 2C 31 2C 24 38 41 2C 30 00 2E 42 59 22 54 58 |",1,$8A,0..BY"TX| 00004A60: 53 22 2C 31 2C 24 39 41 2C 30 00 2E 42 59 22 54 |S",1,$9A,0..BY"T| 00004A70: 59 41 22 2C 31 2C 24 39 38 2C 30 00 2E 42 59 30 |YA",1,$98,0..BY0| 00004A80: 3B D4 41 42 45 4C 4C 45 4E 45 4E 44 45 00 20 00 |;.ABELLENENDE. .| 00004A90: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00004AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00004AB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 |********.;* * | 00004AC0: 20 20 20 20 20 C3 4F 44 45 20 41 55 53 47 45 42 | .ODE AUSGEB| 00004AD0: 45 4E 20 20 20 20 20 20 20 20 20 20 20 20 2A 20 |EN * | 00004AE0: 2A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.;*************| 00004AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00004B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 43 4F 44 |**********. .COD| 00004B10: 45 4F 55 54 3A 4A 53 52 50 55 53 43 48 00 53 54 |EOUT:JSRPUSCH.ST| 00004B20: 41 4D 45 4D 31 3B C3 4F 44 45 41 55 53 47 45 42 |AMEM1;.ODEAUSGEB| 00004B30: 45 4E 00 4C 44 59 23 30 00 4C 44 41 41 53 53 46 |EN.LDY#0.LDAASSF| 00004B40: 4C 41 47 53 00 41 4E 44 23 31 36 00 42 45 51 4E |LAGS.AND#16.BEQN| 00004B50: 4F 54 50 55 54 52 41 4D 00 4C 44 41 4D 45 4D 31 |OTPUTRAM.LDAMEM1| 00004B60: 3B C3 4F 44 45 20 49 4E 20 D2 41 4D 20 20 42 52 |;.ODE IN .AM BR| 00004B70: 49 4E 47 45 4E 00 4A 53 52 50 55 54 5A 47 32 00 |INGEN.JSRPUTZG2.| 00004B80: 49 4E 43 5A 47 32 3B 55 4E 44 20 DA 45 49 47 45 |INCZG2;UND .EIGE| 00004B90: 52 20 45 52 48 4F 45 48 45 4E 00 42 4E 45 4E 4F |R ERHOEHEN.BNENO| 00004BA0: 54 50 55 54 52 41 4D 00 49 4E 43 5A 47 32 2B 31 |TPUTRAM.INCZG2+1| 00004BB0: 00 4E 4F 54 50 55 54 52 41 4D 3A 4C 44 41 46 4C |.NOTPUTRAM:LDAFL| 00004BC0: 41 47 53 00 41 4E 44 23 33 32 00 42 45 51 4E 4F |AGS.AND#32.BEQNO| 00004BD0: 54 44 49 53 4B 4F 55 54 00 4C 44 58 23 32 3B C1 |TDISKOUT.LDX#2;.| 00004BE0: 55 53 47 41 42 45 20 41 55 46 20 C4 49 53 4B 00 |USGABE AUF .ISK.| 00004BF0: 4A 53 52 43 4B 4F 55 54 00 4C 44 41 4D 45 4D 31 |JSRCKOUT.LDAMEM1| 00004C00: 3B C3 4F 44 45 20 41 55 53 47 45 42 45 4E 00 4A |;.ODE AUSGEBEN.J| 00004C10: 53 52 42 53 4F 55 54 52 00 4A 53 52 43 4C 52 43 |SRBSOUTR.JSRCLRC| 00004C20: 48 3B C1 55 53 47 41 42 45 20 4E 4F 52 4D 41 4C |H;.USGABE NORMAL| 00004C30: 00 53 45 49 00 4E 4F 54 44 49 53 4B 4F 55 54 3A |.SEI.NOTDISKOUT:| 00004C40: 4C 44 41 41 53 53 46 4C 41 47 53 00 41 4E 44 23 |LDAASSFLAGS.AND#| 00004C50: 36 34 00 42 4E 45 2A 2B 35 00 4A 4D 50 50 55 4C |64.BNE*+5.JMPPUL| 00004C60: 4C 3B DA 45 49 4C 45 20 41 55 53 44 52 55 43 4B |L;.EILE AUSDRUCK| 00004C70: 45 4E 00 4C 44 41 50 4F 53 00 42 4E 45 4E 4F 54 |EN.LDAPOS.BNENOT| 00004C80: 46 49 52 53 54 50 4F 53 00 4C 44 41 50 43 2B 31 |FIRSTPOS.LDAPC+1| 00004C90: 3B D0 C3 20 41 55 53 44 52 55 43 4B 45 4E 00 4A |;.. AUSDRUCKEN.J| 00004CA0: 53 52 48 45 58 4F 55 54 3B 48 49 00 4C 44 41 50 |SRHEXOUT;HI.LDAP| 00004CB0: 43 00 4A 53 52 48 45 58 4F 55 54 3B 4C 4F 57 00 |C.JSRHEXOUT;LOW.| 00004CC0: 4C 44 41 23 33 32 00 4A 53 52 42 53 4F 55 54 00 |LDA#32.JSRBSOUT.| 00004CD0: 4E 4F 54 46 49 52 53 54 50 4F 53 3A 4C 44 41 50 |NOTFIRSTPOS:LDAP| 00004CE0: 4F 53 00 43 4D 50 23 31 32 3B D0 4F 53 20 46 55 |OS.CMP#12;.OS FU| 00004CF0: 45 52 20 DA 45 49 4C 45 3F 00 42 43 43 5A 41 55 |ER .EILE?.BCCZAU| 00004D00: 53 4E 49 43 48 54 3B 4E 45 49 4E 00 4C 44 41 4F |SNICHT;NEIN.LDAO| 00004D10: 52 44 45 52 2B 31 00 42 4E 45 5A 41 55 53 4E 49 |RDER+1.BNEZAUSNI| 00004D20: 43 48 54 00 4A 53 52 5A 45 49 4C 45 41 55 53 3B |CHT.JSRZEILEAUS;| 00004D30: D4 45 58 54 5A 45 49 4C 45 20 41 55 53 44 52 55 |.EXTZEILE AUSDRU| 00004D40: 43 4B 45 4E 00 4A 53 52 4E 45 58 54 5A 45 49 00 |CKEN.JSRNEXTZEI.| 00004D50: 5A 41 55 53 4E 49 43 48 54 3A 4C 44 41 4D 45 4D |ZAUSNICHT:LDAMEM| 00004D60: 31 3B C3 4F 44 45 20 41 55 53 44 52 55 43 4B 45 |1;.ODE AUSDRUCKE| 00004D70: 4E 00 4A 53 52 48 45 58 4F 55 54 00 4C 44 41 23 |N.JSRHEXOUT.LDA#| 00004D80: 33 32 00 4A 53 52 42 53 4F 55 54 00 4A 53 52 43 |32.JSRBSOUT.JSRC| 00004D90: 4C 52 43 48 00 4A 4D 50 50 55 4C 4C 00 20 00 43 |LRCH.JMPPULL. .C| 00004DA0: 4F 44 45 41 42 53 43 48 4C 3A 4C 44 41 41 53 53 |ODEABSCHL:LDAASS| 00004DB0: 46 4C 41 47 53 3B C1 55 53 47 42 45 20 41 42 53 |FLAGS;.USGBE ABS| 00004DC0: 43 48 4C 49 45 53 53 45 4E 00 41 4E 44 23 36 34 |CHLIESSEN.AND#64| 00004DD0: 00 42 4E 45 2A 2B 33 00 52 54 53 3B 4B 45 49 4E |.BNE*+3.RTS;KEIN| 00004DE0: 45 20 C1 55 53 47 41 42 45 00 4C 44 41 4F 52 44 |E .USGABE.LDAORD| 00004DF0: 45 52 2B 31 00 42 4E 45 2A 2B 35 3B D4 45 58 54 |ER+1.BNE*+5;.EXT| 00004E00: 20 42 45 52 45 49 54 53 20 41 55 53 47 45 42 47 | BEREITS AUSGEBG| 00004E10: 45 42 45 4E 00 4A 53 52 5A 45 49 4C 45 41 55 53 |EBEN.JSRZEILEAUS| 00004E20: 3B D4 45 58 54 20 41 55 53 47 45 42 45 4E 00 4A |;.EXT AUSGEBEN.J| 00004E30: 4D 50 4E 45 58 54 5A 45 49 00 20 00 57 52 49 54 |MPNEXTZEI. .WRIT| 00004E40: 45 41 55 53 3A 4C 44 41 23 31 39 3B D4 45 58 54 |EAUS:LDA#19;.EXT| 00004E50: 20 41 55 53 47 45 42 45 4E 00 53 54 41 50 4F 53 | AUSGEBEN.STAPOS| 00004E60: 00 4C 44 41 4D 45 4D 31 00 50 48 41 00 4A 4D 50 |.LDAMEM1.PHA.JMP| 00004E70: 57 52 49 54 45 41 55 53 32 00 20 00 5A 45 49 4C |WRITEAUS2. .ZEIL| 00004E80: 45 41 55 53 3A 4C 44 41 23 31 33 3B DA 45 49 4C |EAUS:LDA#13;.EIL| 00004E90: 45 20 41 55 53 47 45 42 45 4E 00 4A 53 52 54 41 |E AUSGEBEN.JSRTA| 00004EA0: 42 00 4C 44 41 4D 45 4D 31 3B 57 45 52 54 45 20 |B.LDAMEM1;WERTE | 00004EB0: 52 45 54 54 45 4E 00 50 48 41 00 4C 44 41 5A 41 |RETTEN.PHA.LDAZA| 00004EC0: 48 4C 31 00 50 48 41 00 4C 44 41 5A 41 48 4C 31 |HL1.PHA.LDAZAHL1| 00004ED0: 2B 31 00 50 48 41 00 4C 44 41 41 53 5A 45 49 4C |+1.PHA.LDAASZEIL| 00004EE0: 45 3B DA 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 41 |E;.EILENNUMMER A| 00004EF0: 55 53 47 45 42 45 4E 00 53 54 41 5A 41 48 4C 31 |USGEBEN.STAZAHL1| 00004F00: 00 4C 44 41 41 53 5A 45 49 4C 45 2B 31 00 53 54 |.LDAASZEILE+1.ST| 00004F10: 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 48 4C |AZAHL1+1.JSRZAHL| 00004F20: 44 45 5A 4F 55 54 00 50 4C 41 3B D7 45 52 54 45 |DEZOUT.PLA;.ERTE| 00004F30: 20 5A 55 52 55 45 43 4B 00 53 54 41 5A 41 48 4C | ZURUECK.STAZAHL| 00004F40: 31 2B 31 00 50 4C 41 00 53 54 41 5A 41 48 4C 31 |1+1.PLA.STAZAHL1| 00004F50: 00 4C 44 41 23 31 39 3B D4 45 58 54 20 41 55 46 |.LDA#19;.EXT AUF| 00004F60: 20 D0 4F 53 2E 31 39 00 4A 53 52 54 41 42 00 57 | .OS.19.JSRTAB.W| 00004F70: 52 49 54 45 41 55 53 32 3A 4C 44 58 23 30 00 53 |RITEAUS2:LDX#0.S| 00004F80: 54 58 4D 45 4D 33 3B 4B 45 49 4E 20 CB 4F 4D 4D |TXMEM3;KEIN .OMM| 00004F90: 45 4E 54 41 52 00 53 54 58 4D 45 4D 32 3B 4B 45 |ENTAR.STXMEM2;KE| 00004FA0: 49 4E 20 CC 41 42 45 4C 00 4C 44 58 23 33 00 4C |IN .ABEL.LDX#3.L| 00004FB0: 44 41 46 4C 41 47 53 00 41 4E 44 23 32 00 42 45 |DAFLAGS.AND#2.BE| 00004FC0: 51 4E 4F 46 4F 52 4D 5A 45 49 3B DA 45 49 4C 45 |QNOFORMZEI;.EILE| 00004FD0: 20 4E 49 43 48 54 20 41 55 46 00 4C 44 41 23 27 | NICHT AUF.LDA#'| 00004FE0: 3B 3B C6 4F 52 4D 41 54 20 42 52 49 4E 47 45 4E |;;.ORMAT BRINGEN| 00004FF0: 00 4A 53 52 49 4E 53 54 52 49 4E 47 00 53 54 59 |.JSRINSTRING.STY| 00005000: 4D 45 4D 33 3B CB 4F 4D 4D 45 4E 54 41 52 50 4F |MEM3;.OMMENTARPO| 00005010: 53 2E 00 4C 44 41 45 44 42 55 46 46 45 52 00 43 |S..LDAEDBUFFER.C| 00005020: 4D 50 23 27 3B 00 42 45 51 4B 4F 5A 45 49 4C 3B |MP#';.BEQKOZEIL;| 00005030: CB 4F 4D 4D 45 4E 54 41 52 5A 45 49 4C 45 00 4C |.OMMENTARZEILE.L| 00005040: 44 41 23 27 3A 00 4A 53 52 49 4E 53 54 52 49 4E |DA#':.JSRINSTRIN| 00005050: 47 00 53 54 59 4D 45 4D 32 3B CC 41 42 45 4C 50 |G.STYMEM2;.ABELP| 00005060: 4F 53 2E 00 4C 44 41 4D 45 4D 32 00 42 4E 45 4E |OS..LDAMEM2.BNEN| 00005070: 4F 46 4F 52 4D 5A 45 49 3B CC 41 42 45 4C 20 56 |OFORMZEI;.ABEL V| 00005080: 4F 52 48 41 4E 44 45 4E 00 4C 44 41 23 33 30 3B |ORHANDEN.LDA#30;| 00005090: 4B 45 49 4E 20 CC 41 42 45 4C 2D 3E D0 4F 53 2E |KEIN .ABEL->.OS.| 000050A0: 33 30 00 4A 53 52 54 41 42 00 4B 4F 5A 45 49 4C |30.JSRTAB.KOZEIL| 000050B0: 3A 4C 44 58 23 30 3B D4 45 58 54 20 41 55 53 47 |:LDX#0;.EXT AUSG| 000050C0: 45 42 45 4E 00 4E 4F 46 4F 52 4D 5A 45 49 3A 4C |EBEN.NOFORMZEI:L| 000050D0: 44 59 23 30 00 49 4E 43 4F 52 44 45 52 2B 31 00 |DY#0.INCORDER+1.| 000050E0: 5A 41 32 3A 4C 44 41 45 44 42 55 46 46 45 52 2C |ZA2:LDAEDBUFFER,| 000050F0: 59 00 42 4E 45 5A 41 33 00 50 4C 41 3B DA 45 49 |Y.BNEZA3.PLA;.EI| 00005100: 4C 45 4E 45 4E 44 45 20 45 52 52 45 49 43 48 54 |LENENDE ERREICHT| 00005110: 00 53 54 41 4D 45 4D 31 00 52 54 53 00 5A 41 33 |.STAMEM1.RTS.ZA3| 00005120: 3A 4A 53 52 42 53 4F 55 54 3B C1 55 53 47 41 42 |:JSRBSOUT;.USGAB| 00005130: 45 00 49 4E 58 00 43 50 58 23 33 00 42 4E 45 4E |E.INX.CPX#3.BNEN| 00005140: 4F 54 41 42 45 46 00 4C 44 41 45 44 42 55 46 46 |OTABEF.LDAEDBUFF| 00005150: 45 52 00 43 4D 50 23 27 3B 00 42 45 51 4E 4F 54 |ER.CMP#';.BEQNOT| 00005160: 41 42 45 46 3B CB 4F 4D 4D 45 4E 54 41 52 5A 45 |ABEF;.OMMENTARZE| 00005170: 49 4C 45 00 4C 44 41 23 33 32 3B D4 52 45 4E 4E |ILE.LDA#32;.RENN| 00005180: 5A 45 49 43 48 45 4E 20 4E 41 43 48 20 C2 45 46 |ZEICHEN NACH .EF| 00005190: 45 48 4C 00 4A 53 52 42 53 4F 55 54 00 4E 4F 54 |EHL.JSRBSOUT.NOT| 000051A0: 41 42 45 46 3A 43 50 59 4D 45 4D 32 3B CC 41 42 |ABEF:CPYMEM2;.AB| 000051B0: 45 4C 50 4F 53 2E 20 45 52 52 45 49 43 48 54 3F |ELPOS. ERREICHT?| 000051C0: 00 42 4E 45 5A 41 34 00 43 50 59 23 30 00 42 45 |.BNEZA4.CPY#0.BE| 000051D0: 51 5A 41 34 00 4C 44 41 23 33 30 3B CA 41 2D 3E |QZA4.LDA#30;.A->| 000051E0: D0 4F 53 2E 33 30 00 4A 53 52 54 41 42 00 4C 44 |.OS.30.JSRTAB.LD| 000051F0: 58 23 30 00 5A 41 34 3A 49 4E 59 00 43 50 59 4D |X#0.ZA4:INY.CPYM| 00005200: 45 4D 33 3B CB 4F 4D 4D 45 4E 54 41 52 50 4F 53 |EM3;.OMMENTARPOS| 00005210: 2E 20 45 52 52 45 49 43 48 54 3F 00 42 4E 45 5A |. ERREICHT?.BNEZ| 00005220: 41 32 00 4C 44 41 23 34 39 3B CA 41 2D 3E D0 4F |A2.LDA#49;.A->.O| 00005230: 53 2E 34 39 00 4A 53 52 54 41 42 00 4A 4D 50 5A |S.49.JSRTAB.JMPZ| 00005240: 41 32 00 20 00 54 41 42 3A 43 4D 50 50 4F 53 3B |A2. .TAB:CMPPOS;| 00005250: D4 41 42 55 4C 41 54 4F 52 00 42 43 53 2A 2B 33 |.ABULATOR.BCS*+3| 00005260: 00 52 54 53 3B D0 4F 53 2E 20 42 45 52 45 49 54 |.RTS;.OS. BEREIT| 00005270: 53 20 45 52 52 45 49 43 48 54 00 50 48 41 00 4C |S ERREICHT.PHA.L| 00005280: 44 41 23 33 32 3B D3 50 41 43 45 20 41 55 53 47 |DA#32;.PACE AUSG| 00005290: 45 42 45 4E 00 4A 53 52 42 53 4F 55 54 00 50 4C |EBEN.JSRBSOUT.PL| 000052A0: 41 00 4A 4D 50 54 41 42 3B 57 45 49 54 45 52 54 |A.JMPTAB;WEITERT| 000052B0: 45 53 54 45 4E 00 20 00 2E 46 49 22 50 53 45 55 |ESTEN. ..FI"PSEU| 000052C0: 44 4F 22 00 00 41 |DO"..A |
BR;---- QUELLDATEI ASS. .;**************
*************************.;* * LAB
EL-FILE DRUCKEN * *.;************
***************************. .LISTLBL:LD
X#34;LABELTYP HOLEN.JSRWRITE.GETTYP:JSRG
ET;TYP GUELTIG.CMP#'P.BEQPRGL;PROGRAM.CM
P#'F.BEQFIXL;FIX.CMP#'U.BEQUNUL;UNBENUTZ
T.CMP#'A.BNEGETTYP.LDX#0;FLAG FUER ALLES
.BIT.PRGL:LDX#2;FLAG FUER PRG..BIT.FIXL:
LDX#3;FLAG FUER FIX.BIT.UNUL:LDX#1;FLAG
FUER UNBEN..STXLABELTYP;MERKEN.JSRBSOUT;
UND ANZEIGEN.LDAFLAGS;PRINTER ?.AND#8.BE
QNOPRINTER.LDA#0;DRUCKERKANAL OEFFNEN.JS
RSETNAME.LDA#1.LDX#DRUDEV.LDY#DRUSEC.JSR
SETPARA.JSROPEN.LDX#1;AUSGABE AUF DRUCKE
R.JSRCKOUT.NOPRINTER:LDALBLANF;ZG AUF LA
BELANFANG.STAZG.LDALBLANF+1.STAZG+1.JSRN
EXTZEI.LDX#35;UEBERSCHRIFT DRUCKEN.JSRWR
ITE.LDA#4;4 AUSGABE PRO ZEILE.STAMEM2.LB
L:JSRSTOP?;ABBRECHEN ?.BEQABLA.LDY#0;FIL
EENDE ?.JSRHOLZG.BNEFOLABEL.ABLA:JSRNEXT
ZEI;JA.JSRCLRCH;DRUCKER AUS.LDA#1.JSRCLO
SE.JMPMAINRT;ZUM MENUE.FOLABEL:LDX#0;LAB
ELNAME->BUFFER.TRALBL:STABUFFER,X.INX.IN
Y.JSRHOLZG.CMP#5;LABELENDE ?.BCSTRALBL;N
EIN.STAMEM1;LABELTYP -> MEM1.LDA#0;LABEL
NAME MIT 0 ABSCHLIESSEN.STABUFFER,X.LDAL
ABELTYP;ALLE->AUSGEBEN.BEQWRILBL.CMPMEM1
;TYPGLEICHHEIT->AUSGEBEN.BEQWRILBL.CMP#1
;UNBEN. ?.BNENOWRI;FALSCHER TYP.LDAMEM1.
BEQWRILBL.NOWRI:INY;NICHT AUSGEBEN.INY.C
OLBL:TYA;ZG AUF NAECHSTES SYMBOL.SEC.ADC
ZG.STAZG.BCCLBL;UND WEITER.INCZG+1.BNELB
L.WRILBL:LDX#0;LABELNAME DRUCKEN.WRILBLO
UT:LDABUFFER,X.BEQENDLBL.JSRBSOUT.INX.BN
EWRILBLOUT.ENDLBL:LDA#32;TABULATOR.JSRBS
OUT.INX.CPX#12.BCCENDLBL.LDXMEM1;LABELTY
P AUSGEBEN.LDALBLTYP,X.JSRBSOUT.LDA#32.J
SRBSOUT.INY;LABELWERT AUSGEBEN.JSRHOLZG.
STAZAHL1.INY.JSRHOLZG.STAZAHL1+1.JSRZAHL
HEXOUT.DECMEM2;SCHON 4 AUSGABEN ?.BNEWE
ITER;NEIN.JSRNEXTZEI;NEUE ZEILE.LDA#4.ST
AMEM2.BNECOLBL.WEITER:LDA#32;WEITER AUSG
EBEN.JSRBSOUT.JSRBSOUT.JMPCOLBL. .LBLTYP
:.BY"UUPF";LABELTYPEN. .;***************
************************.;* * LA
BELWERT SUCHEN * *.;*************
**************************. .SEALBL:LDAZ
G2;HOLT LABELWERT.STAMEM1;ZG2 MERKEN.LDA
ZG2+1.STAMEM2.LDALBLANF;ZG2 AUF LABELFIL
E.STAZG2.LDALBLANF+1.STAZG2+1.LDA#128;LA
BEL UNDEFINIERT.STALABELTYP.LDY#0;LABELF
ILE LEER ?.JSRHOLZG2.BEQSLRT;JA.JSRROUTI
NE2;ZUR SUCHROUTINE. .SLRT:LDAZG2;LABELP
OS. MERKEN.STAMEM3.LDAMEM1;UND ZG2 RUECK
SETZEN.STAZG2.LDAZG2+1.STAMEM4.LDAMEM2.S
TAZG2+1.RTS. .;*************************
**************.;* * LABEL EINTR
AGEN * *.;***********************
****************. .INSLBL:LDAASSFLAGS;NI
CHT ALS BENUTZT.AND#%11111101;KENNZEICHN
EN.STAASSFLAGS.JSRSEALBL;LABEL SUCHEN.LD
AASSFLAGS;BENUTZT-FLAG SETZEN.ORA#2.STAA
SSFLAGS.LDAASSFL2;UMDEFINIEREN ?.AND#64.
BEQ*+5.JMPREDEFINE;JA.LDALABELTYP;LABEL
UNBEKANNT ?.BMINOSAME;JA.LDAASSFL2;LABEL
DOPPELT FLAG.ORA#32.STAASSFL2.LDX#41;LA
BEL DOPPELT.JMPASSERROR.NOSAME:LDAZG2;ZG
2 MERKEN.STAMEM1.LDAZG2+1.STAMEM2.LDALBL
POINT;ZG2 AUF LABELFILEENDE.STAZG2.LDALB
LPOINT+1.STAZG2+1.LDYLBLLEN;LABELLAENGE.
INY;+3 FUER LABELWERT.INY.INY.STYLBLLEN.
CLC.TYA.ADCLBLPOINT;ENDEPOINTER + LABELL
EN.STALBLPOINT.LDALBLPOINT+1.ADC#0.STALB
LPOINT+1.BCSTOMALB;ZU VIELE LABEL.CMPLBL
END+1;MIT SPEICHERENDE VERGLEICHEN.BCCVL
BL.LDALBLPOINT.CMPLBLEND.BCCVLBL.TOMALB:
JSRSLRT;ZU VIELE LABEL.LDA#0;WAITFLAG LO
ESCHEN.STAASSFL2.LDX#38;FEHLER MELDEN.JS
RASSERROR.JMPPASSABORT;PASS BEENDEN.VLBL
:JSRVLBLRO;PLATZ FUER LABEL SCHAFFEN.LDA
ZG2+1;FERTIG ?.CMPMEM4.BNELBW.LDAZG2.CMP
MEM3.BEQVLBLE.LBW:LDAZG2;NEIN->ZG2-1.BNE
*+4.DECZG2+1.DECZG2.JMPVLBL;WEITER VERSC
HIEBEN.VLBLE:LDYLBLLEN;LABEL EINFUEGEN.D
EY.LDAMEM3;ZG2 AUF LABELPOS..STAZG2.LDAM
EM4.STAZG2+1.LDAPC+1;LABELWERT EINSETZEN
.JSRPUTZG2.DEY.LDAPC.JSRPUTZG2.DEY.LDAAS
SFLAGS;LABELTYP EINSETZEN.AND#1.JSRPUTZG
2.PULBL:DEY;LABELNAME EINSETZEN.BPL*+5.J
MPSLRT;FERTIG.LDABUFFER2,Y.JSRPUTZG2.JMP
PULBL. .REDEFINE:LDAASSFL2;LABEL DOPPELT
?.AND#32.BEQ*+3.RTS;JA.LDALABELTYP;LABE
L VORHANDEN ?.BPL*+5.JMPNOSAME;NEIN.LDAZ
G2;UMDEFINIEREN.STAMEM1.LDAZG2+1.STAMEM2
.JMPVLBLE. .;***************************
************.;* * ASSEMBLIEREN
* *.;*************************
**************. .UHRAN:LDAUHR+7;UHR EINS
CHALTEN.AND#127.STAUHR+7.LDAUHR+6.ORA#12
8.STAUHR+6.LDA#0;UND AUF 00:00:00 SETZEN
.STAUHR+3.STAUHR+2.STAUHR+1.STAUHR;UHR S
TARTEN.RTS. .PASS2:JSRPASSPARA;PASS 2 ST
ARTEN.JSRUHRAN.JMPDOPASS2. .ASSEMBLE:JSR
PASSPARA;ASSEMBLER STARTEN.LDA#%00000110
;ASSFLAGS AUF STARTSITUATION.ORAASSFLAGS
.STAASSFLAGS.JSRUHRAN;UHR AN.LDALBLANF;L
ABEL FILE LOESCHEN.STALBLPOINT.STAZG2.LD
ALBLANF+1.STALBLPOINT+1.STAZG2+1.LDA#0;D
URCH 0 AM ANFANG.TAY.JSRPUTZG2.JSRWRITEP
ASS;PASS AUSGEBEN.JSRPASSBEGIN;PARAMETER
FUER PASS SETZEN.JSRPASS;PASS DURCHFUEH
REN.JSRCLRCH.LDA#2;DISKFILE'S SCHLIESSEN
.JSRCLOSE.LDA#1.JSRCLOSE.LDAPC.STAPASSAD
RESS.LDAPC+1.STAPASSADRESS+1.DOPASS2:LDA
ASSFLAGS;PASS 2 AUSFUEHREN.ORA#%10000110
;ASSFLAGS AUF STANDART.AND#%11000110.STA
ASSFLAGS.JSRWRITEPASS;PASS AUSGEBEN.JSRP
ASSBEGIN;PARAMETER FUER PASS SETZEN.JSRP
ASS;PASS DURCHFUEHREN.LDA#0;ASSFLAGS LOE
SCHEN.STAASSFLAGS.JSRNEXTZEI.LDAPC.CMPPA
SSADRESS.BNEPASSERROR.LDAPC+1.CMPPASSADR
ESS+1.BNEPASSERROR.LDX#58;FEHLERZAHL AUS
GEBEN.JSRWRITE.LDAFEHLER.STAZAHL1.LDAFEH
LER+1.STAZAHL1+1.JSRZAHLDEZOUT.JSRNEXTZE
I;ASSEMBLIERZEIT AUSGEBEN.LDX#59.JSRWRIT
E.LDX#3.READTI:LDAUHR,X;ZEIT IN BUFFER S
PEICHERN.STABUFFER,X.DEX.BPLREADTI.LDX#3
;UND AUSGEBEN.WRITETI:LDABUFFER,X.JSRHEX
OUT.CPX#1.BEQENDZEIT.LDA#':.JSRBSOUT.DEX
.BNEWRITETI.ENDZEIT:JSRNEXTZEI;ENDADRESS
E AUSGEBEN.LDX#60.JSRWRITE.LDAPC.STAZAHL
1.LDAPC+1.STAZAHL1+1.JSRZAHLHEXOUT.LDA#'
/;ENDADR. BEI ABLEGEN AUSGEBEN.JSRBSOUT.
LDAZG2.STAZAHL1.LDAZG2+1.STAZAHL1+1.JSRZ
AHLHEXOUT.JSRNEXTZEI.JSRNEXTZEI.PASSABOR
T:JSRPOINTER;FERTIG.JSRBEEP.JSRCLOALL.JM
PMAINRT. .PASSERROR:LDX#66;BERECHNUNGSFE
HLER.JSRASSERROR.JMPPASSABORT;PASS BEEND
EN. .PASSBEGIN:JSRPUTRO2;PASS STARTEN.LD
AASSFL2.AND#%01111111.STAASSFL2.LDA#0;PC
AUF 0.STAPC+1.STAPC.STAASZEILE;ZEILE AU
F 0.STAASZEILE+1.LDAFLAGS;DISK MODE?.AND
#16.BNE*+3.RTS.LDASTARTFILE;FILENAME SET
ZEN.LDX#<STARTFILE+1.LDY#>STARTFILE+1.JS
RSETNAME.LDX#FLODEV;FILEPARAMETER SETZEN
.LDA#1.LDY#0.JSRSETPARA.JSROPEN;FILE OEF
FNEN.LDX#1;EINGABE AUS FILE.JSRCHKIN.JSR
BASINR;FILELAENGE HOLEN.STAZAHL1.JSRBASI
NR.STAZAHL1+1.LDASTATUS;STATUS TESTEN.BE
QDISKOK.JSRDISKERR;DISKERROR (FILE NOT F
OUND ETC.).JMPPASSABORT.DISKOK:JSRCLRCH;
FILELAENGE.JSRZAHLHEXOUT.LDA#32.JSRBSOUT
.LDY#0;UND FILENAMEN AUSGEBEN.STFIOU:LDA
STARTFILE+1,Y.JSRBSOUT.INY.CPYSTARTFILE.
BNESTFIOU.JMPNEXTZEI. .WRITEPASS:LDX#53;
'*** PASS X ***' AUSGEBEN.JSRWRITE.BITAS
SFLAGS.BMIPA2.LDA#'1.BIT.PA2:LDA#'2.JSRB
SOUT.LDX#54.JMPWRITE. .PASSPARA:LDX#55;P
ASSPARAMETER HOLEN.JSRWRITE;PROTOKOLL DR
UCKEN ?.JSRJANEIN.BEQPRODRU.LDA#0;NEIN.B
IT.PRODRU:LDA#64;JA.STAASSFLAGS.LDAFLAGS
.AND#%11001111.STAFLAGS.AND#8.BEQPRIOFF.
LDA#0;DRUCKERFILE EROEFFNEN.JSRSETNAME.L
DX#DRUDEV.LDA#3.LDY#DRUSEC.JSRSETPARA.JS
ROPEN.PRIOFF:JSRNEXTZEI.LDX#6;FILENAME H
OLEN.JSRWRITE.JSRSTR16IN.JSRNEXTZEI.CPY#
0.BEQNOFILEMODE;KEIN NAME->RAMDATEI.STYS
TARTFILE;NAMEN SPEICHERN FUER 2.PASS.DEY
.TRSTANA:LDABUFFER,Y.STASTARTFILE+1,Y.DE
Y.BPLTRSTANA.LDAFLAGS;DISKMODE EINSCHALT
EN.ORA#16.STAFLAGS.NOFILEMODE:LDA#0;ANZA
HL FEHLER=0.STAFEHLER.STAFEHLER+1.RTS. .
;***************************************
.;* * ASSEMBLER - ERROR *
*.;*************************************
**. .ASSERROR:JSRPUSCH.LDAASSFLAGS.BPLNI
FH;FEHLERANZAHL ERHOEHEN.INCFEHLER.BNENI
FH.INCFEHLER+1.NIFH:TXA.PHA.JSRBEEP;FEHL
ER MELDEN.LDX#52.JSRWRITE.PLA.TAX;FEHLER
TEXT DRUCKEN.JSRWRITE.LDX#51.JSRWRITE.LD
AASSFLAGS;ASSEMBLER LAUFT?.AND#8.BEQASLA
UF.JMPPULL.ASLAUF:LDX#57;JA ->ZEILENNUMM
ER AUSGEBEN.JSRWRITE.LDAASZEILE.STAZAHL1
.STACZEIL.LDAASZEILE+1.STAZAHL1+1.STACZE
IL+1.JSRZAHLDEZOUT;NUMMER AUSGEBEN.JSRNE
XTZEI.BITASSFL2.BPLASEREND.GET3:LDX#62;W
AIT MODUS.JSRWRITE;'CONT ABORT' ABFRAGE.
LDAFLAGS.AND#16.BNE*+2+2+3.LDX#63;RAM MO
DUS.JSRWRITE;'EDIT' ABFRAGE.JSRGET;BEFEH
L HOLEN.LDXZEILE.PHA.JSRCLRLINE;ABFRAGET
EXT LOESCHEN.LDY#0.STYPOS.STYCSPAL.JSRSE
TCRSR.PLA.CMP#'A;ABORT.BEQTOTALAB.CMP#'C
;CONTINUE.BEQASEREND.CMP#'E;EDIT.BNEGET3
;FALSCHE EINGABE.LDAFLAGS.AND#16.BNEGET3
;EDIT NUR IM RAM MODUS.JSRPOINTER;ZUM ED
ITOR.JSRCLOALL.JSREDITINIT.INCCSPAL.JSRD
ATENBILD.LDXSTACK.TXS.JMPEDBEF.ASEREND:J
MPPULL;CONT AUSFUEHREN.TOTALAB:JMPPASSAB
ORT;ABORT AUSFUEHREN. .;****************
***********************.;* * EINEN
PASS AUSFUEHREN * *.;**************
*************************. .PASS:JSRZGTE
XT;EINE PASS AUSFUEHREN.DOPASS:JSRSYNTAX
;ZEILE ANALYSIEREN.LDABUFFER;AUF BEFEHL
TESTEN.BEQNOBEF.LDABUFFER+1.BEQNOBEF.LDA
BUFFER+2.BNEBEFDA.NOBEF:STABUFFER+3;KEIN
BEFEHL IN ZEILE.BEFDA:LDAASSFLAGS;TEXT
IM BLOCK?.AND#32.BEQ*+5.JMPBLOCK;JA->ZEI
LE ALS KOMMENTAR BEHANDEL.LDAASSFLAGS;LA
BEL IN PASS 2.BMINOLBLINS;UEBERLESEN.LDA
BUFFER2.BEQNOLBLINS;KEIN LABEL VORHANDEN
.JSRINSLBL;LABEL EINTRAGEN.NOLBLINS:LDAB
UFFER.CMP#'.;PSEUDO BEFEHL ?.BNE*+2+3+3.
JSREXEPSE;JA -> AUSFUEHREN.JMPNOTOUT3.JS
RAUSDRUCK;OPERAND AUSWERTEN.LDALABELTYP.
BPLDEFINIERT;OPERAND IST DEFINIERT.LDA#1
;ZERO-MODE FUER UNDEF. SPERREN.STAZAHL1+
1.DEFINIERT:JSRGETADRMODE;ADRESSIERUNGSA
RT ERMITTELN.LDAADRMODE.BEQADRFEHLER;ADR
.FEHLT.LDABUFFER.BEQNOTOUT3;KEIN BEFEHL.
JSRGETCODE;CODE ERMITTELN.ADRFEHLER:LDXA
DRMODE;ANZAHL BYTE ERMITTELN.LDAARGANZ,X
.STAORDER+2.LDAASSFLAGS;AUSGABE?.BPLNOTO
UT.LDAORDER;JA.JSRCODEOUT;CODE AUSGEBEN.
LDAORDER+2.BEQNOARGS;KEIN OPERAND FOLGT.
LDAZAHL1;EIN OPERAND FOLGT.JSRCODEOUT.LD
AORDER+2.CMP#1.BNEZWEIBYTE.LDAZAHL1+1;OP
ERAND TESTEN.BEQNOARGS.LDX#44;OPERAND ZU
GROSS.JSRASSERROR.JMPNOARGS.ZWEIBYTE:LD
AZAHL1+1;ZWEI OPERANDEN FOLGEN.JSRCODEOU
T.NOARGS:JSRCODEABSCHL.NOTOUT:SEC;PC NEU
BERECHNEN.LDAPC.ADCORDER+2.STAPC.BCCNOT
OUT2.INCPC+1.NOTOUT2:JSRSTOP?.BEQABORTPA
SS;STOP->ABBRUCH.LDAASSFLAGS.AND#8.BNEPA
SRT.LDY#0.JSRHOLZG.BEQ*+5.JMPDOPASS.PASR
T:LDAASSFLAGS;FILEENDE ODER .EN.AND#32.B
NE*+3.RTS.LDX#47;BLOCK OFFEN.JMPASSERROR
. .NOTOUT3:LDAASSFLAGS.BPLNOTOUT2.JSRCOD
EABSCHL.JMPNOTOUT2. .BLOCK:LDA#'.;AUF BE
FEHL .EB TESTEN.CMPBUFFER.BNENOTOUT3.LDA
#'E.CMPBUFFER+1.BNENOTOUT3.LDA#'B.CMPBUF
FER+2.BNENOTOUT3.LDAASSFLAGS;GEFUNDEN->B
LOCK SCHLIESSEN.AND#%11011111.STAASSFLAG
S.JMPNOTOUT3. .ABORTPASS:JMPPASSABORT. .
;***************************************
.;* * SYNTAXANALYSE *
*.;*************************************
**. .INSTRING:STAMEM1;EIN ZEICHEN IN ZEI
LE SUCHEN.LDY#$FE.TNC:INY.NC:INY.LDAEDBU
FFER,Y.BNENOTREADY.ISR:LDY#0;ZEILEENDE E
RREICHT.RTS;UND NICHT GEFUNDEN.NOTREADY:
CMPMEM1;ZEICHEN VERGLEICHEN.BNE*+3.RTS;G
EFUNDEN,POS. IN Y.CMP#39;ZEICHEN NACH '
UEBERLESEN.BEQTNC.CMP#';;KOMMETAR UEBERL
ESEN.BEQISR.CMP#'".BNENC.SEAQUEND:INY;ZE
ICHENKETTEN UEBERLESEN.LDAEDBUFFER,Y.BEQ
ISR.CMP#'".BEQNC.BNESEAQUEND. .SYNTAX:LD
AASSFL2;EINE ZEILE ANALYSIEREN.AND#%1001
1111.STAASSFL2.LDY#0;BEFEHL,OPERAND UND.
STYBUFFER2;ADRESSIERUNGSART AUF 0.STYORD
ER+1.STYADRMODE.STYADRMOTXT.STYLBLLEN.IN
CASZEILE;ZEILENNUMMER +1.BNETRALI?.INCAS
ZEILE+1.TRALI?:LDAFLAGS.AND#16.BEQTRALI.
JSRFROMDISK;ZEILE VON DISK HOLEN.JMPSYNT
2.TRALI:JSRHOLZG;ZEILE AUS RAM.STABUFFER
,Y.STAEDBUFFER,Y;IN BUFFER UEBERTRAGEN.B
EQSYNT.INY.BNETRALI.SYNT:JSRTEXTLINE;ZG
AUF NACHFOLGERZEILE.SYNT2:LDA#';;KOMMETA
R ABTRENNEN.JSRINSTRING.CPY#0.BEQNOKOMM.
ALLKOMM:LDA#0;KOMMENTARZEILE.STABUFFER,Y
.NOKOMM:LDABUFFER.BNE*+3.RTS.CMP#';.BEQA
LLKOMM.LDA#':;AUF LABEL TESTEN.JSRINSTRI
NG.CPY#0.BEQKEINLBL.STYMEM1;LABEL VORHAN
DEN.LDY#0.LDX#0.TRALBL2:LDABUFFER,Y;LABE
L IN BUFFER2 UEBERTRAGEN.STABUFFER2,X.CM
P#32.BEQ*+3.INX.CPX#21.BNELENOK.LDX#56;'
SYMBOL ZU LANG'.JMPASSERROR.LENOK:INY.CP
YMEM1.BNETRALBL2.STXLBLLEN;LAENGE MERKEN
UND.LDA#0;LABEL MIT 0 ABSCHLIESSEN.STAB
UFFER2,X.INY.KEINLBL:LDX#0.STXMEM1.PACKR
EST:LDABUFFER,Y;RESTZEILE PACKEN.BEQEOLN
.INY.CMP#32;LEERZEICHEN UEBERLESEN.BEQPA
CKREST.CMP#'#.BEQKLAMMER.CMP#').BEQKLAMM
ER.CMP#'(.BEQKLAMMER.CMP#44.BEQKOMMA.CMP
#39.BEQCFL.CMP#'".BEQQFL.KTST:STABUFFER,
X.INX.BNEPACKREST.EOLN:STABUFFER,X;ZEILE
ENDE ERREICHT.LDXMEM1.STAADRMOTXT,X.RTS.
KLAMMER:STXMEM2;ADRESSIERUNGSART.LDXMEM1
;IN ADRMOTXT SPEICHERN.STAADRMOTXT,X.LDX
MEM2.INCMEM1.BNEPACKREST.KOMMA:LDABUFFER
.CMP#'.;PSEUDO BEFEHL ?.BNENOPSE;NEIN.LD
A#44.BNEKTST.NOPSE:STXMEM2.LDXMEM1.LDA#4
4;ADRESSMODE SPEICHERN.NOPSE2:STAADRMOTX
T,X.LDXMEM2.INCMEM1.SPACE:LDABUFFER,Y;LE
ERZEICHEN UEBERLESEN.BEQEOLN;ZEILENENDE.
INY.CMP#32.BEQSPACE.BNEKLAMMER.CFL:STABU
FFER,X;''' ABSPEICHERN.INX.LDABUFFER,Y.B
EQEOLN;ZEILENENDE.INY.BNEKTST.QFL:STABUF
FER,X;ZEICHENKETTE ABSPEICHERN.INX.LDABU
FFER,Y.BEQEOLN;ZEILENENDE.INY.CMP#'".BNE
QFL.BEQKTST. .;*************************
**************.;* * OPERAND BERE
CHNEN * *.;***********************
****************. .AUSDRUCK:LDY#0;ZAHL1=
0.STYZAHL1.STYZAHL1+1.STYLABELTYP.LDAOPE
RAND.CMP#'<;LOW BYTE ?.BNENOTLOW.IMMTST:
LDAADRMOTXT;NUR BEI '#' MOEGLICH.CMP#'#.
BEQFIRES.LDABUFFER;ODER PSEUDO BEFEHL.CM
P#'..BEQFIRES.LDX#37;OPERAND ERROR.JMPAS
SERROR.NOTLOW:CMP#'>;HIGH BYTE ?.BEQIMMT
ST.CMP#'*;PC ?.BNEAUSDR.LDAPC;ZAHL1=PC.S
TAZAHL1.LDAPC+1.STAZAHL1+1.FIRES:INY;ERS
TES ZEICHEN BEREITS BEHANDELT.AUSDR:LDAO
PERAND,Y;EINEN WERT HOLEN.BNENZE.LDAOPER
AND;FERTIG.CMP#'<.BNEHI?.RTWD:LDA#0;LOW
BYTE GILT.STAZAHL1+1.LOHIRT:RTS.HI?:CMP#
'>.BNELOHIRT.LDAZAHL1+1;HIGH BYTE GILT.S
TAZAHL1.JMPRTWD.NZE:INY.CMP#'+.BEQPLUS;A
DDITON FOLGT.CMP#'-.BEQMINUS;SUBTRAKTION
FOLGT.CMP#'*.BEQMAL;MULTIPLIKATION FOLG
T.CMP#'/.BEQDURCH;DIVISION FOLGT.CMP#'^.
BEQREST;MODULO FOLGT.DEY.JSRWERT.JMPAUSD
R. .PLUS:LDAZAHL1+1;ZAHL1 MERKEN.PHA.LDA
ZAHL1.PHA.JSRWERT;2. WERT HOLEN.CLC;UND
ADDIEREN.PLA.ADCZAHL1.STAZAHL1.PLA.ADCZA
HL1+1.STAZAHL1+1.JMPAUSDR. .MINUS:LDAZAH
L1+1;ZAHL1 MERKEN.PHA.LDAZAHL1.PHA.JSRWE
RT;2. WERT HOLEN.SEC;UND SUBTRAHIEREN.PL
A.SBCZAHL1.STAZAHL1.PLA.SBCZAHL1+1.STAZA
HL1+1.JMPAUSDR. .MAL:LDAZAHL1+1;ZAHL1 ME
RKEN.PHA.LDAZAHL1.PHA.JSRWERT;2. WERT HO
LEN.PLA.STAZAHL2.PLA.STAZAHL2+1.JSRMULT;
MULTIPLIZIEREN.HELP2:LDAZAHL3;ZAHL3->ZAH
L1.STAZAHL1.LDAZAHL3+1.STAZAHL1+1.JMPAUS
DR. .DURCH:LDAZAHL1+1;ZAHL1 MERKEN.PHA.L
DAZAHL1.PHA.JSRWERT;2. WERT HOLEN.JSRHEL
P1;ZAHL1->ZAHL2.PLA.STAZAHL1.PLA.STAZAHL
1+1.JSRDIV;DIVISION.JMPHELP2. .REST:LDAZ
AHL1+1;MODULOFUNKTION.PHA;(ERGIBT DIVISI
ONSREST).LDAZAHL1.PHA.JSRWERT.JSRHELP1.P
LA.STAZAHL1.PLA.STAZAHL1+1.JSRMOD.JMPHEL
P2. .HELP1:LDAZAHL1;ZAHL1->ZAHL2.STAZAHL
2.LDAZAHL1+1.STAZAHL2+1.RTS. .WERT:LDAOP
ERAND,Y;HOLT EINE WERT.BNENOOPERR.OPERR:
LDX#37;OPERAND FEHLT.JSRASSERROR.LDABUFF
ER,Y.BNE*+3.RTS.INY.RTS.NOOPERR:AND#127;
TESTEN AUF LABEL.CMP#'A.BCCZAHL.CMP#'Z+1
.BCSZAHL.LDX#$FF;LABEL->BUFFER2.TRALI3:I
NX.LDAOPERAND,Y.STABUFFER2,X.INY.CPX#21.
BEQOPERR;LABEL ZU LANG.JSROPERATOR?;LABE
LENDE ?.BNETRALI3;NEIN.ELA:DEY.LDA#0;LAB
EL MIT 0 ABSCHLIESSEN.STABUFFER2,X.TYA.P
HA.JSRSEALBL;LABEL SUCHEN.LDALABELWERT;Z
AHL1=LABELWERT.STAZAHL1.LDALABELWERT+1.S
TAZAHL1+1.PLA.TAY.LDAASSFLAGS.BMI*+3.DEF
:RTS.LDALABELTYP;TEST AUF DEFINIERT IN P
ASS 2.BPLDEF.LDX#42;SYMBOL UNBEKANNT.JMP
ASSERROR.ZAHL:JSRZAHLIN;ZAHL ALS WERT EI
NLESEN.DEY.LDALASTCHR.JSROPERATOR?;FOLGT
OPERATOR.BNEOPERR;NEIN->FEHLER IN ZAHL.
RTS. .OPERATOR?:STXMEM1;TESTET AUF OPERA
TOR.JSROPERATOR.PHP.LDXMEM1;X ZURUECKHOL
EN.PLP.RTS.OPERATOR:LDX#5.VO:CMPOPERATOR
EN,X.BNE*+3.RTS;GEFUNDEN.DEX.BPLVO.RTS;N
ICHT GEFUNDEN. .OPERATOREN:.BY"^/*-+",0.
.;*************************************
**.;* * ADRESSIERUNGSART
* *.;***********************************
****. .GETADRMODE:JSRADRMODE2;ADRESSIERU
NGART ERMITTELN.LDAADRMODE.BEQADRERR;UNB
EKANNT.CMP#7.BCS*+3;ZERO EVTL. MOEGLICH.
ADRRT:RTS.LDAZAHL1+1.BNEADRRT;WERT FUER
ZERO ZU GROSS.INCADRMODE;ZERO ADRESSIERU
NG.BNEADRRT.ADRERR:LDX#39;ADR. UNBEKANNT
.JMPASSERROR. .ADRMODE2:LDAOPERAND.BEQIM
PLIZIT;KEINE OPERAND ANGEGEBEN.LDAADRMOT
XT.BEQABSOLUT;KEINE ADR.ART ANGEGEBEN.LD
X#$FF.SEMO:INX;ADR.TEXTE VERGLEICHEN.LDA
MODES,X.STAADRMODE;NUMMER MERKEN.BEQADRR
T.INX.LDY#0.LDAMODES,X.BEQSEMO;TEXTENDE.
CMPADRMOTXT,Y;TEXTVERGLEICH.BEQFOMO?.TOM
OE:INX;<> -> NAECHTER TEXT.TOMOE2:LDAMOD
ES,X.BNETOMOE.BEQSEMO.FOMO?:INX;TEXT WEI
TER VERGLEICHEN.INY.LDAADRMOTXT,Y.BEQADR
RT;TEXT GEFUNDEN.CMPMODES,X.BEQFOMO?.BNE
TOMOE2.IMPLIZIT:LDA#1;IMPLIZIT.BIT.ABSOL
UT:LDA#7;ABSOLUT.STAADRMODE.RTS. .;TEXTE
DER ADRESSIERUNGSARTEN.MODES:.BY2,"#",0
..BY4,"()",0..BY5,"(,X)",0..BY6,"(),Y",0
..BY9,44,"X",0..BY11,44,"Y",0,0. .ARGANZ
:.BY0,0,1,1,2,1,1,2,1,2,1,2,1. .;*******
********************************.;* *
CODE ERMITTELN * *.;*****
**********************************. .GET
CODE:LDAPC;BEFEHLCODE ERMITTELN.ORAPC+1.
BNEGETCODE2.LDX#48;.BA FEHLT.JSRASSERROR
.GETCODE2:JSRGETCODER;CODE AUS TABELLE H
OLEN.LDAORDER.CMP#$FF;CODE=$FF.BNECOOK?.
LDX#43;BEFEHL UNBEKANNT.JMPASSERROR.COOK
?:CMP#2;CODE=2.BEQ*+3.RTS;NEIN->O.K..LDA
ADRMODE;ZERO ADR.NICHT MOEGLICH?.CMP#7.B
CCCOERR.AND#1.BNECOERR.DECADRMODE;16-BIT
ADR. TESTEN.BNEGETCODE2.COERR:LDX#40;AD
R.ART NICHT MOEGLICH.JMPASSERROR. .GETCO
DER:LDA#$FF;CODE AUS TABELLE HOLEN.STAOR
DER.LDA#<BEFTAB;MEM1/2 ALS ZEIGER AUF TA
BELLE.STAMEM1.LDA#>BEFTAB.STAMEM2.CODE?:
LDY#0.LDA(MEM1),Y.BNE*+3.RTS;TABELLENEND
E.CMPBUFFER;ERSTES ZEICHEN VERGLEICHEN.B
NENECO.INY.LDA(MEM1),Y;ZWEITES ZEICHEN V
ERGL..CMPBUFFER+1.BNENECO.INY.LDA(MEM1),
Y;DRITTES ZEICHEN VERGL..CMPBUFFER+2.BEQ
FOCO;BEFEHL GEFUNDEN.NECO:LDY#3;NICHT GE
FUNDEN.NECOL:LDA(MEM1),Y;EINTRAGSENDE.BE
QAD2ZG;SUCHEN.INY.INY.BNENECOL.AD2ZG:SEC
;TABELLENZEIGER NEU BERECHNEN.TYA.ADCMEM
1.STAMEM1.BCC*+4.INCMEM2.JMPCODE?;NAECHS
TEN EINTRAG TESTEN.FOCO:LDA#2;BEFEHL GEF
UNDEN.STAORDER;-> ADR.ART SUCHEN.LDY#3.L
DA(MEM1),Y.FOAMO?:CMP#3;RELATIV ?.BEQREL
ATIV;JA.CMPADRMODE;ADR.ART GEFUNDEN?.BNE
NEAMO.INY;JA.LDA(MEM1),Y;BEF.CODE->ORDER
.STAORDER.RTS;FERTIG.RELATIV:STAADRMODE;
RELATIVMODE SETZEN.INY.LDA(MEM1),Y;UND C
ODE SETZEN.STAORDER.LDALABELTYP.BPL*+3.R
TS.CLC;LABEL DEFINIERT->SPRUNG BERECHNEN
.LDAZAHL1;SPRUNGWEITE BERECHNEN.SBCPC.ST
AZAHL1.LDAZAHL1+1.SBCPC+1.STAZAHL1+1.LDA
ZAHL1.BNENOEQ.DECZAHL1+1.NOEQ:DECZAHL1;Z
AHL1=ZAHL1-PC-2.LDAZAHL1+1;16BIT DISTANZ
WANDELN.BEQBRPL.CMP#$FF.BEQBRMI.STL:LDX
#36;SPRUNG ZU LANG.JMPASSERROR.BRPL:LDAZ
AHL1;SPRUNG POSITIV.BMISTL.RTS.BRMI:LDA#
0;SPRUNG NEGATIV.STAZAHL1+1.LDAZAHL1.BPL
STL.RTS. .NEAMO:INY;ZUR NAECHSTEN ADR.AR
T.INY.LDA(MEM1),Y.BNEFOAMO?.RTS. .;TABEL
LE DER 6502/6510 BEFEHLE.BEFTAB:..BY"JMP
",7,$4C,4,$6C,0..BY"JSR",7,$20,0..BY"LDA
",7,$AD,8,$A5,2,$A9,9,$BD,11,$B9,5,$A1,6
,$B1,10,$B5,0..BY"LDX",7,$AE,8,$A6,2,$A2
,11,$BE,12,$B6,0..BY"LDY",7,$AC,8,$A4,2,
$A0,9,$BC,10,$B4,0..BY"STA",7,$8D,8,$85,
9,$9D,11,$99,5,$81,6,$91,10,$95,0..BY"ST
X",7,$8E,8,$86,12,$96,0..BY"STY",7,$8C,8
,$84,10,$94,0..BY"ADC",7,$6D,8,$65,2,$69
,9,$7D,11,$79,5,$61,6,$71,10,$75,0..BY"B
EQ",3,$F0,0..BY"BCC",3,$90,0..BY"BCS",3,
$B0,0..BY"INX",1,$E8,0..BY"INY",1,$C8,0.
.BY"DEX",1,$CA,0..BY"DEY",1,$88,0..BY"BI
T",7,$2C,8,$24,1,$2C,0..BY"BMI",3,$30,0.
.BY"BNE",3,$D0,0..BY"BPL",3,$10,0..BY"AN
D",7,$2D,8,$25,2,$29,9,$3D,11,$39,5,$21,
6,$31,10,$35,0..BY"ASL",1,$0A,7,$0E,8,$0
6,9,$1E,10,$16,0..BY"BRK",1,$00,0..BY"BV
C",3,$50,0..BY"BVS",3,$70,0..BY"CLC",1,$
18,0..BY"CLD",1,$D8,0..BY"CLI",1,$58,0..
BY"CLV",1,$B8,0..BY"CMP",7,$CD,8,$C5,2,$
C9,9,$DD,11,$D9,5,$C1,6,$D1,10,$D5,0..BY
"CPX",7,$EC,8,$E4,2,$E0,0..BY"CPY",7,$CC
,8,$C4,2,$C0,0..BY"DEC",7,$CE,8,$C6,9,$D
E,10,$D6,0..BY"EOR",7,$4D,8,$45,2,$49,9,
$5D,11,$59,5,$41,6,$51,10,$55,0..BY"INC"
,7,$EE,8,$E6,9,$FE,10,$F6,0..BY"LSR",1,$
4A,7,$4E,8,$46,9,$5E,10,$56,0..BY"NOP",1
,$EA,0..BY"ORA",7,$0D,8,$05,2,$09,9,$1D,
11,$19,5,$01,6,$11,10,$15,0..BY"PHA",1,$
48,0..BY"PHP",1,$08,0..BY"PLA",1,$68,0..
BY"PLP",1,$28,0..BY"ROL",1,$2A,7,$2E,8,$
26,9,$3E,10,$36,0..BY"ROR",1,$6A,7,$6E,8
,$66,9,$7E,10,$76,0..BY"RTI",1,$40,0..BY
"RTS",1,$60,0..BY"SBC",7,$ED,8,$E5,2,$E9
,9,$FD,11,$F9,5,$E1,6,$F1,10,$F5,0..BY"S
EC",1,$38,0..BY"SED",1,$F8,0..BY"SEI",1,
$78,0..BY"TAX",1,$AA,0..BY"TAY",1,$A8,0.
.BY"TSX",1,$BA,0..BY"TXA",1,$8A,0..BY"TX
S",1,$9A,0..BY"TYA",1,$98,0..BY0;TABELLE
NENDE. .;*******************************
********.;* * CODE AUSGEBEN
* *.;*****************************
**********. .CODEOUT:JSRPUSCH.STAMEM1;CO
DEAUSGEBEN.LDY#0.LDAASSFLAGS.AND#16.BEQN
OTPUTRAM.LDAMEM1;CODE IN RAM BRINGEN.JS
RPUTZG2.INCZG2;UND ZEIGER ERHOEHEN.BNENO
TPUTRAM.INCZG2+1.NOTPUTRAM:LDAFLAGS.AND#
32.BEQNOTDISKOUT.LDX#2;AUSGABE AUF DISK.
JSRCKOUT.LDAMEM1;CODE AUSGEBEN.JSRBSOUTR
.JSRCLRCH;AUSGABE NORMAL.SEI.NOTDISKOUT:
LDAASSFLAGS.AND#64.BNE*+5.JMPPULL;ZEILE
AUSDRUCKEN.LDAPOS.BNENOTFIRSTPOS.LDAPC+1
;PC AUSDRUCKEN.JSRHEXOUT;HI.LDAPC.JSRHEX
OUT;LOW.LDA#32.JSRBSOUT.NOTFIRSTPOS:LDAP
OS.CMP#12;POS FUER ZEILE?.BCCZAUSNICHT;N
EIN.LDAORDER+1.BNEZAUSNICHT.JSRZEILEAUS;
TEXTZEILE AUSDRUCKEN.JSRNEXTZEI.ZAUSNICH
T:LDAMEM1;CODE AUSDRUCKEN.JSRHEXOUT.LDA#
32.JSRBSOUT.JSRCLRCH.JMPPULL. .CODEABSCH
L:LDAASSFLAGS;AUSGBE ABSCHLIESSEN.AND#64
.BNE*+3.RTS;KEINE AUSGABE.LDAORDER+1.BNE
*+5;TEXT BEREITS AUSGEBGEBEN.JSRZEILEAUS
;TEXT AUSGEBEN.JMPNEXTZEI. .WRITEAUS:LDA
#19;TEXT AUSGEBEN.STAPOS.LDAMEM1.PHA.JMP
WRITEAUS2. .ZEILEAUS:LDA#13;ZEILE AUSGEB
EN.JSRTAB.LDAMEM1;WERTE RETTEN.PHA.LDAZA
HL1.PHA.LDAZAHL1+1.PHA.LDAASZEILE;ZEILEN
NUMMER AUSGEBEN.STAZAHL1.LDAASZEILE+1.ST
AZAHL1+1.JSRZAHLDEZOUT.PLA;WERTE ZURUECK
.STAZAHL1+1.PLA.STAZAHL1.LDA#19;TEXT AUF
POS.19.JSRTAB.WRITEAUS2:LDX#0.STXMEM3;K
EIN KOMMENTAR.STXMEM2;KEIN LABEL.LDX#3.L
DAFLAGS.AND#2.BEQNOFORMZEI;ZEILE NICHT A
UF.LDA#';;FORMAT BRINGEN.JSRINSTRING.STY
MEM3;KOMMENTARPOS..LDAEDBUFFER.CMP#';.BE
QKOZEIL;KOMMENTARZEILE.LDA#':.JSRINSTRIN
G.STYMEM2;LABELPOS..LDAMEM2.BNENOFORMZEI
;LABEL VORHANDEN.LDA#30;KEIN LABEL->POS.
30.JSRTAB.KOZEIL:LDX#0;TEXT AUSGEBEN.NOF
ORMZEI:LDY#0.INCORDER+1.ZA2:LDAEDBUFFER,
Y.BNEZA3.PLA;ZEILENENDE ERREICHT.STAMEM1
.RTS.ZA3:JSRBSOUT;AUSGABE.INX.CPX#3.BNEN
OTABEF.LDAEDBUFFER.CMP#';.BEQNOTABEF;KOM
MENTARZEILE.LDA#32;TRENNZEICHEN NACH BEF
EHL.JSRBSOUT.NOTABEF:CPYMEM2;LABELPOS. E
RREICHT?.BNEZA4.CPY#0.BEQZA4.LDA#30;JA->
POS.30.JSRTAB.LDX#0.ZA4:INY.CPYMEM3;KOMM
ENTARPOS. ERREICHT?.BNEZA2.LDA#49;JA->PO
S.49.JSRTAB.JMPZA2. .TAB:CMPPOS;TABULATO
R.BCS*+3.RTS;POS. BEREITS ERREICHT.PHA.L
DA#32;SPACE AUSGEBEN.JSRBSOUT.PLA.JMPTAB
;WEITERTESTEN. ..FI"PSEUDO"..A
> CLICK IMAGE PREVIEW FOR FULL MODAL