Deck 1MI Part 001

4 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01825  M00S01762.1mi     +++|*                (A) = LESS THAN ZERO IF NO *EOL* ENCOUNTERED.
01826  M00S01763.1mi     +++|*
01827  M00S01764.1mi     +++|*         USES   CM - CM+4.
01828  M00S01765.1mi     +++|
01829  M00S01766.1mi     +++|
01830  M00S01767.1mi     +++|*         ENTER SEARCH LOOP FOR AN EXISTING *EOL* BYTE.
01831  M00S01768.1mi     +++|
01832  M00S01769.1mi     +++| RBS2     LDD    T3          BEGIN BUFFER SCAN
01833  M00S01770.1mi     +++|          SHN    6
01834  M00S01771.1mi     +++|          ADD    RA
01835  M00S01772.1mi     +++|          SHN    6
01836  M00S01773.1mi     +++|          ADD    T3+1
01837  M00S01774.1mi     +++|          SBN    1           BACK OFF RUNNING *IN* POINTER
01838  M00S01775.1mi     +++|          CRD    CM          READ BUFFER ENTRY
01839  M00S01776.1mi     +++|          SHN    14
01840  M00S01777.1mi     +++|          SBD    RA
01841  M00S01778.1mi     +++|          SHN    6
01842  M00S01779.1mi     +++|          STD    T3+1
01843  M00S01780.1mi     +++|          SHN    -14
01844  M00S01781.1mi     +++|          STD    T3
01845  M00S01782.1mi     +++|          LDD    CM+4
01846  M00S01783.1mi     +++|          ZJN    RBSX        IF AN *EOL* BYTE ENCOUNTERED
01847  M00S01784.1mi     +++|          LDD    CD+1        DECREMENT ACCEPTABLE CM WORD TRANSFER
01848  M00S01785.1mi     +++|          SHN    14
01849  M00S01786.1mi     +++|          LMD    CD+2
01850  M00S01787.1mi     +++|          SBN    1
01851  M00S01788.1mi     +++|          STD    CD+2
01852  M00S01789.1mi     +++|          SHN    -14
01853  M00S01790.1mi     +++|          STD    CD+1
01854  M00S01791.1mi     +++|          ADD    CD+2
01855  M00S01792.1mi     +++|          NJN    RBS1        IF NOT A COMPLETE BUFFER SCAN
01856  M00S01793.1mi     +++|          LCN    0           LINE FRAGMENT STATUS
01857  M00S01794.1mi     +++|
01858  M00S01795.1mi     +++| RBS      SUBR               ENTRY/EXIT
01859  M00S01796.1mi     +++| RBS1     LDD    T3          ASSURE BUFFER WRAP
01860  M00S01797.1mi     +++|          SBD    FT          BUFFER FIRST WORD ADDRESS
01861  M00S01798.1mi     +++|          SHN    14
01862  M00S01799.1mi     +++|          LMD    T3+1
01863  M00S01800.1mi     +++|          SBD    FT+1
01864  M00S01801.1mi     +++|          NJP    RBS2        IF *FIRST* NOT REACHED
01865  M00S01802.1mi     +++|          LDD    LM
01866  M00S01803.1mi     +++|          STD    T3          SET *IN = LIMIT*
01867  M00S01804.1mi     +++|          LDD    LM+1
01868  M00S01805.1mi     +++|          STD    T3+1
01869  M00S01806.1mi     +++|          LJM    RBS2        CONTINUE BUFFER SCAN
01870  M00S01807.1mi     +++| ROJ      SPACE  4,10
01871  M00S01808.1mi     +++|**        ROJ - ROLL USER JOB.
01872  M00S01809.1mi     +++|*
01873  M00S01810.1mi     +++|*         ENTRY  (T0) = *COMSCPS* ROLLOUT OPTION REQUEST.
01874  M00S01811.1mi     +++|*
01875  M00S01812.1mi     +++|*         EXIT   CONTROL POINT ROLLOUT REQUESTED.
01876  M00S01813.1mi     +++|*
01877  M00S01814.1mi     +++|*         USES   CM - CM+4.
01878  M00S01815.1mi     +++|*
01879  M00S01816.1mi     +++|*         MACROS MONITOR.
01880  M00S01817.1mi     +++|
01881  M00S01818.1mi     +++|
01882  M00S01819.1mi     +++| ROJ      SUBR               ENTRY/EXIT
01883  M00S01820.1mi     +++|          LDN    ZERL
01884  M00S01821.1mi     +++|          CRD    CM
01885  M00S01822.1mi     +++|          LDD    T0          REQUESTED OPTION
01886  M00S01823.1mi     +++|          STD    CM+1
01887  M00S01824.1mi     +++|          MONITOR ROCM
01888  M00S01825.1mi     +++|          UJN    ROJX        RETURN
01889  M00S01826.1mi     +++| SLF      SPACE  4,10
01890  M00S01827.1mi     +++|**        SLF - SEARCH LIST OF FILE ENTRIES.
01891  M00S01828.1mi     +++|*
01892  M00S01829.1mi     +++|*         ENTRY  SCAN LIST OF FILE *LOFW* OR RA+2 ENTRIES
01893  M00S01830.1mi     +++|*                FOR POSSIBLE OUTPUT BUFFER FLUSH CANDIDATES.
01894  M00S01831.1mi     +++|*
01895  M00S01832.1mi     +++|*         EXIT   (IR+3 - IR+4)  = BUFFER OUTPUT FET ADDRESS.
01896  M00S01833.1mi     +++|*                (A)  = NONZERO IF FILE ENTRY TO BE FLUSHED.
01897  M00S01834.1mi     +++|*
01898  M00S01835.1mi     +++|*         USES   T1 - T5, CM - T9.
01899  M00S01836.1mi     +++|*
01900  M00S01837.1mi     +++|*         CALLS  DFS, VAD.
01901  M00S01838.1mi     +++|
01902  M00S01839.1mi     +++|
01903  M00S01840.1mi     +++| SLF      SUBR               ENTRY/EXIT
01904  M00S01841.1mi     +++|          LDD    FL
01905  M00S01842.1mi     +++|          ZJN    SLFX        IF NO FIELD LENGTH
01906  M00S01843.1mi     +++|
01907  M00S01844.1mi     +++|*         PROCESS LIST OF FILE ENTRIES *LOFW*.
01908  M00S01845.1mi     +++|
01909  M00S01846.1mi     +++|          LDD    CP          LIST OF FILES POINTER
01910  M00S01847.1mi     +++|          ADC    LOFW
01911  M00S01848.1mi     +++|          CRD    CM
01912  M00S01849.1mi     +++|          LDD    CM+1
01913  M00S01850.1mi     +++|          LPN    37
01914  M00S01851.1mi     +++|          SHN    14
01915  M00S01852.1mi     +++|          LMD    CM+2
01916  M00S01853.1mi     +++|          ZJN    SLF1        IF *LOFW* NOT IN USE
01917  M00S01854.1mi     +++|          ADN    1           OFFSET INTO *LOFW* TABLE
01918  M00S01855.1mi     +++|          RJM    VAD         VALIDATE ENTRY ADDRESS
01919  M00S01856.1mi     +++|          ZJN    SLFX        IF INCORRECT ADDRESS
01920  M00S01857.1mi     +++|          CRD    T8-3        READ *LOFW* ENTRY
01921  M00S01858.1mi     +++|          RJM    DFS         DETERMINE FLUSH STATUS
01922  M00S01859.1mi     +++|          NJP    SLF3        SET UP FLUSH CANDIDATE
01923  M00S01860.1mi     +++|          UJN    SLFX        IF NOT A FLUSH CANDIDATE
01924  M00S01861.1mi     +++|
01925  M00S01862.1mi     +++|*         PROCESS RA+2 LIST IF NO *LOFW*.
01926  M00S01863.1mi     +++|
01927  M00S01864.1mi     +++| SLF1     AOM    SLFA        RA+2 INDEX
01928  M00S01865.1mi     +++|          LPN    77
01929  M00S01866.1mi     +++|          LMN    PGNR        MAXIMUM RA+2 LIST LENGTH
01930  M00S01867.1mi     +++|          ZJN    SLFX        IF END OF LIST
01931  M00S01868.1mi     +++|          LDD    RA          REFERENCE ADDRESS
01932  M00S01869.1mi     +++|          SHN    6
01933  M00S01870.1mi     +++| SLFA     ADN    1           INCREMENT RA+2 INDEX
01934  M00S01871.1mi     +++|          CRD    T8-3        READ RA+2 ENTRY
01935  M00S01872.1mi     +++|          LDD    T8-3
01936  M00S01873.1mi     +++|          ZJP    SLFX        IF END OF LIST
01937  M00S01874.1mi     +++|
01938  M00S01875.1mi     +++|*         VALIDATE FET/FIT ADDRESS.
01939  M00S01876.1mi     +++|
01940  M00S01877.1mi     +++|          LDD    T8
01941  M00S01878.1mi     +++|          LPN    37
01942  M00S01879.1mi     +++|          SHN    14
01943  M00S01880.1mi     +++|          LMD    T8+1
01944  M00S01881.1mi     +++|          ADN    5           BIAS FET/FIT LENGTH
01945  M00S01882.1mi     +++|          RJM    VAD         VALIDATE LIST ENTRY
01946  M00S01883.1mi     +++|          ZJN    SLF1        IF FET/FIT OUTSIDE FL
01947  M00S01884.1mi     +++|          SBN    5
01948  M00S01885.1mi     +++|          CRD    T1          DETERMINE IF FET/FIT
01949  M00S01886.1mi     +++|          LDD    T1+3
01950  M00S01887.1mi     +++|          LPN    37
01951  M00S01888.1mi     +++|          ADD    T1+4
01952  M00S01889.1mi     +++|          NJN    SLF2        IF NOT A POSSIBLE FIT
01953  M00S01890.1mi     +++|
01954  M00S01891.1mi     +++|*         VALIDATE FET POINTER WITHIN FIT TABLE.
01955  M00S01892.1mi     +++|*         NOTE.   FIT+0 RESERVED BITS (17-0) DISTINGUISH
01956  M00S01893.1mi     +++|*         FIT TABLE DESCRIPTION.
01957  M00S01894.1mi     +++|
01958  M00S01895.1mi     +++|          LDD    T8
01959  M00S01896.1mi     +++|          LPN    37
01960  M00S01897.1mi     +++|          SHN    14
01961  M00S01898.1mi     +++|          LMD    T8+1
01962  M00S01899.1mi     +++|          ADN    1
01963  M00S01900.1mi     +++|          RJM    VAD         VALIDATE FIT ADDRESS
01964  M00S01901.1mi     +++|          ZJP    SLF1        IF FIT ADDRESS OUTSIDE FL
01965  M00S01902.1mi     +++|          CRD    T8-3        READ FET ADDRESS WITHIN FIT
01966  M00S01903.1mi     +++|          LDD    T8
01967  M00S01904.1mi     +++|          LPN    37
01968  M00S01905.1mi     +++|          ADD    T8+1
01969  M00S01906.1mi     +++|          ZJP    SLF1        IF NO FET ADDRESS WITHIN FIT
01970  M00S01907.1mi     +++|
01971  M00S01908.1mi     +++|*         DETERMINE FET/FIT FLUSH STATUS.
01972  M00S01909.1mi     +++|
01973  M00S01910.1mi     +++| SLF2     RJM    DFS         DETERMINE FLUSH STATUS
01974  M00S01911.1mi     +++|          ZJP    SLF1        IF NOT A FLUSH CANDIDATE
01975  M00S01912.1mi     +++|
01976  M00S01913.1mi     +++|*         SET UP FET ADDRESS EXIT CONDITIONS.
01977  M00S01914.1mi     +++|
01978  M00S01915.1mi     +++| SLF3     LDD    T8
01979  M00S01916.1mi     +++|          LPN    37
01980  M00S01917.1mi     +++|          STD    IR+3        SET UP FET ADDRESS
01981  M00S01918.1mi     +++|          LDD    T8+1
01982  M00S01919.1mi     +++|          STD    IR+4
01983  M00S01920.1mi     +++|          LJM    SLFX        RETURN
01984  M00S01921.1mi     +++| VAD      SPACE  4,10
01985  M00S01922.1mi     +++|**        VAD - VALIDATE ADDRESS WITHIN FL.
01986  M00S01923.1mi     +++|*
01987  M00S01924.1mi     +++|*         ENTRY  (A)  = ADDRESS NEEDING VALIDATION.
01988  M00S01925.1mi     +++|*
01989  M00S01926.1mi     +++|*         EXIT   (A)  = ABSOLUTE ADDRESS WITHIN FL.
01990  M00S01927.1mi     +++|*                (A)  = ZERO IF INCORRECT ADDRESS.
01991  M00S01928.1mi     +++|
01992  M00S01929.1mi     +++|
01993  M00S01930.1mi     +++| VAD1     LDN    0           INCORRECT ADDRESS STATUS
01994  M00S01931.1mi     +++|
01995  M00S01932.1mi     +++| VAD      SUBR               ENTRY/EXIT
01996  M00S01933.1mi     +++|          SHN    14
01997  M00S01934.1mi     +++|          SBD    FL          FIELD LENGTH
01998  M00S01935.1mi     +++|          SHN    6
01999  M00S01936.1mi     +++|          PJN    VAD1        IF INCORRECT ADDRESS PASSED
02000  M00S01937.1mi     +++|          SHN    14
02001  M00S01938.1mi     +++|          ADD    FL
02002  M00S01939.1mi     +++|          ADD    RA          REFERENCE ADDRESS
02003  M00S01940.1mi     +++|          SHN    6           ABSOLUTE ADDRESS
02004  M00S01941.1mi     +++|          UJN    VADX        RETURN
02005  M00S01942.1mi     +++| VFP      SPACE  4,10
02006  M00S01943.1mi     +++|**        VFP - VERIFY FET PARAMETERS.
02007  M00S01944.1mi     +++|*
02008  M00S01945.1mi     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
02009  M00S01946.1mi     +++|*
02010  M00S01947.1mi     +++|*         EXIT   (FT - FT+1)   = BUFFER FIRST WORD ADDRESS.
02011  M00S01948.1mi     +++|*                (IN - IN+1)   = BUFFER IN POINTER.
02012  M00S01949.1mi     +++|*                (OT - OT+1)   = BUFFER OUT POINTER.
02013  M00S01950.1mi     +++|*                (LM - LM+1)   = BUFFER LAST WORD ADDRESS.
02014  M00S01951.1mi     +++|*                (BS - BS+4)   = BUFFER FET STATUS.
02015  M00S01952.1mi     +++|*
02016  M00S01953.1mi     +++|*         USES   CM - CM+4.
02017  M00S01954.1mi     +++|*
02018  M00S01955.1mi     +++|*         MACROS CFET, ERROR, MONITOR.
02019  M00S01956.1mi     +++|
02020  M00S01957.1mi     +++|
02021  M00S01958.1mi     +++| VFP      SUBR               ENTRY/EXIT
02022  M00S01959.1mi     +++|
02023  M00S01960.1mi     +++|*         RESET FET BUFFER STATUS.
02024  M00S01961.1mi     +++|
02025  M00S01962.1mi     +++|          CFET               GET BUFFER STATUS
02026  M00S01963.1mi     +++|          CRD    BS

Seq #  *Modification Id* Act 
----------------------------+
02027  M01S01964.271l716 ---|          LDN    ZERL
02028  M01S01965.271l716 ---|          CRD    CM
02029  M00S01966.1mi     +++|          LDN    3           VALIDATE ALL FET PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
02030  M01S01967.271l716 ---|          STD    CM+4

Seq #  *Modification Id* Act 
----------------------------+
02031  M01S00006.271l716 +++|          STD    CM+1
02032  M00S01968.1mi     +++|          LDD    IR+3        FET ADDRESS
02033  M00S01969.1mi     +++|          LPN    77

Seq #  *Modification Id* Act 
----------------------------+
02034  M01S01970.271l716 ---|          STD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
02035  M01S00007.271l716 +++|          STD    CM+3
02036  M00S01971.1mi     +++|          LDD    IR+4

Seq #  *Modification Id* Act 
----------------------------+
02037  M01S01972.271l716 ---|          STD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
02038  M01S00008.271l716 +++|          STD    CM+4
02039  M00S01973.1mi     +++|          MONITOR VFPM       VERIFY FET PARAMETERS
02040  M00S01974.1mi     +++|          LDD    CM+1        VALIDATION RESPONSE
02041  M00S01975.1mi     +++|          ZJN    VFP2        IF VALID FET
02042  M00S01976.1mi     +++|          LPN    1
02043  M00S01977.1mi     +++|          ZJN    VFP1        IF VALID FET ADDRESS
02044  M00S01978.1mi     +++|          ERROR  ARG         *FET ADDRESS OUT OF RANGE*
02045  M00S01979.1mi     +++|
02046  M00S01980.1mi     +++| VFP1     LDD    CM+1
02047  M00S01981.1mi     +++|          LPN    2
02048  M00S01982.1mi     +++|          ZJN    VFP2        IF NO BUFFER ERROR
02049  M00S01983.1mi     +++|          ERROR   BUF         *BUFFER ARGUMENT ERROR*
02050  M00S01984.1mi     +++|
02051  M00S01985.1mi     +++|
02052  M00S01986.1mi     +++|*         RESET VALID FET PARAMETERS.
02053  M00S01987.1mi     +++|
02054  M00S01988.1mi     +++| VFP2     LDD    MA          CM MESSAGE BUFFER
02055  M00S01989.1mi     +++|          ADN    2
02056  M00S01990.1mi     +++|          CRD    IN-1        *IN* AND *OUT*
02057  M00S01991.1mi     +++|          ADN    1
02058  M00S01992.1mi     +++|          CRD    FT-1        *FIRST* AND *LIMIT*
02059  M00S01993.1mi     +++|          LDD    BS+3        CLEAR ERROR, LEVEL AND COMPLETION
02060  M00S01994.1mi     +++|          SCN    77
02061  M00S01995.1mi     +++|          STD    BS+3
02062  M00S01996.1mi     +++|          LDD    BS+4
02063  M00S01997.1mi     +++|          LPC    776
02064  M00S01998.1mi     +++|          STD    BS+4
02065  M00S01999.1mi     +++|          UJP    VFPX        RETURN
02066  M00S02000.1mi     +++|
02067  M00S02001.1mi     +++|
02068  M00S02002.1mi     +++|
02069  M00S02003.1mi     +++|
02070  M00S02004.1mi     +++|**        COMMON DECKS.
02071  M00S02005.1mi     +++|
02072  M00S02006.1mi     +++|
02073  M00S02007.1mi     +++|*CALL,COMPACS
02074  M00S02008.1mi     +++|*CALL,COMPANS
02075  M00S02009.1mi     +++|*CALL,COMPCIB
02076  M00S02010.1mi     +++|*CALL,COMPCOB

Seq #  *Modification Id* Act 
----------------------------+
02077  M01S00058.ns2748  +++| PIR$     EQU    1           SELECT ASSEMBLY OF *PIR* FOR IAF R-REG
02078  M01S00059.ns2748  +++|*CALL,COMPSRR
02079  M00S02011.1mi     +++|*CALL,COMPCRS
02080  M00S02012.1mi     +++|*CALL,COMPRBB
02081  M00S02013.1mi     +++|*CALL,COMPSPA
02082  M00S02014.1mi     +++|*CALL,COMPSTA
02083  M00S02015.1mi     +++|*CALL,COMPUPP
02084  M00S02016.1mi     +++|*CALL,COMPWBB
02085  M00S02017.1mi     +++| HST      TITLE  FUNCTION REQUEST AND BUFFER STORAGE.
02086  M00S02018.1mi     +++|**        PREVIOUS PP RECALL PARAMETER WORD.
02087  M00S02019.1mi     +++|*         IF *1MI* IS STARTED FROM THE RECALL STACK, THIS WORD WILL
02088  M00S02020.1mi     +++|*         CONTAIN INFORMATION SAVED BY THE PREVIOUS COPY OF *1MI*
02089  M00S02021.1mi     +++|*         IN THE FOLLOWING FORMAT -
02090  M00S02022.1mi     +++|*
02091  M00S02023.1mi     +++|*         1/S, 5/, 6/CP, 6/RC, 18/, 12/FP, 1/A, 1/, 4/IF, 3/, 3/RT
02092  M00S02024.1mi     +++|*
02093  M00S02025.1mi     +++|*         S      SET BY *CPUMTR* TO SHOW *1MI* STARTED FROM RECALL.
02094  M00S02026.1mi     +++|*         CP     UNUSED  (WARNING - SOMETIMES SET BY *CPUMTR*).
02095  M00S02027.1mi     +++|*         RC     REASON CODE WHY *1MI* ENTERED RECALL.
02096  M00S02028.1mi     +++|*         FP     FIRST POT IN CHAIN PRIOR TO RECALL.
02097  M00S02029.1mi     +++|*         A      SET IF MONITOR FUNCTION REJECTED BECAUSE IAF ABORTED.
02098  M00S02030.1mi     +++|*         IF     *CIO* INTERNAL FUNCTION CODE (SEE *COMSCIO*).
02099  M00S02031.1mi     +++|*         RT     MONITOR FUNCTION REJECTION COUNT.
02100  M00S02032.1mi     +++|
02101  M00S02033.1mi     +++|
02102  M00S02034.1mi     +++| RCRF     CON    0,0,0,0,0
02103  M00S02035.1mi     +++|
02104  M00S02036.1mi     +++|
02105  M00S02037.1mi     +++|
02106  M00S02038.1mi     +++|**        NEW PP RECALL PARAMETER WORD.
02107  M00S02039.1mi     +++|*         USED IF *1MI* MUST ENTER RECALL.  IT HAS THE SAME FORMAT AS
02108  M00S02040.1mi     +++|*         THE PREVIOUS PP RECALL PARAMETER WORD.
02109  M00S02041.1mi     +++|
02110  M00S02042.1mi     +++|
02111  M00S02043.1mi     +++| RCPW     CON    0,0,0,0,0
02112  M00S02044.1mi     +++| HST      SPACE  4,10
02113  M00S02045.1mi     +++|**        TIAF - TABLE OF *TSEM* FUNCTION REQUEST DEFINITIONS.
02114  M00S02046.1mi     +++|*
02115  M00S02047.1mi     +++|*         ENTRY  FIVE WORDS.  CONTENTS VARY PER *TSEM* REQUEST.
02116  M00S02048.1mi     +++|*
02117  M00S02049.1mi     +++|*         WADO   - ASSIGN DIRECT OUTPUT TO IAF.
02118  M00S02050.1mi     +++|*
02119  M00S02051.1mi     +++|*T        12//REM/VADO, 6/0, 6/PC, 12/LP, 12/FP, 12/TN

Figure

02120  M00S02052.1mi     +++|*
02121  M00S02053.1mi     +++|*         WADI   - ASSIGN DIRECT INPUT FROM IAF.
02122  M00S02054.1mi     +++|*
02123  M00S02055.1mi     +++|*T,       12//REM/VADI, 36/0, 12/TN

Figure

02124  M00S02056.1mi     +++|*
02125  M00S02057.1mi     +++|*         WDPO   - IAF DROP POT MEMORY REQUEST.
02126  M00S02058.1mi     +++|*
02127  M00S02059.1mi     +++|*T,       12//REM/VDPO, 12/0, 12/LP, 12/FP, 12/TN

Figure

02128  M00S02060.1mi     +++|*
02129  M00S02061.1mi     +++|*         PC  = POT MEMORY CHAIN COUNT PER CURRENT REQUEST.
02130  M00S02062.1mi     +++|*         FP  = FIRST POT MEMORY POINTER PER CURRENT REQUEST.
02131  M00S02063.1mi     +++|*         LP  = LAST POT MEMORY POINTER PER CURRENT REQUEST.
02132  M00S02064.1mi     +++|*         TN  = TERMINAL CONNECTION NUMBER.
02133  M00S02065.1mi     +++|
02134  M00S02066.1mi     +++|
02135  M00S02067.1mi     +++| TIAF     BSS    0
02136  M00S02068.1mi     +++|
02137  M00S02069.1mi     +++| WADO     BSS    0           ASSIGN DIRECT OUTPUT
02138  M00S02070.1mi     +++| WADI     BSS    0           ASSIGN DIRECT INPUT
02139  M00S02071.1mi     +++| WDPO     BSS    0           DROP POT MEMORY REQUEST
02140  M00S02072.1mi     +++| WIAF     CON    0,0,0,0,0   *TSEM* FUNCTION REQUEST PARMAETERS
02141  M00S02073.1mi     +++|
02142  M00S02074.1mi     +++|
02143  M00S02075.1mi     +++|
02144  M00S02076.1mi     +++|
02145  M00S02077.1mi     +++|*         DATA TRANSFER BUFFER OVERLAYS PRESET.
02146  M00S02078.1mi     +++|
02147  M00S02079.1mi     +++|
02148  M00S02080.1mi     +++|          USE    BUFFERS
02149  M00S02081.1mi     +++|
02150  M00S02082.1mi     +++|
02151  M00S02083.1mi     +++|
02152  M00S02084.1mi     +++| BUFF     EQU    *
02153  M00S02085.1mi     +++|
02154  M00S02086.1mi     +++| BUFFL    EQU    /REM/VCPC*2*5
02155  M00S02087.1mi     +++|          ERRNG  100000-BUFF-BUFFL
02156  M00S02088.1mi     +++|
02157  M00S02089.1mi     +++|
02158  M00S02090.1mi     +++|
02159  M00S02091.1mi     +++|
02160  M00S02092.1mi     +++|
02161  M00S02093.1mi     +++| PRS      TITLE  *1MI* INITIALIZATION.
02162  M00S02094.1mi     +++|**        PRS - PRESET *1MI*.
02163  M00S02095.1mi     +++|*
02164  M00S02096.1mi     +++|*         ENTRY  (IR - IR+4)   = *1MI* CALL.
02165  M00S02097.1mi     +++|*                (MB - MB+4)   = *1MI* MESSAGE BUFFER PARAMETERS (*PPR*)
02166  M00S02098.1mi     +++|*                (MB1 - MB1+4) = MESSAGE BUFFER + 1 PARAMETERS.
02167  M00S02099.1mi     +++|*                (MB2 - MB2+4) = MESSAGE BUFFER + 2 PARAMETERS.
02168  M00S02100.1mi     +++|*
02169  M00S02101.1mi     +++|*         EXIT   (FC)          = INTERNAL *CIO* FUNCTION CODE.
02170  M00S02102.1mi     +++|*                (BS - BS+4)   = BUFFER STATUS = (FET+0)
02171  M00S02103.1mi     +++|*                (FT - FT+1)   = BUFFER FIRST WORD ADDRESS.
02172  M00S02104.1mi     +++|*                (IN - IN+1)   = BUFFER IN POINTER.
02173  M00S02105.1mi     +++|*                (OT - OT+1)   = BUFFER OUT POINTER.
02174  M00S02106.1mi     +++|*                (LM - LM+1)   = BUFFER LAST WORD ADDRESS.
02175  M00S02107.1mi     +++|*                (TT - TT+1)   = TERMINAL TABLE ADDRESS.
02176  M00S02108.1mi     +++|*                (RCRF - RCRF+4) = PARAMETER WORD FROM PREVIOUS IAF.
02177  M00S02109.1mi     +++|*                TO *DPP* IF USER BREAK PROCESS WITH EXTENDED REPRIEVE.
02178  M00S02110.1mi     +++|*                TO *ERS* IF IAF INACCESSIBLE TO ALLOW USER RECOVERY.
02179  M00S02111.1mi     +++|*
02180  M00S02112.1mi     +++|*         USES   CM - CM+4, CN - CN+4, FT-1 - FT+3, IN-1 - IN+3,
02181  M00S02113.1mi     +++|*                BS - BS+4, FC, NF, TN, T0.
02182  M00S02114.1mi     +++|*
02183  M00S02115.1mi     +++|*         CALLS  CFN, CJA, CTT, ITA, REC, ROJ, STA.
02184  M00S02116.1mi     +++|*
02185  M00S02117.1mi     +++|*         MACROS CFET, ERROR, SFA.
02186  M00S02118.1mi     +++|
02187  M00S02119.1mi     +++|
02188  M00S02120.1mi     +++| PRS      SUBR               ENTRY/EXIT
02189  M00S02121.1mi     +++|
02190  M00S02122.1mi     +++|*         MOVE PP RECALL PARAMETER WORDS TO LOCATIONS WHICH ARE NOT
02191  M00S02123.1mi     +++|*         DESTROYED BY COMMON DECKS.
02192  M00S02124.1mi     +++|
02193  M00S02125.1mi     +++|          LDD    MA          RESET FET PARAMETERS IN MESSAGE BUFFER
02194  M00S02126.1mi     +++|          CWD    MB
02195  M00S02127.1mi     +++|          ADN    1           PRESET BUFFER POINTERS
02196  M00S02128.1mi     +++|          CWD    MB1
02197  M00S02129.1mi     +++|          CRD    IN-1        *IN* AND *OUT*
02198  M00S02130.1mi     +++|          ADN    1
02199  M00S02131.1mi     +++|          CWD    MB2
02200  M00S02132.1mi     +++|          CRD    FT-1        *FIRST* AND *LIMIT*
02201  M00S02133.1mi     +++|          LDD    MB+4        INTERNAL *CIO* FUNCTION CODE
02202  M00S02134.1mi     +++|          LPC    1700
02203  M00S02135.1mi     +++|          STM    RCPW+4      SAVE IN CASE *1MI* GOES INTO RECALL
02204  M00S02136.1mi     +++|          SHN    -6
02205  M00S02137.1mi     +++|          STD    FC
02206  M00S02138.1mi     +++|          CFET               READ FET+0
02207  M00S02139.1mi     +++|          CRD    BS
02208  M00S02140.1mi     +++|          LDD    MB
02209  M00S02141.1mi     +++|          SHN    21-13
02210  M00S02142.1mi     +++|          PJN    PRS1        IF INITIAL *1MI* CALL
02211  M00S02143.1mi     +++|          LDD    MA
02212  M00S02144.1mi     +++|          CRM    RCRF,ON     READ IN PREVIOUS RECALL PARAMETER WORD
02213  M00S02145.1mi     +++|          RJM    REC         RECOVER *TSEM* REJECT
02214  M00S02146.1mi     +++| PRS1     RJM    CTT         CHECK TERMINAL I/O INTERLOCK
02215  M00S02147.1mi     +++|          LDD    CP
02216  M00S02148.1mi     +++|          ADK    TFSW
02217  M00S02149.1mi     +++|          CRD    CM
02218  M00S02150.1mi     +++|          LDD    CM
02219  M00S02151.1mi     +++|          ZJN    PRS2        IF NO EJT ORDINAL
02220  M00S02152.1mi     +++|          SFA    EJT
02221  M00S02153.1mi     +++|          ADK    JSNE        CHECK JOB CONNECTION STATUS
02222  M00S02154.1mi     +++|          CRD    CM
02223  M00S02155.1mi     +++|          LDD    CM+4
02224  M00S02156.1mi     +++|          SHN    -7
02225  M00S02157.1mi     +++|          LPN    17
02226  M00S02158.1mi     +++|          STM    PRSA
02227  M00S02159.1mi     +++|          LMK    NICS
02228  M00S02160.1mi     +++|          ZJN    PRS2        IF NON-INTERACTIVE
02229  M00S02161.1mi     +++|          RJM    CEF
02230  M00S02162.1mi     +++|          ZJN    PRS6        IF NO ERROR FLAG ON JOB
02231  M00S02163.1mi     +++|          LDD    FC          *1MI* FUNCTION CODE
02232  M00S02164.1mi     +++|          LMK    /CIO/WTF

Seq #  *Modification Id* Act 
----------------------------+
02233  M01S02165.1mi5    ---|          ZJN    PRS2        IF ERROR FLAG ON WRITE FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
02234  M01S00001.1mi5    +++|          ZJN    PRS6        IF A WRITE FUNCTION
02235  M00S02166.1mi     +++|          LDD    CM+2
02236  M00S02167.1mi     +++|          NJN    PRS3        IF USER BREAK AND EXTENDED REPRIEVE
02237  M00S02168.1mi     +++|          LDD    BS+4        SET EOR STATUS
02238  M00S02169.1mi     +++|          LPC    6002
02239  M00S02170.1mi     +++|          LMN    20
02240  M00S02171.1mi     +++|          STD    BS+4
02241  M00S02172.1mi     +++| PRS2     RJM    CFN         COMPLETE FUNCTION
02242  M00S02173.1mi     +++| PRS3     LJM    DPP         DROP PP
02243  M00S02174.1mi     +++|
02244  M00S02175.1mi     +++| PRS6     RJM    ITA
02245  M00S02176.1mi     +++|          ZJN    PRS7        IF IAF NOT AVAILABLE
02246  M00S02177.1mi     +++|          LDC    0           CHECK CONNECTION STATUS
02247  M00S02178.1mi     +++| PRSA     EQU    *-1
02248  M00S02179.1mi     +++|          LMK    DTCS
02249  M00S02180.1mi     +++|          NJN    PRS9        IF NOT DETACHED
02250  M00S02181.1mi     +++|
02251  M00S02182.1mi     +++|*         A DETACHED JOB IS EITHER SUSPENDED OR TERMINATED BASED ON ITS
02252  M00S02183.1mi     +++|*         END-OF-JOB OPTIONS.
02253  M00S02184.1mi     +++|
02254  M00S02185.1mi     +++|          LDD    CP          CHECK END-OF-JOB TERMINATION OPTIONS
02255  M00S02186.1mi     +++|          ADN    EOJW
02256  M00S02187.1mi     +++|          CRD    CM
02257  M00S02188.1mi     +++|          LDD    CM
02258  M00S02189.1mi     +++|          SHN    0-11        ISOLATE JOB TERMINATION OPTION
02259  M00S02190.1mi     +++|          LMN    SUJT
02260  M00S02191.1mi     +++|          ZJN    PRS7        IF DETACHED JOB IS TO BE SUSPENDED
02261  M00S02192.1mi     +++|          ERROR  IRQ         *INCORRECT I/O REQUEST ON FILE*
02262  M00S02193.1mi     +++|
02263  M00S02194.1mi     +++| PRS7     LDK    IAFF
02264  M00S02195.1mi     +++|          RAM    RCPW+4
02265  M00S02196.1mi     +++|          LDK    ROSU        SUSPEND USER JOB
02266  M00S02197.1mi     +++| PRS8     STD    T0
02267  M00S02198.1mi     +++|          RJM    ROJ         ROLL USER JOB
02268  M00S02199.1mi     +++|          LDK    TALR        TERMINAL I/O BUSY RECALL CODE
02269  M00S02200.1mi     +++|          LJM    ERS         ENTER RECALL STACK
02270  M00S02201.1mi     +++|
02271  M00S02202.1mi     +++|*         CONTINUE PROCESS FOR ONLINE CONNECTIONS ONLY.
02272  M00S02203.1mi     +++|
02273  M00S02204.1mi     +++| PRS9     LDD    CP
02274  M00S02205.1mi     +++|          ADN    TTNW        TERMINAL TABLE POINTER
02275  M00S02206.1mi     +++|          CRD    CM
02276  M00S02207.1mi     +++|          LDD    CM+1
02277  M00S02208.1mi     +++|          STD    TN

Seq #  *Modification Id* Act 
----------------------------+
02278  M01S00060.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
02279  M00S02209.1mi     +++|          RJM    STA         SET TERMINAL TABLE ADDRESS (TT - TT+1)
02280  M00S02210.1mi     +++|
02281  M00S02211.1mi     +++|*         ROLL A USER OUT DURING LOGIN PROCESSING AND DURING DETACH
02282  M00S02212.1mi     +++|*         PROCESSING IF THE TERMINAL TABLE IS NOT COMPLETELY SET UP.
02283  M00S02213.1mi     +++|*         THIS AVOIDS *VADO* AND *VADI* *TSEM* REQUESTS BEING SENT TO
02284  M00S02214.1mi     +++|*         *IAF* BEFORE THE USER IS COMPLETELY LOGGED IN.
02285  M00S02215.1mi     +++|
02286  M00S02216.1mi     +++|          ADK    /REM/VDCT   CHECK IF USER FINISHED LOGGING IN
02287  M00S02217.1mi     +++|          CRD    CM
02288  M00S02218.1mi     +++|          ADK    /REM/VSTT-/REM/VDCT
02289  M00S02219.1mi     +++|          CRD    CN          READ *VSTT*

Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00061.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
02291  M00S02220.1mi     +++|          LDD    CM
02292  M00S02221.1mi     +++|          SHN    21-11
02293  M00S02222.1mi     +++|          PJN    PRS9.1      IF USER NOT COMPLETELY LOGGED IN
02294  M00S02223.1mi     +++|          LDD    CN          CHECK FOR DETACH IN PROGRESS
02295  M00S02224.1mi     +++|          SHN    21-10
02296  M00S02225.1mi     +++|          PJN    PRS10       IF DETACH NOT IN PROGRESS
02297  M00S02226.1mi     +++| PRS9.1   LDK    ROSR
02298  M00S02227.1mi     +++|          UJP    PRS8        ROLLOUT USER JOB UNTIL COMPLETE RECOVERY
02299  M00S02228.1mi     +++|
02300  M00S02229.1mi     +++| PRS10    LDD    CP          GET NEGATIVE FIELD LENGTH
02301  M00S02230.1mi     +++|          ADN    FLSW
02302  M00S02231.1mi     +++|          CRD    CM
02303  M00S02232.1mi     +++|          LDD    CM
02304  M00S02233.1mi     +++|          STD    NF          NFL/100B
02305  M00S02234.1mi     +++|          UJP    PRSX        RETURN
02306  M00S02235.1mi     +++| CTT      SPACE  4,10
02307  M00S02236.1mi     +++|**        CTT - CHECK TIOW/TINW BUSY.
02308  M00S02237.1mi     +++|*
02309  M00S02238.1mi     +++|*         *CTT* CHECKS THE *TINW/TIOW* INTERLOCK FLAG FROM *CPUMTR* TO
02310  M00S02239.1mi     +++|*         DETERMINE WHETHER OR NOT THIS COPY OF *1MI* HAS THE TERMINAL
02311  M00S02240.1mi     +++|*         I/O INTERLOCK.  IF NOT, *CTT* ATTEMPTS TO GET THE INTERLOCK
02312  M00S02241.1mi     +++|*         VIA A *UTEM* FUNCTION.  IF UNSUCCESSFUL, *1MI* MUST GO INTO
02313  M00S02242.1mi     +++|*         RECALL AND TRY TO OBTAIN THE INTERLOCK AT A LATER TIME.
02314  M00S02243.1mi     +++|*
02315  M00S02244.1mi     +++|*         ENTRY  (IR+2) = TIOW/TINW BUSY FLAG FROM *CPUMTR*.
02316  M00S02245.1mi     +++|*
02317  M00S02246.1mi     +++|*         EXIT   IF RECALL NECESSARY, TO *ERS*.
02318  M00S02247.1mi     +++|*
02319  M00S02248.1mi     +++|*         USES   CM - CM+4, IR+2.
02320  M00S02249.1mi     +++|*
02321  M00S02250.1mi     +++|*         MACROS MONITOR.
02322  M00S02251.1mi     +++|
02323  M00S02252.1mi     +++|
02324  M00S02253.1mi     +++| CTT4     LDD    IR+2        CLEAR FLAG FROM INPUT REGISTER
02325  M00S02254.1mi     +++|          LMK    TTB
02326  M00S02255.1mi     +++|          STD    IR+2
02327  M00S02256.1mi     +++|          LDD    IA          REWRITE INPUT REGISTER
02328  M00S02257.1mi     +++|          CWD    IR
02329  M00S02258.1mi     +++|
02330  M00S02259.1mi     +++| CTT      SUBR               ENTRY/EXIT
02331  M00S02260.1mi     +++|          LDD    IR+2        CHECK FLAG FROM *CPUMTR*
02332  M00S02261.1mi     +++|          LPK    TTB
02333  M00S02262.1mi     +++|          ZJN    CTTX        IF TIOW/TINW GOES WITH THIS PP
02334  M00S02263.1mi     +++|          LDK    ZERL        TEST AND SET TIOW/TINW
02335  M00S02264.1mi     +++|          CRD    CM
02336  M00S02265.1mi     +++|          LDD    CP          SET WORD ADDRESS
02337  M00S02266.1mi     +++|          ADK    TIOW
02338  M00S02267.1mi     +++|          STD    CM+4
02339  M00S02268.1mi     +++|          ERRNG  TINW-TIOW   CODE DEPENDS ON ORDER OF WORDS
02340  M00S02269.1mi     +++|          LDN    3           TEST TWO FIELDS, SET ONE
02341  M00S02270.1mi     +++|          STD    CM+1
02342  M00S02271.1mi     +++|          LDD    FC
02343  M00S02272.1mi     +++|          LMK    /CIO/WTF
02344  M00S02273.1mi     +++|          ZJN    CTT1        IF WRITE FUNCTION
02345  M00S02274.1mi     +++|          LDC    18D*100B    SET TINW ADDRESS OFFSET AND FIELD
02346  M00S02275.1mi     +++|          RAM    CTTB+1
02347  M00S02276.1mi     +++|          LDK    TINW-TIOW   SET TINW FIELD
02348  M00S02277.1mi     +++|          SHN    6
02349  M00S02278.1mi     +++|          RAM    CTTB
02350  M00S02279.1mi     +++| CTT1     LDD    IR+4        MOVE FET ADDRESS
02351  M00S02280.1mi     +++|          STM    CTTB+4
02352  M00S02281.1mi     +++|          LDD    IR+3
02353  M00S02282.1mi     +++|          LPN    77
02354  M00S02283.1mi     +++|          STM    CTTB+3
02355  M00S02284.1mi     +++|          LDD    MA
02356  M00S02285.1mi     +++|          CWM    CTTA,TR
02357  M00S02286.1mi     +++|          MONITOR  UTEM
02358  M00S02287.1mi     +++|          LDD    CM+1
02359  M00S02288.1mi     +++|          ZJP    CTT4        IF TEST AND SET SUCCESSFUL
02360  M00S02289.1mi     +++|          RJM    CEF
02361  M00S02290.1mi     +++|          LDD    CM+2
02362  M00S02291.1mi     +++|          NJN    CTT2        IF USER BREAK WITH EXTENDED REPRIEVE
02363  M00S02292.1mi     +++|
02364  M00S02293.1mi     +++|*         ENTER RECALL WITH TIOW/TINW BUSY FLAG STILL SET IN THE INPUT
02365  M00S02294.1mi     +++|*         REGISTER, SO THAT WHEN *1MI* IS RESTARTED IT WILL
02366  M00S02295.1mi     +++|*         AGAIN ATTEMPT TO GET THE *TIOW/TINW* INTERLOCK.
02367  M00S02296.1mi     +++|
02368  M00S02297.1mi     +++|          LDK    TALR
02369  M00S02298.1mi     +++|          LJM    ERS         ENTER RECALL STACK
02370  M00S02299.1mi     +++|
02371  M00S02300.1mi     +++|*         IF BOTH A USER BREAK ERROR FLAG IS PRESENT AND EXTENDED
02372  M00S02301.1mi     +++|*         REPRIEVE HAS BEEN SELECTED BY THE JOB, *1MI* CANNOT WAIT
02373  M00S02302.1mi     +++|*         FOR THE TERMINAL I/O INTERLOCK TO BECOME AVAILABLE.  THIS IS
02374  M00S02303.1mi     +++|*         BECAUSE THE PP WITH THE INTERLOCK MAY BE A READ REQUEST, IN
02375  M00S02304.1mi     +++|*         WHICH CASE IT WILL DROP WITHOUT CLEARING *TINW*.
02376  M00S02305.1mi     +++|*         IF A WRITE REQUEST, *1MI* WILL COMPLETE THE FET AND DROP.
02377  M00S02306.1mi     +++|*         IF A READ REQUEST, *1MI* WILL ATTEMPT TO SET *TINW* BEFORE
02378  M00S02307.1mi     +++|*         DROPPING SO THAT *1AJ* KNOWS THAT AN INPUT REQUEST IS
02379  M00S02308.1mi     +++|*         OUTSTANDING.
02380  M00S02309.1mi     +++|
02381  M00S02310.1mi     +++| CTT2     LDD    FC
02382  M00S02311.1mi     +++|          LMK    /CIO/WTF
02383  M00S02312.1mi     +++|          ZJN    CTT3        IF WRITE FUNCTION
02384  M00S02313.1mi     +++|          LDK    ZERL
02385  M00S02314.1mi     +++|          CRD    CM
02386  M00S02315.1mi     +++|          LDD    CP
02387  M00S02316.1mi     +++|          ADK    TIOW
02388  M00S02317.1mi     +++|          STD    CM+4
02389  M00S02318.1mi     +++|          LDN    2
02390  M00S02319.1mi     +++|          STD    CM+1
02391  M00S02320.1mi     +++|          LDD    MA
02392  M00S02321.1mi     +++|          CWM    CTTA+5,CM+1
02393  M00S02322.1mi     +++|          MONITOR  UTEM
02394  M00S02323.1mi     +++|          LJM    DPP         DROP PP
02395  M00S02324.1mi     +++|
02396  M00S02325.1mi     +++| CTT3     LDD    BS+4        COMPLETE FET
02397  M00S02326.1mi     +++|          SCN    1
02398  M00S02327.1mi     +++|          LMN    1
02399  M00S02328.1mi     +++|          STD    BS+4
02400  M00S02329.1mi     +++|          CFET               REWRITE FIRST WORD OF FET
02401  M00S02330.1mi     +++|          CWD    BS
02402  M00S02331.1mi     +++|          LJM    DPP         DROP PP
02403  M00S02332.1mi     +++|
02404  M00S02333.1mi     +++|
02405  M00S02334.1mi     +++| CTTA     VFD    1/1,5/0,6/18D,6/0,42/0  VERIFY 0 CLEAR
02406  M00S02335.1mi     +++|          VFD    1/1,5/TINW-TIOW,6/18D,6/18D,42/0  VERIFY TINW CLEAR
02407  M00S02336.1mi     +++| CTTB     VFD    1/0,5/0,6/18D,6/0,42/0  SET NEW FET ADDRESS
02408  M00S02337.1mi     +++| REC      SPACE  4,10
02409  M00S02338.1mi     +++|**        REC - RECOVER FROM MONITOR REJECTION.
02410  M00S02339.1mi     +++|*
02411  M00S02340.1mi     +++|*         ENTRY  (RCRF+1) = RECALL REASON CODE.
02412  M00S02341.1mi     +++|*                (RCRF+3) = FIRST POT CHAIN POINTER.
02413  M00S02342.1mi     +++|*                (FC)    = INITIAL *1MI* FUNCTION CODE.
02414  M00S02343.1mi     +++|*
02415  M00S02344.1mi     +++|*         EXIT   TO *DPP* IF *TINW/TIOW* INTERLOCK NO LONGER HELD.
02416  M00S02345.1mi     +++|*                ANY POTS FROM A PREVIOUSLY REJECTED MONITOR FUNCTION
02417  M00S02346.1mi     +++|*                ARE DROPPED.
02418  M00S02347.1mi     +++|*
02419  M00S02348.1mi     +++|*         USES   CM - CM+4, CN - CN+4.
02420  M00S02349.1mi     +++|*
02421  M00S02350.1mi     +++|*         CALLS  MRJ.
02422  M00S02351.1mi     +++|*
02423  M00S02352.1mi     +++|*         MACROS MONITOR.
02424  M00S02353.1mi     +++|
02425  M00S02354.1mi     +++|
02426  M00S02355.1mi     +++| REC      SUBR               ENTRY/EXIT
02427  M00S02356.1mi     +++|          LDM    RCRF+1      GET REJECTED FUNCTION
02428  M00S02357.1mi     +++|          SHN    -6
02429  M00S02358.1mi     +++|          LMK    TDOR
02430  M00S02359.1mi     +++|          ZJN    REC2        IF *VADO* REJECTION
02431  M00S02360.1mi     +++|          LMK    TPOR&TDOR
02432  M00S02361.1mi     +++|          NJP    RECX        IF NOT *VDPO* REJECTION
02433  M00S02362.1mi     +++|          AOM    RECA
02434  M00S02363.1mi     +++|
02435  M00S02364.1mi     +++|*         DROP PREVIOUS FUNCTION-S POTS UNLESS THE FUNCTION WAS
02436  M00S02365.1mi     +++|*         REJECTED BECAUSE IAF WAS NOT AVAILABLE.
02437  M00S02366.1mi     +++|
02438  M00S02367.1mi     +++| REC2     LDM    RCRF+4
02439  M00S02368.1mi     +++|          LPK    IAFF
02440  M00S02369.1mi     +++|          NJN    REC3        IF NEW COPY OF IAF
02441  M00S02370.1mi     +++|          LDK    ZERL        BUILD *VDPO* *TSEM* REQUEST
02442  M00S02371.1mi     +++|          CRD    CN
02443  M00S02372.1mi     +++|          LDK    /REM/VDPO
02444  M00S02373.1mi     +++|          STD    CN
02445  M00S02374.1mi     +++|          LDM    RCRF+3      SET POT NUMBER OF FIRST POT IN CHAIN
02446  M00S02375.1mi     +++|          STD    CN+3
02447  M00S02376.1mi     +++|          LDD    CP          SET TERMINAL NUMBER
02448  M00S02377.1mi     +++|          ADK    TTNW
02449  M00S02378.1mi     +++|          CRD    CM
02450  M00S02379.1mi     +++|          LDD    CM+1
02451  M00S02380.1mi     +++|          STD    CN+4
02452  M00S02381.1mi     +++|          LDN    ZERL
02453  M00S02382.1mi     +++|          CRD    CM
02454  M00S02383.1mi     +++|          LDD    MA
02455  M00S02384.1mi     +++|          CWD    CN          REWRITE REJECTED REQUEST
02456  M00S02385.1mi     +++|          CRM    WIAF,ON     PRESET POSSIBLE FUNCTION REJECTION
02457  M00S02386.1mi     +++|          MONITOR TSEM
02458  M00S02387.1mi     +++|          LDM    RCRF+1
02459  M00S02388.1mi     +++|          SHN    -6
02460  M00S02389.1mi     +++|          RJM    MRJ
02461  M00S02390.1mi     +++| REC3     LDN    0
02462  M00S02391.1mi     +++|*         LDN    1
02463  M00S02392.1mi     +++| RECA     EQU    *-1
02464  M00S02393.1mi     +++|          ZJP    RECX        IF INTERLOCK STILL HELD
02465  M00S02394.1mi     +++|          LJM    DPP         DROP PP
02466  M00S02395.1mi     +++|
02467  M00S02396.1mi     +++|
02468  M00S02397.1mi     +++|
02469  M00S02398.1mi     +++|**        COMMON DECKS NECESSARY FOR PRESET.
02470  M00S02399.1mi     +++|
02471  M00S02400.1mi     +++|*CALL,COMPGFP
02472  M00S02401.1mi     +++|
02473  M00S02402.1mi     +++|
02474  M00S02403.1mi     +++|
02475  M00S02404.1mi     +++|
02476  M00S02405.1mi     +++|
02477  M00S02406.1mi     +++|          ERRNG  7777-*+1    AVOID PPU MEMORY WRAP
02478  M00S02407.1mi     +++|          END