*DEBUGGING INTERFACE ***TEMP*** (DEBS & DEBT COMMANDS)  HEADER  FUPDEB  0001.000
         M.PGM     FUP.DEBUG,MPX-32,3.6.1,00                            0002.000
         LIST      NODATA,NONG,MAC                                      0003.000
         SPACE                                                          0004.000
         CSECT                                                          0005.000
         SPACE     3                                                    0006.000
*                                                                       0007.000
************************************************************************0008.000
*                                                                      *0009.000
*                    PROPRIETARY INFORMATION                           *0010.000
*                    -----------------------                           *0011.000
*   THE INFORMATION CONTAINED HEREIN IS PROPRIETARY TO ENCORE          *0012.000
*   COMPUTER CORPORATION AND/OR ITS VENDORS, AND ITS USE, DISCLOSURE,  *0013.000
*   OR DUPLICATION IS SUBJECT TO THE RESTRICTIONS STATED IN THE        *0014.000
*   STANDARD ENCORE COMPUTER CORPORATION LICENSE TERMS AND CONDITIONS  *0015.000
*   OR THE APPROPRIATE THIRD-PARTY SUBLICENSE AGREEMENT.               *0016.000
*                                                                      *0017.000
*                       RESTRICTED RIGHTS                              *0018.000
*                       -----------------                              *0019.000
*   USE, DUPLICATION, OR DISCLOSURE BY THE GOVERNMENT IS SUBJECT       *0020.000
*   TO RESTRICTIONS AS SET FOURTH IN SUBDIVISION (c) (1) (ii) OF       *0021.000
*   THE RIGHTS IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE AT       *0022.000
*   252.227.7013                                                       *0023.000
************************************************************************0024.000
* (C) COPYRIGHT 1989 ENCORE COMPUTER CORPORATION                       *0025.000
*     ALL RIGHTS RESERVED                                              *0026.000
************************************************************************0027.000
*-                                                                      0028.000
*+                                                                      0029.000
*        FUNCTIONAL DESCRIPTION                                         0030.000
*                                                                       0031.000
*                                                                       0032.000
*-                                                                      0033.000
*+                                                                      0034.000
*        ENVIRONMENT                                                    0035.000
*                                                                       0036.000
*                                                                       0037.000
*                                                                       0038.000
*-                                                                      0039.000
         SPACE     2                                                    0040.000
*                                                                       0041.000
*    EXTERNAL REFERENCES:                                               0042.000
         SPACE                                                          0043.000
*        ROUTINE NAMES                                                  0044.000
         SPACE                                                          0045.000
         EXT       CREFIL          FUP LOW LEVEL ENTRY POINT FOR CREATE 0046.000
         EXT       CREDIR          FUP LOW LEVEL ENTRY POINT FOR CREATE 0047.000
         EXT       C.DERES2        FUP LOW LEVEL ENTRY POINT FOR DELETE 0048.000
         EXT       DIV.RND         DIVIDE W/ROUND ROUTINE               0049.000
         EXT       RSEQ            READ ROUTINE                         0050.000
         EXT       WSEQ            WRITE ROUTINE                        0051.000
         EXT       X.DALC          DEALLOCATE ROUTINE                   0052.000
         EXT       BUILDRR6        BUILD RRS TYPE #6                    0053.000
         EXT       BLDRR6.S        BUILDS RRS TYPE #6 (SHORT 6W FORM)   0054.000
         EXT       BUILDCNP        BUILD A CNP                          0055.000
         EXT       GETPATH         GET LENGTH OF A NAME, EXCLUDING      0056.000
*                                  TRAILING BLANKS                      0057.000
         EXT       FUPABORT        ABORT ROUTINE                        0058.000
         EXT       FUPABRT2        ABORTING -- I/O RELATED              0059.000
         EXT       SS.STRNG        TO PICK UP THE VOLUME NAME           0060.000
         EXT       A.INIT          TO INITIALIZE THE PROTOTYPE TABLE    0061.000
         EXT       AS.LIST1        TO ZERO THE PROTOTYPE TABLE          0062.000
         EXT       X.OPEN          OPEN RESOURCE ROUTINE                0063.000
         EXT       X.ALOC2         ALLOCATE & OPEN TEMP FILE            0064.000
         EXT       M.RWND          REWIND ROUTINE                       0065.000
         EXT       M.FWDR          ADVANCE RECORD ROUTINE               0066.000
         EXT       GETRD0          GET A COPY OF RES. DESCR. VIA RID    0067.000
         EXT       AUDIT0          PRINT AUDIT TRAIL LINE(S)            0068.000
         EXT       ERROR           PRINT ERROR MESSAGE ON AUDIT TRAIL   0069.000
         EXT       ERROR2          PRINT A FIXED MESSAGE                0070.000
         SPACE                                                          0071.000
*        DATA TABLES  ( .GT. 2W )                                       0072.000
         SPACE                                                          0073.000
         EXT       RD1.BUF         BUFFER TO HOLD A RESOURCE DESCRIPTOR 0074.000
         EXT       LOBLOCK         LOCAL OPTION BLOCK                   0075.000
         EXT       IO1FCB          FCB FOR LFC "IO1"                    0076.000
         EXT       CNP.BUF         BUFFER IN WHICH TO BUILD A CNP       0077.000
         EXT       RRS.BUF         BUFFER IN WHICH TO BUILD A RRS       0078.000
         EXT       RCB.BUF         RESOURCE CREATE BLOCK -- BUILD AREA  0079.000
         EXT       TAPBUFF         DATA BUFFER FOR TAPE I/O             0080.000
         EXT       IO1BUFF         DATA BUFFER FOR IO1 TEMP FILE I/O    0081.000
         EXT       DVOL            DEFAULT VOLUME                       0082.000
         EXT       PROTOTYP        PROTOTYPE TABLE                      0083.000
         SPACE                                                          0084.000
*        DATA VARIABLES ( .LE. 2W )                                     0085.000
         SPACE                                                          0086.000
         EXT       DISCFCB         FCB W/LFC DSC                        0087.000
         EXT       DSCZ            LFC  G-STRING                        0088.000
         EXT       RID.FUP         BUFFFER TO HOLD RID                  0089.000
         EXT       IO1Z            LFC  G-STRING                        0090.000
         EXT       ADR.MASK        ADDRESS MASK                         0091.000
         EXT       STACKPTR        STACK POINTER SAVE AREA              0092.000
         EXT       BLANKS          DOUBLE WORD OF SPACES                0093.000
         EXT       SYSTEM          DOUBLE WORD W/NAME SYSTEM            0094.000
         EXT       IO1BLEN         LAST VALID ENTRY SLOT IN IO1BUFF     0095.000
         EXT       IO1COUNT        # ENTRIES IN IO1BUFF & IO1 TEMP FILE 0096.000
         EXT       LASTTAP         LAST VALID ENTRY SLOT IN TAPBUFF     0097.000
         EXT       F.CVRT          FUNCTION STRING FOR AUDIT TRAIL      0098.000
         EXT       FUN.SAVE        HOLD CURRENT FUNCTION STRING ADDRESS 0099.000
         EXT       COMDADDR        HOLDS ENTRY POINT ADDR FOR COMMAND   0100.000
         EXT       FU2ERR3         ERROR MESSAGE - SAVED RTM CORE FILE  0101.000
*                                                                       0102.000
*        ERROR MESSAGES                                                 0103.000
*                                                                       0104.000
         EXT       GEN.M001                                             0105.000
         EXT       GEN.M002                                             0106.000
         EXT       GEN.M003                                             0107.000
         EXT       GEN.M004                                             0108.000
         EXT       GEN.M005                                             0109.000
         EXT       GEN.M006                                             0110.000
         EXT       GEN.M007                                             0111.000
*                                                                       0112.000
*                                                                       0113.000
*                                                                       0114.000
         SPACE                                                          0115.000
*                                                                       0116.000
*    EXTERNAL DEFINITIONS                                               0117.000
*                                                                       0118.000
         SPACE                                                          0119.000
         DEF       S.DEBUGT        ENTRY POINT FOR COMMAND LINE PARSING 0120.000
         DEF       S.DEBUGS        ENTRY POINT FOR COMMAND LINE PARSING 0121.000
         DEF       C.DEBUGT        ENTRY POINT                          0122.000
         DEF       C.DEBUGS        ENTRY POINT                          0123.000
*                                                                       0124.000
*                                                                       0125.000
*                                                                       0126.000
         SPACE                                                          0127.000
*                                                                       0128.000
*    SYSTEM MACRO CALLS FOR DEFINITIONS AND EQUATES                     0129.000
*                                                                       0130.000
         SPACE                                                          0131.000
         M.EQUS                    REGISTER/SYSTEM EQUATES              0132.000
         STINIT                    PARSER EQUATES                       0133.000
         SPACE                                                          0134.000
*                                                                       0135.000
*    LOCAL DEFINITIONS                                                  0136.000
*                                                                       0137.000
         SPACE                                                          0138.000
         SPACE                                                          0139.000
*                                                                       0140.000
*    LOCAL STORAGE                                                      0141.000
*                                                                       0142.000
*        THE FOLLOWING IS PURE DATA.  THERE IS NO LOCAL DATA IN THIS MOD0143.000
*        SO THE ENTIRE MODULE IS CONFIGURED INTO CSECT.  IF LOCAL DATA  0144.000
*        IS NEEDED, CARE MUST BE TAKEN THAT THIS LOCAL DATA IS PLACED IN0145.000
*        A DSECT (IMPURE DATA).                                         0146.000
*                                                                       0147.000
         SPACE                                                          0148.000
Z.DEBUGS DATAB     C'SYSTEM DEBUGGER NOT CONFIGURED IN CURRENTLY '      0149.000
         DATAB     C'RUNNING SYSTEM !!!',0                              0150.000
         BOUND     1W                                                   0151.000
         SPACE                                                          0152.000
C.DEBUGT EQU       $               ENTRY POINT                          0153.000
         SPACE                                                          0154.000
*                                                                       0155.000
*        CHECK FOR WHEN TASK DEBUGGER IS PRESENT AND NOT -- THERE       0156.000
*        IS A SEPARATE SERVICE CALL FOR LOAD & EXECUTE DUBUGGER         0157.000
*        IE.,  SVC 1,X'63'                                              0158.000
*                                                                       0159.000
         PUSH                      SAVE REGS                            0160.000
         ZR        R6              ZERO INDICATES THIS TASK             0161.000
         ZR        R7              ZERO INDICATES THIS TASK             0162.000
         SVC       1,X'6F'         ACTIVATE TASK INTERRUPT              0163.000
         POP                       RESTORE REGS                         0164.000
         TRSW      R0              RETURN                               0165.000
         SPACE     5                                                    0166.000
C.DEBUGS EQU       $               ENTRY POINT                          0167.000
         SPACE                                                          0168.000
         PUSH                      SAVE REGS                            0169.000
         LW        R0,C.DEBUG      SYSTEM DEBUGGER PRESENT ???          0170.000
         BZ        C.DEB.10        BRANCH IF NOT CONFIGURED IN SYSTEM   0171.000
         NOP                                                            0172.000
         NOP                                                            0173.000
         BL        *C.DEBUG        SYSTEM DEBUGGER                      0174.000
         NOP                                                            0175.000
         NOP                                                            0176.000
C.DEB.EX POP                       RESTORE REGS                         0177.000
         TRSW      R0              RETURN                               0178.000
         SPACE     2                                                    0179.000
C.DEB.10 EQU       $                                                    0180.000
         LA        R7,Z.DEBUGS     ERROR MESSAGE                        0181.000
         BL        ERROR2          SAY THE DEBUGGER ISN'T CONFIGURED    0182.000
         BU        C.DEB.EX        GO TO ROUTINE EXIT POINT             0183.000
         TITLE     PARSING STATE TABLES & ACTION ROUTINES               0184.000
*++                                                                     0185.000
         BOUND     1W                                                   0186.000
         SPACE                                                          0187.000
*++                                                                     0188.000
* S.CONVRT  -  STATE TABLES FOR THE CONVERT COMMAND                     0189.000
*                                                                       0190.000
* COMMAND SYNTAX:                                                       0191.000
*                                                                       0192.000
* CONVERT  [  [VOLUME=] VOLUME_NAME  ]                                  0193.000
*                                                                       0194.000
* OPTIONS:                                                              0195.000
*                                                                       0196.000
*        NONE                                                           0197.000
*                                                                       0198.000
* NOTE:  THE PROTOTYPE TABLE IS USED TO TEMPORARILY SAVE THE PARSED     0199.000
*        VOLUME NAME -- IF SPECIFIED.                                   0200.000
*                                                                       0201.000
*--                                                                     0202.000
         SPACE                                                          0203.000
S.DEBUGT STATE                                                          0204.000
           TRAN    LAMBDA,A.DEBUGT,EXIT                                 0205.000
         STATE                                                          0206.000
         SPACE     2                                                    0207.000
S.DEBUGS STATE                                                          0208.000
           TRAN    LAMBDA,A.DEBUGS,EXIT                                 0209.000
         STATE                                                          0210.000
         SPACE     5                                                    0211.000
A.DEBUGT EQU       $                                                    0212.000
         LA        R7,C.DEBUGT     ENTRY POINT THIS ROUTINE             0213.000
         STW       R7,COMDADDR     PLUG IN FOR DISPATCHER               0214.000
         TRSW      R0              RETURN                               0215.000
         SPACE     5                                                    0216.000
A.DEBUGS EQU       $                                                    0217.000
         LA        R7,C.DEBUGS     ENTRY POINT THIS ROUTINE             0218.000
         STW       R7,COMDADDR     PLUG IN FOR DISPATCHER               0219.000
         TRSW      R0              RETURN                               0220.000
         SPACE     2                                                    0221.000
END      END                                                            0222.000
