� UDUMP
� EU JUNE 1986 P.26
$� ADAPTED 1994 FOR REVIEW IN EUG
#%� IMPROVED 1994 BY M.FORD FOR 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=&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 28 05 3a  |ORD FOR EUG..(.:|
00000070  0d 00 32 2a 6f 73 77 6f  72 64 3d 26 46 46 46 31  |..2*osword=&FFF1|
00000080  3a 6f 73 77 72 63 68 3d  26 46 46 45 45 3a 6f 73  |:oswrch=&FFEE:os|
00000090  62 79 74 65 3d 26 46 46  46 34 0d 00 3c 23 58 6c  |byte=&FFF4..<#Xl|
000000a0  6f 3d 26 37 30 3a 58 68  69 3d 26 37 31 3a 59 6c  |o=&70:Xhi=&71:Yl|
000000b0  6f 3d 26 37 32 3a 59 68  69 3d 26 37 33 0d 00 46  |o=&72:Yhi=&73..F|
000000c0  15 59 59 6c 6f 3d 26 38  30 3a 59 59 68 69 3d 26  |.YYlo=&80:YYhi=&|
000000d0  38 31 0d 00 50 20 74 69  6e 74 3d 26 37 34 3a 63  |81..P tint=&74:c|
000000e0  6f 75 6e 74 3d 26 37 35  3a 6f 63 74 65 74 3d 26  |ount=&75:octet=&|
000000f0  37 36 0d 00 5a 28 70 61  74 74 65 72 6e 3d 26 38  |76..Z(pattern=&8|
00000100  32 3a 73 65 74 3d 26 38  34 3a 70 69 78 3d 26 38  |2:set=&84:pix=&8|
00000110  35 3a 6d 6f 64 65 3d 26  38 36 0d 00 64 0d 64 61  |5:mode=&86..d.da|
00000120  74 61 3d 26 39 30 30 0d  00 6e 06 eb 36 0d 00 78  |ta=&900..n..6..x|
00000130  09 f2 61 72 65 61 0d 00  82 0d f2 70 61 74 74 65  |..area.....patte|
00000140  72 6e 73 0d 00 8c 10 63  6f 64 65 3d 64 61 74 61  |rns....code=data|
00000150  2b 35 30 0d 00 96 14 e3  20 70 61 73 73 3d 30 20  |+50..... pass=0 |
00000160  b8 20 33 20 88 20 33 0d  00 a0 0b 50 25 3d 63 6f  |. 3 . 3....P%=co|
00000170  64 65 0d 00 aa 0d 5b 4f  50 54 20 70 61 73 73 0d  |de....[OPT pass.|
00000180  00 b4 24 4c 44 41 23 26  38 37 3a 4a 53 52 20 6f  |..$LDA#&87:JSR o|
00000190  73 62 79 74 65 20 5c 47  65 74 20 eb 20 6e 75 6d  |sbyte \Get . num|
000001a0  62 65 72 0d 00 be 32 43  50 59 23 33 3a 42 45 51  |ber...2CPY#3:BEQ|
000001b0  62 61 64 6d 6f 64 65 3a  42 43 43 6d 6f 64 65 4f  |badmode:BCCmodeO|
000001c0  4b 3a 44 45 59 3a 43 50  59 23 35 3a 42 43 43 6d  |K:DEY:CPY#5:BCCm|
000001d0  6f 64 65 4f 4b 0d 00 c8  35 2e 62 61 64 6d 6f 64  |odeOK...5.badmod|
000001e0  65 20 42 52 4b 3a 45 51  55 42 30 3a 45 51 55 53  |e BRK:EQUB0:EQUS|
000001f0  22 4e 6f 74 20 69 6e 20  67 72 61 70 68 69 63 73  |"Not in graphics|
00000200  20 6d 6f 64 65 22 3a 42  52 4b 0d 00 d2 9d 2e 6d  | mode":BRK.....m|
00000210  6f 64 65 4f 4b 20 54 59  41 3a 53 54 41 6d 6f 64  |odeOK TYA:STAmod|
00000220  65 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |e:ASL A:ASL A:AS|
00000230  4c 20 41 3a 43 4c 43 3a  41 44 43 6d 6f 64 65 3a  |L A:CLC:ADCmode:|
00000240  41 44 43 6d 6f 64 65 3a  41 44 43 23 28 64 61 74  |ADCmode:ADC#(dat|
00000250  61 20 83 32 35 36 29 3a  53 54 41 70 61 74 74 65  |a .256):STApatte|
00000260  72 6e 3a 4c 44 41 23 30  3a 41 44 43 23 28 64 61  |rn:LDA#0:ADC#(da|
00000270  74 61 20 81 32 35 36 29  3a 53 54 41 70 61 74 74  |ta .256):STApatt|
00000280  65 72 6e 2b 31 20 5c 53  74 6f 72 65 20 61 64 64  |ern+1 \Store add|
00000290  72 65 73 73 20 6f 66 20  64 61 74 61 20 69 6e 20  |ress of data in |
000002a0  70 61 74 74 65 72 6e 0d  00 dc 39 4c 44 59 23 38  |pattern...9LDY#8|
000002b0  3a 4c 44 41 28 70 61 74  74 65 72 6e 29 2c 59 3a  |:LDA(pattern),Y:|
000002c0  53 54 41 73 65 74 3a 49  4e 59 3a 4c 44 41 28 70  |STAset:INY:LDA(p|
000002d0  61 74 74 65 72 6e 29 2c  59 3a 53 54 41 70 69 78  |attern),Y:STApix|
000002e0  0d 00 e6 2a 4c 44 41 20  23 32 36 3a 4a 53 52 20  |...*LDA #26:JSR |
000002f0  6f 73 77 72 63 68 20 5c  53 65 74 20 64 65 66 61  |oswrch \Set defa|
00000300  75 6c 74 20 73 63 72 65  65 6e 0d 00 f0 21 4c 44  |ult screen...!LD|
00000310  41 20 23 32 3a 4a 53 52  20 6f 73 77 72 63 68 20  |A #2:JSR oswrch |
00000320  5c 50 72 69 6e 74 65 72  20 6f 6e 0d 00 fa 16 20  |\Printer on.... |
00000330  5c 2e 63 6c 65 61 72 20  4a 53 52 20 6e 65 78 74  |\.clear JSR next|
00000340  20 0d 01 04 11 2e 6c 69  6e 65 20 4a 53 52 20 65  | .....line JSR e|
00000350  73 63 0d 01 0e 16 4c 44  41 20 23 36 35 3a 4a 53  |sc....LDA #65:JS|
00000360  52 20 6f 73 77 72 63 68  0d 01 18 15 4c 44 41 20  |R oswrch....LDA |
00000370  23 31 3a 4a 53 52 20 6f  73 77 72 63 68 0d 01 22  |#1:JSR oswrch.."|
00000380  27 4c 44 41 20 23 38 3a  4a 53 52 20 6f 73 77 72  |'LDA #8:JSR oswr|
00000390  63 68 20 5c 53 65 74 20  6c 69 6e 65 20 73 70 61  |ch \Set line spa|
000003a0  63 69 6e 67 0d 01 2c 25  2e 6c 6f 61 64 20 4c 44  |cing..,%.load LD|
000003b0  41 20 23 28 67 73 74 61  72 74 20 83 32 35 36 29  |A #(gstart .256)|
000003c0  3a 53 54 41 20 59 59 6c  6f 0d 01 36 1f 4c 44 41  |:STA YYlo..6.LDA|
000003d0  20 23 28 67 73 74 61 72  74 20 81 32 35 36 29 3a  | #(gstart .256):|
000003e0  53 54 41 20 59 59 68 69  0d 01 40 18 2e 6e 65 77  |STA YYhi..@..new|
000003f0  6c 20 4c 44 41 20 23 30  3a 53 54 41 20 58 6c 6f  |l LDA #0:STA Xlo|
00000400  0d 01 4a 16 53 54 41 20  58 68 69 20 5c 53 74 61  |..J.STA Xhi \Sta|
00000410  72 74 20 58 3d 30 0d 01  54 10 2e 62 69 74 20 4a  |rt X=0..T..bit J|
00000420  53 52 20 65 73 63 0d 01  5e 37 4c 44 41 20 23 37  |SR esc..^7LDA #7|
00000430  36 3a 4a 53 52 20 6f 73  77 72 63 68 20 5c 70 72  |6:JSR oswrch \pr|
00000440  69 6e 74 65 72 20 63 6f  64 65 20 66 6f 72 20 64  |inter code for d|
00000450  6f 75 62 6c 65 20 64 65  6e 73 69 74 79 0d 01 68  |ouble density..h|
00000460  15 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  |.LDA #1:JSR oswr|
00000470  63 68 0d 01 72 17 4c 44  41 20 23 31 32 38 3a 4a  |ch..r.LDA #128:J|
00000480  53 52 20 6f 73 77 72 63  68 0d 01 7c 15 4c 44 41  |SR oswrch..|.LDA|
00000490  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 01  | #1:JSR oswrch..|
000004a0  86 28 4c 44 41 20 23 32  3a 4a 53 52 20 6f 73 77  |.(LDA #2:JSR osw|
000004b0  72 63 68 20 5c 39 36 30  20 64 6f 74 73 20 70 65  |rch \960 dots pe|
000004c0  72 20 6c 69 6e 65 0d 01  90 1b 2e 73 74 61 72 74  |r line.....start|
000004d0  20 4c 44 41 20 23 38 3a  53 54 41 20 63 6f 75 6e  | LDA #8:STA coun|
000004e0  74 0d 01 9a 14 4c 44 41  20 59 59 6c 6f 3a 53 54  |t....LDA YYlo:ST|
000004f0  41 20 59 6c 6f 0d 01 a4  14 4c 44 41 20 59 59 68  |A Ylo....LDA YYh|
00000500  69 3a 53 54 41 20 59 68  69 0d 01 ae 20 2e 74 65  |i:STA Yhi... .te|
00000510  73 74 20 4c 44 58 20 23  26 37 30 3a 4c 44 59 20  |st LDX #&70:LDY |
00000520  23 30 3a 4c 44 41 20 23  39 0d 01 b8 2e 4a 53 52  |#0:LDA #9....JSR|
00000530  20 6f 73 77 6f 72 64 20  5c 4c 6f 67 69 63 61 6c  | osword \Logical|
00000540  20 63 6f 6c 6f 75 72 20  72 65 74 75 72 6e 65 64  | colour returned|
00000550  20 69 6e 20 26 37 34 0d  01 c2 3e 4c 44 41 20 74  | in &74...>LDA t|
00000560  69 6e 74 3a 80 20 23 37  3a 54 41 59 20 5c 4c 6f  |int:. #7:TAY \Lo|
00000570  67 69 63 61 6c 20 63 6f  6c 6f 75 72 20 75 73 65  |gical colour use|
00000580  64 20 61 73 20 69 6e 64  65 78 20 74 6f 20 70 61  |d as index to pa|
00000590  74 74 65 72 6e 0d 01 cc  10 2e 62 79 74 65 20 4c  |ttern.....byte L|
000005a0  44 58 20 23 30 0d 01 d6  12 4c 44 41 28 70 61 74  |DX #0....LDA(pat|
000005b0  74 65 72 6e 29 2c 59 0d  01 e0 50 2e 6c 6f 6f 70  |tern),Y...P.loop|
000005c0  31 20 4c 53 52 20 41 3a  52 4f 4c 20 6f 63 74 65  |1 LSR A:ROL octe|
000005d0  74 2c 58 20 5c 31 20 62  69 74 20 74 72 61 6e 73  |t,X \1 bit trans|
000005e0  66 65 72 65 64 20 66 72  6f 6d 20 70 61 74 74 65  |fered from patte|
000005f0  72 6e 20 74 6f 20 65 61  63 68 20 62 79 74 65 20  |rn to each byte |
00000600  69 6e 20 74 75 72 6e 0d  01 ea 0f 49 4e 58 3a 43  |in turn....INX:C|
00000610  50 58 20 73 65 74 0d 01  f4 0d 42 4e 45 20 6c 6f  |PX set....BNE lo|
00000620  6f 70 31 0d 01 fe 14 2e  6c 6f 6f 70 32 20 44 45  |op1.....loop2 DE|
00000630  43 20 63 6f 75 6e 74 0d  02 08 0d 42 45 51 20 70  |C count....BEQ p|
00000640  72 69 6e 74 0d 02 12 0b  4c 44 41 20 59 6c 6f 0d  |rint....LDA Ylo.|
00000650  02 1c 0e 53 45 43 3a 53  42 43 20 23 34 0d 02 26  |...SEC:SBC #4..&|
00000660  0b 53 54 41 20 59 6c 6f  0d 02 30 12 4c 44 41 20  |.STA Ylo..0.LDA |
00000670  59 68 69 3a 53 42 43 20  23 30 0d 02 3a 0b 53 54  |Yhi:SBC #0..:.ST|
00000680  41 20 59 68 69 0d 02 44  0c 4a 4d 50 20 74 65 73  |A Yhi..D.JMP tes|
00000690  74 0d 02 4e 11 2e 70 72  69 6e 74 20 4c 44 58 20  |t..N..print LDX |
000006a0  23 30 0d 02 58 1c 2e 6c  6f 6f 70 33 20 4c 44 41  |#0..X..loop3 LDA|
000006b0  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 02  | #1:JSR oswrch..|
000006c0  62 1b 4c 44 41 20 6f 63  74 65 74 2c 58 3a 4a 53  |b.LDA octet,X:JS|
000006d0  52 20 6f 73 77 72 63 68  20 0d 02 6c 0f 49 4e 58  |R oswrch ..l.INX|
000006e0  3a 43 50 58 20 73 65 74  0d 02 76 0d 42 4e 45 20  |:CPX set..v.BNE |
000006f0  6c 6f 6f 70 33 0d 02 80  12 2e 78 6c 6f 6f 70 20  |loop3.....xloop |
00000700  4c 44 41 20 58 6c 6f 0d  02 8a 0f 43 4c 43 3a 41  |LDA Xlo....CLC:A|
00000710  44 43 20 70 69 78 0d 02  94 0b 53 54 41 20 58 6c  |DC pix....STA Xl|
00000720  6f 0d 02 9e 12 4c 44 41  20 58 68 69 3a 41 44 43  |o....LDA Xhi:ADC|
00000730  20 23 30 0d 02 a8 26 53  54 41 20 58 68 69 20 5c  | #0...&STA Xhi \|
00000740  49 6e 63 72 65 6d 65 6e  74 20 58 20 74 6f 20 6e  |Increment X to n|
00000750  65 78 74 20 70 69 78 65  6c 0d 02 b2 21 43 4d 50  |ext pixel...!CMP|
00000760  20 23 35 20 5c 45 6e 64  20 6f 66 20 6c 69 6e 65  | #5 \End of line|
00000770  3f 20 28 58 3d 31 32 38  30 29 0d 02 bc 0d 42 4e  |? (X=1280)....BN|
00000780  45 20 73 74 61 72 74 0d  02 c6 1c 4a 53 52 20 6e  |E start....JSR n|
00000790  65 78 74 20 5c 53 74 61  72 74 20 6e 65 77 20 6c  |ext \Start new l|
000007a0  69 6e 65 0d 02 d0 13 2e  79 6c 6f 6f 70 20 4c 44  |ine.....yloop LD|
000007b0  41 20 59 59 6c 6f 0d 02  da 0f 53 45 43 3a 53 42  |A YYlo....SEC:SB|
000007c0  43 20 23 33 32 0d 02 e4  0c 53 54 41 20 59 59 6c  |C #32....STA YYl|
000007d0  6f 0d 02 ee 13 4c 44 41  20 59 59 68 69 3a 53 42  |o....LDA YYhi:SB|
000007e0  43 20 23 30 0d 02 f8 1b  53 54 41 20 59 59 68 69  |C #0....STA YYhi|
000007f0  20 5c 44 6f 77 6e 20 38  20 70 69 78 65 6c 73 0d  | \Down 8 pixels.|
00000800  03 02 22 43 4d 50 23 28  67 66 69 6e 69 73 68 20  |.."CMP#(gfinish |
00000810  81 32 35 36 29 3a 42 4e  45 63 6f 6e 74 69 6e 75  |.256):BNEcontinu|
00000820  65 0d 03 0c 3c 4c 44 41  59 59 6c 6f 3a 43 4d 50  |e...<LDAYYlo:CMP|
00000830  23 28 67 66 69 6e 69 73  68 20 83 32 35 36 29 3a  |#(gfinish .256):|
00000840  42 45 51 65 6e 64 20 5c  46 69 6e 69 73 68 20 77  |BEQend \Finish w|
00000850  68 65 6e 20 59 3d 67 66  69 6e 69 73 68 0d 03 16  |hen Y=gfinish...|
00000860  2a 2e 63 6f 6e 74 69 6e  75 65 20 4a 4d 50 20 6e  |*.continue JMP n|
00000870  65 77 6c 20 5c 4f 74 68  65 72 77 69 73 65 20 63  |ewl \Otherwise c|
00000880  6f 6e 74 69 6e 75 65 0d  03 20 1a 2e 65 6e 64 20  |ontinue.. ..end |
00000890  4c 44 41 20 23 31 3a 4a  53 52 20 6f 73 77 72 63  |LDA #1:JSR oswrc|
000008a0  68 0d 03 2a 1b 4c 44 41  20 23 37 3a 4a 53 52 20  |h..*.LDA #7:JSR |
000008b0  6f 73 77 72 63 68 20 5c  42 65 65 70 0d 03 34 0b  |oswrch \Beep..4.|
000008c0  4a 53 52 20 65 73 63 0d  03 3e 39 4c 44 41 20 23  |JSR esc..>9LDA #|
000008d0  36 34 3a 4a 53 52 20 6f  73 77 72 63 68 20 5c 52  |64:JSR oswrch \R|
000008e0  65 74 75 72 6e 20 70 72  69 6e 74 65 72 20 74 6f  |eturn printer to|
000008f0  20 64 65 66 61 75 6c 74  20 73 65 74 74 69 6e 67  | default setting|
00000900  0d 03 48 26 4c 44 41 20  23 33 3a 4a 53 52 20 6f  |..H&LDA #3:JSR o|
00000910  73 77 72 63 68 20 5c 41  6e 64 20 70 72 69 6e 74  |swrch \And print|
00000920  65 72 20 6f 66 66 0d 03  52 07 52 54 53 0d 03 5c  |er off..R.RTS..\|
00000930  1a 2e 65 73 63 20 4c 44  41 20 23 31 3a 4a 53 52  |..esc LDA #1:JSR|
00000940  20 6f 73 77 72 63 68 0d  03 66 16 4c 44 41 20 23  | oswrch..f.LDA #|
00000950  32 37 3a 4a 53 52 20 6f  73 77 72 63 68 0d 03 70  |27:JSR oswrch..p|
00000960  15 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  |.LDA #1:JSR oswr|
00000970  63 68 0d 03 7a 07 52 54  53 0d 03 84 1b 2e 6e 65  |ch..z.RTS.....ne|
00000980  78 74 20 4c 44 41 20 23  31 3a 4a 53 52 20 6f 73  |xt LDA #1:JSR os|
00000990  77 72 63 68 0d 03 8e 16  4c 44 41 20 23 31 30 3a  |wrch....LDA #10:|
000009a0  4a 53 52 20 6f 73 77 72  63 68 0d 03 98 07 52 54  |JSR oswrch....RT|
000009b0  53 0d 03 a2 05 5d 0d 03  ac 0a ed 20 70 61 73 73  |S....]..... pass|
000009c0  0d 03 b6 1c db 3a f1 27  27 22 45 6e 64 20 6f 66  |.....:.''"End of|
000009d0  20 63 6f 64 65 20 26 22  3b 7e 50 25 0d 03 c0 07  | code &";~P%....|
000009e0  f1 27 27 0d 03 ca 2d ff  22 53 41 56 45 20 55 43  |.''...-."SAVE UC|
000009f0  4f 44 45 20 22 2b c3 7e  64 61 74 61 2b 22 20 22  |ODE "+.~data+" "|
00000a00  2b c3 7e 50 25 2b 22 20  22 2b c3 7e 63 6f 64 65  |+.~P%+" "+.~code|
00000a10  0d 03 d4 05 e0 0d 03 de  0e dd f2 70 61 74 74 65  |...........patte|
00000a20  72 6e 73 0d 03 e8 0c f4  20 6d 6f 64 65 20 30 0d  |rns..... mode 0.|
00000a30  03 f2 3f 21 64 61 74 61  3d 26 30 30 30 30 30 31  |..?!data=&000001|
00000a40  30 30 3a 21 28 64 61 74  61 2b 34 29 3d 26 30 30  |00:!(data+4)=&00|
00000a50  30 30 30 30 30 30 3a 3f  28 64 61 74 61 2b 38 29  |000000:?(data+8)|
00000a60  3d 31 3a 3f 28 64 61 74  61 2b 39 29 3d 32 0d 03  |=1:?(data+9)=2..|
00000a70  fc 05 3a 0d 04 06 0c f4  20 6d 6f 64 65 20 31 0d  |..:..... mode 1.|
00000a80  04 10 47 21 28 64 61 74  61 2b 31 30 29 3d 26 30  |..G!(data+10)=&0|
00000a90  33 30 32 30 31 30 30 3a  21 28 64 61 74 61 2b 31  |3020100:!(data+1|
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 31 38 29 3d  32 3a 3f 28 64 61 74 61  |ata+18)=2:?(data|
00000ac0  2b 31 39 29 3d 34 0d 04  1a 05 3a 0d 04 24 0c f4  |+19)=4....:..$..|
00000ad0  20 6d 6f 64 65 20 32 0d  04 2e 47 21 28 64 61 74  | mode 2...G!(dat|
00000ae0  61 2b 32 30 29 3d 26 30  31 30 33 30 35 30 30 3a  |a+20)=&01030500:|
00000af0  21 28 64 61 74 61 2b 32  34 29 3d 26 30 46 30 43  |!(data+24)=&0F0C|
00000b00  30 41 30 45 3a 3f 28 64  61 74 61 2b 32 38 29 3d  |0A0E:?(data+28)=|
00000b10  34 3a 3f 28 64 61 74 61  2b 32 39 29 3d 38 0d 04  |4:?(data+29)=8..|
00000b20  38 05 3a 0d 04 42 0c f4  20 6d 6f 64 65 20 34 0d  |8.:..B.. mode 4.|
00000b30  04 4c 47 21 28 64 61 74  61 2b 33 30 29 3d 26 30  |.LG!(data+30)=&0|
00000b40  30 30 30 30 33 30 30 3a  21 28 64 61 74 61 2b 33  |0000300:!(data+3|
00000b50  34 29 3d 26 30 30 30 30  30 30 30 30 3a 3f 28 64  |4)=&00000000:?(d|
00000b60  61 74 61 2b 33 38 29 3d  32 3a 3f 28 64 61 74 61  |ata+38)=2:?(data|
00000b70  2b 33 39 29 3d 34 0d 04  56 05 3a 0d 04 60 0c f4  |+39)=4..V.:..`..|
00000b80  20 6d 6f 64 65 20 35 0d  04 6a 47 21 28 64 61 74  | mode 5..jG!(dat|
00000b90  61 2b 34 30 29 3d 26 30  46 30 35 30 31 30 30 3a  |a+40)=&0F050100:|
00000ba0  21 28 64 61 74 61 2b 34  34 29 3d 26 30 30 30 30  |!(data+44)=&0000|
00000bb0  30 30 30 30 3a 3f 28 64  61 74 61 2b 34 38 29 3d  |0000:?(data+48)=|
00000bc0  34 3a 3f 28 64 61 74 61  2b 34 39 29 3d 38 0d 04  |4:?(data+49)=8..|
00000bd0  74 05 e1 0d 04 7e 0a dd  f2 61 72 65 61 0d 04 88  |t....~...area...|
00000be0  25 f1 27 22 44 75 6d 70  20 77 68 6f 6c 65 20 73  |%.'"Dump whole s|
00000bf0  63 72 65 65 6e 20 28 59  2f 4e 29 3f 22 3a 41 24  |creen (Y/N)?":A$|
00000c00  3d be 0d 04 92 33 e7 20  41 24 3d 22 59 22 20 84  |=....3. A$="Y" .|
00000c10  20 41 24 3d 22 79 22 20  8c 20 67 73 74 61 72 74  | A$="y" . gstart|
00000c20  3d 31 30 32 30 3a 67 66  69 6e 69 73 68 3d 26 46  |=1020:gfinish=&F|
00000c30  46 46 43 3a e1 0d 04 9c  23 e7 20 41 24 3c 3e 22  |FFC:....#. A$<>"|
00000c40  4e 22 20 80 20 41 24 3c  3e 22 6e 22 20 8c 20 ef  |N" . A$<>"n" . .|
00000c50  20 37 3a e5 8d 74 48 44  0d 04 a6 37 f1 27 22 54  | 7:..tHD...7.'"T|
00000c60  65 78 74 20 6c 69 6e 65  20 74 6f 20 73 74 61 72  |ext line to star|
00000c70  74 20 70 72 69 6e 74 69  6e 67 20 66 72 6f 6d 20  |t printing from |
00000c80  28 30 2d 33 31 29 22 3a  e8 20 73 74 61 72 74 0d  |(0-31)":. start.|
00000c90  04 b0 36 e7 20 73 74 61  72 74 3c 30 20 84 20 73  |..6. start<0 . s|
00000ca0  74 61 72 74 3e 33 31 20  84 20 a8 28 73 74 61 72  |tart>31 . .(star|
00000cb0  74 29 3c 3e 73 74 61 72  74 20 8c 20 ef 20 37 3a  |t)<>start . . 7:|
00000cc0  e5 8d 74 66 44 0d 04 ba  42 f1 27 22 54 65 78 74  |..tfD...B.'"Text|
00000cd0  20 6c 69 6e 65 20 74 6f  20 66 69 6e 69 73 68 20  | line to finish |
00000ce0  70 72 69 6e 74 69 6e 67  20 61 74 20 28 22 3b c3  |printing at (";.|
00000cf0  28 73 74 61 72 74 29 3b  22 2d 33 31 29 22 3a e8  |(start);"-31)":.|
00000d00  20 66 69 6e 69 73 68 0d  04 c4 3e e7 20 66 69 6e  | finish...>. fin|
00000d10  69 73 68 3c 73 74 61 72  74 20 84 20 66 69 6e 69  |ish<start . fini|
00000d20  73 68 3e 33 31 20 84 20  a8 28 66 69 6e 69 73 68  |sh>31 . .(finish|
00000d30  29 3c 3e 66 69 6e 69 73  68 20 8c 20 ef 20 37 3a  |)<>finish . . 7:|
00000d40  e5 8d 74 7a 44 0d 04 ce  33 67 73 74 61 72 74 3d  |..tzD...3gstart=|
00000d50  28 33 32 2d 73 74 61 72  74 29 2a 33 32 2d 34 3a  |(32-start)*32-4:|
00000d60  67 66 69 6e 69 73 68 3d  28 33 31 2d 66 69 6e 69  |gfinish=(31-fini|
00000d70  73 68 29 2a 33 32 2d 34  0d 04 d8 20 e7 20 67 66  |sh)*32-4... . gf|
00000d80  69 6e 69 73 68 3d 2d 34  20 8c 20 67 66 69 6e 69  |inish=-4 . gfini|
00000d90  73 68 3d 26 46 46 46 43  0d 04 e2 05 e1 0d ff     |sh=&FFFC.......|
00000d9f