� *** Snapshot ***
 � By Andrew Richards
 � (c) Electron User
( � CTRL saves screen
2 � 6
< �
F � "Address:&"a$
P code=�("&"+a$)
Z osbyte=&FFF4
d* oscli=&FFF7:oswrch=&FFEE:osword=&FFF1
n � i=0 � 2 � 2
x P%=code
� [ OPT i
� PHA:PHP:TYA:PHA:TXA:PHA
�$ LDA#&DF:STA&228:LDA#&EA:STA&229
�
 LDA #&81
�
 LDX #&FE
�
 LDY #&FF
� JSR osbyte
� TYA
� BNE cont:JMP return:.cont
� LDA #13
� LDX #4
� LDY #0
� JSR osbyte
�0 LDA#5:LDA#1:LDY#0:JSRosbyte:LDA#194:STA&2AC

 LDA#26:JSR oswrch \� 26

2 LDA #6:LDX #255:LDY #0:JSR osbyte  \*FX 6,255

. LDA #3:LDX #10:LDY #0:JSR osbyte \*FX3,10

"G LDA #27:JSR oswrch:LDA #85:JSR oswrch:LDA #1:JSR oswrch \� 27,85,1

,G LDA #27:JSR oswrch:LDA #51:JSR oswrch:LDA #2:JSR oswrch \� 27,65,2

69 LDA #1020 �256:STA y:LDA #1020 �256:STA y+1  \y=1020

@
 .loop

J LDA #10:JSR oswrch \� 10

Tw LDA #27:JSR oswrch:LDA #76:JSR oswrch:LDA #320 �256:JSR oswrch:LDA #320 �256:JSR oswrch \� 27,76,320 �256,320 �256

^ LDA #0:STA x:STA x+1  \x=0

h .loop1

r( LDA x:STA block:LDA x+1:STA block+1

|* LDA y:STA block+2:LDA y+1:STA block+3

�> LDA #9:LDX #block �256:LDY #block �256:JSR osword  \POINT

�0 LDA block+4:� #7:TAX:LDY mult,X  \Y=POINT*6

� LDX #2

� .loop2

� LDA data,Y:JSR oswrch

� INY:DEX:BNE loop2

�: CLC:LDA x:ADC #8:STA x:LDA x+1:ADC #0:STA x+1  \x=x+8

� CMP #1280 �256:BNE loop1

�: SEC:LDA y:SBC #4:STA y:LDA y+1:SBC #0:STA y+1  \y=y-4

�
 BNE jump

� LDA y:BNE jump

�  JMP end:.jump JMP loop:.end

�- LDA #3:LDX #0:LDY #0:JSR osbyte  \*FX3,0
 JMP return

 .mult
& EQUB 0:EQUB 5*6:EQUB 6*6:EQUB 7*6
& 
0
 .data
:. EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0
D. EQUB 0:EQUB 1:EQUB 0:EQUB 0:EQUB 1:EQUB 0
N. EQUB 1:EQUB 0:EQUB 2:EQUB 2:EQUB 0:EQUB 1
X. EQUB 0:EQUB 3:EQUB 0:EQUB 0:EQUB 3:EQUB 0
b. EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1
l. EQUB 1:EQUB 0:EQUB 3:EQUB 0:EQUB 3:EQUB 0
v. EQUB 0:EQUB 1:EQUB 2:EQUB 1:EQUB 3:EQUB 2
�. EQUB 1:EQUB 1:EQUB 3:EQUB 3:EQUB 3:EQUB 3
� .return
� LDA #14
� LDX #4
� LDY #0
� JSR osbyte
�0 LDA#code �256:STA&228:LDA#code �256:STA&229
� PLA:TAX:PLA:TAY:PLP:PLA
�
 JMP&EADF
�- .x EQUB 0:EQUB 0:.y EQUB 0:EQUB 0:.block
� ]
� �
� ?&228=code �256
� ?&229=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 2a 20 6f 73 63 6c 69  |=&FFF4..d* oscli|
000000b0  3d 26 46 46 46 37 3a 6f  73 77 72 63 68 3d 26 46  |=&FFF7:oswrch=&F|
000000c0  46 45 45 3a 6f 73 77 6f  72 64 3d 26 46 46 46 31  |FEE:osword=&FFF1|
000000d0  0d 00 6e 12 20 e3 20 69  3d 30 20 b8 20 32 20 88  |..n. . i=0 . 2 .|
000000e0  20 32 0d 00 78 0c 20 50  25 3d 63 6f 64 65 0d 00  | 2..x. P%=code..|
000000f0  82 0c 20 5b 20 4f 50 54  20 69 0d 00 8c 1c 20 50  |.. [ OPT i.... P|
00000100  48 41 3a 50 48 50 3a 54  59 41 3a 50 48 41 3a 54  |HA:PHP:TYA:PHA:T|
00000110  58 41 3a 50 48 41 0d 00  91 24 20 4c 44 41 23 26  |XA:PHA...$ LDA#&|
00000120  44 46 3a 53 54 41 26 32  32 38 3a 4c 44 41 23 26  |DF:STA&228:LDA#&|
00000130  45 41 3a 53 54 41 26 32  32 39 0d 00 96 0d 20 4c  |EA:STA&229.... L|
00000140  44 41 20 23 26 38 31 0d  00 a0 0d 20 4c 44 58 20  |DA #&81.... LDX |
00000150  23 26 46 45 0d 00 aa 0d  20 4c 44 59 20 23 26 46  |#&FE.... LDY #&F|
00000160  46 0d 00 b4 0f 20 4a 53  52 20 6f 73 62 79 74 65  |F.... JSR osbyte|
00000170  0d 00 be 08 20 54 59 41  0d 00 c8 1e 20 42 4e 45  |.... TYA.... BNE|
00000180  20 63 6f 6e 74 3a 4a 4d  50 20 72 65 74 75 72 6e  | cont:JMP return|
00000190  3a 2e 63 6f 6e 74 0d 00  d2 0c 20 4c 44 41 20 23  |:.cont.... LDA #|
000001a0  31 33 0d 00 dc 0b 20 4c  44 58 20 23 34 0d 00 e6  |13.... LDX #4...|
000001b0  0b 20 4c 44 59 20 23 30  0d 00 f0 0f 20 4a 53 52  |. LDY #0.... JSR|
000001c0  20 6f 73 62 79 74 65 0d  00 fa 30 20 4c 44 41 23  | osbyte...0 LDA#|
000001d0  35 3a 4c 44 41 23 31 3a  4c 44 59 23 30 3a 4a 53  |5:LDA#1:LDY#0:JS|
000001e0  52 6f 73 62 79 74 65 3a  4c 44 41 23 31 39 34 3a  |Rosbyte:LDA#194:|
000001f0  53 54 41 26 32 41 43 0d  01 04 1c 20 4c 44 41 23  |STA&2AC.... LDA#|
00000200  32 36 3a 4a 53 52 20 6f  73 77 72 63 68 20 5c ef  |26:JSR oswrch \.|
00000210  20 32 36 0d 01 0e 32 20  4c 44 41 20 23 36 3a 4c  | 26...2 LDA #6:L|
00000220  44 58 20 23 32 35 35 3a  4c 44 59 20 23 30 3a 4a  |DX #255:LDY #0:J|
00000230  53 52 20 6f 73 62 79 74  65 20 20 5c 2a 46 58 20  |SR osbyte  \*FX |
00000240  36 2c 32 35 35 0d 01 18  2e 20 4c 44 41 20 23 33  |6,255.... LDA #3|
00000250  3a 4c 44 58 20 23 31 30  3a 4c 44 59 20 23 30 3a  |:LDX #10:LDY #0:|
00000260  4a 53 52 20 6f 73 62 79  74 65 20 5c 2a 46 58 33  |JSR osbyte \*FX3|
00000270  2c 31 30 0d 01 22 47 20  4c 44 41 20 23 32 37 3a  |,10.."G LDA #27:|
00000280  4a 53 52 20 6f 73 77 72  63 68 3a 4c 44 41 20 23  |JSR oswrch:LDA #|
00000290  38 35 3a 4a 53 52 20 6f  73 77 72 63 68 3a 4c 44  |85:JSR oswrch:LD|
000002a0  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 20  |A #1:JSR oswrch |
000002b0  5c ef 20 32 37 2c 38 35  2c 31 0d 01 2c 47 20 4c  |\. 27,85,1..,G L|
000002c0  44 41 20 23 32 37 3a 4a  53 52 20 6f 73 77 72 63  |DA #27:JSR oswrc|
000002d0  68 3a 4c 44 41 20 23 35  31 3a 4a 53 52 20 6f 73  |h:LDA #51:JSR os|
000002e0  77 72 63 68 3a 4c 44 41  20 23 32 3a 4a 53 52 20  |wrch:LDA #2:JSR |
000002f0  6f 73 77 72 63 68 20 5c  ef 20 32 37 2c 36 35 2c  |oswrch \. 27,65,|
00000300  32 0d 01 36 39 20 4c 44  41 20 23 31 30 32 30 20  |2..69 LDA #1020 |
00000310  83 32 35 36 3a 53 54 41  20 79 3a 4c 44 41 20 23  |.256:STA y:LDA #|
00000320  31 30 32 30 20 81 32 35  36 3a 53 54 41 20 79 2b  |1020 .256:STA y+|
00000330  31 20 20 5c 79 3d 31 30  32 30 0d 01 40 0a 20 2e  |1  \y=1020..@. .|
00000340  6c 6f 6f 70 0d 01 4a 1d  20 4c 44 41 20 23 31 30  |loop..J. LDA #10|
00000350  3a 4a 53 52 20 6f 73 77  72 63 68 20 5c ef 20 31  |:JSR oswrch \. 1|
00000360  30 0d 01 54 77 20 4c 44  41 20 23 32 37 3a 4a 53  |0..Tw LDA #27:JS|
00000370  52 20 6f 73 77 72 63 68  3a 4c 44 41 20 23 37 36  |R oswrch:LDA #76|
00000380  3a 4a 53 52 20 6f 73 77  72 63 68 3a 4c 44 41 20  |:JSR oswrch:LDA |
00000390  23 33 32 30 20 83 32 35  36 3a 4a 53 52 20 6f 73  |#320 .256:JSR os|
000003a0  77 72 63 68 3a 4c 44 41  20 23 33 32 30 20 81 32  |wrch:LDA #320 .2|
000003b0  35 36 3a 4a 53 52 20 6f  73 77 72 63 68 20 5c ef  |56:JSR oswrch \.|
000003c0  20 32 37 2c 37 36 2c 33  32 30 20 83 32 35 36 2c  | 27,76,320 .256,|
000003d0  33 32 30 20 81 32 35 36  0d 01 5e 1f 20 4c 44 41  |320 .256..^. LDA|
000003e0  20 23 30 3a 53 54 41 20  78 3a 53 54 41 20 78 2b  | #0:STA x:STA x+|
000003f0  31 20 20 5c 78 3d 30 0d  01 68 0b 20 2e 6c 6f 6f  |1  \x=0..h. .loo|
00000400  70 31 0d 01 72 28 20 4c  44 41 20 78 3a 53 54 41  |p1..r( LDA x:STA|
00000410  20 62 6c 6f 63 6b 3a 4c  44 41 20 78 2b 31 3a 53  | block:LDA x+1:S|
00000420  54 41 20 62 6c 6f 63 6b  2b 31 0d 01 7c 2a 20 4c  |TA block+1..|* L|
00000430  44 41 20 79 3a 53 54 41  20 62 6c 6f 63 6b 2b 32  |DA y:STA block+2|
00000440  3a 4c 44 41 20 79 2b 31  3a 53 54 41 20 62 6c 6f  |:LDA y+1:STA blo|
00000450  63 6b 2b 33 0d 01 86 3e  20 4c 44 41 20 23 39 3a  |ck+3...> LDA #9:|
00000460  4c 44 58 20 23 62 6c 6f  63 6b 20 83 32 35 36 3a  |LDX #block .256:|
00000470  4c 44 59 20 23 62 6c 6f  63 6b 20 81 32 35 36 3a  |LDY #block .256:|
00000480  4a 53 52 20 6f 73 77 6f  72 64 20 20 5c 50 4f 49  |JSR osword  \POI|
00000490  4e 54 0d 01 90 30 20 4c  44 41 20 62 6c 6f 63 6b  |NT...0 LDA block|
000004a0  2b 34 3a 80 20 23 37 3a  54 41 58 3a 4c 44 59 20  |+4:. #7:TAX:LDY |
000004b0  6d 75 6c 74 2c 58 20 20  5c 59 3d 50 4f 49 4e 54  |mult,X  \Y=POINT|
000004c0  2a 36 0d 01 9a 0b 20 4c  44 58 20 23 32 0d 01 a4  |*6.... LDX #2...|
000004d0  0b 20 2e 6c 6f 6f 70 32  0d 01 ae 1a 20 4c 44 41  |. .loop2.... LDA|
000004e0  20 64 61 74 61 2c 59 3a  4a 53 52 20 6f 73 77 72  | data,Y:JSR oswr|
000004f0  63 68 0d 01 b8 16 20 49  4e 59 3a 44 45 58 3a 42  |ch.... INY:DEX:B|
00000500  4e 45 20 6c 6f 6f 70 32  0d 01 c2 3a 20 43 4c 43  |NE loop2...: CLC|
00000510  3a 4c 44 41 20 78 3a 41  44 43 20 23 38 3a 53 54  |:LDA x:ADC #8:ST|
00000520  41 20 78 3a 4c 44 41 20  78 2b 31 3a 41 44 43 20  |A x:LDA x+1:ADC |
00000530  23 30 3a 53 54 41 20 78  2b 31 20 20 5c 78 3d 78  |#0:STA x+1  \x=x|
00000540  2b 38 0d 01 cc 1d 20 43  4d 50 20 23 31 32 38 30  |+8.... CMP #1280|
00000550  20 81 32 35 36 3a 42 4e  45 20 6c 6f 6f 70 31 0d  | .256:BNE loop1.|
00000560  01 d6 3a 20 53 45 43 3a  4c 44 41 20 79 3a 53 42  |..: SEC:LDA y:SB|
00000570  43 20 23 34 3a 53 54 41  20 79 3a 4c 44 41 20 79  |C #4:STA y:LDA y|
00000580  2b 31 3a 53 42 43 20 23  30 3a 53 54 41 20 79 2b  |+1:SBC #0:STA y+|
00000590  31 20 20 5c 79 3d 79 2d  34 0d 01 e0 0d 20 42 4e  |1  \y=y-4.... BN|
000005a0  45 20 6a 75 6d 70 0d 01  ea 13 20 4c 44 41 20 79  |E jump.... LDA y|
000005b0  3a 42 4e 45 20 6a 75 6d  70 0d 01 f4 20 20 4a 4d  |:BNE jump...  JM|
000005c0  50 20 65 6e 64 3a 2e 6a  75 6d 70 20 4a 4d 50 20  |P end:.jump JMP |
000005d0  6c 6f 6f 70 3a 2e 65 6e  64 0d 01 fe 2d 20 4c 44  |loop:.end...- LD|
000005e0  41 20 23 33 3a 4c 44 58  20 23 30 3a 4c 44 59 20  |A #3:LDX #0:LDY |
000005f0  23 30 3a 4a 53 52 20 6f  73 62 79 74 65 20 20 5c  |#0:JSR osbyte  \|
00000600  2a 46 58 33 2c 30 0d 02  08 0f 20 4a 4d 50 20 72  |*FX3,0.... JMP r|
00000610  65 74 75 72 6e 0d 02 12  0a 20 2e 6d 75 6c 74 0d  |eturn.... .mult.|
00000620  02 1c 26 20 45 51 55 42  20 30 3a 45 51 55 42 20  |..& EQUB 0:EQUB |
00000630  35 2a 36 3a 45 51 55 42  20 36 2a 36 3a 45 51 55  |5*6:EQUB 6*6:EQU|
00000640  42 20 37 2a 36 0d 02 26  05 20 0d 02 30 0a 20 2e  |B 7*6..&. ..0. .|
00000650  64 61 74 61 0d 02 3a 2e  20 45 51 55 42 20 30 3a  |data..:. EQUB 0:|
00000660  45 51 55 42 20 30 3a 45  51 55 42 20 30 3a 45 51  |EQUB 0:EQUB 0:EQ|
00000670  55 42 20 30 3a 45 51 55  42 20 30 3a 45 51 55 42  |UB 0:EQUB 0:EQUB|
00000680  20 30 0d 02 44 2e 20 45  51 55 42 20 30 3a 45 51  | 0..D. EQUB 0:EQ|
00000690  55 42 20 31 3a 45 51 55  42 20 30 3a 45 51 55 42  |UB 1:EQUB 0:EQUB|
000006a0  20 30 3a 45 51 55 42 20  31 3a 45 51 55 42 20 30  | 0:EQUB 1:EQUB 0|
000006b0  0d 02 4e 2e 20 45 51 55  42 20 31 3a 45 51 55 42  |..N. EQUB 1:EQUB|
000006c0  20 30 3a 45 51 55 42 20  32 3a 45 51 55 42 20 32  | 0:EQUB 2:EQUB 2|
000006d0  3a 45 51 55 42 20 30 3a  45 51 55 42 20 31 0d 02  |:EQUB 0:EQUB 1..|
000006e0  58 2e 20 45 51 55 42 20  30 3a 45 51 55 42 20 33  |X. EQUB 0:EQUB 3|
000006f0  3a 45 51 55 42 20 30 3a  45 51 55 42 20 30 3a 45  |:EQUB 0:EQUB 0:E|
00000700  51 55 42 20 33 3a 45 51  55 42 20 30 0d 02 62 2e  |QUB 3:EQUB 0..b.|
00000710  20 45 51 55 42 20 31 3a  45 51 55 42 20 31 3a 45  | EQUB 1:EQUB 1:E|
00000720  51 55 42 20 31 3a 45 51  55 42 20 31 3a 45 51 55  |QUB 1:EQUB 1:EQU|
00000730  42 20 31 3a 45 51 55 42  20 31 0d 02 6c 2e 20 45  |B 1:EQUB 1..l. E|
00000740  51 55 42 20 31 3a 45 51  55 42 20 30 3a 45 51 55  |QUB 1:EQUB 0:EQU|
00000750  42 20 33 3a 45 51 55 42  20 30 3a 45 51 55 42 20  |B 3:EQUB 0:EQUB |
00000760  33 3a 45 51 55 42 20 30  0d 02 76 2e 20 45 51 55  |3:EQUB 0..v. EQU|
00000770  42 20 30 3a 45 51 55 42  20 31 3a 45 51 55 42 20  |B 0:EQUB 1:EQUB |
00000780  32 3a 45 51 55 42 20 31  3a 45 51 55 42 20 33 3a  |2:EQUB 1:EQUB 3:|
00000790  45 51 55 42 20 32 0d 02  80 2e 20 45 51 55 42 20  |EQUB 2.... EQUB |
000007a0  31 3a 45 51 55 42 20 31  3a 45 51 55 42 20 33 3a  |1:EQUB 1:EQUB 3:|
000007b0  45 51 55 42 20 33 3a 45  51 55 42 20 33 3a 45 51  |EQUB 3:EQUB 3:EQ|
000007c0  55 42 20 33 0d 02 8a 0c  20 2e 72 65 74 75 72 6e  |UB 3.... .return|
000007d0  0d 02 94 0c 20 4c 44 41  20 23 31 34 0d 02 9e 0b  |.... LDA #14....|
000007e0  20 4c 44 58 20 23 34 0d  02 a8 0b 20 4c 44 59 20  | LDX #4.... LDY |
000007f0  23 30 0d 02 b2 0f 20 4a  53 52 20 6f 73 62 79 74  |#0.... JSR osbyt|
00000800  65 0d 02 b7 30 20 4c 44  41 23 63 6f 64 65 20 83  |e...0 LDA#code .|
00000810  32 35 36 3a 53 54 41 26  32 32 38 3a 4c 44 41 23  |256:STA&228:LDA#|
00000820  63 6f 64 65 20 81 32 35  36 3a 53 54 41 26 32 32  |code .256:STA&22|
00000830  39 0d 02 bc 1c 20 50 4c  41 3a 54 41 58 3a 50 4c  |9.... PLA:TAX:PL|
00000840  41 3a 54 41 59 3a 50 4c  50 3a 50 4c 41 0d 02 c6  |A:TAY:PLP:PLA...|
00000850  0d 20 4a 4d 50 26 45 41  44 46 0d 02 da 2d 20 2e  |. JMP&EADF...- .|
00000860  78 20 45 51 55 42 20 30  3a 45 51 55 42 20 30 3a  |x EQUB 0:EQUB 0:|
00000870  2e 79 20 45 51 55 42 20  30 3a 45 51 55 42 20 30  |.y EQUB 0:EQUB 0|
00000880  3a 2e 62 6c 6f 63 6b 0d  02 e4 06 20 5d 0d 02 ee  |:.block.... ]...|
00000890  06 20 ed 0d 02 f8 14 20  3f 26 32 32 38 3d 63 6f  |. ..... ?&228=co|
000008a0  64 65 20 83 32 35 36 0d  02 fd 14 20 3f 26 32 32  |de .256.... ?&22|
000008b0  39 3d 63 6f 64 65 20 81  32 35 36 0d 03 02 0d 20  |9=code .256.... |
000008c0  2a 46 58 20 31 34 2c 34  0d ff                    |*FX 14,4..|
000008ca