ASMB,R,Q,C
*     NAME:   EQLU
*     SOURCE: 92071-18193 
*     RELOC:  92071-1X193 
*     PGMR:   HLC,DJN 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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  92071-1X193  REV.2041  800801 
      ENT EQLU,TRMLU
* 
      EXT .ENTP,KCVT,$TMP1,.XLD 
* 
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. 
* 
* 
TMP1  NOP 
LU    NOP 
EQLU  NOP 
TRMLU EQU EQLU
      CLA 
      STA LU        OPTIONAL PARAMETER
      JSB .ENTP     FETCH PARAMETER ADDRESS 
      DEF LU
      JSB .XLD      GET FIRST RMPAR PARAM 
      DEF $TMP1     A NOW POINTS TO PARAM 
      JSB .XLD
      DEF A,I       A NOW HAS PARAM 
      STA TMP1      SAVE LOCALLY FOR KCVT 
      JSB KCVT      CONVERT LU TO ASCII 
      DEF *+2 
      DEF TMP1
      STA B 
      LDA TMP1
      STA LU,I      STORE IN VARIABLE 
      JMP EQLU,I
      END 
                                                            