*DECK OUTPUT
PROC OUTPUT (ARGNUM, P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, 
  P13); 
BEGIN 
  # 
    OUTPUT TO LISTING FILE THE ARGUMENTS A THRU H AFTER 
    CONCATENATING THEM TOGETHER. EACH ARGUMENT IS BLANK 
    FILLED TO A WORD AND CANNOT BE MORE THAN 10 CHARS LONG
                                                # 
  
  ITEM ARGNUM I; # NUMBER OF FOLLOWING ARGUMENTS #
  ITEM   P1 C(10),
         P2 C(10),
         P3 C(10),
         P4 C(10),
         P5 C(10),
         P6 C(10),
         P7 C(10),
         P8 C(10),
         P9 C(10),
        P10 C(10),
        P11 C(10),
        P12 C(10),
        P13 C(10);
*CALL ASSEMOP 
CONTROL IFEQ CB5$TIMR,"NO"; 
$BEGIN
CONTROL FI; 
  ITEM I,J;     #TEMPORARIES #
  ARRAY OUT [1:13]; 
    ITEM WORD C(0,0,10);
  XREF PROC CBLIST; 
  
SWITCH SKIP 
         NONE,
        MP1,
        MP2,
        MP3,
        MP4,
        MP5,
        MP6,
        MP7,
        MP8,
        MP9,
       MP10,
       MP11,
       MP12,
       MP13;
          GOTO SKIP [ARGNUM];      #MOVE DATA TO PRINT LINE#
MP13:  WORD [13] = P13; 
MP12:  WORD [12] = P12; 
MP11:  WORD [11] = P11; 
MP10:  WORD [10] = P10; 
MP9:   WORD [09] = P9;
MP8:   WORD [08] = P8;
MP7:   WORD [07] = P7;
MP6:   WORD [06] = P6;
MP5:   WORD [05] = P5;
MP4:   WORD [04] = P4;
MP3:   WORD [03] = P3;
MP2:   WORD [02] = P2;
MP1:   WORD [01] = P1;
  
 NONE:  
    I = ARGNUM * 10;
    CBLIST(1,OUT,I);
 CONTROL IFEQ CB5$TIMR,"NO";
 $END 
 CONTROL FI;
  END 
TERM
