/007 TABULATOR ROUTINE
/THE USER HAS TO TAKE CAR OF:
/INCREMENTING TABCNT WITH EACH INCOMING CHARACTER, CLEARING
/IT WHEN CARRIAGE RETURN. TAB-INTERVAL IS VARIABLE.
/A JMS TO TAB WILL MOVE THE TYPING HEAD TO THE NEXT
/TABULATOR POSITION.
/
/	CLA
/	JMS TAB
/	   RETURN	/AC=0

TABCNT,	0
	-10		/TAB INTERVAL
	240		/SPACE

TAB,	0		/ENTER WITH AC =0
	TAD TABCNT	/SUBTRACT N TIMES TO GIVE REMAINDER
	TAD TAB-2
	SMA
	JMP .-2
	DCA TABCNT	/USE AS NEGATIVE COUNTER
	TAD TAB-1
	JMS TYPE
	ISZ TABCNT	/READY?
	JMP .-3
	JMP I TAB	/YES