.TITLE	SETOUT
;
; THIS IS AN INTERFACE TO COBOL TO SET THE 'OUT' FLAG FOR THE
; SCREEN ROUTINES.
;
; IT HAS ONE PARAMETER, WHICH IS ONE OF THE FOLLOWING:-
;	0 - SET OUT TO 0
;	1 - SET OUT TO 1
;      -1 - PERFORM CURRENT OUTPUT
;
SETOUT::
	MOVB	#1,OUT			; INITIALISE TO 1
	CMP	(R5)+,#1		; ONE PARAMETER?
	BNE	10$			; NO - EXIT
	MOVB	@(R5)+,OUT		; SET FLAG
	CMPB	OUT,#-1			; MINUS 1?
	BNE	10$			; NO - CARRY ON
	CLR	R1			; YES - CLEAR FUNCTION
	CALL	CTLOUT			; DO THE OUTPUT
	CLRB	OUT			; RESET OUT
;
10$:
	RETURN
	.END