!Spectrum/PCSNAPS/SPECUT~1/ROMVSS~1

Home » Personal collection » Acorn hard disk » apps » Emulators » !Spectrum/PCSNAPS/SPECUT~1/ROMVSS~1

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 » apps » Emulators
Filename:	!Spectrum/PCSNAPS/SPECUT~1/ROMVSS~1
Read OK:	✔
File size:	03AE bytes
Load address:	0000
Exec address:	0000

File contents

   10REM *************************************************************
   20REM    Title : ROM versus Snap
   30REM   Author : M.Perigo
   31REM     Date : 2 Sep 93
   32REM  Purpose : Checks the ROM portion of 'Speculator' snapshots
   33REM            against the default ROM file.
   40REM *************************************************************
   50ON ERROR REPORT:PRINT " at line ";ERL:END
   60
   70SpecDir$ = "adfs::IDE5.$.SPECTRUM.!Spectrum"
   80READ Snap$
   90
  100WHILE Snap$ <> "EndOfList"
  110rom% = OPENIN(SpecDir$+".Roms.Spectrum")
  120snap% = OPENIN(SpecDir$+".Snaps."+Snap$)
  130PRINT "Checking ";Snap$,rom%,snap%
  140PTR#snap%=256
  150FOR L%=0 TO (1024*16)-1
  160 x=BGET#rom%:y=BGET#snap%
  170 IF x <> y THEN
  180   PRINT L%,x,y
  190 ELSE
  200   PRINT L%,CHR$(13);
  210 ENDIF
  220NEXT
  230CLOSE#rom%:
  240CLOSE#snap%
  250READ Snap$
  260ENDWHILE
  270
  280DATA Alchemist
  290DATA EndOfList
  300DATA Alchemist, Alien8, AticAtac, Avalon, Birds+Bees, BubbleBust
  310DATA Cookie, Cyberun, Gunfright, Jetman, Jetpac, Pssst, SabreWulf
  320DATA ShowDown, TransAm, Underwurld
  330DATA EndOfList


C� *************************************************************
 �    Title : ROM versus Snap
�   Author : M.Perigo
�     Date : 2 Sep 93
 A�  Purpose : Checks the ROM portion of 'Speculator' snapshots
!.�            against the default ROM file.
(C� *************************************************************
2� � �:� " at line ";�:�
<
F0SpecDir$ = "adfs::IDE5.$.SPECTRUM.!Spectrum"
P� Snap$
Z
dȕ Snap$ <> "EndOfList"
n'rom% = �(SpecDir$+".Roms.Spectrum")
x'snap% = �(SpecDir$+".Snaps."+Snap$)
�"� "Checking ";Snap$,rom%,snap%
��#snap%=256
�� L%=0 � (1024*16)-1
� x=�#rom%:y=�#snap%
� � x <> y �
�   � L%,x,y
� �
�   � L%,�(13);
� �
��
��#rom%:
��#snap%
�� Snap$
�

� Alchemist
"� EndOfList
,A� Alchemist, Alien8, AticAtac, Avalon, Birds+Bees, BubbleBust
6B� Cookie, Cyberun, Gunfright, Jetman, Jetpac, Pssst, SabreWulf
@#� ShowDown, TransAm, Underwurld
J� EndOfList
�

00000000  0d 00 0a 43 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...C. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000040  2a 2a 2a 0d 00 14 20 f4  20 20 20 20 54 69 74 6c  |***... .    Titl|
00000050  65 20 3a 20 52 4f 4d 20  76 65 72 73 75 73 20 53  |e : ROM versus S|
00000060  6e 61 70 0d 00 1e 19 f4  20 20 20 41 75 74 68 6f  |nap.....   Autho|
00000070  72 20 3a 20 4d 2e 50 65  72 69 67 6f 0d 00 1f 19  |r : M.Perigo....|
00000080  f4 20 20 20 20 20 44 61  74 65 20 3a 20 32 20 53  |.     Date : 2 S|
00000090  65 70 20 39 33 0d 00 20  41 f4 20 20 50 75 72 70  |ep 93.. A.  Purp|
000000a0  6f 73 65 20 3a 20 43 68  65 63 6b 73 20 74 68 65  |ose : Checks the|
000000b0  20 52 4f 4d 20 70 6f 72  74 69 6f 6e 20 6f 66 20  | ROM portion of |
000000c0  27 53 70 65 63 75 6c 61  74 6f 72 27 20 73 6e 61  |'Speculator' sna|
000000d0  70 73 68 6f 74 73 0d 00  21 2e f4 20 20 20 20 20  |pshots..!..     |
000000e0  20 20 20 20 20 20 20 61  67 61 69 6e 73 74 20 74  |       against t|
000000f0  68 65 20 64 65 66 61 75  6c 74 20 52 4f 4d 20 66  |he default ROM f|
00000100  69 6c 65 2e 0d 00 28 43  f4 20 2a 2a 2a 2a 2a 2a  |ile...(C. ******|
00000110  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000140  2a 2a 2a 2a 2a 2a 2a 0d  00 32 1b ee 20 85 20 f6  |*******..2.. . .|
00000150  3a f1 20 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |:. " at line ";.|
00000160  3a e0 0d 00 3c 04 0d 00  46 30 53 70 65 63 44 69  |:...<...F0SpecDi|
00000170  72 24 20 3d 20 22 61 64  66 73 3a 3a 49 44 45 35  |r$ = "adfs::IDE5|
00000180  2e 24 2e 53 50 45 43 54  52 55 4d 2e 21 53 70 65  |.$.SPECTRUM.!Spe|
00000190  63 74 72 75 6d 22 0d 00  50 0b f3 20 53 6e 61 70  |ctrum"..P.. Snap|
000001a0  24 0d 00 5a 04 0d 00 64  1b c8 95 20 53 6e 61 70  |$..Z...d... Snap|
000001b0  24 20 3c 3e 20 22 45 6e  64 4f 66 4c 69 73 74 22  |$ <> "EndOfList"|
000001c0  0d 00 6e 27 72 6f 6d 25  20 3d 20 8e 28 53 70 65  |..n'rom% = .(Spe|
000001d0  63 44 69 72 24 2b 22 2e  52 6f 6d 73 2e 53 70 65  |cDir$+".Roms.Spe|
000001e0  63 74 72 75 6d 22 29 0d  00 78 27 73 6e 61 70 25  |ctrum")..x'snap%|
000001f0  20 3d 20 8e 28 53 70 65  63 44 69 72 24 2b 22 2e  | = .(SpecDir$+".|
00000200  53 6e 61 70 73 2e 22 2b  53 6e 61 70 24 29 0d 00  |Snaps."+Snap$)..|
00000210  82 22 f1 20 22 43 68 65  63 6b 69 6e 67 20 22 3b  |.". "Checking ";|
00000220  53 6e 61 70 24 2c 72 6f  6d 25 2c 73 6e 61 70 25  |Snap$,rom%,snap%|
00000230  0d 00 8c 0f cf 23 73 6e  61 70 25 3d 32 35 36 0d  |.....#snap%=256.|
00000240  00 96 18 e3 20 4c 25 3d  30 20 b8 20 28 31 30 32  |.... L%=0 . (102|
00000250  34 2a 31 36 29 2d 31 0d  00 a0 17 20 78 3d 9a 23  |4*16)-1.... x=.#|
00000260  72 6f 6d 25 3a 79 3d 9a  23 73 6e 61 70 25 0d 00  |rom%:y=.#snap%..|
00000270  aa 0f 20 e7 20 78 20 3c  3e 20 79 20 8c 0d 00 b4  |.. . x <> y ....|
00000280  0f 20 20 20 f1 20 4c 25  2c 78 2c 79 0d 00 be 06  |.   . L%,x,y....|
00000290  20 cc 0d 00 c8 12 20 20  20 f1 20 4c 25 2c bd 28  | .....   . L%,.(|
000002a0  31 33 29 3b 0d 00 d2 06  20 cd 0d 00 dc 05 ed 0d  |13);.... .......|
000002b0  00 e6 0b d9 23 72 6f 6d  25 3a 0d 00 f0 0b d9 23  |....#rom%:.....#|
000002c0  73 6e 61 70 25 0d 00 fa  0b f3 20 53 6e 61 70 24  |snap%..... Snap$|
000002d0  0d 01 04 05 ce 0d 01 0e  04 0d 01 18 0f dc 20 41  |.............. A|
000002e0  6c 63 68 65 6d 69 73 74  0d 01 22 0f dc 20 45 6e  |lchemist..".. En|
000002f0  64 4f 66 4c 69 73 74 0d  01 2c 41 dc 20 41 6c 63  |dOfList..,A. Alc|
00000300  68 65 6d 69 73 74 2c 20  41 6c 69 65 6e 38 2c 20  |hemist, Alien8, |
00000310  41 74 69 63 41 74 61 63  2c 20 41 76 61 6c 6f 6e  |AticAtac, Avalon|
00000320  2c 20 42 69 72 64 73 2b  42 65 65 73 2c 20 42 75  |, Birds+Bees, Bu|
00000330  62 62 6c 65 42 75 73 74  0d 01 36 42 dc 20 43 6f  |bbleBust..6B. Co|
00000340  6f 6b 69 65 2c 20 43 79  62 65 72 75 6e 2c 20 47  |okie, Cyberun, G|
00000350  75 6e 66 72 69 67 68 74  2c 20 4a 65 74 6d 61 6e  |unfright, Jetman|
00000360  2c 20 4a 65 74 70 61 63  2c 20 50 73 73 73 74 2c  |, Jetpac, Pssst,|
00000370  20 53 61 62 72 65 57 75  6c 66 0d 01 40 23 dc 20  | SabreWulf..@#. |
00000380  53 68 6f 77 44 6f 77 6e  2c 20 54 72 61 6e 73 41  |ShowDown, TransA|
00000390  6d 2c 20 55 6e 64 65 72  77 75 72 6c 64 0d 01 4a  |m, Underwurld..J|
000003a0  0f dc 20 45 6e 64 4f 66  4c 69 73 74 0d ff        |.. EndOfList..|
000003ae

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .