� 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=&75:octet=&76
d(pattern=&82:set=&84:pix=&85:mode=&86
n
data=&900
x�6
�
�title
�	�area
��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 #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 #(gstart �256):STA YYlo

TLDA #(gstart �256):STA YYhi

^.newl LDA #0:STA Xlo

hSTA Xhi \Start X=0

r.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

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

�.byte LDX #0
LDA(pattern),Y
5.loop1 LSR A:ROL octet,X \ROL requires X register
KLSR A:ROL octet,X \2 bits transferred from pattern to each byte in turn
&INX:CPX set
0
BNE loop1
:.loop2 DEC count
D
BEQ print
NLDA Ylo
XSEC:SBC #4
bSTA Ylo
lLDA Yhi:SBC #0
vSTA 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
!CMP #5 \End of line? (X=1280)

BNE start
 JSR next \Start new line
*.yloop LDA YYlo
4SEC:SBC #16
>STA YYlo
HLDA YYhi:SBC #0
RSTA YYhi \Down 4 pixels
\"CMP#(gfinish �256):BNEcontinue
f<LDAYYlo:CMP#(gfinish �256):BEQend \Finish when Y=gfinish
p*.continue JMP newl \Otherwise continue
z.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
�'"End of code &";~P%
.�"SAVE "+f$+" "+�~data+" "+�~P%+" "+�~code
$U�'"Use *";f$;" (or *LOAD ";f$;" "'" followed by CALL&";�~code;") to run the dump"
.�
8��patterns
B� mode 0
L?!data=&FFFFFF00:!(data+4)=&00000000:?(data+8)=1:?(data+9)=2
V:
`� mode 1
jG!(data+10)=&FF119900:!(data+14)=&00000000:?(data+18)=2:?(data+19)=4
t:
~� mode 2
�G!(data+20)=&01119900:!(data+24)=&FFC35557:?(data+28)=4:?(data+29)=8
�:
�� mode 4
�G!(data+30)=&FFFFFF00:!(data+34)=&00000000:?(data+38)=2:?(data+39)=4
�:
�� mode 5
�G!(data+40)=&FF119900:!(data+44)=&00000000:?(data+48)=4:?(data+49)=8
��
���title
�6� �9,1)"Multi-shade multi-mode"''�15)"screen dump"
�2� �1,6)"Adapted from Electron User (June '86)"
��

��area

#�''"Dump whole screen (Y/N)? ";
�

key$=�
(k=�((�"YyNn",key$)+1)/2)
2
� k<>0
<� �"YyNn",k*2-1,1)
F'� k=1 � gstart=1020:gfinish=&FFFC:�
P7�'"Text line to start printing from (0-31)":� start
Z6� start<0 � start>31 � �(start)<>start � � 7:�DPE
dB�'"Text line to finish printing at (";�(start);"-31)":� finish
n>� finish<start � finish>31 � �(finish)<>finish � � 7:�DdE
x3gstart=(32-start)*32-4:gfinish=(31-finish)*32-4
� � gfinish=-4 � gfinish=&FFFC
��
���invert
�[�'"(T)rue or (I)nverted shades?"'" (Inverted shades better for most        purposes) ";
��
�
key$=�
�inv=�((�"TtIi",key$)-1)/2)
�
� inv<>-1
�� �"TtIi",inv*2+1,1)
��
�

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 37 35  3a 6f 63 74 65 74 3d 26  |ount=&75:octet=&|
000000f0  37 36 0d 00 64 28 70 61  74 74 65 72 6e 3d 26 38  |76..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 69 6e 76  65 72 74 0d 00 9b 1d e8  |.....invert.....|
00000150  27 22 46 69 6c 65 6e 61  6d 65 20 66 6f 72 20 63  |'"Filename for c|
00000160  6f 64 65 3f 20 22 66 24  0d 00 a0 0d f2 70 61 74  |ode? "f$.....pat|
00000170  74 65 72 6e 73 0d 00 aa  10 63 6f 64 65 3d 64 61  |terns....code=da|
00000180  74 61 2b 35 30 0d 00 b4  14 e3 20 70 61 73 73 3d  |ta+50..... pass=|
00000190  30 20 b8 20 32 20 88 20  32 0d 00 be 0b 50 25 3d  |0 . 2 . 2....P%=|
000001a0  63 6f 64 65 0d 00 c8 0d  5b 4f 50 54 20 70 61 73  |code....[OPT pas|
000001b0  73 0d 00 d2 24 4c 44 41  23 26 38 37 3a 4a 53 52  |s...$LDA#&87:JSR|
000001c0  20 6f 73 62 79 74 65 20  5c 47 65 74 20 eb 20 6e  | osbyte \Get . n|
000001d0  75 6d 62 65 72 0d 00 dc  32 43 50 59 23 33 3a 42  |umber...2CPY#3:B|
000001e0  45 51 62 61 64 6d 6f 64  65 3a 42 43 43 6d 6f 64  |EQbadmode:BCCmod|
000001f0  65 4f 4b 3a 44 45 59 3a  43 50 59 23 35 3a 42 43  |eOK:DEY:CPY#5:BC|
00000200  43 6d 6f 64 65 4f 4b 0d  00 e6 35 2e 62 61 64 6d  |CmodeOK...5.badm|
00000210  6f 64 65 20 42 52 4b 3a  45 51 55 42 30 3a 45 51  |ode BRK:EQUB0:EQ|
00000220  55 53 22 4e 6f 74 20 69  6e 20 67 72 61 70 68 69  |US"Not in graphi|
00000230  63 73 20 6d 6f 64 65 22  3a 42 52 4b 0d 00 f0 9d  |cs mode":BRK....|
00000240  2e 6d 6f 64 65 4f 4b 20  54 59 41 3a 53 54 41 6d  |.modeOK TYA:STAm|
00000250  6f 64 65 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |ode:ASL A:ASL A:|
00000260  41 53 4c 20 41 3a 43 4c  43 3a 41 44 43 6d 6f 64  |ASL A:CLC:ADCmod|
00000270  65 3a 41 44 43 6d 6f 64  65 3a 41 44 43 23 28 64  |e:ADCmode:ADC#(d|
00000280  61 74 61 20 83 32 35 36  29 3a 53 54 41 70 61 74  |ata .256):STApat|
00000290  74 65 72 6e 3a 4c 44 41  23 30 3a 41 44 43 23 28  |tern:LDA#0:ADC#(|
000002a0  64 61 74 61 20 81 32 35  36 29 3a 53 54 41 70 61  |data .256):STApa|
000002b0  74 74 65 72 6e 2b 31 20  5c 53 74 6f 72 65 20 61  |ttern+1 \Store a|
000002c0  64 64 72 65 73 73 20 6f  66 20 64 61 74 61 20 69  |ddress of data i|
000002d0  6e 20 70 61 74 74 65 72  6e 0d 00 fa 39 4c 44 59  |n pattern...9LDY|
000002e0  23 38 3a 4c 44 41 28 70  61 74 74 65 72 6e 29 2c  |#8:LDA(pattern),|
000002f0  59 3a 53 54 41 73 65 74  3a 49 4e 59 3a 4c 44 41  |Y:STAset:INY:LDA|
00000300  28 70 61 74 74 65 72 6e  29 2c 59 3a 53 54 41 70  |(pattern),Y:STAp|
00000310  69 78 0d 01 04 2a 4c 44  41 20 23 32 36 3a 4a 53  |ix...*LDA #26:JS|
00000320  52 20 6f 73 77 72 63 68  20 5c 53 65 74 20 64 65  |R oswrch \Set de|
00000330  66 61 75 6c 74 20 73 63  72 65 65 6e 0d 01 0e 21  |fault screen...!|
00000340  4c 44 41 20 23 32 3a 4a  53 52 20 6f 73 77 72 63  |LDA #2:JSR oswrc|
00000350  68 20 5c 50 72 69 6e 74  65 72 20 6f 6e 0d 01 18  |h \Printer on...|
00000360  16 20 5c 2e 63 6c 65 61  72 20 4a 53 52 20 6e 65  |. \.clear JSR ne|
00000370  78 74 20 0d 01 22 11 2e  6c 69 6e 65 20 4a 53 52  |xt .."..line JSR|
00000380  20 65 73 63 0d 01 2c 16  4c 44 41 20 23 36 35 3a  | esc..,.LDA #65:|
00000390  4a 53 52 20 6f 73 77 72  63 68 0d 01 36 15 4c 44  |JSR oswrch..6.LD|
000003a0  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
000003b0  01 40 27 4c 44 41 20 23  38 3a 4a 53 52 20 6f 73  |.@'LDA #8:JSR os|
000003c0  77 72 63 68 20 5c 53 65  74 20 6c 69 6e 65 20 73  |wrch \Set line s|
000003d0  70 61 63 69 6e 67 0d 01  4a 25 2e 6c 6f 61 64 20  |pacing..J%.load |
000003e0  4c 44 41 20 23 28 67 73  74 61 72 74 20 83 32 35  |LDA #(gstart .25|
000003f0  36 29 3a 53 54 41 20 59  59 6c 6f 0d 01 54 1f 4c  |6):STA YYlo..T.L|
00000400  44 41 20 23 28 67 73 74  61 72 74 20 81 32 35 36  |DA #(gstart .256|
00000410  29 3a 53 54 41 20 59 59  68 69 0d 01 5e 18 2e 6e  |):STA YYhi..^..n|
00000420  65 77 6c 20 4c 44 41 20  23 30 3a 53 54 41 20 58  |ewl LDA #0:STA X|
00000430  6c 6f 0d 01 68 16 53 54  41 20 58 68 69 20 5c 53  |lo..h.STA Xhi \S|
00000440  74 61 72 74 20 58 3d 30  0d 01 72 10 2e 62 69 74  |tart X=0..r..bit|
00000450  20 4a 53 52 20 65 73 63  0d 01 7c 16 4c 44 41 20  | JSR esc..|.LDA |
00000460  23 34 32 3a 4a 53 52 20  6f 73 77 72 63 68 0d 01  |#42:JSR oswrch..|
00000470  86 15 4c 44 41 20 23 31  3a 4a 53 52 20 6f 73 77  |..LDA #1:JSR osw|
00000480  72 63 68 0d 01 90 3e 4c  44 41 20 23 34 3a 4a 53  |rch...>LDA #4:JS|
00000490  52 20 6f 73 77 72 63 68  20 5c 70 72 69 6e 74 65  |R oswrch \printe|
000004a0  72 20 63 6f 64 65 20 66  6f 72 20 38 30 20 64 70  |r code for 80 dp|
000004b0  69 2f 36 34 30 20 64 70  6c 20 64 65 6e 73 69 74  |i/640 dpl densit|
000004c0  79 0d 01 9a 15 4c 44 41  20 23 31 3a 4a 53 52 20  |y....LDA #1:JSR |
000004d0  6f 73 77 72 63 68 0d 01  a4 17 4c 44 41 20 23 31  |oswrch....LDA #1|
000004e0  32 38 3a 4a 53 52 20 6f  73 77 72 63 68 0d 01 ae  |28:JSR oswrch...|
000004f0  15 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  |.LDA #1:JSR oswr|
00000500  63 68 0d 01 b8 28 4c 44  41 20 23 32 3a 4a 53 52  |ch...(LDA #2:JSR|
00000510  20 6f 73 77 72 63 68 20  5c 36 34 30 20 64 6f 74  | oswrch \640 dot|
00000520  73 20 70 65 72 20 6c 69  6e 65 0d 01 c2 1b 2e 73  |s per line.....s|
00000530  74 61 72 74 20 4c 44 41  20 23 34 3a 53 54 41 20  |tart LDA #4:STA |
00000540  63 6f 75 6e 74 0d 01 cc  14 4c 44 41 20 59 59 6c  |count....LDA YYl|
00000550  6f 3a 53 54 41 20 59 6c  6f 0d 01 d6 14 4c 44 41  |o:STA Ylo....LDA|
00000560  20 59 59 68 69 3a 53 54  41 20 59 68 69 0d 01 e0  | YYhi:STA Yhi...|
00000570  20 2e 74 65 73 74 20 4c  44 58 20 23 26 37 30 3a  | .test LDX #&70:|
00000580  4c 44 59 20 23 30 3a 4c  44 41 20 23 39 0d 01 ea  |LDY #0:LDA #9...|
00000590  2e 4a 53 52 20 6f 73 77  6f 72 64 20 5c 4c 6f 67  |.JSR osword \Log|
000005a0  69 63 61 6c 20 63 6f 6c  6f 75 72 20 72 65 74 75  |ical colour retu|
000005b0  72 6e 65 64 20 69 6e 20  26 37 34 0d 01 f4 3e 4c  |rned in &74...>L|
000005c0  44 41 20 74 69 6e 74 3a  80 20 23 37 3a 54 41 59  |DA tint:. #7:TAY|
000005d0  20 5c 4c 6f 67 69 63 61  6c 20 63 6f 6c 6f 75 72  | \Logical colour|
000005e0  20 75 73 65 64 20 61 73  20 69 6e 64 65 78 20 74  | used as index t|
000005f0  6f 20 70 61 74 74 65 72  6e 0d 01 fe 10 2e 62 79  |o pattern.....by|
00000600  74 65 20 4c 44 58 20 23  30 0d 02 08 12 4c 44 41  |te LDX #0....LDA|
00000610  28 70 61 74 74 65 72 6e  29 2c 59 0d 02 12 35 2e  |(pattern),Y...5.|
00000620  6c 6f 6f 70 31 20 4c 53  52 20 41 3a 52 4f 4c 20  |loop1 LSR A:ROL |
00000630  6f 63 74 65 74 2c 58 20  5c 52 4f 4c 20 72 65 71  |octet,X \ROL req|
00000640  75 69 72 65 73 20 58 20  72 65 67 69 73 74 65 72  |uires X register|
00000650  0d 02 1c 4b 4c 53 52 20  41 3a 52 4f 4c 20 6f 63  |...KLSR A:ROL oc|
00000660  74 65 74 2c 58 20 5c 32  20 62 69 74 73 20 74 72  |tet,X \2 bits tr|
00000670  61 6e 73 66 65 72 72 65  64 20 66 72 6f 6d 20 70  |ansferred from p|
00000680  61 74 74 65 72 6e 20 74  6f 20 65 61 63 68 20 62  |attern to each b|
00000690  79 74 65 20 69 6e 20 74  75 72 6e 0d 02 26 0f 49  |yte in turn..&.I|
000006a0  4e 58 3a 43 50 58 20 73  65 74 0d 02 30 0d 42 4e  |NX:CPX set..0.BN|
000006b0  45 20 6c 6f 6f 70 31 0d  02 3a 14 2e 6c 6f 6f 70  |E loop1..:..loop|
000006c0  32 20 44 45 43 20 63 6f  75 6e 74 0d 02 44 0d 42  |2 DEC count..D.B|
000006d0  45 51 20 70 72 69 6e 74  0d 02 4e 0b 4c 44 41 20  |EQ print..N.LDA |
000006e0  59 6c 6f 0d 02 58 0e 53  45 43 3a 53 42 43 20 23  |Ylo..X.SEC:SBC #|
000006f0  34 0d 02 62 0b 53 54 41  20 59 6c 6f 0d 02 6c 12  |4..b.STA Ylo..l.|
00000700  4c 44 41 20 59 68 69 3a  53 42 43 20 23 30 0d 02  |LDA Yhi:SBC #0..|
00000710  76 0b 53 54 41 20 59 68  69 0d 02 80 0c 4a 4d 50  |v.STA Yhi....JMP|
00000720  20 74 65 73 74 0d 02 8a  11 2e 70 72 69 6e 74 20  | test.....print |
00000730  4c 44 58 20 23 30 0d 02  94 1c 2e 6c 6f 6f 70 33  |LDX #0.....loop3|
00000740  20 4c 44 41 20 23 31 3a  4a 53 52 20 6f 73 77 72  | LDA #1:JSR oswr|
00000750  63 68 0d 02 9e 0f 4c 44  41 20 6f 63 74 65 74 2c  |ch....LDA octet,|
00000760  58 0d 02 a8 20 5d 3a e7  20 69 6e 76 3d 30 20 8c  |X... ]:. inv=0 .|
00000770  20 5b 4f 50 54 70 61 73  73 3a 82 23 26 46 46 3a  | [OPTpass:.#&FF:|
00000780  5d 0d 02 b2 0c 5b 4f 50  54 70 61 73 73 0d 02 bc  |]....[OPTpass...|
00000790  0e 4a 53 52 20 6f 73 77  72 63 68 0d 02 c6 0f 49  |.JSR oswrch....I|
000007a0  4e 58 3a 43 50 58 20 73  65 74 0d 02 d0 0d 42 4e  |NX:CPX set....BN|
000007b0  45 20 6c 6f 6f 70 33 0d  02 da 12 2e 78 6c 6f 6f  |E loop3.....xloo|
000007c0  70 20 4c 44 41 20 58 6c  6f 0d 02 e4 0f 43 4c 43  |p LDA Xlo....CLC|
000007d0  3a 41 44 43 20 70 69 78  0d 02 ee 0b 53 54 41 20  |:ADC pix....STA |
000007e0  58 6c 6f 0d 02 f8 12 4c  44 41 20 58 68 69 3a 41  |Xlo....LDA Xhi:A|
000007f0  44 43 20 23 30 0d 03 02  26 53 54 41 20 58 68 69  |DC #0...&STA Xhi|
00000800  20 5c 49 6e 63 72 65 6d  65 6e 74 20 58 20 74 6f  | \Increment X to|
00000810  20 6e 65 78 74 20 70 69  78 65 6c 0d 03 0c 21 43  | next pixel...!C|
00000820  4d 50 20 23 35 20 5c 45  6e 64 20 6f 66 20 6c 69  |MP #5 \End of li|
00000830  6e 65 3f 20 28 58 3d 31  32 38 30 29 0d 03 16 0d  |ne? (X=1280)....|
00000840  42 4e 45 20 73 74 61 72  74 0d 03 20 1c 4a 53 52  |BNE start.. .JSR|
00000850  20 6e 65 78 74 20 5c 53  74 61 72 74 20 6e 65 77  | next \Start new|
00000860  20 6c 69 6e 65 0d 03 2a  13 2e 79 6c 6f 6f 70 20  | line..*..yloop |
00000870  4c 44 41 20 59 59 6c 6f  0d 03 34 0f 53 45 43 3a  |LDA YYlo..4.SEC:|
00000880  53 42 43 20 23 31 36 0d  03 3e 0c 53 54 41 20 59  |SBC #16..>.STA Y|
00000890  59 6c 6f 0d 03 48 13 4c  44 41 20 59 59 68 69 3a  |Ylo..H.LDA YYhi:|
000008a0  53 42 43 20 23 30 0d 03  52 1b 53 54 41 20 59 59  |SBC #0..R.STA YY|
000008b0  68 69 20 5c 44 6f 77 6e  20 34 20 70 69 78 65 6c  |hi \Down 4 pixel|
000008c0  73 0d 03 5c 22 43 4d 50  23 28 67 66 69 6e 69 73  |s..\"CMP#(gfinis|
000008d0  68 20 81 32 35 36 29 3a  42 4e 45 63 6f 6e 74 69  |h .256):BNEconti|
000008e0  6e 75 65 0d 03 66 3c 4c  44 41 59 59 6c 6f 3a 43  |nue..f<LDAYYlo:C|
000008f0  4d 50 23 28 67 66 69 6e  69 73 68 20 83 32 35 36  |MP#(gfinish .256|
00000900  29 3a 42 45 51 65 6e 64  20 5c 46 69 6e 69 73 68  |):BEQend \Finish|
00000910  20 77 68 65 6e 20 59 3d  67 66 69 6e 69 73 68 0d  | when Y=gfinish.|
00000920  03 70 2a 2e 63 6f 6e 74  69 6e 75 65 20 4a 4d 50  |.p*.continue JMP|
00000930  20 6e 65 77 6c 20 5c 4f  74 68 65 72 77 69 73 65  | newl \Otherwise|
00000940  20 63 6f 6e 74 69 6e 75  65 0d 03 7a 1a 2e 65 6e  | continue..z..en|
00000950  64 20 4c 44 41 20 23 31  3a 4a 53 52 20 6f 73 77  |d LDA #1:JSR osw|
00000960  72 63 68 0d 03 84 1b 4c  44 41 20 23 37 3a 4a 53  |rch....LDA #7:JS|
00000970  52 20 6f 73 77 72 63 68  20 5c 42 65 65 70 0d 03  |R oswrch \Beep..|
00000980  8e 0b 4a 53 52 20 65 73  63 0d 03 98 39 4c 44 41  |..JSR esc...9LDA|
00000990  20 23 36 34 3a 4a 53 52  20 6f 73 77 72 63 68 20  | #64:JSR oswrch |
000009a0  5c 52 65 74 75 72 6e 20  70 72 69 6e 74 65 72 20  |\Return printer |
000009b0  74 6f 20 64 65 66 61 75  6c 74 20 73 65 74 74 69  |to default setti|
000009c0  6e 67 0d 03 a2 26 4c 44  41 20 23 33 3a 4a 53 52  |ng...&LDA #3:JSR|
000009d0  20 6f 73 77 72 63 68 20  5c 41 6e 64 20 70 72 69  | oswrch \And pri|
000009e0  6e 74 65 72 20 6f 66 66  0d 03 ac 07 52 54 53 0d  |nter off....RTS.|
000009f0  03 b6 1a 2e 65 73 63 20  4c 44 41 20 23 31 3a 4a  |....esc LDA #1:J|
00000a00  53 52 20 6f 73 77 72 63  68 0d 03 c0 16 4c 44 41  |SR oswrch....LDA|
00000a10  20 23 32 37 3a 4a 53 52  20 6f 73 77 72 63 68 0d  | #27:JSR oswrch.|
00000a20  03 ca 15 4c 44 41 20 23  31 3a 4a 53 52 20 6f 73  |...LDA #1:JSR os|
00000a30  77 72 63 68 0d 03 d4 07  52 54 53 0d 03 de 1b 2e  |wrch....RTS.....|
00000a40  6e 65 78 74 20 4c 44 41  20 23 31 3a 4a 53 52 20  |next LDA #1:JSR |
00000a50  6f 73 77 72 63 68 0d 03  e8 16 4c 44 41 20 23 31  |oswrch....LDA #1|
00000a60  30 3a 4a 53 52 20 6f 73  77 72 63 68 0d 03 f2 07  |0:JSR oswrch....|
00000a70  52 54 53 0d 03 fc 05 5d  0d 04 06 0a ed 20 70 61  |RTS....]..... pa|
00000a80  73 73 0d 04 10 19 f1 27  22 45 6e 64 20 6f 66 20  |ss.....'"End of |
00000a90  63 6f 64 65 20 26 22 3b  7e 50 25 0d 04 1a 2e ff  |code &";~P%.....|
00000aa0  22 53 41 56 45 20 22 2b  66 24 2b 22 20 22 2b c3  |"SAVE "+f$+" "+.|
00000ab0  7e 64 61 74 61 2b 22 20  22 2b c3 7e 50 25 2b 22  |~data+" "+.~P%+"|
00000ac0  20 22 2b c3 7e 63 6f 64  65 0d 04 24 55 f1 27 22  | "+.~code..$U.'"|
00000ad0  55 73 65 20 2a 22 3b 66  24 3b 22 20 28 6f 72 20  |Use *";f$;" (or |
00000ae0  2a 4c 4f 41 44 20 22 3b  66 24 3b 22 20 22 27 22  |*LOAD ";f$;" "'"|
00000af0  20 66 6f 6c 6c 6f 77 65  64 20 62 79 20 43 41 4c  | followed by CAL|
00000b00  4c 26 22 3b c3 7e 63 6f  64 65 3b 22 29 20 74 6f  |L&";.~code;") to|
00000b10  20 72 75 6e 20 74 68 65  20 64 75 6d 70 22 0d 04  | run the dump"..|
00000b20  2e 05 e0 0d 04 38 0e dd  f2 70 61 74 74 65 72 6e  |.....8...pattern|
00000b30  73 0d 04 42 0c f4 20 6d  6f 64 65 20 30 0d 04 4c  |s..B.. mode 0..L|
00000b40  3f 21 64 61 74 61 3d 26  46 46 46 46 46 46 30 30  |?!data=&FFFFFF00|
00000b50  3a 21 28 64 61 74 61 2b  34 29 3d 26 30 30 30 30  |:!(data+4)=&0000|
00000b60  30 30 30 30 3a 3f 28 64  61 74 61 2b 38 29 3d 31  |0000:?(data+8)=1|
00000b70  3a 3f 28 64 61 74 61 2b  39 29 3d 32 0d 04 56 05  |:?(data+9)=2..V.|
00000b80  3a 0d 04 60 0c f4 20 6d  6f 64 65 20 31 0d 04 6a  |:..`.. mode 1..j|
00000b90  47 21 28 64 61 74 61 2b  31 30 29 3d 26 46 46 31  |G!(data+10)=&FF1|
00000ba0  31 39 39 30 30 3a 21 28  64 61 74 61 2b 31 34 29  |19900:!(data+14)|
00000bb0  3d 26 30 30 30 30 30 30  30 30 3a 3f 28 64 61 74  |=&00000000:?(dat|
00000bc0  61 2b 31 38 29 3d 32 3a  3f 28 64 61 74 61 2b 31  |a+18)=2:?(data+1|
00000bd0  39 29 3d 34 0d 04 74 05  3a 0d 04 7e 0c f4 20 6d  |9)=4..t.:..~.. m|
00000be0  6f 64 65 20 32 0d 04 88  47 21 28 64 61 74 61 2b  |ode 2...G!(data+|
00000bf0  32 30 29 3d 26 30 31 31  31 39 39 30 30 3a 21 28  |20)=&01119900:!(|
00000c00  64 61 74 61 2b 32 34 29  3d 26 46 46 43 33 35 35  |data+24)=&FFC355|
00000c10  35 37 3a 3f 28 64 61 74  61 2b 32 38 29 3d 34 3a  |57:?(data+28)=4:|
00000c20  3f 28 64 61 74 61 2b 32  39 29 3d 38 0d 04 92 05  |?(data+29)=8....|
00000c30  3a 0d 04 9c 0c f4 20 6d  6f 64 65 20 34 0d 04 a6  |:..... mode 4...|
00000c40  47 21 28 64 61 74 61 2b  33 30 29 3d 26 46 46 46  |G!(data+30)=&FFF|
00000c50  46 46 46 30 30 3a 21 28  64 61 74 61 2b 33 34 29  |FFF00:!(data+34)|
00000c60  3d 26 30 30 30 30 30 30  30 30 3a 3f 28 64 61 74  |=&00000000:?(dat|
00000c70  61 2b 33 38 29 3d 32 3a  3f 28 64 61 74 61 2b 33  |a+38)=2:?(data+3|
00000c80  39 29 3d 34 0d 04 b0 05  3a 0d 04 ba 0c f4 20 6d  |9)=4....:..... m|
00000c90  6f 64 65 20 35 0d 04 c4  47 21 28 64 61 74 61 2b  |ode 5...G!(data+|
00000ca0  34 30 29 3d 26 46 46 31  31 39 39 30 30 3a 21 28  |40)=&FF119900:!(|
00000cb0  64 61 74 61 2b 34 34 29  3d 26 30 30 30 30 30 30  |data+44)=&000000|
00000cc0  30 30 3a 3f 28 64 61 74  61 2b 34 38 29 3d 34 3a  |00:?(data+48)=4:|
00000cd0  3f 28 64 61 74 61 2b 34  39 29 3d 38 0d 04 ce 05  |?(data+49)=8....|
00000ce0  e1 0d 04 d8 0b dd f2 74  69 74 6c 65 0d 04 e2 36  |.......title...6|
00000cf0  f1 20 8a 39 2c 31 29 22  4d 75 6c 74 69 2d 73 68  |. .9,1)"Multi-sh|
00000d00  61 64 65 20 6d 75 6c 74  69 2d 6d 6f 64 65 22 27  |ade multi-mode"'|
00000d10  27 8a 31 35 29 22 73 63  72 65 65 6e 20 64 75 6d  |'.15)"screen dum|
00000d20  70 22 0d 04 ec 32 f1 20  8a 31 2c 36 29 22 41 64  |p"...2. .1,6)"Ad|
00000d30  61 70 74 65 64 20 66 72  6f 6d 20 45 6c 65 63 74  |apted from Elect|
00000d40  72 6f 6e 20 55 73 65 72  20 28 4a 75 6e 65 20 27  |ron User (June '|
00000d50  38 36 29 22 0d 04 f6 05  e1 0d 05 00 0a dd f2 61  |86)"...........a|
00000d60  72 65 61 0d 05 0a 23 f1  27 27 22 44 75 6d 70 20  |rea...#.''"Dump |
00000d70  77 68 6f 6c 65 20 73 63  72 65 65 6e 20 28 59 2f  |whole screen (Y/|
00000d80  4e 29 3f 20 22 3b 0d 05  14 05 f5 0d 05 1e 0a 6b  |N)? ";.........k|
00000d90  65 79 24 3d be 0d 05 28  1c 6b 3d a8 28 28 a7 22  |ey$=...(.k=.((."|
00000da0  59 79 4e 6e 22 2c 6b 65  79 24 29 2b 31 29 2f 32  |YyNn",key$)+1)/2|
00000db0  29 0d 05 32 0a fd 20 6b  3c 3e 30 0d 05 3c 16 f1  |)..2.. k<>0..<..|
00000dc0  20 c1 22 59 79 4e 6e 22  2c 6b 2a 32 2d 31 2c 31  | ."YyNn",k*2-1,1|
00000dd0  29 0d 05 46 27 e7 20 6b  3d 31 20 8c 20 67 73 74  |)..F'. k=1 . gst|
00000de0  61 72 74 3d 31 30 32 30  3a 67 66 69 6e 69 73 68  |art=1020:gfinish|
00000df0  3d 26 46 46 46 43 3a e1  0d 05 50 37 f1 27 22 54  |=&FFFC:...P7.'"T|
00000e00  65 78 74 20 6c 69 6e 65  20 74 6f 20 73 74 61 72  |ext line to star|
00000e10  74 20 70 72 69 6e 74 69  6e 67 20 66 72 6f 6d 20  |t printing from |
00000e20  28 30 2d 33 31 29 22 3a  e8 20 73 74 61 72 74 0d  |(0-31)":. start.|
00000e30  05 5a 36 e7 20 73 74 61  72 74 3c 30 20 84 20 73  |.Z6. start<0 . s|
00000e40  74 61 72 74 3e 33 31 20  84 20 a8 28 73 74 61 72  |tart>31 . .(star|
00000e50  74 29 3c 3e 73 74 61 72  74 20 8c 20 ef 20 37 3a  |t)<>start . . 7:|
00000e60  e5 8d 44 50 45 0d 05 64  42 f1 27 22 54 65 78 74  |..DPE..dB.'"Text|
00000e70  20 6c 69 6e 65 20 74 6f  20 66 69 6e 69 73 68 20  | line to finish |
00000e80  70 72 69 6e 74 69 6e 67  20 61 74 20 28 22 3b c3  |printing at (";.|
00000e90  28 73 74 61 72 74 29 3b  22 2d 33 31 29 22 3a e8  |(start);"-31)":.|
00000ea0  20 66 69 6e 69 73 68 0d  05 6e 3e e7 20 66 69 6e  | finish..n>. fin|
00000eb0  69 73 68 3c 73 74 61 72  74 20 84 20 66 69 6e 69  |ish<start . fini|
00000ec0  73 68 3e 33 31 20 84 20  a8 28 66 69 6e 69 73 68  |sh>31 . .(finish|
00000ed0  29 3c 3e 66 69 6e 69 73  68 20 8c 20 ef 20 37 3a  |)<>finish . . 7:|
00000ee0  e5 8d 44 64 45 0d 05 78  33 67 73 74 61 72 74 3d  |..DdE..x3gstart=|
00000ef0  28 33 32 2d 73 74 61 72  74 29 2a 33 32 2d 34 3a  |(32-start)*32-4:|
00000f00  67 66 69 6e 69 73 68 3d  28 33 31 2d 66 69 6e 69  |gfinish=(31-fini|
00000f10  73 68 29 2a 33 32 2d 34  0d 05 82 20 e7 20 67 66  |sh)*32-4... . gf|
00000f20  69 6e 69 73 68 3d 2d 34  20 8c 20 67 66 69 6e 69  |inish=-4 . gfini|
00000f30  73 68 3d 26 46 46 46 43  0d 05 8c 05 e1 0d 05 96  |sh=&FFFC........|
00000f40  0c dd f2 69 6e 76 65 72  74 0d 05 a0 5b f1 27 22  |...invert...[.'"|
00000f50  28 54 29 72 75 65 20 6f  72 20 28 49 29 6e 76 65  |(T)rue or (I)nve|
00000f60  72 74 65 64 20 73 68 61  64 65 73 3f 22 27 22 20  |rted shades?"'" |
00000f70  28 49 6e 76 65 72 74 65  64 20 73 68 61 64 65 73  |(Inverted shades|
00000f80  20 62 65 74 74 65 72 20  66 6f 72 20 6d 6f 73 74  | better for most|
00000f90  20 20 20 20 20 20 20 20  70 75 72 70 6f 73 65 73  |        purposes|
00000fa0  29 20 22 3b 0d 05 aa 05  f5 0d 05 b4 0a 6b 65 79  |) ";.........key|
00000fb0  24 3d be 0d 05 be 1e 69  6e 76 3d a8 28 28 a7 22  |$=.....inv=.((."|
00000fc0  54 74 49 69 22 2c 6b 65  79 24 29 2d 31 29 2f 32  |TtIi",key$)-1)/2|
00000fd0  29 0d 05 c8 0d fd 20 69  6e 76 3c 3e 2d 31 0d 05  |)..... inv<>-1..|
00000fe0  d2 18 f1 20 c1 22 54 74  49 69 22 2c 69 6e 76 2a  |... ."TtIi",inv*|
00000ff0  32 2b 31 2c 31 29 0d 05  dc 05 e1 0d ff           |2+1,1).......|
00000ffd