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