"� ****************************
� Screen Dump Source
� Adaptable for Pos/Neg and
(� partial screen printing
-"� Mod of UDump, E.U. June 1986
2� by R.A.Dimond
<� (c) Feb 1994
F"� ****************************
P:
Z�6
d	�vars
n(�5,1)"Adaptable Screen Dump Source"
x(�5,2)"~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
�$�''"Which MODE? (0,1,2,4,or 5) "
��:m%=�"01245",�):�m%
�#�'"Positive or Negative (P/N) "
��:a%=�"PpNn",�):�a%
��a%<3 pos%=�
��''"X start  (0-79) "xs%
��xs%<0 � xs%>79 �tt@
�Xs%=16*xs%
��'"X finish (0-79) "xf%
��xf%<0 � xf%>79 �dR@
�Xf%=16*(xf%+1)
��'"Y start  (0-31) "ys%
��ys%<0 � ys%>31 �dp@

Ys%=32*(32-ys%)-4

�'"Y finish (0-31) "yf%

�yf%<0 � yf%>31 �TNA

"Yf%=32*(31-yf%)-4

,dpl%=(Xf%-Xs%)/2

6.�m%=1 �0 ��m%=2 �1 ��m%=3 �2 ��m%=4 �4 ��5

@
�assem

J�'"Filename to print? "fp$

T� M%

^�"LOAD "+fp$

h	�code

r,�6:�''"Do you want SAVE the code? (Y/N)"

|�:b%=�"YyNn",�):�b%

��b%>2 �

��'"Filename to SAVE? "file$

�4�"SAVE "+file$+" "+�~pattern+" "+�~P%+" "+�~code

��

�:

���vars:pos%=�

�*osword=&FFF1:oswrch=&FFEE:osbyte=&FFF4

�#Xlo=&70:Xhi=&71:Ylo=&72:Yhi=&73

�YYlo=&80:YYhi=&81

� tint=&74:count=&75:octet=&76

�,pattern=&900:set=pattern+8:pix=pattern+9

�code=pattern+10

��
��assem
�i=0�2�2
P%=code
&	[OPTi
0(LDA#26:JSRoswrch \Set default screen
:LDA#2:JSRoswrch \Printer on
D.clear JSRnext
N.line JSResc
XLDA#65:JSRoswrch
bLDA#1:JSRoswrch
lLDA#8:JSRoswrch
v.load LDA#Ys% �256:STA YYlo
�&LDA#Ys% �256:STA YYhi \Start Y=Ys%
�.newl LDA#Xs% �256:STA Xlo
�%LDA#Xs% �256:STA Xhi \Start X=Xs%
�.bit JSResc
�LDA#42:JSRoswrch
�LDA#1:JSRoswrch
�LDA#4:JSRoswrch
�LDA#1:JSRoswrch
�LDA#dpl% �256:JSRoswrch
�LDA#1:JSRoswrch
�0LDA#dpl% �256:JSRoswrch \ dots per line=dpl%
�.start LDA#4:STAcount
�LDA YYlo:STA Ylo
LDA YYhi:STA Yhi
.test LDX#&70:LDY#0:LDA#9
.JSRosword  \Logical colour returned in &74
 <LDAtint:�#7:TAY \Logical colour used as index to pattern
*.byte LDX#0
4LDApattern,Y
>4.loop1 LSR A:ROLoctet,X \ROL requires X register
HKLSR A:ROLoctet,X  \2 bits transferred from pattern to each byte in turn
RINX:CPXset
\BNEloop1
f.loop2 DECcount
pBEQprint
zLDA Ylo
�
SEC:SBC#4
�STA Ylo
�LDA Yhi:SBC#0
�STA Yhi
�JMPtest
�.print LDX#0
�.loop3 LDA#1:JSRoswrch
�LDAoctet,X:JSRoswrch
�INX:CPXset
�BNEloop3
�.xloop LDA Xlo
�CLC:ADCpix
�STA Xlo
LDA Xhi:ADC#0
&STA Xhi \Increment X to next pixel
!LDA#Xf% �256:CMP Xlo:BNEstart
$7LDA#Xf% �256:CMP Xhi:BNEstart \End of line? (X=Xf%)
.JSRnext  \Start new line
8.yloop LDA YYlo
BSEC:SBC#16
LSTA YYlo
VLDA YYhi:SBC#0
`STA YYhi  \Down 4 pixels
j]
t� Yf%<0 �neg � �pos
~	[OPTi
�%.cont JMPnewl \Otherwise continue
�.end LDA#1:JSRoswrch
�LDA#7:JSRoswrch \Beep
�
JSResc
�7LDA#64:JSRoswrch \Return printer to default setting
�$LDA#3:JSRoswrch \And printer off
�RTS
�.esc LDA#1:JSRoswrch
�LDA#27:JSRoswrch
�LDA#1:JSRoswrch
�RTS
�.next LDA#1:JSRoswrch
LDA#10:JSRoswrch

RTS
]
�
(�
2
� �pos
<	[OPTi
F!LDA#Yf% �256:CMP YYlo:BNEcont
P3LDA#Yf% �256:CMP YYhi:BEQend \Finish when Y=Yf%
Z]:�
d
� �neg
n	[OPTi
xBCCend \Finish when Yf%<0
�]:�
�:
���0
�2� pos% !pattern=&000000FF � !pattern=&FFFFFF00
�!(pattern+4)=&00000000
�?set=1:?pix=2
�
M%=0:�
�:
���1
�2� pos% !pattern=&009911FF � !pattern=&FF119900
�!(pattern+4)=&00000000
�?set=2:?pix=4
�
M%=1:�
:
��2
`� pos% !pattern=&5755C3FF:!(pattern+4)=&00991101 � !pattern=&01119900:!(pattern+4)=&FFC35557
"?set=4:?pix=8
,
M%=2:�
6:
@��4
J2� pos% !pattern=&000000FF � !pattern=&FFFFFF00
T!(pattern+4)=&00000000
^?set=2:?pix=4
h
M%=4:�
r:
|��5
�2� pos% !pattern=&009911FF � !pattern=&FF119900
�!(pattern+4)=&00000000
�?set=4:?pix=8
�
M%=5:�
�

00000000  0d 00 0a 22 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...". **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 2a 0d 00 14 18 f4 20  53 63 72 65 65 6e 20 44  |**..... Screen D|
00000030  75 6d 70 20 53 6f 75 72  63 65 0d 00 1e 1f f4 20  |ump Source..... |
00000040  41 64 61 70 74 61 62 6c  65 20 66 6f 72 20 50 6f  |Adaptable for Po|
00000050  73 2f 4e 65 67 20 61 6e  64 0d 00 28 1d f4 20 70  |s/Neg and..(.. p|
00000060  61 72 74 69 61 6c 20 73  63 72 65 65 6e 20 70 72  |artial screen pr|
00000070  69 6e 74 69 6e 67 0d 00  2d 22 f4 20 4d 6f 64 20  |inting..-". Mod |
00000080  6f 66 20 55 44 75 6d 70  2c 20 45 2e 55 2e 20 4a  |of UDump, E.U. J|
00000090  75 6e 65 20 31 39 38 36  0d 00 32 13 f4 20 62 79  |une 1986..2.. by|
000000a0  20 52 2e 41 2e 44 69 6d  6f 6e 64 0d 00 3c 12 f4  | R.A.Dimond..<..|
000000b0  20 28 63 29 20 46 65 62  20 31 39 39 34 0d 00 46  | (c) Feb 1994..F|
000000c0  22 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |". *************|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
000000e0  00 50 05 3a 0d 00 5a 06  eb 36 0d 00 64 09 f2 76  |.P.:..Z..6..d..v|
000000f0  61 72 73 0d 00 6e 28 f1  8a 35 2c 31 29 22 41 64  |ars..n(..5,1)"Ad|
00000100  61 70 74 61 62 6c 65 20  53 63 72 65 65 6e 20 44  |aptable Screen D|
00000110  75 6d 70 20 53 6f 75 72  63 65 22 0d 00 78 28 f1  |ump Source"..x(.|
00000120  8a 35 2c 32 29 22 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |.5,2)"~~~~~~~~~~|
00000130  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~~~~~~~~~~~~~~~~|
00000140  7e 7e 22 0d 00 82 24 f1  27 27 22 57 68 69 63 68  |~~"...$.''"Which|
00000150  20 4d 4f 44 45 3f 20 28  30 2c 31 2c 32 2c 34 2c  | MODE? (0,1,2,4,|
00000160  6f 72 20 35 29 20 22 0d  00 8c 18 f5 3a 6d 25 3d  |or 5) ".....:m%=|
00000170  a7 22 30 31 32 34 35 22  2c be 29 3a fd 6d 25 0d  |."01245",.):.m%.|
00000180  00 96 23 f1 27 22 50 6f  73 69 74 69 76 65 20 6f  |..#.'"Positive o|
00000190  72 20 4e 65 67 61 74 69  76 65 20 28 50 2f 4e 29  |r Negative (P/N)|
000001a0  20 22 0d 00 a0 17 f5 3a  61 25 3d a7 22 50 70 4e  | ".....:a%=."PpN|
000001b0  6e 22 2c be 29 3a fd 61  25 0d 00 aa 10 e7 61 25  |n",.):.a%.....a%|
000001c0  3c 33 20 70 6f 73 25 3d  b9 0d 00 b4 1c e8 27 27  |<3 pos%=......''|
000001d0  22 58 20 73 74 61 72 74  20 20 28 30 2d 37 39 29  |"X start  (0-79)|
000001e0  20 22 78 73 25 0d 00 be  19 e7 78 73 25 3c 30 20  | "xs%.....xs%<0 |
000001f0  84 20 78 73 25 3e 37 39  20 e5 8d 74 74 40 0d 00  |. xs%>79 ..tt@..|
00000200  c8 0e 58 73 25 3d 31 36  2a 78 73 25 0d 00 d2 1b  |..Xs%=16*xs%....|
00000210  e8 27 22 58 20 66 69 6e  69 73 68 20 28 30 2d 37  |.'"X finish (0-7|
00000220  39 29 20 22 78 66 25 0d  00 dc 19 e7 78 66 25 3c  |9) "xf%.....xf%<|
00000230  30 20 84 20 78 66 25 3e  37 39 20 e5 8d 64 52 40  |0 . xf%>79 ..dR@|
00000240  0d 00 e6 12 58 66 25 3d  31 36 2a 28 78 66 25 2b  |....Xf%=16*(xf%+|
00000250  31 29 0d 00 f0 1b e8 27  22 59 20 73 74 61 72 74  |1).....'"Y start|
00000260  20 20 28 30 2d 33 31 29  20 22 79 73 25 0d 00 fa  |  (0-31) "ys%...|
00000270  19 e7 79 73 25 3c 30 20  84 20 79 73 25 3e 33 31  |..ys%<0 . ys%>31|
00000280  20 e5 8d 64 70 40 0d 01  04 15 59 73 25 3d 33 32  | ..dp@....Ys%=32|
00000290  2a 28 33 32 2d 79 73 25  29 2d 34 0d 01 0e 1b e8  |*(32-ys%)-4.....|
000002a0  27 22 59 20 66 69 6e 69  73 68 20 28 30 2d 33 31  |'"Y finish (0-31|
000002b0  29 20 22 79 66 25 0d 01  18 19 e7 79 66 25 3c 30  |) "yf%.....yf%<0|
000002c0  20 84 20 79 66 25 3e 33  31 20 e5 8d 54 4e 41 0d  | . yf%>31 ..TNA.|
000002d0  01 22 15 59 66 25 3d 33  32 2a 28 33 31 2d 79 66  |.".Yf%=32*(31-yf|
000002e0  25 29 2d 34 0d 01 2c 14  64 70 6c 25 3d 28 58 66  |%)-4..,.dpl%=(Xf|
000002f0  25 2d 58 73 25 29 2f 32  0d 01 36 2e e7 6d 25 3d  |%-Xs%)/2..6..m%=|
00000300  31 20 f2 30 20 8b e7 6d  25 3d 32 20 f2 31 20 8b  |1 .0 ..m%=2 .1 .|
00000310  e7 6d 25 3d 33 20 f2 32  20 8b e7 6d 25 3d 34 20  |.m%=3 .2 ..m%=4 |
00000320  f2 34 20 8b f2 35 0d 01  40 0a f2 61 73 73 65 6d  |.4 ..5..@..assem|
00000330  0d 01 4a 1e e8 27 22 46  69 6c 65 6e 61 6d 65 20  |..J..'"Filename |
00000340  74 6f 20 70 72 69 6e 74  3f 20 22 66 70 24 0d 01  |to print? "fp$..|
00000350  54 08 eb 20 4d 25 0d 01  5e 10 ff 22 4c 4f 41 44  |T.. M%..^.."LOAD|
00000360  20 22 2b 66 70 24 0d 01  68 09 d6 63 6f 64 65 0d  | "+fp$..h..code.|
00000370  01 72 2c eb 36 3a f1 27  27 22 44 6f 20 79 6f 75  |.r,.6:.''"Do you|
00000380  20 77 61 6e 74 20 53 41  56 45 20 74 68 65 20 63  | want SAVE the c|
00000390  6f 64 65 3f 20 28 59 2f  4e 29 22 0d 01 7c 17 f5  |ode? (Y/N)"..|..|
000003a0  3a 62 25 3d a7 22 59 79  4e 6e 22 2c be 29 3a fd  |:b%=."YyNn",.):.|
000003b0  62 25 0d 01 86 0b e7 62  25 3e 32 20 e0 0d 01 90  |b%.....b%>2 ....|
000003c0  1f e8 27 22 46 69 6c 65  6e 61 6d 65 20 74 6f 20  |..'"Filename to |
000003d0  53 41 56 45 3f 20 22 66  69 6c 65 24 0d 01 9a 34  |SAVE? "file$...4|
000003e0  ff 22 53 41 56 45 20 22  2b 66 69 6c 65 24 2b 22  |."SAVE "+file$+"|
000003f0  20 22 2b c3 7e 70 61 74  74 65 72 6e 2b 22 20 22  | "+.~pattern+" "|
00000400  2b c3 7e 50 25 2b 22 20  22 2b c3 7e 63 6f 64 65  |+.~P%+" "+.~code|
00000410  0d 01 a4 05 e0 0d 01 ae  05 3a 0d 01 b8 11 dd f2  |.........:......|
00000420  76 61 72 73 3a 70 6f 73  25 3d a3 0d 01 c2 2a 6f  |vars:pos%=....*o|
00000430  73 77 6f 72 64 3d 26 46  46 46 31 3a 6f 73 77 72  |sword=&FFF1:oswr|
00000440  63 68 3d 26 46 46 45 45  3a 6f 73 62 79 74 65 3d  |ch=&FFEE:osbyte=|
00000450  26 46 46 46 34 0d 01 cc  23 58 6c 6f 3d 26 37 30  |&FFF4...#Xlo=&70|
00000460  3a 58 68 69 3d 26 37 31  3a 59 6c 6f 3d 26 37 32  |:Xhi=&71:Ylo=&72|
00000470  3a 59 68 69 3d 26 37 33  0d 01 d6 15 59 59 6c 6f  |:Yhi=&73....YYlo|
00000480  3d 26 38 30 3a 59 59 68  69 3d 26 38 31 0d 01 e0  |=&80:YYhi=&81...|
00000490  20 74 69 6e 74 3d 26 37  34 3a 63 6f 75 6e 74 3d  | tint=&74:count=|
000004a0  26 37 35 3a 6f 63 74 65  74 3d 26 37 36 0d 01 ea  |&75:octet=&76...|
000004b0  2c 70 61 74 74 65 72 6e  3d 26 39 30 30 3a 73 65  |,pattern=&900:se|
000004c0  74 3d 70 61 74 74 65 72  6e 2b 38 3a 70 69 78 3d  |t=pattern+8:pix=|
000004d0  70 61 74 74 65 72 6e 2b  39 0d 01 f4 13 63 6f 64  |pattern+9....cod|
000004e0  65 3d 70 61 74 74 65 72  6e 2b 31 30 0d 01 fe 05  |e=pattern+10....|
000004f0  e1 0d 02 08 0b dd f2 61  73 73 65 6d 0d 02 12 0c  |.......assem....|
00000500  e3 69 3d 30 b8 32 88 32  0d 02 1c 0b 50 25 3d 63  |.i=0.2.2....P%=c|
00000510  6f 64 65 0d 02 26 09 5b  4f 50 54 69 0d 02 30 28  |ode..&.[OPTi..0(|
00000520  4c 44 41 23 32 36 3a 4a  53 52 6f 73 77 72 63 68  |LDA#26:JSRoswrch|
00000530  20 5c 53 65 74 20 64 65  66 61 75 6c 74 20 73 63  | \Set default sc|
00000540  72 65 65 6e 0d 02 3a 1f  4c 44 41 23 32 3a 4a 53  |reen..:.LDA#2:JS|
00000550  52 6f 73 77 72 63 68 20  5c 50 72 69 6e 74 65 72  |Roswrch \Printer|
00000560  20 6f 6e 0d 02 44 12 2e  63 6c 65 61 72 20 4a 53  | on..D..clear JS|
00000570  52 6e 65 78 74 0d 02 4e  10 2e 6c 69 6e 65 20 4a  |Rnext..N..line J|
00000580  53 52 65 73 63 0d 02 58  14 4c 44 41 23 36 35 3a  |SResc..X.LDA#65:|
00000590  4a 53 52 6f 73 77 72 63  68 0d 02 62 13 4c 44 41  |JSRoswrch..b.LDA|
000005a0  23 31 3a 4a 53 52 6f 73  77 72 63 68 0d 02 6c 13  |#1:JSRoswrch..l.|
000005b0  4c 44 41 23 38 3a 4a 53  52 6f 73 77 72 63 68 0d  |LDA#8:JSRoswrch.|
000005c0  02 76 1f 2e 6c 6f 61 64  20 4c 44 41 23 59 73 25  |.v..load LDA#Ys%|
000005d0  20 83 32 35 36 3a 53 54  41 20 59 59 6c 6f 0d 02  | .256:STA YYlo..|
000005e0  80 26 4c 44 41 23 59 73  25 20 81 32 35 36 3a 53  |.&LDA#Ys% .256:S|
000005f0  54 41 20 59 59 68 69 20  5c 53 74 61 72 74 20 59  |TA YYhi \Start Y|
00000600  3d 59 73 25 0d 02 8a 1e  2e 6e 65 77 6c 20 4c 44  |=Ys%.....newl LD|
00000610  41 23 58 73 25 20 83 32  35 36 3a 53 54 41 20 58  |A#Xs% .256:STA X|
00000620  6c 6f 0d 02 94 25 4c 44  41 23 58 73 25 20 81 32  |lo...%LDA#Xs% .2|
00000630  35 36 3a 53 54 41 20 58  68 69 20 5c 53 74 61 72  |56:STA Xhi \Star|
00000640  74 20 58 3d 58 73 25 0d  02 9e 0f 2e 62 69 74 20  |t X=Xs%.....bit |
00000650  4a 53 52 65 73 63 0d 02  a8 14 4c 44 41 23 34 32  |JSResc....LDA#42|
00000660  3a 4a 53 52 6f 73 77 72  63 68 0d 02 b2 13 4c 44  |:JSRoswrch....LD|
00000670  41 23 31 3a 4a 53 52 6f  73 77 72 63 68 0d 02 bc  |A#1:JSRoswrch...|
00000680  13 4c 44 41 23 34 3a 4a  53 52 6f 73 77 72 63 68  |.LDA#4:JSRoswrch|
00000690  0d 02 c6 13 4c 44 41 23  31 3a 4a 53 52 6f 73 77  |....LDA#1:JSRosw|
000006a0  72 63 68 0d 02 d0 1b 4c  44 41 23 64 70 6c 25 20  |rch....LDA#dpl% |
000006b0  83 32 35 36 3a 4a 53 52  6f 73 77 72 63 68 0d 02  |.256:JSRoswrch..|
000006c0  da 13 4c 44 41 23 31 3a  4a 53 52 6f 73 77 72 63  |..LDA#1:JSRoswrc|
000006d0  68 0d 02 e4 30 4c 44 41  23 64 70 6c 25 20 81 32  |h...0LDA#dpl% .2|
000006e0  35 36 3a 4a 53 52 6f 73  77 72 63 68 20 5c 20 64  |56:JSRoswrch \ d|
000006f0  6f 74 73 20 70 65 72 20  6c 69 6e 65 3d 64 70 6c  |ots per line=dpl|
00000700  25 0d 02 ee 19 2e 73 74  61 72 74 20 4c 44 41 23  |%.....start LDA#|
00000710  34 3a 53 54 41 63 6f 75  6e 74 0d 02 f8 14 4c 44  |4:STAcount....LD|
00000720  41 20 59 59 6c 6f 3a 53  54 41 20 59 6c 6f 0d 03  |A YYlo:STA Ylo..|
00000730  02 14 4c 44 41 20 59 59  68 69 3a 53 54 41 20 59  |..LDA YYhi:STA Y|
00000740  68 69 0d 03 0c 1d 2e 74  65 73 74 20 4c 44 58 23  |hi.....test LDX#|
00000750  26 37 30 3a 4c 44 59 23  30 3a 4c 44 41 23 39 0d  |&70:LDY#0:LDA#9.|
00000760  03 16 2e 4a 53 52 6f 73  77 6f 72 64 20 20 5c 4c  |...JSRosword  \L|
00000770  6f 67 69 63 61 6c 20 63  6f 6c 6f 75 72 20 72 65  |ogical colour re|
00000780  74 75 72 6e 65 64 20 69  6e 20 26 37 34 0d 03 20  |turned in &74.. |
00000790  3c 4c 44 41 74 69 6e 74  3a 80 23 37 3a 54 41 59  |<LDAtint:.#7:TAY|
000007a0  20 5c 4c 6f 67 69 63 61  6c 20 63 6f 6c 6f 75 72  | \Logical colour|
000007b0  20 75 73 65 64 20 61 73  20 69 6e 64 65 78 20 74  | used as index t|
000007c0  6f 20 70 61 74 74 65 72  6e 0d 03 2a 0f 2e 62 79  |o pattern..*..by|
000007d0  74 65 20 4c 44 58 23 30  0d 03 34 10 4c 44 41 70  |te LDX#0..4.LDAp|
000007e0  61 74 74 65 72 6e 2c 59  0d 03 3e 34 2e 6c 6f 6f  |attern,Y..>4.loo|
000007f0  70 31 20 4c 53 52 20 41  3a 52 4f 4c 6f 63 74 65  |p1 LSR A:ROLocte|
00000800  74 2c 58 20 5c 52 4f 4c  20 72 65 71 75 69 72 65  |t,X \ROL require|
00000810  73 20 58 20 72 65 67 69  73 74 65 72 0d 03 48 4b  |s X register..HK|
00000820  4c 53 52 20 41 3a 52 4f  4c 6f 63 74 65 74 2c 58  |LSR A:ROLoctet,X|
00000830  20 20 5c 32 20 62 69 74  73 20 74 72 61 6e 73 66  |  \2 bits transf|
00000840  65 72 72 65 64 20 66 72  6f 6d 20 70 61 74 74 65  |erred from patte|
00000850  72 6e 20 74 6f 20 65 61  63 68 20 62 79 74 65 20  |rn to each byte |
00000860  69 6e 20 74 75 72 6e 0d  03 52 0e 49 4e 58 3a 43  |in turn..R.INX:C|
00000870  50 58 73 65 74 0d 03 5c  0c 42 4e 45 6c 6f 6f 70  |PXset..\.BNEloop|
00000880  31 0d 03 66 13 2e 6c 6f  6f 70 32 20 44 45 43 63  |1..f..loop2 DECc|
00000890  6f 75 6e 74 0d 03 70 0c  42 45 51 70 72 69 6e 74  |ount..p.BEQprint|
000008a0  0d 03 7a 0b 4c 44 41 20  59 6c 6f 0d 03 84 0d 53  |..z.LDA Ylo....S|
000008b0  45 43 3a 53 42 43 23 34  0d 03 8e 0b 53 54 41 20  |EC:SBC#4....STA |
000008c0  59 6c 6f 0d 03 98 11 4c  44 41 20 59 68 69 3a 53  |Ylo....LDA Yhi:S|
000008d0  42 43 23 30 0d 03 a2 0b  53 54 41 20 59 68 69 0d  |BC#0....STA Yhi.|
000008e0  03 ac 0b 4a 4d 50 74 65  73 74 0d 03 b6 10 2e 70  |...JMPtest.....p|
000008f0  72 69 6e 74 20 4c 44 58  23 30 0d 03 c0 1a 2e 6c  |rint LDX#0.....l|
00000900  6f 6f 70 33 20 4c 44 41  23 31 3a 4a 53 52 6f 73  |oop3 LDA#1:JSRos|
00000910  77 72 63 68 0d 03 ca 18  4c 44 41 6f 63 74 65 74  |wrch....LDAoctet|
00000920  2c 58 3a 4a 53 52 6f 73  77 72 63 68 0d 03 d4 0e  |,X:JSRoswrch....|
00000930  49 4e 58 3a 43 50 58 73  65 74 0d 03 de 0c 42 4e  |INX:CPXset....BN|
00000940  45 6c 6f 6f 70 33 0d 03  e8 12 2e 78 6c 6f 6f 70  |Eloop3.....xloop|
00000950  20 4c 44 41 20 58 6c 6f  0d 03 f2 0e 43 4c 43 3a  | LDA Xlo....CLC:|
00000960  41 44 43 70 69 78 0d 03  fc 0b 53 54 41 20 58 6c  |ADCpix....STA Xl|
00000970  6f 0d 04 06 11 4c 44 41  20 58 68 69 3a 41 44 43  |o....LDA Xhi:ADC|
00000980  23 30 0d 04 10 26 53 54  41 20 58 68 69 20 5c 49  |#0...&STA Xhi \I|
00000990  6e 63 72 65 6d 65 6e 74  20 58 20 74 6f 20 6e 65  |ncrement X to ne|
000009a0  78 74 20 70 69 78 65 6c  0d 04 1a 21 4c 44 41 23  |xt pixel...!LDA#|
000009b0  58 66 25 20 83 32 35 36  3a 43 4d 50 20 58 6c 6f  |Xf% .256:CMP Xlo|
000009c0  3a 42 4e 45 73 74 61 72  74 0d 04 24 37 4c 44 41  |:BNEstart..$7LDA|
000009d0  23 58 66 25 20 81 32 35  36 3a 43 4d 50 20 58 68  |#Xf% .256:CMP Xh|
000009e0  69 3a 42 4e 45 73 74 61  72 74 20 5c 45 6e 64 20  |i:BNEstart \End |
000009f0  6f 66 20 6c 69 6e 65 3f  20 28 58 3d 58 66 25 29  |of line? (X=Xf%)|
00000a00  0d 04 2e 1c 4a 53 52 6e  65 78 74 20 20 5c 53 74  |....JSRnext  \St|
00000a10  61 72 74 20 6e 65 77 20  6c 69 6e 65 0d 04 38 13  |art new line..8.|
00000a20  2e 79 6c 6f 6f 70 20 4c  44 41 20 59 59 6c 6f 0d  |.yloop LDA YYlo.|
00000a30  04 42 0e 53 45 43 3a 53  42 43 23 31 36 0d 04 4c  |.B.SEC:SBC#16..L|
00000a40  0c 53 54 41 20 59 59 6c  6f 0d 04 56 12 4c 44 41  |.STA YYlo..V.LDA|
00000a50  20 59 59 68 69 3a 53 42  43 23 30 0d 04 60 1c 53  | YYhi:SBC#0..`.S|
00000a60  54 41 20 59 59 68 69 20  20 5c 44 6f 77 6e 20 34  |TA YYhi  \Down 4|
00000a70  20 70 69 78 65 6c 73 0d  04 6a 05 5d 0d 04 74 17  | pixels..j.]..t.|
00000a80  e7 20 59 66 25 3c 30 20  f2 6e 65 67 20 8b 20 f2  |. Yf%<0 .neg . .|
00000a90  70 6f 73 0d 04 7e 09 5b  4f 50 54 69 0d 04 88 25  |pos..~.[OPTi...%|
00000aa0  2e 63 6f 6e 74 20 4a 4d  50 6e 65 77 6c 20 5c 4f  |.cont JMPnewl \O|
00000ab0  74 68 65 72 77 69 73 65  20 63 6f 6e 74 69 6e 75  |therwise continu|
00000ac0  65 0d 04 92 18 2e 65 6e  64 20 4c 44 41 23 31 3a  |e.....end LDA#1:|
00000ad0  4a 53 52 6f 73 77 72 63  68 0d 04 9c 19 4c 44 41  |JSRoswrch....LDA|
00000ae0  23 37 3a 4a 53 52 6f 73  77 72 63 68 20 5c 42 65  |#7:JSRoswrch \Be|
00000af0  65 70 0d 04 a6 0a 4a 53  52 65 73 63 0d 04 b0 37  |ep....JSResc...7|
00000b00  4c 44 41 23 36 34 3a 4a  53 52 6f 73 77 72 63 68  |LDA#64:JSRoswrch|
00000b10  20 5c 52 65 74 75 72 6e  20 70 72 69 6e 74 65 72  | \Return printer|
00000b20  20 74 6f 20 64 65 66 61  75 6c 74 20 73 65 74 74  | to default sett|
00000b30  69 6e 67 0d 04 ba 24 4c  44 41 23 33 3a 4a 53 52  |ing...$LDA#3:JSR|
00000b40  6f 73 77 72 63 68 20 5c  41 6e 64 20 70 72 69 6e  |oswrch \And prin|
00000b50  74 65 72 20 6f 66 66 0d  04 c4 07 52 54 53 0d 04  |ter off....RTS..|
00000b60  ce 18 2e 65 73 63 20 4c  44 41 23 31 3a 4a 53 52  |...esc LDA#1:JSR|
00000b70  6f 73 77 72 63 68 0d 04  d8 14 4c 44 41 23 32 37  |oswrch....LDA#27|
00000b80  3a 4a 53 52 6f 73 77 72  63 68 0d 04 e2 13 4c 44  |:JSRoswrch....LD|
00000b90  41 23 31 3a 4a 53 52 6f  73 77 72 63 68 0d 04 ec  |A#1:JSRoswrch...|
00000ba0  07 52 54 53 0d 04 f6 19  2e 6e 65 78 74 20 4c 44  |.RTS.....next LD|
00000bb0  41 23 31 3a 4a 53 52 6f  73 77 72 63 68 0d 05 00  |A#1:JSRoswrch...|
00000bc0  14 4c 44 41 23 31 30 3a  4a 53 52 6f 73 77 72 63  |.LDA#10:JSRoswrc|
00000bd0  68 0d 05 0a 07 52 54 53  0d 05 14 05 5d 0d 05 1e  |h....RTS....]...|
00000be0  05 ed 0d 05 28 05 e1 0d  05 32 0a dd 20 f2 70 6f  |....(....2.. .po|
00000bf0  73 0d 05 3c 09 5b 4f 50  54 69 0d 05 46 21 4c 44  |s..<.[OPTi..F!LD|
00000c00  41 23 59 66 25 20 83 32  35 36 3a 43 4d 50 20 59  |A#Yf% .256:CMP Y|
00000c10  59 6c 6f 3a 42 4e 45 63  6f 6e 74 0d 05 50 33 4c  |Ylo:BNEcont..P3L|
00000c20  44 41 23 59 66 25 20 81  32 35 36 3a 43 4d 50 20  |DA#Yf% .256:CMP |
00000c30  59 59 68 69 3a 42 45 51  65 6e 64 20 5c 46 69 6e  |YYhi:BEQend \Fin|
00000c40  69 73 68 20 77 68 65 6e  20 59 3d 59 66 25 0d 05  |ish when Y=Yf%..|
00000c50  5a 07 5d 3a e1 0d 05 64  0a dd 20 f2 6e 65 67 0d  |Z.]:...d.. .neg.|
00000c60  05 6e 09 5b 4f 50 54 69  0d 05 78 1d 42 43 43 65  |.n.[OPTi..x.BCCe|
00000c70  6e 64 20 5c 46 69 6e 69  73 68 20 77 68 65 6e 20  |nd \Finish when |
00000c80  59 66 25 3c 30 0d 05 82  07 5d 3a e1 0d 05 8c 05  |Yf%<0....]:.....|
00000c90  3a 0d 05 96 07 dd f2 30  0d 05 a0 32 e7 20 70 6f  |:......0...2. po|
00000ca0  73 25 20 21 70 61 74 74  65 72 6e 3d 26 30 30 30  |s% !pattern=&000|
00000cb0  30 30 30 46 46 20 8b 20  21 70 61 74 74 65 72 6e  |000FF . !pattern|
00000cc0  3d 26 46 46 46 46 46 46  30 30 0d 05 aa 1a 21 28  |=&FFFFFF00....!(|
00000cd0  70 61 74 74 65 72 6e 2b  34 29 3d 26 30 30 30 30  |pattern+4)=&0000|
00000ce0  30 30 30 30 0d 05 b4 11  3f 73 65 74 3d 31 3a 3f  |0000....?set=1:?|
00000cf0  70 69 78 3d 32 0d 05 be  0a 4d 25 3d 30 3a e1 0d  |pix=2....M%=0:..|
00000d00  05 c8 05 3a 0d 05 d2 07  dd f2 31 0d 05 dc 32 e7  |...:......1...2.|
00000d10  20 70 6f 73 25 20 21 70  61 74 74 65 72 6e 3d 26  | pos% !pattern=&|
00000d20  30 30 39 39 31 31 46 46  20 8b 20 21 70 61 74 74  |009911FF . !patt|
00000d30  65 72 6e 3d 26 46 46 31  31 39 39 30 30 0d 05 e6  |ern=&FF119900...|
00000d40  1a 21 28 70 61 74 74 65  72 6e 2b 34 29 3d 26 30  |.!(pattern+4)=&0|
00000d50  30 30 30 30 30 30 30 0d  05 f0 11 3f 73 65 74 3d  |0000000....?set=|
00000d60  32 3a 3f 70 69 78 3d 34  0d 05 fa 0a 4d 25 3d 31  |2:?pix=4....M%=1|
00000d70  3a e1 0d 06 04 05 3a 0d  06 0e 07 dd f2 32 0d 06  |:.....:......2..|
00000d80  18 60 e7 20 70 6f 73 25  20 21 70 61 74 74 65 72  |.`. pos% !patter|
00000d90  6e 3d 26 35 37 35 35 43  33 46 46 3a 21 28 70 61  |n=&5755C3FF:!(pa|
00000da0  74 74 65 72 6e 2b 34 29  3d 26 30 30 39 39 31 31  |ttern+4)=&009911|
00000db0  30 31 20 8b 20 21 70 61  74 74 65 72 6e 3d 26 30  |01 . !pattern=&0|
00000dc0  31 31 31 39 39 30 30 3a  21 28 70 61 74 74 65 72  |1119900:!(patter|
00000dd0  6e 2b 34 29 3d 26 46 46  43 33 35 35 35 37 0d 06  |n+4)=&FFC35557..|
00000de0  22 11 3f 73 65 74 3d 34  3a 3f 70 69 78 3d 38 0d  |".?set=4:?pix=8.|
00000df0  06 2c 0a 4d 25 3d 32 3a  e1 0d 06 36 05 3a 0d 06  |.,.M%=2:...6.:..|
00000e00  40 07 dd f2 34 0d 06 4a  32 e7 20 70 6f 73 25 20  |@...4..J2. pos% |
00000e10  21 70 61 74 74 65 72 6e  3d 26 30 30 30 30 30 30  |!pattern=&000000|
00000e20  46 46 20 8b 20 21 70 61  74 74 65 72 6e 3d 26 46  |FF . !pattern=&F|
00000e30  46 46 46 46 46 30 30 0d  06 54 1a 21 28 70 61 74  |FFFFF00..T.!(pat|
00000e40  74 65 72 6e 2b 34 29 3d  26 30 30 30 30 30 30 30  |tern+4)=&0000000|
00000e50  30 0d 06 5e 11 3f 73 65  74 3d 32 3a 3f 70 69 78  |0..^.?set=2:?pix|
00000e60  3d 34 0d 06 68 0a 4d 25  3d 34 3a e1 0d 06 72 05  |=4..h.M%=4:...r.|
00000e70  3a 0d 06 7c 07 dd f2 35  0d 06 86 32 e7 20 70 6f  |:..|...5...2. po|
00000e80  73 25 20 21 70 61 74 74  65 72 6e 3d 26 30 30 39  |s% !pattern=&009|
00000e90  39 31 31 46 46 20 8b 20  21 70 61 74 74 65 72 6e  |911FF . !pattern|
00000ea0  3d 26 46 46 31 31 39 39  30 30 0d 06 90 1a 21 28  |=&FF119900....!(|
00000eb0  70 61 74 74 65 72 6e 2b  34 29 3d 26 30 30 30 30  |pattern+4)=&0000|
00000ec0  30 30 30 30 0d 06 9a 11  3f 73 65 74 3d 34 3a 3f  |0000....?set=4:?|
00000ed0  70 69 78 3d 38 0d 06 a4  0a 4d 25 3d 35 3a e1 0d  |pix=8....M%=5:..|
00000ee0  ff                                                |.|
00000ee1