User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:vfylib

Deck VFYLIB

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.vfylib  +++|          IDENT  VFYLIB,FETS,VFYLIB
00002  M00S00002.vfylib  +++|          ABS
00003  M00S00003.vfylib  +++|          ENTRY  VFYLIB
00004  M00S00004.vfylib  +++|          ENTRY  MFL=
00005  M00S00005.vfylib  +++|          ENTRY  SSM=
00006  M00S00006.vfylib  +++|          SYSCOM B1
00007  M00S00007.vfylib  +++| VFYLIB   TITLE  VFYLIB - VERIFY LIBRARY FILES.
00008  M00S00008.vfylib  +++|*COMMENT  VFYLIB - VERIFY LIBRARY FILES.
Line S00009 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00010.vfylib  +++| VFYLIB   SPACE  4,10
00012  M00S00011.vfylib  +++|***       VFYLIB - VERIFY LIBRARY FILES.
00013  M00S00012.vfylib  +++|*         D. A. CAHLANDER.   69/02/16.
00014  M00S00013.vfylib  +++|*         P. D. HAAS.        73/10/10.
00015  M00S00014.vfylib  +++|*         A. D. FORET.       75/02/10.
00016  M00S00015.vfylib  +++|          SPACE  4
00017  M00S00016.vfylib  +++|***       VFYLIB COMPARES TWO LIBRARY FILES.  REPLACEMENTS, DELETIONS,
00018  M00S00017.vfylib  +++|*         INSERTIONS, AND CHANGES IN RESIDENCE ARE RECORDED ON FILE
00019  M00S00018.vfylib  +++|*         *OUTPUT*.
00020  M00S00019.vfylib  +++|          SPACE  4
Line S00020 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00020.v23l617 ---|***       CONTROL CARD CALL.
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.v23l617 +++|***       COMMAND.
00023  M00S00021.vfylib  +++|*
00024  M00S00022.vfylib  +++|*                VFYLIB(OLD,NEW,OUTPUT,NR)
00025  M00S00023.vfylib  +++|*
00026  M00S00024.vfylib  +++|*                OLD = OLD LIBRARY FILE (*OLD* ASSUMED).
00027  M00S00025.vfylib  +++|*                NEW = NEW LIBRARY FILE (*NEW* ASSUMED).
00028  M00S00026.vfylib  +++|*                OUTPUT = OUTPUT FILE (*OUTPUT* ASSUMED).
00029  M00S00027.vfylib  +++|*                NR, IF SPECIFIED, OLD AND NEW ARE NOT REWOUND.
00030  M00S00028.vfylib  +++|          SPACE  4,20
00031  M00S00029.vfylib  +++|***       DAYFILE MESSAGES.
00032  M00S00030.vfylib  +++|*
00033  M00S00031.vfylib  +++|*         * FWA/LWA ERROR IN VFYLIB. * - FWA OF PROGRAM TEXT
00034  M00S00032.vfylib  +++|*           IS LESS THAN THE LWA + 1 OF PROGRAM TEXT.
00035  M00S00033.vfylib  +++|*
Line S00034 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00034.v23l617 ---|*         * ILLEGAL DEVICE TYPE -- LFN = XX. * - DISPLAYS ILLEGAL
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00002.v23l617 +++|*         * UNKNOWN DEVICE TYPE -- LFN = XX. * - DISPLAYS UNKNOWN
00038  M00S00035.vfylib  +++|*           DEVICE TYPE.
00039  M00S00036.vfylib  +++|*
00040  M00S00037.vfylib  +++|*         * TABLE OVERFLOW. JOB ABORTED. * - INSUFFICIENT FIELD LENGTH.
00041  M00S00038.vfylib  +++|*
00042  M00S00039.vfylib  +++|*         * VERIFY GOOD. * - THE TWO FILES VERIFIED GOOD.
00043  M00S00040.vfylib  +++|*
00044  M00S00041.vfylib  +++|*         * VFYLIB COMPLETE. * - NORMAL TERMINATION MESSAGE.  THE
00045  M00S00042.vfylib  +++|*           DIFFERENCES BETWEEN *OLD* AND *NEW* FILES ARE LISTED
00046  M00S00043.vfylib  +++|*           ON THE OUTPUT FILE SPECIFIED.
00047  M00S00044.vfylib  +++|*
00048  M00S00045.vfylib  +++|*         * XXXXXX FIELD LENGTH REQUIRED. * - FIELD LENGTH REQUIRED.
00049  M00S00046.vfylib  +++|          SPACE  4
00050  M00S00047.vfylib  +++|****      ASSEMBLY CONSTANTS.
00051  M00S00048.vfylib  +++|
00052  M00S00049.vfylib  +++|
Line S00050 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00050.274l797 ---| OLDL     EQU    4011B       *OLD* BUFFER LENGTH
00054  M01S00051.274l797 ---| NEWL     EQU    4011B       *NEW* BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00055  M01S00001.274l797 +++| OLDL     EQU    30061B      *OLD* BUFFER LENGTH
00056  M01S00002.274l797 +++| NEWL     EQU    30061B      *NEW* BUFFER LENGTH
Line S00052 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00052.vfyli5  ---| ENTL     EQU    4           NUMBER OF WORDS/ENTRY IN *OPT* AND *NPT*
Line S00001 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00001.vfyli5  +++| ENTL     EQU    5           NUMBER OF WORDS/ENTRY IN *OPT* AND *NPT*
00059  M00S00053.vfylib  +++| OUTL     EQU    2010B       *OUTPUT* BUFFER LENGTH
00060  M00S00054.vfylib  +++| MINBL    EQU    4000B       MINIMUM BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00061  M01S00001.vfyli3  +++| MINC     EQU    1000B       MEMORY REQUEST INCREMENT
Line S00003 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00003.274l797 +++| ODEBL    EQU    16          LENGTH OF OD FET EXTENSION
00063  M00S00055.vfylib  +++|****
00064  M00S00056.vfylib  +++|
00065  M00S00057.vfylib  +++|
00066  M00S00058.vfylib  +++|*         SPECIAL ENTRY POINT.
00067  M00S00059.vfylib  +++|
00068  M00S00060.vfylib  +++| SSM=     EQU    0           SUPPRESS DUMPS OF FIELD LENGTH
00069  M00S00061.vfylib  +++|          SPACE  4,10
00070  M00S00062.vfylib  +++|*CALL     COMCMAC
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00071  M01S00001.ns22000 +++|*CALL     COMCCMD
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00001.251l664 +++|*CALL     COMSSRT
00073  M00S00063.vfylib  +++|          TITLE  TABLE STRUCTURE.
00074  M00S00064.vfylib  +++|**        TABLE STRUCTURE.
00075  M00S00065.vfylib  +++|*         ALL TABLES ARE VARIABLE LENGTH MANAGED TABLES.  POINTERS
00076  M00S00066.vfylib  +++|*         TO TABLE ABC ARE:
00077  M00S00067.vfylib  +++|*                P.ABC = FWA OF TABLE ABC.
00078  M00S00068.vfylib  +++|*                L.ABC = LENGTH OF TABLE ABC.
00079  M00S00069.vfylib  +++|*                N.ABC = NUMBER OF WORDS/ENTRY.
00080  M00S00070.vfylib  +++|*                D.ABC = NUMBER OF WORDS THE LENGTH OF TABLE IS
00081  M00S00071.vfylib  +++|*                        INCREASED IF TABLE IS FULL.
00082  M00S00072.vfylib  +++|*
00083  M00S00073.vfylib  +++|*         OPT - OLD PROGRAM TABLE.
00084  M00S00074.vfylib  +++|*
00085  M00S00075.vfylib  +++|*                42/PROGRAM,12/LIB,6/TYPE
Line S00076 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00076.vfyli5  ---|*                30/CHECKSUM,30/INDEX
Line S00002 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00002.vfyli5  +++|*                12/CHECKSUM,18/0,30/INDEX
00088  M00S00077.vfylib  +++|*                60/ULIB
00089  M00S00078.vfylib  +++|*                60/DATE
00090  M00S00079.vfylib  +++|*                  1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED.
00091  M00S00080.vfylib  +++|*                  2. LIB = LIBRARY NUMBER.
Line S00081 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00092  M01S00081.vfyli5  ---|*                  3. TYPE = PROGRAM TYPE.
00093  M01S00082.vfyli5  ---|*                    0 = *TEXT*
00094  M01S00083.vfyli5  ---|*                    1 = *PP*
00095  M01S00084.vfyli5  ---|*                    3 = *REL* RELOCATABLE
00096  M01S00085.vfyli5  ---|*                    4 = *OVL* OVERLAY
00097  M01S00086.vfyli5  ---|*                    5 = *ULIB* USER LIBRARY
00098  M01S00087.vfyli5  ---|*                    6 = *OPL* OLD PROGRAM LIBRARY
00099  M01S00088.vfyli5  ---|*                    7 = *OPLC* OLD PROGRAM LIBRARY COMMON DECK
00100  M01S00089.vfyli5  ---|*                    8 = *OPLD* OLD PROGRAM LIBRARY DIRECTORY
00101  M01S00090.vfyli5  ---|*                    9 = *ABS* ABSOLUTE PROGRAM
00102  M01S00091.vfyli5  ---|*                    10 = *PPU* 7600 PPU PROGRAM
00103  M01S00092.vfyli5  ---|*                    14 = *CAP* FAST DYNAMIC LOAD CAPSULE
00104  M01S00093.vfyli5  ---|*                    16 = *PROC* PROCEDURE TYPE RECORD
Line S00002 Modification History
M01 (Added by) 251l664
M02 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00002.vfyli5  ---|*                    20 = *PPL* 16-BIT PP PROGRAM
Line S00003 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00106  M01S00003.vfyli5  +++|*                  3. TYPE = PROGRAM TYPE FROM *COMCSRT*.
00107  M00S00094.vfylib  +++|*                  4. CHECKSUM = CHECKSUM OF PROGRAM TEXT.
00108  M00S00095.vfylib  +++|*                  5. INDEX = INDEX TO COMMENT TABLE.
00109  M00S00096.vfylib  +++|*                  6. ULIB = ULIB NAME.
00110  M00S00097.vfylib  +++|*                  7. DATE = DATE FROM 7700 TABLE.
00111  M00S00098.vfylib  +++|*
00112  M00S00099.vfylib  +++|*         NPT - NEW PROGRAM TABLE.
00113  M00S00100.vfylib  +++|*
Line S00101 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00114  M01S00101.vfyli5  ---|*                42/PROGRAM,12/LIB,6/TYPE
00115  M01S00102.vfyli5  ---|*                30/CHECKSUM,30/INDEX
00116  M01S00103.vfyli5  ---|*                60/ULIB
00117  M01S00104.vfyli5  ---|*                60/DATE
Line S00004 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00118  M01S00004.vfyli5  +++|*                FORMAT THE SAME AS OLD PROGRAM TABLE.
00119  M00S00105.vfylib  +++|*
00120  M00S00106.vfylib  +++|*         CMT - COMMENT TABLE.
00121  M00S00107.vfylib  +++|*
00122  M00S00108.vfylib  +++|*                60/COMMENT TEXT
00123  M00S00109.vfylib  +++|*                60/COMMENT TEXT
00124  M00S00110.vfylib  +++|*                       ..
00125  M00S00111.vfylib  +++|*                48/COMMENT TEXT,12/0
00126  M00S00112.vfylib  +++|          TITLE  MACRO DEFINITIONS.
00127  M00S00113.vfylib  +++|**        CALL - SUBROUTINE CALL.
00128  M00S00114.vfylib  +++|*
00129  M00S00115.vfylib  +++|*         THIS MACRO SETS UP A STANDARD CALLING SEQUENCE.
00130  M00S00116.vfylib  +++|*
00131  M00S00117.vfylib  +++|*         CALL   SUB,P1,P2,P3,P4,P5,P6
00132  M00S00118.vfylib  +++|*
00133  M00S00119.vfylib  +++|*         ENTRY  SUB = SUBROUTINE NAME.
00134  M00S00120.vfylib  +++|*                PI = ADDRESS OF I-TH PARAMETER.
00135  M00S00121.vfylib  +++|*         PARAMETER ADDRESSES ARE PASSED IN B-REGISTERS (AS IN FORTRAN)
00136  M00S00122.vfylib  +++|*         WITH THE FIRST PARAMETER ADDRESS IN B2, SECOND IN B3, ETC.
00137  M00S00123.vfylib  +++|
00138  M00S00124.vfylib  +++|
00139  M00S00125.vfylib  +++| CALL     MACRO  SUB,P1,P2,P3,P4,P5,P6
00140  M00S00126.vfylib  +++|          IFC    NE,$P1$$,1
00141  M00S00127.vfylib  +++|          R=     B2,P1
00142  M00S00128.vfylib  +++|          IFC    NE,$P2$$,1
00143  M00S00129.vfylib  +++|          R=     B3,P2
00144  M00S00130.vfylib  +++|          IFC    NE,$P3$$,1
00145  M00S00131.vfylib  +++|          R=     B4,P3
00146  M00S00132.vfylib  +++|          IFC    NE,$P4$$,1
00147  M00S00133.vfylib  +++|          R=     B5,P4
00148  M00S00134.vfylib  +++|          IFC    NE,$P5$$,1
00149  M00S00135.vfylib  +++|          R=     B6,P5
00150  M00S00136.vfylib  +++|          IFC    NE,$P6$$,1
00151  M00S00137.vfylib  +++|          R=     B7,P6
00152  M00S00138.vfylib  +++|          ENDIF
00153  M00S00139.vfylib  +++|          RJ     SUB
00154  M00S00140.vfylib  +++|          ENDM
00155  M00S00141.vfylib  +++|          SPACE  4
00156  M00S00142.vfylib  +++|**        TABLE - DEFINE MANAGED TABLE POINTERS.
00157  M00S00143.vfylib  +++|*
00158  M00S00144.vfylib  +++|*         MANAGED TABLES HAVE 4 POINTERS ASSOCIATED WITH THEM:
00159  M00S00145.vfylib  +++|*         (P.NAME) = FWA OF MANAGED TABLE.
00160  M00S00146.vfylib  +++|*         (L.NAME) = LENGTH OF MANAGED TABLE.
00161  M00S00147.vfylib  +++|*         (N.NAME) = NUMBER OF WORDS IN AN ENTRY.
00162  M00S00148.vfylib  +++|*         (D.NAME) = NUMBER OF WORDS THE LENGTH OF TABLE IS
00163  M00S00149.vfylib  +++|*                    INCREASED IF TABLE IS FULL.
00164  M00S00150.vfylib  +++|*
00165  M00S00151.vfylib  +++|*         TABLE  NAME,WORD,DELTA
00166  M00S00152.vfylib  +++|*
00167  M00S00153.vfylib  +++|*         ENTRY  NAME = NAME OF TABLE.
00168  M00S00154.vfylib  +++|*                WORD = NUMBER OF WORDS/ENTRY.
00169  M00S00155.vfylib  +++|*                DELTA = SIZE OF TABLE INCREASE (NUMBER OF ENTRIES).
00170  M00S00156.vfylib  +++|
00171  M00S00157.vfylib  +++|
00172  M00S00158.vfylib  +++| TABLE    MACRO  NAME,WORD,DELTA
00173  M00S00159.vfylib  +++|          LOCAL  NW,DW
00174  M00S00160.vfylib  +++| NW       SET    WORD   1
00175  M00S00161.vfylib  +++| DW       SET    DELTA  4
00176  M00S00162.vfylib  +++| P.NAME   VFD    42D/0L_NAME,18D/BUF
00177  M00S00163.vfylib  +++| L.NAME   VFD    60D/0
00178  M00S00164.vfylib  +++| N.NAME   VFD    60D/NW
00179  M00S00165.vfylib  +++| D.NAME   VFD    60D/NW*DW
00180  M00S00166.vfylib  +++|          ENDM
00181  M00S00167.vfylib  +++|          SPACE  4
00182  M00S00168.vfylib  +++|**        SEARCH - SEARCH FOR ENTRY IN MANAGED TABLE.
00183  M00S00169.vfylib  +++|*
00184  M00S00170.vfylib  +++|*         THIS MACRO SETS UP A CALL TO SEARCH FOR AN ENTRY
00185  M00S00171.vfylib  +++|*         IN A MANAGED TABLE.
00186  M00S00172.vfylib  +++|*
00187  M00S00173.vfylib  +++|*         SEARCH TABLE,ENTRY,MASK,INDEX,RETURN
00188  M00S00174.vfylib  +++|*
00189  M00S00175.vfylib  +++|*         ENTRY  TABLE = NAME OF MANAGED TABLE.
00190  M00S00176.vfylib  +++|*                ENTRY = ADDRESS OF ENTRY.
00191  M00S00177.vfylib  +++|*                MASK = ADDRESS OF SEARCH MASK.
00192  M00S00178.vfylib  +++|*                INDEX = INDEX INTO TABLE.
00193  M00S00179.vfylib  +++|*                RETURN = ADDRESS OF RETURN PARAMETER.
00194  M00S00180.vfylib  +++|
00195  M00S00181.vfylib  +++|
00196  M00S00182.vfylib  +++| SEARCH   MACRO TABLE,ENTRY,MASK,INDEX,RETURN
00197  M00S00183.vfylib  +++|          SB2    P.TABLE
00198  M00S00184.vfylib  +++|          SB3    ENTRY
00199  M00S00185.vfylib  +++|          SB4    MASK   =77777777777777777777B
00200  M00S00186.vfylib  +++|          SB5    INDEX  B0
00201  M00S00187.vfylib  +++|          SB6    RETURN SMTA
00202  M00S00188.vfylib  +++|          RJ     SMT
00203  M00S00189.vfylib  +++|          ENDM
00204  M00S00190.vfylib  +++| READW    SPACE  4
00205  M00S00191.vfylib  +++|**        READW - REDEFINE READ WORDS MACRO TO USE CONTROL WORDS.
00206  M00S00192.vfylib  +++|
00207  M00S00193.vfylib  +++|
00208  M00S00194.vfylib  +++|          PURGMAC READW
00209  M00S00195.vfylib  +++|
00210  M00S00196.vfylib  +++| READW    MACRO F,S,N
00211  M00S00197.vfylib  +++|          R=     B6,S
00212  M00S00198.vfylib  +++|          R=     B7,N
00213  M00S00199.vfylib  +++|          R=     X2,F
00214  M00S00200.vfylib  +++|          RJ     RDA
00215  M00S00201.vfylib  +++|          ENDM
00216  M00S00202.vfylib  +++|          TITLE  FETS AND TEMPORARY STORAGE.
00217  M00S00203.vfylib  +++| FETS     SPACE  4,10
00218  M00S00204.vfylib  +++|**        FETS.
00219  M00S00205.vfylib  +++|
00220  M00S00206.vfylib  +++|
Line S00207 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00207.vfyli5  ---|          ORG    110B
Line S00005 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00005.vfyli5  +++|          ORG    104B
00223  M00S00208.vfylib  +++| FETS     BSS    0
00224  M00S00209.vfylib  +++|
00225  M00S00210.vfylib  +++|          CON    -0
00226  M00S00211.vfylib  +++|          CON    0
Line S00212 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00227  M01S00212.274l797 ---| OLD      FILEB  OLDB,OLDL
Line S00004 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00004.274l797 +++| OLD      FILEB  OLDB,OLDL,(FET=10)
00229  M01S00005.274l797 +++|          ORG    OLD+11B
00230  M01S00006.274l797 +++|          VFD    36/,6/ODEBL,18/OODEB POINTER TO *OD* EXT. BUFFER
00231  M01S00007.274l797 +++|          ORG    OLD+10
00232  M00S00213.vfylib  +++|
00233  M00S00214.vfylib  +++|          CON    -0
00234  M00S00215.vfylib  +++|          CON    0
Line S00216 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00235  M01S00216.274l797 ---| NEW      FILEB  NEWB,NEWL
Line S00008 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00236  M01S00008.274l797 +++| NEW      FILEB  NEWB,NEWL,(FET=10)
00237  M01S00009.274l797 +++|          ORG    NEW+11B
00238  M01S00010.274l797 +++|          VFD    36/,6/ODEBL,18/NODEB POINTER TO *OD* EXT. BUFFER
00239  M01S00011.274l797 +++|          ORG    NEW+10
00240  M00S00217.vfylib  +++|
00241  M00S00218.vfylib  +++| O        BSS    0
Line S00219 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00219.ns22000 ---| OUTPUT   FILEC  OUTB,OUTL
Line S00002 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00002.ns22000 +++| OUTPUT   FILEC  OUTB,OUTL,(FET=8)
00244  M00S00220.vfylib  +++| TEMP     SPACE  4,10
Line S00012 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00012.274l797 +++|*         OPTICAL DISK EXTENSION BUFFERS.
00246  M01S00013.274l797 +++|
00247  M01S00014.274l797 +++| OODEB    BSSZ   ODEBL       *OLD*
00248  M01S00015.274l797 +++| NODEB    BSSZ   ODEBL       *NEW*
00249  M00S00221.vfylib  +++|**        TEMPORARY STORAGE.
00250  M00S00222.vfylib  +++|
00251  M00S00223.vfylib  +++|
00252  M00S00224.vfylib  +++| CREW     CON    0           CLEAR REWIND FLAG
Line S00225 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00253  M01S00225.ns22000 ---| LINE     CON    LINP        LINE NUMBER COUNT
Line S00003 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00003.ns22000 +++| LINE     CON    99999,0     LINE NUMBER COUNT
00255  M01S00004.ns22000 +++| LL       EQU    LINE+1      LINE LIMIT - PAGE SIZE
00256  M01S00005.ns22000 +++| PD       CON    0,0         PRINT DENSITY FORMAT CONTROL
00257  M01S00006.ns22000 +++| TF       EQU    PD+1        TERMINAL FILE FLAG
Line S00001 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00001.vfyli1  +++| PNUM     CON    0           PAGE NUMBER
Line S00002 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00259  M01S00002.vfyli3  +++| CFL      CON    0           CURRENT FIELD LENGTH
00260  M01S00003.vfyli3  +++| MFL      VFD    30/-0,30/0  MAXIMUM FIELD LENGTH
00261  M00S00226.vfylib  +++|          TITLE  MAIN PROGRAM.
00262  M00S00227.vfylib  +++|**        VFYLIB - VERIFY LIBRARY FILES.
00263  M00S00228.vfylib  +++|*
00264  M00S00229.vfylib  +++|*         ENTRY  (ACTR) - ARGUMENT COUNT.
00265  M00S00230.vfylib  +++|*                1. FILE *OLD* AND *NEW* ARE READ TO CREATE DICTIONARY.
00266  M00S00231.vfylib  +++|*                2. REPLACEMENTS AND COPIES ARE CHECKED.
00267  M00S00232.vfylib  +++|*                3. RESIDENCE CHANGES ARE FOUND.
00268  M00S00233.vfylib  +++|*                4. DELETIONS ARE FOUND.
00269  M00S00234.vfylib  +++|*                5. INSERTIONS ARE FOUND.
00270  M00S00235.vfylib  +++|*
00271  M00S00236.vfylib  +++|*         USES   A - 1, 2, 6.
00272  M00S00237.vfylib  +++|*                B - 6.
00273  M00S00238.vfylib  +++|*                X - 0, 1, 2, 3, 6.
00274  M00S00239.vfylib  +++|*
00275  M00S00240.vfylib  +++|*         CALLS  ARG, CDP, COD, CRC, CRP, PRS, RDF.
00276  M00S00241.vfylib  +++|*
00277  M00S00242.vfylib  +++|*         MACROS CALL, ENDRUN, MESSAGE, REWIND, WRITER.
00278  M00S00243.vfylib  +++|
00279  M00S00244.vfylib  +++|
Line S00245 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00280  M01S00245.vfyli5  ---| VFYLIB   SB1    1
Line S00006 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00006.vfyli5  +++| VFYLIB   BSS    0           ENTRY
00282  M01S00007.vfyli5  +++|          SB1    1           (B1) = 1
Line S00246 Modification History
M01 (Removed by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00246.vfyli3  ---|          CALL   PRS         PRESET PROGRAM
00284  M01S00247.vfyli3  ---| VFY1     SA6    B6          CLEAR BUFFER AREA
00285  M01S00248.vfyli3  ---|          SB6    B6+B1
00286  M01S00249.vfyli3  ---|          NE     B6,B7,VFY1  IF NOT COMPLETE
00287  M01S00250.vfyli3  ---|          CALL   ARG         PROCESS ARGUMENTS
00288  M01S00251.vfyli3  ---|          CALL   RDF         READ FILES
Line S00004 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00004.vfyli3  +++|          RJ     PRS         PRESET PROGRAM
00290  M01S00005.vfyli3  +++|          RJ     ARG         PROCESS ARGUMENTS
00291  M01S00006.vfyli3  +++|          RJ     RDF         READ FILES
00292  M00S00252.vfylib  +++|          SX6    VFYA
00293  M00S00253.vfylib  +++|          SA6    OPND
Line S00254 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00294  M01S00254.vfyli5  ---|          CALL   CRP         CHECK REPLACED PROGRAMS
Line S00008 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00008.vfyli5  +++|          RJ     CRP         CHECK REPLACED PROGRAMS
00296  M00S00255.vfylib  +++|          SX6    VFYB
00297  M00S00256.vfylib  +++|          SA6    OPND
Line S00257 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00257.vfyli5  ---|          CALL   CRC         CHECK RESIDENCE CHANGES
Line S00009 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00009.vfyli5  +++|          RJ     CRC         CHECK RESIDENCE CHANGES
00300  M00S00258.vfylib  +++|          SX6    VFYC
00301  M00S00259.vfylib  +++|          SA6    OPND
00302  M00S00260.vfylib  +++|          CALL   CDP,(P.OPT) CHECK DELETED PROGRAMS
00303  M00S00261.vfylib  +++|          SX6    VFYD
00304  M00S00262.vfylib  +++|          SA6    OPND
00305  M00S00263.vfylib  +++|          CALL   CDP,(P.NPT) CHECK INSERTED PROGRAMS
00306  M00S00264.vfylib  +++|
00307  M00S00265.vfylib  +++|*         END PROGRAM.
00308  M00S00266.vfylib  +++|
00309  M00S00267.vfylib  +++|          SA1    P.BUF       ISSUE F.L. MESSAGE
00310  M00S00268.vfylib  +++|          MX0    -18
00311  M00S00269.vfylib  +++|          BX1    -X0*X1
00312  M00S00270.vfylib  +++|          RJ     COD
00313  M00S00271.vfylib  +++|          SA2    VFYE
00314  M00S00272.vfylib  +++|          MX1    6*6         BUILD FL REQUIRED MESSAGE
00315  M00S00273.vfylib  +++|          BX3    X1*X4
00316  M00S00274.vfylib  +++|          BX6    -X1*X2
00317  M00S00275.vfylib  +++|          BX6    X6+X3
00318  M00S00276.vfylib  +++|          SA6    A2
00319  M00S00277.vfylib  +++|          MESSAGE A6,3       FL REQUIRED
Line S00278 Modification History
M01 (Removed by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00320  M01S00278.vfyli1  ---|          SA1    OUTPUT+2    CLOSE OUT FILE *OUTPUT*
Line S00002 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00002.vfyli1  +++|          SA1    PNUM        CHECK FOR PAGE NUMBER
00322  M00S00279.vfylib  +++|          SX0    =C* VERIFY GOOD.*
Line S00280 Modification History
M01 (Removed by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00280.vfyli1  ---|          SA2    A1+B1
00324  M01S00281.vfyli1  ---|          BX6    X1-X2
00325  M01S00282.vfyli1  ---|          ZR     X6,VFY2     IF NO OUTPUT
Line S00003 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00326  M01S00003.vfyli1  +++|          ZR     X1,VFY2     IF NO PAGE NUMBER DETECTED
00327  M00S00283.vfylib  +++|          SX0    =C* VFYLIB COMPLETE.*
00328  M00S00284.vfylib  +++|          WRITER OUTPUT
00329  M00S00285.vfylib  +++| VFY2     SA1    CREW
00330  M00S00286.vfylib  +++|          NZ     X1,VFY3     IF NO REWIND FLAG SET
00331  M00S00287.vfylib  +++|          REWIND OLD
00332  M00S00288.vfylib  +++|          REWIND NEW
00333  M00S00289.vfylib  +++| VFY3     MESSAGE X0+
00334  M00S00290.vfylib  +++|          ENDRUN
00335  M00S00291.vfylib  +++|
Line S00292 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00336  M01S00292.ns22000 ---| VFYA     DATA   C*0     RECORDS REPLACED.*
Line S00007 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00337  M01S00007.ns22000 +++| VFYA     DATA   C*      RECORDS REPLACED.*
00338  M00S00293.vfylib  +++|
Line S00294 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00339  M01S00294.ns22000 ---| VFYB     DATA   C*0     CHANGES IN RESIDENCE.*
Line S00008 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00340  M01S00008.ns22000 +++| VFYB     DATA   C*      CHANGES IN RESIDENCE.*
00341  M00S00295.vfylib  +++|
Line S00296 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00296.ns22000 ---| VFYC     DATA   C*0     DELETED PROGRAMS.*
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Removed by) vfyli6
Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00009.vfyli6  ---| VFYC     DATA   C*      DELETED PROGRAMS.*
Line S00001 Modification History
M01 (Added by) vfyli6
Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00001.vfyli6  +++| VFYC     DATA   C*      DELETED RECORDS.*
00345  M00S00297.vfylib  +++|
Line S00298 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00346  M01S00298.ns22000 ---| VFYD     DATA   C*0     INSERTED PROGRAMS.*
Line S00010 Modification History
M01 (Added by) ns22000
M02 (Removed by) vfyli6
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00010.vfyli6  ---| VFYD     DATA   C*      INSERTED PROGRAMS.*
Line S00002 Modification History
M01 (Added by) vfyli6
Seq #  *Modification Id* Act 
----------------------------+
00348  M01S00002.vfyli6  +++| VFYD     DATA   C*      INSERTED RECORDS.*
00349  M00S00299.vfylib  +++|
00350  M00S00300.vfylib  +++| VFYE     DATA   C*NNNNNN FIELD LENGTH REQUIRED.*
00351  M00S00301.vfylib  +++|          TITLE  SUBROUTINES.
00352  M00S00302.vfylib  +++|**        ABT - ABORT JOB.
00353  M00S00303.vfylib  +++|*
Line S00010 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00354  M01S00010.vfyli5  +++|*         ENTRY  (X1) = ADDRESS OF MESSAGE.
00355  M01S00011.vfyli5  +++|*
00356  M00S00304.vfylib  +++|*         USES   A - 1, 2.
00357  M00S00305.vfylib  +++|*                X - 1, 2, 6.
00358  M00S00306.vfylib  +++|*
Line S00307 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00307.vfyli5  ---|*         MACROS ABORT, WRITER.
Line S00012 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00012.vfyli5  +++|*         MACROS ABORT, MESSAGE, WRITER.
00361  M00S00308.vfylib  +++|
00362  M00S00309.vfylib  +++|
00363  M00S00310.vfylib  +++| ABT      SUBR               ENTRY/EXIT
Line S00013 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00364  M01S00013.vfyli5  +++|          MESSAGE X1         ISSUE ERROR MESSAGE
00365  M00S00311.vfylib  +++|          SA1    OUTPUT+2    CLOSE OUT FILE *OUTPUT*
00366  M00S00312.vfylib  +++|          SA2    A1+B1
00367  M00S00313.vfylib  +++|          BX6    X1-X2
00368  M00S00314.vfylib  +++|          ZR     X6,ABT1     IF NO OUTPUT
00369  M00S00315.vfylib  +++|          WRITER OUTPUT
00370  M00S00316.vfylib  +++| ABT1     ABORT
00371  M00S00317.vfylib  +++|          SPACE  4
00372  M00S00318.vfylib  +++|**        ADD - ADD WORD(S) TO MANAGED TABLE.
00373  M00S00319.vfylib  +++|*
00374  M00S00320.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF TABLE POINTER.
00375  M00S00321.vfylib  +++|*                (B3) = FWA OF ENTRY.
00376  M00S00322.vfylib  +++|*
00377  M00S00323.vfylib  +++|*         USES   A - 1, 2, 3, 4, 5, 7.
00378  M00S00324.vfylib  +++|*                B - 4, 5, 6, 7.
00379  M00S00325.vfylib  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
00380  M00S00326.vfylib  +++|*
00381  M00S00327.vfylib  +++|*         CALLS  ABT.
00382  M00S00328.vfylib  +++|*
Line S00329 Modification History
M01 (Removed by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00329.vfyli3  ---|*         MACROS CALL, MESSAGE.
Line S00007 Modification History
M01 (Added by) vfyli3
M02 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00007.vfyli5  ---|*         MACROS CALL, MEMORY, MESSAGE.
Line S00014 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00014.vfyli5  +++|*         MACROS MEMORY.
00386  M00S00330.vfylib  +++|
00387  M00S00331.vfylib  +++|
00388  M00S00332.vfylib  +++| ADD      SUBR               ENTRY/EXIT
00389  M00S00333.vfylib  +++| ADD1     SA1    B2          SET TABLE ADDRESS
00390  M00S00334.vfylib  +++|          SA2    B2+B1
00391  M00S00335.vfylib  +++|          SA3    A2+B1
00392  M00S00336.vfylib  +++|          SA4    A3+B1
00393  M00S00337.vfylib  +++|          SA5    A4+B1
00394  M00S00338.vfylib  +++|          IX7    X2+X3
00395  M00S00339.vfylib  +++|          IX7    X7-X5
00396  M00S00340.vfylib  +++|          SB6    X1
00397  M00S00341.vfylib  +++|          SX6    B6+X7
00398  M00S00342.vfylib  +++|          PL     X6,ADD3     IF NO ROOM FOR ENTRY
00399  M00S00343.vfylib  +++|          SA1    B3          STORE ENTRY
00400  M00S00344.vfylib  +++| ADD2     BX7    X1
00401  M00S00345.vfylib  +++|          SA7    B6+X2
00402  M00S00346.vfylib  +++|          SX2    X2+B1
00403  M00S00347.vfylib  +++|          SA1    A1+B1
00404  M00S00348.vfylib  +++|          SX3    X3-1
00405  M00S00349.vfylib  +++|          NZ     X3,ADD2     LOOP FOR ENTIRE ENTRY
00406  M00S00350.vfylib  +++|          BX7    X2
00407  M00S00351.vfylib  +++|          SA7    A2
00408  M00S00352.vfylib  +++|          EQ     ADDX        RETURN
00409  M00S00353.vfylib  +++|
00410  M00S00354.vfylib  +++|*         NO ROOM FOR ENTRY.  MOVE OTHER TABLES UP TO MAKE ROOM FOR
00411  M00S00355.vfylib  +++|*         ENTRY.
00412  M00S00356.vfylib  +++|
00413  M00S00357.vfylib  +++| ADD3     SA1    P.BUF
00414  M00S00358.vfylib  +++|          SA2    L.BUF
00415  M00S00359.vfylib  +++|          IX6    X2-X4
00416  M00S00360.vfylib  +++|          PL     X6,ADD4     IF ENOUGH FL
Line S00361 Modification History
M01 (Removed by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00361.vfyli3  ---|          MESSAGE (=C*TABLE OVERFLOW. JOB ABORTED.*)
00418  M01S00362.vfyli3  ---|          CALL   ABT         ABORT JOB
Line S00008 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00419  M01S00008.vfyli3  +++|          SA1    CFL         INCREMENT CURRENT FIELD LENGTH
00420  M01S00009.vfyli3  +++|          SA3    MFL         FIELD LENGTH LIMIT
00421  M01S00010.vfyli3  +++|          SX6    X1+MINC     NEW FIELD LENGTH
00422  M01S00011.vfyli3  +++|          SX7    X2+MINC     NEW LENGTH
00423  M01S00012.vfyli3  +++|          AX3    30
00424  M01S00013.vfyli3  +++|          SA6    A1
00425  M01S00014.vfyli3  +++|          SA7    A2+
00426  M01S00015.vfyli3  +++|          IX3    X3-X6
Line S00016 Modification History
M01 (Added by) vfyli3
M02 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00016.vfyli5  ---|          NG     X3,ADD7     IF INSUFFICIENT FIELD LENGTH
Line S00015 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00428  M01S00015.vfyli5  +++|          NG     X3,ADD8     IF INSUFFICIENT FIELD LENGTH
Line S00017 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00429  M01S00017.vfyli3  +++|          BX1    X6
00430  M01S00018.vfyli3  +++|          MEMORY CM,,R,X1
00431  M01S00019.vfyli3  +++|          EQ     ADD1        RESTART ALLOCATION
00432  M00S00363.vfylib  +++|
00433  M00S00364.vfylib  +++| ADD4     SB5    X1          (B5) = LWA OF MOVE
00434  M00S00365.vfylib  +++|          SB6    X5          (B6) = FWA OF MOVE
00435  M00S00366.vfylib  +++|          SA6    A2
00436  M00S00367.vfylib  +++|          SB4    A1
00437  M00S00368.vfylib  +++| ADD5     SA1    B4          INCREMENT TABLE POINTERS
00438  M00S00369.vfylib  +++|          SB4    B4-4
00439  M00S00370.vfylib  +++|          IX7    X1+X4
00440  M00S00371.vfylib  +++|          SA7    A1
00441  M00S00372.vfylib  +++|          NE     B4,B2,ADD5  LOOP
00442  M00S00373.vfylib  +++|          SA2    B5
00443  M00S00374.vfylib  +++|          EQ     B5,B6,ADD1  JUMP IF NO DATA TO MOVE
00444  M00S00375.vfylib  +++|          SB7    X4+
00445  M00S00376.vfylib  +++| ADD6     SA1    A2-B1       MOVE TABLES
00446  M00S00377.vfylib  +++|          SA2    A1-B1
00447  M00S00378.vfylib  +++|          SB5    B5-2
00448  M00S00379.vfylib  +++|          BX6    X1
00449  M00S00380.vfylib  +++|          LX7    X2
00450  M00S00381.vfylib  +++|          SA6    A1+B7
00451  M00S00382.vfylib  +++|          SA7    A2+B7
00452  M00S00383.vfylib  +++|          NE     B5,B6,ADD6
00453  M00S00384.vfylib  +++|          SX7    B0          CLEAR NEW AREA
00454  M00S00385.vfylib  +++|          SB7    B6+B7
Line S00386 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00455  M01S00386.vfyli5  ---| +        SA7    B6
Line S00016 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00016.vfyli5  +++| ADD7     SA7    B6
00457  M00S00387.vfylib  +++|          SB6    B6+B1
Line S00388 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00458  M01S00388.vfyli5  ---|          NE     B6,B7,*
Line S00017 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00017.vfyli5  +++|          NE     B6,B7,ADD7  IF NOT END OF CLEAR
00460  M00S00389.vfylib  +++|          EQ     ADD1        MAKE ENTRY
Line S00020 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00461  M01S00020.vfyli3  +++|
Line S00021 Modification History
M01 (Added by) vfyli3
M02 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00021.vfyli5  ---| ADD7     MESSAGE (=C*TABLE OVERFLOW. JOB ABORTED.*)
00463  M02S00022.vfyli5  ---|          CALL   ABT         ABORT JOB
Line S00018 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00464  M01S00018.vfyli5  +++| ADD8     SX1    =C*TABLE OVERFLOW. JOB ABORTED.*
00465  M01S00019.vfyli5  +++|          RJ     ABT         ABORT
00466  M00S00390.vfylib  +++|          SPACE  4
00467  M00S00391.vfylib  +++|**        ARG - PROCESS ARGUMENTS ON CONTROL CARD.
00468  M00S00392.vfylib  +++|*
00469  M00S00393.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6.
00470  M00S00394.vfylib  +++|*                B - 6, 7.
00471  M00S00395.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6.
00472  M00S00396.vfylib  +++|*
Line S00397 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00473  M01S00397.ns22000 ---|*         CALLS  CDT, SFN.
Line S00011 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00011.ns22000 +++|*         CALLS  CDT, SFN, STF.
00475  M00S00398.vfylib  +++|*
Line S00399 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00399.ns22000 ---|*         MACROS CALL, OPEN, READCW, RECALL, REWIND.
Line S00012 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00477  M01S00012.ns22000 +++|*         MACROS CALL, OPEN, READCW, RECALL, REWIND, WRITEW.
00478  M00S00400.vfylib  +++|
00479  M00S00401.vfylib  +++|
00480  M00S00402.vfylib  +++| ARG      SUBR               ENTRY/EXIT
00481  M00S00403.vfylib  +++|          SA1    ACTR        SET ARGUMENT COUNT
00482  M00S00404.vfylib  +++|          MX0    42
00483  M00S00405.vfylib  +++|          SB7    X1
00484  M00S00406.vfylib  +++|          SA1    ARGR
00485  M00S00407.vfylib  +++|          SA2    ARGA        SET LIST OF OPTIONS
00486  M00S00408.vfylib  +++| ARG1     ZR     B7,ARG3     IF END OF ARGUMENTS
00487  M00S00409.vfylib  +++|          BX6    X0*X1
00488  M00S00410.vfylib  +++|          SA3    X2
00489  M00S00411.vfylib  +++|          SB7    B7-B1
00490  M00S00412.vfylib  +++|          BX3    -X0*X3
00491  M00S00413.vfylib  +++|          ZR     X6,ARG2     IF NO FILE NAME
00492  M00S00414.vfylib  +++|          BX6    X6+X3
00493  M00S00415.vfylib  +++|          SA6    X2
00494  M00S00416.vfylib  +++| ARG2     SA1    A1+B1       READ NEXT PARAMETER
00495  M00S00417.vfylib  +++|          SA2    A2+B1
00496  M00S00418.vfylib  +++|          NZ     X2,ARG1     LOOP FOR NEXT PARAMETER
Line S00013 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00497  M01S00013.ns22000 +++|
00498  M01S00014.ns22000 +++|*         SET TERMINAL FLAG.
00499  M01S00015.ns22000 +++|
00500  M01S00016.ns22000 +++| ARG3     SX2    O
00501  M01S00017.ns22000 +++|          RJ     STF         SET TERMINAL FILE
00502  M01S00018.ns22000 +++|          SA6    TF
00503  M01S00019.ns22000 +++|          WRITEW O,A6-B1,X6  CONDITIONALLY WRITE FORMAT EFFECTOR
00504  M00S00419.vfylib  +++|
00505  M00S00420.vfylib  +++|*         STORE FET POINTERS STARTING AT RA+2.
00506  M00S00421.vfylib  +++|
Line S00422 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00507  M01S00422.ns22000 ---| ARG3     SA1    ARGA        SET FET LIST
Line S00020 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00020.ns22000 +++|          SA1    ARGA        SET FET LIST
00509  M00S00423.vfylib  +++|          SB6    ARGR
00510  M00S00424.vfylib  +++| ARG4     SA2    X1
00511  M00S00425.vfylib  +++|          BX6    X0*X2
00512  M00S00426.vfylib  +++|          BX6    X6+X1
00513  M00S00427.vfylib  +++|          SA6    B6
00514  M00S00428.vfylib  +++|          SB6    B6+B1
00515  M00S00429.vfylib  +++|          SA1    A1+B1
00516  M00S00430.vfylib  +++|          NZ     X1,ARG4     LOOP FOR ALL FILES
00517  M00S00431.vfylib  +++|          SX6    B0          TERMINATE LIST
00518  M00S00432.vfylib  +++|          SA6    B6
00519  M00S00433.vfylib  +++|
00520  M00S00434.vfylib  +++|*         SET FILE NAMES IN TITLE.
00521  M00S00435.vfylib  +++|
00522  M00S00436.vfylib  +++|          SA2    OLD
00523  M00S00437.vfylib  +++|          BX1    X0*X2
00524  M00S00438.vfylib  +++|          RJ     SFN         SPACE FILL NAME
00525  M00S00439.vfylib  +++|          SX1    1RN&1R
00526  M00S00440.vfylib  +++|          SA2    NEW
00527  M00S00441.vfylib  +++|          BX6    X6-X1
00528  M00S00442.vfylib  +++|          SA6    WPHB+3
00529  M00S00443.vfylib  +++|          BX1    X0*X2
00530  M00S00444.vfylib  +++|          SA4    CREW
00531  M00S00445.vfylib  +++|          RJ     SFN
00532  M00S00446.vfylib  +++|          SA6    WPHB+5
00533  M00S00447.vfylib  +++|          NZ     X4,ARG5     IF NO REWIND FLAG SET
Line S00448 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00448.274l797 ---|          REWIND OLD,R
00535  M01S00449.274l797 ---|          REWIND NEW
00536  M01S00450.274l797 ---| ARG5     OPEN   OLD,READNR,R
00537  M01S00451.274l797 ---|          SA1    OLD+1       CHECK DEVICE TYPE
Line S00016 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00538  M01S00016.274l797 +++|          OPEN   OLD,READ,R
00539  M01S00017.274l797 +++|          OPEN   NEW,READ,R
00540  M01S00018.274l797 +++|          EQ     ARG6        CONTINUE
00541  M01S00019.274l797 +++|
00542  M01S00020.274l797 +++| ARG5     OPEN   OLD,READNR,R
00543  M01S00021.274l797 +++|          OPEN   NEW,READNR,R
00544  M01S00022.274l797 +++| ARG6     SA1    OLD+1       CHECK DEVICE TYPE
00545  M00S00452.vfylib  +++|          RJ     CDT
Line S00453 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00546  M01S00453.v23l617 ---|          ZR     X7,IDT      IF ILLEGAL DEVICE
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00547  M01S00003.v23l617 +++|          ZR     X7,IDT      IF UNKNOWN DEVICE
00548  M00S00454.vfylib  +++|          READCW OLD,17B
Line S00455 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00455.274l797 ---|          RECALL NEW
00550  M01S00456.274l797 ---|          OPEN   X2,READNR,R
00551  M00S00457.vfylib  +++|          SA1    NEW+1       CHECK DEVICE TYPE
00552  M00S00458.vfylib  +++|          RJ     CDT
Line S00459 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00553  M01S00459.v23l617 ---|          ZR     X7,IDT      IF ILLEGAL DEVICE
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00554  M01S00004.v23l617 +++|          ZR     X7,IDT      IF UNKNOWN DEVICE
00555  M00S00460.vfylib  +++|          READCW NEW,17B
00556  M00S00461.vfylib  +++|          EQ     ARGX        RETURN
00557  M00S00462.vfylib  +++|
00558  M00S00463.vfylib  +++| ARGA     CON    OLD         TABLE OF DEFAULT OPTIONS
00559  M00S00464.vfylib  +++|          CON    NEW
00560  M00S00465.vfylib  +++|          CON    OUTPUT
00561  M00S00466.vfylib  +++|          CON    CREW
00562  M00S00467.vfylib  +++|          CON    0
00563  M00S00468.vfylib  +++|          SPACE  4
00564  M00S00469.vfylib  +++|**        CCM - COPY COMMENT.
00565  M00S00470.vfylib  +++|*
00566  M00S00471.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF FILE PARAMETER AREA.
Line S00472 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00567  M01S00472.vfyli5  ---|*                (B3) = FWA OF PROGRAM TEXT.
00568  M00S00473.vfylib  +++|*                (B4) = ADDRESS OF WORKING STORAGE.
Line S00020 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00020.vfyli5  +++|*
00570  M01S00021.vfyli5  +++|*         EXIT   (B3) = FWA OF PROGRAM TEXT.
00571  M00S00474.vfylib  +++|*
00572  M00S00475.vfylib  +++|*         USES   A - 1, 4, 6.
00573  M00S00476.vfylib  +++|*                B - 3, 6.
Line S00477 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00477.vfyli5  ---|*                X - 1, 3, 4, 6.
Line S00022 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00575  M01S00022.vfyli5  +++|*                X - 1, 3, 4, 6, 7.
00576  M00S00478.vfylib  +++|*
00577  M00S00479.vfylib  +++|*         CALLS  CPT.
00578  M00S00480.vfylib  +++|
00579  M00S00481.vfylib  +++|
00580  M00S00482.vfylib  +++| CCM      SUBR               ENTRY/EXIT
Line S00483 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00581  M01S00483.vfyli5  ---|          SA4    B2+FPAL-2
Line S00023 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00582  M01S00023.vfyli5  +++|          SA4    B2+.TL
00583  M00S00484.vfylib  +++|          SA1    B2+B1       INSERT LIBRARY NUMBER
00584  M00S00485.vfylib  +++|          LX4    6
00585  M00S00486.vfylib  +++|          BX6    X1+X4
00586  M00S00487.vfylib  +++|          SA6    A1
Line S00488 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00488.vfyli5  ---|          MX3    FPAL-7
Line S00024 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00024.vfyli5  +++|          MX3    .CL-.RL     CLEAR FILE PARAMETER AREA
00589  M00S00489.vfylib  +++|          BX6    X6-X6
00590  M00S00490.vfylib  +++|          SB6    B2+ENTL+1
00591  M00S00491.vfylib  +++|          SA6    A4-B1       CLEAR FILE PARAMETER AREA
Line S00492 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00492.vfyli5  ---|          SA1    B4
Line S00025 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00593  M01S00025.vfyli5  +++|          SX7    X1          SAVE RECORD TYPE
Line S00493 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00594  M01S00493.vfyli5  ---| +        LX3    1
Line S00026 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00026.vfyli5  +++| CCM1     LX3    1
00596  M00S00494.vfylib  +++|          SA6    A6-B1
Line S00495 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00495.vfyli5  ---|          NG     X3,*        LOOP
Line S00027 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00598  M01S00027.vfyli5  +++|          NG     X3,CCM1     IF NOT END OF CLEAR
00599  M01S00028.vfyli5  +++|          SA1    B4
00600  M00S00496.vfylib  +++|          SB3    B0
Line S00497 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00601  M01S00497.vfyli5  ---|          SA4    A6-B1       RESET (A6)
Line S00029 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00029.vfyli5  +++|          SA4    A6          RESET (A6) FOR CPT
00603  M00S00498.vfylib  +++|          LX6    X4
00604  M00S00499.vfylib  +++|          SA6    A4
Line S00030 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00030.vfyli5  +++|          ZR     X7,CCM2     IF TYPE TEXT SKIP PREFIX TABLE COMMENTS
00606  M00S00500.vfylib  +++|          RJ     CPT
Line S00501 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00501.vfyli5  ---|          ZR     X6,CCM1     IF LAST WORD EMPTY
Line S00031 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00608  M01S00031.vfyli5  +++|          ZR     X6,CCM2     IF LAST WORD EMPTY
00609  M00S00502.vfylib  +++|          SB6    B6-1
Line S00503 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00610  M01S00503.vfyli5  ---| CCM1     SX6    A6-B6       SET COMMENT LENGTH
Line S00032 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00611  M01S00032.vfyli5  +++| CCM2     SX6    A6-B6       SET COMMENT LENGTH
00612  M00S00504.vfylib  +++|          SB3    A1+B3
Line S00505 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00505.vfyli5  ---|          NG     X6,CCM      IF NO COMMENTS
00614  M01S00506.vfyli5  ---|          SA6    B2+FPAL-3
Line S00033 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00615  M01S00033.vfyli5  +++|          NG     X6,CCMX     IF NO COMMENTS
00616  M01S00034.vfyli5  +++|          SA6    B2+.CL      STORE COMMENT LENGTH
00617  M00S00507.vfylib  +++|          EQ     CCMX        RETURN
00618  M00S00508.vfylib  +++|          SPACE  4
00619  M00S00509.vfylib  +++|**        CCS - CALCULATE CHECKSUM.
00620  M00S00510.vfylib  +++|*
00621  M00S00511.vfylib  +++|*         CHECKSUM PROGRAM TEXT FROM (B3) TO (B4).
00622  M00S00512.vfylib  +++|*
00623  M00S00513.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF FILE PARAMETER AREA.
00624  M00S00514.vfylib  +++|*                (B3) = FIRST WORD ADDRESS OF PROGRAM TEXT.
00625  M00S00515.vfylib  +++|*                (B4) = LAST WORD ADDRESS + 1 OF PROGRAM TEXT.
00626  M00S00516.vfylib  +++|*
00627  M00S00517.vfylib  +++|*         USES   A - 1, 4, 6.
00628  M00S00518.vfylib  +++|*                B - 3.
00629  M00S00519.vfylib  +++|*                X - 1, 4, 6.
00630  M00S00520.vfylib  +++|*
00631  M00S00521.vfylib  +++|*         CALLS  ABT.
Line S00522 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00632  M01S00522.vfyli5  ---|*
00633  M01S00523.vfyli5  ---|*         MACROS CALL, MESSAGE.
00634  M00S00524.vfylib  +++|
00635  M00S00525.vfylib  +++|
00636  M00S00526.vfylib  +++| CCS1     SA1    B3
00637  M00S00527.vfylib  +++|          SB3    B3+B1
Line S00528 Modification History
M01 (Removed by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00528.vfyli2  ---|          LX4    1
00639  M00S00529.vfylib  +++|          BX4    X4-X1
Line S00001 Modification History
M01 (Added by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
00640  M01S00001.vfyli2  +++|          LX4    1
00641  M00S00530.vfylib  +++|          NE     B3,B4,CCS1  LOOP TO DETERMINE CHECKSUM
00642  M00S00531.vfylib  +++|          BX6    X4
00643  M00S00532.vfylib  +++|          SA6    A4
00644  M00S00533.vfylib  +++|
00645  M00S00534.vfylib  +++| CCS      SUBR               ENTRY/EXIT
Line S00535 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00535.vfyli5  ---|          SA4    B2+2
00647  M01S00536.vfyli5  ---|          LT     B3,B4,CCS1  IF FWA < LWA+1
00648  M01S00537.vfyli5  ---|          MESSAGE (=C* FWA/LWA ERROR IN VFYLIB.*)
00649  M01S00538.vfyli5  ---|          CALL   ABT
Line S00035 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00650  M01S00035.vfyli5  +++|          SA4    B2+.CS      GET CURRENT CHECKSUM
00651  M01S00036.vfyli5  +++|          SA1    B2+.RL      ADVANCE RECORD LENGTH
00652  M01S00037.vfyli5  +++|          SX6    B4-B3
00653  M01S00038.vfyli5  +++|          IX6    X1+X6
00654  M01S00039.vfyli5  +++|          SA6    A1+
00655  M01S00040.vfyli5  +++|          LT     B3,B4,CCS1  IF FWA .LT. LWA+1
00656  M01S00041.vfyli5  +++|          SX1    =C* FWA/LWA ERROR IN VFYLIB.*
00657  M01S00042.vfyli5  +++|          RJ     ABT         ABORT
00658  M00S00539.vfylib  +++|          SPACE  4
00659  M00S00540.vfylib  +++|**        CDP - CHECK FOR DELETED OR INSERTED PROGRAMS.
00660  M00S00541.vfylib  +++|*
00661  M00S00542.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF PROGRAM NAME TABLE POINTER.
00662  M00S00543.vfylib  +++|*
00663  M00S00544.vfylib  +++|*         USES   A - 1, 2, 3, 6, 7.
00664  M00S00545.vfylib  +++|*                B - 2, 6, 7.
00665  M00S00546.vfylib  +++|*                X - 0, 1, 2, 3, 6, 7.
00666  M00S00547.vfylib  +++|*
00667  M00S00548.vfylib  +++|*         CALLS  OPN.
00668  M00S00549.vfylib  +++|*
00669  M00S00550.vfylib  +++|*         MACROS CALL.
00670  M00S00551.vfylib  +++|
00671  M00S00552.vfylib  +++|
00672  M00S00553.vfylib  +++| CDP      SUBR               ENTRY/EXIT
00673  M00S00554.vfylib  +++|          SX6    B2
00674  M00S00555.vfylib  +++|          SX7    B0          SET TABLE INDEX
00675  M00S00556.vfylib  +++|          SA6    CDPA
00676  M00S00557.vfylib  +++|          SA7    CDPB
00677  M00S00558.vfylib  +++| CDP1     SA1    CDPA
00678  M00S00559.vfylib  +++|          SA1    X1
00679  M00S00560.vfylib  +++|          SA2    A1+B1
00680  M00S00561.vfylib  +++|          SA3    CDPB
00681  M00S00562.vfylib  +++|          SB6    X1
00682  M00S00563.vfylib  +++|          SB7    B6+X2
00683  M00S00564.vfylib  +++|          SB2    B6+X3
00684  M00S00565.vfylib  +++|          EQ     B2,B7,CDPX  IF END OF PROGRAM NAME TABLE - RETURN
00685  M00S00566.vfylib  +++|          SA1    B2
00686  M00S00567.vfylib  +++|          SX6    X3+ENTL
00687  M00S00568.vfylib  +++|          MX0    30
00688  M00S00569.vfylib  +++|          SA6    A3
00689  M00S00570.vfylib  +++|          ZR     X1,CDP1     IF ENTRY IS BLANK
00690  M00S00571.vfylib  +++|          CALL   OPN,B2      OUTPUT PROGRAM NAME
00691  M00S00572.vfylib  +++|          EQ     CDP1        LOOP
00692  M00S00573.vfylib  +++|
00693  M00S00574.vfylib  +++| CDPA     DATA   0           ADDRESS OF PROGRAM NAME TABLE POINTER
00694  M00S00575.vfylib  +++| CDPB     DATA   0           TABLE INDEX
00695  M00S00576.vfylib  +++|          SPACE  4
00696  M00S00577.vfylib  +++|**        CRC - CHECK RESIDENCE CHANGE.
00697  M00S00578.vfylib  +++|*
00698  M00S00579.vfylib  +++|*         USES   A - 1, 2, 3, 6, 7.
00699  M00S00580.vfylib  +++|*                B - 6, 7.
00700  M00S00581.vfylib  +++|*                X - 1, 2, 3, 6, 7.
00701  M00S00582.vfylib  +++|*
00702  M00S00583.vfylib  +++|*         CALLS  OPN.
00703  M00S00584.vfylib  +++|*
00704  M00S00585.vfylib  +++|*         MACROS CALL, SEARCH.
00705  M00S00586.vfylib  +++|
00706  M00S00587.vfylib  +++|
00707  M00S00588.vfylib  +++| CRC      SUBR               ENTRY/EXIT
00708  M00S00589.vfylib  +++|          SX7    B0          SET INDEX IN OPT
00709  M00S00590.vfylib  +++|          SA7    CRCA
00710  M00S00591.vfylib  +++| CRC1     SA1    P.OPT       CHECK RESIDENCE CHANGE
00711  M00S00592.vfylib  +++|          SA2    L.OPT
00712  M00S00593.vfylib  +++|          SA3    CRCA
00713  M00S00594.vfylib  +++|          SB6    X1
00714  M00S00595.vfylib  +++|          SB7    B6+X2
00715  M00S00596.vfylib  +++|          SB6    B6+X3
00716  M00S00597.vfylib  +++|          SA1    B6
00717  M00S00598.vfylib  +++|          EQ     B6,B7,CRCX  IF END OF OPT - RETURN
00718  M00S00599.vfylib  +++|          ZR     X1,CRC3     IF ENTRY IS BLANK
00719  M00S00600.vfylib  +++|          SEARCH NPT,B6
00720  M00S00601.vfylib  +++|          SA6    CRCC
00721  M00S00602.vfylib  +++|          SA1    P.OPT
00722  M00S00603.vfylib  +++|          SA3    CRCA
00723  M00S00604.vfylib  +++|          IX1    X1+X3
00724  M00S00605.vfylib  +++|          NZ     X6,CRC2     IF PROGRAM IN SAME LIBRARY
00725  M00S00606.vfylib  +++|          SEARCH NPT,X1,CRCB
00726  M00S00607.vfylib  +++|          ZR     X6,CRC3     IF PROGRAM NOT FOUND
00727  M00S00608.vfylib  +++|          SA6    CRCC
00728  M00S00609.vfylib  +++|          CALL   OPN,X6      OUTPUT PROGRAM NAME
00729  M00S00610.vfylib  +++| CRC2     SA1    P.OPT       CLEAR ENTRIES
00730  M00S00611.vfylib  +++|          SA2    CRCC
00731  M00S00612.vfylib  +++|          SA3    CRCA
00732  M00S00613.vfylib  +++|          IX1    X1+X3
00733  M00S00614.vfylib  +++|          MX7    0
00734  M00S00615.vfylib  +++|          SA7    X1
00735  M00S00616.vfylib  +++|          SA7    X2
00736  M00S00617.vfylib  +++| CRC3     SA1    CRCA        ADVANCE INDEX
00737  M00S00618.vfylib  +++|          SX6    X1+ENTL
00738  M00S00619.vfylib  +++|          SA6    A1
00739  M00S00620.vfylib  +++|          EQ     CRC1        LOOP
00740  M00S00621.vfylib  +++|
00741  M00S00622.vfylib  +++| CRCA     DATA   0           INDEX INTO OLD PROGRAM TABLE
00742  M00S00623.vfylib  +++| CRCB     DATA   77777777777777000077B
00743  M00S00624.vfylib  +++| CRCC     CON    0           NPT ADDRESS
00744  M00S00625.vfylib  +++|          SPACE  4
00745  M00S00626.vfylib  +++|**        CRP - CHECK REPLACED PROGRAMS.
00746  M00S00627.vfylib  +++|*
00747  M00S00628.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6, 7.
00748  M00S00629.vfylib  +++|*                B - 6, 7.
00749  M00S00630.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
00750  M00S00631.vfylib  +++|*
00751  M00S00632.vfylib  +++|*         CALLS  OPN.
00752  M00S00633.vfylib  +++|*
00753  M00S00634.vfylib  +++|*         MACROS CALL, SEARCH.
00754  M00S00635.vfylib  +++|
00755  M00S00636.vfylib  +++|
00756  M00S00637.vfylib  +++| CRP      SUBR               ENTRY/EXIT
00757  M00S00638.vfylib  +++|          SX7    B0          SET INDEX IN OPT
00758  M00S00639.vfylib  +++|          SA7    CRPA
00759  M00S00640.vfylib  +++| CRP1     SA1    P.OPT       DO LOOP FOR CHECKING FOR REPLACED PROGRAMS
00760  M00S00641.vfylib  +++|          SA2    L.OPT
00761  M00S00642.vfylib  +++|          SA3    CRPA
00762  M00S00643.vfylib  +++|          SB6    X1
00763  M00S00644.vfylib  +++|          SB7    B6+X2
00764  M00S00645.vfylib  +++|          SB6    B6+X3
00765  M00S00646.vfylib  +++|          SA1    B6
00766  M00S00647.vfylib  +++|          EQ     B6,B7,CRPX  IF END OF OPT - RETURN
00767  M00S00648.vfylib  +++|          ZR     X1,CRP4     IF ENTRY IS BLANK
00768  M00S00649.vfylib  +++|          SEARCH NPT,B6
00769  M00S00650.vfylib  +++|          SA1    P.OPT       COMPARE CHECKSUMS
00770  M00S00651.vfylib  +++|          SA3    CRPA
00771  M00S00652.vfylib  +++|          IX1    X1+X3
00772  M00S00653.vfylib  +++|          ZR     X6,CRP2     IF PROGRAM IS NOT IN SAME LIBRARY
00773  M00S00654.vfylib  +++|          MX0    30
00774  M00S00655.vfylib  +++|          SA3    X1+B1
00775  M00S00656.vfylib  +++|          SA4    X6+B1
00776  M00S00657.vfylib  +++|          BX7    X3-X4
00777  M00S00658.vfylib  +++|          BX7    X0*X7
00778  M00S00659.vfylib  +++|          NZ     X7,CRP3     IF CHECKSUM CHANGE
Line S00043 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00779  M01S00043.vfyli5  +++|          SA3    A3+.RL-.CS
00780  M01S00044.vfyli5  +++|          SA4    A4+.RL-.CS
00781  M01S00045.vfyli5  +++|          IX7    X4-X3
00782  M01S00046.vfyli5  +++|          NZ     X7,CRP3     IF LENGTH CHANGE
Line S00660 Modification History
M01 (Removed by) vfyli5a
Seq #  *Modification Id* Act 
----------------------------+
00783  M01S00660.vfyli5a ---|          SA7    A3-B1
00784  M01S00661.vfyli5a ---|          SA7    A4-B1
00785  M01S00662.vfyli5a ---|          EQ     CRP4
Line S00001 Modification History
M01 (Added by) vfyli5a
Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00001.vfyli5a +++|          SA7    A3+.PD-.RL  CLEAR PROGRAM NAME AND TYPE
00787  M01S00002.vfyli5a +++|          SA7    A4+.PD-.RL
00788  M01S00003.vfyli5a +++|          EQ     CRP4        PROCESS NEXT RECORD
00789  M00S00663.vfylib  +++|
Line S00047 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00047.vfyli5  +++|*         RECORD NOT IN SAME LIBRARY.
00791  M01S00048.vfyli5  +++|
00792  M00S00664.vfylib  +++| CRP2     SEARCH NPT,X1,CRPB
00793  M00S00665.vfylib  +++|          ZR     X6,CRP4     IF PROGRAM NOT FOUND
00794  M00S00666.vfylib  +++|          MX0    30
00795  M00S00667.vfylib  +++|          SA1    P.OPT       COMPARE CHECKSUMS
00796  M00S00668.vfylib  +++|          SA3    CRPA
00797  M00S00669.vfylib  +++|          IX1    X1+X3
00798  M00S00670.vfylib  +++|          SA3    X1+B1
00799  M00S00671.vfylib  +++|          SA4    X6+B1
00800  M00S00672.vfylib  +++|          BX7    X3-X4
00801  M00S00673.vfylib  +++|          BX7    X0*X7
Line S00674 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00802  M01S00674.vfyli5  ---|          ZR     X7,CRP4     IF NO CHECKSUM CHANGE
Line S00049 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00803  M01S00049.vfyli5  +++|          NZ     X7,CRP3     IF CHECKSUM CHANGE
00804  M01S00050.vfyli5  +++|          SA3    A3+.RL-.CS
00805  M01S00051.vfyli5  +++|          SA4    A4+.RL-.CS
00806  M01S00052.vfyli5  +++|          IX7    X4-X3
00807  M01S00053.vfyli5  +++|          ZR     X7,CRP4     IF NO LENGTH CHANGE
00808  M00S00675.vfylib  +++| CRP3     CALL   OPN,X6      OUTPUT PROGRAM NAME
00809  M00S00676.vfylib  +++| CRP4     SA1    CRPA        ADVANCE INDEX
00810  M00S00677.vfylib  +++|          SX6    X1+ENTL
00811  M00S00678.vfylib  +++|          MX0    30
00812  M00S00679.vfylib  +++|          SA6    A1
00813  M00S00680.vfylib  +++|          EQ     CRP1        LOOP
00814  M00S00681.vfylib  +++|
00815  M00S00682.vfylib  +++| CRPA     DATA   0           INDEX INTO OLD PROGRAM TABLE
00816  M00S00683.vfylib  +++| CRPB     DATA   77777777777777000077B
00817  M00S00684.vfylib  +++| CRPC     DATA   0           RESIDENCE FLAG
00818  M00S00685.vfylib  +++|          SPACE  4
00819  M00S00686.vfylib  +++|**        C6S - CONVERT 6 DIGITS WITH LEADING ZERO SUPPRESSION.
00820  M00S00687.vfylib  +++|*
00821  M00S00688.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF RIGHT JUSTIFIED NUMBER.
00822  M00S00689.vfylib  +++|*                (B3) = ADDRESS TO STORE RESULT.
00823  M00S00690.vfylib  +++|*
00824  M00S00691.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6.
00825  M00S00692.vfylib  +++|*                B - 2, 5, 6, 7.
00826  M00S00693.vfylib  +++|*                X - 0, 1, 2, 3, 4, 5, 6.
00827  M00S00694.vfylib  +++|
00828  M00S00695.vfylib  +++|
00829  M00S00696.vfylib  +++| C6S      SUBR               ENTRY/EXIT
00830  M00S00697.vfylib  +++|          SA2    =0.1000000001P48
00831  M00S00698.vfylib  +++|          SA3    =10.0P0
00832  M00S00699.vfylib  +++|          SA4    =1H
00833  M00S00700.vfylib  +++|          SB6    6
00834  M00S00701.vfylib  +++|          SB5    1R0-1R
00835  M00S00702.vfylib  +++|          SA1    B2
00836  M00S00703.vfylib  +++|          SB2    18
00837  M00S00704.vfylib  +++|          PX1    X1
00838  M00S00705.vfylib  +++|          BX6    X4
00839  M00S00706.vfylib  +++| C6S1     DX4    X1*X2
00840  M00S00707.vfylib  +++|          FX1    X1*X2
00841  M00S00708.vfylib  +++|          SB7    X1
00842  M00S00709.vfylib  +++|          LX6    54
00843  M00S00710.vfylib  +++|          SB2    B2+B6
00844  M00S00711.vfylib  +++|          FX5    X4*X3       CALCULATE REMAINDER DIGIT
00845  M00S00712.vfylib  +++|          SX0    X5+B5
00846  M00S00713.vfylib  +++|          IX6    X0+X6
00847  M00S00714.vfylib  +++|          NZ     B7,C6S1     IF NOT ENTIRE NUMBER
00848  M00S00715.vfylib  +++|          LX6    X6,B2       POSITION NUMBER
00849  M00S00716.vfylib  +++|          SA6    B3
00850  M00S00717.vfylib  +++|          EQ     C6SX        RETURN
00851  M00S00718.vfylib  +++|          SPACE  4
00852  M00S00719.vfylib  +++|**        LOL - LIST ONE LINE.
00853  M00S00720.vfylib  +++|*
00854  M00S00721.vfylib  +++|*         USES   A - 1, 6.
00855  M00S00722.vfylib  +++|*                X - 1, 2, 6.
00856  M00S00723.vfylib  +++|*
00857  M00S00724.vfylib  +++|*         CALLS  WPH.
00858  M00S00725.vfylib  +++|*
00859  M00S00726.vfylib  +++|*         MACROS WRITEC.
00860  M00S00727.vfylib  +++|
00861  M00S00728.vfylib  +++|
00862  M00S00729.vfylib  +++| LOL      SUBR               ENTRY/EXIT
00863  M00S00730.vfylib  +++|          SA1    LINE        CHECK LINE NUMBER
00864  M00S00731.vfylib  +++|          SX6    X1+B1
00865  M00S00732.vfylib  +++|          SA6    A1
Line S00733 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00733.ns22000 ---|          SX6    X6-LINP
Line S00021 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00867  M01S00021.ns22000 +++|          SA1    A1+B1       GET LINE LIMIT
00868  M01S00022.ns22000 +++|          IX6    X6-X1
00869  M00S00734.vfylib  +++|          SX2    O
00870  M00S00735.vfylib  +++|          NG     X6,LOL1     IF NOT END OF PAGE
00871  M00S00736.vfylib  +++|          RJ     WPH
00872  M00S00737.vfylib  +++|          SX6    X6+2        ADVANCE LINE COUNT
00873  M00S00738.vfylib  +++|          SA6    LINE
00874  M00S00739.vfylib  +++|          WRITEC X2,(=1L )
00875  M00S00740.vfylib  +++| LOL1     WRITEC X2,OUTPUTB
00876  M00S00741.vfylib  +++|          EQ     LOLX        RETURN
00877  M00S00742.vfylib  +++|          SPACE  4
00878  M00S00743.vfylib  +++|**        OPN - OUTPUT PROGRAM NAME.
00879  M00S00744.vfylib  +++|*
00880  M00S00745.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF PROGRAM NAME TABLE ENTRY.
00881  M00S00746.vfylib  +++|*
00882  M00S00747.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6, 7.
00883  M00S00748.vfylib  +++|*                B - 6.
00884  M00S00749.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
00885  M00S00750.vfylib  +++|*
00886  M00S00751.vfylib  +++|*         CALLS  C6S, LOL, SFN, WPH.
00887  M00S00752.vfylib  +++|*
00888  M00S00753.vfylib  +++|*         MACROS CALL, WRITEC.
00889  M00S00754.vfylib  +++|
00890  M00S00755.vfylib  +++|
00891  M00S00756.vfylib  +++| OPN      SUBR               ENTRY/EXIT
00892  M00S00757.vfylib  +++|          SX6    B2
00893  M00S00758.vfylib  +++|          SA6    OPNA
00894  M00S00759.vfylib  +++|          SA1    OPND
00895  M00S00760.vfylib  +++|          ZR     X1,OPN2     IF HEADER WRITTEN
00896  M00S00761.vfylib  +++|          SA2    LINE        CHECK LINE POSITION
Line S00762 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00897  M01S00762.ns22000 ---|          SX6    X2-LINP+4
Line S00023 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00898  M01S00023.ns22000 +++|          SX2    X2+4
00899  M01S00024.ns22000 +++|          SA1    A2+B1       GET LINE LIMIT
00900  M01S00025.ns22000 +++|          IX6    X2-X1
00901  M00S00763.vfylib  +++|          NG     X6,OPN1     IF NOT END OF PAGE
00902  M00S00764.vfylib  +++|          RJ     WPH
00903  M00S00765.vfylib  +++| OPN1     WRITEC O,(=1L )
00904  M00S00766.vfylib  +++|          SA4    OPND        GET HEADER MESSAGE ADDRESS
00905  M00S00767.vfylib  +++|          SA3    LINE
00906  M00S00768.vfylib  +++|          BX7    X7-X7
Line S00769 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00907  M01S00769.ns22000 ---|          SX6    X3+4        UPDATE LINE COUNT
Line S00026 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00026.ns22000 +++|          SX6    X3+3        UPDATE LINE COUNT
00909  M00S00770.vfylib  +++|          SA7    A4
00910  M00S00771.vfylib  +++|          SA6    A3
00911  M00S00772.vfylib  +++|          WRITEC X2,X4       WRITE HEADER MESSAGE
00912  M00S00773.vfylib  +++|          WRITEC X2,(=1L )
00913  M00S00774.vfylib  +++|
00914  M00S00775.vfylib  +++|*         LIST PROGRAM NAME.
00915  M00S00776.vfylib  +++|
00916  M00S00777.vfylib  +++| OPN2     SA1    OPNA        OUTPUT PROGRAM NAME
00917  M00S00778.vfylib  +++|          SA4    X1
00918  M00S00779.vfylib  +++|          MX0    42
00919  M00S00780.vfylib  +++|          BX1    X0*X4
00920  M00S00781.vfylib  +++|          RJ     SFN         SPACE FILL NAME
00921  M00S00782.vfylib  +++|          SA3    A3
00922  M00S00783.vfylib  +++|          SA6    OUTPUTB+1
00923  M00S00784.vfylib  +++|          MX0    -6
00924  M00S00785.vfylib  +++|          LX7    X3
00925  M00S00786.vfylib  +++|          BX2    -X0*X4
00926  M00S00787.vfylib  +++|          SA1    OPNB+X2     OUTPUT PROGRAM TYPE
00927  M00S00788.vfylib  +++|          SA7    A6-B1
00928  M00S00789.vfylib  +++|          BX6    X1
00929  M00S00790.vfylib  +++|          AX4    6
00930  M00S00791.vfylib  +++|          SA6    A6+B1
00931  M00S00792.vfylib  +++|          MX0    7*6         OUTPUT ULIB NAME
00932  M00S00793.vfylib  +++|          SA1    OPNA
Line S00794 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00933  M01S00794.vfyli5  ---|          SA5    X1+2
Line S00054 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00934  M01S00054.vfyli5  +++|          SA5    X1+.UN-.PD
00935  M00S00795.vfylib  +++|          BX1    X0*X5
00936  M00S00796.vfylib  +++|          RJ     SFN         SPACE FILL ULIB NAME
00937  M00S00797.vfylib  +++|          SA6    A6+B1
00938  M00S00798.vfylib  +++|          MX0    -12
00939  M00S00799.vfylib  +++|          BX7    -X0*X4      OUTPUT LIBRARY NUMBER
Line S00800 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00800.vfyli5  ---|          SX7    X7+B1
Line S00055 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00941  M01S00055.vfyli5  +++|          SX7    X7+
00942  M00S00801.vfylib  +++|          SA7    OPNC
00943  M00S00802.vfylib  +++|          CALL   C6S,A7,A6+B1
00944  M00S00803.vfylib  +++|          SA1    OPNA        OUTPUT DATE AND COMMENT
Line S00804 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00804.vfyli5  ---|          SA1    X1+B1       X1 = COMMENT INDEX
00946  M01S00805.vfyli5  ---|          SA2    A1+2
Line S00056 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00056.vfyli5  +++|          SA1    X1+.CS-.PD  X1 = COMMENT INDEX
00948  M01S00057.vfyli5  +++|          SA2    A1+.DT-.CS
00949  M00S00806.vfylib  +++|          MX0    -30
00950  M00S00807.vfylib  +++|          LX6    X2
00951  M00S00808.vfylib  +++|          BX4    -X0*X1
00952  M00S00809.vfylib  +++|          SA6    A6+B1
00953  M00S00810.vfylib  +++|          SA2    P.CMT
00954  M00S00811.vfylib  +++|          IX6    X2+X4
00955  M00S00812.vfylib  +++|          AX4    18
00956  M00S00813.vfylib  +++|          SB6    X4
00957  M00S00814.vfylib  +++|          ZR     X4,OPN4     IF NO COMMENTS
00958  M00S00815.vfylib  +++|          SA1    X6
00959  M00S00816.vfylib  +++| OPN3     BX6    X1          MOVE COMMENTS
00960  M00S00817.vfylib  +++|          SB6    B6-B1
00961  M00S00818.vfylib  +++|          SA1    A1+B1
00962  M00S00819.vfylib  +++|          SA6    A6+B1
00963  M00S00820.vfylib  +++| OPN4     NZ     B6,OPN3     LOOP
00964  M00S00821.vfylib  +++|          BX6    X6-X6
00965  M00S00822.vfylib  +++|          SA6    A6+B1
00966  M00S00823.vfylib  +++|          CALL   LOL
00967  M00S00824.vfylib  +++|          EQ     OPNX        RETURN
00968  M00S00825.vfylib  +++|
00969  M00S00826.vfylib  +++| OPNA     DATA   0           ADDRESS OF ENTRY
00970  M00S00827.vfylib  +++|
Line S00828 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00971  M01S00828.251l664 ---| OPNB     DATA   0HTEXT      0
00972  M01S00829.251l664 ---|          DATA   0HPP        1
Line S00003 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00973  M01S00003.251l664 +++| OPNB     BSS    0
00974  M01S00004.251l664 +++| .E       ECHO   ,RT=("RTMIC")
00975  M01S00005.251l664 +++| .A       IFC    NE,/RT//
00976  M01S00006.251l664 +++|          DATA   H/RT/
00977  M01S00007.251l664 +++| .A       ELSE
00978  M00S00830.vfylib  +++|          DATA   0           UNDEFINED RECORD TYPE
Line S00831 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00979  M01S00831.251l664 ---|          DATA   0HREL       3
00980  M01S00832.251l664 ---|          DATA   0HOVL       4
00981  M01S00833.251l664 ---|          DATA   0HULIB      5
00982  M01S00834.251l664 ---|          DATA   0HOPL       6
00983  M01S00835.251l664 ---|          DATA   0HOPLC      7
00984  M01S00836.251l664 ---|          DATA   0HOPLD      8
00985  M01S00837.251l664 ---|          DATA   0HABS       9
00986  M01S00838.251l664 ---|          DATA   0HPPU       10
00987  M01S00839.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
00988  M01S00840.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
00989  M01S00841.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
00990  M01S00842.251l664 ---|          DATA   0HCAP       14
00991  M01S00843.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
00992  M01S00844.251l664 ---|          DATA   0HPROC      16
Line S00008 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00993  M01S00008.251l664 +++| .A       ENDIF
00994  M01S00009.251l664 +++| .E       ENDD
00995  M00S00845.vfylib  +++|
00996  M00S00846.vfylib  +++| OPNC     DATA   0           GROUP NUMBER
00997  M00S00847.vfylib  +++| OPND     CON    0           HEADER MESSAGE ADDRESS
00998  M00S00848.vfylib  +++|          SPACE  4
00999  M00S00849.vfylib  +++|**        RDF - READ FILES.
01000  M00S00850.vfylib  +++|*
01001  M00S00851.vfylib  +++|*         BOTH FILES ARE READ SIMULTAINIOUSLY.  COMMON ROUTINES
01002  M00S00852.vfylib  +++|*         ARE USED BETWEEN THE TWO READS.  IN THESE ROUTINES
01003  M00S00853.vfylib  +++|*         (RDFB) = POINTER TO DATA AREA.
01004  M00S00854.vfylib  +++|*
01005  M00S00855.vfylib  +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
01006  M00S00856.vfylib  +++|*                B - 2, 3, 4, 5, 6, 7.
01007  M00S00857.vfylib  +++|*                X - ALL.
01008  M00S00858.vfylib  +++|*
01009  M00S00859.vfylib  +++|*         CALLS  ADD, CCM, CCS, SFN.
01010  M00S00860.vfylib  +++|*
01011  M00S00861.vfylib  +++|*         MACROS CALL, MESSAGE, READW.
01012  M00S00862.vfylib  +++|
01013  M00S00863.vfylib  +++|
01014  M00S00864.vfylib  +++| RDF      SUBR               ENTRY/EXIT
01015  M00S00865.vfylib  +++|
01016  M00S00866.vfylib  +++| RDF1     EQ     RDF3
01017  M00S00867.vfylib  +++|          SA1    RDFA        TOGGLE BETWEEN FILE *OLD* AND *NEW*
01018  M00S00868.vfylib  +++|          SA2    A1+B1
01019  M00S00869.vfylib  +++|          SA3    A2+B1
01020  M00S00870.vfylib  +++|          SA4    RDF1
01021  M00S00871.vfylib  +++|          AX3    30
01022  M00S00872.vfylib  +++|          BX7    X4
01023  M00S00873.vfylib  +++|          SB5    X3
01024  M00S00874.vfylib  +++|          SA7    A3
01025  M00S00875.vfylib  +++|          BX6    X1
01026  M00S00876.vfylib  +++|          LX7    X2
01027  M00S00877.vfylib  +++|          SA6    A2
01028  M00S00878.vfylib  +++|          SA7    A1
01029  M00S00879.vfylib  +++|          SA2    X7
01030  M00S00880.vfylib  +++|          SA5    A1
01031  M00S00881.vfylib  +++|          JP     B5
01032  M00S00882.vfylib  +++|
01033  M00S00883.vfylib  +++|
Line S00884 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01034  M01S00884.vfyli5  ---| RDF2     SA1    X5+FPAL-2   ADVANCE LIBRARY NUMBER
Line S00058 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01035  M01S00058.vfyli5  +++| RDF2     SA1    X5+.TL      ADVANCE LIBRARY NUMBER
01036  M00S00885.vfylib  +++|          SX6    X1+B1
01037  M00S00886.vfylib  +++|          SA6    A1
01038  M00S00887.vfylib  +++| RDF3     RJ     RDF1        START READ
01039  M00S00888.vfylib  +++|          READW  X2,WSA,WSAL
01040  M00S00889.vfylib  +++|          NG     X1,RDF16    IF EOF
01041  M00S00890.vfylib  +++|          SA5    RDFA        SET EOR INDICATOR
01042  M00S00891.vfylib  +++|          BX6    X1
01043  M00S00892.vfylib  +++|          SA6    RDFC
01044  M00S00893.vfylib  +++|          SB7    WSA
01045  M00S00894.vfylib  +++|          EQ     B6,B7,RDF2  IF ZERO LENGTH RECORD
01046  M00S00895.vfylib  +++|
01047  M00S00896.vfylib  +++|*         CHECK PROGRAM TYPE AND MAKE ENTRY INTO THE PROGRAM NAME TABLE.
01048  M00S00897.vfylib  +++|
01049  M00S00898.vfylib  +++|          SX1    B6          LWA+1 OF DATA READ
01050  M00S00899.vfylib  +++|          SX2    B7          FWA OF BUFFER (WSA)
01051  M00S00900.vfylib  +++|          RJ     SRT         SET RECORD TYPE
01052  M00S00901.vfylib  +++|          SA6    X5+B1
01053  M00S00902.vfylib  +++|          BX1    X7
01054  M00S00903.vfylib  +++|          BX7    X7-X7       CLEAR CHECKSUM WORD
01055  M00S00904.vfylib  +++|          SA7    A6+B1
01056  M00S00905.vfylib  +++|          MX0    -6          CHECK RECORD TYPE
01057  M00S00906.vfylib  +++|          BX4    -X0*X6
01058  M00S00907.vfylib  +++|          SB4    X4
Line S00908 Modification History
M01 (Removed by) vfyli4
Seq #  *Modification Id* Act 
----------------------------+
01059  M01S00908.vfyli4  ---|          SB2    3
Line S00001 Modification History
M01 (Added by) vfyli4
M02 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00001.251l664 ---|          SB2    8
Line S00010 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00010.251l664 +++|          SB2    ODRT        TYPE = OPLD
Line S00909 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01062  M01S00909.vfyli5  ---|          SA4    X5+FPAL-1
Line S00059 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00059.vfyli5  +++|          SA4    X5+.TU
01064  M00S00910.vfylib  +++|          ZR     X4,RDF5     IF ULIB .EQ. 0
Line S00911 Modification History
M01 (Removed by) vfyli4
Seq #  *Modification Id* Act 
----------------------------+
01065  M01S00911.vfyli4  ---|          NE     B4,B2,RDF4  IF REC TYPE .NE. REL
Line S00002 Modification History
M01 (Added by) vfyli4
Seq #  *Modification Id* Act 
----------------------------+
01066  M01S00002.vfyli4  +++|          EQ     B4,B2,RDF4  IF REC TYPE .EQ. OPLD
01067  M00S00912.vfylib  +++|          BX7    X4          SET UP ULIB IN TABLE ENTRY
01068  M00S00913.vfylib  +++|          SA7    A7+B1
01069  M00S00914.vfylib  +++|          EQ     RDF6        CONTINUE PROCESSING THE ENTRY
01070  M00S00915.vfylib  +++|
01071  M00S00916.vfylib  +++| RDF4     BX7    X7-X7       ZERO OUT ULIB
01072  M00S00917.vfylib  +++|          SA7    A7+B1
Line S00918 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01073  M01S00918.vfyli5  ---|          SA7    X5+FPAL-1
Line S00060 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01074  M01S00060.vfyli5  +++|          SA7    X5+.TU
01075  M00S00919.vfylib  +++|          EQ     RDF6        CONTINUE PROCESSING THE ENTRY
01076  M00S00920.vfylib  +++|
Line S00921 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01077  M01S00921.251l664 ---| RDF5     SB2    5           CHECK RECORD TYPE
Line S00011 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01078  M01S00011.251l664 +++| RDF5     SB2    ULRT        CHECK RECORD TYPE
01079  M00S00922.vfylib  +++|          NE     B4,B2,RDF6  IF REC TYPE .NE. ULIB
01080  M00S00923.vfylib  +++|          MX0    7*6         SAVE ULIB
01081  M00S00924.vfylib  +++|          BX7    X0*X6
01082  M00S00925.vfylib  +++|          SA7    A7+B1       SET ULIB IN TABLE ENTRY
Line S00926 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01083  M01S00926.vfyli5  ---|          SA7    X5+FPAL-1
Line S00061 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01084  M01S00061.vfyli5  +++|          SA7    X5+.TU
01085  M00S00927.vfylib  +++| RDF6     RJ     SFN         SPACE FILL NAME
01086  M00S00928.vfylib  +++|          AX5    54
01087  M00S00929.vfylib  +++|          SB5    X5
01088  M00S00930.vfylib  +++|          SA6    RDFF+X5
01089  M00S00931.vfylib  +++|          MESSAGE A6-B5,B1
01090  M00S00932.vfylib  +++|          SA5    A5
Line S00933 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01091  M01S00933.vfyli5  ---|          CALL   CCM,X5,B3,WSA
Line S00062 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00062.vfyli5  +++|          CALL   CCM,X5,,WSA
01093  M00S00934.vfylib  +++|          SA5    RDFA
01094  M00S00935.vfylib  +++|          SA1    RDFC
01095  M00S00936.vfylib  +++|          NZ     X1,RDF7     IF EOR READ
01096  M00S00937.vfylib  +++|          SX1    WSA+WSAL
01097  M00S00938.vfylib  +++| RDF7     CALL   CCS,X5,B3,X1
01098  M00S00939.vfylib  +++|          SA1    RDFC
01099  M00S00940.vfylib  +++|          NZ     X1,RDF11    IF EOR READ
01100  M00S00941.vfylib  +++|
01101  M00S00942.vfylib  +++|*         READ REST OF RECORD.
01102  M00S00943.vfylib  +++|
01103  M00S00944.vfylib  +++| RDF8     RJ     RDF1
01104  M00S00945.vfylib  +++|          READW  X2,WSA,WSAL
01105  M00S00946.vfylib  +++|          BX6    X1          SET INDICATOR
01106  M00S00947.vfylib  +++|          SA6    RDFC
01107  M00S00948.vfylib  +++|          SX4    B6-WSA
01108  M00S00949.vfylib  +++|          ZR     X4,RDF11    IF NO DATA
01109  M00S00950.vfylib  +++|          PL     X1,RDF9     IF NO EOF
01110  M00S00951.vfylib  +++|          SX1    B6+         SET LWA+1
01111  M00S00952.vfylib  +++| RDF9     NZ     X1,RDF10    IF EOR OR EOF READ
01112  M00S00953.vfylib  +++|          SX1    WSA+WSAL
01113  M00S00954.vfylib  +++| RDF10    CALL   CCS,X5,WSA,X1
01114  M00S00955.vfylib  +++|          SA1    RDFC
01115  M00S00956.vfylib  +++|          ZR     X1,RDF8     IF NOT EOR READ
01116  M00S00957.vfylib  +++|
01117  M00S00958.vfylib  +++|*         ADD ENTRY TO PROGRAM NAME TABLE.
01118  M00S00959.vfylib  +++|
01119  M00S00960.vfylib  +++| RDF11    SA5    RDFA
01120  M00S00961.vfylib  +++|          SB2    P.CMT
01121  M00S00962.vfylib  +++|          SB3    X5+ENTL+1
Line S00963 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01122  M01S00963.vfyli5  ---|          SA1    X5+FPAL-3
Line S00063 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00063.vfyli5  +++|          SA1    X5+.CL      CHECK COMMENT LENGTH
01124  M00S00964.vfylib  +++|          MX7    0
01125  M00S00965.vfylib  +++|          BX6    X1
01126  M00S00966.vfylib  +++|          ZR     X1,RDF15    IF NO COMMENTS
01127  M00S00967.vfylib  +++|          SA4    N.CMT
01128  M00S00968.vfylib  +++|          SA2    B2+B1
01129  M00S00969.vfylib  +++|          BX7    X6-X4       CHECK LENGTH OF PREVIOUS ENTRY
01130  M00S00970.vfylib  +++|          SA6    A4
01131  M00S00971.vfylib  +++|          NZ     X7,RDF13
01132  M00S00972.vfylib  +++|          SA3    B2
01133  M00S00973.vfylib  +++|          SB4    B0
01134  M00S00974.vfylib  +++|          IX1    X2-X4       (L.CMT) - (N.CMT)
01135  M00S00975.vfylib  +++|          SB6    X4
01136  M00S00976.vfylib  +++|          IX7    X3+X1
01137  M00S00977.vfylib  +++| RDF12    EQ     B4,B6,RDF14 IF SAME COMMENTS
01138  M00S00978.vfylib  +++|          SA3    B3+B4
01139  M00S00979.vfylib  +++|          SA4    X7+B4
01140  M00S00980.vfylib  +++|          BX1    X3-X4       COMPARE COMMENTS
01141  M00S00981.vfylib  +++|          SB4    B4+B1
01142  M00S00982.vfylib  +++|          ZR     X1,RDF12    IF MATCH
01143  M00S00983.vfylib  +++| RDF13    LX6    2
01144  M00S00984.vfylib  +++|          SA6    A6+B1
01145  M00S00985.vfylib  +++|          CALL   ADD,B2,B3
01146  M00S00986.vfylib  +++| RDF14    SA1    A2+B1       SAVE COMMENT TABLE INDEX
01147  M00S00987.vfylib  +++|          IX7    X2-X1
01148  M00S00988.vfylib  +++|          LX1    18          INSERT COMMENT LENGTH
01149  M00S00989.vfylib  +++|          BX7    X1+X7
01150  M00S00990.vfylib  +++| RDF15    SB3    B3-ENTL
Line S00991 Modification History
M01 (Removed by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01151  M01S00991.vfyli2  ---|          MX0    30
01152  M01S00992.vfyli2  ---|          SA1    B3+B1
01153  M01S00993.vfyli2  ---|          BX2    X0*X1       FOLD CHECKSUM
01154  M01S00994.vfyli2  ---|          LX1    30
01155  M01S00995.vfyli2  ---|          BX6    X0*X1
01156  M01S00996.vfyli2  ---|          BX6    X6-X2
01157  M01S00997.vfyli2  ---|          BX6    X6+X7
01158  M01S00998.vfyli2  ---|          SA6    A1
Line S00002 Modification History
M01 (Added by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01159  M01S00002.vfyli2  +++|          SA5    B3+B1       FOLD CHECKSUM
01160  M01S00003.vfyli2  +++|          MX0    -12
01161  M01S00004.vfyli2  +++|          BX1    -X0*X5
01162  M01S00005.vfyli2  +++|          AX5    12
01163  M01S00006.vfyli2  +++|          BX6    -X0*X5
01164  M01S00007.vfyli2  +++|          IX1    X1+X6
01165  M01S00008.vfyli2  +++|          AX5    12
01166  M01S00009.vfyli2  +++|          BX6    -X0*X5
01167  M01S00010.vfyli2  +++|          IX1    X1+X6
01168  M01S00011.vfyli2  +++|          AX5    12
01169  M01S00012.vfyli2  +++|          BX6    -X0*X5
01170  M01S00013.vfyli2  +++|          IX1    X1+X6
01171  M01S00014.vfyli2  +++|          AX5    12
01172  M01S00015.vfyli2  +++|          BX6    -X0*X5
01173  M01S00016.vfyli2  +++|          IX1    X1+X6
01174  M01S00017.vfyli2  +++|          IX6    X1+X0
01175  M01S00018.vfyli2  +++|          BX6    -X0*X6
01176  M01S00019.vfyli2  +++|          LX6    48
01177  M01S00020.vfyli2  +++|          BX6    X6+X7       MERGE FOLDED CHECKSUM AND COMMENT LENGTH
01178  M01S00021.vfyli2  +++|          SA6    A5
01179  M00S00999.vfylib  +++|          SA5    RDFA
01180  M00S01000.vfylib  +++|          AX5    30
01181  M00S01001.vfylib  +++|          CALL   ADD,X5,B3
01182  M00S01002.vfylib  +++|          EQ     RDF3        LOOP TO EOF
01183  M00S01003.vfylib  +++|
01184  M00S01004.vfylib  +++|*         WAIT FOR EOF ON BOTH FILES.
01185  M00S01005.vfylib  +++|
01186  M00S01006.vfylib  +++| RDF16    SA1    RDFB
01187  M00S01007.vfylib  +++|          NZ     X1,RDFX     IF BOTH FILES FINISHED - RETURN
01188  M00S01008.vfylib  +++|          SX6    B1          SET EOF FLAG
01189  M00S01009.vfylib  +++|          SA6    A1
01190  M00S01010.vfylib  +++|          SA5    RDFA
01191  M00S01011.vfylib  +++|          AX5    54
01192  M00S01012.vfylib  +++|          SA1    =H*END FILE.*
01193  M00S01013.vfylib  +++|          BX6    X1
01194  M00S01014.vfylib  +++|          SA6    RDFF+X5
01195  M00S01015.vfylib  +++|          MESSAGE RDFF,1
01196  M00S01016.vfylib  +++| RDF17    RJ     RDF1        WAIT FOR 2ND FILE TO COMPLETE
01197  M00S01017.vfylib  +++|          EQ     RDF17
01198  M00S01018.vfylib  +++|
01199  M00S01019.vfylib  +++| RDFA     VFD    6/1,24/P.OPT,30/RDFD
01200  M00S01020.vfylib  +++|          VFD    6/2,24/P.NPT,30/RDFE
01201  M00S01021.vfylib  +++|          EQ     RDF3
01202  M00S01022.vfylib  +++|
01203  M00S01023.vfylib  +++| RDFB     DATA   0           EOF INDICATOR
01204  M00S01024.vfylib  +++| RDFC     DATA   0           EOR INDICATOR
01205  M00S01025.vfylib  +++|
01206  M00S01026.vfylib  +++|*         FILE PARAMETER AREA.
01207  M00S01027.vfylib  +++|
Line S01028 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01208  M01S01028.vfyli5  ---| RDFD     BSS    0
Line S00064 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01209  M01S00064.vfyli5  +++| RDFD     BSS    0           OLD FILE PARAMETER LIST
01210  M00S01029.vfylib  +++|
01211  M00S01030.vfylib  +++|          LOC    0
Line S01031 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01212  M01S01031.vfyli5  ---|          VFD    60/OLD
01213  M01S01032.vfyli5  ---|          VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
01214  M01S01033.vfyli5  ---|          VFD    60/         60/CHECKSUM
01215  M01S01034.vfyli5  ---|          VFD    60/         60/ULIB
01216  M01S01035.vfyli5  ---|          VFD    60/         60/DATE
01217  M01S01036.vfyli5  ---|          DUP    13,1
01218  M01S01037.vfyli5  ---|          VFD    60/         60/COMMENT TEXT
01219  M01S01038.vfyli5  ---|          DATA   0           COMMENT LENGTH
01220  M01S01039.vfyli5  ---|          DATA   0           LIBRARY NUMBER
01221  M01S01040.vfyli5  ---|          DATA   0           TEMP LOC FOR CURRENT ULIB
01222  M01S01041.vfyli5  ---|
01223  M01S01042.vfyli5  ---|          ORG    *O
01224  M01S01043.vfyli5  ---| FPAL     EQU    *-RDFD      FILE PARAMETER LENGTH
Line S00065 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01225  M01S00065.vfyli5  +++| .PN      CON    OLD         OLD FILE FET FET ADDRESS
01226  M01S00066.vfyli5  +++| .PD      VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
01227  M01S00067.vfyli5  +++| .CS      CON    0           30/CHECKSUM,30/COMMENT INDEX
01228  M01S00068.vfyli5  +++| .UN      CON    0           USER LIBRARY NAME
01229  M01S00069.vfyli5  +++| .RL      CON    0           RECORD LENGTH
01230  M01S00070.vfyli5  +++| .DT      CON    0           DATE
01231  M01S00071.vfyli5  +++|          ERRNZ  *-ENTL-1    NPT/OPT TABLE LENGTH ERROR
01232  M01S00072.vfyli5  +++|
01233  M01S00073.vfyli5  +++| .CM      BSSZ   13          COMMENT TEXT
01234  M01S00074.vfyli5  +++| .CL      CON    0           COMMENT LENGTH
01235  M01S00075.vfyli5  +++| .TL      CON    1           CURRENT LIBRARY NUMBER OF FILE
01236  M01S00076.vfyli5  +++| .TU      CON    0           SAVE AREA FOR CURRENT ULIB
01237  M01S00077.vfyli5  +++|
01238  M01S00078.vfyli5  +++| FPAL     BSS    0           FILE PARAMETER LENGTH
01239  M01S00079.vfyli5  +++|          LOC    *O
01240  M00S01044.vfylib  +++|
Line S01045 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01241  M01S01045.vfyli5  ---| RDFE     BSS    0
Line S00080 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01242  M01S00080.vfyli5  +++| RDFE     BSS    0           NEW FILE PARAMETER LIST
01243  M01S00081.vfyli5  +++|
01244  M00S01046.vfylib  +++|          LOC    0
Line S01047 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01245  M01S01047.vfyli5  ---|          VFD    60/NEW
01246  M01S01048.vfyli5  ---|          VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
01247  M01S01049.vfyli5  ---|          VFD    60/         60/CHECKSUM
01248  M01S01050.vfyli5  ---|          VFD    60/         60/ULIB
01249  M01S01051.vfyli5  ---|          VFD    60/         60/DATE
01250  M01S01052.vfyli5  ---|          DUP    13,1
01251  M01S01053.vfyli5  ---|          VFD    60/         60/COMMENT TEXT
01252  M01S01054.vfyli5  ---|          DATA   0           COMMENT LENGTH
01253  M01S01055.vfyli5  ---|          DATA   0           LIBRARY NUMBER
01254  M01S01056.vfyli5  ---|          DATA   0           TEMP LOC FOR CURRENT ULIB
01255  M01S01057.vfyli5  ---|          ORG    *O
Line S00082 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00082.vfyli5  +++| .PN      CON    NEW         NEW FILE FET ADDRESS
01257  M01S00083.vfyli5  +++| .PD      VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
01258  M01S00084.vfyli5  +++| .CS      CON    0           30/CHECKSUM,30/COMMENT INDEX
01259  M01S00085.vfyli5  +++| .UN      CON    0           USER LIBRARY NAME
01260  M01S00086.vfyli5  +++| .RL      CON    0           RECORD LENGTH
01261  M01S00087.vfyli5  +++| .DT      CON    0           DATE
01262  M01S00088.vfyli5  +++|          ERRNZ  *-ENTL-1    NPT/OPT TABLE LENGTH ERROR
01263  M01S00089.vfyli5  +++|
01264  M01S00090.vfyli5  +++| .CM      BSSZ   13          COMMENT TEXT
01265  M01S00091.vfyli5  +++| .CL      CON    0           COMMENT LENGTH
01266  M01S00092.vfyli5  +++| .TL      CON    1           CURRENT LIBRARY NUMBER OF FILE
01267  M01S00093.vfyli5  +++| .TU      CON    0           SAVE AREA FOR CURRENT ULIB
01268  M01S00094.vfyli5  +++|
01269  M01S00095.vfyli5  +++| FPAL     BSS    0           FILE PARAMETER LENGTH
01270  M01S00096.vfyli5  +++|          LOC    *O
01271  M00S01058.vfylib  +++|
01272  M00S01059.vfylib  +++|*         DISPLAY MESSAGE.
01273  M00S01060.vfylib  +++|
01274  M00S01061.vfylib  +++| RDFF     DATA   H*READING   *
01275  M00S01062.vfylib  +++|          DATA   10H
01276  M00S01063.vfylib  +++|          DATA   10H
01277  M00S01064.vfylib  +++|          DATA   0
01278  M00S01065.vfylib  +++| RDA      SPACE  4
01279  M00S01066.vfylib  +++|**        RDA - READ DATA.
01280  M00S01067.vfylib  +++|*
01281  M00S01068.vfylib  +++|*         PROCESSES CALLS TO READ WORDS (RDW=).
01282  M00S01069.vfylib  +++|*         DEBLOCKS DATA IF CONTROL WORD READS.
01283  M00S01070.vfylib  +++|*
01284  M00S01071.vfylib  +++|*         USES   A - 1, 3, 6, 7.
01285  M00S01072.vfylib  +++|*                B - 5, 6, 7.
01286  M00S01073.vfylib  +++|*                X - 1, 3, 4, 6, 7.
01287  M00S01074.vfylib  +++|*
01288  M00S01075.vfylib  +++|*         CALLS  RDW=.
01289  M00S01076.vfylib  +++|
01290  M00S01077.vfylib  +++|
01291  M00S01078.vfylib  +++| RDA5     SX6    B5-B7       UPDATE WORDS REMAINING
01292  M00S01079.vfylib  +++|          SA6    A1
01293  M00S01080.vfylib  +++|          RJ     RDW=        READ WORDS
01294  M00S01081.vfylib  +++|
01295  M00S01082.vfylib  +++| RDA      SUBR               ENTRY/EXIT
01296  M00S01083.vfylib  +++| RDA1     SA1    X2-2        GET NUMBER OF WORDS BEFORE CONTROL WORD
01297  M00S01084.vfylib  +++|          SB5    X1+
01298  M00S01085.vfylib  +++|          PL     X1,RDA2     IF NOT FIRST READ
01299  M00S01086.vfylib  +++|          SX7    B7+         SET WORDS NEEDED
01300  M00S01087.vfylib  +++|          SA7    RDAA
01301  M00S01088.vfylib  +++|          JP     RDA4
01302  M00S01089.vfylib  +++|
01303  M00S01090.vfylib  +++| RDA2     GE     B5,B7,RDA5  IF ENOUGH DATA TO FILL BUFFER
01304  M00S01091.vfylib  +++|          SA3    X2-1        CHECK EOR FLAG
01305  M00S01092.vfylib  +++|          PL     X3,RDA3     IF NOT EOR ON FILE
01306  M00S01093.vfylib  +++|          MX6    1           SET NEW READ FLAG
01307  M00S01094.vfylib  +++|          SB7    B5+B1       SET WORDS TO READ
01308  M00S01095.vfylib  +++|          SA6    A3
01309  M00S01096.vfylib  +++|          SA6    A1
01310  M00S01097.vfylib  +++|          RJ     RDW=        READ WORDS
01311  M00S01098.vfylib  +++|          SA1    B6-B1       CHECK CONTROL WORD
01312  M00S01099.vfylib  +++|          AX1    48
01313  M00S01100.vfylib  +++|          SX6    X1-17B
01314  M00S01101.vfylib  +++|          MX1    -1
01315  M00S01102.vfylib  +++|          SB6    B6-B1       BACK UP LAST WORD ADDRESS
01316  M00S01103.vfylib  +++|          ZR     X6,RDA      IF *EOF* CONTROL WORD
01317  M00S01104.vfylib  +++|          SX1    B6          SET *EOR* INDICATION
01318  M00S01105.vfylib  +++|          EQ     RDAX        RETURN
01319  M00S01106.vfylib  +++|
01320  M00S01107.vfylib  +++| RDA3     SX6    B7-B5       SAVE ADDITIONAL WORDS NEEDED
01321  M00S01108.vfylib  +++|          SA6    RDAA
01322  M00S01109.vfylib  +++|          SB7    B5+B1       SET WORDS TO TRANSFER
01323  M00S01110.vfylib  +++|          RJ     RDW=        READ WORDS
01324  M00S01111.vfylib  +++|          SB6    B6-1        BACK UP OVER LAST CONTROL WORD
01325  M00S01112.vfylib  +++| RDA4     SB7    B1          READ CONTROL WORD
01326  M00S01113.vfylib  +++|          RJ     RDW=
01327  M00S01114.vfylib  +++|          NG     X1,RDA      IF EOF/EOI
01328  M00S01115.vfylib  +++|          SB6    B6-B1       BACK UP WORKING BUFFER
01329  M00S01116.vfylib  +++|          SA1    B6          CONTROL WORD
01330  M00S01117.vfylib  +++|          SX7    5
01331  M00S01118.vfylib  +++|          SX4    X1+4        ROUND UP
01332  M00S01119.vfylib  +++|          AX1    36          EXTRACT BLOCK SIZE
01333  M00S01120.vfylib  +++|          SX3    X1
01334  M00S01121.vfylib  +++|          IX7    X4/X7       WORDS IN BLOCK
01335  M00S01122.vfylib  +++|          IX6    X7-X3       SAVE EOR FLAG
01336  M00S01123.vfylib  +++|          SA7    X2-2        STORE WORD COUNT
01337  M00S01124.vfylib  +++|          SA6    X2-1        EOR FLAG
01338  M00S01125.vfylib  +++|          SA1    RDAA        RESET WORDS NEEDED
01339  M00S01126.vfylib  +++|          SB7    X1
01340  M00S01127.vfylib  +++|          JP     RDA1        LOOP
01341  M00S01128.vfylib  +++|
01342  M00S01129.vfylib  +++| RDAA     CON    0
01343  M00S01130.vfylib  +++| CDT      SPACE  4
01344  M00S01131.vfylib  +++|**        CDT - CHECK DEVICE TYPE.
01345  M00S01132.vfylib  +++|*
01346  M00S01133.vfylib  +++|*         ENTRY  (X1) = (FET+1).
01347  M00S01134.vfylib  +++|*
01348  M00S01135.vfylib  +++|*         EXIT   (X7) = 0, IF CONTROL WORD READ/WRITE NOT SUPPORTED
01349  M00S01136.vfylib  +++|*                       ON DEVICE.
01350  M00S01137.vfylib  +++|*
01351  M00S01138.vfylib  +++|*         USES   A - 2.
01352  M00S01139.vfylib  +++|*                X - 0, 1, 2, 6, 7.
01353  M00S01140.vfylib  +++|
01354  M00S01141.vfylib  +++|
01355  M00S01142.vfylib  +++| CDT2     LX1    12          CHECK *TT*
01356  M00S01143.vfylib  +++|          BX6    -X0*X1
01357  M00S01144.vfylib  +++|          SX7    X6-2RTT
01358  M00S01145.vfylib  +++|
01359  M00S01146.vfylib  +++| CDT      SUBR               ENTRY/EXIT
01360  M00S01147.vfylib  +++|          MX0    -12
01361  M00S01148.vfylib  +++|          PL     X1,CDT2     IF ALLOCATABLE
01362  M00S01149.vfylib  +++|          LX1    12
01363  M00S01150.vfylib  +++|          SA2    CDTA        SEARCH DEVICE TABLE
01364  M00S01151.vfylib  +++|          SX7    0           ASSUME NO FIND
01365  M00S01152.vfylib  +++| CDT1     ZR     X2,CDTX     IF NOT FOUND - RETURN
01366  M00S01153.vfylib  +++|          BX6    X1-X2
01367  M00S01154.vfylib  +++|          AX2    12
01368  M00S01155.vfylib  +++|          BX6    X2*X6
01369  M00S01156.vfylib  +++|          SA2    A2+B1
01370  M00S01157.vfylib  +++|          NZ     X6,CDT1     IF NOT MATCH
01371  M00S01158.vfylib  +++|          SX7    1           INDICATE CONTROL WORD POSSIBLE
01372  M00S01159.vfylib  +++|          EQ     CDTX        RETURN
01373  M00S01160.vfylib  +++|
01374  M00S01161.vfylib  +++| CDTA     VFD    36/,12/7703B,12/4002B
01375  M00S01162.vfylib  +++|          VFD    36/,12/7703B,12/4102B
01376  M00S01163.vfylib  +++|          VFD    36/,12/7777B,12/2RMT+4000B
01377  M00S01164.vfylib  +++|          VFD    36/,12/7777B,12/2RNT+4000B
Line S00023 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01378  M01S00023.274l797 +++|          VFD    36/,12/7777B,12/2RCT+4000B
01379  M01S00024.274l797 +++|          VFD    36/,12/7777B,12/2RAT+4000B
01380  M00S01165.vfylib  +++|          CON    0
01381  M00S01166.vfylib  +++| IDT      SPACE  4
Line S01167 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01382  M01S01167.v23l617 ---|**        IDT - ISSUE ILLEGAL DEVICE MESSAGE.
Line S00005 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01383  M01S00005.v23l617 +++|**        IDT - ISSUE UNKNOWN DEVICE MESSAGE.
01384  M00S01168.vfylib  +++|*
01385  M00S01169.vfylib  +++|*         ENTRY  (A1) = FET ADDRESS + 1.
01386  M00S01170.vfylib  +++|*                (X7) = 0.
01387  M00S01171.vfylib  +++|*
01388  M00S01172.vfylib  +++|*         EXIT   TO ABT.
01389  M00S01173.vfylib  +++|*
01390  M00S01174.vfylib  +++|*         USES   A - 1, 7.
01391  M00S01175.vfylib  +++|*                B - 4.
01392  M00S01176.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
01393  M00S01177.vfylib  +++|*
01394  M00S01178.vfylib  +++|*         CALLS  MSG=.
01395  M00S01179.vfylib  +++|
01396  M00S01180.vfylib  +++|
01397  M00S01181.vfylib  +++| IDT      MX0    42
01398  M00S01182.vfylib  +++|          SA1    A1-B1       READ FILE NAME
01399  M00S01183.vfylib  +++|          MX3    26+10
01400  M00S01184.vfylib  +++|          BX6    X0*X1
01401  M00S01185.vfylib  +++|          MX2    6
01402  M00S01186.vfylib  +++|          LX3    59          POSITION LEGAL CHARACTER MASK
01403  M00S01187.vfylib  +++|          BX1    X1-X1
01404  M00S01188.vfylib  +++|          MX0    -6
01405  M00S01189.vfylib  +++| IDT1     LX7    6
01406  M00S01190.vfylib  +++|          BX7    X7+X1       ASSEMBLE FILE NAME
01407  M00S01191.vfylib  +++|          LX6    6
01408  M00S01192.vfylib  +++|          BX1    -X0*X6
01409  M00S01193.vfylib  +++|          SB4    X1          FIND END OF FILE NAME
01410  M00S01194.vfylib  +++|          LX4    B4,X3
01411  M00S01195.vfylib  +++|          NG     X4,IDT1     IF NOT END OF NAME
01412  M00S01196.vfylib  +++|          LX7    6
01413  M00S01197.vfylib  +++|          SX1    1R.         ADD *.* TO FILE NAME
01414  M00S01198.vfylib  +++|          BX7    X7+X1
01415  M00S01199.vfylib  +++| +        LX7    6           LEFT JUSTIFY ASSEMBLY
01416  M00S01200.vfylib  +++|          BX6    X2*X7
01417  M00S01201.vfylib  +++|          ZR     X6,*        IF NOT LEFT JUSTIFIED
01418  M00S01202.vfylib  +++|          SA7    IDTB
01419  M00S01203.vfylib  +++|          MESSAGE IDTA
01420  M00S01204.vfylib  +++|          CALL   ABT
01421  M00S01205.vfylib  +++|
Line S01206 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01422  M01S01206.v23l617 ---| IDTA     DATA   30H ILLEGAL DEVICE TYPE -- LFN =
Line S00006 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01423  M01S00006.v23l617 +++| IDTA     DATA   30H UNKNOWN DEVICE TYPE -- LFN =
01424  M00S01207.vfylib  +++| IDTB     CON    0
01425  M00S01208.vfylib  +++| WPH      SPACE  4
01426  M00S01209.vfylib  +++|**        WPH - WRITE PAGE HEADER.
01427  M00S01210.vfylib  +++|*
01428  M00S01211.vfylib  +++|*         EXIT   PAGE HEADER WRITTEN.
01429  M00S01212.vfylib  +++|*
01430  M00S01213.vfylib  +++|*         USES   A - 1, 2, 6, 7.
01431  M00S01214.vfylib  +++|*                X - 0, 1, 2, 6, 7.
01432  M00S01215.vfylib  +++|*
01433  M00S01216.vfylib  +++|*         CALLS  C6S, WTW=.
01434  M00S01217.vfylib  +++|
01435  M00S01218.vfylib  +++|
01436  M00S01219.vfylib  +++| WPH      SUBR               ENTRY/EXIT
Line S01220 Modification History
M01 (Removed by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01437  M01S01220.vfyli1  ---|          SA2    WPHA
Line S00004 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01438  M01S00004.vfyli1  +++|          SA2    PNUM
01439  M00S01221.vfylib  +++|          SX6    X2+B1       ADVANCE PAGE NUMBER
01440  M00S01222.vfylib  +++|          SA6    A2
Line S01223 Modification History
M01 (Removed by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01441  M01S01223.vfyli1  ---|          CALL   C6S,A2,A6+B1
Line S00005 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01442  M01S00005.vfyli1  +++|          CALL   C6S,A2,WPHA
01443  M00S01224.vfylib  +++|          LX6    36
01444  M00S01225.vfylib  +++|          MX0    -24
Line S01226 Modification History
M01 (Removed by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01445  M01S01226.vfyli1  ---|          SA1    B3+1
Line S00006 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01446  M01S00006.vfyli1  +++|          SA1    WPHA+1
01447  M00S01227.vfylib  +++|          BX6    -X0*X6      INSERT PAGE NUMBER
01448  M00S01228.vfylib  +++|          IX7    X1+X6
01449  M00S01229.vfylib  +++|          SA7    CRPG
01450  M00S01230.vfylib  +++|          WRITEW O,WPHB,WPHD
01451  M00S01231.vfylib  +++|          SX6    3           SET LINE COUNT
01452  M00S01232.vfylib  +++|          SA6    LINE
01453  M00S01233.vfylib  +++|          EQ     WPHX        RETURN
01454  M00S01234.vfylib  +++|
Line S01235 Modification History
M01 (Removed by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01455  M01S01235.vfyli1  ---| WPHA     CON    0           PAGE NUMBER
01456  M01S01236.vfyli1  ---|          CON    0
Line S00007 Modification History
M01 (Added by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01457  M01S00007.vfyli1  +++| WPHA     BSS    1           CONVERTED PAGE NUMBER
01458  M00S01237.vfylib  +++|          CON    6LPAGE
01459  M00S01238.vfylib  +++|
01460  M00S01239.vfylib  +++| WPHB     DATA   H*1     VFYLIB.      OLD FILE = XXXXXXX  N*
01461  M00S01240.vfylib  +++|          DATA   H*EW FILE = XXXXXXX   *
01462  M00S01241.vfylib  +++| CRDT     CON    0           CURRENT DATE
01463  M00S01242.vfylib  +++| CRTM     CON    0           CURRENT TIME
01464  M00S01243.vfylib  +++|          DATA   10H
01465  M00S01244.vfylib  +++| CRPG     CON    0           CURRENT PAGE
01466  M00S01245.vfylib  +++|          CON    0
01467  M00S01246.vfylib  +++|
01468  M00S01247.vfylib  +++| WPHC     DATA   H*0          RECORD    TYPE      ULIB          LIB*
01469  M00S01248.vfylib  +++|          DATA   C* DATE      COMMENT*
01470  M00S01249.vfylib  +++| WPHD     EQU    *-WPHB
01471  M00S01250.vfylib  +++|          SPACE  4
01472  M00S01251.vfylib  +++|**        SMT - SEARCH MANAGED TABLE.
01473  M00S01252.vfylib  +++|*
01474  M00S01253.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF TABLE POINTER.
01475  M00S01254.vfylib  +++|*                (B3) = ADDRESS OF ENTRY.
01476  M00S01255.vfylib  +++|*                (B4) = ADDRESS OF MASK.
01477  M00S01256.vfylib  +++|*                (B5) = INDEX INTO TABLE.
01478  M00S01257.vfylib  +++|*
01479  M00S01258.vfylib  +++|*         EXIT   (B6) = ADDRESS OF ADDRESS OF ENTRY IF FOUND.
01480  M00S01259.vfylib  +++|*                (B6) = ADDRESS OF 0 IF NOT FOUND.
01481  M00S01260.vfylib  +++|*                (X6) = ADDRESS OF ENTRY, IF FOUND.
01482  M00S01261.vfylib  +++|*                     = 0, IF NOT FOUND.
01483  M00S01262.vfylib  +++|*
01484  M00S01263.vfylib  +++|*         USES   A - 1, 2, 3, 4, 5, 6.
01485  M00S01264.vfylib  +++|*                B - 2, 3, 4, 7.
01486  M00S01265.vfylib  +++|*                X - ALL.
01487  M00S01266.vfylib  +++|
01488  M00S01267.vfylib  +++|
01489  M00S01268.vfylib  +++| SMT      SUBR               ENTRY/EXIT
01490  M00S01269.vfylib  +++|          SA1    B2          SET TABLE POINTER
01491  M00S01270.vfylib  +++|          SA2    A1+B1       SET TABLE LENGTH
01492  M00S01271.vfylib  +++|          SA3    A2+B1       SET NUMBER OF WORDS/ENTRY
01493  M00S01272.vfylib  +++|          SA4    B3          (X4) = ENTRY
01494  M00S01273.vfylib  +++|          SB2    X1          (B2) = FWA TABLE
01495  M00S01274.vfylib  +++|          SB7    X2+B2       (B7) = LWA TABLE
01496  M00S01275.vfylib  +++|          SB3    X3          (B3) = WORDS/ENTRY
01497  M00S01276.vfylib  +++|          SA5    B4          (X5) = MASK
01498  M00S01277.vfylib  +++|          MX0    7*6
01499  M00S01278.vfylib  +++| SMT1     EQ     B2,B7,SMT2  IF END OF TABLE
01500  M00S01279.vfylib  +++|          SA1    B2+B5
01501  M00S01280.vfylib  +++|          BX6    X4-X1
01502  M00S01281.vfylib  +++|          BX6    X5*X6
01503  M00S01282.vfylib  +++|          SB2    B2+B3
01504  M00S01283.vfylib  +++|          NZ     X6,SMT1     IF NOT FOUND
01505  M00S01284.vfylib  +++|          SA2    A4+2        CHECK ULIB
01506  M00S01285.vfylib  +++|          SB4    B2-B3
01507  M00S01286.vfylib  +++|          SA3    B4+2
01508  M00S01287.vfylib  +++|          BX7    X2-X3
01509  M00S01288.vfylib  +++|          BX7    X0*X7
01510  M00S01289.vfylib  +++|          NZ     X7,SMT1     IF DIFFERENT ULIB
01511  M00S01290.vfylib  +++|          SX6    B4
01512  M00S01291.vfylib  +++|          SA6    B6
01513  M00S01292.vfylib  +++|          EQ     SMTX        RETURN
01514  M00S01293.vfylib  +++|
01515  M00S01294.vfylib  +++| SMT2     SX6    B0          SET NOT FOUND
01516  M00S01295.vfylib  +++|          SA6    B6
01517  M00S01296.vfylib  +++|          EQ     SMTX        RETURN
01518  M00S01297.vfylib  +++|
01519  M00S01298.vfylib  +++| SMTA     CON    0
01520  M00S01299.vfylib  +++|          SPACE  4
01521  M00S01300.vfylib  +++|**        TABLE POINTERS.
01522  M00S01301.vfylib  +++|
01523  M00S01302.vfylib  +++|
01524  M00S01303.vfylib  +++| TABLE    TABLE  OPT,ENTL
01525  M00S01304.vfylib  +++|          TABLE  NPT,ENTL
01526  M00S01305.vfylib  +++|          TABLE  CMT,7
01527  M00S01306.vfylib  +++|          TABLE  BUF         UNUSED STORAGE TABLE
01528  M00S01307.vfylib  +++| COMMON   TITLE  COMMON DECKS AND STORAGE ALLOCATION.
01529  M00S01308.vfylib  +++|          SPACE  4
01530  M00S01309.vfylib  +++|**        COMMON DECKS.
01531  M00S01310.vfylib  +++|
01532  M00S01311.vfylib  +++|
01533  M00S01312.vfylib  +++|*CALL     COMCCIO
01534  M00S01313.vfylib  +++|*CALL     COMCCOD
01535  M00S01314.vfylib  +++|*CALL     COMCCPT
01536  M00S01315.vfylib  +++|*CALL     COMCRDW
01537  M00S01316.vfylib  +++|*CALL     COMCSFN
01538  M00S01317.vfylib  +++|*CALL     COMCSRT
Line S00027 Modification History
M01 (Added by) ns22000
M02 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01539  M02S00027.vfyli5  ---|*CALL     COMCSTF
01540  M00S01318.vfylib  +++|*CALL     COMCSYS
01541  M00S01319.vfylib  +++|*CALL     COMCWTC
01542  M00S01320.vfylib  +++|*CALL     COMCWTW
Line S01321 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01543  M01S01321.vfyli5  ---| IDENT    SPACE  4,4
01544  M01S01322.vfyli5  ---|          IDENT              FORCE LITERALS
01545  M00S01323.vfylib  +++| PRESET   TITLE  VFYLIB PRESET.
Line S01324 Modification History
M01 (Removed by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01546  M01S01324.vfyli5  ---| PRS      SPACE  4,10
Line S00097 Modification History
M01 (Added by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01547  M01S00097.vfyli5  +++| PRS      SPACE  4,20
01548  M00S01325.vfylib  +++|**        PRS - PRESET VFYLIB.
01549  M00S01326.vfylib  +++|*
01550  M00S01327.vfylib  +++|*         ENTRY  (A0) - FL.
01551  M00S01328.vfylib  +++|*
Line S01329 Modification History
M01 (Removed by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
01552  M01S01329.vfyli3  ---|*         EXIT   (B6) - FWA OF BUFFER AREA.
01553  M01S01330.vfyli3  ---|*                (B7) - FL.
Line S00023 Modification History
M01 (Added by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
01554  M01S00023.vfyli3  +++|*         EXIT   (LL) = LINE LIMIT.
01555  M01S00024.vfyli3  +++|*                (PD) = PRINT DENSITY.
01556  M01S00025.vfyli3  +++|*                (CFL) = CURRENT FIELD LENGTH.
01557  M01S00026.vfyli3  +++|*                (MFL) = MAXIMUM FIELD LENGTH.
01558  M00S01331.vfylib  +++|*                (CRDT) - CURRENT DATE.
01559  M00S01332.vfylib  +++|*                (CRTM) - CURRENT TIME.
Line S00028 Modification History
M01 (Added by) ns22000
M02 (Removed by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
01560  M02S00028.vfyli3  ---|*                (LL) = LINE LIMIT.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/vfylib.txt ยท Last modified: by 127.0.0.1