*COMDECK SYSCOMD
#     MACRO      #
      XREF
                             BEGIN
        ITEM PGNAME    U;    # PROGRAM NAME                            #
        ARRAY LDPM; 
                             BEGIN
          ITEM OVLFG   U(0,41,1);  # OVERLAY CALL TYPE 0=FROM LOCAL FIL#
          ITEM LWPR    U(0,42,AL); # LWA + 1 OF THE ASSIGNED PGM SPACE #
                             END
        ARRAY RASSC;
                             BEGIN
          ITEM SSCLK   B(0,0,1);   # TRUE = LOCKED (NO INCOMING WL)    #
          ITEM SSCXP   I(0,6,AL);  # SCP ADDR FOR UCP EXCHANGE PKGE    #
          ITEM SSCVF   B(0,24,1);  # TRUE = VAR LENGTH MOVE ALLOWED    #
          ITEM SSCLP   U(0,25,17); # LENGTH OF SCP BUFFER              #
          ITEM SSCAP   I(0,42,AL); # ADDR OF SCP BUFFER                #
          ITEM SSCWD0  U(0,0,WL);  # RA.SSC WORD                       #
                             END
                             END
#     ENDM       #
                                                                       #
 CFOFLG   EQU    0           LOCATION OF CFO BIT
 CFOWD    EQU    CCDR        CONSOLE FORCED OPERATOR WORD (70B) 
 PGNAME   EQU    PGNR        PROGRAM NAME 
 LDPM     EQU    LWPR        LWA + 1 OF THE ASSIGNED PROGRAM SPACE
 RASSC    EQU    RA.SSC      SYSTEM CONTROL POINT INTERFACE WORD
                                                                       #
