DECODER
FILE INFORMATION
FILENAME(S): DECODER
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:12:10
APPEARS ON: 1 disk(s)
FILE HASH
bc28323d3f487a8c0a49bb8be66288ebcac4fc7a09debdc93caed4dedea01d89
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| INFOLIST VI | DECODER | PRG | DuncanTwain | 23 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 00 00 8F 20 28 44 45 29 43 4F 44 45 |..Q.... (DE)CODE| 00000010: 52 20 36 34 20 44 4F 4F 52 20 57 49 4D 20 57 55 |R 64 DOOR WIM WU| 00000020: 42 53 20 47 45 4C 44 45 52 53 45 4C 41 41 4E 20 |BS GELDERSELAAN | 00000030: 39 30 20 39 35 30 31 2D 52 45 20 53 54 41 44 53 |90 9501-RE STADS| 00000040: 4B 41 4E 41 41 4C 20 2A 2A 43 3D 49 4E 46 4F 2A |KANAAL **C=INFO*| 00000050: 2A 00 72 08 01 00 99 C7 28 31 34 29 3A 97 35 33 |*.r.....(14):.53| 00000060: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 8D |280,0:.53281,0:.| 00000070: 33 38 00 92 08 02 00 53 B2 35 34 32 37 32 3A 42 |38.....S.54272:B| 00000080: B2 34 3A 54 53 B2 31 36 3A 43 B2 42 3A 86 44 28 |.4:TS.16:C.B:.D(| 00000090: 42 29 00 C6 08 03 00 99 22 9A 11 D3 45 52 53 4F |B)......"...ERSO| 000000A0: 46 54 20 36 34 20 11 D7 49 4D 20 D7 55 42 53 20 |FT 64 ..IM .UBS | 000000B0: 11 D3 54 41 44 53 4B 41 4E 41 41 4C 20 11 4A 55 |..TADSKANAAL .JU| 000000C0: 4E 49 27 38 35 22 00 F3 08 04 00 99 22 1E 11 11 |NI'85"......"...| 000000D0: 11 11 1D C1 2E 20 28 C4 45 29 43 4F 44 45 52 45 |..... (.E)CODERE| 000000E0: 4E 20 2B 20 48 49 2D 20 45 4E 20 4C 4F 20 42 59 |N + HI- EN LO BY| 000000F0: 54 45 22 00 3A 09 05 00 99 22 11 1D C2 2E 20 C2 |TE".:....".... .| 00000100: 45 52 45 4B 45 4E 45 4E 20 56 41 4E 20 41 44 52 |EREKENEN VAN ADR| 00000110: 45 53 2D 4F 46 46 53 45 54 53 22 3A 99 22 11 11 |ES-OFFSETS":."..| 00000120: 1D 1D 1D 1D D6 4F 45 52 20 27 58 27 20 49 4E 20 |.....OER 'X' IN | 00000130: 56 4F 4F 52 20 45 58 49 54 22 00 78 09 06 00 85 |VOOR EXIT".x....| 00000140: 22 11 11 11 1D 1D 1D 1D D5 57 20 4B 45 55 5A 45 |"........W KEUZE| 00000150: 22 3B 4B 24 3A 8B 4B 24 B3 B1 22 41 22 AF 4B 24 |";K$:.K$.."A".K$| 00000160: B3 B1 22 42 22 AF 4B 24 B3 B1 22 58 22 A7 99 22 |.."B".K$.."X".."| 00000170: 91 91 91 91 22 3A 89 36 00 B3 09 07 00 8D 33 38 |....":.6......38| 00000180: 3A 99 22 1E 11 11 11 11 1D C2 45 47 49 4E 20 42 |:.".......EGIN B| 00000190: 49 4A 20 48 45 58 41 44 45 43 49 4D 41 41 4C 20 |IJ HEXADECIMAAL | 000001A0: 4D 45 54 20 27 24 27 22 3A 8B 4B 24 B1 22 41 22 |MET '$'":.K$."A"| 000001B0: A7 32 39 00 D8 09 08 00 85 22 13 11 11 11 11 11 |.29......"......| 000001C0: 11 11 11 1D C1 44 52 45 53 3A 20 22 3B 49 24 3A |.....DRES: ";I$:| 000001D0: 8B 49 24 B2 22 22 A7 38 00 0E 0A 09 00 54 31 B2 |.I$."".8.....T1.| 000001E0: 31 30 3A 54 32 B2 54 53 3A 8F 20 2A 2A 2A 20 49 |10:T2.TS:. *** I| 000001F0: 4E 56 4F 45 52 20 43 4F 4E 54 52 4F 4C 45 20 2B |NVOER CONTROLE +| 00000200: 20 44 45 43 4F 44 45 52 45 4E 20 2A 2A 2A 00 52 | DECODEREN ***.R| 00000210: 0A 0A 00 44 45 43 B2 30 3A 41 24 B2 22 22 3A 51 |...DEC.0:A$."":Q| 00000220: B2 C3 28 49 24 29 3A 4C B2 51 3A 81 49 B2 31 A4 |..(I$):L.Q:.I.1.| 00000230: 51 3A 58 24 B2 CA 28 49 24 2C 49 2C 31 29 3A 8B |Q:X$..(I$,I,1):.| 00000240: 58 24 B2 22 20 22 A7 4C B2 4C AB 31 3A 58 24 B2 |X$." ".L.L.1:X$.| 00000250: 22 22 00 76 0A 0B 00 8B 58 24 B2 22 24 22 A7 54 |"".v....X$."$".T| 00000260: 31 B2 54 53 3A 54 32 B2 31 30 3A 4C B2 4C AB 31 |1.TS:T2.10:L.L.1| 00000270: 3A 58 24 B2 22 22 00 94 0A 0C 00 41 24 B2 41 24 |:X$."".....A$.A$| 00000280: AA 58 24 3A 82 3A 48 42 24 B2 41 24 3A 41 B2 C5 |.X$:.:HB$.A$:A..| 00000290: 28 41 24 29 00 D3 0A 0D 00 81 49 B2 31 A4 4C 3A |(A$)......I.1.L:| 000002A0: 58 24 B2 CA 28 41 24 2C 49 2C 31 29 3A 58 B2 C5 |X$..(A$,I,1):X..| 000002B0: 28 58 24 29 3A 59 B2 58 3A 8B 58 24 B1 22 39 22 |(X$):Y.X:.X$."9"| 000002C0: A7 58 B2 C6 28 58 24 29 AB 35 35 3A 8F 20 41 2D |.X..(X$).55:. A-| 000002D0: 3E 31 30 00 0C 0B 0E 00 8B 4B 24 B2 22 41 22 AF |>10......K$."A".| 000002E0: 28 58 B1 B2 54 31 B0 59 B1 B2 54 31 B0 41 B1 36 |(X..T1.Y..T1.A.6| 000002F0: 35 35 33 35 B0 28 54 31 B2 54 53 AF 4C B1 34 29 |5535.(T1.TS.L.4)| 00000300: 29 A7 8D 33 39 3A 89 38 3A 8F 20 41 00 44 0B 0F |)..39:.8:. A.D..| 00000310: 00 8B 4B 24 B2 22 42 22 AF 28 58 B1 B2 54 31 B0 |..K$."B".(X..T1.| 00000320: 59 B1 B2 54 31 B0 41 B1 36 35 35 33 35 B0 28 54 |Y..T1.A.65535.(T| 00000330: 31 B2 54 53 AF 4C B1 34 29 29 A7 8D 33 39 3A 8E |1.TS.L.4))..39:.| 00000340: 3A 8F 20 42 00 82 0B 10 00 44 45 43 B2 44 45 43 |:. B.....DEC.DEC| 00000350: AA 58 AC 54 31 AE 28 4C AB 49 29 3A 82 3A 8B 4B |.X.T1.(L.I):.:.K| 00000360: 24 B2 22 42 22 B0 5A B2 31 A7 8E 3A 8F 20 56 45 |$."B".Z.1..:. VE| 00000370: 52 56 4F 4C 47 20 41 44 52 45 53 2D 4F 46 46 53 |RVOLG ADRES-OFFS| 00000380: 45 54 00 A9 0B 11 00 8B 54 31 B3 B1 31 30 A7 99 |ET......T1..10..| 00000390: 22 11 11 1D 44 45 43 49 4D 41 41 4C 3A 22 44 45 |"...DECIMAAL:"DE| 000003A0: 43 3A 8D 33 35 3A 89 32 34 00 C8 0B 12 00 8F 20 |C:.35:.24...... | 000003B0: 2A 2A 2A 20 2D 3E 20 48 45 58 20 28 43 4F 44 45 |*** -> HEX (CODE| 000003C0: 52 45 4E 29 20 2A 2A 2A 00 F2 0B 13 00 54 31 B2 |REN) ***.....T1.| 000003D0: 31 30 3A 54 32 B2 54 53 3A 48 42 24 B2 22 22 3A |10:T2.TS:HB$."":| 000003E0: 99 22 11 11 1D 47 45 43 4F 44 45 45 52 44 3A 20 |."...GECODEERD: | 000003F0: 22 3B 00 23 0C 14 00 8B 54 32 AE 42 B1 44 45 43 |";.#....T2.B.DEC| 00000400: A7 42 B2 42 AB 31 3A 58 B2 42 3A 89 32 30 3A 8F |.B.B.1:X.B:.20:.| 00000410: 20 5A 4F 45 4B 20 48 4F 4F 47 53 54 45 20 4D 41 | ZOEK HOOGSTE MA| 00000420: 43 48 54 00 68 0C 15 00 44 28 58 29 B2 B5 28 44 |CHT.h...D(X)..(D| 00000430: 45 43 AD 54 32 AE 58 29 3A 44 45 43 B2 44 45 43 |EC.T2.X):DEC.DEC| 00000440: AB 44 28 58 29 AC 54 32 AE 58 3A 58 B2 58 AB 31 |.D(X).T2.X:X.X.1| 00000450: 3A 8B 58 B1 B2 30 A7 32 31 3A 8F 20 42 45 50 41 |:.X..0.21:. BEPA| 00000460: 41 4C 20 44 45 4C 45 52 00 A2 0C 16 00 81 44 B2 |AL DELER......D.| 00000470: 42 A4 30 A9 AB 31 3A 44 24 B2 C9 28 C4 28 44 28 |B.0..1:D$..(.(D(| 00000480: 44 29 29 2C 31 29 3A 8B 44 28 44 29 B1 39 A7 44 |D)),1):.D(D).9.D| 00000490: 24 B2 C7 28 35 35 AA 44 28 44 29 29 3A 8F 20 41 |$..(55.D(D)):. A| 000004A0: 2D 46 00 DB 0C 17 00 99 44 24 3B 3A 48 42 24 B2 |-F......D$;:HB$.| 000004B0: 48 42 24 AA 44 24 3A 82 3A 99 3A 8B 4B 24 B2 22 |HB$.D$:.:.:.K$."| 000004C0: 41 22 A7 54 31 B2 54 53 3A 54 32 B2 31 30 3A 4C |A".T1.TS:T2.10:L| 000004D0: B2 C3 28 48 42 24 29 3A 8D 33 35 00 09 0D 18 00 |..(HB$):.35.....| 000004E0: 99 22 96 11 11 1D 12 D6 92 45 52 56 4F 4C 47 45 |.".......ERVOLGE| 000004F0: 4E 20 4F 46 20 54 45 52 55 47 20 4E 41 41 52 20 |N OF TERUG NAAR | 00000500: 12 CD 92 45 4E 55 20 3F 22 00 1B 0D 19 00 A1 56 |...ENU ?"......V| 00000510: 24 3A 8B 56 24 B2 22 4D 22 A7 8A 00 44 0D 1A 00 |$:.V$."M"...D...| 00000520: 8B 56 24 B2 22 56 22 A7 54 31 B2 30 3A 54 32 B2 |.V$."V".T1.0:T2.| 00000530: 30 3A 44 45 43 B2 30 3A 42 B2 43 3A 49 24 B2 22 |0:DEC.0:B.C:I$."| 00000540: 22 3A 89 37 00 4C 0D 1B 00 89 32 35 00 67 0D 1C |":.7.L....25.g..| 00000550: 00 8F 20 2A 2A 2A 20 41 44 52 45 53 20 4F 46 46 |.. *** ADRES OFF| 00000560: 53 45 54 20 2A 2A 2A 00 93 0D 1D 00 99 22 11 11 |SET ***......"..| 00000570: 1D CF 46 46 53 45 54 20 42 45 52 45 4B 45 4E 49 |..FFSET BEREKENI| 00000580: 4E 47 3A 22 3A 8B 4B 24 B2 22 58 22 A7 99 22 93 |NG:":.K$."X"..".| 00000590: 22 3A 80 00 C6 0D 1E 00 85 22 11 11 1D C1 44 52 |":......."....DR| 000005A0: 45 53 20 31 3A 20 22 3B 49 24 3A 8D 39 3A 41 31 |ES 1: ";I$:.9:A1| 000005B0: B2 44 45 43 3A 8B 41 31 B2 30 A7 99 22 91 91 91 |.DEC:.A1.0.."...| 000005C0: 91 22 3A 89 33 30 00 FD 0D 1F 00 85 22 11 1D C1 |.":.30......"...| 000005D0: 44 52 45 53 20 32 3A 20 22 3B 49 24 3A 8D 39 3A |DRES 2: ";I$:.9:| 000005E0: 56 B2 B6 28 41 31 AB 44 45 43 29 3A 8B 44 45 43 |V..(A1.DEC):.DEC| 000005F0: B2 30 A7 99 22 91 91 91 22 3A 89 33 31 00 40 0E |.0.."...":.31.@.| 00000600: 20 00 99 22 11 11 1D CF 46 46 53 45 54 20 44 45 | .."....FFSET DE| 00000610: 43 49 4D 41 41 4C 3A 22 56 3A 44 45 56 B2 56 3A |CIMAAL:"V:DEV.V:| 00000620: 8B 54 31 B2 31 30 B0 56 B2 30 A7 32 34 3A 8F 20 |.T1.10.V.0.24:. | 00000630: 44 41 4E 20 4E 49 45 54 20 43 4F 44 45 52 45 4E |DAN NIET CODEREN| 00000640: 00 6F 0E 21 00 99 22 11 1D CF 46 46 53 45 54 20 |.o.!.."...FFSET | 00000650: 47 45 44 45 43 4F 44 45 45 52 44 3A 20 22 3B 3A |GEDECODEERD: ";:| 00000660: 54 31 B2 31 30 3A 54 32 B2 54 53 3A 89 32 30 00 |T1.10:T2.TS:.20.| 00000670: 91 0E 22 00 8F 20 2A 2A 2A 20 48 49 2F 4C 4F 20 |..".. *** HI/LO | 00000680: 42 59 54 45 20 42 45 50 41 4C 49 4E 47 20 2A 2A |BYTE BEPALING **| 00000690: 2A 00 9C 0E 23 00 8B 4C B3 33 A7 8E 00 DB 0E 24 |*...#..L.3.....$| 000006A0: 00 5A B2 31 3A 49 24 B2 C8 28 48 42 24 2C 4C AB |.Z.1:I$..(HB$,L.| 000006B0: 32 29 3A 48 24 B2 49 24 3A 4C 42 24 B2 48 42 24 |2):H$.I$:LB$.HB$| 000006C0: 3A 8D 31 30 3A 48 42 B2 44 45 43 3A 49 24 B2 C9 |:.10:HB.DEC:I$..| 000006D0: 28 4C 42 24 2C 32 29 3A 8D 31 30 00 12 0F 25 00 |(LB$,2):.10...%.| 000006E0: 99 22 11 11 1D 4C 4F 20 42 59 54 45 20 22 49 24 |."...LO BYTE "I$| 000006F0: 22 20 3D 22 44 45 43 3A 99 22 1D 48 49 20 42 59 |" ="DEC:.".HI BY| 00000700: 54 45 20 22 48 24 22 20 3D 22 48 42 3A 5A B2 30 |TE "H$" ="HB:Z.0| 00000710: 3A 8E 00 4E 0F 26 00 99 22 93 81 12 20 20 20 20 |:..N.&.."... | 00000720: 20 20 20 20 20 20 20 20 28 C4 45 29 43 4F 44 45 | (.E)CODE| 00000730: 52 20 36 34 20 20 20 20 20 20 20 20 20 20 20 20 |R 64 | 00000740: 20 20 20 22 3A 8E 3A 8F 20 54 49 54 45 4C 00 86 | ":.:. TITEL..| 00000750: 0F 27 00 97 53 AA 32 34 2C 31 35 3A 97 53 AA 35 |.'..S.24,15:.S.5| 00000760: 2C 34 38 3A 97 53 AA 36 2C 31 37 30 3A 97 53 AA |,48:.S.6,170:.S.| 00000770: 31 2C 33 30 3A 97 53 AA 34 2C 31 37 3A 97 53 AA |1,30:.S.4,17:.S.| 00000780: 34 2C 31 36 3A 8E 00 00 00 |4,16:.... |
..Q.... (DE)CODER 64 DOOR WIM WUBS GELDE RSELAAN 90 9501-RE STADSKANAAL **C=INFO* *.R....G(14):.53280,0:.53281,0:.38.....S .54272:B.4:TS.16:C.B:.D(B).F...."..SERSO FT 64 .WIM WUBS .STADSKANAAL .JUNI'85".. ...."......A. (DE)CODEREN + HI- EN LO BY TE".:...."..B. BEREKENEN VAN ADRES-OFFSE TS":."......VOER 'X' IN VOOR EXIT".X.... ".......UW KEUZE";K$:.K$.."A".K$.."B".K$ .."X".."....":.6......38:."......BEGIN B IJ HEXADECIMAAL MET '$'":.K$."A".29.X... ."..........ADRES: ";I$:.I$."".8.....T1. 10:T2.TS:. *** INVOER CONTROLE + DECODER EN ***.R...DEC.0:A$."":Q.C(I$):L.Q:.I.1. Q:X$.J(I$,I,1):.X$." ".L.L.1:X$."".V.... X$."$".T1.TS:T2.10:L.L.1:X$."".....A$.A$ .X$:.:HB$.A$:A.E(A$).S....I.1.L:X$.J(A$, I,1):X.E(X$):Y.X:.X$."9".X.F(X$).55:. A- >10......K$."A".(X..T1.Y..T1.A.65535.(T1 .TS.L.4))..39:.8:. A.D....K$."B".(X..T1. Y..T1.A.65535.(T1.TS.L.4))..39:.:. B.... .DEC.DEC.X.T1.(L.I):.:.K$."B".Z.1..:. VE RVOLG ADRES-OFFSET......T1..10.."...DECI MAAL:"DEC:.35:.24.H.... *** -> HEX (CODE REN) ***.....T1.10:T2.TS:HB$."":."...GEC ODEERD: ";.#....T2.B.DEC.B.B.1:X.B:.20:. ZOEK HOOGSTE MACHT.H...D(X)..(DEC.T2.X) :DEC.DEC.D(X).T2.X:X.X.1:.X..0.21:. BEPA AL DELER......D.B.0..1:D$.I(D(D(D)),1):. D(D).9.D$.G(55.D(D)):. A-F......D$;:HB$. HB$.D$:.:.:.K$."A".T1.TS:T2.10:L.C(HB$): .35......".....V.ERVOLGEN OF TERUG NAAR .M.ENU ?"......V$:.V$."M"...D....V$."V". T1.0:T2.0:DEC.0:B.C:I$."":.7.L....25.G.. .. *** ADRES OFFSET ***......"...OFFSET BEREKENING:":.K$."X"..".":..F...."...ADR ES 1: ";I$:.9:A1.DEC:.A1.0.."....":.30.. ...."..ADRES 2: ";I$:.9:V..(A1.DEC):.DEC .0.."...":.31.@. .."...OFFSET DECIMAAL:" V:DEV.V:.T1.10.V.0.24:. DAN NIET CODEREN .O.!.."..OFFSET GEDECODEERD: ";:T1.10:T2 .TS:.20...".. *** HI/LO BYTE BEPALING ** *...#..L.3.....$.Z.1:I$.H(HB$,L.2):H$.I$ :LB$.HB$:.10:HB.DEC:I$.I(LB$,2):.10...%. ."...LO BYTE "I$" ="DEC:.".HI BYTE "H$" ="HB:Z.0:..N.&.."... (DE)CODE R 64 ":.:. TITEL...'..S.24 ,15:.S.5,48:.S.6,170:.S.1,30:.S.4,17:.S. 4,16:....
> CLICK IMAGE PREVIEW FOR FULL MODAL