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:
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE3/B/SNAPSHOT
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE3/B/SNAPSHOT
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/TAPE3/B/SNAPSHOT
- Personal collection » Acorn tapes » Own_Work » box02_tape03b_c15_acorn_thunt.wav » SNAPSHOT
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
.