ASMB,R,L,C   ** RT TABLE AREA 1 MODULE ** 
* 
*     DATE:   9/21/77 
*     NAME:   $$TB1 
*     SOURCE: 92067-18115 
*     RELOC:  PART OF 92067-16103 
*     PGMR:   E.WONG,G.L.M.,AJIT
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 $$TB1,15 92067-16103 REV.2013 800201
* 
* 
*     EXEC4:
      ENT $ERAB,$PVCN,EXEC,XLUEX,$LIBR,$LIBX,$PVST
*     RTIO4:
      ENT $UPIO,$XCIC,$YCIC,$CIC
      ENT $UIN,$UCON
*     DISP4:
      ENT $XEQ,$XDMP,$IDLE
*     SCHD4:
      ENT $SCD3,$IDNO,$MEU,$LIST,$MESS,$WORK,$$OP 
*     TRRN4:
      ENT $ULLU,$CGRN 
*     MTM:
      ENT $MTM
* 
      ENT $OPSY,$DATC 
* 
*     FMP 
      ENT $CL1,$CL2,$$CPU 
* 
*     SESSION MONITOR 
* 
      ENT $CMAD,$ACFL,$LGON,$LGOF,$STH,$LME$,$DSCS,$SHED
* 
*     EXEC4:
      EXT $ERRA,$LBR,$LBX,$XEX
*     RTIO4:
      EXT $UP,$CXC,$CYC,$CIC0 
      EXT $CON1,$CON2,$CON3 
*     DISP4:
      EXT $XCQ,$XDM 
*     SCHD4:
      EXT $SCD,$ID#,$LST,$MSG,$IDSM,$OP 
*     TRRN4:
      EXT $ULU,$CRN#
* 
*     SESSION MONITOR 
* 
      EXT $CMND,$LMES 
* 
* 
A     EQU 0 
B     EQU 1 
* 
*     EXEC4 
* 
      HLT 0         TRAP IN CASE OF FALL THROUGH. 
      JMP *-1       DON'T ALLOW RE-RUN
EXEC  NOP           JMP EXEC OR JSB EXEC WITHOUT MP 
      SJP $XEX       WILL BE CAUGHT IN EXEC CODE
* 
XLUEX NOP           JMP XLUEX OR JSB XLUEX WITHOUT MP 
      SJP $XEX       WILL BE CAUGHT IN EXEC CODE
* 
$ERAB SJP $ERRA 
* 
$PVCN NOP           LEVEL COUNT FOR PRIVILEGED CALL 
$PVST NOP           DMS STATUS FOR PRIVILEGED CALL
* 
$LIBR NOP 
      SSM $PVST 
      SJP $LBR
* 
$LIBX NOP 
      SSM $PVST 
      SJP $LBX
* 
* 
*     RTIO4 
* 
$UPIO SJP $UP 
* 
$XCIC SJP $CXC
* 
$YCIC SJP $CYC
* 
$CIC  NOP 
      JMP $CIC0     SYSTEM MAP ALREADY ENABLED (BY INTERRUPT) 
* 
$UIN  NOP 
      UJS B,I       ENTER DRIVER IN USER MAP
      SJP $UIN,I    RETURN IN SYSTEM MAP
* 
$UCON UJS B,I       ENTER DRIVER IN USER MAP
       JMP UCON1     P+1 RETURN 
       JMP UCON2     P+2 RETURN 
       SJP $CON3     P+3 RETURN 
UCON1 SJP $CON1 
UCON2 SJP $CON2 
* 
* 
*     DISP4 
* 
$XEQ  SJP $XCQ
* 
$XDMP NOP 
      RSB 
      SJP $XDM
* 
IDLE  JMP * 
$IDLE DEF IDLE      ADDR OF IDLE LOOP 
      NOP           DUMMY A,B,EO,X
      NOP           DUMMY Y 
* 
* 
*     SCHD4 
* 
$LIST NOP 
      RSA 
      SJP $LST
* 
$SCD3 NOP 
      RSB 
      SJP $SCD
* 
$IDNO NOP 
      RSA 
      SJP $ID#
* 
$MESS NOP 
      SSM $MEU
      SJP $MSG
$MEU  NOP           SAVES MEU STATUS FOR $MESS
* 
$WORK JMP $IDSM 
* 
$$OP  DEF $OP+0     DIRECT ADDRESS OF LAST PARSED OP CODE 
* 
* 
*     TRRN4 
* 
$ULLU NOP 
      RSA 
      SJP $ULU
* 
$CGRN NOP 
      RSB 
      SJP $CRN# 
* 
* 
*     MTM 
* 
$MTM  NOP 
* 
* 
$OPSY DEC -9        RTE-IV IDENTIFICATION 
$DATC DEC 2013      DATE CODE OF 92067-16102
* 
* 
* 
*     SESSION MONITOR 
* 
$DSCS OCT -1        SESSION UP\DOWN FLAG (-1 IF NOT INSTALLED)
      NOP           $DSCS+1::= ACCTS BUSY FLAG
$SHED NOP           HEAD OF SCB LIST
* 
$CMAD DEF $CMND+0    ADDRESS OF SESSION COMMAND TABLE 
$ACFL NOP           ACCOUNT FILE CRN
$LGON NOP           LOGON CLASS # 
$LGOF NOP           LGOFF CLASS # 
$STH  NOP           R$PN$ CLASS #
$LME$ DEF $LMES+0 
* 
*     FMP 
* 
$CL1  DEC 75
$CL2  NOP 
$$CPU NOP 
* 
* 
      END $OPSY 
* 
* 
                                            