          SPACE  4,10
*         CTEXT  CTP$SCI DELAY ROUTINE.
*
*         THIS DECK CONTAINS A ROUTINE WHICH CAN BE USED TO DELAY A
*         SPECIFIED NUMBER OF MILLISECONDS.
 DLY      SPACE  4,10
**        DLY - DELAY FOR (A) MILLISECONDS.
*
*         ENTRY  (A) = NUMBER OF MILLISECONDS TO DELAY.
*
*         USES   T0.


 DLY      SUBR               ENTRY/EXIT
          STD    T0
 DLY1     IAN    14          INPUT REAL-TIME CLOCK
          LPC    1024D-1     EXTRACT RANGE OF 0 .. 1023 MILLISECONDS
          SBM    DLYA
          PJN    DLY2        IF LESS THAN 1024 MICROSECONDS ELAPSED
          RAM    DLYA        UPDATE BASE TIME
          SOD    T0          DECREMENT MILLISECOND COUNTER
          ZJN    DLYX        IF DELAY EXPIRED
          UJN    DLY1        LOOP TILL DELAY EXPIRED

 DLY2     RAM    DLYA        UPDATE BASE TIME
          UJN    DLY1        LOOP

 DLYA     BSS    1

*         ENDX   CTP$SCI DELAY ROUTINE
