� UDUMP
� EU JUNE 1986 P.26
$� ADAPTED 1994 FOR REVIEW IN EUG
(:
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 #4: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 #4: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

�7.loop1 LSR A:ROL octet,X \ROL requires X register  
KLSR A:ROL octet,X \2 bits 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 #16
STA YYlo
LDA YYhi:SBC #0
 STA YYhi \Down 4 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=&FFFFFF00:!(pattern+4)=&00000000
 ?set=1:?pix=2:file$="UCODE0"
$�
.:
8��1
B-!pattern=&FF119900:!(pattern+4)=&00000000
L ?set=2:?pix=4:file$="UCODE1"
V�
`:
j��2
t-!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=&0FF119900:!(pattern+4)=&0000
� ?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  28 05 3a 0d 00 32 2a 6f  |IN EUG..(.:..2*o|
00000050  73 77 6f 72 64 3d 26 46  46 46 31 3a 6f 73 77 72  |sword=&FFF1:oswr|
00000060  63 68 3d 26 46 46 45 45  3a 6f 73 62 79 74 65 3d  |ch=&FFEE:osbyte=|
00000070  26 46 46 46 34 0d 00 3c  23 58 6c 6f 3d 26 37 30  |&FFF4..<#Xlo=&70|
00000080  3a 58 68 69 3d 26 37 31  3a 59 6c 6f 3d 26 37 32  |:Xhi=&71:Ylo=&72|
00000090  3a 59 68 69 3d 26 37 33  0d 00 46 15 59 59 6c 6f  |:Yhi=&73..F.YYlo|
000000a0  3d 26 38 30 3a 59 59 68  69 3d 26 38 31 0d 00 50  |=&80:YYhi=&81..P|
000000b0  20 74 69 6e 74 3d 26 37  34 3a 63 6f 75 6e 74 3d  | tint=&74:count=|
000000c0  26 37 35 3a 6f 63 74 65  74 3d 26 37 36 0d 00 5a  |&75:octet=&76..Z|
000000d0  2c 70 61 74 74 65 72 6e  3d 26 39 30 30 3a 73 65  |,pattern=&900:se|
000000e0  74 3d 70 61 74 74 65 72  6e 2b 38 3a 70 69 78 3d  |t=pattern+8:pix=|
000000f0  70 61 74 74 65 72 6e 2b  39 0d 00 64 05 3a 0d 00  |pattern+9..d.:..|
00000100  6e 21 eb 36 3a e8 8a 31  32 2c 31 32 29 22 45 6e  |n!.6:..12,12)"En|
00000110  74 65 72 20 4d 4f 44 45  3a 20 22 6d 6f 64 65 0d  |ter MODE: "mode.|
00000120  00 78 18 e7 20 6d 6f 64  65 20 3e 3d 36 20 ef 37  |.x.. mode >=6 .7|
00000130  3a e5 8d 44 6e 40 20 0d  00 82 30 4d 3d 6d 6f 64  |:..Dn@ ...0M=mod|
00000140  65 2b 31 3a ee 20 4d 20  e5 20 8d 74 56 40 2c 8d  |e+1:. M . .tV@,.|
00000150  74 60 40 2c 8d 74 6a 40  2c 8d 74 74 40 2c 8d 74  |t`@,.tj@,.tt@,.t|
00000160  7e 40 2c 8d 64 48 40 0d  00 8c 05 3a 0d 00 96 0c  |~@,.dH@....:....|
00000170  f2 30 3a e5 8d 64 5c 40  0d 00 a0 0c f2 31 3a e5  |.0:..d\@.....1:.|
00000180  8d 64 5c 40 0d 00 aa 0c  f2 32 3a e5 8d 64 5c 40  |.d\@.....2:..d\@|
00000190  0d 00 b4 0c ef 37 3a e5  8d 44 6e 40 0d 00 be 0c  |.....7:..Dn@....|
000001a0  f2 34 3a e5 8d 64 5c 40  0d 00 c8 0c f2 35 3a e5  |.4:..d\@.....5:.|
000001b0  8d 64 5c 40 0d 00 d2 05  3a 0d 00 dc 13 63 6f 64  |.d\@....:....cod|
000001c0  65 3d 70 61 74 74 65 72  6e 2b 31 30 0d 00 e6 14  |e=pattern+10....|
000001d0  e3 20 70 61 73 73 3d 30  20 b8 20 33 20 88 20 33  |. pass=0 . 3 . 3|
000001e0  0d 00 f0 0b 50 25 3d 63  6f 64 65 0d 00 fa 0d 5b  |....P%=code....[|
000001f0  4f 50 54 20 70 61 73 73  0d 01 04 2a 4c 44 41 20  |OPT pass...*LDA |
00000200  23 32 36 3a 4a 53 52 20  6f 73 77 72 63 68 20 5c  |#26:JSR oswrch \|
00000210  53 65 74 20 64 65 66 61  75 6c 74 20 73 63 72 65  |Set default scre|
00000220  65 6e 0d 01 0e 21 4c 44  41 20 23 32 3a 4a 53 52  |en...!LDA #2:JSR|
00000230  20 6f 73 77 72 63 68 20  5c 50 72 69 6e 74 65 72  | oswrch \Printer|
00000240  20 6f 6e 0d 01 18 16 20  5c 2e 63 6c 65 61 72 20  | on.... \.clear |
00000250  4a 53 52 20 6e 65 78 74  20 0d 01 22 11 2e 6c 69  |JSR next .."..li|
00000260  6e 65 20 4a 53 52 20 65  73 63 0d 01 2c 16 4c 44  |ne JSR esc..,.LD|
00000270  41 20 23 36 35 3a 4a 53  52 20 6f 73 77 72 63 68  |A #65:JSR oswrch|
00000280  0d 01 36 15 4c 44 41 20  23 31 3a 4a 53 52 20 6f  |..6.LDA #1:JSR o|
00000290  73 77 72 63 68 0d 01 40  27 4c 44 41 20 23 34 3a  |swrch..@'LDA #4:|
000002a0  4a 53 52 20 6f 73 77 72  63 68 20 5c 53 65 74 20  |JSR oswrch \Set |
000002b0  6c 69 6e 65 20 73 70 61  63 69 6e 67 0d 01 4a 1b  |line spacing..J.|
000002c0  2e 6c 6f 61 64 20 4c 44  41 20 23 32 35 32 3a 53  |.load LDA #252:S|
000002d0  54 41 20 59 59 6c 6f 0d  01 54 21 4c 44 41 20 23  |TA YYlo..T!LDA #|
000002e0  33 3a 53 54 41 20 59 59  68 69 20 5c 53 74 61 72  |3:STA YYhi \Star|
000002f0  74 20 59 3d 31 30 32 30  0d 01 5e 18 2e 6e 65 77  |t Y=1020..^..new|
00000300  6c 20 4c 44 41 20 23 30  3a 53 54 41 20 58 6c 6f  |l LDA #0:STA Xlo|
00000310  0d 01 68 16 53 54 41 20  58 68 69 20 5c 53 74 61  |..h.STA Xhi \Sta|
00000320  72 74 20 58 3d 30 0d 01  72 10 2e 62 69 74 20 4a  |rt X=0..r..bit J|
00000330  53 52 20 65 73 63 0d 01  7c 37 4c 44 41 20 23 37  |SR esc..|7LDA #7|
00000340  36 3a 4a 53 52 20 6f 73  77 72 63 68 20 5c 70 72  |6:JSR oswrch \pr|
00000350  69 6e 74 65 72 20 63 6f  64 65 20 66 6f 72 20 64  |inter code for d|
00000360  6f 75 62 6c 65 20 64 65  6e 73 69 74 79 0d 01 86  |ouble density...|
00000370  15 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  |.LDA #1:JSR oswr|
00000380  63 68 0d 01 90 17 4c 44  41 20 23 31 32 38 3a 4a  |ch....LDA #128:J|
00000390  53 52 20 6f 73 77 72 63  68 0d 01 9a 15 4c 44 41  |SR oswrch....LDA|
000003a0  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 01  | #1:JSR oswrch..|
000003b0  a4 28 4c 44 41 20 23 32  3a 4a 53 52 20 6f 73 77  |.(LDA #2:JSR osw|
000003c0  72 63 68 20 5c 39 36 30  20 64 6f 74 73 20 70 65  |rch \960 dots pe|
000003d0  72 20 6c 69 6e 65 0d 01  ae 1b 2e 73 74 61 72 74  |r line.....start|
000003e0  20 4c 44 41 20 23 34 3a  53 54 41 20 63 6f 75 6e  | LDA #4:STA coun|
000003f0  74 0d 01 b8 14 4c 44 41  20 59 59 6c 6f 3a 53 54  |t....LDA YYlo:ST|
00000400  41 20 59 6c 6f 0d 01 c2  14 4c 44 41 20 59 59 68  |A Ylo....LDA YYh|
00000410  69 3a 53 54 41 20 59 68  69 0d 01 cc 20 2e 74 65  |i:STA Yhi... .te|
00000420  73 74 20 4c 44 58 20 23  26 37 30 3a 4c 44 59 20  |st LDX #&70:LDY |
00000430  23 30 3a 4c 44 41 20 23  39 0d 01 d6 2e 4a 53 52  |#0:LDA #9....JSR|
00000440  20 6f 73 77 6f 72 64 20  5c 4c 6f 67 69 63 61 6c  | osword \Logical|
00000450  20 63 6f 6c 6f 75 72 20  72 65 74 75 72 6e 65 64  | colour returned|
00000460  20 69 6e 20 26 37 34 0d  01 e0 3e 4c 44 41 20 74  | in &74...>LDA t|
00000470  69 6e 74 3a 80 20 23 37  3a 54 41 59 20 5c 4c 6f  |int:. #7:TAY \Lo|
00000480  67 69 63 61 6c 20 63 6f  6c 6f 75 72 20 75 73 65  |gical colour use|
00000490  64 20 61 73 20 69 6e 64  65 78 20 74 6f 20 70 61  |d as index to pa|
000004a0  74 74 65 72 6e 0d 01 ea  10 2e 62 79 74 65 20 4c  |ttern.....byte L|
000004b0  44 58 20 23 30 0d 01 f4  11 4c 44 41 20 70 61 74  |DX #0....LDA pat|
000004c0  74 65 72 6e 2c 59 0d 01  fe 37 2e 6c 6f 6f 70 31  |tern,Y...7.loop1|
000004d0  20 4c 53 52 20 41 3a 52  4f 4c 20 6f 63 74 65 74  | LSR A:ROL octet|
000004e0  2c 58 20 5c 52 4f 4c 20  72 65 71 75 69 72 65 73  |,X \ROL requires|
000004f0  20 58 20 72 65 67 69 73  74 65 72 20 20 0d 02 08  | X register  ...|
00000500  4b 4c 53 52 20 41 3a 52  4f 4c 20 6f 63 74 65 74  |KLSR A:ROL octet|
00000510  2c 58 20 5c 32 20 62 69  74 73 20 74 72 61 6e 73  |,X \2 bits trans|
00000520  66 65 72 65 64 20 66 72  6f 6d 20 70 61 74 74 65  |fered from patte|
00000530  72 6e 20 74 6f 20 65 61  63 68 20 62 79 74 65 20  |rn to each byte |
00000540  69 6e 20 74 75 72 6e 20  0d 02 12 0f 49 4e 58 3a  |in turn ....INX:|
00000550  43 50 58 20 73 65 74 0d  02 1c 0d 42 4e 45 20 6c  |CPX set....BNE l|
00000560  6f 6f 70 31 0d 02 26 14  2e 6c 6f 6f 70 32 20 44  |oop1..&..loop2 D|
00000570  45 43 20 63 6f 75 6e 74  0d 02 30 0d 42 45 51 20  |EC count..0.BEQ |
00000580  70 72 69 6e 74 0d 02 3a  0b 4c 44 41 20 59 6c 6f  |print..:.LDA Ylo|
00000590  0d 02 44 0e 53 45 43 3a  53 42 43 20 23 34 0d 02  |..D.SEC:SBC #4..|
000005a0  4e 0b 53 54 41 20 59 6c  6f 0d 02 58 12 4c 44 41  |N.STA Ylo..X.LDA|
000005b0  20 59 68 69 3a 53 42 43  20 23 30 0d 02 62 0b 53  | Yhi:SBC #0..b.S|
000005c0  54 41 20 59 68 69 0d 02  6c 0c 4a 4d 50 20 74 65  |TA Yhi..l.JMP te|
000005d0  73 74 0d 02 76 11 2e 70  72 69 6e 74 20 4c 44 58  |st..v..print LDX|
000005e0  20 23 30 0d 02 80 1c 2e  6c 6f 6f 70 33 20 4c 44  | #0.....loop3 LD|
000005f0  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
00000600  02 8a 1b 4c 44 41 20 6f  63 74 65 74 2c 58 3a 4a  |...LDA octet,X:J|
00000610  53 52 20 6f 73 77 72 63  68 20 0d 02 94 0f 49 4e  |SR oswrch ....IN|
00000620  58 3a 43 50 58 20 73 65  74 0d 02 9e 0d 42 4e 45  |X:CPX set....BNE|
00000630  20 6c 6f 6f 70 33 0d 02  a8 12 2e 78 6c 6f 6f 70  | loop3.....xloop|
00000640  20 4c 44 41 20 58 6c 6f  0d 02 b2 0f 43 4c 43 3a  | LDA Xlo....CLC:|
00000650  41 44 43 20 70 69 78 0d  02 bc 0b 53 54 41 20 58  |ADC pix....STA X|
00000660  6c 6f 0d 02 c6 12 4c 44  41 20 58 68 69 3a 41 44  |lo....LDA Xhi:AD|
00000670  43 20 23 30 0d 02 d0 26  53 54 41 20 58 68 69 20  |C #0...&STA Xhi |
00000680  5c 49 6e 63 72 65 6d 65  6e 74 20 58 20 74 6f 20  |\Increment X to |
00000690  6e 65 78 74 20 70 69 78  65 6c 0d 02 da 21 43 4d  |next pixel...!CM|
000006a0  50 20 23 35 20 5c 45 6e  64 20 6f 66 20 6c 69 6e  |P #5 \End of lin|
000006b0  65 3f 20 28 58 3d 31 32  38 30 29 0d 02 e4 0d 42  |e? (X=1280)....B|
000006c0  4e 45 20 73 74 61 72 74  0d 02 ee 1c 4a 53 52 20  |NE start....JSR |
000006d0  6e 65 78 74 20 5c 53 74  61 72 74 20 6e 65 77 20  |next \Start new |
000006e0  6c 69 6e 65 0d 02 f8 13  2e 79 6c 6f 6f 70 20 4c  |line.....yloop L|
000006f0  44 41 20 59 59 6c 6f 0d  03 02 0f 53 45 43 3a 53  |DA YYlo....SEC:S|
00000700  42 43 20 23 31 36 0d 03  0c 0c 53 54 41 20 59 59  |BC #16....STA YY|
00000710  6c 6f 0d 03 16 13 4c 44  41 20 59 59 68 69 3a 53  |lo....LDA YYhi:S|
00000720  42 43 20 23 30 0d 03 20  1b 53 54 41 20 59 59 68  |BC #0.. .STA YYh|
00000730  69 20 5c 44 6f 77 6e 20  34 20 70 69 78 65 6c 73  |i \Down 4 pixels|
00000740  0d 03 2a 24 42 43 43 20  65 6e 64 20 5c 46 69 6e  |..*$BCC end \Fin|
00000750  69 73 68 20 77 68 65 6e  20 59 20 72 65 61 63 68  |ish when Y reach|
00000760  65 73 20 30 0d 03 34 20  4a 4d 50 20 6e 65 77 6c  |es 0..4 JMP newl|
00000770  20 5c 4f 74 68 65 72 77  69 73 65 20 63 6f 6e 74  | \Otherwise cont|
00000780  69 6e 75 65 0d 03 3e 1a  2e 65 6e 64 20 4c 44 41  |inue..>..end LDA|
00000790  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 03  | #1:JSR oswrch..|
000007a0  48 1b 4c 44 41 20 23 37  3a 4a 53 52 20 6f 73 77  |H.LDA #7:JSR osw|
000007b0  72 63 68 20 5c 42 65 65  70 0d 03 52 0b 4a 53 52  |rch \Beep..R.JSR|
000007c0  20 65 73 63 0d 03 5c 39  4c 44 41 20 23 36 34 3a  | esc..\9LDA #64:|
000007d0  4a 53 52 20 6f 73 77 72  63 68 20 5c 52 65 74 75  |JSR oswrch \Retu|
000007e0  72 6e 20 70 72 69 6e 74  65 72 20 74 6f 20 64 65  |rn printer to de|
000007f0  66 61 75 6c 74 20 73 65  74 74 69 6e 67 0d 03 66  |fault setting..f|
00000800  26 4c 44 41 20 23 33 3a  4a 53 52 20 6f 73 77 72  |&LDA #3:JSR oswr|
00000810  63 68 20 5c 41 6e 64 20  70 72 69 6e 74 65 72 20  |ch \And printer |
00000820  6f 66 66 0d 03 70 07 52  54 53 0d 03 7a 1a 2e 65  |off..p.RTS..z..e|
00000830  73 63 20 4c 44 41 20 23  31 3a 4a 53 52 20 6f 73  |sc LDA #1:JSR os|
00000840  77 72 63 68 0d 03 84 16  4c 44 41 20 23 32 37 3a  |wrch....LDA #27:|
00000850  4a 53 52 20 6f 73 77 72  63 68 0d 03 8e 15 4c 44  |JSR oswrch....LD|
00000860  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
00000870  03 98 07 52 54 53 0d 03  a2 1b 2e 6e 65 78 74 20  |...RTS.....next |
00000880  4c 44 41 20 23 31 3a 4a  53 52 20 6f 73 77 72 63  |LDA #1:JSR oswrc|
00000890  68 0d 03 ac 16 4c 44 41  20 23 31 30 3a 4a 53 52  |h....LDA #10:JSR|
000008a0  20 6f 73 77 72 63 68 0d  03 b6 07 52 54 53 0d 03  | oswrch....RTS..|
000008b0  c0 05 5d 0d 03 ca 0a ed  20 70 61 73 73 0d 03 d4  |..]..... pass...|
000008c0  1c db 3a f1 27 27 22 45  6e 64 20 6f 66 20 63 6f  |..:.''"End of co|
000008d0  64 65 20 26 22 3b 7e 50  25 0d 03 de 07 f1 27 27  |de &";~P%.....''|
000008e0  0d 03 e8 39 ff 22 53 41  56 45 22 2b 22 20 22 2b  |...9."SAVE"+" "+|
000008f0  66 69 6c 65 24 2b 22 20  22 2b c3 7e 70 61 74 74  |file$+" "+.~patt|
00000900  65 72 6e 2b 22 20 2b 22  2b c3 7e 26 46 46 2b 22  |ern+" +"+.~&FF+"|
00000910  20 22 2b c3 7e 63 6f 64  65 0d 03 f2 05 e0 0d 03  | "+.~code.......|
00000920  fc 07 dd f2 30 0d 04 06  2d 21 70 61 74 74 65 72  |....0...-!patter|
00000930  6e 3d 26 46 46 46 46 46  46 30 30 3a 21 28 70 61  |n=&FFFFFF00:!(pa|
00000940  74 74 65 72 6e 2b 34 29  3d 26 30 30 30 30 30 30  |ttern+4)=&000000|
00000950  30 30 0d 04 10 20 3f 73  65 74 3d 31 3a 3f 70 69  |00... ?set=1:?pi|
00000960  78 3d 32 3a 66 69 6c 65  24 3d 22 55 43 4f 44 45  |x=2:file$="UCODE|
00000970  30 22 0d 04 24 05 e1 0d  04 2e 05 3a 0d 04 38 07  |0"..$......:..8.|
00000980  dd f2 31 0d 04 42 2d 21  70 61 74 74 65 72 6e 3d  |..1..B-!pattern=|
00000990  26 46 46 31 31 39 39 30  30 3a 21 28 70 61 74 74  |&FF119900:!(patt|
000009a0  65 72 6e 2b 34 29 3d 26  30 30 30 30 30 30 30 30  |ern+4)=&00000000|
000009b0  0d 04 4c 20 3f 73 65 74  3d 32 3a 3f 70 69 78 3d  |..L ?set=2:?pix=|
000009c0  34 3a 66 69 6c 65 24 3d  22 55 43 4f 44 45 31 22  |4:file$="UCODE1"|
000009d0  0d 04 56 05 e1 0d 04 60  05 3a 0d 04 6a 07 dd f2  |..V....`.:..j...|
000009e0  32 0d 04 74 2d 21 70 61  74 74 65 72 6e 3d 26 30  |2..t-!pattern=&0|
000009f0  31 31 31 39 39 30 30 3a  21 28 70 61 74 74 65 72  |1119900:!(patter|
00000a00  6e 2b 34 29 3d 26 46 46  43 33 35 35 35 37 0d 04  |n+4)=&FFC35557..|
00000a10  7e 20 3f 73 65 74 3d 34  3a 3f 70 69 78 3d 38 3a  |~ ?set=4:?pix=8:|
00000a20  66 69 6c 65 24 3d 22 55  43 4f 44 45 32 22 0d 04  |file$="UCODE2"..|
00000a30  88 05 e1 0d 04 92 05 3a  0d 04 9c 07 dd f2 34 0d  |.......:......4.|
00000a40  04 a6 2d 21 70 61 74 74  65 72 6e 3d 26 46 46 46  |..-!pattern=&FFF|
00000a50  46 46 46 30 30 3a 21 28  70 61 74 74 65 72 6e 2b  |FFF00:!(pattern+|
00000a60  34 29 3d 26 30 30 30 30  30 30 30 30 0d 04 b0 20  |4)=&00000000... |
00000a70  3f 73 65 74 3d 32 3a 3f  70 69 78 3d 34 3a 66 69  |?set=2:?pix=4:fi|
00000a80  6c 65 24 3d 22 55 43 4f  44 45 34 22 0d 04 ba 05  |le$="UCODE4"....|
00000a90  e1 0d 04 c4 05 3a 0d 04  ce 07 dd f2 35 0d 04 d8  |.....:......5...|
00000aa0  2a 21 70 61 74 74 65 72  6e 3d 26 30 46 46 31 31  |*!pattern=&0FF11|
00000ab0  39 39 30 30 3a 21 28 70  61 74 74 65 72 6e 2b 34  |9900:!(pattern+4|
00000ac0  29 3d 26 30 30 30 30 0d  04 e2 20 3f 73 65 74 3d  |)=&0000... ?set=|
00000ad0  34 3a 3f 70 69 78 3d 38  3a 66 69 6c 65 24 3d 22  |4:?pix=8:file$="|
00000ae0  55 43 4f 44 45 35 22 0d  04 ec 05 e1 0d ff        |UCODE5".......|
00000aee