DIRECTORY.ASS
FILE INFORMATION
FILENAME(S): DIRECTORY.ASS
FILE TYPE(S): PRG
FILE SIZE: 13.8K
FIRST SEEN: 2025-11-02 22:11:06
APPEARS ON: 2 disk(s)
FILE HASH
362466eac230d4267af36f025b61370cb821e0b25464c229674313d6acfe790c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15715 SH15 RUECK | DIRECTORY.ASS | PRG | Treasure Chest - ToGuMi | 13 | 0 | DOWNLOAD FILE |
| 15715 SH15 RUECK | DIRECTORY.ASS | PRG | C64er | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 8F 00 24 08 6E 00 8F 20 57 52 |....d...$.n.. WR|
00000010: 49 54 54 45 4E 20 42 59 20 55 44 4F 20 57 4F 45 |ITTEN BY UDO WOE|
00000020: 48 4C 45 52 00 2A 08 78 00 8F 00 49 08 82 00 8F |HLER.*.x...I....|
00000030: 20 53 59 53 34 39 31 35 32 2C 4E 41 24 2C 5A 48 | SYS49152,NA$,ZH|
00000040: 25 2C 46 49 24 2C 42 4C 25 00 6C 08 8C 00 8F 20 |%,FI$,BL%.l.... |
00000050: 20 20 20 20 20 20 20 20 2C 54 59 25 2C 54 52 25 | ,TY%,TR%|
00000060: 2C 53 45 25 2C 22 50 53 52 55 44 22 00 89 08 96 |,SE%,"PSRUD"....|
00000070: 00 8F 20 50 20 3D 20 50 52 4F 47 52 41 4D 4D 20 |.. P = PROGRAMM |
00000080: 20 20 20 20 46 49 4C 45 53 00 A6 08 A0 00 8F 20 | FILES...... |
00000090: 53 20 3D 20 53 45 51 55 45 4E 54 49 45 4C 4C 45 |S = SEQUENTIELLE|
000000A0: 20 46 49 4C 45 53 00 C3 08 AA 00 8F 20 52 20 3D | FILES...... R =|
000000B0: 20 52 45 4C 41 54 49 56 45 20 20 20 20 20 46 49 | RELATIVE FI|
000000C0: 4C 45 53 00 E0 08 B4 00 8F 20 55 20 3D 20 55 53 |LES...... U = US|
000000D0: 45 52 20 20 20 20 20 20 20 20 20 46 49 4C 45 53 |ER FILES|
000000E0: 00 FD 08 BE 00 8F 20 44 20 3D 20 44 45 4C 45 54 |...... D = DELET|
000000F0: 45 44 20 20 20 20 20 20 46 49 4C 45 53 00 03 09 |ED FILES...|
00000100: C8 00 8F 00 25 09 D2 00 9F 32 2C 38 2C 32 2C 22 |....%....2,8,2,"|
00000110: 40 3A 44 49 52 45 43 54 4F 52 59 2D 4C 4F 41 44 |@:DIRECTORY-LOAD|
00000120: 2C 50 2C 57 22 00 31 09 DC 00 9E 39 AC 34 30 39 |,P,W".1....9.409|
00000130: 36 00 3F 09 E6 00 2E 4F 50 54 20 50 2C 4F 32 00 |6.?....OPT P,O2.|
00000140: 4C 09 F0 00 AC B2 20 24 43 30 30 30 00 62 09 FA |L..... $C000.b..|
00000150: 00 50 52 4F 5A 20 20 20 20 20 20 20 20 B2 20 24 |.PROZ . $|
00000160: 37 41 00 79 09 04 01 4E 43 48 52 CB 54 20 20 20 |7A.y...NCHR.T |
00000170: 20 20 B2 20 24 30 30 37 33 00 90 09 0E 01 4C 43 | . $0073.....LC|
00000180: 48 52 CB 54 20 20 20 20 20 B2 20 24 30 30 37 39 |HR.T . $0079|
00000190: 00 A6 09 18 01 88 20 20 20 20 20 20 20 20 20 B2 |...... .|
000001A0: 20 24 41 39 41 35 00 BE 09 22 01 46 52 4D 45 56 | $A9A5...".FRMEV|
000001B0: 4C 20 20 20 20 20 20 B2 20 24 41 44 39 45 00 D6 |L . $AD9E..|
000001C0: 09 2C 01 43 48 45 43 4B 4B 4F 4D 4D 41 20 20 B2 |.,.CHECKKOMMA .|
000001D0: 20 24 41 45 46 44 00 EE 09 36 01 53 59 4E 45 52 | $AEFD...6.SYNER|
000001E0: 52 20 20 20 20 20 20 B2 20 24 41 46 30 38 00 06 |R . $AF08..|
000001F0: 0A 40 01 50 52 55 45 42 55 43 48 20 20 20 20 B2 |.@.PRUEBUCH .|
00000200: 20 24 42 31 31 33 00 1C 0A 4A 01 B8 53 54 52 20 | $B113...J..STR |
00000210: 20 20 20 20 20 B2 20 24 42 36 41 33 00 32 0A 54 | . $B6A3.2.T|
00000220: 01 B5 4E 41 46 41 43 20 20 20 20 B2 20 24 42 43 |..NAFAC . $BC|
00000230: 34 39 00 4A 0A 5E 01 46 41 43 4E 41 53 54 52 49 |49.J.^.FACNASTRI|
00000240: 20 20 20 B2 20 24 42 44 44 46 00 62 0A 68 01 49 | . $BDDF.b.h.I|
00000250: 45 43 4F 55 54 20 20 20 20 20 20 B2 20 24 46 46 |ECOUT . $FF|
00000260: 41 38 00 77 0A 72 01 9F 20 20 20 20 20 20 20 20 |A8.w.r.. |
00000270: B2 20 24 46 46 43 30 00 8B 0A 7C 01 A0 20 20 20 |. $FFC0...|.. |
00000280: 20 20 20 20 B2 20 24 46 46 43 33 00 A3 0A 86 01 | . $FFC3.....|
00000290: 43 48 4B 49 4E 20 20 20 20 20 20 20 B2 20 24 46 |CHKIN . $F|
000002A0: 46 43 36 00 BB 0A 90 01 43 4B 4F 55 54 20 20 20 |FC6.....CKOUT |
000002B0: 20 20 20 20 B2 20 24 46 46 43 39 00 D1 0A 9A 01 | . $FFC9.....|
000002C0: 9C 43 48 20 20 20 20 20 20 20 B2 20 24 46 46 43 |.CH . $FFC|
000002D0: 43 00 E7 0A A4 01 A1 20 20 20 20 20 20 20 20 20 |C...... |
000002E0: B2 20 24 46 46 45 34 00 0E 0B AE 01 3B 20 AB AB |. $FFE4.....; ..|
000002F0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000300: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 36 |...............6|
00000310: 0B B8 01 4C 44 41 20 23 24 32 34 20 20 20 20 20 |...LDA #$24 |
00000320: 20 20 20 20 20 20 3B 53 54 52 49 4E 47 20 56 41 | ;STRING VA|
00000330: 52 49 41 42 4C 45 00 55 0B C2 01 4A 53 52 20 53 |RIABLE.U...JSR S|
00000340: 55 43 48 56 41 52 20 20 20 20 20 20 20 20 3B 53 |UCHVAR ;S|
00000350: 55 43 48 45 4E 00 7E 0B CC 01 4C 44 41 20 46 54 |UCHEN.~...LDA FT|
00000360: 45 53 54 20 20 20 20 20 20 20 20 20 20 3B 46 4C |EST ;FL|
00000370: 41 47 20 46 55 45 52 20 56 B0 48 AF 45 4E 00 A0 |AG FUER V.H.EN..|
00000380: 0B D6 01 53 54 41 20 46 44 49 53 4B 4E 41 4D 45 |...STA FDISKNAME|
00000390: 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E | ;SPEICHERN|
000003A0: 00 C4 0B E0 01 4C 44 41 20 24 34 35 20 20 20 20 |.....LDA $45 |
000003B0: 20 20 20 20 20 20 20 20 3B 56 41 52 49 41 42 C3 | ;VARIAB.|
000003C0: 4E 41 4D 45 00 D0 0B EA 01 4C 44 58 20 24 34 36 |NAME.....LDX $46|
000003D0: 00 F2 0B F4 01 53 54 41 20 44 49 53 4B 4E 41 4D |.....STA DISKNAM|
000003E0: 45 20 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 |E ;SPEICHE|
000003F0: 52 4E 00 05 0C FE 01 53 54 58 20 44 49 53 4B 4E |RN.....STX DISKN|
00000400: 41 4D 45 AA 31 00 2C 0C 08 02 4C 44 41 20 23 24 |AME.1.,...LDA #$|
00000410: 32 35 20 20 20 20 20 20 20 20 20 20 20 3B B5 45 |25 ;.E|
00000420: 47 45 52 20 56 41 52 49 41 42 4C 45 00 4B 0C 12 |GER VARIABLE.K..|
00000430: 02 4A 53 52 20 53 55 43 48 56 41 52 20 20 20 20 |.JSR SUCHVAR |
00000440: 20 20 20 20 3B 53 55 43 48 45 4E 00 74 0C 1C 02 | ;SUCHEN.t...|
00000450: 4C 44 41 20 46 54 45 53 54 20 20 20 20 20 20 20 |LDA FTEST |
00000460: 20 20 20 3B 46 4C 41 47 20 46 55 45 52 20 56 B0 | ;FLAG FUER V.|
00000470: 48 AF 45 4E 00 96 0C 26 02 53 54 41 20 46 41 4E |H.EN...&.STA FAN|
00000480: 5A 41 48 4C 20 20 20 20 20 20 20 20 3B 53 50 45 |ZAHL ;SPE|
00000490: 49 43 48 45 52 4E 00 BA 0C 30 02 4C 44 41 20 24 |ICHERN...0.LDA $|
000004A0: 34 35 20 20 20 20 20 20 20 20 20 20 20 20 3B 56 |45 ;V|
000004B0: 41 52 49 41 42 C3 4E 41 4D 45 00 C6 0C 3A 02 4C |ARIAB.NAME...:.L|
000004C0: 44 58 20 24 34 36 00 E8 0C 44 02 53 54 41 20 41 |DX $46...D.STA A|
000004D0: 4E 5A 41 48 4C 20 20 20 20 20 20 20 20 20 3B 53 |NZAHL ;S|
000004E0: 50 45 49 43 48 45 52 4E 00 F9 0C 4E 02 53 54 58 |PEICHERN...N.STX|
000004F0: 20 41 4E 5A 41 48 4C AA 31 00 21 0D 58 02 4C 44 | ANZAHL.1.!.X.LD|
00000500: 41 20 23 24 32 34 20 20 20 20 20 20 20 20 20 20 |A #$24 |
00000510: 20 3B 53 54 52 49 4E 47 20 56 41 52 49 41 42 4C | ;STRING VARIABL|
00000520: 45 00 40 0D 62 02 4A 53 52 20 53 55 43 48 56 41 |E.@.b.JSR SUCHVA|
00000530: 52 20 20 20 20 20 20 20 20 3B 53 55 43 48 45 4E |R ;SUCHEN|
00000540: 00 69 0D 6C 02 4C 44 41 20 46 54 45 53 54 20 20 |.i.l.LDA FTEST |
00000550: 20 20 20 20 20 20 20 20 3B 46 4C 41 47 20 46 55 | ;FLAG FU|
00000560: 45 52 20 56 B0 48 AF 45 4E 00 89 0D 76 02 53 54 |ER V.H.EN...v.ST|
00000570: 41 20 46 46 49 C3 41 4D 45 20 20 20 20 20 20 3B |A FFI.AME ;|
00000580: 53 50 45 49 43 48 45 52 4E 00 AD 0D 80 02 4C 44 |SPEICHERN.....LD|
00000590: 41 20 24 34 35 20 20 20 20 20 20 20 20 20 20 20 |A $45 |
000005A0: 20 3B 56 41 52 49 41 42 C3 4E 41 4D 45 00 B9 0D | ;VARIAB.NAME...|
000005B0: 8A 02 4C 44 58 20 24 34 36 00 D9 0D 94 02 53 54 |..LDX $46.....ST|
000005C0: 41 20 46 49 C3 41 4D 45 20 20 20 20 20 20 20 3B |A FI.AME ;|
000005D0: 53 50 45 49 43 48 45 52 4E 00 EA 0D 9E 02 53 54 |SPEICHERN.....ST|
000005E0: 58 20 46 49 C3 41 4D 45 AA 31 00 11 0E A8 02 4C |X FI.AME.1.....L|
000005F0: 44 41 20 23 24 32 35 20 20 20 20 20 20 20 20 20 |DA #$25 |
00000600: 20 20 3B B5 45 47 45 52 20 56 41 52 49 41 42 4C | ;.EGER VARIABL|
00000610: 45 00 30 0E B2 02 4A 53 52 20 53 55 43 48 56 41 |E.0...JSR SUCHVA|
00000620: 52 20 20 20 20 20 20 20 20 3B 53 55 43 48 45 4E |R ;SUCHEN|
00000630: 00 59 0E BC 02 4C 44 41 20 46 54 45 53 54 20 20 |.Y...LDA FTEST |
00000640: 20 20 20 20 20 20 20 20 3B 46 4C 41 47 20 46 55 | ;FLAG FU|
00000650: 45 52 20 56 B0 48 AF 45 4E 00 7B 0E C6 02 53 54 |ER V.H.EN.{...ST|
00000660: 41 20 46 42 4C 4F 45 43 4B 45 20 20 20 20 20 20 |A FBLOECKE |
00000670: 20 3B 53 50 45 49 43 48 45 52 4E 00 9F 0E D0 02 | ;SPEICHERN.....|
00000680: 4C 44 41 20 24 34 35 20 20 20 20 20 20 20 20 20 |LDA $45 |
00000690: 20 20 20 3B 56 41 52 49 41 42 C3 4E 41 4D 45 00 | ;VARIAB.NAME.|
000006A0: AB 0E DA 02 4C 44 58 20 24 34 36 00 CD 0E E4 02 |....LDX $46.....|
000006B0: 53 54 41 20 42 4C 4F 45 43 4B 45 20 20 20 20 20 |STA BLOECKE |
000006C0: 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 DF 0E | ;SPEICHERN...|
000006D0: EE 02 53 54 58 20 42 4C 4F 45 43 4B 45 AA 31 00 |..STX BLOECKE.1.|
000006E0: 06 0F F8 02 4C 44 41 20 23 24 32 35 20 20 20 20 |....LDA #$25 |
000006F0: 20 20 20 20 20 20 20 3B B5 45 47 45 52 20 56 41 | ;.EGER VA|
00000700: 52 49 41 42 4C 45 00 25 0F 02 03 4A 53 52 20 53 |RIABLE.%...JSR S|
00000710: 55 43 48 56 41 52 20 20 20 20 20 20 20 20 3B 53 |UCHVAR ;S|
00000720: 55 43 48 45 4E 00 4E 0F 0C 03 4C 44 41 20 46 54 |UCHEN.N...LDA FT|
00000730: 45 53 54 20 20 20 20 20 20 20 20 20 20 3B 46 4C |EST ;FL|
00000740: 41 47 20 46 55 45 52 20 56 B0 48 AF 45 4E 00 6E |AG FUER V.H.EN.n|
00000750: 0F 16 03 53 54 41 20 46 46 49 88 59 50 45 4E 20 |...STA FFI.YPEN |
00000760: 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 92 | ;SPEICHERN..|
00000770: 0F 20 03 4C 44 41 20 24 34 35 20 20 20 20 20 20 |. .LDA $45 |
00000780: 20 20 20 20 20 20 3B 56 41 52 49 41 42 C3 4E 41 | ;VARIAB.NA|
00000790: 4D 45 00 9E 0F 2A 03 4C 44 58 20 24 34 36 00 BE |ME...*.LDX $46..|
000007A0: 0F 34 03 53 54 41 20 46 49 88 59 50 45 4E 20 20 |.4.STA FI.YPEN |
000007B0: 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 D0 | ;SPEICHERN..|
000007C0: 0F 3E 03 53 54 58 20 46 49 88 59 50 45 4E AA 31 |.>.STX FI.YPEN.1|
000007D0: 00 F7 0F 48 03 4C 44 41 20 23 24 32 35 20 20 20 |...H.LDA #$25 |
000007E0: 20 20 20 20 20 20 20 20 3B B5 45 47 45 52 20 56 | ;.EGER V|
000007F0: 41 52 49 41 42 4C 45 00 16 10 52 03 4A 53 52 20 |ARIABLE...R.JSR |
00000800: 53 55 43 48 56 41 52 20 20 20 20 20 20 20 20 3B |SUCHVAR ;|
00000810: 53 55 43 48 45 4E 00 3F 10 5C 03 4C 44 41 20 46 |SUCHEN.?.\.LDA F|
00000820: 54 45 53 54 20 20 20 20 20 20 20 20 20 20 3B 46 |TEST ;F|
00000830: 4C 41 47 20 46 55 45 52 20 56 B0 48 AF 45 4E 00 |LAG FUER V.H.EN.|
00000840: 5F 10 66 03 53 54 41 20 46 46 49 88 52 41 43 4B |_.f.STA FFI.RACK|
00000850: 53 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 |S ;SPEICHERN.|
00000860: 83 10 70 03 4C 44 41 20 24 34 35 20 20 20 20 20 |..p.LDA $45 |
00000870: 20 20 20 20 20 20 20 3B 56 41 52 49 41 42 C3 4E | ;VARIAB.N|
00000880: 41 4D 45 00 8F 10 7A 03 4C 44 58 20 24 34 36 00 |AME...z.LDX $46.|
00000890: AF 10 84 03 53 54 41 20 46 49 88 52 41 43 4B 53 |....STA FI.RACKS|
000008A0: 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 | ;SPEICHERN.|
000008B0: C2 10 8E 03 53 54 58 20 46 49 88 52 41 43 4B 53 |....STX FI.RACKS|
000008C0: AA 31 00 E9 10 98 03 4C 44 41 20 23 24 32 35 20 |.1.....LDA #$25 |
000008D0: 20 20 20 20 20 20 20 20 20 20 3B B5 45 47 45 52 | ;.EGER|
000008E0: 20 56 41 52 49 41 42 4C 45 00 08 11 A2 03 4A 53 | VARIABLE.....JS|
000008F0: 52 20 53 55 43 48 56 41 52 20 20 20 20 20 20 20 |R SUCHVAR |
00000900: 20 3B 53 55 43 48 45 4E 00 31 11 AC 03 4C 44 41 | ;SUCHEN.1...LDA|
00000910: 20 46 54 45 53 54 20 20 20 20 20 20 20 20 20 20 | FTEST |
00000920: 3B 46 4C 41 47 20 46 55 45 52 20 56 B0 48 AF 45 |;FLAG FUER V.H.E|
00000930: 4E 00 52 11 B6 03 53 54 41 20 46 46 49 4C 45 53 |N.R...STA FFILES|
00000940: 45 43 A4 52 53 20 20 20 3B 53 50 45 49 43 48 45 |EC.RS ;SPEICHE|
00000950: 52 4E 00 76 11 C0 03 4C 44 41 20 24 34 35 20 20 |RN.v...LDA $45 |
00000960: 20 20 20 20 20 20 20 20 20 20 3B 56 41 52 49 41 | ;VARIA|
00000970: 42 C3 4E 41 4D 45 00 82 11 CA 03 4C 44 58 20 24 |B.NAME.....LDX $|
00000980: 34 36 00 A3 11 D4 03 53 54 41 20 46 49 4C 45 53 |46.....STA FILES|
00000990: 45 43 A4 52 53 20 20 20 20 3B 53 50 45 49 43 48 |EC.RS ;SPEICH|
000009A0: 45 52 4E 00 B8 11 DE 03 53 54 58 20 46 49 4C 45 |ERN.....STX FILE|
000009B0: 53 45 43 A4 52 53 AA 31 00 E1 11 E8 03 4A 53 52 |SEC.RS.1.....JSR|
000009C0: 20 43 48 45 43 4B 4B 4F 4D 4D 41 20 20 20 20 20 | CHECKKOMMA |
000009D0: 3B 50 52 55 45 46 54 20 41 55 46 20 4B 4F 4D 4D |;PRUEFT AUF KOMM|
000009E0: 41 00 0A 12 F2 03 4C 44 59 20 23 24 30 35 20 20 |A.....LDY #$05 |
000009F0: 20 20 20 20 20 20 20 20 20 3B 54 59 50 46 4C 41 | ;TYPFLA|
00000A00: 47 53 20 4D 49 54 20 24 46 46 00 28 12 FC 03 4C |GS MIT $FF.(...L|
00000A10: 44 41 20 23 24 46 46 20 20 20 20 20 20 20 20 20 |DA #$FF |
00000A20: 20 20 3B 46 55 45 4C C3 00 39 12 06 04 49 4E 49 | ;FUEL..9...INI|
00000A30: 54 46 49 4E 44 20 44 45 59 00 4A 12 10 04 53 54 |TFIND DEY.J...ST|
00000A40: 41 20 46 4C 41 54 59 50 2C 59 00 52 12 1A 04 49 |A FLATYP,Y.R...I|
00000A50: 4E 59 00 5A 12 24 04 44 45 59 00 6B 12 2E 04 42 |NY.Z.$.DEY.k...B|
00000A60: 4E 45 20 49 4E 49 54 46 49 4E 44 00 96 12 38 04 |NE INITFIND...8.|
00000A70: 4A 53 52 20 46 52 4D 45 56 4C 20 20 20 20 20 20 |JSR FRMEVL |
00000A80: 20 20 20 3B 53 54 52 49 4E 47 20 48 4F C3 20 55 | ;STRING HO. U|
00000A90: 4E 44 20 56 4F 4D 00 C2 12 42 04 4A 53 52 20 B8 |ND VOM...B.JSR .|
00000AA0: 53 54 52 20 20 20 20 20 20 20 20 20 3B 53 54 52 |STR ;STR|
00000AB0: 49 4E 47 53 54 41 43 4B 20 45 4E 54 46 45 52 4E |INGSTACK ENTFERN|
00000AC0: 45 4E 00 CF 12 4C 04 4C 44 59 20 23 24 30 30 00 |EN...L.LDY #$00.|
00000AD0: F4 12 56 04 4C 44 41 20 28 24 36 34 29 2C 59 20 |..V.LDA ($64),Y |
00000AE0: 20 20 20 20 20 20 20 3B 53 54 52 49 4E 47 4C 41 | ;STRINGLA|
00000AF0: 45 4E 47 45 00 16 13 60 04 53 54 41 20 54 59 4C |ENGE...`.STA TYL|
00000B00: 41 4E 20 20 20 20 20 20 20 20 20 20 3B 53 50 45 |AN ;SPE|
00000B10: 49 43 48 45 52 4E 00 1E 13 6A 04 49 4E 59 00 42 |ICHERN...j.INY.B|
00000B20: 13 74 04 4C 44 41 20 28 24 36 34 29 2C 59 20 20 |.t.LDA ($64),Y |
00000B30: 20 20 20 20 20 3B 53 54 52 49 4E 47 5A 45 49 47 | ;STRINGZEIG|
00000B40: 45 52 00 63 13 7E 04 53 54 41 20 24 32 32 20 20 |ER.c.~.STA $22 |
00000B50: 20 20 20 20 20 20 20 20 20 3B 53 50 45 49 43 48 | ;SPEICH|
00000B60: 45 52 4E 00 6B 13 88 04 49 4E 59 00 7B 13 92 04 |ERN.k...INY.{...|
00000B70: 4C 44 41 20 28 24 36 34 29 2C 59 00 87 13 9C 04 |LDA ($64),Y.....|
00000B80: 53 54 41 20 24 32 33 00 B5 13 A6 04 4C 44 59 20 |STA $23.....LDY |
00000B90: 23 24 30 30 20 20 20 20 20 20 20 20 20 20 3B 5A |#$00 ;Z|
00000BA0: 45 49 47 45 52 20 41 55 46 20 45 52 53 54 45 4E |EIGER AUF ERSTEN|
00000BB0: 20 42 53 54 2E 00 DC 13 B0 04 54 45 53 54 54 59 | BST......TESTTY|
00000BC0: 50 20 4C 44 58 20 23 24 30 35 20 20 3B 41 55 46 |P LDX #$05 ;AUF|
00000BD0: 20 43 4F 44 45 20 54 45 53 54 45 4E 00 EC 13 BA | CODE TESTEN....|
00000BE0: 04 4E 41 45 54 45 53 54 20 44 45 58 00 FC 13 C4 |.NAETEST DEX....|
00000BF0: 04 4C 44 41 20 28 24 32 32 29 2C 59 00 0A 14 CE |.LDA ($22),Y....|
00000C00: 04 43 4D 50 20 54 59 50 2C 58 00 2A 14 D8 04 42 |.CMP TYP,X.*...B|
00000C10: 45 51 20 46 49 4E 44 54 59 50 20 20 20 20 20 20 |EQ FINDTYP |
00000C20: 20 3B 47 45 46 55 4E 44 45 4E 00 55 14 E2 04 44 | ;GEFUNDEN.U...D|
00000C30: 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EX |
00000C40: 20 3B 4E 45 49 4E 20 4E 41 45 43 48 53 54 45 4E | ;NEIN NAECHSTEN|
00000C50: 20 43 4F 44 45 00 5D 14 EC 04 49 4E 58 00 84 14 | CODE.]...INX...|
00000C60: F6 04 42 4E 45 20 4E 41 45 54 45 53 54 20 20 20 |..BNE NAETEST |
00000C70: 20 20 20 20 3B 53 43 48 91 20 88 5A 54 45 52 20 | ;SCH. .ZTER |
00000C80: 43 4F 44 45 00 A9 14 00 05 4A 4D 50 20 80 46 49 |CODE.....JMP .FI|
00000C90: 4E 44 20 20 20 20 20 20 20 3B 4A 41 2C 80 45 20 |ND ;JA,.E |
00000CA0: 43 4F 44 45 53 55 43 48 45 00 CE 14 0A 05 46 49 |CODESUCHE.....FI|
00000CB0: 4E 44 54 59 50 20 54 58 41 20 20 20 20 20 20 20 |NDTYP TXA |
00000CC0: 3B 43 4F 44 45 20 47 45 46 55 4E 44 45 4E 00 EF |;CODE GEFUNDEN..|
00000CD0: 14 14 05 53 54 41 20 46 4C 41 54 59 50 2C 58 20 |...STA FLATYP,X |
00000CE0: 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 | ;SPEICHERN.|
00000CF0: 15 15 1E 05 49 4E 59 20 20 20 20 20 20 20 20 20 |....INY |
00000D00: 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 52 | ;NAECHSTER|
00000D10: 20 42 53 54 2E 00 37 15 28 05 43 50 59 20 54 59 | BST..7.(.CPY TY|
00000D20: 4C 41 4E 20 20 20 20 20 20 20 20 20 3B 53 43 48 |LAN ;SCH|
00000D30: 91 20 88 5A 54 45 52 00 61 15 32 05 42 4E 45 20 |. .ZTER.a.2.BNE |
00000D40: 54 45 53 54 54 59 50 20 20 20 20 20 20 20 3B 4E |TESTTYP ;N|
00000D50: 45 49 4E 2C 57 45 49 54 45 52 20 53 55 43 48 45 |EIN,WEITER SUCHE|
00000D60: 4E 00 8B 15 3C 05 80 46 49 4E 44 20 4C 44 41 20 |N...<..FIND LDA |
00000D70: 23 24 30 32 20 20 3B 46 49 4C 45 50 41 52 41 4D |#$02 ;FILEPARAM|
00000D80: 45 54 45 52 20 53 45 54 5A 45 4E 00 97 15 46 05 |ETER SETZEN...F.|
00000D90: 53 54 41 20 24 42 38 00 A3 15 50 05 53 54 41 20 |STA $B8...P.STA |
00000DA0: 24 42 39 00 B0 15 5A 05 4C 44 41 20 23 24 30 38 |$B9...Z.LDA #$08|
00000DB0: 00 BC 15 64 05 53 54 41 20 24 42 41 00 C9 15 6E |...d.STA $BA...n|
00000DC0: 05 4C 44 41 20 23 24 30 31 00 D5 15 78 05 53 54 |.LDA #$01...x.ST|
00000DD0: 41 20 24 42 37 00 E6 15 82 05 4C 44 41 20 23 B3 |A $B7.....LDA #.|
00000DE0: 44 49 52 45 4B 54 00 F7 15 8C 05 4C 44 58 20 23 |DIREKT.....LDX #|
00000DF0: B1 44 49 52 45 4B 54 00 03 16 96 05 53 54 41 20 |.DIREKT.....STA |
00000E00: 24 42 42 00 0F 16 A0 05 53 54 58 20 24 42 43 00 |$BB.....STX $BC.|
00000E10: 36 16 AA 05 4A 53 52 20 9F 20 20 20 20 20 20 20 |6...JSR . |
00000E20: 20 20 20 3B 44 49 52 45 4B 54 4B 41 4E 41 4C 20 | ;DIREKTKANAL |
00000E30: 4F 45 46 A5 45 4E 00 62 16 B4 05 4C 44 41 20 23 |OEF.EN.b...LDA #|
00000E40: 24 30 46 20 20 20 20 20 20 20 20 20 20 3B 46 49 |$0F ;FI|
00000E50: 4C 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A |LEPARAMETER SETZ|
00000E60: 45 4E 00 6E 16 BE 05 53 54 41 20 24 42 38 00 7A |EN.n...STA $B8.z|
00000E70: 16 C8 05 53 54 41 20 24 42 39 00 87 16 D2 05 4C |...STA $B9.....L|
00000E80: 44 41 20 23 24 30 38 00 93 16 DC 05 53 54 41 20 |DA #$08.....STA |
00000E90: 24 42 41 00 A0 16 E6 05 4C 44 41 20 23 24 30 30 |$BA.....LDA #$00|
00000EA0: 00 AC 16 F0 05 53 54 41 20 24 42 37 00 D3 16 FA |.....STA $B7....|
00000EB0: 05 4A 53 52 20 9F 20 20 20 20 20 20 20 20 20 20 |.JSR . |
00000EC0: 3B 4B 4F 4D 4D AF 4F 4B 41 4E 41 4C 20 4F 45 46 |;KOMM.OKANAL OEF|
00000ED0: A5 45 4E 00 03 17 04 06 4C 44 41 20 23 24 31 32 |.EN.....LDA #$12|
00000EE0: 20 20 20 20 20 20 20 20 20 20 3B 45 52 53 54 45 | ;ERSTE|
00000EF0: 52 20 42 4C 4F 43 4B 20 31 38 AD 30 20 53 45 54 |R BLOCK 18.0 SET|
00000F00: 5A 45 4E 00 11 17 0E 06 53 54 41 20 54 52 41 43 |ZEN.....STA TRAC|
00000F10: 4B 00 1E 17 18 06 4C 44 41 20 23 24 30 30 00 2C |K.....LDA #$00.,|
00000F20: 17 22 06 53 54 41 20 53 45 43 A4 52 00 54 17 2C |.".STA SEC.R.T.,|
00000F30: 06 4C 44 41 20 46 44 49 53 4B 4E 41 4D 45 20 20 |.LDA FDISKNAME |
00000F40: 20 20 20 3B 44 49 53 4B 4E 41 4D 45 20 47 45 53 | ;DISKNAME GES|
00000F50: 55 43 48 54 00 85 17 36 06 42 45 51 20 4E 4F 44 |UCHT...6.BEQ NOD|
00000F60: 49 53 4B 4E 20 20 20 20 20 20 20 3B 4E 45 49 4E |ISKN ;NEIN|
00000F70: 2C 53 50 45 49 43 48 45 52 4E 20 55 45 42 45 52 |,SPEICHERN UEBER|
00000F80: 47 45 48 45 4E 00 A5 17 40 06 4A 53 52 20 87 54 |GEHEN...@.JSR .T|
00000F90: 52 53 45 20 20 20 20 20 20 3B 42 4C 4F 43 4B 20 |RSE ;BLOCK |
00000FA0: 4C 45 53 45 4E 00 B2 17 4A 06 4C 44 58 20 23 24 |LESEN...J.LDX #$|
00000FB0: 30 32 00 E1 17 54 06 4A 53 52 20 43 48 4B 49 4E |02...T.JSR CHKIN|
00000FC0: 20 20 20 20 20 20 20 20 20 3B 45 49 4E 47 41 42 | ;EINGAB|
00000FD0: 45 20 41 55 46 20 44 49 52 45 4B 54 4B 41 4E 41 |E AUF DIREKTKANA|
00000FE0: 4C 00 12 18 5E 06 4C 44 58 20 23 24 39 30 20 20 |L...^.LDX #$90 |
00000FF0: 20 20 20 20 20 20 20 20 3B 45 52 53 54 45 4E 20 | ;ERSTEN |
00001000: 39 30 20 42 59 54 45 20 55 45 42 45 52 4C 45 53 |90 BYTE UEBERLES|
00001010: 45 4E 00 23 18 68 06 44 55 4D 4D 59 31 20 4A 53 |EN.#.h.DUMMY1 JS|
00001020: 52 20 A1 00 2B 18 72 06 44 45 58 00 3A 18 7C 06 |R ..+.r.DEX.:.|.|
00001030: 42 4E 45 20 44 55 4D 4D 59 31 00 66 18 86 06 4C |BNE DUMMY1.f...L|
00001040: 44 58 20 23 24 30 30 20 20 20 20 20 20 20 20 20 |DX #$00 |
00001050: 20 3B 44 49 53 4B 4E 41 4D 45 AA 49 44 20 45 49 | ;DISKNAME.ID EI|
00001060: 4E 4C 45 53 45 4E 00 78 18 90 06 4E 4F 4C 5A 42 |NLESEN.x...NOLZB|
00001070: 55 31 20 4A 53 52 20 A1 00 8A 18 9A 06 42 4E 45 |U1 JSR ......BNE|
00001080: 20 4E 91 55 4C 4C 4E 41 4D 45 00 97 18 A4 06 4C | N.ULLNAME.....L|
00001090: 44 41 20 23 24 32 30 00 B6 18 AE 06 4E 91 55 4C |DA #$20.....N.UL|
000010A0: 4C 4E 41 4D 45 20 53 54 41 20 44 49 53 4B 4E 41 |LNAME STA DISKNA|
000010B0: 4D 45 AA 35 2C 58 00 BE 18 B8 06 49 4E 58 00 CB |ME.5,X.....INX..|
000010C0: 18 C2 06 43 50 58 20 23 24 31 30 00 DA 18 CC 06 |...CPX #$10.....|
000010D0: 42 45 51 20 44 55 4D 4D 59 33 00 E7 18 D6 06 43 |BEQ DUMMY3.....C|
000010E0: 50 58 20 23 24 31 32 00 F7 18 E0 06 42 4E 45 20 |PX #$12.....BNE |
000010F0: 4E 4F 4C 5A 42 55 31 00 06 19 EA 06 4A 4D 50 20 |NOLZBU1.....JMP |
00001100: 80 44 49 53 4B 4E 00 2D 19 F4 06 44 55 4D 4D 59 |.DISKN.-...DUMMY|
00001110: 33 20 4A 53 52 20 A1 20 20 20 20 3B 32 20 42 59 |3 JSR . ;2 BY|
00001120: 54 45 20 55 45 42 45 52 4C 45 53 45 4E 00 37 19 |TE UEBERLESEN.7.|
00001130: FE 06 4A 53 52 20 A1 00 47 19 08 07 4A 4D 50 20 |..JSR ..G...JMP |
00001140: 4E 4F 4C 5A 42 55 31 00 66 19 12 07 80 44 49 53 |NOLZBU1.f....DIS|
00001150: 4B 4E 20 4A 53 52 20 9C 43 48 3B 42 55 53 20 B8 |KN JSR .CH;BUS .|
00001160: 49 47 45 42 45 4E 00 91 19 1C 07 4C 44 41 20 50 |IGEBEN.....LDA P|
00001170: 52 4F 5A 20 20 20 20 20 20 20 20 20 20 3B 5A 45 |ROZ ;ZE|
00001180: 49 47 45 52 20 41 55 46 20 44 49 53 4B 4E 41 4D |IGER AUF DISKNAM|
00001190: 45 00 9E 19 26 07 53 54 41 20 5A 45 49 47 00 AD |E...&.STA ZEIG..|
000011A0: 19 30 07 4C 44 41 20 50 52 4F 5A AA 31 00 BC 19 |.0.LDA PROZ.1...|
000011B0: 3A 07 53 54 41 20 5A 45 49 47 AA 31 00 CF 19 44 |:.STA ZEIG.1...D|
000011C0: 07 4C 44 41 20 23 B3 44 49 53 4B 4E 41 4D 45 00 |.LDA #.DISKNAME.|
000011D0: DC 19 4E 07 53 54 41 20 50 52 4F 5A 00 EF 19 58 |..N.STA PROZ...X|
000011E0: 07 4C 44 41 20 23 B1 44 49 53 4B 4E 41 4D 45 00 |.LDA #.DISKNAME.|
000011F0: FE 19 62 07 53 54 41 20 50 52 4F 5A AA 31 00 28 |..b.STA PROZ.1.(|
00001200: 1A 6C 07 4A 53 52 20 88 20 20 20 20 20 20 20 20 |.l.JSR . |
00001210: 20 20 20 3B 44 49 53 4B 4E 41 4D 45 20 55 45 42 | ;DISKNAME UEB|
00001220: 45 52 4E 45 48 4D 45 4E 00 52 1A 76 07 4C 44 41 |ERNEHMEN.R.v.LDA|
00001230: 20 5A 45 49 47 20 20 20 20 20 20 20 20 20 20 3B | ZEIG ;|
00001240: 5A 45 49 47 45 52 20 52 55 45 43 4B 53 45 54 5A |ZEIGER RUECKSETZ|
00001250: 45 4E 00 5F 1A 80 07 53 54 41 20 50 52 4F 5A 00 |EN._...STA PROZ.|
00001260: 6E 1A 8A 07 4C 44 41 20 5A 45 49 47 AA 31 00 7D |n...LDA ZEIG.1.}|
00001270: 1A 94 07 53 54 41 20 50 52 4F 5A AA 31 00 9F 1A |...STA PROZ.1...|
00001280: 9E 07 4E 4F 44 49 53 4B 4E 20 4C 44 41 20 23 24 |..NODISKN LDA #$|
00001290: 30 31 20 20 3B 42 4C 4F 43 4B 20 31 38 AD 31 00 |01 ;BLOCK 18.1.|
000012A0: AD 1A A8 07 53 54 41 20 53 45 43 A4 52 00 D8 1A |....STA SEC.R...|
000012B0: B2 07 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 |..LDA #$00 |
000012C0: 20 20 20 20 3B 41 4E 5A 41 48 4C 20 45 49 4E 47 | ;ANZAHL EING|
000012D0: 45 4C 45 53 45 4E 45 52 00 01 1B BC 07 53 54 41 |ELESENER.....STA|
000012E0: 20 5A 41 45 48 4C 20 20 20 20 20 20 20 20 20 3B | ZAEHL ;|
000012F0: 46 49 4C 45 53 20 52 55 45 43 4B 53 45 54 5A 45 |FILES RUECKSETZE|
00001300: 4E 00 22 1B C6 07 4E 41 45 53 45 43 20 4A 53 52 |N."...NAESEC JSR|
00001310: 20 87 54 52 53 45 3B 42 4C 4F 43 4B 20 4C 45 53 | .TRSE;BLOCK LES|
00001320: 45 4E 00 51 1B D0 07 4C 44 58 20 23 24 30 32 20 |EN.Q...LDX #$02 |
00001330: 20 20 20 20 20 20 20 20 20 3B 45 49 4E 47 41 42 | ;EINGAB|
00001340: 45 20 41 55 46 20 44 49 52 45 4B 54 4B 41 4E 41 |E AUF DIREKTKANA|
00001350: 4C 00 5F 1B DA 07 4A 53 52 20 43 48 4B 49 4E 00 |L._...JSR CHKIN.|
00001360: 84 1B E4 07 4A 53 52 20 A1 20 20 20 20 20 20 20 |....JSR . |
00001370: 20 20 20 20 3B 4E 41 45 43 48 53 54 45 4E 20 42 | ;NAECHSTEN B|
00001380: 4C 4F 43 4B 00 A2 1B EE 07 53 54 41 20 54 52 41 |LOCK.....STA TRA|
00001390: 43 4B 20 20 20 20 20 20 20 20 20 3B 4D 45 52 4B |CK ;MERK|
000013A0: 45 4E 00 AC 1B F8 07 4A 53 52 20 A1 00 BA 1B 02 |EN.....JSR .....|
000013B0: 08 53 54 41 20 53 45 43 A4 52 00 E0 1B 0C 08 4C |.STA SEC.R.....L|
000013C0: 44 41 20 23 24 30 38 20 20 20 20 20 20 20 20 20 |DA #$08 |
000013D0: 20 3B 41 4E 5A 41 48 4C 20 45 B5 52 41 45 47 45 | ;ANZAHL E.RAEGE|
000013E0: 00 06 1C 16 08 53 54 41 20 45 B5 52 41 47 20 20 |.....STA E.RAG |
000013F0: 20 20 20 20 20 3B 50 52 4F 20 42 4C 4F 43 4B 20 | ;PRO BLOCK |
00001400: 53 45 54 5A 45 4E 00 27 1C 20 08 4E 41 45 54 52 |SETZEN.'. .NAETR|
00001410: 41 47 20 4A 53 52 20 A1 20 20 20 3B 46 49 88 59 |AG JSR . ;FI.Y|
00001420: 50 20 4C 45 53 45 4E 00 35 1C 2A 08 53 54 41 20 |P LESEN.5.*.STA |
00001430: 54 59 46 4C 41 00 5D 1C 34 08 4A 53 52 20 A1 20 |TYFLA.].4.JSR . |
00001440: 20 20 20 20 20 20 20 20 20 20 3B 41 4E 46 41 4E | ;ANFAN|
00001450: 47 53 54 52 41 43 4B 20 4C 45 53 45 4E 00 84 1C |GSTRACK LESEN...|
00001460: 3E 08 53 54 41 20 24 36 33 20 20 20 20 20 20 20 |>.STA $63 |
00001470: 20 20 20 20 3B 55 4E 44 20 4E 41 43 48 20 53 54 | ;UND NACH ST|
00001480: 52 49 4E 47 00 AE 1C 48 08 4C 44 41 20 46 46 49 |RING...H.LDA FFI|
00001490: 88 52 41 43 4B 53 20 20 20 3B 41 4E 46 41 4E 47 |.RACKS ;ANFANG|
000014A0: 53 54 52 41 43 4B 20 47 45 46 52 41 47 54 00 D8 |STRACK GEFRAGT..|
000014B0: 1C 52 08 42 45 51 20 A8 52 41 20 20 20 20 20 20 |.R.BEQ .RA |
000014C0: 20 20 20 3B 4E 45 49 4E 2C 44 41 4E 4E 20 55 45 | ;NEIN,DANN UE|
000014D0: 42 45 52 47 45 48 45 4E 00 E5 1C 5C 08 4C 44 41 |BERGEHEN...\.LDA|
000014E0: 20 23 24 30 30 00 F1 1C 66 08 53 54 41 20 24 36 | #$00...f.STA $6|
000014F0: 32 00 FE 1C 70 08 4C 44 58 20 23 24 39 30 00 06 |2...p.LDX #$90..|
00001500: 1D 7A 08 53 45 43 00 21 1D 84 08 4A 53 52 20 B5 |.z.SEC.!...JSR .|
00001510: 4E 41 46 41 43 20 20 20 20 20 20 3B 57 AF 45 4C |NAFAC ;W.EL|
00001520: 4E 00 33 1D 8E 08 4A 53 52 20 46 41 43 4E 41 53 |N.3...JSR FACNAS|
00001530: 54 52 49 00 3B 1D 98 08 43 4C 43 00 43 1D A2 08 |TRI.;...CLC.C...|
00001540: 50 48 50 00 6B 1D AC 08 4C 44 58 20 23 24 30 30 |PHP.k...LDX #$00|
00001550: 20 20 20 20 20 20 20 20 20 20 3B 53 54 52 49 4E | ;STRIN|
00001560: 47 20 53 50 45 49 43 48 45 52 4E 00 83 1D B6 08 |G SPEICHERN.....|
00001570: 4E 4F 4C 5A 5A 8B 31 20 4C 44 41 20 24 30 31 30 |NOLZZ.1 LDA $010|
00001580: 30 2C 58 00 8B 1D C0 08 50 4C 50 00 93 1D CA 08 |0,X.....PLP.....|
00001590: 50 48 50 00 A3 1D D4 08 42 43 53 20 4A 41 4E 55 |PHP.....BCS JANU|
000015A0: 4C 4C 31 00 B0 1D DE 08 43 4D 50 20 23 24 30 30 |LL1.....CMP #$00|
000015B0: 00 BE 1D E8 08 42 4E 45 20 88 5A 5A 8B 31 00 C6 |.....BNE .ZZ.1..|
000015C0: 1D F2 08 50 4C 50 00 CE 1D FC 08 53 45 43 00 D6 |...PLP.....SEC..|
000015D0: 1D 06 09 50 48 50 00 EB 1D 10 09 4A 41 4E 55 4C |...PHP.....JANUL|
000015E0: 4C 31 20 4C 44 41 20 23 24 32 30 00 06 1E 1A 09 |L1 LDA #$20.....|
000015F0: 88 5A 5A 8B 31 20 53 54 41 20 46 49 88 52 41 43 |.ZZ.1 STA FI.RAC|
00001600: 4B 53 AA 39 2C 58 00 0E 1E 24 09 49 4E 58 00 1B |KS.9,X...$.INX..|
00001610: 1E 2E 09 43 50 58 20 23 24 30 33 00 2B 1E 38 09 |...CPX #$03.+.8.|
00001620: 42 4E 45 20 4E 4F 4C 5A 5A 8B 31 00 33 1E 42 09 |BNE NOLZZ.1.3.B.|
00001630: 50 4C 50 00 59 1E 4C 09 A8 52 41 20 4A 53 52 20 |PLP.Y.L..RA JSR |
00001640: A1 20 20 20 20 20 3B 41 4E 46 41 4E 47 53 53 45 |. ;ANFANGSSE|
00001650: 4B A4 52 20 4C 45 53 45 4E 00 80 1E 56 09 53 54 |K.R LESEN...V.ST|
00001660: 41 20 24 36 33 20 20 20 20 20 20 20 20 20 20 20 |A $63 |
00001670: 3B 55 4E 44 20 4E 41 43 48 20 53 54 52 49 4E 47 |;UND NACH STRING|
00001680: 00 AC 1E 60 09 4C 44 41 20 46 46 49 4C 45 53 45 |...`.LDA FFILESE|
00001690: 43 A4 52 53 20 20 3B 41 4E 46 41 4E 47 53 53 45 |C.RS ;ANFANGSSE|
000016A0: 4B A4 52 4E 20 47 45 46 52 41 47 54 00 D8 1E 6A |K.RN GEFRAGT...j|
000016B0: 09 42 45 51 20 4E 4F 53 45 43 20 20 20 20 20 20 |.BEQ NOSEC |
000016C0: 20 20 20 3B 4E 45 49 4E 2C 44 41 4E 4E 20 55 45 | ;NEIN,DANN UE|
000016D0: 42 45 52 4C 45 53 45 4E 00 E5 1E 74 09 4C 44 41 |BERLESEN...t.LDA|
000016E0: 20 23 24 30 30 00 F1 1E 7E 09 53 54 41 20 24 36 | #$00...~.STA $6|
000016F0: 32 00 FE 1E 88 09 4C 44 58 20 23 24 39 30 00 06 |2.....LDX #$90..|
00001700: 1F 92 09 53 45 43 00 21 1F 9C 09 4A 53 52 20 B5 |...SEC.!...JSR .|
00001710: 4E 41 46 41 43 20 20 20 20 20 20 3B 57 AF 45 4C |NAFAC ;W.EL|
00001720: 4E 00 33 1F A6 09 4A 53 52 20 46 41 43 4E 41 53 |N.3...JSR FACNAS|
00001730: 54 52 49 00 3B 1F B0 09 43 4C 43 00 43 1F BA 09 |TRI.;...CLC.C...|
00001740: 50 48 50 00 6B 1F C4 09 4C 44 58 20 23 24 30 30 |PHP.k...LDX #$00|
00001750: 20 20 20 20 20 20 20 20 20 20 3B 53 54 52 49 4E | ;STRIN|
00001760: 47 20 53 50 45 49 43 48 45 52 4E 00 83 1F CE 09 |G SPEICHERN.....|
00001770: 4E 4F 4C 5A 5A 8B 32 20 4C 44 41 20 24 30 31 30 |NOLZZ.2 LDA $010|
00001780: 30 2C 58 00 8B 1F D8 09 50 4C 50 00 93 1F E2 09 |0,X.....PLP.....|
00001790: 50 48 50 00 A3 1F EC 09 42 43 53 20 4A 41 4E 55 |PHP.....BCS JANU|
000017A0: 4C 4C 32 00 B0 1F F6 09 43 4D 50 20 23 24 30 30 |LL2.....CMP #$00|
000017B0: 00 BE 1F 00 0A 42 4E 45 20 88 5A 5A 8B 32 00 C6 |.....BNE .ZZ.2..|
000017C0: 1F 0A 0A 50 4C 50 00 CE 1F 14 0A 53 45 43 00 D6 |...PLP.....SEC..|
000017D0: 1F 1E 0A 50 48 50 00 EB 1F 28 0A 4A 41 4E 55 4C |...PHP...(.JANUL|
000017E0: 4C 32 20 4C 44 41 20 23 24 32 30 00 08 20 32 0A |L2 LDA #$20.. 2.|
000017F0: 88 5A 5A 8B 32 20 53 54 41 20 46 49 4C 45 53 45 |.ZZ.2 STA FILESE|
00001800: 43 A4 52 53 AA 39 2C 58 00 10 20 3C 0A 49 4E 58 |C.RS.9,X.. <.INX|
00001810: 00 1D 20 46 0A 43 50 58 20 23 24 30 33 00 2D 20 |.. F.CPX #$03.- |
00001820: 50 0A 42 4E 45 20 4E 4F 4C 5A 5A 8B 32 00 35 20 |P.BNE NOLZZ.2.5 |
00001830: 5A 0A 50 4C 50 00 48 20 64 0A 4E 4F 53 45 43 20 |Z.PLP.H d.NOSEC |
00001840: 4C 44 58 20 23 24 30 30 00 6A 20 6E 0A 4E 4F 4C |LDX #$00.j n.NOL|
00001850: 5A 42 55 32 20 4A 53 52 20 A1 20 20 20 3B 46 49 |ZBU2 JSR . ;FI|
00001860: C3 41 4D 45 20 4C 45 53 45 4E 00 8C 20 78 0A 42 |.AME LESEN.. x.B|
00001870: 4E 45 20 88 5A 5A 8B 33 20 20 20 20 20 20 3B 55 |NE .ZZ.3 ;U|
00001880: 4E 44 20 53 50 45 49 43 48 45 52 4E 00 99 20 82 |ND SPEICHERN.. .|
00001890: 0A 4C 44 41 20 23 24 32 30 00 B3 20 8C 0A 88 5A |.LDA #$20.. ...Z|
000018A0: 5A 8B 33 20 53 54 41 20 46 49 C3 41 4D 45 AA 31 |Z.3 STA FI.AME.1|
000018B0: 30 2C 58 00 BB 20 96 0A 49 4E 58 00 C8 20 A0 0A |0,X.. ..INX.. ..|
000018C0: 43 50 58 20 23 24 31 30 00 D8 20 AA 0A 42 4E 45 |CPX #$10.. ..BNE|
000018D0: 20 4E 4F 4C 5A 42 55 32 00 E5 20 B4 0A 4C 44 58 | NOLZBU2.. ..LDX|
000018E0: 20 23 24 30 39 00 0D 21 BE 0A 44 55 4D 4D 59 32 | #$09..!..DUMMY2|
000018F0: 20 4A 53 52 20 A1 20 20 20 20 3B 39 20 42 59 54 | JSR . ;9 BYT|
00001900: 45 53 20 55 45 42 45 52 4C 45 53 45 4E 00 15 21 |ES UEBERLESEN..!|
00001910: C8 0A 44 45 58 00 24 21 D2 0A 42 4E 45 20 44 55 |..DEX.$!..BNE DU|
00001920: 4D 4D 59 32 00 48 21 DC 0A 4A 53 52 20 A1 20 20 |MMY2.H!..JSR . |
00001930: 20 20 20 20 20 20 20 20 20 3B 41 4E 5A 41 48 4C | ;ANZAHL|
00001940: 20 42 4C 4F 45 43 4B 45 00 6F 21 E6 0A 53 54 41 | BLOECKE.o!..STA|
00001950: 20 24 36 33 20 20 20 20 20 20 20 20 20 20 20 3B | $63 ;|
00001960: 44 45 53 20 46 49 4C 45 53 20 4C 45 53 45 4E 00 |DES FILES LESEN.|
00001970: 92 21 F0 0A 4A 53 52 20 A1 20 20 20 20 20 20 20 |.!..JSR . |
00001980: 20 20 20 20 3B 55 4E 44 20 49 4E 20 53 54 52 49 | ;UND IN STRI|
00001990: 4E 47 00 9E 21 FA 0A 53 54 41 20 24 36 32 00 C5 |NG..!..STA $62..|
000019A0: 21 04 0B 4C 44 41 20 46 42 4C 4F 45 43 4B 45 20 |!..LDA FBLOECKE |
000019B0: 20 20 20 20 20 3B 42 4C 4F 45 43 4B 45 20 47 45 | ;BLOECKE GE|
000019C0: 46 52 41 47 54 00 F1 21 0E 0B 42 45 51 20 4E 4F |FRAGT..!..BEQ NO|
000019D0: 42 4C 4F 20 20 20 20 20 20 20 20 20 3B 4E 45 49 |BLO ;NEI|
000019E0: 4E 2C 44 41 4E 4E 20 55 45 42 45 52 47 45 48 45 |N,DANN UEBERGEHE|
000019F0: 4E 00 FE 21 18 0B 4C 44 58 20 23 24 39 30 00 06 |N..!..LDX #$90..|
00001A00: 22 22 0B 53 45 43 00 21 22 2C 0B 4A 53 52 20 B5 |"".SEC.!",.JSR .|
00001A10: 4E 41 46 41 43 20 20 20 20 20 20 3B 57 AF 45 4C |NAFAC ;W.EL|
00001A20: 4E 00 33 22 36 0B 4A 53 52 20 46 41 43 4E 41 53 |N.3"6.JSR FACNAS|
00001A30: 54 52 49 00 3B 22 40 0B 43 4C 43 00 43 22 4A 0B |TRI.;"@.CLC.C"J.|
00001A40: 50 48 50 00 6B 22 54 0B 4C 44 58 20 23 24 30 30 |PHP.k"T.LDX #$00|
00001A50: 20 20 20 20 20 20 20 20 20 20 3B 53 54 52 49 4E | ;STRIN|
00001A60: 47 20 53 50 45 49 43 48 45 52 4E 00 83 22 5E 0B |G SPEICHERN.."^.|
00001A70: 4E 4F 4C 5A 5A 8B 33 20 4C 44 41 20 24 30 31 30 |NOLZZ.3 LDA $010|
00001A80: 30 2C 58 00 8B 22 68 0B 50 4C 50 00 93 22 72 0B |0,X.."h.PLP.."r.|
00001A90: 50 48 50 00 A3 22 7C 0B 42 43 53 20 4A 41 4E 55 |PHP.."|.BCS JANU|
00001AA0: 4C 4C 33 00 B0 22 86 0B 43 4D 50 20 23 24 30 30 |LL3.."..CMP #$00|
00001AB0: 00 BE 22 90 0B 42 4E 45 20 88 5A 5A 8B 34 00 C6 |.."..BNE .ZZ.4..|
00001AC0: 22 9A 0B 50 4C 50 00 CE 22 A4 0B 53 45 43 00 D6 |"..PLP.."..SEC..|
00001AD0: 22 AE 0B 50 48 50 00 EB 22 B8 0B 4A 41 4E 55 4C |"..PHP.."..JANUL|
00001AE0: 4C 33 20 4C 44 41 20 23 24 32 30 00 05 23 C2 0B |L3 LDA #$20..#..|
00001AF0: 88 5A 5A 8B 34 20 53 54 41 20 42 4C 4F 45 43 4B |.ZZ.4 STA BLOECK|
00001B00: 45 AA 39 2C 58 00 0D 23 CC 0B 49 4E 58 00 1A 23 |E.9,X..#..INX..#|
00001B10: D6 0B 43 50 58 20 23 24 30 33 00 2A 23 E0 0B 42 |..CPX #$03.*#..B|
00001B20: 4E 45 20 4E 4F 4C 5A 5A 8B 33 00 32 23 EA 0B 50 |NE NOLZZ.3.2#..P|
00001B30: 4C 50 00 57 23 F4 0B 4E 4F 42 4C 4F 20 4C 44 41 |LP.W#..NOBLO LDA|
00001B40: 20 46 46 49 88 59 50 45 4E 3B 46 49 88 59 50 20 | FFI.YPEN;FI.YP |
00001B50: 47 45 46 52 41 47 54 00 81 23 FE 0B 42 45 51 20 |GEFRAGT..#..BEQ |
00001B60: A8 59 50 20 20 20 20 20 20 20 20 20 3B 4E 45 49 |.YP ;NEI|
00001B70: 4E 2C 44 41 4E 4E 20 55 45 42 45 52 47 45 48 45 |N,DANN UEBERGEHE|
00001B80: 4E 00 A2 23 08 0C 4C 44 58 20 54 59 46 4C 41 20 |N..#..LDX TYFLA |
00001B90: 20 20 20 20 20 20 20 20 3B 46 49 88 59 50 20 48 | ;FI.YP H|
00001BA0: 4F C3 00 C9 23 12 0C 4C 44 41 20 23 24 30 30 20 |O...#..LDA #$00 |
00001BB0: 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 4E 41 | ;UND NA|
00001BC0: 43 48 20 53 54 52 49 4E 47 00 D5 23 1C 0C 53 54 |CH STRING..#..ST|
00001BD0: 41 20 24 36 32 00 E1 23 26 0C 53 54 58 20 24 36 |A $62..#&.STX $6|
00001BE0: 33 00 EE 23 30 0C 4C 44 58 20 23 24 39 30 00 F6 |3..#0.LDX #$90..|
00001BF0: 23 3A 0C 53 45 43 00 11 24 44 0C 4A 53 52 20 B5 |#:.SEC..$D.JSR .|
00001C00: 4E 41 46 41 43 20 20 20 20 20 20 3B 57 AF 45 4C |NAFAC ;W.EL|
00001C10: 4E 00 23 24 4E 0C 4A 53 52 20 46 41 43 4E 41 53 |N.#$N.JSR FACNAS|
00001C20: 54 52 49 00 2B 24 58 0C 43 4C 43 00 33 24 62 0C |TRI.+$X.CLC.3$b.|
00001C30: 50 48 50 00 5B 24 6C 0C 4C 44 58 20 23 24 30 30 |PHP.[$l.LDX #$00|
00001C40: 20 20 20 20 20 20 20 20 20 20 3B 53 54 52 49 4E | ;STRIN|
00001C50: 47 20 53 50 45 49 43 48 45 52 4E 00 73 24 76 0C |G SPEICHERN.s$v.|
00001C60: 4E 4F 4C 5A 5A 8B 34 20 4C 44 41 20 24 30 31 30 |NOLZZ.4 LDA $010|
00001C70: 30 2C 58 00 7B 24 80 0C 50 4C 50 00 83 24 8A 0C |0,X.{$..PLP..$..|
00001C80: 50 48 50 00 93 24 94 0C 42 43 53 20 4A 41 4E 55 |PHP..$..BCS JANU|
00001C90: 4C 4C 34 00 A0 24 9E 0C 43 4D 50 20 23 24 30 30 |LL4..$..CMP #$00|
00001CA0: 00 AE 24 A8 0C 42 4E 45 20 88 5A 5A 8B 35 00 B6 |..$..BNE .ZZ.5..|
00001CB0: 24 B2 0C 50 4C 50 00 BE 24 BC 0C 53 45 43 00 C6 |$..PLP..$..SEC..|
00001CC0: 24 C6 0C 50 48 50 00 DB 24 D0 0C 4A 41 4E 55 4C |$..PHP..$..JANUL|
00001CD0: 4C 34 20 4C 44 41 20 23 24 32 30 00 F5 24 DA 0C |L4 LDA #$20..$..|
00001CE0: 88 5A 5A 8B 35 20 53 54 41 20 46 49 88 59 50 45 |.ZZ.5 STA FI.YPE|
00001CF0: 4E AA 39 2C 58 00 FD 24 E4 0C 49 4E 58 00 0A 25 |N.9,X..$..INX..%|
00001D00: EE 0C 43 50 58 20 23 24 30 33 00 1A 25 F8 0C 42 |..CPX #$03..%..B|
00001D10: 4E 45 20 4E 4F 4C 5A 5A 8B 34 00 22 25 02 0D 50 |NE NOLZZ.4."%..P|
00001D20: 4C 50 00 3D 25 0C 0D A8 59 50 20 4C 44 41 20 54 |LP.=%...YP LDA T|
00001D30: 59 46 4C 41 20 20 20 3B 46 49 88 59 50 00 62 25 |YFLA ;FI.YP.b%|
00001D40: 16 0D AF 20 23 24 30 37 20 20 20 20 20 20 20 20 |... #$07 |
00001D50: 20 20 3B 41 55 46 20 43 4F 44 45 20 54 45 53 54 | ;AUF CODE TEST|
00001D60: 45 4E 00 6F 25 20 0D 4C 44 58 20 23 24 30 30 00 |EN.o% .LDX #$00.|
00001D70: 87 25 2A 0D 4E 4F 88 5A 54 59 20 43 4D 50 20 46 |.%*.NO.ZTY CMP F|
00001D80: 4C 41 54 59 50 2C 58 00 B4 25 34 0D 42 45 51 20 |LATYP,X..%4.BEQ |
00001D90: 54 52 41 47 45 49 4E 20 20 20 20 20 20 20 3B 47 |TRAGEIN ;G|
00001DA0: 45 46 55 4E 44 45 4E 2C 44 41 4E 4E 20 45 B5 52 |EFUNDEN,DANN E.R|
00001DB0: 41 47 45 4E 00 BC 25 3E 0D 49 4E 58 00 C9 25 48 |AGEN..%>.INX..%H|
00001DC0: 0D 43 50 58 20 23 24 30 35 00 EE 25 52 0D 42 4E |.CPX #$05..%R.BN|
00001DD0: 45 20 4E 4F 88 5A 54 59 20 20 20 20 20 20 3B 53 |E NO.ZTY ;S|
00001DE0: 43 48 91 20 88 5A 54 45 52 20 43 4F 44 45 00 03 |CH. .ZTER CODE..|
00001DF0: 26 5C 0D 4E 41 45 45 B5 52 20 44 45 43 20 45 B5 |&\.NAEE.R DEC E.|
00001E00: 52 41 47 00 2E 26 66 0D 42 45 51 20 55 4E 41 45 |RAG..&f.BEQ UNAE|
00001E10: 53 45 43 20 20 20 20 20 20 20 3B 88 5A 54 45 52 |SEC ;.ZTER|
00001E20: 20 45 B5 52 41 47 20 47 45 4C 45 53 45 4E 00 5A | E.RAG GELESEN.Z|
00001E30: 26 70 0D 4A 53 52 20 A1 20 20 20 20 20 20 20 20 |&p.JSR . |
00001E40: 20 20 20 3B 4E 45 49 4E 2C 32 20 42 59 54 45 20 | ;NEIN,2 BYTE |
00001E50: 55 45 42 45 52 4C 45 53 45 4E 00 7D 26 7A 0D 4A |UEBERLESEN.}&z.J|
00001E60: 53 52 20 A1 20 20 20 20 20 20 20 20 20 20 20 3B |SR . ;|
00001E70: 55 4E 44 20 4E 41 45 43 48 53 54 45 4E 00 A5 26 |UND NAECHSTEN..&|
00001E80: 84 0D 4A 4D 50 20 4E 41 45 54 52 41 47 20 20 20 |..JMP NAETRAG |
00001E90: 20 20 20 20 3B 45 B5 52 41 47 20 42 45 41 52 42 | ;E.RAG BEARB|
00001EA0: 45 49 54 45 4E 00 CD 26 8E 0D 55 4E 41 45 53 45 |EITEN..&..UNAESE|
00001EB0: 43 20 4C 44 41 20 54 52 41 43 4B 20 3B 53 43 48 |C LDA TRACK ;SCH|
00001EC0: 91 20 88 5A 54 45 52 20 42 4C 4F 43 4B 00 DA 26 |. .ZTER BLOCK..&|
00001ED0: 98 0D 43 4D 50 20 23 24 30 30 00 FA 26 A2 0D 42 |..CMP #$00..&..B|
00001EE0: 45 51 20 80 45 20 20 20 20 20 20 20 20 20 20 3B |EQ .E ;|
00001EF0: 4A 41 2C 44 41 4E 4E 20 80 45 00 26 27 AC 0D 4A |JA,DANN .E.&'..J|
00001F00: 4D 50 20 4E 41 45 53 45 43 20 20 20 20 20 20 20 |MP NAESEC |
00001F10: 20 3B 4E 45 49 4E 2C 4E 41 45 43 48 53 54 45 52 | ;NEIN,NAECHSTER|
00001F20: 20 42 4C 4F 43 4B 00 48 27 B6 0D 54 52 41 47 45 | BLOCK.H'..TRAGE|
00001F30: 49 4E 20 4C 44 58 20 5A 41 45 48 4C 20 3B 5A 45 |IN LDX ZAEHL ;ZE|
00001F40: 49 47 45 52 20 41 55 46 00 75 27 C0 0D 4C 44 41 |IGER AUF.u'..LDA|
00001F50: 20 23 24 30 30 20 20 20 20 20 20 20 20 20 20 3B | #$00 ;|
00001F60: 4E 41 45 43 48 53 54 45 53 20 46 45 4C 44 45 4C |NAECHSTES FELDEL|
00001F70: 45 4D 45 4E 54 00 98 27 CA 0D 53 54 41 20 24 36 |EMENT..'..STA $6|
00001F80: 32 20 20 20 20 20 20 20 20 20 20 20 3B 4E 41 43 |2 ;NAC|
00001F90: 48 20 53 54 52 49 4E 47 00 A4 27 D4 0D 53 54 58 |H STRING..'..STX|
00001FA0: 20 24 36 33 00 B1 27 DE 0D 4C 44 58 20 23 24 39 | $63..'..LDX #$9|
00001FB0: 30 00 B9 27 E8 0D 53 45 43 00 D4 27 F2 0D 4A 53 |0..'..SEC..'..JS|
00001FC0: 52 20 B5 4E 41 46 41 43 20 20 20 20 20 20 3B 57 |R .NAFAC ;W|
00001FD0: AF 45 4C 4E 00 E6 27 FC 0D 4A 53 52 20 46 41 43 |.ELN..'..JSR FAC|
00001FE0: 4E 41 53 54 52 49 00 EE 27 06 0E 43 4C 43 00 F6 |NASTRI..'..CLC..|
00001FF0: 27 10 0E 50 48 50 00 1B 28 1A 0E 4C 44 58 20 23 |'..PHP..(..LDX #|
00002000: 24 30 30 20 20 20 20 20 20 20 20 20 20 3B 55 4E |$00 ;UN|
00002010: 44 20 53 50 45 49 43 48 45 52 4E 00 33 28 24 0E |D SPEICHERN.3($.|
00002020: 4E 4F 4C 5A 5A 8B 35 20 4C 44 41 20 24 30 31 30 |NOLZZ.5 LDA $010|
00002030: 30 2C 58 00 3B 28 2E 0E 50 4C 50 00 43 28 38 0E |0,X.;(..PLP.C(8.|
00002040: 50 48 50 00 53 28 42 0E 42 43 53 20 4A 41 4E 55 |PHP.S(B.BCS JANU|
00002050: 4C 4C 35 00 60 28 4C 0E 43 4D 50 20 23 24 30 30 |LL5.`(L.CMP #$00|
00002060: 00 6E 28 56 0E 42 4E 45 20 88 5A 5A 8B 36 00 76 |.n(V.BNE .ZZ.6.v|
00002070: 28 60 0E 50 4C 50 00 7E 28 6A 0E 53 45 43 00 86 |(`.PLP.~(j.SEC..|
00002080: 28 74 0E 50 48 50 00 9B 28 7E 0E 4A 41 4E 55 4C |(t.PHP..(~.JANUL|
00002090: 4C 35 20 4C 44 41 20 23 24 32 30 00 B4 28 88 0E |L5 LDA #$20..(..|
000020A0: 88 5A 5A 8B 36 20 53 54 41 20 46 49 C3 41 4D 45 |.ZZ.6 STA FI.AME|
000020B0: AA 34 2C 58 00 C8 28 92 0E 53 54 41 20 42 4C 4F |.4,X..(..STA BLO|
000020C0: 45 43 4B 45 AA 34 2C 58 00 DC 28 9C 0E 53 54 41 |ECKE.4,X..(..STA|
000020D0: 20 46 49 88 59 50 45 4E AA 34 2C 58 00 F1 28 A6 | FI.YPEN.4,X..(.|
000020E0: 0E 53 54 41 20 46 49 88 52 41 43 4B 53 AA 34 2C |.STA FI.RACKS.4,|
000020F0: 58 00 08 29 B0 0E 53 54 41 20 46 49 4C 45 53 45 |X..)..STA FILESE|
00002100: 43 A4 52 53 AA 34 2C 58 00 10 29 BA 0E 49 4E 58 |C.RS.4,X..)..INX|
00002110: 00 1D 29 C4 0E 43 50 58 20 23 24 30 33 00 2D 29 |..)..CPX #$03.-)|
00002120: CE 0E 42 4E 45 20 4E 4F 4C 5A 5A 8B 35 00 35 29 |..BNE NOLZZ.5.5)|
00002130: D8 0E 50 4C 50 00 5C 29 E2 0E 49 4E 43 20 5A 41 |..PLP.\)..INC ZA|
00002140: 45 48 4C 20 20 20 20 20 20 20 20 20 3B 5A 45 49 |EHL ;ZEI|
00002150: 47 45 52 20 45 52 48 4F 45 48 45 4E 00 85 29 EC |GER ERHOEHEN..).|
00002160: 0E 4A 53 52 20 44 4F 88 20 20 20 20 20 20 20 20 |.JSR DO. |
00002170: 20 3B 56 41 52 49 41 42 C3 20 55 45 42 45 52 4E | ;VARIAB. UEBERN|
00002180: 45 48 4D 45 4E 00 B1 29 F6 0E 4A 4D 50 20 4E 41 |EHMEN..)..JMP NA|
00002190: 45 45 B5 52 20 20 20 20 20 20 3B 57 45 49 54 45 |EE.R ;WEITE|
000021A0: 52 20 4E 41 45 43 48 53 54 45 52 20 45 B5 52 41 |R NAECHSTER E.RA|
000021B0: 47 00 D5 29 00 0F 80 45 20 4C 44 41 20 46 41 4E |G..)...E LDA FAN|
000021C0: 5A 41 48 4C 20 20 3B 41 4E 5A 41 48 4C 20 47 45 |ZAHL ;ANZAHL GE|
000021D0: 46 52 41 47 54 00 01 2A 0A 0F 42 45 51 20 4E 4F |FRAGT..*..BEQ NO|
000021E0: 41 4E 5A 41 48 4C 20 20 20 20 20 20 3B 4E 45 49 |ANZAHL ;NEI|
000021F0: 4E 2C 44 41 4E 4E 20 55 45 42 45 52 47 45 48 45 |N,DANN UEBERGEHE|
00002200: 4E 00 28 2A 14 0F 4C 44 41 20 5A 41 45 48 4C 20 |N.(*..LDA ZAEHL |
00002210: 20 20 20 20 20 20 20 20 3B 41 4E 5A 41 48 4C 20 | ;ANZAHL |
00002220: 45 4C 45 4D 45 4E 54 45 00 4B 2A 1E 0F 53 54 41 |ELEMENTE.K*..STA|
00002230: 20 24 36 33 20 20 20 20 20 20 20 20 20 20 20 3B | $63 ;|
00002240: 4E 41 43 48 20 53 54 52 49 4E 47 00 58 2A 28 0F |NACH STRING.X*(.|
00002250: 4C 44 41 20 23 24 30 30 00 64 2A 32 0F 53 54 41 |LDA #$00.d*2.STA|
00002260: 20 24 36 32 00 71 2A 3C 0F 4C 44 58 20 23 24 39 | $62.q*<.LDX #$9|
00002270: 30 00 79 2A 46 0F 53 45 43 00 94 2A 50 0F 4A 53 |0.y*F.SEC..*P.JS|
00002280: 52 20 B5 4E 41 46 41 43 20 20 20 20 20 20 3B 57 |R .NAFAC ;W|
00002290: AF 45 4C 4E 00 A6 2A 5A 0F 4A 53 52 20 46 41 43 |.ELN..*Z.JSR FAC|
000022A0: 4E 41 53 54 52 49 00 AE 2A 64 0F 43 4C 43 00 B6 |NASTRI..*d.CLC..|
000022B0: 2A 6E 0F 50 48 50 00 DB 2A 78 0F 4C 44 58 20 23 |*n.PHP..*x.LDX #|
000022C0: 24 30 30 20 20 20 20 20 20 20 20 20 20 3B 55 4E |$00 ;UN|
000022D0: 44 20 53 50 45 49 43 48 45 52 4E 00 F3 2A 82 0F |D SPEICHERN..*..|
000022E0: 4E 4F 4C 5A 5A 8B 36 20 4C 44 41 20 24 30 31 30 |NOLZZ.6 LDA $010|
000022F0: 30 2C 58 00 FB 2A 8C 0F 50 4C 50 00 03 2B 96 0F |0,X..*..PLP..+..|
00002300: 50 48 50 00 13 2B A0 0F 42 43 53 20 4A 41 4E 55 |PHP..+..BCS JANU|
00002310: 4C 4C 36 00 20 2B AA 0F 43 4D 50 20 23 24 30 30 |LL6. +..CMP #$00|
00002320: 00 2E 2B B4 0F 42 4E 45 20 88 5A 5A 8B 37 00 36 |..+..BNE .ZZ.7.6|
00002330: 2B BE 0F 50 4C 50 00 3E 2B C8 0F 53 45 43 00 46 |+..PLP.>+..SEC.F|
00002340: 2B D2 0F 50 48 50 00 5B 2B DC 0F 4A 41 4E 55 4C |+..PHP.[+..JANUL|
00002350: 4C 36 20 4C 44 41 20 23 24 32 30 00 74 2B E6 0F |L6 LDA #$20.t+..|
00002360: 88 5A 5A 8B 37 20 53 54 41 20 41 4E 5A 41 48 4C |.ZZ.7 STA ANZAHL|
00002370: AA 34 2C 58 00 7C 2B F0 0F 49 4E 58 00 89 2B FA |.4,X.|+..INX..+.|
00002380: 0F 43 50 58 20 23 24 30 33 00 99 2B 04 10 42 4E |.CPX #$03..+..BN|
00002390: 45 20 4E 4F 4C 5A 5A 8B 36 00 A1 2B 0E 10 50 4C |E NOLZZ.6..+..PL|
000023A0: 50 00 CA 2B 18 10 4C 44 41 20 50 52 4F 5A 20 20 |P..+..LDA PROZ |
000023B0: 20 20 20 20 20 20 20 20 3B 5A 45 49 47 45 52 20 | ;ZEIGER |
000023C0: 41 55 46 20 41 4E 5A 41 48 4C 00 E8 2B 22 10 53 |AUF ANZAHL..+".S|
000023D0: 54 41 20 5A 45 49 47 20 20 20 20 20 20 20 20 20 |TA ZEIG |
000023E0: 20 3B 53 45 54 5A 45 4E 00 F7 2B 2C 10 4C 44 41 | ;SETZEN..+,.LDA|
000023F0: 20 50 52 4F 5A AA 31 00 06 2C 36 10 53 54 41 20 | PROZ.1..,6.STA |
00002400: 5A 45 49 47 AA 31 00 17 2C 40 10 4C 44 41 20 23 |ZEIG.1..,@.LDA #|
00002410: B3 41 4E 5A 41 48 4C 00 24 2C 4A 10 53 54 41 20 |.ANZAHL.$,J.STA |
00002420: 50 52 4F 5A 00 35 2C 54 10 4C 44 41 20 23 B1 41 |PROZ.5,T.LDA #.A|
00002430: 4E 5A 41 48 4C 00 44 2C 5E 10 53 54 41 20 50 52 |NZAHL.D,^.STA PR|
00002440: 4F 5A AA 31 00 69 2C 68 10 4A 53 52 20 88 20 20 |OZ.1.i,h.JSR . |
00002450: 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 55 45 | ;UND UE|
00002460: 42 45 52 4E 45 48 4D 45 4E 00 93 2C 72 10 4C 44 |BERNEHMEN..,r.LD|
00002470: 41 20 5A 45 49 47 20 20 20 20 20 20 20 20 20 20 |A ZEIG |
00002480: 3B 5A 45 49 47 45 52 20 52 55 45 43 4B 53 45 54 |;ZEIGER RUECKSET|
00002490: 5A 45 4E 00 A0 2C 7C 10 53 54 41 20 50 52 4F 5A |ZEN..,|.STA PROZ|
000024A0: 00 AF 2C 86 10 4C 44 41 20 5A 45 49 47 AA 31 00 |..,..LDA ZEIG.1.|
000024B0: BE 2C 90 10 53 54 41 20 50 52 4F 5A AA 31 00 DF |.,..STA PROZ.1..|
000024C0: 2C 9A 10 4E 4F 41 4E 5A 41 48 4C 20 4A 53 52 20 |,..NOANZAHL JSR |
000024D0: 9C 43 48 3B 42 55 53 20 B8 49 47 45 42 45 4E 00 |.CH;BUS .IGEBEN.|
000024E0: 09 2D A4 10 4C 44 41 20 23 24 30 32 20 20 20 20 |.-..LDA #$02 |
000024F0: 20 20 20 20 20 20 3B 4B 41 4E 41 45 4C 45 20 53 | ;KANAELE S|
00002500: 43 48 4C 49 45 53 53 45 4E 00 13 2D AE 10 4A 53 |CHLIESSEN..-..JS|
00002510: 52 20 A0 00 20 2D B8 10 4C 44 41 20 23 24 30 46 |R .. -..LDA #$0F|
00002520: 00 2A 2D C2 10 4A 53 52 20 A0 00 44 2D CC 10 52 |.*-..JSR ..D-..R|
00002530: 54 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TS |
00002540: 20 3B 80 45 00 6B 2D D6 10 3B 20 AB AB AB AB AB | ;.E.k-..; .....|
00002550: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002560: AB AB AB AB AB AB AB AB AB AB AB 00 8B 2D E0 10 |.............-..|
00002570: 87 54 52 53 45 20 4C 44 58 20 54 52 41 43 4B 3B |.TRSE LDX TRACK;|
00002580: 54 52 41 43 4B 4E 55 4D 4D 45 52 00 AE 2D EA 10 |TRACKNUMMER..-..|
00002590: 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 20 20 |LDA #$00 |
000025A0: 20 20 3B 4E 41 43 48 20 53 54 52 49 4E 47 00 BA | ;NACH STRING..|
000025B0: 2D F4 10 53 54 41 20 24 36 32 00 C6 2D FE 10 53 |-..STA $62..-..S|
000025C0: 54 58 20 24 36 33 00 D2 2D 08 11 4A 53 52 20 9C |TX $63..-..JSR .|
000025D0: 43 48 00 DF 2D 12 11 4C 44 58 20 23 24 39 30 00 |CH..-..LDX #$90.|
000025E0: E7 2D 1C 11 53 45 43 00 02 2E 26 11 4A 53 52 20 |.-..SEC...&.JSR |
000025F0: B5 4E 41 46 41 43 20 20 20 20 20 20 3B 57 AF 45 |.NAFAC ;W.E|
00002600: 4C 4E 00 14 2E 30 11 4A 53 52 20 46 41 43 4E 41 |LN...0.JSR FACNA|
00002610: 53 54 52 49 00 39 2E 3A 11 4C 44 41 20 24 30 31 |STRI.9.:.LDA $01|
00002620: 30 30 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 |00 ;UND |
00002630: 53 50 45 49 43 48 45 52 4E 00 46 2E 44 11 53 54 |SPEICHERN.F.D.ST|
00002640: 41 20 42 87 AA 39 00 54 2E 4E 11 4C 44 41 20 24 |A B..9.T.N.LDA $|
00002650: 30 31 30 31 00 61 2E 58 11 43 4D 50 20 23 24 30 |0101.a.X.CMP #$0|
00002660: 30 00 71 2E 62 11 42 4E 45 20 4E 91 55 4C 4C 54 |0.q.b.BNE N.ULLT|
00002670: 52 00 7E 2E 6C 11 4C 44 41 20 23 24 32 30 00 94 |R.~.l.LDA #$20..|
00002680: 2E 76 11 4E 91 55 4C 4C 54 52 20 53 54 41 20 42 |.v.N.ULLTR STA B|
00002690: 87 AA 31 30 00 B6 2E 80 11 4C 44 58 20 53 45 43 |..10.....LDX SEC|
000026A0: A4 52 20 20 20 20 20 20 20 20 3B 53 45 4B A4 52 |.R ;SEK.R|
000026B0: 4E 55 4D 4D 45 52 00 D9 2E 8A 11 4C 44 41 20 23 |NUMMER.....LDA #|
000026C0: 24 30 30 20 20 20 20 20 20 20 20 20 20 3B 4E 41 |$00 ;NA|
000026D0: 43 48 20 53 54 52 49 4E 47 00 E5 2E 94 11 53 54 |CH STRING.....ST|
000026E0: 41 20 24 36 32 00 F1 2E 9E 11 53 54 58 20 24 36 |A $62.....STX $6|
000026F0: 33 00 FE 2E A8 11 4C 44 58 20 23 24 39 30 00 06 |3.....LDX #$90..|
00002700: 2F B2 11 53 45 43 00 21 2F BC 11 4A 53 52 20 B5 |/..SEC.!/..JSR .|
00002710: 4E 41 46 41 43 20 20 20 20 20 20 3B 57 AF 45 4C |NAFAC ;W.EL|
00002720: 4E 00 33 2F C6 11 4A 53 52 20 46 41 43 4E 41 53 |N.3/..JSR FACNAS|
00002730: 54 52 49 00 58 2F D0 11 4C 44 41 20 24 30 31 30 |TRI.X/..LDA $010|
00002740: 30 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 53 |0 ;UND S|
00002750: 50 45 49 43 48 45 52 4E 00 66 2F DA 11 53 54 41 |PEICHERN.f/..STA|
00002760: 20 42 87 AA 31 32 00 74 2F E4 11 4C 44 41 20 24 | B..12.t/..LDA $|
00002770: 30 31 30 31 00 81 2F EE 11 43 4D 50 20 23 24 30 |0101../..CMP #$0|
00002780: 30 00 92 2F F8 11 42 4E 45 20 4E 91 55 4C 4C 53 |0../..BNE N.ULLS|
00002790: 45 43 00 9F 2F 02 12 4C 44 41 20 23 24 32 30 00 |EC../..LDA #$20.|
000027A0: B6 2F 0C 12 4E 91 55 4C 4C 53 45 43 20 53 54 41 |./..N.ULLSEC STA|
000027B0: 20 42 87 AA 31 33 00 E2 2F 16 12 4C 44 58 20 23 | B..13../..LDX #|
000027C0: 24 30 46 20 20 20 20 20 20 20 20 20 20 3B 41 55 |$0F ;AU|
000027D0: 53 47 41 42 45 20 41 55 46 20 4B 4F 4D 4D AF 4F |SGABE AUF KOMM.O|
000027E0: 4B 2E 00 F0 2F 20 12 4A 53 52 20 43 4B 4F 55 54 |K.../ .JSR CKOUT|
000027F0: 00 1C 30 2A 12 4C 44 59 20 23 24 30 30 20 20 20 |..0*.LDY #$00 |
00002800: 20 20 20 20 20 20 20 3B 55 31 28 42 AB 52 29 20 | ;U1(B.R) |
00002810: 55 4E 44 20 42 AB 50 20 53 80 45 4E 00 2F 30 34 |UND B.P S.EN./04|
00002820: 12 53 80 5A 45 49 20 4C 44 41 20 42 87 2C 59 00 |.S.ZEI LDA B.,Y.|
00002830: 3B 30 3E 12 42 45 51 20 80 53 80 00 4A 30 48 12 |;0>.BEQ .S..J0H.|
00002840: 4A 53 52 20 49 45 43 4F 55 54 00 57 30 52 12 43 |JSR IECOUT.W0R.C|
00002850: 4D 50 20 23 24 30 44 00 67 30 5C 12 42 4E 45 20 |MP #$0D.g0\.BNE |
00002860: 4E B0 45 54 55 52 4E 00 74 30 66 12 4A 53 52 20 |N.ETURN.t0f.JSR |
00002870: 80 42 45 46 00 84 30 70 12 4E B0 45 54 55 52 4E |.BEF..0p.N.ETURN|
00002880: 20 49 4E 59 00 92 30 7A 12 42 4E 45 20 53 80 5A | INY..0z.BNE S.Z|
00002890: 45 49 00 AF 30 84 12 80 53 80 20 4A 53 52 20 9C |EI..0...S. JSR .|
000028A0: 43 48 20 3B 42 55 53 20 B8 49 47 45 42 45 4E 00 |CH ;BUS .IGEBEN.|
000028B0: D2 30 8E 12 52 54 53 20 20 20 20 20 20 20 20 20 |.0..RTS |
000028C0: 20 20 20 20 20 20 3B 55 4E 44 20 5A 55 52 55 45 | ;UND ZURUE|
000028D0: 43 4B 00 E3 30 98 12 80 42 45 46 20 4A 53 52 20 |CK..0...BEF JSR |
000028E0: 9C 43 48 00 F0 30 A2 12 4C 44 58 20 23 24 30 46 |.CH..0..LDX #$0F|
000028F0: 00 FE 30 AC 12 4A 53 52 20 43 4B 4F 55 54 00 06 |..0..JSR CKOUT..|
00002900: 31 B6 12 52 54 53 00 2D 31 C0 12 3B 20 AB AB AB |1..RTS.-1..; ...|
00002910: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002920: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 5A 31 |..............Z1|
00002930: CA 12 53 55 43 48 56 41 52 20 50 48 41 20 20 20 |..SUCHVAR PHA |
00002940: 20 20 20 20 3B 47 45 53 55 43 48 54 45 4E 20 54 | ;GESUCHTEN T|
00002950: 59 50 20 53 49 43 48 45 52 4E 00 82 31 D4 12 4A |YP SICHERN..1..J|
00002960: 53 52 20 43 48 45 43 4B 4B 4F 4D 4D 41 20 20 20 |SR CHECKKOMMA |
00002970: 20 3B 41 55 46 20 4B 4F 4D 4D 41 20 54 45 53 54 | ;AUF KOMMA TEST|
00002980: 45 4E 00 A3 31 DE 12 4A 53 52 20 4C 43 48 52 CB |EN..1..JSR LCHR.|
00002990: 54 20 20 20 20 20 20 20 3B 31 2E 42 53 54 2E 20 |T ;1.BST. |
000029A0: 48 4F C3 00 AF 31 E8 12 53 54 41 20 24 34 35 00 |HO...1..STA $45.|
000029B0: D6 31 F2 12 4C 44 58 20 23 24 30 30 20 20 20 20 |.1..LDX #$00 |
000029C0: 20 20 20 20 20 20 3B 46 4C 41 47 20 41 55 46 20 | ;FLAG AUF |
000029D0: 56 B0 48 AF 45 4E 00 F9 31 FC 12 53 54 58 20 46 |V.H.EN..1..STX F|
000029E0: 54 45 53 54 20 20 20 20 20 20 20 20 20 3B 52 55 |TEST ;RU|
000029F0: 45 43 4B 53 45 54 5A 45 4E 00 1D 32 06 13 43 4D |ECKSETZEN..2..CM|
00002A00: 50 20 23 24 32 43 20 20 20 20 20 20 20 20 20 20 |P #$2C |
00002A10: 3B 4E 49 43 48 54 20 56 B0 48 AF 45 4E 00 40 32 |;NICHT V.H.EN.@2|
00002A20: 10 13 42 45 51 20 46 45 52 54 49 47 20 20 20 20 |..BEQ FERTIG |
00002A30: 20 20 20 20 3B 44 41 4E 4E 20 46 45 52 54 49 47 | ;DANN FERTIG|
00002A40: 00 4F 32 1A 13 4A 53 52 20 4C 43 48 52 CB 54 00 |.O2..JSR LCHR.T.|
00002A50: 76 32 24 13 4A 53 52 20 50 52 55 45 42 55 43 48 |v2$.JSR PRUEBUCH|
00002A60: 20 20 20 20 20 20 3B 41 55 46 20 42 53 54 2E 20 | ;AUF BST. |
00002A70: 54 45 53 54 45 4E 00 9C 32 2E 13 42 43 53 20 42 |TESTEN..2..BCS B|
00002A80: 55 43 48 20 20 20 20 20 20 20 20 20 20 3B 4A 41 |UCH ;JA|
00002A90: 2C 44 41 4E 4E 20 57 45 49 54 45 52 00 C1 32 38 |,DANN WEITER..28|
00002AA0: 13 45 52 52 B0 20 4A 4D 50 20 53 59 4E 45 52 52 |.ERR. JMP SYNERR|
00002AB0: 20 20 3B 4E 45 49 4E 2C 44 41 4E 4E 20 45 52 52 | ;NEIN,DANN ERR|
00002AC0: B0 00 D3 32 42 13 42 55 43 48 20 4C 44 58 20 23 |...2B.BUCH LDX #|
00002AD0: 24 32 30 00 FB 32 4C 13 4A 53 52 20 4E 43 48 52 |$20..2L.JSR NCHR|
00002AE0: CB 54 20 20 20 20 20 20 20 3B 4E 41 45 43 48 53 |.T ;NAECHS|
00002AF0: 54 45 53 20 5A 45 49 43 48 45 4E 00 28 33 56 13 |TES ZEICHEN.(3V.|
00002B00: 42 43 43 20 5A 8B 46 45 52 31 20 20 20 20 20 20 |BCC Z.FER1 |
00002B10: 20 3B 5A 8B 46 45 52 2C 44 41 4E 4E 20 55 45 42 | ;Z.FER,DANN UEB|
00002B20: 45 52 4E 45 48 4D 45 4E 00 4F 33 60 13 4A 53 52 |ERNEHMEN.O3`.JSR|
00002B30: 20 50 52 55 45 42 55 43 48 20 20 20 20 20 20 3B | PRUEBUCH ;|
00002B40: 41 55 46 20 42 53 54 2E 20 54 45 53 54 45 4E 00 |AUF BST. TESTEN.|
00002B50: 77 33 6A 13 42 43 43 20 4E 4F 42 55 43 48 20 20 |w3j.BCC NOBUCH |
00002B60: 20 20 20 20 20 20 3B 4E 45 49 4E 2C 44 41 4E 4E | ;NEIN,DANN|
00002B70: 20 57 45 49 54 45 52 00 A1 33 74 13 5A 8B 46 45 | WEITER..3t.Z.FE|
00002B80: 52 31 20 54 41 58 20 20 20 20 20 20 20 3B 4A 41 |R1 TAX ;JA|
00002B90: 2C 44 41 4E 4E 20 55 45 42 45 52 4E 45 48 4D 45 |,DANN UEBERNEHME|
00002BA0: 4E 00 C8 33 7E 13 5A 8B 46 45 52 32 20 4A 53 52 |N..3~.Z.FER2 JSR|
00002BB0: 20 4E 43 48 52 CB 54 3B 4E 41 45 43 48 53 54 45 | NCHR.T;NAECHSTE|
00002BC0: 20 5A 45 49 43 48 45 4E 00 E9 33 88 13 42 43 43 | ZEICHEN..3..BCC|
00002BD0: 20 5A 8B 46 45 52 32 20 20 20 20 20 20 20 3B 55 | Z.FER2 ;U|
00002BE0: 45 42 45 52 4C 45 53 45 4E 00 FA 33 92 13 4A 53 |EBERLESEN..3..JS|
00002BF0: 52 20 50 52 55 45 42 55 43 48 00 09 34 9C 13 42 |R PRUEBUCH..4..B|
00002C00: 43 53 20 5A 8B 46 45 52 32 00 2E 34 A6 13 4E 4F |CS Z.FER2..4..NO|
00002C10: 42 55 43 48 20 50 4C 41 20 20 20 20 20 20 20 20 |BUCH PLA |
00002C20: 3B 47 45 53 55 43 48 54 45 52 20 54 59 50 00 4F |;GESUCHTER TYP.O|
00002C30: 34 B0 13 53 54 41 20 24 34 36 20 20 20 20 20 20 |4..STA $46 |
00002C40: 20 20 20 20 20 3B 53 50 45 49 43 48 45 52 4E 00 | ;SPEICHERN.|
00002C50: 72 34 BA 13 4A 53 52 20 4C 43 48 52 CB 54 20 20 |r4..JSR LCHR.T |
00002C60: 20 20 20 20 20 3B 47 4C 45 49 43 48 20 88 5A 54 | ;GLEICH .ZT|
00002C70: 45 4D 00 91 34 C4 13 43 4D 50 20 24 34 36 20 20 |EM..4..CMP $46 |
00002C80: 20 20 20 20 20 20 20 20 20 3B 5A 45 49 43 48 45 | ;ZEICHE|
00002C90: 4E 00 B6 34 CE 13 42 4E 45 20 45 52 52 B0 20 20 |N..4..BNE ERR. |
00002CA0: 20 20 20 20 20 20 20 3B 4E 45 49 4E 2C 44 41 4E | ;NEIN,DAN|
00002CB0: 4E 20 45 52 52 B0 00 C5 34 D8 13 4A 53 52 20 4E |N ERR...4..JSR N|
00002CC0: 43 48 52 CB 54 00 EC 34 E2 13 53 54 58 20 24 34 |CHR.T..4..STX $4|
00002CD0: 36 20 20 20 20 20 20 20 20 20 20 20 3B 32 2E 42 |6 ;2.B|
00002CE0: 53 54 20 53 50 45 49 43 48 45 52 4E 00 14 35 EC |ST SPEICHERN..5.|
00002CF0: 13 4C 44 58 20 23 24 46 46 20 20 20 20 20 20 20 |.LDX #$FF |
00002D00: 20 20 20 3B 46 4C 41 47 20 46 55 45 52 20 56 B0 | ;FLAG FUER V.|
00002D10: 48 AF 45 4E 00 32 35 F6 13 53 54 58 20 46 54 45 |H.EN.25..STX FTE|
00002D20: 53 54 20 20 20 20 20 20 20 20 20 3B 53 45 54 5A |ST ;SETZ|
00002D30: 45 4E 00 54 35 00 14 52 54 53 20 20 20 20 20 20 |EN.T5..RTS |
00002D40: 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 46 45 | ;UND FE|
00002D50: 52 54 49 47 00 63 35 0A 14 46 45 52 54 49 47 20 |RTIG.c5..FERTIG |
00002D60: 50 4C 41 00 81 35 14 14 52 54 53 20 20 20 20 20 |PLA..5..RTS |
00002D70: 20 20 20 20 20 20 20 20 20 20 3B 46 45 52 54 49 | ;FERTI|
00002D80: 47 00 A8 35 1E 14 3B 20 AB AB AB AB AB AB AB AB |G..5..; ........|
00002D90: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002DA0: AB AB AB AB AB AB AB AB 00 C8 35 28 14 44 4F 88 |..........5(.DO.|
00002DB0: 20 4C 44 41 20 50 52 4F 5A 20 20 20 20 3B 5A 45 | LDA PROZ ;ZE|
00002DC0: 49 47 45 52 20 41 55 46 00 D5 35 32 14 53 54 41 |IGER AUF..52.STA|
00002DD0: 20 5A 45 49 47 00 E4 35 3C 14 4C 44 41 20 50 52 | ZEIG..5<.LDA PR|
00002DE0: 4F 5A AA 31 00 F3 35 46 14 53 54 41 20 5A 45 49 |OZ.1..5F.STA ZEI|
00002DF0: 47 AA 31 00 16 36 50 14 4C 44 41 20 23 B3 46 49 |G.1..6P.LDA #.FI|
00002E00: C3 41 4D 45 20 20 20 20 3B 46 49 C3 41 4D 45 20 |.AME ;FI.AME |
00002E10: 53 45 54 5A 45 4E 00 23 36 5A 14 53 54 41 20 50 |SETZEN.#6Z.STA P|
00002E20: 52 4F 5A 00 34 36 64 14 4C 44 41 20 23 B1 46 49 |ROZ.46d.LDA #.FI|
00002E30: C3 41 4D 45 00 43 36 6E 14 53 54 41 20 50 52 4F |.AME.C6n.STA PRO|
00002E40: 5A AA 31 00 67 36 78 14 4C 44 41 20 46 46 49 C3 |Z.1.g6x.LDA FFI.|
00002E50: 41 4D 45 20 20 20 20 20 3B 46 49 C3 41 4D 45 20 |AME ;FI.AME |
00002E60: 47 45 46 52 41 47 54 00 91 36 82 14 42 45 51 20 |GEFRAGT..6..BEQ |
00002E70: 4E 4F 46 49 C3 41 4D 45 20 20 20 20 3B 4E 45 49 |NOFI.AME ;NEI|
00002E80: 4E 2C 44 41 4E 4E 20 55 45 42 45 52 47 45 48 45 |N,DANN UEBERGEHE|
00002E90: 4E 00 BA 36 8C 14 4A 53 52 20 88 20 20 20 20 20 |N..6..JSR . |
00002EA0: 20 20 20 20 20 20 3B 4A 41 2C 44 41 4E 4E 20 55 | ;JA,DANN U|
00002EB0: 45 42 45 52 4E 45 48 4D 45 4E 00 C9 36 96 14 4A |EBERNEHMEN..6..J|
00002EC0: 53 52 20 4E 43 48 52 CB 54 00 F3 36 A0 14 4E 4F |SR NCHR.T..6..NO|
00002ED0: 46 49 C3 41 4D 45 20 4C 44 41 20 46 42 4C 4F 45 |FI.AME LDA FBLOE|
00002EE0: 43 4B 45 3B 42 4C 4F 45 43 4B 45 20 47 45 46 52 |CKE;BLOECKE GEFR|
00002EF0: 41 47 54 00 1F 37 AA 14 42 45 51 20 4E 4F 42 4C |AGT..7..BEQ NOBL|
00002F00: 4F 45 43 4B 45 20 20 20 20 20 3B 4E 45 49 4E 2C |OECKE ;NEIN,|
00002F10: 44 41 4E 4E 20 55 45 42 45 52 47 45 48 45 4E 00 |DANN UEBERGEHEN.|
00002F20: 4A 37 B4 14 4C 44 41 20 23 B3 42 4C 4F 45 43 4B |J7..LDA #.BLOECK|
00002F30: 45 20 20 20 20 20 3B 4A 41 2C 44 41 4E 4E 20 55 |E ;JA,DANN U|
00002F40: 45 42 45 52 4E 45 48 4D 45 4E 00 57 37 BE 14 53 |EBERNEHMEN.W7..S|
00002F50: 54 41 20 50 52 4F 5A 00 69 37 C8 14 4C 44 41 20 |TA PROZ.i7..LDA |
00002F60: 23 B1 42 4C 4F 45 43 4B 45 00 78 37 D2 14 53 54 |#.BLOECKE.x7..ST|
00002F70: 41 20 50 52 4F 5A AA 31 00 82 37 DC 14 4A 53 52 |A PROZ.1..7..JSR|
00002F80: 20 88 00 91 37 E6 14 4A 53 52 20 4E 43 48 52 CB | ...7..JSR NCHR.|
00002F90: 54 00 BA 37 F0 14 4E 4F 42 4C 4F 45 43 4B 45 20 |T..7..NOBLOECKE |
00002FA0: 4C 44 41 20 46 46 49 88 59 50 45 4E 3B 46 49 88 |LDA FFI.YPEN;FI.|
00002FB0: 59 50 20 47 45 46 52 41 47 54 00 E4 37 FA 14 42 |YP GEFRAGT..7..B|
00002FC0: 45 51 20 4E 4F 46 49 88 59 50 45 4E 20 20 20 3B |EQ NOFI.YPEN ;|
00002FD0: 4E 45 49 4E 2C 44 41 4E 4E 20 55 45 42 45 52 47 |NEIN,DANN UEBERG|
00002FE0: 45 48 45 4E 00 0D 38 04 15 4C 44 41 20 23 B3 46 |EHEN..8..LDA #.F|
00002FF0: 49 88 59 50 45 4E 20 20 20 3B 4A 41 2C 44 41 4E |I.YPEN ;JA,DAN|
00003000: 4E 20 55 45 42 45 52 4E 45 48 4D 45 4E 00 1A 38 |N UEBERNEHMEN..8|
00003010: 0E 15 53 54 41 20 50 52 4F 5A 00 2C 38 18 15 4C |..STA PROZ.,8..L|
00003020: 44 41 20 23 B1 46 49 88 59 50 45 4E 00 3B 38 22 |DA #.FI.YPEN.;8"|
00003030: 15 53 54 41 20 50 52 4F 5A AA 31 00 45 38 2C 15 |.STA PROZ.1.E8,.|
00003040: 4A 53 52 20 88 00 54 38 36 15 4A 53 52 20 4E 43 |JSR ..T86.JSR NC|
00003050: 48 52 CB 54 00 85 38 40 15 4E 4F 46 49 88 59 50 |HR.T..8@.NOFI.YP|
00003060: 45 4E 20 4C 44 41 20 46 46 49 88 52 41 43 4B 53 |EN LDA FFI.RACKS|
00003070: 3B 41 4E 46 41 4E 47 53 54 52 41 43 4B 20 47 45 |;ANFANGSTRACK GE|
00003080: 46 52 41 47 54 00 AF 38 4A 15 42 45 51 20 4E 4F |FRAGT..8J.BEQ NO|
00003090: 46 49 88 52 41 43 4B 53 20 20 3B 4E 45 49 4E 2C |FI.RACKS ;NEIN,|
000030A0: 44 41 4E 4E 20 55 45 42 45 52 47 45 48 45 4E 00 |DANN UEBERGEHEN.|
000030B0: D8 38 54 15 4C 44 41 20 23 B3 46 49 88 52 41 43 |.8T.LDA #.FI.RAC|
000030C0: 4B 53 20 20 3B 4A 41 2C 44 41 4E 4E 20 55 45 42 |KS ;JA,DANN UEB|
000030D0: 45 52 4E 45 48 4D 45 4E 00 E5 38 5E 15 53 54 41 |ERNEHMEN..8^.STA|
000030E0: 20 50 52 4F 5A 00 F8 38 68 15 4C 44 41 20 23 B1 | PROZ..8h.LDA #.|
000030F0: 46 49 88 52 41 43 4B 53 00 07 39 72 15 53 54 41 |FI.RACKS..9r.STA|
00003100: 20 50 52 4F 5A AA 31 00 11 39 7C 15 4A 53 52 20 | PROZ.1..9|.JSR |
00003110: 88 00 20 39 86 15 4A 53 52 20 4E 43 48 52 CB 54 |.. 9..JSR NCHR.T|
00003120: 00 55 39 90 15 4E 4F 46 49 88 52 41 43 4B 53 20 |.U9..NOFI.RACKS |
00003130: 4C 44 41 20 46 46 49 4C 45 53 45 43 A4 52 53 3B |LDA FFILESEC.RS;|
00003140: 41 4E 46 41 4E 47 53 53 45 4B A4 52 4E 20 47 45 |ANFANGSSEK.RN GE|
00003150: 46 52 41 47 54 00 80 39 9A 15 42 45 51 20 4E 4F |FRAGT..9..BEQ NO|
00003160: 46 49 4C 45 53 45 43 A4 52 53 20 3B 4E 45 49 4E |FILESEC.RS ;NEIN|
00003170: 2C 44 41 4E 4E 20 55 45 42 45 52 4C 45 53 45 4E |,DANN UEBERLESEN|
00003180: 00 AA 39 A4 15 4C 44 41 20 23 B3 46 49 4C 45 53 |..9..LDA #.FILES|
00003190: 45 43 A4 52 53 20 3B 4A 41 2C 44 41 4E 4E 20 55 |EC.RS ;JA,DANN U|
000031A0: 45 42 45 52 4E 45 48 4D 45 4E 00 B7 39 AE 15 53 |EBERNEHMEN..9..S|
000031B0: 54 41 20 50 52 4F 5A 00 CC 39 B8 15 4C 44 41 20 |TA PROZ..9..LDA |
000031C0: 23 B1 46 49 4C 45 53 45 43 A4 52 53 00 DB 39 C2 |#.FILESEC.RS..9.|
000031D0: 15 53 54 41 20 50 52 4F 5A AA 31 00 E5 39 CC 15 |.STA PROZ.1..9..|
000031E0: 4A 53 52 20 88 00 12 3A D6 15 4E 4F 46 49 4C 45 |JSR ...:..NOFILE|
000031F0: 53 45 43 A4 52 53 20 4C 44 41 20 5A 45 49 47 3B |SEC.RS LDA ZEIG;|
00003200: 5A 45 49 47 45 52 20 52 55 45 43 4B 53 45 54 5A |ZEIGER RUECKSETZ|
00003210: 45 4E 00 1F 3A E0 15 53 54 41 20 50 52 4F 5A 00 |EN..:..STA PROZ.|
00003220: 2E 3A EA 15 4C 44 41 20 5A 45 49 47 AA 31 00 3D |.:..LDA ZEIG.1.=|
00003230: 3A F4 15 53 54 41 20 50 52 4F 5A AA 31 00 45 3A |:..STA PROZ.1.E:|
00003240: FE 15 52 54 53 00 6C 3A 08 16 3B 20 AB AB AB AB |..RTS.l:..; ....|
00003250: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003260: AB AB AB AB AB AB AB AB AB AB AB AB 00 A6 3A 12 |..............:.|
00003270: 16 5A 45 49 47 20 2E 42 59 54 45 20 30 30 2C 30 |.ZEIG .BYTE 00,0|
00003280: 30 20 20 20 20 20 20 3B 5A 57 49 53 43 48 45 4E |0 ;ZWISCHEN|
00003290: 53 50 45 49 43 48 45 52 20 44 45 53 20 50 52 4F |SPEICHER DES PRO|
000032A0: 47 52 41 4D 4D 53 00 D8 3A 1C 16 46 49 C3 41 4D |GRAMMS..:..FI.AM|
000032B0: 45 20 2E C6 20 20 22 20 20 24 28 20 20 20 29 22 |E .. " $( )"|
000032C0: 3B 46 45 4C 44 20 46 55 45 52 20 88 AB 41 4E 57 |;FELD FUER ..ANW|
000032D0: 45 49 53 55 4E 47 45 4E 00 EA 3A 26 16 2E 42 59 |EISUNGEN..:&..BY|
000032E0: 54 45 20 24 42 32 2C 24 32 32 00 05 3B 30 16 2E |TE $B2,$22..;0..|
000032F0: C6 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |. " |
00003300: 20 20 20 20 22 00 23 3B 3A 16 2E 42 59 54 45 20 | ".#;:..BYTE |
00003310: 24 32 32 2C 24 41 41 2C 24 32 32 2C 24 32 32 2C |$22,$AA,$22,$22,|
00003320: 24 30 30 00 38 3B 44 16 41 4E 5A 41 48 4C 20 2E |$00.8;D.ANZAHL .|
00003330: C6 20 20 22 20 20 25 22 00 46 3B 4E 16 2E 42 59 |. " %".F;N..BY|
00003340: 54 45 20 24 42 32 00 54 3B 58 16 2E C6 20 20 22 |TE $B2.T;X... "|
00003350: 20 20 20 22 00 62 3B 62 16 2E 42 59 54 45 20 24 | ".b;b..BYTE $|
00003360: 30 30 00 7D 3B 6C 16 42 4C 4F 45 43 4B 45 20 2E |00.};l.BLOECKE .|
00003370: C6 20 20 22 20 20 25 28 20 20 20 29 22 00 8B 3B |. " %( )"..;|
00003380: 76 16 2E 42 59 54 45 20 24 42 32 00 99 3B 80 16 |v..BYTE $B2..;..|
00003390: 2E C6 20 20 22 20 20 20 22 00 A7 3B 8A 16 2E 42 |.. " "..;...B|
000033A0: 59 54 45 20 24 30 30 00 C2 3B 94 16 46 49 88 59 |YTE $00..;..FI.Y|
000033B0: 50 45 4E 20 2E C6 20 20 22 20 20 25 28 20 20 20 |PEN .. " %( |
000033C0: 29 22 00 D0 3B 9E 16 2E 42 59 54 45 20 24 42 32 |)"..;...BYTE $B2|
000033D0: 00 DE 3B A8 16 2E C6 20 20 22 20 20 20 22 00 EC |..;.... " "..|
000033E0: 3B B2 16 2E 42 59 54 45 20 24 30 30 00 08 3C BC |;...BYTE $00..<.|
000033F0: 16 46 49 88 52 41 43 4B 53 20 2E C6 20 20 22 20 |.FI.RACKS .. " |
00003400: 20 25 28 20 20 20 29 22 00 16 3C C6 16 2E 42 59 | %( )"..<...BY|
00003410: 54 45 20 24 42 32 00 24 3C D0 16 2E C6 20 20 22 |TE $B2.$<.... "|
00003420: 20 20 20 22 00 32 3C DA 16 2E 42 59 54 45 20 24 | ".2<...BYTE $|
00003430: 30 30 00 50 3C E4 16 46 49 4C 45 53 45 43 A4 52 |00.P<..FILESEC.R|
00003440: 53 20 2E C6 20 20 22 20 20 25 28 20 20 20 29 22 |S .. " %( )"|
00003450: 00 5E 3C EE 16 2E 42 59 54 45 20 24 42 32 00 6C |.^<...BYTE $B2.l|
00003460: 3C F8 16 2E C6 20 20 22 20 20 20 22 00 7A 3C 02 |<.... " ".z<.|
00003470: 17 2E 42 59 54 45 20 24 30 30 00 91 3C 0C 17 44 |..BYTE $00..<..D|
00003480: 49 53 4B 4E 41 4D 45 20 2E C6 20 20 22 20 20 24 |ISKNAME .. " $|
00003490: 22 00 A3 3C 16 17 2E 42 59 54 45 20 24 42 32 2C |"..<...BYTE $B2,|
000034A0: 24 32 32 00 C0 3C 20 17 2E C6 20 20 22 20 20 20 |$22..< ... " |
000034B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000034C0: 00 DA 3C 2A 17 2E 42 59 54 45 20 24 32 32 2C 24 |..<*..BYTE $22,$|
000034D0: 41 41 2C 24 32 32 2C 24 32 32 00 E8 3C 34 17 2E |AA,$22,$22..<4..|
000034E0: 42 59 54 45 20 24 30 30 00 0B 3D 3E 17 54 59 50 |BYTE $00..=>.TYP|
000034F0: 20 2E C6 20 22 44 53 50 55 52 22 20 20 20 20 20 | .. "DSPUR" |
00003500: 20 3B 54 59 50 AB 43 4F 44 45 53 00 3B 3D 48 17 | ;TYP.CODES.;=H.|
00003510: 44 49 52 45 4B 54 20 2E C6 20 22 23 22 20 20 20 |DIREKT .. "#" |
00003520: 20 20 20 20 3B 46 45 4C 44 20 46 55 45 52 20 44 | ;FELD FUER D|
00003530: 49 53 4B AB 4B 4F 4D 4D AF 4F 53 00 56 3D 52 17 |ISK.KOMM.OS.V=R.|
00003540: 42 87 20 2E C6 20 22 55 31 3A 20 32 20 20 30 20 |B. .. "U1: 2 0 |
00003550: 20 20 20 20 20 22 00 64 3D 5C 17 2E 42 59 54 45 | ".d=\..BYTE|
00003560: 20 24 30 44 00 76 3D 66 17 2E C6 20 22 42 2D 50 | $0D.v=f... "B-P|
00003570: 20 32 20 20 30 22 00 88 3D 70 17 2E 42 59 54 45 | 2 0"..=p..BYTE|
00003580: 20 24 30 44 2C 24 30 30 00 BF 3D 7A 17 46 4C 41 | $0D,$00..=z.FLA|
00003590: 54 59 50 20 20 2E 42 59 54 45 20 24 30 30 2C 24 |TYP .BYTE $00,$|
000035A0: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 3B 5A |00,$00,$00,$00;Z|
000035B0: 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 |WISCHENSPEICHER.|
000035C0: D5 3D 84 17 54 52 41 43 4B 20 20 20 2E 42 59 54 |.=..TRACK .BYT|
000035D0: 45 20 24 30 30 00 EA 3D 8E 17 53 45 43 A4 52 20 |E $00..=..SEC.R |
000035E0: 20 2E 42 59 54 45 20 24 30 30 00 00 3E 98 17 5A | .BYTE $00..>..Z|
000035F0: 41 45 48 4C 20 20 20 2E 42 59 54 45 20 24 30 30 |AEHL .BYTE $00|
00003600: 00 14 3E A2 17 45 B5 52 41 47 20 2E 42 59 54 45 |..>..E.RAG .BYTE|
00003610: 20 24 30 30 00 2A 3E AC 17 54 59 46 4C 41 20 20 | $00.*>..TYFLA |
00003620: 20 2E 42 59 54 45 20 24 30 30 00 40 3E B6 17 54 | .BYTE $00.@>..T|
00003630: 59 4C 41 4E 20 20 20 2E 42 59 54 45 20 24 30 30 |YLAN .BYTE $00|
00003640: 00 56 3E C0 17 46 54 45 53 54 20 20 20 2E 42 59 |.V>..FTEST .BY|
00003650: 54 45 20 24 30 30 00 6F 3E CA 17 46 46 49 C3 41 |TE $00.o>..FFI.A|
00003660: 4D 45 20 20 20 20 2E 42 59 54 45 20 24 30 30 00 |ME .BYTE $00.|
00003670: 8A 3E D4 17 46 42 4C 4F 45 43 4B 45 20 20 20 20 |.>..FBLOECKE |
00003680: 20 2E 42 59 54 45 20 24 30 30 00 A3 3E DE 17 46 | .BYTE $00..>..F|
00003690: 46 49 88 59 50 45 4E 20 20 20 2E 42 59 54 45 20 |FI.YPEN .BYTE |
000036A0: 24 30 30 00 BC 3E E8 17 46 46 49 88 52 41 43 4B |$00..>..FFI.RACK|
000036B0: 53 20 20 2E 42 59 54 45 20 24 30 30 00 D6 3E F2 |S .BYTE $00..>.|
000036C0: 17 46 46 49 4C 45 53 45 43 A4 52 53 20 2E 42 59 |.FFILESEC.RS .BY|
000036D0: 54 45 20 24 30 30 00 F1 3E FC 17 46 44 49 53 4B |TE $00..>..FDISK|
000036E0: 4E 41 4D 45 20 20 20 20 2E 42 59 54 45 20 24 30 |NAME .BYTE $0|
000036F0: 30 00 0C 3F 06 18 46 41 4E 5A 41 48 4C 20 20 20 |0..?..FANZAHL |
00003700: 20 20 20 2E 42 59 54 45 20 24 30 30 00 00 00 | .BYTE $00... |
....D...$.N.. WRITTEN BY UDO WOEHLER.*.X
...I.... SYS49152,NA$,ZH%,FI$,BL%.L....
,TY%,TR%,SE%,"PSRUD"...... P = P
ROGRAMM FILES... .. S = SEQUENTIELLE
FILES.C.... R = RELATIVE FILES.....
. U = USER FILES...... D = DELET
ED FILES...H...%.R..2,8,2,"@:DIRECT
ORY-LOAD,P,W".1....9.4096.?....OPT P,O2.
L..... $C000.B...PROZ . $7A.Y...N
CHRKT . $0073.....LCHRKT . $0079
...... . $A9A5...".FRMEVL .
$AD9E.V.,.CHECKKOMMA . $AEFD...6.SYNER
R . $AF08...@.PRUEBUCH . $B113..
.J..STR . $B6A3.2.T..NAFAC . $BC
49.J.^.FACNASTRI . $BDDF.B.H.IECOUT
. $FFA8.W.R.. . $FFC0...|.
. $FFC3.....CHKIN . $FFC6.....
CKOUT . $FFC9.Q....CH . $FFC
C...... . $FFE4.....; ..........
.......................6...LDA #$24
;STRING VARIABLE.U.B.JSR SUCHVAR
;SUCHEN.~.L.LDA FTEST ;FL
AG FUER V.H.EN. .V.STA FDISKNAME ;S
PEICHERN.D...LDA $45 ;VARIABC
NAME.P...LDX $46.....STA DISKNAME
;SPEICHERN.....STX DISKNAME.1.,...LDA #$
25 ;.EGER VARIABLE.K...JSR SUC
HVAR ;SUCHEN.T...LDA FTEST
;FLAG FUER V.H.EN...&.STA FANZAHL
;SPEICHERN...0.LDA $45 ;V
ARIABCNAME.F.:.LDX $46...D.STA ANZAHL
;SPEICHERN...N.STX ANZAHL.1.!.X.LD
A #$24 ;STRING VARIABLE.@.B.JS
R SUCHVAR ;SUCHEN.I.L.LDA FTEST
;FLAG FUER V.H.EN...V.STA FFICAM
E ;SPEICHERN.....LDA $45
;VARIABCNAME.....LDX $46.Y...STA FICAME
;SPEICHERN.....STX FICAME.1.....L
DA #$25 ;.EGER VARIABLE.0...JS
R SUCHVAR ;SUCHEN.Y...LDA FTEST
;FLAG FUER V.H.EN.{.F.STA FBLOEC
KE ;SPEICHERN...P.LDA $45
;VARIABCNAME...Z.LDX $46.M...STA BLOE
CKE ;SPEICHERN.....STX BLOECKE.1.
....LDA #$25 ;.EGER VARIABLE.%
...JSR SUCHVAR ;SUCHEN.N...LDA FT
EST ;FLAG FUER V.H.EN.N...STA F
FI.YPEN ;SPEICHERN... .LDA $45
;VARIABCNAME...*.LDX $46...4.STA F
I.YPEN ;SPEICHERN.P.>.STX FI.YPEN.1
...H.LDA #$25 ;.EGER VARIABLE.
..R.JSR SUCHVAR ;SUCHEN.?.\.LDA F
TEST ;FLAG FUER V.H.EN._.F.STA
FFI.RACKS ;SPEICHERN...P.LDA $45
;VARIABCNAME...Z.LDX $46.....STA
FI.RACKS ;SPEICHERN.B...STX FI.RACKS
.1.....LDA #$25 ;.EGER VARIABL
E.....JSR SUCHVAR ;SUCHEN.1...LDA
FTEST ;FLAG FUER V.H.EN.R...ST
A FFILESEC.RS ;SPEICHERN.V...LDA $45
;VARIABCNAME...J.LDX $46...T.S
TA FILESEC.RS ;SPEICHERN.....STX FILE
SEC.RS.1.....JSR CHECKKOMMA ;PRUEFT
AUF KOMMA.....LDY #$05 ;TYPFLA
GS MIT $FF.(...LDA #$FF ;FUELC
.9...INITFIND DEY.J...STA FLATYP,Y.R...I
NY.Z.$.DEY.K...BNE INITFIND...8.JSR FRME
VL ;STRING HOC UND VOM.B.B.JSR .
STR ;STRINGSTACK ENTFERNEN.O.L.L
DY #$00...V.LDA ($64),Y ;STRINGLA
ENGE...`.STA TYLAN ;SPEICHERN..
.J.INY.B.T.LDA ($64),Y ;STRINGZEIG
ER.C.~.STA $22 ;SPEICHERN.K...
INY.{...LDA ($64),Y.....STA $23.....LDY
#$00 ;ZEIGER AUF ERSTEN BST....
..TESTTYP LDX #$05 ;AUF CODE TESTEN....
.NAETEST DEX...D.LDA ($22),Y...N.CMP TYP
,X.*.X.BEQ FINDTYP ;GEFUNDEN.U...D
EX ;NEIN NAECHSTEN CODE.].
..INX.....BNE NAETEST ;SCH. .ZTER
CODE.....JMP .FIND ;JA,.E CODESUCH
E.N...FINDTYP TXA ;CODE GEFUNDEN..
...STA FLATYP,X ;SPEICHERN.....INY
;NAECHSTER BST..7.(.CPY TY
LAN ;SCH. .ZTER.A.2.BNE TESTTYP
;NEIN,WEITER SUCHEN...<..FIND LDA
#$02 ;FILEPARAMETER SETZEN...F.STA $B8.
..P.STA $B9...Z.LDA #$08...D.STA $BA.I.N
.LDA #$01.U.X.STA $B7.....LDA #.DIREKT..
...LDX #.DIREKT.....STA $BB... .STX $BC.
6...JSR . ;DIREKTKANAL OEF.EN.B
...LDA #$0F ;FILEPARAMETER SETZ
EN.N...STA $B8.Z.H.STA $B9...R.LDA #$08.
....STA $BA. ...LDA #$00.....STA $B7.S..
.JSR . ;KOMM.OKANAL OEF.EN.....
LDA #$12 ;ERSTER BLOCK 18.0 SET
ZEN.....STA TRACK.....LDA #$00.,.".STA S
EC.R.T.,.LDA FDISKNAME ;DISKNAME GES
UCHT...6.BEQ NODISKN ;NEIN,SPEICHE
RN UEBERGEHEN...@.JSR .TRSE ;BLOCK
LESEN...J.LDX #$02...T.JSR CHKIN
;EINGABE AUF DIREKTKANAL...^.LDX #$90
;ERSTEN 90 BYTE UEBERLESEN.#.H.D
UMMY1 JSR ..+.R.DEX.:.|.BNE DUMMY1.F...L
DX #$00 ;DISKNAME.ID EINLESEN.X
...NOLZBU1 JSR ......BNE N.ULLNAME.....L
DA #$20.....N.ULLNAME STA DISKNAME.5,X..
...INX.K.B.CPX #$10.Z.L.BEQ DUMMY3...V.C
PX #$12.....BNE NOLZBU1.....JMP .DISKN.-
...DUMMY3 JSR . ;2 BYTE UEBERLESEN.7.
..JSR ..G...JMP NOLZBU1.F....DISKN JSR .
CH;BUS .IGEBEN.....LDA PROZ ;ZE
IGER AUF DISKNAME...&.STA ZEIG...0.LDA P
ROZ.1...:.STA ZEIG.1.O.D.LDA #.DISKNAME.
..N.STA PROZ...X.LDA #.DISKNAME...B.STA
PROZ.1.(.L.JSR . ;DISKNAME UEB
ERNEHMEN.R.V.LDA ZEIG ;ZEIGER R
UECKSETZEN._...STA PROZ.N...LDA ZEIG.1.}
...STA PROZ.1.....NODISKN LDA #$01 ;BLO
CK 18.1.....STA SEC.R.X...LDA #$00
;ANZAHL EINGELESENER.....STA ZAEHL
;FILES RUECKSETZEN.".F.NAESEC JSR
.TRSE;BLOCK LESEN.Q.P.LDX #$02
;EINGABE AUF DIREKTKANAL._.Z.JSR CHKIN.
....JSR . ;NAECHSTEN BLOCK....
.STA TRACK ;MERKEN.....JSR .....
.STA SEC.R.....LDA #$08 ;ANZAHL
E.RAEGE.....STA E.RAG ;PRO BLOCK
SETZEN.'. .NAETRAG JSR . ;FI.YP LESEN.
5.*.STA TYFLA.].4.JSR . ;ANFAN
GSTRACK LESEN...>.STA $63 ;UND
NACH STRING...H.LDA FFI.RACKS ;ANFANG
STRACK GEFRAGT.X.R.BEQ .RA ;NEIN
,DANN UEBERGEHEN...\.LDA #$00...F.STA $6
2...P.LDX #$90...Z.SEC.!...JSR .NAFAC
;W.ELN.3...JSR FACNASTRI.;...CLC.C...
PHP.K...LDX #$00 ;STRING SPEICH
ERN.....NOLZZ.1 LDA $0100,X.....PLP...J.
PHP...T.BCS JANULL1.....CMP #$00.....BNE
.ZZ.1.F...PLP.N...SEC.V...PHP.....JANUL
L1 LDA #$20......ZZ.1 STA FI.RACKS.9,X..
.$.INX.....CPX #$03.+.8.BNE NOLZZ.1.3.B.
PLP.Y.L..RA JSR . ;ANFANGSSEK.R LESE
N...V.STA $63 ;UND NACH STRING
...`.LDA FFILESEC.RS ;ANFANGSSEK.RN GEF
RAGT.X.J.BEQ NOSEC ;NEIN,DANN UE
BERLESEN...T.LDA #$00...~.STA $62.....LD
X #$90.....SEC.!...JSR .NAFAC ;W.EL
N.3...JSR FACNASTRI.;...CLC.C...PHP.K.D.
LDX #$00 ;STRING SPEICHERN...N.
NOLZZ.2 LDA $0100,X...X.PLP.....PHP.....
BCS JANULL2.....CMP #$00.....BNE .ZZ.2.F
...PLP.N...SEC.V...PHP...(.JANULL2 LDA #
$20.. 2..ZZ.2 STA FILESEC.RS.9,X.. <.INX
.. F.CPX #$03.- P.BNE NOLZZ.2.5 Z.PLP.H
D.NOSEC LDX #$00.J N.NOLZBU2 JSR . ;FI
CAME LESEN.. X.BNE .ZZ.3 ;UND SPEIC
HERN.. ..LDA #$20.. ...ZZ.3 STA FICAME.1
0,X.. ..INX.H .CPX #$10.X ..BNE NOLZBU2
.. ..LDX #$09..!..DUMMY2 JSR . ;9 BYT
ES UEBERLESEN..!H.DEX.$!R.BNE DUMMY2.H!.
.JSR . ;ANZAHL BLOECKE.O!..STA
$63 ;DES FILES LESEN..!..JSR
. ;UND IN STRING..!..STA $62.E
!..LDA FBLOECKE ;BLOECKE GEFRAGT..!
..BEQ NOBLO ;NEIN,DANN UEBERGEHE
N..!..LDX #$90.."".SEC.!",.JSR .NAFAC
;W.ELN.3"6.JSR FACNASTRI.;"@.CLC.C"J.
PHP.K"T.LDX #$00 ;STRING SPEICH
ERN.."^.NOLZZ.3 LDA $0100,X.."H.PLP.."R.
PHP.."|.BCS JANULL3.."..CMP #$00.."..BNE
.ZZ.4.F"..PLP.N"..SEC.V"..PHP.."..JANUL
L3 LDA #$20..#B..ZZ.4 STA BLOECKE.9,X..#
L.INX..#V.CPX #$03.*#..BNE NOLZZ.3.2#..P
LP.W#..NOBLO LDA FFI.YPEN;FI.YP GEFRAGT.
.#..BEQ .YP ;NEIN,DANN UEBERGEHE
N..#..LDX TYFLA ;FI.YP HOC.I#..L
DA #$00 ;UND NACH STRING.U#..ST
A $62..#&.STX $63..#0.LDX #$90..#:.SEC..
$D.JSR .NAFAC ;W.ELN.#$N.JSR FACNAS
TRI.+$X.CLC.3$B.PHP.[$L.LDX #$00
;STRING SPEICHERN.S$V.NOLZZ.4 LDA $010
0,X.{$..PLP..$..PHP..$..BCS JANULL4. $..
CMP #$00..$..BNE .ZZ.5..$..PLP..$..SEC.F
$F.PHP..$P.JANULL4 LDA #$20..$Z..ZZ.5 ST
A FI.YPEN.9,X..$..INX..%..CPX #$03..%..B
NE NOLZZ.4."%..PLP.=%...YP LDA TYFLA ;
FI.YP.B%... #$07 ;AUF CODE TEST
EN.O% .LDX #$00..%*.NO.ZTY CMP FLATYP,X.
.%4.BEQ TRAGEIN ;GEFUNDEN,DANN E.R
AGEN..%>.INX.I%H.CPX #$05..%R.BNE NO.ZTY
;SCH. .ZTER CODE..&\.NAEE.R DEC E.
RAG..&F.BEQ UNAESEC ;.ZTER E.RAG G
ELESEN.Z&P.JSR . ;NEIN,2 BYTE
UEBERLESEN.}&Z.JSR . ;UND NAEC
HSTEN..&..JMP NAETRAG ;E.RAG BEARB
EITEN.M&..UNAESEC LDA TRACK ;SCH. .ZTER
BLOCK.Z&..CMP #$00..&..BEQ .E ;
JA,DANN .E.&'..JMP NAESEC ;NEIN,N
AECHSTER BLOCK.H'..TRAGEIN LDX ZAEHL ;ZE
IGER AUF.U'..LDA #$00 ;NAECHSTE
S FELDELEMENT..'J.STA $62 ;NAC
H STRING..'T.STX $63..'..LDX #$90..'..SE
C.T'..JSR .NAFAC ;W.ELN..'..JSR FAC
NASTRI..'..CLC..'..PHP..(..LDX #$00
;UND SPEICHERN.3($.NOLZZ.5 LDA $010
0,X.;(..PLP.C(8.PHP.S(B.BCS JANULL5.`(L.
CMP #$00.N(V.BNE .ZZ.6.V(`.PLP.~(J.SEC..
(T.PHP..(~.JANULL5 LDA #$20..(...ZZ.6 ST
A FICAME.4,X.H(..STA BLOECKE.4,X..(..STA
FI.YPEN.4,X..(..STA FI.RACKS.4,X..)..ST
A FILESEC.RS.4,X..)..INX..)D.CPX #$03.-)
N.BNE NOLZZ.5.5)X.PLP.\)..INC ZAEHL
;ZEIGER ERHOEHEN..)..JSR DO.
;VARIABC UEBERNEHMEN..)..JMP NAEE.R
;WEITER NAECHSTER E.RAG.U)...E LDA FAN
ZAHL ;ANZAHL GEFRAGT..*..BEQ NOANZAHL
;NEIN,DANN UEBERGEHEN.(*..LDA ZAEHL
;ANZAHL ELEMENTE.K*..STA $63
;NACH STRING.X*(.LDA #$00.D*2.STA
$62.Q*<.LDX #$90.Y*F.SEC..*P.JSR .NAFAC
;W.ELN..*Z.JSR FACNASTRI..*D.CLC..
*N.PHP..*X.LDX #$00 ;UND SPEICH
ERN..*..NOLZZ.6 LDA $0100,X..*..PLP..+..
PHP..+ .BCS JANULL6. +..CMP #$00..+..BNE
.ZZ.7.6+..PLP.>+H.SEC.F+R.PHP.[+..JANUL
L6 LDA #$20.T+...ZZ.7 STA ANZAHL.4,X.|+.
.INX..+..CPX #$03..+..BNE NOLZZ.6..+..PL
P.J+..LDA PROZ ;ZEIGER AUF ANZA
HL..+".STA ZEIG ;SETZEN..+,.LDA
PROZ.1..,6.STA ZEIG.1..,@.LDA #.ANZAHL.
$,J.STA PROZ.5,T.LDA #.ANZAHL.D,^.STA PR
OZ.1.I,H.JSR . ;UND UEBERNEHME
N..,R.LDA ZEIG ;ZEIGER RUECKSET
ZEN. ,|.STA PROZ..,..LDA ZEIG.1..,..STA
PROZ.1..,..NOANZAHL JSR .CH;BUS .IGEBEN.
.-..LDA #$02 ;KANAELE SCHLIESSE
N..-..JSR . -..LDA #$0F.*-B.JSR .D-L.R
TS ;.E.K-V.; .............
.....................-...TRSE LDX TRACK;
TRACKNUMMER..-..LDA #$00 ;NACH
STRING..-..STA $62.F-..STX $63.R-..JSR .
CH..-..LDX #$90..-..SEC...&.JSR .NAFAC
;W.ELN...0.JSR FACNASTRI.9.:.LDA $01
00 ;UND SPEICHERN.F.D.STA B..9.T
.N.LDA $0101.A.X.CMP #$00.Q.B.BNE N.ULLT
R.~.L.LDA #$20...V.N.ULLTR STA B..10....
.LDX SEC.R ;SEK.RNUMMER.Y...LDA #
$00 ;NACH STRING.....STA $62...
..STX $63.....LDX #$90../..SEC.!/..JSR .
NAFAC ;W.ELN.3/F.JSR FACNASTRI.X/P.
LDA $0100 ;UND SPEICHERN.F/Z.STA
B..12.T/..LDA $0101../..CMP #$00../..BN
E N.ULLSEC../..LDA #$20../..N.ULLSEC STA
B..13../..LDX #$0F ;AUSGABE AU
F KOMM.OK.../ .JSR CKOUT..0*.LDY #$00
;U1(B.R) UND B.P S.EN./04.S.ZEI L
DA B.,Y.;0>.BEQ .S..J0H.JSR IECOUT.W0R.C
MP #$0D.G0\.BNE N.ETURN.T0F.JSR .BEF..0P
.N.ETURN INY..0Z.BNE S.ZEI..0...S. JSR .
CH ;BUS .IGEBEN.R0..RTS ;U
ND ZURUECK..0...BEF JSR .CH..0..LDX #$0F
..0..JSR CKOUT..1..RTS.-1..; ...........
......................Z1J.SUCHVAR PHA
;GESUCHTEN TYP SICHERN..1T.JSR CHECK
KOMMA ;AUF KOMMA TESTEN..1..JSR LCHRK
T ;1.BST. HOC..1..STA $45.V1..LDX
#$00 ;FLAG AUF V.H.EN..1..STX F
TEST ;RUECKSETZEN..2..CMP #$2C
;NICHT V.H.EN.@2..BEQ FERTIG
;DANN FERTIG.O2..JSR LCHRKT.V2$.JSR
PRUEBUCH ;AUF BST. TESTEN..2..BCS B
UCH ;JA,DANN WEITER.A28.ERR. JM
P SYNERR ;NEIN,DANN ERR..S2B.BUCH LDX #
$20..2L.JSR NCHRKT ;NAECHSTES ZEIC
HEN.(3V.BCC Z.FER1 ;Z.FER,DANN UEB
ERNEHMEN.O3`.JSR PRUEBUCH ;AUF BST.
TESTEN.W3J.BCC NOBUCH ;NEIN,DANN
WEITER..3T.Z.FER1 TAX ;JA,DANN UE
BERNEHMEN.H3~.Z.FER2 JSR NCHRKT;NAECHSTE
ZEICHEN..3..BCC Z.FER2 ;UEBERLESE
N..3..JSR PRUEBUCH..4..BCS Z.FER2..4..NO
BUCH PLA ;GESUCHTER TYP.O4..STA $
46 ;SPEICHERN.R4..JSR LCHRKT
;GLEICH .ZTEM..4D.CMP $46
;ZEICHEN..4N.BNE ERR. ;NEIN,DAN
N ERR..E4X.JSR NCHRKT..4..STX $46
;2.BST SPEICHERN..5..LDX #$FF
;FLAG FUER V.H.EN.25..STX FTEST
;SETZEN.T5..RTS ;UND FE
RTIG.C5..FERTIG PLA..5..RTS
;FERTIG..5..; ........................
.........H5(.DO. LDA PROZ ;ZEIGER AUF
.U52.STA ZEIG..5<.LDA PROZ.1..5F.STA ZEI
G.1..6P.LDA #.FICAME ;FICAME SETZEN.#
6Z.STA PROZ.46D.LDA #.FICAME.C6N.STA PRO
Z.1.G6X.LDA FFICAME ;FICAME GEFRAGT.
.6..BEQ NOFICAME ;NEIN,DANN UEBERGEHE
N..6..JSR . ;JA,DANN UEBERNEHM
EN.I6..JSR NCHRKT..6 .NOFICAME LDA FBLOE
CKE;BLOECKE GEFRAGT..7..BEQ NOBLOECKE
;NEIN,DANN UEBERGEHEN.J7..LDA #.BLOECK
E ;JA,DANN UEBERNEHMEN.W7..STA PROZ.
I7H.LDA #.BLOECKE.X7R.STA PROZ.1..7..JSR
...7..JSR NCHRKT..7..NOBLOECKE LDA FFI.
YPEN;FI.YP GEFRAGT..7..BEQ NOFI.YPEN ;
NEIN,DANN UEBERGEHEN..8..LDA #.FI.YPEN
;JA,DANN UEBERNEHMEN..8..STA PROZ.,8..L
DA #.FI.YPEN.;8".STA PROZ.1.E8,.JSR ..T8
6.JSR NCHRKT..8@.NOFI.YPEN LDA FFI.RACKS
;ANFANGSTRACK GEFRAGT..8J.BEQ NOFI.RACKS
;NEIN,DANN UEBERGEHEN.X8T.LDA #.FI.RAC
KS ;JA,DANN UEBERNEHMEN..8^.STA PROZ..8
H.LDA #.FI.RACKS..9R.STA PROZ.1..9|.JSR
.. 9..JSR NCHRKT.U9..NOFI.RACKS LDA FFIL
ESEC.RS;ANFANGSSEK.RN GEFRAGT..9..BEQ NO
FILESEC.RS ;NEIN,DANN UEBERLESEN..9..LDA
#.FILESEC.RS ;JA,DANN UEBERNEHMEN..9..S
TA PROZ.L9..LDA #.FILESEC.RS..9B.STA PRO
Z.1..9L.JSR ...:V.NOFILESEC.RS LDA ZEIG;
ZEIGER RUECKSETZEN..:..STA PROZ..:..LDA
ZEIG.1.=:..STA PROZ.1.E:..RTS.L:..; ....
..............................:..ZEIG .B
YTE 00,00 ;ZWISCHENSPEICHER DES PRO
GRAMMS.X:..FICAME .F " $( )";FELD FU
ER ..ANWEISUNGEN..:&..BYTE $B2,$22..;0..
F " ".#;:..BYTE $22,$AA,
$22,$22,$00.8;D.ANZAHL .F " %".F;N..BY
TE $B2.T;X..F " ".B;B..BYTE $00.};L.B
LOECKE .F " %( )"..;V..BYTE $B2..;..
.F " "..;...BYTE $00.B;..FI.YPEN .F
" %( )".P;...BYTE $B2..;...F " "..
;...BYTE $00..<..FI.RACKS .F " %( )"
..<F..BYTE $B2.$<P..F " ".2<Z..BYTE $
00.P<..FILESEC.RS .F " %( )".^<...BY
TE $B2.L<...F " ".Z<...BYTE $00..<..D
ISKNAME .F " $"..<...BYTE $B2,$22..< .
.F " ".Z<*..BYTE $22,$
AA,$22,$22..<4..BYTE $00..=>.TYP .F "DSP
UR" ;TYP.CODES.;=H.DIREKT .F "#"
;FELD FUER DISK.KOMM.OS.V=R.B. .F "U
1: 2 0 ".D=\..BYTE $0D.V=F..F "B-P
2 0"..=P..BYTE $0D,$00..=Z.FLATYP .BY
TE $00,$00,$00,$00,$00;ZWISCHENSPEICHER.
U=..TRACK .BYTE $00..=..SEC.R .BYTE $
00..>..ZAEHL .BYTE $00..>..E.RAG .BYTE
$00.*>..TYFLA .BYTE $00.@>..TYLAN .
BYTE $00.V>..FTEST .BYTE $00.O>J.FFICA
ME .BYTE $00..>T.FBLOECKE .BYTE $
00..>..FFI.YPEN .BYTE $00..>..FFI.RACK
S .BYTE $00.V>..FFILESEC.RS .BYTE $00..
>..FDISKNAME .BYTE $00..?..FANZAHL
.BYTE $00...
> CLICK IMAGE PREVIEW FOR FULL MODAL