1 C -+-+-+-+-+
\ e H A E M A R . F T
\ e -+-+-+-+-+
4 SUBROUTINE MARK (SPEED)
5 C PRINT THE MINUTES AND SECONDS ELAPSING ONTO VIDEO TERMINAL
6 C THE INTEGER PARAMETER SPEED IS THE MULTIPLIER FOR THE REAL TIME.
7 C EACH TIME A MINUTE HAS PASSED WE ISSUE A XOUT(255) COMMAND
8 C CAUSING AN VC8E X OUTPUT VOLTAGE FOR ONE SECOND.
14 EXTERNAL TIME,TOASCI,NCOND
16 INTEGER A,B,MM,SS,HH,I,T,
17 * SED(8) @ HOLDS THE LAST DIGIT OF THE MINUTES IN HEX (31,63)
20 IF (TIME(B)+2.LT.A) GOTO 10 @ NEW CALL CLOCK
21 IF ((0.5+TIME(B)).LT.A) RETURN @ LESS THAN ONE SECOND SINCE LAST CALL
27 T=MOD(MOD(B/60,60),10)
29 SED(I*2)=NCOND(MOD(T,2),63,31)
34 40 IF (I.LT.1) GOTO 50
42 MM=TOASCI(MOD(B/60,60))
47 1 FORMAT (2H+ ,2(A2,1H:),A2)