/ROUTINE TO OUTPUT THE TIME IN TICKS
/STORED IN NUMHO AND NUMHO+1 TO HH:MM:SS
TIME,	0
	TAD	PTABX
	DCA	PTIMX
	TAD	PTABX1
	DCA	PTIMX1
	TAD	PTFORM
	DCA	PTCONT

PTLOOP,	TAD	PT0260
	DCA	PTNUM
	CLL
	TAD	NUMHO+1
PTIMX,	NOP
	DCA	NUMHO+2
	RAL
	TAD	NUMHO
PTIMX1,	NOP
	SNL
	JMP	PTIMA
	DCA	NUMHO
	TAD	NUMHO+2
	DCA	NUMHO+1
	ISZ	PTNUM
	JMP	PTLOOP+2

PTIMA,	ISZ	PTIMX
	ISZ	PTIMX1
	CLA
	TAD	PTNUM
	TLS
	CLA
	TAD	PTCONT
	SNA
	JMP I	TIME
	CLL RAL
	DCA	PTCONT
	SZL
	JMP	PTLOOP
	TAD	PTCOLN
	TLS
	CLA
	JMP	PTLOOP

PTFORM,	5200
PTCOLN,	":
PT0260,	"0
PTCONT,	0
PTNUM,	0

RNPNT,	JOB	/POINTER FOR RUNTIME IOT
NUMPNT,	NUMHO	/POINTER FOR TIME-OF-DAY IOT
JOB,	0
NUMHO,	0
	0
	0

PTABX1,	TAD	.+1
	7650
	7767
	7776
	7777
	7777
	7777

PTABX,	TAD	.+1
	0700
	1540
	4220
	6650
	7634
	7765