File CT.TK

Directory of image this file is from
This file as a plain text file

/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


$-$-$



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search