� *** 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