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