.TITLE	TIMER
/
	.GLOBL	TIMER,G.STPC,G.CVRT,NUMS,G.PACK
/
CLON=700044
CLOF=700004
/
TIMER	XX
	CLOF
	LAC	SWITCH
	CMA
	DAC	SWITCH
	SMA
	JMP	DONE
	DZM*	(7
	CLON
	JMP*	TIMER
/
SWITCH
/
DONE	LAC*	(7
	CLL
	MUL
	12
	DIV
	6
	SZA!CLL
	STL
	LACQ
	SZL
	TAD	(1	/AC NOW CONTAINS INTERVAL IN 100THS OF A SEC
	DAC	NUMBER
	LAC	(LINE+2
	JMS*	G.STPC
	DZM*	NUMS
	LAC	NUMBER
	JMS*	G.CVRT
	LAC	(15
	JMS*	G.PACK
	.WRITE	-3,2,LINE,10
	.WAIT	-3
	JMP*	TIMER
/
LINE	LI-.*400+2
NUMBER
	.BLOCK	6
LI=.
	.END