/001 TYPE THE CHARACTERS FOLLOWING THE JMS INSTR.
/TERMINATOR IS A ZERO.
/
/	JMS TYPTEX	/TYPE "ABC"
/	301		/"A"
/	302		/"B"
/	303		/"C"
/	0		/TERMINATOR
/	   RETURN	/AC=0

TYPTEX,	0
	TAD I TYPTEX	/GET CHAR.
	ISZ TYPTEX
	SNA		/ZERO?
	JMP I TYPTEX	/YES,JMP TO NEXT LOC.
	JMS TYPE	/NO,TYPE
	JMP TYPTEX+1