*COMDECK,MALETPD                                                         MAL013G
          EJECT                                                          MAL013G
          QUAL   MALETPD                                                 MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    MODD                                                    MAL013G
          VFD    30/1,6/MSC,6/KEY2,18/0  CW FOR MSC PRODUCT OVERLAY.     MAL013G
          USE    *                                                       MAL013G
                                                                         MAL013G
*         LENGTHS AND ADDRESSES OF PPU BUFFERS ARE DEFINED BELOW. THESE  MAL013G
*         VALUES MUST BE KEPT IN PRODUCT OVERLAY ORDER AND MUST  ALWAYS  MAL013G
*         AGREE  WITH  THE  ACTUAL  VALUES IN THE PPU PRODUCT OVERLAYS.  MAL013G
*                                                                        MAL013G
                                                                         MAL013G
                                                                         MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    P0OB                                                    MAL013G
          DATA   500B        MAX VALUE FOR OB FOR (MSC)                  MAL013G
          USE    *                                                       MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    P0OBFWA                                                 MAL013G
          DATA   6100B       FWA OF OB FOR OVERLAY MSC                   MAL013G
          USE    *                                                       MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    P0IB                                                    MAL013G
          DATA   500B        MAX VALUE FOR IB FOR (MSC)                  MAL013G
          USE    *                                                       MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    P0IBFWA                                                 MAL013G
          DATA   5400B       FWA OF IB FOR OVERLAY MSC                   MAL013G
          USE    *                                                       MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    P0SB                                                    MAL013G
          DATA   30B         MAX VALUE FOR SB FOR (MSC)                  MAL013G
          USE    *                                                       MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    P0SBFWA                                                 MAL013G
          DATA   6600B       FWA OF SB FOR OVERLAY MSC                   MAL013G
          USE    *                                                       MAL013G
          EJECT                                                          MAL013G
*         MSC PRODUCT OVERLAY ENTRY POINTS                               MAL013G
                                                                         MAL013G
 RELMSC   EQU    POVL                                                    MAL013G
 RESMSC   EQU    RELMSC+4                                                MAL013G
 CLEARMSC EQU    RESMSC+4                                                MAL013G
 EXTMSC   EQU    CLEARMSC+4                                              MAL013G
 INPUTMSC EQU    EXTMSC+4                                                MAL013G
 LOOPMSC  EQU    INPUTMSC+4                                              MAL013G
 OUTMSC   EQU    LOOPMSC+4                                               MAL013G
 PARMSC   EQU    OUTMSC+4                                                MAL013G
 SENDMSC  EQU    PARMSC+4                                                MAL013G
 SETMSC   EQU    SENDMSC+4                                               MAL013G
 STATMSC  EQU    SETMSC+4                                                MAL013G
                                                                         MAL013G
          IFNE   CMSE,0,1                                                MAL013G
          USE    PKEY                                                    MAL013G
          VFD    24/0,18/LMSC1,18/TMSC1                                  MAL013G
 MSC      EQU    *-PKEY+PKEYOFF  LEGAL (MSC) I/O COMMANDS                MAL013G
          VFD    24/0,18/LMSC2,18/TMSC2                                  MAL013G
 MSC2     EQU    *-PKEY+PKEYOFF  LEGAL MSC PARITY OPTIONS                MAL013G
          VFD    24/0,18/LMSC3,18/TMSC3                                  MAL013G
 MSC3     EQU    *-PKEY+PKEYOFF  LEGAL MSC SETCTR OPTIONS                MAL013G
          VFD    24/0,18/LMSC4,18/TMSC4                                  MAL013G
 MSC4     EQU    *-PKEY+PKEYOFF  LEGAL MSC STATUS OPTIONS                MAL013G
          USE    *                                                       MAL013G
                                                                         MAL013G
*         LEGAL HIGH-LEVEL I/O STATEMENTS FOR MSF COUPLER (MSC)          MAL013G
                                                                         MAL013G
 TMSC1    VFD    42/5LCLEAR,18/MSCCLEAR                                  MAL013G
          VFD    42/6LEXTEND,18/MSCEXT                                   MAL013G
          VFD    42/5LINPUT,18/MSCINPUT                                  MAL013G
          VFD    42/6LLOOPBK,18/MSCLOOP                                  MAL013G
          VFD    42/6LOUTPUT,18/MSCOUT                                   MAL013G
          VFD    42/6LPARITY,18/MSCPAR                                   MAL013G
          VFD    42/3LREL,18/MSCREL                                      MAL013G
          VFD    42/3LRES,18/MSCRES                                      MAL013G
          VFD    42/7LSENDTAG,18/MSCSEND                                 MAL013G
          VFD    42/6LSETCTR,18/MSCSET                                   MAL013G
          VFD    42/6LSTATUS,18/MSCSTAT                                  MAL013G
 LMSC1    EQU    *-TMSC1                                                 MAL013G
                                                                         MAL013G
*         LEGAL OPTIONS FOR MSF COUPLER (MSC) PARITY COMMAND             MAL013G
                                                                         MAL013G
 TMSC2    VFD    42/2LCH,18/1                                            MAL013G
          VFD    42/2LBI,18/2                                            MAL013G
          VFD    42/2LBO,18/4                                            MAL013G
          VFD    42/2LTB,18/10B                                          MAL013G
          VFD    42/3LBK0,18/20B                                         MAL013G
          VFD    42/3LBK1,18/40B                                         MAL013G
          VFD    42/3LBK2,18/100B                                        MAL013G
          VFD    42/3LBK3,18/200B                                        MAL013G
 LMSC2    EQU    *-TMSC2                                                 MAL013G
                                                                         MAL013G
*         LEGAL OPTIONS FOR MSF COUPLER (MSC) SETCTR COMMAND             MAL013G
                                                                         MAL013G
 TMSC3    VFD    42/3LIWC,18/0                                           MAL013G
          VFD    42/3LOWC,18/1                                           MAL013G
          VFD    42/3LBWC,18/2                                           MAL013G
 LMSC3    EQU    *-TMSC3                                                 MAL013G
                                                                         MAL013G
*         LEGAL OPTIONS FOR MSF COUPLER (MSC) STATUS COMMAND             MAL013G
                                                                         MAL013G
 TMSC4    VFD    42/7LCOUPLER,18/1                                       MAL013G
          VFD    42/3LCTL,18/2                                           MAL013G
          VFD    42/2LPE,18/3                                            MAL013G
          VFD    42/3LIWC,18/4                                           MAL013G
          VFD    42/3LOWC,18/5                                           MAL013G
          VFD    42/3LBWC,18/6                                           MAL013G
 LMSC4    EQU    *-TMSC4                                                 MAL013G
                                                                         MAL013G
*         CONSTANTS USED BY MSC                                          MAL013G
                                                                         MAL013G
                                                                         MAL013G
 DHOLD    VFD    60/4LHOLD                                               MAL013G
          EJECT                                                          MAL013G
          TITLE  PROCESS HIGH LEVEL MSC COMMANDS.                        MAL013G
**        MSCCLEAR -   PROCESS THE MSC CLEAR STATEMENT.                  MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCCLEAR - PROCESS THE MSC CLEAR  STATEMENT. FORMATS ARE;      MAL013G
*                                                                        MAL013G
*                 CLEAR                                                  MAL013G
*                 CLEAR, ABT Z                                           MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - NONE.                                               MAL013G
*                X - NONE.                                               MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
                                                                         MAL013G
 MSCCLEAR SB7    CLEARMSC    ENTRY POINT FOR CLEAR COMMAND               MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
          EJECT                                                          MAL013G
 MSCEXT   TITLE  MSCEXT -   PROCESS THE MSC EXTEND STATEMENT.            MAL013G
**        MSCEXT -   PROCESS THE MSC EXTEND STATEMENT.                   MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCEXT - PROCESS THE MSC EXTEND STATEMENT. FORMATS ARE;        MAL013G
*                                                                        MAL013G
*                 EXTEND ENABLE                                          MAL013G
*                 EXTEND ENABLE, ABT Z                                   MAL013G
*                 EXTEND DISABLE                                         MAL013G
*                 EXTEND DISABLE, ABT Z                                  MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - 1, 3, 6.                                            MAL013G
*                X - 0, 1, 3.                                            MAL013G
*                B - 7.                                                  MAL013G
                                                                         MAL013G
 MSCEXT   SB7    EXTMSC      ENTRY POINT FOR EXTEND COMMAND              MAL013G
          SA1    DISABLE                                                 MAL013G
          SX0    LDN         CODE = LDN 0 IF DISABLE                     MAL013G
          BX1    X1-X3                                                   MAL013G
          ZR     X1,MSCE1    IF DISABLE                                  MAL013G
          SA1    DENABLE                                                 MAL013G
          SX0    X0+B1       CODE = LDN 1 IF ENABLE                      MAL013G
          BX1    X1-X3                                                   MAL013G
          NZ     X1,COM30    ERROR EXIT IFITEM IS NOT DISABLE OR ENABLE  MAL013G
 MSCE1    LX0    12                                                      MAL013G
          SX1    STD+PA                                                  MAL013G
          BX0    X0+X1       CODE= LDN FLAG   STD PA                     MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          SA3    A3+B1                                                   MAL013G
          SX6    A3                                                      MAL013G
          SA6    PCRK        BUMP POINTER TO CRKBUF                      MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
                                                                         MAL013G
 DISABLE  VFD    60/7LDISABLE                                            MAL013G
 DENABLE  VFD    60/6LENABLE                                             MAL013G
          EJECT                                                          MAL013G
 MSCINPUT TITLE  MSCINPUT -   PROCESS THE MSC INPUT STATEMENT.           MAL013G
**        MSCINPUT -   PROCESS THE MSC INPUT STATEMENT.                  MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCINPUT - PROCESS THE MSC INPUT  STATEMENT. FORMATS ARE;      MAL013G
*                                                                        MAL013G
*                 INPUT                                                  MAL013G
*                 INPUT, ABT Z                                           MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A -  NONE.                                              MAL013G
*                X -  NONE.                                              MAL013G
*                B -  7.                                                 MAL013G
                                                                         MAL013G
 MSCINPUT SB7    INPUTMSC     ENTRY POINT FOR INPUT COMMAND              MAL013G
          EQ     MSCOM         ENTER COMMON SEQUENCE                     MAL013G
          EJECT                                                          MAL013G
 MSCLOOP   TITLE  MSCLOOP -   PROCESS THE MSC LOOPBK STATEMENT.          MAL013G
**        MSCLOOP -   PROCESS THE MSC LOOPBK STATEMENT.                  MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCLOOP  - PROCESS THE MSC LOOPBK  STATEMENT. FORMATS ARE;     MAL013G
*                                                                        MAL013G
*                 LOOPBK X                                               MAL013G
*                 LOOPBK X, ABT Z       X = REGISTER OR VALUE            MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - 1.                                                  MAL013G
*                X - 0, 1.                                               MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
                                                                         MAL013G
 MSCLOOP  SA1    MSCL                                                    MAL013G
          RJ     FIND        GET X                                       MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          RJ     CLOAD       GENERATE LOAD X CODE                        MAL013G
          LX0    12                                                      MAL013G
          SX1    STD+PA                                                  MAL013G
          BX0    X0+X1                                                   MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          SB7    LOOPMSC     ENTRY POINT FOR LOOPBK COMMAND              MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
                                                                         MAL013G
 MSCL     VFD    42/0,12/7777B,3/0,3/REG2     CW FOR X ON LOOPBK         MAL013G
          EJECT                                                          MAL013G
 MSCOUT   TITLE  MSCOUT -   PROCESS THE MSC OUTPUT STATEMENT.            MAL013G
**        MSCOUT -   PROCESS THE MSC OUTPUT STATEMENT.                   MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCOUT - PROCESS THE MSC OUTPUT  STATEMENT. FORMATS ARE;       MAL013G
*                                                                        MAL013G
*                 OUTPUT                                                 MAL013G
*                 OUTPUT, ABT Z                                          MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - NONE.                                               MAL013G
*                X - NONE.                                               MAL013G
*                B - 7.                                                  MAL013G
                                                                         MAL013G
 MSCOUT   SB7    OUTMSC       ENTRY POINT FOR OUT COMMAND                MAL013G
          EQ     MSCOM         ENTER COMMON SEQUENCE                     MAL013G
          EJECT                                                          MAL013G
 MSCPAR   TITLE  MSCPAR -   PROCESS THE MSC PARITY STATEMENT.            MAL013G
**        MSCPAR -   PROCESS THE MSC PARITY STATEMENT.                   MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCPAR - PROCESS THE MSC PARITY STATEMENT. FORMATS ARE;        MAL013G
*                                                                        MAL013G
*                 PARITY X                                               MAL013G
*                 PARITY X, ABT Z                                        MAL013G
*                                                                        MAL013G
*                 X MAY BE ANY REGISTER OR ONE OR ANY COMBINATION OF     MAL013G
*                 THE FOLLOWING KEYWORDS;                                MAL013G
*                                                                        MAL013G
*                    CH,BI,BO,TB,BK0,BK1,BK2,BK3                         MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - 1.                                                  MAL013G
*                X - 0, 1.                                               MAL013G
*                B - 7.                                                  MAL013G
                                                                         MAL013G
 MSCPAR   SA1    MSCPA                                                   MAL013G
          RJ     FIND        GET X (REGISTER)                            MAL013G
          NG     B2,MSCP1    IF X IS NOT A REGISTER                      MAL013G
          RJ     CLOAD       GENERATE LOAD X CODE                        MAL013G
          EQ     MSCP4                                                   MAL013G
                                                                         MAL013G
 MSCP1    SA1    MSCPB                                                   MAL013G
          RJ     FIND        GET X (KEYNAME)                             MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          SX1    B2          VALUE OF KEYWORD FOUND                      MAL013G
          BX0    X0+X1       ADD VALUE TO CODE                           MAL013G
          ZR     X3,MSCP2    IF END OF STATEMENT                         MAL013G
          SA1    DABT                                                    MAL013G
          BX1    X1-X3                                                   MAL013G
          ZR     X1,MSCP2    IF END OF PARAMETERS                        MAL013G
          EQ     MSCP1       GET NEXT PARAMETER                          MAL013G
                                                                         MAL013G
 MSCP2    SX1    X0-100B                                                 MAL013G
          PL     X1,MSCP3    IF VALUE .GT. 6 BITS                        MAL013G
          SX0    X0+LDN                                                  MAL013G
          EQ     MSCP4                                                   MAL013G
                                                                         MAL013G
 MSCP3    SX1    LDC                                                     MAL013G
          LX1    12                                                      MAL013G
          BX0    X0+X1       CODE = LDC X                                MAL013G
 MSCP4    LX0    12                                                      MAL013G
          SX1    STD+PA                                                  MAL013G
          BX0    X0+X1                                                   MAL013G
          RJ     CSTOREB     SAVE CODE GENERATED                         MAL013G
          SB7    PARMSC      ENTRY POINT FOR PARITY COMMAND              MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
                                                                         MAL013G
 MSCPA    VFD    57/0,3/REG2           CW FOR X (REGISTER)               MAL013G
 MSCPB    VFD    36/0,6/MSC2,18/0      CW FOR X (KEYNAME)                MAL013G
          EJECT                                                          MAL013G
 MSCREL   TITLE  MSCREL -   PROCESS THE MSC REL STATEMENT.               MAL013G
**        MSCREL -   PROCESS THE MSC REL STATEMENT.                      MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCREL - PROCESS THE MSC REL  STATEMENT. FORMATS ARE;          MAL013G
*                                                                        MAL013G
*                 REL                                                    MAL013G
*                 REL, ABT Z                                             MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - NONE.                                               MAL013G
*                X - NONE.                                               MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
                                                                         MAL013G
 MSCREL   SB7    RELMSC      ENTRY POINT FOR REL COMMAND                 MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
          EJECT                                                          MAL013G
 MSCRES    TITLE  MSCRES -   PROCESS THE MSC RES STATEMENT.              MAL013G
**        MSCRES -   PROCESS THE MSC RES STATEMENT.                      MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCRES - PROCESS THE MSC RES  STATEMENT. FORMATS ARE;          MAL013G
*                                                                        MAL013G
*                 RES                                                    MAL013G
*                 RES, ABT Z                                             MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - NONE.                                               MAL013G
*                X - NONE.                                               MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
                                                                         MAL013G
 MSCRES   SB7    RESMSC      ENTRY POINT FOR RES COMMAND                 MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
          EJECT                                                          MAL013G
 MSCSEND  TITLE  MSCSEND -   PROCESS THE MSC SENDTAG STATEMENT.          MAL013G
**        MSCSEND -   PROCESS THE MSC SENDTAG STATEMENT.                 MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCSEND - PROCESS THE MSC SENDTAG STATEMENT. FORMATS ARE;      MAL013G
*                                                                        MAL013G
*                 SENDTAG X/Y                                            MAL013G
*                 SENDTAG X/Y, ABT Z                                     MAL013G
*                 SENDTAG X/Y HOLD                                       MAL013G
*                 SENDTAG X/Y HOLD, ABT Z                                MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - 1, 3, 6.                                            MAL013G
*                X - 0, 1, 3, 6.                                         MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
                                                                         MAL013G
 MSCSEND  SA1    MSCSEA                                                  MAL013G
          RJ     FIND        GET X                                       MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          RJ     CLOAD       GENERATE LOAD X CODE                        MAL013G
          SX1    STD+PA                                                  MAL013G
          LX0    12                                                      MAL013G
          BX0    X0+X1       CODE = LOAD X  STD PA                       MAL013G
          RJ     CSTOREB     SAVE CODE GENERATED                         MAL013G
          SX1    X3-1R/                                                  MAL013G
          NZ     X1,COM30    ERROR EXIT IF NEXT ITEM IS NOT /            MAL013G
          SA3    A3+B1                                                   MAL013G
          SX6    A3                                                      MAL013G
          SA6    PCRK        BUMP POINTER TO CRKBUF                      MAL013G
          SA1    MSCSEA                                                  MAL013G
          RJ     FIND        GET Y                                       MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          RJ     CLOAD       GENERATE LOAD Y CODE                        MAL013G
          LX0    12                                                      MAL013G
          SX1    STD+PA+1                                                MAL013G
          BX0    X0+X1       CODE = LOAD Y  STD PA+1                     MAL013G
          RJ     CSTOREB     SAVE CODE GENERATED                         MAL013G
          SX0    LDN                                                     MAL013G
          SA1    DHOLD                                                   MAL013G
          BX1    X1-X3                                                   MAL013G
          NZ     X1,MSCSE1   IF NEXT ITEM IS NOT HOLD                    MAL013G
          SX0    X0+B1                                                   MAL013G
          SA3    A3+B1                                                   MAL013G
          SX6    A3                                                      MAL013G
          SA6    PCRK        BUMP POINTER TO CRKBUF                      MAL013G
 MSCSE1   SX1    STD+PA+2                                                MAL013G
          LX0    12                                                      MAL013G
          BX0    X0+X1       CODE = LDN FLAG  STD PA+2                   MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          SB7    SENDMSC     ENTRY POINT FOR SEND COMMAND                MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
                                                                         MAL013G
 MSCSEA   VFD    42/0,12/7777B,3/0,3/REG2  CW FOR X AND Y                MAL013G
          EJECT                                                          MAL013G
 MSCSET   TITLE  MSCSET -   PROCESS THE MSC SETCTR STATEMENT.            MAL013G
**        MSCSET -   PROCESS THE MSC SETCTR STATEMENT.                   MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCSET - PROCESS THE MSC SETCTR  STATEMENT. FORMATS ARE;       MAL013G
*                                                                        MAL013G
*                 SETCTR X TO Y              X = IWC,OWC OR BWC          MAL013G
*                 SETCTR X TO Y, ABT Z       Y = A REGISTER OR VALUE     MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - 1, 3, 6.                                            MAL013G
*                X - 0, 1, 3, 6.                                         MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
 MSCSET   SA1    MSCSETA                                                 MAL013G
          RJ     FIND        GET X (KEYWORD)                             MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          SX0    LDN+B2                                                  MAL013G
          SX1    STD+PA                                                  MAL013G
          LX0    12                                                      MAL013G
          BX0    X0+X1                                                   MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          SA1    DTO                                                     MAL013G
          BX1    X1-X3                                                   MAL013G
          NZ     X1,COM30    ERROR EXIT IF NEXT ITEM IS NOT TO           MAL013G
          SA3    A3+B1                                                   MAL013G
          SX6    A3                                                      MAL013G
          SA6    PCRK        BUMP POINTER TO CRKBUF                      MAL013G
          SA1    MSCSETB                                                 MAL013G
          RJ     FIND        GET Y (REGISTER OR VALUE)                   MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          RJ     CLOAD       GENERATE LOAD Y CODE                        MAL013G
          SX1    STD+PA+1                                                MAL013G
          LX0    12                                                      MAL013G
          BX0    X0+X1                                                   MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          SB7    SETMSC       ENTRY POINT FOR SETCTR COMMAND             MAL013G
          EQ     MSCOM         ENTER COMMON SEQUENCE                     MAL013G
                                                                         MAL013G
 MSCSETA  VFD    36/0,6/MSC3,18/0            CW FOR X (KEYNAME)          MAL013G
 MSCSETB  VFD    42/0,12/7777B,3/0,3/REG2    CW FOR Y                    MAL013G
          EJECT                                                          MAL013G
 MSCSTAT  TITLE  MSCSTAT-   PROCESS THE MSC STATUS STATEMENT.            MAL013G
**        MSCSTAT-   PROCESS THE MSC STATUS STATEMENT.                   MAL013G
*                                                                        MAL013G
*         J. E. SIPPER. 76/12/08.                                        MAL013G
*                                                                        MAL013G
*         MSCSTAT- PROCESS THE MSC STATUS STATEMENT. FORMATS ARE;        MAL013G
*                                                                        MAL013G
*                 STATUS                X = COUPLER, CTL, PE,            MAL013G
*                 STATUS, ABT Z             IWC, OWC, BWC                MAL013G
*                 STATUS X                                               MAL013G
*                 STATUS X, ABT Z                                        MAL013G
*                                                                        MAL013G
*         ENTRY                                                          MAL013G
*                                                                        MAL013G
*           CRKBUF = WORD STRING OF SOURCE STATEMENT.                    MAL013G
*                                                                        MAL013G
*         EXIT                                                           MAL013G
*                                                                        MAL013G
*           . MODULE = BINARY PPU CODE GENERATED FOR THE SOURCE.         MAL013G
*           . FCERR COMPILER ERROR FLAG SET IF COMPILER ERROR CREATED.   MAL013G
*                                                                        MAL013G
*         ROUTINES CALLED -  FIND   - FIND THE NEXT ITEM FROM SOURCE.    MAL013G
*                            CSTOREB- STORE GENERATED CODE.              MAL013G
*                                                                        MAL013G
*         DATA AREAS USED -  CRKBUF - WORD STRING OF SOURCE STATEMENT.   MAL013G
*                            MODULE - BINARY CODE GENERATED.             MAL013G
*                                                                        MAL013G
*         USES   A - 1, 6.                                               MAL013G
*                X - 0, 1, 2, 3, 6.                                      MAL013G
*                B - 7.                                                  MAL013G
*                                                                        MAL013G
 MSCSTAT  SX0    LDN                                                     MAL013G
          ZR     X3,MSCST1   IF END OF STATEMENT                         MAL013G
          SA1    DABT                                                    MAL013G
          BX1    X1-X3                                                   MAL013G
          ZR     X1,MSCST1   IF NO PARAMETERS                            MAL013G
          SA1    MSCSTA                                                  MAL013G
          RJ     FIND        GET X                                       MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          SX0    X0+B2       FORM CODE                                   MAL013G
 MSCST1   LX0    12                                                      MAL013G
          SX1    STD+PA                                                  MAL013G
          BX0    X0+X1                                                   MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          SB7    STATMSC     ENTRY POINT FOR STATUS COMMAND              MAL013G
          EQ     MSCOM        ENTER COMMON SEQUENCE                      MAL013G
                                                                         MAL013G
 MSCSTA   VFD    36/0,6/MSC4,18/0      CW FOR X (KEYNAME)                MAL013G
          EJECT                                                          MAL013G
 MSCOM    TITLE  MSCOM COMMON ABT PROCESSOR FOR MSC                      MAL013G
**        MSCOM - COMMON ABT PROCESSOR FOR MSC                           MAL013G
*                                                                        MAL013G
*         J.E.SIPPER.  76/12/08.                                         MAL013G
*                                                                        MAL013G
*         CRACK ABT Z                                                    MAL013G
*                                                                        MAL013G
                                                                         MAL013G
 MSCOM    SX0    LDN                                                     MAL013G
          ZR     X3,MSCC1    IF END OF STATEMENT                         MAL013G
          SX0    LDC                                                     MAL013G
          LX0    12                                                      MAL013G
 MSCC1    SX1    B7          PPU ENTRY ADDRESS                           MAL013G
          SX2    RJM                                                     MAL013G
          LX0    24                                                      MAL013G
          LX2    12                                                      MAL013G
          BX0    X0+X1                                                   MAL013G
          BX0    X0+X2                                                   MAL013G
          ZR     X3,MSCC2    IF END OF STATEMENT                         MAL013G
          SA1    DABT                                                    MAL013G
          BX3    X3-X1                                                   MAL013G
          NZ     X3,COM30    ERROR EXIT IF NOT ABT                       MAL013G
          SA1    PCRK                                                    MAL013G
          SX6    X1+B1                                                   MAL013G
          SA6    A1          BUMP POINTER TO CRKBUF                      MAL013G
          SA1    MSCCZ                                                   MAL013G
          RJ     FIND        GET STATEMENT NUMBER                        MAL013G
          NG     B2,COM31    ERROR EXIT IF NOT FOUND                     MAL013G
          NZ     X3,COM30    ERROR EXIT IF NOT END OF STATEMENT          MAL013G
          RJ     CPSN        PROCESS STATEMENT NUMBER                    MAL013G
 MSCC2    RJ     CABSPPU                                                 MAL013G
          RJ     CSTOREB     SAVE GENERATED CODE                         MAL013G
          EQ     COM10       EXIT TO COMPILER                            MAL013G
                                                                         MAL013G
 MSCCZ    VFD    42/0,12/77B,6/0            CW FOR Z                     MAL013G
