.TITLE	SETBUF
;
; THIS ROUTINE IS AN INTERFACE BETWEEN COBOL AND THE SCREEN ROUTINES.
; IT HAS TWO PARAMETERS, THE FIRST OF WHICH IS THE ADDRESS OF THE
; BUFFER TO USE, AND THE SECOND IS IT'S LENGTH.
;
SETBUF::
	CMP	(R5)+,#2		; TWO PARAMETERS?
	BNE	10$			; NO - EXIT
	MOV	(R5)+,ADDBUF		; YES - SET ADDRESS OF BUFFER
	MOV	@(R5)+,TOTBYT		; AND ITS LENGTH
	CLR	BYTCNT			; CLEAR THE BYTE COUNT FOR GOOD MEASURE
	MOVB	#1,OUT			; INITIALISE TO OUTPUT
	MOVB	#1,LUN			; INITIALISE TO LUN 1
;
10$:
	RETURN
	.END