> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 20 AC B2 24 43 30 30 30 20 20 |..(... ..$C000 |
00000010: 20 20 20 20 20 20 20 20 20 5F 21 53 54 41 52 54 | _!START|
00000020: 20 4F 46 20 43 4F 44 45 00 51 08 14 00 20 53 45 | OF CODE.Q... SE|
00000030: 54 4C 46 53 B2 24 46 46 42 41 20 20 20 20 20 20 |TLFS.$FFBA |
00000040: 5F 21 4B 45 52 4E 41 4C 20 52 4F 55 54 49 4E 45 |_!KERNAL ROUTINE|
00000050: 53 00 6B 08 1E 00 20 53 45 54 4E 41 4D B2 24 46 |S.k... SETNAM.$F|
00000060: 46 42 44 20 20 20 20 20 20 20 21 00 82 08 28 00 |FBD !...(.|
00000070: 20 44 4F E7 B2 24 46 46 44 35 20 20 20 20 20 20 | DO..$FFD5 |
00000080: 20 21 00 A9 08 32 00 20 44 45 56 49 43 45 B2 38 | !...2. DEVICE.8|
00000090: 20 20 20 20 20 20 20 20 20 20 5F 21 44 45 56 49 | _!DEVI|
000000A0: 43 45 20 4E 55 4D 42 45 52 00 CC 08 3C 00 20 46 |CE NUMBER...<. F|
000000B0: 49 C3 4F B2 31 20 20 20 20 20 20 20 20 20 20 5F |I.O.1 _|
000000C0: 21 46 49 4C 45 20 4E 55 4D 42 45 52 00 F5 08 46 |!FILE NUMBER...F|
000000D0: 00 20 53 45 43 41 44 44 B2 32 35 35 20 20 20 20 |. SECADD.255 |
000000E0: 20 20 20 20 5F 21 53 45 43 4F 4E 44 41 52 59 20 | _!SECONDARY |
000000F0: 41 44 44 52 2E 00 FC 08 50 00 20 3B 00 0A 09 64 |ADDR....P. ;...d|
00000100: 00 4C 44 41 20 23 46 49 C3 4F 00 1A 09 6E 00 4C |.LDA #FI.O...n.L|
00000110: 44 58 20 23 44 45 56 49 43 45 00 2A 09 78 00 4C |DX #DEVICE.*.x.L|
00000120: 44 59 20 23 53 45 43 41 44 44 00 4E 09 82 00 4A |DY #SECADD.N...J|
00000130: 53 52 20 53 45 54 4C 46 53 20 20 20 20 20 20 20 |SR SETLFS |
00000140: 20 5F 21 53 45 54 20 55 50 20 46 49 4C 45 00 76 | _!SET UP FILE.v|
00000150: 09 8C 00 4C 44 41 20 23 4E 41 4D 45 31 AB 4E 41 |...LDA #NAME1.NA|
00000160: 4D 45 20 20 20 5F 21 46 49 4C 45 4E 41 4D 45 20 |ME _!FILENAME |
00000170: 4C 45 4E 47 54 48 00 9C 09 96 00 4C 44 58 20 23 |LENGTH.....LDX #|
00000180: B3 4E 41 4D 45 20 20 20 20 20 20 20 20 5F 21 4C |.NAME _!L|
00000190: 4F 2F 48 49 20 42 59 54 45 20 4F 46 00 C3 09 A0 |O/HI BYTE OF....|
000001A0: 00 4C 44 59 20 23 B1 4E 41 4D 45 20 20 20 20 20 |.LDY #.NAME |
000001B0: 20 20 20 20 21 20 53 54 41 52 54 20 4F 46 20 4E | ! START OF N|
000001C0: 41 4D 45 00 E6 09 AA 00 4A 53 52 20 53 45 54 4E |AME.....JSR SETN|
000001D0: 41 4D 20 20 20 20 20 20 20 20 5F 21 53 45 54 20 |AM _!SET |
000001E0: 46 49 C3 41 4D 45 00 0C 0A B4 00 4C 44 41 20 23 |FI.AME.....LDA #|
000001F0: 30 20 20 20 20 20 20 20 20 20 20 20 20 5F 21 46 |0 _!F|
00000200: 4C 41 47 20 46 4F 52 20 4C 4F 41 44 00 2D 0A BE |LAG FOR LOAD.-..|
00000210: 00 4A 53 52 20 44 4F E7 20 20 20 20 20 20 20 20 |.JSR DO. |
00000220: 5F 21 44 4F 20 54 48 45 20 4C 4F 41 44 00 54 0A |_!DO THE LOAD.T.|
00000230: C8 00 4A 4D 50 20 53 54 41 52 54 20 20 20 20 20 |..JMP START |
00000240: 20 20 20 20 5F 21 53 54 41 52 54 20 4F 46 20 50 | _!START OF P|
00000250: 52 4F 47 2E 00 5A 0A D2 00 3B 00 72 0A DC 00 4E |ROG..Z...;.r...N|
00000260: 41 4D 45 20 42 59 54 20 22 46 49 4C 45 4E 41 4D |AME BYT "FILENAM|
00000270: 45 22 00 7E 0A E6 00 4E 41 4D 45 31 20 3B 00 8C |E".~...NAME1 ;..|
00000280: 0A F0 00 53 54 41 52 54 20 52 54 53 00 00 00 |...START RTS... |
..(... ..$C000 _!START OF CODE
.Q... SETLFS.$FFBA _!KERNAL ROUTINE
S.K... SETNAM.$FFBD !...(. DO..$FF
D5 !...2. DEVICE.8 _!DEVI
CE NUMBER.L.<. FICO.1 _!FILE NU
MBER...F. SECADD.255 _!SECONDARY
ADDR....P. ;...D.LDA #FICO...N.LDX #DEVI
CE.*.X.LDY #SECADD.N...JSR SETLFS
_!SET UP FILE.V...LDA #NAME1.NAME _!F
ILENAME LENGTH.....LDX #.NAME _!L
O/HI BYTE OF.C. .LDY #.NAME ! ST
ART OF NAME.....JSR SETNAM _!SET
FICAME.....LDA #0 _!FLAG FOR
LOAD.-...JSR DO. _!DO THE LOAD.T.
H.JMP START _!START OF PROG..Z.R
.;.R...NAME BYT "FILENAME".~...NAME1 ;..
...START RTS...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL