.TITLE	QIOSUB
	.IDENT	/V7.03/

;******************************************************************
;
; QIOMOD
;
;	THIS MODULE PROVIDES I/O AND MESSAGE CONSTRUCTION
;	FACILITIES FOR HELLO/BYE (USING LUN1).
;	TO BE USED WITH ACCOUNTING SYSTEM VERSION 7.
;
; VERSION:	V6	DECEMBER 1979
; VERSION:	V7	JANUARY 1981
;
;	STEVE THOMPSON	SCHOOL OF CHEMICAL ENGINEERING
;			OLIN HALL
;			CORNELL UNIVERSITY
;			ITHACA NY 14853
;
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;				$OUTPT --> OUT.PT
;
;******************************************************************

	.MCALL	QIOW$,DIR$

LUN1	=	1		; LUN FOR TI: I/O
EFN1	=	1		; EFN FOR TI: I/O

;
; DIRECTIVE PARAMETER BLOCK AND RELEVANT OFFSET DEFINITIONS
;

QIOW:	QIOW$	IO.WVB,LUN1,EFN1,,,,<0,0,40>

;+
; *** OUT.PT	PRINT A LINE AT THE TERMINAL
;
; INPUT:
;	R0	MESSAGE ADDRESS (MSG TERMINATED BY NULL BYTE)
;
;-

OUT.PT::MOV	R0,-(SP)	; SAVE MESSAGE ADDRESS
	MOV	R0,QIOW+Q.IOPL	; PUT IT IN THE DPB
5$:	TSTB	(R0)+		; END OF MESSAGE?
	BNE	5$		; IF NE NO, LOOP
	DEC	R0		; REMOVE NULL BYTE FROM MESSAGE
	SUB	(SP)+,R0	; CALCULATE MESSAGE LENGTH
	MOV	R0,QIOW+Q.IOPL+2 ; INSERT IT IN THE DPB
	DIR$	#QIOW		; WRITE IT TO THE TERMINAL
	RETURN			; RETURN TO CALLER

	.END