/NAME ; CT
/THIS MODULE SHOWS THE TIME IN MQ REGISTER LIGHTS
/SWREG ON 7577

*200
EENH,	"C^100+"T&3777
TIENT,	200
CNT,	0
DECIMAL
	CDF MONFLD
	CLA
CT,	TAD I (TIME+3
	TAD (24
	JMS SHTIME
	TAD I (TIME+2
	TAD (60
	JMS SHTIME
	CLA CMA
	JMS SHSHORT
	JMS SHLONG
	JMP CT

SHTIME, 0
	DCA EENH
	DCA TIENT
T1,	TAD EENH
	TAD (-10
	SPA
	JMP T2
	DCA EENH
	ISZ TIENT
	JMP T1
T2,	CLA
	TAD TIENT
	JMS SHOW
	TAD EENH
	JMS SHOW
	JMS SHLONG
	JMP I SHTIME
OCTAL

SHOW,	0
	SNA
	JMP SH1
	CIA
	DCA CNT
	STL RAR
	CLL RAR
	ISZ CNT
	JMP .-2
SH2,	JMS SHLONG
	JMS SHSHORT
	JMP I SHOW

SH1,	STL RAR
	JMP SH2

SHLONG,	0
	DCA I (COREND&7600+177
	JMS MONITOR
	STALL
	DGNTICK
	CDF MONFLD
	CLA
	JMP I SHLONG

SHSHORT,	0
	DCA I (COREND&7600+177
	JMS MONITOR
	STALL
	DGNTICK%5
	CDF MONFLD
	CLA
	JMP I SHSHORT


$-$-$