Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE2/B/BDriver3

TAPE2/B/BDriver3

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 » Finished_programs.ADF
Filename: TAPE2/B/BDriver3
Read OK:
File size: 0700 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
   10 REM View Printer Driver 3
   20 
   30 REM For printing highlighted text,           and the full range of ASCII             characters.
   40a$="View Printer Driver 3"
   50REM By Julie Boswell
   60REM (c) Electron User
   70MODE 6
   80ESC=27
   90PRINT''''a$
  100areg=&90:yreg=&91
  110FOR pass=4 TO 6 STEP 2
  120P%=&400:O%=&C00
  130[OPT pass
  140JMP print_char
  150JMP printer_on
  160JMP printer_off
  170JMP exit
  180JMP exit
  190 
  200.on EQUB 0
  210 
  220.print
  230PHA
  240LDA #1:JSR &FFEE
  250PLA
  260AND #&7F:JMP &FFEE
  270 
  280.printer_off
  290LDA #0:STA on
  300LDA #3:JMP &FFEE
  310 
  320.printer_on
  330LDA on:BNE exit
  340INC on
  350LDA #2:JSR &FFEE
  360LDA #ESC:JSR print
  370LDA #ASC"@":JSR print
  380.exit
  390RTS
  400 
  410.print_char
  420 STY yreg
  430CMP #128:BPL highlight
  440 LDY highno:BNE high
  450 LDY yreg
  460JMP &FFE3
  470.highlight
  480CMP #144:BCS exit
  490 LDY highno:BEQ change:CMP highchar:BNE high:.change STA highchar:INC highno:LDY yreg:JMP exit:.high
  500STA areg
  510 TYA:CLC:ADC#124:LDY#0:STYhighno
  520 CMP#0:BPLascii
  530AND #&7F:ASL A:ASL A:TAY
  540LDA table+1,Y:EOR #&80:STA table+1,Y
  550AND #&80:BNE here
  560INY:INY
  570.here
  580LDA table,Y:AND #&80:BEQ no_esc
  590LDA #27:JSR print
  600.no_esc
  610LDA table,Y:JSR print
  620LDA table+1,Y:JSR print
  630LDA areg:LDY yreg
  640 CMP#128:BPL highlight
  650 JMP &FFE3
  660 .ascii LDY yreg:CMP#126:BMIlowcode:BEQhighcode:LDA areg:CLC:ADC#160:JMP&FFE3:.lowcode LDAareg:SEC:SBC#32:JMP&FFE3:.highcode LDA areg:CLC:ADC#96:JMP&FFE3
  670 .highno EQUB0
  680 .highchar EQUB0
  690.table
  700]
  710NEXT
  720i=128
  730PRINT'"Enter highlight ";i;"(Y/N)?";
  740IF INSTR("Nn",GET$) OSCLI"SAVE Driver3 C00 D00":END
  750INPUT LINE'" On:"a$
  760INPUT LINE "Off:"b$
  770!O%=FNcode(a$)+&10000*FNcode(b$)
  780O%=O%+4:i=i+1
  790GOTO 730
  800 
  810DEF FNcode(a$)
  820C%=0
  830I%=INSTR(a$,",")
  840C%=C% OR EVAL(a$)
  850IF I%=0 THEN =C%
  860a$=MID$(a$,I%+1)
  870IF C%<>27 THEN =C%+&100*EVAL(a$)
  880C%=&80:GOTO 830

 � View Printer Driver 3
 
c � For printing highlighted text,           and the full range of ASCII             characters.
(a$="View Printer Driver 3"
2� By Julie Boswell
<� (c) Electron User
F� 6
P
ESC=27
Z�''''a$
dareg=&90:yreg=&91
n� pass=4 � 6 � 2
xP%=&400:O%=&C00
�
[OPT pass
�JMP print_char
�JMP printer_on
�JMP printer_off
�JMP exit
�JMP exit
� 
�.on EQUB 0
� 
�
.print
�PHA
�LDA #1:JSR &FFEE
�PLA
� #&7F:JMP &FFEE
 
.printer_off
"LDA #0:STA on
,LDA #3:JMP &FFEE
6 
@.printer_on
JLDA on:BNE exit
T
INC on
^LDA #2:JSR &FFEE
hLDA #ESC:JSR print
rLDA #�"@":JSR print
|	.exit
�RTS
� 
�.print_char
�
 STY yreg
�CMP #128:BPL highlight
� LDY highno:BNE high
�
 LDY yreg
�
JMP &FFE3
�.highlight
�CMP #144:BCS exit
�h LDY highno:BEQ change:CMP highchar:BNE high:.change STA highchar:INC highno:LDY yreg:JMP exit:.high
�STA areg
�$ TYA:CLC:ADC#124:LDY#0:STYhighno
 CMP#0:BPLascii
� #&7F:ASL A:ASL A:TAY
&LDA table+1,Y:� #&80:STA table+1,Y
&� #&80:BNE here
0INY:INY
:	.here
D!LDA table,Y:� #&80:BEQ no_esc
NLDA #27:JSR print
X.no_esc
bLDA table,Y:JSR print
lLDA table+1,Y:JSR print
vLDA areg:LDY yreg
� CMP#128:BPL highlight
� JMP &FFE3
�� .ascii LDY yreg:CMP#126:BMIlowcode:BEQhighcode:LDA areg:CLC:ADC#160:JMP&FFE3:.lowcode LDAareg:SEC:SBC#32:JMP&FFE3:.highcode LDA areg:CLC:ADC#96:JMP&FFE3
� .highno EQUB0
� .highchar EQUB0
�
.table
�]
��
�	i=128
�$�'"Enter highlight ";i;"(Y/N)?";
�(� �"Nn",�) �"SAVE Driver3 C00 D00":�
�� �'" On:"a$
�� � "Off:"b$
"!O%=�code(a$)+&10000*�code(b$)
O%=O%+4:i=i+1

� �dZB
  
*� �code(a$)
4C%=0
>I%=�a$,",")
HC%=C% � �(a$)
R� I%=0 � =C%
\a$=�a$,I%+1)
f� C%<>27 � =C%+&100*�(a$)
pC%=&80:� �T~C
�
00000000  0d 00 0a 1c 20 f4 20 56  69 65 77 20 50 72 69 6e  |.... . View Prin|
00000010  74 65 72 20 44 72 69 76  65 72 20 33 0d 00 14 05  |ter Driver 3....|
00000020  20 0d 00 1e 63 20 f4 20  46 6f 72 20 70 72 69 6e  | ...c . For prin|
00000030  74 69 6e 67 20 68 69 67  68 6c 69 67 68 74 65 64  |ting highlighted|
00000040  20 74 65 78 74 2c 20 20  20 20 20 20 20 20 20 20  | text,          |
00000050  20 61 6e 64 20 74 68 65  20 66 75 6c 6c 20 72 61  | and the full ra|
00000060  6e 67 65 20 6f 66 20 41  53 43 49 49 20 20 20 20  |nge of ASCII    |
00000070  20 20 20 20 20 20 20 20  20 63 68 61 72 61 63 74  |         charact|
00000080  65 72 73 2e 0d 00 28 1e  61 24 3d 22 56 69 65 77  |ers...(.a$="View|
00000090  20 50 72 69 6e 74 65 72  20 44 72 69 76 65 72 20  | Printer Driver |
000000a0  33 22 0d 00 32 16 f4 20  42 79 20 4a 75 6c 69 65  |3"..2.. By Julie|
000000b0  20 42 6f 73 77 65 6c 6c  0d 00 3c 17 f4 20 28 63  | Boswell..<.. (c|
000000c0  29 20 45 6c 65 63 74 72  6f 6e 20 55 73 65 72 0d  |) Electron User.|
000000d0  00 46 07 eb 20 36 0d 00  50 0a 45 53 43 3d 32 37  |.F.. 6..P.ESC=27|
000000e0  0d 00 5a 0b f1 27 27 27  27 61 24 0d 00 64 15 61  |..Z..''''a$..d.a|
000000f0  72 65 67 3d 26 39 30 3a  79 72 65 67 3d 26 39 31  |reg=&90:yreg=&91|
00000100  0d 00 6e 14 e3 20 70 61  73 73 3d 34 20 b8 20 36  |..n.. pass=4 . 6|
00000110  20 88 20 32 0d 00 78 13  50 25 3d 26 34 30 30 3a  | . 2..x.P%=&400:|
00000120  4f 25 3d 26 43 30 30 0d  00 82 0d 5b 4f 50 54 20  |O%=&C00....[OPT |
00000130  70 61 73 73 0d 00 8c 12  4a 4d 50 20 70 72 69 6e  |pass....JMP prin|
00000140  74 5f 63 68 61 72 0d 00  96 12 4a 4d 50 20 70 72  |t_char....JMP pr|
00000150  69 6e 74 65 72 5f 6f 6e  0d 00 a0 13 4a 4d 50 20  |inter_on....JMP |
00000160  70 72 69 6e 74 65 72 5f  6f 66 66 0d 00 aa 0c 4a  |printer_off....J|
00000170  4d 50 20 65 78 69 74 0d  00 b4 0c 4a 4d 50 20 65  |MP exit....JMP e|
00000180  78 69 74 0d 00 be 05 20  0d 00 c8 0e 2e 6f 6e 20  |xit.... .....on |
00000190  45 51 55 42 20 30 0d 00  d2 05 20 0d 00 dc 0a 2e  |EQUB 0.... .....|
000001a0  70 72 69 6e 74 0d 00 e6  07 50 48 41 0d 00 f0 14  |print....PHA....|
000001b0  4c 44 41 20 23 31 3a 4a  53 52 20 26 46 46 45 45  |LDA #1:JSR &FFEE|
000001c0  0d 00 fa 07 50 4c 41 0d  01 04 14 80 20 23 26 37  |....PLA..... #&7|
000001d0  46 3a 4a 4d 50 20 26 46  46 45 45 0d 01 0e 05 20  |F:JMP &FFEE.... |
000001e0  0d 01 18 10 2e 70 72 69  6e 74 65 72 5f 6f 66 66  |.....printer_off|
000001f0  0d 01 22 11 4c 44 41 20  23 30 3a 53 54 41 20 6f  |..".LDA #0:STA o|
00000200  6e 0d 01 2c 14 4c 44 41  20 23 33 3a 4a 4d 50 20  |n..,.LDA #3:JMP |
00000210  26 46 46 45 45 0d 01 36  05 20 0d 01 40 0f 2e 70  |&FFEE..6. ..@..p|
00000220  72 69 6e 74 65 72 5f 6f  6e 0d 01 4a 13 4c 44 41  |rinter_on..J.LDA|
00000230  20 6f 6e 3a 42 4e 45 20  65 78 69 74 0d 01 54 0a  | on:BNE exit..T.|
00000240  49 4e 43 20 6f 6e 0d 01  5e 14 4c 44 41 20 23 32  |INC on..^.LDA #2|
00000250  3a 4a 53 52 20 26 46 46  45 45 0d 01 68 16 4c 44  |:JSR &FFEE..h.LD|
00000260  41 20 23 45 53 43 3a 4a  53 52 20 70 72 69 6e 74  |A #ESC:JSR print|
00000270  0d 01 72 17 4c 44 41 20  23 97 22 40 22 3a 4a 53  |..r.LDA #."@":JS|
00000280  52 20 70 72 69 6e 74 0d  01 7c 09 2e 65 78 69 74  |R print..|..exit|
00000290  0d 01 86 07 52 54 53 0d  01 90 05 20 0d 01 9a 0f  |....RTS.... ....|
000002a0  2e 70 72 69 6e 74 5f 63  68 61 72 0d 01 a4 0d 20  |.print_char.... |
000002b0  53 54 59 20 79 72 65 67  0d 01 ae 1a 43 4d 50 20  |STY yreg....CMP |
000002c0  23 31 32 38 3a 42 50 4c  20 68 69 67 68 6c 69 67  |#128:BPL highlig|
000002d0  68 74 0d 01 b8 18 20 4c  44 59 20 68 69 67 68 6e  |ht.... LDY highn|
000002e0  6f 3a 42 4e 45 20 68 69  67 68 0d 01 c2 0d 20 4c  |o:BNE high.... L|
000002f0  44 59 20 79 72 65 67 0d  01 cc 0d 4a 4d 50 20 26  |DY yreg....JMP &|
00000300  46 46 45 33 0d 01 d6 0e  2e 68 69 67 68 6c 69 67  |FFE3.....highlig|
00000310  68 74 0d 01 e0 15 43 4d  50 20 23 31 34 34 3a 42  |ht....CMP #144:B|
00000320  43 53 20 65 78 69 74 0d  01 ea 68 20 4c 44 59 20  |CS exit...h LDY |
00000330  68 69 67 68 6e 6f 3a 42  45 51 20 63 68 61 6e 67  |highno:BEQ chang|
00000340  65 3a 43 4d 50 20 68 69  67 68 63 68 61 72 3a 42  |e:CMP highchar:B|
00000350  4e 45 20 68 69 67 68 3a  2e 63 68 61 6e 67 65 20  |NE high:.change |
00000360  53 54 41 20 68 69 67 68  63 68 61 72 3a 49 4e 43  |STA highchar:INC|
00000370  20 68 69 67 68 6e 6f 3a  4c 44 59 20 79 72 65 67  | highno:LDY yreg|
00000380  3a 4a 4d 50 20 65 78 69  74 3a 2e 68 69 67 68 0d  |:JMP exit:.high.|
00000390  01 f4 0c 53 54 41 20 61  72 65 67 0d 01 fe 24 20  |...STA areg...$ |
000003a0  54 59 41 3a 43 4c 43 3a  41 44 43 23 31 32 34 3a  |TYA:CLC:ADC#124:|
000003b0  4c 44 59 23 30 3a 53 54  59 68 69 67 68 6e 6f 0d  |LDY#0:STYhighno.|
000003c0  02 08 13 20 43 4d 50 23  30 3a 42 50 4c 61 73 63  |... CMP#0:BPLasc|
000003d0  69 69 0d 02 12 1a 80 20  23 26 37 46 3a 41 53 4c  |ii..... #&7F:ASL|
000003e0  20 41 3a 41 53 4c 20 41  3a 54 41 59 0d 02 1c 26  | A:ASL A:TAY...&|
000003f0  4c 44 41 20 74 61 62 6c  65 2b 31 2c 59 3a 82 20  |LDA table+1,Y:. |
00000400  23 26 38 30 3a 53 54 41  20 74 61 62 6c 65 2b 31  |#&80:STA table+1|
00000410  2c 59 0d 02 26 13 80 20  23 26 38 30 3a 42 4e 45  |,Y..&.. #&80:BNE|
00000420  20 68 65 72 65 0d 02 30  0b 49 4e 59 3a 49 4e 59  | here..0.INY:INY|
00000430  0d 02 3a 09 2e 68 65 72  65 0d 02 44 21 4c 44 41  |..:..here..D!LDA|
00000440  20 74 61 62 6c 65 2c 59  3a 80 20 23 26 38 30 3a  | table,Y:. #&80:|
00000450  42 45 51 20 6e 6f 5f 65  73 63 0d 02 4e 15 4c 44  |BEQ no_esc..N.LD|
00000460  41 20 23 32 37 3a 4a 53  52 20 70 72 69 6e 74 0d  |A #27:JSR print.|
00000470  02 58 0b 2e 6e 6f 5f 65  73 63 0d 02 62 19 4c 44  |.X..no_esc..b.LD|
00000480  41 20 74 61 62 6c 65 2c  59 3a 4a 53 52 20 70 72  |A table,Y:JSR pr|
00000490  69 6e 74 0d 02 6c 1b 4c  44 41 20 74 61 62 6c 65  |int..l.LDA table|
000004a0  2b 31 2c 59 3a 4a 53 52  20 70 72 69 6e 74 0d 02  |+1,Y:JSR print..|
000004b0  76 15 4c 44 41 20 61 72  65 67 3a 4c 44 59 20 79  |v.LDA areg:LDY y|
000004c0  72 65 67 0d 02 80 1a 20  43 4d 50 23 31 32 38 3a  |reg.... CMP#128:|
000004d0  42 50 4c 20 68 69 67 68  6c 69 67 68 74 0d 02 8a  |BPL highlight...|
000004e0  0e 20 4a 4d 50 20 26 46  46 45 33 0d 02 94 9d 20  |. JMP &FFE3.... |
000004f0  2e 61 73 63 69 69 20 4c  44 59 20 79 72 65 67 3a  |.ascii LDY yreg:|
00000500  43 4d 50 23 31 32 36 3a  42 4d 49 6c 6f 77 63 6f  |CMP#126:BMIlowco|
00000510  64 65 3a 42 45 51 68 69  67 68 63 6f 64 65 3a 4c  |de:BEQhighcode:L|
00000520  44 41 20 61 72 65 67 3a  43 4c 43 3a 41 44 43 23  |DA areg:CLC:ADC#|
00000530  31 36 30 3a 4a 4d 50 26  46 46 45 33 3a 2e 6c 6f  |160:JMP&FFE3:.lo|
00000540  77 63 6f 64 65 20 4c 44  41 61 72 65 67 3a 53 45  |wcode LDAareg:SE|
00000550  43 3a 53 42 43 23 33 32  3a 4a 4d 50 26 46 46 45  |C:SBC#32:JMP&FFE|
00000560  33 3a 2e 68 69 67 68 63  6f 64 65 20 4c 44 41 20  |3:.highcode LDA |
00000570  61 72 65 67 3a 43 4c 43  3a 41 44 43 23 39 36 3a  |areg:CLC:ADC#96:|
00000580  4a 4d 50 26 46 46 45 33  0d 02 9e 12 20 2e 68 69  |JMP&FFE3.... .hi|
00000590  67 68 6e 6f 20 45 51 55  42 30 0d 02 a8 14 20 2e  |ghno EQUB0.... .|
000005a0  68 69 67 68 63 68 61 72  20 45 51 55 42 30 0d 02  |highchar EQUB0..|
000005b0  b2 0a 2e 74 61 62 6c 65  0d 02 bc 05 5d 0d 02 c6  |...table....]...|
000005c0  05 ed 0d 02 d0 09 69 3d  31 32 38 0d 02 da 24 f1  |......i=128...$.|
000005d0  27 22 45 6e 74 65 72 20  68 69 67 68 6c 69 67 68  |'"Enter highligh|
000005e0  74 20 22 3b 69 3b 22 28  59 2f 4e 29 3f 22 3b 0d  |t ";i;"(Y/N)?";.|
000005f0  02 e4 28 e7 20 a7 22 4e  6e 22 2c be 29 20 ff 22  |..(. ."Nn",.) ."|
00000600  53 41 56 45 20 44 72 69  76 65 72 33 20 43 30 30  |SAVE Driver3 C00|
00000610  20 44 30 30 22 3a e0 0d  02 ee 10 e8 20 86 27 22  | D00":...... .'"|
00000620  20 4f 6e 3a 22 61 24 0d  02 f8 10 e8 20 86 20 22  | On:"a$..... . "|
00000630  4f 66 66 3a 22 62 24 0d  03 02 22 21 4f 25 3d a4  |Off:"b$..."!O%=.|
00000640  63 6f 64 65 28 61 24 29  2b 26 31 30 30 30 30 2a  |code(a$)+&10000*|
00000650  a4 63 6f 64 65 28 62 24  29 0d 03 0c 11 4f 25 3d  |.code(b$)....O%=|
00000660  4f 25 2b 34 3a 69 3d 69  2b 31 0d 03 16 0a e5 20  |O%+4:i=i+1..... |
00000670  8d 64 5a 42 0d 03 20 05  20 0d 03 2a 0f dd 20 a4  |.dZB.. . ..*.. .|
00000680  63 6f 64 65 28 61 24 29  0d 03 34 08 43 25 3d 30  |code(a$)..4.C%=0|
00000690  0d 03 3e 0f 49 25 3d a7  61 24 2c 22 2c 22 29 0d  |..>.I%=.a$,",").|
000006a0  03 48 11 43 25 3d 43 25  20 84 20 a0 28 61 24 29  |.H.C%=C% . .(a$)|
000006b0  0d 03 52 10 e7 20 49 25  3d 30 20 8c 20 3d 43 25  |..R.. I%=0 . =C%|
000006c0  0d 03 5c 10 61 24 3d c1  61 24 2c 49 25 2b 31 29  |..\.a$=.a$,I%+1)|
000006d0  0d 03 66 1d e7 20 43 25  3c 3e 32 37 20 8c 20 3d  |..f.. C%<>27 . =|
000006e0  43 25 2b 26 31 30 30 2a  a0 28 61 24 29 0d 03 70  |C%+&100*.(a$)..p|
000006f0  11 43 25 3d 26 38 30 3a  e5 20 8d 54 7e 43 0d ff  |.C%=&80:. .T~C..|
00000700
TAPE2/B/BDriver3.m0
TAPE2/B/BDriver3.m1
TAPE2/B/BDriver3.m2
TAPE2/B/BDriver3.m4
TAPE2/B/BDriver3.m5