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:
- Personal collection » Acorn ADFS disks » Electron » Autostereograms_2.ADF » EUDUMP3
- Personal collection » Acorn hard disk » zipped_disks » elk06 » autoster2/EUDUMP3
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