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:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Decode/CODE
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Decode/CODE
- Personal collection » Acorn hard disk » misc » dcfprogs » Decode/CODE
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
.