.TITLE BUFFER
;
;	TWO FORTRAN CALLABLE SUBROUTINES TO SET THE BUFFER SIZE 
;	TO CORRESPOND TO THAT TO WHICH THE TERMINAL IS SET
;
;	TO USE,         CALL BUF080 (LUN,IDS)
;			CALL BUF132 (LUN,IDS)
;
;		WHERE LUN IS THE LOGICAL UNIT TO WHICH THE TERM IS ATTACHED
;		AND IDS IS THE RETURN STATUS
;
;		WRITTEN BY K.G.ROLLER  05-DEC-80
;
;
	.MCALL	QIOW$,DIR$
QIOSMC:	QIOW$	SF.SMC,,EFN,,IOSTAT,,<PLIST,4>
IOSTAT:	.WORD	0
	.WORD	0
B080:	.BYTE	080.		; CODE FOR 80 COL
B132:	.BYTE	132.		; CODE FOR 132 COL
PLIST:	.BYTE	TC.TTP		; SET TERM TO BE VT100
	.BYTE	T.V100		; CODE FOR VT100
	.BYTE	TC.WID		; NOW SET WIDTH
	.BYTE	0
	EFN	=5
;
;	ENTRY POINT TO SET BUF TO 80 CHAR
;
BUF080::
	MOVB	B080,PLIST+3
	JMP	EXEC
;
;	ENTRY POINT TO SET BUF TO 132 CHAR
;
BUF132::
	MOVB	B132,PLIST+3
EXEC:	MOV	@2(R5),QIOSMC+Q.IOLU
	DIR$	#QIOSMC
	MOV	$DSW,@4(R5)
	RTS	PC
	.END