OPEN1

FILE INFORMATION

FILENAME(S): OPEN1

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 16:59:36

APPEARS ON: 1 disk(s)

FILE HASH

41340c89b7977d45db95764b3517f704d23fbd35e1727cbab433f04b2b605f4a

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LADS64	OPEN1	PRG	High Voltage Complete C64 Collection	11	17	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 34 08 0A 00 3B 20  22 4F 50 45 4E 31 22 20  |..4...; "OPEN1" |
00000010: 20 9F 20 31 2C 38 2C 33  2C 22 57 48 41 54 45 56  | . 1,8,3,"WHATEV|
00000020: 45 52 20 4E 41 4D 45 20  46 52 4F 4D 20 53 43 52  |ER NAME FROM SCR|
00000030: 45 45 4E 22 00 68 08 14  00 3B 20 9F 20 41 20 46  |EEN".h...; . A F|
00000040: 49 4C 45 20 91 20 44 49  53 4B 20 28 54 48 49 53  |ILE . DISK (THIS|
00000050: 20 54 59 50 45 20 4F 46  20 46 49 4C 45 20 49 53  | TYPE OF FILE IS|
00000060: 20 87 20 46 52 4F 4D 29  00 80 08 1E 00 3B AB AB  | . FROM).....;..|
00000070: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
00000080: 00 BF 08 28 00 9F 31 20  4A 53 52 20 9C 43 48 4E  |...(..1 JSR .CHN|
00000090: 3B 8C 20 4E B0 4D 41 4C  20 49 AD 4F 20 28 4F 55  |;. N.MAL I.O (OU|
000000A0: 54 50 55 54 20 A4 20 53  43 52 45 45 4E 2C 20 85  |TPUT . SCREEN, .|
000000B0: 20 46 52 4F 4D 20 4B 45  59 42 4F 41 52 44 29 00  | FROM KEYBOARD).|
000000C0: E7 08 32 00 4C 44 41 20  23 31 3B 20 A0 20 44 4F  |..2.LDA #1; . DO|
000000D0: 57 4E 20 44 49 53 4B 20  46 49 4C 45 20 43 48 41  |WN DISK FILE CHA|
000000E0: 4E 4E 45 4C 20 23 31 00  1F 09 3C 00 4A 53 52 20  |NNEL #1...<.JSR |
000000F0: A0 3B 20 28 57 45 27 52  45 20 CB 49 4E 47 20 A4  |.; (WE'RE .ING .|
00000100: 20 52 45 9F 20 49 54 20  4E 4F 57 2C 20 42 55 54  | RE. IT NOW, BUT|
00000110: 20 57 45 20 A0 20 49 54  20 46 49 52 53 54 29 00  | WE . IT FIRST).|
00000120: 2A 09 46 00 4C 44 41 20  23 31 00 4A 09 50 00 53  |*.F.LDA #1.J.P.S|
00000130: 54 41 20 A5 55 4D 3B 20  20 20 20 20 20 20 20 20  |TA .UM;         |
00000140: 20 20 20 20 20 46 49 4C  45 23 00 55 09 5A 00 4C  |     FILE#.U.Z.L|
00000150: 44 41 20 23 38 00 7F 09  64 00 53 54 41 20 46 44  |DA #8...d.STA FD|
00000160: 45 56 3B 20 20 20 20 20  20 20 20 20 20 20 20 20  |EV;             |
00000170: 20 44 45 56 49 43 45 20  4E 55 4D 42 45 52 2E 00  | DEVICE NUMBER..|
00000180: 8A 09 6E 00 4C 44 41 20  23 33 00 B6 09 78 00 53  |..n.LDA #3...x.S|
00000190: 54 41 20 46 53 45 43 91  44 3B 20 20 20 20 20 20  |TA FSEC.D;      |
000001A0: 20 20 20 20 20 20 20 20  53 45 43 91 44 41 52 59  |        SEC.DARY|
000001B0: 20 41 44 44 52 2E 00 F8  09 82 00 4E 41 4D 45 41  | ADDR......NAMEA|
000001C0: 44 20 4C 44 41 20 23 B3  46 49 C3 3B 20 53 45 54  |D LDA #.FI.; SET|
000001D0: 20 50 4F B5 45 52 20 A4  20 46 49 4C 45 20 4E 41  | PO.ER . FILE NA|
000001E0: 4D 45 20 42 55 46 46 45  52 20 28 46 49 C3 29 20  |ME BUFFER (FI.) |
000001F0: 49 4E 20 4C 41 44 53 2E  00 1E 0A 8C 00 53 54 41  |IN LADS......STA|
00000200: 20 A5 41 4D 45 50 54 52  20 3B 50 4F B5 45 52 20  | .AMEPTR ;PO.ER |
00000210: A4 20 46 49 C3 41 4D 45  20 41 44 44 52 2E 00 2C  |. FI.AME ADDR..,|
00000220: 0A 96 00 4C 44 41 20 23  B1 46 49 C3 00 3E 0A A0  |...LDA #.FI..>..|
00000230: 00 53 54 41 20 A5 41 4D  45 50 54 52 AA 31 00 72  |.STA .AMEPTR.1.r|
00000240: 0A AA 00 4A 53 52 20 9F  3B 20 52 4F 55 54 49 4E  |...JSR .; ROUTIN|
00000250: 45 20 57 49 54 48 49 4E  20 42 41 53 49 43 20 54  |E WITHIN BASIC T|
00000260: 48 41 54 20 9F 53 20 55  50 20 41 20 A2 20 46 49  |HAT .S UP A . FI|
00000270: 4C 45 00 7A 0A B4 00 52  54 53 00 98 0A BE 00 3B  |LE.z...RTS.....;|
00000280: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
00000290: AB AB AB AB AB AB AB AB  00 DB 0A C8 00 3B 20 9F  |.............; .|
000002A0: 20 32 2C 38 2C 32 2C 22  4E 41 4D 45 22 20 20 28  | 2,8,2,"NAME"  (|
000002B0: 9F 53 20 44 49 53 4B 20  50 52 4F 47 52 41 4D 20  |.S DISK PROGRAM |
000002C0: 46 49 4C 45 20 81 20 57  52 49 54 49 4E 47 20 4F  |FILE . WRITING O|
000002D0: 42 4A 45 43 54 20 43 4F  44 45 29 00 F9 0A D2 00  |BJECT CODE).....|
000002E0: 3B AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |;...............|
000002F0: AB AB AB AB AB AB AB AB  AB 00 28 0B DC 00 9F 32  |..........(....2|
00000300: 20 4C 44 41 20 23 32 3B  20 53 45 45 20 96 49 4E  | LDA #2; SEE .IN|
00000310: 49 54 49 91 53 20 41 42  4F 56 45 20 28 53 41 4D  |ITI.S ABOVE (SAM|
00000320: 45 20 53 45 54 55 50 29  00 34 0B E6 00 53 54 41  |E SETUP).4...STA|
00000330: 20 A5 55 4D 00 3F 0B F0  00 4C 44 41 20 23 38 00  | .UM.?...LDA #8.|
00000340: 4C 0B FA 00 53 54 41 20  46 44 45 56 00 57 0B 04  |L...STA FDEV.W..|
00000350: 01 4C 44 41 20 23 32 00  66 0B 0E 01 53 54 41 20  |.LDA #2.f...STA |
00000360: 46 53 45 43 91 44 00 74  0B 18 01 4C 44 41 20 23  |FSEC.D.t...LDA #|
00000370: B3 46 49 C3 00 9A 0B 22  01 53 54 41 20 A5 41 4D  |.FI....".STA .AM|
00000380: 45 50 54 52 3B 20 50 4F  B5 45 52 20 A4 20 46 49  |EPTR; PO.ER . FI|
00000390: C3 41 4D 45 20 41 44 44  52 2E 00 A8 0B 2C 01 4C  |.AME ADDR....,.L|
000003A0: 44 41 20 23 B1 46 49 C3  00 BA 0B 36 01 53 54 41  |DA #.FI....6.STA|
000003B0: 20 A5 41 4D 45 50 54 52  AA 31 00 C4 0B 40 01 4A  | .AMEPTR.1...@.J|
000003C0: 53 52 20 9F 00 D1 0B 4A  01 4A 53 52 20 9C 43 48  |SR ....J.JSR .CH|
000003D0: 4E 00 D9 0B 54 01 52 54  53 00 F8 0B 5E 01 3B AB  |N...T.RTS...^.;.|
000003E0: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
000003F0: AB AB AB AB AB AB AB AB  00 20 0C 68 01 3B 20 9F  |......... .h.; .|
00000400: 20 34 2C 34 20 20 20 20  20 20 20 20 20 20 20 20  | 4,4            |
00000410: 20 28 9F 53 20 46 49 4C  45 20 A4 20 99 45 52 29  | (.S FILE . .ER)|
00000420: 00 3E 0C 72 01 3B AB AB  AB AB AB AB AB AB AB AB  |.>.r.;..........|
00000430: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB 00 65  |...............e|
00000440: 0C 7C 01 9F 34 20 4C 44  41 20 23 34 3B 20 53 41  |.|..4 LDA #4; SA|
00000450: 4D 45 20 81 4D 41 54 2C  20 45 58 43 45 50 54 20  |ME .MAT, EXCEPT |
00000460: A5 41 4D 45 C3 00 71 0C  86 01 53 54 41 20 A5 55  |.AME..q...STA .U|
00000470: 4D 00 7C 0C 90 01 4C 44  41 20 23 34 00 89 0C 9A  |M.|...LDA #4....|
00000480: 01 53 54 41 20 46 44 45  56 00 C6 0C A4 01 4C 44  |.STA FDEV.....LD|
00000490: 41 20 23 30 3B 20 54 48  45 52 45 20 49 53 20 4E  |A #0; THERE IS N|
000004A0: 4F 20 46 49 4C 45 20 4E  41 4D 45 20 53 4F 20 53  |O FILE NAME SO S|
000004B0: 45 54 20 46 49 C3 41 4D  45 20 C3 47 54 48 20 A4  |ET FI.AME .GTH .|
000004C0: 20 5A 45 52 4F 2E 00 D4  0C AE 01 53 54 41 20 A5  | ZERO......STA .|
000004D0: 41 4D 45 C3 00 DE 0C B8  01 4A 53 52 20 9F 00 EB  |AME......JSR ...|
000004E0: 0C C2 01 4A 53 52 20 9C  43 48 4E 00 F3 0C CC 01  |...JSR .CHN.....|
000004F0: 52 54 53 00 12 0D D6 01  3B AB AB AB AB AB AB AB  |RTS.....;.......|
00000500: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
00000510: AB AB 00 51 0D E0 01 3B  20 93 20 22 4E 41 4D 45  |...Q...; . "NAME|
00000520: 22 20 20 28 93 53 20 41  20 50 52 4F 47 52 41 4D  |"  (.S A PROGRAM|
00000530: 20 46 49 4C 45 2C 20 41  20 53 4F 55 52 43 45 20  | FILE, A SOURCE |
00000540: 43 4F 44 45 20 46 49 4C  45 20 B5 4F 20 52 41 4D  |CODE FILE .O RAM|
00000550: 29 00 6F 0D EA 01 3B AB  AB AB AB AB AB AB AB AB  |).o...;.........|
00000560: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB 00  |................|
00000570: 8B 0D F4 01 93 31 20 4A  53 52 20 9C 43 48 4E 3B  |.....1 JSR .CHN;|
00000580: 8C 20 4E B0 4D 41 4C 20  49 AD 4F 00 96 0D FE 01  |. N.MAL I.O.....|
00000590: 4C 44 41 20 23 30 00 AE  0D 08 02 53 54 41 20 93  |LDA #0.....STA .|
000005A0: 46 4C 41 47 3B 20 93 AD  95 20 46 4C 41 47 00 CA  |FLAG; ... FLAG..|
000005B0: 0D 12 02 53 54 41 20 53  54 3B 20 54 48 45 20 53  |...STA ST; THE S|
000005C0: 54 41 54 55 53 20 42 59  54 45 00 D5 0D 1C 02 4C  |TATUS BYTE.....L|
000005D0: 44 41 20 23 38 00 FF 0D  26 02 53 54 41 20 46 44  |DA #8...&.STA FD|
000005E0: 45 56 3B 20 20 20 20 20  20 20 20 20 20 20 20 20  |EV;             |
000005F0: 20 44 45 56 49 43 45 20  4E 55 4D 42 45 52 2E 00  | DEVICE NUMBER..|
00000600: 37 0E 30 02 4C 44 41 20  23 B3 46 49 C3 3B 20 53  |7.0.LDA #.FI.; S|
00000610: 45 54 20 50 4F B5 45 52  20 A4 20 46 49 C3 41 4D  |ET PO.ER . FI.AM|
00000620: 45 20 42 55 46 46 45 52  20 28 46 49 C3 29 20 49  |E BUFFER (FI.) I|
00000630: 4E 20 4C 41 44 53 2E 00  5D 0E 3A 02 53 54 41 20  |N LADS..].:.STA |
00000640: A5 41 4D 45 50 54 52 20  3B 50 4F B5 45 52 20 A4  |.AMEPTR ;PO.ER .|
00000650: 20 46 49 C3 41 4D 45 20  41 44 44 52 2E 00 6B 0E  | FI.AME ADDR..k.|
00000660: 44 02 4C 44 41 20 23 B1  46 49 C3 00 7D 0E 4E 02  |D.LDA #.FI..}.N.|
00000670: 53 54 41 20 A5 41 4D 45  50 54 52 AA 31 00 B2 0E  |STA .AMEPTR.1...|
00000680: 58 02 4A 53 52 20 93 3B  20 52 4F 55 54 49 4E 45  |X.JSR .; ROUTINE|
00000690: 20 57 49 54 48 49 4E 20  42 41 53 49 43 20 54 48  | WITHIN BASIC TH|
000006A0: 41 54 20 93 53 20 49 4E  20 41 20 50 52 4F 47 52  |AT .S IN A PROGR|
000006B0: 41 4D 00 BF 0E 62 02 4A  53 52 20 9C 43 48 4E 00  |AM...b.JSR .CHN.|
000006C0: F3 0E 67 02 4C 44 41 20  52 41 4D 53 54 41 52 54  |..g.LDA RAMSTART|
000006D0: 3A 53 54 41 20 50 4D 45  4D 3A 4C 44 41 20 52 41  |:STA PMEM:LDA RA|
000006E0: 4D 53 54 41 52 54 AA 31  3A 53 54 41 20 50 4D 45  |MSTART.1:STA PME|
000006F0: 4D AA 31 00 FB 0E 6C 02  52 54 53 00 0C 0F 76 02  |M.1...l.RTS...v.|
00000700: 2E 46 49 4C 45 20 46 49  4E 44 4D 4E 00 00 00     |.FILE FINDMN... |

..4...; "OPEN1"  . 1,8,3,"WHATEVER NAME 
FROM SCREEN".H...; . A FILE . DISK (THIS
 TYPE OF FILE IS . FROM).....;..........
...........(..1 JSR .CHN;. N.MAL I.O (OU
TPUT . SCREEN, . FROM KEYBOARD)...2.LDA 
#1;   DOWN DISK FILE CHANNEL #1...<.JSR 
 ; (WE'RE KING . RE. IT NOW, BUT WE   IT
 FIRST).*.F.LDA #1.J.P.STA .UM;         
     FILE#.U.Z.LDA #8..D.STA FDEV;     
         DEVICE NUMBER....N.LDA #3...X.S
TA FSEC.D;              SEC.DARY ADDR...
...NAMEAD LDA #.FIC; SET PO.ER . FILE NA
ME BUFFER (FIC) IN LADS......STA .AMEPTR
 ;PO.ER . FICAME ADDR..,...LDA #.FIC.>. 
.STA .AMEPTR.1.R...JSR .; ROUTINE WITHIN
 BASIC THAT .S UP A . FILE.Z...RTS.....;
...........................H.; . 2,8,2,"
NAME"  (.S DISK PROGRAM FILE . WRITING O
BJECT CODE)...R.;.......................
..(....2 LDA #2; SEE .INITI.S ABOVE (SAM
E SETUP).4...STA .UM.?...LDA #8.L...STA 
FDEV.W...LDA #2.F...STA FSEC.D.T...LDA #
.FIC...".STA .AMEPTR; PO.ER . FICAME ADD
R....,.LDA #.FIC...6.STA .AMEPTR.1.D.@.J
SR ..Q.J.JSR .CHN.Y.T.RTS...^.;.........
................. .H.; . 4,4            
 (.S FILE . .ER).>.R.;..................
.......E.|..4 LDA #4; SAME .MAT, EXCEPT 
.AMEC.Q...STA .UM.|...LDA #4.....STA FDE
V.F...LDA #0; THERE IS NO FILE NAME SO S
ET FICAME CGTH . ZERO..T...STA .AMEC....
.JSR ....B.JSR .CHN...L.RTS...V.;.......
...................Q...; . "NAME"  (.S A
 PROGRAM FILE, A SOURCE CODE FILE .O RAM
).O...;..............................1 J
SR .CHN;. N.MAL I.O.....LDA #0.....STA .
FLAG; ... FLAG.J...STA ST; THE STATUS BY
TE.U...LDA #8...&.STA FDEV;             
 DEVICE NUMBER..7.0.LDA #.FIC; SET PO.ER
 . FICAME BUFFER (FIC) IN LADS..].:.STA 
.AMEPTR ;PO.ER . FICAME ADDR..K.D.LDA #.
FIC.}.N.STA .AMEPTR.1...X.JSR .; ROUTINE
 WITHIN BASIC THAT .S IN A PROGRAM...B.J
SR .CHN...G.LDA RAMSTART:STA PMEM:LDA RA
MSTART.1:STA PMEM.1...L.RTS...V..FILE FI
NDMN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL