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

TAPE3/B/5SNAPSHOT

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 » MTF_finished_programs.ADF
Filename: TAPE3/B/5SNAPSHOT
Read OK:
File size: 0311 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
  241 LDX #opt MOD256
  242 LDY #opt DIV256
  243 JSR oscli
  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 5800 8000" \change 3000 to 5800 for modes 4 and 5
  371 EQUB &0D
  373 .opt
  375 EQUS "OPT 1,0"
  380 EQUB &0D
  390 ]
  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 #opt �256
� LDY #opt �256
� JSR oscli
� 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 5800 8000" \change 3000 to 5800 for modes 4 and 5
s
 EQUB &0D
u	 .opt
w EQUS "OPT 1,0"
|
 EQUB &0D
� ]
� �
� ?&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  f1 12 20 4c 44 58 20 23  |osbyte.... LDX #|
00000180  6f 70 74 20 83 32 35 36  0d 00 f2 12 20 4c 44 59  |opt .256.... LDY|
00000190  20 23 6f 70 74 20 81 32  35 36 0d 00 f3 0e 20 4a  | #opt .256.... J|
000001a0  53 52 20 6f 73 63 6c 69  0d 00 fa 13 20 4c 44 58  |SR oscli.... LDX|
000001b0  20 23 6e 61 6d 65 20 83  32 35 36 0d 01 04 13 20  | #name .256.... |
000001c0  4c 44 59 20 23 6e 61 6d  65 20 81 32 35 36 0d 01  |LDY #name .256..|
000001d0  0e 0e 20 4a 53 52 20 6f  73 63 6c 69 0d 01 18 0f  |.. JSR oscli....|
000001e0  20 49 4e 43 20 6e 61 6d  65 2b 38 0d 01 22 0c 20  | INC name+8..". |
000001f0  4c 44 41 20 23 31 34 0d  01 2c 0b 20 4c 44 58 20  |LDA #14..,. LDX |
00000200  23 34 0d 01 36 0b 20 4c  44 59 20 23 30 0d 01 40  |#4..6. LDY #0..@|
00000210  0f 20 4a 53 52 20 6f 73  62 79 74 65 0d 01 4a 0c  |. JSR osbyte..J.|
00000220  20 2e 72 65 74 75 72 6e  0d 01 54 18 20 50 4c 41  | .return..T. PLA|
00000230  3a 54 41 58 3a 50 4c 41  3a 54 41 59 3a 50 4c 41  |:TAX:PLA:TAY:PLA|
00000240  0d 01 5e 08 20 52 54 53  0d 01 68 0a 20 2e 6e 61  |..^. RTS..h. .na|
00000250  6d 65 0d 01 72 46 20 45  51 55 53 20 22 53 41 56  |me..rF EQUS "SAV|
00000260  45 20 53 43 52 30 20 35  38 30 30 20 38 30 30 30  |E SCR0 5800 8000|
00000270  22 20 5c 63 68 61 6e 67  65 20 33 30 30 30 20 74  |" \change 3000 t|
00000280  6f 20 35 38 30 30 20 66  6f 72 20 6d 6f 64 65 73  |o 5800 for modes|
00000290  20 34 20 61 6e 64 20 35  0d 01 73 0d 20 45 51 55  | 4 and 5..s. EQU|
000002a0  42 20 26 30 44 0d 01 75  09 20 2e 6f 70 74 0d 01  |B &0D..u. .opt..|
000002b0  77 13 20 45 51 55 53 20  22 4f 50 54 20 31 2c 30  |w. EQUS "OPT 1,0|
000002c0  22 0d 01 7c 0d 20 45 51  55 42 20 26 30 44 0d 01  |"..|. EQUB &0D..|
000002d0  86 06 20 5d 0d 01 90 06  20 ed 0d 01 9a 14 20 3f  |.. ].... ..... ?|
000002e0  26 32 32 30 3d 63 6f 64  65 20 83 32 35 36 0d 01  |&220=code .256..|
000002f0  a4 14 20 3f 26 32 32 31  3d 63 6f 64 65 20 81 32  |.. ?&221=code .2|
00000300  35 36 0d 01 ae 0d 20 2a  46 58 20 31 34 2c 34 0d  |56.... *FX 14,4.|
00000310  ff                                                |.|
00000311
TAPE3/B/5SNAPSHOT.m0
TAPE3/B/5SNAPSHOT.m1
TAPE3/B/5SNAPSHOT.m2
TAPE3/B/5SNAPSHOT.m4
TAPE3/B/5SNAPSHOT.m5