� UDUMP
� EU JUNE 1986 P.26
$� ADAPTED 1994 FOR REVIEW IN EUG
#%� IMPROVED 1994 BY M.FORD FOR EUG
$V� (ANY MODE and PART SCREEN DUMPS AVAILABLE, but ONLY FILLS 2/3 OF CARRIAGE WIDTH)
(:
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=&82:set=&84:pix=&85:mode=&86
d
data=&900
n�6
x	�area
�
�patterns
�code=data+50
�� pass=0 � 3 � 3
�P%=code
�
[OPT pass
�$LDA#&87:JSR osbyte \Get � number
�2CPY#3:BEQbadmode:BCCmodeOK:DEY:CPY#5:BCCmodeOK
�5.badmode BRK:EQUB0:EQUS"Not in graphics mode":BRK
ҝ.modeOK TYA:STAmode:ASL A:ASL A:ASL A:CLC:ADCmode:ADCmode:ADC#(data �256):STApattern:LDA#0:ADC#(data �256):STApattern+1 \Store address of data in pattern
�9LDY#8:LDA(pattern),Y:STAset:INY:LDA(pattern),Y:STApix
�*LDA #26:JSR oswrch \Set default screen
�!LDA #2:JSR oswrch \Printer on
� \.clear JSR next 

.line JSR esc

LDA #65:JSR oswrch

LDA #1:JSR oswrch

"'LDA #8:JSR oswrch \Set line spacing

,%.load LDA #(gstart �256):STA YYlo

6LDA #(gstart �256):STA YYhi

@.newl LDA #0:STA Xlo

JSTA Xhi \Start X=0

T.bit JSR esc

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

hLDA #1:JSR oswrch

rLDA #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

BEQ print
LDA Ylo
SEC:SBC #4
&STA Ylo
0LDA Yhi:SBC #0
:STA Yhi
DJMP test
N.print LDX #0
X.loop3 LDA #1:JSR oswrch
bLDA octet,X:JSR oswrch 
lINX:CPX set
v
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
"CMP#(gfinish �256):BNEcontinue
<LDAYYlo:CMP#(gfinish �256):BEQend \Finish when Y=gfinish
*.continue JMP newl \Otherwise continue
 .end LDA #1:JSR oswrch
*LDA #7:JSR oswrch \Beep
4JSR esc
>9LDA #64:JSR oswrch \Return printer to default setting
H&LDA #3:JSR oswrch \And printer off
RRTS
\.esc LDA #1:JSR oswrch
fLDA #27:JSR oswrch
pLDA #1:JSR oswrch
zRTS
�.next LDA #1:JSR oswrch
�LDA #10:JSR oswrch
�RTS
�]
�
� pass
��:�''"End of code &";~P%
��''
�-�"SAVE UCODE "+�~data+" "+�~P%+" "+�~code
��
���patterns
�� mode 0
�?!data=&00000100:!(data+4)=&00000000:?(data+8)=1:?(data+9)=2
�:
� mode 1
G!(data+10)=&03020100:!(data+14)=&00000000:?(data+18)=2:?(data+19)=4
:
$� mode 2
.G!(data+20)=&01030500:!(data+24)=&0F0C0A0E:?(data+28)=4:?(data+29)=8
8:
B� mode 4
LG!(data+30)=&00000300:!(data+34)=&00000000:?(data+38)=2:?(data+39)=4
V:
`� mode 5
jG!(data+40)=&0F050100:!(data+44)=&00000000:?(data+48)=4:?(data+49)=8
t�
~
��area
�%�'"Dump whole screen (Y/N)?":A$=�
�3� A$="Y" � A$="y" � gstart=1020:gfinish=&FFFC:�
�#� A$<>"N" � A$<>"n" � � 7:�tHD
�7�'"Text line to start printing from (0-31)":� start
�6� start<0 � start>31 � �(start)<>start � � 7:�tfD
�B�'"Text line to finish printing at (";�(start);"-31)":� finish
�>� finish<start � finish>31 � �(finish)<>finish � � 7:�tzD
�3gstart=(32-start)*32-4:gfinish=(31-finish)*32-4
� � gfinish=-4 � gfinish=&FFFC
��
�

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 25 f4 20 49 4d 50 52  |IN EUG..#%. IMPR|
00000050  4f 56 45 44 20 31 39 39  34 20 42 59 20 4d 2e 46  |OVED 1994 BY M.F|
00000060  4f 52 44 20 46 4f 52 20  45 55 47 0d 00 24 56 f4  |ORD FOR EUG..$V.|
00000070  20 28 41 4e 59 20 4d 4f  44 45 20 61 6e 64 20 50  | (ANY MODE and P|
00000080  41 52 54 20 53 43 52 45  45 4e 20 44 55 4d 50 53  |ART SCREEN DUMPS|
00000090  20 41 56 41 49 4c 41 42  4c 45 2c 20 62 75 74 20  | AVAILABLE, but |
000000a0  4f 4e 4c 59 20 46 49 4c  4c 53 20 32 2f 33 20 4f  |ONLY FILLS 2/3 O|
000000b0  46 20 43 41 52 52 49 41  47 45 20 57 49 44 54 48  |F CARRIAGE WIDTH|
000000c0  29 0d 00 28 05 3a 0d 00  32 2a 6f 73 77 6f 72 64  |)..(.:..2*osword|
000000d0  3d 26 46 46 46 31 3a 6f  73 77 72 63 68 3d 26 46  |=&FFF1:oswrch=&F|
000000e0  46 45 45 3a 6f 73 62 79  74 65 3d 26 46 46 46 34  |FEE:osbyte=&FFF4|
000000f0  0d 00 3c 23 58 6c 6f 3d  26 37 30 3a 58 68 69 3d  |..<#Xlo=&70:Xhi=|
00000100  26 37 31 3a 59 6c 6f 3d  26 37 32 3a 59 68 69 3d  |&71:Ylo=&72:Yhi=|
00000110  26 37 33 0d 00 46 15 59  59 6c 6f 3d 26 38 30 3a  |&73..F.YYlo=&80:|
00000120  59 59 68 69 3d 26 38 31  0d 00 50 20 74 69 6e 74  |YYhi=&81..P tint|
00000130  3d 26 37 34 3a 63 6f 75  6e 74 3d 26 37 35 3a 6f  |=&74:count=&75:o|
00000140  63 74 65 74 3d 26 37 36  0d 00 5a 28 70 61 74 74  |ctet=&76..Z(patt|
00000150  65 72 6e 3d 26 38 32 3a  73 65 74 3d 26 38 34 3a  |ern=&82:set=&84:|
00000160  70 69 78 3d 26 38 35 3a  6d 6f 64 65 3d 26 38 36  |pix=&85:mode=&86|
00000170  0d 00 64 0d 64 61 74 61  3d 26 39 30 30 0d 00 6e  |..d.data=&900..n|
00000180  06 eb 36 0d 00 78 09 f2  61 72 65 61 0d 00 82 0d  |..6..x..area....|
00000190  f2 70 61 74 74 65 72 6e  73 0d 00 8c 10 63 6f 64  |.patterns....cod|
000001a0  65 3d 64 61 74 61 2b 35  30 0d 00 96 14 e3 20 70  |e=data+50..... p|
000001b0  61 73 73 3d 30 20 b8 20  33 20 88 20 33 0d 00 a0  |ass=0 . 3 . 3...|
000001c0  0b 50 25 3d 63 6f 64 65  0d 00 aa 0d 5b 4f 50 54  |.P%=code....[OPT|
000001d0  20 70 61 73 73 0d 00 b4  24 4c 44 41 23 26 38 37  | pass...$LDA#&87|
000001e0  3a 4a 53 52 20 6f 73 62  79 74 65 20 5c 47 65 74  |:JSR osbyte \Get|
000001f0  20 eb 20 6e 75 6d 62 65  72 0d 00 be 32 43 50 59  | . number...2CPY|
00000200  23 33 3a 42 45 51 62 61  64 6d 6f 64 65 3a 42 43  |#3:BEQbadmode:BC|
00000210  43 6d 6f 64 65 4f 4b 3a  44 45 59 3a 43 50 59 23  |CmodeOK:DEY:CPY#|
00000220  35 3a 42 43 43 6d 6f 64  65 4f 4b 0d 00 c8 35 2e  |5:BCCmodeOK...5.|
00000230  62 61 64 6d 6f 64 65 20  42 52 4b 3a 45 51 55 42  |badmode BRK:EQUB|
00000240  30 3a 45 51 55 53 22 4e  6f 74 20 69 6e 20 67 72  |0:EQUS"Not in gr|
00000250  61 70 68 69 63 73 20 6d  6f 64 65 22 3a 42 52 4b  |aphics mode":BRK|
00000260  0d 00 d2 9d 2e 6d 6f 64  65 4f 4b 20 54 59 41 3a  |.....modeOK TYA:|
00000270  53 54 41 6d 6f 64 65 3a  41 53 4c 20 41 3a 41 53  |STAmode:ASL A:AS|
00000280  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
00000290  43 6d 6f 64 65 3a 41 44  43 6d 6f 64 65 3a 41 44  |Cmode:ADCmode:AD|
000002a0  43 23 28 64 61 74 61 20  83 32 35 36 29 3a 53 54  |C#(data .256):ST|
000002b0  41 70 61 74 74 65 72 6e  3a 4c 44 41 23 30 3a 41  |Apattern:LDA#0:A|
000002c0  44 43 23 28 64 61 74 61  20 81 32 35 36 29 3a 53  |DC#(data .256):S|
000002d0  54 41 70 61 74 74 65 72  6e 2b 31 20 5c 53 74 6f  |TApattern+1 \Sto|
000002e0  72 65 20 61 64 64 72 65  73 73 20 6f 66 20 64 61  |re address of da|
000002f0  74 61 20 69 6e 20 70 61  74 74 65 72 6e 0d 00 dc  |ta in pattern...|
00000300  39 4c 44 59 23 38 3a 4c  44 41 28 70 61 74 74 65  |9LDY#8:LDA(patte|
00000310  72 6e 29 2c 59 3a 53 54  41 73 65 74 3a 49 4e 59  |rn),Y:STAset:INY|
00000320  3a 4c 44 41 28 70 61 74  74 65 72 6e 29 2c 59 3a  |:LDA(pattern),Y:|
00000330  53 54 41 70 69 78 0d 00  e6 2a 4c 44 41 20 23 32  |STApix...*LDA #2|
00000340  36 3a 4a 53 52 20 6f 73  77 72 63 68 20 5c 53 65  |6:JSR oswrch \Se|
00000350  74 20 64 65 66 61 75 6c  74 20 73 63 72 65 65 6e  |t default screen|
00000360  0d 00 f0 21 4c 44 41 20  23 32 3a 4a 53 52 20 6f  |...!LDA #2:JSR o|
00000370  73 77 72 63 68 20 5c 50  72 69 6e 74 65 72 20 6f  |swrch \Printer o|
00000380  6e 0d 00 fa 16 20 5c 2e  63 6c 65 61 72 20 4a 53  |n.... \.clear JS|
00000390  52 20 6e 65 78 74 20 0d  01 04 11 2e 6c 69 6e 65  |R next .....line|
000003a0  20 4a 53 52 20 65 73 63  0d 01 0e 16 4c 44 41 20  | JSR esc....LDA |
000003b0  23 36 35 3a 4a 53 52 20  6f 73 77 72 63 68 0d 01  |#65:JSR oswrch..|
000003c0  18 15 4c 44 41 20 23 31  3a 4a 53 52 20 6f 73 77  |..LDA #1:JSR osw|
000003d0  72 63 68 0d 01 22 27 4c  44 41 20 23 38 3a 4a 53  |rch.."'LDA #8:JS|
000003e0  52 20 6f 73 77 72 63 68  20 5c 53 65 74 20 6c 69  |R oswrch \Set li|
000003f0  6e 65 20 73 70 61 63 69  6e 67 0d 01 2c 25 2e 6c  |ne spacing..,%.l|
00000400  6f 61 64 20 4c 44 41 20  23 28 67 73 74 61 72 74  |oad LDA #(gstart|
00000410  20 83 32 35 36 29 3a 53  54 41 20 59 59 6c 6f 0d  | .256):STA YYlo.|
00000420  01 36 1f 4c 44 41 20 23  28 67 73 74 61 72 74 20  |.6.LDA #(gstart |
00000430  81 32 35 36 29 3a 53 54  41 20 59 59 68 69 0d 01  |.256):STA YYhi..|
00000440  40 18 2e 6e 65 77 6c 20  4c 44 41 20 23 30 3a 53  |@..newl LDA #0:S|
00000450  54 41 20 58 6c 6f 0d 01  4a 16 53 54 41 20 58 68  |TA Xlo..J.STA Xh|
00000460  69 20 5c 53 74 61 72 74  20 58 3d 30 0d 01 54 10  |i \Start X=0..T.|
00000470  2e 62 69 74 20 4a 53 52  20 65 73 63 0d 01 5e 37  |.bit JSR esc..^7|
00000480  4c 44 41 20 23 37 36 3a  4a 53 52 20 6f 73 77 72  |LDA #76:JSR oswr|
00000490  63 68 20 5c 70 72 69 6e  74 65 72 20 63 6f 64 65  |ch \printer code|
000004a0  20 66 6f 72 20 64 6f 75  62 6c 65 20 64 65 6e 73  | for double dens|
000004b0  69 74 79 0d 01 68 15 4c  44 41 20 23 31 3a 4a 53  |ity..h.LDA #1:JS|
000004c0  52 20 6f 73 77 72 63 68  0d 01 72 17 4c 44 41 20  |R oswrch..r.LDA |
000004d0  23 31 32 38 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |#128:JSR oswrch.|
000004e0  01 7c 15 4c 44 41 20 23  31 3a 4a 53 52 20 6f 73  |.|.LDA #1:JSR os|
000004f0  77 72 63 68 0d 01 86 28  4c 44 41 20 23 32 3a 4a  |wrch...(LDA #2:J|
00000500  53 52 20 6f 73 77 72 63  68 20 5c 39 36 30 20 64  |SR oswrch \960 d|
00000510  6f 74 73 20 70 65 72 20  6c 69 6e 65 0d 01 90 1b  |ots per line....|
00000520  2e 73 74 61 72 74 20 4c  44 41 20 23 38 3a 53 54  |.start LDA #8:ST|
00000530  41 20 63 6f 75 6e 74 0d  01 9a 14 4c 44 41 20 59  |A count....LDA Y|
00000540  59 6c 6f 3a 53 54 41 20  59 6c 6f 0d 01 a4 14 4c  |Ylo:STA Ylo....L|
00000550  44 41 20 59 59 68 69 3a  53 54 41 20 59 68 69 0d  |DA YYhi:STA Yhi.|
00000560  01 ae 20 2e 74 65 73 74  20 4c 44 58 20 23 26 37  |.. .test LDX #&7|
00000570  30 3a 4c 44 59 20 23 30  3a 4c 44 41 20 23 39 0d  |0:LDY #0:LDA #9.|
00000580  01 b8 2e 4a 53 52 20 6f  73 77 6f 72 64 20 5c 4c  |...JSR osword \L|
00000590  6f 67 69 63 61 6c 20 63  6f 6c 6f 75 72 20 72 65  |ogical colour re|
000005a0  74 75 72 6e 65 64 20 69  6e 20 26 37 34 0d 01 c2  |turned in &74...|
000005b0  3e 4c 44 41 20 74 69 6e  74 3a 80 20 23 37 3a 54  |>LDA tint:. #7:T|
000005c0  41 59 20 5c 4c 6f 67 69  63 61 6c 20 63 6f 6c 6f  |AY \Logical colo|
000005d0  75 72 20 75 73 65 64 20  61 73 20 69 6e 64 65 78  |ur used as index|
000005e0  20 74 6f 20 70 61 74 74  65 72 6e 0d 01 cc 10 2e  | to pattern.....|
000005f0  62 79 74 65 20 4c 44 58  20 23 30 0d 01 d6 12 4c  |byte LDX #0....L|
00000600  44 41 28 70 61 74 74 65  72 6e 29 2c 59 0d 01 e0  |DA(pattern),Y...|
00000610  50 2e 6c 6f 6f 70 31 20  4c 53 52 20 41 3a 52 4f  |P.loop1 LSR A:RO|
00000620  4c 20 6f 63 74 65 74 2c  58 20 5c 31 20 62 69 74  |L octet,X \1 bit|
00000630  20 74 72 61 6e 73 66 65  72 65 64 20 66 72 6f 6d  | transfered from|
00000640  20 70 61 74 74 65 72 6e  20 74 6f 20 65 61 63 68  | pattern to each|
00000650  20 62 79 74 65 20 69 6e  20 74 75 72 6e 0d 01 ea  | byte in turn...|
00000660  0f 49 4e 58 3a 43 50 58  20 73 65 74 0d 01 f4 0d  |.INX:CPX set....|
00000670  42 4e 45 20 6c 6f 6f 70  31 0d 01 fe 14 2e 6c 6f  |BNE loop1.....lo|
00000680  6f 70 32 20 44 45 43 20  63 6f 75 6e 74 0d 02 08  |op2 DEC count...|
00000690  0d 42 45 51 20 70 72 69  6e 74 0d 02 12 0b 4c 44  |.BEQ print....LD|
000006a0  41 20 59 6c 6f 0d 02 1c  0e 53 45 43 3a 53 42 43  |A Ylo....SEC:SBC|
000006b0  20 23 34 0d 02 26 0b 53  54 41 20 59 6c 6f 0d 02  | #4..&.STA Ylo..|
000006c0  30 12 4c 44 41 20 59 68  69 3a 53 42 43 20 23 30  |0.LDA Yhi:SBC #0|
000006d0  0d 02 3a 0b 53 54 41 20  59 68 69 0d 02 44 0c 4a  |..:.STA Yhi..D.J|
000006e0  4d 50 20 74 65 73 74 0d  02 4e 11 2e 70 72 69 6e  |MP test..N..prin|
000006f0  74 20 4c 44 58 20 23 30  0d 02 58 1c 2e 6c 6f 6f  |t LDX #0..X..loo|
00000700  70 33 20 4c 44 41 20 23  31 3a 4a 53 52 20 6f 73  |p3 LDA #1:JSR os|
00000710  77 72 63 68 0d 02 62 1b  4c 44 41 20 6f 63 74 65  |wrch..b.LDA octe|
00000720  74 2c 58 3a 4a 53 52 20  6f 73 77 72 63 68 20 0d  |t,X:JSR oswrch .|
00000730  02 6c 0f 49 4e 58 3a 43  50 58 20 73 65 74 0d 02  |.l.INX:CPX set..|
00000740  76 0d 42 4e 45 20 6c 6f  6f 70 33 0d 02 80 12 2e  |v.BNE loop3.....|
00000750  78 6c 6f 6f 70 20 4c 44  41 20 58 6c 6f 0d 02 8a  |xloop LDA Xlo...|
00000760  0f 43 4c 43 3a 41 44 43  20 70 69 78 0d 02 94 0b  |.CLC:ADC pix....|
00000770  53 54 41 20 58 6c 6f 0d  02 9e 12 4c 44 41 20 58  |STA Xlo....LDA X|
00000780  68 69 3a 41 44 43 20 23  30 0d 02 a8 26 53 54 41  |hi:ADC #0...&STA|
00000790  20 58 68 69 20 5c 49 6e  63 72 65 6d 65 6e 74 20  | Xhi \Increment |
000007a0  58 20 74 6f 20 6e 65 78  74 20 70 69 78 65 6c 0d  |X to next pixel.|
000007b0  02 b2 21 43 4d 50 20 23  35 20 5c 45 6e 64 20 6f  |..!CMP #5 \End o|
000007c0  66 20 6c 69 6e 65 3f 20  28 58 3d 31 32 38 30 29  |f line? (X=1280)|
000007d0  0d 02 bc 0d 42 4e 45 20  73 74 61 72 74 0d 02 c6  |....BNE start...|
000007e0  1c 4a 53 52 20 6e 65 78  74 20 5c 53 74 61 72 74  |.JSR next \Start|
000007f0  20 6e 65 77 20 6c 69 6e  65 0d 02 d0 13 2e 79 6c  | new line.....yl|
00000800  6f 6f 70 20 4c 44 41 20  59 59 6c 6f 0d 02 da 0f  |oop LDA YYlo....|
00000810  53 45 43 3a 53 42 43 20  23 33 32 0d 02 e4 0c 53  |SEC:SBC #32....S|
00000820  54 41 20 59 59 6c 6f 0d  02 ee 13 4c 44 41 20 59  |TA YYlo....LDA Y|
00000830  59 68 69 3a 53 42 43 20  23 30 0d 02 f8 1b 53 54  |Yhi:SBC #0....ST|
00000840  41 20 59 59 68 69 20 5c  44 6f 77 6e 20 38 20 70  |A YYhi \Down 8 p|
00000850  69 78 65 6c 73 0d 03 02  22 43 4d 50 23 28 67 66  |ixels..."CMP#(gf|
00000860  69 6e 69 73 68 20 81 32  35 36 29 3a 42 4e 45 63  |inish .256):BNEc|
00000870  6f 6e 74 69 6e 75 65 0d  03 0c 3c 4c 44 41 59 59  |ontinue...<LDAYY|
00000880  6c 6f 3a 43 4d 50 23 28  67 66 69 6e 69 73 68 20  |lo:CMP#(gfinish |
00000890  83 32 35 36 29 3a 42 45  51 65 6e 64 20 5c 46 69  |.256):BEQend \Fi|
000008a0  6e 69 73 68 20 77 68 65  6e 20 59 3d 67 66 69 6e  |nish when Y=gfin|
000008b0  69 73 68 0d 03 16 2a 2e  63 6f 6e 74 69 6e 75 65  |ish...*.continue|
000008c0  20 4a 4d 50 20 6e 65 77  6c 20 5c 4f 74 68 65 72  | JMP newl \Other|
000008d0  77 69 73 65 20 63 6f 6e  74 69 6e 75 65 0d 03 20  |wise continue.. |
000008e0  1a 2e 65 6e 64 20 4c 44  41 20 23 31 3a 4a 53 52  |..end LDA #1:JSR|
000008f0  20 6f 73 77 72 63 68 0d  03 2a 1b 4c 44 41 20 23  | oswrch..*.LDA #|
00000900  37 3a 4a 53 52 20 6f 73  77 72 63 68 20 5c 42 65  |7:JSR oswrch \Be|
00000910  65 70 0d 03 34 0b 4a 53  52 20 65 73 63 0d 03 3e  |ep..4.JSR esc..>|
00000920  39 4c 44 41 20 23 36 34  3a 4a 53 52 20 6f 73 77  |9LDA #64:JSR osw|
00000930  72 63 68 20 5c 52 65 74  75 72 6e 20 70 72 69 6e  |rch \Return prin|
00000940  74 65 72 20 74 6f 20 64  65 66 61 75 6c 74 20 73  |ter to default s|
00000950  65 74 74 69 6e 67 0d 03  48 26 4c 44 41 20 23 33  |etting..H&LDA #3|
00000960  3a 4a 53 52 20 6f 73 77  72 63 68 20 5c 41 6e 64  |:JSR oswrch \And|
00000970  20 70 72 69 6e 74 65 72  20 6f 66 66 0d 03 52 07  | printer off..R.|
00000980  52 54 53 0d 03 5c 1a 2e  65 73 63 20 4c 44 41 20  |RTS..\..esc LDA |
00000990  23 31 3a 4a 53 52 20 6f  73 77 72 63 68 0d 03 66  |#1:JSR oswrch..f|
000009a0  16 4c 44 41 20 23 32 37  3a 4a 53 52 20 6f 73 77  |.LDA #27:JSR osw|
000009b0  72 63 68 0d 03 70 15 4c  44 41 20 23 31 3a 4a 53  |rch..p.LDA #1:JS|
000009c0  52 20 6f 73 77 72 63 68  0d 03 7a 07 52 54 53 0d  |R oswrch..z.RTS.|
000009d0  03 84 1b 2e 6e 65 78 74  20 4c 44 41 20 23 31 3a  |....next LDA #1:|
000009e0  4a 53 52 20 6f 73 77 72  63 68 0d 03 8e 16 4c 44  |JSR oswrch....LD|
000009f0  41 20 23 31 30 3a 4a 53  52 20 6f 73 77 72 63 68  |A #10:JSR oswrch|
00000a00  0d 03 98 07 52 54 53 0d  03 a2 05 5d 0d 03 ac 0a  |....RTS....]....|
00000a10  ed 20 70 61 73 73 0d 03  b6 1c db 3a f1 27 27 22  |. pass.....:.''"|
00000a20  45 6e 64 20 6f 66 20 63  6f 64 65 20 26 22 3b 7e  |End of code &";~|
00000a30  50 25 0d 03 c0 07 f1 27  27 0d 03 ca 2d ff 22 53  |P%.....''...-."S|
00000a40  41 56 45 20 55 43 4f 44  45 20 22 2b c3 7e 64 61  |AVE UCODE "+.~da|
00000a50  74 61 2b 22 20 22 2b c3  7e 50 25 2b 22 20 22 2b  |ta+" "+.~P%+" "+|
00000a60  c3 7e 63 6f 64 65 0d 03  d4 05 e0 0d 03 de 0e dd  |.~code..........|
00000a70  f2 70 61 74 74 65 72 6e  73 0d 03 e8 0c f4 20 6d  |.patterns..... m|
00000a80  6f 64 65 20 30 0d 03 f2  3f 21 64 61 74 61 3d 26  |ode 0...?!data=&|
00000a90  30 30 30 30 30 31 30 30  3a 21 28 64 61 74 61 2b  |00000100:!(data+|
00000aa0  34 29 3d 26 30 30 30 30  30 30 30 30 3a 3f 28 64  |4)=&00000000:?(d|
00000ab0  61 74 61 2b 38 29 3d 31  3a 3f 28 64 61 74 61 2b  |ata+8)=1:?(data+|
00000ac0  39 29 3d 32 0d 03 fc 05  3a 0d 04 06 0c f4 20 6d  |9)=2....:..... m|
00000ad0  6f 64 65 20 31 0d 04 10  47 21 28 64 61 74 61 2b  |ode 1...G!(data+|
00000ae0  31 30 29 3d 26 30 33 30  32 30 31 30 30 3a 21 28  |10)=&03020100:!(|
00000af0  64 61 74 61 2b 31 34 29  3d 26 30 30 30 30 30 30  |data+14)=&000000|
00000b00  30 30 3a 3f 28 64 61 74  61 2b 31 38 29 3d 32 3a  |00:?(data+18)=2:|
00000b10  3f 28 64 61 74 61 2b 31  39 29 3d 34 0d 04 1a 05  |?(data+19)=4....|
00000b20  3a 0d 04 24 0c f4 20 6d  6f 64 65 20 32 0d 04 2e  |:..$.. mode 2...|
00000b30  47 21 28 64 61 74 61 2b  32 30 29 3d 26 30 31 30  |G!(data+20)=&010|
00000b40  33 30 35 30 30 3a 21 28  64 61 74 61 2b 32 34 29  |30500:!(data+24)|
00000b50  3d 26 30 46 30 43 30 41  30 45 3a 3f 28 64 61 74  |=&0F0C0A0E:?(dat|
00000b60  61 2b 32 38 29 3d 34 3a  3f 28 64 61 74 61 2b 32  |a+28)=4:?(data+2|
00000b70  39 29 3d 38 0d 04 38 05  3a 0d 04 42 0c f4 20 6d  |9)=8..8.:..B.. m|
00000b80  6f 64 65 20 34 0d 04 4c  47 21 28 64 61 74 61 2b  |ode 4..LG!(data+|
00000b90  33 30 29 3d 26 30 30 30  30 30 33 30 30 3a 21 28  |30)=&00000300:!(|
00000ba0  64 61 74 61 2b 33 34 29  3d 26 30 30 30 30 30 30  |data+34)=&000000|
00000bb0  30 30 3a 3f 28 64 61 74  61 2b 33 38 29 3d 32 3a  |00:?(data+38)=2:|
00000bc0  3f 28 64 61 74 61 2b 33  39 29 3d 34 0d 04 56 05  |?(data+39)=4..V.|
00000bd0  3a 0d 04 60 0c f4 20 6d  6f 64 65 20 35 0d 04 6a  |:..`.. mode 5..j|
00000be0  47 21 28 64 61 74 61 2b  34 30 29 3d 26 30 46 30  |G!(data+40)=&0F0|
00000bf0  35 30 31 30 30 3a 21 28  64 61 74 61 2b 34 34 29  |50100:!(data+44)|
00000c00  3d 26 30 30 30 30 30 30  30 30 3a 3f 28 64 61 74  |=&00000000:?(dat|
00000c10  61 2b 34 38 29 3d 34 3a  3f 28 64 61 74 61 2b 34  |a+48)=4:?(data+4|
00000c20  39 29 3d 38 0d 04 74 05  e1 0d 04 7e 0a dd f2 61  |9)=8..t....~...a|
00000c30  72 65 61 0d 04 88 25 f1  27 22 44 75 6d 70 20 77  |rea...%.'"Dump w|
00000c40  68 6f 6c 65 20 73 63 72  65 65 6e 20 28 59 2f 4e  |hole screen (Y/N|
00000c50  29 3f 22 3a 41 24 3d be  0d 04 92 33 e7 20 41 24  |)?":A$=....3. A$|
00000c60  3d 22 59 22 20 84 20 41  24 3d 22 79 22 20 8c 20  |="Y" . A$="y" . |
00000c70  67 73 74 61 72 74 3d 31  30 32 30 3a 67 66 69 6e  |gstart=1020:gfin|
00000c80  69 73 68 3d 26 46 46 46  43 3a e1 0d 04 9c 23 e7  |ish=&FFFC:....#.|
00000c90  20 41 24 3c 3e 22 4e 22  20 80 20 41 24 3c 3e 22  | A$<>"N" . A$<>"|
00000ca0  6e 22 20 8c 20 ef 20 37  3a e5 8d 74 48 44 0d 04  |n" . . 7:..tHD..|
00000cb0  a6 37 f1 27 22 54 65 78  74 20 6c 69 6e 65 20 74  |.7.'"Text line t|
00000cc0  6f 20 73 74 61 72 74 20  70 72 69 6e 74 69 6e 67  |o start printing|
00000cd0  20 66 72 6f 6d 20 28 30  2d 33 31 29 22 3a e8 20  | from (0-31)":. |
00000ce0  73 74 61 72 74 0d 04 b0  36 e7 20 73 74 61 72 74  |start...6. start|
00000cf0  3c 30 20 84 20 73 74 61  72 74 3e 33 31 20 84 20  |<0 . start>31 . |
00000d00  a8 28 73 74 61 72 74 29  3c 3e 73 74 61 72 74 20  |.(start)<>start |
00000d10  8c 20 ef 20 37 3a e5 8d  74 66 44 0d 04 ba 42 f1  |. . 7:..tfD...B.|
00000d20  27 22 54 65 78 74 20 6c  69 6e 65 20 74 6f 20 66  |'"Text line to f|
00000d30  69 6e 69 73 68 20 70 72  69 6e 74 69 6e 67 20 61  |inish printing a|
00000d40  74 20 28 22 3b c3 28 73  74 61 72 74 29 3b 22 2d  |t (";.(start);"-|
00000d50  33 31 29 22 3a e8 20 66  69 6e 69 73 68 0d 04 c4  |31)":. finish...|
00000d60  3e e7 20 66 69 6e 69 73  68 3c 73 74 61 72 74 20  |>. finish<start |
00000d70  84 20 66 69 6e 69 73 68  3e 33 31 20 84 20 a8 28  |. finish>31 . .(|
00000d80  66 69 6e 69 73 68 29 3c  3e 66 69 6e 69 73 68 20  |finish)<>finish |
00000d90  8c 20 ef 20 37 3a e5 8d  74 7a 44 0d 04 ce 33 67  |. . 7:..tzD...3g|
00000da0  73 74 61 72 74 3d 28 33  32 2d 73 74 61 72 74 29  |start=(32-start)|
00000db0  2a 33 32 2d 34 3a 67 66  69 6e 69 73 68 3d 28 33  |*32-4:gfinish=(3|
00000dc0  31 2d 66 69 6e 69 73 68  29 2a 33 32 2d 34 0d 04  |1-finish)*32-4..|
00000dd0  d8 20 e7 20 67 66 69 6e  69 73 68 3d 2d 34 20 8c  |. . gfinish=-4 .|
00000de0  20 67 66 69 6e 69 73 68  3d 26 46 46 46 43 0d 04  | gfinish=&FFFC..|
00000df0  e2 05 e1 0d ff                                    |.....|
00000df5