� 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