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