Home » Archimedes archive » Acorn User » AU 1997-10 A.adf » Extras » Apple][e/PD/PIC/!PICbasic/Extras/Compare
Apple][e/PD/PIC/!PICbasic/Extras/Compare
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 » Acorn User » AU 1997-10 A.adf » Extras |
Filename: | Apple][e/PD/PIC/!PICbasic/Extras/Compare |
Read OK: | ✔ |
File size: | 0236 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM Used to compare 2 binary files from different assemblers 20REM First,assemble it on a PC with Arizona Microchip's software 30REM Second,assemble it using PICbasic and the run it through this 40: 50REM (C)1997 SPROW 60REM V0.90 70PRINT"Comparing files..."' 80*SPOOL Faults 90mine%=OPENIN"ADFS::RiscHD.$.Projects.PICs.PICbasic'sTry" 100theirs%=OPENIN"ADFS::RiscHD.$.Projects.PICs.Arizona'sTry" 110REPEAT 120data%=BGET#mine% 130IFdata%<>BGET#theirs% THENPRINT"Error at instruction at offset ";(PTR#mine% DIV2) 140UNTILEOF#theirs% 150PRINT"There are ";EXT#mine% DIV2;" instructions" 160CLOSE#mine%:CLOSE#theirs% 170*SPOOL
>� Used to compare 2 binary files from different assemblers A� First,assemble it on a PC with Arizona Microchip's software C� Second,assemble it using PICbasic and the run it through this (: 2� (C)1997 SPROW <� V0.90 F�"Comparing files..."' P*SPOOL Faults Z7mine%=�"ADFS::RiscHD.$.Projects.PICs.PICbasic'sTry" d8theirs%=�"ADFS::RiscHD.$.Projects.PICs.Arizona'sTry" n� xdata%=�#mine% �F�data%<>�#theirs% ��"Error at instruction at offset ";(�#mine% �2) ���#theirs% �,�"There are ";�#mine% �2;" instructions" ��#mine%:�#theirs% � *SPOOL �
00000000 0d 00 0a 3e f4 20 55 73 65 64 20 74 6f 20 63 6f |...>. Used to co| 00000010 6d 70 61 72 65 20 32 20 62 69 6e 61 72 79 20 66 |mpare 2 binary f| 00000020 69 6c 65 73 20 66 72 6f 6d 20 64 69 66 66 65 72 |iles from differ| 00000030 65 6e 74 20 61 73 73 65 6d 62 6c 65 72 73 0d 00 |ent assemblers..| 00000040 14 41 f4 20 46 69 72 73 74 2c 61 73 73 65 6d 62 |.A. First,assemb| 00000050 6c 65 20 69 74 20 6f 6e 20 61 20 50 43 20 77 69 |le it on a PC wi| 00000060 74 68 20 41 72 69 7a 6f 6e 61 20 4d 69 63 72 6f |th Arizona Micro| 00000070 63 68 69 70 27 73 20 73 6f 66 74 77 61 72 65 0d |chip's software.| 00000080 00 1e 43 f4 20 53 65 63 6f 6e 64 2c 61 73 73 65 |..C. Second,asse| 00000090 6d 62 6c 65 20 69 74 20 75 73 69 6e 67 20 50 49 |mble it using PI| 000000a0 43 62 61 73 69 63 20 61 6e 64 20 74 68 65 20 72 |Cbasic and the r| 000000b0 75 6e 20 69 74 20 74 68 72 6f 75 67 68 20 74 68 |un it through th| 000000c0 69 73 0d 00 28 05 3a 0d 00 32 13 f4 20 28 43 29 |is..(.:..2.. (C)| 000000d0 31 39 39 37 20 53 50 52 4f 57 0d 00 3c 0b f4 20 |1997 SPROW..<.. | 000000e0 56 30 2e 39 30 0d 00 46 1a f1 22 43 6f 6d 70 61 |V0.90..F.."Compa| 000000f0 72 69 6e 67 20 66 69 6c 65 73 2e 2e 2e 22 27 0d |ring files..."'.| 00000100 00 50 11 2a 53 50 4f 4f 4c 20 46 61 75 6c 74 73 |.P.*SPOOL Faults| 00000110 0d 00 5a 37 6d 69 6e 65 25 3d 8e 22 41 44 46 53 |..Z7mine%=."ADFS| 00000120 3a 3a 52 69 73 63 48 44 2e 24 2e 50 72 6f 6a 65 |::RiscHD.$.Proje| 00000130 63 74 73 2e 50 49 43 73 2e 50 49 43 62 61 73 69 |cts.PICs.PICbasi| 00000140 63 27 73 54 72 79 22 0d 00 64 38 74 68 65 69 72 |c'sTry"..d8their| 00000150 73 25 3d 8e 22 41 44 46 53 3a 3a 52 69 73 63 48 |s%=."ADFS::RiscH| 00000160 44 2e 24 2e 50 72 6f 6a 65 63 74 73 2e 50 49 43 |D.$.Projects.PIC| 00000170 73 2e 41 72 69 7a 6f 6e 61 27 73 54 72 79 22 0d |s.Arizona'sTry".| 00000180 00 6e 05 f5 0d 00 78 11 64 61 74 61 25 3d 9a 23 |.n....x.data%=.#| 00000190 6d 69 6e 65 25 0d 00 82 46 e7 64 61 74 61 25 3c |mine%...F.data%<| 000001a0 3e 9a 23 74 68 65 69 72 73 25 20 8c f1 22 45 72 |>.#theirs% .."Er| 000001b0 72 6f 72 20 61 74 20 69 6e 73 74 72 75 63 74 69 |ror at instructi| 000001c0 6f 6e 20 61 74 20 6f 66 66 73 65 74 20 22 3b 28 |on at offset ";(| 000001d0 8f 23 6d 69 6e 65 25 20 81 32 29 0d 00 8c 0e fd |.#mine% .2).....| 000001e0 c5 23 74 68 65 69 72 73 25 0d 00 96 2c f1 22 54 |.#theirs%...,."T| 000001f0 68 65 72 65 20 61 72 65 20 22 3b a2 23 6d 69 6e |here are ";.#min| 00000200 65 25 20 81 32 3b 22 20 69 6e 73 74 72 75 63 74 |e% .2;" instruct| 00000210 69 6f 6e 73 22 0d 00 a0 15 d9 23 6d 69 6e 65 25 |ions".....#mine%| 00000220 3a d9 23 74 68 65 69 72 73 25 0d 00 aa 0a 2a 53 |:.#theirs%....*S| 00000230 50 4f 4f 4c 0d ff |POOL..| 00000236