<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">; SETIDS v1.4	IDS MICROPRISM PRINTER UTILITY	4/7/84
;
; PREPARED BY R. BLOOM AND E. BOYD,
; BASED ON SETMX by IRVIN M. HOFF
;
; This program sets the IDS MICROPRISM printer to various
; configurations such as:
;
;	10 CPI or 16.5 CPI
;	Normal or Double Strike
;	6 or 8 vertical lines per inch
;	Emphasized print
;
; ===========================================================
;
	ORG	100H
;
;
	JMP	START		;JUMP INTO PROGRAM
;
; GENERAL EQU'S
;
BDOS	EQU	5		;SYSTEM CALL ENTRY POINT
CONIN	EQU	1		;GET KEYBOARD CHARACTER
CR	EQU	0DH		;CONTROL-M FOR CARRIAGE RETURN
CONOUT  EQU	2		;CRT OUTPUT ROUTINE
CTLC	EQU	3		;CONTROL-C TO TERMINATE
ESC	EQU	1BH		;ESCAPE CHARACTER
LF	EQU	0AH		;CONTROL-J FOR LINE FEED
LIST	EQU	5		;LIST DEVICE OUTPUT
STRING  EQU	9		;PRINT STRING ON CONSOLE
;
; DATA STRINGS TO CONTROL IDS PRINTER
;
DEFLT:	DB	11H,2,1BH,'R2$',1EH,1BH,'B8$',6H,5H,0
			;Printer on, Normal size chars, Draft Quality,
			;12 Pitch, 6 lines/inch, Fixed Pitch chars,
			;No right Justification.

DUBL:	DB	1,0	;Double Width Characters
NORM:	DB	2,0	;Normal size chars
JUST:	DB	4,0	;Fully Justified
NONJ:	DB	5,0	;Right Justification Off
FXED:	DB	6,0	;Fixed Pitch
PORP:	DB	10H,0	;Proportional Pitch
PRIN:	DB	11H,0	;Print all Characters (printer on)
NONP:	DB	13H,0	;Ignore all Character (printer off)
TENP:	DB	1DH,0	;Ten Pitch
TWELP:	DB	1EH,0	;Twelve Pitch
SIXTP:	DB	1FH,0	;16.8 Pitch
GRAPH:	DB	3,2,0	;Toggle graphics
NLQ:	DB	1BH,'R1$',0	;Near Letter Quality
DRAF:	DB	1BH,'R2$',0	;Draft Quality
SIXL:	DB	1BH,'B8$',0	;6 lines per inch
EIGHL:	DB	1BH,'B6$',0	;8 lines per inch
TENL:	DB	1BH,'B5$',0	;10 lines per inch
TWELL:	DB	1BH,'B4$',0	;12 lines per inch
TURNUP:	DB	CR,LF,'$'
;
; SIGN-ON MESSAGE
;
SOM:	DB	CR,LF,LF,LF,LF,LF,LF,LF
	DB	CR,LF,'IDS Microprism Printer Options v1.4  4/7/84'
	DB	CR,LF,LF,'0 --&gt; Reset to all default parameters	(*Defaults)'
	DB	CR,LF,LF,'1 --&gt; Normal Sized Characters*     A --&gt; 10 Pitch'
	DB	CR,LF,'2 --&gt; Double Sized Characters      B --&gt; 12 Pitch*'
	DB	CR,LF,'                                   C --&gt; 16.8 Pitch'
	DB	CR,LF,'3 --&gt; Near Letter Quality'
	DB	CR,LF,'4 --&gt; Draft Quality Print*         D --&gt; Print received chars*'
	DB	CR,LF,'                                   E --&gt; Ignore received chars'
	DB	CR,LF,'5 --&gt; Fixed Character Spacing*'
	DB	CR,LF,'6 --&gt; Proportionally Spacing       F --&gt; 6 Lines per inch*'
	DB	CR,LF,'                                   G --&gt; 8 Lines per inch'
	DB	CR,LF,'7 --&gt; Non-Justified Print*         H --&gt; 10 Lines per inch'
	DB	CR,LF,'8 --&gt; Fully Justified Print        I --&gt; 12 Lines per inch'
	DB	CR,LF,LF,'9 --&gt; Toggle Graphics Mode         M --&gt; Set Margins'
	DB	CR,LF,LF,LF,LF,LF,'Enter Option --&gt; '
	DB	'$'
;
; SET VARIOUS MARGINS
;
MRST	DB	1BH,'J0,960$',1BH,'L,408,408,$',0	;RESET TO DEFAULTS
;
RM75	DB	1BH,'J0,900$',0	;7.5 INCH RIGHT MARGIN
RM7	DB	1BH,'J0,840$',0	;7 INCH RIGHT MARGIN
RM65	DB	1BH,'J0,780$',0	;6.5 INCH RIGHT MARGIN
RM6 	DB	1BH,'J0,720$',0	;6 INCH RIGHT MARGIN
RM55	DB	1BH,'J0,660$',0	;5.5 INCH RIGHT MARGIN
;
LM05	DB	1BH,'J60$',0	;0.5 INCH LEFT MARGIN
LM1	DB	1BH,'J120$',0	;1 INCH LEFT MARGIN
LM15	DB	1BH,'J180$',0	;1.5 INCH LEFT MARGIN
LM2	DB	1BH,'J240$',0	;2 INCH LEFT MARGIN
LM25	DB	1BH,'J300$',0	;2.5 INCH LEFT MARGIN
;
TBM0:	DB	1BH,'L,408,408,$',0	;No page break (top and bottom margins)
TBM05:	DB	1BH,'L,408,384,$',0	;.5 inch top + bottom margins
TBM1:	DB	1BH,'L,408,360,$',0	;1 inch top + bottom margins
TBM15:	DB	1BH,'L,408,336,$',0	;1.5 inch top + bottom margins
TBM2:	DB	1BH,'L,408,312,$',0	;2 inch top + bottom margins
;
; set margins menu
;
SMRGN:	DB	CR,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF
	DB	CR,LF,'IDS Microprism Printer Margins Options v1.4a  4/7/84'
	DB	CR,LF,LF,'0 --&gt; Reset to margins (LM=0 RM=Max, TM=0, BM=0)'
	DB	CR,LF,LF,'Left Margins           Right Margins (resets LM to 0)'  
	DB	CR,LF,'1 --&gt; .5 Inch          A --&gt; 7.5 Inch'
	DB	CR,LF,'2 --&gt; 1 Inch           B --&gt; 7 Inch'
	DB	CR,LF,'3 --&gt; 1.5 Inch         C --&gt; 6.5 Inch'
	DB	CR,LF,'4 --&gt; 2 Inch           D --&gt; 6 Inch'
	DB	CR,LF,'5 --&gt; 2.5 Inch         E --&gt; 5.5 Inch'
	DB	CR,LF,LF,'Page Break (top + bottom margins)'
	DB	CR,LF,'H --&gt; None             J --&gt; 1 Inch'
	DB	CR,LF,'                       K --&gt; 1.5 Inch'
	DB	CR,LF,'I --&gt; .5 Inch          L --&gt; 2 Inch'
	DB	CR,LF,LF,'O --&gt; Back to Options menu.'
	DB	CR,LF,LF,LF,LF,LF,'Enter Margin Option --&gt; '
	DB	'$'
;
;**********************************************************************
;
;			PROGRAM STARTS HERE
;
;**********************************************************************
;
START:	POP	H		;RETURN ADDRESS TO 'CCP'
	SHLD	EXIT1+1		;STORE
	LXI	SP,STACK	;SET UP STACK
REST:	LXI	D,SOM		;SIGNON MESSAGE
	CALL	DSTRNG		;SHOW ON THE CRT
				;comment the following 2 lines if you don't
				;want printer reset to non-entered defaults
;	LXI	H,DEFLT		;SET THE PRINTER TO NORMAL CONDITIONS
;	JMP	PSTRNG
;
SELECT:	CALL	INPUT	;GET A CHAR.
;
	CPI	'0'		;RESET TO DEFAULT PARAMETERS
	LXI	H,DEFLT
	JZ	PSTRNG
;
	CPI	'1'
	LXI	H,NORM		;NORMAL sized characters
	JZ	PSTRNG
;
	CPI	'2'
	LXI	H,DUBL		;Double sized characters
	JZ	PSTRNG
;
	CPI	'3'
	LXI	H,NLQ		;near letter quality font
	JZ	PSTRNG
;
	CPI	'4'
	LXI	H,DRAF		;draft high speed font
	JZ	PSTRNG
;
	CPI	'5'
	LXI	H,FXED		;fixed character size
	JZ	PSTRNG
;
	CPI	'6'
	LXI	H,PORP		;proportionally spaced characters
	JZ	PSTRNG
;
	CPI	'7'
	LXI	H,NONJ		;no justification
	JZ	PSTRNG
;
	CPI	'8'
	LXI	H,JUST		;fully justified to margins
	JZ	PSTRNG
;
	CPI	'9'
	LXI	H,GRAPH		;toggle graphics
	JZ	PSTRNG
;
	CPI	'A'
	LXI	H,TENP		;10 chars/inch
	JZ	PSTRNG
;
	CPI	'B'
	LXI	H,TWELP		;12 chars/inch
	JZ	PSTRNG
;
	CPI	'C'
	LXI	H,SIXTP		;16.8 chars/inch
	JZ	PSTRNG				
;
	CPI	'D'
	LXI	H,PRIN		;print all received chars
	JZ	PSTRNG
;
	CPI	'E'
	LXI	H,NONP		;ignore received chars
	JZ	PSTRNG
;
	CPI	'F'
	LXI	H,SIXL		;6 lines/inch
	JZ	PSTRNG
;
	CPI	'G'
	LXI	H,EIGHL		;8 lines/inch
	JZ	PSTRNG
;
	CPI	'H'
	LXI	H,TENL		;10lines/inch
	JZ	PSTRNG
;
	CPI	'I'
	LXI	H,TWELL		;12lines/inch
	JZ	PSTRNG
;
	CPI	'M'
	JZ	MSET		;jump to margin setter
;
	JMP	SELECT	;IF NONE OF THESE, ASK AGAIN
;
;----------------------
; margin setter
;---------------------
;
MSET:	LXI	D,SMRGN		;SIGNON MESSAGE
	CALL	DSTRNG		;SHOW ON THE CRT
;
MSLCT:	CALL	INPUT	;GET A CHAR.
;
	CPI	'0'		;RESET TO DEFAULT PARAMETERS
	LXI	H,MRST
	JZ	MSTRNG
;
	CPI	'1'		;0.5 INCH LM
	LXI	H,LM05
	JZ	MSTRNG
;
	CPI	'2'		;1 LM
	LXI	H,LM1
	JZ	MSTRNG
;
	CPI	'3'		;1.5 LM
	LXI	H,LM15
	JZ	MSTRNG
;
	CPI	'4'		;2 LM
	LXI	H,LM2
	JZ	MSTRNG
;
	CPI	'5'		;2.5 LM
	LXI	H,LM25
	JZ	MSTRNG
;
	CPI	'O'		;JUMP BACK TO OPTIONS
	JZ	REST
;
	CPI	'A'		;7.5 INCH RM
	LXI	H,RM75
	JZ	MSTRNG
;
	CPI	'B'		;7 RM
	LXI	H,RM7
	JZ	MSTRNG
;
	CPI	'C'		;6.5 RM
	LXI	H,RM65
	JZ	MSTRNG
;
	CPI	'D'		;6 RM
	LXI	H,RM6
	JZ	MSTRNG
;
	CPI	'E'		;5.5 RM
	LXI	H,RM55
	JZ	MSTRNG
;
	CPI	'H'		;0 TM+BM
	LXI	H,TBM0
	JZ	MSTRNG
;
	CPI	'I'		;0.5 TM+BM
	LXI	H,TBM05
	JZ	MSTRNG
;
	CPI	'J'		;1 TM+BM
	LXI	H,TBM1
	JZ	MSTRNG
;
	CPI	'K'		;1.5 TM+BM
	LXI	H,TBM15
	JZ	MSTRNG
;
	CPI	'L'		;2 TM+BM
	LXI	H,TBM2
	JZ	MSTRNG
;
	JMP	MSLCT	;IF NONE OF THESE, ASK AGAIN
;
;======================================================================
;
;			ROUTINES START HERE
;
;======================================================================
;
EXIT:	LXI	D,TURNUP	;TURN UP SOME EXTRA LINES
	CALL	DSTRNG	;DISPLAY ON THE CRT
;
EXIT1:	JMP	0		;FILLED BY 'START' FOR RETURN TO 'CCP'
;
; GET A KEYBOARD CHARACTER
;
INPUT:	MVI	C,CONIN	;KEYBOARD ROUTINE
	CALL	BDOS
	ANI	7FH	;STRIP AWAY ANY PARITY
	CPI	CTLC	;CONTROL-C?
	JZ	EXIT	;IF YES, ALL FINISHED
	CPI	CR	;CONTROL-M FOR RETURN?
	JZ	EXIT	;IF YES, ALL FINISHED
			;NOW MAKE ALL CAPS
	CPI	61H	;"a" or greater?
	RC		;if not, ret with char
	CPI	7BH	;"{" or greater?
	RNC		;if so, ret with char
	SUI	20H	;if lc, subtract offset
	RET
;
; DISPLAY A STRING ON THE CRT
;
DSTRNG:	MVI	C,STRING	;CONSOLE STRING ROUTINE
	JMP	BDOS	;SEND TO THE CRT
;
; PRINT A STRING OF CHARS
;
PSTRNG:	MOV	A,M	;GET THE CHARACTER IN THE STRING
	ORA	A	;SEE IF FINISHED YET
	JZ	SELECT	;GET ANOTHER ANSWER IF FINISHED
;
	PUSH	H	;SAVE THE ADDRESS IN THE STRING
	MVI	C,LIST	;PRINTER ROUTINE
	MOV	E,A	;PUT THE CHAR. INTO 'E' REG.
	CALL	BDOS	;SEND TO THE PRINTER
	POP	H	;BACK TO THE STRING ADDRESS
	INX	H	;NEXT LOCATION
	JMP	PSTRNG	;DO THE NEXT ONE
;
; PRINT A STRING TO RESET MARGIN
;
MSTRNG:	MOV	A,M	;GET THE CHARACTER IN THE STRING
	ORA	A	;SEE IF FINISHED YET
	JZ	MSLCT	;GET ANOTHER ANSWER IF FINISHED
;
	PUSH	H	;SAVE THE ADDRESS IN THE STRING
	MVI	C,LIST	;PRINTER ROUTINE
	MOV	E,A	;PUT THE CHAR. INTO 'E' REG.
	CALL	BDOS	;SEND TO THE PRINTER
	POP	H	;BACK TO THE STRING ADDRESS
	INX	H	;NEXT LOCATION
	JMP	MSTRNG	;DO THE NEXT ONE
;

;	STACK AREA
;
	DS	20H		;ALLOW SPACE FOR STACK
;
STACK	DS	0
;
	END
</pre></body></html>