� *** 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 x=&70:y=&72:block=&80
x � i=0 � 2 � 2
� 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

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

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

JG LDA #27:JSR oswrch:LDA #85:JSR oswrch:LDA #1:JSR oswrch \� 27,85,1

TG 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

h
 .loop

r LDA #10:JSR oswrch \� 10

|w 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

� .loop1

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