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