*COMDECK COMQCPM                   15SEP81
# 
      COMQCPM - CPM DEFINITIONS.
# 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
      CONTROL IFEQ OS$NOS;
      BEGIN  # BEGIN OF COMQCPM # 
  
# 
***   COMQCPM - CPM FUNCTION CODES AND CALLS. 
* 
*     CPMBLKL - LENGTH OF THE CPM BLOCK BEGING USED.
*     CPMDSC  - DECREMENT SECURITY COUNT
*     CPMKDIS - REQUEST K DISPLAY FUNCTION CODE.
# 
  
      DEF CPMBLKL    #4#;            # CPM BLOCK SIZE # 
      DEF CPMKDIS    #5#;            # K-DISPLAY #
      DEF CPMDSC     #O"114"#;       # DECREMENT SECURITY COUNT # 
  
      COMMON COMQCPM; 
        BEGIN  # COMMON BLOCK COMQCPM # 
# 
**    CPM RA+1 CALL DEFINITION. 
# 
  
        ARRAY CPM [0:0] S(1); 
          BEGIN 
          ITEM CPMP       C(00,00,04) = ["CPMP"]; 
          ITEM CPMFC      U(00,24,12);  # FUNCTION CODE # 
          ITEM CPMPA      U(00,36,24);  # FWA OF PARMETERS #
          END 
  
# 
**    BASED ARRAY DEFINES THE PARAMETERS IN THE CPM 
*     PARAMETER BLOCK.
# 
  
        BASED 
      ARRAY CPMB [0:0]  S(1); 
          BEGIN 
          ITEM CPMWD      U(00,00,60);  # WORD 0 #
          ITEM CPMUN      C(00,00,07);  # USER NUMBER # 
          ITEM CPMUCD     U(00,43,17);  # SET IF USER CARD ENTERED #
          ITEM CPMUI      U(00,42,18);  # USER INDEX #
  
          ITEM CPMPW      C(01,00,07);  # USER PASSWORD # 
          ITEM CPMDD      B(01,56,01);  # ZERO, BLOCK ALREADY BUILT # 
          ITEM CPMSS      B(01,57,01);  # IF SECURITY EXAUSTED #
          ITEM CPMII      B(01,58,01);  # INCREMENT FAMILY COUNT #
          ITEM CPMPP      B(01,59,01);  # VALIDATE PASSWORD # 
  
          ITEM CPMFN      C(02,00,07);  # FAMILY NAME # 
          ITEM CPMFO      U(02,42,18);  # FAMILY ORDINAL #
          END 
  
        END  # COMMON BLOCK COMQCPM # 
  
      END  # END OF COMQCPM # 
      CONTROL ENDIF;
                                               CONTROL LIST;
