Home » Archimedes archive » Micro User » MU 1991-04.adf » PD-Stuff » Mod_Dis/Checker
Mod_Dis/Checker
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 » Archimedes archive » Micro User » MU 1991-04.adf » PD-Stuff |
| Filename: | Mod_Dis/Checker |
| Read OK: | ✔ |
| File size: | 0190 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Checker
11REM Checks original RM versus newly assembled version
20INPUT"filename",filename$
30OSCLI"Load ORIGINALS."+filename$+" 10000"
40OSCLI"Load MODULES."+filename$+" 20000"
50F%=OPENIN("ORIGINALS."+filename$)
60len%=EXT#F%
70FORI%=0TOlen%-1STEP4
80 X%=I%!&10000
90 Y%=I%!&20000
100 IFX%<>Y%THEN
110 OSCLI"MemoryI "+STR$~(&10000+I%)+" +4"
120 OSCLI"MemoryI "+STR$~(&20000+I%)+" +4"
121 PRINT
130 ENDIF
140NEXT
141CLOSE#0
150END
� >Checker
7� Checks original RM versus newly assembled version
�"filename",filename$
)�"Load ORIGINALS."+filename$+" 10000"
('�"Load MODULES."+filename$+" 20000"
2 F%=�("ORIGINALS."+filename$)
<
len%=�#F%
F�I%=0�len%-1�4
P X%=I%!&10000
Z Y%=I%!&20000
d �X%<>Y%�
n' �"MemoryI "+�~(&10000+I%)+" +4"
x' �"MemoryI "+�~(&20000+I%)+" +4"
y �
� �
��
��#0
��
� 00000000 0d 00 0a 0e f4 20 3e 43 68 65 63 6b 65 72 0d 00 |..... >Checker..|
00000010 0b 37 f4 20 43 68 65 63 6b 73 20 6f 72 69 67 69 |.7. Checks origi|
00000020 6e 61 6c 20 52 4d 20 76 65 72 73 75 73 20 6e 65 |nal RM versus ne|
00000030 77 6c 79 20 61 73 73 65 6d 62 6c 65 64 20 76 65 |wly assembled ve|
00000040 72 73 69 6f 6e 0d 00 14 19 e8 22 66 69 6c 65 6e |rsion....."filen|
00000050 61 6d 65 22 2c 66 69 6c 65 6e 61 6d 65 24 0d 00 |ame",filename$..|
00000060 1e 29 ff 22 4c 6f 61 64 20 4f 52 49 47 49 4e 41 |.)."Load ORIGINA|
00000070 4c 53 2e 22 2b 66 69 6c 65 6e 61 6d 65 24 2b 22 |LS."+filename$+"|
00000080 20 31 30 30 30 30 22 0d 00 28 27 ff 22 4c 6f 61 | 10000"..('."Loa|
00000090 64 20 4d 4f 44 55 4c 45 53 2e 22 2b 66 69 6c 65 |d MODULES."+file|
000000a0 6e 61 6d 65 24 2b 22 20 32 30 30 30 30 22 0d 00 |name$+" 20000"..|
000000b0 32 20 46 25 3d 8e 28 22 4f 52 49 47 49 4e 41 4c |2 F%=.("ORIGINAL|
000000c0 53 2e 22 2b 66 69 6c 65 6e 61 6d 65 24 29 0d 00 |S."+filename$)..|
000000d0 3c 0d 6c 65 6e 25 3d a2 23 46 25 0d 00 46 12 e3 |<.len%=.#F%..F..|
000000e0 49 25 3d 30 b8 6c 65 6e 25 2d 31 88 34 0d 00 50 |I%=0.len%-1.4..P|
000000f0 12 20 20 58 25 3d 49 25 21 26 31 30 30 30 30 0d |. X%=I%!&10000.|
00000100 00 5a 12 20 20 59 25 3d 49 25 21 26 32 30 30 30 |.Z. Y%=I%!&2000|
00000110 30 0d 00 64 0e 20 20 e7 58 25 3c 3e 59 25 8c 0d |0..d. .X%<>Y%..|
00000120 00 6e 27 20 20 20 20 ff 22 4d 65 6d 6f 72 79 49 |.n' ."MemoryI|
00000130 20 22 2b c3 7e 28 26 31 30 30 30 30 2b 49 25 29 | "+.~(&10000+I%)|
00000140 2b 22 20 2b 34 22 0d 00 78 27 20 20 20 20 ff 22 |+" +4"..x' ."|
00000150 4d 65 6d 6f 72 79 49 20 22 2b c3 7e 28 26 32 30 |MemoryI "+.~(&20|
00000160 30 30 30 2b 49 25 29 2b 22 20 2b 34 22 0d 00 79 |000+I%)+" +4"..y|
00000170 09 20 20 20 20 f1 0d 00 82 07 20 20 cd 0d 00 8c |. ..... ....|
00000180 05 ed 0d 00 8d 07 d9 23 30 0d 00 96 05 e0 0d ff |.......#0.......|
00000190 
.