ASMB,R,Q,C
*     NAME:   EQLU  
*     SOURCE: 92070-18193 
*     RELOC:  92070-1X193 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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 EQLU,7  92070-1X193  REV.1941  790205 
      ENT EQLU,TRMLU
* 
      EXT .ENTP,KCVT,$TMP1
* 
A     EQU 0 
B     EQU 1 
* 
*     SOME DRIVERS STORE THE LU OF THE
*     INTERRUPTING DEVICE IN THE FIRST RMPAR
*     PARAMETER WHEN THE INTERRUPT-HANDLING 
*     PROGRAM IS SCHEDULED.  THIS SUBROUTINE
*     MAY BE CALLED TO LOAD THAT PARAMETER IN 
*     THE A-REGISTER. 
* 
* 
LU    NOP 
EQLU  NOP 
TRMLU EQU EQLU
      CLA 
      STA LU        OPTIONAL PARAMETER
      JSB .ENTP     FETCH PARAMETER ADDRESS 
      DEF LU
      JSB KCVT      CONVERT LU TO ASCII 
      DEF *+2 
      DEF $TMP1,I 
      STA B 
      LDA $TMP1,I   INTEGER LU IN A 
      STA LU,I      STORE IN VARIABLE 
      JMP EQLU,I
      END 
                                                                                                                                                                                                                                                