ASMB,R,L,C     ** SESSN  DUMMY SESSION ** 
*     NAME:   MSESN 
*     SOURCE: 92064-18266 
*     RELOC:  92064-16081 
* 
*  ***************************************************************
*  * (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 MSESN,7  92064-16081  REV.2013  800118
* 
      ENT SESSN,DTACH,ICAPS 
      ENT GTERR,PTERR,$DSCS 
      ENT $BMON,$CL1,$CL2 
      EXT .ENTP 
* 
IPRAM NOP 
IERR  NOP            OPTIONAL ERROR RETURN
SESSN NOP 
      CLB 
      STB IERR       CLEAR ERROR RETURN 
      JSB .ENTP 
      DEF IPRAM 
      CCA            INDICATES NO SESSION 
      LDB IERR
      SZB            ERROR PARAMETER SUPPLIED?
      STA IERR,I     YES - STORE IERR 
      CLA,CLE        CAPABILITY ZERO FOR ICAPS
      CME            E=1 INDICATES NO SESSION 
      JMP SESSN,I 
* 
DTACH EQU SESSN 
ICAPS EQU SESSN 
GTERR EQU SESSN 
PTERR EQU SESSN 
* 
$DSCS DEC -1         INDICATES NO SESSION 
$BMON NOP 
$CL1  EQU $BMON 
$CL2  EQU $BMON 
      END 
                                                                                                                                                                                                                                    