� UDUMP
� EU JUNE 1986 P.26
$� ADAPTED 1994 FOR REVIEW IN EUG
#3 � ADAPTED TO AVOID SCREEN CORRUPTION (M. FORD)
(:
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@ 
�0M=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
�
[OPT pass

*LDA #26:JSR oswrch \Set default screen

!LDA #2:JSR oswrch \Printer on

 \.clear JSR next 

".line JSR esc

,LDA #65:JSR oswrch

6LDA #1:JSR oswrch

@'LDA #8:JSR oswrch \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 JSR esc

|7LDA #76:JSR oswrch \printer code for double density

�LDA #1:JSR oswrch

�LDA #128:JSR oswrch

�LDA #1:JSR oswrch

�(LDA #2:JSR oswrch \960 dots per line

�.start LDA #8:STA count

�LDA YYlo:STA Ylo

�LDA YYhi:STA Yhi

� .test LDX #&70:LDY #0:LDA #9

�.JSR osword \Logical colour returned in &74

�>LDA tint:� #7:TAY \Logical colour used as index to pattern

�.byte LDX #0

�LDA pattern,Y

�P.loop1 LSR A:ROL octet,X \1 bit transfered from pattern to each byte in turn
INX:CPX set

BNE loop1
&.loop2 DEC count
0
BEQ print
:LDA Ylo
DSEC:SBC #4
NSTA Ylo
XLDA Yhi:SBC #0
bSTA Yhi
lJMP test
v.print LDX #0
�.loop3 LDA #1:JSR oswrch
�LDA octet,X:JSR oswrch 
�INX:CPX set
�
BNE loop3
�.xloop LDA Xlo
�CLC:ADC pix
�STA Xlo
�LDA Xhi:ADC #0
�&STA Xhi \Increment X to next pixel
�!CMP #5 \End of line? (X=1280)
�
BNE start
�JSR next \Start new line
�.yloop LDA YYlo
SEC:SBC #32
STA YYlo
LDA YYhi:SBC #0
 STA YYhi \Down 8 pixels
*$BCC end \Finish when Y reaches 0
4 JMP newl \Otherwise continue
>.end LDA #1:JSR oswrch
HLDA #7:JSR oswrch \Beep
RJSR esc
\9LDA #64:JSR oswrch \Return printer to default setting
f&LDA #3:JSR oswrch \And printer off
pRTS
z.esc LDA #1:JSR oswrch
�LDA #27:JSR oswrch
�LDA #1:JSR oswrch
�RTS
�.next LDA #1:JSR oswrch
�LDA #10:JSR oswrch
�RTS
�]
�
� pass
��:�''"End of code &";~P%
��''
�9�"SAVE"+" "+file$+" "+�~pattern+" +"+�~&FF+" "+�~code
��
���0
-!pattern=&00000100:!(pattern+4)=&00000000
 ?set=1:?pix=2:file$="UCODE0"
$�
.:
8��1
B-!pattern=&03020100:!(pattern+4)=&00000000
L ?set=2:?pix=4:file$="UCODE1"
V�
`:
j��2
t-!pattern=&01030500:!(pattern+4)=&0F0C0A0E
~ ?set=4:?pix=8:file$="UCODE2"
��
�:
���4
�-!pattern=&00000300:!(pattern+4)=&00000000
� ?set=2:?pix=4:file$="UCODE4"
��
�:
���5
�-!pattern=&0F050100:!(pattern+4)=&00000000
� ?set=4:?pix=8:file$="UCODE5"
��
�

00000000  0d 00 0a 0b f4 20 55 44  55 4d 50 0d 00 14 17 f4  |..... UDUMP.....|
00000010  20 45 55 20 4a 55 4e 45  20 31 39 38 36 20 50 2e  | EU JUNE 1986 P.|
00000020  32 36 0d 00 1e 24 f4 20  41 44 41 50 54 45 44 20  |26...$. ADAPTED |
00000030  31 39 39 34 20 46 4f 52  20 52 45 56 49 45 57 20  |1994 FOR REVIEW |
00000040  49 4e 20 45 55 47 0d 00  23 33 20 f4 20 41 44 41  |IN EUG..#3 . ADA|
00000050  50 54 45 44 20 54 4f 20  41 56 4f 49 44 20 53 43  |PTED TO AVOID SC|
00000060  52 45 45 4e 20 43 4f 52  52 55 50 54 49 4f 4e 20  |REEN CORRUPTION |
00000070  28 4d 2e 20 46 4f 52 44  29 0d 00 28 05 3a 0d 00  |(M. FORD)..(.:..|
00000080  32 2a 6f 73 77 6f 72 64  3d 26 46 46 46 31 3a 6f  |2*osword=&FFF1:o|
00000090  73 77 72 63 68 3d 26 46  46 45 45 3a 6f 73 62 79  |swrch=&FFEE:osby|
000000a0  74 65 3d 26 46 46 46 34  0d 00 3c 23 58 6c 6f 3d  |te=&FFF4..<#Xlo=|
000000b0  26 37 30 3a 58 68 69 3d  26 37 31 3a 59 6c 6f 3d  |&70:Xhi=&71:Ylo=|
000000c0  26 37 32 3a 59 68 69 3d  26 37 33 0d 00 46 15 59  |&72:Yhi=&73..F.Y|
000000d0  59 6c 6f 3d 26 38 30 3a  59 59 68 69 3d 26 38 31  |Ylo=&80:YYhi=&81|
000000e0  0d 00 50 20 74 69 6e 74  3d 26 37 34 3a 63 6f 75  |..P tint=&74:cou|
000000f0  6e 74 3d 26 37 35 3a 6f  63 74 65 74 3d 26 37 36  |nt=&75:octet=&76|
00000100  0d 00 5a 2c 70 61 74 74  65 72 6e 3d 26 39 30 30  |..Z,pattern=&900|
00000110  3a 73 65 74 3d 70 61 74  74 65 72 6e 2b 38 3a 70  |:set=pattern+8:p|
00000120  69 78 3d 70 61 74 74 65  72 6e 2b 39 0d 00 64 05  |ix=pattern+9..d.|
00000130  3a 0d 00 6e 21 eb 36 3a  e8 8a 31 32 2c 31 32 29  |:..n!.6:..12,12)|
00000140  22 45 6e 74 65 72 20 4d  4f 44 45 3a 20 22 6d 6f  |"Enter MODE: "mo|
00000150  64 65 0d 00 78 18 e7 20  6d 6f 64 65 20 3e 3d 36  |de..x.. mode >=6|
00000160  20 ef 37 3a e5 8d 44 6e  40 20 0d 00 82 30 4d 3d  | .7:..Dn@ ...0M=|
00000170  6d 6f 64 65 2b 31 3a ee  20 4d 20 e5 20 8d 74 56  |mode+1:. M . .tV|
00000180  40 2c 8d 74 60 40 2c 8d  74 6a 40 2c 8d 74 74 40  |@,.t`@,.tj@,.tt@|
00000190  2c 8d 74 7e 40 2c 8d 64  48 40 0d 00 8c 05 3a 0d  |,.t~@,.dH@....:.|
000001a0  00 96 0c f2 30 3a e5 8d  64 5c 40 0d 00 a0 0c f2  |....0:..d\@.....|
000001b0  31 3a e5 8d 64 5c 40 0d  00 aa 0c f2 32 3a e5 8d  |1:..d\@.....2:..|
000001c0  64 5c 40 0d 00 b4 0c ef  37 3a e5 8d 44 6e 40 0d  |d\@.....7:..Dn@.|
000001d0  00 be 0c f2 34 3a e5 8d  64 5c 40 0d 00 c8 0c f2  |....4:..d\@.....|
000001e0  35 3a e5 8d 64 5c 40 0d  00 d2 05 3a 0d 00 dc 13  |5:..d\@....:....|
000001f0  63 6f 64 65 3d 70 61 74  74 65 72 6e 2b 31 30 0d  |code=pattern+10.|
00000200  00 e6 14 e3 20 70 61 73  73 3d 30 20 b8 20 33 20  |.... pass=0 . 3 |
00000210  88 20 33 0d 00 f0 0b 50  25 3d 63 6f 64 65 0d 00  |. 3....P%=code..|
00000220  fa 0d 5b 4f 50 54 20 70  61 73 73 0d 01 04 2a 4c  |..[OPT pass...*L|
00000230  44 41 20 23 32 36 3a 4a  53 52 20 6f 73 77 72 63  |DA #26:JSR oswrc|
00000240  68 20 5c 53 65 74 20 64  65 66 61 75 6c 74 20 73  |h \Set default s|
00000250  63 72 65 65 6e 0d 01 0e  21 4c 44 41 20 23 32 3a  |creen...!LDA #2:|
00000260  4a 53 52 20 6f 73 77 72  63 68 20 5c 50 72 69 6e  |JSR oswrch \Prin|
00000270  74 65 72 20 6f 6e 0d 01  18 16 20 5c 2e 63 6c 65  |ter on.... \.cle|
00000280  61 72 20 4a 53 52 20 6e  65 78 74 20 0d 01 22 11  |ar JSR next ..".|
00000290  2e 6c 69 6e 65 20 4a 53  52 20 65 73 63 0d 01 2c  |.line JSR esc..,|
000002a0  16 4c 44 41 20 23 36 35  3a 4a 53 52 20 6f 73 77  |.LDA #65:JSR osw|
000002b0  72 63 68 0d 01 36 15 4c  44 41 20 23 31 3a 4a 53  |rch..6.LDA #1:JS|
000002c0  52 20 6f 73 77 72 63 68  0d 01 40 27 4c 44 41 20  |R oswrch..@'LDA |
000002d0  23 38 3a 4a 53 52 20 6f  73 77 72 63 68 20 5c 53  |#8:JSR oswrch \S|
000002e0  65 74 20 6c 69 6e 65 20  73 70 61 63 69 6e 67 0d  |et line spacing.|
000002f0  01 4a 1b 2e 6c 6f 61 64  20 4c 44 41 20 23 32 35  |.J..load LDA #25|
00000300  32 3a 53 54 41 20 59 59  6c 6f 0d 01 54 21 4c 44  |2:STA YYlo..T!LD|
00000310  41 20 23 33 3a 53 54 41  20 59 59 68 69 20 5c 53  |A #3:STA YYhi \S|
00000320  74 61 72 74 20 59 3d 31  30 32 30 0d 01 5e 18 2e  |tart Y=1020..^..|
00000330  6e 65 77 6c 20 4c 44 41  20 23 30 3a 53 54 41 20  |newl LDA #0:STA |
00000340  58 6c 6f 0d 01 68 16 53  54 41 20 58 68 69 20 5c  |Xlo..h.STA Xhi \|
00000350  53 74 61 72 74 20 58 3d  30 0d 01 72 10 2e 62 69  |Start X=0..r..bi|
00000360  74 20 4a 53 52 20 65 73  63 0d 01 7c 37 4c 44 41  |t JSR esc..|7LDA|
00000370  20 23 37 36 3a 4a 53 52  20 6f 73 77 72 63 68 20  | #76:JSR oswrch |
00000380  5c 70 72 69 6e 74 65 72  20 63 6f 64 65 20 66 6f  |\printer code fo|
00000390  72 20 64 6f 75 62 6c 65  20 64 65 6e 73 69 74 79  |r double density|
000003a0  0d 01 86 15 4c 44 41 20  23 31 3a 4a 53 52 20 6f  |....LDA #1:JSR o|
000003b0  73 77 72 63 68 0d 01 90  17 4c 44 41 20 23 31 32  |swrch....LDA #12|
000003c0  38 3a 4a 53 52 20 6f 73  77 72 63 68 0d 01 9a 15  |8:JSR oswrch....|
000003d0  4c 44 41 20 23 31 3a 4a  53 52 20 6f 73 77 72 63  |LDA #1:JSR oswrc|
000003e0  68 0d 01 a4 28 4c 44 41  20 23 32 3a 4a 53 52 20  |h...(LDA #2:JSR |
000003f0  6f 73 77 72 63 68 20 5c  39 36 30 20 64 6f 74 73  |oswrch \960 dots|
00000400  20 70 65 72 20 6c 69 6e  65 0d 01 ae 1b 2e 73 74  | per line.....st|
00000410  61 72 74 20 4c 44 41 20  23 38 3a 53 54 41 20 63  |art LDA #8:STA c|
00000420  6f 75 6e 74 0d 01 b8 14  4c 44 41 20 59 59 6c 6f  |ount....LDA YYlo|
00000430  3a 53 54 41 20 59 6c 6f  0d 01 c2 14 4c 44 41 20  |:STA Ylo....LDA |
00000440  59 59 68 69 3a 53 54 41  20 59 68 69 0d 01 cc 20  |YYhi:STA Yhi... |
00000450  2e 74 65 73 74 20 4c 44  58 20 23 26 37 30 3a 4c  |.test LDX #&70:L|
00000460  44 59 20 23 30 3a 4c 44  41 20 23 39 0d 01 d6 2e  |DY #0:LDA #9....|
00000470  4a 53 52 20 6f 73 77 6f  72 64 20 5c 4c 6f 67 69  |JSR osword \Logi|
00000480  63 61 6c 20 63 6f 6c 6f  75 72 20 72 65 74 75 72  |cal colour retur|
00000490  6e 65 64 20 69 6e 20 26  37 34 0d 01 e0 3e 4c 44  |ned in &74...>LD|
000004a0  41 20 74 69 6e 74 3a 80  20 23 37 3a 54 41 59 20  |A tint:. #7:TAY |
000004b0  5c 4c 6f 67 69 63 61 6c  20 63 6f 6c 6f 75 72 20  |\Logical colour |
000004c0  75 73 65 64 20 61 73 20  69 6e 64 65 78 20 74 6f  |used as index to|
000004d0  20 70 61 74 74 65 72 6e  0d 01 ea 10 2e 62 79 74  | pattern.....byt|
000004e0  65 20 4c 44 58 20 23 30  0d 01 f4 11 4c 44 41 20  |e LDX #0....LDA |
000004f0  70 61 74 74 65 72 6e 2c  59 0d 01 fe 50 2e 6c 6f  |pattern,Y...P.lo|
00000500  6f 70 31 20 4c 53 52 20  41 3a 52 4f 4c 20 6f 63  |op1 LSR A:ROL oc|
00000510  74 65 74 2c 58 20 5c 31  20 62 69 74 20 74 72 61  |tet,X \1 bit tra|
00000520  6e 73 66 65 72 65 64 20  66 72 6f 6d 20 70 61 74  |nsfered from pat|
00000530  74 65 72 6e 20 74 6f 20  65 61 63 68 20 62 79 74  |tern to each byt|
00000540  65 20 69 6e 20 74 75 72  6e 0d 02 12 0f 49 4e 58  |e in turn....INX|
00000550  3a 43 50 58 20 73 65 74  0d 02 1c 0d 42 4e 45 20  |:CPX set....BNE |
00000560  6c 6f 6f 70 31 0d 02 26  14 2e 6c 6f 6f 70 32 20  |loop1..&..loop2 |
00000570  44 45 43 20 63 6f 75 6e  74 0d 02 30 0d 42 45 51  |DEC count..0.BEQ|
00000580  20 70 72 69 6e 74 0d 02  3a 0b 4c 44 41 20 59 6c  | print..:.LDA Yl|
00000590  6f 0d 02 44 0e 53 45 43  3a 53 42 43 20 23 34 0d  |o..D.SEC:SBC #4.|
000005a0  02 4e 0b 53 54 41 20 59  6c 6f 0d 02 58 12 4c 44  |.N.STA Ylo..X.LD|
000005b0  41 20 59 68 69 3a 53 42  43 20 23 30 0d 02 62 0b  |A Yhi:SBC #0..b.|
000005c0  53 54 41 20 59 68 69 0d  02 6c 0c 4a 4d 50 20 74  |STA Yhi..l.JMP t|
000005d0  65 73 74 0d 02 76 11 2e  70 72 69 6e 74 20 4c 44  |est..v..print LD|
000005e0  58 20 23 30 0d 02 80 1c  2e 6c 6f 6f 70 33 20 4c  |X #0.....loop3 L|
000005f0  44 41 20 23 31 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #1:JSR oswrch|
00000600  0d 02 8a 1b 4c 44 41 20  6f 63 74 65 74 2c 58 3a  |....LDA octet,X:|
00000610  4a 53 52 20 6f 73 77 72  63 68 20 0d 02 94 0f 49  |JSR oswrch ....I|
00000620  4e 58 3a 43 50 58 20 73  65 74 0d 02 9e 0d 42 4e  |NX:CPX set....BN|
00000630  45 20 6c 6f 6f 70 33 0d  02 a8 12 2e 78 6c 6f 6f  |E loop3.....xloo|
00000640  70 20 4c 44 41 20 58 6c  6f 0d 02 b2 0f 43 4c 43  |p LDA Xlo....CLC|
00000650  3a 41 44 43 20 70 69 78  0d 02 bc 0b 53 54 41 20  |:ADC pix....STA |
00000660  58 6c 6f 0d 02 c6 12 4c  44 41 20 58 68 69 3a 41  |Xlo....LDA Xhi:A|
00000670  44 43 20 23 30 0d 02 d0  26 53 54 41 20 58 68 69  |DC #0...&STA Xhi|
00000680  20 5c 49 6e 63 72 65 6d  65 6e 74 20 58 20 74 6f  | \Increment X to|
00000690  20 6e 65 78 74 20 70 69  78 65 6c 0d 02 da 21 43  | next pixel...!C|
000006a0  4d 50 20 23 35 20 5c 45  6e 64 20 6f 66 20 6c 69  |MP #5 \End of li|
000006b0  6e 65 3f 20 28 58 3d 31  32 38 30 29 0d 02 e4 0d  |ne? (X=1280)....|
000006c0  42 4e 45 20 73 74 61 72  74 0d 02 ee 1c 4a 53 52  |BNE start....JSR|
000006d0  20 6e 65 78 74 20 5c 53  74 61 72 74 20 6e 65 77  | next \Start new|
000006e0  20 6c 69 6e 65 0d 02 f8  13 2e 79 6c 6f 6f 70 20  | line.....yloop |
000006f0  4c 44 41 20 59 59 6c 6f  0d 03 02 0f 53 45 43 3a  |LDA YYlo....SEC:|
00000700  53 42 43 20 23 33 32 0d  03 0c 0c 53 54 41 20 59  |SBC #32....STA Y|
00000710  59 6c 6f 0d 03 16 13 4c  44 41 20 59 59 68 69 3a  |Ylo....LDA YYhi:|
00000720  53 42 43 20 23 30 0d 03  20 1b 53 54 41 20 59 59  |SBC #0.. .STA YY|
00000730  68 69 20 5c 44 6f 77 6e  20 38 20 70 69 78 65 6c  |hi \Down 8 pixel|
00000740  73 0d 03 2a 24 42 43 43  20 65 6e 64 20 5c 46 69  |s..*$BCC end \Fi|
00000750  6e 69 73 68 20 77 68 65  6e 20 59 20 72 65 61 63  |nish when Y reac|
00000760  68 65 73 20 30 0d 03 34  20 4a 4d 50 20 6e 65 77  |hes 0..4 JMP new|
00000770  6c 20 5c 4f 74 68 65 72  77 69 73 65 20 63 6f 6e  |l \Otherwise con|
00000780  74 69 6e 75 65 0d 03 3e  1a 2e 65 6e 64 20 4c 44  |tinue..>..end LD|
00000790  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
000007a0  03 48 1b 4c 44 41 20 23  37 3a 4a 53 52 20 6f 73  |.H.LDA #7:JSR os|
000007b0  77 72 63 68 20 5c 42 65  65 70 0d 03 52 0b 4a 53  |wrch \Beep..R.JS|
000007c0  52 20 65 73 63 0d 03 5c  39 4c 44 41 20 23 36 34  |R esc..\9LDA #64|
000007d0  3a 4a 53 52 20 6f 73 77  72 63 68 20 5c 52 65 74  |:JSR oswrch \Ret|
000007e0  75 72 6e 20 70 72 69 6e  74 65 72 20 74 6f 20 64  |urn printer to d|
000007f0  65 66 61 75 6c 74 20 73  65 74 74 69 6e 67 0d 03  |efault setting..|
00000800  66 26 4c 44 41 20 23 33  3a 4a 53 52 20 6f 73 77  |f&LDA #3:JSR osw|
00000810  72 63 68 20 5c 41 6e 64  20 70 72 69 6e 74 65 72  |rch \And printer|
00000820  20 6f 66 66 0d 03 70 07  52 54 53 0d 03 7a 1a 2e  | off..p.RTS..z..|
00000830  65 73 63 20 4c 44 41 20  23 31 3a 4a 53 52 20 6f  |esc LDA #1:JSR o|
00000840  73 77 72 63 68 0d 03 84  16 4c 44 41 20 23 32 37  |swrch....LDA #27|
00000850  3a 4a 53 52 20 6f 73 77  72 63 68 0d 03 8e 15 4c  |:JSR oswrch....L|
00000860  44 41 20 23 31 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #1:JSR oswrch|
00000870  0d 03 98 07 52 54 53 0d  03 a2 1b 2e 6e 65 78 74  |....RTS.....next|
00000880  20 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  | LDA #1:JSR oswr|
00000890  63 68 0d 03 ac 16 4c 44  41 20 23 31 30 3a 4a 53  |ch....LDA #10:JS|
000008a0  52 20 6f 73 77 72 63 68  0d 03 b6 07 52 54 53 0d  |R oswrch....RTS.|
000008b0  03 c0 05 5d 0d 03 ca 0a  ed 20 70 61 73 73 0d 03  |...]..... pass..|
000008c0  d4 1c db 3a f1 27 27 22  45 6e 64 20 6f 66 20 63  |...:.''"End of c|
000008d0  6f 64 65 20 26 22 3b 7e  50 25 0d 03 de 07 f1 27  |ode &";~P%.....'|
000008e0  27 0d 03 e8 39 ff 22 53  41 56 45 22 2b 22 20 22  |'...9."SAVE"+" "|
000008f0  2b 66 69 6c 65 24 2b 22  20 22 2b c3 7e 70 61 74  |+file$+" "+.~pat|
00000900  74 65 72 6e 2b 22 20 2b  22 2b c3 7e 26 46 46 2b  |tern+" +"+.~&FF+|
00000910  22 20 22 2b c3 7e 63 6f  64 65 0d 03 f2 05 e0 0d  |" "+.~code......|
00000920  03 fc 07 dd f2 30 0d 04  06 2d 21 70 61 74 74 65  |.....0...-!patte|
00000930  72 6e 3d 26 30 30 30 30  30 31 30 30 3a 21 28 70  |rn=&00000100:!(p|
00000940  61 74 74 65 72 6e 2b 34  29 3d 26 30 30 30 30 30  |attern+4)=&00000|
00000950  30 30 30 0d 04 10 20 3f  73 65 74 3d 31 3a 3f 70  |000... ?set=1:?p|
00000960  69 78 3d 32 3a 66 69 6c  65 24 3d 22 55 43 4f 44  |ix=2:file$="UCOD|
00000970  45 30 22 0d 04 24 05 e1  0d 04 2e 05 3a 0d 04 38  |E0"..$......:..8|
00000980  07 dd f2 31 0d 04 42 2d  21 70 61 74 74 65 72 6e  |...1..B-!pattern|
00000990  3d 26 30 33 30 32 30 31  30 30 3a 21 28 70 61 74  |=&03020100:!(pat|
000009a0  74 65 72 6e 2b 34 29 3d  26 30 30 30 30 30 30 30  |tern+4)=&0000000|
000009b0  30 0d 04 4c 20 3f 73 65  74 3d 32 3a 3f 70 69 78  |0..L ?set=2:?pix|
000009c0  3d 34 3a 66 69 6c 65 24  3d 22 55 43 4f 44 45 31  |=4:file$="UCODE1|
000009d0  22 0d 04 56 05 e1 0d 04  60 05 3a 0d 04 6a 07 dd  |"..V....`.:..j..|
000009e0  f2 32 0d 04 74 2d 21 70  61 74 74 65 72 6e 3d 26  |.2..t-!pattern=&|
000009f0  30 31 30 33 30 35 30 30  3a 21 28 70 61 74 74 65  |01030500:!(patte|
00000a00  72 6e 2b 34 29 3d 26 30  46 30 43 30 41 30 45 0d  |rn+4)=&0F0C0A0E.|
00000a10  04 7e 20 3f 73 65 74 3d  34 3a 3f 70 69 78 3d 38  |.~ ?set=4:?pix=8|
00000a20  3a 66 69 6c 65 24 3d 22  55 43 4f 44 45 32 22 0d  |:file$="UCODE2".|
00000a30  04 88 05 e1 0d 04 92 05  3a 0d 04 9c 07 dd f2 34  |........:......4|
00000a40  0d 04 a6 2d 21 70 61 74  74 65 72 6e 3d 26 30 30  |...-!pattern=&00|
00000a50  30 30 30 33 30 30 3a 21  28 70 61 74 74 65 72 6e  |000300:!(pattern|
00000a60  2b 34 29 3d 26 30 30 30  30 30 30 30 30 0d 04 b0  |+4)=&00000000...|
00000a70  20 3f 73 65 74 3d 32 3a  3f 70 69 78 3d 34 3a 66  | ?set=2:?pix=4:f|
00000a80  69 6c 65 24 3d 22 55 43  4f 44 45 34 22 0d 04 ba  |ile$="UCODE4"...|
00000a90  05 e1 0d 04 c4 05 3a 0d  04 ce 07 dd f2 35 0d 04  |......:......5..|
00000aa0  d8 2d 21 70 61 74 74 65  72 6e 3d 26 30 46 30 35  |.-!pattern=&0F05|
00000ab0  30 31 30 30 3a 21 28 70  61 74 74 65 72 6e 2b 34  |0100:!(pattern+4|
00000ac0  29 3d 26 30 30 30 30 30  30 30 30 0d 04 e2 20 3f  |)=&00000000... ?|
00000ad0  73 65 74 3d 34 3a 3f 70  69 78 3d 38 3a 66 69 6c  |set=4:?pix=8:fil|
00000ae0  65 24 3d 22 55 43 4f 44  45 35 22 0d 04 ec 05 e1  |e$="UCODE5".....|
00000af0  0d ff                                             |..|
00000af2