COMBKDD 
COMMON
  
#     COMBKDD - *K* DISPLAY DEFINITIONS.                              # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBKDD #
  
# 
***   COMBKDK - *K* DISPLAY DEFINITIONS.
* 
*     COMBKDD CONTAINS DEFINITIONS FOR THE *K* DISPLAY AND
*     CONTAINS THE *K* DISPLAY INPUT BUFFER.
# 
  
  
      DEF KLINK      #0#;            # LINK TO K-QUEUE #
      DEF KDELINK    #1#;            # DELINK FROM K-QUEUE #
  
      DEF BZEROES    #0#;            # CLEAR THE *B* DISPLAY LINE 2 # 
  
  
  
# 
*     PARAMETER CONVERSIONS.
# 
  
      DEF ALF        #0#;            # ALPHA - NO CONVERSION #
      DEF DEC        #1#;            # CONVERT TO DECIMAL DISPLAY # 
      DEF OCTL       #2#;            # CONVERT TO OCTAL DISPLAY # 
  
  
# 
*     PARAMETER DEFINITIONS FOR *K* DISPLAY MESSAGES. 
* 
*     THE PARAMETER VALUES FOR THE MESSAGE TEXTS ARE PICKED OUT 
*     OF THE *KWORD* ARRAY ACCORDING TO THE DEFINITIONS 
*     SPECIFIED HERE. 
* 
*     PARAMETERS ARE DESCRIBED BY - 
*      . CODE - 2 CHARACTER PARAMETER CODE. 
*      . FROM LOCATION - LOCATION OF THE PARAMETER VALUE IN THE 
*             *KWORD* ARRAY (WORD OFFSET FROM *KW$PAR*, STARTING
*             BIT NUMBER AND LENGTH IN BITS). 
*      . CONVERSION - TYPE OF CONVERSION FOR THE PARAMETER VALUE
*             TO RESULT WITH DISPLAY CODE.
*      . TO SIZE - NUMBER OF RIGHT JUSTIFIED CHARACTERS IN THE
*             CONVERTED PARAMETER TO MOVE INTO THE MESSAGE TEXT.
*     THE RESULTANT PARAMETER IS MOVED INTO THE MESSAGE TEXT AS 
*     INDICATED IN THE TEXT BY THE (*CODE). 
* 
*     - WARNING -  IF *KPNUM* CHANGES, THE ARRAY *KPAR* IN *KPFILL* 
*                  MUST BE CHANGED ACCORDINGLY. 
# 
  
      DEF KPNUM      #23#;           # NUMBER OF PARAMETERS DEFINED # 
  
      DEF P1C        #"DT"#;         # CODE # 
      DEF P1W        #0#;            # FROM WORD OFFSET # 
      DEF P1B        #18#;           # FROM STARTING BIT NUMBER # 
      DEF P1L        #06#;           # FROM LENGTH IN BITS #
      DEF P1T        #ALF#;          # CONVERSION TYPE #
      DEF P1S        #1#;            # TO SIZE IN CHARACTERS #
  
      DEF P2C        #"EQ"#;         # CODE # 
      DEF P2W        #0#;            # FROM WORD OFFSET # 
      DEF P2B        #00#;           # FROM STARTING BIT NUMBER # 
      DEF P2L        #12#;           # FROM LENGTH IN BITS #
      DEF P2T        #OCTL#;         # CONVERSION TYPE #
      DEF P2S        #4#;            # TO SIZE IN CHARACTERS #
  
      DEF P3C        #"ID"#;         # CODE # 
      DEF P3W        #0#;            # FROM WORD OFFSET # 
      DEF P3B        #24#;           # FROM STARTING BIT NUMBER # 
      DEF P3L        #03#;           # FROM LENGTH IN BITS #
      DEF P3T        #OCTL#;         # CONVERSION TYPE #
      DEF P3S        #1#;            # TO SIZE IN CHARACTERS #
  
      DEF P4C        #"FN"#;         # CODE # 
      DEF P4W        #3#;            # FROM WORD OFFSET # 
      DEF P4B        #00#;           # FROM STARTING BIT NUMBER # 
      DEF P4L        #42#;           # FROM LENGTH IN BITS #
      DEF P4T        #ALF#;          # CONVERSION TYPE #
      DEF P4S        #7#;            # TO SIZE IN CHARACTERS #
  
      DEF P5C        #"JN"#;         # CODE # 
      DEF P5W        #4#;            # FROM WORD OFFSET # 
      DEF P5B        #00#;           # FROM STARTING BIT NUMBER # 
      DEF P5L        #24#;           # FROM LENGTH IN BITS #
      DEF P5T        #ALF#;          # CONVERSION TYPE #
      DEF P5S        #4#;            # TO SIZE IN CHARACTERS #
  
      DEF P6C        #"UI"#;         # CODE # 
      DEF P6W        #3#;            # FROM WORD OFFSET # 
      DEF P6B        #42#;           # FROM STARTING BIT NUMBER # 
      DEF P6L        #18#;           # FROM LENGTH IN BITS #
      DEF P6T        #OCTL#;         # CONVERSION TYPE #
      DEF P6S        #6#;            # TO SIZE IN CHARACTERS #
  
      DEF P7C        #"FM"#;         # CODE # 
      DEF P7W        #5#;            # FROM WORD OFFSET # 
      DEF P7B        #00#;           # FROM STARTING BIT NUMBER # 
      DEF P7L        #42#;           # FROM LENGTH IN BITS #
      DEF P7T        #ALF#;          # CONVERSION TYPE #
      DEF P7S        #7#;            # TO SIZE IN CHARACTERS #
  
      DEF P8C        #"EC"#;         # CODE # 
      DEF P8W        #0#;            # FROM WORD OFFSET # 
      DEF P8B        #30#;           # FROM STARTING BIT NUMBER # 
      DEF P8L        #12#;           # FROM LENGTH IN BITS #
      DEF P8T        #OCTL#;         # CONVERSION TYPE #
      DEF P8S        #4#;            # TO SIZE IN CHARACTERS #
  
      DEF P9C        #"YA"#;         # CODE # 
      DEF P9W        #0#;            # FROM WORD OFFSET # 
      DEF P9B        #30#;           # FROM STARTING BIT NUMBER # 
      DEF P9L        #6#;            # FROM LENGTH IN BITS #
      DEF P9T        #DEC#;          # CONVERSION TYPE #
      DEF P9S        #2#;            # TO SIZE IN CHARACTERS #
  
      DEF P10C        #"ZA"#;         # CODE #
      DEF P10W        #0#;            # FROM WORD OFFSET #
      DEF P10B        #36#;           # FROM STARTING BIT NUMBER #
      DEF P10L        #6#;            # FROM LENGTH IN BITS # 
      DEF P10T        #DEC#;          # CONVERSION TYPE # 
      DEF P10S        #2#;            # TO SIZE IN CHARACTERS # 
  
      DEF P11C        #"SF"#;         # CODE #
      DEF P11W        #0#;            # FROM WORD OFFSET #
      DEF P11B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P11L        #06#;           # FROM LENGTH IN BITS # 
      DEF P11T        #DEC#;          # CONVERSION TYPE # 
      DEF P11S        #1#;            # TO SIZE IN CHARACTERS # 
  
      DEF P12C        #"CN"#;         # CODE #
      DEF P12W        #0#;            # FROM WORD OFFSET #
      DEF P12B        #12#;           # FROM STARTING BIT NUMBER #
      DEF P12L        #06#;           # FROM LENGTH IN BITS # 
      DEF P12T        #OCTL#;         # CONVERSION TYPE # 
      DEF P12S        #2#;            # TO SIZE IN CHARACTERS # 
  
      DEF P13C        #"CI"#;         # CODE #
      DEF P13W        #0#;            # FROM WORD OFFSET #
      DEF P13B        #18#;           # FROM STARTING BIT NUMBER #
      DEF P13L        #3#;            # FROM LENGTH IN BITS # 
      DEF P13T        #OCTL#;         # CONVERSION TYPE # 
      DEF P13S        #1#;            # TO SIZE IN CHARACTERS # 
  
      DEF P14C        #"XX"#;         # CODE #
      DEF P14W        #0#;            # FROM WORD OFFSET #
      DEF P14B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P14L        #00#;           # FROM LENGTH IN BITS # 
      DEF P14T        #DEC#;          # CONVERSION TYPE # 
      DEF P14S        #2#;            # TO SIZE IN CHARACTERS # 
  
      DEF P15C        #"XX"#;         # CODE #
      DEF P15W        #0#;            # FROM WORD OFFSET #
      DEF P15B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P15L        #00#;           # FROM LENGTH IN BITS # 
      DEF P15T        #DEC#;          # CONVERSION TYPE # 
      DEF P15S        #2#;            # TO SIZE IN CHARACTERS # 
  
      DEF P16C        #"XX"#;         # CODE #
      DEF P16W        #0#;            # FROM WORD OFFSET #
      DEF P16B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P16L        #00#;           # FROM LENGTH IN BITS # 
      DEF P16T        #DEC#;          # CONVERSION TYPE # 
      DEF P16S        #2#;            # TO SIZE IN CHARACTERS # 
  
      DEF P17C        #"DD"#;         # CODE #
      DEF P17W        #0#;            # FROM WORD OFFSET #
      DEF P17B        #27#;           # FROM STARTING BIT NUMBER #
      DEF P17L        #03#;           # FROM LENGTH IN BITS # 
      DEF P17T        #DEC#;          # CONVERSION TYPE # 
      DEF P17S        #1#;            # TO SIZE IN CHARACTERS # 
  
      DEF P18C        #"NF"#;         # CODE #
      DEF P18W        #1#;            # FROM WORD OFFSET #
      DEF P18B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P18L        #60#;           # FROM LENGTH IN BITS # 
      DEF P18T        #ALF#;          # CONVERSION TYPE # 
      DEF P18S        #10#;           # TO SIZE IN CHARACTERS # 
  
      DEF P19C        #"ND"#;         # CODE #
      DEF P19W        #0#;            # FROM WORD OFFSET #
      DEF P19B        #33#;           # FROM STARTING BIT NUMBER #
      DEF P19L        #03#;           # FROM LENGTH IN BITS # 
      DEF P19T        #OCTL#;         # CONVERSION TYPE # 
      DEF P19S        #1#;            # TO SIZE IN CHARACTERS # 
  
      DEF P20C        #"PU"#;         # CODE #
      DEF P20W        #4#;            # FROM WORD OFFSET #
      DEF P20B        #30#;           # FROM STARTING BIT NUMBER #
      DEF P20L        #30#;           # FROM LENGTH IN BITS # 
      DEF P20T        #DEC#;          # CONVERSION TYPE # 
      DEF P20S        #8#;            # TO SIZE IN CHARACTERS # 
  
      DEF P21C        #"SM"#;         # CODE #
      DEF P21W        #4#;            # FROM WORD OFFSET #
      DEF P21B        #24#;           # FROM STARTING BIT NUMBER #
      DEF P21L        #06#;           # FROM LENGTH IN BITS # 
      DEF P21T        #ALF#;          # CONVERSION TYPE # 
      DEF P21S        #1#;            # TO SIZE IN CHARACTERS # 
  
      DEF P22C        #"MA"#;         # CODE #
      DEF P22W        #2#;            # FROM WORD OFFSET #
      DEF P22B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P22L        #06#;           # FROM LENGTH IN BITS # 
      DEF P22T        #ALF#;          # CONVERSION TYPE # 
      DEF P22S        #1#;            # TO SIZE IN CHARACTERS # 
  
      DEF P23C        #"XX"#;         # CODE #
      DEF P23W        #0#;            # FROM WORD OFFSET #
      DEF P23B        #00#;           # FROM STARTING BIT NUMBER #
      DEF P23L        #06#;           # FROM LENGTH IN BITS # 
      DEF P23T        #DEC#;          # CONVERSION TYPE # 
      DEF P23S        #2#;            # TO SIZE IN CHARACTERS # 
# 
*     TO ACCESS THE PARAMETER VALUES IN THE *KWORD* ARRAY.
# 
  
      DEF KP$DT      #B<P1B,P1L>KW$PAR[P1W]#;  # DEVICE TYPE #
      DEF KP$EQ      #B<P2B,P2L>KW$PAR[P2W]#;  # EST ORDINAL #
      DEF KP$ID      #B<P3B,P3L>KW$PAR[P3W]#;  # DRD LOCATION # 
      DEF KP$FN      #B<P4B,P4L>KW$PAR[P4W]#;  # FILE NAME #
      DEF KP$JN      #B<P5B,P5L>KW$PAR[P5W]#;  # JOB SEQUENCE NUMBER #
      DEF KP$UI      #B<P6B,P6L>KW$PAR[P6W]#;  # USER INDEX # 
      DEF KP$FM      #B<P7B,P7L>KW$PAR[P7W]#;  # FAMILY NAME #
      DEF KP$EC      #B<P8B,P8L>KW$PAR[P8W]#;  # ERROR CODE # 
      DEF KP$YA      #B<P9B,P9L>KW$PAR[P9W]#;  # Y MATRIX ADDRESS # 
      DEF KP$ZA      #B<P10B,P10L>KW$PAR[P10W]#;  # Z MATRIX ADDRESS #
      DEF KP$SF      #B<P11B,P11L>KW$PAR[P11W]#;  # SUBFAMILY # 
      DEF KP$CN      #B<P12B,P12L>KW$PAR[P12W]#;  # CHANNEL NUMBER #
      DEF KP$CI      #B<P13B,P13L>KW$PAR[P13W]#;  # CIF # 
      DEF KP$UN      #B<P14B,P14L>KW$PAR[P14W]#;  # UNUSED #
      DEF KP$UO      #B<P15B,P15L>KW$PAR[P15W]#;  # UNUSED #
      DEF KP$UP      #B<P16B,P16L>KW$PAR[P16W]#;  # UNUSED #
      DEF KP$DD      #B<P17B,P17L>KW$PAR[P17W]#;  # DRD NUMBER #
      DEF KP$NF      #B<P18B,P18L>KW$PAR[P18W]#;  # ON/OF STATUS #
      DEF KP$ND      #B<P19B,P19L>KW$PAR[P19W]#;  # NUM DRDS DS/ST #
      DEF KP$PU      #B<P20B,P20L>KW$PAR[P20W]#;  # PRU NUMBER #
      DEF KP$SM      #B<P21B,P21L>KW$PAR[P21W]#;  # SM IDENTIFIER # 
      DEF KP$MA      #B<P22B,P22L>KW$PAR[P22W]#;  # MAINTENANCE # 
      DEF KP$UX      #B<P23B,P23L>KW$PAR[P23W]#;  # UNUSED #
  
  
  
# 
* 
*      . PARAMETERS ARE SPECIFIED BY - *CODE .
*             THE CODE MUST BE DEFINED IN THE ABOVE PARAMETER 
*             DEFINITIONS LIST. 
*      . MAXIMUM MESSAGE LENGTH IS 40 CHARACTERS. 
*      . THE FIRST CHARACTER MUST BE A BLANK. 
* 
*     . WARNING -  IF *KMNUM* CHANGES, THE ARRAY *KMESSAGES* IN 
*                  *KDISPLY* MUST BE CHANGED ACCORDINGLY. 
# 
  
      DEF KMNUM      #30#;           # NUMBER OF MESSAGES DEFINED # 
  
      DEF KM1        #" EST*EQ, CH *CN "#;
      DEF KM2        #" EST*EQ, CH *CN, SM *DT "#;
      DEF KM3        #" EST*EQ, CH *CN, SM *DT, DRD *ID "#; 
      DEF KM4        #" UNRECOVERABLE WRITE. "#;
      DEF KM5        #" UNRECOVERABLE READ. "#; 
      DEF KM6        #" VOLUME LABEL ERROR. "#; 
      DEF KM7        #" CARTRIDGE MISSING, Y=*YA, Z=*ZA. "#;
      DEF KM8        #" CARTRIDGE LABEL ERROR - SEE DAYFILE. "#;
      DEF KM9        #" CARTRIDGE EJECTED. "#;
      DEF KM10       #" PATH(S) TURNED OFF - SEE MPA OUTPUT. "#;
      DEF KM11       #" CELL FULL, Y=*YA, Z=*ZA. "#;
      DEF KM12       #" AWAITING UDT ALTERATION. "#;
      DEF KM13       #" CHANNEL TURNED OFF. "#; 
      DEF KM14       #" CHANNEL ERROR. "#;
      DEF KM15       #" CONTROLLER ERROR. "#; 
      DEF KM16       #" DEVICE TURNED OFF. "#;
      DEF KM17       #" DRD LOAD ERROR. "#; 
      DEF KM18       #" DRD UNLOAD ERROR. "#; 
      DEF KM19       #" OUTPUT TRAY FULL. "#; 
      DEF KM20       #" INPUT TRAY EMPTY. "#; 
      DEF KM21       #" STORAGE MODULE ERROR. "#; 
      DEF KM22       #" ALL CHANNELS OFF TO THIS CONTROLLER. "#;
      DEF KM23       #" EST*EQ "#;
      DEF KM24       #" CHANNEL INTERFACE *CI OFFLINE. "#;
      DEF KM25       #" OPERATOR IMPL REQUIRED. "#; 
      DEF KM26       #" UNUSED "#;
      DEF KM27       #" UNUSED "#;
      DEF KM28       #" UNUSED "#;
      DEF KM29       #" UNUSED "#;
      DEF KM30       #" UNUSED "#;
  
# 
*     ORDINALS FOR THE *K* MESSAGES.
# 
  
      STATUS KM                      # DEFINED *K* MESSAGES # 
        KNONE,                       # RESERVED # 
        KM1,                         # MESSAGE 1 #
        KM2,                         # MESSAGE 2 #
        KM3,                         # MESSAGE 3 #
        KM4,                         # MESSAGE 4 #
        KM5,                         # MESSAGE 5 #
        KM6,                         # MESSAGE 6 #
        KM7,                         # MESSAGE 7 #
        KM8,                         # MESSAGE 8 #
        KM9,                         # MESSAGE 9 #
        KM10,                        # MESSAGE 10 # 
        KM11,                        # MESSAGE 11 # 
        KM12,                        # MESSAGE 12 # 
        KM13,                        # MESSAGE 13 # 
        KM14,                        # MESSAGE 14 # 
        KM15,                        # MESSAGE 15 # 
        KM16,                        # MESSAGE 16 # 
        KM17,                        # MESSAGE 17 # 
        KM18,                        # MESSAGE 18 # 
        KM19,                        # MESSAGE 19 # 
        KM20,                        # MESSAGE 20 # 
        KM21,                        # MESSAGE 21 # 
        KM22,                        # MESSAGE 22 # 
        KM23,                        # MESSAGE 23 # 
        KM24,                        # MESSAGE 24 # 
        KM25,                        # MESSAGE 25 # 
        KM26,                        # MESSAGE 26 # 
        KM27,                        # MESSAGE 27 # 
        KM28,                        # MESSAGE 28 # 
        KM29,                        # MESSAGE 29 # 
        KM30,                        # MESSAGE 30 # 
        KEND;                        # END OF LIST #
  
# 
*     DEFINE *K*  MESSAGE TEXTS FOR DESCRIBING *SM* STATUS. 
* 
*      . SAME RULES APPLY AS FOR MESSAGES ABOVE 
*      . WARNING - IF *KSMNUM* CHANGES, THE ARRAY *KSMMSGS* IN *KDSM* 
*                  MUST BE CHANGED ACCORDINGLY. 
# 
      DEF KSMNUM     #13#;          # NUMBER OF *SM* MESSAGES DEFINED # 
  
      DEF KSM1
        #" SM*SM STATUS   *NF*MA                                  "#; 
      DEF KSM2
        #"              *ND MAX DRDS FOR STAGING                  "#; 
      DEF KSM3
        #"              *ND MAX DRDS FOR DESTAGING                "#; 
      DEF KSM4
        #"                 JSN   FILE        UI     PRU-S     "#; 
      DEF KSM5
        #" DRD*DD STAGE   - *JN  *FN  *UI  *PU                "#; 
      DEF KSM6
        #" DRD*DD DESTAGE - *JN  *FN  *UI  *PU                "#; 
      DEF KSM7
        #" DRD*DD UTILITY                                     "#; 
      DEF KSM8
        #" DRD*DD OFF                                         "#; 
      DEF KSM9
        #" DRD*DD IDLE                                        "#; 
      DEF KSM10 
        #" DRD*DD MAINTENANCE                                 "#; 
      DEF KSM11      #" UNUSED "#;
      DEF KSM12      #" UNUSED "#;
      DEF KSM13      #" UNUSED "#;
# 
*     ORDINALS FOR *K* DISPLAY *SM* MESSAGES
# 
      STATUS KMSM                     # DEFINED *K* *SM* MESSAGES # 
          KSMZERO,                   # RESERVED # 
          KSM1,                      # SM MESSAGE 1 # 
          KSM2,                      # SM MESSAGE 2 # 
          KSM3,                      # SM MESSAGE 3 # 
          KSM4,                      # SM MESSAGE 4 # 
          KSM5,                      # SM MESSAGE 5 # 
          KSM6,                      # SM MESSAGE 6 # 
          KSM7,                      # SM MESSAGE 7 # 
          KSM8,                      # SM MESSAGE 8 # 
          KSM9,                      # SM MESSAGE 9 # 
          KSM10,                     # SM MESSAGE 10 #
          KSM11,                     # SM MESSAGE 11 #
          KSM12,                     # SM MESSAGE 12 #
          KSM13,                     # SM MESSAGE 13 #
          KSMEND;                    # END OF LIST #
  
# 
*     *KWORD* ARRAY DEFINES THE *K* DISPLAY REQUEST WORDS.
# 
  
      BASED 
      ARRAY KWORD [0:0] S(1);        # K-REQUEST WORDS #
        BEGIN 
        ITEM KW$WORD    U(00,00,60);  # REQUEST WORD #
        ITEM KW$CW      U(00,00,15);  # CONTROL FLAGS # 
        ITEM KW$KCTL    U(00,00,07);  # K-CONTROLLED FIELDS # 
        ITEM KW$COMP    B(00,00,01);  # COMPLETE FLAG # 
        ITEM KW$OP      U(00,01,04);  # OPERATOR REPLY #
        ITEM KW$OPGO    B(00,01,01);  # - GO #
        ITEM KW$OPDROP  B(00,02,01);  # - DROP #
        ITEM KW$ACT     B(00,05,01);  # CURRENTLY ACTIVE #
        ITEM KW$RES     U(00,06,01);  # RESERVED #
        ITEM KW$UCTL    U(00,07,08);  # USER CONTROLLED FIELDS #
        ITEM KW$IC      B(00,07,01);  # IMMEDIATE COMPLETE #
        ITEM KW$RP      U(00,08,04);  # VALID REPLY # 
        ITEM KW$RPGO    B(00,08,01);  # - GO #
        ITEM KW$RPDROP  B(00,09,01);  # - DROP #
        ITEM KW$DF      B(00,12,01);  # ISSUE TO DAYFILE #
        ITEM KW$ELOG    B(00,13,01);  # ISSUE TO ERRLOG # 
        ITEM KW$MP      B(00,14,01);  # RESERVED #
        ITEM KW$LINE1   U(00,15,09);  # LINE 1 MESSAGE ORDINAL #
        ITEM KW$LINE2   U(00,24,09);  # LINE 2 MESSAGE ORDINAL #
        ITEM KW$LINE3   U(00,33,09);  # LINE 3 MESSAGE ORDINAL #
        ITEM KW$LINK    U(00,42,18);  # K-QUEUE LINK #
        ITEM KW$PAR     U(01,00,60);  # PARAMETER WORD #
        END 
  
# 
*     A MESSAGE ORDINAL IN *KWORD* CAN BE ACCESSED BY LINE NUMBER.
# 
  
      DEF KW$MSGORD(I) #B<((I)-1)*09+15,09>KW$WORD[0]#; 
  
# 
*     *BKDDCOM* COMMON BLOCK. 
# 
  
      COMMON BKDDCOM; 
  
        BEGIN  # BKDDCOM #
  
# 
*     *KBINPUT* IS THE BUFFER FOR THE KEYBOARD. IT CONTAINS THE 
*     CURRENT RESPONSE FROM THE OPERATOR. 
# 
  
        ARRAY KBINPUT [0:0] S(8);    # KEYBOARD BUFFER #
          BEGIN 
          ITEM KB$SCAN     C(00,00,80);  # FULL RESPONSE #
          ITEM KB$CLEAR    U(00,00,60);  # CLEAR THE RESPONSE # 
          ITEM KB$FILEORD  C(00,36,01);  # *FILES* COMMAND ORDINAL #
          END 
  
        END  # BKDDCOM #
  
      END  # COMBKDD #
  
                                               CONTROL LIST;
