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