ASMB,R,L,C
* 
*     DATE:   9/21/77 
*     NAME:   $$TB1 
*     SOURCE: 92067-18026 
*     RELOC:  PART OF 92067-16014 
*     PGMR:   E.WONG
* 
*  ***************************************************************
*  * (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-16014 REV.1926 790506
* 
*     EXEC4:
      ENT $ERAB,$PVCN,EXEC,$LIBR,$LIBX,$PVST
*     RTIO4:
      ENT $UPIO,$CIC,$XCIC,$YCIC
      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 
* 
*     EXEC4:
      EXT $ERRA,$LBR,$LBX,$XEX
*     RTIO4:
      EXT $UP,$CIC0,$CXC,$CYC 
      EXT $CON1,$CON2,$CON3 
*     DISP4:
      EXT $XCQ,$XDM 
*     SCHD4:
      EXT $SCD,$ID#,$LST,$MSG,$IDSM,$OP 
*     TRRN4:
      EXT $ULU,$CRN#
* 
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
* 
$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 
* 
$CIC  NOP 
      JMP $CIC0                          *1926DLS*
* 
$XCIC SJP $CXC
* 
$YCIC SJP $CYC
* 
$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 1926      DATE CODE OF OPERATING SYSTEM MODULE.*1926DLS*
* 
* 
      END $OPSY 
                                                                                                          