Home » Personal collection » Acorn ADFS disks » Electron » Autostereograms_2.ADF » EUDUMP3

EUDUMP3

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Autostereograms_2.ADF
Filename: EUDUMP3
Read OK:
File size: 0B12 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM UDUMP
   20REM EU JUNE 1986 P.26
   30REM ADAPTED 1994 FOR REVIEW IN EUG
   35 REM ADAPTED TO WORK IN ANY MODE (M. FORD)
   40:
   50osword=&FFF1:oswrch=&FFEE:osbyte=&FFF4
   60Xlo=&70:Xhi=&71:Ylo=&72:Yhi=&73
   70YYlo=&80:YYhi=&81
   80tint=&74:count=&75:octet=&76
   90pattern=&82:set=&84:pix=&85:mode=&86
  100data=&900
  110PROCpatterns
  120code=data+50
  130FOR pass=0 TO 3 STEP 3
  140P%=code
  150[OPT pass
  160LDA#&87:JSR osbyte:TYA \Get MODE number
  170STAmode:ASL A:ASL A:ASL A:CLC:ADCmode:ADCmode:ADC#(data MOD256):STApattern:LDA#0:ADC#(data DIV256):STApattern+1 \Store address of data in pattern
  180LDY#8:LDA(pattern),Y:STAset:INY:LDA(pattern),Y:STApix
  190LDA #26:JSR oswrch \Set default screen
  200LDA #2:JSR oswrch \Printer on
  210 \.clear JSR next 
  220.line JSR esc
  230LDA #65:JSR oswrch
  240LDA #1:JSR oswrch
  250LDA #8:JSR oswrch \Set line spacing
  260.load LDA #252:STA YYlo
  270LDA #3:STA YYhi \Start Y=1020
  280.newl LDA #0:STA Xlo
  290STA Xhi \Start X=0
  300.bit JSR esc
  310LDA #76:JSR oswrch \printer code for double density
  320LDA #1:JSR oswrch
  330LDA #128:JSR oswrch
  340LDA #1:JSR oswrch
  350LDA #2:JSR oswrch \960 dots per line
  360.start LDA #8:STA count
  370LDA YYlo:STA Ylo
  380LDA YYhi:STA Yhi
  390.test LDX #&70:LDY #0:LDA #9
  400JSR osword \Logical colour returned in &74
  410LDA tint:AND #7:TAY \Logical colour used as index to pattern
  420.byte LDX #0
  430LDA(pattern),Y
  440.loop1 LSR A:ROL octet,X \1 bit transfered from pattern to each byte in turn
  450INX:CPX set
  460BNE loop1
  470.loop2 DEC count
  480BEQ print
  490LDA Ylo
  500SEC:SBC #4
  510STA Ylo
  520LDA Yhi:SBC #0
  530STA Yhi
  540JMP test
  550.print LDX #0
  560.loop3 LDA #1:JSR oswrch
  570LDA octet,X:JSR oswrch 
  580INX:CPX set
  590BNE loop3
  600.xloop LDA Xlo
  610CLC:ADC pix
  620STA Xlo
  630LDA Xhi:ADC #0
  640STA Xhi \Increment X to next pixel
  650CMP #5 \End of line? (X=1280)
  660BNE start
  670JSR next \Start new line
  680.yloop LDA YYlo
  690SEC:SBC #32
  700STA YYlo
  710LDA YYhi:SBC #0
  720STA YYhi \Down 8 pixels
  730BCC end \Finish when Y reaches 0
  740JMP newl \Otherwise continue
  750.end LDA #1:JSR oswrch
  760LDA #7:JSR oswrch \Beep
  770JSR esc
  780LDA #64:JSR oswrch \Return printer to default setting
  790LDA #3:JSR oswrch \And printer off
  800RTS
  810.esc LDA #1:JSR oswrch
  820LDA #27:JSR oswrch
  830LDA #1:JSR oswrch
  840RTS
  850.next LDA #1:JSR oswrch
  860LDA #10:JSR oswrch
  870RTS
  880]
  890NEXT pass
  900CLS:PRINT''"End of code &";~P%
  910PRINT''
  920OSCLI"SAVE UCODE "+STR$~data+" "+STR$~P%+" "+STR$~code
  930END
  940DEFPROCpatterns
  950REM mode 0
  960!data=&00000100:!(data+4)=&00000000:?(data+8)=1:?(data+9)=2
  970:
  980REM mode 1
  990!(data+10)=&03020100:!(data+14)=&00000000:?(data+18)=2:?(data+19)=4
 1000:
 1010REM mode 2
 1020!(data+20)=&01030500:!(data+24)=&0F0C0A0E:?(data+28)=4:?(data+29)=8
 1030:
 1040REM mode 4
 1050!(data+30)=&00000300:!(data+34)=&00000000:?(data+38)=2:?(data+39)=4
 1060:
 1070REM mode 5
 1080!(data+40)=&0F050100:!(data+44)=&00000000:?(data+48)=4:?(data+49)=8
 1090ENDPROC

� UDUMP
� EU JUNE 1986 P.26
$� ADAPTED 1994 FOR REVIEW IN EUG
#, � ADAPTED TO WORK IN ANY MODE (M. FORD)
(:
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
�patterns
xcode=data+50
�� pass=0 � 3 � 3
�P%=code
�
[OPT pass
�(LDA#&87:JSR osbyte:TYA \Get � number
��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 #252:STA YYlo
!LDA #3:STA YYhi \Start Y=1020
.newl LDA #0:STA Xlo
"STA Xhi \Start X=0
,.bit JSR esc
67LDA #76:JSR oswrch \printer code for double density
@LDA #1:JSR oswrch
JLDA #128:JSR oswrch
TLDA #1:JSR oswrch
^(LDA #2:JSR oswrch \960 dots per line
h.start LDA #8:STA count
rLDA 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
LDA Yhi:SBC #0
STA Yhi
JMP test
&.print LDX #0
0.loop3 LDA #1:JSR oswrch
:LDA octet,X:JSR oswrch 
DINX:CPX set
N
BNE loop3
X.xloop LDA Xlo
bCLC:ADC pix
lSTA Xlo
vLDA 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
�$BCC end \Finish when Y reaches 0
� 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
4LDA #27:JSR oswrch
>LDA #1:JSR oswrch
HRTS
R.next LDA #1:JSR oswrch
\LDA #10:JSR oswrch
fRTS
p]
z
� 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
:
� mode 4
G!(data+30)=&00000300:!(data+34)=&00000000:?(data+38)=2:?(data+39)=4
$:
.� mode 5
8G!(data+40)=&0F050100:!(data+44)=&00000000:?(data+48)=4:?(data+49)=8
B�
�
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 2c 20 f4 20 41 44 41  |IN EUG..#, . ADA|
00000050  50 54 45 44 20 54 4f 20  57 4f 52 4b 20 49 4e 20  |PTED TO WORK IN |
00000060  41 4e 59 20 4d 4f 44 45  20 28 4d 2e 20 46 4f 52  |ANY MODE (M. FOR|
00000070  44 29 0d 00 28 05 3a 0d  00 32 2a 6f 73 77 6f 72  |D)..(.:..2*oswor|
00000080  64 3d 26 46 46 46 31 3a  6f 73 77 72 63 68 3d 26  |d=&FFF1:oswrch=&|
00000090  46 46 45 45 3a 6f 73 62  79 74 65 3d 26 46 46 46  |FFEE:osbyte=&FFF|
000000a0  34 0d 00 3c 23 58 6c 6f  3d 26 37 30 3a 58 68 69  |4..<#Xlo=&70:Xhi|
000000b0  3d 26 37 31 3a 59 6c 6f  3d 26 37 32 3a 59 68 69  |=&71:Ylo=&72:Yhi|
000000c0  3d 26 37 33 0d 00 46 15  59 59 6c 6f 3d 26 38 30  |=&73..F.YYlo=&80|
000000d0  3a 59 59 68 69 3d 26 38  31 0d 00 50 20 74 69 6e  |:YYhi=&81..P tin|
000000e0  74 3d 26 37 34 3a 63 6f  75 6e 74 3d 26 37 35 3a  |t=&74:count=&75:|
000000f0  6f 63 74 65 74 3d 26 37  36 0d 00 5a 28 70 61 74  |octet=&76..Z(pat|
00000100  74 65 72 6e 3d 26 38 32  3a 73 65 74 3d 26 38 34  |tern=&82:set=&84|
00000110  3a 70 69 78 3d 26 38 35  3a 6d 6f 64 65 3d 26 38  |:pix=&85:mode=&8|
00000120  36 0d 00 64 0d 64 61 74  61 3d 26 39 30 30 0d 00  |6..d.data=&900..|
00000130  6e 0d f2 70 61 74 74 65  72 6e 73 0d 00 78 10 63  |n..patterns..x.c|
00000140  6f 64 65 3d 64 61 74 61  2b 35 30 0d 00 82 14 e3  |ode=data+50.....|
00000150  20 70 61 73 73 3d 30 20  b8 20 33 20 88 20 33 0d  | pass=0 . 3 . 3.|
00000160  00 8c 0b 50 25 3d 63 6f  64 65 0d 00 96 0d 5b 4f  |...P%=code....[O|
00000170  50 54 20 70 61 73 73 0d  00 a0 28 4c 44 41 23 26  |PT pass...(LDA#&|
00000180  38 37 3a 4a 53 52 20 6f  73 62 79 74 65 3a 54 59  |87:JSR osbyte:TY|
00000190  41 20 5c 47 65 74 20 eb  20 6e 75 6d 62 65 72 0d  |A \Get . number.|
000001a0  00 aa 91 53 54 41 6d 6f  64 65 3a 41 53 4c 20 41  |...STAmode:ASL A|
000001b0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 43 4c 43  |:ASL A:ASL A:CLC|
000001c0  3a 41 44 43 6d 6f 64 65  3a 41 44 43 6d 6f 64 65  |:ADCmode:ADCmode|
000001d0  3a 41 44 43 23 28 64 61  74 61 20 83 32 35 36 29  |:ADC#(data .256)|
000001e0  3a 53 54 41 70 61 74 74  65 72 6e 3a 4c 44 41 23  |:STApattern:LDA#|
000001f0  30 3a 41 44 43 23 28 64  61 74 61 20 81 32 35 36  |0:ADC#(data .256|
00000200  29 3a 53 54 41 70 61 74  74 65 72 6e 2b 31 20 5c  |):STApattern+1 \|
00000210  53 74 6f 72 65 20 61 64  64 72 65 73 73 20 6f 66  |Store address of|
00000220  20 64 61 74 61 20 69 6e  20 70 61 74 74 65 72 6e  | data in pattern|
00000230  0d 00 b4 39 4c 44 59 23  38 3a 4c 44 41 28 70 61  |...9LDY#8:LDA(pa|
00000240  74 74 65 72 6e 29 2c 59  3a 53 54 41 73 65 74 3a  |ttern),Y:STAset:|
00000250  49 4e 59 3a 4c 44 41 28  70 61 74 74 65 72 6e 29  |INY:LDA(pattern)|
00000260  2c 59 3a 53 54 41 70 69  78 0d 00 be 2a 4c 44 41  |,Y:STApix...*LDA|
00000270  20 23 32 36 3a 4a 53 52  20 6f 73 77 72 63 68 20  | #26:JSR oswrch |
00000280  5c 53 65 74 20 64 65 66  61 75 6c 74 20 73 63 72  |\Set default scr|
00000290  65 65 6e 0d 00 c8 21 4c  44 41 20 23 32 3a 4a 53  |een...!LDA #2:JS|
000002a0  52 20 6f 73 77 72 63 68  20 5c 50 72 69 6e 74 65  |R oswrch \Printe|
000002b0  72 20 6f 6e 0d 00 d2 16  20 5c 2e 63 6c 65 61 72  |r on.... \.clear|
000002c0  20 4a 53 52 20 6e 65 78  74 20 0d 00 dc 11 2e 6c  | JSR next .....l|
000002d0  69 6e 65 20 4a 53 52 20  65 73 63 0d 00 e6 16 4c  |ine JSR esc....L|
000002e0  44 41 20 23 36 35 3a 4a  53 52 20 6f 73 77 72 63  |DA #65:JSR oswrc|
000002f0  68 0d 00 f0 15 4c 44 41  20 23 31 3a 4a 53 52 20  |h....LDA #1:JSR |
00000300  6f 73 77 72 63 68 0d 00  fa 27 4c 44 41 20 23 38  |oswrch...'LDA #8|
00000310  3a 4a 53 52 20 6f 73 77  72 63 68 20 5c 53 65 74  |:JSR oswrch \Set|
00000320  20 6c 69 6e 65 20 73 70  61 63 69 6e 67 0d 01 04  | line spacing...|
00000330  1b 2e 6c 6f 61 64 20 4c  44 41 20 23 32 35 32 3a  |..load LDA #252:|
00000340  53 54 41 20 59 59 6c 6f  0d 01 0e 21 4c 44 41 20  |STA YYlo...!LDA |
00000350  23 33 3a 53 54 41 20 59  59 68 69 20 5c 53 74 61  |#3:STA YYhi \Sta|
00000360  72 74 20 59 3d 31 30 32  30 0d 01 18 18 2e 6e 65  |rt Y=1020.....ne|
00000370  77 6c 20 4c 44 41 20 23  30 3a 53 54 41 20 58 6c  |wl LDA #0:STA Xl|
00000380  6f 0d 01 22 16 53 54 41  20 58 68 69 20 5c 53 74  |o..".STA Xhi \St|
00000390  61 72 74 20 58 3d 30 0d  01 2c 10 2e 62 69 74 20  |art X=0..,..bit |
000003a0  4a 53 52 20 65 73 63 0d  01 36 37 4c 44 41 20 23  |JSR esc..67LDA #|
000003b0  37 36 3a 4a 53 52 20 6f  73 77 72 63 68 20 5c 70  |76:JSR oswrch \p|
000003c0  72 69 6e 74 65 72 20 63  6f 64 65 20 66 6f 72 20  |rinter code for |
000003d0  64 6f 75 62 6c 65 20 64  65 6e 73 69 74 79 0d 01  |double density..|
000003e0  40 15 4c 44 41 20 23 31  3a 4a 53 52 20 6f 73 77  |@.LDA #1:JSR osw|
000003f0  72 63 68 0d 01 4a 17 4c  44 41 20 23 31 32 38 3a  |rch..J.LDA #128:|
00000400  4a 53 52 20 6f 73 77 72  63 68 0d 01 54 15 4c 44  |JSR oswrch..T.LD|
00000410  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
00000420  01 5e 28 4c 44 41 20 23  32 3a 4a 53 52 20 6f 73  |.^(LDA #2:JSR os|
00000430  77 72 63 68 20 5c 39 36  30 20 64 6f 74 73 20 70  |wrch \960 dots p|
00000440  65 72 20 6c 69 6e 65 0d  01 68 1b 2e 73 74 61 72  |er line..h..star|
00000450  74 20 4c 44 41 20 23 38  3a 53 54 41 20 63 6f 75  |t LDA #8:STA cou|
00000460  6e 74 0d 01 72 14 4c 44  41 20 59 59 6c 6f 3a 53  |nt..r.LDA YYlo:S|
00000470  54 41 20 59 6c 6f 0d 01  7c 14 4c 44 41 20 59 59  |TA Ylo..|.LDA YY|
00000480  68 69 3a 53 54 41 20 59  68 69 0d 01 86 20 2e 74  |hi:STA Yhi... .t|
00000490  65 73 74 20 4c 44 58 20  23 26 37 30 3a 4c 44 59  |est LDX #&70:LDY|
000004a0  20 23 30 3a 4c 44 41 20  23 39 0d 01 90 2e 4a 53  | #0:LDA #9....JS|
000004b0  52 20 6f 73 77 6f 72 64  20 5c 4c 6f 67 69 63 61  |R osword \Logica|
000004c0  6c 20 63 6f 6c 6f 75 72  20 72 65 74 75 72 6e 65  |l colour returne|
000004d0  64 20 69 6e 20 26 37 34  0d 01 9a 3e 4c 44 41 20  |d in &74...>LDA |
000004e0  74 69 6e 74 3a 80 20 23  37 3a 54 41 59 20 5c 4c  |tint:. #7:TAY \L|
000004f0  6f 67 69 63 61 6c 20 63  6f 6c 6f 75 72 20 75 73  |ogical colour us|
00000500  65 64 20 61 73 20 69 6e  64 65 78 20 74 6f 20 70  |ed as index to p|
00000510  61 74 74 65 72 6e 0d 01  a4 10 2e 62 79 74 65 20  |attern.....byte |
00000520  4c 44 58 20 23 30 0d 01  ae 12 4c 44 41 28 70 61  |LDX #0....LDA(pa|
00000530  74 74 65 72 6e 29 2c 59  0d 01 b8 50 2e 6c 6f 6f  |ttern),Y...P.loo|
00000540  70 31 20 4c 53 52 20 41  3a 52 4f 4c 20 6f 63 74  |p1 LSR A:ROL oct|
00000550  65 74 2c 58 20 5c 31 20  62 69 74 20 74 72 61 6e  |et,X \1 bit tran|
00000560  73 66 65 72 65 64 20 66  72 6f 6d 20 70 61 74 74  |sfered from patt|
00000570  65 72 6e 20 74 6f 20 65  61 63 68 20 62 79 74 65  |ern to each byte|
00000580  20 69 6e 20 74 75 72 6e  0d 01 c2 0f 49 4e 58 3a  | in turn....INX:|
00000590  43 50 58 20 73 65 74 0d  01 cc 0d 42 4e 45 20 6c  |CPX set....BNE l|
000005a0  6f 6f 70 31 0d 01 d6 14  2e 6c 6f 6f 70 32 20 44  |oop1.....loop2 D|
000005b0  45 43 20 63 6f 75 6e 74  0d 01 e0 0d 42 45 51 20  |EC count....BEQ |
000005c0  70 72 69 6e 74 0d 01 ea  0b 4c 44 41 20 59 6c 6f  |print....LDA Ylo|
000005d0  0d 01 f4 0e 53 45 43 3a  53 42 43 20 23 34 0d 01  |....SEC:SBC #4..|
000005e0  fe 0b 53 54 41 20 59 6c  6f 0d 02 08 12 4c 44 41  |..STA Ylo....LDA|
000005f0  20 59 68 69 3a 53 42 43  20 23 30 0d 02 12 0b 53  | Yhi:SBC #0....S|
00000600  54 41 20 59 68 69 0d 02  1c 0c 4a 4d 50 20 74 65  |TA Yhi....JMP te|
00000610  73 74 0d 02 26 11 2e 70  72 69 6e 74 20 4c 44 58  |st..&..print LDX|
00000620  20 23 30 0d 02 30 1c 2e  6c 6f 6f 70 33 20 4c 44  | #0..0..loop3 LD|
00000630  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
00000640  02 3a 1b 4c 44 41 20 6f  63 74 65 74 2c 58 3a 4a  |.:.LDA octet,X:J|
00000650  53 52 20 6f 73 77 72 63  68 20 0d 02 44 0f 49 4e  |SR oswrch ..D.IN|
00000660  58 3a 43 50 58 20 73 65  74 0d 02 4e 0d 42 4e 45  |X:CPX set..N.BNE|
00000670  20 6c 6f 6f 70 33 0d 02  58 12 2e 78 6c 6f 6f 70  | loop3..X..xloop|
00000680  20 4c 44 41 20 58 6c 6f  0d 02 62 0f 43 4c 43 3a  | LDA Xlo..b.CLC:|
00000690  41 44 43 20 70 69 78 0d  02 6c 0b 53 54 41 20 58  |ADC pix..l.STA X|
000006a0  6c 6f 0d 02 76 12 4c 44  41 20 58 68 69 3a 41 44  |lo..v.LDA Xhi:AD|
000006b0  43 20 23 30 0d 02 80 26  53 54 41 20 58 68 69 20  |C #0...&STA Xhi |
000006c0  5c 49 6e 63 72 65 6d 65  6e 74 20 58 20 74 6f 20  |\Increment X to |
000006d0  6e 65 78 74 20 70 69 78  65 6c 0d 02 8a 21 43 4d  |next pixel...!CM|
000006e0  50 20 23 35 20 5c 45 6e  64 20 6f 66 20 6c 69 6e  |P #5 \End of lin|
000006f0  65 3f 20 28 58 3d 31 32  38 30 29 0d 02 94 0d 42  |e? (X=1280)....B|
00000700  4e 45 20 73 74 61 72 74  0d 02 9e 1c 4a 53 52 20  |NE start....JSR |
00000710  6e 65 78 74 20 5c 53 74  61 72 74 20 6e 65 77 20  |next \Start new |
00000720  6c 69 6e 65 0d 02 a8 13  2e 79 6c 6f 6f 70 20 4c  |line.....yloop L|
00000730  44 41 20 59 59 6c 6f 0d  02 b2 0f 53 45 43 3a 53  |DA YYlo....SEC:S|
00000740  42 43 20 23 33 32 0d 02  bc 0c 53 54 41 20 59 59  |BC #32....STA YY|
00000750  6c 6f 0d 02 c6 13 4c 44  41 20 59 59 68 69 3a 53  |lo....LDA YYhi:S|
00000760  42 43 20 23 30 0d 02 d0  1b 53 54 41 20 59 59 68  |BC #0....STA YYh|
00000770  69 20 5c 44 6f 77 6e 20  38 20 70 69 78 65 6c 73  |i \Down 8 pixels|
00000780  0d 02 da 24 42 43 43 20  65 6e 64 20 5c 46 69 6e  |...$BCC end \Fin|
00000790  69 73 68 20 77 68 65 6e  20 59 20 72 65 61 63 68  |ish when Y reach|
000007a0  65 73 20 30 0d 02 e4 20  4a 4d 50 20 6e 65 77 6c  |es 0... JMP newl|
000007b0  20 5c 4f 74 68 65 72 77  69 73 65 20 63 6f 6e 74  | \Otherwise cont|
000007c0  69 6e 75 65 0d 02 ee 1a  2e 65 6e 64 20 4c 44 41  |inue.....end LDA|
000007d0  20 23 31 3a 4a 53 52 20  6f 73 77 72 63 68 0d 02  | #1:JSR oswrch..|
000007e0  f8 1b 4c 44 41 20 23 37  3a 4a 53 52 20 6f 73 77  |..LDA #7:JSR osw|
000007f0  72 63 68 20 5c 42 65 65  70 0d 03 02 0b 4a 53 52  |rch \Beep....JSR|
00000800  20 65 73 63 0d 03 0c 39  4c 44 41 20 23 36 34 3a  | esc...9LDA #64:|
00000810  4a 53 52 20 6f 73 77 72  63 68 20 5c 52 65 74 75  |JSR oswrch \Retu|
00000820  72 6e 20 70 72 69 6e 74  65 72 20 74 6f 20 64 65  |rn printer to de|
00000830  66 61 75 6c 74 20 73 65  74 74 69 6e 67 0d 03 16  |fault setting...|
00000840  26 4c 44 41 20 23 33 3a  4a 53 52 20 6f 73 77 72  |&LDA #3:JSR oswr|
00000850  63 68 20 5c 41 6e 64 20  70 72 69 6e 74 65 72 20  |ch \And printer |
00000860  6f 66 66 0d 03 20 07 52  54 53 0d 03 2a 1a 2e 65  |off.. .RTS..*..e|
00000870  73 63 20 4c 44 41 20 23  31 3a 4a 53 52 20 6f 73  |sc LDA #1:JSR os|
00000880  77 72 63 68 0d 03 34 16  4c 44 41 20 23 32 37 3a  |wrch..4.LDA #27:|
00000890  4a 53 52 20 6f 73 77 72  63 68 0d 03 3e 15 4c 44  |JSR oswrch..>.LD|
000008a0  41 20 23 31 3a 4a 53 52  20 6f 73 77 72 63 68 0d  |A #1:JSR oswrch.|
000008b0  03 48 07 52 54 53 0d 03  52 1b 2e 6e 65 78 74 20  |.H.RTS..R..next |
000008c0  4c 44 41 20 23 31 3a 4a  53 52 20 6f 73 77 72 63  |LDA #1:JSR oswrc|
000008d0  68 0d 03 5c 16 4c 44 41  20 23 31 30 3a 4a 53 52  |h..\.LDA #10:JSR|
000008e0  20 6f 73 77 72 63 68 0d  03 66 07 52 54 53 0d 03  | oswrch..f.RTS..|
000008f0  70 05 5d 0d 03 7a 0a ed  20 70 61 73 73 0d 03 84  |p.]..z.. pass...|
00000900  1c db 3a f1 27 27 22 45  6e 64 20 6f 66 20 63 6f  |..:.''"End of co|
00000910  64 65 20 26 22 3b 7e 50  25 0d 03 8e 07 f1 27 27  |de &";~P%.....''|
00000920  0d 03 98 2d ff 22 53 41  56 45 20 55 43 4f 44 45  |...-."SAVE UCODE|
00000930  20 22 2b c3 7e 64 61 74  61 2b 22 20 22 2b c3 7e  | "+.~data+" "+.~|
00000940  50 25 2b 22 20 22 2b c3  7e 63 6f 64 65 0d 03 a2  |P%+" "+.~code...|
00000950  05 e0 0d 03 ac 0e dd f2  70 61 74 74 65 72 6e 73  |........patterns|
00000960  0d 03 b6 0c f4 20 6d 6f  64 65 20 30 0d 03 c0 3f  |..... mode 0...?|
00000970  21 64 61 74 61 3d 26 30  30 30 30 30 31 30 30 3a  |!data=&00000100:|
00000980  21 28 64 61 74 61 2b 34  29 3d 26 30 30 30 30 30  |!(data+4)=&00000|
00000990  30 30 30 3a 3f 28 64 61  74 61 2b 38 29 3d 31 3a  |000:?(data+8)=1:|
000009a0  3f 28 64 61 74 61 2b 39  29 3d 32 0d 03 ca 05 3a  |?(data+9)=2....:|
000009b0  0d 03 d4 0c f4 20 6d 6f  64 65 20 31 0d 03 de 47  |..... mode 1...G|
000009c0  21 28 64 61 74 61 2b 31  30 29 3d 26 30 33 30 32  |!(data+10)=&0302|
000009d0  30 31 30 30 3a 21 28 64  61 74 61 2b 31 34 29 3d  |0100:!(data+14)=|
000009e0  26 30 30 30 30 30 30 30  30 3a 3f 28 64 61 74 61  |&00000000:?(data|
000009f0  2b 31 38 29 3d 32 3a 3f  28 64 61 74 61 2b 31 39  |+18)=2:?(data+19|
00000a00  29 3d 34 0d 03 e8 05 3a  0d 03 f2 0c f4 20 6d 6f  |)=4....:..... mo|
00000a10  64 65 20 32 0d 03 fc 47  21 28 64 61 74 61 2b 32  |de 2...G!(data+2|
00000a20  30 29 3d 26 30 31 30 33  30 35 30 30 3a 21 28 64  |0)=&01030500:!(d|
00000a30  61 74 61 2b 32 34 29 3d  26 30 46 30 43 30 41 30  |ata+24)=&0F0C0A0|
00000a40  45 3a 3f 28 64 61 74 61  2b 32 38 29 3d 34 3a 3f  |E:?(data+28)=4:?|
00000a50  28 64 61 74 61 2b 32 39  29 3d 38 0d 04 06 05 3a  |(data+29)=8....:|
00000a60  0d 04 10 0c f4 20 6d 6f  64 65 20 34 0d 04 1a 47  |..... mode 4...G|
00000a70  21 28 64 61 74 61 2b 33  30 29 3d 26 30 30 30 30  |!(data+30)=&0000|
00000a80  30 33 30 30 3a 21 28 64  61 74 61 2b 33 34 29 3d  |0300:!(data+34)=|
00000a90  26 30 30 30 30 30 30 30  30 3a 3f 28 64 61 74 61  |&00000000:?(data|
00000aa0  2b 33 38 29 3d 32 3a 3f  28 64 61 74 61 2b 33 39  |+38)=2:?(data+39|
00000ab0  29 3d 34 0d 04 24 05 3a  0d 04 2e 0c f4 20 6d 6f  |)=4..$.:..... mo|
00000ac0  64 65 20 35 0d 04 38 47  21 28 64 61 74 61 2b 34  |de 5..8G!(data+4|
00000ad0  30 29 3d 26 30 46 30 35  30 31 30 30 3a 21 28 64  |0)=&0F050100:!(d|
00000ae0  61 74 61 2b 34 34 29 3d  26 30 30 30 30 30 30 30  |ata+44)=&0000000|
00000af0  30 3a 3f 28 64 61 74 61  2b 34 38 29 3d 34 3a 3f  |0:?(data+48)=4:?|
00000b00  28 64 61 74 61 2b 34 39  29 3d 38 0d 04 42 05 e1  |(data+49)=8..B..|
00000b10  0d ff                                             |..|
00000b12
EUDUMP3.m0
EUDUMP3.m1
EUDUMP3.m2
EUDUMP3.m4
EUDUMP3.m5