.TITLE	TAB1
;
; THIS IS THE INTERFACE TO TAB FROM COBOL OR SIMILAR.  IT HAS ONE
; PARAMETER WHICH IS THE TAB COUNT.
;
TAB1::
	CMP	(R5)+,#1		;ONE PARAMETER?
	BNE	10$			;IF NE NO - ERROR
	MOVB	@(R5)+,TABCNT		;YES - STORE IT
	JMP	TAB			;AND DO NORMAL ROUTINE
;
10$:
	RETURN
	.END