.TITLE	SCRBS1
;
; THIS IS THE INTERFACE TO SCRBAS FROM COBOL OR SIMILAR.  THE ROUTINE HAS
; ONE PARAMETER WHICH IS STORED IN LINENO.
;
SCRBS1::
	CMP	(R5)+,#1		; ONE PARAM?
	BNE	10$			; IF NE NO - ERROR
	MOVB	@(R5)+,LINENO		; STORE THE LINE NUMBER
	JMP	SCRBAS			; AND JUMP TO NORMAL ROUTINE
;
10$:
	RETURN
	.END