.TITLE	GETCNT
;
; THIS ROUTINE FORMS PART OF THE INTERFACE BETWEEN COBOL AND THE SCREEN 
; SUBROUTINES.  IT RETURNS THE CURRENT VALUE OF BYTCNT.
;
GETCNT::
	CMP	(R5)+,#1		; ONE PARAMETER	?
	BNE	10$			; IF NE NO - EXIT AT ONCE
	MOV	BYTCNT,@(R5)+		; YES - RETURN THE BYTE COUNT
;
10$:
	RETURN
	.END