� Program II
� UDump
*� Screen dump with patterns for Shinwa
(:
2*osword=&FFF1:oswrch=&FFEE:osbyte=&FFF4
<#Xlo=&70:Xhi=&71:Ylo=&72:Yhi=&73
FYYlo=&80:YYhi=&81
P tint=&74:count=&75:octet=&76
Z,pattern=&900:set=pattern+8:pix=pattern+9
d:
n!�6:�12,12)"Enter MODE: "mode
x�mode>=6 �7:�Dn@
�.M=mode+1:�M �tV@,�t`@,�tj@,�tt@,�t~@,�dH@
�:
��0:�d\@
��1:�d\@
��2:�d\@
��7:�Dn@
��4:�d\@
��5:�d\@
�:
�code=pattern+10
��pass=0�3�3
�P%=code
�[OPTpass

(LDA#26:JSRoswrch \Set default screen

LDA#2:JSRoswrch \Printer on

.clear JSRnext

".line JSResc

,LDA#65:JSRoswrch

6LDA#1:JSRoswrch

@%LDA#8:JSRoswrch \Set line spacing

J.load LDA#252:STA YYlo

T LDA#3:STA YYhi \Start Y=1020

^.newl LDA#0:STA Xlo

hSTA Xhi  \Start X=0

r.bit JSResc

|LDA#42:JSRoswrch

�LDA#1:JSRoswrch

�LDA#4:JSRoswrch

�LDA#1:JSRoswrch

�LDA#128:JSRoswrch

�LDA#1:JSRoswrch

�&LDA#2:JSRoswrch \640 dots per line

�.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
LDApattern,Y
4.loop1 LSR A:ROLoctet,X \ROL requires X register
KLSR A:ROLoctet,X  \2 bits transferred from pattern to each byte in turn
&INX:CPXset
0BNEloop1
:.loop2 DECcount
DBEQprint
NLDA Ylo
X
SEC:SBC#4
bSTA Ylo
lLDA Yhi:SBC#0
vSTA 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
� CMP#5 \End of line? (X=1280)
�BNEstart
JSRnext  \Start nw line
.yloop LDA YYlo
SEC:SBC#16
 STA YYlo
*LDA YYhi:SBC#0
4STA YYhi  \Down 4 pixels
>$BCCend  \Finish when Y reaches 0
HJMPnewl \Otherwise continue
R.end LDA#1:JSRoswrch
\LDA#7:JSRoswrch \Beep
f
JSResc
p7LDA#64:JSRoswrch \Return printer to default setting
z$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
�]
��
��:�''"End of code &";~P%
��''
� �"Press RETURN to save code"

���=13
7�"SAVE $."+file$+" "+�~pattern+" +"+�~P%+" "+�~code
�
$:
.��0
8-!pattern=&FFFFFF00:!(pattern+4)=&00000000
B ?set=1:?pix=2:file$="UCODE0"
L�
V:
`��1
j-!pattern=&FF119900:!(pattern+4)=&00000000
t ?set=2:?pix=4:file$="UCODE1"
~�
�:
���2
�-!pattern=&01119900:!(pattern+4)=&FFC35557
� ?set=4:?pix=8:file$="UCODE2"
��
�:
���4
�-!pattern=&FFFFFF00:!(pattern+4)=&00000000
� ?set=2:?pix=4:file$="UCODE4"
��
�:
���5
-!pattern=&FF119900:!(pattern+4)=&00000000

 ?set=4:?pix=8:file$="UCODE5"
�
�

00000000  0d 00 0a 10 f4 20 50 72  6f 67 72 61 6d 20 49 49  |..... Program II|
00000010  0d 00 14 0b f4 20 55 44  75 6d 70 0d 00 1e 2a f4  |..... UDump...*.|
00000020  20 53 63 72 65 65 6e 20  64 75 6d 70 20 77 69 74  | Screen dump wit|
00000030  68 20 70 61 74 74 65 72  6e 73 20 66 6f 72 20 53  |h patterns for S|
00000040  68 69 6e 77 61 0d 00 28  05 3a 0d 00 32 2a 6f 73  |hinwa..(.:..2*os|
00000050  77 6f 72 64 3d 26 46 46  46 31 3a 6f 73 77 72 63  |word=&FFF1:oswrc|
00000060  68 3d 26 46 46 45 45 3a  6f 73 62 79 74 65 3d 26  |h=&FFEE:osbyte=&|
00000070  46 46 46 34 0d 00 3c 23  58 6c 6f 3d 26 37 30 3a  |FFF4..<#Xlo=&70:|
00000080  58 68 69 3d 26 37 31 3a  59 6c 6f 3d 26 37 32 3a  |Xhi=&71:Ylo=&72:|
00000090  59 68 69 3d 26 37 33 0d  00 46 15 59 59 6c 6f 3d  |Yhi=&73..F.YYlo=|
000000a0  26 38 30 3a 59 59 68 69  3d 26 38 31 0d 00 50 20  |&80:YYhi=&81..P |
000000b0  74 69 6e 74 3d 26 37 34  3a 63 6f 75 6e 74 3d 26  |tint=&74:count=&|
000000c0  37 35 3a 6f 63 74 65 74  3d 26 37 36 0d 00 5a 2c  |75:octet=&76..Z,|
000000d0  70 61 74 74 65 72 6e 3d  26 39 30 30 3a 73 65 74  |pattern=&900:set|
000000e0  3d 70 61 74 74 65 72 6e  2b 38 3a 70 69 78 3d 70  |=pattern+8:pix=p|
000000f0  61 74 74 65 72 6e 2b 39  0d 00 64 05 3a 0d 00 6e  |attern+9..d.:..n|
00000100  21 eb 36 3a e8 8a 31 32  2c 31 32 29 22 45 6e 74  |!.6:..12,12)"Ent|
00000110  65 72 20 4d 4f 44 45 3a  20 22 6d 6f 64 65 0d 00  |er MODE: "mode..|
00000120  78 15 e7 6d 6f 64 65 3e  3d 36 20 ef 37 3a e5 8d  |x..mode>=6 .7:..|
00000130  44 6e 40 0d 00 82 2e 4d  3d 6d 6f 64 65 2b 31 3a  |Dn@....M=mode+1:|
00000140  ee 4d 20 e5 8d 74 56 40  2c 8d 74 60 40 2c 8d 74  |.M ..tV@,.t`@,.t|
00000150  6a 40 2c 8d 74 74 40 2c  8d 74 7e 40 2c 8d 64 48  |j@,.tt@,.t~@,.dH|
00000160  40 0d 00 8c 05 3a 0d 00  96 0c f2 30 3a e5 8d 64  |@....:.....0:..d|
00000170  5c 40 0d 00 a0 0c f2 31  3a e5 8d 64 5c 40 0d 00  |\@.....1:..d\@..|
00000180  aa 0c f2 32 3a e5 8d 64  5c 40 0d 00 b4 0c ef 37  |...2:..d\@.....7|
00000190  3a e5 8d 44 6e 40 0d 00  be 0c f2 34 3a e5 8d 64  |:..Dn@.....4:..d|
000001a0  5c 40 0d 00 c8 0c f2 35  3a e5 8d 64 5c 40 0d 00  |\@.....5:..d\@..|
000001b0  d2 05 3a 0d 00 dc 13 63  6f 64 65 3d 70 61 74 74  |..:....code=patt|
000001c0  65 72 6e 2b 31 30 0d 00  e6 0f e3 70 61 73 73 3d  |ern+10.....pass=|
000001d0  30 b8 33 88 33 0d 00 f0  0b 50 25 3d 63 6f 64 65  |0.3.3....P%=code|
000001e0  0d 00 fa 0c 5b 4f 50 54  70 61 73 73 0d 01 04 28  |....[OPTpass...(|
000001f0  4c 44 41 23 32 36 3a 4a  53 52 6f 73 77 72 63 68  |LDA#26:JSRoswrch|
00000200  20 5c 53 65 74 20 64 65  66 61 75 6c 74 20 73 63  | \Set default sc|
00000210  72 65 65 6e 0d 01 0e 1f  4c 44 41 23 32 3a 4a 53  |reen....LDA#2:JS|
00000220  52 6f 73 77 72 63 68 20  5c 50 72 69 6e 74 65 72  |Roswrch \Printer|
00000230  20 6f 6e 0d 01 18 12 2e  63 6c 65 61 72 20 4a 53  | on.....clear JS|
00000240  52 6e 65 78 74 0d 01 22  10 2e 6c 69 6e 65 20 4a  |Rnext.."..line J|
00000250  53 52 65 73 63 0d 01 2c  14 4c 44 41 23 36 35 3a  |SResc..,.LDA#65:|
00000260  4a 53 52 6f 73 77 72 63  68 0d 01 36 13 4c 44 41  |JSRoswrch..6.LDA|
00000270  23 31 3a 4a 53 52 6f 73  77 72 63 68 0d 01 40 25  |#1:JSRoswrch..@%|
00000280  4c 44 41 23 38 3a 4a 53  52 6f 73 77 72 63 68 20  |LDA#8:JSRoswrch |
00000290  5c 53 65 74 20 6c 69 6e  65 20 73 70 61 63 69 6e  |\Set line spacin|
000002a0  67 0d 01 4a 1a 2e 6c 6f  61 64 20 4c 44 41 23 32  |g..J..load LDA#2|
000002b0  35 32 3a 53 54 41 20 59  59 6c 6f 0d 01 54 20 4c  |52:STA YYlo..T L|
000002c0  44 41 23 33 3a 53 54 41  20 59 59 68 69 20 5c 53  |DA#3:STA YYhi \S|
000002d0  74 61 72 74 20 59 3d 31  30 32 30 0d 01 5e 17 2e  |tart Y=1020..^..|
000002e0  6e 65 77 6c 20 4c 44 41  23 30 3a 53 54 41 20 58  |newl LDA#0:STA X|
000002f0  6c 6f 0d 01 68 17 53 54  41 20 58 68 69 20 20 5c  |lo..h.STA Xhi  \|
00000300  53 74 61 72 74 20 58 3d  30 0d 01 72 0f 2e 62 69  |Start X=0..r..bi|
00000310  74 20 4a 53 52 65 73 63  0d 01 7c 14 4c 44 41 23  |t JSResc..|.LDA#|
00000320  34 32 3a 4a 53 52 6f 73  77 72 63 68 0d 01 86 13  |42:JSRoswrch....|
00000330  4c 44 41 23 31 3a 4a 53  52 6f 73 77 72 63 68 0d  |LDA#1:JSRoswrch.|
00000340  01 90 13 4c 44 41 23 34  3a 4a 53 52 6f 73 77 72  |...LDA#4:JSRoswr|
00000350  63 68 0d 01 9a 13 4c 44  41 23 31 3a 4a 53 52 6f  |ch....LDA#1:JSRo|
00000360  73 77 72 63 68 0d 01 a4  15 4c 44 41 23 31 32 38  |swrch....LDA#128|
00000370  3a 4a 53 52 6f 73 77 72  63 68 0d 01 ae 13 4c 44  |:JSRoswrch....LD|
00000380  41 23 31 3a 4a 53 52 6f  73 77 72 63 68 0d 01 b8  |A#1:JSRoswrch...|
00000390  26 4c 44 41 23 32 3a 4a  53 52 6f 73 77 72 63 68  |&LDA#2:JSRoswrch|
000003a0  20 5c 36 34 30 20 64 6f  74 73 20 70 65 72 20 6c  | \640 dots per l|
000003b0  69 6e 65 0d 01 c2 19 2e  73 74 61 72 74 20 4c 44  |ine.....start LD|
000003c0  41 23 34 3a 53 54 41 63  6f 75 6e 74 0d 01 cc 14  |A#4:STAcount....|
000003d0  4c 44 41 20 59 59 6c 6f  3a 53 54 41 20 59 6c 6f  |LDA YYlo:STA Ylo|
000003e0  0d 01 d6 14 4c 44 41 20  59 59 68 69 3a 53 54 41  |....LDA YYhi:STA|
000003f0  20 59 68 69 0d 01 e0 1d  2e 74 65 73 74 20 4c 44  | Yhi.....test LD|
00000400  58 23 26 37 30 3a 4c 44  59 23 30 3a 4c 44 41 23  |X#&70:LDY#0:LDA#|
00000410  39 0d 01 ea 2e 4a 53 52  6f 73 77 6f 72 64 20 20  |9....JSRosword  |
00000420  5c 4c 6f 67 69 63 61 6c  20 63 6f 6c 6f 75 72 20  |\Logical colour |
00000430  72 65 74 75 72 6e 65 64  20 69 6e 20 26 37 34 0d  |returned in &74.|
00000440  01 f4 3c 4c 44 41 74 69  6e 74 3a 80 23 37 3a 54  |..<LDAtint:.#7:T|
00000450  41 59 20 5c 4c 6f 67 69  63 61 6c 20 63 6f 6c 6f  |AY \Logical colo|
00000460  75 72 20 75 73 65 64 20  61 73 20 69 6e 64 65 78  |ur used as index|
00000470  20 74 6f 20 70 61 74 74  65 72 6e 0d 01 fe 0f 2e  | to pattern.....|
00000480  62 79 74 65 20 4c 44 58  23 30 0d 02 08 10 4c 44  |byte LDX#0....LD|
00000490  41 70 61 74 74 65 72 6e  2c 59 0d 02 12 34 2e 6c  |Apattern,Y...4.l|
000004a0  6f 6f 70 31 20 4c 53 52  20 41 3a 52 4f 4c 6f 63  |oop1 LSR A:ROLoc|
000004b0  74 65 74 2c 58 20 5c 52  4f 4c 20 72 65 71 75 69  |tet,X \ROL requi|
000004c0  72 65 73 20 58 20 72 65  67 69 73 74 65 72 0d 02  |res X register..|
000004d0  1c 4b 4c 53 52 20 41 3a  52 4f 4c 6f 63 74 65 74  |.KLSR A:ROLoctet|
000004e0  2c 58 20 20 5c 32 20 62  69 74 73 20 74 72 61 6e  |,X  \2 bits tran|
000004f0  73 66 65 72 72 65 64 20  66 72 6f 6d 20 70 61 74  |sferred from pat|
00000500  74 65 72 6e 20 74 6f 20  65 61 63 68 20 62 79 74  |tern to each byt|
00000510  65 20 69 6e 20 74 75 72  6e 0d 02 26 0e 49 4e 58  |e in turn..&.INX|
00000520  3a 43 50 58 73 65 74 0d  02 30 0c 42 4e 45 6c 6f  |:CPXset..0.BNElo|
00000530  6f 70 31 0d 02 3a 13 2e  6c 6f 6f 70 32 20 44 45  |op1..:..loop2 DE|
00000540  43 63 6f 75 6e 74 0d 02  44 0c 42 45 51 70 72 69  |Ccount..D.BEQpri|
00000550  6e 74 0d 02 4e 0b 4c 44  41 20 59 6c 6f 0d 02 58  |nt..N.LDA Ylo..X|
00000560  0d 53 45 43 3a 53 42 43  23 34 0d 02 62 0b 53 54  |.SEC:SBC#4..b.ST|
00000570  41 20 59 6c 6f 0d 02 6c  11 4c 44 41 20 59 68 69  |A Ylo..l.LDA Yhi|
00000580  3a 53 42 43 23 30 0d 02  76 0b 53 54 41 20 59 68  |:SBC#0..v.STA Yh|
00000590  69 0d 02 80 0b 4a 4d 50  74 65 73 74 0d 02 8a 10  |i....JMPtest....|
000005a0  2e 70 72 69 6e 74 20 4c  44 58 23 30 0d 02 94 1a  |.print LDX#0....|
000005b0  2e 6c 6f 6f 70 33 20 4c  44 41 23 31 3a 4a 53 52  |.loop3 LDA#1:JSR|
000005c0  6f 73 77 72 63 68 0d 02  9e 18 4c 44 41 6f 63 74  |oswrch....LDAoct|
000005d0  65 74 2c 58 3a 4a 53 52  6f 73 77 72 63 68 0d 02  |et,X:JSRoswrch..|
000005e0  a8 0e 49 4e 58 3a 43 50  58 73 65 74 0d 02 b2 0c  |..INX:CPXset....|
000005f0  42 4e 45 6c 6f 6f 70 33  0d 02 bc 12 2e 78 6c 6f  |BNEloop3.....xlo|
00000600  6f 70 20 4c 44 41 20 58  6c 6f 0d 02 c6 0e 43 4c  |op LDA Xlo....CL|
00000610  43 3a 41 44 43 70 69 78  0d 02 d0 0b 53 54 41 20  |C:ADCpix....STA |
00000620  58 6c 6f 0d 02 da 11 4c  44 41 20 58 68 69 3a 41  |Xlo....LDA Xhi:A|
00000630  44 43 23 30 0d 02 e4 26  53 54 41 20 58 68 69 20  |DC#0...&STA Xhi |
00000640  5c 49 6e 63 72 65 6d 65  6e 74 20 58 20 74 6f 20  |\Increment X to |
00000650  6e 65 78 74 20 70 69 78  65 6c 0d 02 ee 20 43 4d  |next pixel... CM|
00000660  50 23 35 20 5c 45 6e 64  20 6f 66 20 6c 69 6e 65  |P#5 \End of line|
00000670  3f 20 28 58 3d 31 32 38  30 29 0d 02 f8 0c 42 4e  |? (X=1280)....BN|
00000680  45 73 74 61 72 74 0d 03  02 1b 4a 53 52 6e 65 78  |Estart....JSRnex|
00000690  74 20 20 5c 53 74 61 72  74 20 6e 77 20 6c 69 6e  |t  \Start nw lin|
000006a0  65 0d 03 0c 13 2e 79 6c  6f 6f 70 20 4c 44 41 20  |e.....yloop LDA |
000006b0  59 59 6c 6f 0d 03 16 0e  53 45 43 3a 53 42 43 23  |YYlo....SEC:SBC#|
000006c0  31 36 0d 03 20 0c 53 54  41 20 59 59 6c 6f 0d 03  |16.. .STA YYlo..|
000006d0  2a 12 4c 44 41 20 59 59  68 69 3a 53 42 43 23 30  |*.LDA YYhi:SBC#0|
000006e0  0d 03 34 1c 53 54 41 20  59 59 68 69 20 20 5c 44  |..4.STA YYhi  \D|
000006f0  6f 77 6e 20 34 20 70 69  78 65 6c 73 0d 03 3e 24  |own 4 pixels..>$|
00000700  42 43 43 65 6e 64 20 20  5c 46 69 6e 69 73 68 20  |BCCend  \Finish |
00000710  77 68 65 6e 20 59 20 72  65 61 63 68 65 73 20 30  |when Y reaches 0|
00000720  0d 03 48 1f 4a 4d 50 6e  65 77 6c 20 5c 4f 74 68  |..H.JMPnewl \Oth|
00000730  65 72 77 69 73 65 20 63  6f 6e 74 69 6e 75 65 0d  |erwise continue.|
00000740  03 52 18 2e 65 6e 64 20  4c 44 41 23 31 3a 4a 53  |.R..end LDA#1:JS|
00000750  52 6f 73 77 72 63 68 0d  03 5c 19 4c 44 41 23 37  |Roswrch..\.LDA#7|
00000760  3a 4a 53 52 6f 73 77 72  63 68 20 5c 42 65 65 70  |:JSRoswrch \Beep|
00000770  0d 03 66 0a 4a 53 52 65  73 63 0d 03 70 37 4c 44  |..f.JSResc..p7LD|
00000780  41 23 36 34 3a 4a 53 52  6f 73 77 72 63 68 20 5c  |A#64:JSRoswrch \|
00000790  52 65 74 75 72 6e 20 70  72 69 6e 74 65 72 20 74  |Return printer t|
000007a0  6f 20 64 65 66 61 75 6c  74 20 73 65 74 74 69 6e  |o default settin|
000007b0  67 0d 03 7a 24 4c 44 41  23 33 3a 4a 53 52 6f 73  |g..z$LDA#3:JSRos|
000007c0  77 72 63 68 20 5c 41 6e  64 20 70 72 69 6e 74 65  |wrch \And printe|
000007d0  72 20 6f 66 66 0d 03 84  07 52 54 53 0d 03 8e 18  |r off....RTS....|
000007e0  2e 65 73 63 20 4c 44 41  23 31 3a 4a 53 52 6f 73  |.esc LDA#1:JSRos|
000007f0  77 72 63 68 0d 03 98 14  4c 44 41 23 32 37 3a 4a  |wrch....LDA#27:J|
00000800  53 52 6f 73 77 72 63 68  0d 03 a2 13 4c 44 41 23  |SRoswrch....LDA#|
00000810  31 3a 4a 53 52 6f 73 77  72 63 68 0d 03 ac 07 52  |1:JSRoswrch....R|
00000820  54 53 0d 03 b6 19 2e 6e  65 78 74 20 4c 44 41 23  |TS.....next LDA#|
00000830  31 3a 4a 53 52 6f 73 77  72 63 68 0d 03 c0 14 4c  |1:JSRoswrch....L|
00000840  44 41 23 31 30 3a 4a 53  52 6f 73 77 72 63 68 0d  |DA#10:JSRoswrch.|
00000850  03 ca 07 52 54 53 0d 03  d4 05 5d 0d 03 de 05 ed  |...RTS....].....|
00000860  0d 03 e8 1c db 3a f1 27  27 22 45 6e 64 20 6f 66  |.....:.''"End of|
00000870  20 63 6f 64 65 20 26 22  3b 7e 50 25 0d 03 f2 07  | code &";~P%....|
00000880  f1 27 27 0d 03 fc 20 f1  22 50 72 65 73 73 20 52  |.''... ."Press R|
00000890  45 54 55 52 4e 20 74 6f  20 73 61 76 65 20 63 6f  |ETURN to save co|
000008a0  64 65 22 0d 04 06 0a f5  fd a5 3d 31 33 0d 04 10  |de".......=13...|
000008b0  37 ff 22 53 41 56 45 20  24 2e 22 2b 66 69 6c 65  |7."SAVE $."+file|
000008c0  24 2b 22 20 22 2b c3 7e  70 61 74 74 65 72 6e 2b  |$+" "+.~pattern+|
000008d0  22 20 2b 22 2b c3 7e 50  25 2b 22 20 22 2b c3 7e  |" +"+.~P%+" "+.~|
000008e0  63 6f 64 65 0d 04 1a 05  e0 0d 04 24 05 3a 0d 04  |code.......$.:..|
000008f0  2e 07 dd f2 30 0d 04 38  2d 21 70 61 74 74 65 72  |....0..8-!patter|
00000900  6e 3d 26 46 46 46 46 46  46 30 30 3a 21 28 70 61  |n=&FFFFFF00:!(pa|
00000910  74 74 65 72 6e 2b 34 29  3d 26 30 30 30 30 30 30  |ttern+4)=&000000|
00000920  30 30 0d 04 42 20 3f 73  65 74 3d 31 3a 3f 70 69  |00..B ?set=1:?pi|
00000930  78 3d 32 3a 66 69 6c 65  24 3d 22 55 43 4f 44 45  |x=2:file$="UCODE|
00000940  30 22 0d 04 4c 05 e1 0d  04 56 05 3a 0d 04 60 07  |0"..L....V.:..`.|
00000950  dd f2 31 0d 04 6a 2d 21  70 61 74 74 65 72 6e 3d  |..1..j-!pattern=|
00000960  26 46 46 31 31 39 39 30  30 3a 21 28 70 61 74 74  |&FF119900:!(patt|
00000970  65 72 6e 2b 34 29 3d 26  30 30 30 30 30 30 30 30  |ern+4)=&00000000|
00000980  0d 04 74 20 3f 73 65 74  3d 32 3a 3f 70 69 78 3d  |..t ?set=2:?pix=|
00000990  34 3a 66 69 6c 65 24 3d  22 55 43 4f 44 45 31 22  |4:file$="UCODE1"|
000009a0  0d 04 7e 05 e1 0d 04 88  05 3a 0d 04 92 07 dd f2  |..~......:......|
000009b0  32 0d 04 9c 2d 21 70 61  74 74 65 72 6e 3d 26 30  |2...-!pattern=&0|
000009c0  31 31 31 39 39 30 30 3a  21 28 70 61 74 74 65 72  |1119900:!(patter|
000009d0  6e 2b 34 29 3d 26 46 46  43 33 35 35 35 37 0d 04  |n+4)=&FFC35557..|
000009e0  a6 20 3f 73 65 74 3d 34  3a 3f 70 69 78 3d 38 3a  |. ?set=4:?pix=8:|
000009f0  66 69 6c 65 24 3d 22 55  43 4f 44 45 32 22 0d 04  |file$="UCODE2"..|
00000a00  b0 05 e1 0d 04 ba 05 3a  0d 04 c4 07 dd f2 34 0d  |.......:......4.|
00000a10  04 ce 2d 21 70 61 74 74  65 72 6e 3d 26 46 46 46  |..-!pattern=&FFF|
00000a20  46 46 46 30 30 3a 21 28  70 61 74 74 65 72 6e 2b  |FFF00:!(pattern+|
00000a30  34 29 3d 26 30 30 30 30  30 30 30 30 0d 04 d8 20  |4)=&00000000... |
00000a40  3f 73 65 74 3d 32 3a 3f  70 69 78 3d 34 3a 66 69  |?set=2:?pix=4:fi|
00000a50  6c 65 24 3d 22 55 43 4f  44 45 34 22 0d 04 e2 05  |le$="UCODE4"....|
00000a60  e1 0d 04 ec 05 3a 0d 04  f6 07 dd f2 35 0d 05 00  |.....:......5...|
00000a70  2d 21 70 61 74 74 65 72  6e 3d 26 46 46 31 31 39  |-!pattern=&FF119|
00000a80  39 30 30 3a 21 28 70 61  74 74 65 72 6e 2b 34 29  |900:!(pattern+4)|
00000a90  3d 26 30 30 30 30 30 30  30 30 0d 05 0a 20 3f 73  |=&00000000... ?s|
00000aa0  65 74 3d 34 3a 3f 70 69  78 3d 38 3a 66 69 6c 65  |et=4:?pix=8:file|
00000ab0  24 3d 22 55 43 4f 44 45  35 22 0d 05 14 05 e1 0d  |$="UCODE5"......|
00000ac0  ff                                                |.|
00000ac1