PSEUDO
FILE INFORMATION
FILENAME(S): PSEUDO
FILE TYPE(S): PRG
FILE SIZE: 9K
FIRST SEEN: 2025-10-20 14:29:46
APPEARS ON: 5 disk(s)
FILE HASH
055487786394cbcf05c398458f0a8e43410a75acbdf94fd07e733ea4422dde14
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDW NACHDRUCK | PSEUDO | PRG | Treasure Chest - Klaus Der Suhler | 7 | 3 | DOWNLOAD FILE |
| GRUNDWERKSDISK 1 | PSEUDO | PRG | Treasure Chest - Klaus Der Suhler | 5 | 4 | DOWNLOAD FILE |
| GRUNDW NACHDRUCK | PSEUDO | PRG | Treasure Chest - Klaus Der Suhler | 7 | 3 | DOWNLOAD FILE |
| ORION CEBIT | PSEUDO | PRG | Treasure Chest - OzzyC64 | 25 | 4 | DOWNLOAD FILE |
| ORION CEBIT | PSEUDO | PRG | DuncanTwain | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: E0 23 3B 3B 3B 2D 2D 2D 2D 20 D1 55 45 4C 4C 44 |.#;;;---- .UELLD| 00000010: 41 54 45 49 20 50 53 45 55 44 4F 00 20 00 3B 2A |ATEI PSEUDO. .;*| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 00 3B 2A 20 2A 20 20 20 20 20 |******.;* * | 00000050: 20 20 20 D0 53 45 55 44 4F 20 2D 20 C2 45 46 45 | .SEUDO - .EFE| 00000060: 48 4C 45 20 20 20 20 20 20 20 20 20 2A 20 2A 00 |HLE * *.| 00000070: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 00 20 00 45 58 45 50 53 |********. .EXEPS| 000000A0: 45 3A 4C 44 58 23 24 46 46 3B D0 53 45 55 44 4F |E:LDX#$FF;.SEUDO| 000000B0: 20 C2 45 46 45 48 4C 20 53 55 43 48 45 4E 00 4E | .EFEHL SUCHEN.N| 000000C0: 45 58 50 53 3A 49 4E 58 00 4C 44 41 50 53 43 4F |EXPS:INX.LDAPSCO| 000000D0: 31 2C 58 00 42 4E 45 4E 4F 50 53 45 33 00 4C 44 |1,X.BNENOPSE3.LD| 000000E0: 58 23 34 33 3B C2 45 46 45 48 4C 20 55 4E 42 45 |X#43;.EFEHL UNBE| 000000F0: 4B 41 4E 4E 54 00 4A 4D 50 41 53 53 45 52 52 4F |KANNT.JMPASSERRO| 00000100: 52 00 4E 4F 50 53 45 33 3A 43 4D 50 42 55 46 46 |R.NOPSE3:CMPBUFF| 00000110: 45 52 2B 31 3B 45 52 53 54 45 4E 20 C2 55 43 48 |ER+1;ERSTEN .UCH| 00000120: 53 54 41 42 45 4E 20 56 45 52 47 4C 45 49 43 48 |STABEN VERGLEICH| 00000130: 45 4E 00 42 4E 45 4E 45 58 50 53 00 4C 44 41 50 |EN.BNENEXPS.LDAP| 00000140: 53 43 4F 32 2C 58 3B 5A 57 45 49 54 45 4E 20 56 |SCO2,X;ZWEITEN V| 00000150: 45 52 47 4C 45 49 43 48 45 4E 00 43 4D 50 42 55 |ERGLEICHEN.CMPBU| 00000160: 46 46 45 52 2B 32 00 42 4E 45 4E 45 58 50 53 00 |FFER+2.BNENEXPS.| 00000170: 54 58 41 3B 47 45 46 55 4E 44 45 4E 00 41 53 4C |TXA;GEFUNDEN.ASL| 00000180: 00 54 41 58 00 4C 44 41 41 53 53 46 4C 41 47 53 |.TAX.LDAASSFLAGS| 00000190: 00 42 4D 49 53 50 50 41 32 3B 5A 57 45 49 54 45 |.BMISPPA2;ZWEITE| 000001A0: 52 20 D0 41 53 53 00 4C 44 41 4A 55 50 41 31 2B |R .ASS.LDAJUPA1+| 000001B0: 31 2C 58 3B C1 44 52 45 53 53 45 20 41 55 46 20 |1,X;.DRESSE AUF | 000001C0: D3 54 41 43 4B 00 50 48 41 00 4C 44 41 4A 55 50 |.TACK.PHA.LDAJUP| 000001D0: 41 31 2C 58 00 50 48 41 00 52 54 53 3B D2 4F 55 |A1,X.PHA.RTS;.OU| 000001E0: 54 49 4E 45 20 53 54 41 52 54 45 4E 00 53 50 50 |TINE STARTEN.SPP| 000001F0: 41 32 3A 4C 44 41 4A 55 50 41 32 2B 31 2C 58 3B |A2:LDAJUPA2+1,X;| 00000200: D2 4F 55 54 49 4E 45 20 49 4E 20 D0 41 53 53 32 |.OUTINE IN .ASS2| 00000210: 00 50 48 41 00 4C 44 41 4A 55 50 41 32 2C 58 00 |.PHA.LDAJUPA2,X.| 00000220: 50 48 41 00 52 54 50 53 45 3A 52 54 53 3B 53 54 |PHA.RTPSE:RTS;ST| 00000230: 41 52 54 45 4E 00 20 00 3B CE 41 4D 45 4E 20 44 |ARTEN. .;.AMEN D| 00000240: 45 52 20 D0 53 45 55 44 4F 2D C2 45 46 45 48 4C |ER .SEUDO-.EFEHL| 00000250: 45 00 50 53 43 4F 31 3A 2E 42 59 22 42 45 42 49 |E.PSCO1:.BY"BEBI| 00000260: 44 44 42 57 41 4C 4C 57 43 52 44 3F 3F 3F 3F 42 |DDBWALLWCRD????B| 00000270: 4F 4F 45 4F 46 43 45 3F 3F 54 4F 22 2C 30 00 50 |OOEOFCE??TO",0.P| 00000280: 53 43 4F 32 3A 2E 42 59 22 41 51 45 4E 42 57 59 |SCO2:.BY"AQENBWY| 00000290: 4F 44 53 43 41 4F 56 50 45 4E 4D 50 43 53 43 4E |ODSCAOVPENMPCSCN| 000002A0: 55 49 42 42 31 32 58 4F 22 00 20 00 3B C1 44 52 |UIBB12XO". .;.DR| 000002B0: 45 53 53 45 4E 20 44 45 52 20 D2 4F 55 54 49 4E |ESSEN DER .OUTIN| 000002C0: 45 4E 20 49 4E 20 D0 41 53 53 20 31 00 4A 55 50 |EN IN .ASS 1.JUP| 000002D0: 41 31 3A 2E 57 4F 42 41 2D 31 3B 42 41 00 2E 57 |A1:.WOBA-1;BA..W| 000002E0: 4F 45 51 2D 31 3B 45 51 00 2E 57 4F 42 45 2D 31 |OEQ-1;EQ..WOBE-1| 000002F0: 3B 42 45 00 2E 57 4F 45 58 49 4E 2D 31 3B 49 4E |;BE..WOEXIN-1;IN| 00000300: 00 2E 57 4F 44 42 2D 31 3B 44 42 00 2E 57 4F 44 |..WODB-1;DB..WOD| 00000310: 57 45 58 2D 31 3B 44 57 00 2E 57 4F 42 59 50 41 |WEX-1;DW..WOBYPA| 00000320: 31 2D 31 3B 42 59 00 2E 57 4F 57 4F 50 41 31 2D |1-1;BY..WOWOPA1-| 00000330: 31 3B 57 4F 00 2E 57 4F 57 4F 50 41 31 2D 31 3B |1;WO..WOWOPA1-1;| 00000340: 41 44 00 2E 57 4F 52 54 50 53 45 2D 31 3B 4C 53 |AD..WORTPSE-1;LS| 00000350: 00 2E 57 4F 52 54 50 53 45 2D 31 3B 4C 43 00 2E |..WORTPSE-1;LC..| 00000360: 57 4F 57 41 2D 31 3B 57 41 00 2E 57 4F 43 4F 2D |WOWA-1;WA..WOCO-| 00000370: 31 3B 43 4F 00 2E 57 4F 42 59 50 41 31 2D 31 3B |1;CO..WOBYPA1-1;| 00000380: 52 56 00 2E 57 4F 42 59 50 41 31 2D 31 3B 44 50 |RV..WOBYPA1-1;DP| 00000390: 00 2E 57 4F 45 3F 2D 31 3B 45 3F 00 2E 57 4F 4E |..WOE?-1;E?..WON| 000003A0: 3F 2D 31 3B 4E 3F 00 2E 57 4F 4D 3F 2D 31 3B 4D |?-1;N?..WOM?-1;M| 000003B0: 3F 00 2E 57 4F 50 3F 2D 31 3B 50 3F 00 2E 57 4F |?..WOP?-1;P?..WO| 000003C0: 52 54 50 53 45 2D 31 3B 42 43 00 2E 57 4F 52 54 |RTPSE-1;BC..WORT| 000003D0: 50 53 45 2D 31 3B 4F 53 00 2E 57 4F 52 54 50 53 |PSE-1;OS..WORTPS| 000003E0: 45 2D 31 3B 4F 43 00 2E 57 4F 45 4E 2D 31 3B 45 |E-1;OC..WOEN-1;E| 000003F0: 4E 00 2E 57 4F 52 54 50 53 45 2D 31 3B 4F 55 00 |N..WORTPSE-1;OU.| 00000400: 2E 57 4F 46 49 2D 31 3B 46 49 00 2E 57 4F 43 42 |.WOFI-1;FI..WOCB| 00000410: 2D 31 3B 43 42 00 2E 57 4F 52 54 50 53 45 2D 31 |-1;CB..WORTPSE-1| 00000420: 3B 45 42 00 2E 57 4F 50 31 3F 2D 31 3B 3F 31 00 |;EB..WOP1?-1;?1.| 00000430: 2E 57 4F 50 32 3F 2D 31 3B 3F 32 00 2E 57 4F 54 |.WOP2?-1;?2..WOT| 00000440: 58 2D 31 3B 54 58 00 2E 57 4F 4F 4F 45 58 2D 31 |X-1;TX..WOOOEX-1| 00000450: 3B 4F 4F 00 20 00 3B C1 44 52 45 53 53 45 4E 20 |;OO. .;.DRESSEN | 00000460: 44 45 52 20 D2 4F 55 54 49 4E 45 4E 20 49 4E 20 |DER .OUTINEN IN | 00000470: D0 41 53 53 20 32 00 4A 55 50 41 32 3A 2E 57 4F |.ASS 2.JUPA2:.WO| 00000480: 42 41 2D 31 3B 42 41 00 2E 57 4F 52 54 50 53 45 |BA-1;BA..WORTPSE| 00000490: 2D 31 3B 45 51 00 2E 57 4F 42 45 2D 31 3B 42 45 |-1;EQ..WOBE-1;BE| 000004A0: 00 2E 57 4F 52 54 50 53 45 2D 31 3B 49 4E 00 2E |..WORTPSE-1;IN..| 000004B0: 57 4F 44 42 2D 31 3B 44 42 00 2E 57 4F 44 57 45 |WODB-1;DB..WODWE| 000004C0: 58 2D 31 3B 44 57 00 2E 57 4F 42 59 2D 31 3B 42 |X-1;DW..WOBY-1;B| 000004D0: 59 00 2E 57 4F 57 4F 2D 31 3B 57 4F 00 2E 57 4F |Y..WOWO-1;WO..WO| 000004E0: 41 44 2D 31 3B 41 44 00 2E 57 4F 4C 53 2D 31 3B |AD-1;AD..WOLS-1;| 000004F0: 4C 53 00 2E 57 4F 4C 43 2D 31 3B 4C 43 00 2E 57 |LS..WOLC-1;LC..W| 00000500: 4F 57 41 2D 31 3B 57 41 00 2E 57 4F 43 4F 2D 31 |OWA-1;WA..WOCO-1| 00000510: 3B 43 4F 00 2E 57 4F 52 56 2D 31 3B 52 56 00 2E |;CO..WORV-1;RV..| 00000520: 57 4F 44 50 2D 31 3B 44 50 00 2E 57 4F 45 3F 2D |WODP-1;DP..WOE?-| 00000530: 31 3B 45 3F 00 2E 57 4F 4E 3F 2D 31 3B 4E 3F 00 |1;E?..WON?-1;N?.| 00000540: 2E 57 4F 4D 3F 2D 31 3B 4D 3F 00 2E 57 4F 50 3F |.WOM?-1;M?..WOP?| 00000550: 2D 31 3B 50 3F 00 2E 57 4F 42 43 2D 31 3B 42 43 |-1;P?..WOBC-1;BC| 00000560: 00 2E 57 4F 4F 53 2D 31 3B 4F 53 00 2E 57 4F 4F |..WOOS-1;OS..WOO| 00000570: 43 2D 31 3B 4F 43 00 2E 57 4F 45 4E 2D 31 3B 45 |C-1;OC..WOEN-1;E| 00000580: 4E 00 2E 57 4F 4F 55 2D 31 3B 4F 55 00 2E 57 4F |N..WOOU-1;OU..WO| 00000590: 46 49 2D 31 3B 46 49 00 2E 57 4F 43 42 2D 31 3B |FI-1;FI..WOCB-1;| 000005A0: 43 42 00 2E 57 4F 52 54 50 53 45 2D 31 3B 45 42 |CB..WORTPSE-1;EB| 000005B0: 00 2E 57 4F 50 31 3F 2D 31 3B 3F 31 00 2E 57 4F |..WOP1?-1;?1..WO| 000005C0: 50 32 3F 2D 31 3B 3F 32 00 2E 57 4F 54 58 2D 31 |P2?-1;?2..WOTX-1| 000005D0: 3B 54 58 00 2E 57 4F 4F 4F 45 58 2D 31 3B 4F 4F |;TX..WOOOEX-1;OO| 000005E0: 00 20 00 42 41 3A 4A 53 52 41 55 53 44 52 55 43 |. .BA:JSRAUSDRUC| 000005F0: 4B 3B C2 41 53 49 53 20 46 45 53 54 4C 45 47 45 |K;.ASIS FESTLEGE| 00000600: 4E 00 4C 44 41 5A 41 48 4C 31 3B 5A 41 48 4C 31 |N.LDAZAHL1;ZAHL1| 00000610: 2D 3E D0 C3 00 53 54 41 50 43 00 53 54 41 5A 47 |->...STAPC.STAZG| 00000620: 32 3B 5A 41 48 4C 31 2D 3E 5A 47 32 20 46 55 45 |2;ZAHL1->ZG2 FUE| 00000630: 52 20 C1 42 4C 41 47 45 20 49 4E 20 D2 C1 CD 00 |R .BLAGE IN ....| 00000640: 4C 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 50 43 |LDAZAHL1+1.STAPC| 00000650: 2B 31 00 53 54 41 5A 47 32 2B 31 00 4A 4D 50 50 |+1.STAZG2+1.JMPP| 00000660: 43 4F 55 54 00 20 00 42 43 3A 4A 53 52 41 55 53 |COUT. .BC:JSRAUS| 00000670: 44 52 55 43 4B 3B D2 41 4D 2D C2 41 53 49 53 20 |DRUCK;.AM-.ASIS | 00000680: 46 45 53 54 4C 45 47 45 4E 00 4C 44 41 5A 41 48 |FESTLEGEN.LDAZAH| 00000690: 4C 31 3B 5A 41 48 4C 31 2D 3E 5A 47 32 00 53 54 |L1;ZAHL1->ZG2.ST| 000006A0: 41 5A 47 32 00 4C 44 41 5A 41 48 4C 31 2B 31 00 |AZG2.LDAZAHL1+1.| 000006B0: 53 54 41 5A 47 32 2B 31 00 52 54 53 00 20 00 43 |STAZG2+1.RTS. .C| 000006C0: 42 3A 4A 53 52 41 55 53 44 52 55 43 4B 3B C3 48 |B:JSRAUSDRUCK;.H| 000006D0: 41 4E 47 45 20 C2 41 53 49 53 00 4C 44 41 5A 41 |ANGE .ASIS.LDAZA| 000006E0: 48 4C 31 3B 5A 41 48 4C 31 2D 3E D0 C3 00 53 54 |HL1;ZAHL1->...ST| 000006F0: 41 50 43 00 4C 44 41 5A 41 48 4C 31 2B 31 00 53 |APC.LDAZAHL1+1.S| 00000700: 54 41 50 43 2B 31 00 52 54 53 00 20 00 45 4E 3A |TAPC+1.RTS. .EN:| 00000710: 4C 44 41 23 38 3B C5 CE C4 2D C6 4C 41 47 20 53 |LDA#8;...-.LAG S| 00000720: 45 54 5A 45 4E 00 2E 42 59 24 32 43 00 4F 53 3A |ETZEN..BY$2C.OS:| 00000730: 4C 44 41 23 31 36 3B C1 55 53 47 41 42 45 20 C6 |LDA#16;.USGABE .| 00000740: 4C 41 47 20 53 45 54 5A 45 4E 00 2E 42 59 24 32 |LAG SETZEN..BY$2| 00000750: 43 00 4C 53 3A 4C 44 41 23 36 34 3B CC 49 53 54 |C.LS:LDA#64;.IST| 00000760: 20 C6 4C 41 47 20 53 45 54 5A 45 4E 00 4F 52 41 | .LAG SETZEN.ORA| 00000770: 41 53 53 46 4C 41 47 53 00 53 54 41 41 53 53 46 |ASSFLAGS.STAASSF| 00000780: 4C 41 47 53 00 52 54 53 00 20 00 4F 43 3A 4C 44 |LAGS.RTS. .OC:LD| 00000790: 41 23 25 31 31 31 30 31 31 31 31 3B C1 55 53 47 |A#%11101111;.USG| 000007A0: 41 42 45 20 C6 4C 41 47 20 4C 4F 45 53 43 48 45 |ABE .LAG LOESCHE| 000007B0: 4E 00 2E 42 59 24 32 43 00 4C 43 3A 4C 44 41 23 |N..BY$2C.LC:LDA#| 000007C0: 25 31 30 31 31 31 31 31 31 3B CC 49 53 54 20 C6 |%10111111;.IST .| 000007D0: 4C 41 47 20 4C 4F 45 53 43 48 45 4E 00 41 4E 44 |LAG LOESCHEN.AND| 000007E0: 41 53 53 46 4C 41 47 53 00 53 54 41 41 53 53 46 |ASSFLAGS.STAASSF| 000007F0: 4C 41 47 53 00 52 54 53 00 20 00 57 41 3A 4C 44 |LAGS.RTS. .WA:LD| 00000800: 41 41 53 53 46 4C 32 3B D7 41 49 54 20 C6 4C 41 |AASSFL2;.AIT .LA| 00000810: 47 00 4F 52 41 23 31 32 38 00 53 54 41 41 53 53 |G.ORA#128.STAASS| 00000820: 46 4C 32 3B 53 45 54 5A 45 4E 00 52 54 53 00 43 |FL2;SETZEN.RTS.C| 00000830: 4F 3A 4C 44 41 41 53 53 46 4C 32 00 41 4E 44 23 |O:LDAASSFL2.AND#| 00000840: 25 30 31 31 31 31 31 31 31 3B 4C 4F 45 53 43 48 |%01111111;LOESCH| 00000850: 45 4E 00 53 54 41 41 53 53 46 4C 32 00 52 54 53 |EN.STAASSFL2.RTS| 00000860: 00 20 00 4F 4F 45 58 3A 4A 53 52 41 55 53 44 52 |. .OOEX:JSRAUSDR| 00000870: 55 43 4B 3B CF 50 45 52 41 4E 44 20 41 55 53 47 |UCK;.PERAND AUSG| 00000880: 45 42 45 4E 00 4C 44 41 5A 41 48 4C 31 2B 31 3B |EBEN.LDAZAHL1+1;| 00000890: 5A 41 48 4C 31 20 41 55 53 47 45 42 45 4E 00 4A |ZAHL1 AUSGEBEN.J| 000008A0: 53 52 48 45 58 4F 55 54 00 4C 44 41 5A 41 48 4C |SRHEXOUT.LDAZAHL| 000008B0: 31 00 4A 53 52 48 45 58 4F 55 54 00 4A 4D 50 4E |1.JSRHEXOUT.JMPN| 000008C0: 45 58 54 5A 45 49 00 20 00 42 45 3A 4A 53 52 41 |EXTZEI. .BE:JSRA| 000008D0: 55 53 44 52 55 43 4B 3B C2 C5 C5 D0 00 4C 44 41 |USDRUCK;.....LDA| 000008E0: 5A 41 48 4C 31 2B 31 00 42 4E 45 42 49 47 45 52 |ZAHL1+1.BNEBIGER| 000008F0: 3B DA 41 48 4C 20 5A 55 20 47 52 4F 53 53 00 4C |;.AHL ZU GROSS.L| 00000900: 44 41 5A 41 48 4C 31 00 43 4D 50 23 33 00 42 43 |DAZAHL1.CMP#3.BC| 00000910: 53 42 49 47 45 52 3B DA 41 48 4C 20 5A 55 20 47 |SBIGER;.AHL ZU G| 00000920: 52 4F 53 53 00 43 4D 50 23 30 00 42 45 51 45 58 |ROSS.CMP#0.BEQEX| 00000930: 42 45 3B D0 41 53 53 20 31 20 55 2E 20 32 00 4C |BE;.ASS 1 U. 2.L| 00000940: 44 41 41 53 53 46 4C 41 47 53 3B D0 41 53 53 20 |DAASSFLAGS;.ASS | 00000950: 48 4F 4C 45 4E 00 41 53 4C 00 4C 44 41 23 30 00 |HOLEN.ASL.LDA#0.| 00000960: 52 4F 4C 00 54 41 58 00 49 4E 58 00 43 50 58 5A |ROL.TAX.INX.CPXZ| 00000970: 41 48 4C 31 3B 3D 5A 41 48 4C 31 20 3F 00 42 45 |AHL1;=ZAHL1 ?.BE| 00000980: 51 45 58 42 45 3B 4A 41 00 52 54 53 00 45 58 42 |QEXBE;JA.RTS.EXB| 00000990: 45 3A 4C 44 41 23 31 30 3B C2 45 45 50 20 41 55 |E:LDA#10;.EEP AU| 000009A0: 53 46 55 45 48 52 45 4E 00 53 54 41 53 49 44 2B |SFUEHREN.STASID+| 000009B0: 35 00 4C 44 41 23 33 30 00 53 54 41 53 49 44 2B |5.LDA#30.STASID+| 000009C0: 31 00 4C 44 41 23 33 32 00 53 54 41 53 49 44 2B |1.LDA#32.STASID+| 000009D0: 34 00 4C 44 41 23 33 33 00 53 54 41 53 49 44 2B |4.LDA#33.STASID+| 000009E0: 34 00 52 54 53 00 42 49 47 45 52 3A 4C 44 58 23 |4.RTS.BIGER:LDX#| 000009F0: 34 34 3B 5A 41 48 4C 20 5A 55 20 47 52 4F 53 53 |44;ZAHL ZU GROSS| 00000A00: 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 20 00 45 |.JMPASSERROR. .E| 00000A10: 51 3A 4C 44 41 42 55 46 46 45 52 32 3B CC 41 42 |Q:LDABUFFER2;.AB| 00000A20: 45 4C 20 D7 45 52 54 20 5A 55 57 45 49 53 45 4E |EL .ERT ZUWEISEN| 00000A30: 00 42 4E 45 45 58 45 51 00 4C 44 58 23 34 36 3B |.BNEEXEQ.LDX#46;| 00000A40: D3 59 4D 42 4F 4C 20 46 45 48 4C 54 00 4A 4D 50 |.YMBOL FEHLT.JMP| 00000A50: 41 53 53 45 52 52 4F 52 00 45 58 45 51 3A 4C 44 |ASSERROR.EXEQ:LD| 00000A60: 41 50 43 3B D0 C3 20 4D 45 52 4B 45 4E 00 50 48 |APC;.. MERKEN.PH| 00000A70: 41 00 4C 44 41 50 43 2B 31 00 50 48 41 00 4C 44 |A.LDAPC+1.PHA.LD| 00000A80: 59 23 24 46 46 00 50 55 4E 41 4D 45 3A 49 4E 59 |Y#$FF.PUNAME:INY| 00000A90: 3B 4E 41 4D 45 20 4D 45 52 4B 45 4E 00 4C 44 41 |;NAME MERKEN.LDA| 00000AA0: 42 55 46 46 45 52 32 2C 59 00 50 48 41 00 42 4E |BUFFER2,Y.PHA.BN| 00000AB0: 45 50 55 4E 41 4D 45 00 54 59 41 00 50 48 41 00 |EPUNAME.TYA.PHA.| 00000AC0: 4A 53 52 41 55 53 44 52 55 43 4B 3B CC 41 42 45 |JSRAUSDRUCK;.ABE| 00000AD0: 4C 57 45 52 54 20 48 4F 4C 45 4E 00 4C 44 41 4C |LWERT HOLEN.LDAL| 00000AE0: 41 42 45 4C 54 59 50 00 42 50 4C 45 51 44 45 46 |ABELTYP.BPLEQDEF| 00000AF0: 00 4C 44 58 23 34 32 3B D7 45 52 54 20 4E 49 43 |.LDX#42;.ERT NIC| 00000B00: 48 54 20 44 45 46 2E 00 49 4E 43 46 45 48 4C 45 |HT DEF..INCFEHLE| 00000B10: 52 00 42 4E 45 45 51 4C 41 55 4E 44 45 46 00 49 |R.BNEEQLAUNDEF.I| 00000B20: 4E 43 46 45 48 4C 45 52 2B 31 00 45 51 4C 41 55 |NCFEHLER+1.EQLAU| 00000B30: 4E 44 45 46 3A 4A 53 52 41 53 53 45 52 52 4F 52 |NDEF:JSRASSERROR| 00000B40: 00 45 51 44 45 46 3A 50 4C 41 00 54 41 59 00 50 |.EQDEF:PLA.TAY.P| 00000B50: 55 4E 41 4D 45 32 3A 50 4C 41 3B CC 41 42 45 4C |UNAME2:PLA;.ABEL| 00000B60: 4E 41 4D 45 20 5A 55 52 55 45 43 4B 53 45 54 5A |NAME ZURUECKSETZ| 00000B70: 45 4E 00 53 54 41 42 55 46 46 45 52 32 2C 59 00 |EN.STABUFFER2,Y.| 00000B80: 44 45 59 00 42 50 4C 50 55 4E 41 4D 45 32 00 46 |DEY.BPLPUNAME2.F| 00000B90: 49 58 3A 4C 44 41 5A 41 48 4C 31 3B D0 C3 3D CC |IX:LDAZAHL1;..=.| 00000BA0: 41 42 45 4C 57 45 52 54 00 53 54 41 50 43 00 4C |ABELWERT.STAPC.L| 00000BB0: 44 41 5A 41 48 4C 31 2B 31 00 53 54 41 50 43 2B |DAZAHL1+1.STAPC+| 00000BC0: 31 00 4C 44 41 41 53 53 46 4C 32 3B CC 41 42 45 |1.LDAASSFL2;.ABE| 00000BD0: 4C 20 49 4E 20 D4 41 42 45 4C 4C 45 20 42 52 49 |L IN .ABELLE BRI| 00000BE0: 4E 47 45 4E 00 4F 52 41 23 36 34 00 53 54 41 41 |NGEN.ORA#64.STAA| 00000BF0: 53 53 46 4C 32 00 4C 44 41 41 53 53 46 4C 41 47 |SSFL2.LDAASSFLAG| 00000C00: 53 00 4F 52 41 23 31 00 53 54 41 41 53 53 46 4C |S.ORA#1.STAASSFL| 00000C10: 41 47 53 00 4A 53 52 49 4E 53 4C 42 4C 00 4C 44 |AGS.JSRINSLBL.LD| 00000C20: 41 41 53 53 46 4C 41 47 53 00 41 4E 44 23 32 35 |AASSFLAGS.AND#25| 00000C30: 34 00 53 54 41 41 53 53 46 4C 41 47 53 00 50 4C |4.STAASSFLAGS.PL| 00000C40: 41 3B D0 C3 20 5A 55 52 55 45 43 4B 53 45 54 5A |A;.. ZURUECKSETZ| 00000C50: 45 4E 00 53 54 41 50 43 2B 31 00 50 4C 41 00 53 |EN.STAPC+1.PLA.S| 00000C60: 54 41 50 43 00 52 54 53 00 20 00 50 43 4F 55 54 |TAPC.RTS. .PCOUT| 00000C70: 3A 4C 44 41 41 53 53 46 4C 41 47 53 3B D0 C3 20 |:LDAASSFLAGS;.. | 00000C80: 41 55 53 47 45 42 45 4E 00 41 4E 44 23 36 34 00 |AUSGEBEN.AND#64.| 00000C90: 42 4E 45 2A 2B 33 00 50 43 4F 55 54 52 54 3A 52 |BNE*+3.PCOUTRT:R| 00000CA0: 54 53 3B 4B 45 49 4E 45 20 C1 55 53 47 41 42 45 |TS;KEINE .USGABE| 00000CB0: 00 4C 44 41 41 53 53 46 4C 41 47 53 00 42 50 4C |.LDAASSFLAGS.BPL| 00000CC0: 50 43 4F 55 54 52 54 00 4C 44 41 50 43 2B 31 3B |PCOUTRT.LDAPC+1;| 00000CD0: D0 C3 20 41 55 53 47 45 42 45 4E 00 4A 53 52 48 |.. AUSGEBEN.JSRH| 00000CE0: 45 58 4F 55 54 00 4C 44 41 50 43 00 4A 4D 50 48 |EXOUT.LDAPC.JMPH| 00000CF0: 45 58 4F 55 54 00 20 00 45 58 49 4E 3A 4C 44 41 |EXOUT. .EXIN:LDA| 00000D00: 42 55 46 46 45 52 32 3B 27 2E 49 4E 27 20 C2 45 |BUFFER2;'.IN' .E| 00000D10: 46 45 48 4C 00 42 4E 45 45 58 49 4E 32 00 4C 44 |FEHL.BNEEXIN2.LD| 00000D20: 58 23 34 36 3B D3 59 4D 42 4F 4C 20 46 45 48 4C |X#46;.YMBOL FEHL| 00000D30: 54 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 45 58 |T.JMPASSERROR.EX| 00000D40: 49 4E 32 3A 4A 53 52 54 58 45 58 3B D4 45 58 54 |IN2:JSRTXEX;.EXT| 00000D50: 20 44 52 55 43 4B 45 4E 00 4C 44 41 50 43 3B D0 | DRUCKEN.LDAPC;.| 00000D60: C3 20 4D 45 52 4B 45 4E 00 50 48 41 00 4C 44 41 |. MERKEN.PHA.LDA| 00000D70: 50 43 2B 31 00 50 48 41 00 4C 44 41 41 53 53 46 |PC+1.PHA.LDAASSF| 00000D80: 4C 41 47 53 00 41 4E 44 23 25 31 31 31 31 31 30 |LAGS.AND#%111110| 00000D90: 31 31 00 53 54 41 41 53 53 46 4C 41 47 53 00 4A |11.STAASSFLAGS.J| 00000DA0: 53 52 5A 41 48 4C 49 4E 3B D7 45 52 54 20 45 49 |SRZAHLIN;.ERT EI| 00000DB0: 4E 4C 45 53 45 4E 00 4C 44 41 41 53 53 46 4C 41 |NLESEN.LDAASSFLA| 00000DC0: 47 53 00 4F 52 41 23 34 00 53 54 41 41 53 53 46 |GS.ORA#4.STAASSF| 00000DD0: 4C 41 47 53 00 4A 53 52 4E 45 58 54 5A 45 49 00 |LAGS.JSRNEXTZEI.| 00000DE0: 4A 4D 50 46 49 58 3B 55 4E 44 20 CC 41 42 45 4C |JMPFIX;UND .ABEL| 00000DF0: 20 45 49 4E 54 52 41 47 45 4E 00 20 00 54 58 3A | EINTRAGEN. .TX:| 00000E00: 4A 53 52 54 58 45 58 3B 2E 54 58 20 D4 45 58 54 |JSRTXEX;.TX .EXT| 00000E10: 20 44 52 55 43 4B 45 4E 00 4A 4D 50 4E 45 58 54 | DRUCKEN.JMPNEXT| 00000E20: 5A 45 49 00 20 00 54 58 45 58 3A 4C 44 41 4F 50 |ZEI. .TXEX:LDAOP| 00000E30: 45 52 41 4E 44 00 43 4D 50 23 33 34 3B 41 55 46 |ERAND.CMP#34;AUF| 00000E40: 20 27 22 27 20 54 45 53 54 45 4E 00 42 4E 45 54 | '"' TESTEN.BNET| 00000E50: 58 32 00 4C 44 58 23 30 00 54 58 33 3A 49 4E 58 |X2.LDX#0.TX3:INX| 00000E60: 00 4C 44 41 4F 50 45 52 41 4E 44 2C 58 00 42 45 |.LDAOPERAND,X.BE| 00000E70: 51 54 58 32 3B C1 42 42 52 55 43 48 20 4D 49 54 |QTX2;.BBRUCH MIT| 00000E80: 20 30 00 43 4D 50 23 33 34 00 42 45 51 54 58 32 | 0.CMP#34.BEQTX2| 00000E90: 3B C1 42 42 52 55 43 48 20 4D 49 54 20 27 22 27 |;.BBRUCH MIT '"'| 00000EA0: 00 4A 53 52 42 53 4F 55 54 3B C1 55 53 47 41 42 |.JSRBSOUT;.USGAB| 00000EB0: 45 00 4A 4D 50 54 58 33 00 54 58 32 3A 52 54 53 |E.JMPTX3.TX2:RTS| 00000EC0: 00 20 00 50 31 3F 3A 4A 53 52 50 41 53 41 52 47 |. .P1?:JSRPASARG| 00000ED0: 3B C2 4C 4F 43 4B 20 42 45 49 20 D0 41 53 53 20 |;.LOCK BEI .ASS | 00000EE0: 31 00 42 50 4C 42 4C 4F 3B C2 4C 4F 43 4B 20 4F |1.BPLBLO;.LOCK O| 00000EF0: 45 46 46 4E 45 4E 00 52 54 53 00 50 32 3F 3A 4A |EFFNEN.RTS.P2?:J| 00000F00: 53 52 50 41 53 41 52 47 3B C2 4C 4F 43 4B 20 42 |SRPASARG;.LOCK B| 00000F10: 45 49 20 D0 41 53 53 20 32 00 42 4D 49 42 4C 4F |EI .ASS 2.BMIBLO| 00000F20: 3B C2 4C 4F 43 4B 20 4F 45 46 46 4E 45 4E 00 52 |;.LOCK OEFFNEN.R| 00000F30: 54 53 00 45 3F 3A 4A 53 52 41 52 47 55 4D 45 3B |TS.E?:JSRARGUME;| 00000F40: C2 4C 4F 43 4B 20 42 45 49 20 3D 20 30 00 4C 44 |.LOCK BEI = 0.LD| 00000F50: 41 5A 41 48 4C 31 3B 54 45 53 54 45 4E 00 4F 52 |AZAHL1;TESTEN.OR| 00000F60: 41 5A 41 48 4C 31 2B 31 00 42 45 51 42 4C 4F 3B |AZAHL1+1.BEQBLO;| 00000F70: C2 4C 4F 43 4B 20 4F 45 46 46 4E 45 4E 00 52 54 |.LOCK OEFFNEN.RT| 00000F80: 53 00 4E 3F 3A 4A 53 52 41 52 47 55 4D 45 3B C2 |S.N?:JSRARGUME;.| 00000F90: 4C 4F 43 4B 20 42 45 49 20 3C 3E 20 30 00 4C 44 |LOCK BEI <> 0.LD| 00000FA0: 41 5A 41 48 4C 31 00 4F 52 41 5A 41 48 4C 31 2B |AZAHL1.ORAZAHL1+| 00000FB0: 31 00 42 4E 45 42 4C 4F 3B C2 4C 4F 43 4B 20 4F |1.BNEBLO;.LOCK O| 00000FC0: 45 46 46 4E 45 4E 00 52 54 53 00 50 3F 3A 4A 53 |EFFNEN.RTS.P?:JS| 00000FD0: 52 41 52 47 55 4D 45 3B C2 4C 4F 43 4B 20 42 45 |RARGUME;.LOCK BE| 00000FE0: 49 20 3E 20 30 00 4C 44 41 5A 41 48 4C 31 2B 31 |I > 0.LDAZAHL1+1| 00000FF0: 00 42 50 4C 42 4C 4F 3B C2 4C 4F 43 4B 20 4F 45 |.BPLBLO;.LOCK OE| 00001000: 46 46 4E 45 4E 00 52 54 53 00 4D 3F 3A 4A 53 52 |FFNEN.RTS.M?:JSR| 00001010: 41 52 47 55 4D 45 3B C2 4C 4F 43 4B 20 42 45 49 |ARGUME;.LOCK BEI| 00001020: 20 3C 20 30 00 4C 44 41 5A 41 48 4C 31 2B 31 00 | < 0.LDAZAHL1+1.| 00001030: 42 4D 49 42 4C 4F 3B C2 4C 4F 43 4B 20 4F 45 46 |BMIBLO;.LOCK OEF| 00001040: 46 4E 45 4E 00 52 54 53 00 20 00 41 52 47 55 4D |FNEN.RTS. .ARGUM| 00001050: 45 3A 4C 44 41 41 53 53 46 4C 41 47 53 3B C1 52 |E:LDAASSFLAGS;.R| 00001060: 47 55 4D 45 4E 54 20 48 4F 4C 45 4E 00 41 4E 44 |GUMENT HOLEN.AND| 00001070: 23 33 32 00 42 45 51 4E 4F 42 4C 4F 00 42 4C 4F |#32.BEQNOBLO.BLO| 00001080: 45 52 52 3A 4C 44 58 23 34 35 3B C2 4C 4F 43 4B |ERR:LDX#45;.LOCK| 00001090: 20 42 45 52 45 49 54 53 20 4F 46 46 45 4E 00 4A | BEREITS OFFEN.J| 000010A0: 4D 50 41 53 53 45 52 52 4F 52 00 4E 4F 42 4C 4F |MPASSERROR.NOBLO| 000010B0: 3A 4C 44 41 41 53 53 46 4C 41 47 53 3B C1 52 47 |:LDAASSFLAGS;.RG| 000010C0: 55 4D 45 4E 54 20 48 4F 4C 45 4E 00 4F 52 41 23 |UMENT HOLEN.ORA#| 000010D0: 33 32 00 53 54 41 41 53 53 46 4C 41 47 53 00 4A |32.STAASSFLAGS.J| 000010E0: 4D 50 41 55 53 44 52 55 43 4B 00 42 4C 4F 3A 4C |MPAUSDRUCK.BLO:L| 000010F0: 44 41 41 53 53 46 4C 41 47 53 00 41 4E 44 23 25 |DAASSFLAGS.AND#%| 00001100: 31 31 30 31 31 31 31 31 00 53 54 41 41 53 53 46 |11011111.STAASSF| 00001110: 4C 41 47 53 00 52 54 53 00 20 00 50 41 53 41 52 |LAGS.RTS. .PASAR| 00001120: 47 3A 4C 44 41 41 53 53 46 4C 41 47 53 3B D0 41 |G:LDAASSFLAGS;.A| 00001130: 53 53 20 48 4F 4C 45 4E 00 41 4E 44 23 33 32 00 |SS HOLEN.AND#32.| 00001140: 42 4E 45 42 4C 4F 45 52 52 00 4C 44 41 41 53 53 |BNEBLOERR.LDAASS| 00001150: 46 4C 41 47 53 00 41 4E 44 23 25 31 31 30 31 31 |FLAGS.AND#%11011| 00001160: 31 31 31 00 53 54 41 41 53 53 46 4C 41 47 53 00 |111.STAASSFLAGS.| 00001170: 52 54 53 00 20 00 50 4F 49 41 3A 2E 45 51 53 43 |RTS. .POIA:.EQSC| 00001180: 52 4F 4C 4C 46 4C 41 47 3B C8 49 4C 46 53 50 4F |ROLLFLAG;.ILFSPO| 00001190: 49 4E 54 45 52 00 50 4F 49 4C 3A 2E 45 51 42 55 |INTER.POIL:.EQBU| 000011A0: 46 46 45 52 2B 38 32 00 50 4F 49 48 3A 2E 45 51 |FFER+82.POIH:.EQ| 000011B0: 42 55 46 46 45 52 2B 38 33 00 20 00 4F 50 4B 45 |BUFFER+83. .OPKE| 000011C0: 54 54 45 3A 4C 44 41 23 30 3B CB 45 54 54 45 20 |TTE:LDA#0;.ETTE | 000011D0: 56 4F 4E 20 CF 50 45 52 41 4E 44 45 4E 20 41 55 |VON .PERANDEN AU| 000011E0: 53 57 45 52 54 45 4E 00 53 54 41 50 4F 49 4C 00 |SWERTEN.STAPOIL.| 000011F0: 4C 44 59 23 32 34 00 45 52 41 3A 53 54 41 42 55 |LDY#24.ERA:STABU| 00001200: 46 46 45 52 33 2C 59 3B 42 55 46 46 45 52 33 20 |FFER3,Y;BUFFER3 | 00001210: 4C 4F 45 53 43 48 45 4E 00 44 45 59 00 42 50 4C |LOESCHEN.DEY.BPL| 00001220: 45 52 41 00 54 41 59 00 53 54 41 50 4F 49 48 00 |ERA.TAY.STAPOIH.| 00001230: 4F 50 4B 45 3A 4C 44 41 4F 50 45 52 41 4E 44 2C |OPKE:LDAOPERAND,| 00001240: 59 00 42 45 51 4B 45 54 45 4E 44 3B C5 4E 44 45 |Y.BEQKETEND;.NDE| 00001250: 20 44 45 52 20 CB 45 54 54 45 20 45 52 52 45 49 | DER .ETTE ERREI| 00001260: 43 48 54 00 43 4D 50 23 33 39 3B 27 27 27 20 47 |CHT.CMP#39;''' G| 00001270: 45 46 55 4E 44 45 4E 00 42 4E 45 2A 2B 32 2B 31 |EFUNDEN.BNE*+2+1| 00001280: 2B 32 00 49 4E 59 00 42 4E 45 49 4E 46 4C 41 47 |+2.INY.BNEINFLAG| 00001290: 53 3B 2D 3E 49 4E 46 4C 41 47 53 00 43 4D 50 23 |S;->INFLAGS.CMP#| 000012A0: 27 2C 3B 45 49 4E 20 CF 50 45 52 41 4E 44 20 47 |',;EIN .PERAND G| 000012B0: 45 46 55 4E 44 45 4E 00 42 45 51 45 49 4E 4D 41 |EFUNDEN.BEQEINMA| 000012C0: 4C 00 49 4E 46 4C 41 47 53 3A 49 4E 59 00 42 4E |L.INFLAGS:INY.BN| 000012D0: 45 4F 50 4B 45 00 45 49 4E 4D 41 4C 3A 4C 44 41 |EOPKE.EINMAL:LDA| 000012E0: 4F 50 45 52 41 4E 44 3B 45 49 4E 45 4E 20 CF 50 |OPERAND;EINEN .P| 000012F0: 45 52 41 4E 44 20 41 55 53 57 45 52 54 45 4E 00 |ERAND AUSWERTEN.| 00001300: 43 4D 50 23 27 22 00 42 4E 45 45 49 4E 4D 3B 4B |CMP#'".BNEEINM;K| 00001310: 45 49 4E 45 20 DA 45 49 43 48 45 4E 4B 45 54 54 |EINE .EICHENKETT| 00001320: 45 00 4C 44 41 4F 50 45 52 41 4E 44 2D 31 2C 59 |E.LDAOPERAND-1,Y| 00001330: 00 43 4D 50 23 27 22 00 42 4E 45 49 4E 46 4C 41 |.CMP#'".BNEINFLA| 00001340: 47 53 3B 4B 45 49 4E 45 20 DA 45 49 43 48 2E 00 |GS;KEINE .EICH..| 00001350: 45 49 4E 4D 3A 4C 44 41 23 30 3B CF 50 45 52 41 |EINM:LDA#0;.PERA| 00001360: 4E 44 20 4D 49 54 20 30 20 41 42 53 43 48 4C 49 |ND MIT 0 ABSCHLI| 00001370: 45 53 53 45 4E 00 53 54 41 4F 50 45 52 41 4E 44 |ESSEN.STAOPERAND| 00001380: 2C 59 00 53 54 59 50 4F 49 41 00 4C 44 41 4F 50 |,Y.STYPOIA.LDAOP| 00001390: 45 52 41 4E 44 00 43 4D 50 23 27 22 00 42 45 51 |ERAND.CMP#'".BEQ| 000013A0: 54 45 58 54 3B DA 45 49 43 48 45 4E 4B 45 54 54 |TEXT;.EICHENKETT| 000013B0: 45 20 41 42 4C 45 47 45 4E 00 4A 53 52 41 55 53 |E ABLEGEN.JSRAUS| 000013C0: 44 52 55 43 4B 3B 53 4F 4E 53 54 20 C1 53 44 52 |DRUCK;SONST .SDR| 000013D0: 55 43 4B 20 42 45 52 45 43 48 4E 45 4E 00 54 52 |UCK BERECHNEN.TR| 000013E0: 54 3A 4C 44 59 50 4F 49 41 3B CB 45 54 54 45 20 |T:LDYPOIA;.ETTE | 000013F0: 42 49 53 20 CB 4F 4D 4D 41 50 4F 53 49 54 49 4F |BIS .OMMAPOSITIO| 00001400: 4E 00 49 4E 59 3B 4C 49 4E 4B 53 53 43 48 49 45 |N.INY;LINKSSCHIE| 00001410: 42 45 4E 00 4C 44 58 23 30 00 54 52 41 4F 4B 3A |BEN.LDX#0.TRAOK:| 00001420: 4C 44 41 4F 50 45 52 41 4E 44 2C 59 00 53 54 41 |LDAOPERAND,Y.STA| 00001430: 4F 50 45 52 41 4E 44 2C 58 00 42 45 51 45 4F 4B |OPERAND,X.BEQEOK| 00001440: 00 49 4E 59 00 49 4E 58 00 42 4E 45 54 52 41 4F |.INY.INX.BNETRAO| 00001450: 4B 00 45 4F 4B 3A 4C 44 59 50 4F 49 4C 3B CF 50 |K.EOK:LDYPOIL;.P| 00001460: 45 52 41 4E 44 20 4D 45 52 4B 45 4E 00 4C 44 41 |ERAND MERKEN.LDA| 00001470: 5A 41 48 4C 31 00 53 54 41 4F 50 42 55 46 46 45 |ZAHL1.STAOPBUFFE| 00001480: 52 2C 59 3B 49 4E 20 4F 50 42 55 46 46 45 52 20 |R,Y;IN OPBUFFER | 00001490: 4C 4F 57 00 49 4E 43 50 4F 49 4C 00 4C 44 59 50 |LOW.INCPOIL.LDYP| 000014A0: 4F 49 48 00 43 50 59 23 32 35 00 42 43 53 54 4F |OIH.CPY#25.BCSTO| 000014B0: 4D 55 00 4C 44 41 5A 41 48 4C 31 2B 31 3B 49 4E |MU.LDAZAHL1+1;IN| 000014C0: 20 42 55 46 46 45 52 33 20 48 49 47 48 00 53 54 | BUFFER3 HIGH.ST| 000014D0: 41 42 55 46 46 45 52 33 2C 59 00 49 4E 43 50 4F |ABUFFER3,Y.INCPO| 000014E0: 49 48 3B 57 45 49 54 45 52 20 41 55 53 57 45 52 |IH;WEITER AUSWER| 000014F0: 54 45 4E 00 54 4F 4D 55 3A 4C 44 59 23 30 00 42 |TEN.TOMU:LDY#0.B| 00001500: 45 51 4F 50 4B 45 00 20 00 4B 45 54 45 4E 44 3A |EQOPKE. .KETEND:| 00001510: 49 4E 59 3B CB 45 54 54 45 4E 45 4E 44 45 20 45 |INY;.ETTENENDE E| 00001520: 52 52 45 49 43 48 54 00 53 54 41 4F 50 45 52 41 |RREICHT.STAOPERA| 00001530: 4E 44 2C 59 00 44 45 59 00 50 48 50 00 4C 44 41 |ND,Y.DEY.PHP.LDA| 00001540: 23 27 22 3B 4C 45 54 5A 54 45 52 20 CF 50 45 52 |#'";LETZTER .PER| 00001550: 41 4E 44 3D D4 45 58 54 3F 00 43 4D 50 4F 50 45 |AND=.EXT?.CMPOPE| 00001560: 52 41 4E 44 00 42 4E 45 4E 4F 54 41 53 54 52 3B |RAND.BNENOTASTR;| 00001570: CE 45 49 4E 00 43 4D 50 4F 50 45 52 41 4E 44 2D |.EIN.CMPOPERAND-| 00001580: 31 2C 59 3B D4 45 58 54 20 4D 49 54 20 22 20 41 |1,Y;.EXT MIT " A| 00001590: 42 47 45 53 43 48 4C 4F 53 53 45 4E 3F 00 42 45 |BGESCHLOSSEN?.BE| 000015A0: 51 4E 4F 54 41 53 54 52 00 53 54 41 4F 50 45 52 |QNOTASTR.STAOPER| 000015B0: 41 4E 44 2C 59 3B 4E 45 49 4E 2D 3E CB 4F 52 52 |AND,Y;NEIN->.ORR| 000015C0: 45 4B 54 55 52 00 49 4E 59 00 4C 44 41 23 30 00 |EKTUR.INY.LDA#0.| 000015D0: 53 54 41 4F 50 45 52 41 4E 44 2C 59 00 53 54 41 |STAOPERAND,Y.STA| 000015E0: 4F 50 45 52 41 4E 44 2B 31 2C 59 00 4E 4F 54 41 |OPERAND+1,Y.NOTA| 000015F0: 53 54 52 3A 50 4C 50 00 42 4E 45 45 49 4E 4D 41 |STR:PLP.BNEEINMA| 00001600: 4C 3B 4C 45 5A 54 45 4E 20 D7 45 52 54 20 42 45 |L;LEZTEN .ERT BE| 00001610: 52 45 43 48 4E 45 4E 00 52 54 53 00 20 00 54 45 |RECHNEN.RTS. .TE| 00001620: 58 54 3A 4C 44 58 50 4F 49 4C 3B D4 45 58 54 20 |XT:LDXPOIL;.EXT | 00001630: 41 42 4C 45 47 45 4E 00 4C 44 59 23 30 00 54 45 |ABLEGEN.LDY#0.TE| 00001640: 58 54 4C 3A 49 4E 59 00 4C 44 41 4F 50 45 52 41 |XTL:INY.LDAOPERA| 00001650: 4E 44 2C 59 00 43 4D 50 23 27 22 00 42 45 51 45 |ND,Y.CMP#'".BEQE| 00001660: 4E 44 54 45 58 54 3B D4 45 58 54 45 4E 44 45 20 |NDTEXT;.EXTENDE | 00001670: 45 52 52 45 49 43 48 54 00 53 54 41 4F 50 42 55 |ERREICHT.STAOPBU| 00001680: 46 46 45 52 2C 58 3B 53 4F 4E 53 54 20 D4 45 58 |FFER,X;SONST .EX| 00001690: 54 20 41 42 4C 45 47 45 4E 00 53 54 41 5A 41 48 |T ABLEGEN.STAZAH| 000016A0: 4C 31 00 49 4E 58 00 49 4E 43 50 4F 49 48 00 42 |L1.INX.INCPOIH.B| 000016B0: 4E 45 54 45 58 54 4C 00 45 4E 44 54 45 58 54 3A |NETEXTL.ENDTEXT:| 000016C0: 44 45 58 00 53 54 58 50 4F 49 4C 00 4A 4D 50 54 |DEX.STXPOIL.JMPT| 000016D0: 52 54 00 20 00 57 4F 3A 4C 44 41 23 30 3B 2E 57 |RT. .WO:LDA#0;.W| 000016E0: 4F 20 D7 4F 52 54 57 45 49 53 45 20 41 42 4C 45 |O .ORTWEISE ABLE| 000016F0: 47 45 4E 00 2E 42 59 24 32 43 00 41 44 3A 4C 44 |GEN..BY$2C.AD:LD| 00001700: 41 23 31 3B 2E 41 44 20 2E 57 4F 20 4D 49 54 20 |A#1;.AD .WO MIT | 00001710: 46 41 4C 53 43 48 45 52 20 D2 45 49 48 45 4E 46 |FALSCHER .EIHENF| 00001720: 4F 4C 47 45 00 50 48 41 00 4A 53 52 4F 50 4B 45 |OLGE.PHA.JSROPKE| 00001730: 54 54 45 3B 49 4E 20 D0 41 53 53 20 32 00 4C 44 |TTE;IN .ASS 2.LD| 00001740: 58 23 30 00 4C 44 41 50 4F 49 4C 00 43 4D 50 23 |X#0.LDAPOIL.CMP#| 00001750: 32 35 00 42 43 43 41 57 4C 4F 4F 50 00 4C 44 58 |25.BCCAWLOOP.LDX| 00001760: 23 36 31 3B 5A 55 20 56 49 45 4C 45 20 CF 50 45 |#61;ZU VIELE .PE| 00001770: 52 41 4E 44 45 4E 00 4A 4D 50 41 53 53 45 52 52 |RANDEN.JMPASSERR| 00001780: 4F 52 00 41 57 4C 4F 4F 50 3A 50 4C 41 00 42 4E |OR.AWLOOP:PLA.BN| 00001790: 45 41 44 4C 4F 4F 50 00 57 4F 4C 4F 4F 50 3A 4C |EADLOOP.WOLOOP:L| 000017A0: 44 41 4F 50 42 55 46 46 45 52 2C 58 3B 2E 57 4F |DAOPBUFFER,X;.WO| 000017B0: 20 41 42 4C 45 47 45 4E 00 4A 53 52 43 4F 44 45 | ABLEGEN.JSRCODE| 000017C0: 4F 55 54 50 43 3B 4C 4F 57 20 41 42 4C 45 47 45 |OUTPC;LOW ABLEGE| 000017D0: 4E 00 4C 44 41 42 55 46 46 45 52 33 2C 58 00 4A |N.LDABUFFER3,X.J| 000017E0: 53 52 43 4F 44 45 4F 55 54 50 43 3B 48 49 47 48 |SRCODEOUTPC;HIGH| 000017F0: 20 41 42 4C 45 47 45 4E 00 49 4E 58 00 43 50 58 | ABLEGEN.INX.CPX| 00001800: 50 4F 49 4C 00 42 4E 45 57 4F 4C 4F 4F 50 00 52 |POIL.BNEWOLOOP.R| 00001810: 54 53 00 41 44 4C 4F 4F 50 3A 4C 44 41 42 55 46 |TS.ADLOOP:LDABUF| 00001820: 46 45 52 33 2C 58 3B 2E 41 44 20 41 42 4C 45 47 |FER3,X;.AD ABLEG| 00001830: 45 4E 00 4A 53 52 43 4F 44 45 4F 55 54 50 43 3B |EN.JSRCODEOUTPC;| 00001840: 48 49 47 48 20 41 42 4C 45 47 45 4E 00 4C 44 41 |HIGH ABLEGEN.LDA| 00001850: 4F 50 42 55 46 46 45 52 2C 58 00 4A 53 52 43 4F |OPBUFFER,X.JSRCO| 00001860: 44 45 4F 55 54 50 43 3B 4C 4F 57 20 41 42 4C 45 |DEOUTPC;LOW ABLE| 00001870: 47 45 4E 00 49 4E 58 00 43 50 58 50 4F 49 4C 00 |GEN.INX.CPXPOIL.| 00001880: 42 4E 45 41 44 4C 4F 4F 50 00 52 54 53 00 20 00 |BNEADLOOP.RTS. .| 00001890: 42 59 3A 4A 53 52 4F 50 4B 45 54 54 45 3B C2 59 |BY:JSROPKETTE;.Y| 000018A0: 54 45 57 45 49 53 45 20 49 4E 20 D0 41 53 53 20 |TEWEISE IN .ASS | 000018B0: 32 20 41 42 4C 45 47 45 4E 00 4C 44 58 23 30 00 |2 ABLEGEN.LDX#0.| 000018C0: 42 59 4C 4F 4F 50 3A 4C 44 41 4F 50 42 55 46 46 |BYLOOP:LDAOPBUFF| 000018D0: 45 52 2C 58 00 4A 53 52 43 4F 44 45 4F 55 54 50 |ER,X.JSRCODEOUTP| 000018E0: 43 3B D7 45 52 54 45 20 41 42 4C 45 47 45 4E 00 |C;.ERTE ABLEGEN.| 000018F0: 49 4E 58 00 43 50 58 50 4F 49 4C 00 42 4E 45 42 |INX.CPXPOIL.BNEB| 00001900: 59 4C 4F 4F 50 00 52 54 53 00 20 00 52 56 3A 4A |YLOOP.RTS. .RV:J| 00001910: 53 52 4F 50 4B 45 54 54 45 3B 2E 52 56 20 3D 20 |SROPKETTE;.RV = | 00001920: 2E 42 59 20 52 55 45 43 4B 57 41 45 52 54 53 00 |.BY RUECKWAERTS.| 00001930: 4C 44 58 50 4F 49 4C 00 44 45 58 00 52 56 4C 4F |LDXPOIL.DEX.RVLO| 00001940: 4F 50 3A 4C 44 41 4F 50 42 55 46 46 45 52 2C 58 |OP:LDAOPBUFFER,X| 00001950: 3B D7 45 52 54 45 20 41 42 4C 45 47 45 4E 00 4A |;.ERTE ABLEGEN.J| 00001960: 53 52 43 4F 44 45 4F 55 54 50 43 00 44 45 58 00 |SRCODEOUTPC.DEX.| 00001970: 42 50 4C 52 56 4C 4F 4F 50 00 52 54 53 00 20 00 |BPLRVLOOP.RTS. .| 00001980: 44 50 3A 4A 53 52 4F 50 4B 45 54 54 45 3B 2E 44 |DP:JSROPKETTE;.D| 00001990: 50 20 3D 20 2E 42 59 00 4C 44 58 23 30 3B 49 4D |P = .BY.LDX#0;IM| 000019A0: 20 C4 49 53 50 4C 41 59 43 4F 44 45 00 44 50 4C | .ISPLAYCODE.DPL| 000019B0: 4F 4F 50 3A 4C 44 41 4F 50 42 55 46 46 45 52 2C |OOP:LDAOPBUFFER,| 000019C0: 58 00 50 48 50 00 41 4E 44 23 25 31 31 31 31 31 |X.PHP.AND#%11111| 000019D0: 31 3B C1 D3 C3 C9 C9 2D 3E D0 CF CB C5 00 50 4C |1;.....->.....PL| 000019E0: 50 00 42 50 4C 2A 2B 34 00 4F 52 41 23 25 30 31 |P.BPL*+4.ORA#%01| 000019F0: 30 30 30 30 30 30 00 4A 53 52 43 4F 44 45 4F 55 |000000.JSRCODEOU| 00001A00: 54 50 43 3B 41 42 4C 45 47 45 4E 00 49 4E 58 00 |TPC;ABLEGEN.INX.| 00001A10: 43 50 58 50 4F 49 4C 00 42 4E 45 44 50 4C 4F 4F |CPXPOIL.BNEDPLOO| 00001A20: 50 00 52 54 53 00 20 00 43 4F 44 45 4F 55 54 50 |P.RTS. .CODEOUTP| 00001A30: 43 3A 4A 53 52 43 4F 44 45 4F 55 54 3B C3 4F 44 |C:JSRCODEOUT;.OD| 00001A40: 45 20 41 55 53 47 45 42 45 4E 00 49 4E 43 50 43 |E AUSGEBEN.INCPC| 00001A50: 3B 55 4E 44 20 D0 C3 2B 31 00 42 4E 45 4E 4F 50 |;UND ..+1.BNENOP| 00001A60: 43 48 49 00 49 4E 43 50 43 2B 31 00 4E 4F 50 43 |CHI.INCPC+1.NOPC| 00001A70: 48 49 3A 52 54 53 00 20 00 42 59 50 41 31 3A 4A |HI:RTS. .BYPA1:J| 00001A80: 53 52 4F 50 4B 45 54 54 45 3B 2E 42 59 20 49 4E |SROPKETTE;.BY IN| 00001A90: 20 D0 41 53 53 20 31 00 41 44 44 50 43 3A 43 4C | .ASS 1.ADDPC:CL| 00001AA0: 43 3B 42 45 52 45 43 48 4E 45 20 D0 C3 2B C1 4E |C;BERECHNE ..+.N| 00001AB0: 5A 41 48 4C 20 C2 59 54 45 00 4C 44 41 50 43 00 |ZAHL .YTE.LDAPC.| 00001AC0: 41 44 43 50 4F 49 4C 00 53 54 41 50 43 00 4C 44 |ADCPOIL.STAPC.LD| 00001AD0: 41 50 43 2B 31 00 41 44 43 23 30 00 53 54 41 50 |APC+1.ADC#0.STAP| 00001AE0: 43 2B 31 00 52 54 53 00 20 00 57 4F 50 41 31 3A |C+1.RTS. .WOPA1:| 00001AF0: 4A 53 52 4F 50 4B 45 54 54 45 3B 2E 57 4F 2F 2E |JSROPKETTE;.WO/.| 00001B00: 41 44 20 49 4E 20 D0 41 53 53 20 31 00 4C 44 41 |AD IN .ASS 1.LDA| 00001B10: 50 4F 49 4C 3B C1 4E 5A 41 48 4C 20 CF 50 45 52 |POIL;.NZAHL .PER| 00001B20: 41 4E 44 45 4E 20 2A 32 00 41 53 4C 00 53 54 41 |ANDEN *2.ASL.STA| 00001B30: 50 4F 49 4C 00 43 4D 50 23 35 32 00 42 43 43 41 |POIL.CMP#52.BCCA| 00001B40: 44 44 50 43 3B 2B D0 C3 00 4C 44 58 23 36 31 3B |DDPC;+...LDX#61;| 00001B50: 5A 55 20 56 49 45 4C 45 20 CF 50 45 52 41 4E 44 |ZU VIELE .PERAND| 00001B60: 45 4E 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 20 |EN.JMPASSERROR. | 00001B70: 00 44 42 3A 4A 53 52 41 55 53 44 52 55 43 4B 3B |.DB:JSRAUSDRUCK;| 00001B80: C1 4E 5A 41 48 4C 20 C2 59 54 45 20 52 45 53 45 |.NZAHL .YTE RESE| 00001B90: 52 56 49 45 52 45 4E 00 41 44 44 50 43 32 3A 43 |RVIEREN.ADDPC2:C| 00001BA0: 4C 43 3B D0 C3 2B C1 4E 5A 41 48 4C 20 C2 59 54 |LC;..+.NZAHL .YT| 00001BB0: 45 00 4C 44 41 5A 41 48 4C 31 00 41 44 43 50 43 |E.LDAZAHL1.ADCPC| 00001BC0: 00 53 54 41 50 43 00 4C 44 41 5A 41 48 4C 31 2B |.STAPC.LDAZAHL1+| 00001BD0: 31 00 41 44 43 50 43 2B 31 00 53 54 41 50 43 2B |1.ADCPC+1.STAPC+| 00001BE0: 31 00 4C 44 41 41 53 53 46 4C 41 47 53 3B C1 55 |1.LDAASSFLAGS;.U| 00001BF0: 53 47 41 42 45 20 49 4E 20 D2 C1 CD 00 41 4E 44 |SGABE IN ....AND| 00001C00: 23 31 36 00 42 45 51 44 49 53 4B 3F 00 43 4C 43 |#16.BEQDISK?.CLC| 00001C10: 3B CA 41 2D 3E DA 45 49 47 45 52 20 45 52 48 4F |;.A->.EIGER ERHO| 00001C20: 45 48 45 4E 00 4C 44 41 5A 41 48 4C 31 00 41 44 |EHEN.LDAZAHL1.AD| 00001C30: 43 5A 47 32 00 53 54 41 5A 47 32 00 4C 44 41 5A |CZG2.STAZG2.LDAZ| 00001C40: 41 48 4C 31 2B 31 00 41 44 43 5A 47 32 2B 31 00 |AHL1+1.ADCZG2+1.| 00001C50: 53 54 41 5A 47 32 2B 31 00 44 49 53 4B 3F 3A 4C |STAZG2+1.DISK?:L| 00001C60: 44 41 46 4C 41 47 53 3B C1 55 53 47 41 42 45 20 |DAFLAGS;.USGABE | 00001C70: 41 55 46 20 C4 49 53 4B 20 3F 00 41 4E 44 23 33 |AUF .ISK ?.AND#3| 00001C80: 32 00 42 4E 45 2A 2B 33 00 52 54 53 00 4C 44 58 |2.BNE*+3.RTS.LDX| 00001C90: 23 32 3B CA 41 00 4A 53 52 43 4B 4F 55 54 00 46 |#2;.A.JSRCKOUT.F| 00001CA0: 49 4C 4C 44 49 53 4B 3A 4C 44 41 23 24 46 46 3B |ILLDISK:LDA#$FF;| 00001CB0: C3 4F 44 45 20 24 C6 C6 20 41 55 46 20 C4 49 53 |.ODE $.. AUF .IS| 00001CC0: 4B 00 4A 53 52 42 53 4F 55 54 52 00 4C 44 41 5A |K.JSRBSOUTR.LDAZ| 00001CD0: 41 48 4C 31 00 42 4E 45 5A 48 48 4E 44 00 44 45 |AHL1.BNEZHHND.DE| 00001CE0: 43 5A 41 48 4C 31 2B 31 3B C1 4E 5A 41 48 4C 2D |CZAHL1+1;.NZAHL-| 00001CF0: 31 00 5A 48 48 4E 44 3A 44 45 43 5A 41 48 4C 31 |1.ZHHND:DECZAHL1| 00001D00: 00 4C 44 41 5A 41 48 4C 31 00 4F 52 41 5A 41 48 |.LDAZAHL1.ORAZAH| 00001D10: 4C 31 2B 31 00 42 4E 45 46 49 4C 4C 44 49 53 4B |L1+1.BNEFILLDISK| 00001D20: 3B 42 49 53 20 C1 4E 5A 41 48 4C 3D 30 00 4A 53 |;BIS .NZAHL=0.JS| 00001D30: 52 43 4C 52 43 48 00 53 45 49 00 52 54 53 00 20 |RCLRCH.SEI.RTS. | 00001D40: 00 44 57 45 58 3A 4A 53 52 41 55 53 44 52 55 43 |.DWEX:JSRAUSDRUC| 00001D50: 4B 3B D7 4F 52 54 45 20 52 45 53 45 52 56 49 45 |K;.ORTE RESERVIE| 00001D60: 52 45 4E 00 41 53 4C 5A 41 48 4C 31 3B C1 4E 5A |REN.ASLZAHL1;.NZ| 00001D70: 41 48 4C 2A 32 3D C1 4E 5A 41 48 4C 20 C2 59 54 |AHL*2=.NZAHL .YT| 00001D80: 45 00 52 4F 4C 5A 41 48 4C 31 2B 31 00 4A 4D 50 |E.ROLZAHL1+1.JMP| 00001D90: 41 44 44 50 43 32 3B D7 45 49 54 45 52 20 42 45 |ADDPC2;.EITER BE| 00001DA0: 49 20 2E 44 42 00 20 00 46 49 3A 4A 53 52 43 4C |I .DB. .FI:JSRCL| 00001DB0: 52 43 48 3B 2E 46 49 20 D7 45 49 54 45 52 20 49 |RCH;.FI .EITER I| 00001DC0: 4E 20 4E 45 55 45 4D 20 C6 49 4C 45 00 4C 44 41 |N NEUEM .ILE.LDA| 00001DD0: 23 31 3B C6 49 4C 45 20 53 43 48 4C 49 45 53 53 |#1;.ILE SCHLIESS| 00001DE0: 45 4E 00 4A 53 52 43 4C 4F 53 45 00 4C 44 41 46 |EN.JSRCLOSE.LDAF| 00001DF0: 4C 41 47 53 3B C4 49 53 4B 4D 4F 44 45 20 3F 00 |LAGS;.ISKMODE ?.| 00001E00: 41 4E 44 23 31 36 00 42 4E 45 46 49 45 58 45 00 |AND#16.BNEFIEXE.| 00001E10: 4C 44 58 23 35 30 3B CD 4F 44 45 20 C5 52 52 4F |LDX#50;.ODE .RRO| 00001E20: 52 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 46 49 |R.JMPASSERROR.FI| 00001E30: 45 58 45 3A 4C 44 41 23 31 3B C6 49 4C 45 50 41 |EXE:LDA#1;.ILEPA| 00001E40: 52 41 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 4C |RAMETER SETZEN.L| 00001E50: 44 58 23 38 00 4C 44 59 23 30 00 53 54 59 41 53 |DX#8.LDY#0.STYAS| 00001E60: 5A 45 49 4C 45 00 53 54 59 41 53 5A 45 49 4C 45 |ZEILE.STYASZEILE| 00001E70: 2B 31 00 4A 53 52 53 45 54 50 41 52 41 00 4A 53 |+1.JSRSETPARA.JS| 00001E80: 52 4F 55 46 49 4E 41 4D 45 3B CE 41 4D 45 20 53 |ROUFINAME;.AME S| 00001E90: 45 54 5A 45 4E 20 55 4E 44 20 C6 49 4C 45 20 4F |ETZEN UND .ILE O| 00001EA0: 45 46 46 4E 45 4E 00 4C 44 58 23 31 3B C6 49 4C |EFFNEN.LDX#1;.IL| 00001EB0: 45 4C 41 45 4E 47 45 20 45 49 4E 4C 45 53 45 4E |ELAENGE EINLESEN| 00001EC0: 00 4A 53 52 43 48 4B 49 4E 00 4A 53 52 42 41 53 |.JSRCHKIN.JSRBAS| 00001ED0: 49 4E 52 00 4C 44 59 53 54 41 54 55 53 3B D3 54 |INR.LDYSTATUS;.T| 00001EE0: 41 54 55 53 20 54 45 53 54 45 4E 00 42 45 51 46 |ATUS TESTEN.BEQF| 00001EF0: 49 45 58 45 32 00 44 49 53 4B 46 45 48 4C 45 52 |IEXE2.DISKFEHLER| 00001F00: 3A 4A 53 52 44 49 53 4B 45 52 52 3B C4 49 53 4B |:JSRDISKERR;.ISK| 00001F10: 46 45 48 4C 45 52 00 4A 53 52 50 4F 49 4E 54 45 |FEHLER.JSRPOINTE| 00001F20: 52 00 4A 4D 50 4D 41 49 4E 52 54 3B 2D 3E C1 42 |R.JMPMAINRT;->.B| 00001F30: 42 52 55 43 48 00 46 49 45 58 45 32 3A 53 54 41 |BRUCH.FIEXE2:STA| 00001F40: 5A 41 48 4C 31 3B CC 41 45 4E 47 45 2D 3E 5A 41 |ZAHL1;.AENGE->ZA| 00001F50: 48 4C 31 00 4A 53 52 42 41 53 49 4E 52 00 53 54 |HL1.JSRBASINR.ST| 00001F60: 41 5A 41 48 4C 31 2B 31 00 4A 53 52 5A 41 48 4C |AZAHL1+1.JSRZAHL| 00001F70: 48 45 58 4F 55 54 3B CC 41 45 4E 47 45 20 41 4E |HEXOUT;.AENGE AN| 00001F80: 5A 45 49 47 45 4E 00 4C 44 41 23 33 32 00 4A 53 |ZEIGEN.LDA#32.JS| 00001F90: 52 42 53 4F 55 54 00 4C 44 59 23 31 3B 55 4E 44 |RBSOUT.LDY#1;UND| 00001FA0: 20 CE 41 4D 45 20 41 4E 5A 45 49 47 45 4E 00 50 | .AME ANZEIGEN.P| 00001FB0: 52 49 46 49 4E 41 3A 4C 44 41 4F 50 45 52 41 4E |RIFINA:LDAOPERAN| 00001FC0: 44 2C 59 00 43 4D 50 23 27 22 00 42 4E 45 2A 2B |D,Y.CMP#'".BNE*+| 00001FD0: 35 00 4A 4D 50 4E 45 58 54 5A 45 49 00 4A 53 52 |5.JMPNEXTZEI.JSR| 00001FE0: 42 53 4F 55 54 00 49 4E 59 00 42 4E 45 50 52 49 |BSOUT.INY.BNEPRI| 00001FF0: 46 49 4E 41 00 20 00 4F 55 3A 4C 44 41 46 4C 41 |FINA. .OU:LDAFLA| 00002000: 47 53 3B 2E 4F 55 20 C1 55 53 47 41 42 45 20 41 |GS;.OU .USGABE A| 00002010: 55 46 20 C4 49 53 4B 00 41 4E 44 23 33 32 00 42 |UF .ISK.AND#32.B| 00002020: 45 51 4F 55 45 58 45 00 4C 44 58 23 34 39 3B 2E |EQOUEXE.LDX#49;.| 00002030: 4F 55 20 42 45 52 45 49 54 53 20 47 45 47 45 42 |OU BEREITS GEGEB| 00002040: 45 4E 00 4A 4D 50 41 53 53 45 52 52 4F 52 00 4F |EN.JMPASSERROR.O| 00002050: 55 45 58 45 3A 4C 44 58 23 46 4C 4F 44 45 56 3B |UEXE:LDX#FLODEV;| 00002060: C6 49 4C 45 50 41 52 41 4D 45 54 45 52 20 53 45 |.ILEPARAMETER SE| 00002070: 54 5A 45 4E 00 4C 44 41 23 32 00 4C 44 59 23 31 |TZEN.LDA#2.LDY#1| 00002080: 00 4A 53 52 53 45 54 50 41 52 41 00 4A 53 52 4F |.JSRSETPARA.JSRO| 00002090: 55 46 49 4E 41 4D 45 3B CE 41 4D 45 4E 20 53 45 |UFINAME;.AMEN SE| 000020A0: 54 5A 45 4E 20 55 4E 44 20 C6 49 4C 45 20 4F 45 |TZEN UND .ILE OE| 000020B0: 46 46 4E 45 4E 00 4C 44 58 23 32 3B D3 54 41 52 |FFNEN.LDX#2;.TAR| 000020C0: 54 41 44 52 45 53 53 45 20 53 45 4E 44 45 4E 00 |TADRESSE SENDEN.| 000020D0: 4A 53 52 43 4B 4F 55 54 00 4C 44 41 5A 47 32 00 |JSRCKOUT.LDAZG2.| 000020E0: 4A 53 52 42 53 4F 55 54 52 00 4C 44 41 5A 47 32 |JSRBSOUTR.LDAZG2| 000020F0: 2B 31 00 4A 53 52 42 53 4F 55 54 52 00 4C 44 41 |+1.JSRBSOUTR.LDA| 00002100: 53 54 41 54 55 53 3B D3 54 41 54 55 53 20 54 45 |STATUS;.TATUS TE| 00002110: 53 54 45 4E 00 42 4E 45 44 49 53 4B 46 45 48 4C |STEN.BNEDISKFEHL| 00002120: 45 52 3B C4 49 53 4B 46 45 48 4C 45 52 2D 3E C1 |ER;.ISKFEHLER->.| 00002130: 42 42 52 55 43 48 00 4C 44 41 46 4C 41 47 53 3B |BBRUCH.LDAFLAGS;| 00002140: 2E 4F 55 20 C6 4C 41 47 20 53 45 54 5A 45 4E 00 |.OU .LAG SETZEN.| 00002150: 4F 52 41 23 33 32 00 53 54 41 46 4C 41 47 53 00 |ORA#32.STAFLAGS.| 00002160: 4A 53 52 43 4C 52 43 48 00 53 45 49 00 52 54 53 |JSRCLRCH.SEI.RTS| 00002170: 00 20 00 4F 55 46 49 4E 41 4D 45 3A 4C 44 59 23 |. .OUFINAME:LDY#| 00002180: 30 3B C6 49 4C 45 4E 41 4D 45 20 53 45 54 5A 45 |0;.ILENAME SETZE| 00002190: 4E 00 42 45 52 45 4C 45 4E 3A 49 4E 59 3B 55 4E |N.BERELEN:INY;UN| 000021A0: 44 20 C6 49 4C 45 20 4F 45 46 46 4E 45 4E 00 4C |D .ILE OEFFNEN.L| 000021B0: 44 41 4F 50 45 52 41 4E 44 2C 59 3B CE 41 4D 45 |DAOPERAND,Y;.AME| 000021C0: 4E 4C 41 45 4E 47 45 20 45 52 4D 49 54 54 45 4C |NLAENGE ERMITTEL| 000021D0: 4E 00 43 4D 50 23 27 22 00 42 4E 45 42 45 52 45 |N.CMP#'".BNEBERE| 000021E0: 4C 45 4E 00 44 45 59 00 54 59 41 00 4C 44 58 23 |LEN.DEY.TYA.LDX#| 000021F0: 3C 4F 50 45 52 41 4E 44 2B 31 3B CE 41 4D 45 4E |<OPERAND+1;.AMEN| 00002200: 41 44 52 45 53 53 45 00 4C 44 59 23 3E 4F 50 45 |ADRESSE.LDY#>OPE| 00002210: 52 41 4E 44 2B 31 00 4A 53 52 53 45 54 4E 41 4D |RAND+1.JSRSETNAM| 00002220: 45 3B CE 41 4D 45 4E 20 53 45 54 5A 45 4E 00 4A |E;.AMEN SETZEN.J| 00002230: 4D 50 4F 50 45 4E 3B 55 4E 44 20 C6 49 4C 45 20 |MPOPEN;UND .ILE | 00002240: 4F 45 46 46 4E 45 4E 00 20 00 46 52 4F 4D 44 49 |OEFFNEN. .FROMDI| 00002250: 53 4B 3A 4C 44 58 23 31 3B C5 49 4E 47 41 42 45 |SK:LDX#1;.INGABE| 00002260: 20 56 4F 4E 20 C4 49 53 4B 45 54 54 45 00 4A 53 | VON .ISKETTE.JS| 00002270: 52 43 48 4B 49 4E 00 4C 44 59 23 30 3B DA 45 49 |RCHKIN.LDY#0;.EI| 00002280: 4C 45 20 2D 3E 20 42 55 46 46 45 52 00 44 49 49 |LE -> BUFFER.DII| 00002290: 4E 3A 4A 53 52 42 41 53 49 4E 52 00 53 54 41 42 |N:JSRBASINR.STAB| 000022A0: 55 46 46 45 52 2C 59 00 53 54 41 45 44 42 55 46 |UFFER,Y.STAEDBUF| 000022B0: 46 45 52 2C 59 00 49 4E 59 00 43 4D 50 23 30 3B |FER,Y.INY.CMP#0;| 000022C0: C2 49 53 20 30 20 41 4C 53 20 C5 4E 44 45 20 45 |.IS 0 ALS .NDE E| 000022D0: 52 52 45 49 43 48 54 00 42 4E 45 44 49 49 4E 00 |RREICHT.BNEDIIN.| 000022E0: 4A 53 52 43 4C 52 43 48 00 4C 44 41 53 54 41 54 |JSRCLRCH.LDASTAT| 000022F0: 55 53 3B D3 54 41 54 55 53 20 54 45 53 54 45 4E |US;.TATUS TESTEN| 00002300: 00 42 4E 45 2A 2B 33 2B 31 00 53 45 49 00 52 54 |.BNE*+3+1.SEI.RT| 00002310: 53 00 4C 44 41 41 53 53 46 4C 41 47 53 3B C6 49 |S.LDAASSFLAGS;.I| 00002320: 4C 45 45 4E 44 45 20 45 52 52 45 49 43 48 54 2D |LEENDE ERREICHT-| 00002330: 3E 2E 45 4E 00 4F 52 41 23 38 00 53 54 41 41 53 |>.EN.ORA#8.STAAS| 00002340: 53 46 4C 41 47 53 00 53 45 49 00 52 54 53 00 20 |SFLAGS.SEI.RTS. | 00002350: 00 4D 4F 4E 49 54 4F 52 3A 4A 4D 50 4D 4F 4E 53 |.MONITOR:JMPMONS| 00002360: 54 41 52 54 3B D3 50 52 55 4E 47 56 45 52 4B 54 |TART;.PRUNGVERKT| 00002370: 4F 52 45 4E 20 46 55 45 52 20 C5 52 57 45 49 54 |OREN FUER .RWEIT| 00002380: 45 52 55 4E 47 45 4E 00 4A 4D 50 4D 4F 4E 49 52 |ERUNGEN.JMPMONIR| 00002390: 54 3B 49 4E 20 CD 4F 4E 49 54 4F 52 2C 20 CD 4F |T;IN .ONITOR, .O| 000023A0: 4E 49 54 4F 52 52 55 45 43 4B 53 50 52 2E 20 56 |NITORRUECKSPR. V| 000023B0: 4F 4E 20 D2 41 4D 2D D2 4F 55 54 49 4E 45 00 4A |ON .AM-.OUTINE.J| 000023C0: 4D 50 42 52 45 41 4B 3B 55 4E 44 20 4E 41 43 48 |MPBREAK;UND NACH| 000023D0: 20 C2 52 45 41 4B 00 20 00 2E 46 49 22 4D 4F 4E | .REAK. ..FI"MON| 000023E0: 22 00 00 00 |"... |
.#;;;---- QUELLDATEI PSEUDO. .;********* ******************************.;* * PSEUDO - BEFEHLE * *.;******* ********************************. .EXEPS E:LDX#$FF;PSEUDO BEFEHL SUCHEN.NEXPS:INX .LDAPSCO1,X.BNENOPSE3.LDX#43;BEFEHL UNBE KANNT.JMPASSERROR.NOPSE3:CMPBUFFER+1;ERS TEN BUCHSTABEN VERGLEICHEN.BNENEXPS.LDAP SCO2,X;ZWEITEN VERGLEICHEN.CMPBUFFER+2.B NENEXPS.TXA;GEFUNDEN.ASL.TAX.LDAASSFLAGS .BMISPPA2;ZWEITER PASS.LDAJUPA1+1,X;ADRE SSE AUF STACK.PHA.LDAJUPA1,X.PHA.RTS;ROU TINE STARTEN.SPPA2:LDAJUPA2+1,X;ROUTINE IN PASS2.PHA.LDAJUPA2,X.PHA.RTPSE:RTS;ST ARTEN. .;NAMEN DER PSEUDO-BEFEHLE.PSCO1: .BY"BEBIDDBWALLWCRD????BOOEOFCE??TO",0.P SCO2:.BY"AQENBWYODSCAOVPENMPCSCNUIBB12XO ". .;ADRESSEN DER ROUTINEN IN PASS 1.JUP A1:.WOBA-1;BA..WOEQ-1;EQ..WOBE-1;BE..WOE XIN-1;IN..WODB-1;DB..WODWEX-1;DW..WOBYPA 1-1;BY..WOWOPA1-1;WO..WOWOPA1-1;AD..WORT PSE-1;LS..WORTPSE-1;LC..WOWA-1;WA..WOCO- 1;CO..WOBYPA1-1;RV..WOBYPA1-1;DP..WOE?-1 ;E?..WON?-1;N?..WOM?-1;M?..WOP?-1;P?..WO RTPSE-1;BC..WORTPSE-1;OS..WORTPSE-1;OC.. WOEN-1;EN..WORTPSE-1;OU..WOFI-1;FI..WOCB -1;CB..WORTPSE-1;EB..WOP1?-1;?1..WOP2?-1 ;?2..WOTX-1;TX..WOOOEX-1;OO. .;ADRESSEN DER ROUTINEN IN PASS 2.JUPA2:.WOBA-1;BA. .WORTPSE-1;EQ..WOBE-1;BE..WORTPSE-1;IN.. WODB-1;DB..WODWEX-1;DW..WOBY-1;BY..WOWO- 1;WO..WOAD-1;AD..WOLS-1;LS..WOLC-1;LC..W OWA-1;WA..WOCO-1;CO..WORV-1;RV..WODP-1;D P..WOE?-1;E?..WON?-1;N?..WOM?-1;M?..WOP? -1;P?..WOBC-1;BC..WOOS-1;OS..WOOC-1;OC.. WOEN-1;EN..WOOU-1;OU..WOFI-1;FI..WOCB-1; CB..WORTPSE-1;EB..WOP1?-1;?1..WOP2?-1;?2 ..WOTX-1;TX..WOOOEX-1;OO. .BA:JSRAUSDRUC K;BASIS FESTLEGEN.LDAZAHL1;ZAHL1->PC.STA PC.STAZG2;ZAHL1->ZG2 FUER ABLAGE IN RAM. LDAZAHL1+1.STAPC+1.STAZG2+1.JMPPCOUT. .B C:JSRAUSDRUCK;RAM-BASIS FESTLEGEN.LDAZAH L1;ZAHL1->ZG2.STAZG2.LDAZAHL1+1.STAZG2+1 .RTS. .CB:JSRAUSDRUCK;CHANGE BASIS.LDAZA HL1;ZAHL1->PC.STAPC.LDAZAHL1+1.STAPC+1.R TS. .EN:LDA#8;END-FLAG SETZEN..BY$2C.OS: LDA#16;AUSGABE FLAG SETZEN..BY$2C.LS:LDA #64;LIST FLAG SETZEN.ORAASSFLAGS.STAASSF LAGS.RTS. .OC:LDA#%11101111;AUSGABE FLAG LOESCHEN..BY$2C.LC:LDA#%10111111;LIST F LAG LOESCHEN.ANDASSFLAGS.STAASSFLAGS.RTS . .WA:LDAASSFL2;WAIT FLAG.ORA#128.STAASS FL2;SETZEN.RTS.CO:LDAASSFL2.AND#%0111111 1;LOESCHEN.STAASSFL2.RTS. .OOEX:JSRAUSDR UCK;OPERAND AUSGEBEN.LDAZAHL1+1;ZAHL1 AU SGEBEN.JSRHEXOUT.LDAZAHL1.JSRHEXOUT.JMPN EXTZEI. .BE:JSRAUSDRUCK;BEEP.LDAZAHL1+1. BNEBIGER;ZAHL ZU GROSS.LDAZAHL1.CMP#3.BC SBIGER;ZAHL ZU GROSS.CMP#0.BEQEXBE;PASS 1 U. 2.LDAASSFLAGS;PASS HOLEN.ASL.LDA#0. ROL.TAX.INX.CPXZAHL1;=ZAHL1 ?.BEQEXBE;JA .RTS.EXBE:LDA#10;BEEP AUSFUEHREN.STASID+ 5.LDA#30.STASID+1.LDA#32.STASID+4.LDA#33 .STASID+4.RTS.BIGER:LDX#44;ZAHL ZU GROSS .JMPASSERROR. .EQ:LDABUFFER2;LABEL WERT ZUWEISEN.BNEEXEQ.LDX#46;SYMBOL FEHLT.JMP ASSERROR.EXEQ:LDAPC;PC MERKEN.PHA.LDAPC+ 1.PHA.LDY#$FF.PUNAME:INY;NAME MERKEN.LDA BUFFER2,Y.PHA.BNEPUNAME.TYA.PHA.JSRAUSDR UCK;LABELWERT HOLEN.LDALABELTYP.BPLEQDEF .LDX#42;WERT NICHT DEF..INCFEHLER.BNEEQL AUNDEF.INCFEHLER+1.EQLAUNDEF:JSRASSERROR .EQDEF:PLA.TAY.PUNAME2:PLA;LABELNAME ZUR UECKSETZEN.STABUFFER2,Y.DEY.BPLPUNAME2.F IX:LDAZAHL1;PC=LABELWERT.STAPC.LDAZAHL1+ 1.STAPC+1.LDAASSFL2;LABEL IN TABELLE BRI NGEN.ORA#64.STAASSFL2.LDAASSFLAGS.ORA#1. STAASSFLAGS.JSRINSLBL.LDAASSFLAGS.AND#25 4.STAASSFLAGS.PLA;PC ZURUECKSETZEN.STAPC +1.PLA.STAPC.RTS. .PCOUT:LDAASSFLAGS;PC AUSGEBEN.AND#64.BNE*+3.PCOUTRT:RTS;KEINE AUSGABE.LDAASSFLAGS.BPLPCOUTRT.LDAPC+1; PC AUSGEBEN.JSRHEXOUT.LDAPC.JMPHEXOUT. . EXIN:LDABUFFER2;'.IN' BEFEHL.BNEEXIN2.LD X#46;SYMBOL FEHLT.JMPASSERROR.EXIN2:JSRT XEX;TEXT DRUCKEN.LDAPC;PC MERKEN.PHA.LDA PC+1.PHA.LDAASSFLAGS.AND#%11111011.STAAS SFLAGS.JSRZAHLIN;WERT EINLESEN.LDAASSFLA GS.ORA#4.STAASSFLAGS.JSRNEXTZEI.JMPFIX;U ND LABEL EINTRAGEN. .TX:JSRTXEX;.TX TEXT DRUCKEN.JMPNEXTZEI. .TXEX:LDAOPERAND.CM P#34;AUF '"' TESTEN.BNETX2.LDX#0.TX3:INX .LDAOPERAND,X.BEQTX2;ABBRUCH MIT 0.CMP#3 4.BEQTX2;ABBRUCH MIT '"'.JSRBSOUT;AUSGAB E.JMPTX3.TX2:RTS. .P1?:JSRPASARG;BLOCK B EI PASS 1.BPLBLO;BLOCK OEFFNEN.RTS.P2?:J SRPASARG;BLOCK BEI PASS 2.BMIBLO;BLOCK O EFFNEN.RTS.E?:JSRARGUME;BLOCK BEI = 0.LD AZAHL1;TESTEN.ORAZAHL1+1.BEQBLO;BLOCK OE FFNEN.RTS.N?:JSRARGUME;BLOCK BEI <> 0.LD AZAHL1.ORAZAHL1+1.BNEBLO;BLOCK OEFFNEN.R TS.P?:JSRARGUME;BLOCK BEI > 0.LDAZAHL1+1 .BPLBLO;BLOCK OEFFNEN.RTS.M?:JSRARGUME;B LOCK BEI < 0.LDAZAHL1+1.BMIBLO;BLOCK OEF FNEN.RTS. .ARGUME:LDAASSFLAGS;ARGUMENT H OLEN.AND#32.BEQNOBLO.BLOERR:LDX#45;BLOCK BEREITS OFFEN.JMPASSERROR.NOBLO:LDAASSF LAGS;ARGUMENT HOLEN.ORA#32.STAASSFLAGS.J MPAUSDRUCK.BLO:LDAASSFLAGS.AND#%11011111 .STAASSFLAGS.RTS. .PASARG:LDAASSFLAGS;PA SS HOLEN.AND#32.BNEBLOERR.LDAASSFLAGS.AN D#%11011111.STAASSFLAGS.RTS. .POIA:.EQSC ROLLFLAG;HILFSPOINTER.POIL:.EQBUFFER+82. POIH:.EQBUFFER+83. .OPKETTE:LDA#0;KETTE VON OPERANDEN AUSWERTEN.STAPOIL.LDY#24.E RA:STABUFFER3,Y;BUFFER3 LOESCHEN.DEY.BPL ERA.TAY.STAPOIH.OPKE:LDAOPERAND,Y.BEQKET END;ENDE DER KETTE ERREICHT.CMP#39;''' G EFUNDEN.BNE*+2+1+2.INY.BNEINFLAGS;->INFL AGS.CMP#',;EIN OPERAND GEFUNDEN.BEQEINMA L.INFLAGS:INY.BNEOPKE.EINMAL:LDAOPERAND; EINEN OPERAND AUSWERTEN.CMP#'".BNEEINM;K EINE ZEICHENKETTE.LDAOPERAND-1,Y.CMP#'". BNEINFLAGS;KEINE ZEICH..EINM:LDA#0;OPERA ND MIT 0 ABSCHLIESSEN.STAOPERAND,Y.STYPO IA.LDAOPERAND.CMP#'".BEQTEXT;ZEICHENKETT E ABLEGEN.JSRAUSDRUCK;SONST ASDRUCK BERE CHNEN.TRT:LDYPOIA;KETTE BIS KOMMAPOSITIO N.INY;LINKSSCHIEBEN.LDX#0.TRAOK:LDAOPERA ND,Y.STAOPERAND,X.BEQEOK.INY.INX.BNETRAO K.EOK:LDYPOIL;OPERAND MERKEN.LDAZAHL1.ST AOPBUFFER,Y;IN OPBUFFER LOW.INCPOIL.LDYP OIH.CPY#25.BCSTOMU.LDAZAHL1+1;IN BUFFER3 HIGH.STABUFFER3,Y.INCPOIH;WEITER AUSWER TEN.TOMU:LDY#0.BEQOPKE. .KETEND:INY;KETT ENENDE ERREICHT.STAOPERAND,Y.DEY.PHP.LDA #'";LETZTER OPERAND=TEXT?.CMPOPERAND.BNE NOTASTR;NEIN.CMPOPERAND-1,Y;TEXT MIT " A BGESCHLOSSEN?.BEQNOTASTR.STAOPERAND,Y;NE IN->KORREKTUR.INY.LDA#0.STAOPERAND,Y.STA OPERAND+1,Y.NOTASTR:PLP.BNEEINMAL;LEZTEN WERT BERECHNEN.RTS. .TEXT:LDXPOIL;TEXT ABLEGEN.LDY#0.TEXTL:INY.LDAOPERAND,Y.CMP #'".BEQENDTEXT;TEXTENDE ERREICHT.STAOPBU FFER,X;SONST TEXT ABLEGEN.STAZAHL1.INX.I NCPOIH.BNETEXTL.ENDTEXT:DEX.STXPOIL.JMPT RT. .WO:LDA#0;.WO WORTWEISE ABLEGEN..BY$ 2C.AD:LDA#1;.AD .WO MIT FALSCHER REIHENF OLGE.PHA.JSROPKETTE;IN PASS 2.LDX#0.LDAP OIL.CMP#25.BCCAWLOOP.LDX#61;ZU VIELE OPE RANDEN.JMPASSERROR.AWLOOP:PLA.BNEADLOOP. WOLOOP:LDAOPBUFFER,X;.WO ABLEGEN.JSRCODE OUTPC;LOW ABLEGEN.LDABUFFER3,X.JSRCODEOU TPC;HIGH ABLEGEN.INX.CPXPOIL.BNEWOLOOP.R TS.ADLOOP:LDABUFFER3,X;.AD ABLEGEN.JSRCO DEOUTPC;HIGH ABLEGEN.LDAOPBUFFER,X.JSRCO DEOUTPC;LOW ABLEGEN.INX.CPXPOIL.BNEADLOO P.RTS. .BY:JSROPKETTE;BYTEWEISE IN PASS 2 ABLEGEN.LDX#0.BYLOOP:LDAOPBUFFER,X.JSR CODEOUTPC;WERTE ABLEGEN.INX.CPXPOIL.BNEB YLOOP.RTS. .RV:JSROPKETTE;.RV = .BY RUEC KWAERTS.LDXPOIL.DEX.RVLOOP:LDAOPBUFFER,X ;WERTE ABLEGEN.JSRCODEOUTPC.DEX.BPLRVLOO P.RTS. .DP:JSROPKETTE;.DP = .BY.LDX#0;IM DISPLAYCODE.DPLOOP:LDAOPBUFFER,X.PHP.AN D#%111111;ASCII->POKE.PLP.BPL*+4.ORA#%01 000000.JSRCODEOUTPC;ABLEGEN.INX.CPXPOIL. BNEDPLOOP.RTS. .CODEOUTPC:JSRCODEOUT;COD E AUSGEBEN.INCPC;UND PC+1.BNENOPCHI.INCP C+1.NOPCHI:RTS. .BYPA1:JSROPKETTE;.BY IN PASS 1.ADDPC:CLC;BERECHNE PC+ANZAHL BYT E.LDAPC.ADCPOIL.STAPC.LDAPC+1.ADC#0.STAP C+1.RTS. .WOPA1:JSROPKETTE;.WO/.AD IN PA SS 1.LDAPOIL;ANZAHL OPERANDEN *2.ASL.STA POIL.CMP#52.BCCADDPC;+PC.LDX#61;ZU VIELE OPERANDEN.JMPASSERROR. .DB:JSRAUSDRUCK; ANZAHL BYTE RESERVIEREN.ADDPC2:CLC;PC+AN ZAHL BYTE.LDAZAHL1.ADCPC.STAPC.LDAZAHL1+ 1.ADCPC+1.STAPC+1.LDAASSFLAGS;AUSGABE IN RAM.AND#16.BEQDISK?.CLC;JA->ZEIGER ERHO EHEN.LDAZAHL1.ADCZG2.STAZG2.LDAZAHL1+1.A DCZG2+1.STAZG2+1.DISK?:LDAFLAGS;AUSGABE AUF DISK ?.AND#32.BNE*+3.RTS.LDX#2;JA.JS RCKOUT.FILLDISK:LDA#$FF;CODE $FF AUF DIS K.JSRBSOUTR.LDAZAHL1.BNEZHHND.DECZAHL1+1 ;ANZAHL-1.ZHHND:DECZAHL1.LDAZAHL1.ORAZAH L1+1.BNEFILLDISK;BIS ANZAHL=0.JSRCLRCH.S EI.RTS. .DWEX:JSRAUSDRUCK;WORTE RESERVIE REN.ASLZAHL1;ANZAHL*2=ANZAHL BYTE.ROLZAH L1+1.JMPADDPC2;WEITER BEI .DB. .FI:JSRCL RCH;.FI WEITER IN NEUEM FILE.LDA#1;FILE SCHLIESSEN.JSRCLOSE.LDAFLAGS;DISKMODE ?. AND#16.BNEFIEXE.LDX#50;MODE ERROR.JMPASS ERROR.FIEXE:LDA#1;FILEPARAMETER SETZEN.L DX#8.LDY#0.STYASZEILE.STYASZEILE+1.JSRSE TPARA.JSROUFINAME;NAME SETZEN UND FILE O EFFNEN.LDX#1;FILELAENGE EINLESEN.JSRCHKI N.JSRBASINR.LDYSTATUS;STATUS TESTEN.BEQF IEXE2.DISKFEHLER:JSRDISKERR;DISKFEHLER.J SRPOINTER.JMPMAINRT;->ABBRUCH.FIEXE2:STA ZAHL1;LAENGE->ZAHL1.JSRBASINR.STAZAHL1+1 .JSRZAHLHEXOUT;LAENGE ANZEIGEN.LDA#32.JS RBSOUT.LDY#1;UND NAME ANZEIGEN.PRIFINA:L DAOPERAND,Y.CMP#'".BNE*+5.JMPNEXTZEI.JSR BSOUT.INY.BNEPRIFINA. .OU:LDAFLAGS;.OU A USGABE AUF DISK.AND#32.BEQOUEXE.LDX#49;. OU BEREITS GEGEBEN.JMPASSERROR.OUEXE:LDX #FLODEV;FILEPARAMETER SETZEN.LDA#2.LDY#1 .JSRSETPARA.JSROUFINAME;NAMEN SETZEN UND FILE OEFFNEN.LDX#2;STARTADRESSE SENDEN. JSRCKOUT.LDAZG2.JSRBSOUTR.LDAZG2+1.JSRBS OUTR.LDASTATUS;STATUS TESTEN.BNEDISKFEHL ER;DISKFEHLER->ABBRUCH.LDAFLAGS;.OU FLAG SETZEN.ORA#32.STAFLAGS.JSRCLRCH.SEI.RTS . .OUFINAME:LDY#0;FILENAME SETZEN.BERELE N:INY;UND FILE OEFFNEN.LDAOPERAND,Y;NAME NLAENGE ERMITTELN.CMP#'".BNEBERELEN.DEY. TYA.LDX#<OPERAND+1;NAMENADRESSE.LDY#>OPE RAND+1.JSRSETNAME;NAMEN SETZEN.JMPOPEN;U ND FILE OEFFNEN. .FROMDISK:LDX#1;EINGABE VON DISKETTE.JSRCHKIN.LDY#0;ZEILE -> BU FFER.DIIN:JSRBASINR.STABUFFER,Y.STAEDBUF FER,Y.INY.CMP#0;BIS 0 ALS ENDE ERREICHT. BNEDIIN.JSRCLRCH.LDASTATUS;STATUS TESTEN .BNE*+3+1.SEI.RTS.LDAASSFLAGS;FILEENDE E RREICHT->.EN.ORA#8.STAASSFLAGS.SEI.RTS. .MONITOR:JMPMONSTART;SPRUNGVERKTOREN FUE R ERWEITERUNGEN.JMPMONIRT;IN MONITOR, MO NITORRUECKSPR. VON RAM-ROUTINE.JMPBREAK; UND NACH BREAK. ..FI"MON"...
> CLICK IMAGE PREVIEW FOR FULL MODAL