Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - clock1.c09
There is 1 other file named clock1.c09 in the archive. Click here to see a list.
 REP 4/23	;09C1
		SKIPE	.USTMC		;COUNTER ZERO?
		SOSLE	.USTMC		;NO, DECREMENT COUNTER
 WIT
		PUSHJ	P,FNDPDB##	;GET THE JOB'S PDB
		  JRST	INCTM6		;DON'T TEST IF NOT THERE
		SKIPE	.PDTMC##(W)	;COUNTER ZERO?
		SOSLE	.PDTMC##(W)	;NO, DECREMENT COUNTER
 REP 16/23	;09C2
		MOVEM	T1,.USTMC	;STORE OLD PC FOR TIMFLT AND
 WIT
		MOVEM	T1,.PDTMC##(W)	;STORE OLD PC FOR TIMFLT AND
 REP 21/23	;09C3
		MOVEM	T1,.USTMC	;STORE NEW VALUE IN COUNTER OR USER'S PC
	INCTM6:
 WIT
		MOVEM	T1,.PDTMC##(W)	;STORE NEW VALUE IN COUNTER OR USER'S PC
	INCTM6:
 REP 11/30	;09C4
	STOPAT: TRNN	U,M.STOF##	;CORRECT TIC TO START TERMINAL OUTPUT?
 WIT
	STOPAT::TRNN	U,M.STOF##	;CORRECT TIC TO START TERMINAL OUTPUT?
 SUM 185085