� 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
F#Xlo=&70:Xhi=&71:Ylo=&72:Yhi=&73
PYYlo=&80:YYhi=&81
Z tint=&74:count=&87:octet=&88
d(pattern=&82:set=&84:pix=&85:mode=&86
n
data=&900
x�6
�
�title
�	�area
��colour
��invert
��'"Filename for code? "f$
�
�patterns
�code=data+50
�� pass=0 � 2 � 2
�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#col:BEQlogical:LDA#((data+20) �256):STApattern:LDA#((data+20) �256):STApattern+1:.logical \Use mode 2 pattern data for actual colours

"*LDA #26:JSR oswrch \Set default screen

,!LDA #2:JSR oswrch \Printer on

6 \.clear JSR next 

@.line JSR esc

JLDA #65:JSR oswrch

TLDA #1:JSR oswrch

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

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

rLDA #(gstart �256):STA YYhi

|.newl LDA #0:STA Xlo

�STA Xhi \Start X=0

�.bit JSR esc

�LDA #42:JSR oswrch

�LDA #1:JSR oswrch

�>LDA #4:JSR oswrch \printer code for 80 dpi/640 dpl density

�LDA #1:JSR oswrch

�LDA #128:JSR oswrch

�LDA #1:JSR oswrch

�(LDA #2:JSR oswrch \640 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
 ]:�col=1 � [OPTpass:LDX#tint �256:LDY#tint �256:LDA#&B:JSRosword:LDAtint+1:STAtint \Get actual colour by reading palette:]
?[OPTpass:LDA tint:� #7:TAY \Colour used as index to pattern
&.byte LDX #0
0LDA(pattern),Y
:5.loop1 LSR A:ROL octet,X \ROL requires X register
DKLSR A:ROL octet,X \2 bits transferred from pattern to each byte in turn
NINX:CPX set
X
BNE loop1
b.loop2 DEC count
l
BEQ print
vLDA Ylo
�SEC:SBC #4
�STA Ylo
�LDA Yhi:SBC #0
�STA Yhi
�JMP test
�.print LDX #0
�.loop3 LDA #1:JSR oswrch
�LDA octet,X
� ]:� inv=0 � [OPTpass:�#&FF:]
�[OPTpass
�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
4!CMP #5 \End of line? (X=1280)
>
BNE start
HJSR next \Start new line
R.yloop LDA YYlo
\SEC:SBC #16
fSTA YYlo
pLDA YYhi:SBC #0
zSTA YYhi \Down 4 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
�JSR esc
�9LDA #64:JSR oswrch \Return printer to default setting
�&LDA #3:JSR oswrch \And printer off
�RTS
�.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
8�'"End of code &";~P%
B.�"SAVE "+f$+" "+�~data+" "+�~P%+" "+�~code
LU�'"Use *";f$;" (or *LOAD ";f$;" "'" followed by CALL&";�~code;") to run the dump"
V�
`��patterns
j� mode 0
t?!data=&FFFFFF00:!(data+4)=&00000000:?(data+8)=1:?(data+9)=2
~:
�� mode 1
�G!(data+10)=&FFEE9900:!(data+14)=&00000000:?(data+18)=2:?(data+19)=4
�:
�� mode 2
�G!(data+20)=&EE339900:!(data+24)=&FF57AA11:?(data+28)=4:?(data+29)=8
�:
�� mode 4
�G!(data+30)=&FFFFFF00:!(data+34)=&00000000:?(data+38)=2:?(data+39)=4
�:
�� mode 5
�H!(data+40)=&FFEE9900:!(data+14)=&00000000:?(data+48)=2:?(data+49)=4 
��
��title

6� �9,1)"Multi-shade multi-mode"''�15)"screen dump"
2� �1,6)"Adapted from Electron User (June '86)"
�
(
��area
2#�''"Dump whole screen (Y/N)? ";
<�
F
key$=�
Pk=�((�"YyNn",key$)+1)/2)
Z
� k<>0
d� �"YyNn",k*2-1,1)
n'� k=1 � gstart=1020:gfinish=&FFFC:�
x7�'"Text line to start printing from (0-31)":� start
�6� start<0 � start>31 � �(start)<>start � � 7:�DxE
�B�'"Text line to finish printing at (";�(start);"-31)":� finish
�>� finish<start � finish>31 � �(finish)<>finish � � 7:�tLE
�3gstart=(32-start)*32-4:gfinish=(31-finish)*32-4
� � gfinish=-4 � gfinish=&FFFC
��
���colour
�,�'"Use (L)ogical or (A)ctual colours? ";
��
�
key$=�
�col=�((�"LlAa",key$)-1)/2)
�
� col<>-1
�� �"LlAa",col*2+1,1)
�
��invert
[�'"(T)rue or (I)nverted shades?"'" (Inverted shades better for most        purposes) ";
"�
,
key$=�
6inv=�((�"TtIi",key$)-1)/2)
@
� inv<>-1
J� �"TtIi",inv*2+1,1)
T�
�

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 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 32 05 3a  |ORD FOR EUG..2.:|
00000070  0d 00 3c 2a 6f 73 77 6f  72 64 3d 26 46 46 46 31  |..<*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 46 23 58 6c  |byte=&FFF4..F#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 50  |o=&72:Yhi=&73..P|
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 5a 20 74 69  6e 74 3d 26 37 34 3a 63  |81..Z tint=&74:c|
000000e0  6f 75 6e 74 3d 26 38 37  3a 6f 63 74 65 74 3d 26  |ount=&87:octet=&|
000000f0  38 38 0d 00 64 28 70 61  74 74 65 72 6e 3d 26 38  |88..d(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 6e 0d 64 61  |5:mode=&86..n.da|
00000120  74 61 3d 26 39 30 30 0d  00 78 06 eb 36 0d 00 82  |ta=&900..x..6...|
00000130  0a f2 74 69 74 6c 65 0d  00 8c 09 f2 61 72 65 61  |..title.....area|
00000140  0d 00 96 0b f2 63 6f 6c  6f 75 72 0d 00 a0 0b f2  |.....colour.....|
00000150  69 6e 76 65 72 74 0d 00  aa 1d e8 27 22 46 69 6c  |invert.....'"Fil|
00000160  65 6e 61 6d 65 20 66 6f  72 20 63 6f 64 65 3f 20  |ename for code? |
00000170  22 66 24 0d 00 b4 0d f2  70 61 74 74 65 72 6e 73  |"f$.....patterns|
00000180  0d 00 be 10 63 6f 64 65  3d 64 61 74 61 2b 35 30  |....code=data+50|
00000190  0d 00 c8 14 e3 20 70 61  73 73 3d 30 20 b8 20 32  |..... pass=0 . 2|
000001a0  20 88 20 32 0d 00 d2 0b  50 25 3d 63 6f 64 65 0d  | . 2....P%=code.|
000001b0  00 dc 0d 5b 4f 50 54 20  70 61 73 73 0d 00 e6 24  |...[OPT pass...$|
000001c0  4c 44 41 23 26 38 37 3a  4a 53 52 20 6f 73 62 79  |LDA#&87:JSR osby|
000001d0  74 65 20 5c 47 65 74 20  eb 20 6e 75 6d 62 65 72  |te \Get . number|
000001e0  0d 00 fa 32 43 50 59 23  33 3a 42 45 51 62 61 64  |...2CPY#3:BEQbad|
000001f0  6d 6f 64 65 3a 42 43 43  6d 6f 64 65 4f 4b 3a 44  |mode:BCCmodeOK:D|
00000200  45 59 3a 43 50 59 23 35  3a 42 43 43 6d 6f 64 65  |EY:CPY#5:BCCmode|
00000210  4f 4b 0d 01 04 35 2e 62  61 64 6d 6f 64 65 20 42  |OK...5.badmode B|
00000220  52 4b 3a 45 51 55 42 30  3a 45 51 55 53 22 4e 6f  |RK:EQUB0:EQUS"No|
00000230  74 20 69 6e 20 67 72 61  70 68 69 63 73 20 6d 6f  |t in graphics mo|
00000240  64 65 22 3a 42 52 4b 0d  01 0e 9d 2e 6d 6f 64 65  |de":BRK.....mode|
00000250  4f 4b 20 54 59 41 3a 53  54 41 6d 6f 64 65 3a 41  |OK TYA:STAmode:A|
00000260  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000270  3a 43 4c 43 3a 41 44 43  6d 6f 64 65 3a 41 44 43  |:CLC:ADCmode:ADC|
00000280  6d 6f 64 65 3a 41 44 43  23 28 64 61 74 61 20 83  |mode:ADC#(data .|
00000290  32 35 36 29 3a 53 54 41  70 61 74 74 65 72 6e 3a  |256):STApattern:|
000002a0  4c 44 41 23 30 3a 41 44  43 23 28 64 61 74 61 20  |LDA#0:ADC#(data |
000002b0  81 32 35 36 29 3a 53 54  41 70 61 74 74 65 72 6e  |.256):STApattern|
000002c0  2b 31 20 5c 53 74 6f 72  65 20 61 64 64 72 65 73  |+1 \Store addres|
000002d0  73 20 6f 66 20 64 61 74  61 20 69 6e 20 70 61 74  |s of data in pat|
000002e0  74 65 72 6e 0d 01 18 39  4c 44 59 23 38 3a 4c 44  |tern...9LDY#8:LD|
000002f0  41 28 70 61 74 74 65 72  6e 29 2c 59 3a 53 54 41  |A(pattern),Y:STA|
00000300  73 65 74 3a 49 4e 59 3a  4c 44 41 28 70 61 74 74  |set:INY:LDA(patt|
00000310  65 72 6e 29 2c 59 3a 53  54 41 70 69 78 0d 01 1d  |ern),Y:STApix...|
00000320  8d 4c 44 41 23 63 6f 6c  3a 42 45 51 6c 6f 67 69  |.LDA#col:BEQlogi|
00000330  63 61 6c 3a 4c 44 41 23  28 28 64 61 74 61 2b 32  |cal:LDA#((data+2|
00000340  30 29 20 83 32 35 36 29  3a 53 54 41 70 61 74 74  |0) .256):STApatt|
00000350  65 72 6e 3a 4c 44 41 23  28 28 64 61 74 61 2b 32  |ern:LDA#((data+2|
00000360  30 29 20 81 32 35 36 29  3a 53 54 41 70 61 74 74  |0) .256):STApatt|
00000370  65 72 6e 2b 31 3a 2e 6c  6f 67 69 63 61 6c 20 5c  |ern+1:.logical \|
00000380  55 73 65 20 6d 6f 64 65  20 32 20 70 61 74 74 65  |Use mode 2 patte|
00000390  72 6e 20 64 61 74 61 20  66 6f 72 20 61 63 74 75  |rn data for actu|
000003a0  61 6c 20 63 6f 6c 6f 75  72 73 0d 01 22 2a 4c 44  |al colours.."*LD|
000003b0  41 20 23 32 36 3a 4a 53  52 20 6f 73 77 72 63 68  |A #26:JSR oswrch|
000003c0  20 5c 53 65 74 20 64 65  66 61 75 6c 74 20 73 63  | \Set default sc|
000003d0  72 65 65 6e 0d 01 2c 21  4c 44 41 20 23 32 3a 4a  |reen..,!LDA #2:J|
000003e0  53 52 20 6f 73 77 72 63  68 20 5c 50 72 69 6e 74  |SR oswrch \Print|
000003f0  65 72 20 6f 6e 0d 01 36  16 20 5c 2e 63 6c 65 61  |er on..6. \.clea|
00000400  72 20 4a 53 52 20 6e 65  78 74 20 0d 01 40 11 2e  |r JSR next ..@..|
00000410  6c 69 6e 65 20 4a 53 52  20 65 73 63 0d 01 4a 16  |line JSR esc..J.|
00000420  4c 44 41 20 23 36 35 3a  4a 53 52 20 6f 73 77 72  |LDA #65:JSR oswr|
00000430  63 68 0d 01 54 15 4c 44  41 20 23 31 3a 4a 53 52  |ch..T.LDA #1:JSR|
00000440  20 6f 73 77 72 63 68 0d  01 5e 27 4c 44 41 20 23  | oswrch..^'LDA #|
00000450  38 3a 4a 53 52 20 6f 73  77 72 63 68 20 5c 53 65  |8:JSR oswrch \Se|
00000460  74 20 6c 69 6e 65 20 73  70 61 63 69 6e 67 0d 01  |t line spacing..|
00000470  68 25 2e 6c 6f 61 64 20  4c 44 41 20 23 28 67 73  |h%.load LDA #(gs|
00000480  74 61 72 74 20 83 32 35  36 29 3a 53 54 41 20 59  |tart .256):STA Y|
00000490  59 6c 6f 0d 01 72 1f 4c  44 41 20 23 28 67 73 74  |Ylo..r.LDA #(gst|
000004a0  61 72 74 20 81 32 35 36  29 3a 53 54 41 20 59 59  |art .256):STA YY|
000004b0  68 69 0d 01 7c 18 2e 6e  65 77 6c 20 4c 44 41 20  |hi..|..newl LDA |
000004c0  23 30 3a 53 54 41 20 58  6c 6f 0d 01 86 16 53 54  |#0:STA Xlo....ST|
000004d0  41 20 58 68 69 20 5c 53  74 61 72 74 20 58 3d 30  |A Xhi \Start X=0|
000004e0  0d 01 90 10 2e 62 69 74  20 4a 53 52 20 65 73 63  |.....bit JSR esc|
000004f0  0d 01 9a 16 4c 44 41 20  23 34 32 3a 4a 53 52 20  |....LDA #42:JSR |
00000500  6f 73 77 72 63 68 0d 01  a4 15 4c 44 41 20 23 31  |oswrch....LDA #1|
00000510  3a 4a 53 52 20 6f 73 77  72 63 68 0d 01 ae 3e 4c  |:JSR oswrch...>L|
00000520  44 41 20 23 34 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #4:JSR oswrch|
00000530  20 5c 70 72 69 6e 74 65  72 20 63 6f 64 65 20 66  | \printer code f|
00000540  6f 72 20 38 30 20 64 70  69 2f 36 34 30 20 64 70  |or 80 dpi/640 dp|
00000550  6c 20 64 65 6e 73 69 74  79 0d 01 b8 15 4c 44 41  |l density....LDA|
00000560  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 01  | #1:JSR oswrch..|
00000570  c2 17 4c 44 41 20 23 31  32 38 3a 4a 53 52 20 6f  |..LDA #128:JSR o|
00000580  73 77 72 63 68 0d 01 cc  15 4c 44 41 20 23 31 3a  |swrch....LDA #1:|
00000590  4a 53 52 20 6f 73 77 72  63 68 0d 01 d6 28 4c 44  |JSR oswrch...(LD|
000005a0  41 20 23 32 3a 4a 53 52  20 6f 73 77 72 63 68 20  |A #2:JSR oswrch |
000005b0  5c 36 34 30 20 64 6f 74  73 20 70 65 72 20 6c 69  |\640 dots per li|
000005c0  6e 65 0d 01 e0 1b 2e 73  74 61 72 74 20 4c 44 41  |ne.....start LDA|
000005d0  20 23 34 3a 53 54 41 20  63 6f 75 6e 74 0d 01 ea  | #4:STA count...|
000005e0  14 4c 44 41 20 59 59 6c  6f 3a 53 54 41 20 59 6c  |.LDA YYlo:STA Yl|
000005f0  6f 0d 01 f4 14 4c 44 41  20 59 59 68 69 3a 53 54  |o....LDA YYhi:ST|
00000600  41 20 59 68 69 0d 01 fe  20 2e 74 65 73 74 20 4c  |A Yhi... .test L|
00000610  44 58 20 23 26 37 30 3a  4c 44 59 20 23 30 3a 4c  |DX #&70:LDY #0:L|
00000620  44 41 20 23 39 0d 02 08  2e 4a 53 52 20 6f 73 77  |DA #9....JSR osw|
00000630  6f 72 64 20 5c 4c 6f 67  69 63 61 6c 20 63 6f 6c  |ord \Logical col|
00000640  6f 75 72 20 72 65 74 75  72 6e 65 64 20 69 6e 20  |our returned in |
00000650  26 37 34 0d 02 12 7f 20  5d 3a e7 63 6f 6c 3d 31  |&74.... ]:.col=1|
00000660  20 8c 20 5b 4f 50 54 70  61 73 73 3a 4c 44 58 23  | . [OPTpass:LDX#|
00000670  74 69 6e 74 20 83 32 35  36 3a 4c 44 59 23 74 69  |tint .256:LDY#ti|
00000680  6e 74 20 81 32 35 36 3a  4c 44 41 23 26 42 3a 4a  |nt .256:LDA#&B:J|
00000690  53 52 6f 73 77 6f 72 64  3a 4c 44 41 74 69 6e 74  |SRosword:LDAtint|
000006a0  2b 31 3a 53 54 41 74 69  6e 74 20 5c 47 65 74 20  |+1:STAtint \Get |
000006b0  61 63 74 75 61 6c 20 63  6f 6c 6f 75 72 20 62 79  |actual colour by|
000006c0  20 72 65 61 64 69 6e 67  20 70 61 6c 65 74 74 65  | reading palette|
000006d0  3a 5d 0d 02 1c 3f 5b 4f  50 54 70 61 73 73 3a 4c  |:]...?[OPTpass:L|
000006e0  44 41 20 74 69 6e 74 3a  80 20 23 37 3a 54 41 59  |DA tint:. #7:TAY|
000006f0  20 5c 43 6f 6c 6f 75 72  20 75 73 65 64 20 61 73  | \Colour used as|
00000700  20 69 6e 64 65 78 20 74  6f 20 70 61 74 74 65 72  | index to patter|
00000710  6e 0d 02 26 10 2e 62 79  74 65 20 4c 44 58 20 23  |n..&..byte LDX #|
00000720  30 0d 02 30 12 4c 44 41  28 70 61 74 74 65 72 6e  |0..0.LDA(pattern|
00000730  29 2c 59 0d 02 3a 35 2e  6c 6f 6f 70 31 20 4c 53  |),Y..:5.loop1 LS|
00000740  52 20 41 3a 52 4f 4c 20  6f 63 74 65 74 2c 58 20  |R A:ROL octet,X |
00000750  5c 52 4f 4c 20 72 65 71  75 69 72 65 73 20 58 20  |\ROL requires X |
00000760  72 65 67 69 73 74 65 72  0d 02 44 4b 4c 53 52 20  |register..DKLSR |
00000770  41 3a 52 4f 4c 20 6f 63  74 65 74 2c 58 20 5c 32  |A:ROL octet,X \2|
00000780  20 62 69 74 73 20 74 72  61 6e 73 66 65 72 72 65  | bits transferre|
00000790  64 20 66 72 6f 6d 20 70  61 74 74 65 72 6e 20 74  |d from pattern t|
000007a0  6f 20 65 61 63 68 20 62  79 74 65 20 69 6e 20 74  |o each byte in t|
000007b0  75 72 6e 0d 02 4e 0f 49  4e 58 3a 43 50 58 20 73  |urn..N.INX:CPX s|
000007c0  65 74 0d 02 58 0d 42 4e  45 20 6c 6f 6f 70 31 0d  |et..X.BNE loop1.|
000007d0  02 62 14 2e 6c 6f 6f 70  32 20 44 45 43 20 63 6f  |.b..loop2 DEC co|
000007e0  75 6e 74 0d 02 6c 0d 42  45 51 20 70 72 69 6e 74  |unt..l.BEQ print|
000007f0  0d 02 76 0b 4c 44 41 20  59 6c 6f 0d 02 80 0e 53  |..v.LDA Ylo....S|
00000800  45 43 3a 53 42 43 20 23  34 0d 02 8a 0b 53 54 41  |EC:SBC #4....STA|
00000810  20 59 6c 6f 0d 02 94 12  4c 44 41 20 59 68 69 3a  | Ylo....LDA Yhi:|
00000820  53 42 43 20 23 30 0d 02  9e 0b 53 54 41 20 59 68  |SBC #0....STA Yh|
00000830  69 0d 02 a8 0c 4a 4d 50  20 74 65 73 74 0d 02 b2  |i....JMP test...|
00000840  11 2e 70 72 69 6e 74 20  4c 44 58 20 23 30 0d 02  |..print LDX #0..|
00000850  bc 1c 2e 6c 6f 6f 70 33  20 4c 44 41 20 23 31 3a  |...loop3 LDA #1:|
00000860  4a 53 52 20 6f 73 77 72  63 68 0d 02 c6 0f 4c 44  |JSR oswrch....LD|
00000870  41 20 6f 63 74 65 74 2c  58 0d 02 d0 20 5d 3a e7  |A octet,X... ]:.|
00000880  20 69 6e 76 3d 30 20 8c  20 5b 4f 50 54 70 61 73  | inv=0 . [OPTpas|
00000890  73 3a 82 23 26 46 46 3a  5d 0d 02 da 0c 5b 4f 50  |s:.#&FF:]....[OP|
000008a0  54 70 61 73 73 0d 02 e4  0e 4a 53 52 20 6f 73 77  |Tpass....JSR osw|
000008b0  72 63 68 0d 02 ee 0f 49  4e 58 3a 43 50 58 20 73  |rch....INX:CPX s|
000008c0  65 74 0d 02 f8 0d 42 4e  45 20 6c 6f 6f 70 33 0d  |et....BNE loop3.|
000008d0  03 02 12 2e 78 6c 6f 6f  70 20 4c 44 41 20 58 6c  |....xloop LDA Xl|
000008e0  6f 0d 03 0c 0f 43 4c 43  3a 41 44 43 20 70 69 78  |o....CLC:ADC pix|
000008f0  0d 03 16 0b 53 54 41 20  58 6c 6f 0d 03 20 12 4c  |....STA Xlo.. .L|
00000900  44 41 20 58 68 69 3a 41  44 43 20 23 30 0d 03 2a  |DA Xhi:ADC #0..*|
00000910  26 53 54 41 20 58 68 69  20 5c 49 6e 63 72 65 6d  |&STA Xhi \Increm|
00000920  65 6e 74 20 58 20 74 6f  20 6e 65 78 74 20 70 69  |ent X to next pi|
00000930  78 65 6c 0d 03 34 21 43  4d 50 20 23 35 20 5c 45  |xel..4!CMP #5 \E|
00000940  6e 64 20 6f 66 20 6c 69  6e 65 3f 20 28 58 3d 31  |nd of line? (X=1|
00000950  32 38 30 29 0d 03 3e 0d  42 4e 45 20 73 74 61 72  |280)..>.BNE star|
00000960  74 0d 03 48 1c 4a 53 52  20 6e 65 78 74 20 5c 53  |t..H.JSR next \S|
00000970  74 61 72 74 20 6e 65 77  20 6c 69 6e 65 0d 03 52  |tart new line..R|
00000980  13 2e 79 6c 6f 6f 70 20  4c 44 41 20 59 59 6c 6f  |..yloop LDA YYlo|
00000990  0d 03 5c 0f 53 45 43 3a  53 42 43 20 23 31 36 0d  |..\.SEC:SBC #16.|
000009a0  03 66 0c 53 54 41 20 59  59 6c 6f 0d 03 70 13 4c  |.f.STA YYlo..p.L|
000009b0  44 41 20 59 59 68 69 3a  53 42 43 20 23 30 0d 03  |DA YYhi:SBC #0..|
000009c0  7a 1b 53 54 41 20 59 59  68 69 20 5c 44 6f 77 6e  |z.STA YYhi \Down|
000009d0  20 34 20 70 69 78 65 6c  73 0d 03 84 22 43 4d 50  | 4 pixels..."CMP|
000009e0  23 28 67 66 69 6e 69 73  68 20 81 32 35 36 29 3a  |#(gfinish .256):|
000009f0  42 4e 45 63 6f 6e 74 69  6e 75 65 0d 03 8e 3c 4c  |BNEcontinue...<L|
00000a00  44 41 59 59 6c 6f 3a 43  4d 50 23 28 67 66 69 6e  |DAYYlo:CMP#(gfin|
00000a10  69 73 68 20 83 32 35 36  29 3a 42 45 51 65 6e 64  |ish .256):BEQend|
00000a20  20 5c 46 69 6e 69 73 68  20 77 68 65 6e 20 59 3d  | \Finish when Y=|
00000a30  67 66 69 6e 69 73 68 0d  03 98 2a 2e 63 6f 6e 74  |gfinish...*.cont|
00000a40  69 6e 75 65 20 4a 4d 50  20 6e 65 77 6c 20 5c 4f  |inue JMP newl \O|
00000a50  74 68 65 72 77 69 73 65  20 63 6f 6e 74 69 6e 75  |therwise continu|
00000a60  65 0d 03 a2 1a 2e 65 6e  64 20 4c 44 41 20 23 31  |e.....end LDA #1|
00000a70  3a 4a 53 52 20 6f 73 77  72 63 68 0d 03 ac 1b 4c  |:JSR oswrch....L|
00000a80  44 41 20 23 37 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #7:JSR oswrch|
00000a90  20 5c 42 65 65 70 0d 03  b6 0b 4a 53 52 20 65 73  | \Beep....JSR es|
00000aa0  63 0d 03 c0 39 4c 44 41  20 23 36 34 3a 4a 53 52  |c...9LDA #64:JSR|
00000ab0  20 6f 73 77 72 63 68 20  5c 52 65 74 75 72 6e 20  | oswrch \Return |
00000ac0  70 72 69 6e 74 65 72 20  74 6f 20 64 65 66 61 75  |printer to defau|
00000ad0  6c 74 20 73 65 74 74 69  6e 67 0d 03 ca 26 4c 44  |lt setting...&LD|
00000ae0  41 20 23 33 3a 4a 53 52  20 6f 73 77 72 63 68 20  |A #3:JSR oswrch |
00000af0  5c 41 6e 64 20 70 72 69  6e 74 65 72 20 6f 66 66  |\And printer off|
00000b00  0d 03 d4 07 52 54 53 0d  03 de 1a 2e 65 73 63 20  |....RTS.....esc |
00000b10  4c 44 41 20 23 31 3a 4a  53 52 20 6f 73 77 72 63  |LDA #1:JSR oswrc|
00000b20  68 0d 03 e8 16 4c 44 41  20 23 32 37 3a 4a 53 52  |h....LDA #27:JSR|
00000b30  20 6f 73 77 72 63 68 0d  03 f2 15 4c 44 41 20 23  | oswrch....LDA #|
00000b40  31 3a 4a 53 52 20 6f 73  77 72 63 68 0d 03 fc 07  |1:JSR oswrch....|
00000b50  52 54 53 0d 04 06 1b 2e  6e 65 78 74 20 4c 44 41  |RTS.....next LDA|
00000b60  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 04  | #1:JSR oswrch..|
00000b70  10 16 4c 44 41 20 23 31  30 3a 4a 53 52 20 6f 73  |..LDA #10:JSR os|
00000b80  77 72 63 68 0d 04 1a 07  52 54 53 0d 04 24 05 5d  |wrch....RTS..$.]|
00000b90  0d 04 2e 0a ed 20 70 61  73 73 0d 04 38 19 f1 27  |..... pass..8..'|
00000ba0  22 45 6e 64 20 6f 66 20  63 6f 64 65 20 26 22 3b  |"End of code &";|
00000bb0  7e 50 25 0d 04 42 2e ff  22 53 41 56 45 20 22 2b  |~P%..B.."SAVE "+|
00000bc0  66 24 2b 22 20 22 2b c3  7e 64 61 74 61 2b 22 20  |f$+" "+.~data+" |
00000bd0  22 2b c3 7e 50 25 2b 22  20 22 2b c3 7e 63 6f 64  |"+.~P%+" "+.~cod|
00000be0  65 0d 04 4c 55 f1 27 22  55 73 65 20 2a 22 3b 66  |e..LU.'"Use *";f|
00000bf0  24 3b 22 20 28 6f 72 20  2a 4c 4f 41 44 20 22 3b  |$;" (or *LOAD ";|
00000c00  66 24 3b 22 20 22 27 22  20 66 6f 6c 6c 6f 77 65  |f$;" "'" followe|
00000c10  64 20 62 79 20 43 41 4c  4c 26 22 3b c3 7e 63 6f  |d by CALL&";.~co|
00000c20  64 65 3b 22 29 20 74 6f  20 72 75 6e 20 74 68 65  |de;") to run the|
00000c30  20 64 75 6d 70 22 0d 04  56 05 e0 0d 04 60 0e dd  | dump"..V....`..|
00000c40  f2 70 61 74 74 65 72 6e  73 0d 04 6a 0c f4 20 6d  |.patterns..j.. m|
00000c50  6f 64 65 20 30 0d 04 74  3f 21 64 61 74 61 3d 26  |ode 0..t?!data=&|
00000c60  46 46 46 46 46 46 30 30  3a 21 28 64 61 74 61 2b  |FFFFFF00:!(data+|
00000c70  34 29 3d 26 30 30 30 30  30 30 30 30 3a 3f 28 64  |4)=&00000000:?(d|
00000c80  61 74 61 2b 38 29 3d 31  3a 3f 28 64 61 74 61 2b  |ata+8)=1:?(data+|
00000c90  39 29 3d 32 0d 04 7e 05  3a 0d 04 88 0c f4 20 6d  |9)=2..~.:..... m|
00000ca0  6f 64 65 20 31 0d 04 92  47 21 28 64 61 74 61 2b  |ode 1...G!(data+|
00000cb0  31 30 29 3d 26 46 46 45  45 39 39 30 30 3a 21 28  |10)=&FFEE9900:!(|
00000cc0  64 61 74 61 2b 31 34 29  3d 26 30 30 30 30 30 30  |data+14)=&000000|
00000cd0  30 30 3a 3f 28 64 61 74  61 2b 31 38 29 3d 32 3a  |00:?(data+18)=2:|
00000ce0  3f 28 64 61 74 61 2b 31  39 29 3d 34 0d 04 9c 05  |?(data+19)=4....|
00000cf0  3a 0d 04 a6 0c f4 20 6d  6f 64 65 20 32 0d 04 b0  |:..... mode 2...|
00000d00  47 21 28 64 61 74 61 2b  32 30 29 3d 26 45 45 33  |G!(data+20)=&EE3|
00000d10  33 39 39 30 30 3a 21 28  64 61 74 61 2b 32 34 29  |39900:!(data+24)|
00000d20  3d 26 46 46 35 37 41 41  31 31 3a 3f 28 64 61 74  |=&FF57AA11:?(dat|
00000d30  61 2b 32 38 29 3d 34 3a  3f 28 64 61 74 61 2b 32  |a+28)=4:?(data+2|
00000d40  39 29 3d 38 0d 04 ba 05  3a 0d 04 c4 0c f4 20 6d  |9)=8....:..... m|
00000d50  6f 64 65 20 34 0d 04 ce  47 21 28 64 61 74 61 2b  |ode 4...G!(data+|
00000d60  33 30 29 3d 26 46 46 46  46 46 46 30 30 3a 21 28  |30)=&FFFFFF00:!(|
00000d70  64 61 74 61 2b 33 34 29  3d 26 30 30 30 30 30 30  |data+34)=&000000|
00000d80  30 30 3a 3f 28 64 61 74  61 2b 33 38 29 3d 32 3a  |00:?(data+38)=2:|
00000d90  3f 28 64 61 74 61 2b 33  39 29 3d 34 0d 04 d8 05  |?(data+39)=4....|
00000da0  3a 0d 04 e2 0c f4 20 6d  6f 64 65 20 35 0d 04 ec  |:..... mode 5...|
00000db0  48 21 28 64 61 74 61 2b  34 30 29 3d 26 46 46 45  |H!(data+40)=&FFE|
00000dc0  45 39 39 30 30 3a 21 28  64 61 74 61 2b 31 34 29  |E9900:!(data+14)|
00000dd0  3d 26 30 30 30 30 30 30  30 30 3a 3f 28 64 61 74  |=&00000000:?(dat|
00000de0  61 2b 34 38 29 3d 32 3a  3f 28 64 61 74 61 2b 34  |a+48)=2:?(data+4|
00000df0  39 29 3d 34 20 0d 04 f6  05 e1 0d 05 00 0b dd f2  |9)=4 ...........|
00000e00  74 69 74 6c 65 0d 05 0a  36 f1 20 8a 39 2c 31 29  |title...6. .9,1)|
00000e10  22 4d 75 6c 74 69 2d 73  68 61 64 65 20 6d 75 6c  |"Multi-shade mul|
00000e20  74 69 2d 6d 6f 64 65 22  27 27 8a 31 35 29 22 73  |ti-mode"''.15)"s|
00000e30  63 72 65 65 6e 20 64 75  6d 70 22 0d 05 14 32 f1  |creen dump"...2.|
00000e40  20 8a 31 2c 36 29 22 41  64 61 70 74 65 64 20 66  | .1,6)"Adapted f|
00000e50  72 6f 6d 20 45 6c 65 63  74 72 6f 6e 20 55 73 65  |rom Electron Use|
00000e60  72 20 28 4a 75 6e 65 20  27 38 36 29 22 0d 05 1e  |r (June '86)"...|
00000e70  05 e1 0d 05 28 0a dd f2  61 72 65 61 0d 05 32 23  |....(...area..2#|
00000e80  f1 27 27 22 44 75 6d 70  20 77 68 6f 6c 65 20 73  |.''"Dump whole s|
00000e90  63 72 65 65 6e 20 28 59  2f 4e 29 3f 20 22 3b 0d  |creen (Y/N)? ";.|
00000ea0  05 3c 05 f5 0d 05 46 0a  6b 65 79 24 3d be 0d 05  |.<....F.key$=...|
00000eb0  50 1c 6b 3d a8 28 28 a7  22 59 79 4e 6e 22 2c 6b  |P.k=.((."YyNn",k|
00000ec0  65 79 24 29 2b 31 29 2f  32 29 0d 05 5a 0a fd 20  |ey$)+1)/2)..Z.. |
00000ed0  6b 3c 3e 30 0d 05 64 16  f1 20 c1 22 59 79 4e 6e  |k<>0..d.. ."YyNn|
00000ee0  22 2c 6b 2a 32 2d 31 2c  31 29 0d 05 6e 27 e7 20  |",k*2-1,1)..n'. |
00000ef0  6b 3d 31 20 8c 20 67 73  74 61 72 74 3d 31 30 32  |k=1 . gstart=102|
00000f00  30 3a 67 66 69 6e 69 73  68 3d 26 46 46 46 43 3a  |0:gfinish=&FFFC:|
00000f10  e1 0d 05 78 37 f1 27 22  54 65 78 74 20 6c 69 6e  |...x7.'"Text lin|
00000f20  65 20 74 6f 20 73 74 61  72 74 20 70 72 69 6e 74  |e to start print|
00000f30  69 6e 67 20 66 72 6f 6d  20 28 30 2d 33 31 29 22  |ing from (0-31)"|
00000f40  3a e8 20 73 74 61 72 74  0d 05 82 36 e7 20 73 74  |:. start...6. st|
00000f50  61 72 74 3c 30 20 84 20  73 74 61 72 74 3e 33 31  |art<0 . start>31|
00000f60  20 84 20 a8 28 73 74 61  72 74 29 3c 3e 73 74 61  | . .(start)<>sta|
00000f70  72 74 20 8c 20 ef 20 37  3a e5 8d 44 78 45 0d 05  |rt . . 7:..DxE..|
00000f80  8c 42 f1 27 22 54 65 78  74 20 6c 69 6e 65 20 74  |.B.'"Text line t|
00000f90  6f 20 66 69 6e 69 73 68  20 70 72 69 6e 74 69 6e  |o finish printin|
00000fa0  67 20 61 74 20 28 22 3b  c3 28 73 74 61 72 74 29  |g at (";.(start)|
00000fb0  3b 22 2d 33 31 29 22 3a  e8 20 66 69 6e 69 73 68  |;"-31)":. finish|
00000fc0  0d 05 96 3e e7 20 66 69  6e 69 73 68 3c 73 74 61  |...>. finish<sta|
00000fd0  72 74 20 84 20 66 69 6e  69 73 68 3e 33 31 20 84  |rt . finish>31 .|
00000fe0  20 a8 28 66 69 6e 69 73  68 29 3c 3e 66 69 6e 69  | .(finish)<>fini|
00000ff0  73 68 20 8c 20 ef 20 37  3a e5 8d 74 4c 45 0d 05  |sh . . 7:..tLE..|
00001000  a0 33 67 73 74 61 72 74  3d 28 33 32 2d 73 74 61  |.3gstart=(32-sta|
00001010  72 74 29 2a 33 32 2d 34  3a 67 66 69 6e 69 73 68  |rt)*32-4:gfinish|
00001020  3d 28 33 31 2d 66 69 6e  69 73 68 29 2a 33 32 2d  |=(31-finish)*32-|
00001030  34 0d 05 aa 20 e7 20 67  66 69 6e 69 73 68 3d 2d  |4... . gfinish=-|
00001040  34 20 8c 20 67 66 69 6e  69 73 68 3d 26 46 46 46  |4 . gfinish=&FFF|
00001050  43 0d 05 b4 05 e1 0d 05  be 0c dd f2 63 6f 6c 6f  |C...........colo|
00001060  75 72 0d 05 c8 2c f1 27  22 55 73 65 20 28 4c 29  |ur...,.'"Use (L)|
00001070  6f 67 69 63 61 6c 20 6f  72 20 28 41 29 63 74 75  |ogical or (A)ctu|
00001080  61 6c 20 63 6f 6c 6f 75  72 73 3f 20 22 3b 0d 05  |al colours? ";..|
00001090  d2 05 f5 0d 05 dc 0a 6b  65 79 24 3d be 0d 05 e6  |.......key$=....|
000010a0  1e 63 6f 6c 3d a8 28 28  a7 22 4c 6c 41 61 22 2c  |.col=.((."LlAa",|
000010b0  6b 65 79 24 29 2d 31 29  2f 32 29 0d 05 f0 0d fd  |key$)-1)/2).....|
000010c0  20 63 6f 6c 3c 3e 2d 31  0d 05 fa 18 f1 20 c1 22  | col<>-1..... ."|
000010d0  4c 6c 41 61 22 2c 63 6f  6c 2a 32 2b 31 2c 31 29  |LlAa",col*2+1,1)|
000010e0  0d 06 04 05 e1 0d 06 0e  0c dd f2 69 6e 76 65 72  |...........inver|
000010f0  74 0d 06 18 5b f1 27 22  28 54 29 72 75 65 20 6f  |t...[.'"(T)rue o|
00001100  72 20 28 49 29 6e 76 65  72 74 65 64 20 73 68 61  |r (I)nverted sha|
00001110  64 65 73 3f 22 27 22 20  28 49 6e 76 65 72 74 65  |des?"'" (Inverte|
00001120  64 20 73 68 61 64 65 73  20 62 65 74 74 65 72 20  |d shades better |
00001130  66 6f 72 20 6d 6f 73 74  20 20 20 20 20 20 20 20  |for most        |
00001140  70 75 72 70 6f 73 65 73  29 20 22 3b 0d 06 22 05  |purposes) ";..".|
00001150  f5 0d 06 2c 0a 6b 65 79  24 3d be 0d 06 36 1e 69  |...,.key$=...6.i|
00001160  6e 76 3d a8 28 28 a7 22  54 74 49 69 22 2c 6b 65  |nv=.((."TtIi",ke|
00001170  79 24 29 2d 31 29 2f 32  29 0d 06 40 0d fd 20 69  |y$)-1)/2)..@.. i|
00001180  6e 76 3c 3e 2d 31 0d 06  4a 18 f1 20 c1 22 54 74  |nv<>-1..J.. ."Tt|
00001190  49 69 22 2c 69 6e 76 2a  32 2b 31 2c 31 29 0d 06  |Ii",inv*2+1,1)..|
000011a0  54 05 e1 0d ff                                    |T....|
000011a5