Deck LISTLB

4 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.listlb  +++|          IDENT  LISTLB,FETS
00002  M01S00002.listlb  +++|          ABS
00003  M01S00003.listlb  +++|          ENTRY  LISTLB
00004  M01S00004.listlb  +++|          ENTRY  RFL=
00005  M01S00005.listlb  +++|          ENTRY  ARG=
00006  M01S00006.listlb  +++|          SYSCOM B1
00007  M01S00007.listlb  +++|*COMMENT  LISTLB - LIST MAGNETIC TAPE LABELS.

Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1974.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.listlb  +++|          TITLE  LISTLB - LIST MAGNETIC TAPE LABELS.
00011  M01S00010.listlb  +++|          SPACE  4
00012  M01S00011.listlb  +++|***       LISTLB - LIST MAGNETIC TAPE LABELS.
00013  M01S00012.listlb  +++|*         W. E. GOEBEL.      74/01/21.
00014  M01S00013.listlb  +++|*         R. L. MUELLER.     75/10/15.
00015  M01S00014.listlb  +++|*         L. C. HAAS.        76/09/21.  RESEQUENCE.
00016  M01S00015.listlb  +++|          SPACE  4
00017  M01S00016.listlb  +++|***              LISTLB READS ANSI LABELS ON A SPECIFIED TAPE FILE
00018  M01S00017.listlb  +++|*         AND LISTS THE DESIRED LABELS ON AN OUTPUT FILE.
00019  M01S00001.listl1  +++|*
00020  M01S00002.listl1  +++|*         IF LISTLB IS ABORTED, THE OUTPUT BUFFER IS FLUSHED.
00021  M01S00018.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00019.v23l617 ---|*         CONTROL CARD CALL.
00023  M01S00001.v23l617 +++|*         THE COMMAND.
00024  M01S00020.listlb  +++|*
00025  M01S00021.listlb  +++|*         LISTLB(LFN,P1=VAL1,P2=VAL2,...,PN=VALN)
00026  M01S00022.listlb  +++|*
00027  M01S00023.listlb  +++|*         ARGUMENT PARAMETERS.
00028  M01S00024.listlb  +++|*
00029  M01S00025.listlb  +++|*         LFN                NAME OF THE TAPE FILE.
00030  M01S00026.listlb  +++|*
00031  M01S00027.listlb  +++|*         SI=SETID  OR       MULTI-FILE TAPE PARAMETER AND USED IN
00032  M01S00028.listlb  +++|*         M=SETID            CONJUNCTION WITH THE QN(OR P) PARAMETER
00033  M01S00029.listlb  +++|*                            AS FOLLOWS-
00034  M01S00030.listlb  +++|*                            1. SI .NE. 0 AND QN = 0 - LIST THE LABELS
00035  M01S00031.listlb  +++|*                               OF ALL FILES IN THE MULTI-FILE SET
00036  M01S00032.listlb  +++|*                               WITH SET IDENTIFIER = *SETID*.
00037  M01S00033.listlb  +++|*                            2. SI .NE. 0 AND QN = N -  LIST ONLY THE
00038  M01S00034.listlb  +++|*                               LABELS FOR FILE N OF THE MULTI-FILE SET.

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00035.v23l617 ---|*                            3. SI = 0 AND QN .NE. 0 -  ILLEGAL COM-
00040  M01S00002.v23l617 +++|*                            3. SI = 0 AND QN .NE. 0 -  INCORRECT COM-
00041  M01S00036.listlb  +++|*                               BINATION - JOB WILL BE ABORTED.
00042  M01S00037.listlb  +++|*
00043  M01S00038.listlb  +++|*         QN=SEQNO  OR       MULTI-FILE TAPE PARAMETER AND USED IN
00044  M01S00039.listlb  +++|*         P=SEQNO            CONJUNCTION WITH THE SI(OR M) PARAMETER.
00045  M01S00040.listlb  +++|*                            (SEE ABOVE)
00046  M01S00041.listlb  +++|*
00047  M01S00042.listlb  +++|*         LO=AROVHFEU        A - LIST ALL LABELS.
00048  M01S00043.listlb  +++|*                            R - LIST ALL REQUIRED LABELS.
00049  M01S00044.listlb  +++|*                                VOL1,HDR1,EOF1,EOV1.
00050  M01S00045.listlb  +++|*                            O - LIST ALL OPTIONAL LABELS.
00051  M01S00046.listlb  +++|*                                VOL2-9,HDR2-9,EOF2-9,EOV2-9,
00052  M01S00047.listlb  +++|*                                UVLN,UHLX,UTLX.
00053  M01S00048.listlb  +++|*                            V - LIST ALL VOLN LABELS.
00054  M01S00049.listlb  +++|*                            H - LIST ALL HDRN LABELS.
00055  M01S00050.listlb  +++|*                            F - LIST ALL EOFN LABELS.
00056  M01S00051.listlb  +++|*                            E - LIST ALL EOVN LABELS.
00057  M01S00052.listlb  +++|*                            U - LIST ALL UVL,UHL,UTL LABELS.
00058  M01S00053.listlb  +++|*
00059  M01S00054.listlb  +++|*         L=FILENAM          LIST LABELS ON FILE FILENAM.
00060  M01S00055.listlb  +++|*
00061  M01S00056.listlb  +++|*         DEFAULTS           LFN = TAPE
00062  M01S00057.listlb  +++|*                            LO = A
00063  M01S00058.listlb  +++|*                            L = OUTPUT
00064  M01S00059.listlb  +++|          SPACE  10
00065  M01S00060.listlb  +++|***       DAYFILE MESSAGES.
00066  M01S00061.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00062.v23l617 ---|*         * CONTROL CARD ERROR.* = UNABLE TO INTERPRET CONTROL CARD.
00068  M01S00003.v23l617 +++|*         * COMMAND ERROR.* = UNABLE TO INTERPRET COMMAND.
00069  M01S00063.listlb  +++|*
00070  M01S00064.listlb  +++|*         * FILE NAME ERROR.* = FILE NAME IS TOO LONG.
00071  M01S00065.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00066.v23l617 ---|*         * ILLEGAL PARAMETER.* = PARAMETER IS IN ERROR.
00073  M01S00004.v23l617 +++|*         * INCORRECT PARAMETER.* = PARAMETER IS IN ERROR.
00074  M01S00067.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00068.v23l617 ---|*         * ILLEGAL COMBINATION OF QN/SI.* = PLEASE SPECIFY A *SETID*.
00076  M01S00005.v23l617 +++|*         * INCORRECT COMBINATION OF QN/SI.* = PLEASE SPECIFY *SETID*.
00077  M01S00069.listlb  +++|*
00078  M01S00070.listlb  +++|*         * LISTLB ABORT.* = CHECK DAYFILE FOR REASON.
00079  M01S00071.listlb  +++|*
00080  M01S00072.listlb  +++|*         * NO HDR1 LABEL RETURNED ON OPEN.* = NOTIFY CDC ANALYST.
00081  M01S00073.listlb  +++|*
00082  M01S00074.listlb  +++|*         * LISTLB COMPLETE.*
00083  M01S00075.listlb  +++|          TITLE  ASSEMBLY CONSTANTS AND FETS.
00084  M01S00076.listlb  +++|
00085  M01S00077.listlb  +++|*CALL     COMCMAC
00086  M01S00001.ns22000 +++|*CALL     COMCCMD
00087  M01S00078.listlb  +++|
00088  M01S00079.listlb  +++|****      ASSEMBLY CONSTANTS.
00089  M01S00080.listlb  +++|
00090  M01S00081.listlb  +++|
00091  M01S00082.listlb  +++| TBUFL    EQU    1*9+9*9+9*9+64*9+1
00092  M01S00083.listlb  +++| OBUFL    EQU    1001B
00093  M01S00084.listlb  +++|
00094  M01S00085.listlb  +++|
00095  M01S00086.listlb  +++|****
00096  M01S00087.listlb  +++|
00097  M01S00088.listlb  +++|          ORG    110B
00098  M01S00089.listlb  +++|
00099  M01S00090.listlb  +++|*         FETS.
00100  M01S00091.listlb  +++|
00101  M01S00092.listlb  +++| FETS     BSS    0
00102  M01S00093.listlb  +++|
00103  M01S00094.listlb  +++| T        BSS    0           TAPE FILE
00104  M01S00095.listlb  +++| TAPE     FILEB  TBUF,TBUFL,(FET=10),XL,UPR
00105  M01S00096.listlb  +++|
00106  M01S00097.listlb  +++| O        BSS    0           LIST FILE
00107  M01S00098.listlb  +++| OUTPUT   FILEB  OBUF,OBUFL,(FET=8)
00108  M01S00099.listlb  +++|          TITLE  MAIN ROUTINE.
00109  M01S00100.listlb  +++| LISTLB   SPACE  4
00110  M01S00101.listlb  +++|**        LISTLB - MAIN ROUTINE.
00111  M01S00102.listlb  +++|
00112  M01S00103.listlb  +++|
00113  M01S00104.listlb  +++| LISTLB   BSS    0
00114  M01S00105.listlb  +++|          RJ     PRS
00115  M01S00106.listlb  +++|          MX6    0           CLEAR XL BUFFER
00116  M01S00107.listlb  +++|          SA6    TBUF
00117  M01S00108.listlb  +++|          SA1    QN
00118  M01S00109.listlb  +++|          NZ     X1,LIS1     IF MULTI-FILE AND 1 FILE WANTED
00119  M01S00110.listlb  +++|          OPEN   T,ALTER,R   OPEN FILE - GET HEADER GROUP LABELS
00120  M01S00111.listlb  +++|          SA1    SI          CHECK FOR MULTI-FILE
00121  M01S00112.listlb  +++|          ZR     X1,LIS2     IF NOT MULTI-FILE TAPE
00122  M01S00113.listlb  +++|          RJ     FHR         FIND *HDR1* LABEL
00123  M01S00114.listlb  +++|          SA1    TBUF+B2+4   GET FILE SEQUENCE NUMBER
00124  M01S00115.listlb  +++|          MX0    24
00125  M01S00116.listlb  +++|          LX1    6
00126  M01S00117.listlb  +++|          BX5    X0*X1
00127  M01S00118.listlb  +++|          SB7    B1
00128  M01S00119.listlb  +++|          RJ     DXB         CONVERT TO BINARY
00129  M01S00120.listlb  +++|          SA6    SN
00130  M01S00121.listlb  +++|          EQ     LIS2        PRINT LABELS FROM XL BUFFER
00131  M01S00122.listlb  +++|
00132  M01S00123.listlb  +++| LIS1     RJ     SHD         SET UP *HDR1* LABEL IN EXTENDED BUFFER
00133  M01S00124.listlb  +++|          MX2    1           CLEAR *UP* BIT TO ALLOW AUTO REEL SWAP
00134  M01S00125.listlb  +++|          SA1    T+1
00135  M01S00126.listlb  +++|          LX2    45+1
00136  M01S00127.listlb  +++|          BX6    -X2*X1
00137  M01S00128.listlb  +++|          SA6    A1
00138  M01S00129.listlb  +++|          SA1    T+1         SET *EPR* BIT IN FET
00139  M01S00130.listlb  +++|          MX6    1
00140  M01S00131.listlb  +++|          LX6    44-59       SET EPR BIT
00141  M01S00132.listlb  +++|          BX6    X6+X1
00142  M01S00133.listlb  +++|          SA6    A1          STORE BACK IN FET
00143  M01S00134.listlb  +++|          POSMF  T,R         POSITION FILE - GET HEADER LABELS
00144  M01S00135.listlb  +++|          SA1    T+1         CLEAR *EPR* BIT IN FET
00145  M01S00136.listlb  +++|          MX6    1
00146  M01S00137.listlb  +++|          LX6    44-59       CLEAR EPR BIT
00147  M01S00138.listlb  +++|          BX6    -X6*X1
00148  M01S00139.listlb  +++|          SA6    A1          STORE BACK IN FET
00149  M01S00140.listlb  +++|          SA1    A1-B1       CHECK FET STATUS
00150  M01S00141.listlb  +++|          AX1    9
00151  M01S00142.listlb  +++|          MX2    -5
00152  M01S00143.listlb  +++|          BX1    -X2*X1      GET FET STATUS BITS 13-9
00153  M01S00144.listlb  +++|          SX2    X1-21B      CHECK FOR END-OF-SET
00154  M01S00145.listlb  +++|          ZR     X2,LIS5     IF END-OF-MULTIFILE SET
00155  M01S00146.listlb  +++|          NZ     X1,LIS6     IF ANY OTHER ERROR
00156  M01S00147.listlb  +++|          MX2    1           NOW RESET *UP* BIT
00157  M01S00148.listlb  +++|          SA1    T+1
00158  M01S00149.listlb  +++|          LX2    45+1
00159  M01S00150.listlb  +++|          BX6    X1+X2
00160  M01S00151.listlb  +++|          SA6    A1
00161  M01S00152.listlb  +++| LIS2     RJ     PXL         PRINT LABELS FROM XL BUFFER
00162  M01S00153.listlb  +++|          SA1    TF
00163  M01S00154.listlb  +++|          ZR     X1,LIS4     IF IGNORE TRAILER LABELS
00164  M01S00155.listlb  +++|          SKIPEI T,R         SKIP TO EOI
00165  M01S00156.listlb  +++|          SX5    TBUF-9
00166  M01S00157.listlb  +++|          SA1    T           CHECK FOR END-OF-REEL
00167  M01S00158.listlb  +++|          LX1    59-10
00168  M01S00159.listlb  +++|          PL     X1,LIS3     IF NOT AT END-OF-REEL
00169  M01S00160.listlb  +++|          CLOSER T,,R        CLOSE REEL - GET TRAILER LABELS
00170  M01S00161.listlb  +++|          RJ     PXL         PRINT LABELS FROM XL BUFFER
00171  M01S00162.listlb  +++|          OPEN   T,REELNR,R  OPEN NEXT REEL - GET HEADER LABELS
00172  M01S00163.listlb  +++|          EQ     LIS2
00173  M01S00164.listlb  +++|
00174  M01S00165.listlb  +++| LIS3     CLOSE  T,NR,R      CLOSE FILE - GET TRAILER LABELS
00175  M01S00166.listlb  +++|          RJ     PXL         PRINT LABELS FROM XL BUFFER
00176  M01S00167.listlb  +++| LIS4     SA1    SI          CHECK FOR SETID
00177  M01S00168.listlb  +++|          ZR     X1,LIS5     IF NO SET ID SPECIFIED
00178  M01S00169.listlb  +++|          SA1    QN          NUMBER OF DESIRED FILE
00179  M01S00170.listlb  +++|          NZ     X1,LIS5     IF ONLY ONE FILE WANTED
00180  M01S00171.listlb  +++|          SA1    SN          INCREMENT SEQUENCE NUMBER
00181  M01S00172.listlb  +++|          SX6    X1+1
00182  M01S00173.listlb  +++|          SA6    A1
00183  M01S00174.listlb  +++|          EQ     LIS1        GO PROCESS MORE LABELS
00184  M01S00175.listlb  +++|
00185  M01S00176.listlb  +++| LIS5     SA1    LR          LABELS READ
00186  M01S00177.listlb  +++|          RJ     CDD
00187  M01S00178.listlb  +++|          SA6    LBR
00188  M01S00179.listlb  +++|          SA1    LP          LABELS PRINTED
00189  M01S00180.listlb  +++|          RJ     CDD
00190  M01S00181.listlb  +++|          SA6    LBP
00191  M01S00182.listlb  +++|          WRITEW O,LRP,LRPL
00192  M01S00183.listlb  +++|          WRITER X2
00193  M01S00184.listlb  +++|          SA1    EF
00194  M01S00185.listlb  +++|          NZ     X1,LIS7     IF ERROR FLAG SET
00195  M01S00186.listlb  +++|          MESSAGE  (=C* LISTLB COMPLETE.*)
00196  M01S00187.listlb  +++|          ENDRUN
00197  M01S00188.listlb  +++|
00198  M01S00189.listlb  +++|*         ENTER HERE AFTER ERROR CONDITION
00199  M01S00190.listlb  +++|
00200  M01S00191.listlb  +++| LIS6     SX6    B1          SET ERROR FLAG
00201  M01S00192.listlb  +++|          SA6    EF
00202  M01S00193.listlb  +++|          EQ     LIS5
00203  M01S00194.listlb  +++|
00204  M01S00195.listlb  +++| LIS7     MESSAGE  (=C* LISTLB ABORT.*)
00205  M01S00196.listlb  +++|          ABORT
00206  M01S00197.listlb  +++|          TITLE  SUBROUTINES.
00207  M01S00198.listlb  +++|**        COV - CONVERT OCTAL NUMBER TO DECIMAL DISPLAY CODE
00208  M01S00199.listlb  +++|*
00209  M01S00200.listlb  +++|*         ENTRY  (X1) = OCTAL NUMBER.
00210  M01S00201.listlb  +++|*
00211  M01S00202.listlb  +++|*         EXIT   (X6) = DISPLAY CODE VALUE RIGHT JUSTIFIED WITH
00212  M01S00203.listlb  +++|*                       LEADING ZEROS (4 DIGITS ONLY).
00213  M01S00204.listlb  +++|*
00214  M01S00205.listlb  +++|*         USES   X - 0, 1, 2, 3, 6.
00215  M01S00206.listlb  +++|*                B - 4.
00216  M01S00207.listlb  +++|*                A - NONE.
00217  M01S00208.listlb  +++|*
00218  M01S00209.listlb  +++|*         CALLS  CDD.
00219  M01S00210.listlb  +++|
00220  M01S00211.listlb  +++|
00221  M01S00212.listlb  +++| COV      SUBR               ENTRY/EXIT
00222  M01S00213.listlb  +++|          RJ     CDD         CONVERT VALUE TO DISPLAY CODE
00223  M01S00214.listlb  +++|          LX6    36
00224  M01S00215.listlb  +++|          BX1    X6
00225  M01S00216.listlb  +++|          MX6    0
00226  M01S00217.listlb  +++|          MX2    -6
00227  M01S00218.listlb  +++|          SB4    4
00228  M01S00219.listlb  +++| COV1     LX6    6
00229  M01S00220.listlb  +++|          LX1    6
00230  M01S00221.listlb  +++|          BX3    -X2*X1      MASK OFF A CHARACTER
00231  M01S00222.listlb  +++|          SX0    X3-1R       CHECK FOR SPACE (BLANK)
00232  M01S00223.listlb  +++|          NZ     X0,COV2     IF NO SPACE
00233  M01S00224.listlb  +++|          SX3    1R0         REPLACE WITH 0
00234  M01S00225.listlb  +++| COV2     BX6    X6+X3
00235  M01S00226.listlb  +++|          SB4    B4-B1
00236  M01S00227.listlb  +++|          NZ     B4,COV1     IF MORE CHARACTERS TO DO
00237  M01S00228.listlb  +++|          EQ     COVX        RETURN
00238  M01S00229.listlb  +++| FHR      SPACE  4,10
00239  M01S00230.listlb  +++|**        FHR - SEARCH LABEL BUFFER FOR *HDR1* LABEL.
00240  M01S00231.listlb  +++|*
00241  M01S00232.listlb  +++|*         ENTRY  TBUF CONTAINS HEADER GROUP LABELS.
00242  M01S00233.listlb  +++|*
00243  M01S00234.listlb  +++|*         EXIT   (B2) = INDEX IN TBUF OF *HDR1* LABEL.
00244  M01S00235.listlb  +++|*
00245  M01S00236.listlb  +++|*         USES   X - 0, 1, 2, 3.
00246  M01S00237.listlb  +++|*                B - 2, 7.
00247  M01S00238.listlb  +++|*                A - 1, 2, 3.
00248  M01S00239.listlb  +++|
00249  M01S00240.listlb  +++|
00250  M01S00241.listlb  +++| FHR      SUBR               ENTRY/EXIT
00251  M01S00242.listlb  +++|          SB2    B0
00252  M01S00243.listlb  +++|          MX0    24
00253  M01S00244.listlb  +++|          SA3    =4LHDR1
00254  M01S00245.listlb  +++| FHR1     SA1    TBUF+B2     GET CHARACTER COUNT
00255  M01S00246.listlb  +++|          MX2    -12
00256  M01S00247.listlb  +++|          BX1    -X2*X1
00257  M01S00248.listlb  +++|          ZR     X1,FHR2     IF NO *HDR1* LABEL
00258  M01S00249.listlb  +++|          SA2    A1+B1       GET LABEL ID
00259  M01S00250.listlb  +++|          BX2    X0*X2
00260  M01S00251.listlb  +++|          BX2    X2-X3       CHECK IF *HDR1*
00261  M01S00252.listlb  +++|          ZR     X2,FHRX     IF FOUND *HDR1* LABEL
00262  M01S00253.listlb  +++|          SX1    X1+9        CALCULATE WORD COUNT OF LABEL
00263  M01S00254.listlb  +++|          SX2    10
00264  M01S00255.listlb  +++|          IX1    X1/X2
00265  M01S00256.listlb  +++|          SB2    B2+B1       INCREMENT TO FIRST WORD OF LABEL
00266  M01S00257.listlb  +++|          SB2    B2+X1       INCREMENT TO CHARACTER COUNT OF NEXT LABEL
00267  M01S00258.listlb  +++|          EQ     FHR1        LOOP
00268  M01S00259.listlb  +++|
00269  M01S00260.listlb  +++| FHR2     MESSAGE  (=C* NO HDR1 LABEL RETURNED ON OPEN.*)
00270  M01S00261.listlb  +++|          EQ     LIS6        TERMINATE JOB
00271  M01S00262.listlb  +++|          SPACE  4
00272  M01S00263.listlb  +++|**        FLT - FIND LABEL TYPE.
00273  M01S00264.listlb  +++|*
00274  M01S00265.listlb  +++|*         ENTRY  (X5) = ADDRESS OF FIRST WORD OF LABEL.
00275  M01S00266.listlb  +++|*
00276  M01S00267.listlb  +++|*         EXIT   (B4) = POSITION OF LABEL TYPE IN TABLE.
00277  M01S00268.listlb  +++|*                (B4) = 0 IF LABEL TYPE NOT FOUND.
00278  M01S00269.listlb  +++|*
00279  M01S00270.listlb  +++|*         USES   X - 1, 2, 3.
00280  M01S00271.listlb  +++|*                B - 3, 4, 6, 7.
00281  M01S00272.listlb  +++|*                A - 1, 2.
00282  M01S00273.listlb  +++|
00283  M01S00274.listlb  +++|
00284  M01S00275.listlb  +++| FLT      SUBR               ENTRY/EXIT
00285  M01S00276.listlb  +++|          SA1    X5+B1
00286  M01S00277.listlb  +++|          SB3    TLAB
00287  M01S00278.listlb  +++|          SB4    B0
00288  M01S00279.listlb  +++|          SB6    TLABA
00289  M01S00280.listlb  +++|          SB7    TLABL-1
00290  M01S00281.listlb  +++| FLT1     SB4    B4+B1
00291  M01S00282.listlb  +++|          SA2    B3+B4
00292  M01S00283.listlb  +++|          BX3    X1-X2
00293  M01S00284.listlb  +++|          AX3    36
00294  M01S00285.listlb  +++|          ZR     X3,FLTX     IF MATCH ON FOUR CHARACTERS
00295  M01S00286.listlb  +++|          LT     B4,B6,FLT1  IF NOT END OF FOUR CHARACTER ENTRIES
00296  M01S00287.listlb  +++| FLT2     SB4    B4+B1
00297  M01S00288.listlb  +++|          SA2    B3+B4
00298  M01S00289.listlb  +++|          BX3    X1-X2
00299  M01S00290.listlb  +++|          AX3    42
00300  M01S00291.listlb  +++|          ZR     X3,FLTX     IF MATCH ON THREE CHARACTERS - RETURN
00301  M01S00292.listlb  +++|          LT     B4,B7,FLT2  IF NOT END OF TABLE
00302  M01S00293.listlb  +++|          SB4    B0
00303  M01S00294.listlb  +++|          EQ     FLTX        ERROR EXIT
00304  M01S00295.listlb  +++| PHE      SPACE  4
00305  M01S00296.listlb  +++|**        PHE - PROCESS HDR1, EOF1, EOV1 PARAMETERS.
00306  M01S00297.listlb  +++|*
00307  M01S00298.listlb  +++|*         ENTRY  (LAB - LAB+7) = EIGHT WORD LABEL BLOCK.
00308  M01S00299.listlb  +++|*
00309  M01S00300.listlb  +++|*         EXIT   (HEP - HEP+9) = OUTPUT LINE WITH PARAMETERS MERGED IN.
00310  M01S00301.listlb  +++|*
00311  M01S00302.listlb  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
00312  M01S00303.listlb  +++|*                B - 6, 7.
00313  M01S00304.listlb  +++|*                A - 1, 2, 3, 4, 6, 7.
00314  M01S00305.listlb  +++|
00315  M01S00306.listlb  +++|
00316  M01S00307.listlb  +++| PHE      BSS    0           ENTRY
00317  M01S00308.listlb  +++|          SA1    LAB         MOVE LABEL PARAMETERS TO OUTPUT LINE
00318  M01S00309.listlb  +++|          SA3    HEP
00319  M01S00310.listlb  +++|          MX0    -36
00320  M01S00311.listlb  +++|          SA2    A1+B1
00321  M01S00312.listlb  +++|          BX1    -X0*X1
00322  M01S00313.listlb  +++|          BX3    X0*X3
00323  M01S00314.listlb  +++|          LX7    X2          CHARACTERS 7-16 FILE IDENTIFIER
00324  M01S00315.listlb  +++|          BX6    X3+X1       MERGE CHARACTERS 1-6 FILE IDENTIFIER
00325  M01S00316.listlb  +++|          SA1    A2+B1
00326  M01S00317.listlb  +++|          SA7    A3+B1
00327  M01S00318.listlb  +++|          SA6    A3
00328  M01S00319.listlb  +++|          SA3    A7+B1
00329  M01S00320.listlb  +++|          MX0    6
00330  M01S00321.listlb  +++|          BX6    X0*X1
00331  M01S00322.listlb  +++|          BX3    -X0*X3
00332  M01S00323.listlb  +++|          SA4    A3+B1
00333  M01S00324.listlb  +++|          BX3    X6+X3       MERGE CHARACTER 17 FILE IDENTIFIER
00334  M01S00325.listlb  +++|          LX1    30
00335  M01S00326.listlb  +++|          MX0    -24
00336  M01S00327.listlb  +++|          BX6    -X0*X1
00337  M01S00328.listlb  +++|          BX3    X0*X3
00338  M01S00329.listlb  +++|          MX0    12
00339  M01S00330.listlb  +++|          BX6    X6+X3       MERGE CHARACTERS 1-4 SET IDENTIFIER
00340  M01S00331.listlb  +++|          SA6    A7+B1
00341  M01S00332.listlb  +++|          BX4    -X0*X4
00342  M01S00333.listlb  +++|          BX7    X0*X1
00343  M01S00334.listlb  +++|          AX1    30
00344  M01S00335.listlb  +++|          SA2    A1+B1
00345  M01S00336.listlb  +++|          BX4    X4+X7       MERGE CHARACTERS 5-6 SET IDENTIFIER
00346  M01S00337.listlb  +++|          MX0    -18
00347  M01S00338.listlb  +++|          BX1    -X0*X1
00348  M01S00339.listlb  +++|          BX4    X0*X4
00349  M01S00340.listlb  +++|          BX7    X4+X1       MERGE CHARACTERS 1-3 SECTION NUMBER
00350  M01S00341.listlb  +++|          SA7    A6+B1
00351  M01S00342.listlb  +++|          MX0    6
00352  M01S00343.listlb  +++|          SA3    A4+B1
00353  M01S00344.listlb  +++|          BX6    X0*X2
00354  M01S00345.listlb  +++|          BX3    -X0*X3
00355  M01S00346.listlb  +++|          LX2    30
00356  M01S00347.listlb  +++|          BX3    X3+X6       MERGE CHARACTER 4 SECTION NUMBER
00357  M01S00348.listlb  +++|          MX0    -24
00358  M01S00349.listlb  +++|          BX6    -X0*X2
00359  M01S00350.listlb  +++|          SA4    A3+B1
00360  M01S00351.listlb  +++|          BX3    X0*X3
00361  M01S00352.listlb  +++|          MX0    24
00362  M01S00353.listlb  +++|          BX6    X3+X6       MERGE SEQUENCE NUMBER
00363  M01S00354.listlb  +++|          BX7    X0*X2
00364  M01S00355.listlb  +++|          SA6    A3
00365  M01S00356.listlb  +++|          LX0    -24
00366  M01S00357.listlb  +++|          SA3    A4+B1
00367  M01S00358.listlb  +++|          LX7    -24
00368  M01S00359.listlb  +++|          SA1    A2+B1
00369  M01S00360.listlb  +++|          BX4    -X0*X4
00370  M01S00361.listlb  +++|          MX0    6
00371  M01S00362.listlb  +++|          BX7    X4+X7       MERGE GENERATION NUMBER
00372  M01S00363.listlb  +++|          LX2    24
00373  M01S00364.listlb  +++|          SA7    A6+B1
00374  M01S00365.listlb  +++|          BX6    X0*X1
00375  M01S00366.listlb  +++|          BX2    X0*X2
00376  M01S00367.listlb  +++|          MX0    12
00377  M01S00368.listlb  +++|          LX2    6
00378  M01S00369.listlb  +++|          BX6    X6+X2
00379  M01S00370.listlb  +++|          LX0    -12
00380  M01S00371.listlb  +++|          LX6    42
00381  M01S00372.listlb  +++|          BX3    -X0*X3
00382  M01S00373.listlb  +++|          LX1    6
00383  M01S00374.listlb  +++|          MX0    6
00384  M01S00375.listlb  +++|          BX3    X3+X6       MERGE GENERATION VERSION NUMBER
00385  M01S00376.listlb  +++|          AX3    6
00386  M01S00377.listlb  +++|          SA2    A1+B1
00387  M01S00378.listlb  +++|          BX0    X0*X1
00388  M01S00379.listlb  +++|          BX6    X0+X3       MERGE CHARACTER 1 CREATION DATE
00389  M01S00380.listlb  +++|          SA4    A3+B1
00390  M01S00381.listlb  +++|          LX6    6
00391  M01S00382.listlb  +++|          MX0    30
00392  M01S00383.listlb  +++|          SA6    A7+B1
00393  M01S00384.listlb  +++|          BX4    -X0*X4
00394  M01S00385.listlb  +++|          LX1    6
00395  M01S00386.listlb  +++|          SA3    A4+B1
00396  M01S00387.listlb  +++|          BX7    X0*X1
00397  M01S00388.listlb  +++|          MX0    36
00398  M01S00389.listlb  +++|          BX7    X4+X7       MERGE CHARACTERS 2-6 CREATION DATE
00399  M01S00390.listlb  +++|          AX1    12
00400  M01S00391.listlb  +++|          BX3    -X0*X3
00401  M01S00392.listlb  +++|          SA7    A6+B1
00402  M01S00393.listlb  +++|          SA4    A3+B1
00403  M01S00394.listlb  +++|          MX0    18
00404  M01S00395.listlb  +++|          BX6    X0*X2
00405  M01S00396.listlb  +++|          LX0    18
00406  M01S00397.listlb  +++|          BX1    X0*X1
00407  M01S00398.listlb  +++|          MX0    6
00408  M01S00399.listlb  +++|          BX6    X6+X1
00409  M01S00400.listlb  +++|          LX6    42
00410  M01S00401.listlb  +++|          BX6    X6+X3       MERGE EXPIRATION DATE
00411  M01S00402.listlb  +++|          LX0    -6
00412  M01S00403.listlb  +++|          BX4    -X0*X4
00413  M01S00404.listlb  +++|          LX2    12
00414  M01S00405.listlb  +++|          SA6    A7+B1
00415  M01S00406.listlb  +++|          BX2    X0*X2
00416  M01S00407.listlb  +++|          BX7    X2+X4       MERGE FILE ACCESSIBILITY
00417  M01S00408.listlb  +++|          SA7    A6+B1
00418  M01S00409.listlb  +++|          SB6    HEP-1
00419  M01S00410.listlb  +++|          SB7    HEPL+1
00420  M01S00411.listlb  +++|          EQ     PRL4        RETURN
00421  M01S00412.listlb  +++| PRL      SPACE  4
00422  M01S00413.listlb  +++|**        PRL - PRINT LABEL.
00423  M01S00414.listlb  +++|*
00424  M01S00415.listlb  +++|*         ENTRY  (A0) = POSITION OF LABEL TYPE IN TABLE.
00425  M01S00416.listlb  +++|*                (B4) = (A0) = POSITION OF LABEL TYPE IN TLAB.
00426  M01S00417.listlb  +++|*                (X5) = POSITION OF LABEL IN BUFFER.
00427  M01S00418.listlb  +++|*
00428  M01S00419.listlb  +++|*         EXIT   NONE.
00429  M01S00420.listlb  +++|*
00430  M01S00421.listlb  +++|*         USES   X - 0, 1, 2, 3, 6, 7.
00431  M01S00422.listlb  +++|*                B - 2, 4, 5, 6, 7.
00432  M01S00423.listlb  +++|*                A - 1, 2, 3, 6, 7.
00433  M01S00424.listlb  +++|*
00434  M01S00425.listlb  +++|*         CALLS  MVE=, PHE, PVE, WHL, WTW=.
00435  M01S00426.listlb  +++|
00436  M01S00427.listlb  +++|
00437  M01S00428.listlb  +++| PRL      SUBR               ENTRY/EXIT
00438  M01S00429.listlb  +++|          SA1    A0+TLAB     ENTER LABEL TYPE
00439  M01S00430.listlb  +++|          SA2    LIN+1
00440  M01S00431.listlb  +++|          MX0    4*6
00441  M01S00432.listlb  +++|          BX2    -X0*X2
00442  M01S00433.listlb  +++|          BX1    X0*X1
00443  M01S00434.listlb  +++|          BX6    X1+X2
00444  M01S00435.listlb  +++|          SA6    A2
00445  M01S00436.listlb  +++|          MOVE   8,X5+B1,LAB
00446  M01S00437.listlb  +++|          SA2    LC

Seq #  *Modification Id* Act 
----------------------------+
00447  M02S00438.ns22000 ---|          SX3    X2-LINP+2
00448  M01S00002.ns22000 +++|          SA3    A2+B1
00449  M01S00003.ns22000 +++|          IX3    X2-X3
00450  M01S00439.listlb  +++|          NG     X3,PRL1     IF NOT END OF PAGE
00451  M01S00440.listlb  +++|          RJ     WHL         PROCESS END OF PAGE
00452  M01S00441.listlb  +++| PRL1     SA2    LC
00453  M01S00442.listlb  +++|          SX6    X2+2
00454  M01S00443.listlb  +++|          SA6    A2
00455  M01S00444.listlb  +++|          SB4    A0
00456  M01S00445.listlb  +++|          SA3    TITL+5      BLANK WORD
00457  M01S00446.listlb  +++|          NZ     B4,PRL2     IF STANDARD LABEL TYPE
00458  M01S00447.listlb  +++|          SA3    NSL
00459  M01S00448.listlb  +++| PRL2     BX6    X3
00460  M01S00449.listlb  +++|          SA6    LIN
00461  M01S00450.listlb  +++|          WRITEW O,A6,LINL
00462  M01S00451.listlb  +++|          SB4    A0+
00463  M01S00452.listlb  +++|          SB5    10B
00464  M01S00453.listlb  +++|          GT     B4,B5,PRLX  IF NO MORE LABEL PROCESSING
00465  M01S00454.listlb  +++|          ZR     B4,PRLX     IF NO MORE LABEL PROCESSING
00466  M01S00455.listlb  +++|          SA1    A0+TLAB     CHECK SPECIAL PROCESSING REQUIRED
00467  M01S00456.listlb  +++|          LX1    59-35+18
00468  M01S00457.listlb  +++|          SB2    X1          ADDRESS OF LABEL PRINT PROCESSOR
00469  M01S00458.listlb  +++|          ZR     B2,PRLX     IF NO SPECIAL PROCESSING REQUIRED
00470  M01S00459.listlb  +++|          JP     B2          GO TO CORRECT PROCESSOR
00471  M01S00460.listlb  +++|
00472  M01S00461.listlb  +++| PRL4     BSS    0           RETURN HERE
00473  M01S00462.listlb  +++|          SA2    LC

Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00463.ns22000 ---|          SX6    X2-LINP+2
00475  M01S00004.ns22000 +++|          SA1    A2+B1
00476  M01S00005.ns22000 +++|          IX6    X2-X1
00477  M01S00464.listlb  +++|          NG     X6,PRL5     IF NOT END OF PAGE
00478  M01S00465.listlb  +++|          SX6    B6
00479  M01S00466.listlb  +++|          SX7    B7
00480  M01S00467.listlb  +++|          SA6    PRLA        SAVE (B6)
00481  M01S00468.listlb  +++|          SA7    A6+B1       SAVE (B7)
00482  M01S00469.listlb  +++|          RJ     WHL         WRITE HEADER LINE
00483  M01S00470.listlb  +++|          SA1    PRLA        RESTORE (B6) AND (B7)
00484  M01S00471.listlb  +++|          SA2    A1+B1
00485  M01S00472.listlb  +++|          SB6    X1
00486  M01S00473.listlb  +++|          SB7    X2
00487  M01S00474.listlb  +++| PRL5     SA3    LC          INCREMENT LINE COUNT
00488  M01S00475.listlb  +++|          SX6    X3+2
00489  M01S00476.listlb  +++|          SA6    A3
00490  M01S00477.listlb  +++|          WRITEW O,B6,B7     WRITE PARAMETER LINE
00491  M01S00478.listlb  +++|          EQ     PRLX        RETURN
00492  M01S00479.listlb  +++|
00493  M01S00480.listlb  +++| PRLA     BSS    2           REGISTER SAVE AREA
00494  M01S00481.listlb  +++| PVE      SPACE  4
00495  M01S00482.listlb  +++|**        PVE - PROCESS VOL1 PARAMETERS.
00496  M01S00483.listlb  +++|*
00497  M01S00484.listlb  +++|*         ENTRY  (LAB - LAB+7) = EIGHT WORD LABEL BLOCK.
00498  M01S00485.listlb  +++|*
00499  M01S00486.listlb  +++|*         EXIT   (VEP - VEP+4) = OUTPUT LINE WITH PARAMETERS MERGED IN.
00500  M01S00487.listlb  +++|*
00501  M01S00488.listlb  +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
00502  M01S00489.listlb  +++|*                B - 2, 6, 7.
00503  M01S00490.listlb  +++|*                A - 1, 2, 3, 4, 6, 7.
00504  M01S00491.listlb  +++|
00505  M01S00492.listlb  +++|
00506  M01S00493.listlb  +++| PVE      BSS    0           ENTRY
00507  M01S00494.listlb  +++|          SA1    LAB         MOVE LABEL PARAMETERS TO OUTPUT LINE
00508  M01S00495.listlb  +++|          MX0    -30
00509  M01S00496.listlb  +++|          SB2    B1+B1
00510  M01S00497.listlb  +++|          SA2    A1+B1
00511  M01S00498.listlb  +++|          SA3    VEP
00512  M01S00499.listlb  +++|          LX1    -6
00513  M01S00500.listlb  +++|          SA4    A3+B1
00514  M01S00501.listlb  +++|          BX3    X0*X3
00515  M01S00502.listlb  +++|          BX6    -X0*X1
00516  M01S00503.listlb  +++|          MX0    6
00517  M01S00504.listlb  +++|          BX6    X6+X3       MERGE CHARACTERS 1-5 VSN
00518  M01S00505.listlb  +++|          BX4    -X0*X4
00519  M01S00506.listlb  +++|          SA6    A3
00520  M01S00507.listlb  +++|          BX1    X0*X1
00521  M01S00508.listlb  +++|          BX2    X0*X2
00522  M01S00509.listlb  +++|          LX0    -36
00523  M01S00510.listlb  +++|          BX4    X1+X4       MERGE CHARACTER 6 VSN
00524  M01S00511.listlb  +++|          LX2    -36
00525  M01S00512.listlb  +++|          BX4    -X0*X4
00526  M01S00513.listlb  +++|          SA1    A2+B2
00527  M01S00514.listlb  +++|          BX7    X4+X2       MERGE ACCESSIBILITY
00528  M01S00515.listlb  +++|          SA3    A4+B1
00529  M01S00516.listlb  +++|          SA2    A1+B1
00530  M01S00517.listlb  +++|          SA7    A6+B1
00531  M01S00518.listlb  +++|          MX0    -18
00532  M01S00519.listlb  +++|          BX7    X2          CHARACTERS 4-13 OWNER IDENTIFIER
00533  M01S00520.listlb  +++|          BX1    -X0*X1
00534  M01S00521.listlb  +++|          SA4    A3+B2
00535  M01S00522.listlb  +++|          BX6    X0*X3
00536  M01S00523.listlb  +++|          MX0    6
00537  M01S00524.listlb  +++|          BX6    X6+X1       MERGE CHARACTERS 1-3 OWNER IDENTIFIER
00538  M01S00525.listlb  +++|          SA1    A2+B1
00539  M01S00526.listlb  +++|          SA6    A7+B1
00540  M01S00527.listlb  +++|          SA7    A6+B1
00541  M01S00528.listlb  +++|          BX4    -X0*X4
00542  M01S00529.listlb  +++|          BX1    X0*X1
00543  M01S00530.listlb  +++|          LX0    18
00544  M01S00531.listlb  +++|          SA2    A1+B2
00545  M01S00532.listlb  +++|          BX6    X4+X1       MERGE CHARACTER 14 OWNER IDENTIFIER
00546  M01S00533.listlb  +++|          LX2    12
00547  M01S00534.listlb  +++|          BX6    -X0*X6
00548  M01S00535.listlb  +++|          BX2    X0*X2
00549  M01S00536.listlb  +++|          BX6    X6+X2       MERGE LABEL STANDARD LEVEL
00550  M01S00537.listlb  +++|          SA6    A7+B1
00551  M01S00538.listlb  +++|          SB6    VEP-1
00552  M01S00539.listlb  +++|          SB7    VEPL+1
00553  M01S00540.listlb  +++|          EQ     PRL4        RETURN
00554  M01S00541.listlb  +++| PXL      SPACE  4
00555  M01S00542.listlb  +++|**        PXL - PRINT LABELS FROM XL BUFFER.
00556  M01S00543.listlb  +++|*
00557  M01S00544.listlb  +++|*         ENTRY  (LR) = NUMBER OF LABELS READ SO FAR.
00558  M01S00545.listlb  +++|*                (LP) = NUMBER OF LABELS PRINTED SO FAR.
00559  M01S00546.listlb  +++|*
00560  M01S00547.listlb  +++|*         EXIT   (LR), (LP) UPDATED.
00561  M01S00548.listlb  +++|*                XL BUFFER CLEARED.
00562  M01S00549.listlb  +++|*
00563  M01S00550.listlb  +++|*         USES   X - 1, 4, 5, 6.
00564  M01S00551.listlb  +++|*                A - 0, 1, 4, 6.
00565  M01S00552.listlb  +++|*
00566  M01S00553.listlb  +++|*         CALLS  FLT, PRL.
00567  M01S00554.listlb  +++|
00568  M01S00555.listlb  +++|
00569  M01S00556.listlb  +++| PXL2     SX6    B0+         CLEAR XL BUFFER
00570  M01S00557.listlb  +++|          SA6    TBUF
00571  M01S00558.listlb  +++|
00572  M01S00559.listlb  +++| PXL      SUBR               ENTRY/EXIT
00573  M01S00560.listlb  +++|          SX5    TBUF-9      PRESET XL BUFFER ADDRESS
00574  M01S00561.listlb  +++| PXL1     SX5    X5+9        INCREMENT BUFFER ADDRESS
00575  M01S00562.listlb  +++|          SA1    LR
00576  M01S00563.listlb  +++|          SA4    X5          READ BUFFER ENTRY
00577  M01S00564.listlb  +++|          SX6    X1+B1
00578  M01S00565.listlb  +++|          ZR     X4,PXL2     IF END OF LABELS IN BUFFER
00579  M01S00566.listlb  +++|          SA6    LR          INCREMENT LABELS READ
00580  M01S00567.listlb  +++|          RJ     FLT         FIND LABEL TYPE
00581  M01S00568.listlb  +++|          SA0    B4          SET POSITION OF LABEL IN TABLE
00582  M01S00569.listlb  +++|          SA1    B4+TLAB
00583  M01S00570.listlb  +++|          LX1    59-0
00584  M01S00571.listlb  +++|          PL     X1,PXL1     IF NOT PERMITTED TO PRINT THIS TYPE
00585  M01S00572.listlb  +++|          SA1    LP          INCREMENT LABELS PRINTED
00586  M01S00573.listlb  +++|          SX6    X1+B1
00587  M01S00574.listlb  +++|          SA6    A1
00588  M01S00575.listlb  +++|          RJ     PRL         PRINT LABEL
00589  M01S00576.listlb  +++|          EQ     PXL1        LOOP FOR NEXT LABEL
00590  M01S00577.listlb  +++| SHD      SPACE  4
00591  M01S00578.listlb  +++|**        SHD - SET UP *HDR1* LABEL IN EXTENDED LABEL BUFFER.
00592  M01S00579.listlb  +++|*
00593  M01S00580.listlb  +++|*         ENTRY  (SI) = SET IDENTIFIER.

Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00581.v23l617 ---|*                (QN) = SEQUENCE NUMBER FROM CONTROL CARD.
00595  M01S00006.v23l617 +++|*                (QN) = SEQUENCE NUMBER FROM COMMAND.
00596  M01S00582.listlb  +++|*                (SN) = SEQUENCE NUMBER TO BE USED IN *HDR1* LABEL.
00597  M01S00583.listlb  +++|*
00598  M01S00584.listlb  +++|*         EXIT   *HDR1* LABEL TYPE, SET ID, AND SEQUENCE NUMBER SET
00599  M01S00585.listlb  +++|*                IN EXTENDED LABEL BUFFER.
00600  M01S00586.listlb  +++|*
00601  M01S00587.listlb  +++|*         USES   X - 1, 2, 5, 6, 7.
00602  M01S00588.listlb  +++|*                B - NONE.
00603  M01S00589.listlb  +++|*                A - 1, 5, 6, 7.
00604  M01S00590.listlb  +++|
00605  M01S00591.listlb  +++|
00606  M01S00592.listlb  +++| SHD      SUBR               ENTRY/EXIT
00607  M01S00593.listlb  +++|          SX6    80          SET LENGTH OF LABEL IN CHARACTERS
00608  M01S00594.listlb  +++|          SA6    TBUF
00609  M01S00595.listlb  +++|          SX1    3RHDR       SET *HDR1*
00610  M01S00596.listlb  +++|          SX6    1R1
00611  M01S00597.listlb  +++|          LX1    6
00612  M01S00598.listlb  +++|          BX6    X1+X6       *HDR1*
00613  M01S00599.listlb  +++|          LX6    36
00614  M01S00600.listlb  +++|          SA6    TBUF+1+0
00615  M01S00601.listlb  +++|          MX6    0           CLEAR OUT FI FIELD IN XL BUFFER
00616  M01S00602.listlb  +++|          SA6    TBUF+1+1
00617  M01S00603.listlb  +++|          SA5    SI          SET SETID IN XL BUFFER
00618  M01S00604.listlb  +++|          BX6    X5
00619  M01S00605.listlb  +++|          SA6    TBUF+1+2
00620  M01S00606.listlb  +++|          SA1    SN          SEQUENCE NUMBER
00621  M01S00607.listlb  +++|          RJ     COV         CONVERT TO DISPLAY CODE
00622  M01S00608.listlb  +++|          MX2    -24
00623  M01S00609.listlb  +++|          BX6    -X2*X6
00624  M01S00610.listlb  +++|          LX6    30
00625  M01S00611.listlb  +++|          SA6    TBUF+1+3    SET SEQUENCE NUMBER IN XL BUFFER
00626  M01S00612.listlb  +++|          SX2    4
00627  M01S00613.listlb  +++|          MX6    0
00628  M01S00614.listlb  +++| SHD1     SA6    TBUF+1+X2   ZERO REMAINING PORTION OF *HDR1* LABEL
00629  M01S00615.listlb  +++|          SX2    X2+1
00630  M01S00616.listlb  +++|          SX3    X2-9
00631  M01S00617.listlb  +++|          NZ     X3,SHD1     IF MORE TO CLEAR
00632  M01S00618.listlb  +++|          EQ     SHDX
00633  M01S00619.listlb  +++|          SPACE  4
00634  M01S00620.listlb  +++|**        WHL - WRITE HEADER LINE.
00635  M01S00621.listlb  +++|*
00636  M01S00622.listlb  +++|*         ENTRY  (PN) = PAGE NUMBER.
00637  M01S00623.listlb  +++|*
00638  M01S00624.listlb  +++|*         EXIT   (PN) = (PN) + 1.
00639  M01S00625.listlb  +++|*                (LC) = 3.
00640  M01S00626.listlb  +++|*
00641  M01S00627.listlb  +++|*         USES   X - 0, 1, 6.
00642  M01S00628.listlb  +++|*                B - 3.
00643  M01S00629.listlb  +++|*                A - 1, 6.
00644  M01S00630.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00631.ns22000 ---|*         CALLS  CDD, WTW=.
00646  M01S00006.ns22000 +++|*         CALLS  CDD.
00647  M01S00007.ns22000 +++|*
00648  M01S00008.ns22000 +++|*         MACROS WRITEW.
00649  M01S00632.listlb  +++|
00650  M01S00633.listlb  +++|
00651  M01S00634.listlb  +++| WHL      SUBR               ENTRY/EXIT
00652  M01S00635.listlb  +++|          SA1    PN          INCREMENT PAGE NUMBER
00653  M01S00636.listlb  +++|          SX6    X1+B1
00654  M01S00637.listlb  +++|          BX1    X6
00655  M01S00638.listlb  +++|          SA6    PN
00656  M01S00639.listlb  +++|          RJ     CDD         CONVERT PAGE NUMBER TO DISPLAY CODE
00657  M01S00640.listlb  +++|          SB3    B2-47
00658  M01S00641.listlb  +++|          SA1    PAGE
00659  M01S00642.listlb  +++|          LX6    12
00660  M01S00643.listlb  +++|          MX0    1
00661  M01S00644.listlb  +++|          SB3    -B3
00662  M01S00645.listlb  +++|          AX0    X0,B3
00663  M01S00646.listlb  +++|          BX6    -X0*X6
00664  M01S00647.listlb  +++|          BX1    X0*X1
00665  M01S00648.listlb  +++|          BX6    X1+X6
00666  M01S00649.listlb  +++|          SA6    A1
00667  M01S00650.listlb  +++|          WRITEW O,TITL,TITLL

Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00651.ns22000 ---|          SX6    3           SET LINE COUNT
00669  M01S00009.ns22000 +++|          SX6    3           SET LINE COUNT
00670  M01S00652.listlb  +++|          SA6    LC
00671  M01S00653.listlb  +++|          EQ     WHLX        RETURN
00672  M01S00654.listlb  +++|          TITLE  CONSTANTS AND VARIABLES.
00673  M01S00655.listlb  +++|**        CONSTANTS AND VARIABLES.
00674  M01S00656.listlb  +++|
00675  M01S00657.listlb  +++|
00676  M01S00658.listlb  +++|**        TLAB FIELD DEFENITION.
00677  M01S00659.listlb  +++|*T,TLAB   VFD    24/LABEL IDENTIFIER

Figure TLAB

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "LABEL IDENTIFIER", "bits": VFD    24, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00678  M01S00660.listlb  +++|*T,       VFD    18/ADDRESS OF LABEL PRINT PROCESSOR

Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "ADDRESS OF LABEL PRINT PROCESSOR", "bits": VFD    18, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00679  M01S00661.listlb  +++|*T,       VFD    17/NOT USED

Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "NOT USED", "bits": VFD    17, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00680  M01S00662.listlb  +++|*T,       VFD    1/LABEL TYPE MAY BE PRINTED

Figure

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "LABEL TYPE MAY BE PRINTED", "bits": VFD    1, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00681  M01S00663.listlb  +++|
00682  M01S00664.listlb  +++|
00683  M01S00665.listlb  +++| TLAB     BSS    0
00684  M01S00666.listlb  +++|          LOC    0
00685  M01S00667.listlb  +++|          VFD    24/4LDARD,18/0,18/0    UNIDENTIFIED LABEL
00686  M01S00668.listlb  +++| VOL1     VFD    24/4LVOL1,18/PVE,18/0  VOL1
00687  M01S00669.listlb  +++| HDR1     VFD    24/4LHDR1,18/PHE,18/0  HDR1
00688  M01S00670.listlb  +++| EOF1     VFD    24/4LEOF1,18/PHE,18/0  EOF1
00689  M01S00671.listlb  +++| EOV1     VFD    24/4LEOV1,18/PHE,18/0  EOV1
00690  M01S00672.listlb  +++| TLABA    EQU    *-VOL1      NUMBER OF REQUIRED LABELS
00691  M01S00673.listlb  +++| VOL      VFD    24/4LVOLN,18/0,18/0    VOL2-9
00692  M01S00674.listlb  +++| HDR      VFD    24/4LHDRN,18/0,18/0    HDR2-9
00693  M01S00675.listlb  +++| EOF      VFD    24/4LEOFN,18/0,18/0    EOF2-9
00694  M01S00676.listlb  +++| EOV      VFD    24/4LEOVN,18/0,18/0    EOV2-9
00695  M01S00677.listlb  +++| UVL      VFD    24/4LUVLX,18/0,18/0    UVLX
00696  M01S00678.listlb  +++| UHL      VFD    24/4LUHLX,18/0,18/0    UHLX
00697  M01S00679.listlb  +++| UTL      VFD    24/4LUTLX,18/0,18/0    UTLX
00698  M01S00680.listlb  +++|          LOC    *O
00699  M01S00681.listlb  +++| TLABL    EQU    *-TLAB
00700  M01S00682.listlb  +++|
00701  M01S00683.listlb  +++| QN       CON    0           FILE SEQUENCE NUMBER
00702  M01S00684.listlb  +++| SN       CON    1           SEQUENCE NUMBER TO USE IN *HDR1* LABEL
00703  M01S00685.listlb  +++| CR       CON    0           CLOSE REEL FLAG
00704  M01S00686.listlb  +++| EF       CON    0           SAVE ERROR FLAG HERE
00705  M01S00687.listlb  +++| TF       CON    0           0=DO NOT READ TRAILER LABELS
00706  M01S00688.listlb  +++|*                            1=READ TRAILER LABELS
00707  M01S00689.listlb  +++| SI       CON    0           SET IDENTIFIER
00708  M01S00690.listlb  +++| PN       BSSZ   1           PAGE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00691.ns22000 ---| LC       BSSZ   1           LINE COUNT
00710  M01S00010.ns22000 +++| LC       BSSZ   2           LINE COUNT
00711  M01S00011.ns22000 +++| LL       EQU    LC+1        LINE LIMIT
00712  M01S00692.listlb  +++| LR       BSSZ   1           LABELS READ
00713  M01S00693.listlb  +++| LP       BSSZ   1           LABELS PRINTED
00714  M01S00694.listlb  +++|
00715  M01S00003.listl1  +++| TLOF     VFD    12/0,18/TLOF+1,30/1
00716  M01S00004.listl1  +++|          CON    3           SETLOF FLUSH TABLE
00717  M01S00005.listl1  +++|          VFD    42/6LOUTPUT,18/O
00718  M01S00006.listl1  +++|          CON    0           END OF SETLOF TABLE
00719  M01S00695.listlb  +++|
00720  M01S00696.listlb  +++| NSL      DATA   10H  NON-STAN
00721  M01S00697.listlb  +++| LIN      DATA   10H           LABEL OUTPUT LINE
00722  M01S00698.listlb  +++|          DATA   6A LABEL
00723  M01S00699.listlb  +++|          DATA   10H READ:
00724  M01S00700.listlb  +++| LAB      BSS    8
00725  M01S00701.listlb  +++|          DATA   8L
00726  M01S00702.listlb  +++|          DATA   8L
00727  M01S00703.listlb  +++| LINL     EQU    *-LIN
00728  M01S00704.listlb  +++|
00729  M01S00705.listlb  +++|          DATA   10H           HDR1,EOF1,EOV1 PARAMETER OUTPUT LINE
00730  M01S00706.listlb  +++| HEP      DATA   10H FI=......
00731  M01S00707.listlb  +++|          DATA   10H..........
00732  M01S00708.listlb  +++|          DATA   10H., SI=....
00733  M01S00709.listlb  +++|          DATA   10H.., SN=...
00734  M01S00710.listlb  +++|          DATA   10H., QN=....
00735  M01S00711.listlb  +++|          DATA   10H, G=....,
00736  M01S00712.listlb  +++|          DATA   10HE=.., CR=.
00737  M01S00713.listlb  +++|          DATA   10H....., RT=
00738  M01S00714.listlb  +++|          DATA   10H......, FA
00739  M01S00715.listlb  +++|          DATA   3L=..
00740  M01S00716.listlb  +++|          DATA   2L
00741  M01S00717.listlb  +++| HEPL     EQU    *-HEP
00742  M01S00718.listlb  +++|
00743  M01S00719.listlb  +++|          DATA   10H           VOL1 PARAMETER OUTPUT LINE
00744  M01S00720.listlb  +++| VEP      DATA   10H VSN=.....
00745  M01S00721.listlb  +++|          DATA   10H., VA=., O
00746  M01S00722.listlb  +++|          DATA   10HWNERID=...
00747  M01S00723.listlb  +++|          DATA   10H..........
00748  M01S00724.listlb  +++|          DATA   10H., LSL=..
00749  M01S00725.listlb  +++|          DATA   8L
00750  M01S00726.listlb  +++|          DATA   2L
00751  M01S00727.listlb  +++| VEPL     EQU    *-VEP
00752  M01S00728.listlb  +++|

Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00729.ns22000 ---| TITL     DATA   10H1
00754  M01S00012.ns22000 +++| TITL     DATA   10H
00755  M01S00730.listlb  +++|          DATA   40H LISTLB - LIST MAGNETIC TAPE LABELS.
00756  M01S00731.listlb  +++|          DATA   40H
00757  M01S00732.listlb  +++| DATE     DATA   10H
00758  M01S00733.listlb  +++| TIME     DATA   10H
00759  M01S00734.listlb  +++|          DATA   4APAGE
00760  M01S00735.listlb  +++| PAGE     DATA   8L
00761  M01S00736.listlb  +++|          DATA   2L
00762  M01S00737.listlb  +++|          DATA   2L
00763  M01S00738.listlb  +++| TITLL    EQU    *-TITL
00764  M01S00739.listlb  +++|
00765  M01S00740.listlb  +++| LRP      DATA   10H           LABELS READ AND PRINTED
00766  M01S00741.listlb  +++| LBR      DATA   10H
00767  M01S00742.listlb  +++|          DATA   10H LABELS RE
00768  M01S00743.listlb  +++|          DATA   10HAD.
00769  M01S00744.listlb  +++| LBP      DATA   10H
00770  M01S00745.listlb  +++|          DATA   10H LABELS PR
00771  M01S00746.listlb  +++|          DATA   6LINTED.
00772  M01S00747.listlb  +++| LRPL     EQU    *-LRP
00773  M01S00748.listlb  +++| COMC     SPACE  4
00774  M01S00749.listlb  +++|**        CALL COMMON DECKS.
00775  M01S00750.listlb  +++|
00776  M01S00751.listlb  +++|
00777  M01S00752.listlb  +++|*CALL     COMCCDD
00778  M01S00753.listlb  +++|*CALL     COMCCIO
00779  M01S00754.listlb  +++|*CALL     COMCLFM
00780  M01S00755.listlb  +++|*CALL     COMCMVE
00781  M01S00756.listlb  +++|*CALL     COMCSYS
00782  M01S00757.listlb  +++|*CALL     COMCWTW
00783  M01S00758.listlb  +++|          EJECT
00784  M01S00759.listlb  +++|          USE    //
00785  M01S00760.listlb  +++|          SEG
00786  M01S00761.listlb  +++| BUFS     BSS    0
00787  M01S00762.listlb  +++|
00788  M01S00763.listlb  +++| TBUF     EQU    *
00789  M01S00764.listlb  +++|
00790  M01S00765.listlb  +++| OBUF     EQU    TBUF+TBUFL
00791  M01S00766.listlb  +++|
00792  M01S00767.listlb  +++| RFL=     EQU    OBUF+OBUFL+4
00793  M01S00768.listlb  +++| ARG=     EQU    *
00794  M01S00769.listlb  +++|          TITLE  PRESET.
00795  M01S00770.listlb  +++| PRS      SPACE  4
00796  M01S00771.listlb  +++|          ORG    BUFS
00797  M01S00772.listlb  +++|
00798  M01S00773.listlb  +++|
00799  M01S00774.listlb  +++|**        THE FOLLOWING CODE IS OVERLAYED BY TLAB THE TABLE OF LABELS
00800  M01S00775.listlb  +++|*         READ FROM THE TAPE.
00801  M01S00776.listlb  +++|
00802  M01S00777.listlb  +++|**        PRS - PRESET.
00803  M01S00778.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00779.ns22000 ---|*         ENTRY  NONE.

Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00780.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00781.ns22000 ---|*         EXIT   NONE.

Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00782.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00783.listl1  ---|*         USES   X - 1, 3, 4, 5, 6.
00809  M01S00007.listl1  +++|*         USES   X - 0, 1, 3, 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00784.ns22000 ---|*                B - 2, 3, 4.

Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00785.ns22000 ---|*                A - 1, 4, 6.
00812  M01S00013.ns22000 +++|*                A - 1, 4, 5, 6.
00813  M01S00014.ns22000 +++|*                B - 2, 3, 4.
00814  M01S00786.listlb  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00787.ns22000 ---|*         CALLS  ARGUMENT PROCESSORS.
00816  M01S00015.ns22000 +++|*         CALLS  IPP, KWD, PER, POP, USB, WHL.
00817  M01S00016.ns22000 +++|*
00818  M01S00017.ns22000 +++|*         MACROS CLOCK, DATE, REWIND.
00819  M01S00788.listlb  +++|
00820  M01S00789.listlb  +++| PRS      SUBR               ENTRY/EXIT
00821  M01S00790.listlb  +++|          SB1    1

Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00791.v23l617 ---|          SB2    CCDR        UNPACK CONTROL CARD
00823  M01S00007.v23l617 +++|          SB2    CCDR        UNPACK COMMAND
00824  M01S00792.listlb  +++|          RJ     USB
00825  M01S00793.listlb  +++|          SA5    PRSA
00826  M01S00794.listlb  +++| PRS0     RJ     POP         PICK OUT PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00795.v23l617 ---|          NG     B5,PRS6     IF CONTROL CARD ERROR
00828  M01S00008.v23l617 +++|          NG     B5,PRS6     IF COMMAND ERROR
00829  M01S00796.listlb  +++|          BX3    X6-X5
00830  M01S00797.listlb  +++|          NZ     X3,PRS0     IF NOT PROGRAM NAME
00831  M01S00798.listlb  +++|          RJ     POP

Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00799.v23l617 ---|          NG     B5,PRS6     IF CONTROL CARD ERROR
00833  M01S00009.v23l617 +++|          NG     B5,PRS6     IF COMMAND ERROR
00834  M01S00800.listlb  +++|          SA4    A1
00835  M01S00801.listlb  +++|          SX5    X6
00836  M01S00802.listlb  +++|          SX3    X4-1R=
00837  M01S00803.listlb  +++|          ZR     X3,PRS2     IF NO TAPE FILE SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00804.v23l617 ---|          NZ     X5,PRS8     IF ILLEGAL PARAMETER
00839  M01S00010.v23l617 +++|          NZ     X5,PRS8     IF INCORRECT PARAMETER
00840  M01S00805.listlb  +++|          SA1    T           PLACE USER SPECIFIED FILE NAME IN FET
00841  M01S00806.listlb  +++|          SX1    X1
00842  M01S00807.listlb  +++|          BX6    X1+X6
00843  M01S00808.listlb  +++|          SA6    T
00844  M01S00809.listlb  +++|
00845  M01S00810.listlb  +++|*         RETURN FROM ARGUMENT PROCESSORS.
00846  M01S00811.listlb  +++|
00847  M01S00812.listlb  +++| PRS1     RJ     POP         GET NEXT PARAMETER
00848  M01S00813.listlb  +++|          SA4    A1+

Seq #  *Modification Id* Act 
----------------------------+
00849  M02S00814.v23l617 ---|          NG     B5,PRS6     IF CONTROL CARD ERROR
00850  M01S00011.v23l617 +++|          NG     B5,PRS6     IF COMMAND ERROR
00851  M01S00815.listlb  +++| PRS2     SX3    X4-1R=
00852  M01S00816.listlb  +++|          NZ     X3,PRS6     IF NOT *=*

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00817.v23l617 ---|          ZR     X2,PRS8     IF ILLEGAL TERMINATOR
00854  M01S00012.v23l617 +++|          ZR     X2,PRS8     IF INCORRECT TERMINATOR
00855  M01S00818.listlb  +++|          RJ     KWD

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00819.v23l617 ---|          ZR     B3,PRS6     IF ILLEGAL KEYWORD
00857  M01S00013.v23l617 +++|          ZR     B3,PRS6     IF INCORRECT KEYWORD
00858  M01S00820.listlb  +++|          RJ     POP

Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00821.v23l617 ---|          NG     B5,PRS8     IF ILLEGAL PARAMETER
00860  M01S00014.v23l617 +++|          NG     B5,PRS8     IF INCORRECT PARAMETER
00861  M01S00822.listlb  +++|          JP     B3          JUMP TO ELEMENT PROCESSOR
00862  M01S00823.listlb  +++|
00863  M01S00824.listlb  +++| PRS3     SA1    SI          CHECK FOR *SETID*
00864  M01S00825.listlb  +++|          NZ     X1,PRS4     IF *SET ID* SPECIFIED
00865  M01S00826.listlb  +++|          SA1    QN          SEQUENCE NUMBER
00866  M01S00827.listlb  +++|          ZR     X1,PRS4     IF FILE SEQUENCE NUMBER SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00828.v23l617 ---|          SX1    QNS         ILLEGAL COMBINATION OF PARAMETERS
00868  M01S00015.v23l617 +++|          SX1    QNS         INCORRECT COMBINATION OF PARAMETERS
00869  M01S00829.listlb  +++|          JP     PER
00870  M01S00830.listlb  +++|
00871  M01S00831.listlb  +++| PRS4     REWIND T,R
00872  M01S00832.listlb  +++|          CLOCK  TIME
00873  M01S00833.listlb  +++|          DATE   DATE
00874  M01S00018.ns22000 +++|          RJ     IPP         INITIALIZE PAGE PARAMETERS
00875  M01S00834.listlb  +++|          RJ     WHL         WRITE HEADER LINE
00876  M01S00835.listlb  +++|          SX1    TBUFL       SET EXTENDED LABEL BUFFER LENGTH AND
00877  M01S00836.listlb  +++|*                            ADDRESS
00878  M01S00837.listlb  +++|          SX6    TBUF
00879  M01S00838.listlb  +++|          LX1    18
00880  M01S00839.listlb  +++|          BX6    X6+X1
00881  M01S00840.listlb  +++|          SA6    T+9
00882  M01S00008.listl1  +++|          MX0    1           SET FLUSH BIT IN LIST OUTPUT FET
00883  M01S00009.listl1  +++|          LX0    36-59
00884  M01S00010.listl1  +++|          SA1    O+1
00885  M01S00011.listl1  +++|          BX6    X0+X1
00886  M01S00012.listl1  +++|          SA6    A1
00887  M01S00013.listl1  +++|          MX0    42          MOVE LIST OUTPUT LFN TO SETLOF TABLE
00888  M01S00014.listl1  +++|          SA1    A1-B1
00889  M01S00015.listl1  +++|          BX1    X0*X1
00890  M01S00016.listl1  +++|          SX6    O
00891  M01S00017.listl1  +++|          BX6    X1+X6
00892  M01S00018.listl1  +++|          SA6    TLOF+2
00893  M01S00019.listl1  +++|          SETLOF TLOF        SET FLUSH BIT TABLE POINTER
00894  M01S00841.listlb  +++|          SA1    LO
00895  M01S00842.listlb  +++|          NZ     X1,PRSX     IF LO PROCESSED
00896  M01S00843.listlb  +++|          SB4    TLABL
00897  M01S00844.listlb  +++|          SX5    B1
00898  M01S00845.listlb  +++|          SB3    B0
00899  M01S00846.listlb  +++| PRS5     SA1    TLAB+B3     SET PERMISION TO PRINT ALL LABELS
00900  M01S00847.listlb  +++|          SB3    B3+B1
00901  M01S00848.listlb  +++|          BX6    X1+X5
00902  M01S00849.listlb  +++|          SA6    A1+
00903  M01S00850.listlb  +++|          LT     B3,B4,PRS5  IF NOT END OF LABEL TABLE
00904  M01S00851.listlb  +++|          SX6    B1          SET READ TRAILER LABELS FLAG
00905  M01S00852.listlb  +++|          SA6    TF
00906  M01S00853.listlb  +++|          JP     PRSX        RETURN
00907  M01S00854.listlb  +++|
00908  M01S00855.listlb  +++| PRS6     ZR     B6,PRS3     IF END OF PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00856.v23l617 ---|          SX1    CCE         CONTROL CARD ERROR
00910  M01S00016.v23l617 +++|          SX1    CCE         COMMAND ERROR
00911  M01S00857.listlb  +++|          JP     PER
00912  M01S00858.listlb  +++|
00913  M01S00859.listlb  +++| PRS7     SX1    FNE         FILE NAME ERROR
00914  M01S00860.listlb  +++|          JP     PER
00915  M01S00861.listlb  +++|

Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00862.v23l617 ---| PRS8     SX1    IPE         ILLEGAL PARAMETER ERROR
00917  M01S00017.v23l617 +++| PRS8     SX1    IPE         INCORRECT PARAMETER ERROR
00918  M01S00863.listlb  +++|          JP     PER
00919  M01S00864.listlb  +++|
00920  M01S00865.listlb  +++| PRSA     CON    0LLISTLB
00921  M01S00019.ns22000 +++| IPP      SPACE  4,15
00922  M01S00020.ns22000 +++|**        IPP - INITIALIZE PAGE PARAMETERS.
00923  M01S00021.ns22000 +++|*
00924  M01S00022.ns22000 +++|*         EXIT   (LL)  =  LINE LIMIT.
00925  M01S00023.ns22000 +++|*
00926  M01S00024.ns22000 +++|*         USES   X - 1, 2, 6.
00927  M01S00025.ns22000 +++|*                A - 1, 6.
00928  M01S00026.ns22000 +++|*
00929  M01S00027.ns22000 +++|*         CALLS  STF.
00930  M01S00028.ns22000 +++|*
00931  M01S00029.ns22000 +++|*         MACROS GETPP, WRITEC.
00932  M01S00030.ns22000 +++|
00933  M01S00031.ns22000 +++|
00934  M01S00032.ns22000 +++| IPP      SUBR               ENTRY/EXIT
00935  M01S00033.ns22000 +++|          GETPP  IPPA,LL,IPPA  GET PAGE SIZE PARAMETERS
00936  M01S00034.ns22000 +++|          SX2    O
00937  M01S00035.ns22000 +++|          RJ     STF
00938  M01S00036.ns22000 +++|          ZR     X6,IPPX     IF TERMINAL PRINT FILE
00939  M01S00037.ns22000 +++|          WRITEC X2,IPPA
00940  M01S00038.ns22000 +++|          SA1    =10H1
00941  M01S00039.ns22000 +++|          BX6    X1          FORCE PAGE EJECT
00942  M01S00040.ns22000 +++|          SA6    TITL
00943  M01S00041.ns22000 +++|          EQ     IPPX        RETURN
00944  M01S00042.ns22000 +++|
00945  M01S00043.ns22000 +++|
00946  M01S00044.ns22000 +++| IPPA     BSS    2           PAGE SIZE PARAMETERS
00947  M01S00866.listlb  +++| KWD      SPACE  4
00948  M01S00867.listlb  +++|**        KWD - KEYWORD VERIFIER.
00949  M01S00868.listlb  +++|*
00950  M01S00869.listlb  +++|*         ENTRY  (X6) = KEYWORD.
00951  M01S00870.listlb  +++|*
00952  M01S00871.listlb  +++|*         EXIT   (B3) = ADDRESS OF KEYWORD PROCESSOR.
00953  M01S00872.listlb  +++|*                (B3) = 0, IF KEYWORD NOT FOUND.
00954  M01S00873.listlb  +++|*
00955  M01S00874.listlb  +++|*         USES   A - 1, 7.
00956  M01S00875.listlb  +++|*                X - 0, 1, 7.
00957  M01S00876.listlb  +++|
00958  M01S00877.listlb  +++|
00959  M01S00878.listlb  +++| KWD      SUBR               ENTRY/EXIT
00960  M01S00879.listlb  +++|          BX1    X6
00961  M01S00880.listlb  +++|          AX1    59
00962  M01S00881.listlb  +++|          SA1    X1+TKWD-1
00963  M01S00882.listlb  +++| KWD1     SA1    A1+B1
00964  M01S00883.listlb  +++|          BX0    X6-X1
00965  M01S00884.listlb  +++|          SB3    X1          ADDRESS OF KEYWORD PROCESSOR
00966  M01S00885.listlb  +++|          AX0    48
00967  M01S00886.listlb  +++|          ZR     X1,KWDX     IF END OF TABLE
00968  M01S00887.listlb  +++|          NZ     X0,KWD1     IF NO MATCH
00969  M01S00888.listlb  +++|          MX7    -1          ENABLE/DISABLE LITERAL PROCESSING
00970  M01S00889.listlb  +++|          LX1    0-18
00971  M01S00890.listlb  +++|          BX7    -X7*X1
00972  M01S00891.listlb  +++|          SA7    LIT
00973  M01S00892.listlb  +++|          JP     KWDX        RETURN
00974  M01S00893.listlb  +++|
00975  M01S00894.listlb  +++|
00976  M01S00895.listlb  +++|**        TKWD - TABLE OF KEYWORDS.
00977  M01S00896.listlb  +++|*
00978  M01S00897.listlb  +++|*T        12/ARGUMENT,29/0,1/LA,18/ARGUMENT PROCESSOR

Figure

00979  M01S00898.listlb  +++|*         LA = 0 IF LITERALS ARE ALLOWED
00980  M01S00899.listlb  +++|*         LA = 1 IF LITERALS ARE NOT ALLOWED
00981  M01S00900.listlb  +++|
00982  M01S00901.listlb  +++|
00983  M01S00902.listlb  +++| TKWD     BSS    0
00984  M01S00903.listlb  +++|          VFD    12/0LL,29/0,1/0,18/PLP
00985  M01S00904.listlb  +++|          VFD    12/0LLO,29/0,1/0,18/PLO
00986  M01S00905.listlb  +++|          VFD    12/0LSI,29/0,1/1,18/PSI
00987  M01S00906.listlb  +++|          VFD    12/0LM,29/0,1/1,18/PSI
00988  M01S00907.listlb  +++|          VFD    12/0LQN,29/0,1/0,18/PQN
00989  M01S00908.listlb  +++|          VFD    12/0LP,29/0,1/0,18/PQN
00990  M01S00909.listlb  +++|          CON    0           END OF TABLE
00991  M01S00910.listlb  +++| PER      SPACE  4
00992  M01S00911.listlb  +++|**        PER - PROCESS ERRORS.
00993  M01S00912.listlb  +++|*
00994  M01S00913.listlb  +++|*         ENTRY  (X1) = ADDRESS OF ERROR MESSAGE.
00995  M01S00914.listlb  +++|
00996  M01S00915.listlb  +++|
00997  M01S00916.listlb  +++| PER      BSS    0
00998  M01S00917.listlb  +++|          MESSAGE X1
00999  M01S00918.listlb  +++|          ABORT
01000  M01S00919.listlb  +++|
01001  M01S00920.listlb  +++|

Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00921.v23l617 ---| CCE      DATA   C* CONTROL CARD ERROR.*
01003  M01S00018.v23l617 +++| CCE      DATA   C* COMMAND ERROR.*
01004  M01S00922.listlb  +++| FNE      DATA   C* FILE NAME ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00923.v23l617 ---| IPE      DATA   C* ILLEGAL PARAMETER.*

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00924.v23l617 ---| QNS      DATA   C* ILLEGAL COMBINATION OF QN/SI.*
01007  M01S00019.v23l617 +++| IPE      DATA   C* INCORRECT PARAMETER.*
01008  M01S00020.v23l617 +++| QNS      DATA   C* INCORRECT COMBINATION OF QN/SI.*
01009  M01S00925.listlb  +++|          TITLE  ARGUMENT PROCESSORS.
01010  M01S00926.listlb  +++|**        PLO - PROCESS LO PARAMETER.
01011  M01S00927.listlb  +++|*
01012  M01S00928.listlb  +++|*         ENTRY  (X6) = LIST OPTIONS.
01013  M01S00929.listlb  +++|
01014  M01S00930.listlb  +++|
01015  M01S00931.listlb  +++| PLO      BSS    0           ENTRY
01016  M01S00932.listlb  +++|          MX0    -6
01017  M01S00933.listlb  +++|          BX1    -X0*X6
01018  M01S00934.listlb  +++|          NZ     X1,PRS8     IF TOO MANY LIST OPTIONS
01019  M01S00935.listlb  +++| PLO1     LX6    6
01020  M01S00936.listlb  +++|          SX5    1RA
01021  M01S00937.listlb  +++|          BX1    -X0*X6
01022  M01S00938.listlb  +++|          ZR     X1,PLO4     IF END OF LIST OPTIONS - RETURN
01023  M01S00939.listlb  +++|          BX1    X1-X5
01024  M01S00940.listlb  +++|          ZR     X1,PRS1     IF *A* LIST OPTION
01025  M01S00941.listlb  +++|          SX5    B1          PRINT LABEL BIT
01026  M01S00942.listlb  +++|          SA1    TPLO-1
01027  M01S00943.listlb  +++| PLO2     SA1    A1+B1
01028  M01S00944.listlb  +++|          BX3    X6-X1
01029  M01S00945.listlb  +++|          ZR     X1,PRS8     IF LIST OPTION NOT IN TABLE
01030  M01S00946.listlb  +++|          BX3    -X0*X3
01031  M01S00947.listlb  +++|          NZ     X3,PLO2     IF NO MATCH
01032  M01S00948.listlb  +++|          MX3    -4
01033  M01S00949.listlb  +++|          SA2    TF
01034  M01S00950.listlb  +++|          NZ     X2,PLO3     IF READ TRAILER LABEL FLAG ALREADY SET
01035  M01S00951.listlb  +++|          BX2    -X0*X1      CHECK OPTIONS
01036  M01S00952.listlb  +++|          SX7    X2-1RH
01037  M01S00953.listlb  +++|          ZR     X7,PLO3     IF *H* OPTION SELECTED
01038  M01S00954.listlb  +++|          SX7    X2-1RV
01039  M01S00955.listlb  +++|          ZR     X7,PLO3     IF *V* OPTION SELECTED
01040  M01S00956.listlb  +++|          SX7    B1          SET READ TRAILER LABELS FLAG
01041  M01S00957.listlb  +++|          SA7    A2
01042  M01S00958.listlb  +++| PLO3     LX1    4
01043  M01S00959.listlb  +++|          BX4    -X3*X1
01044  M01S00960.listlb  +++|          ZR     X4,PLO1     IF DONE PROCESSING THIS LIST OPTION
01045  M01S00961.listlb  +++|          SA4    X4+TLAB
01046  M01S00962.listlb  +++|          BX7    X4+X5
01047  M01S00963.listlb  +++|          SA7    A4
01048  M01S00964.listlb  +++|          EQ     PLO3
01049  M01S00965.listlb  +++|
01050  M01S00966.listlb  +++| PLO4     SA6    LO          SET LIST OPTIONS PROCESSED
01051  M01S00967.listlb  +++|          EQ     PRS1        GET NEXT PARAMETER
01052  M01S00968.listlb  +++|
01053  M01S00969.listlb  +++| LO       CON    0
01054  M01S00970.listlb  +++|
01055  M01S00971.listlb  +++| TPLO     BSS    0
01056  M01S00972.listlb  +++|          VFD    4/VOL1,4/HDR1,4/EOF1,4/EOV1,4/VOL,4/HDR,4/EOF,4/EOV
01057  M01S00973.listlb  +++|          VFD    4/UVL/,4/UHL,4/UTL,10/0,6/1RA  A - OPTION
01058  M01S00974.listlb  +++|          VFD    4/VOL1,4/HDR1,4/EOF1,4/EOV1,38/0,6/1RR  R - OPTION
01059  M01S00975.listlb  +++|          VFD    4/VOL,4/HDR,4/EOF,4/EOV,4/UVL,4/UHL,4/UTL,26/0
01060  M01S00976.listlb  +++|          VFD    6/1RO       O - OPTION
01061  M01S00977.listlb  +++|          VFD    4/VOL1,4/VOL,46/0,6/1RV  V - OPTION
01062  M01S00978.listlb  +++|          VFD    4/HDR1,4/HDR,46/0,6/1RH  H - OPTION
01063  M01S00979.listlb  +++|          VFD    4/EOF1,4/EOF,46/0,6/1RF  F - OPTION
01064  M01S00980.listlb  +++|          VFD    4/EOV1,4/EOV,46/0,6/1RE  E - OPTION
01065  M01S00981.listlb  +++|          VFD    4/UVL,4/UHL,4/UTL,42/0,6/1RU  U - OPTION
01066  M01S00982.listlb  +++|          CON    0           END OF TABLE
01067  M01S00983.listlb  +++| PLP      SPACE  4
01068  M01S00984.listlb  +++|**        PLP - PROCESS L PARAMETER.
01069  M01S00985.listlb  +++|*
01070  M01S00986.listlb  +++|*         ENTRY  (X6) = OUTPUT FILE NAME.
01071  M01S00987.listlb  +++|
01072  M01S00988.listlb  +++|
01073  M01S00989.listlb  +++| PLP      BSS    0           ENTRY
01074  M01S00990.listlb  +++|          MX0    42
01075  M01S00991.listlb  +++|          BX0    -X0*X6
01076  M01S00992.listlb  +++|          SA1    O
01077  M01S00993.listlb  +++|          NZ     X0,PRS7     IF FILE NAME TOO LONG
01078  M01S00994.listlb  +++|          SX1    X1
01079  M01S00995.listlb  +++|          BX6    X6+X1
01080  M01S00996.listlb  +++|          SA6    A1
01081  M01S00997.listlb  +++|          JP     PRS1        GET NEXT PARAMETER
01082  M01S00998.listlb  +++| PSI      SPACE  4
01083  M01S00999.listlb  +++|**        PSI - PROCESS SI PARAMETER.
01084  M01S01000.listlb  +++|*
01085  M01S01001.listlb  +++|*         ENTRY  (X6) = SET IDENTIFIER.
01086  M01S01002.listlb  +++|
01087  M01S01003.listlb  +++|
01088  M01S01004.listlb  +++| PSI      BSS    0           ENTRY
01089  M01S01005.listlb  +++|          MX0    6*6
01090  M01S01006.listlb  +++|          BX0    -X0*X6
01091  M01S01007.listlb  +++|          NZ     X0,PRS8     IF SET IDENTIFIER TOO LONG
01092  M01S01008.listlb  +++|          BX1    X6
01093  M01S01009.listlb  +++|          RJ     SFN         SPACE FILL NAME
01094  M01S01010.listlb  +++|          MX0    6*6
01095  M01S01011.listlb  +++|          BX6    X0*X6
01096  M01S01012.listlb  +++|          LX6    54
01097  M01S01013.listlb  +++|          SA6    SI
01098  M01S01014.listlb  +++|          JP     PRS1        GET NEXT PARAMETER
01099  M01S01015.listlb  +++| PQN      SPACE  4
01100  M01S01016.listlb  +++|**        PQN - PROCESS QN PARAMETER.
01101  M01S01017.listlb  +++|*
01102  M01S01018.listlb  +++|*         ENTRY  (X6) = FILE SEQUENCE NUMBER.
01103  M01S01019.listlb  +++|
01104  M01S01020.listlb  +++|
01105  M01S01021.listlb  +++| PQN      BSS    0           ENTRY
01106  M01S01022.listlb  +++|          MX0    4*6
01107  M01S01023.listlb  +++|          BX5    X6
01108  M01S01024.listlb  +++|          BX0    -X0*X6
01109  M01S01025.listlb  +++|          NZ     X0,PRS8     IF FILE SEQUENCE NUMBER TOO LONG
01110  M01S01026.listlb  +++|          SB7    B1
01111  M01S01027.listlb  +++|          RJ     DXB         CONVERT TO BINARY
01112  M01S01028.listlb  +++|          SA6    SN
01113  M01S01029.listlb  +++|          SA6    QN
01114  M01S01030.listlb  +++|          JP     PRS1        GET NEXT PARAMETER
01115  M01S01031.listlb  +++|          SPACE  4
01116  M01S01032.listlb  +++|**        COMMON DECKS.
01117  M01S01033.listlb  +++|
01118  M01S01034.listlb  +++|*CALL     COMCCPM
01119  M01S01035.listlb  +++|*CALL     COMCDXB
01120  M01S01036.listlb  +++| LIT      CON    0           DEFINE LITERAL PROCESSING
01121  M01S01037.listlb  +++|*CALL     COMCPOP
01122  M01S01038.listlb  +++|*CALL     COMCSFN
01123  M01S00045.ns22000 +++|*CALL     COMCSTF
01124  M01S01039.listlb  +++|*CALL     COMCUSB
01125  M01S00046.ns22000 +++|*CALL     COMCWTC
01126  M01S01040.listlb  +++|          SPACE  4
01127  M01S01041.listlb  +++|          END