PIC LOADER.C

FILE INFORMATION

FILENAME(S): PIC LOADER.C

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:07:08

APPEARS ON: 1 disk(s)

FILE HASH

3346a76bf407a5d251723900f7e827ec9367c2a6647c96773f72bb0f4c6f28de

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MORE MARCH 2 C	PIC LOADER.C	PRG	DuncanTwain	20	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 22 08 64 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..".d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 00 43 08 6E 00 8F  20 2A 20 20 20 20 20 20  |**.C.n.. *      |
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000040: 20 20 2A 00 64 08 78 00  8F 20 2A 20 20 48 49 52  |  *.d.x.. *  HIR|
00000050: 45 53 20 50 49 43 54 55  52 45 20 4C 4F 41 44 45  |ES PICTURE LOADE|
00000060: 52 20 20 2A 00 85 08 82  00 8F 20 2A 20 20 20 20  |R  *...... *    |
00000070: 46 4F 52 20 43 4F 4D 4D  4F 44 4F 52 45 20 36 34  |FOR COMMODORE 64|
00000080: 20 20 20 20 2A 00 A6 08  8C 00 8F 20 2A 20 20 20  |    *...... *   |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000A0: 20 20 20 20 20 2A 00 C7  08 96 00 8F 20 2A 20 20  |     *...... *  |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000C0: 20 20 20 20 20 20 2A 00  E8 08 A0 00 8F 20 2A 20  |      *...... * |
000000D0: 20 20 20 44 4F 4E 20 57  48 49 54 45 20 20 20 20  |   DON WHITE    |
000000E0: 20 20 20 20 20 20 20 2A  00 09 09 AA 00 8F 20 2A  |       *...... *|
000000F0: 20 20 20 20 34 37 20 41  52 49 45 4C 20 43 4F 55  |    47 ARIEL COU|
00000100: 52 54 20 20 20 20 20 20  2A 00 2A 09 B4 00 8F 20  |RT      *.*.... |
00000110: 2A 20 20 20 20 4E 45 50  45 41 4E 2C 20 4F 4E 54  |*    NEPEAN, ONT|
00000120: 41 52 49 4F 20 20 20 20  20 2A 00 4B 09 BE 00 8F  |ARIO     *.K....|
00000130: 20 2A 20 20 20 20 4B 32  48 20 38 4A 31 20 20 20  | *    K2H 8J1   |
00000140: 20 20 20 20 20 20 20 20  20 20 2A 00 6C 09 C8 00  |          *.l...|
00000150: 8F 20 2A 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
00000160: 20 20 20 20 20 20 20 20  20 20 20 2A 00 8D 09 D2  |           *....|
00000170: 00 8F 20 2A 20 20 20 20  36 31 33 2D 38 32 39 2D  |.. *    613-829-|
00000180: 32 30 38 32 20 20 20 20  20 20 20 20 2A 00 AE 09  |2082        *...|
00000190: DC 00 8F 20 2A 20 20 20  20 20 20 20 20 20 20 20  |... *           |
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 2A 00 CF  |             *..|
000001B0: 09 E6 00 8F 20 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.... ***********|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
000001D0: D5 09 E8 00 3A 00 EC 09  EB 00 8F 20 20 20 20 20  |....:......     |
000001E0: 20 4D 4F 44 49 46 49 45  44 20 42 59 00 03 0A EC  | MODIFIED BY....|
000001F0: 00 8F 20 20 20 20 20 20  4A 4F 48 4E 20 43 4F 4F  |..      JOHN COO|
00000200: 50 45 52 00 09 0A EE 00  3A 00 13 0A EF 00 99 20  |PER.....:...... |
00000210: 22 93 22 00 39 0A F0 00  8F 20 43 48 45 43 4B 20  |".".9.... CHECK |
00000220: 49 46 20 43 4F 4C 4F 55  52 20 48 41 53 20 42 45  |IF COLOUR HAS BE|
00000230: 45 4E 20 4C 4F 41 44 45  44 00 54 0A F1 00 8B 20  |EN LOADED.T.... |
00000240: C2 20 28 31 36 31 39 33  29 20 B2 20 31 30 20 A7  |. (16193) . 10 .|
00000250: 20 32 35 30 00 9C 0A F2  00 99 20 22 43 4F 4C 4F  | 250...... "COLO|
00000260: 55 52 20 50 49 43 54 55  52 45 53 11 22 3A 20 99  |UR PICTURES.": .|
00000270: 20 22 54 4F 3A 11 9D 9D  9D 55 53 45 20 41 55 54  | "TO:....USE AUT|
00000280: 4F 4D 41 54 49 43 20 53  57 49 54 43 48 49 4E 47  |OMATIC SWITCHING|
00000290: 20 20 20 20 2D 20 48 49  54 20 41 22 00 C7 0A F3  |    - HIT A"....|
000002A0: 00 99 20 22 55 53 45 20  53 50 41 43 45 20 46 4F  |.. "USE SPACE FO|
000002B0: 52 20 4E 45 58 54 20 50  49 43 54 55 52 45 20 2D  |R NEXT PICTURE -|
000002C0: 20 48 49 54 20 42 22 00  F8 0A F4 00 97 20 38 32  | HIT B"...... 82|
000002D0: 38 2C 20 31 3A 20 A1 20  41 24 3A 8B 20 41 24 20  |8, 1: . A$:. A$ |
000002E0: B3 B1 20 22 42 22 20 AF  20 41 24 20 B3 B1 20 22  |.. "B" . A$ .. "|
000002F0: 41 22 20 A7 20 32 34 34  00 10 0B F5 00 8B 20 41  |A" . 244...... A|
00000300: 24 20 B2 20 22 42 22 20  A7 20 97 38 32 38 2C 30  |$ . "B" . .828,0|
00000310: 00 28 0B F6 00 93 20 22  43 4F 4C 4F 55 52 53 2E  |.(.... "COLOURS.|
00000320: 44 22 2C 20 38 2C 20 31  00 3B 0B FA 00 8B 20 43  |D", 8, 1.;.... C|
00000330: 54 20 B1 20 30 20 A7 20  33 31 30 00 41 0B FF 00  |T . 0 . 310.A...|
00000340: 3A 00 4A 0B 04 01 9C 3A  20 8C 00 6B 0B 0E 01 43  |:.J....: ..k...C|
00000350: 54 20 B2 20 30 3A 20 8F  20 49 4E 49 54 49 41 4C  |T . 0: . INITIAL|
00000360: 49 5A 45 20 43 4F 55 4E  54 45 52 00 8C 0B 18 01  |IZE COUNTER.....|
00000370: 4E 4E 20 B2 20 37 3A 20  8F 20 23 20 50 49 43 54  |NN . 7: . # PICT|
00000380: 55 52 45 53 20 54 4F 20  4C 4F 41 44 00 C8 0B 1D  |URES TO LOAD....|
00000390: 01 56 20 B2 20 35 33 32  34 38 3A 20 97 20 56 20  |.V . 53248: . V |
000003A0: AA 20 31 37 2C 20 35 39  3A 20 97 56 20 AA 20 32  |. 17, 59: .V . 2|
000003B0: 34 2C 20 32 35 3A 20 8F  20 48 49 47 48 20 52 45  |4, 25: . HIGH RE|
000003C0: 53 20 53 43 52 45 45 4E  00 CE 0B 22 01 3A 00 10  |S SCREEN...".:..|
000003D0: 0C 2C 01 86 20 50 49 24  20 28 4E 4E 29 2C 4C 4F  |.,.. PI$ (NN),LO|
000003E0: 28 4E 4E 29 2C 48 49 28  4E 4E 29 3A 81 20 49 B2  |(NN),HI(NN):. I.|
000003F0: 31 A4 4E 4E 3A 87 20 50  49 24 28 49 29 2C 48 49  |1.NN:. PI$(I),HI|
00000400: 28 49 29 2C 4C 4F 28 49  29 3A 82 3A 89 33 35 39  |(I),LO(I):.:.359|
00000410: 00 5A 0C 31 01 8F 20 41  52 52 41 59 53 20 4C 4F  |.Z.1.. ARRAYS LO|
00000420: 20 26 20 48 49 20 41 52  45 20 54 48 45 20 4C 4F  | & HI ARE THE LO|
00000430: 57 20 41 4E 44 20 20 20  20 20 20 20 20 20 20 48  |W AND          H|
00000440: 49 47 48 20 42 59 54 45  53 20 4F 46 20 54 48 45  |IGH BYTES OF THE|
00000450: 20 42 45 47 49 4E 4E 49  47 53 00 7D 0C 32 01 8F  | BEGINNIGS.}.2..|
00000460: 20 4F 46 20 54 48 45 20  43 4F 4C 4F 55 52 20 44  | OF THE COLOUR D|
00000470: 41 54 41 20 41 44 44 52  45 53 53 45 53 00 83 0C  |ATA ADDRESSES...|
00000480: 36 01 3A 00 8D 0C 4A 01  99 20 22 93 22 00 C3 0C  |6.:...J.. "."...|
00000490: 54 01 A1 20 5A 5A 24 3A  20 8B 5A 5A 24 20 B2 20  |T.. ZZ$: .ZZ$ . |
000004A0: 22 53 22 20 A7 20 97 20  56 20 AA 20 31 37 2C 20  |"S" . . V . 17, |
000004B0: 32 37 3A 20 97 20 56 20  AA 20 32 34 2C 20 32 31  |27: . V . 24, 21|
000004C0: 3A 20 80 00 DF 0C 59 01  97 20 35 33 32 38 30 2C  |: ....Y.. 53280,|
000004D0: 20 B5 20 28 31 36 20 AC  20 BB 20 28 31 29 29 00  | . (16 . . (1)).|
000004E0: E9 0C 5E 01 8D 20 35 30  30 00 16 0D 63 01 8B 20  |..^.. 500...c.. |
000004F0: C2 20 28 38 32 38 29 20  B2 20 31 20 A7 20 81 20  |. (828) . 1 . . |
00000500: 49 20 B2 20 31 20 A4 20  34 30 30 30 3A 20 82 3A  |I . 1 . 4000: .:|
00000510: 20 89 20 33 35 39 00 32  0D 64 01 A1 20 41 24 3A  | . 359.2.d.. A$:|
00000520: 20 8B 20 41 24 20 B3 B1  20 22 20 22 20 A7 20 33  | . A$ .. " " . 3|
00000530: 35 36 00 5B 0D 67 01 99  20 22 93 22 3A 20 43 54  |56.[.g.. ".": CT|
00000540: 20 B2 20 43 54 20 AA 20  31 3A 20 8B 20 43 54 20  | . CT . 1: . CT |
00000550: B1 20 4E 4E 20 20 A7 20  32 36 30 00 8F 0D 68 01  |. NN  . 260...h.|
00000560: 93 20 50 49 24 20 28 43  54 29 2C 20 38 2C 20 31  |. PI$ (CT), 8, 1|
00000570: 3A 8F 20 4C 4F 41 44 20  50 49 43 54 55 52 45 20  |:. LOAD PICTURE |
00000580: 4F 4E 20 48 49 52 45 53  20 53 43 52 45 45 4E 00  |ON HIRES SCREEN.|
00000590: 95 0D 72 01 80 00 9B 0D  90 01 3A 00 B6 0D CC 01  |..r.......:.....|
000005A0: 8F 20 43 4F 4C 4F 55 52  49 4E 47 20 53 55 42 52  |. COLOURING SUBR|
000005B0: 4F 55 54 49 4E 45 00 BC  0D D6 01 3A 00 08 0E E0  |OUTINE.....:....|
000005C0: 01 8F 20 41 20 4D 41 43  48 49 4E 45 20 4C 41 4E  |.. A MACHINE LAN|
000005D0: 47 55 41 47 45 20 52 4F  55 54 49 4E 45 20 20 28  |GUAGE ROUTINE  (|
000005E0: 41 54 20 20 20 20 20 20  20 20 20 24 35 41 39 41  |AT         $5A9A|
000005F0: 29 20 20 54 41 4B 45 53  20 54 48 45 20 43 4F 4C  |)  TAKES THE COL|
00000600: 4F 55 52 20 44 41 54 41  00 44 0E E4 01 8F 20 28  |OUR DATA.D.... (|
00000610: 41 54 20 24 33 46 34 31  29 20 41 4E 44 20 50 55  |AT $3F41) AND PU|
00000620: 54 53 20 49 54 20 4F 4E  20 54 48 45 20 20 20 20  |TS IT ON THE    |
00000630: 20 20 20 20 20 20 20 4C  4F 2D 52 45 53 20 53 43  |       LO-RES SC|
00000640: 52 45 45 4E 00 4A 0E EA  01 3A 00 6C 0E F4 01 97  |REEN.J...:.l....|
00000650: 20 31 37 34 2C 20 4C 4F  20 28 43 54 29 20 3A 97  | 174, LO (CT) :.|
00000660: 20 31 37 35 2C 20 48 49  28 43 54 29 00 77 0E 08  | 175, HI(CT).w..|
00000670: 02 9E 32 33 31 39 34 00  7D 0E 12 02 8E 00 83 0E  |..23194.}.......|
00000680: 3A 02 3A 00 BB 0E 58 02  8F 20 4E 41 4D 45 53 20  |:.:...X.. NAMES |
00000690: 4F 46 20 50 49 43 54 55  52 45 53 20 41 4E 44 20  |OF PICTURES AND |
000006A0: 43 4F 4C 4F 55 52 20 20  20 20 20 20 20 20 20 20  |COLOUR          |
000006B0: 20 20 41 44 44 52 45 53  53 45 53 00 C1 0E 5D 02  |  ADDRESSES...].|
000006C0: 3A 00 D5 0E 6C 02 83 20  54 49 54 4C 45 2E 44 2C  |:...l.. TITLE.D,|
000006D0: 36 33 2C 36 35 00 E8 0E  76 02 83 20 4D 41 52 53  |63,65...v.. MARS|
000006E0: 2E 44 2C 36 37 2C 34 31  00 FE 0E 80 02 83 20 42  |.D,67,41...... B|
000006F0: 49 50 4C 41 4E 45 2E 44  2C 37 31 2C 31 37 00 12  |IPLANE.D,71,17..|
00000700: 0F 8A 02 83 20 53 48 49  50 2E 44 2C 37 34 2C 32  |.... SHIP.D,74,2|
00000710: 34 39 00 2B 0F 94 02 83  20 4C 41 4E 44 53 43 41  |49.+.... LANDSCA|
00000720: 50 45 2E 44 2C 37 38 2C  32 32 35 00 3F 0F 9E 02  |PE.D,78,225.?...|
00000730: 83 20 41 55 54 4F 2E 44  2C 38 32 2C 32 30 31 00  |. AUTO.D,82,201.|
00000740: 53 0F A8 02 83 20 47 49  52 4C 2E 44 2C 38 36 2C  |S.... GIRL.D,86,|
00000750: 31 37 37 00 00 00                                 |177...          |

..".D.. **************************.C.N..
 *                        *.D.X.. *  HIR
ES PICTURE LOADER  *...... *    FOR COMM
ODORE 64    *...... *                   
     *.G.... *                        *.
.. .. *    DON WHITE           *...... *
    47 ARIEL COURT      *.*.... *    NEP
EAN, ONTARIO     *.K.... *    K2H 8J1   
          *.L.H.. *                     
   *...R.. *    613-829-2082        *...
... *                        *.O.... ***
***********************.U...:......     
 MODIFIED BY......      JOHN COOPER.....
:...... ".".9.... CHECK IF COLOUR HAS BE
EN LOADED.T.... B (16193) . 10 . 250....
.. "COLOUR PICTURES.": . "TO:....USE AUT
OMATIC SWITCHING    - HIT A".G.... "USE 
SPACE FOR NEXT PICTURE - HIT B"...... 82
8, 1: . A$:. A$ .. "B" . A$ .. "A" . 244
...... A$ . "B" . .828,0.(.... "COLOURS.
D", 8, 1.;.... CT . 0 . 310.A...:.J....:
 ..K...CT . 0: . INITIALIZE COUNTER.....
NN . 7: . # PICTURES TO LOAD.H...V . 532
48: . V . 17, 59: .V . 24, 25: . HIGH RE
S SCREEN.N.".:...,.. PI$ (NN),LO(NN),HI(
NN):. I.1.NN:. PI$(I),HI(I),LO(I):.:.359
.Z.1.. ARRAYS LO & HI ARE THE LOW AND   
       HIGH BYTES OF THE BEGINNIGS.}.2..
 OF THE COLOUR DATA ADDRESSES...6.:...J.
. ".".C.T.. ZZ$: .ZZ$ . "S" . . V . 17, 
27: . V . 24, 21: ....Y.. 53280, . (16 .
 . (1))...^.. 500...C.. B (828) . 1 . . 
I . 1 . 4000: .: . 359.2.D.. A$: . A$ ..
 " " . 356.[.G.. ".": CT . CT . 1: . CT 
. NN  . 260...H.. PI$ (CT), 8, 1:. LOAD 
PICTURE ON HIRES SCREEN...R.......:...L.
. COLOURING SUBROUTINE...V.:...... A MAC
HINE LANGUAGE ROUTINE  (AT         $5A9A
)  TAKES THE COLOUR DATA.D.... (AT $3F41
) AND PUTS IT ON THE           LO-RES SC
REEN.J...:.L.... 174, LO (CT) :. 175, HI
(CT).W....23194.}.......:.:...X.. NAMES 
OF PICTURES AND COLOUR            ADDRES
SES.A.].:.U.L.. TITLE.D,63,65...V.. MARS
.D,67,41...... BIPLANE.D,71,17...... SHI
P.D,74,249.+.... LANDSCAPE.D,78,225.?...
. AUTO.D,82,201.S.... GIRL.D,86,177...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL