/002 TELETYPE TYPE ROUTINE
/INITIALIZES  WHEN ENTERED FOR FIRST TIME.
/NOT RESTARTABLE !
/
/	TAD CHARACTER
/	JMS TYPE
/	   RETURN	/AC=0

	NOP
TYPE,	0
	JMP .+3		/OVERLAID BY "NOP"
	TSF
	JMP .-1
	TLS
	CLA
	TAD TYPE-1
	DCA TYPE+1
	JMP I TYPE