HY/SUCHEN.SRC
FILE INFORMATION
FILENAME(S): HY/SUCHEN.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 01:12:44
APPEARS ON: 1 disk(s)
FILE HASH
b3fdee488710eb6c92a585605f6c869fd716fe1c669de37b51b1e7ee80948316
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10705 64ER 5 87 | HY/SUCHEN.SRC | PRG | C64er, DuncanTwain | 12 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F9 1F 03 00 3B 20 53 55 43 48 52 4F 55 54 |......; SUCHROUT|
00000010: 49 4E 45 20 46 55 45 52 20 44 43 2D 4D 45 4D 4F |INE FUER DC-MEMO|
00000020: 52 59 00 09 20 04 00 3B 20 52 2E 4D 41 45 54 43 |RY.. ..; R.MAETC|
00000030: 48 45 00 2E 20 05 00 3B 20 41 4E 46 41 4E 47 53 |HE.. ..; ANFANGS|
00000040: 42 4C 4F 43 4B 20 53 54 45 48 54 20 49 4E 20 50 |BLOCK STEHT IN P|
00000050: 55 46 46 45 52 20 30 00 54 20 06 00 3B 20 53 55 |UFFER 0.T ..; SU|
00000060: 43 48 53 54 52 49 4E 47 20 41 42 20 24 30 34 41 |CHSTRING AB $04A|
00000070: 30 2C 20 45 4E 44 4D 41 52 4B 45 3D 30 00 69 20 |0, ENDMARKE=0.i |
00000080: 07 00 3B 20 4B 4F 4D 4D 55 4E 49 4B 41 54 49 4F |..; KOMMUNIKATIO|
00000090: 4E 3A 00 82 20 08 00 3B 20 43 4F 4D 42 55 46 20 |N:.. ..; COMBUF |
000000A0: 20 20 3D 20 43 4F 4E 54 52 4F 4C 00 99 20 09 00 | = CONTROL.. ..|
000000B0: 3B 20 43 4F 4D 42 55 46 2B 31 20 3D 20 54 52 41 |; COMBUF+1 = TRA|
000000C0: 43 4B 00 B1 20 0A 00 3B 20 43 4F 4D 42 55 46 2B |CK.. ..; COMBUF+|
000000D0: 32 20 3D 20 53 45 43 54 4F 52 00 D4 20 0B 00 3B |2 = SECTOR.. ..;|
000000E0: 20 43 4F 4D 42 55 46 2B 33 20 3D 20 50 4F 49 4E | COMBUF+3 = POIN|
000000F0: 54 45 52 20 5A 55 20 31 2E 42 59 54 45 00 F0 20 |TER ZU 1.BYTE.. |
00000100: 0C 00 3B 20 43 4F 4D 42 55 46 2B 34 20 3D 20 46 |..; COMBUF+4 = F|
00000110: 45 48 4C 45 52 43 4F 44 45 00 15 21 0D 00 3B 20 |EHLERCODE..!..; |
00000120: 30 20 20 49 4E 20 43 4F 4E 54 52 4F 4C 20 20 2D |0 IN CONTROL -|
00000130: 3E 20 31 2E 4D 41 4C 20 53 55 43 48 45 4E 00 3A |> 1.MAL SUCHEN.:|
00000140: 21 0E 00 3B 20 31 20 20 49 4E 20 43 4F 4E 54 52 |!..; 1 IN CONTR|
00000150: 4F 4C 20 20 2D 3E 20 57 45 49 54 45 52 53 55 43 |OL -> WEITERSUC|
00000160: 48 45 4E 00 62 21 0F 00 3B 20 3E 31 20 49 4E 20 |HEN.b!..; >1 IN |
00000170: 43 4F 4E 54 52 4F 4C 20 20 2D 3E 20 44 41 54 45 |CONTROL -> DATE|
00000180: 4E 53 41 54 5A 20 48 4F 4C 45 4E 00 87 21 10 00 |NSATZ HOLEN..!..|
00000190: 3B 20 46 45 48 4C 45 52 43 4F 44 45 20 20 3D 20 |; FEHLERCODE = |
000001A0: 30 30 2D 3E 20 4B 45 49 4E 20 46 45 48 4C 45 52 |00-> KEIN FEHLER|
000001B0: 00 AB 21 11 00 3B 20 46 45 48 4C 45 52 43 4F 44 |..!..; FEHLERCOD|
000001C0: 45 20 20 3D 20 39 39 2D 3E 20 44 41 54 45 49 2D |E = 99-> DATEI-|
000001D0: 45 4E 44 45 00 C2 21 12 00 2E 45 51 20 42 4C 4B |ENDE..!...EQ BLK|
000001E0: 42 55 46 20 3D 20 24 30 33 30 30 00 D9 21 13 00 |BUF = $0300..!..|
000001F0: 2E 45 51 20 4E 54 52 41 43 4B 20 3D 20 24 30 33 |.EQ NTRACK = $03|
00000200: 30 30 00 F0 21 14 00 2E 45 51 20 4E 53 45 43 54 |00..!...EQ NSECT|
00000210: 20 20 3D 20 24 30 33 30 31 00 1B 22 15 00 2E 45 | = $0301.."...E|
00000220: 51 20 43 4F 4D 42 55 46 20 3D 20 24 30 34 30 30 |Q COMBUF = $0400|
00000230: 20 20 20 20 3B 4B 4F 4D 4D 55 4E 49 4B 41 54 49 | ;KOMMUNIKATI|
00000240: 4F 4E 53 2D 00 28 22 16 00 3B 20 42 55 46 46 45 |ONS-.("..; BUFFE|
00000250: 52 00 40 22 17 00 2E 45 51 20 43 4F 4E 54 52 20 |R.@"...EQ CONTR |
00000260: 20 3D 20 43 4F 4D 42 55 46 00 5A 22 18 00 2E 45 | = COMBUF.Z"...E|
00000270: 51 20 54 52 41 43 4B 20 20 3D 20 43 4F 4D 42 55 |Q TRACK = COMBU|
00000280: 46 2B 31 00 74 22 19 00 2E 45 51 20 53 45 43 54 |F+1.t"...EQ SECT|
00000290: 4F 52 20 3D 20 43 4F 4D 42 55 46 2B 32 00 8E 22 |OR = COMBUF+2.."|
000002A0: 1A 00 2E 45 51 20 42 50 4F 49 20 20 20 3D 20 43 |...EQ BPOI = C|
000002B0: 4F 4D 42 55 46 2B 33 00 A8 22 1B 00 2E 45 51 20 |OMBUF+3.."...EQ |
000002C0: 45 52 52 43 4F 44 20 3D 20 43 4F 4D 42 55 46 2B |ERRCOD = COMBUF+|
000002D0: 34 00 BF 22 1C 00 2E 45 51 20 53 44 41 54 41 20 |4.."...EQ SDATA |
000002E0: 20 3D 20 24 30 34 41 30 00 D7 22 1D 00 3B 20 44 | = $04A0.."..; D|
000002F0: 49 53 4B 20 2D 20 43 4F 4E 54 52 4F 4C 4C 45 52 |ISK - CONTROLLER|
00000300: 00 02 23 1E 00 2E 45 51 20 41 54 52 41 43 4B 20 |..#...EQ ATRACK |
00000310: 3D 20 24 30 36 20 20 20 20 20 20 3B 41 4B 54 55 |= $06 ;AKTU|
00000320: 45 4C 4C 45 52 20 54 52 41 43 4B 00 2E 23 1F 00 |ELLER TRACK..#..|
00000330: 2E 45 51 20 41 53 45 43 54 20 20 3D 20 24 30 37 |.EQ ASECT = $07|
00000340: 20 20 20 20 20 20 3B 20 20 20 20 22 20 20 20 20 | ; " |
00000350: 20 53 45 43 54 4F 52 00 54 23 20 00 2E 45 51 20 | SECTOR.T# ..EQ |
00000360: 44 43 43 4D 44 20 20 3D 20 24 30 30 20 20 20 20 |DCCMD = $00 |
00000370: 20 20 3B 44 43 2D 43 4F 4D 4D 41 4E 44 00 76 23 | ;DC-COMMAND.v#|
00000380: 21 00 2E 45 51 20 52 44 43 4D 44 20 3D 20 24 38 |!..EQ RDCMD = $8|
00000390: 30 20 3B 52 45 41 44 2D 43 4F 4D 4D 41 4E 44 00 |0 ;READ-COMMAND.|
000003A0: 7C 23 22 00 3B 00 8A 23 23 00 2E 42 41 20 24 30 ||#".;..##..BA $0|
000003B0: 35 30 30 00 9B 23 24 00 47 45 54 43 4F 4D 20 4C |500..#$.GETCOM L|
000003C0: 44 41 23 30 00 AA 23 25 00 20 53 54 41 45 52 52 |DA#0..#%. STAERR|
000003D0: 43 4F 44 00 B8 23 26 00 20 4C 44 59 43 4F 4E 54 |COD..#&. LDYCONT|
000003E0: 52 00 D2 23 27 00 20 42 45 51 49 4E 49 54 3B 31 |R..#'. BEQINIT;1|
000003F0: 2E 4D 41 4C 20 53 55 43 48 45 4E 00 DB 23 28 00 |.MAL SUCHEN..#(.|
00000400: 20 44 45 59 00 E6 23 29 00 20 42 45 51 57 53 00 | DEY..#). BEQWS.|
00000410: F4 23 2A 00 20 4A 4D 50 52 44 44 41 54 00 12 24 |.#*. JMPRDDAT..$|
00000420: 2B 00 57 53 20 4A 4D 50 52 45 53 54 41 52 3B 57 |+.WS JMPRESTAR;W|
00000430: 45 49 54 45 52 53 55 43 48 45 4E 00 24 24 2C 00 |EITERSUCHEN.$$,.|
00000440: 3B 31 2E 4D 41 4C 20 53 55 43 48 45 4E 00 33 24 |;1.MAL SUCHEN.3$|
00000450: 2D 00 49 4E 49 54 20 4C 44 58 23 30 00 52 24 2E |-.INIT LDX#0.R$.|
00000460: 00 4C 50 31 20 4C 44 41 53 44 41 54 41 2C 58 3B |.LP1 LDASDATA,X;|
00000470: 53 55 43 48 53 54 52 49 4E 47 2D 00 6F 24 2F 00 |SUCHSTRING-.o$/.|
00000480: 20 42 45 51 45 53 44 41 54 3B 4C 41 45 4E 47 45 | BEQESDAT;LAENGE|
00000490: 20 2D 3E 20 53 4C 45 4E 00 78 24 30 00 20 49 4E | -> SLEN.x$0. IN|
000004A0: 58 00 84 24 31 00 20 42 4E 45 4C 50 31 00 96 24 |X..$1. BNELP1..$|
000004B0: 32 00 45 53 44 41 54 20 53 54 58 53 4C 45 4E 00 |2.ESDAT STXSLEN.|
000004C0: B3 24 33 00 20 4C 44 59 23 32 3B 50 4F 49 4E 54 |.$3. LDY#2;POINT|
000004D0: 45 52 20 41 55 46 20 44 41 54 45 4E 00 D5 24 34 |ER AUF DATEN..$4|
000004E0: 00 20 4C 44 58 23 30 3B 50 4F 49 4E 54 45 52 20 |. LDX#0;POINTER |
000004F0: 41 55 46 20 53 55 43 48 53 54 52 49 4E 47 00 E4 |AUF SUCHSTRING..|
00000500: 24 35 00 20 4C 44 41 41 54 52 41 43 4B 00 F2 24 |$5. LDAATRACK..$|
00000510: 36 00 20 53 54 41 54 52 41 43 4B 00 13 25 37 00 |6. STATRACK..%7.|
00000520: 20 4C 44 41 41 53 45 43 54 3B 44 41 54 45 4E 46 | LDAASECT;DATENF|
00000530: 45 4C 44 20 45 52 5A 45 55 47 45 4E 00 22 25 38 |ELD ERZEUGEN."%8|
00000540: 00 20 53 54 41 53 45 43 54 4F 52 00 2F 25 39 00 |. STASECTOR./%9.|
00000550: 20 53 54 59 42 50 4F 49 00 3A 25 3A 00 20 4C 44 | STYBPOI.:%:. LD|
00000560: 41 23 30 00 49 25 3B 00 20 53 54 41 45 52 52 43 |A#0.I%;. STAERRC|
00000570: 4F 44 00 5A 25 3C 00 3B 53 55 43 48 52 4F 55 54 |OD.Z%<.;SUCHROUT|
00000580: 49 4E 45 00 7B 25 3D 00 53 45 41 52 43 48 20 4C |INE.{%=.SEARCH L|
00000590: 44 41 42 4C 4B 42 55 46 2C 59 3B 44 41 54 45 4E |DABLKBUF,Y;DATEN|
000005A0: 42 59 54 45 00 95 25 3E 00 20 42 45 51 44 41 54 |BYTE..%>. BEQDAT|
000005B0: 45 4E 44 3B 45 4E 44 45 20 50 52 49 4E 54 00 A5 |END;ENDE PRINT..|
000005C0: 25 3F 00 20 43 4D 50 53 44 41 54 41 2C 58 00 B7 |%?. CMPSDATA,X..|
000005D0: 25 40 00 20 42 45 51 46 4F 55 4E 44 31 3B 4A 41 |%@. BEQFOUND1;JA|
000005E0: 00 D6 25 41 00 20 4C 44 58 23 30 3B 4E 45 49 4E |..%A. LDX#0;NEIN|
000005F0: 2C 4E 41 45 43 48 53 54 45 53 20 42 59 54 45 00 |,NAECHSTES BYTE.|
00000600: E3 25 42 00 53 4E 58 54 20 49 4E 59 00 02 26 43 |.%B.SNXT INY..&C|
00000610: 00 20 42 4E 45 53 45 41 52 43 48 3B 42 4C 4F 43 |. BNESEARCH;BLOC|
00000620: 4B 45 4E 44 45 20 50 52 49 4E 54 00 24 26 44 00 |KENDE PRINT.$&D.|
00000630: 20 4A 53 52 4E 58 54 42 4C 4B 3B 4A 41 2C 4E 41 | JSRNXTBLK;JA,NA|
00000640: 45 43 48 53 54 45 52 20 42 4C 4F 43 4B 00 3E 26 |ECHSTER BLOCK.>&|
00000650: 45 00 20 42 43 53 45 52 52 45 58 3B 46 45 48 4C |E. BCSERREX;FEHL|
00000660: 45 52 2C 45 4E 44 45 00 49 26 46 00 20 4C 44 59 |ER,ENDE.I&F. LDY|
00000670: 23 32 00 58 26 47 00 20 42 4E 45 53 45 41 52 43 |#2.X&G. BNESEARC|
00000680: 48 00 69 26 48 00 3B 42 59 54 45 20 53 54 49 4D |H.i&H.;BYTE STIM|
00000690: 4D 54 00 8C 26 49 00 46 4F 55 4E 44 31 20 49 4E |MT..&I.FOUND1 IN|
000006A0: 58 3B 47 41 4E 5A 45 52 20 53 54 52 49 4E 47 20 |X;GANZER STRING |
000006B0: 50 52 49 4E 54 00 99 26 4A 00 20 43 50 58 53 4C |PRINT..&J. CPXSL|
000006C0: 45 4E 00 B2 26 4C 00 20 42 4E 45 53 4E 58 54 3B |EN..&L. BNESNXT;|
000006D0: 4E 45 49 4E 2C 57 45 49 54 45 52 00 BF 26 4D 00 |NEIN,WEITER..&M.|
000006E0: 20 53 54 59 59 53 41 56 00 D4 26 4E 00 20 52 54 | STYYSAV..&N. RT|
000006F0: 53 3B 4A 41 2C 47 45 46 55 4E 44 45 4E 00 E8 26 |S;JA,GEFUNDEN..&|
00000700: 4F 00 3B 44 41 54 45 4E 53 41 54 5A 2D 45 4E 44 |O.;DATENSATZ-END|
00000710: 45 00 04 27 50 00 44 41 54 45 4E 44 20 54 59 41 |E..'P.DATEND TYA|
00000720: 3B 35 20 43 4F 44 45 2D 42 59 54 45 53 00 14 27 |;5 CODE-BYTES..'|
00000730: 51 00 20 43 4C 43 3B 57 45 49 54 45 52 00 1F 27 |Q. CLC;WEITER..'|
00000740: 52 00 20 41 44 43 23 36 00 28 27 53 00 20 54 41 |R. ADC#6.('S. TA|
00000750: 59 00 37 27 54 00 20 42 43 43 4E 58 54 53 45 54 |Y.7'T. BCCNXTSET|
00000760: 00 52 27 55 00 20 4A 53 52 4E 58 54 42 4C 4B 3B |.R'U. JSRNXTBLK;|
00000770: 4E 45 55 45 52 20 42 4C 4F 43 4B 00 6C 27 56 00 |NEUER BLOCK.l'V.|
00000780: 20 42 43 53 45 52 52 45 58 3B 46 45 48 4C 45 52 | BCSERREX;FEHLER|
00000790: 2C 45 4E 44 45 00 75 27 57 00 20 49 4E 59 00 7E |,ENDE.u'W. INY.~|
000007A0: 27 58 00 20 49 4E 59 00 97 27 59 00 3B 4E 41 45 |'X. INY..'Y.;NAE|
000007B0: 43 48 53 54 45 52 20 44 41 54 45 4E 53 41 54 5A |CHSTER DATENSATZ|
000007C0: 00 A8 27 5A 00 4E 58 54 53 45 54 20 4C 44 58 23 |..'Z.NXTSET LDX#|
000007D0: 30 00 B7 27 5B 00 20 4C 44 41 41 54 52 41 43 4B |0..'[. LDAATRACK|
000007E0: 00 C5 27 5C 00 20 53 54 41 54 52 41 43 4B 00 D3 |..'\. STATRACK..|
000007F0: 27 5D 00 20 4C 44 41 41 53 45 43 54 00 E2 27 5E |']. LDAASECT..'^|
00000800: 00 20 53 54 41 53 45 43 54 4F 52 00 EF 27 5F 00 |. STASECTOR..'_.|
00000810: 20 53 54 59 42 50 4F 49 00 12 28 60 00 20 4C 44 | STYBPOI..(`. LD|
00000820: 41 4E 54 52 41 43 4B 3B 4C 45 54 5A 54 45 52 20 |ANTRACK;LETZTER |
00000830: 42 4C 4F 43 4B 20 50 52 49 4E 54 00 2D 28 61 00 |BLOCK PRINT.-(a.|
00000840: 20 42 4E 45 53 45 41 52 43 48 3B 4E 45 49 4E 2C | BNESEARCH;NEIN,|
00000850: 57 45 49 54 45 52 00 4B 28 62 00 20 43 50 59 4E |WEITER.K(b. CPYN|
00000860: 53 45 43 54 3B 44 41 54 45 49 2D 45 4E 44 45 50 |SECT;DATEI-ENDEP|
00000870: 52 49 4E 54 00 66 28 63 00 20 42 43 43 53 45 41 |RINT.f(c. BCCSEA|
00000880: 52 43 48 3B 4E 45 49 4E 2C 57 45 49 54 45 52 00 |RCH;NEIN,WEITER.|
00000890: 76 28 64 00 3B 44 41 54 45 49 2D 45 4E 44 45 00 |v(d.;DATEI-ENDE.|
000008A0: 95 28 65 00 45 58 49 54 20 4C 44 41 23 39 39 3B |.(e.EXIT LDA#99;|
000008B0: 45 4E 44 2D 44 41 54 45 4E 20 45 52 5A 2E 00 A4 |END-DATEN ERZ...|
000008C0: 28 66 00 20 53 54 41 45 52 52 43 4F 44 00 B6 28 |(f. STAERRCOD..(|
000008D0: 67 00 45 52 52 45 58 20 53 54 59 59 53 41 56 00 |g.ERREX STYYSAV.|
000008E0: BF 28 68 00 20 52 54 53 00 E5 28 69 00 3B 2A 2A |.(h. RTS..(i.;**|
000008F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0B |**************..|
00000910: 29 6A 00 3B 52 45 53 54 41 52 54 2D 52 4F 55 54 |)j.;RESTART-ROUT|
00000920: 49 4E 45 20 20 20 28 57 45 49 54 45 52 53 55 43 |INE (WEITERSUC|
00000930: 48 45 4E 29 00 31 29 6B 00 3B 2A 2A 2A 2A 2A 2A |HEN).1)k.;******|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 29 6C 00 52 |**********.B)l.R|
00000960: 45 53 54 41 52 20 4C 44 58 23 30 00 4F 29 6D 00 |ESTAR LDX#0.O)m.|
00000970: 20 4C 44 59 59 53 41 56 00 58 29 6E 00 20 49 4E | LDYYSAV.X)n. IN|
00000980: 59 00 67 29 6F 00 20 42 4E 45 53 45 41 52 43 48 |Y.g)o. BNESEARCH|
00000990: 00 76 29 70 00 20 4A 53 52 4E 58 54 42 4C 4B 00 |.v)p. JSRNXTBLK.|
000009A0: 84 29 71 00 20 42 43 53 45 52 52 45 58 00 8D 29 |.)q. BCSERREX..)|
000009B0: 72 00 20 49 4E 59 00 96 29 73 00 20 49 4E 59 00 |r. INY..)s. INY.|
000009C0: A5 29 74 00 20 4A 4D 50 53 45 41 52 43 48 00 CB |.)t. JMPSEARCH..|
000009D0: 29 75 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |)u.;************|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009F0: 2A 2A 2A 2A 00 EE 29 76 00 3B 52 4F 55 54 49 4E |****..)v.;ROUTIN|
00000A00: 45 20 55 4D 20 44 41 54 45 4E 53 41 54 5A 20 5A |E UM DATENSATZ Z|
00000A10: 55 20 48 4F 4C 45 4E 00 19 2A 77 00 3B 27 43 4F |U HOLEN..*w.;'CO|
00000A20: 4E 54 52 4F 4C 27 20 45 4E 54 48 41 45 4C 54 20 |NTROL' ENTHAELT |
00000A30: 50 4F 49 4E 54 45 52 20 41 55 46 20 31 2E 42 59 |POINTER AUF 1.BY|
00000A40: 54 45 00 43 2A 78 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |TE.C*x.;********|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 2A 79 |************.V*y|
00000A70: 00 52 44 44 41 54 20 4C 44 59 43 4F 4E 54 52 00 |.RDDAT LDYCONTR.|
00000A80: 61 2A 7A 00 20 4C 44 58 23 30 00 86 2A 7B 00 52 |a*z. LDX#0..*{.R|
00000A90: 44 4C 50 31 20 4C 44 41 42 4C 4B 42 55 46 2C 59 |DLP1 LDABLKBUF,Y|
00000AA0: 3B 41 55 53 20 44 41 54 45 4E 42 4C 4F 43 4B 00 |;AUS DATENBLOCK.|
00000AB0: A5 2A 7C 00 20 53 54 41 43 4F 4D 42 55 46 2C 58 |.*|. STACOMBUF,X|
00000AC0: 3B 49 4E 20 4C 45 53 45 42 55 46 46 45 52 00 C2 |;IN LESEBUFFER..|
00000AD0: 2A 7D 00 20 42 45 51 52 44 45 4E 44 3B 45 4E 44 |*}. BEQRDEND;END|
00000AE0: 4D 41 52 4B 45 20 50 52 49 4E 54 00 CB 2A 7E 00 |MARKE PRINT..*~.|
00000AF0: 20 49 4E 58 00 D4 2A 7F 00 20 49 4E 59 00 F2 2A | INX..*.. INY..*|
00000B00: 80 00 20 42 4E 45 52 44 4C 50 31 3B 42 4C 4F 43 |.. BNERDLP1;BLOC|
00000B10: 4B 45 4E 44 45 20 50 52 49 4E 54 00 12 2B 81 00 |KENDE PRINT..+..|
00000B20: 20 4A 53 52 4E 58 54 42 4C 4B 3B 4A 41 2C 4E 41 | JSRNXTBLK;JA,NA|
00000B30: 45 43 48 53 54 45 52 20 42 4C 2E 00 20 2B 82 00 |ECHSTER BL.. +..|
00000B40: 20 42 43 53 45 52 52 45 58 00 2B 2B 83 00 20 4C | BCSERREX.++.. L|
00000B50: 44 59 23 32 00 39 2B 84 00 20 42 4E 45 52 44 4C |DY#2.9+.. BNERDL|
00000B60: 50 31 00 57 2B 85 00 52 44 45 4E 44 20 4C 44 41 |P1.W+..RDEND LDA|
00000B70: 23 36 3B 4A 45 54 5A 54 20 35 20 43 4F 44 45 53 |#6;JETZT 5 CODES|
00000B80: 00 6A 2B 86 00 20 53 54 41 59 53 41 56 3B 4C 45 |.j+.. STAYSAV;LE|
00000B90: 53 45 4E 00 78 2B 87 00 20 42 4E 45 52 44 43 4F |SEN.x+.. BNERDCO|
00000BA0: 44 00 8E 2B 88 00 52 44 4C 50 32 20 4C 44 41 42 |D..+..RDLP2 LDAB|
00000BB0: 4C 4B 42 55 46 2C 59 00 9F 2B 89 00 20 53 54 41 |LKBUF,Y..+.. STA|
00000BC0: 43 4F 4D 42 55 46 2C 58 00 AD 2B 8A 00 52 44 43 |COMBUF,X..+..RDC|
00000BD0: 4F 44 20 49 4E 58 00 B6 2B 8B 00 20 49 4E 59 00 |OD INX..+.. INY.|
00000BE0: C4 2B 8C 00 20 42 4E 45 4E 4F 4E 58 42 00 D3 2B |.+.. BNENONXB..+|
00000BF0: 8D 00 20 4A 53 52 4E 58 54 42 4C 4B 00 DE 2B 8E |.. JSRNXTBLK..+.|
00000C00: 00 20 4C 44 59 23 32 00 F0 2B 8F 00 4E 4F 4E 58 |. LDY#2..+..NONX|
00000C10: 42 20 44 45 43 59 53 41 56 00 FE 2B 90 00 20 42 |B DECYSAV..+.. B|
00000C20: 4E 45 52 44 4C 50 32 00 07 2C 91 00 20 52 54 53 |NERDLP2..,.. RTS|
00000C30: 00 2D 2C 92 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.-,..;**********|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C50: 2A 2A 2A 2A 2A 2A 00 40 2C 93 00 3B 20 20 53 55 |******.@,..; SU|
00000C60: 42 52 4F 55 54 49 4E 45 53 00 66 2C 95 00 3B 2A |BROUTINES.f,..;*|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000C90: 80 2C 96 00 3B 4E 41 45 43 48 53 54 45 4E 20 42 |.,..;NAECHSTEN B|
00000CA0: 4C 43 4B 20 4C 41 44 45 4E 00 A4 2C 97 00 3B 43 |LCK LADEN..,..;C|
00000CB0: 20 3D 20 30 20 2D 3E 20 4F 2E 4B 2E 20 20 43 20 | = 0 -> O.K. C |
00000CC0: 3D 20 31 20 2D 3E 20 46 45 48 4C 45 52 00 B5 2C |= 1 -> FEHLER..,|
00000CD0: 98 00 4E 58 54 42 4C 4B 20 4C 44 41 23 35 00 D2 |..NXTBLK LDA#5..|
00000CE0: 2C 99 00 20 53 54 41 52 45 54 4E 55 4D 3B 41 4E |,.. STARETNUM;AN|
00000CF0: 5A 41 48 4C 20 52 45 54 52 59 53 00 EF 2C 9A 00 |ZAHL RETRYS..,..|
00000D00: 20 4C 44 41 4E 54 52 41 43 4B 3B 45 4E 44 42 4C | LDANTRACK;ENDBL|
00000D10: 4F 43 4B 50 52 49 4E 54 00 08 2D 9B 00 20 42 45 |OCKPRINT..-.. BE|
00000D20: 51 46 41 54 45 52 52 3B 4A 41 2C 46 45 48 4C 45 |QFATERR;JA,FEHLE|
00000D30: 52 00 28 2D 9C 00 20 53 54 41 41 54 52 41 43 4B |R.(-.. STAATRACK|
00000D40: 3B 4E 45 49 4E 2C 42 4C 4F 43 4B 20 4C 45 53 45 |;NEIN,BLOCK LESE|
00000D50: 4E 00 36 2D 9D 00 20 4C 44 41 4E 53 45 43 54 00 |N.6-.. LDANSECT.|
00000D60: 44 2D 9E 00 20 53 54 41 41 53 45 43 54 00 60 2D |D-.. STAASECT.`-|
00000D70: 9F 00 52 45 54 52 59 20 4C 44 41 23 52 44 43 4D |..RETRY LDA#RDCM|
00000D80: 44 3B 43 4F 4D 4D 41 4E 44 00 75 2D A0 00 20 53 |D;COMMAND.u-.. S|
00000D90: 54 41 44 43 43 4D 44 3B 53 45 4E 44 45 4E 00 8F |TADCCMD;SENDEN..|
00000DA0: 2D A1 00 57 41 49 54 31 20 4C 44 41 44 43 43 4D |-..WAIT1 LDADCCM|
00000DB0: 44 3B 46 45 52 54 49 47 00 9D 2D A2 00 20 42 4D |D;FERTIG..-.. BM|
00000DC0: 49 57 41 49 54 31 00 B2 2D A3 00 20 43 4D 50 23 |IWAIT1..-.. CMP#|
00000DD0: 31 3B 4F 2E 4B 2E 50 52 49 4E 54 00 C2 2D A4 00 |1;O.K.PRINT..-..|
00000DE0: 20 42 45 51 52 44 4F 4B 3B 4A 41 00 D6 2D A5 00 | BEQRDOK;JA..-..|
00000DF0: 20 53 54 41 45 52 52 53 41 56 3B 4E 45 49 4E 00 | STAERRSAV;NEIN.|
00000E00: FA 2D A6 00 20 4A 53 52 54 53 54 52 54 59 3B 52 |.-.. JSRTSTRTY;R|
00000E10: 45 54 52 59 20 4D 4F 45 47 4C 49 43 48 20 50 52 |ETRY MOEGLICH PR|
00000E20: 49 4E 54 00 0B 2E A7 00 20 42 43 53 52 45 54 52 |INT..... BCSRETR|
00000E30: 59 3B 4A 41 00 25 2E A8 00 20 4C 44 41 45 52 52 |Y;JA.%... LDAERR|
00000E40: 53 41 56 3B 4E 45 49 4E 2C 46 45 48 45 52 00 3A |SAV;NEIN,FEHER.:|
00000E50: 2E A9 00 46 41 54 45 52 52 20 53 54 41 45 52 52 |...FATERR STAERR|
00000E60: 43 4F 44 00 43 2E AA 00 20 53 45 43 00 4C 2E AB |COD.C... SEC.L..|
00000E70: 00 20 52 54 53 00 59 2E AC 00 52 44 4F 4B 20 43 |. RTS.Y...RDOK C|
00000E80: 4C 43 00 62 2E AD 00 20 52 54 53 00 88 2E AE 00 |LC.b... RTS.....|
00000E90: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 00 AC 2E AF 00 3B 52 4F 55 54 49 4E 45 20 54 |*.....;ROUTINE T|
00000EC0: 53 54 52 54 59 20 54 45 53 54 45 54 20 4F 42 20 |STRTY TESTET OB |
00000ED0: 52 45 54 52 59 00 D2 2E B0 00 3B 4D 4F 45 47 4C |RETRY.....;MOEGL|
00000EE0: 49 43 48 20 20 43 3D 31 20 2D 3E 20 4A 41 2C 20 |ICH C=1 -> JA, |
00000EF0: 43 3D 30 20 2D 3E 20 4E 45 49 4E 00 F8 2E B1 00 |C=0 -> NEIN.....|
00000F00: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F20: 2A 00 07 2F B2 00 54 53 54 52 54 59 20 54 58 41 |*../..TSTRTY TXA|
00000F30: 00 10 2F B3 00 20 50 48 41 00 28 2F B4 00 20 4C |../.. PHA.(/.. L|
00000F40: 44 58 23 33 3B 46 45 48 4C 45 52 20 35 2C 37 2C |DX#3;FEHLER 5,7,|
00000F50: 39 00 37 2F B5 00 20 4C 44 41 45 52 52 53 41 56 |9.7/.. LDAERRSAV|
00000F60: 00 5C 2F B6 00 54 53 54 4C 50 31 20 43 4D 50 45 |.\/..TSTLP1 CMPE|
00000F70: 52 52 54 41 42 2C 58 3B 4F 44 45 52 20 31 36 20 |RRTAB,X;ODER 16 |
00000F80: 50 52 49 4E 54 00 6B 2F B7 00 20 42 45 51 4F 4B |PRINT.k/.. BEQOK|
00000F90: 31 3B 4A 41 00 74 2F B8 00 20 44 45 58 00 83 2F |1;JA.t/.. DEX../|
00000FA0: B9 00 20 42 50 4C 54 53 54 4C 50 31 00 91 2F BA |.. BPLTSTLP1../.|
00000FB0: 00 4E 4F 52 54 59 20 50 4C 41 00 9A 2F BB 00 20 |.NORTY PLA../.. |
00000FC0: 54 41 58 00 A8 2F BC 00 20 43 4C 43 3B 4E 45 49 |TAX../.. CLC;NEI|
00000FD0: 4E 00 B1 2F BD 00 20 52 54 53 00 D7 2F BE 00 4F |N../.. RTS../..O|
00000FE0: 4B 31 20 44 45 43 52 45 54 4E 55 4D 3B 53 43 48 |K1 DECRETNUM;SCH|
00000FF0: 4F 4E 20 35 20 52 45 54 52 59 53 50 52 49 4E 54 |ON 5 RETRYSPRINT|
00001000: 00 ED 2F BF 00 20 42 45 51 4E 4F 52 54 59 3B 4A |../.. BEQNORTY;J|
00001010: 41 2C 45 4E 44 45 00 F6 2F C0 00 20 50 4C 41 00 |A,ENDE../.. PLA.|
00001020: FF 2F C1 00 20 54 41 58 00 1C 30 C2 00 20 53 45 |./.. TAX..0.. SE|
00001030: 43 3B 4E 45 49 4E 2C 52 45 54 52 59 20 4D 4F 45 |C;NEIN,RETRY MOE|
00001040: 47 4C 49 43 48 00 25 30 C3 00 20 52 54 53 00 4B |GLICH.%0.. RTS.K|
00001050: 30 C4 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..;************|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001070: 2A 2A 2A 2A 00 59 30 C5 00 3B 56 41 52 49 41 42 |****.Y0..;VARIAB|
00001080: 4C 45 00 7F 30 C6 00 3B 2A 2A 2A 2A 2A 2A 2A 2A |LE..0..;********|
00001090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 A2 30 C7 00 45 52 52 |********..0..ERR|
000010B0: 54 41 42 20 2E 42 59 35 3B 54 41 42 45 4C 4C 45 |TAB .BY5;TABELLE|
000010C0: 20 44 45 52 20 46 45 48 4C 45 52 00 C7 30 C8 00 | DER FEHLER..0..|
000010D0: 2E 42 59 20 37 20 20 20 20 20 20 20 20 20 3B 20 |.BY 7 ; |
000010E0: 42 45 49 20 44 45 4E 45 4E 20 52 45 54 52 59 53 |BEI DENEN RETRYS|
000010F0: 00 E9 30 C9 00 2E 42 59 20 39 20 20 20 20 20 20 |..0...BY 9 |
00001100: 20 20 20 3B 20 4D 4F 45 47 4C 49 43 48 20 53 49 | ; MOEGLICH SI|
00001110: 4E 44 00 F4 30 CA 00 2E 42 59 20 31 36 00 16 31 |ND..0...BY 16..1|
00001120: CB 00 52 45 54 4E 55 4D 20 2E 42 59 30 3B 41 4E |..RETNUM .BY0;AN|
00001130: 5A 41 48 4C 20 44 45 52 20 52 45 54 52 59 53 00 |ZAHL DER RETRYS.|
00001140: 30 31 CC 00 45 52 52 53 41 56 20 2E 42 59 30 3B |01..ERRSAV .BY0;|
00001150: 45 52 52 4F 52 43 4F 44 45 00 55 31 CD 00 53 4C |ERRORCODE.U1..SL|
00001160: 45 4E 20 2E 42 59 30 3B 4C 41 45 4E 47 45 20 44 |EN .BY0;LAENGE D|
00001170: 45 53 20 53 55 43 48 53 54 52 49 4E 47 53 00 74 |ES SUCHSTRINGS.t|
00001180: 31 CE 00 59 53 41 56 20 2E 42 59 30 3B 50 4F 49 |1..YSAV .BY0;POI|
00001190: 4E 54 45 52 20 41 55 46 20 54 45 58 54 00 00 00 |NTER AUF TEXT...|
X.....; SUCHROUTINE FUER DC-MEMORY.. ..;
R.MAETCHE.. ..; ANFANGSBLOCK STEHT IN P
UFFER 0.T ..; SUCHSTRING AB $04A0, ENDMA
RKE=0.I ..; KOMMUNIKATION:.. ..; COMBUF
= CONTROL.. ..; COMBUF+1 = TRACK.. ..;
COMBUF+2 = SECTOR.T ..; COMBUF+3 = POIN
TER ZU 1.BYTE.. ..; COMBUF+4 = FEHLERCOD
E..!..; 0 IN CONTROL -> 1.MAL SUCHEN.:
!..; 1 IN CONTROL -> WEITERSUCHEN.B!..
; >1 IN CONTROL -> DATENSATZ HOLEN..!..
; FEHLERCODE = 00-> KEIN FEHLER..!..; F
EHLERCODE = 99-> DATEI-ENDE.B!...EQ BLK
BUF = $0300.Y!...EQ NTRACK = $0300..!...
EQ NSECT = $0301.."...EQ COMBUF = $0400
;KOMMUNIKATIONS-.("..; BUFFER.@"...E
Q CONTR = COMBUF.Z"...EQ TRACK = COMBU
F+1.T"...EQ SECTOR = COMBUF+2.."...EQ BP
OI = COMBUF+3.."...EQ ERRCOD = COMBUF+
4.."...EQ SDATA = $04A0.W"..; DISK - CO
NTROLLER..#...EQ ATRACK = $06 ;AKTU
ELLER TRACK..#...EQ ASECT = $07 ;
" SECTOR.T# ..EQ DCCMD = $00
;DC-COMMAND.V#!..EQ RDCMD = $80 ;READ-
COMMAND.|#".;..##..BA $0500..#$.GETCOM L
DA#0..#%. STAERRCOD..#&. LDYCONTR.R#'. B
EQINIT;1.MAL SUCHEN..#(. DEY..#). BEQWS.
.#*. JMPRDDAT..$+.WS JMPRESTAR;WEITERSUC
HEN.$$,.;1.MAL SUCHEN.3$-.INIT LDX#0.R$.
.LP1 LDASDATA,X;SUCHSTRING-.O$/. BEQESDA
T;LAENGE -> SLEN.X$0. INX..$1. BNELP1..$
2.ESDAT STXSLEN..$3. LDY#2;POINTER AUF D
ATEN.U$4. LDX#0;POINTER AUF SUCHSTRING..
$5. LDAATRACK..$6. STATRACK..%7. LDAASEC
T;DATENFELD ERZEUGEN."%8. STASECTOR./%9.
STYBPOI.:%:. LDA#0.I%;. STAERRCOD.Z%<.;
SUCHROUTINE.{%=.SEARCH LDABLKBUF,Y;DATEN
BYTE..%>. BEQDATEND;ENDE PRINT..%?. CMPS
DATA,X..%@. BEQFOUND1;JA.V%A. LDX#0;NEIN
,NAECHSTES BYTE..%B.SNXT INY..&C. BNESEA
RCH;BLOCKENDE PRINT.$&D. JSRNXTBLK;JA,NA
ECHSTER BLOCK.>&E. BCSERREX;FEHLER,ENDE.
I&F. LDY#2.X&G. BNESEARCH.I&H.;BYTE STIM
MT..&I.FOUND1 INX;GANZER STRING PRINT..&
J. CPXSLEN..&L. BNESNXT;NEIN,WEITER..&M.
STYYSAV.T&N. RTS;JA,GEFUNDEN..&O.;DATEN
SATZ-ENDE..'P.DATEND TYA;5 CODE-BYTES..'
Q. CLC;WEITER..'R. ADC#6.('S. TAY.7'T. B
CCNXTSET.R'U. JSRNXTBLK;NEUER BLOCK.L'V.
BCSERREX;FEHLER,ENDE.U'W. INY.~'X. INY.
.'Y.;NAECHSTER DATENSATZ..'Z.NXTSET LDX#
0..'[. LDAATRACK.E'\. STATRACK.S']. LDAA
SECT..'^. STASECTOR..'_. STYBPOI..(`. LD
ANTRACK;LETZTER BLOCK PRINT.-(A. BNESEAR
CH;NEIN,WEITER.K(B. CPYNSECT;DATEI-ENDEP
RINT.F(C. BCCSEARCH;NEIN,WEITER.V(D.;DAT
EI-ENDE..(E.EXIT LDA#99;END-DATEN ERZ...
(F. STAERRCOD..(G.ERREX STYYSAV..(H. RTS
..(I.;********************************..
)J.;RESTART-ROUTINE (WEITERSUCHEN).1)K
.;********************************.B)L.R
ESTAR LDX#0.O)M. LDYYSAV.X)N. INY.G)O. B
NESEARCH.V)P. JSRNXTBLK..)Q. BCSERREX..)
R. INY..)S. INY..)T. JMPSEARCH.K)U.;****
****************************..)V.;ROUTIN
E UM DATENSATZ ZU HOLEN..*W.;'CONTROL' E
NTHAELT POINTER AUF 1.BYTE.C*X.;********
****************************.V*Y.RDDAT L
DYCONTR.A*Z. LDX#0..*{.RDLP1 LDABLKBUF,Y
;AUS DATENBLOCK..*|. STACOMBUF,X;IN LESE
BUFFER.B*}. BEQRDEND;ENDMARKE PRINT.K*~.
INX.T*. INY..*.. BNERDLP1;BLOCKENDE PR
INT..+.. JSRNXTBLK;JA,NAECHSTER BL.. +..
BCSERREX.++.. LDY#2.9+.. BNERDLP1.W+..R
DEND LDA#6;JETZT 5 CODES.J+.. STAYSAV;LE
SEN.X+.. BNERDCOD..+..RDLP2 LDABLKBUF,Y.
.+.. STACOMBUF,X..+..RDCOD INX..+.. INY.
D+.. BNENONXB.S+.. JSRNXTBLK..+.. LDY#2.
.+..NONXB DECYSAV..+.. BNERDLP2..,.. RTS
.-,..;********************************.@
,..; SUBROUTINES.F,..;*****************
***************..,..;NAECHSTEN BLCK LADE
N..,..;C = 0 -> O.K. C = 1 -> FEHLER..,
..NXTBLK LDA#5.R,.. STARETNUM;ANZAHL RET
RYS..,.. LDANTRACK;ENDBLOCKPRINT..-.. BE
QFATERR;JA,FEHLER.(-.. STAATRACK;NEIN,BL
OCK LESEN.6-.. LDANSECT.D-.. STAASECT.`-
..RETRY LDA#RDCMD;COMMAND.U- . STADCCMD;
SENDEN..-..WAIT1 LDADCCMD;FERTIG..-.. BM
IWAIT1..-.. CMP#1;O.K.PRINT.B-.. BEQRDOK
;JA.V-.. STAERRSAV;NEIN..-.. JSRTSTRTY;R
ETRY MOEGLICH PRINT..... BCSRETRY;JA.%..
. LDAERRSAV;NEIN,FEHER.:...FATERR STAERR
COD.C... SEC.L... RTS.Y...RDOK CLC.B...
RTS.....;*******************************
*.....;ROUTINE TSTRTY TESTET OB RETRY.R.
..;MOEGLICH C=1 -> JA, C=0 -> NEIN.....
;********************************../..TS
TRTY TXA../.. PHA.(/.. LDX#3;FEHLER 5,7,
9.7/.. LDAERRSAV.\/..TSTLP1 CMPERRTAB,X;
ODER 16 PRINT.K/.. BEQOK1;JA.T/.. DEX../
.. BPLTSTLP1../..NORTY PLA../.. TAX../..
CLC;NEIN../.. RTS.W/..OK1 DECRETNUM;SCH
ON 5 RETRYSPRINT../.. BEQNORTY;JA,ENDE..
/.. PLA../A. TAX..0B. SEC;NEIN,RETRY MOE
GLICH.%0C. RTS.K0D.;********************
************.Y0E.;VARIABLE.0F.;********
************************..0G.ERRTAB .BY5
;TABELLE DER FEHLER.G0H..BY 7 ;
BEI DENEN RETRYS..0I..BY 9 ; MOE
GLICH SIND..0J..BY 16..1K.RETNUM .BY0;AN
ZAHL DER RETRYS.01L.ERRSAV .BY0;ERRORCOD
E.U1M.SLEN .BY0;LAENGE DES SUCHSTRINGS.T
1N.YSAV .BY0;POINTER AUF TEXT...
> CLICK IMAGE PREVIEW FOR FULL MODAL