cdc:nos2.source:opl.opl871:deck:tfm.001
Deck TFM Part 001
23 Modifications
Listing Sections
- Deck TFM Start
- Deck TFM Part 1 (Line 1886)
- Deck TFM Part 2 (Line 3675)
- Deck TFM Part 3 (Line 5157)
- Deck TFM Part 4 (Line 6921)
- Deck TFM Part 5 (Line 8637)
- Deck TFM Part 6 (Line 10236)
- Deck TFM Part 7 (Line 11922)
Source
Seq # *Modification Id* Act ----------------------------+ 01886 M00S01749.tfm +++| SHN 21-2 01887 M00S01750.tfm +++| PJN RSX2 IF NO SSJ= ENTRY POINT 01888 M00S01751.tfm +++| LDA IR+3,REL SET SUBFUNCTION CODE 01889 M00S01752.tfm +++| CRD S1 01890 M00S01753.tfm +++| LDD S1+4 01891 M00S01754.tfm +++| SHN -3 01892 M00S01755.tfm +++| LPN 77
| Line S01756 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01893 M01S01756.nos252 ---| ZJN RSX2 IF ILLEGAL FUNCTION
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01894 M01S00021.nos252 +++| ZJN RSX2 IF INCORRECT FUNCTION 01895 M00S01757.tfm +++| SBN 1 01896 M00S01758.tfm +++| MULT4 MULTIPLY (FUNCTION-1)*4 01897 M00S01759.tfm +++| ADC -RSXAL 01898 M00S01760.tfm +++| MJN RSX3 IF LEGAL FUNCTION
| Line S01761 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01899 M01S01761.nos252 ---| RSX2 ERROR ILR *TFM INVALID REQUEST.*
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01900 M01S00022.nos252 +++| RSX2 ERROR ILR *TFM INCORRECT REQUEST.* 01901 M00S01762.tfm +++| 01902 M00S01763.tfm +++| RSX3 LDM RSXA,T1 SET OVERLAY NAME 01903 M00S01764.tfm +++| LPN 77 01904 M00S01765.tfm +++| STM TFMA 01905 M00S01766.tfm +++| LDM RSXA+1,T1 SET PROCESSOR ADDRESS 01906 M00S01767.tfm +++| ZJN RSX2 IF NOT DEFINED 01907 M00S01768.tfm +++| STM TFMB 01908 M00S01769.tfm +++| LDM RSXA+2,T1 SET FILE ACCESS MODE 01909 M00S01770.tfm +++| STM TFMC 01910 M00S01771.tfm +++| LDM RSXA+3,T1 01911 M00S01772.tfm +++| RJM CFS CHECK FET STATUS 01912 M00S01773.tfm +++| RJM BPB BUILD PARAMETER BLOCK 01913 M00S01774.tfm +++| LDM BPBA ADDRESS OF USERNAME 01914 M00S01775.tfm +++| STD T0 01915 M00S01776.tfm +++| LDI T0 01916 M00S01777.tfm +++| ZJN RSX4 IF NO USERNAME 01917 M00S01778.tfm +++| RJM SUL SET UDT ADDRESS FROM LOCAL FILE 01918 M00S01779.tfm +++| LJM RSXX RETURN 01919 M00S01780.tfm +++| 01920 M00S01781.tfm +++| RSX4 ERROR TPI *TMS PROCESSING INHIBITED.* 01921 M00S01782.tfm +++| 01922 M00S01783.tfm +++| RSXA FCN BEGIN 01923 M00S01784.tfm +++| FCN RFAS,RFA,/PFM/PTWR,4020 FIRST-REEL ASSIGNMENT 01924 M00S01785.tfm +++| FCN RAPS,RAP,/PFM/PTWR,4020 ABORT PROCESSING 01925 M00S01786.tfm +++| FCN MFAS,MFA,/PFM/PTWR,4020 MULTI-FILE SET ASSIGNMENT 01926 M00S01787.tfm +++| RSXA FCN END 01927 M00S01788.tfm +++| SSJF SPACE 4,10 01928 M00S01789.tfm +++|*** SSJF - SSJ= REQUEST FUNCTION. 01929 M00S01790.tfm +++|* 01930 M00S01791.tfm +++|* THIS FUNCTION IS CALLED ONLY BY *TFSP*, THE 01931 M00S01792.tfm +++|* TMS TAPE FILE SUPERVISOR. IT MUST BE CALLED 01932 M00S01793.tfm +++|* WITH AUTO-RECALL SET BY A JOB WITH A SSJ= 01933 M00S01794.tfm +++|* ENTRY POINT. 01934 M00S01795.tfm +++|* 01935 M00S01796.tfm +++|* ENTRY (FC) = SSJF. 01936 M00S01797.tfm +++|* (IR+3 - IR+4) = FET ADDRESS. 01937 M00S01798.tfm +++|* 01938 M00S01799.tfm +++|* EXIT (TFMA) = OVERLAY NAME. 01939 M00S01800.tfm +++|* (TFMB) = PROCESSOR ADDRESS. 01940 M00S01801.tfm +++|* (TFMC) = CATALOG ACCESS MODE. 01941 M00S01802.tfm +++|* 01942 M00S01803.tfm +++|* USES CM - CM+4, S1 - S1+4, T1. 01943 M00S01804.tfm +++|* 01944 M00S01805.tfm +++|* CALLS BPB, CFS, CRS. 01945 M00S01806.tfm +++|* 01946 M00S01807.tfm +++|* MACROS ERROR, FCN, LDA, MULT4. 01947 M00S01808.tfm +++| 01948 M00S01809.tfm +++| 01949 M00S01810.tfm +++| SSJ SUBR ENTRY/EXIT 01950 M00S01811.tfm +++| RJM CRS CHECK RECALL STATUS 01951 M00S01812.tfm +++| ZJN SSJ1 IF NOT CALLED WITH AUTO-RECALL 01952 M00S01813.tfm +++| LDD CP 01953 M00S01814.tfm +++| ADC SEPW 01954 M00S01815.tfm +++| CRD CM 01955 M00S01816.tfm +++| LDD CM CHECK FOR SSJ= ENTRY POINT 01956 M00S01817.tfm +++| SHN 21-2 01957 M00S01818.tfm +++| PJN SSJ1 IF NOT SSJ= JOB 01958 M00S01819.tfm +++| LDA IR+3,REL SET SUBFUNCTION CODE 01959 M00S01820.tfm +++| CRD S1 01960 M00S01821.tfm +++| LDD S1+4 01961 M00S01822.tfm +++| SHN -3 01962 M00S01823.tfm +++| LPN 77
| Line S01824 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01963 M01S01824.nos252 ---| ZJN SSJ1 IF ILLEGAL FUNCTION
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01964 M01S00023.nos252 +++| ZJN SSJ1 IF INCORRECT FUNCTION 01965 M00S01825.tfm +++| SBN 1 01966 M00S01826.tfm +++| MULT4 MULTIPLY (FUNCTION-1)*4 01967 M00S01827.tfm +++| ADC -SSJAL 01968 M00S01828.tfm +++| MJN SSJ2 IF LEGAL REQUEST CODE
| Line S01829 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01969 M01S01829.nos252 ---| SSJ1 ERROR ILR *TFM INVALID REQUEST.*
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01970 M01S00024.nos252 +++| SSJ1 ERROR ILR *TFM INCORRECT REQUEST.* 01971 M00S01830.tfm +++| 01972 M00S01831.tfm +++| SSJ2 LDM SSJA,T1 SET OVERLAY NAME 01973 M00S01832.tfm +++| LPN 77 01974 M00S01833.tfm +++| STM TFMA 01975 M00S01834.tfm +++| LDM SSJA+1,T1 SET PROCESSOR ADDRESS 01976 M00S01835.tfm +++| ZJN SSJ1 IF NOT DEFINED 01977 M00S01836.tfm +++| STM TFMB 01978 M00S01837.tfm +++| LDM SSJA+2,T1 SET FILE ACCESS MODE 01979 M00S01838.tfm +++| STM TFMC 01980 M00S01839.tfm +++| LDM SSJA+3,T1 01981 M00S01840.tfm +++| RJM CFS CHECK FET STATUS 01982 M00S01841.tfm +++| RJM BPB BUILD PARAMETER BLOCK 01983 M00S01842.tfm +++| LJM SSJX RETURN 01984 M00S01843.tfm +++| 01985 M00S01844.tfm +++| SSJA FCN BEGIN
| Line S01845 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01986 M01S01845.274l797 ---| FCN ATCS,AUD,/PFM/PTRU,20 AUDIT TAPE CATALOG
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01987 M01S00012.274l797 +++| FCN AUCS,AUD,/PFM/PTRU,20 AUDIT TAPE CATALOG 01988 M00S01846.tfm +++| FCN CUAS,CUA,/PFM/PTUP,4005 CLEAR UTILITY ACTIVE 01989 M00S01847.tfm +++| FCN DVES,DVE,/PFM/PTWR,5 DELETE VSN ENTRY(S) 01990 M00S01848.tfm +++| FCN GNSS,GNS,/PFM/PTWR,7 GET NEXT SCRATCH 01991 M00S01849.tfm +++| FCN ICES,ICE,/PFM/PTWR,20 INSERT CATALOG ENTRY 01992 M00S01850.tfm +++| FCN ISFS,ISF,/PFM/PTWR,4005 INITIALIZE FAMILY CATALOG 01993 M00S01851.tfm +++| FCN IUES,IUE,/PFM/PTWR,5 INSERT USERNAME ENTRY(S) 01994 M00S01852.tfm +++| FCN LAES,LAE,/PFM/PTRU,7 LIST ADMIT ENTRY(S) 01995 M00S01853.tfm +++| FCN LVES,LVE,/PFM/PTUP,5 LIST VSN ENTRY(S) 01996 M00S01854.tfm +++| FCN RAES,RAE,/PFM/PTWR,7 REPLACE/ADD ADMIT ENTRY(S) 01997 M00S01855.tfm +++| FCN RCES,RCE,/PFM/PTUP,20 REPLACE CATALOG ENTRY 01998 M00S01856.tfm +++| FCN RDRS,RDR,/PFM/PTRU,7 BLOCK READ REQUEST 01999 M00S01857.tfm +++| FCN RTCS,RLS,/PFM/PTUP,4020 RELEASE TAPE CATALOG 02000 M00S01858.tfm +++| FCN RVES,RAV,/PFM/PTWR,5 REPLACE/ADD VSN ENTRY(S) 02001 M00S01859.tfm +++| FCN SUAS,SUA,/PFM/PTUP,4005 SET UTILTY ACTIVE 02002 M00S01860.tfm +++| FCN WRRS,WRR,/PFM/PTUP,7 BLOCK REWRITE REQUEST 02003 M00S01861.tfm +++| SSJA FCN END 02004 M00S01862.tfm +++| TCSF SPACE 4,10
| Line S01863 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02005 M01S01863.nos252 ---|*** TCSF - TFM CONTROL STATEMENT FUNCTION.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02006 M01S00025.nos252 +++|*** TCSF - TFM COMMAND FUNCTION. 02007 M00S01864.tfm +++|* 02008 M00S01865.tfm +++|* THIS FUNCTION REQUIRES NO SPECIAL VALIDATION
| Line S01866 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02009 M01S01866.nos252 ---|* AND IS USED TO PROCESS TMS SPECIFIC CONTROL 02010 M01S01867.nos252 ---|* STATEMENT REQUESTS. IT MUST BE CALLED WITH
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02011 M01S00026.nos252 +++|* AND IS USED TO PROCESS TMS SPECIFIC 02012 M01S00027.nos252 +++|* COMMAND REQUESTS. IT MUST BE CALLED WITH 02013 M00S01868.tfm +++|* AUTO-RECALL SET AND TMS ENABLED. 02014 M00S01869.tfm +++|* 02015 M00S01870.tfm +++|* ENTRY (FC) = TCSF. 02016 M00S01871.tfm +++|* (IR+3 - IR+4) = FET ADDRESS. 02017 M00S01872.tfm +++|* 02018 M00S01873.tfm +++|* EXIT (TFMA) = OVERLAY NAME. 02019 M00S01874.tfm +++|* (TFMB) = PROCESSOR ADDRESS. 02020 M00S01875.tfm +++|* (TFMC) = CATALOG ACCESS MODE. 02021 M00S01876.tfm +++|* 02022 M00S01877.tfm +++|* USES CM - CM+4, S1 - S1+4, T1. 02023 M00S01878.tfm +++|* 02024 M00S01879.tfm +++|* CALLS BPB, CFS, CRS. 02025 M00S01880.tfm +++|* 02026 M00S01881.tfm +++|* MACROS ERROR, FCN, LDA, MULT4. 02027 M00S01882.tfm +++| 02028 M00S01883.tfm +++| 02029 M00S01884.tfm +++| TCS SUBR ENTRY/EXIT
| Line S01885 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02030 M01S01885.nos252 ---| LDN TFML CHECK TMS ENABLE/DISABLE STATUS
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02031 M01S00028.nos252 +++| LDN SSTL CHECK IF TMS IS ENABLED 02032 M00S01886.tfm +++| CRD CM
| Line S01887 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02033 M01S01887.nos252 ---| LDD CM+0 02034 M01S01888.nos252 ---| SHN 21-13 02035 M01S01889.nos252 ---| MJN TCS1 IF TMS ENABLED
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02036 M01S00029.nos252 +++| LDD CM+2 02037 M01S00030.nos252 +++| SHN 21-0 02038 M01S00031.nos252 +++| PJN TCS1 IF TMS ENABLED 02039 M00S01890.tfm +++| ERROR TMD *TMS DISABLED.* 02040 M00S01891.tfm +++| 02041 M00S01892.tfm +++| TCS1 RJM CRS CHECK RECALL STATUS 02042 M00S01893.tfm +++| ZJN TCS2 IF NOT CALLED WITH AUTO-RECALL 02043 M00S01894.tfm +++| LDA IR+3,REL SET SUBFUNCTION CODE 02044 M00S01895.tfm +++| CRD S1 02045 M00S01896.tfm +++| LDD S1+4 02046 M00S01897.tfm +++| SHN -3 02047 M00S01898.tfm +++| LPN 77
| Line S01899 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02048 M01S01899.nos252 ---| ZJN TCS2 IF ILLEGAL FUNCTION
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02049 M01S00032.nos252 +++| ZJN TCS2 IF INCORRECT FUNCTION 02050 M00S01900.tfm +++| SBN 1 02051 M00S01901.tfm +++| MULT4 MULTIPLY (FUNCTION-1)*4 02052 M00S01902.tfm +++| ADC -TCSAL 02053 M00S01903.tfm +++| MJN TCS3 IF LEGAL FUNCTION
| Line S01904 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02054 M01S01904.nos252 ---| TCS2 ERROR ILR *TFM INVALID REQUEST.*
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02055 M01S00033.nos252 +++| TCS2 ERROR ILR *TFM INCORRECT REQUEST.* 02056 M00S01905.tfm +++| 02057 M00S01906.tfm +++| TCS3 LDM TCSA,T1 SET OVERLAY NAME 02058 M00S01907.tfm +++| LPN 77 02059 M00S01908.tfm +++| STM TFMA 02060 M00S01909.tfm +++| LDM TCSA+1,T1 SET PROCESSOR ADDRESS 02061 M00S01910.tfm +++| ZJN TCS2 IF NOT DEFINED 02062 M00S01911.tfm +++| STM TFMB 02063 M00S01912.tfm +++| LDM TCSA+2,T1 SET FILE ACCESS MODE 02064 M00S01913.tfm +++| STM TFMC 02065 M00S01914.tfm +++| LDM TCSA+3,T1 02066 M00S01915.tfm +++| RJM CFS CHECK FET STATUS 02067 M00S01916.tfm +++| RJM BPB BUILD PARAMETER BLOCK 02068 M00S01917.tfm +++| LDM BPBA ADDRESS OF USERNAME 02069 M00S01918.tfm +++| STD T0 02070 M00S01919.tfm +++| LDI T0 02071 M00S01920.tfm +++| ZJN TCS4 IF NO USERNAME 02072 M00S01921.tfm +++| LJM TCSX RETURN 02073 M00S01922.tfm +++| 02074 M00S01923.tfm +++| TCS4 ERROR TPI *TMS PROCESSING INHIBITED.* 02075 M00S01924.tfm +++| 02076 M00S01925.tfm +++| TCSA FCN BEGIN 02077 M00S01926.tfm +++| FCN RSVS,RSV,/PFM/PTUP,4005 RESERVE 02078 M00S01927.tfm +++| FCN ADMS,ADM,/PFM/PTWR,4020 ADMIT 02079 M00S01928.tfm +++| FCN AUDS,AUD,/PFM/PTRU,20 AUDIT 02080 M00S01929.tfm +++| FCN AMDS,AMD,/PFM/PTUP,4020 AMEND 02081 M00S01930.tfm +++| FCN RLSS,RLS,/PFM/PTUP,4020 RELEASE 02082 M00S01931.tfm +++| FCN GVSS,GVS,/PFM/PTRU,5 GET VSN 02083 M00S01932.tfm +++| TCSA FCN END 02084 M00S01933.tfm +++| SPACE 4 02085 M00S01934.tfm +++| TITLE RESIDENT SUBFUNCTIONS (LEVEL 2). 02086 M00S01935.tfm +++| CUAS SPACE 4,10 02087 M00S01936.tfm +++|*** CUAS - CLEAR UTILITY ACTIVE. 02088 M00S01937.tfm +++|* 02089 M00S01938.tfm +++|* *CUAS* IS CALLED ONLY BY *TFSP* TO CLEAR THE 02090 M00S01939.tfm +++|* INTERLOCKS WHICH WERE SET BY A PREVIOUS CALL. 02091 M00S01940.tfm +++|* 02092 M00S01941.tfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02093 M00S01942.tfm +++|* (BP) = BUFFER POINTER. 02094 M00S01943.tfm +++|* (FA) = CATALOG FNT ORDINAL. 02095 M00S01944.tfm +++|* (RI - RI+1) = RANDOM ADDRESS OF *TMST* 02096 M00S01945.tfm +++|* *TMST* READ TO (BA). 02097 M00S01946.tfm +++|* 02098 M00S01947.tfm +++|* EXIT *TMST* REWRITTEN. 02099 M00S01948.tfm +++|* TMS EVENT ISSUED. 02100 M00S01949.tfm +++|* 02101 M00S01950.tfm +++|* USES CM - CM+4. 02102 M00S01951.tfm +++|* 02103 M00S01952.tfm +++|* CALLS WRP. 02104 M00S01953.tfm +++|* 02105 M00S01954.tfm +++|* MACROS MONITOR. 02106 M00S01955.tfm +++| 02107 M00S01956.tfm +++| 02108 M00S01957.tfm +++| CUA ENTRY ENTRY/EXIT 02109 M00S01958.tfm +++| LDM SBST+1,BP CLEAR UTILITY ACTIVE INTERLOCK 02110 M00S01959.tfm +++| SCN UITS 02111 M00S01960.tfm +++| STM SBST+1,BP 02112 M00S01961.tfm +++| RJM WRP WRITE RANDOM PRU 02113 M00S01962.tfm +++| LDN ZERL ENTER TMS EVENT 02114 M00S01963.tfm +++| CRD CM 02115 M00S01964.tfm +++| LDN ESUA 02116 M00S01965.tfm +++| STD CM+4 02117 M00S01966.tfm +++| MONITOR EATM 02118 M00S01967.tfm +++| UJN CUAX RETURN
| Line S01968 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02119 M01S01968.282l826 ---| RIJS SPACE 4,10 02120 M01S01969.282l826 ---|*** RIJS - ROLLIN JOB. 02121 M01S01970.282l826 ---|* 02122 M01S01971.282l826 ---|* *RIJS* IS ONLY CALLED BY *MAGNET*. *MAGNET* 02123 M01S01972.282l826 ---|* CAN PERIODICALLY REQUEST TFM TO ROLLOUT 02124 M01S01973.282l826 ---|* THE USER JOB. THIS FUNCTION WILL ENTER THE 02125 M01S01974.282l826 ---|* EVENT IN THE SYSTEM EVENT QUEUE TO INITIATE 02126 M01S01975.282l826 ---|* ROLLIN. 02127 M01S01976.282l826 ---|* 02128 M01S01977.282l826 ---|* EXIT THE EVENT IS ENTERED IN THE SYSTEM 02129 M01S01978.282l826 ---|* EVENT QUEUE. 02130 M01S01979.282l826 ---|* 02131 M01S01980.282l826 ---|* USES CM - CM+4. 02132 M01S01981.282l826 ---|* 02133 M01S01982.282l826 ---|* MACROS MONITOR. 02134 M01S01983.282l826 ---| 02135 M01S01984.282l826 ---| 02136 M01S01985.282l826 ---| RIJ ENTRY ENTRY/EXIT 02137 M01S01986.282l826 ---| LDN ZERL 02138 M01S01987.282l826 ---| CRD CM 02139 M01S01988.282l826 ---| LDN ESMR 02140 M01S01989.282l826 ---| STD CM+4 02141 M01S01990.282l826 ---| MONITOR EATM 02142 M01S01991.282l826 ---| UJN RIJX RETURN 02143 M01S01992.282l826 ---| ROJS SPACE 4,10 02144 M01S01993.282l826 ---|*** ROJS - ROLLOUT USER JOB. 02145 M01S01994.282l826 ---|* 02146 M01S01995.282l826 ---|* *ROJS* IS ONLY CALLED BY *MAGNET* TO REQUEST 02147 M01S01996.282l826 ---|* ROLLOUT OF A USER JOB. 02148 M01S01997.282l826 ---|* 02149 M01S01998.282l826 ---|* EXIT EVENT WRITTEN TO *TERW*. 02150 M01S01999.282l826 ---|* ROLLOUT FLAG SET. 02151 M01S02000.282l826 ---|* 02152 M01S02001.282l826 ---|* USES CM - CM+4, CN - CN+4. 02153 M01S02002.282l826 ---|* 02154 M01S02003.282l826 ---|* MACROS MONITOR. 02155 M01S02004.282l826 ---| 02156 M01S02005.282l826 ---| 02157 M01S02006.282l826 ---| ROJ ENTRY ENTRY/EXIT 02158 M01S02007.282l826 ---| LDD CP CHECK QUEUE PRIORITY 02159 M01S02008.282l826 ---| ADN JCIW 02160 M01S02009.282l826 ---| CRD CM 02161 M01S02010.282l826 ---| LDD CM+2 02162 M01S02011.282l826 ---| NJN ROJX IF JOB NOT ROLLABLE 02163 M01S02012.282l826 ---| LDD CP READ TIME EVENT ROLLOUT WORD *TERW* 02164 M01S02013.282l826 ---| ADN TERW 02165 M01S02014.282l826 ---| CRD CM 02166 M01S02015.282l826 ---| LDD CM+2 SET TIME 02167 M01S02016.282l826 ---| SCN 77 02168 M01S02017.282l826 ---| ADN 300/10 02169 M01S02018.282l826 ---| STD CM+2 02170 M01S02019.282l826 ---| LDN 0 02171 M01S02020.282l826 ---| STD CM+3 02172 M01S02021.282l826 ---| LDN ESMR SET EVENT 02173 M01S02022.282l826 ---| STD CM+4 02174 M01S02023.282l826 ---| LDD CP WRITE TIME EVENT ROLLOUT WORD *TERW* 02175 M01S02024.282l826 ---| ADN TERW 02176 M01S02025.282l826 ---| CWD CM 02177 M01S02026.282l826 ---| LDM UTMS+3 SET USER JOB ROLLOUT 02178 M01S02027.282l826 ---| SCN WUJR 02179 M01S02028.282l826 ---| LMN WUJR 02180 M01S02029.282l826 ---| STM UTMS+3 02181 M01S02030.282l826 ---| UDTRD CM,/MTX/UJID,1 02182 M01S02031.282l826 ---| LDD CM+2 CLEAR CONTROL POINT NUMBER 02183 M01S02032.282l826 ---| LPN 77 02184 M01S02033.282l826 ---| STD CM+2 02185 M01S02034.282l826 ---| UDTWT CM,/MTX/UJID,1 02186 M01S02035.282l826 ---| LDN ZERL REQUEST ROLLOUT 02187 M01S02036.282l826 ---| CRD CM
| Line S02037 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02188 M02S02037.282l826 ---| LDC 4000B+ROTE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | t2807 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02189 M02S00003.282l826 ---| LDC 4000B+/COMSCPS/ROTE
| Line S02038 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02190 M01S02038.282l826 ---| STD CM+1 SET TIME/EVENT ROLLOUT FLAG 02191 M01S02039.282l826 ---| LDD CP 02192 M01S02040.282l826 ---| SHN -7 02193 M01S02041.282l826 ---| STD CM+2 CONTROL POINT TO ROLLOUT 02194 M01S02042.282l826 ---| MONITOR ROCM ROLLOUT CONTROL POINT 02195 M01S02043.282l826 ---| LJM ROJX RETURN 02196 M00S02044.tfm +++| SUAS SPACE 4,10 02197 M00S02045.tfm +++|*** SUAS - SET UTILITY ACTIVE. 02198 M00S02046.tfm +++|* 02199 M00S02047.tfm +++|* *SUAS* IS USED BY *TFSP* TO SET THE UTILITY 02200 M00S02048.tfm +++|* INTERLOCK SO THAT ONLY *TFSP* CAN HAVE 02201 M00S02049.tfm +++|* ACCESS TO THE CATALOG. 02202 M00S02050.tfm +++|* 02203 M00S02051.tfm +++|* ENTRY (BA) = BUFFER ADDRESS. 02204 M00S02052.tfm +++|* (BP) = BUFFER POINTER. 02205 M00S02053.tfm +++|* (FA) = CATALOG FNT ORDINAL. 02206 M00S02054.tfm +++|* *TMST* READ TO (BA). 02207 M00S02055.tfm +++|* 02208 M00S02056.tfm +++|* EXIT UTILITY ACTIVE AND JOB SEQUENCE 02209 M00S02057.tfm +++|* NNUMBER SET IN *TMST*. 02210 M00S02058.tfm +++|* 02211 M00S02059.tfm +++|* USES CM - CM+4. 02212 M00S02060.tfm +++|* 02213 M00S02061.tfm +++|* CALLS WRP. 02214 M00S02062.tfm +++| 02215 M00S02063.tfm +++| 02216 M00S02064.tfm +++| SUA ENTRY ENTRY/EXIT 02217 M00S02065.tfm +++| LDM SBST+1,BP SET UTILITY INTERLOCK STATUS 02218 M00S02066.tfm +++| SCN UITS 02219 M00S02067.tfm +++| LMN UITS 02220 M00S02068.tfm +++| STM SBST+1,BP 02221 M00S02069.tfm +++| RJM WRP WRITE RANDOM PRU 02222 M00S02070.tfm +++| UJN SUAX RETURN 02223 M00S02071.tfm +++| VMF SPACE 4,10 02224 M00S02072.tfm +++|*** VMF - VALIDATE MULTI-FILE SET ACCESS. 02225 M00S02073.tfm +++|* 02226 M00S02074.tfm +++|* ENTRY (UTMS+2) = 0 IF FILE NOT WRITTEN TO. 02227 M00S02075.tfm +++|* 02228 M00S02076.tfm +++|* EXIT TO *RDC* IF CURRENT FILE WAS WRITTEN ON. 02229 M00S02077.tfm +++|* TO *PMF* IF CURRENT FILE WAS ONLY READ. 02230 M00S02078.tfm +++|* 02231 M00S02079.tfm +++|* CALLS CME, PMF, RDC. 02232 M00S02080.tfm +++|* 02233 M00S02081.tfm +++|* MACROS EXOVL. 02234 M00S02082.tfm +++| 02235 M00S02083.tfm +++| 02236 M00S02084.tfm +++| VMF ENTRY ENTRY/EXIT 02237 M00S02085.tfm +++| RJM CME CHECK FOR MEDIA ERROR 02238 M00S02086.tfm +++| LDM UTMS+2 02239 M00S02087.tfm +++| NJN VMF1 IF FILE WRITTEN TO 02240 M00S02088.tfm +++| EXOVL PMF PROCESS MULTI-FILE REQUEST 02241 M00S02089.tfm +++| 02242 M00S02090.tfm +++| VMF1 EXOVL RDC RELEASE DELETED CATALOG ENTRIES 02243 M00S02091.tfm +++| AVF SPACE 4,10 02244 M00S02092.tfm +++|*** AVF - ADVANCE VSN FILE. 02245 M00S02093.tfm +++|* 02246 M00S02094.tfm +++|* *AVF* CALL *CME* TO DETERMINE IF ERROR AND MAINTENANCE FLAGS 02247 M00S02095.tfm +++|* SHOULD BE SET, AND CALL *AVS* TO SET THE NEXT VOLUME 02248 M00S02096.tfm +++|* OF TAPE IN THE UDT. 02249 M00S02097.tfm +++|* 02250 M00S02098.tfm +++|* ENTRY NONE. 02251 M00S02099.tfm +++|* 02252 M00S02100.tfm +++|* EXIT TO *AVS* TO ADVANCE VSN FILE. 02253 M00S02101.tfm +++|* 02254 M00S02102.tfm +++|* CALLS AVS, CME. 02255 M00S02103.tfm +++|* 02256 M00S02104.tfm +++|* MACROS EXOVL. 02257 M00S02105.tfm +++| 02258 M00S02106.tfm +++| 02259 M00S02107.tfm +++| AVF ENTRY ENTRY/EXIT 02260 M00S02108.tfm +++| RJM CME CHECK FOR MEDIA ERRORS 02261 M00S02109.tfm +++| EXOVL AVS ADVANCE VSN FILE 02262 M00S02110.tfm +++| RRF SPACE 4,10 02263 M00S02111.tfm +++|*** RRF - RETURN/RESERVE TAPE FILE. 02264 M00S02112.tfm +++|* 02265 M00S02113.tfm +++|* *RRF* CALL *CME* TO DETERMINE IF ERROR AND MAINTENANCE FLAGS 02266 M00S02114.tfm +++|* SHOULD BE SET AND CALL *RTF* TO PROCESS RETURN TAPE FILES. 02267 M00S02115.tfm +++|* 02268 M00S02116.tfm +++|* ENTRY NONE. 02269 M00S02117.tfm +++|* 02270 M00S02118.tfm +++|* EXIT TO *RTF* TO RETURN TAPE FILES. 02271 M00S02119.tfm +++|* 02272 M00S02120.tfm +++|* CALLS CME, RTF. 02273 M00S02121.tfm +++|* 02274 M00S02122.tfm +++|* MACROS EXOVL. 02275 M00S02123.tfm +++| 02276 M00S02124.tfm +++| 02277 M00S02125.tfm +++| RRF ENTRY ENTRY/EXIT 02278 M00S02126.tfm +++| RJM CME CHECK FOR MEDIA ERRORS 02279 M00S02127.tfm +++| EXOVL RTF RETURN TAPE FILES. 02280 M00S02128.tfm +++| CME SPACE 4,10 02281 M00S02129.tfm +++|*** CME - CHECK FOR MEDIA ERRORS. 02282 M00S02130.tfm +++|* 02283 M00S02131.tfm +++|* ENTRY NONE. 02284 M00S02132.tfm +++|* 02285 M00S02133.tfm +++|* EXIT THE ERROR AND MAINTENANCE FLAGS ARE SET IN THE VSN 02286 M00S02134.tfm +++|* ENTRY, AND DATA ERROR WILL BE FLAGGED IN THE 02287 M00S02135.tfm +++|* CATALOG ENTRY, IF THE UNRECOVERED FLAG IS SET.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02288 M01S00002.ns2763 +++|* 02289 M01S00003.ns2763 +++|* USES BA, CI, KA, RI - RI+1, 02290 M01S00004.ns2763 +++|* 02291 M01S00005.ns2763 +++|* CALLS GIB, MBP, RRP, VIS, VSP, WRP. 02292 M01S00006.ns2763 +++|* 02293 M01S00007.ns2763 +++|* MACROS SAVEP, UDTRD, UDTWT. 02294 M00S02136.tfm +++| 02295 M00S02137.tfm +++| 02296 M00S02138.tfm +++| CME5 LDN 0 02297 M00S02139.tfm +++| STM UTMS+1 CLEAR THE RECOVERED ERROR COUNT 02298 M00S02140.tfm +++| LDM UTMS+4 02299 M00S02141.tfm +++| LPC 7577 02300 M00S02142.tfm +++| STM UTMS+4 CLEAR THE UNRECOVERED ERROR FLAG 02301 M00S02143.tfm +++| UDTWT UTMS,/MTX/UTMS,1 02302 M00S02144.tfm +++| LDC BUF0 RESTORE SYSTEM BLOCK 02303 M00S02145.tfm +++| STD BA 02304 M00S02146.tfm +++| LDN TMSB 02305 M00S02147.tfm +++| STD RI+1 02306 M00S02148.tfm +++| SHN -14 02307 M00S02149.tfm +++| STD RI 02308 M00S02150.tfm +++| RJM GIB GET INITIAL BLOCK 02309 M00S02151.tfm +++| LDM CWFE,BA 02310 M00S02152.tfm +++| RJM MBP MOVE BUFFER POINTERS 02311 M00S02153.tfm +++| SAVEP CPSB SAVE BUFFER POINTERS 02312 M00S02154.tfm +++| 02313 M00S02155.tfm +++| CME SUBR ENTRY/EXIT 02314 M00S02156.tfm +++| UDTRD CM,/MTX/UTCI,1 READ CATALOG ENTRY 02315 M00S02157.tfm +++| LDD CM+3 02316 M00S02158.tfm +++| SHN 14 02317 M00S02159.tfm +++| STD CI 02318 M00S02160.tfm +++| SHN -14 02319 M00S02161.tfm +++| STD RI 02320 M00S02162.tfm +++| LDD CM+4 02321 M00S02163.tfm +++| STD RI+1 02322 M00S02164.tfm +++| LDC BUF0 SET BUFFER 02323 M00S02165.tfm +++| STD BA 02324 M00S02166.tfm +++| RJM RRP GET INITIAL BLOCK (CATALOG) 02325 M00S02167.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS 02326 M00S02168.tfm +++| MJP CMEX IF ERROR IN CATALOG INDEX 02327 M00S02169.tfm +++| LDM UTMS+4 02328 M00S02170.tfm +++| SHN 21-7 02329 M00S02171.tfm +++| MJN CME2 IF UNRECOVERED ERROR FLAG SET 02330 M00S02172.tfm +++| LDC REMT 02331 M00S02173.tfm +++| NJN CME1 IF NOT DISABLES RECOVERED ERROR THRESHOLD 02332 M00S02174.tfm +++| LJM CME5 CLEAR THE UNRECOVERED ERROR FLAG 02333 M00S02175.tfm +++| 02334 M00S02176.tfm +++| CME1 SBM UTMS+1
| Line S02177 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02335 M01S02177.ns2763 ---| MJN CME3 IF COUNT GREAT THEN THRESHOLD LIMIT
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02336 M01S00008.ns2763 +++| MJN CME3 IF COUNT GREATER THAN THRESHOLD LIMIT 02337 M00S02178.tfm +++| ZJN CME3 IF COUNT EQUAL TO THRESHOLD LIMIT
| Line S02179 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02338 M01S02179.ns2763 ---| LJM CME5 IF COUNT LESS THEN THRESHOLD LIMIT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 02339 M01S00009.ns2763 +++| LJM CME5 IF COUNT LESS THAN THRESHOLD LIMIT 02340 M00S02180.tfm +++| 02341 M00S02181.tfm +++| CME2 LDM CBST,BP 02342 M00S02182.tfm +++| SCN 2 02343 M00S02183.tfm +++| LMN 2 02344 M00S02184.tfm +++| STM CBST,BP SET DATA ERROR FLAG IN CATALOG ENTRY 02345 M00S02185.tfm +++| RJM WRP WRITE RANDOM PRU 02346 M00S02186.tfm +++| CME3 LDC PESN FIND CURRENT VSN 02347 M00S02187.tfm +++| STD KA 02348 M00S02188.tfm +++| RJM VIS VSN INDEXED SEARCH 02349 M00S02189.tfm +++| ZJN CME4 IF VSN FOUND 02350 M00S02190.tfm +++| LJM CMEX RETURN 02351 M00S02191.tfm +++| 02352 M00S02192.tfm +++| CME4 LDM VBST,BP 02353 M00S02193.tfm +++| SCN HMVS/10000 02354 M00S02194.tfm +++| LMN HMVS/10000 02355 M00S02195.tfm +++| STM VBST,BP SET MAINTENANCE FLAG IN VSN ENTRY 02356 M00S02196.tfm +++| LDM VBST+1,BP 02357 M00S02197.tfm +++| SCN ERVS 02358 M00S02198.tfm +++| LMN ERVS 02359 M00S02199.tfm +++| STM VBST+1,BP SET ERROR FLAG IN VSN ENTRY 02360 M00S02200.tfm +++| RJM WRP WRITE RANDOM PRU 02361 M00S02201.tfm +++| LJM CME5 CLEAR UNRECOVERED FLAG 02362 M00S02202.tfm +++| SPACE 4 02363 M00S02203.tfm +++|*** COMMON DECKS. 02364 M00S02204.tfm +++| 02365 M00S02205.tfm +++| 02366 M00S02206.tfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ON ENTRY 02367 M00S02207.tfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 02368 M00S02208.tfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK 02369 M00S02209.tfm +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS LINK 02370 M00S02210.tfm +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH FOR KEY 02371 M00S02211.tfm +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST INDEX 02372 M00S02212.tfm +++| SBP$ EQU 1 DEFINE SBP - SET FET BUFFER POINTERS 02373 M00S02213.tfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BUFFER 02374 M00S02214.tfm +++| SVB$ EQU 1 DEFINE SVB - SET VSN BUSY 02375 M00S02215.tfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 02376 M00S02216.tfm +++| UTR$ EQU 1 DEFINE UTR - UPDATE TRT 02377 M00S02217.tfm +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH 02378 M00S02218.tfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS 02379 M00S02219.tfm +++|*CALL COMPTFM 02380 M00S02220.tfm +++| TITLE PRESET TAPE FILE MANAGER (LEVEL 2). 02381 M00S02221.tfm +++| PRS SPACE 4,10 02382 M00S02222.tfm +++|** PRS - PRESET PROGRAM. 02383 M00S02223.tfm +++|* 02384 M00S02224.tfm +++|* ENTRY (FC) = RA+1 REQUEST FUNCTION. 02385 M00S02225.tfm +++|* 02386 M00S02226.tfm +++|* EXIT (BUF0) = *TMST* FROM CATALOG. 02387 M00S02227.tfm +++|* (MFID) = MACHINE ID. 02388 M00S02228.tfm +++|*
| Line S02229 Modification History | |
|---|---|
M01 (Removed by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02389 M01S02229.tfm21 ---|* USES CM - CM+4, CN - CN+4, CU - CU+4, FC, FO, FN - FN+4,
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02390 M01S00004.tfm21 +++|* USES CM - CM+4, CN - CN+4, S2 - S2+4, FC, FO, FN - FN+4,
| Line S02230 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02391 M01S02230.282l826 ---|* MC, T1, T3.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02392 M01S00008.282l826 +++|* T1, T3. 02393 M00S02231.tfm +++|* 02394 M00S02232.tfm +++|* CALLS AFC, AST, EML,MAG , RCL, RSX, SFN, SSJ, TCS. 02395 M00S02233.tfm +++|* 02396 M00S02234.tfm +++|* MACROS COMPARE, ERROR, INDEX, MMOVE. 02397 M00S02235.tfm +++| 02398 M00S02236.tfm +++| 02399 M00S02237.tfm +++| PRS SUBR ENTRY/EXIT 02400 M00S02238.tfm +++| LDN 0 CLEAR CATALOG ADDRESS 02401 M00S02239.tfm +++| STD FO
| Line S02240 Modification History | |
|---|---|
M01 (Removed by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02402 M01S02240.tfm21 ---| LDD CP SET CPU/QUEUE PRIORITIES
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02403 M01S00005.tfm21 +++| LDD CP READ JOB STATUS 02404 M00S02241.tfm +++| ADN STSW 02405 M00S02242.tfm +++| CRD CN
| Line S02243 Modification History | |
|---|---|
M01 (Removed by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02406 M01S02243.tfm21 ---| ADN JCIW-STSW 02407 M01S02244.tfm21 ---| CRD CU
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | tfm20 |
M02 (Removed by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02408 M02S00002.tfm21 ---| LDD CU EXTRACT CPU PRIORITY 02409 M02S00003.tfm21 ---| LPC 177 02410 M02S00004.tfm21 ---| STD CU
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | tfm21 |
Seq # *Modification Id* Act ----------------------------+ 02411 M01S00006.tfm21 +++| ADN JCIW-STSW READ SUBSYSTEM ID 02412 M01S00007.tfm21 +++| CRD S2 02413 M00S02245.tfm +++| LDD CN+1 02414 M00S02246.tfm +++| NJP EML IF ERROR FLAG SET 02415 M00S02247.tfm +++| LDC MMFL SET MACHINE ID 02416 M00S02248.tfm +++| CRD CM 02417 M00S02249.tfm +++| LDD CM 02418 M00S02250.tfm +++| STM MFID 02419 M00S02251.tfm +++| LDD IR+2 CHECK FUNCTION CODE 02420 M00S02252.tfm +++| LPN 77 02421 M00S02253.tfm +++| STD FC 02422 M00S02254.tfm +++| LDD FC 02423 M00S02255.tfm +++| SBN MXNR 02424 M00S02256.tfm +++| MJN PRS2 IF LEGAL REQUEST TYPE
| Line S02257 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02425 M01S02257.nos252 ---| PRS1 ERROR ILR *TFM INVALID REQUEST.*
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02426 M01S00034.nos252 +++| PRS1 ERROR ILR *TFM INCORRECT REQUEST.* 02427 M00S02258.tfm +++|
| Line S02259 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02428 M01S02259.282l826 ---| PRS2 LDN FECF GET MAGNETS CONTROL POINT NUMBER 02429 M01S02260.282l826 ---| SHN 12 02430 M01S02261.282l826 ---| ADC MTSI 02431 M01S02262.282l826 ---| RJM AST ACCESS SUBSYSTEM TABLE 02432 M01S02263.282l826 ---| STD MC 02433 M01S02264.282l826 ---| LDM PRSB,FC SET PROCESSOR ADDRESS
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02434 M01S00009.282l826 +++| PRS2 LDM PRSB,FC SET PROCESSOR ADDRESS 02435 M00S02265.tfm +++| STM PRSA 02436 M00S02266.tfm +++| RJM ** 02437 M00S02267.tfm +++| PRSA EQU *-1 (PROCESSOR ADDRESS) 02438 M00S02268.tfm +++| LDM TFMC 02439 M00S02269.tfm +++| SHN 21-13 02440 M00S02270.tfm +++| MJP PRSX IF NOT ATTACHING THE CATALOG 02441 M00S02271.tfm +++| LDD FC CHECK ACCESS TYPE 02442 M00S02272.tfm +++| LMN SSJF 02443 M00S02273.tfm +++| NJN PRS3 IF NOT PROCESSING LOCAL FILE 02444 M00S02274.tfm +++| LDA IR+3,REL 02445 M00S02275.tfm +++| CRD FN 02446 M00S02276.tfm +++| LDD FN 02447 M00S02277.tfm +++| ZJN PRS3 IF NOT PROCESSING LOCAL FILE 02448 M00S02278.tfm +++| LDM TFMC SET LOCAL FILE MODE 02449 M00S02279.tfm +++| SCN 77 02450 M00S02280.tfm +++| LMN /PFM/PTLM 02451 M00S02281.tfm +++| STM TFMC 02452 M00S02282.tfm +++| UJN PRS6 SET FAMILY NAME 02453 M00S02283.tfm +++| 02454 M00S02284.tfm +++|* PRESET FAST ATTACH CATALOG ACCESS. 02455 M00S02285.tfm +++| 02456 M00S02286.tfm +++| PRS3 LDK AFAAL SET SYSTEM FILE *AFA* 02457 M00S02287.tfm +++| STD T1 02458 M00S02288.tfm +++| PRS4 SOD T1 02459 M00S02289.tfm +++| MJN PRS5 IF SUBROUTINE MOVED 02460 M00S02290.tfm +++| LDM PRSD,T1 02461 M00S02291.tfm +++| STM AFAA,T1 02462 M00S02292.tfm +++| UJN PRS4 CHECK NEXT WORD OF ROUTINE 02463 M00S02293.tfm +++| 02464 M00S02294.tfm +++| PRS5 LDK FNTP GET SYSTEM FNT ADDRESS 02465 M00S02295.tfm +++| CRD CM 02466 M00S02296.tfm +++| LDD CM SAVE SYSTEM FNT ADDRESS 02467 M00S02297.tfm +++| SHN 14 02468 M00S02298.tfm +++| ADD CM+1 02469 M00S02299.tfm +++| STM AFAB+1 02470 M00S02300.tfm +++| SHN -14 02471 M00S02301.tfm +++| RAM AFAB 02472 M00S02302.tfm +++| PRS6 RJM SFN SET FAMILY NAME 02473 M00S02303.tfm +++| RJM AFC ACCESS FAMILY CATALOG 02474 M00S02304.tfm +++| LDD FC 02475 M00S02305.tfm +++| LMN SSJF 02476 M00S02306.tfm +++| ZJN PRS7 IF SSJF FUNCTION 02477 M00S02307.tfm +++| LDM SBLF,BP 02478 M00S02308.tfm +++| PRS7 ZJP PRS9 IF NOT LINKED CATALOG 02479 M00S02309.tfm +++| LDM TFMC SET MODE 02480 M00S02310.tfm +++| LPN 77 02481 M00S02311.tfm +++| STD T2 02482 M00S02312.tfm +++| LDD FO SET FNT ORDINAL 02483 M00S02313.tfm +++| STD T1 02484 M00S02314.tfm +++| LDN RFAS RETURN CURRENT CATALOG 02485 M00S02315.tfm +++| RJM ARF 02486 M00S02316.tfm +++| LDN 0 CLEAR FNT ORDINAL 02487 M00S02317.tfm +++| STD FO 02488 M00S02318.tfm +++| MMOVE PFAM,,PRSA,,FNKL SAVE CURRENT FAMILY NAME 02489 M00S02319.tfm +++| MMOVE SBLF,BP,PFAM,,FNKL SET LINKED FAMILY NAME 02490 M00S02320.tfm +++| RJM AFC ACCESS LINKED CATALOG 02491 M00S02321.tfm +++| LDD BP SET PERMITTED FAMILY LIST ADDRESS 02492 M00S02322.tfm +++| ADK SBPF 02493 M00S02323.tfm +++| STD T3 02494 M00S02324.tfm +++| PRS8 COMPARE ,T3,PRSA,,FNKL CHECK NEXT ENTRY 02495 M00S02325.tfm +++| ZJN PRS9 IF MATCH 02496 M00S02326.tfm +++| LDN 5 INCREMENT ENTRY ADDRESS 02497 M00S02327.tfm +++| RAD T3 02498 M00S02328.tfm +++| SBD BP 02499 M00S02329.tfm +++| LMK SBPF+PAFL*5 02500 M00S02330.tfm +++| NJN PRS8 IF NOT END OF ENTRIES 02501 M00S02331.tfm +++| ERROR CNA *LINKED CATALOG NOT ACCESSIBLE.* 02502 M00S02332.tfm +++| 02503 M00S02333.tfm +++| PRS9 LDM SBST+1,BP CHECK CATALOG STATUS 02504 M00S02334.tfm +++| SHN 21-2 02505 M00S02335.tfm +++| PJN PRS11 IF NOT CATALOG ERROR 02506 M00S02336.tfm +++| LDD FC CHECK FUNCTION 02507 M00S02337.tfm +++| LMN SSJF 02508 M00S02338.tfm +++| NJN PRS10 IF NOT SSJ= FUNCTION 02509 M00S02339.tfm +++| LDA IR+3,REL CHECK SUBFUNCTION 02510 M00S02340.tfm +++| CRD CM 02511 M00S02341.tfm +++| LDD CM+4 02512 M00S02342.tfm +++| SHN -3 02513 M00S02343.tfm +++| LPN 77 02514 M00S02344.tfm +++| LMN ISFS 02515 M00S02345.tfm +++| NJN PRS11 IF NOT *ISF* SUBFUNCTION 02516 M00S02346.tfm +++| LDD CM+4 SET OPERATOR NOTIFICATION REQUIRED 02517 M00S02347.tfm +++| LPN 4 02518 M00S02348.tfm +++| SHN 3-2 02519 M00S02349.tfm +++| RAM TFMF 02520 M00S02350.tfm +++| PRS10 ERROR FCE *(FAMILY) CATALOG ERROR.* 02521 M00S02351.tfm +++| 02522 M00S02352.tfm +++| PRS11 LDM SBST+1,BP CHECK IDLE FLAG 02523 M00S02353.tfm +++| SHN 21-1 02524 M00S02354.tfm +++| PJN PRS12 IF NOT SUSPEND ACTIVITY 02525 M00S02355.tfm +++| LDD FC 02526 M00S02356.tfm +++| LMN RSXF 02527 M00S02357.tfm +++| NJN PRS12 IF NOT CALLED BY *RESEX* 02528 M00S02358.tfm +++| ERROR SFA *(FAMILY) ACTIVITY SUSPENDED.* 02529 M00S02359.tfm +++| 02530 M00S02360.tfm +++| PRS12 LDM SBST+1,BP CHECK UTILITY INTERLOCK 02531 M00S02361.tfm +++| SHN 21-0 02532 M00S02362.tfm +++| PJN PRS14 IF NOT UTILITY INTERLOCK 02533 M00S02363.tfm +++| LDD FC 02534 M00S02364.tfm +++| LMN SSJF 02535 M00S02365.tfm +++| ZJN PRS14 IF CALLED BY SSJ= JOB 02536 M00S02366.tfm +++| PRS13 ERROR TUA *TMS UTILITY ACTIVE.* 02537 M00S02367.tfm +++| 02538 M00S02368.tfm +++| PRS14 LDM CWUN,BA 02539 M00S02369.tfm +++| ZJN PRS15 IF NO CATALOG USERNAME 02540 M00S02370.tfm +++| COMPARE PBUN,,CWUN,BA,UNKL 02541 M00S02371.tfm +++| NJN PRS15 IF NOT USERNAME INTERLOCK FROM *TFSP* 02542 M00S02372.tfm +++| LDD FC 02543 M00S02373.tfm +++| LMN SSJF 02544 M00S02374.tfm +++| NJN PRS13 IF NOT *TFSP* CALL 02545 M00S02375.tfm +++| PRS15 LDM SBHP,BP SET HOLE POINTER 02546 M00S02376.tfm +++| STM CPEB 02547 M00S02377.tfm +++| LDM SBHP+1,BP 02548 M00S02378.tfm +++| STM CPEB+1 02549 M00S02379.tfm +++| LJM PRSX RETURN 02550 M00S02380.tfm +++| 02551 M00S02381.tfm +++| PRSB INDEX TABLE OF FUNCTION PROCESSORS
| Line S02382 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02552 M01S02382.nos252 ---| INDEX TCSF,TCS CONTROL STATEMENT PROCESSOR
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02553 M01S00035.nos252 +++| INDEX TCSF,TCS COMMAND PROCESSOR 02554 M00S02383.tfm +++| INDEX RSXF,RSX *RESEX* PROCESSOR 02555 M00S02384.tfm +++| INDEX MAGF,MAG *MAGNET* PROCESSOR 02556 M00S02385.tfm +++| INDEX SSJF,SSJ SSJ= PROCESSOR 02557 M00S02386.tfm +++| INDEX MXNR 02558 M00S02387.tfm +++| 02559 M00S02388.tfm +++| PRSD BSS 0 SYSTEM FILE *AFA* ROUTINE 02560 M00S02389.tfm +++| LOC AFAA 02561 M00S02390.tfm +++| CFI FNT GET FST ADDRESS FOR SYSTEM FILE 02562 M00S02391.tfm +++| AFAB ADC ** 02563 M00S02392.tfm +++| ADN FSTG 02564 M00S02393.tfm +++|* NFA FO,R GET FST ADDRESS FOR LOCAL FILE 02565 M00S02394.tfm +++|* ADN FSTL 02566 M00S02395.tfm +++| AFAAL EQU *-AFAA ROUTINE LENGTH 02567 M00S02396.tfm +++| LOC *O 02568 M00S02397.tfm +++| TITLE PRESET SUBROUTINES (LEVEL 2). 02569 M00S02398.tfm +++| BPB SPACE 4,10 02570 M00S02399.tfm +++|** BPB - BUILD PARAMETER BLOCK. 02571 M00S02400.tfm +++|* 02572 M00S02401.tfm +++|* BUILDS A PARAMETER BLOCK FROM CONTROL POINT 02573 M00S02402.tfm +++|* VALUES AND THE FET. 02574 M00S02403.tfm +++|* 02575 M00S02404.tfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 02576 M00S02405.tfm +++|* 02577 M00S02406.tfm +++|* EXIT (PBUN - PBUN+4) = ACCESS USERNAME. 02578 M00S02407.tfm +++|* (PCHG - PCHG+4) = CHARGE NUMBER. 02579 M00S02408.tfm +++|* (PPRJ - PPRJ+12B) = PROJECT NUMBER. 02580 M00S02409.tfm +++|* (PBUF - PBUF+55B) = FET PARAMETERS. 02581 M00S02410.tfm +++|* 02582 M00S02411.tfm +++|* USES CM - CM+4, T1, T2. 02583 M00S02412.tfm +++|* 02584 M00S02413.tfm +++|* CALLS CCS. 02585 M00S02414.tfm +++|* 02586 M00S02415.tfm +++|* MACROS CLEAR, LDA. 02587 M00S02416.tfm +++| 02588 M00S02417.tfm +++| 02589 M00S02418.tfm +++| BPB SUBR ENTRY/EXIT 02590 M00S02419.tfm +++| LDA IR+3,REL SET PARAMETER BLOCK WORD COUNT 02591 M00S02420.tfm +++| ADN 1 02592 M00S02421.tfm +++| CRD CM 02593 M00S02422.tfm +++| LDD CM+3 02594 M00S02423.tfm +++| SHN -6 02595 M00S02424.tfm +++| SBN TFFP-5 02596 M00S02425.tfm +++| ZJN BPBX IF NO FET PARAMETER BLOCK 02597 M00S02426.tfm +++| MJN BPBX IF NO FET PARAMETER BLOCK 02598 M00S02427.tfm +++| STD T1 02599 M00S02428.tfm +++| SBN TFPL+1 02600 M00S02429.tfm +++| MJN BPB1 IF FET LENGTH .LT. MAXIMUM 02601 M00S02430.tfm +++| LDN TFPL SET FET PARAMETER LENGTH 02602 M00S02431.tfm +++| STD T1 02603 M00S02432.tfm +++| BPB1 LDA IR+3,REL GET FET PARAMETER BLOCK 02604 M00S02433.tfm +++| CRD CM 02605 M00S02434.tfm +++| ADN TFFP 02606 M00S02435.tfm +++| CRM PBUF,T1 02607 M00S02436.tfm +++| LDA PAUN+3,ABS SAVE TAPE MANAGER OPTIONS 02608 M00S02437.tfm +++| STM BPBB+1 02609 M00S02438.tfm +++| SHN -14 02610 M00S02439.tfm +++| RAM BPBB 02611 M00S02440.tfm +++| LDM PAUN 02612 M00S02441.tfm +++| ZJN BPB3 IF NOT ALTERNATE USER ACCESS 02613 M00S02442.tfm +++| LDD FC 02614 M00S02443.tfm +++| LMN TCSF
| Line S02444 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02615 M01S02444.nos252 ---| NJN BPB2 IF NOT CONTROL STATEMENT
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02616 M01S00036.nos252 +++| NJN BPB2 IF NOT COMMAND 02617 M00S02445.tfm +++| LDD CM+4 02618 M00S02446.tfm +++| SHN -3 02619 M00S02447.tfm +++| LPN 77 02620 M00S02448.tfm +++| LMN AUDS 02621 M00S02449.tfm +++| NJN BPB3 IF NOT *AUDIT* SUBFUNCTION 02622 M00S02450.tfm +++| BPB2 LDC PAUN SWAP USERNAMES 02623 M00S02451.tfm +++| STM BPBA 02624 M00S02452.tfm +++| MMOVE PAUN,,PBUN,,UNKL 02625 M00S02453.tfm +++| BPB3 LDD CP CHECK FOR SSJ= JOB 02626 M00S02454.tfm +++| ADC SEPW 02627 M00S02455.tfm +++| CRD CM 02628 M00S02456.tfm +++| LDD CM 02629 M00S02457.tfm +++| SHN 21-2 02630 M00S02458.tfm +++| PJN BPB4 IF NOT SSJ= JOB 02631 M00S02459.tfm +++| LDA CM+3 CHECK FOR SSJ= BLOCK 02632 M00S02460.tfm +++| ZJN BPB4 IF NO SSJ= BLOCK 02633 M00S02461.tfm +++| LDA CM+3,REL GET USERNAME FROM SSJ= BLOCK 02634 M00S02462.tfm +++| ADN /SSJ/UIDS 02635 M00S02463.tfm +++| UJN BPB5 SET USERNAME 02636 M00S02464.tfm +++| 02637 M00S02465.tfm +++| BPB4 LDD CP GET USERNAME FROM CONTROL POINT 02638 M00S02466.tfm +++| ADN UIDW 02639 M00S02467.tfm +++| BPB5 CRM PBUN,ON SET USERNAME 02640 M00S02468.tfm +++| BPBA EQU *-1 (PAUN IF ALTERNATE USER) 02641 M00S02469.tfm +++| LDM PAUN+3 SET TAPE MANAGER OPTIONS. 02642 M00S02470.tfm +++| SCN 77 02643 M00S02471.tfm +++| STM PAUN+3 02644 M00S02472.tfm +++| LDC ** 02645 M00S02473.tfm +++| BPBB EQU *-2 (TO=OPTIONS FROM FET) 02646 M00S02474.tfm +++| STM PBTO+1 02647 M00S02475.tfm +++| SHN -14 02648 M00S02476.tfm +++| RAM PBTO 02649 M00S02477.tfm +++| COMPARE PBUN,,PAUN,,UNKL 02650 M00S02478.tfm +++| NJN BPB6 IF NOT USERS CATALOG 02651 M00S02479.tfm +++| CLEAR PAUN,,UNKL 02652 M00S02480.tfm +++| LDC PBUN USERNAME IN PBUN 02653 M00S02481.tfm +++| STM BPBA 02654 M00S02482.tfm +++| BPB6 LJM BPBX RETURN 02655 M00S02483.tfm +++| AFC SPACE 4,10 02656 M00S02484.tfm +++|** AFC - ACCESS FAMILY TAPE CATALOG. 02657 M00S02485.tfm +++|* 02658 M00S02486.tfm +++|* ENTRY (FO) = 0. 02659 M00S02487.tfm +++|* (FN - FN+4) = FNT ENTRY IF LOCAL FILE MODE. 02660 M00S02488.tfm +++|* 02661 M00S02489.tfm +++|* EXIT (A) = 0 IF CATALOG ATTACHED. 02662 M00S02490.tfm +++|* (A) .NE. 0 IF CATALOG BUSY. 02663 M00S02491.tfm +++|* (FO) = GLOBAL FNT ORDINAL OR NFL ADDRESS OF CATALOG. 02664 M00S02492.tfm +++|* SYSTEM BLOCK READ TO BUF0 BUFFER IF CATALOG ATTACHED. 02665 M00S02493.tfm +++|* 02666 M00S02494.tfm +++|* USES BA, CM - CM+4, FO, FN - FN+4, RI - RI+1, T1, T5 - T5+4. 02667 M00S02495.tfm +++|* 02668 M00S02496.tfm +++|* CALLS AFA, ARF, FAT, GIB, IRA, MBP, SAF, SFB, UTR. 02669 M00S02497.tfm +++|* 02670 M00S02498.tfm +++|* MACROS ERROR, MMOVE, SAVEP. 02671 M00S02499.tfm +++| 02672 M00S02500.tfm +++| 02673 M00S02501.tfm +++| AFC SUBR ENTRY/EXIT 02674 M00S02502.tfm +++| LDM TFMC 02675 M00S02503.tfm +++| LPN 77 02676 M00S02504.tfm +++| LMN /PFM/PTLM 02677 M00S02505.tfm +++| NJN AFC3 IF NOT LOCAL FILE MODE 02678 M00S02506.tfm +++| RJM SAF SEARCH FOR ASSIGNED FILE 02679 M00S02507.tfm +++| LDD FA SET NFL ADDRESS 02680 M00S02508.tfm +++| ZJN AFC1 IF FILE NOT FOUND 02681 M00S02509.tfm +++| STD FO SET FILE ADDRESS 02682 M00S02510.tfm +++| RJM SFB SET FILE BUSY 02683 M00S02511.tfm +++| ZJP AFC4 IF FILE SET BUSY 02684 M00S02512.tfm +++| LMN 2 02685 M00S02513.tfm +++| ZJN AFC1 IF NAME COMPARE ERROR 02686 M00S02514.tfm +++| ERROR IOS *I/O SEQUENCE ERROR ON CATALOG.* 02687 M00S02515.tfm +++| 02688 M00S02516.tfm +++| AFC1 ERROR CNF *CATALOG NOT FOUND.* 02689 M00S02517.tfm +++| 02690 M00S02518.tfm +++| AFC2 ERROR FCE *(FAMILY) CATALOG ERROR.* 02691 M00S02519.tfm +++| 02692 M00S02520.tfm +++| AFC3 MMOVE AFCA,,CM,,PFKL SET CATALOG NAME 02693 M00S02521.tfm +++| MMOVE PFAM,,FN,,PFKL SET FAMILY NAME 02694 M00S02522.tfm +++| RJM FAT SEARCH FOR FAST ATTACH FILE 02695 M00S02523.tfm +++| NJN AFC1 IF FILE NOT FOUND 02696 M00S02524.tfm +++| LDD T1 SET GLOBAL FNT ORDINAL 02697 M00S02525.tfm +++| STD FO 02698 M00S02526.tfm +++| LDM TFMC SET FILE ACCESS MODE 02699 M00S02527.tfm +++| LPN 77 02700 M00S02528.tfm +++| STD T2
| Line S02529 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 02701 M01S02529.t2807 ---| LDN AFAS ATTACH CATALOG FILE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 02702 M01S00004.t2807 +++| LDN /COMSCPS/AFAS ATTACH CATALOG FILE 02703 M00S02530.tfm +++| RJM ARF 02704 M00S02531.tfm +++| RJM UTR UPDATE TRT 02705 M00S02532.tfm +++| AFC4 LDD FO GET FST ADDRESS 02706 M00S02533.tfm +++| RJM AFA 02707 M00S02534.tfm +++| CRD T5 SET EQUIPMENT 02708 M00S02535.tfm +++| RJM IRA INITIALIZE RANDOM ADDRESS PROCESSING 02709 M00S02536.tfm +++| SFA EST,T5 READ EST ENTRY 02710 M00S02537.tfm +++| CRD CM 02711 M00S02538.tfm +++| LDD CM+4 READ MACHINE INDEX 02712 M00S02539.tfm +++| SHN 3 02713 M00S02540.tfm +++| ADN DULL 02714 M00S02541.tfm +++| CRD CM 02715 M00S02542.tfm +++| LDD CM+2 SET MACHINE INDEX-1 02716 M00S02543.tfm +++| LPN 17 02717 M00S02544.tfm +++| STM CDMX 02718 M00S02545.tfm +++| LDC BUF0 READ SYSTEM BLOCK 02719 M00S02546.tfm +++| STD BA 02720 M00S02547.tfm +++| LDN TMSB 02721 M00S02548.tfm +++| STD RI+1 02722 M00S02549.tfm +++| SHN -14 02723 M00S02550.tfm +++| STD RI 02724 M00S02551.tfm +++| RJM GIB GET INITIAL BLOCK (SYSTEM BLOCK) 02725 M00S02552.tfm +++| LDN 6 COUNT = 1 CM WORD + 2 HEADER BYTES - 1 02726 M00S02553.tfm +++| STD T1 02727 M00S02554.tfm +++| AFC5 LDM BUF0,T1 02728 M00S02555.tfm +++| LMM AFCB,T1 02729 M00S02556.tfm +++| NJP AFC2 IF NOT SYSTEM BLOCK 02730 M00S02557.tfm +++| SOD T1 02731 M00S02558.tfm +++| PJN AFC5 IF MORE TO COMPARE 02732 M00S02559.tfm +++| LDM CWFE,BA 02733 M00S02560.tfm +++| RJM MBP MOVE BUFFER POINTER 02734 M00S02561.tfm +++| SAVEP CPSB SAVE BUFFER POINTERS 02735 M00S02562.tfm +++| LDN 0 SET NO ERROR 02736 M00S02563.tfm +++| LJM AFCX RETURN 02737 M00S02564.tfm +++| 02738 M00S02565.tfm +++| AFCA VFD 48D/0L"TMFC" TMS CATALOG NAME 02739 M00S02566.tfm +++| AFCB CON 2 NEXT SECTOR 02740 M00S02567.tfm +++| CON 100 WORD COUNT 02741 M00S02568.tfm +++| CON 0 SYSTEM LEVEL 02742 M00S02569.tfm +++| CON 0 UNUSED WORDS 02743 M00S02570.tfm +++| CON 74 ENTRY LENGTH 02744 M00S02571.tfm +++| CON 1 NUMBER ENTRIES 02745 M00S02572.tfm +++| CON 4 FIRST WORD OF ENTRY 02746 M00S02573.tfm +++| CCP SPACE 4,10 02747 M00S02574.tfm +++|** CCP - CHANGE CONTROL POINT. 02748 M00S02575.tfm +++|*
| Line S02576 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02749 M01S02576.282l826 ---|* ENTRY (A) = FWA OF CP WORD/EJT ORDINAL. 02750 M01S02577.282l826 ---|* FORMAT - 24/0,6/CP*2,18/EJTA,12/EJTO
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02751 M01S00010.282l826 +++|* EXIT (A) = 0 IF CONTROL POINT CHANGED. 02752 M01S00011.282l826 +++|* (A) .NE. 0 IF CONTROL POINT NOT CHANGED. 02753 M00S02578.tfm +++|*
| Line S02579 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02754 M01S02579.282l826 ---|* EXIT (A) = 0 IF CONTROL POINT CHANGED. 02755 M01S02580.282l826 ---|* RA AND FL UPDATED. 02756 M01S02581.282l826 ---|* (A) NOT = 0 IF JOB NOT AT CONTROL POINT. 02757 M01S02582.282l826 ---|* CONTROL POINT CHANGE MADE.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02758 M01S00012.282l826 +++|* USES CM - CM+4, S1 - S1+4, T1 - T5. 02759 M00S02583.tfm +++|*
| Line S02584 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02760 M01S02584.282l826 ---|* USES CM - CM+4, T1 - T6. 02761 M01S02585.282l826 ---|* 02762 M01S02586.282l826 ---|* MACROS DELAY, MONITOR, PAUSE.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02763 M01S00013.282l826 +++|* MACROS MONITOR, UDTRD. 02764 M00S02587.tfm +++| 02765 M00S02588.tfm +++| 02766 M00S02589.tfm +++| CCP SUBR ENTRY/EXIT
| Line S02590 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02767 M01S02590.282l826 ---| STD T1 02768 M01S02591.282l826 ---| CCP1 LDM 2,T1 GET REQUESTED CONTROL POINT 02769 M01S02592.282l826 ---| SHN -7 02770 M01S02593.282l826 ---| LMD TH SET REJECT ON MOVE REQUEST
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02771 M01S00014.282l826 +++| UDTRD S1,/MTX/UVRI,1 GET EJT ORDINAL 02772 M01S00015.282l826 +++| SFA EJT,S1 02773 M01S00016.282l826 +++| ADK JSNE 02774 M01S00017.282l826 +++| CRD CM 02775 M01S00018.282l826 +++| ADK SCHE-JSNE 02776 M01S00019.282l826 +++| CRD T1 02777 M01S00020.282l826 +++| LDD CM+4 02778 M01S00021.282l826 +++| LPC 176 02779 M01S00022.282l826 +++| LMN EXJS*2 02780 M01S00023.282l826 +++| NJN CCPX IF JOB ROLLED OR ROLLING OUT 02781 M01S00024.282l826 +++| LDD T1+3 SET CP NUMBER 02782 M01S00025.282l826 +++| ADK /COMSCPS/ALCS SET ALTERNATE CP OPTION 02783 M00S02594.tfm +++| STD CM+1 02784 M00S02595.tfm +++| MONITOR CCAM CHANGE CONTROL POINT ASSIGNMENT 02785 M00S02596.tfm +++| LDD CM+1 02786 M00S02597.tfm +++| NJN CCPX IF CHANGE NOT MADE
| Line S02598 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02787 M01S02598.282l826 ---| LDM 2,T1 02788 M01S02599.282l826 ---| LPC 7600 02789 M01S02600.282l826 ---| STD CP 02790 M01S02601.282l826 ---| PAUSE VERIFY EJT ORDINAL 02791 M01S02602.282l826 ---| LDD CM+1 02792 M01S02603.282l826 ---| NJP EML IF ERROR FLAG SET AT CONTROL POINT 02793 M00S02604.tfm +++| LDD CP
| Line S02605 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02794 M01S02605.282l826 ---| ADN TFSW
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02795 M01S00026.282l826 +++| ADK TFSW 02796 M00S02606.tfm +++| CRD CM
| Line S02607 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02797 M01S02607.282l826 ---| LDD CM 02798 M01S02608.282l826 ---| LMM 4,T1 02799 M01S02609.282l826 ---| LJM CCPX RETURN
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02800 M01S00027.282l826 +++| LDD CM VERIFY EJT ORDINAL 02801 M01S00028.282l826 +++| LMD S1 02802 M01S00029.282l826 +++| ZJN CCP1 IF CORRECT JOB 02803 M01S00030.282l826 +++| LDK /COMSCPS/ALCS SET RETURN TO MAGNET CP 02804 M01S00031.282l826 +++| STD CM+1 02805 M01S00032.282l826 +++| MONITOR CCAM RETURN TO MAGNET CP 02806 M01S00033.282l826 +++| LDN 1 SET CP NOT CHANGED 02807 M01S00034.282l826 +++| CCP1 LJM CCPX RETURN 02808 M00S02610.tfm +++| CFS SPACE 4,10 02809 M00S02611.tfm +++|** CFS - CHECK FET STATUS. 02810 M00S02612.tfm +++|* 02811 M00S02613.tfm +++|* *CFS* CHECKS THE VALIDITY OF THE FET POINTERS. 02812 M00S02614.tfm +++|* 02813 M00S02615.tfm +++|* ENTRY (A) = MINIMUM FET LENGTH. 02814 M00S02616.tfm +++|* (IR+3 - IR+4) = FET ADDRESS. 02815 M00S02617.tfm +++|* 02816 M00S02618.tfm +++|* EXIT FT - FT+1 = FIRST POINTER. 02817 M00S02619.tfm +++|* IN - IN+1 = IN POINTER. 02818 M00S02620.tfm +++|* OT - OT+1 = OUT POINTER. 02819 M00S02621.tfm +++|* LM - LM+1 = LIMIT POINTER. 02820 M00S02622.tfm +++|* 02821 M00S02623.tfm +++|* USES T0, CM - CM+4. 02822 M00S02624.tfm +++|* 02823 M00S02625.tfm +++|* MACROS LDA. 02824 M00S02626.tfm +++| 02825 M00S02627.tfm +++| 02826 M00S02628.tfm +++| CFS SUBR ENTRY/EXIT 02827 M00S02629.tfm +++| STD S1 02828 M00S02630.tfm +++| LDD IN-3 SAVE OVERLAP WORD 02829 M00S02631.tfm +++| STD T0 02830 M00S02632.tfm +++| LDA IR+3,REL 02831 M00S02633.tfm +++| ADN 4 READ LIMIT 02832 M00S02634.tfm +++| CRD LM-3 02833 M00S02635.tfm +++| SBN 1 READ OUT 02834 M00S02636.tfm +++| CRD OT-3 02835 M00S02637.tfm +++| SBN 1 READ IN 02836 M00S02638.tfm +++| CRD IN-3 02837 M00S02639.tfm +++| SBN 1 READ FIRST 02838 M00S02640.tfm +++| CRD T1 02839 M00S02641.tfm +++| SBN 1 02840 M00S02642.tfm +++| CRD CM 02841 M00S02643.tfm +++| LDD CM+4 02842 M00S02644.tfm +++| SHN 21-0 02843 M00S02645.tfm +++| MJN CFS1 IF FET COMPLETE 02844 M00S02646.tfm +++| LDD CM+3 CHECK LAST STATUS 02845 M00S02647.tfm +++| LPN 77 02846 M00S02648.tfm +++| SHN 14 02847 M00S02649.tfm +++| LMD CM+4 02848 M00S02650.tfm +++| SHN -11 02849 M00S02651.tfm +++| NJN CFS1 IF ERRORS ON PREVIOUS OPERATION 02850 M00S02652.tfm +++| LDD T0 RESTORE OVERLAP WORD 02851 M00S02653.tfm +++| STD IN-3 02852 M00S02654.tfm +++| LDD S1 02853 M00S02655.tfm +++| SHN 21-13 02854 M00S02656.tfm +++| MJP CFSX IF NOT CHECKING BUFFER POINTERS 02855 M00S02657.tfm +++| LDD T1+3 SET FIRST 02856 M00S02658.tfm +++| LPN 77 02857 M00S02659.tfm +++| STD FT 02858 M00S02660.tfm +++| LDD T1+4 02859 M00S02661.tfm +++| STD FT+1 02860 M00S02662.tfm +++| LDD LM CHECK LIMIT 02861 M00S02663.tfm +++| LPN 37 02862 M00S02664.tfm +++| STD LM 02863 M00S02665.tfm +++| SHN 14 02864 M00S02666.tfm +++| LMD LM+1 02865 M00S02667.tfm +++| SBN 1 02866 M00S02668.tfm +++| SHN -6 02867 M00S02669.tfm +++| SBD FL 02868 M00S02670.tfm +++| MJN CFS2 IF LIMIT .LT. FL 02869 M00S02671.tfm +++| CFS1 ERROR BAE *BUFFER ARGUMENT ERROR.* 02870 M00S02672.tfm +++| 02871 M00S02673.tfm +++| CFS2 LDD OT CHECK OUT 02872 M00S02674.tfm +++| LPN 37 02873 M00S02675.tfm +++| STD OT 02874 M00S02676.tfm +++| SBD LM 02875 M00S02677.tfm +++| SHN 14 02876 M00S02678.tfm +++| ADD OT+1 02877 M00S02679.tfm +++| SBD LM+1 02878 M00S02680.tfm +++| PJN CFS1 IF OUT .GE. LIMIT 02879 M00S02681.tfm +++| LDD IN CHECK IN 02880 M00S02682.tfm +++| LPN 37 02881 M00S02683.tfm +++| STD IN 02882 M00S02684.tfm +++| SBD LM 02883 M00S02685.tfm +++| SHN 14 02884 M00S02686.tfm +++| ADD IN+1 02885 M00S02687.tfm +++| SBD LM+1 02886 M00S02688.tfm +++| PJN CFS1 IF IN .GE. LIMIT 02887 M00S02689.tfm +++| LDD OT CHECK OUT 02888 M00S02690.tfm +++| SBD FT 02889 M00S02691.tfm +++| SHN 14 02890 M00S02692.tfm +++| ADD OT+1 02891 M00S02693.tfm +++| SBD FT+1 02892 M00S02694.tfm +++| MJN CFS1 IF OUT .LT. FIRST 02893 M00S02695.tfm +++| LDD IN CHECK IN 02894 M00S02696.tfm +++| SBD FT 02895 M00S02697.tfm +++| SHN 14 02896 M00S02698.tfm +++| ADD IN+1 02897 M00S02699.tfm +++| SBD FT+1 02898 M00S02700.tfm +++| MJN CFS1 IF IN .LT. FIRST 02899 M00S02701.tfm +++| LJM CFSX RETURN
| Line S02702 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02900 M01S02702.282l826 ---| FUJ SPACE 4,10 02901 M01S02703.282l826 ---|** FUJ - FIND USER JOB. 02902 M01S02704.282l826 ---|* 02903 M01S02705.282l826 ---|* THE SUBROUTINE IS ONLY USED FOR *MAGNET* RA+1 02904 M01S02706.282l826 ---|* REQUESTS. IT IS USED TO DETERMINE IF THE USERS 02905 M01S02707.282l826 ---|* JOB IS STILL AT THE CONTROL POINT INDICATED IN 02906 M01S02708.282l826 ---|* THE UDT, AT ANOTHER CONTROL POINT, OR ROLLED 02907 M01S02709.282l826 ---|* OUT. 02908 M01S02710.282l826 ---|* 02909 M01S02711.282l826 ---|* EXIT (A) = CPN*2, IF JOB ASSIGNED 02910 M01S02712.282l826 ---|* (A) = 0 IF JOB NOT FOUND OR ROLLING. 02911 M01S02713.282l826 ---|* (S1 - S1+4) = UJID FROM UDT. 02912 M01S02714.282l826 ---|* (UJID) IN IN UDT UPDATED. 02913 M01S02715.282l826 ---|* 02914 M01S02716.282l826 ---|* USES CM - CM+4, S1 - S1+4, T1 -T6. 02915 M01S02717.282l826 ---|* 02916 M01S02718.282l826 ---|* MACROS UDTRD. 02917 M01S02719.282l826 ---| 02918 M01S02720.282l826 ---| 02919 M01S02721.282l826 ---| FUJ3 LDD S1+2 (A) = CPN * 2 02920 M01S02722.282l826 ---| SHN -6 02921 M01S02723.282l826 ---| 02922 M01S02724.282l826 ---| FUJ SUBR ENTRY/EXIT 02923 M01S02725.282l826 ---| UDTRD S1,/MTX/UJID,1 02924 M01S02726.282l826 ---| LDD S1+4 02925 M01S02727.282l826 ---| ZJN FUJX IF NO JOB 02926 M01S02728.282l826 ---| LDN NCPL SET NUMBER OF CONTROL POINTS 02927 M01S02729.282l826 ---| CRD CM 02928 M01S02730.282l826 ---| AOD CM+1 02929 M01S02731.282l826 ---| STD T1 02930 M01S02732.282l826 ---| LDD S1+2 02931 M01S02733.282l826 ---| SCN 77 02932 M01S02734.282l826 ---| NJN FUJ2 IF ASSIGNED TO A CONTROL POINT 02933 M01S02735.282l826 ---| FUJ1 LDD S1+2 CLEAR CONTROL POINT NUMBER 02934 M01S02736.282l826 ---| LPN 77 02935 M01S02737.282l826 ---| STD S1+2 02936 M01S02738.282l826 ---| SOD T1 02937 M01S02739.282l826 ---| ZJP FUJX IF END OF CONTROL POINTS 02938 M01S02740.282l826 ---| SHN 7 REPLACE CONTROL POINT NUMBER 02939 M01S02741.282l826 ---| RAD S1+2 02940 M01S02742.282l826 ---| SCN 77 02941 M01S02743.282l826 ---| FUJ2 ADN STSW GET ROLLOUT STATUS 02942 M01S02744.282l826 ---| CRD T2 02943 M01S02745.282l826 ---| ADN TFSW-STSW GET EJT ORDINAL 02944 M01S02746.282l826 ---| CRD CM 02945 M01S02747.282l826 ---| LDD CM 02946 M01S02748.282l826 ---| LMD S1+4 02947 M01S02749.282l826 ---| NJP FUJ1 IF NOT THE SAME JOB 02948 M01S02750.282l826 ---| LDD T2+2 02949 M01S02751.282l826 ---| ZJP FUJ3 IF JOB NOT ROLLABLE 02950 M01S02752.282l826 ---| UDTWT S1,/MTX/UJID,1 SET CONTROL POINT NUMBER IN UDT 02951 M01S02753.282l826 ---| LDN 1 02952 M01S02754.282l826 ---| STD T1 02953 M01S02755.282l826 ---| UJP FUJ1 CLEAR CONTROL POINT NUMBER 02954 M00S02756.tfm +++| GUO SPACE 4,10 02955 M00S02757.tfm +++|** GUO - GET USER OPTIONS FROM UDT. 02956 M00S02758.tfm +++|* 02957 M00S02759.tfm +++|* *GUO* IS USED TO OBTAIN THE USER OPTIONS, INSURING 02958 M00S02760.tfm +++|* THE PHYSICAL TAPE ATTRIBUTES IN THE CATALOG MATCH 02959 M00S02761.tfm +++|* HOW THE TAPE WAS WRITTEN. THIS IS NECESSARY IF 02960 M00S02762.tfm +++|* THE USER REQUESTS A TAPE FILE WITH THE TO=D 02961 M00S02763.tfm +++|* OPTION AND WRITES TO A EXISTING TAPE FILE. 02962 M00S02764.tfm +++|* 02963 M00S02765.tfm +++|* ENTRY (UDTA) = UDT ADDRESS. 02964 M00S02766.tfm +++|* 02965 M00S02767.tfm +++|* 02966 M00S02768.tfm +++|* USES CM - CM+4, FN - FN+4, S1 - S1+4, 02967 M00S02769.tfm +++|* S2 - S2+4, S3 - S3+4. 02968 M00S02770.tfm +++|* 02969 M00S02771.tfm +++|* MACROS LDA, MMOVE, UDTRD. 02970 M00S02772.tfm +++| 02971 M00S02773.tfm +++| 02972 M00S02774.tfm +++| GUO SUBR ENTRY/EXIT 02973 M00S02775.tfm +++| UDTRD S1,/MTX/UST1,4 02974 M00S02776.tfm +++| LDD S1+4 GET RING STATUS 02975 M00S02777.tfm +++| SHN 4-7 02976 M00S02778.tfm +++| LPN 1S4 02977 M00S02779.tfm +++| STM PFTD+1
| Line S02780 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02978 M01S02780.274l797 ---| LDD S1+1 SET TRACK TYPE 02979 M01S02781.274l797 ---| LPN 1 02980 M01S02782.274l797 ---| SHN 10-0 02981 M01S02783.274l797 ---| STM PFTD
| Line S02784 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02982 M01S02784.282l826 ---| LDD S2+4 SET LABEL TYPE 02983 M01S02785.282l826 ---| LPC 6000 02984 M01S02786.282l826 ---| SHN 12-13+22
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02985 M01S00035.282l826 +++| LDD FN 02986 M01S00036.282l826 +++| LPC 3777 SET TAPE DESCRITPTORS
| Line S02787 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02987 M01S02787.274l797 ---| RAM PFTD
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 02988 M01S00013.274l797 +++| STM PFTD
| Line S02788 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02989 M01S02788.282l826 ---| LDD S3+4 SET CONVERSION MODE 02990 M01S02789.282l826 ---| LPN 7 02991 M01S02790.282l826 ---| RAM PFTD 02992 M01S02791.282l826 ---| LDD S3+4 SET TAPE DENSITY 02993 M01S02792.282l826 ---| SHN -3 02994 M01S02793.282l826 ---| LPN 70 02995 M01S02794.282l826 ---| RAM PFTD 02996 M01S02795.282l826 ---| LDD FN+3 SET FORMAT AND NOISE
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02997 M01S00037.282l826 +++| LDD FN+2 SET FORMAT AND NOISE 02998 M00S02796.tfm +++| STM PFTD+2
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02999 M02S00014.282l826 ---| UDTRD CM,/MTX/UJID,1 03000 M02S00015.282l826 ---| LDD CM SET TAPE DEVICE TYPE 03001 M02S00016.282l826 ---| LPC 600 03002 M02S00017.282l826 ---| RAM PFTD 03003 M00S02797.tfm +++| UDTRD CM,/MTX/UFSN,1 03004 M00S02798.tfm +++| LDA CM+3,ABS SET FILE SECTION NUMBER 03005 M00S02799.tfm +++| STM PBSN+1 03006 M00S02800.tfm +++| SHN -14 03007 M00S02801.tfm +++| STM PBSN 03008 M00S02802.tfm +++| UDTRD CM,/MTX/USID,1 03009 M00S02803.tfm +++| MMOVE CM,,PBSI,,6 03010 M00S02804.tfm +++| LDD CM+3 SET FILE ACCESSIBILITY 03011 M00S02805.tfm +++| SCN 77 03012 M00S02806.tfm +++| RAM PBFA 03013 M00S02807.tfm +++| UDTRD CM,/MTX/UGNU,1 03014 M00S02808.tfm +++| LDA CM+3,ABS SET GENERATION NUMBER 03015 M00S02809.tfm +++| STM PBGN+1 03016 M00S02810.tfm +++| SHN -14 03017 M00S02811.tfm +++| LPN 3 03018 M00S02812.tfm +++| STM PBGN 03019 M00S02813.tfm +++| LDD CM+3 SET VERSION NUMBER 03020 M00S02814.tfm +++| SCN 77 03021 M00S02815.tfm +++| SHN 6 03022 M00S02816.tfm +++| LMD CM+2 03023 M00S02817.tfm +++| SHN 11 03024 M00S02818.tfm +++| SCN 7 03025 M00S02819.tfm +++| RAM PBVN 03026 M00S02820.tfm +++| LJM GUOX RETURN 03027 M00S02821.tfm +++| SFN SPACE 4,10 03028 M00S02822.tfm +++|** SFN - SET FAMILY NAME. 03029 M00S02823.tfm +++|* 03030 M00S02824.tfm +++|* *SFN* SETS THE FAMILY NAME FROM THE *MST*, 03031 M00S02825.tfm +++|* OR FROM THE UDT IF CALLED BY *MAGNET*. 03032 M00S02826.tfm +++|* 03033 M00S02827.tfm +++|* ENTRY (FC) = FUNCTION CODE. 03034 M00S02828.tfm +++|* 03035 M00S02829.tfm +++|* EXIT (PFAM - PFAM+3) = FAMILY NAME 03036 M00S02830.tfm +++|* 03037 M00S02831.tfm +++|* USES CM - CM+4. 03038 M00S02832.tfm +++|* 03039 M00S02833.tfm +++|* MACROS UDTRD. 03040 M00S02834.tfm +++| 03041 M00S02835.tfm +++| SFN SUBR ENTRY/EXIT 03042 M00S02836.tfm +++| LDD FC CHECK FOR *MAGNET* CALL 03043 M00S02837.tfm +++| LMN MAGF 03044 M00S02838.tfm +++| NJN SFN1 IF NOT CALLED BY *MAGNET* 03045 M00S02839.tfm +++| UDTRD CM,/MTX/UUFN,1 03046 M00S02840.tfm +++| LDD CM+3 03047 M00S02841.tfm +++| LPN 77 03048 M00S02842.tfm +++| STD CM+3 03049 M00S02843.tfm +++| LDC FOTP READ *FOT* POINTER 03050 M00S02844.tfm +++| CRD FN 03051 M00S02845.tfm +++| LDD FN READ FWA OF *FOT* 03052 M00S02846.tfm +++| SHN 14 03053 M00S02847.tfm +++| LMD FN+1 03054 M00S02848.tfm +++| ADD CM+3 03055 M00S02849.tfm +++| UJN SFN2 READ FAMILY NAME 03056 M00S02850.tfm +++| 03057 M00S02851.tfm +++| SFN1 LDD CP GET FAMILY EQUIPMENT 03058 M00S02852.tfm +++| ADN PFCW 03059 M00S02853.tfm +++| CRD CM 03060 M00S02854.tfm +++| SFA EST,CM+3 READ EST ENTRY 03061 M00S02855.tfm +++| CRD CM 03062 M00S02856.tfm +++| LDD CM+4 GET FAMILY NAME 03063 M00S02857.tfm +++| SHN 3 03064 M00S02858.tfm +++| ADN PFGL 03065 M00S02859.tfm +++| SFN2 CRM PFAM,ON 03066 M00S02860.tfm +++| LDM PFAM+3 03067 M00S02861.tfm +++| SCN 77 03068 M00S02862.tfm +++| STM PFAM+3 03069 M00S02863.tfm +++| LDN 0 03070 M00S02864.tfm +++| STM PFAM+4 03071 M00S02865.tfm +++| LJM SFNX RETURN 03072 M00S02866.tfm +++| SUL SPACE 4,10 03073 M00S02867.tfm +++|** SUL - SET UDT ADDRESS FROM LOCAL FILE. 03074 M00S02868.tfm +++|* 03075 M00S02869.tfm +++|* SETS THE RELATIVE UDT ADDRESS FROM THE 03076 M00S02870.tfm +++|* FST ENTRY OF A ASSIGNED MAGNETIC TAPE 03077 M00S02871.tfm +++|* FILE AND UPDATES THE ASSIGNMENT FET WITH 03078 M00S02872.tfm +++|* THE PARAMETERS FROM THE UDT. 03079 M00S02873.tfm +++|* 03080 M00S02874.tfm +++|* ENTRY (IR+3 - IR+4) FET ADDRESS. 03081 M00S02875.tfm +++|* 03082 M00S02876.tfm +++|* EXIT (UDTA) = UDT ADDRESS IF ASSIGNED 03083 M00S02877.tfm +++|* MAGNETIC TAPE FILE. 03084 M00S02878.tfm +++|* 03085 M00S02879.tfm +++|* PARAMETER BLOCK UPDATED. 03086 M00S02880.tfm +++|* 03087 M00S02881.tfm +++|* TO *EML* IF NON-SYMBOLIC FILE. 03088 M00S02882.tfm +++|* 03089 M00S02883.tfm +++|* USES CM - CM+4, CN - CN+4. 03090 M00S02884.tfm +++|* 03091 M00S02885.tfm +++|* CALLS GUO, SAF. 03092 M00S02886.tfm +++|* 03093 M00S02887.tfm +++|* MACROS ERROR, LDA, MMOVE, UDTRD. 03094 M00S02888.tfm +++| 03095 M00S02889.tfm +++| 03096 M00S02890.tfm +++| SUL SUBR ENTRY/EXIT 03097 M00S02891.tfm +++| LDA IR+3,REL SET FILE NAME 03098 M00S02892.tfm +++| CRD FN 03099 M00S02893.tfm +++| LDN 0 NO INITIAL SEARCH ADDRESS 03100 M00S02894.tfm +++| RJM SAF SEARCH FOR ASSIGNED FILE 03101 M00S02895.tfm +++| ZJN SULX IF FILE NOT FOUND 03102 M00S02896.tfm +++| NFA FA,R 03103 M00S02897.tfm +++| ADN FSTL 03104 M00S02898.tfm +++| CRD FS GET FST EST ENTRIES 03105 M00S02899.tfm +++| SFA EST,FS 03106 M00S02900.tfm +++| CRD CM 03107 M00S02901.tfm +++| LDD CM+3 VALIDATE MT/NT EQUIPMENT
| Line S02902 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03108 M01S02902.274l797 ---| LPC 3777 03109 M00S02903.tfm +++| LMC 2RMT 03110 M00S02904.tfm +++| ZJN SUL1 IF 7 TRACK TAPE 03111 M00S02905.tfm +++| LMC 2RNT&2RMT
| Line S02906 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03112 M01S02906.274l797 ---| NJN SULX IF NOT 9 TRACK TAPE
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03113 M01S00018.274l797 +++| ZJN SUL1 IF 9 TRACK TAPE 03114 M01S00019.274l797 +++| LMC 2RCT&2RNT 03115 M01S00020.274l797 +++| ZJN SUL1 IF CTS CARTRIDGE TAPE 03116 M01S00021.274l797 +++| LMC 2RAT&2RCT 03117 M01S00022.274l797 +++| NJP SULX IF NOT ACS CARTRIDGE TAPE 03118 M00S02907.tfm +++| SUL1 LDD FS+1 SET UDT ADDRESS 03119 M00S02908.tfm +++| ZJP SULX IF NO UDT ADDRESS 03120 M00S02909.tfm +++| STM UDTA 03121 M00S02910.tfm +++| LDD CP VALIDATE JOB ASSIGNMENT 03122 M00S02911.tfm +++| ADN TFSW 03123 M00S02912.tfm +++| CRD CN
| Line S02913 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03124 M01S02913.282l826 ---| UDTRD CM,/MTX/UJID,1 03125 M01S02914.282l826 ---| LDD CM+4
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03126 M01S00038.282l826 +++| UDTRD CM,/MTX/UVRI,1 03127 M01S00039.282l826 +++| LDD CM 03128 M00S02915.tfm +++| LMD CN 03129 M00S02916.tfm +++| NJN SUL3 IF NOT EJT ORDINAL 03130 M00S02917.tfm +++| UDTRD UTMS,/MTX/UTMS,1 03131 M00S02918.tfm +++| LDM UTMS+4 03132 M00S02919.tfm +++| SHN 21-13 03133 M00S02920.tfm +++| PJN SUL3 IF NOT A TMS CONTROLLED FILE
| Line S02921 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03134 M01S02921.282l826 ---| UDTRD CM,/MTX/UST2,1 03135 M01S02922.282l826 ---| LDD CM+4 03136 M01S02923.282l826 ---| SHN 21-13
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03137 M01S00040.282l826 +++| UDTRD CM,/MTX/UST4,1 03138 M01S00041.282l826 +++| LDD CM 03139 M01S00042.282l826 +++| SHN 21-12 03140 M00S02924.tfm +++| PJN SUL2 IF UNLABELED FILE
| Line S02925 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03141 M01S02925.282l826 ---| SHN 21-12-21+13
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03142 M01S00043.282l826 +++| SHN 21-11-21+12 03143 M00S02926.tfm +++| PJN SUL4 IF STANDARD LABELS 03144 M00S02927.tfm +++| SUL2 LJM EML EXIT TO MAIN LOOP 03145 M00S02928.tfm +++| 03146 M00S02929.tfm +++| SUL3 ERROR TPI *TMS PROCESSING INHIBITED.* 03147 M00S02930.tfm +++| 03148 M00S02931.tfm +++| SUL4 LDM PFTD UPDATE FET FROM UDT 03149 M00S02932.tfm +++| LPC 4000 03150 M00S02933.tfm +++| STM PFTD 03151 M00S02934.tfm +++| RJM GUO GET USER OPTIONS FROM UDT 03152 M00S02935.tfm +++| LDM UTMS+4 03153 M00S02936.tfm +++| SHN 21-10 03154 M00S02937.tfm +++| PJN SUL2 IF NON-SYMBOLIC ACCESS 03155 M00S02938.tfm +++| LDM PBTO+1 FORCE TMS FILE, SYMBOLIC ACCESS 03156 M00S02939.tfm +++| SCN 24 03157 M00S02940.tfm +++| LMN 24 03158 M00S02941.tfm +++| STM PBTO+1 03159 M00S02942.tfm +++| LJM SULX RETURN 03160 M00S02943.tfm +++| TTB SPACE 4,10 03161 M00S02944.tfm +++|** TTB - TRIM TRAILING BLANKS. 03162 M00S02945.tfm +++|* 03163 M00S02946.tfm +++|* ENTRY (A, 0-11) = ADDRESS OF STRING. 03164 M00S02947.tfm +++|* (A, 12-17)= STRING COUNT. 03165 M00S02948.tfm +++|* 03166 M00S02949.tfm +++|* EXIT TRAILING BLANKS CONVERTED TO BINARY ZERO. 03167 M00S02950.tfm +++|*
| Line S02951 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03168 M01S02951.t2807 ---|* USES T1, T2.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03169 M01S00005.t2807 +++|* USES T0, T1, T2. 03170 M00S02952.tfm +++| 03171 M00S02953.tfm +++| 03172 M00S02954.tfm +++| TTB SUBR ENTRY/EXIT 03173 M00S02955.tfm +++| STD T1 SAVE ADDRESS 03174 M00S02956.tfm +++| SHN -14 03175 M00S02957.tfm +++| STD T2 SAVE CHARACTER COUNT 03176 M00S02958.tfm +++| SHN -1 03177 M00S02959.tfm +++| RAD T1 03178 M00S02960.tfm +++| TTB1 LDD T2 CHECK FOR CHARACTER POSITION 03179 M00S02961.tfm +++| LPN 1 03180 M00S02962.tfm +++| ZJN TTB2 IF EVEN CHARACTER 03181 M00S02963.tfm +++| LDI T1 PRESET ZERO CHARACTER 03182 M00S02964.tfm +++| LPN 77 03183 M00S02965.tfm +++| STD T0 03184 M00S02966.tfm +++| LDI T1 LOAD CHARACTER 03185 M00S02967.tfm +++| SHN -6 03186 M00S02968.tfm +++| UJN TTB3 CHECK CHARACTER 03187 M00S02969.tfm +++| 03188 M00S02970.tfm +++| TTB2 LDI T1 PRESET ZERO CHARACTER 03189 M00S02971.tfm +++| SCN 77 03190 M00S02972.tfm +++| STD T0 03191 M00S02973.tfm +++| LMI T1 LOAD CHARACTER 03192 M00S02974.tfm +++| TTB3 ZJN TTB4 IF ALREADY ZERO 03193 M00S02975.tfm +++| LMN 1R 03194 M00S02976.tfm +++| NJN TTBX IF NOT BLANK
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03195 M01S00006.t2807 +++| LMD T0 RESTORE OTHER CHARACTER 03196 M00S02977.tfm +++| STI T1 03197 M00S02978.tfm +++| TTB4 SOD T2
| Line S02979 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03198 M01S02979.t2807 ---| PJN TTB1 IF MORE TO BLANK
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03199 M01S00007.t2807 +++| LPN 1 03200 M01S00008.t2807 +++| NJN TTB1 IF ODD CHARACTER TO DO 03201 M01S00009.t2807 +++| SOD T1 DECREMENT STRING POINTER 03202 M01S00010.t2807 +++| LDD T2 03203 M01S00011.t2807 +++| NJN TTB1 IF MORE TO BLANK 03204 M00S02980.tfm +++| UJN TTBX RETURN 03205 M00S02981.tfm +++| SPACE 4 03206 M00S02982.tfm +++|*** LEVEL 2 COMMON DECKS. 03207 M00S02983.tfm +++| 03208 M00S02984.tfm +++|*CALL COMPAST 03209 M00S02985.tfm +++|*CALL COMPCRS 03210 M00S02986.tfm +++|*CALL COMPFAT
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03211 M01S00044.282l826 +++| EJT$ EQU 1 ASSEMBLE EJT CODE 03212 M01S00045.282l826 +++|*CALL COMPGFP 03213 M00S02987.tfm +++|*CALL COMPIRA 03214 M00S02988.tfm +++|*CALL COMPSAF 03215 M00S02989.tfm +++|*CALL COMPSFB 03216 M00S02990.tfm +++| SPACE 4 03217 M00S02991.tfm +++| ERRNG BUF0-* BYTES LEFT BEFORE BUFFER OVERFLOW 03218 M00S02992.tfm +++| OVERLAY (ERROR PROCESSING.),OVL1 03219 M00S02993.tfm +++| SPACE 4,10 03220 M00S02994.tfm +++|*** TAPE MANAGER ERROR PROCESSING. 03221 M00S02995.tfm +++|* 03222 M00S02996.tfm +++|*
| Line S02997 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03223 M01S02997.nos252 ---|* CONTROL STATEMENT OR CENTRAL PROGRAM CALLS.
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03224 M01S00037.nos252 +++|* COMMAND OR CENTRAL PROGRAM CALLS. 03225 M00S02998.tfm +++|* 03226 M00S02999.tfm +++|* IF THE ERROR PROCESSING BIT IS SET IN THE FET, TFM 03227 M00S03000.tfm +++|* RETURNS THE ERROR CODE, SETS THE COMPLETE BIT AND ISSUE 03228 M00S03001.tfm +++|* THE DAYFILE MESSAGE. THE ERROR CODE IS RETURNED IN 03229 M00S03002.tfm +++|* WORD 0 OF THE FET BITS 9 - 16. 03230 M00S03003.tfm +++|* 03231 M00S03004.tfm +++|* IF THE ERROR PROCESSING BIT IS NOT SET, A DAYFILE 03232 M00S03005.tfm +++|* MESSAGE IS ISSUED, THE CONTROL POINT ABORTED, AND THE 03233 M00S03006.tfm +++|* PPU IS DROPPED. 03234 M00S03007.tfm +++|* 03235 M00S03008.tfm +++|* IF ERROR RETURN ADDRESS *ERAD* IS SET AND USER IS 03236 M00S03009.tfm +++|* PROCESSING ERRORS, MESSAGE WILL NOT BE ISSUED BUT WILL 03237 M00S03010.tfm +++|* BE RETURNED TO USER AT RA + ERAD. FOUR WORDS MUST 03238 M00S03011.tfm +++|* BE ALLOCATED AT *ERAD* FOR MESSAGE. 03239 M00S03012.tfm +++|* 03240 M00S03013.tfm +++|* IF THE ERROR CONDITION IS ONE THAT THE USER CAN 03241 M00S03014.tfm +++|* ROLLOUT AND WAIT ON, THE ROLLOUT INDICATOR IS 03242 M00S03015.tfm +++|* SET IN WORD 0 OF THE FET, BIT 17, AND THE 03243 M00S03016.tfm +++|* EVENT DESCRIPTION WILL BE SET IN *TERW* IN CP 03244 M00S03017.tfm +++|* AREA SO CALLING PROGRAM MAY ISSUE ROLLOUT IF IT 03245 M00S03018.tfm +++|* DESIRES TO WAIT FOR THE CONDITION TO CLEAR. 03246 M00S03019.tfm +++|* 03247 M00S03020.tfm +++| SPACE 4,10 03248 M00S03021.tfm +++|*** COMMON SYMBOL DEFINITIONS. 03249 M00S03022.tfm +++| 03250 M00S03023.tfm +++| 03251 M00S03024.tfm +++|*CALL COMS1DS 03252 M00S03025.tfm +++| SPACE 4,10 03253 M00S03026.tfm +++|*** DIRECT CELL LOCATIONS. 03254 M00S03027.tfm +++| 03255 M00S03028.tfm +++| 03256 M00S03029.tfm +++| CN EQU S1 -S1+4 SCRATCH WORD (5 LOCATIONS) 03257 M00S03030.tfm +++| EA EQU S2 ERROR MESSAGE ADDRESS 03258 M00S03031.tfm +++| AP EQU S2+1 ASSEMBLY POINTER 03259 M00S03032.tfm +++| HB EQU S2+2 HALF BYTE FLAG 03260 M00S03033.tfm +++| TME SPACE 4,20 03261 M00S03034.tfm +++|** TME - TAPE MANAGER ERROR PROCESSING. 03262 M00S03035.tfm +++|* 03263 M00S03036.tfm +++|* ENTRY (EC) = ERROR CODE. 03264 M00S03037.tfm +++|* (FO) = CATALOG FNT ORDINAL. 03265 M00S03038.tfm +++|* 03266 M00S03039.tfm +++|* USES CM - CM+4, T1 - T2. 03267 M00S03040.tfm +++|* 03268 M00S03041.tfm +++|* CALLS ABT, BEM, IEM, IOE, MMC, PRF, SSE, UEP. 03269 M00S03042.tfm +++|* 03270 M00S03043.tfm +++|* MACROS LDA, MONITOR, MULT3. 03271 M00S03044.tfm +++| 03272 M00S03045.tfm +++| 03273 M00S03046.tfm +++| TME ENTRY OVERLAY ENTRY POINT 03274 M00S03047.tfm +++| LDD CP CHECK DMP= STATUS 03275 M00S03048.tfm +++| ADC SEPW 03276 M00S03049.tfm +++| STD T1 03277 M00S03050.tfm +++| CRD CM 03278 M00S03051.tfm +++| LDD CM 03279 M00S03052.tfm +++| LPN 20 03280 M00S03053.tfm +++| NJN TME1 IF DMP= ENTRY POINT PRESENT 03281 M00S03054.tfm +++| LDN ZERL 03282 M00S03055.tfm +++| CRD CM CLEAR CPU COMMUNICATION WORD 03283 M00S03056.tfm +++| LDD T1 03284 M00S03057.tfm +++| ADN SPCW-SEPW 03285 M00S03058.tfm +++| CWD CM 03286 M00S03059.tfm +++| TME1 MULT3 EC MULTIPLY (ERROR CODE)*3 03287 M00S03060.tfm +++| ADC EMSG-3 OFFSET FOR ERROR CODE 0 03288 M00S03061.tfm +++| STD EA 03289 M00S03062.tfm +++| RJM BEM BUILD ERROR MESSAGE 03290 M00S03063.tfm +++| RJM MMC MOVE TO MAGNET CONTROL POINT 03291 M00S03064.tfm +++| LDI EA 03292 M00S03065.tfm +++| SHN 21-2 03293 M00S03066.tfm +++| MJP TME5 IF UNCONDITIONAL ABORT 03294 M00S03067.tfm +++| LDD FC 03295 M00S03068.tfm +++| LMN MAGF 03296 M00S03069.tfm +++| ZJN TME3 IF CALLED BY *MAGNET* 03297 M00S03070.tfm +++| LDM DFFO 03298 M00S03071.tfm +++| ZJN TME2 IF DEMAND FILE NOT ATTACHED 03299 M00S03072.tfm +++| STD T1 SET FNT ORDINAL 03300 M00S03073.tfm +++| LDN /PFM/PTUP SET MODE 03301 M00S03074.tfm +++| STD T2 03302 M00S03075.tfm +++| LDN RFAS RETURN DEMAND FILE 03303 M00S03076.tfm +++| RJM ARF 03304 M00S03077.tfm +++| TME2 LDA IR+3,REL CHECK USER ERROR PROCESSING FLAG 03305 M00S03078.tfm +++| ADN 1 03306 M00S03079.tfm +++| CRD CM 03307 M00S03080.tfm +++| LDD CM+1 03308 M00S03081.tfm +++| SHN 21-10 03309 M00S03082.tfm +++| PJP TME5 IF USER NOT PROCESSING ERRORS 03310 M00S03083.tfm +++| RJM UEP USER ERROR PROCESSING 03311 M00S03084.tfm +++| LJM TME6 CHECK FOR *TFSPE* CALL 03312 M00S03085.tfm +++| 03313 M00S03086.tfm +++| TME3 LDI EA PROCESS ERRORS FOR *MAGNET* 03314 M00S03087.tfm +++| SHN 21-3 03315 M00S03088.tfm +++| PJP TME5 IF NON-ROLLABLE ERROR 03316 M00S03089.tfm +++| RJM IEM ISSUE ERROR MESSAGE 03317 M00S03090.tfm +++| LDD CP 03318 M00S03091.tfm +++| ADN JCIW 03319 M00S03092.tfm +++| CRD CM 03320 M00S03093.tfm +++| LDD CM+2 03321 M00S03094.tfm +++| NJP TME4 IF JOB NOT ROLLABLE 03322 M00S03095.tfm +++| RJM SSE SET SYSTEM EVENT 03323 M00S03096.tfm +++| LDM UTMS+3 SET WAIT JOB ROLLIN 03324 M00S03097.tfm +++| SCN WUJR 03325 M00S03098.tfm +++| LMN WUJR 03326 M00S03099.tfm +++| STM UTMS+3 03327 M00S03100.tfm +++| LDN ZERL REQUEST ROLLOUT 03328 M00S03101.tfm +++| CRD CM
| Line S03102 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03329 M01S03102.t2807 ---| LDC 4000B+ROTE
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 03330 M01S00012.t2807 +++| LDC 4000B+/COMSCPS/ROTE 03331 M00S03103.tfm +++| STD CM+1 03332 M00S03104.tfm +++| LDD CP 03333 M00S03105.tfm +++| SHN -7 03334 M00S03106.tfm +++| STD CM+2 03335 M00S03107.tfm +++| MONITOR ROCM ROLLOUT CONTROL POINT 03336 M00S03108.tfm +++| TME4 LDM UTMS+4 SET REISSUE REQUEST 03337 M00S03109.tfm +++| SCN RSRR 03338 M00S03110.tfm +++| LMN RSRR 03339 M00S03111.tfm +++| STM UTMS+4 03340 M00S03112.tfm +++| UJN TME6 CHECK FOR *TFSPE* CALL 03341 M00S03113.tfm +++| 03342 M00S03114.tfm +++| TME5 RJM IEM ISSUE ERROR MESSAGES 03343 M00S03115.tfm +++| RJM ABT ABORT USER JOB 03344 M00S03116.tfm +++| TME6 LDM TFMF CHECK FOR OPERATOR NOTIFICATION REQUIRED 03345 M00S03117.tfm +++| SHN 21-3 03346 M00S03118.tfm +++| MJN TME7 IF OPERATOR FLAG SET 03347 M00S03119.tfm +++| LDM TFMC 03348 M00S03120.tfm +++| LPN 77 03349 M00S03121.tfm +++| LMN /PFM/PTLM 03350 M00S03122.tfm +++| ZJN TME10 IF LOCAL FILE MODE 03351 M00S03123.tfm +++| LDI EA 03352 M00S03124.tfm +++| SHN 21-1 03353 M00S03125.tfm +++| PJN TME8 IF NOT CALLING *TFSPE* 03354 M00S03126.tfm +++| TME7 RJM IOE INFORM OPERATOR OF ERROR 03355 M00S03127.tfm +++| TME8 LDI EA CHECK FOR PP HANG 03356 M00S03128.tfm +++| SHN 21-0 03357 M00S03129.tfm +++| PJN TME10 IF NOT HANG CONDITION 03358 M00S03130.tfm +++| LDD FO SET FNT ORDINAL 03359 M00S03131.tfm +++| ZJN TME9 IF CATALOG NOT ATTACHED 03360 M00S03132.tfm +++| STD T1 03361 M00S03133.tfm +++| LDM TFMC SET MODE 03362 M00S03134.tfm +++| LPN 77 03363 M00S03135.tfm +++| STD T2 03364 M00S03136.tfm +++| LDN RFAS RETURN CATALOG 03365 M00S03137.tfm +++| RJM ARF 03366 M00S03138.tfm +++|* LDN 0 CLEAR FNT ORDINAL 03367 M00S03139.tfm +++| STD FO
| Line S03140 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03368 M01S03140.t5472 ---| TME9 MONITOR HNGM HANG PP
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 03369 M01S00003.t5472 +++| TME9 MONITOR CHGM CONDITIONALLY HANG PP 03370 M00S03141.tfm +++| TME10 LJM TMEX RETURN
| Line S03142 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03371 M01S03142.274l797 ---| TITLE ".Y." SUBROUTINES.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03372 M01S00023.274l797 +++| TITLE SUBROUTINES. 03373 M00S03143.tfm +++| ABT SPACE 4,10 03374 M00S03144.tfm +++|** ABT - ABORT USER JOB. 03375 M00S03145.tfm +++|* 03376 M00S03146.tfm +++|* FOR ALL NON-MAGNET REQUESTS, THE FET IS SET 03377 M00S03147.tfm +++|* COMPLETE. FOR MAGNET REQUESTS, THE USER JOB 03378 M00S03148.tfm +++|* ABORT AND FUNCTION COMPLETE FLAGS ARE SET. 03379 M00S03149.tfm +++|* IN ALL CASES THE *PPET* SYSTEM ERROR FLAG 03380 M00S03150.tfm +++|* IS SET FOR THE USER JOB. 03381 M00S03151.tfm +++|* 03382 M00S03152.tfm +++|* USES CM - CM+4. 03383 M00S03153.tfm +++|* 03384 M00S03154.tfm +++|* MACROS MONITOR, UDTRD, UDTWT. 03385 M00S03155.tfm +++| 03386 M00S03156.tfm +++| 03387 M00S03157.tfm +++| ABT1 LDA IR+3,REL SET FET COMPLETE 03388 M00S03158.tfm +++| CRD CM 03389 M00S03159.tfm +++| LDD CM+4 03390 M00S03160.tfm +++| SCN 1 03391 M00S03161.tfm +++| LMN 1 03392 M00S03162.tfm +++| STD CM+4 03393 M00S03163.tfm +++| LDA IR+3,REL 03394 M00S03164.tfm +++| CWD CM 03395 M00S03165.tfm +++| ABT2 LDN ZERL SET ERROR FLAG 03396 M00S03166.tfm +++| CRD CM 03397 M00S03167.tfm +++| LDN PPET 03398 M00S03168.tfm +++| STD CM+1 03399 M00S03169.tfm +++| MONITOR CEFM CHANGE ERROR FLAG 03400 M00S03170.tfm +++| 03401 M00S03171.tfm +++| ABT SUBR ABORT USER JOB 03402 M00S03172.tfm +++| LDD FC CHECK CALLER 03403 M00S03173.tfm +++| LMN MAGF 03404 M00S03174.tfm +++| NJN ABT1 IF NOT CALLED BY *MAGNET* 03405 M00S03175.tfm +++| LDM UTMS+4 SET ABORT USER JOB STATUS 03406 M00S03176.tfm +++| SCN RSAJ 03407 M00S03177.tfm +++| LMN RSAJ 03408 M00S03178.tfm +++| STM UTMS+4 03409 M00S03179.tfm +++| LDD CP 03410 M00S03180.tfm +++| ADN JCIW 03411 M00S03181.tfm +++| CRD CM 03412 M00S03182.tfm +++| LDD CM+2 03413 M00S03183.tfm +++| LMC MTSI 03414 M00S03184.tfm +++| NJN ABT2 IF NOT *MAGNET* CONTROL POINT 03415 M00S03185.tfm +++| UJN ABTX RETURN 03416 M00S03186.tfm +++| BEM SPACE 4,10 03417 M00S03187.tfm +++|** BEM - BUILD ERROR MESSAGE. 03418 M00S03188.tfm +++|* 03419 M00S03189.tfm +++|* ENTRY (EA) = ERROR MESSAGE CONTROL WORD. 03420 M00S03190.tfm +++|* 03421 M00S03191.tfm +++|* EXIT (MBUF) = COMPLETED ERROR MESSAGE. 03422 M00S03192.tfm +++|* 03423 M00S03193.tfm +++|* USES AP, HB. 03424 M00S03194.tfm +++|* 03425 M00S03195.tfm +++|* CALLS EQM, FMM, FNM, LFM, MVM, RAM, UNM, 03426 M00S03196.tfm +++|* VSM. 03427 M00S03197.tfm +++|* 03428 M00S03198.tfm +++| 03429 M00S03199.tfm +++| 03430 M00S03200.tfm +++| BEM SUBR ENTRY/EXIT 03431 M00S03201.tfm +++| LDC MBUF INITIALIZE ASSEMBLY POINTER 03432 M00S03202.tfm +++| STD AP 03433 M00S03203.tfm +++| CLEAR ,AP,MBML*10D 03434 M00S03204.tfm +++| LDN 0 03435 M00S03205.tfm +++| STD HB 03436 M00S03206.tfm +++| LDI EA 03437 M00S03207.tfm +++| SHN 21-13 03438 M00S03208.tfm +++| PJN BEM1 IF NOT EQUIPMENT MESSAGE 03439 M00S03209.tfm +++| RJM EQM BUILD EQUIPMENT MESSAGE 03440 M00S03210.tfm +++| LJM BEM7 COMPLETE ERROR MESSAGE 03441 M00S03211.tfm +++| 03442 M00S03212.tfm +++| BEM1 SHN 21-12-21+13 CHECK FAMILY MESSAGE 03443 M00S03213.tfm +++| PJN BEM2 IF NOT FAMILY NAME MESSAGE 03444 M00S03214.tfm +++| RJM FMM BUILD FAMILY NAME MESSAGE 03445 M00S03215.tfm +++| LJM BEM7 COMPLETE ERROR MESSAGE 03446 M00S03216.tfm +++| 03447 M00S03217.tfm +++| BEM2 SHN 21-11-21+12 CHECK FILE NAME MESSAGE 03448 M00S03218.tfm +++| PJN BEM3 IF NOT FILE NAME MESSAGE 03449 M00S03219.tfm +++| RJM FNM BUILD FILE NAME MESSAGE 03450 M00S03220.tfm +++| UJN BEM7 COMPLETE ERROR MESSAGE 03451 M00S03221.tfm +++| 03452 M00S03222.tfm +++| BEM3 SHN 21-10-21+11 CHECK LOCAL FILE NAME MESSAGE 03453 M00S03223.tfm +++| PJN BEM4 IF NOT LOCAL FILE NAME MESSAGE 03454 M00S03224.tfm +++| RJM LFM BUILD LOCAL FILE NAME MESSAGE 03455 M00S03225.tfm +++| LDI EA 03456 M00S03226.tfm +++| SHN 21-10 03457 M00S03227.tfm +++| BEM4 SHN 21-7-21+10 CHECK VSN MESSAGE 03458 M00S03228.tfm +++| PJN BEM5 IF NOT VSN MESSAGE 03459 M00S03229.tfm +++| RJM VSM BUILD VSN MESSAGE 03460 M00S03230.tfm +++| UJN BEM7 COMPLETE ERROR MESSAGE 03461 M00S03231.tfm +++| 03462 M00S03232.tfm +++| BEM5 SHN 21-6-21+7 CHECK USERNAME MESSAGE 03463 M00S03233.tfm +++| PJN BEM6 IF NOT USERNAME MESSAGE 03464 M00S03234.tfm +++| RJM UNM BUILD USERNAME MESSAGE 03465 M00S03235.tfm +++| UJN BEM7 COMPLETE ERROR MESSAGE 03466 M00S03236.tfm +++| 03467 M00S03237.tfm +++| BEM6 SHN 21-5-21+6 CHECK RANDOM ADDRESS MESSAGE 03468 M00S03238.tfm +++| PJN BEM7 IF NOT RANDOM ADDRESS MESSAGE 03469 M00S03239.tfm +++| RJM RAM BUILD RANDOM ADDRESS MESSAGE 03470 M00S03240.tfm +++| BEM7 LDD EA COMPLETE ERROR MESSAGE 03471 M00S03241.tfm +++| ADN 2 03472 M00S03242.tfm +++| STM BEMA 03473 M00S03243.tfm +++| LDM ** GET MESSAGE ADDRESS 03474 M00S03244.tfm +++| BEMA EQU *-1 (ERROR MESSAGE ADDRESS) 03475 M00S03245.tfm +++| RJM MVM MERGE VARIABLE MESSAGE 03476 M00S03246.tfm +++| LDD HB 03477 M00S03247.tfm +++| ZJN BEM8 IF BYTE FILLED 03478 M00S03248.tfm +++| AOD AP 03479 M00S03249.tfm +++| LDN 0 03480 M00S03250.tfm +++| BEM8 STI AP SET END OF MESSAGE 03481 M00S03251.tfm +++| LJM BEMX RETURN 03482 M00S03252.tfm +++| CSZ SPACE 4,10 03483 M00S03253.tfm +++|** CSZ - CONVERT TRAILING SPACES TO ZEROS. 03484 M00S03254.tfm +++|* 03485 M00S03255.tfm +++|* ENTRY (A) = 6/ CC,12/ ADDR 03486 M00S03256.tfm +++|* WHERE - CC = CHARACTER COUNT. 03487 M00S03257.tfm +++|* ADDR = ADDRESS. 03488 M00S03258.tfm +++|* 03489 M00S03259.tfm +++|* USES T1, T2, T3. 03490 M00S03260.tfm +++| 03491 M00S03261.tfm +++| 03492 M00S03262.tfm +++| CSZ SUBR ENTRY/EXIT 03493 M00S03263.tfm +++| STD T1 03494 M00S03264.tfm +++| SHN -14 03495 M00S03265.tfm +++| ZJN CSZX IF CHARACTER COUNT NOT GIVEN 03496 M00S03266.tfm +++| STD T2 03497 M00S03267.tfm +++| LPN 1 SET HALF BYTE FLAG 03498 M00S03268.tfm +++| STD T3 03499 M00S03269.tfm +++| LDD T2 SET LAST WORD ADDRESS 03500 M00S03270.tfm +++| SHN -1 03501 M00S03271.tfm +++| SBN 1 03502 M00S03272.tfm +++| ADD T3 03503 M00S03273.tfm +++| RAD T1 03504 M00S03274.tfm +++| LDD T3 03505 M00S03275.tfm +++| ZJN CSZ2 IF TERMINATE ON WORD BOUNDARY 03506 M00S03276.tfm +++| CSZ1 LDI T1 CHECK LEFT MOST CHARACTER 03507 M00S03277.tfm +++| SHN -6 03508 M00S03278.tfm +++| LMN 1R 03509 M00S03279.tfm +++| NJN CSZX IF NOT SPACE 03510 M00S03280.tfm +++| LDI T1 03511 M00S03281.tfm +++| LPN 77 03512 M00S03282.tfm +++| STI T1 03513 M00S03283.tfm +++| SOD T1 DECREMENT WORD COUNT 03514 M00S03284.tfm +++| SOD T2 DECREMENT CHARACTER COUNT 03515 M00S03285.tfm +++| ZJN CSZX IF LAST CHARACTER 03516 M00S03286.tfm +++| CSZ2 LDI T1 CHECK RIGHT MOST CHARACTER 03517 M00S03287.tfm +++| LPN 77 03518 M00S03288.tfm +++| LMN 1R 03519 M00S03289.tfm +++| NJN CSZ3 IF NOT SPACE 03520 M00S03290.tfm +++| LDI T1 03521 M00S03291.tfm +++| SCN 77 03522 M00S03292.tfm +++| STI T1 03523 M00S03293.tfm +++| SOD T2 DECREMENT CHARACTER COUNT 03524 M00S03294.tfm +++| NJN CSZ1 IF NOT LAST CHARACTER 03525 M00S03295.tfm +++| CSZ3 LJM CSZX RETURN 03526 M00S03296.tfm +++| EQM SPACE 4,10 03527 M00S03297.tfm +++|** EQM - BUILD EQUIPMENT MESSAGE. 03528 M00S03298.tfm +++|* 03529 M00S03299.tfm +++|* SETS EQUIPMENT AND DEVICE NUMBER IN MESSAGE. 03530 M00S03300.tfm +++|* 03531 M00S03301.tfm +++|* ENTRY (EQ) = EQUIPMENT NUMBER. 03532 M00S03302.tfm +++|* (AP) = ASSEMBLY POINTER. 03533 M00S03303.tfm +++|* 03534 M00S03304.tfm +++|* USES CM - CM+4, T1, CN. 03535 M00S03305.tfm +++|* 03536 M00S03306.tfm +++|* CALLS C2D, MVM. 03537 M00S03307.tfm +++| 03538 M00S03308.tfm +++| 03539 M00S03309.tfm +++| EQM SUBR ENTRY/EXIT 03540 M00S03310.tfm +++| LDD EQ CONVERT UPPER TWO DIGITS OF EST ORDINAL 03541 M00S03311.tfm +++| SHN -3 03542 M00S03312.tfm +++| RJM C2D CONVERT TWO DIGITS 03543 M00S03313.tfm +++| STM EQMA+1 03544 M00S03314.tfm +++| LDD EQ 03545 M00S03315.tfm +++| LPN 7 03546 M00S03316.tfm +++| SHN 6 03547 M00S03317.tfm +++| ADC 2R0, 03548 M00S03318.tfm +++| STM EQMA+2 03549 M00S03319.tfm +++| SFA EST,EQ READ EST ENTRY 03550 M00S03320.tfm +++| CRD CM 03551 M00S03321.tfm +++| LDD CM+3 SET EQUIPMENT TYPE 03552 M00S03322.tfm +++| LPC 3777 03553 M00S03323.tfm +++| STM EQMA 03554 M00S03324.tfm +++| LDD CM+4 READ MST 03555 M00S03325.tfm +++| SHN 3 03556 M00S03326.tfm +++| ADN PFGL 03557 M00S03327.tfm +++| CRD CM 03558 M00S03328.tfm +++| LDD CM+3 SET DEVICE NUMBER 03559 M00S03329.tfm +++| RJM C2D CONVERT TWO DIGITS 03560 M00S03330.tfm +++| SHN -6 03561 M00S03331.tfm +++| LPN 77 03562 M00S03332.tfm +++| STD T1 03563 M00S03333.tfm +++| LDM EQMA+4 03564 M00S03334.tfm +++| SCN 77 03565 M00S03335.tfm +++| ADD T1 03566 M00S03336.tfm +++| STM EQMA+4 03567 M00S03337.tfm +++| LDD CM+3 03568 M00S03338.tfm +++| LPN 7 03569 M00S03339.tfm +++| SHN 6 03570 M00S03340.tfm +++| ADC 2R0, 03571 M00S03341.tfm +++| STM EQMA+5 03572 M00S03342.tfm +++| LDC EQMA 03573 M00S03343.tfm +++| RJM MVM MERGE VARIABLE MESSAGE 03574 M00S03344.tfm +++| LJM EQMX RETURN 03575 M00S03345.tfm +++| 03576 M00S03346.tfm +++| EQMA DATA C*EQXXX, DNYY,* 03577 M00S03347.tfm +++| FMM SPACE 4,10 03578 M00S03348.tfm +++|** FMM - BUILD FAMILY NAME MESSAGE. 03579 M00S03349.tfm +++|* 03580 M00S03350.tfm +++|* SETS FAMILY NAME IN MESSAGE. 03581 M00S03351.tfm +++|* 03582 M00S03352.tfm +++|* ENTRY (PFAM - PFAM+3) = FAMILY NAME. 03583 M00S03353.tfm +++|* 03584 M00S03354.tfm +++|* CALLS MVM. 03585 M00S03355.tfm +++|* 03586 M00S03356.tfm +++| 03587 M00S03357.tfm +++| 03588 M00S03358.tfm +++| FMM SUBR ENTRY/EXIT 03589 M00S03359.tfm +++| LDM PFAM+3 INSURE END OF FAMILY NAME 03590 M00S03360.tfm +++| SCN 77 03591 M00S03361.tfm +++| STM PFAM+3 03592 M00S03362.tfm +++| LDC PFAM 03593 M00S03363.tfm +++| RJM MVM MOVE VARIABLE MESSAGE 03594 M00S03364.tfm +++| UJN FMMX RETURN 03595 M00S03365.tfm +++| FNM SPACE 4,10 03596 M00S03366.tfm +++|** FNM - BUILD FILENAME MESSAGE. 03597 M00S03367.tfm +++|* 03598 M00S03368.tfm +++|* SETS FILENAME IF MESSAGE. 03599 M00S03369.tfm +++|* 03600 M00S03370.tfm +++|* ENTRY (EC) = ERROR CODE. 03601 M00S03371.tfm +++|* (POFI - POFI+8D) = OLD FILE NAME. 03602 M00S03372.tfm +++|* (PNFI - PNFI-8D) = NEW FILE NAME. 03603 M00S03373.tfm +++|* 03604 M00S03374.tfm +++|* CALLS CSZ, MVM. 03605 M00S03375.tfm +++| 03606 M00S03376.tfm +++| 03607 M00S03377.tfm +++| FNM SUBR ENTRY/EXIT 03608 M00S03378.tfm +++| LDC FIKL*10000+POFI 03609 M00S03379.tfm +++| RJM CSZ CONVERT TRAILING SPACES TO ZEROS 03610 M00S03380.tfm +++| LDC POFI 03611 M00S03381.tfm +++| RJM MVM MOVE VARIABLE MESSAGE 03612 M00S03382.tfm +++| UJN FNMX RETURN 03613 M00S03383.tfm +++| IDM SPACE 4,10 03614 M00S03384.tfm +++|** IDM - ISSUE DAYFILE MESSAGE. 03615 M00S03385.tfm +++|* 03616 M00S03386.tfm +++|* ENTRY (A) = DESTINATION CODE/10000. 03617 M00S03387.tfm +++|* 03618 M00S03388.tfm +++|* CALLS DFM. 03619 M00S03389.tfm +++| 03620 M00S03390.tfm +++| 03621 M00S03391.tfm +++| IDM SUBR ENTRY/EXIT 03622 M00S03392.tfm +++| LPN 77 SET MESSAGE DESTINATION 03623 M00S03393.tfm +++| SHN 14 03624 M00S03394.tfm +++| LMC MBUF 03625 M00S03395.tfm +++| RJM DFM ISSUE DAYFILE MESSAGE 03626 M00S03396.tfm +++| UJN IDMX RETURN 03627 M00S03397.tfm +++| IEM SPACE 4,10 03628 M00S03398.tfm +++|** IEM - ISSUE ERROR MESSAGES. 03629 M00S03399.tfm +++|* 03630 M00S03400.tfm +++|* DETERMINES THE DISPOSITION OF THE ERROR MESSAGES. 03631 M00S03401.tfm +++|* 03632 M00S03402.tfm +++|* ENTRY (EA) = FWA OF ERROR MESSAGE CONTROL WORD. 03633 M00S03403.tfm +++|* (CO) = CATALOG FST ORDINAL. 03634 M00S03404.tfm +++|* 03635 M00S03405.tfm +++|* EXIT ALL DAYFILE AND/OR DISPLAY MESSAGES ISSUED. 03636 M00S03406.tfm +++|* 03637 M00S03407.tfm +++|* USES BA, BP, FN - FN+4, HB, T5 - T5+4. 03638 M00S03408.tfm +++|* 03639 M00S03409.tfm +++|* CALLS IDM, MBP, RDS, WDS. 03640 M00S03410.tfm +++|* 03641 M00S03411.tfm +++|* MACROS ENDMS, MMOVE, UDTRD, UDTWT. 03642 M00S03412.tfm +++| 03643 M00S03413.tfm +++| 03644 M00S03414.tfm +++| IEM SUBR ENTRY/EXIT 03645 M00S03415.tfm +++| LDD EA SET DESTINATION CODE ADDRESS 03646 M00S03416.tfm +++| ADN 1 03647 M00S03417.tfm +++| STD HB 03648 M00S03418.tfm +++| LDD FC CHECK CALLER 03649 M00S03419.tfm +++| LMN MAGF 03650 M00S03420.tfm +++| NJP IEM2 IF NOT CALLED BY *MAGNET*
| Line S03421 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03651 M01S03421.282l826 ---| UDTWT MBUF,/MTX/UMB1,4 03652 M01S03422.282l826 ---| LDC SHNI+21 CHECK FOR *E,P* DISPLAY MESSAGE 03653 M01S03423.282l826 ---| SBM UTMS 03654 M01S03424.282l826 ---| STM IEMB 03655 M01S03425.282l826 ---| LDBC (UCES,VMFS,VTLS) 03656 M01S03426.282l826 ---| SHN 21-0 03657 M01S03427.282l826 ---|* SHN 21-(UTMS) 03658 M01S03428.282l826 ---| IEMB EQU *-1 03659 M01S03429.282l826 ---| MJN IEM1 IF NOT TO BE DISPLAYED AT *E,P* 03660 M01S03430.282l826 ---| UDTRD CM,/MTX/UVSN,1 03661 M01S03431.282l826 ---| LDD CM+3 03662 M01S03432.282l826 ---| LPC -171 03663 M01S03433.282l826 ---| LMM /MTX/DMB*10 03664 M01S03434.282l826 ---| STD CM+3 03665 M01S03435.282l826 ---| UDTWT CM,/MTX/UVSN,1 03666 M01S03436.282l826 ---| LDD MC 03667 M01S03437.282l826 ---| ZJN IEM1 IF NOT CONTROL POINT NUMBER 03668 M01S03438.282l826 ---| SHN 7 03669 M01S03439.282l826 ---| SCN 1 03670 M01S03440.282l826 ---| ADN MS2W
| Line S03441 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03671 M02S03441.282l826 ---| CWM IEMA,ON
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03672 M02S00038.282l826 ---| CWM IEMA,TR +$CHECK *TMSDIS,PRE.*+
| Line S03442 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03673 M01S03442.282l826 ---| IEM1 LDD CP CHECK PP ASSIGNMENT
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03674 M01S00046.282l826 +++| UDTWT MBUF,/MTX/UMSG,4 SET MESSAGE IN UDT BUFFER
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/tfm.001.txt · Last modified: by 127.0.0.1