C -+-+-+-+-+  H A E M A R . F T  -+-+-+-+-+ C C SUBROUTINE MARK (SPEED) C PRINT THE MINUTES AND SECONDS ELAPSING ONTO VIDEO TERMINAL C THE INTEGER PARAMETER SPEED IS THE MULTIPLIER FOR THE REAL TIME. C EACH TIME A MINUTE HAS PASSED WE ISSUE A XOUT(255) COMMAND C CAUSING AN VC8E X OUTPUT VOLTAGE FOR ONE SECOND. C INTEGER SPEED C REAL TIME INTEGER TOASCI,NCOND EXTERNAL TIME,TOASCI,NCOND C INTEGER A,B,MM,SS,HH,I,T, * SED(8) @ HOLDS THE LAST DIGIT OF THE MINUTES IN HEX (31,63) DATA A,SED/9*0/ C IF (TIME(B)+2.LT.A) GOTO 10 @ NEW CALL CLOCK IF ((0.5+TIME(B)).LT.A) RETURN @ LESS THAN ONE SECOND SINCE LAST CALL 10 A=INT(TIME(B)+0.5) B=SPEED*A SS=MOD(B,60) IF (SS.NE.0) GOTO 40 CALL XOUT (128) T=MOD(MOD(B/60,60),10) DO 20 I=1,4 SED(I*2)=NCOND(MOD(T,2),63,31) 20 T=T/2 I=8 GOTO 55 C 40 IF (I.LT.1) GOTO 50 CALL XOUT(SED(I)) I=I-1 GOTO 55 50 CONTINUE CALL XOUT (0) 55 CONTINUE SS=TOASCI(SS) MM=TOASCI(MOD(B/60,60)) HH=TOASCI(B/3600) A=A+1 WRITE (4,1) HH,MM,SS RETURN 1 FORMAT (2H+ ,2(A2,1H:),A2) END