;***************************************************************;
;								;
;		TELTYPE MODEL 40 TERMINAL DRIVER		;
;		        MARCH 23,1978				;
;								;
;***************************************************************;
;
;Copyright (C) 1978, 1979 - Alpha Microsystems, Irvine CA 92714
;
; Modified for 68000 by Tom Dahlquist, 8/27/85

	OBJNAM	.TDV

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM

;********************
;*	TELTYP	    *
;********************
;TERMINAL DRIVER COMMUNICATIONS AREA
TELTYP:	WORD	0		;TERMINAL ATTRIBUTES
	RTN			;INPUT ROUTINE
	BR	OUTPUT		;OUTPUT ROUTINE
	RTN			;ECHO ROUTINE
	RTN

;********************
;*	OUTPUT	    *
;********************
;CHECK FOR LINE-FEED AND APPEND 4 NULLS IF SO
OUTPUT:	ANDB	#177,D1		;STRIP ASCII
	CMPB	D1,#12		;LINE-FEED?
	BEQ	STALL		;  YES
	CMPB	D1,#14		;FORM FEED?
	BNE	OUTX		;NO
STALL:	LEA	A3,T.OQX(A5)	;INDEX THE TERMINAL OUTPUT QUEUE
	QINS			;QUEUE UP A BLOCK
	MOV	#4,4(A3)	;SET COUNT FOR 4 NULLS
OUTX:	LCC	#PS.N		;SET N-BIT TO PROCESS POSITIONING
	RTN
	END

.