EX1.HY

FILE INFORMATION

FILENAME(S): EX1.HY

FILE TYPE(S): PRG

FILE SIZE: 904b

FIRST SEEN: 2025-11-30 01:13:14

APPEARS ON: 1 disk(s)

FILE HASH

5a32f09fbdb2e257c7e5ddbc111413e9f39dbaf97d56be7c22eb1464021f8b81

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15721 SEITE A	EX1.HY	PRG	C64er	32	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F 0B 20 10 27 53 54  41 52 54 20 2E 2E 2E 4D  |... .'START ...M|
00000010: 4F 50 45 4E 28 31 2C 44  45 56 2C 32 2C 4E 41 4D  |OPEN(1,DEV,2,NAM|
00000020: 45 2C 4C 45 4E 29 3B 20  46 49 4C 45 20 4F 45 46  |E,LEN); FILE OEF|
00000030: 46 4E 45 4E 00 3D 20 15  27 20 2E 2E 2E 4D 44 53  |FNEN.= .' ...MDS|
00000040: 54 41 54 28 44 45 56 2C  42 55 46 46 45 52 29 3B  |TAT(DEV,BUFFER);|
00000050: 20 46 4C 4F 50 50 59 2D  53 54 41 54 55 53 20 50  | FLOPPY-STATUS P|
00000060: 52 55 45 46 45 4E 00 4C  20 1A 27 20 42 45 51 46  |RUEFEN.L .' BEQF|
00000070: 49 4C 45 4F 4B 00 76 20  1F 27 20 4C 44 58 23 30  |ILEOK.v .' LDX#0|
00000080: 3B 20 57 45 4E 4E 20 46  45 48 4C 45 52 2C 20 4D  |; WENN FEHLER, M|
00000090: 45 4C 44 55 4E 47 20 41  55 53 47 45 42 45 4E 00  |ELDUNG AUSGEBEN.|
000000A0: 8D 20 24 27 45 52 52 4D  53 47 20 4C 44 41 42 55  |. $'ERRMSG LDABU|
000000B0: 46 46 45 52 2C 58 00 BB  20 29 27 20 42 45 51 45  |FFER,X.. )' BEQE|
000000C0: 58 49 54 3B 20 4D 45 4C  44 55 4E 47 20 5A 55 45  |XIT; MELDUNG ZUE|
000000D0: 4E 44 45 3A 20 46 49 4C  45 20 53 43 48 4C 49 45  |NDE: FILE SCHLIE|
000000E0: 53 53 45 4E 00 CA 20 2E  27 20 4A 53 52 42 41 53  |SSEN.. .' JSRBAS|
000000F0: 4F 55 54 00 D3 20 33 27  20 49 4E 58 00 F6 20 38  |OUT.. 3' INX.. 8|
00000100: 27 20 42 4E 45 45 52 52  4D 53 47 3B 20 55 4E 42  |' BNEERRMSG; UNB|
00000110: 45 44 49 4E 47 54 45 52  20 53 50 52 55 4E 47 00  |EDINGTER SPRUNG.|
00000120: 07 21 3D 27 46 49 4C 45  4F 4B 20 4C 44 58 23 31  |.!='FILEOK LDX#1|
00000130: 00 33 21 42 27 20 4A 53  52 43 48 4B 49 4E 3B 20  |.3!B' JSRCHKIN; |
00000140: 45 49 4E 47 41 42 45 20  56 4F 4E 20 46 49 4C 45  |EINGABE VON FILE|
00000150: 20 56 4F 52 42 45 52 45  49 54 45 4E 00 45 21 47  | VORBEREITEN.E!G|
00000160: 27 4C 49 53 54 20 4A 53  52 42 41 53 49 4E 00 70  |'LIST JSRBASIN.p|
00000170: 21 4C 27 20 4A 53 52 42  41 53 4F 55 54 3B 20 46  |!L' JSRBASOUT; F|
00000180: 49 4C 45 20 41 55 46 20  42 49 4C 44 53 43 48 49  |ILE AUF BILDSCHI|
00000190: 52 4D 20 4C 49 53 54 45  4E 00 98 21 51 27 20 4A  |RM LISTEN..!Q' J|
000001A0: 53 52 53 54 4F 50 45 51  3B 20 42 45 49 20 53 54  |SRSTOPEQ; BEI ST|
000001B0: 4F 50 54 41 53 54 45 20  41 42 42 52 45 43 48 45  |OPTASTE ABBRECHE|
000001C0: 4E 00 A5 21 56 27 20 42  45 51 45 58 49 54 00 D0  |N..!V' BEQEXIT..|
000001D0: 21 5B 27 20 4A 53 52 52  45 41 44 53 54 3B 20 53  |![' JSRREADST; S|
000001E0: 4F 4C 41 4E 47 45 20 46  49 4C 45 20 4E 49 43 48  |OLANGE FILE NICH|
000001F0: 54 20 5A 55 45 4E 44 45  2C 00 EA 21 60 27 20 42  |T ZUENDE,..!`' B|
00000200: 45 51 4C 49 53 54 3B 20  57 45 49 54 45 52 4C 45  |EQLIST; WEITERLE|
00000210: 53 45 4E 00 13 22 65 27  45 58 49 54 20 4A 53 52  |SEN.."e'EXIT JSR|
00000220: 43 4C 52 43 48 4E 3B 20  53 54 41 4E 44 41 52 44  |CLRCHN; STANDARD|
00000230: 20 45 49 4E 2F 41 55 53  47 41 42 45 00 36 22 6A  | EIN/AUSGABE.6"j|
00000240: 27 20 2E 2E 2E 4D 43 4C  4F 53 45 28 31 29 3B 20  |' ...MCLOSE(1); |
00000250: 46 49 4C 45 20 53 43 48  4C 49 45 53 53 45 4E 00  |FILE SCHLIESSEN.|
00000260: 3F 22 6F 27 20 52 54 53  00 69 22 74 27 4E 41 4D  |?"o' RTS.i"t'NAM|
00000270: 45 20 2E 54 58 22 4D 59  46 49 4C 45 22 3B 20 4B  |E .TX"MYFILE"; K|
00000280: 4F 4E 53 54 41 4E 54 45  52 20 46 49 4C 45 4E 41  |ONSTANTER FILENA|
00000290: 4D 45 00 A1 22 79 27 4C  45 4E 20 2E 42 59 28 4C  |ME.."y'LEN .BY(L|
000002A0: 45 4E 2D 4E 41 4D 45 29  3B 20 4C 41 45 4E 47 45  |EN-NAME); LAENGE|
000002B0: 20 44 45 53 20 46 49 4C  45 4E 41 4D 45 4E 53 20  | DES FILENAMENS |
000002C0: 41 55 53 52 45 43 48 4E  45 4E 00 C6 22 7E 27 44  |AUSRECHNEN.."~'D|
000002D0: 45 56 20 2E 42 59 38 3B  20 47 45 52 41 45 54 45  |EV .BY8; GERAETE|
000002E0: 4E 55 4D 4D 45 52 20 44  45 52 20 31 35 34 31 00  |NUMMER DER 1541.|
000002F0: 02 23 83 27 42 55 46 46  45 52 20 2E 57 4F 30 2C  |.#.'BUFFER .WO0,|
00000300: 30 2C 30 2C 30 2C 30 2C  30 2C 30 2C 30 3B 20 41  |0,0,0,0,0,0,0; A|
00000310: 42 20 48 49 45 52 20 33  33 20 42 59 54 45 20 50  |B HIER 33 BYTE P|
00000320: 4C 41 54 5A 20 4C 41 53  53 45 4E 00 1A 23 88 27  |LATZ LASSEN..#.'|
00000330: 2E 57 4F 20 30 2C 30 2C  30 2C 30 2C 30 2C 30 2C  |.WO 0,0,0,0,0,0,|
00000340: 30 2C 30 00 32 23 8D 27  2E 57 4F 20 30 2C 30 2C  |0,0.2#.'.WO 0,0,|
00000350: 30 2C 30 2C 30 2C 30 2C  30 2C 30 00 4A 23 92 27  |0,0,0,0,0,0.J#.'|
00000360: 2E 57 4F 20 30 2C 30 2C  30 2C 30 2C 30 2C 30 2C  |.WO 0,0,0,0,0,0,|
00000370: 30 2C 30 00 54 23 97 27  2E 42 59 20 30 00 5C 23  |0,0.T#.'.BY 0.\#|
00000380: 9C 27 2E 45 4E 00 00 00                           |.'.EN...        |

X.. .'START ...MOPEN(1,DEV,2,NAME,LEN); 
FILE OEFFNEN.= .' ...MDSTAT(DEV,BUFFER);
 FLOPPY-STATUS PRUEFEN.L .' BEQFILEOK.V 
.' LDX#0; WENN FEHLER, MELDUNG AUSGEBEN.
. $'ERRMSG LDABUFFER,X.. )' BEQEXIT; MEL
DUNG ZUENDE: FILE SCHLIESSEN.J .' JSRBAS
OUT.S 3' INX.. 8' BNEERRMSG; UNBEDINGTER
 SPRUNG..!='FILEOK LDX#1.3!B' JSRCHKIN; 
EINGABE VON FILE VORBEREITEN.E!G'LIST JS
RBASIN.P!L' JSRBASOUT; FILE AUF BILDSCHI
RM LISTEN..!Q' JSRSTOPEQ; BEI STOPTASTE 
ABBRECHEN..!V' BEQEXIT.P![' JSRREADST; S
OLANGE FILE NICHT ZUENDE,..!`' BEQLIST; 
WEITERLESEN.."E'EXIT JSRCLRCHN; STANDARD
 EIN/AUSGABE.6"J' ...MCLOSE(1); FILE SCH
LIESSEN.?"O' RTS.I"T'NAME .TX"MYFILE"; K
ONSTANTER FILENAME.."Y'LEN .BY(LEN-NAME)
; LAENGE DES FILENAMENS AUSRECHNEN.F"~'D
EV .BY8; GERAETENUMMER DER 1541..#.'BUFF
ER .WO0,0,0,0,0,0,0,0; AB HIER 33 BYTE P
LATZ LASSEN..#.'.WO 0,0,0,0,0,0,0,0.2#.'
.WO 0,0,0,0,0,0,0,0.J#.'.WO 0,0,0,0,0,0,
0,0.T#.'.BY 0.\#.'.EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL