_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

HY/SUCHEN.SRC

FILE INFORMATION

FILENAME(S): HY/SUCHEN.SRC

FILE TYPE(S): PRG

FILE SIZE: 508b

FIRST SEEN: 2025-11-30 21:13:19

APPEARS ON: 1 disk(s)

FILE HASH

a43e38c43054d4cf73b49caba84d941c8a84c5131527202a67e29f35be2723e4

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10705 64ER 5 87 HY/SUCHEN.SRC PRG 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 42 4E 7C 5E 77 E0 70  |..; KOMMUBN|^w.p|
00000090: 78 8E EE E9 8E EE FE 8E  9E E8 70 74 78 EE 71 8E  |x.........ptx.q.|
000000A0: 8E 8E 8E 9E E8 70 78 84  82 EF EC 01 8E 20 18 00  |.....px...... ..|
000000B0: 2E 20 E2 EF EE E8 EE E1  2E 3E 20 2C 8E E7 E9 EE  |. .......> ,....|
000000C0: 78 EB 00 B1 20 0A 00 3B  20 43 4F 4D 42 55 46 2B  |x... ..; 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              |.EQ NTRACK =    |
X.....; SUCHROUTINE FUER DC-MEMORY.. ..;
 R.MAETCHE.. ..; ANFANGSBLOCK STEHT IN P
UFFER 0.T ..; SUCHSTRING AB $04A0, ENDMA
RKE=0.I ..; KOMMUBN|^W.PX.........PTX.Q.
.....PX...... ... .......> ,....X... ..;
 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 =
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL