1 DEVICE=13*10 / CLOCK DEVICE CODE
7 DDZ=DST CAM / DOUBLE PRECISION DEPOSIT ZERO
10 CLZE=6000!DEVICE / ONE'S IN AC CLEAR CLOCK ENABLE REGISTER
11 CLSK=6001!DEVICE / SKIP IF CLOCK OVERFLOWS OR ST FIRED
12 CLDE=6002!DEVICE /ONE'S IN AC SET CLOCK ENABLE REGISTER
13 CLED=6004!DEVICE / CLOCK ENABLE TO AC
14 CLSA=6005!DEVICE / CLOCK STATUS REG. TO AC AND AC ONES CLEAR STATUS REG.
15 CLBA=6006!DEVICE / CLOCK BUFFER/PRESET TO AC
16 CLCA=6007!DEVICE / COUNT REGISTER TO BUFFER/PRESET AND TO AC
21 CLED / ENABLE BITS --> AC
22 CLZE / CLEAR ENABLE REGISTER
24 CLSA / CLEAR STATUS REGISTER
27 ISZ ONCE / ONCE ONLY ONQUI INITIALISATION
29 JMS% XONQI+1 / PLACE CLOCK ONTO THE INTERRUPT CHAIN
31 ADDR INTCLK / CLOCK INTERRUPT ROUTINE
36 DCA SAACMQ+1 / SAVE MQ
38 DDZ; STRIG / CLEAR SCHMITT TRIGG REGISTERS
40 DDZ; TIME / AND TIME REGISTER
41 TAD SAACMQ+1/ RESTORE MQ
43 TAD CLENAB / CLOCK BITS --> AC
44 CLDE / AND START THE CLOCK
52 TIME, 0;0 / HOLDS TIME BETWEEN STRIGG INTERRUPTS
55 \f/ INTERRUPT SERVICE ROUTINE
65 CLBA / TIME OF STRIG --> MQ
68 CLSA / CLEAR CLOCK STATUS REGISTER
69 CLA / POSSIBLE THERE WAS AN EVENT SO WE
70 TAD CFLAG / ONLY THE EVENTS WE KNOW!
71 SPA CLA / OVERFLOW FLAG?
72 CLA IAC / THEN WE ADD 4096
73 DAD; TIME / MQ HOLDS COUNTER
77 TAD CFLAG / CLOCK STATUS --> AC
86 JMS% XSERV / SPECIAL TRIGGER SERVICE ROUTINE