*DECK,UPDTDMP 
          IDENT  UPDT$MP
          LIST   -L          CALL AAMCMPMAC, AAMCOMHED,AAMGCOM,AAMMIPBLX GAG1103
*CALL AAMARRDEF                                                          GAG1103
*CALL AAMCOMHED                                                          GAG1103
*CALL AAMGCOM                                                            GAG1103
*CALL AAMMIPBLX                                                          GAG1103
      COL  36                                                            GAG1103
*CALL AAMCMPMAC                                                          GAG1103
      LIST   L                                                           GAG1103
 UPDT$MP  CAP.RM
          LDSET  EPT=NULK$MP                                             GAG1112
          ENTRY  NULK$MP                                                 GAG1103
*                                                                        GAG1103
NLMS      BSS    0                                                       GAG1103
NLMSA     SET    0                                                       GAG1103
          DUP    10,2                                                    GAG1103
          VFD    NLMSA/0,*P/-0                                           GAG1103
NLMSA     SET    NLMSA+6                                                 GAG1103
*                                                                        GAG1103
NLMSB     DATA   10H                                                     GAG1103
          VFD    60/0                                                    GAG1103
          VFD    60/0                                                    GAG1103
          VFD    60/-0                                                   GAG1103
*                                                                        GAG1103
NULK$MP   DATA   0                                                       GAG1103
          RF.AA  GCOM$MP,AKT,1                                           GAG1103
          SB1    1                                                       GAG1103
          RF.AA  GCOM$MP,AKL,2                                           GAG1103
          SB6    X2                                                      GAG1103
          SB7    X1-1                                                    GAG1103
          SB5    10                                                      GAG1103
          RF.AA  GCOM$AA,MRQFWA,3                                        GAG1103
          RF.AA  GCOM$MP,AKW,4                                           GAG1103
          IX6    X3+X4                                                   GAG1103
          SA5    X6                                                      GAG1103
          RF.AA  GCOM$MP,AKP,1                                           GAG1103
          SA4    A5+B1                                                   GAG1103
          SB4    X1                                                      GAG1103
          ZR     B4,NKA                                                  GAG1103
          SA2    NLMS+B4                                                 GAG1103
          LX1    1                                                       GAG1103
          SB4    X1+B4                                                   GAG1103
          SB4    B4+B4                                                   GAG1103
NKG       BX6    X2*X5                                                   GAG1103
          BX7    -X2*X4                                                  GAG1103
          BX5    X6+X7                                                   GAG1103
          LX5    X5,B4                                                   GAG1103
NKA       NE     B7,B1,NKD                                               GAG1103
          SB7    2                                                       GAG1103
          PL     X5,NKD                                                  GAG1103
          SB7    3                                                       GAG1103
NKD       SA1    NLMSB+B7                                                GAG1103
          SB6    B6-B5                                                   GAG1103
          NG     B6,NKF                                                  GAG1103
          IX6    X5-X1                                                   GAG1103
          NZ     X6,NULK$MP                                              GAG1103
          BX7    X5-X1                                                   GAG1103
          MX6    1                                                       GAG1103
          NG     X7,NULK$MP                                              GAG1103
          BX5    X4                                                      GAG1103
          SA4    A4+B1                                                   GAG1103
          ZR     B4,NKD                                                  GAG1103
          EQ     NKG                                                     GAG1103
*                                                                        GAG1103
NKF       SX6    B6+B5                                                   GAG1103
          ZR     X6,NULK$MP                                              GAG1103
          SA2    NLMS+X6                                                 GAG1103
          BX5    -X2*X5                                                  GAG1103
          BX1    -X2*X1                                                  GAG1103
          IX6    X5-X1                                                   GAG1103
          EQ     NULK$MP                                                 GAG1103
*                                                                        GAG1103
          END 
