C PROGRAM CLOCK.FT C ---------------- C C #SUBROUTINE CLOCK C C PETER F. LEMKIN C IMAGE PROCESSING UNIT, DCBD C NATIONAL CANCER INSTITUTE C NATIONAL INSTITUTES OF HEALTH C 9000 ROCKVILLE PIKE C BETHESDA, MD. 20014 C C 16 JUNE 1976 - EXTRACTED FROM DUSR.FT C C C C PURPOSE C ------- C SUBROUTINE CLOCK MAY BE USED TO C TIME 200 HZ EITHER USING THE HARDWARE OR IF NON C EXISTS, TO TIMEOUT 200 HZ AND THEN RETURN. C C TO COMPILE C ---------- C .COMPILE CLOCK,, DISP2. S \1554, FBW12 S SMA CLA S JMP \1556 /NO S FBW6 S RTL; RAL S AND (0070 S TAD (6201 /CDF 00 S DCA LOOKAT S FBW7 S DCA 7 S LOOKAT, 0 /DATA FIELD TO LOOKAT S TADI 7 S DISP2 S CLA C C C [C.3] WAIT 5 MSEC OR 1 CLKSKP 1556 DO 1555 MSEC=1,5 DO 1555 IUSEC=1,50 S CLKSKP /REAL CLOCK ACTIVE? S JMP \1555 /NOT YET OR NEVER S CLKACK /YES, CLEAR IT AND RETURN S RETRN CLOCK /BY-BY 1555 CONTINUE S RETRN CLOCK /BY-BY FROM TIMEOUT C C END