� *** 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:TYA:PHA:TXA:PHA
�
 LDA #&81
�
 LDX #&FE
�
 LDY #&FF
� JSR osbyte
� TYA
� BNE cont:JMP return:.cont
� LDA #13
� LDX #4
� LDY #0
� JSR osbyte
� 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

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

6
 .loop

@ LDA #10:JSR oswrch \� 10

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

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

^ .loop1

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

r* 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 #4:LDY #0:JSR osbyte  \*FX3,4

� JMP return

 .mult
& EQUB 0:EQUB 5*6:EQUB 6*6:EQUB 7*6
 
&
 .data
0. EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0
:. EQUB 0:EQUB 1:EQUB 0:EQUB 0:EQUB 1:EQUB 0
D. EQUB 1:EQUB 0:EQUB 2:EQUB 2:EQUB 0:EQUB 1
N. EQUB 0:EQUB 3:EQUB 0:EQUB 0:EQUB 3:EQUB 0
X. EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1
b. EQUB 1:EQUB 0:EQUB 3:EQUB 0:EQUB 3:EQUB 0
l. EQUB 0:EQUB 1:EQUB 2:EQUB 1:EQUB 3:EQUB 2
v. EQUB 1:EQUB 1:EQUB 3:EQUB 3:EQUB 3:EQUB 3
� .return
� LDA #14
� LDX #4
� LDY #0
� JSR osbyte
� PLA:TAX:PLA:TAY:PLA
� RTS
�- .x EQUB 0:EQUB 0:.y EQUB 0:EQUB 0:.block
� ]
� �
� ?&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 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 18 20 50  |.. [ OPT i.... P|
00000100  48 41 3a 54 59 41 3a 50  48 41 3a 54 58 41 3a 50  |HA:TYA:PHA:TXA:P|
00000110  48 41 0d 00 96 0d 20 4c  44 41 20 23 26 38 31 0d  |HA.... LDA #&81.|
00000120  00 a0 0d 20 4c 44 58 20  23 26 46 45 0d 00 aa 0d  |... LDX #&FE....|
00000130  20 4c 44 59 20 23 26 46  46 0d 00 b4 0f 20 4a 53  | LDY #&FF.... JS|
00000140  52 20 6f 73 62 79 74 65  0d 00 be 08 20 54 59 41  |R osbyte.... TYA|
00000150  0d 00 c8 1e 20 42 4e 45  20 63 6f 6e 74 3a 4a 4d  |.... BNE cont:JM|
00000160  50 20 72 65 74 75 72 6e  3a 2e 63 6f 6e 74 0d 00  |P return:.cont..|
00000170  d2 0c 20 4c 44 41 20 23  31 33 0d 00 dc 0b 20 4c  |.. LDA #13.... L|
00000180  44 58 20 23 34 0d 00 e6  0b 20 4c 44 59 20 23 30  |DX #4.... LDY #0|
00000190  0d 00 f0 0f 20 4a 53 52  20 6f 73 62 79 74 65 0d  |.... JSR osbyte.|
000001a0  00 fa 1c 20 4c 44 41 23  32 36 3a 4a 53 52 20 6f  |... LDA#26:JSR o|
000001b0  73 77 72 63 68 20 5c ef  20 32 36 0d 01 04 32 20  |swrch \. 26...2 |
000001c0  4c 44 41 20 23 36 3a 4c  44 58 20 23 32 35 35 3a  |LDA #6:LDX #255:|
000001d0  4c 44 59 20 23 30 3a 4a  53 52 20 6f 73 62 79 74  |LDY #0:JSR osbyt|
000001e0  65 20 20 5c 2a 46 58 20  36 2c 32 35 35 0d 01 0e  |e  \*FX 6,255...|
000001f0  2e 20 4c 44 41 20 23 33  3a 4c 44 58 20 23 31 30  |. LDA #3:LDX #10|
00000200  3a 4c 44 59 20 23 30 3a  4a 53 52 20 6f 73 62 79  |:LDY #0:JSR osby|
00000210  74 65 20 5c 2a 46 58 33  2c 31 30 0d 01 18 47 20  |te \*FX3,10...G |
00000220  4c 44 41 20 23 32 37 3a  4a 53 52 20 6f 73 77 72  |LDA #27:JSR oswr|
00000230  63 68 3a 4c 44 41 20 23  38 35 3a 4a 53 52 20 6f  |ch:LDA #85:JSR o|
00000240  73 77 72 63 68 3a 4c 44  41 20 23 31 3a 4a 53 52  |swrch:LDA #1:JSR|
00000250  20 6f 73 77 72 63 68 20  5c ef 20 32 37 2c 38 35  | oswrch \. 27,85|
00000260  2c 31 0d 01 22 47 20 4c  44 41 20 23 32 37 3a 4a  |,1.."G LDA #27:J|
00000270  53 52 20 6f 73 77 72 63  68 3a 4c 44 41 20 23 35  |SR oswrch:LDA #5|
00000280  31 3a 4a 53 52 20 6f 73  77 72 63 68 3a 4c 44 41  |1:JSR oswrch:LDA|
00000290  20 23 32 3a 4a 53 52 20  6f 73 77 72 63 68 20 5c  | #2:JSR oswrch \|
000002a0  ef 20 32 37 2c 36 35 2c  32 0d 01 2c 39 20 4c 44  |. 27,65,2..,9 LD|
000002b0  41 20 23 31 30 32 30 20  83 32 35 36 3a 53 54 41  |A #1020 .256:STA|
000002c0  20 79 3a 4c 44 41 20 23  31 30 32 30 20 81 32 35  | y:LDA #1020 .25|
000002d0  36 3a 53 54 41 20 79 2b  31 20 20 5c 79 3d 31 30  |6:STA y+1  \y=10|
000002e0  32 30 0d 01 36 0a 20 2e  6c 6f 6f 70 0d 01 40 1d  |20..6. .loop..@.|
000002f0  20 4c 44 41 20 23 31 30  3a 4a 53 52 20 6f 73 77  | LDA #10:JSR osw|
00000300  72 63 68 20 5c ef 20 31  30 0d 01 4a 77 20 4c 44  |rch \. 10..Jw LD|
00000310  41 20 23 32 37 3a 4a 53  52 20 6f 73 77 72 63 68  |A #27:JSR oswrch|
00000320  3a 4c 44 41 20 23 37 36  3a 4a 53 52 20 6f 73 77  |:LDA #76:JSR osw|
00000330  72 63 68 3a 4c 44 41 20  23 33 32 30 20 83 32 35  |rch:LDA #320 .25|
00000340  36 3a 4a 53 52 20 6f 73  77 72 63 68 3a 4c 44 41  |6:JSR oswrch:LDA|
00000350  20 23 33 32 30 20 81 32  35 36 3a 4a 53 52 20 6f  | #320 .256:JSR o|
00000360  73 77 72 63 68 20 5c ef  20 32 37 2c 37 36 2c 33  |swrch \. 27,76,3|
00000370  32 30 20 83 32 35 36 2c  33 32 30 20 81 32 35 36  |20 .256,320 .256|
00000380  0d 01 54 1f 20 4c 44 41  20 23 30 3a 53 54 41 20  |..T. LDA #0:STA |
00000390  78 3a 53 54 41 20 78 2b  31 20 20 5c 78 3d 30 0d  |x:STA x+1  \x=0.|
000003a0  01 5e 0b 20 2e 6c 6f 6f  70 31 0d 01 68 28 20 4c  |.^. .loop1..h( L|
000003b0  44 41 20 78 3a 53 54 41  20 62 6c 6f 63 6b 3a 4c  |DA x:STA block:L|
000003c0  44 41 20 78 2b 31 3a 53  54 41 20 62 6c 6f 63 6b  |DA x+1:STA block|
000003d0  2b 31 0d 01 72 2a 20 4c  44 41 20 79 3a 53 54 41  |+1..r* LDA y:STA|
000003e0  20 62 6c 6f 63 6b 2b 32  3a 4c 44 41 20 79 2b 31  | block+2:LDA y+1|
000003f0  3a 53 54 41 20 62 6c 6f  63 6b 2b 33 0d 01 7c 3e  |:STA block+3..|>|
00000400  20 4c 44 41 20 23 39 3a  4c 44 58 20 23 62 6c 6f  | LDA #9:LDX #blo|
00000410  63 6b 20 83 32 35 36 3a  4c 44 59 20 23 62 6c 6f  |ck .256:LDY #blo|
00000420  63 6b 20 81 32 35 36 3a  4a 53 52 20 6f 73 77 6f  |ck .256:JSR oswo|
00000430  72 64 20 20 5c 50 4f 49  4e 54 0d 01 86 30 20 4c  |rd  \POINT...0 L|
00000440  44 41 20 62 6c 6f 63 6b  2b 34 3a 80 20 23 37 3a  |DA block+4:. #7:|
00000450  54 41 58 3a 4c 44 59 20  6d 75 6c 74 2c 58 20 20  |TAX:LDY mult,X  |
00000460  5c 59 3d 50 4f 49 4e 54  2a 36 0d 01 90 0b 20 4c  |\Y=POINT*6.... L|
00000470  44 58 20 23 32 0d 01 9a  0b 20 2e 6c 6f 6f 70 32  |DX #2.... .loop2|
00000480  0d 01 a4 1a 20 4c 44 41  20 64 61 74 61 2c 59 3a  |.... LDA data,Y:|
00000490  4a 53 52 20 6f 73 77 72  63 68 0d 01 ae 16 20 49  |JSR oswrch.... I|
000004a0  4e 59 3a 44 45 58 3a 42  4e 45 20 6c 6f 6f 70 32  |NY:DEX:BNE loop2|
000004b0  0d 01 b8 3a 20 43 4c 43  3a 4c 44 41 20 78 3a 41  |...: CLC:LDA x:A|
000004c0  44 43 20 23 38 3a 53 54  41 20 78 3a 4c 44 41 20  |DC #8:STA x:LDA |
000004d0  78 2b 31 3a 41 44 43 20  23 30 3a 53 54 41 20 78  |x+1:ADC #0:STA x|
000004e0  2b 31 20 20 5c 78 3d 78  2b 38 0d 01 c2 1d 20 43  |+1  \x=x+8.... C|
000004f0  4d 50 20 23 31 32 38 30  20 81 32 35 36 3a 42 4e  |MP #1280 .256:BN|
00000500  45 20 6c 6f 6f 70 31 0d  01 cc 3a 20 53 45 43 3a  |E loop1...: SEC:|
00000510  4c 44 41 20 79 3a 53 42  43 20 23 34 3a 53 54 41  |LDA y:SBC #4:STA|
00000520  20 79 3a 4c 44 41 20 79  2b 31 3a 53 42 43 20 23  | y:LDA y+1:SBC #|
00000530  30 3a 53 54 41 20 79 2b  31 20 20 5c 79 3d 79 2d  |0:STA y+1  \y=y-|
00000540  34 0d 01 d6 0d 20 42 4e  45 20 6a 75 6d 70 0d 01  |4.... BNE jump..|
00000550  e0 13 20 4c 44 41 20 79  3a 42 4e 45 20 6a 75 6d  |.. LDA y:BNE jum|
00000560  70 0d 01 ea 20 20 4a 4d  50 20 65 6e 64 3a 2e 6a  |p...  JMP end:.j|
00000570  75 6d 70 20 4a 4d 50 20  6c 6f 6f 70 3a 2e 65 6e  |ump JMP loop:.en|
00000580  64 0d 01 f4 2d 20 4c 44  41 20 23 33 3a 4c 44 58  |d...- LDA #3:LDX|
00000590  20 23 34 3a 4c 44 59 20  23 30 3a 4a 53 52 20 6f  | #4:LDY #0:JSR o|
000005a0  73 62 79 74 65 20 20 5c  2a 46 58 33 2c 34 0d 01  |sbyte  \*FX3,4..|
000005b0  fe 0f 20 4a 4d 50 20 72  65 74 75 72 6e 0d 02 08  |.. JMP return...|
000005c0  0a 20 2e 6d 75 6c 74 0d  02 12 26 20 45 51 55 42  |. .mult...& EQUB|
000005d0  20 30 3a 45 51 55 42 20  35 2a 36 3a 45 51 55 42  | 0:EQUB 5*6:EQUB|
000005e0  20 36 2a 36 3a 45 51 55  42 20 37 2a 36 0d 02 1c  | 6*6:EQUB 7*6...|
000005f0  05 20 0d 02 26 0a 20 2e  64 61 74 61 0d 02 30 2e  |. ..&. .data..0.|
00000600  20 45 51 55 42 20 30 3a  45 51 55 42 20 30 3a 45  | EQUB 0:EQUB 0:E|
00000610  51 55 42 20 30 3a 45 51  55 42 20 30 3a 45 51 55  |QUB 0:EQUB 0:EQU|
00000620  42 20 30 3a 45 51 55 42  20 30 0d 02 3a 2e 20 45  |B 0:EQUB 0..:. E|
00000630  51 55 42 20 30 3a 45 51  55 42 20 31 3a 45 51 55  |QUB 0:EQUB 1:EQU|
00000640  42 20 30 3a 45 51 55 42  20 30 3a 45 51 55 42 20  |B 0:EQUB 0:EQUB |
00000650  31 3a 45 51 55 42 20 30  0d 02 44 2e 20 45 51 55  |1:EQUB 0..D. EQU|
00000660  42 20 31 3a 45 51 55 42  20 30 3a 45 51 55 42 20  |B 1:EQUB 0:EQUB |
00000670  32 3a 45 51 55 42 20 32  3a 45 51 55 42 20 30 3a  |2:EQUB 2:EQUB 0:|
00000680  45 51 55 42 20 31 0d 02  4e 2e 20 45 51 55 42 20  |EQUB 1..N. EQUB |
00000690  30 3a 45 51 55 42 20 33  3a 45 51 55 42 20 30 3a  |0:EQUB 3:EQUB 0:|
000006a0  45 51 55 42 20 30 3a 45  51 55 42 20 33 3a 45 51  |EQUB 0:EQUB 3:EQ|
000006b0  55 42 20 30 0d 02 58 2e  20 45 51 55 42 20 31 3a  |UB 0..X. EQUB 1:|
000006c0  45 51 55 42 20 31 3a 45  51 55 42 20 31 3a 45 51  |EQUB 1:EQUB 1:EQ|
000006d0  55 42 20 31 3a 45 51 55  42 20 31 3a 45 51 55 42  |UB 1:EQUB 1:EQUB|
000006e0  20 31 0d 02 62 2e 20 45  51 55 42 20 31 3a 45 51  | 1..b. EQUB 1:EQ|
000006f0  55 42 20 30 3a 45 51 55  42 20 33 3a 45 51 55 42  |UB 0:EQUB 3:EQUB|
00000700  20 30 3a 45 51 55 42 20  33 3a 45 51 55 42 20 30  | 0:EQUB 3:EQUB 0|
00000710  0d 02 6c 2e 20 45 51 55  42 20 30 3a 45 51 55 42  |..l. EQUB 0:EQUB|
00000720  20 31 3a 45 51 55 42 20  32 3a 45 51 55 42 20 31  | 1:EQUB 2:EQUB 1|
00000730  3a 45 51 55 42 20 33 3a  45 51 55 42 20 32 0d 02  |:EQUB 3:EQUB 2..|
00000740  76 2e 20 45 51 55 42 20  31 3a 45 51 55 42 20 31  |v. EQUB 1:EQUB 1|
00000750  3a 45 51 55 42 20 33 3a  45 51 55 42 20 33 3a 45  |:EQUB 3:EQUB 3:E|
00000760  51 55 42 20 33 3a 45 51  55 42 20 33 0d 02 80 0c  |QUB 3:EQUB 3....|
00000770  20 2e 72 65 74 75 72 6e  0d 02 8a 0c 20 4c 44 41  | .return.... LDA|
00000780  20 23 31 34 0d 02 94 0b  20 4c 44 58 20 23 34 0d  | #14.... LDX #4.|
00000790  02 9e 0b 20 4c 44 59 20  23 30 0d 02 a8 0f 20 4a  |... LDY #0.... J|
000007a0  53 52 20 6f 73 62 79 74  65 0d 02 b2 18 20 50 4c  |SR osbyte.... PL|
000007b0  41 3a 54 41 58 3a 50 4c  41 3a 54 41 59 3a 50 4c  |A:TAX:PLA:TAY:PL|
000007c0  41 0d 02 bc 08 20 52 54  53 0d 02 c6 2d 20 2e 78  |A.... RTS...- .x|
000007d0  20 45 51 55 42 20 30 3a  45 51 55 42 20 30 3a 2e  | EQUB 0:EQUB 0:.|
000007e0  79 20 45 51 55 42 20 30  3a 45 51 55 42 20 30 3a  |y EQUB 0:EQUB 0:|
000007f0  2e 62 6c 6f 63 6b 0d 02  d0 06 20 5d 0d 02 da 06  |.block.... ]....|
00000800  20 ed 0d 02 e4 14 20 3f  26 32 32 30 3d 63 6f 64  | ..... ?&220=cod|
00000810  65 20 83 32 35 36 0d 02  ee 14 20 3f 26 32 32 31  |e .256.... ?&221|
00000820  3d 63 6f 64 65 20 81 32  35 36 0d 02 f8 0d 20 2a  |=code .256.... *|
00000830  46 58 20 31 34 2c 34 0d  ff                       |FX 14,4..|
00000839