.TITLE	RDOBJ
	.IDENT	/V01.1/
;
;
; RD$OBJ - READ A LINE FROM THE OBJECT FILE
; PARAMETERS:
;	R1	WHERE TO PUT LINE
;	R2	WHERE TO PUT POINTER-PAST-END
;
	.MCALL	GET$,CLOSE$
;
	.ENABL	LSB
RD$OBJ::
	TST	EOF
	BNE	20$
	MOV	#ERR5,MESNO
	GET$	#OBJFDB,R1,#200
	BCS	10$
	MOV	F.NRBD(R0),(R2)
	ADD	R1,(R2)
	CLC
	BR	40$
10$:	CMPB	#IE.EOF,F.ERR(R0)
	BNE	30$
	MOV	#ERR6,MESNO
	CLOSE$	#OBJFDB
	BCS	30$
20$:	SEC
	MOV	#1,EOF
	BR	40$
30$:	JMP	MOCALL
40$:	RTS	PC
	.DSABL	LSB
;
	.END