/TIME.PA			MULTOS-8	31-JAN-79
/
/
/	DEFINATIONS
/
	TSS=6111	/SKIP IF TIME-SHARING
	TOD=6114	/TIME OF DAY
/
	*20
BUF,	0		/TIME BUFFER
/
/
	*200
	CLA CLL 
	TSS		/CHECK ON TIME-SHARING
	JMP I (7605	/EXIT.....CLOCK NOT RUNNING
	CLA CLL CML RAR 
	TOD		/GET THE TIME OF DAY
	BUF
	JMS A
	"T
	"I
	"M
	"E
	":
	240
	240
	0000
	TAD BUF
	CLL RAR 
	DCA BUF
	TAD BUF+1
	RAR 
	DCA BUF+1
	JMS B		/SUBROUTINE CALL
	0053
	SZA 
	JMS C		/SUBROUTINE
	JMS D
	JMS B
	0000
	5670
	JMS C		/SUBROUTINE
	JMS D
	JMS B
	0000
	0062
	JMS C
	JMS A		/SUBROUTINE
	0015
	0012
	0000
	JMP I (7605
/
B,	  HLT 
	CLA CLL IAC 
	TAD B
	DCA BUF+5
	TAD I BUF+5
	CLL CMA IAC 
	DCA BUF+4
	CML RAL 
	TAD I B
	CMA IAC 
	DCA BUF+3
	DCA BUF+2
X,	CLA CLL 
	TAD BUF+4
	TAD BUF+1
	DCA BUF+1
	RAL 
	TAD BUF+3
	TAD BUF
	DCA BUF
	TAD BUF
	CLA SPA 
	JMP ZA
	ISZ BUF+2
	JMP X
ZA,	CLA CLL 
	TAD I BUF+5
	TAD BUF+1
	DCA BUF+1
	RAL 
	TAD I B
	TAD BUF
	DCA BUF
	ISZ BUF+5
	TAD BUF+2
	JMP I BUF+5
/
A,	0		/SUBROUTINE
	TAD I A
	ISZ A
	SNA 
	JMP I A
	JMS TYCHAR	/TYPE THE CHARCTER
	JMP A+1
/
TYCHAR,	0
	TLS
	CLA CLL 
	JMP I TYCHAR
/
C,	HLT 
	DCA BUF+7
	DCA BUF+6
	TAD BUF+7
T,	TAD (7766
	SPA 
	JMP Y
	ISZ BUF+6
	JMP T
Y,	TAD (12
	DCA BUF+7
	TAD BUF+6
	TAD (60
	JMS TYCHAR
	TAD BUF+7
	TAD (60
	JMS TYCHAR
	JMP I C
/
D,	HLT 
	TAD (72
	JMS TYCHAR
	JMP I D
	HLT
	HLT 
	HLT 
	HLT 
	HLT 
	HLT 
	HLT 
	HLT 
	HLT 
	HLT 
	HLT