ASMB,R,L       ** RTE-M DUMMY TIME MODULE **
*     NAME  : $MDTI 
*     SOURCE: 92064-18029 
*     RELOC:  PART OF 92064-16013 
*     PROGMR: E.J.W.
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM $MDTI,0  92064-16013  REV.1650  761020  
* 
      ENT $CLCK,$TIME,$TIMV,$SCLK,$MPT6 
      EXT $XEQ,$SYMG,$DLFL,$DEVT
A     EQU 0 
* 
$TIME OCT 16000 
      OCT 177650
      OCT 3573
* 
$CLCK NOP 
      LDA $DLFL 
      CMA,INA,SZA,RSS    ANY DELAYED I/O INITIATIONS? 
      JMP $CLCK,I   NO, SO RETURN TO $IRT 
* 
      CMA           YES, SUBTRACT 1 FROM COUNT
      STA $DLFL 
* 
      LDA EQT#
      CMA,INA 
      STA $TIMV     SAVE NEG COUNT OF EQTS
      LDA EQTA
      INA           GET ADDR OF EQT WORD 2
* 
IOTO2 LDB A,I       GET EQT WORD 2
      SSB           DELAYED I/O INITIATION FLAG SET?
      JMP DLYIO      YES, PRETEND TIME-OUT HAPPENED 
* 
      ADA D15        NO, BUMP ADDR TO NEXT EQT
      ISZ $TIMV     DONE YET? 
      JMP IOTO2      NO 
      HLT 3         NEVER GET HERE, UNLESS $DLFL WRONG. 
* 
DLYIO ADA D13       GET READY FOR FAKE TIME-OUT 
      JMP $DEVT 
* 
$TIMV NOP 
      JMP *-1,I 
* 
$SCLK NOP 
      CLA           DUMMY MESSAGE WHEN NO TIMER 
      STA TBG       INSURE NO INTERRUPTS
      LDA DMESG     NEED TO PRINT TO ENABLE TERMINAL
      JSB $SYMG     NEED TO INITIALIZE MIO MODULE 
      JMP $XEQ
* 
$MPT6 LDA RQRTN 
      STA XSUSP,I 
      JMP $XEQ
* 
DMESG DEF *+1 
      DEC -2
      OCT 6412
D13   DEC 13
D15   DEC 15
EQTA  EQU 1650B 
EQT#  EQU 1651B 
TBG   EQU 1674B 
RQRTN EQU 1677B 
XSUSP EQU 1730B 
      END 
                          