Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE3/B/SNAPSHOT

TAPE3/B/SNAPSHOT

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 ADFS disks » Electron » Finished_programs.ADF
Filename: TAPE3/B/SNAPSHOT
Read OK:
File size: 02C3 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 REM *** Snapshot ***
   20 REM By Andrew Richards
   30 REM (c) Electron User
   40 REM CTRL saves screen
   50 MODE 6
   60 PRINT
   70 INPUT "Address:&"a$
   80 code=EVAL("&"+a$)
   90 osbyte=&FFF4
  100 oscli=&FFF7
  110 FOR i=0 TO 2 STEP 2
  120 P%=code
  130 [ OPT i
  140 PHA:TYA:PHA:TXA:PHA
  150 LDA #&81
  160 LDX #&FE
  170 LDY #&FF
  180 JSR osbyte
  190 TYA
  200 BEQ return
  210 LDA #13
  220 LDX #4
  230 LDY #0
  240 JSR osbyte
  250 LDX #name MOD256
  260 LDY #name DIV256
  270 JSR oscli
  280 INC name+8
  290 LDA #14
  300 LDX #4
  310 LDY #0
  320 JSR osbyte
  330 .return
  340 PLA:TAX:PLA:TAY:PLA
  350 RTS
  360 .name
  370 EQUS "SAVE SCR0 3000 8000" \change 3000 to 5800 for modes 4 and 5
  380 EQUB &0D
  390 ]
  395 *OPT 1,0
  400 NEXT
  410 ?&220=code MOD256
  420 ?&221=code DIV256
  430 *FX 14,4

 � *** Snapshot ***
 � By Andrew Richards
 � (c) Electron User
( � CTRL saves screen
2 � 6
< �
F � "Address:&"a$
P code=�("&"+a$)
Z osbyte=&FFF4
d oscli=&FFF7
n � i=0 � 2 � 2
x P%=code
� [ OPT i
� PHA:TYA:PHA:TXA:PHA
�
 LDA #&81
�
 LDX #&FE
�
 LDY #&FF
� JSR osbyte
� TYA
� BEQ return
� LDA #13
� LDX #4
� LDY #0
� JSR osbyte
� LDX #name �256
 LDY #name �256
 JSR oscli
 INC name+8
" LDA #14
, LDX #4
6 LDY #0
@ JSR osbyte
J .return
T PLA:TAX:PLA:TAY:PLA
^ RTS
h
 .name
rF EQUS "SAVE SCR0 3000 8000" \change 3000 to 5800 for modes 4 and 5
|
 EQUB &0D
� ]
�
 *OPT 1,0
� �
� ?&220=code �256
� ?&221=code �256
�
 *FX 14,4
�
00000000  0d 00 0a 17 20 f4 20 2a  2a 2a 20 53 6e 61 70 73  |.... . *** Snaps|
00000010  68 6f 74 20 2a 2a 2a 0d  00 14 19 20 f4 20 42 79  |hot ***.... . By|
00000020  20 41 6e 64 72 65 77 20  52 69 63 68 61 72 64 73  | Andrew Richards|
00000030  0d 00 1e 18 20 f4 20 28  63 29 20 45 6c 65 63 74  |.... . (c) Elect|
00000040  72 6f 6e 20 55 73 65 72  0d 00 28 18 20 f4 20 43  |ron User..(. . C|
00000050  54 52 4c 20 73 61 76 65  73 20 73 63 72 65 65 6e  |TRL saves screen|
00000060  0d 00 32 08 20 eb 20 36  0d 00 3c 06 20 f1 0d 00  |..2. . 6..<. ...|
00000070  46 14 20 e8 20 22 41 64  64 72 65 73 73 3a 26 22  |F. . "Address:&"|
00000080  61 24 0d 00 50 13 20 63  6f 64 65 3d a0 28 22 26  |a$..P. code=.("&|
00000090  22 2b 61 24 29 0d 00 5a  11 20 6f 73 62 79 74 65  |"+a$)..Z. osbyte|
000000a0  3d 26 46 46 46 34 0d 00  64 10 20 6f 73 63 6c 69  |=&FFF4..d. oscli|
000000b0  3d 26 46 46 46 37 0d 00  6e 12 20 e3 20 69 3d 30  |=&FFF7..n. . i=0|
000000c0  20 b8 20 32 20 88 20 32  0d 00 78 0c 20 50 25 3d  | . 2 . 2..x. P%=|
000000d0  63 6f 64 65 0d 00 82 0c  20 5b 20 4f 50 54 20 69  |code.... [ OPT i|
000000e0  0d 00 8c 18 20 50 48 41  3a 54 59 41 3a 50 48 41  |.... PHA:TYA:PHA|
000000f0  3a 54 58 41 3a 50 48 41  0d 00 96 0d 20 4c 44 41  |:TXA:PHA.... LDA|
00000100  20 23 26 38 31 0d 00 a0  0d 20 4c 44 58 20 23 26  | #&81.... LDX #&|
00000110  46 45 0d 00 aa 0d 20 4c  44 59 20 23 26 46 46 0d  |FE.... LDY #&FF.|
00000120  00 b4 0f 20 4a 53 52 20  6f 73 62 79 74 65 0d 00  |... JSR osbyte..|
00000130  be 08 20 54 59 41 0d 00  c8 0f 20 42 45 51 20 72  |.. TYA.... BEQ r|
00000140  65 74 75 72 6e 0d 00 d2  0c 20 4c 44 41 20 23 31  |eturn.... LDA #1|
00000150  33 0d 00 dc 0b 20 4c 44  58 20 23 34 0d 00 e6 0b  |3.... LDX #4....|
00000160  20 4c 44 59 20 23 30 0d  00 f0 0f 20 4a 53 52 20  | LDY #0.... JSR |
00000170  6f 73 62 79 74 65 0d 00  fa 13 20 4c 44 58 20 23  |osbyte.... LDX #|
00000180  6e 61 6d 65 20 83 32 35  36 0d 01 04 13 20 4c 44  |name .256.... LD|
00000190  59 20 23 6e 61 6d 65 20  81 32 35 36 0d 01 0e 0e  |Y #name .256....|
000001a0  20 4a 53 52 20 6f 73 63  6c 69 0d 01 18 0f 20 49  | JSR oscli.... I|
000001b0  4e 43 20 6e 61 6d 65 2b  38 0d 01 22 0c 20 4c 44  |NC name+8..". LD|
000001c0  41 20 23 31 34 0d 01 2c  0b 20 4c 44 58 20 23 34  |A #14..,. LDX #4|
000001d0  0d 01 36 0b 20 4c 44 59  20 23 30 0d 01 40 0f 20  |..6. LDY #0..@. |
000001e0  4a 53 52 20 6f 73 62 79  74 65 0d 01 4a 0c 20 2e  |JSR osbyte..J. .|
000001f0  72 65 74 75 72 6e 0d 01  54 18 20 50 4c 41 3a 54  |return..T. PLA:T|
00000200  41 58 3a 50 4c 41 3a 54  41 59 3a 50 4c 41 0d 01  |AX:PLA:TAY:PLA..|
00000210  5e 08 20 52 54 53 0d 01  68 0a 20 2e 6e 61 6d 65  |^. RTS..h. .name|
00000220  0d 01 72 46 20 45 51 55  53 20 22 53 41 56 45 20  |..rF EQUS "SAVE |
00000230  53 43 52 30 20 33 30 30  30 20 38 30 30 30 22 20  |SCR0 3000 8000" |
00000240  5c 63 68 61 6e 67 65 20  33 30 30 30 20 74 6f 20  |\change 3000 to |
00000250  35 38 30 30 20 66 6f 72  20 6d 6f 64 65 73 20 34  |5800 for modes 4|
00000260  20 61 6e 64 20 35 0d 01  7c 0d 20 45 51 55 42 20  | and 5..|. EQUB |
00000270  26 30 44 0d 01 86 06 20  5d 0d 01 8b 0d 20 2a 4f  |&0D.... ].... *O|
00000280  50 54 20 31 2c 30 0d 01  90 06 20 ed 0d 01 9a 14  |PT 1,0.... .....|
00000290  20 3f 26 32 32 30 3d 63  6f 64 65 20 83 32 35 36  | ?&220=code .256|
000002a0  0d 01 a4 14 20 3f 26 32  32 31 3d 63 6f 64 65 20  |.... ?&221=code |
000002b0  81 32 35 36 0d 01 ae 0d  20 2a 46 58 20 31 34 2c  |.256.... *FX 14,|
000002c0  34 0d ff                                          |4..|
000002c3
TAPE3/B/SNAPSHOT.m0
TAPE3/B/SNAPSHOT.m1
TAPE3/B/SNAPSHOT.m2
TAPE3/B/SNAPSHOT.m4
TAPE3/B/SNAPSHOT.m5