;[101] 11/14/87 ddss Fix CPI and print quality settings
; A45 to A53
;--------------------------------------------------------------------------
; Table #1 - Standard Functions Table (Do not Modify)
;--------------------------------------------------------------------------
Tbl1S: Word A00-.,A01-.,A02-.,A03-.,A04-.,A05-.,A06-.,A07-.,A08-.,A09-.
Word A10-.,A11-.,A12-.,A13-.,A14-.,A15-.,A16-.,A17-.,A18-.,A19-.
Word A20-.,A21-.,A22-.,A23-.,A24-.,A25-.,A26-.,A27-.,A28-.,A29-.
Word A30-.,A31-.,A32-.,A33-.,A34-.,A35-.,A36-.,A37-.,A38-.,A39-.
Word A40-.,A41-.,A42-.,A43-.,A44-.,A45-.,A46-.,A47-.,A48-.,A49-.
Word A50-.,A51-.,A52-.,A53-.,A54-.,A55-.,A56-.,A57-.,A58-.,A59-.
Word A60-.,A61-.,A62-.,A63-.,A64-.,A65-.,A66-.,A67-.,A68-.,A69-.
Word A70-.,A71-.,A72-.,A73-.,A74-.,A75-.,A76-.,A77-.,A78-.,A79-.
Word A80-.,A81-.,A82-.,A83-.,A84-.,A85-.,A86-.,A87-.,A88-.,A89-.
Word A90-.,A91-.,A92-.,A93-.
Tbl1E: Word 0
;---------------------------------------------------------------------------
; Command Structure 'Byte Length,Command-Sequence,Null'
; If Command Not Used 'Byte 0'
; Note: Do NOT include Terminating Null in Length
;---------------------------------------------------------------------------
A00: Byte 3,$Esc,'R,0,0 ;! Select Character Set #1 (Standard)
A01: Byte 0 ;" Select Character Set #2 (Alternate)
A02: Byte 3,$Esc,'R,0,0 ;# Select Character Set #1 (USA)
A03: Byte 3,$Esc,'R,1,0 ;$ Select Character Set #2 (French)
A04: Byte 3,$Esc,'R,2,0 ;% Select Character Set #3 (German)
A05: Byte 3,$Esc,'R,3,0 ;& Select Character Set #4 (British)
A06: Byte 3,$Esc,'R,4,0 ;' Select Character Set #5 (Danish)
A07: Byte 3,$Esc,'R,5,0 ;( Select Character Set #6 (Swedish)
A08: Byte 3,$Esc,'R,6,0 ;) Select Character Set #7 (Italian)
A09: Byte 3,$Esc,'R,7,0 ;* Select Character Ser #8 (Spanish)
A10: Byte 0 ;+ Select Character Set #11 (Norwegian)
A11: Byte 0 ;, Select Character Ser #12 (Dutch)
A12: Byte 0 ;- Select Character Set #13 (French Canadian)
A13: Byte 0 ;. Select Character Set #14 (Graphics)
A14: Byte 0 ;/ Select Character Set #15 (IBM)
A15: Byte 2,$Esc,'4,0 ;0 /Select Italics Character Set
A16: Byte 2,$Esc,'5,0 ;1 \Cancel Italics Character Set (set standard)
A17: Byte 0 ;2 /Select NLQ Character Set
A18: Byte 0 ;3 \Cancel NLQ Character Set
A19: Byte 3,$Esc,'p,1,0 ;4 /Select Porportional Pitch
A20: Byte 3,$Esc,'p,0,0 ;5 \Cancel Porportional Pitch
A21: Byte 3,$Esc,'W,1,0 ;6 /Select Expanded Print (Continous)
A22: Byte 3,$Esc,'W,0,0 ;7 \Cancel Expanded print
A23: Byte 3,$Esc,'V,1,0 ;8 /Select Double Height Characters (Continous)
A24: Byte 3,$Esc,'V,0,0 ;9 \Cancel Double Height Characters
A25: Byte 2,$Esc,$Si,0 ;: /Select Condensed Print Mode
A26: Byte 1,$Dc2,0 ;; \Cancel Condensed Print Mode
A27: Byte 0 ;< /Select Enhanced Print Mode
A28: Byte 0 ;= \Cancel Enhanced Print Mode
A29: Byte 2,$Esc,'E,0 ;> /Select Emphasized Print Mode (Shadow)
A30: Byte 2,$Esc,'F,0 ;? \Cancel Emphasized Print Mode (Shadow)
A31: Byte 2,$Esc,'G,0 ;@ /Select Double Strike Mode (Bold)
A32: Byte 2,$Esc,'H,0 ;A \Cancel Double Strike Mode (Bold)
A33: Byte 3,$Esc,'-,1,0 ;B /Select Underlined Print Mode
A34: Byte 3,$Esc,'-,0,0 ;C \Cancel Underlined Print Mode
A35: Byte 3,$Esc,'S,0,0 ;D /Select Superscripts
A36: Byte 2,$Esc,'T,0 ;E \Cancel Superscripts
A37: Byte 3,$Esc,'S,1,0 ;F /Select Subscripts
A38: Byte 2,$Esc,'T,0 ;G \Cancel Subscripts
A39: Byte 0 ;H /Select No Print Mode
A40: Byte 0 ;I \Cancel No Print Mode
A41: Byte 0 ;J /Select Backward Printing
A42: Byte 0 ;K \Cancel Backward Printing
A43: Byte 0 ;L Select Double Height Characters (One Line)
A44: Byte 2,$Esc,$So,0 ;M Select Expanded Print (One Line )
;-----------------------------------------------------------------------
; Special notes on print size and print quality settings
;
; 1) The "$Dc2" at the beginning of the 10 and 12 cpi settings is to remove
; any compressed setting that might have been set.
; 2) The compressed settings use the 10cpi settings and turn the compress
; mode on - this gives the most legible print. If compressions beyond
; 17-18 cpi are desired, you will need to play around with the char
; spacing and the font to get the best print in the size you desire.
; 3) I have arbitrarily set correspondence mode to letter quality mode.
; since the printer has no intermediate quality, it would be just as
; valid to set the correspondence mode to be tha same as draft.
; 4) Playing around with the horiz dot density settings are not recommended.
; I was not able to get consistent results using anything other than
; the font-determined density setting.
;-----------------------------------------------------------------------
A45: Byte 7,$Dc2,$Esc,'%,0.,2.,$Esc,'P,0 ;N Select 10 CPI (Pica) Draft
A46: Byte 7,$Dc2,$Esc,'%,0.,2.,$Esc,'M,0 ;O Select 12 CPI (Elite) Draft
A47: Byte 7,$Esc,'%,0.,2.,$Esc,'P,$Si,0 ;P Select 17 CPI (Cond.) Draft
A48: Byte 7,$Dc2,$Esc,'%,0.,0.,$Esc,'P,0 ;Q Select 10 CPI (Pica) Correspondence
A49: Byte 7,$Dc2,$Esc,'%,0.,1.,$Esc,'M,0 ;R Select 12 CPI (Elite) Correspondence
A50: Byte 7,$Esc,'%,0.,1.,$Esc,'P,$Si,0 ;S Select 17 CPI (Cond.) Correspondence
A51: Byte 7,$Dc2,$Esc,'%,0.,0.,$Esc,'P,0 ;T Select 10 CPI (Pica) Letter Quality
A52: Byte 7,$Dc2,$Esc,'%,0.,1.,$Esc,'M,0 ;U Select 12 CPI (Elite) Letter Quality
A53: Byte 7,$Esc,'%,0.,0.,$Esc,'P,$Si,0 ;V Select 17 CPI (Cond.) Letter Quality
A54: Byte 2,$Esc,'0,0 ;W Select 8 Lines Per Inch Mode
A55: Byte 2,$Esc,'2,0 ;X Select 6 Lines Per Inch Mode
A56: Byte 3,$Esc,'C,66.,0 ;Y Select 66 Lines Per Page Mode (6lpi x 11 in)
A57: Byte 3,$Esc,'C,88.,0 ;Z Select 88 Lines Per Page Mode (8lpi x 11 in)
A58: Byte 4,$Esc,'C,0,11.,0 ;[ Select 11 inch form length
A59: Byte 4,$Esc,'C,0,1.,0 ;\ Select 1 inch form length (Labels)
A60: Byte 3,$Esc,'N,4,0 ;] /Enable Perf Skip (4 Lines)
A61: Byte 2,$Esc,'O,0 ;^ \Disable Perf Skip
A62: Byte 2,$Esc,'9,0 ;_ /Enable Paper out Detect
A63: Byte 2,$Esc,'8,0 ;` \Disable Paper out Detect
A64: Byte 1,$Dc1,0 ;a /Enable Printer
A65: Byte 1,$Dc3,0 ;b \Disable Printer
A66: Byte 3,$Esc,'U,1,0 ;c Set Uni-Directional Print
A67: Byte 3,$Esc,'U,0,0 ;d Set Bi-Directional Print
A68: Byte 0 ;e Print Zero with Slash
A69: Byte 0 ;f Print Zero W/o Slash
A70: Byte 2,$Esc,'>,0 ;g Set Bit 8 to 1
A71: Byte 2,$Esc,'=,0 ;h Set Bit 8 to 0
A72: Byte 2,$Esc,'#,0 ;i Set bit 8 to passed value
A73: Byte 1,$Can,0 ;j Cancel Print Line
A74: Byte 2,$Esc,$Lf,0 ;k Reverse Line Feed
A75: Byte 0 ;l Reverse Form Feed
A76: Byte 1,$Bell,0 ;m Bell
A77: Byte 2,$Esc,'@,0 ;n Init/Reset Printer
A78: Byte 0 ;o Set Top Margin at Current Line
A79: Byte 0 ;p Set Bottom Margin at Current Line
A80: Byte 0 ;q Set Left Margin at current position
A81: Byte 0 ;r Set Right Margin at current position
A82: Byte 0 ;s Set Horizontal tab at curr pos
A83: Byte 0 ;t Set Vertical tab at curr pos
A84: Byte 0 ;u Clear Horizontal tab at curr pos
A85: Byte 0 ;v Clear Vertical tab at curr pos
A86: Byte 0 ;w Clear all Horizontal Tabs
A87: Byte 0 ;x Clear all Vertival Tabs
A88: Byte 0 ;y
A89: Byte 0 ;z
A90: Byte 0 ;{
A91: Byte 0 ;|
A92: Byte 0 ;}
A93: Byte 0 ;~
Even
