// DATE 111015
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-$PPL
       MACRO
&LABEL $PPL  &FUNC-,&CNT-,&CADDR-
.**********************************************************************
.*                                                                    *
.*TITLE: PPL - PRINTER PARAMETER LIST.                                *
.*                                                                    *
.*STATUS: RELEASE 1                                                   *
.*                                                                    *
.*FUNCTION/OPERATION:                                                 *
.*   THIS MACRO WILL CREATE A PRINTER PARAMETER LIST.                 *
.*                                                                    *
.*INPUT: MACRO USES THE KEYWORD PARAMETERS AS FOLLOWS:                *
.*   FUNC  - PRINTER FUNCTION.                                        *
.*   CADDR - DATA ADDRESS.                                            *
.*   CNT   - PRINT COUNT (OPTIONAL).                                  *
.*                                                                    *
.*OUTPUT:                                                             *
.*   THE GENERATED INSTRUCTIONS CREATE A PPL FOR THE PRINTER IOCS.    *
.*                                                                    *
.*NOTES: THIS MACRO IS PART OF 5703-XM1.                              *
.*                                                                    *
.*HISTORY: 11/10/15 INITIAL VERSION.                                  *
.*         19/06/20 UPDATED VERSION.                                  *
.*                                                                    *
.**********************************************************************
       TEXT
       AIF   (T'&LABEL EQ 'O').NOLBL   . ADVANCE IF NO LABEL.
&LABEL EQU   *                         PRINTER PARAMETER LIST
.*
.NOLBL ANOP
       AIF   (T'&FUNC NE 'O').FNCOK    . FUNC PARM SPECIFIED ?
       DS    CL1                       CONTROL CODE
       AGO   .A
.FNCOK ANOP
       DC    AL1(&FUNC)                REQUESTED FUNCTION
.*
.A     AIF   (T'&CNT EQ 'O').C         . JUMP IF CNT NOT SPECIFIED ?
       DC    AL1(&CNT)                 SECTOR COUNT
       AGO   .CNT00                    . CONTINUE
.C     ANOP
       DC    AL1(*-*)                  SECTOR COUNT
.*
.CNT00 AIF   (T'&CADDR NE 'O').CADOK   . CADDR PARM SPECIFIED ?
       DC    AL2(*-*)                  DATA ADDRESS
       AGO   .MEND
.CADOK ANOP
       DC    AL2(&CADDR)               DATA ADDRESS
.MEND  ANOP
*** END OF EXPANSION ***
       MEND
// CEND
// END
*
// READER CONSOLE