!Spectrum/PCSNAPS/SPECUT~1/SNAPVS~1

Home » Personal collection » Acorn hard disk » apps » Emulators » !Spectrum/PCSNAPS/SPECUT~1/SNAPVS~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/SNAPVS~1
Read OK:	✔
File size:	04B0 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM *************************************************************
   20REM    Title : Snap versus Snap
   30REM   Author : M.Perigo
   40REM     Date : 2 Sep 93
   50REM  Purpose : Checks the Processor Environment header portion of
   60REM            a 'Speculator' snapshot against a default image
   70REM            created from a newly initialised machine.
   90REM *************************************************************
  100
  110ON ERROR REPORT:PRINT " at line ";ERL:CLOSE#0:END
  120
  130SpecDir$ = "adfs::IDE5.$.SPECTRUM.!Spectrum"
  140READ Snap$
  150MODE 0:VDU 14
  160
  170LogFile%=OPENOUT(SpecDir$+".DiffLog")
  180
  190WHILE Snap$ <> "EndOfList"
  200Snap1% = OPENIN(SpecDir$+".new")
  210Snap2% = OPENIN(SpecDir$+"."+Snap$)
  220PRINT "Checking ";Snap$;" ";Snap1%;" ";Snap2%
  230BPUT#LogFile%, "Checking "+Snap$
  240
  250FOR L%=0 TO 255
  260 x=BGET#Snap1%:y=BGET#Snap2%
  270 IF x <> y THEN
  280 PRINT ~L%;" ",~x,~y
  290 BPUT#LogFile%, STR$~L%+" "+STR$~x+" "+STR$~y+" "+CHR$y
  300 ELSE
  310 PRINT L%,CHR$(13);
  320 ENDIF
  330NEXT
  340CLOSE#Snap1%
  350CLOSE#Snap2%
  360BPUT#LogFile%, "   "
  370BPUT#LogFile%, "   "
  380READ Snap$
  390ENDWHILE
  400
  410CLOSE#LogFile%
  420
  430DATA X
  440DATA EndOfList
  450
  460DATA Alchemist, Alien8, AticAtac, Avalon, Birds+Bees, BubbleBust
  470DATA Cookie, Cyberun, Gunfright, Jetman, Jetpac, Pssst, SabreWulf
  480DATA ShowDown, TransAm, Underwurld
  490DATA EndOfList


C� *************************************************************
!�    Title : Snap versus Snap
�   Author : M.Perigo
(�     Date : 2 Sep 93
2C�  Purpose : Checks the Processor Environment header portion of
<@�            a 'Speculator' snapshot against a default image
F:�            created from a newly initialised machine.
ZC� *************************************************************
d
n� � �:� " at line ";�:�#0:�
x
�0SpecDir$ = "adfs::IDE5.$.SPECTRUM.!Spectrum"
�� Snap$
�� 0:� 14
�
�#LogFile%=�(SpecDir$+".DiffLog")
�
�ȕ Snap$ <> "EndOfList"
�Snap1% = �(SpecDir$+".new")
�"Snap2% = �(SpecDir$+"."+Snap$)
�-� "Checking ";Snap$;" ";Snap1%;" ";Snap2%
�!�#LogFile%, "Checking "+Snap$
�
�� L%=0 � 255
 x=�#Snap1%:y=�#Snap2%
 � x <> y �
 � ~L%;" ",~x,~y
", �#LogFile%, �~L%+" "+�~x+" "+�~y+" "+�y
, �
6 � L%,�(13);
@ �
J�
T�#Snap1%
^�#Snap2%
h�#LogFile%, "   "
r�#LogFile%, "   "
|� Snap$
��
�
��#LogFile%
�
�� X
�� EndOfList
�
�A� Alchemist, Alien8, AticAtac, Avalon, Birds+Bees, BubbleBust
�B� Cookie, Cyberun, Gunfright, Jetman, Jetpac, Pssst, SabreWulf
�#� ShowDown, TransAm, Underwurld
�� 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 21 f4  20 20 20 20 54 69 74 6c  |***...!.    Titl|
00000050  65 20 3a 20 53 6e 61 70  20 76 65 72 73 75 73 20  |e : Snap versus |
00000060  53 6e 61 70 0d 00 1e 19  f4 20 20 20 41 75 74 68  |Snap.....   Auth|
00000070  6f 72 20 3a 20 4d 2e 50  65 72 69 67 6f 0d 00 28  |or : M.Perigo..(|
00000080  19 f4 20 20 20 20 20 44  61 74 65 20 3a 20 32 20  |..     Date : 2 |
00000090  53 65 70 20 39 33 0d 00  32 43 f4 20 20 50 75 72  |Sep 93..2C.  Pur|
000000a0  70 6f 73 65 20 3a 20 43  68 65 63 6b 73 20 74 68  |pose : Checks th|
000000b0  65 20 50 72 6f 63 65 73  73 6f 72 20 45 6e 76 69  |e Processor Envi|
000000c0  72 6f 6e 6d 65 6e 74 20  68 65 61 64 65 72 20 70  |ronment header p|
000000d0  6f 72 74 69 6f 6e 20 6f  66 0d 00 3c 40 f4 20 20  |ortion of..<@.  |
000000e0  20 20 20 20 20 20 20 20  20 20 61 20 27 53 70 65  |          a 'Spe|
000000f0  63 75 6c 61 74 6f 72 27  20 73 6e 61 70 73 68 6f  |culator' snapsho|
00000100  74 20 61 67 61 69 6e 73  74 20 61 20 64 65 66 61  |t against a defa|
00000110  75 6c 74 20 69 6d 61 67  65 0d 00 46 3a f4 20 20  |ult image..F:.  |
00000120  20 20 20 20 20 20 20 20  20 20 63 72 65 61 74 65  |          create|
00000130  64 20 66 72 6f 6d 20 61  20 6e 65 77 6c 79 20 69  |d from a newly i|
00000140  6e 69 74 69 61 6c 69 73  65 64 20 6d 61 63 68 69  |nitialised machi|
00000150  6e 65 2e 0d 00 5a 43 f4  20 2a 2a 2a 2a 2a 2a 2a  |ne...ZC. *******|
00000160  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000190  2a 2a 2a 2a 2a 2a 0d 00  64 04 0d 00 6e 1f ee 20  |******..d...n.. |
000001a0  85 20 f6 3a f1 20 22 20  61 74 20 6c 69 6e 65 20  |. .:. " at line |
000001b0  22 3b 9e 3a d9 23 30 3a  e0 0d 00 78 04 0d 00 82  |";.:.#0:...x....|
000001c0  30 53 70 65 63 44 69 72  24 20 3d 20 22 61 64 66  |0SpecDir$ = "adf|
000001d0  73 3a 3a 49 44 45 35 2e  24 2e 53 50 45 43 54 52  |s::IDE5.$.SPECTR|
000001e0  55 4d 2e 21 53 70 65 63  74 72 75 6d 22 0d 00 8c  |UM.!Spectrum"...|
000001f0  0b f3 20 53 6e 61 70 24  0d 00 96 0c eb 20 30 3a  |.. Snap$..... 0:|
00000200  ef 20 31 34 0d 00 a0 04  0d 00 aa 23 4c 6f 67 46  |. 14.......#LogF|
00000210  69 6c 65 25 3d ae 28 53  70 65 63 44 69 72 24 2b  |ile%=.(SpecDir$+|
00000220  22 2e 44 69 66 66 4c 6f  67 22 29 0d 00 b4 04 0d  |".DiffLog").....|
00000230  00 be 1b c8 95 20 53 6e  61 70 24 20 3c 3e 20 22  |..... Snap$ <> "|
00000240  45 6e 64 4f 66 4c 69 73  74 22 0d 00 c8 1f 53 6e  |EndOfList"....Sn|
00000250  61 70 31 25 20 3d 20 8e  28 53 70 65 63 44 69 72  |ap1% = .(SpecDir|
00000260  24 2b 22 2e 6e 65 77 22  29 0d 00 d2 22 53 6e 61  |$+".new")..."Sna|
00000270  70 32 25 20 3d 20 8e 28  53 70 65 63 44 69 72 24  |p2% = .(SpecDir$|
00000280  2b 22 2e 22 2b 53 6e 61  70 24 29 0d 00 dc 2d f1  |+"."+Snap$)...-.|
00000290  20 22 43 68 65 63 6b 69  6e 67 20 22 3b 53 6e 61  | "Checking ";Sna|
000002a0  70 24 3b 22 20 22 3b 53  6e 61 70 31 25 3b 22 20  |p$;" ";Snap1%;" |
000002b0  22 3b 53 6e 61 70 32 25  0d 00 e6 21 d5 23 4c 6f  |";Snap2%...!.#Lo|
000002c0  67 46 69 6c 65 25 2c 20  22 43 68 65 63 6b 69 6e  |gFile%, "Checkin|
000002d0  67 20 22 2b 53 6e 61 70  24 0d 00 f0 04 0d 00 fa  |g "+Snap$.......|
000002e0  10 e3 20 4c 25 3d 30 20  b8 20 32 35 35 0d 01 04  |.. L%=0 . 255...|
000002f0  1a 20 78 3d 9a 23 53 6e  61 70 31 25 3a 79 3d 9a  |. x=.#Snap1%:y=.|
00000300  23 53 6e 61 70 32 25 0d  01 0e 0f 20 e7 20 78 20  |#Snap2%.... . x |
00000310  3c 3e 20 79 20 8c 0d 01  18 14 20 f1 20 7e 4c 25  |<> y ..... . ~L%|
00000320  3b 22 20 22 2c 7e 78 2c  7e 79 0d 01 22 2c 20 d5  |;" ",~x,~y..", .|
00000330  23 4c 6f 67 46 69 6c 65  25 2c 20 c3 7e 4c 25 2b  |#LogFile%, .~L%+|
00000340  22 20 22 2b c3 7e 78 2b  22 20 22 2b c3 7e 79 2b  |" "+.~x+" "+.~y+|
00000350  22 20 22 2b bd 79 0d 01  2c 06 20 cc 0d 01 36 10  |" "+.y..,. ...6.|
00000360  20 f1 20 4c 25 2c bd 28  31 33 29 3b 0d 01 40 06  | . L%,.(13);..@.|
00000370  20 cd 0d 01 4a 05 ed 0d  01 54 0c d9 23 53 6e 61  | ...J....T..#Sna|
00000380  70 31 25 0d 01 5e 0c d9  23 53 6e 61 70 32 25 0d  |p1%..^..#Snap2%.|
00000390  01 68 15 d5 23 4c 6f 67  46 69 6c 65 25 2c 20 22  |.h..#LogFile%, "|
000003a0  20 20 20 22 0d 01 72 15  d5 23 4c 6f 67 46 69 6c  |   "..r..#LogFil|
000003b0  65 25 2c 20 22 20 20 20  22 0d 01 7c 0b f3 20 53  |e%, "   "..|.. S|
000003c0  6e 61 70 24 0d 01 86 05  ce 0d 01 90 04 0d 01 9a  |nap$............|
000003d0  0e d9 23 4c 6f 67 46 69  6c 65 25 0d 01 a4 04 0d  |..#LogFile%.....|
000003e0  01 ae 07 dc 20 58 0d 01  b8 0f dc 20 45 6e 64 4f  |.... X..... EndO|
000003f0  66 4c 69 73 74 0d 01 c2  04 0d 01 cc 41 dc 20 41  |fList.......A. A|
00000400  6c 63 68 65 6d 69 73 74  2c 20 41 6c 69 65 6e 38  |lchemist, Alien8|
00000410  2c 20 41 74 69 63 41 74  61 63 2c 20 41 76 61 6c  |, AticAtac, Aval|
00000420  6f 6e 2c 20 42 69 72 64  73 2b 42 65 65 73 2c 20  |on, Birds+Bees, |
00000430  42 75 62 62 6c 65 42 75  73 74 0d 01 d6 42 dc 20  |BubbleBust...B. |
00000440  43 6f 6f 6b 69 65 2c 20  43 79 62 65 72 75 6e 2c  |Cookie, Cyberun,|
00000450  20 47 75 6e 66 72 69 67  68 74 2c 20 4a 65 74 6d  | Gunfright, Jetm|
00000460  61 6e 2c 20 4a 65 74 70  61 63 2c 20 50 73 73 73  |an, Jetpac, Psss|
00000470  74 2c 20 53 61 62 72 65  57 75 6c 66 0d 01 e0 23  |t, SabreWulf...#|
00000480  dc 20 53 68 6f 77 44 6f  77 6e 2c 20 54 72 61 6e  |. ShowDown, Tran|
00000490  73 41 6d 2c 20 55 6e 64  65 72 77 75 72 6c 64 0d  |sAm, Underwurld.|
000004a0  01 ea 0f dc 20 45 6e 64  4f 66 4c 69 73 74 0d ff  |.... EndOfList..|
000004b0

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