GCR TO HEX

FILE INFORMATION

FILENAME(S): GCR TO HEX

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-12-01 02:25:40

APPEARS ON: 1 disk(s)

FILE HASH

24b5d97b5d1a2446c73aa30665d71275b5de784ff96cd2d65007023ed1289001

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
INSIDE C DOS 1	GCR TO HEX	PRG	hedning, shine	26	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 28 08 0A 00 8F 20  2A 49 4E 53 49 44 45 20  |..(.... *INSIDE |
00000010: 43 4F 4D 4D 4F 44 4F 52  45 20 44 4F 53 2A 20 2A  |COMMODORE DOS* *|
00000020: 50 47 2E 20 34 39 37 2A  00 3F 08 14 00 8F 20 2A  |PG. 497*.?.... *|
00000030: 4A 4A 4D 2A 20 20 20 2A  30 34 31 39 38 37 2A 00  |JJM*   *041987*.|
00000040: 58 08 64 00 8F 20 47 43  52 20 54 4F 20 48 45 58  |X.d.. GCR TO HEX|
00000050: 41 44 45 43 49 4D 41 4C  00 72 08 6E 00 48 24 B2  |ADECIMAL.r.n.H$.|
00000060: 22 30 31 32 33 34 35 36  37 38 39 41 42 43 44 45  |"0123456789ABCDE|
00000070: 46 22 00 8E 08 78 00 96  A5 42 28 42 29 B2 32 AE  |F"...x...B(B).2.|
00000080: 28 42 AB B5 28 42 AD 38  29 AC 38 29 AF 44 00 9A  |(B..(B.8).8).D..|
00000090: 08 82 00 86 42 24 28 31  35 29 00 AC 08 8C 00 42  |....B$(15).....B|
000000A0: 24 28 30 29 B2 22 30 31  30 31 30 22 00 BE 08 96  |$(0)."01010"....|
000000B0: 00 42 24 28 31 29 B2 22  30 31 30 31 31 22 00 D0  |.B$(1)."01011"..|
000000C0: 08 A0 00 42 24 28 32 29  B2 22 31 30 30 31 30 22  |...B$(2)."10010"|
000000D0: 00 E2 08 AA 00 42 24 28  33 29 B2 22 31 30 30 31  |.....B$(3)."1001|
000000E0: 31 22 00 F4 08 B4 00 42  24 28 34 29 B2 22 30 31  |1".....B$(4)."01|
000000F0: 31 31 30 22 00 06 09 BE  00 42 24 28 35 29 B2 22  |110".....B$(5)."|
00000100: 30 31 31 31 31 22 00 18  09 C8 00 42 24 28 36 29  |01111".....B$(6)|
00000110: B2 22 31 30 31 31 30 22  00 2A 09 D2 00 42 24 28  |."10110".*...B$(|
00000120: 37 29 B2 22 31 30 31 31  31 22 00 3C 09 DC 00 42  |7)."10111".<...B|
00000130: 24 28 38 29 B2 22 30 31  30 30 31 22 00 4E 09 E6  |$(8)."01001".N..|
00000140: 00 42 24 28 39 29 B2 22  31 31 30 30 31 22 00 61  |.B$(9)."11001".a|
00000150: 09 F0 00 42 24 28 31 30  29 B2 22 31 31 30 31 30  |...B$(10)."11010|
00000160: 22 00 74 09 FA 00 42 24  28 31 31 29 B2 22 31 31  |".t...B$(11)."11|
00000170: 30 31 31 22 00 87 09 04  01 42 24 28 31 32 29 B2  |011".....B$(12).|
00000180: 22 30 31 31 30 31 22 00  9A 09 0E 01 42 24 28 31  |"01101".....B$(1|
00000190: 33 29 B2 22 31 31 31 30  31 22 00 AD 09 18 01 42  |3)."11101".....B|
000001A0: 24 28 31 34 29 B2 22 31  31 31 31 30 22 00 C0 09  |$(14)."11110"...|
000001B0: 22 01 42 24 28 31 35 29  B2 22 31 30 31 30 31 22  |".B$(15)."10101"|
000001C0: 00 DB 09 2C 01 99 22 93  47 43 52 20 54 4F 20 48  |...,..".GCR TO H|
000001D0: 45 58 41 44 45 43 49 4D  41 4C 22 00 E6 09 36 01  |EXADECIMAL"...6.|
000001E0: 47 48 24 B2 22 22 00 09  0A 40 01 85 22 11 47 43  |GH$.""...@..".GC|
000001F0: 52 20 28 45 2E 47 2E 2C  20 35 32 35 44 41 35 32  |R (E.G., 525DA52|
00000200: 41 35 33 29 22 3B 47 48  24 00 19 0A 4A 01 8B C3  |A53)";GH$...J...|
00000210: 28 47 48 24 29 B2 30 A7  80 00 2B 0A 54 01 8B C3  |(GH$).0...+.T...|
00000220: 28 47 48 24 29 B3 B1 31  30 A7 80 00 36 0A 5E 01  |(GH$)..10...6.^.|
00000230: 81 49 B2 31 A4 35 00 50  0A 68 01 47 48 24 28 49  |.I.1.5.P.h.GH$(I|
00000240: 29 B2 CA 28 47 48 24 2C  49 AC 32 AB 31 2C 32 29  |)..(GH$,I.2.1,2)|
00000250: 00 57 0A 72 01 82 49 00  62 0A 7C 01 81 4A B2 31  |.W.r..I.b.|..J.1|
00000260: A4 35 00 6D 0A 86 01 48  28 4A 29 B2 30 00 79 0A  |.5.m...H(J).0.y.|
00000270: 90 01 81 49 B2 31 A4 31  36 00 A0 0A 9A 01 8B C8  |...I.1.16.......|
00000280: 28 47 48 24 28 4A 29 2C  31 29 B2 CA 28 48 24 2C  |(GH$(J),1)..(H$,|
00000290: 49 2C 31 29 A7 48 28 4A  29 B2 49 3A 49 B2 31 36  |I,1).H(J).I:I.16|
000002A0: 00 A7 0A A4 01 82 49 00  B7 0A AE 01 8B 48 28 4A  |......I......H(J|
000002B0: 29 B2 30 89 33 31 30 00  C7 0A B8 01 48 28 4A 29  |).0.310.....H(J)|
000002C0: B2 48 28 4A 29 AB 31 00  D2 0A C2 01 4C 28 4A 29  |.H(J).1.....L(J)|
000002D0: B2 30 00 DE 0A CC 01 81  49 B2 31 A4 31 36 00 05  |.0......I.1.16..|
000002E0: 0B D6 01 8B C9 28 47 48  24 28 4A 29 2C 31 29 B2  |.....(GH$(J),1).|
000002F0: CA 28 48 24 2C 49 2C 31  29 A7 4C 28 4A 29 B2 49  |.(H$,I,1).L(J).I|
00000300: 3A 49 B2 31 36 00 0C 0B  E0 01 82 49 00 1C 0B EA  |:I.16......I....|
00000310: 01 8B 4C 28 4A 29 B2 30  89 33 31 30 00 2C 0B F4  |..L(J).0.310.,..|
00000320: 01 4C 28 4A 29 B2 4C 28  4A 29 AB 31 00 33 0B FE  |.L(J).L(J).1.3..|
00000330: 01 82 4A 00 3E 0B 08 02  81 49 B2 31 A4 35 00 55  |..J.>....I.1.5.U|
00000340: 0B 12 02 48 44 28 49 29  B2 48 28 49 29 AC 31 36  |...HD(I).H(I).16|
00000350: AA 4C 28 49 29 00 5C 0B  1C 02 82 49 00 6A 0B 26  |.L(I).\....I.j.&|
00000360: 02 49 4D 41 47 45 24 B2  22 22 00 75 0B 30 02 81  |.IMAGE$."".u.0..|
00000370: 49 B2 31 A4 35 00 81 0B  3A 02 44 B2 48 44 28 49  |I.1.5...:.D.HD(I|
00000380: 29 00 8F 0B 44 02 81 42  B2 37 A4 30 A9 AB 31 00  |)...D..B.7.0..1.|
00000390: B3 0B 4E 02 8B A5 42 28  42 29 B2 30 A7 49 4D 41  |..N...B(B).0.IMA|
000003A0: 47 45 24 B2 49 4D 41 47  45 24 AA 22 30 22 3A 89  |GE$.IMAGE$."0":.|
000003B0: 36 31 30 00 C9 0B 58 02  49 4D 41 47 45 24 B2 49  |610...X.IMAGE$.I|
000003C0: 4D 41 47 45 24 AA 22 31  22 00 D0 0B 62 02 82 42  |MAGE$."1"...b..B|
000003D0: 00 D7 0B 6C 02 82 49 00  E6 0B 76 02 99 22 11 22  |...l..I...v.."."|
000003E0: 49 4D 41 47 45 24 00 F0  0B 80 02 99 22 91 22 3B  |IMAGE$......".";|
000003F0: 00 FB 0B 8A 02 81 49 B2  31 A4 35 00 0C 0C 94 02  |......I.1.5.....|
00000400: 99 22 5E 20 20 20 20 20  20 20 22 3B 00 13 0C 9E  |."^       ";....|
00000410: 02 82 49 00 1C 0C A8 02  99 22 91 22 00 27 0C B2  |..I......".".'..|
00000420: 02 81 49 B2 31 A4 38 00  43 0C BC 02 48 24 28 49  |..I.1.8.C...H$(I|
00000430: 29 B2 CA 28 49 4D 41 47  45 24 2C 49 AC 35 AB 34  |)..(IMAGE$,I.5.4|
00000440: 2C 35 29 00 4A 0C C6 02  82 49 00 55 0C D0 02 81  |,5).J....I.U....|
00000450: 4A B2 31 A4 38 00 61 0C  DA 02 81 49 B2 30 A4 31  |J.1.8.a....I.0.1|
00000460: 35 00 80 0C E4 02 8B 48  24 28 4A 29 B2 42 24 28  |5......H$(J).B$(|
00000470: 49 29 A7 44 28 4A 29 B2  49 AA 31 3A 49 B2 31 35  |I).D(J).I.1:I.15|
00000480: 00 87 0C EE 02 82 49 00  8E 0C F8 02 82 4A 00 99  |......I......J..|
00000490: 0C 02 03 81 49 B2 31 A4  38 00 AB 0C 0C 03 8B 44  |....I.1.8......D|
000004A0: 28 49 29 B2 30 A7 42 44  45 B2 31 00 B2 0C 16 03  |(I).0.BDE.1.....|
000004B0: 82 49 00 C1 0C 20 03 8B  42 44 45 B2 31 89 39 34  |.I... ..BDE.1.94|
000004C0: 30 00 D8 0C 2A 03 99 22  11 47 43 52 20 20 20 20  |0...*..".GCR    |
000004D0: 20 20 20 20 3A 20 22 3B  00 E3 0C 34 03 81 49 B2  |    : ";...4..I.|
000004E0: 31 A4 35 00 F3 0C 3E 03  99 47 48 24 28 49 29 22  |1.5...>..GH$(I)"|
000004F0: 20 22 3B 00 FA 0C 48 03  82 49 00 00 0D 52 03 99  | ";...H..I...R..|
00000500: 00 17 0D 5C 03 99 22 11  48 45 58 41 44 45 43 49  |...\..".HEXADECI|
00000510: 4D 41 4C 3A 20 22 3B 00  22 0D 66 03 81 49 B2 31  |MAL: ";.".f..I.1|
00000520: A4 38 00 35 0D 70 03 99  CA 28 48 24 2C 44 28 49  |.8.5.p...(H$,D(I|
00000530: 29 2C 31 29 3B 00 4B 0D  7A 03 8B 49 AD 32 B2 B5  |),1);.K.z..I.2..|
00000540: 28 49 AD 32 29 A7 99 22  20 22 3B 00 52 0D 84 03  |(I.2).." ";.R...|
00000550: 82 49 00 58 0D 8E 03 99  00 66 0D 98 03 99 22 11  |.I.X.....f....".|
00000560: 44 4F 4E 45 21 22 00 6C  0D A2 03 80 00 77 0D AC  |DONE!".l.....w..|
00000570: 03 81 49 B2 31 A4 38 00  96 0D B6 03 8B 44 28 49  |..I.1.8......D(I|
00000580: 29 B2 30 A7 99 22 12 22  48 24 28 49 29 22 92 22  |).0.."."H$(I)"."|
00000590: 3B 3A 89 39 37 30 00 A2  0D C0 03 99 48 24 28 49  |;:.970......H$(I|
000005A0: 29 3B 00 A9 0D CA 03 82  49 00 C7 0D D4 03 99 22  |);......I......"|
000005B0: 11 12 42 59 54 45 20 44  45 43 4F 44 49 4E 47 20  |..BYTE DECODING |
000005C0: 45 52 52 4F 52 92 22 00  CD 0D DE 03 80 00 00 00  |ERROR.".........|

..(.... *INSIDE COMMODORE DOS* *PG. 497*
.?.... *JJM*   *041987*.X.D.. GCR TO HEX
ADECIMAL.R.N.H$."0123456789ABCDEF"...X..
.B(B).2.(B..(B.8).8).D......B$(15).....B
$(0)."01010".....B$(1)."01011".P. .B$(2)
."10010".....B$(3)."10011".....B$(4)."01
110".....B$(5)."01111"...H.B$(6)."10110"
.*.R.B$(7)."10111".<...B$(8)."01001".N..
.B$(9)."11001".A...B$(10)."11010".T...B$
(11)."11011".....B$(12)."01101".....B$(1
3)."11101".....B$(14)."11110"...".B$(15)
."10101"...,..".GCR TO HEXADECIMAL"...6.
GH$.""...@..".GCR (E.G., 525DA52A53)";GH
$...J..C(GH$).0...+.T..C(GH$)..10...6.^.
.I.1.5.P.H.GH$(I).J(GH$,I.2.1,2).W.R..I.
B.|..J.1.5.M...H(J).0.Y....I.1.16. ....H
(GH$(J),1).J(H$,I,1).H(J).I:I.16......I.
.....H(J).0.310.G...H(J).H(J).1.R.B.L(J)
.0...L..I.1.16...V..I(GH$(J),1).J(H$,I,1
).L(J).I:I.16......I......L(J).0.310.,..
.L(J).L(J).1.3....J.>....I.1.5.U...HD(I)
.H(I).16.L(I).\....I.J.&.IMAGE$."".U.0..
I.1.5...:.D.HD(I)...D..B.7.0..1...N...B(
B).0.IMAGE$.IMAGE$."0":.610.I.X.IMAGE$.I
MAGE$."1".P.B..B.W.L..I...V.."."IMAGE$..
....".";......I.1.5......"^       ";....
..I......".".'....I.1.8.C...H$(I).J(IMAG
E$,I.5.4,5).J.F..I.U.P..J.1.8.A.Z..I.0.1
5......H$(J).B$(I).D(J).I.1:I.15......I.
.....J......I.1.8......D(I).0.BDE.1.....
.I.A. ..BDE.1.940.X.*..".GCR        : ";
...4..I.1.5...>..GH$(I)" ";...H..I...R..
...\..".HEXADECIMAL: ";.".F..I.1.8.5.P..
J(H$,D(I),1);.K.Z..I.2..(I.2).." ";.R...
.I.X.....F....".DONE!".L.....W....I.1.8.
.....D(I).0.."."H$(I)".";:.970......H$(I
);...J..I.G.T.."..BYTE DECODING ERROR.".
M.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL