.TITLE GETLIN
;
; FORTRAN CALLABLE SUBROUTINE TO RETURN AN MCR LINE.
; WRITTEN BECAUSE THE DEC SUPPLIED ROUTINE IS A DOG.
;
;	MARK F. LEWIS
;	8-JAN-79
;
	.MCALL	DIR$,GMCR$
; SUBROUTINE TO RETURN MCR LINE
;DPB:
MCR:	GMCR$
DSW=0
;ROUTINE
GETLIN::
	MOVB	(R5)+,R0   ;NO ARGS
	BLE	100$		;GO HOME
	INC	R5
	MOV	(R5)+,R2	;ADDRESS OF BUFFER
	DIR$	#MCR		;GET LINE
	MOV	#MCR+G.MCRB,R3  ;ADDRESS OF LINE
	MOV	DSW,R1		;BYE COUNT
10$:	MOVB	(R3)+,(R2)+	;MOVE BYTE
	SOB	R1,10$
	CMP	#2,R0		;TWO ARGS
	BNE	100$		;NO
	MOV	(R5)+,R2	;ADDRESS OF COUNT
	BLE	100$
	MOV	DSW,(R2)	;COUNT
100$:	RETURN
	.END