cdc:nos2.source:opl.opl871:deck:1mi.001
Deck 1MI Part 001
4 Modifications
Listing Sections
- Deck 1MI Start
- Deck 1MI Part 1 (Line 1825)
Source
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
| Line S01964 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02027 M01S01964.271l716 ---| LDN ZERL 02028 M01S01965.271l716 ---| CRD CM 02029 M00S01966.1mi +++| LDN 3 VALIDATE ALL FET PARAMETERS
| Line S01967 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02030 M01S01967.271l716 ---| STD CM+4
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02031 M01S00006.271l716 +++| STD CM+1 02032 M00S01968.1mi +++| LDD IR+3 FET ADDRESS 02033 M00S01969.1mi +++| LPN 77
| Line S01970 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02034 M01S01970.271l716 ---| STD CM+1
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02035 M01S00007.271l716 +++| STD CM+3 02036 M00S01971.1mi +++| LDD IR+4
| Line S01972 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02037 M01S01972.271l716 ---| STD CM+2
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2748 |
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
| Line S02165 Modification History | |
|---|---|
M01 (Removed by) | 1mi5 |
Seq # *Modification Id* Act ----------------------------+ 02233 M01S02165.1mi5 ---| ZJN PRS2 IF ERROR FLAG ON WRITE FUNCTION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1mi5 |
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
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2748 |
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*
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2748 |
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
cdc/nos2.source/opl.opl871/deck/1mi.001.txt · Last modified: by 127.0.0.1