*COMDECK PBSTOP 
         NAM   PBSTOP 
         ENT   PBSTOP 
         EXT   PBHALT 
          EXT    J0CIBERR 
         EXT   J0NOBUFRS
         EXT   J0BFDREL 
         EXT   J0BFCERR 
****************************************
*                                      *
*             P B S T O P              *
*     FIRMWARE INTERFACE TO PBHALT     *
*                                      *
****************************************
*              NON-RECURSIVE
*              NON-INTERRUPTABLE
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                 * 
**OVERVIEW-                                                       * 
*    PBSTOP IS THE FIRMWARE INTERFACE TO PBHALT.  WHEN AN ERROR   * 
*    IS DETECTED BY FIRMWARE, A CODE IS LOADED INTO A AND CONTROL * 
*    IS TRANSFERED TO PBSTOP.  PBSTOP TRANSLATES THE FIRMWARE     * 
*    CODE INTO A SYSTEM HALT CODE AND CALLS PBHALT.               * 
*                                                                 * 
**INPUT-                                                          * 
*    INPUT IS A CODE PASSED IN THE A REGISTER.                    * 
*                                                                 * 
**OUTPUT-                                                         * 
*    NONE                                                         * 
*                                                                 * 
**EXTERNAL SUBROUTINES USED-                                      * 
*    1 PBHALT                                                     * 
*                                                                 * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
PBSTOP   IIN   0         INHIBIT INTERRUPTS 
         TRA   Q
         STA*  FIRMCODE  PRESERVE FIRMWARE CODE 
         LDA*  XLATE,Q   TRANSLATE TO SYSTEM HALT CODE
         STA*  HALTCODE 
         RTJ+  PBHALT    CALL PBHALT
         ADC   HALTCODE 
         JMP*  *-3       TRAP (JUST IN CASE)
HALTCODE NUM   0         TRANSLATED HALT CODE 
FIRMCODE NUM   0         CODE FROM FIRMWARE 
*    TRANSLATE TABLE
XLATE     ADC    J0CIBERR    CIB ERROR
         ADC   J0NOBUFRS OUT OF BUFFERS 
         ADC   J0BFDREL  DUPLICATE RELEASE
         ADC   J0BFCERR  CHAIN ERROR ON A GET 
         END
