*DECK FCMMLDV 
          IDENT  CMMLDV 
 CMMLDV   TITLE  CMMLDV - LOAD OVERLAY. 
          COMMENT  LOAD OVERLAY 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMLDV - LOAD OVERLAY.
* 
*         CALL CMMLDV(NAME,L1,L2,N,U,V,E,LWA,FWA,OVLNAME,EPTNAME, 
*                     NE,FE,STATUS,EPTADDR) 
* 
*         FOR A COMPLETE DESCRIPTION OF ALL PARAMETERS SEE THE CMM
*         REFERENCE MANUAL PAGES 2-4, 2-5.
*         PLEASE NOTE THAT THE PARAMETERS NAME,OVLNAME, AND EPTNAME MUST
*         BE LEFT JUSTIFIED ZERO FILLED.
* 
 CMMLDV   SPACE  4,4
          SUBRTN CMMLDV 
          SA2    X1          NAME 
          BX6    X2 
          SA6    LDVA 
          SA1    A1+B1
          SA2    X1          L1 
          BX6    X2 
          LX6    54 
          SA1    A1+B1
          SA2    X1          L2 
          LX2    48 
          BX6    X6+X2
          SA1    A1+B1
          SA2    X1          N
          LX2    46 
          BX6    X6+X2
          SA1    A1+B1
          SA2    X1          U
          LX2    42 
          BX6    X6+X2
          SA1    A1+B1
          SA2    X1          V
          LX2    41 
          BX6    X6+X2
          SA1    A1+B1
          SA2    X1          E
          LX2    36 
          BX6    X6+X2
          SA1    A1+B1
          SA2    X1          LWA
          LX2    18 
          BX6    X6+X2
          SA1    A1+B1
          SA2    X1          FWA
          BX6    X6+X2
          SA6    A6+B1
          SA1    A1+B1
          SA2    X1          OVLNAME
          BX6    X2 
          SA6    A6+B1
          SA1    A1+B1
          SA2    X1          EPTNAME
          BX6    X2 
          SA6    A6+B1
          SA0    A1+B1
          SX1    LDVA 
+         RJ     =XCMM.LDV
-         VFD    12/0,18/CMMLDV-1 
          SA1    LDVA+1 
          MX0    59 
          LX1    23 
          BX6    -X0*X1 
          SA2    A0 
          SA6    X2          NE 
          LX1    1
          BX6    -X0*X1 
          SA2    A2+B1
          SA6    X2          FE 
          SA1    LDVA 
          MX0    42 
          BX6    -X0*X1 
          AX6    1
          SA2    A2+B1
          SA6    X2          STATUS 
          SA1    A1+B1
          BX6    -X0*X1 
          SA2    A2+B1
          SA6    X2          EPTADDR
          RTRN   CMMLDV 
 CMMLDV   SPACE  4,4
 LDVA     BSS    4
          END 
