Home » Personal collection » Acorn hard disk » misc » dcfprogs » Decode/CODE

Decode/CODE

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » misc » dcfprogs
Filename: Decode/CODE
Read OK:
File size: 0164 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10*ADFS
   20*MOUNT
   30*DIR DECODE
   40ON ERROR REPORT:PRINT" at line ";ERL:END
   50DIM spac &1100:space=(spac+&100) AND &FFF00
   60FORp=space TO space+&1000:?p=0:NEXT
   70OSCLI"LOAD DECODER "+STR$~space
   80OSCLI"LOAD SOURCE "+STR$~(space+&100)
   90FORcode=&100TO&7B9
  100?(space+code)=?(space+code) EOR ?((space+code-&100)AND&FFF7F)
  110
  120NEXT
  130OSCLI"SAVE FINI "+STR$~space+" "+STR$~(space+&800)
  140*SETTYPE FINI BASIC

	*ADFS

*MOUNT
*DIR DECODE
(� � �:�" at line ";�:�
2+� spac &1100:space=(spac+&100) � &FFF00
<!�p=space � space+&1000:?p=0:�
F�"LOAD DECODER "+�~space
P"�"LOAD SOURCE "+�~(space+&100)
Z�code=&100�&7B9
d=?(space+code)=?(space+code) � ?((space+code-&100)�&FFF7F)
n
x�
�,�"SAVE FINI "+�~space+" "+�~(space+&800)
�*SETTYPE FINI BASIC
�
00000000  0d 00 0a 09 2a 41 44 46  53 0d 00 14 0a 2a 4d 4f  |....*ADFS....*MO|
00000010  55 4e 54 0d 00 1e 0f 2a  44 49 52 20 44 45 43 4f  |UNT....*DIR DECO|
00000020  44 45 0d 00 28 1a ee 20  85 20 f6 3a f1 22 20 61  |DE..(.. . .:." a|
00000030  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 32 2b  |t line ";.:...2+|
00000040  de 20 73 70 61 63 20 26  31 31 30 30 3a 73 70 61  |. spac &1100:spa|
00000050  63 65 3d 28 73 70 61 63  2b 26 31 30 30 29 20 80  |ce=(spac+&100) .|
00000060  20 26 46 46 46 30 30 0d  00 3c 21 e3 70 3d 73 70  | &FFF00..<!.p=sp|
00000070  61 63 65 20 b8 20 73 70  61 63 65 2b 26 31 30 30  |ace . space+&100|
00000080  30 3a 3f 70 3d 30 3a ed  0d 00 46 1c ff 22 4c 4f  |0:?p=0:...F.."LO|
00000090  41 44 20 44 45 43 4f 44  45 52 20 22 2b c3 7e 73  |AD DECODER "+.~s|
000000a0  70 61 63 65 0d 00 50 22  ff 22 4c 4f 41 44 20 53  |pace..P"."LOAD S|
000000b0  4f 55 52 43 45 20 22 2b  c3 7e 28 73 70 61 63 65  |OURCE "+.~(space|
000000c0  2b 26 31 30 30 29 0d 00  5a 13 e3 63 6f 64 65 3d  |+&100)..Z..code=|
000000d0  26 31 30 30 b8 26 37 42  39 0d 00 64 3d 3f 28 73  |&100.&7B9..d=?(s|
000000e0  70 61 63 65 2b 63 6f 64  65 29 3d 3f 28 73 70 61  |pace+code)=?(spa|
000000f0  63 65 2b 63 6f 64 65 29  20 82 20 3f 28 28 73 70  |ce+code) . ?((sp|
00000100  61 63 65 2b 63 6f 64 65  2d 26 31 30 30 29 80 26  |ace+code-&100).&|
00000110  46 46 46 37 46 29 0d 00  6e 04 0d 00 78 05 ed 0d  |FFF7F)..n...x...|
00000120  00 82 2c ff 22 53 41 56  45 20 46 49 4e 49 20 22  |..,."SAVE FINI "|
00000130  2b c3 7e 73 70 61 63 65  2b 22 20 22 2b c3 7e 28  |+.~space+" "+.~(|
00000140  73 70 61 63 65 2b 26 38  30 30 29 0d 00 8c 17 2a  |space+&800)....*|
00000150  53 45 54 54 59 50 45 20  46 49 4e 49 20 42 41 53  |SETTYPE FINI BAS|
00000160  49 43 0d ff                                       |IC..|
00000164