Seq # *Modification Id* Act
----------------------------+
01709 M01S01482.ns2685 ---|*** FUNCTION *CDRF* - CHANGE (DM*) FILE TO TYPE *ROFT*.
01710 M01S01483.ns2685 ---|*
01711 M01S01484.ns2685 ---|* THE CALLING PROGRAM MUST BE *RESTART*.
01712 M01S01485.ns2685 ---|* THE NAME IN FET+0 MUST BE (DM*).
01713 M01S01486.ns2685 ---|
01714 M01S01487.ns2685 ---|
01715 M01S01488.ns2685 ---| RFD LDD CP CHECK *RESTART* FLAG
01716 M01S01489.ns2685 ---| ADC SEPW
01717 M01S01490.ns2685 ---| CRD FS
01718 M01S01491.ns2685 ---| LDD FS+2
01719 M01S01492.ns2685 ---| SHN 21-13
01720 M01S01493.ns2685 ---| MJN RFD2 IF CALLING PROGRAM *RESTART*
01721 M01S01494.ns2685 ---| ABORT /MESS/ERIR * SFM INCORRECT REQUEST.*
01722 M01S01495.ns2685 ---|
01723 M01S01496.ns2685 ---| RFD2 RJM SAF SEARCH FOR ASSIGNED FILE
01724 M01S01497.ns2685 ---| NJN RFD3 IF FILE FOUND
01725 M01S01498.ns2685 ---| ABORT /MESS/ERFF * SFM FILE NOT FOUND.*
01726 M01S01499.ns2685 ---|
01727 M01S01500.ns2685 ---| RFD3 RJM CFS CHECK FILE STATUS
01728 M01S01501.ns2685 ---| LDN 0
01729 M01S01502.ns2685 ---| STD CM+2
01730 M01S01503.ns2685 ---| STD CM+3
01731 M01S01504.ns2685 ---| LDD CM+4 SET *ROFT*
01732 M01S01505.ns2685 ---| LPN 77
01733 M01S01506.ns2685 ---| LMC ROFT*100
01734 M01S01507.ns2685 ---| STD CM+4
01735 M01S01508.ns2685 ---| NFA FA,R STORE FNT ENTRY
01736 M01S01509.ns2685 ---| CWD CM
01737 M01S01510.ns2685 ---| LJM SFMX RETURN
01738 M00S01511.sfm +++| GDI SPACE 4,10
01739 M00S01512.sfm +++|*** FUNCTION *GDIF* - GET DEVICE INFORMATION.
01740 M00S01513.sfm +++|*
01741 M00S01514.sfm +++|* COPY DEVICE INFORMATION SECTOR FOR SPECIFIED DEVICE
01742 M00S01515.sfm +++|* INTO CENTRAL BUFFER STARTING AT *FIRST*.
01743 M00S01516.sfm +++|*
01744 M00S01517.sfm +++|* THE CALLING PROGRAM MUST HAVE SYSTEM ORIGIN AND
01745 M00S01518.sfm +++|* AN *SSJ=* ENTRY POINT.
01746 M00S01519.sfm +++|
01747 M00S01520.sfm +++|
01748 M00S01521.sfm +++| GDI BSS 0 ENTRY
01749 M00S01522.sfm +++| LDD HN VALIDATE BUFFER POINTERS
01750 M00S01523.sfm +++| RJM VBP
01751 M00S01524.sfm +++| MJN GDI1 IF DATA FITS IN BUFFER AND IN FL
01752 M00S01525.sfm +++| ABORT /MESS/ERAE * SFM ARGUMENT ERROR.*
01753 M00S01526.sfm +++|
01754 M00S01527.sfm +++| GDI1 RJM GFE READ EST ORDINAL
01755 M00S01528.sfm +++| ADN 7
01756 M00S01529.sfm +++| CRD CM
01757 M00S01530.sfm +++| LDD CM VALIDATE EQUIPMENT
01758 M00S01531.sfm +++| RJM VEQ
01759 M00S01532.sfm +++| RJM RDI READ DEVICE INFORMATION SECTOR
01760 M00S01533.sfm +++| ENDMS
01761 M00S01534.sfm +++| LDD CN+3 WRITE SECTOR TO CENTRAL BUFFER
01762 M00S01535.sfm +++| SHN 6
01763 M00S01536.sfm +++| ADD RA
01764 M00S01537.sfm +++| SHN 6
01765 M00S01538.sfm +++| ADD CN+4
01766 M00S01539.sfm +++| CWM BFMS+2,HN
01767 M00S01540.sfm +++| LDN 0 UPDATE BUFFER POINTERS
01768 M00S01541.sfm +++| STD CN
01769 M00S01542.sfm +++| STD CN+1
01770 M00S01543.sfm +++| STD CN+2
01771 M00S01544.sfm +++| RJM GFE SET (OUT) = (FIRST)
01772 M00S01545.sfm +++| ADN 3
01773 M00S01546.sfm +++| CWD CN
01774 M00S01547.sfm +++| LDD T1 SET (IN) = (FIRST) + (WORDS TRANSFERRED)
01775 M00S01548.sfm +++| RAD CN+4
01776 M00S01549.sfm +++| SHN -14
01777 M00S01550.sfm +++| RAD CN+3
01778 M00S01551.sfm +++| RJM GFE
01779 M00S01552.sfm +++| ADN 2
01780 M00S01553.sfm +++| CWD CN
01781 M00S01554.sfm +++| LDN 22 LAST STATUS = EOR
01782 M00S01555.sfm +++| STD LS
01783 M00S01556.sfm +++| LJM SFMX EXIT
01784 M00S01557.sfm +++| SDF SPACE 4,10
01785 M00S01558.sfm +++|*** FUNCTION *SDFF* - SET DEVICE INFORMATION.
01786 M00S01559.sfm +++|*
01787 M00S01560.sfm +++|* SET FIELDS IN DEVICE INFORMATION SECTOR OF
01788 M00S01561.sfm +++|* SPECIFIED DEVICE. WORD AT *WI* IS UPDATED WITH DATA
01789 M00S01562.sfm +++|* FOUND IN CENTRAL BUFFER AT *FIRST*.
01790 M00S01563.sfm +++|*
01791 M00S01564.sfm +++|* THE CALLING PROGRAM MUST HAVE SYSTEM ORIGIN
01792 M00S01565.sfm +++|* PRIVILEGES AND AN *SSJ=* ENTRY POINT.
01793 M00S01566.sfm +++|
01794 M00S01567.sfm +++|
01795 M00S01568.sfm +++| SDF BSS 0 ENTRY
01796 M00S01569.sfm +++| RJM GFE READ *FIRST*
01797 M00S01570.sfm +++| ADN 1
01798 M00S01571.sfm +++| CRD CN
01799 M00S01572.sfm +++| ADN 7-1 READ (FET+7)
01800 M00S01573.sfm +++| CRD CM
01801 M00S01574.sfm +++| LDD CN+3
01802 M00S01575.sfm +++| LPN 37
01803 M00S01576.sfm +++| STD CN+3
01804 M00S01577.sfm +++| SHN 14
01805 M00S01578.sfm +++| LMD CN+4
01806 M00S01579.sfm +++| SHN -6
01807 M00S01580.sfm +++| SBD FL
01808 M00S01581.sfm +++| MJN SDF1 IF DATA WITHIN FL
01809 M00S01582.sfm +++| ABORT /MESS/ERAE * SFM ARGUMENT ERROR.*
01810 M00S01583.sfm +++|
01811 M00S01584.sfm +++| SDF1 LDD CM+4 SAVE WORD INDEX
01812 M00S01585.sfm +++| LPN 77
01813 M00S01586.sfm +++| STM SDFA
01814 M00S01587.sfm +++| SBN MNIT
01815 M00S01588.sfm +++| PJN SDF2 IF NOT RESERVED WORD
01816 M00S01589.sfm +++| ABORT /MESS/ERIR * SFM INCORRECT REQUEST.*
01817 M00S01590.sfm +++|
01818 M00S01591.sfm +++| SDF2 LDD CM VALIDATE EQUIPMENT
01819 M00S01592.sfm +++| RJM VEQ
01820 M00S01593.sfm +++| LDN 0 FORCE LABEL TRACK INTERLOCK
01821 M00S01594.sfm +++| STM RDIA
01822 M00S01595.sfm +++| RJM RDI READ DEVICE INFORMATION SECTOR
01823 M00S01596.sfm +++| LDC * CALCULATE ADDRESS OF WORD IN BUFFER
01824 M00S01597.sfm +++| SDFA EQU *-1 (INDEX OF WORD TO UPDATE)
01825 M00S01598.sfm +++| SHN 2
01826 M00S01599.sfm +++| ADM SDFA
01827 M00S01600.sfm +++| ADC BFMS+2
01828 M00S01601.sfm +++| STM SDFB
01829 M00S01602.sfm +++| LDD CN+3
01830 M00S01603.sfm +++| SHN 6
01831 M00S01604.sfm +++| ADD RA
01832 M00S01605.sfm +++| SHN 6
01833 M00S01606.sfm +++| ADD CN+4
01834 M00S01607.sfm +++| CRM *,ON UPDATE WORD
01835 M00S01608.sfm +++| SDFB EQU *-1 (ADDRESS OF WORD WITHIN BUFFER)
01836 M00S01609.sfm +++| LDN PDTL UPDATE SECTOR MODIFICATION DATE
01837 M00S01610.sfm +++| CRM BFMS+2+SMIT*5,ON
Line S01611 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
01838 M01S01611.242l642 ---| SETMS WRITE,RW REWRITE SECTOR
01839 M01S01612.242l642 ---| LDC BFMS+WLSF
01840 M01S01613.242l642 ---| RJM WDS
01841 M01S01614.242l642 ---| ENDMS
01842 M01S01615.242l642 ---| LDD T6 CLEAR LABEL TRACK INTERLOCK
01843 M01S01616.242l642 ---| RJM CTI
Line S00135 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
01844 M01S00135.242l642 +++| LDC BFMS+WLSF REWRITE SECTOR
01845 M01S00136.242l642 +++| RJM WMS
01846 M01S00137.242l642 +++| ENDMS
01847 M01S00138.242l642 +++| RJM RTI RELEASE LABEL TRACK INTERLOCK
01848 M00S01617.sfm +++| LJM SFMX EXIT
Line S01618 Modification History
M01 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01849 M01S01618.ns2357 ---| SCD SPACE 4,10
01850 M01S01619.ns2357 ---|*** FUNCTION *SCDF* - SET *CPD* DROP FLAG.
01851 M01S01620.ns2357 ---|*
01852 M01S01621.ns2357 ---|* THIS FUNCTION WILL SET THE *CPD* DROP FLAG IN CMR. AS A
Line S01622 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01853 M02S01622.ns2357 ---|* RESULT, ALL COPIES OF *CPD* THAT ARE RUNNING IN THE
01854 M02S01623.ns2357 ---|* SYSTEM WILL TERMINATE.
Line S00139 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01855 M02S00139.ns2357 ---|* RESULT, THE COPY OF *CPD* THAT IS RUNNING WILL TERMINATE.
Line S01624 Modification History
M01 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01856 M01S01624.ns2357 ---|
01857 M01S01625.ns2357 ---|
01858 M01S01626.ns2357 ---| SCD BSS 0 ENTRY
01859 M01S01627.ns2357 ---|
01860 M01S01628.ns2357 ---|* CHECK IF *CPD* IS ACTIVE.
01861 M01S01629.ns2357 ---|
01862 M01S01630.ns2357 ---| LDN PPCP SET PP COMMUNICATION AREA ADDRESSES
01863 M01S01631.ns2357 ---| CRD CM
01864 M01S01632.ns2357 ---| LDD CM+4
01865 M01S01633.ns2357 ---| STD T1
01866 M01S01634.ns2357 ---| LDN PPUL
01867 M01S01635.ns2357 ---| CRD CM
01868 M01S01636.ns2357 ---| LDD CM+2
01869 M01S01637.ns2357 ---| SHN 3
01870 M01S01638.ns2357 ---| ADD T1
01871 M01S01639.ns2357 ---| STD T2
01872 M01S01640.ns2357 ---| SCD1 LDD T1 CHECK PP PROGRAM NAME
01873 M01S01641.ns2357 ---| CRD CM
01874 M01S01642.ns2357 ---| LDD CM+1
01875 M01S01643.ns2357 ---| SCN 77
01876 M01S01644.ns2357 ---| SHN 6
01877 M01S01645.ns2357 ---| LMD CM
01878 M01S01646.ns2357 ---| LMC 3RDCP
01879 M01S01647.ns2357 ---| ZJN SCD2 IF *CPD* FOUND
01880 M01S01648.ns2357 ---| LDN 10 INCREMENT PPU COMMUNICATION AREA ADDRESS
01881 M01S01649.ns2357 ---| RAD T1
01882 M01S01650.ns2357 ---| LMD T2
01883 M01S01651.ns2357 ---| NJN SCD1 IF MORE PPUS TO CHECK
01884 M01S01652.ns2357 ---| ERROR /ERR/CNF EC=5, * CPD NOT ACTIVE.*
01885 M01S01653.ns2357 ---|
01886 M01S01654.ns2357 ---| SCD2 LDN 1 SET *CPD* DROP FLAG
01887 M01S01655.ns2357 ---| STD CM+1
01888 M01S01656.ns2357 ---| STD CM+2
01889 M01S01657.ns2357 ---| LDD MA
01890 M01S01658.ns2357 ---| CWM SCDA,ON
01891 M01S01659.ns2357 ---| MONITOR UADM
Line S01660 Modification History
M01 (Removed by) 242l642
M02 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01892 M02S01660.ns2357 ---| LJM SFMX DROP PPU
Line S00140 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01893 M02S00140.ns2357 ---| SCD3 DELAY
01894 M02S00141.ns2357 ---| PAUSE
01895 M02S00142.ns2357 ---| LDD CM+1
01896 M02S00143.ns2357 ---| NJN SCD4 IF ERROR FLAG SET
01897 M02S00144.ns2357 ---| LDD T1
01898 M02S00145.ns2357 ---| CRD CM
01899 M02S00146.ns2357 ---| LDD CM+1
01900 M02S00147.ns2357 ---| SCN 77
01901 M02S00148.ns2357 ---| SHN 6
01902 M02S00149.ns2357 ---| LMD CM
01903 M02S00150.ns2357 ---| LMC 3RDCP
01904 M02S00151.ns2357 ---| ZJN SCD3 IF *CPD* FOUND
01905 M02S00152.ns2357 ---| SCD4 LJM SFMX DROP PPU
Line S01661 Modification History
M01 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
01906 M01S01661.ns2357 ---|
01907 M01S01662.ns2357 ---| SCDA CON LIOS INCREMENT LOW CORE FIELD BY ONE
01908 M01S01663.ns2357 ---| CON INWL WORD ADDRES
01909 M01S01664.ns2357 ---| CON 2*100+1 BIT ADDRESS/FIELD WIDTH
01910 M01S01665.ns2357 ---| CON 0
01911 M01S01666.ns2357 ---| CON 0
01912 M00S01667.sfm +++| RSD SPACE 4,10
01913 M00S01668.sfm +++| TITLE SUBROUTINES.
01914 M00S01669.sfm +++| CBL SPACE 4,10
01915 M00S01670.sfm +++|** CBL - CHECK DAYFILE BUFFER LENGTH.
01916 M00S01671.sfm +++|*
01917 M00S01672.sfm +++|* ENTRY (TY) = DAYFILE TYPE.
01918 M00S01673.sfm +++|*
01919 M00S01674.sfm +++|* EXIT (A) = BUFFER LENGTH.
01920 M00S01675.sfm +++|* TO *ABT* IF ZERO LENGTH DAYFILE BUFFER.
01921 M00S01676.sfm +++|*
01922 M00S01677.sfm +++|* USES FA, CM - CM+4.
01923 M00S01678.sfm +++|*
01924 M00S01679.sfm +++|* CALLS SDA.
01925 M00S01680.sfm +++|
01926 M00S01681.sfm +++|
01927 M00S01682.sfm +++| CBL SUBR ENTRY/EXIT
01928 M00S01683.sfm +++| RJM SDA SET DAYFILE ADDRESS
01929 M00S01684.sfm +++| SBN 1 READ BUFFER LENGTH (OUT POINTER) WORD
01930 M00S01685.sfm +++| CRD CM
01931 M00S01686.sfm +++| LDD CM+2
01932 M00S01687.sfm +++| NJN CBLX IF NOT ZERO LENGTH BUFFER
01933 M00S01688.sfm +++| STD FA CLEAR FST ADDRESS
01934 M00S01689.sfm +++| ABORT /MESS/ERFE * SFM FILE EMPTY.*
01935 M00S01690.sfm +++| CDF SPACE 4,10
01936 M00S01691.sfm +++|** CDF - COPY DAYFILE.
01937 M00S01692.sfm +++|*
01938 M00S01693.sfm +++|* ENTRY (CN+3 - CN+4) = IN POINTER.
01939 M00S01694.sfm +++|*
01940 M00S01695.sfm +++|* EXIT (CN+3 - CN+4) ADVANCED.
01941 M00S01696.sfm +++|*
01942 M00S01697.sfm +++|* USES T1 - T3, CM - CM+7.
01943 M00S01698.sfm +++|*
01944 M00S01699.sfm +++|* CALLS SBA, SDA.
01945 M00S01700.sfm +++|
01946 M00S01701.sfm +++|
01947 M00S01702.sfm +++| CDF SUBR ENTRY/EXIT
01948 M00S01703.sfm +++| RJM SDA SET DAYFILE FET ADDRESS
01949 M00S01704.sfm +++| SBN 1
01950 M00S01705.sfm +++| CRD CM+3
01951 M00S01706.sfm +++| SBN 1
01952 M00S01707.sfm +++| CRD CM
01953 M00S01708.sfm +++| LDD HN SET BLOCK SIZE FOR READ
01954 M00S01709.sfm +++| STD T3
01955 M00S01710.sfm +++| CDF1 LDD CM+4 IN - OUT
01956 M00S01711.sfm +++| SBD CM+7
01957 M00S01712.sfm +++| ZJN CDFX IF BUFFER EMPTY
01958 M00S01713.sfm +++| PJN CDF2 IF IN .GT. OUT
01959 M00S01714.sfm +++| ADD CM+5 ADD BUFFER LENGTH
01960 M00S01715.sfm +++| CDF2 SBD T3
01961 M00S01716.sfm +++| PJN CDF3 IF FULL BLOCK IN BUFFER
01962 M00S01717.sfm +++| ADD HN ADJUST BLOCK SIZE
01963 M00S01718.sfm +++| STD T3
01964 M00S01719.sfm +++| CDF3 LDD T3 SET WORD COUNT FOR READ
01965 M00S01720.sfm +++| STD T2
01966 M00S01721.sfm +++| ADD CM+7 ADD OUT - BUFFER LENGTH
01967 M00S01722.sfm +++| SBD CM+5
01968 M00S01723.sfm +++| MJN CDF4 IF NO WRAP AROUND
01969 M00S01724.sfm +++| ZJN CDF4 IF NO WRAP AROUND
01970 M00S01725.sfm +++| STD T1 WORD COUNT FOR FIRST READ
01971 M00S01726.sfm +++| LDD CM+5 WORD COUNT FROM OUT TO END OF BUFFER
01972 M00S01727.sfm +++| SBD CM+7
01973 M00S01728.sfm +++| STD T2
01974 M00S01729.sfm +++| SHN 2
01975 M00S01730.sfm +++| ADD T2
01976 M00S01731.sfm +++| ADC BFMS BUFFER ADDRESS FOR FIRST READ
01977 M00S01732.sfm +++| STM CDFA
01978 M00S01733.sfm +++| RJM SBA READ WRAP AROUND
01979 M00S01734.sfm +++| CRM *,T1
01980 M00S01735.sfm +++| CDFA EQU *-1
01981 M00S01736.sfm +++| CDF4 RJM SBA READ DAYFILE BLOCK
01982 M00S01737.sfm +++| ADD CM+7
01983 M00S01738.sfm +++| CRM BFMS,T2
01984 M00S01739.sfm +++| LDD CN+3 STORE DATA READ
01985 M00S01740.sfm +++| SHN 6
01986 M00S01741.sfm +++| ADD RA
01987 M00S01742.sfm +++| SHN 6
01988 M00S01743.sfm +++| ADD CN+4
01989 M00S01744.sfm +++| CWM BFMS,T3
01990 M00S01745.sfm +++| LDD T3 ADVANCE IN POINTER
01991 M00S01746.sfm +++| RAD CN+4
01992 M00S01747.sfm +++| SHN -14
01993 M00S01748.sfm +++| RAD CN+3
01994 M00S01749.sfm +++| LDD T3 ADVANCE DAYFILE OUT POINTER
01995 M00S01750.sfm +++| RAD CM+7
01996 M00S01751.sfm +++| SBD CM+5
01997 M00S01752.sfm +++| MJN CDF5 IF NO WRAP AROUND
01998 M00S01753.sfm +++| STD CM+7
01999 M00S01754.sfm +++| CDF5 LJM CDF1 LOOP FOR NEXT BLOCK
Line S01755 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02000 M01S01755.242l642 ---| CIB SPACE 4,10
Line S00153 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02001 M01S00153.242l642 +++| CIB SPACE 4,15
02002 M00S01756.sfm +++|** CIB - CLEAR FST INTERLOCK BIT.
02003 M00S01757.sfm +++|* THE TRACK INTERLOCK BIT IN THE FST FOR THE OLD
02004 M00S01758.sfm +++|* DAYFILE IS CLEARED.
02005 M00S01759.sfm +++|*
02006 M00S01760.sfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS.
02007 M00S01761.sfm +++|*
02008 M00S01762.sfm +++|* EXIT FST ENTRY REWRITTEN.
02009 M00S01763.sfm +++|*
02010 M00S01764.sfm +++|* USES FA, CM - CM+4, FN - FN+4.
02011 M00S01765.sfm +++|*
02012 M00S01766.sfm +++|* CALLS GFE, SAF.
02013 M00S01767.sfm +++|*
02014 M00S01768.sfm +++|* MACROS NFA.
02015 M00S01769.sfm +++|
02016 M00S01770.sfm +++|
02017 M00S01771.sfm +++| CIB SUBR ENTRY/EXIT
02018 M00S01772.sfm +++| RJM GFE GET FET ADDRESS
02019 M00S01773.sfm +++| CRD FN READ FILE NAME
02020 M00S01774.sfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
02021 M00S01775.sfm +++| ZJN CIBX IF FILE NOT FOUND
02022 M00S01776.sfm +++| NFA FA,R
02023 M00S01777.sfm +++| ADN FSTL
02024 M00S01778.sfm +++| CRD CM READ FST ENTRY
02025 M00S01779.sfm +++| LDD CM+4 CLEAR INTERLOCK BIT
02026 M00S01780.sfm +++| LPC 6777
02027 M00S01781.sfm +++| STD CM+4
02028 M00S01782.sfm +++| NFA FA,R
02029 M00S01783.sfm +++| ADN FSTL
02030 M00S01784.sfm +++| CWD CM REWRITE FST ENTRY
02031 M00S01785.sfm +++| LDN 0 CLEAR FNT ORDINAL
02032 M00S01786.sfm +++| STD FA
02033 M00S01787.sfm +++| UJN CIBX RETURN
02034 M00S01788.sfm +++| SBA SPACE 4,10
02035 M00S01789.sfm +++|** SBA - SET BUFFER ADDRESS.
02036 M00S01790.sfm +++|*
02037 M00S01791.sfm +++|* ENTRY (TY) = DAYFILE TYPE.
02038 M00S01792.sfm +++|* (CM - CM+1) = DAYFILE BUFFER ADDRESS.
02039 M00S01793.sfm +++|*
02040 M00S01794.sfm +++|* EXIT (A) = DAYFILE BUFFER ADDRESS.
02041 M00S01795.sfm +++|*
02042 M00S01796.sfm +++|* MACROS NFA.
02043 M00S01797.sfm +++|
02044 M00S01798.sfm +++|
02045 M00S01799.sfm +++| SBA1 NFA DAYN SET JOB DAYFILE BUFFER ADDRESS
02046 M00S01800.sfm +++|
02047 M00S01801.sfm +++| SBA SUBR ENTRY/EXIT
02048 M00S01802.sfm +++| LDD TY
02049 M00S01803.sfm +++| ZJN SBA1 IF JOB DAYFILE
02050 M00S01804.sfm +++| LDD CM SET SYSTEM DAYFILE BUFFER ADDRESS
02051 M00S01805.sfm +++| SHN 14
02052 M00S01806.sfm +++| ADD CM+1
02053 M00S01807.sfm +++| UJN SBAX RETURN
02054 M00S01808.sfm +++| RDI SPACE 4,20
02055 M00S01809.sfm +++|** RDI - READ DEVICE INFORMATION SECTOR.
02056 M00S01810.sfm +++|*
02057 M00S01811.sfm +++|* ENTRY (T5) = EQUIPMENT.
Line S01812 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02058 M01S01812.242l642 ---|* (CM - CM+4) = EST ENTRY.
02059 M00S01813.sfm +++|* (RDIA) = *PSN* IF LABEL TRACK IS TO BE INTERLOCKED.
02060 M00S01814.sfm +++|*
Line S01815 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02061 M01S01815.242l642 ---|* EXIT (BFMS - BFMS+502) = DEVICE INFORMATION SECTOR.
02062 M01S01816.242l642 ---|* (T6) = LABEL TRACK.
02063 M01S01817.242l642 ---|* (T7) = *DILT* SECTOR.
02064 M01S01818.242l642 ---|* TO *DPP* IF ERROR FLAG SET.
02065 M01S01819.242l642 ---|*
02066 M01S01820.242l642 ---|* USES T6, T7, T0 - T0+4.
02067 M01S01821.242l642 ---|*
02068 M01S01822.242l642 ---|* CALLS LLT, RDS, WTI.
Line S00154 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02069 M01S00154.242l642 +++|* EXIT (T6) = LABEL TRACK.
02070 M01S00155.242l642 +++|* (T7) = *DILT* SECTOR.
02071 M01S00156.242l642 +++|* (BFMS) = DEVICE INFORMATION SECTOR.
02072 M01S00157.242l642 +++|*
02073 M01S00158.242l642 +++|* ERROR TO *DPP* IF ERROR FLAG SET.
02074 M01S00159.242l642 +++|*
02075 M01S00160.242l642 +++|* CALLS LLT, RMS, WTI.
02076 M00S01823.sfm +++|*
02077 M00S01824.sfm +++|* MACROS SETMS.
02078 M00S01825.sfm +++|
02079 M00S01826.sfm +++|
02080 M00S01827.sfm +++| RDI SUBR ENTRY/EXIT
02081 M00S01828.sfm +++| RJM LLT LOCATE LABEL TRACK
02082 M00S01829.sfm +++| RDIA UJN RDI2 BYPASS LABEL TRACK INTERLOCK
02083 M00S01830.sfm +++|* PSN (*SETDI* FUNCTION)
02084 M00S01831.sfm +++| RJM WTI SET LABEL TRACK INTERLOCK
Line S01832 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02085 M01S01832.242l642 ---| ZJN RDI2 IF LABEL TRACK INTERLOCK SET
02086 M01S01833.242l642 ---| LJM DPP DROP PPU
02087 M01S01834.242l642 ---|
Line S00161 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02088 M01S00161.242l642 +++| NJP DPP IF ERROR FLAG SET
02089 M01S00162.242l642 +++| LDD T6
02090 M01S00163.242l642 +++| STM RTIA
02091 M00S01835.sfm +++| RDI2 LDN DILT SET SECTOR
02092 M00S01836.sfm +++| STD T7
Line S01837 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02093 M01S01837.242l642 ---| SETMS READ READ SECTOR
02094 M01S01838.242l642 ---| LDC BFMS
02095 M01S01839.242l642 ---| RJM RDS
02096 M01S01840.242l642 ---| LJM RDIX RETURN
Line S00164 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02097 M01S00164.242l642 +++| SETMS IO,RW
02098 M01S00165.242l642 +++| LDC BFMS READ SECTOR
02099 M01S00166.242l642 +++| RJM RMS
02100 M01S00167.242l642 +++| UJP RDIX RETURN
02101 M00S01841.sfm +++| VBP SPACE 4,15
02102 M00S01842.sfm +++|** VBP - VALIDATE BUFFER POINTERS.
02103 M00S01843.sfm +++|*
02104 M00S01844.sfm +++|* ENTRY (A) = BUFFER LENGTH REQUIRED.
02105 M00S01845.sfm +++|*
02106 M00S01846.sfm +++|* EXIT (A) .LT. 0 IF VALID POINTERS.
02107 M00S01847.sfm +++|* (CN+3 - CN+4) = (FIRST).
02108 M00S01848.sfm +++|*
02109 M00S01849.sfm +++|* USES T0, T1, CN - CN+4, T2 - T2+4.
02110 M00S01850.sfm +++|*
02111 M00S01851.sfm +++|* CALLS GFE.
02112 M00S01852.sfm +++|
02113 M00S01853.sfm +++|
02114 M00S01854.sfm +++| VBP SUBR ENTRY/EXIT
02115 M00S01855.sfm +++| STD T1
02116 M00S01856.sfm +++| RJM GFE READ *FIRST*
02117 M00S01857.sfm +++| ADN 1
02118 M00S01858.sfm +++| CRD CN
02119 M00S01859.sfm +++| ADN 3 READ *LIMIT*
02120 M00S01860.sfm +++| CRD T2
02121 M00S01861.sfm +++| LDD T2+3
02122 M00S01862.sfm +++| LPN 37
02123 M00S01863.sfm +++| STD T2+3
02124 M00S01864.sfm +++| SHN 14
02125 M00S01865.sfm +++| LMD T2+4
02126 M00S01866.sfm +++| SBN 1
02127 M00S01867.sfm +++| SHN -6
02128 M00S01868.sfm +++| SBD FL
02129 M00S01869.sfm +++| PJN VBPX IF LIMIT .GT. FL
02130 M00S01870.sfm +++| LDD CN+3
02131 M00S01871.sfm +++| LPN 37
02132 M00S01872.sfm +++| STD CN+3
02133 M00S01873.sfm +++| SHN 14
02134 M00S01874.sfm +++| LMD CN+4
02135 M00S01875.sfm +++| ADD T1 FIRST+BUFL
02136 M00S01876.sfm +++| STD T2
02137 M00S01877.sfm +++| SHN -14
02138 M00S01878.sfm +++| SBD T2+3
02139 M00S01879.sfm +++| NJN VBPX IF (FIRST+BUFL) .NE. LIMIT
02140 M00S01880.sfm +++| LDD T2
02141 M00S01881.sfm +++| SBD T2+4
02142 M00S01882.sfm +++| UJN VBPX RETURN
02143 M00S01883.sfm +++| VEQ SPACE 4,10
02144 M00S01884.sfm +++|** VEQ - VALIDATE EQUIPMENT.
02145 M00S01885.sfm +++|*
02146 M00S01886.sfm +++|* ENTRY (A) = EST ORDINAL.
02147 M00S01887.sfm +++|*
02148 M00S01888.sfm +++|* EXIT (CM - CM+4) = EST ENTRY.
02149 M00S01889.sfm +++|* TO *ABT* IF INCORRECT EQUIPMENT.
02150 M00S01890.sfm +++|*
02151 M00S01891.sfm +++|* USES T5, CM - CM+4.
02152 M00S01892.sfm +++|*
02153 M00S01893.sfm +++|* MACROS ABORT, SFA.
02154 M00S01894.sfm +++|
02155 M00S01895.sfm +++|
02156 M00S01896.sfm +++| VEQ SUBR ENTRY/EXIT
02157 M00S01897.sfm +++| STD T5
02158 M00S01898.sfm +++| ZJN VEQ1 IF NOT LEGAL EST ORDINAL
02159 M00S01899.sfm +++| SFA EST READ EST ENTRY
02160 M00S01900.sfm +++| ADK EQDE
02161 M00S01901.sfm +++| CRD CM
02162 M00S01902.sfm +++| LDD CM
02163 M00S01903.sfm +++| SHN 21-13
02164 M00S01904.sfm +++| MJN VEQX IF MASS STORAGE EQUIPMENT
02165 M00S01905.sfm +++| VEQ1 ABORT /MESS/EREQ * SFM INCORRECT EQUIPMENT.*
02166 M00S01906.sfm +++| SPACE 4
02167 M00S01907.sfm +++| SPACE 4
02168 M00S01908.sfm +++| OVL0 EQU BFMS-ZDFL
02169 M00S01909.sfm +++| ERRNG OVL0-*-5 OVERFLOW INTO ZERO LEVEL OVERLAY AREA
02170 M00S01910.sfm +++| ERRNG EPFW-OVL0-ZBFL CHECK LENGTH OF *0BF*
02171 M00S01911.sfm +++| ERRNG EPFW-OVL0-ZTDL CHECK LENGTH OF *0TD*
02172 M00S01912.sfm +++| PRS TITLE PRESET.
02173 M00S01913.sfm +++|** PRS - PRESET PROGRAM.
02174 M00S01914.sfm +++|*
02175 M00S01915.sfm +++|* EXIT (LS) = LAST FET STATUS.
02176 M00S01916.sfm +++|* (FA) = 0.
02177 M00S01917.sfm +++|* (FI) = 0.
02178 M00S01918.sfm +++|* (MI) = 1.
02179 M00S01919.sfm +++|* (TE) = NUMBER OF ENTRIES IN FNT.
02180 M00S01920.sfm +++|* (FN - FN+4) = FIRST WORD OF FET.
02181 M00S01921.sfm +++|
02182 M00S01922.sfm +++|
02183 M00S01923.sfm +++| PRS SUBR ENTRY/EXIT
02184 M00S01924.sfm +++| LDN 0 CLEAR FST ADDRESS
02185 M00S01925.sfm +++| STD T1
02186 M00S01926.sfm +++| STD FA
02187 M00S01927.sfm +++| STD FI
02188 M00S01928.sfm +++| LDN 1 PRESET MACHINE INDEX
02189 M00S01929.sfm +++| STD MI
02190 M00S01930.sfm +++| RJM CRS CHECK RECALL STATUS
02191 M00S01931.sfm +++| ZJN PRS1 IF RECALL NOT SET
02192 M00S01932.sfm +++|
02193 M00S01933.sfm +++|* CHECK FUNCTION CODE.
02194 M00S01934.sfm +++|
02195 M00S01935.sfm +++| LDD IR+2 CHECK FUNCTION CODE
02196 M00S01936.sfm +++| SHN 1
02197 M00S01937.sfm +++| ADD IR+2
02198 M00S01938.sfm +++| STD T7
02199 M00S01939.sfm +++| SBK MXFN*3
02200 M00S01940.sfm +++| MJN PRS2 IF LEGAL CODE
02201 M00S01941.sfm +++| PRS1 ABORT /MESS/ERIR * SFM INCORRECT REQUEST.*
02202 M00S01942.sfm +++|
02203 M00S01943.sfm +++|* CHECK FET ADDRESS.
02204 M00S01944.sfm +++|
02205 M00S01945.sfm +++| PRS2 LDD IR+3 CHECK FET ADDRESS
02206 M00S01946.sfm +++| LPN 77
02207 M00S01947.sfm +++| STD IR+3
02208 M00S01948.sfm +++| SHN 14
Line S01949 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02209 M01S01949.261l700 ---| MJN PRS3 IF OUT OF RANGE
Line S00032 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02210 M01S00032.261l700 +++| MJN PRS2.1 IF OUT OF RANGE
02211 M00S01950.sfm +++| LMD IR+4
02212 M00S01951.sfm +++| ADN 1
02213 M00S01952.sfm +++| SHN -6
02214 M00S01953.sfm +++| SBD FL
Line S01954 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02215 M01S01954.261l700 ---| PJN PRS3 IF OUT OF RANGE
Line S00033 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02216 M01S00033.261l700 +++| MJN PRS2.2 IF NOT OUT OF RANGE
02217 M01S00034.261l700 +++| PRS2.1 ABORT /MESS/ERAE * SFM ARGUMENT ERROR.*
02218 M00S01955.sfm +++|
02219 M00S01956.sfm +++|* CHECK FET LENGTH.
02220 M00S01957.sfm +++|
Line S01958 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02221 M01S01958.261l700 ---| LDM TFCN+2,T7
Line S00035 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02222 M01S00035.261l700 +++| PRS2.2 LDM TFCN+2,T7
02223 M00S01959.sfm +++| LPN 77
02224 M00S01960.sfm +++| STM FETL SAVE REQUIRED FET LENGTH
Line S01961 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02225 M01S01961.261l700 ---| ZJN PRS2.1 IF NO FET REQUIRED
Line S00036 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02226 M01S00036.261l700 +++| ZJN PRS2.3 IF NO FET REQUIRED
02227 M00S01962.sfm +++| RJM GFE GET FET ADDRESS
02228 M00S01963.sfm +++| ADN 1
02229 M00S01964.sfm +++| CRD CM
02230 M00S01965.sfm +++| LDD CM+3 SET FET LENGTH
02231 M00S01966.sfm +++| SHN -6
02232 M00S01967.sfm +++| ADN 5
02233 M00S01968.sfm +++| STD T1
02234 M00S01969.sfm +++| LDM FETL CHECK FET LENGTH
02235 M00S01970.sfm +++| SBD T1
Line S01971 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02236 M01S01971.261l700 ---| PJN PRS3 IF FET NOT LONG ENOUGH
02237 M01S01972.261l700 ---| PRS2.1 LDD IR+3
Line S00037 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02238 M01S00037.261l700 +++| PJN PRS2.1 IF FET NOT LONG ENOUGH
02239 M01S00038.261l700 +++| PRS2.3 LDD IR+3
02240 M00S01973.sfm +++| SHN 14
02241 M00S01974.sfm +++| LMD IR+4
02242 M00S01975.sfm +++| ADD T1
02243 M00S01976.sfm +++| SHN -6
02244 M00S01977.sfm +++| SBD FL
Line S01978 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02245 M01S01978.261l700 ---| MJN PRS3.1 IF IN RANGE
02246 M01S01979.261l700 ---| PRS3 ABORT /MESS/ERAE * SFM ARGUMENT ERROR.*
Line S00039 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02247 M01S00039.261l700 +++| PJN PRS2.1 IF OUT OF RANGE
02248 M00S01980.sfm +++|
Line S01981 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02249 M01S01981.261l700 ---|* CHECK IF THIS REQUEST NEEDS AT LEAST ONE SPECIAL PRIVILEGE.
02250 M01S01982.261l700 ---|* MOST LID/PID FUNCTION PROCESSORS REQUIRE THAT THE USER MUST
02251 M01S01983.261l700 ---|* HAVE EITHER SYSTEM ORIGIN PRIVILEGES OR AN SSJ= ENTRY POINT,
02252 M01S01984.261l700 ---|* BUT NOT NECESSARILY BOTH. NOTABLY, *NVF* DOES NOT HAVE AN
02253 M01S01985.261l700 ---|* SSJ= ENTRY POINT BUT STILL MUST ISSUE LID/PID FUNCTIONS.
Line S00040 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02254 M01S00040.261l700 +++|* CHECK FOR PRIVILEGED ANALYST ACCESS.
02255 M00S01986.sfm +++|
Line S01987 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02256 M01S01987.261l700 ---| PRS3.1 LDM TFCN+2,T7
Line S00041 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02257 M01S00041.261l700 +++| LDM TFCN+2,T7
02258 M01S00042.261l700 +++| SHN 21-7
02259 M01S00043.261l700 +++| PJN PRS3 IF NOT CHECKING FOR PRIVILEGED ANALYST
02260 M01S00044.261l700 +++| RJM VPA VALIDATE PRIVILEGED ANALYST
02261 M01S00045.261l700 +++| ZJN PRS3.1 IF PRIVILEGED ANALYST ACCESS ALLOWED
02262 M01S00046.261l700 +++|
02263 M01S00047.261l700 +++|* CHECK FOR EITHER SYSTEM ORIGIN PRIVILEGES OR *SSJ=*.
02264 M01S00048.261l700 +++|
02265 M01S00049.261l700 +++| PRS3 LDM TFCN+2,T7
02266 M00S01988.sfm +++| SHN 21-10
Line S01989 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02267 M01S01989.261l700 ---| PJN PRS4 IF NOT CHECKING SYOT OR SSJ=
Line S00050 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02268 M01S00050.261l700 +++| PJN PRS4 IF NOT CHECKING FOR *SYOT* OR *SSJ=*
02269 M00S01990.sfm +++| RJM CUA CHECK USER ACCESS
Line S01991 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02270 M01S01991.261l700 ---| ZJN PRS4 IF USER SYSTEM ORIGIN
02271 M01S01992.261l700 ---| LDD CP CHECK FOR SSJ=
Line S00051 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02272 M01S00051.261l700 +++| ZJN PRS3.1 IF CALLER HAS SYSTEM ORIGIN PRIVILEGES
02273 M01S00052.261l700 +++| LDD CP CHECK FOR *SSJ=*
02274 M00S01993.sfm +++| ADK SEPW
02275 M00S01994.sfm +++| CRD CM
02276 M00S01995.sfm +++| LDD CM
02277 M00S01996.sfm +++| SHN 21-2
Line S01997 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02278 M01S01997.261l700 ---| PJN PRS5 IF NO SSJ= PRIVILEGES
Line S00053 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02279 M01S00053.261l700 +++| PJN PRS5 IF CALLER IS NOT *SSJ=*
02280 M01S00054.261l700 +++| PRS3.1 LJM PRS7 PROCESS FUNCTION
02281 M00S01998.sfm +++|
Line S01999 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02282 M01S01999.261l700 ---|* CHECK ORIGIN CODE FOR LEGAL OPERATION.
Line S00055 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02283 M01S00055.261l700 +++|* CHECK FOR SYSTEM ORIGIN PRIVILEGES.
02284 M00S02000.sfm +++|
02285 M00S02001.sfm +++| PRS4 LDM TFCN+2,T7 CHECK USER ACCESS REQUIRMENTS
02286 M00S02002.sfm +++| SHN 21-12
02287 M00S02003.sfm +++| PJN PRS6 IF NO REQUIREMENTS
02288 M00S02004.sfm +++| RJM CUA CHECK USER ACCESS
Line S02005 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02289 M01S02005.261l700 ---| ZJN PRS6 IF USER VALIDATED
Line S00056 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02290 M01S00056.261l700 +++| ZJN PRS6 IF CALLER HAS SYSTEM ORIGIN PRIVILEGES
02291 M00S02006.sfm +++| LDD CM CHECK MAINTENANCE ACCESS
02292 M00S02007.sfm +++| NJN PRS5 IF NOT MAINTENANCE ACCESS
02293 M00S02008.sfm +++| LDM TFCN+2,T7
02294 M00S02009.sfm +++| SHN 21-11
02295 M00S02010.sfm +++| MJN PRS6 IF MAINTENANCE ACCESS ALLOWED
02296 M00S02011.sfm +++| PRS5 LJM PRS1 * SFM INCORRECT REQUEST.*
02297 M00S02012.sfm +++|
Line S02013 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02298 M01S02013.261l700 ---| PRS6 LDM TFCN+2,T7 CHECK IF SSJ REQUIRED
Line S00057 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02299 M01S00057.261l700 +++|* CHECK FOR *SSJ=*.
02300 M01S00058.261l700 +++|
02301 M01S00059.261l700 +++| PRS6 LDM TFCN+2,T7
02302 M00S02014.sfm +++| SHN 21-13
Line S02015 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02303 M01S02015.261l700 ---| PJN PRS7 IF SSJ= NOT REQUIRED
Line S00060 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02304 M01S00060.261l700 +++| PJN PRS7 IF NOT CHECKING FOR *SSJ=*
02305 M00S02016.sfm +++| LDD CP READ SPECIAL ENTRY POINTS
02306 M00S02017.sfm +++| ADC SEPW
02307 M00S02018.sfm +++| CRD CM
02308 M00S02019.sfm +++| LDD CM
02309 M00S02020.sfm +++| SHN 21-2
Line S02021 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02310 M01S02021.261l700 ---| PJN PRS5 IF SSJ= NOT PRESENT
Line S00061 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02311 M01S00061.261l700 +++| PJN PRS5 IF *SSJ=* NOT PRESENT
02312 M01S00062.261l700 +++|
02313 M01S00063.261l700 +++|* PROCESS FUNCTION.
02314 M01S00064.261l700 +++|
02315 M00S02022.sfm +++| PRS7 LDM TFCN,T7 SET OVERLAY NAME
Line S02023 Modification History
M01 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
02316 M01S02023.ns2357 ---| STM SFME
02317 M01S02024.ns2357 ---| LDM TFCN+1,T7 SET PROCESSOR ADDRESS
02318 M01S02025.ns2357 ---| STM SFMA
Line S00028 Modification History
M01 (Added by) ns2357
Seq # *Modification Id* Act
----------------------------+
02319 M01S00028.ns2357 +++| STM SFMA
02320 M01S00029.ns2357 +++| LDM TFCN+1,T7 SET PROCESSOR ADDRESS
02321 M01S00030.ns2357 +++| STM SFMB
02322 M00S02026.sfm +++| RJM GFE GET FET ADDRESS
02323 M00S02027.sfm +++| CRD FN
02324 M00S02028.sfm +++| LDD FN+4 SAVE LAST FET STATUS
02325 M00S02029.sfm +++| LPC 1776
02326 M00S02030.sfm +++| STD LS
02327 M00S02031.sfm +++| LDN DFPP READ DAYFILE POINTER WORD
02328 M00S02032.sfm +++| CRD CM
Line S02033 Modification History
M01 (Removed by) 251l664
Seq # *Modification Id* Act
----------------------------+
02329 M01S02033.251l664 ---| SOD CM SET DAYFILE POINTER
02330 M01S02034.251l664 ---| STM SDAA
Line S00005 Modification History
M01 (Added by) 251l664
Seq # *Modification Id* Act
----------------------------+
02331 M01S00005.251l664 +++| LDD CM SET FWA-1 OF DAYFILE POINTERS
02332 M01S00006.251l664 +++| SHN 14
02333 M01S00007.251l664 +++| LMD CM+1
02334 M01S00008.251l664 +++| SBN 1
02335 M01S00009.251l664 +++| STM SDAA+1
02336 M01S00010.251l664 +++| SHN -14
02337 M01S00011.251l664 +++| RAM SDAA
02338 M00S02035.sfm +++| LDN FNTP SET FNT POINTER
02339 M00S02036.sfm +++| CRD CM
02340 M00S02037.sfm +++| LDD CM+2 SET NUMBER OF ENTRIES
02341 M00S02038.sfm +++| STD TE
02342 M00S02039.sfm +++| RJM IFP INITIALIZE TABLE ACCESS ROUTINES
02343 M00S02040.sfm +++| LJM PRSX RETURN
02344 M00S02041.sfm +++|
02345 M00S02042.sfm +++|
02346 M00S02043.sfm +++| IFP HERE DUMP *IFP* REMOTE CODE
02347 M00S02044.sfm +++| SPACE 4,10
02348 M00S02045.sfm +++|** COMMON DECKS.
02349 M00S02046.sfm +++|
02350 M00S02047.sfm +++|
02351 M00S02048.sfm +++|*CALL COMPCRS
02352 M00S02049.sfm +++| SSJ$ EQU 1 SET SSJ CHECKING FOR *COMPCUA*
02353 M00S02050.sfm +++|*CALL COMPCUA
Line S00065 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02354 M01S00065.261l700 +++|*CALL COMPVPA
02355 M00S02051.sfm +++| TFCN SPACE 4,20
02356 M00S02052.sfm +++|** TFCN - TABLE OF FUNCTION CODE PROCESSORS.
02357 M00S02053.sfm +++|*
Line S02054 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02358 M01S02054.261l700 ---|*T, 12/O,12/N,1/S,1/P,1/M,1/E,2/0,6/L
Figure
0 5 6 7 8 9 10 11 12 23 24 29 L 0 E M P S N O 30 35 O
Line S00066 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02359 M01S00066.261l700 +++|*T, 12/O,12/N,1/S,1/P,1/M,1/E,1/A,1/0,6/L
Figure
0 5 6 7 8 9 10 11 12 23 24 29 L 0 A E M P S N O 30 35 O
02360 M00S02055.sfm +++|*
02361 M00S02056.sfm +++|* N FUNCTION PROCESSOR ADDRESS.
02362 M00S02057.sfm +++|* O OVERLAY NAME.
Line S02058 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02363 M01S02058.261l700 ---|* S SSJ= ENTRY POINT REQUIRED.
Line S00067 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02364 M01S00067.261l700 +++|* S *SSJ=* ENTRY POINT REQUIRED.
02365 M00S02059.sfm +++|* P SYSTEM ORIGIN PRIVILEGES REQUIRED.
02366 M00S02060.sfm +++|* M MAINTENANCE ACCESS ALLOWED.
Line S02061 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02367 M01S02061.261l700 ---|* E EITHER SSJ= OR SYSTEM ORIGIN PRIVILEGES REQUIRED.
Line S00068 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02368 M01S00068.261l700 +++|* E EITHER *SSJ=* OR SYSTEM ORIGIN PRIVILEGES REQUIRED.
02369 M01S00069.261l700 +++|* A ALLOW ACCESS IF CALLER HAS PRIVILEGED ANALYST
02370 M01S00070.261l700 +++|* VALIDATION AND IF *PRIVILEGED ANALYST MODE* ENABLED.
02371 M00S02062.sfm +++|* L REQUIRED FET LENGTH - 1.
02372 M00S02063.sfm +++|
02373 M00S02064.sfm +++|
02374 M00S02065.sfm +++| TFCN FCN
Line S02066 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02375 M01S02066.261l700 ---| FCN TAFF,TAD,6,P,SSJ
02376 M01S02067.261l700 ---| FCN AMDF,ADF,5,P
02377 M01S02068.261l700 ---| FCN AAFF,AAC,5,P
02378 M01S02069.261l700 ---| FCN AELF,AER,5,P,,M
02379 M01S02070.261l700 ---| FCN AMLF,AMF,5,P,,M
02380 M01S02071.261l700 ---| FCN AUDF,AUD,5
02381 M01S02072.261l700 ---| FCN RDTF,RDT,4,P
02382 M01S02073.261l700 ---| FCN PADF,PDF,6,P,SSJ
02383 M01S02074.261l700 ---| FCN CDBF,CDB,6,P,SSJ
02384 M01S02075.261l700 ---| FCN EFAF,EGF,5,P,SSJ
02385 M01S02076.261l700 ---| FCN DFAF,DFA,5,P,SSJ
Line S00168 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2357
M03 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02386 M03S00168.261l700 ---| FCN RFAF,DFA,5,P,SSJ
Line S00031 Modification History
M01 (Added by) ns2357
M02 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02387 M02S00031.261l700 ---| FCN ECFF,ECF,5,P,SSJ
Line S02077 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02388 M01S02077.261l700 ---| FCN ATDF,ATD,6,,SSJ
02389 M01S02078.261l700 ---| FCN EGFF,EGF,5,P,SSJ
02390 M01S02079.261l700 ---| FCN ELFF,ELF,5,P,SSJ
02391 M01S02080.261l700 ---| FCN CDRF,RFD,4,,SSJ
02392 M01S02081.261l700 ---| FCN GDIF,GDI,6,P,SSJ
02393 M01S02082.261l700 ---| FCN SDFF,SDF,6,P,SSJ
02394 M01S02083.261l700 ---| FCN RSDF,RSD,0,,,,E
02395 M01S02084.261l700 ---| FCN CSTF,CST,0,P
02396 M01S02085.261l700 ---| FCN SSTF,CST,0,P
02397 M01S02086.261l700 ---| FCN SCDF,SCD,4,P
02398 M01S02087.261l700 ---| FCN CFFF,CFA,5,P,SSJ
02399 M01S02088.261l700 ---| FCN MDFF,DMM,4,P
02400 M01S02089.261l700 ---| FCN GLAF,GLA,0
02401 M01S02090.261l700 ---| FCN GLTF,GLT,4,,,,E
02402 M01S02091.261l700 ---| FCN GLPF,GLP,0,,,,E
02403 M01S02092.261l700 ---| FCN GSSF,GSS,0
02404 M01S02093.261l700 ---| FCN GEAF,GEA,0
02405 M01S02094.261l700 ---| FCN GSMF,GSM,0
02406 M01S02095.261l700 ---| FCN SPTF,SPT,0,,,,E
02407 M01S02096.261l700 ---| FCN ILTF,INT,0,,,,E
02408 M01S02097.261l700 ---| FCN GLCF,GLC,0,,,,E
02409 M01S02098.261l700 ---| FCN SUSF,SSS,0,P
Line S00004 Modification History
M01 (Added by) 252l678
M02 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02410 M02S00004.261l700 ---| FCN GTSF,GTS,0
Line S00071 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02411 M01S00071.261l700 +++| FCN TAFF,TAD,6,P,SSJ TERMINATE ACTIVE DAYFILE
02412 M01S00072.261l700 +++| FCN AMDF,ADF,5,P,,,,A ACCESS MASTER DAYFILE
02413 M01S00073.261l700 +++| FCN AAFF,AAC,5,P,,,,A ACCESS ACCOUNT DAYFILE
02414 M01S00074.261l700 +++| FCN AELF,AER,5,P,,M,,A ACCESS ERROR LOG
02415 M01S00075.261l700 +++| FCN AMLF,AMF,5,P,,M ACCESS MAINTENANCE LOG
02416 M01S00076.261l700 +++| FCN AUDF,AUD,5 ACCESS USER DAYFILE
02417 M01S00077.261l700 +++| FCN RDTF,RDT,4,P RETURN DEVICE TYPE
02418 M01S00078.261l700 +++| FCN PADF,PDF,6,P,SSJ PROTECT ACTIVE DAYFILE
02419 M01S00079.261l700 +++| FCN CDBF,CDB,6,P,SSJ CLEAR DAYFILE BYTE
02420 M01S00080.261l700 +++| FCN EFAF,EGF,5,P,SSJ ENTER LOCAL FAST ATTACH FILE
02421 M01S00081.261l700 +++| FCN DFAF,DFA,5,P,SSJ DELETE FAST ATTACH FILE
02422 M01S00082.261l700 +++| FCN ECFF,ECF,5,P,SSJ ENTER *CPD* SAMPLE FILE
02423 M01S00083.261l700 +++| FCN ATDF,ATD,6,,SSJ ATTACH INACTIVE DAYFILE
02424 M01S00084.261l700 +++| FCN EGFF,EGF,5,P,SSJ ENTER GLOBAL FAST ATTACH FILE
02425 M01S00085.261l700 +++| FCN ELFF,ELF,5,P,SSJ ENTER LINK FAST ATTACH FILE
Line S00086 Modification History
M01 (Added by) 261l700
M02 (Removed by) ns2685
Seq # *Modification Id* Act
----------------------------+
02426 M02S00086.ns2685 ---| FCN CDRF,RFD,4,,SSJ CHANGE DM* FILE TO TYPE *ROFT*
Line S00087 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02427 M01S00087.261l700 +++| FCN GDIF,GDI,6,P,SSJ GET DEVICE INFORMATION
02428 M01S00088.261l700 +++| FCN SDFF,SDF,6,P,SSJ SET DEVICE INFORMATION
02429 M01S00089.261l700 +++| FCN RSDF,RSD,0,,,,E RETURN SYSTEM DATA
02430 M01S00090.261l700 +++| FCN CSTF,CST,0,P CLEAR SUBSYSTEM ACCESS FLAG
02431 M01S00091.261l700 +++| FCN SSTF,CST,0,P SET SUBSYSTEM ACCESS FLAG
02432 M01S00092.261l700 +++| FCN SCDF,SCD,4,P SET *CPD* DROP FLAG
02433 M01S00093.261l700 +++| FCN CFFF,CFA,5,P,SSJ COUNT FAST ATTACH FILES
02434 M01S00094.261l700 +++| FCN MDFF,DMM,4,P DUMP MACHINE MEMORY
02435 M01S00095.261l700 +++| FCN GLAF,GLA,0 GET LID ATTRIBUTES
02436 M01S00096.261l700 +++| FCN GLTF,GLT,4,,,,E GET LID TABLE
02437 M01S00097.261l700 +++| FCN GLPF,GLP,0,,,,E GET PID ATTRIBUTES
02438 M01S00098.261l700 +++| FCN GSSF,GSS,0 GET ORIGIN TYPE ACCESS LEVELS
02439 M01S00099.261l700 +++| FCN GEAF,GEA,0 GET EQUIPMENT ACCESS LEVEL LIMITS
02440 M01S00100.261l700 +++| FCN GSMF,GSM,0 GET SYSTEM SECURITY MODE
02441 M01S00101.261l700 +++| FCN SPTF,SPT,0,,,,E SET PID ATTRIBUTES
02442 M01S00102.261l700 +++| FCN ILTF,INT,0,,,,E INITIALIZE LDT
02443 M01S00103.261l700 +++| FCN GLCF,GLC,0,,,,E GET LID CONFIGURATION
02444 M01S00104.261l700 +++| FCN SUSF,SSS,0,P SET SUBSYSTEM STATUS
02445 M01S00105.261l700 +++| FCN GTSF,GTS,0 GET *TMS* STATUS
Line S00004 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
02446 M01S00004.282l826 +++| FCN TPDF,TPD,0,,SSJ TRANSFER RESOURCE PREVIEW DATA
02447 M00S02099.sfm +++| FCN MXFN
02448 M00S02100.sfm +++| SPACE 4,10
02449 M00S02101.sfm +++| OVERFLOW
02450 M00S02102.sfm +++| OVERLAY (ERROR PROCESSOR.)
02451 M00S02103.sfm +++| ABP SPACE 4,15
02452 M00S02104.sfm +++|** ABP - ABORT JOB.
02453 M00S02105.sfm +++|*
02454 M00S02106.sfm +++|* ENTRY (DA) = MESSAGE ADDRESS.
02455 M00S02107.sfm +++|* (FS - FS+4) = FST ENTRY.
02456 M00S02108.sfm +++|* (FA) = FST ADDRESS.
02457 M00S02109.sfm +++|* (FA) = 0, IF NO FILE.
02458 M00S02110.sfm +++|*
02459 M00S02111.sfm +++|* USES CM+1, FS+4.
02460 M00S02112.sfm +++|*
Line S02113 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02461 M01S02113.242l642 ---|* CALLS DFM.
Line S00169 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02462 M01S00169.242l642 +++|* CALLS CFB, DFM.
02463 M00S02114.sfm +++|*
02464 M00S02115.sfm +++|* MACROS MONITOR.
02465 M00S02116.sfm +++|
02466 M00S02117.sfm +++|
02467 M00S02118.sfm +++| ABP ENTRY ENTRY
02468 M00S02119.sfm +++| LDD DA ISSUE MESSAGE TO DAYFILE
02469 M00S02120.sfm +++| ZJN ABP2 IF NO DAYFILE MESSAGE
02470 M00S02121.sfm +++| ABP0 RJM DFM
Line S02122 Modification History
M01 (Removed by) 242l642
Seq # *Modification Id* Act
----------------------------+
02471 M01S02122.242l642 ---| AOD FS+4 SET FILE COMPLETE
02472 M01S02123.242l642 ---| LDD FA
02473 M01S02124.242l642 ---| ZJN ABP1 IF FILE NOT BUSY
02474 M01S02125.242l642 ---| NFA FA,R
02475 M01S02126.242l642 ---| ADN FSTL
02476 M01S02127.242l642 ---| CWD FS STORE FST ENTRY
Line S00170 Modification History
M01 (Added by) 242l642
Seq # *Modification Id* Act
----------------------------+
02477 M01S00170.242l642 +++| RJM CFB CLEAR FILE BUSY
02478 M00S02128.sfm +++| ABP1 MONITOR ABTM ABORT PROGRAM
02479 M00S02129.sfm +++| LJM PPR EXIT TO PP RESIDENT
02480 M00S02130.sfm +++|
02481 M00S02131.sfm +++| ABP2 LDC /MESS/ERIE * SFM INTERNAL ERROR.*
02482 M00S02132.sfm +++| UJN ABP0 ISSUE MESSAGE
02483 M00S02133.sfm +++|
02484 M00S02134.sfm +++|
02485 M00S02135.sfm +++|* DAYFILE ERROR MESSAGES.
02486 M00S02136.sfm +++|
02487 M00S02137.sfm +++|
02488 M00S02138.sfm +++| QUAL MESS
02489 M00S02139.sfm +++| ERAB DATA C* SFM ABORTED.*
02490 M00S02140.sfm +++| ERAE DATA C* SFM ARGUMENT ERROR.*
02491 M00S02141.sfm +++| ERAF DATA C* SFM FAMILY STILL ACTIVE.*
02492 M00S02142.sfm +++| ERDA DATA C* SFM DIRECT ACCESS FILE ERROR.*
02493 M00S02143.sfm +++| ERDC DATA C* SFM INCORRECT DAYFILE CODE.*
02494 M00S02144.sfm +++| ERDF DATA C* SFM DUPLICATE FILE FOUND.*
02495 M00S02145.sfm +++| EREQ DATA C* SFM INCORRECT EQUIPMENT.*
02496 M00S02146.sfm +++| ERFA DATA C* SFM LINK FAST ATTACH FILE NOT FOUND.*
02497 M00S02147.sfm +++| ERFE DATA C* SFM FILE EMPTY.*
02498 M00S02148.sfm +++| ERFF DATA C* SFM FILE NOT FOUND.*
02499 M00S02149.sfm +++| ERFN DATA C* SFM FILE NAME ERROR.*
02500 M00S02150.sfm +++| ERFT DATA C* SFM INCORRECT FILE TYPE.*
02501 M00S02151.sfm +++| ERFU DATA C* SFM FNT FULL.*
02502 M00S02152.sfm +++| ERIO DATA C* SFM I/O SEQUENCE ERROR.*
02503 M00S02153.sfm +++| ERIR DATA C* SFM INCORRECT REQUEST.*
02504 M00S02154.sfm +++| ERLE DATA C* SFM UNRECOVERABLE LINK DEVICE ERROR.*
02505 M00S02155.sfm +++| ERMS DATA C* SFM FILE NOT ON MASS STORAGE.*
02506 M00S02156.sfm +++| ERNH DATA C* SFM GLOBAL FAST ATTACH LIMIT.*
02507 M00S02157.sfm +++| ERSE DATA C* SFM SYSTEM SECTOR ERROR.*
02508 M00S02158.sfm +++| ERTE DATA C* SFM TRACK INTERLOCK ERROR.*
02509 M00S02159.sfm +++| ERUD DATA C* SFM UNABLE TO INTERLOCK DEVICE.*
02510 M00S02160.sfm +++| ERWC DATA C* SFM BML MESSAGE LENGTH ERROR.*
02511 M00S02161.sfm +++| ERIE DATA C* SFM INTERNAL ERROR.*
02512 M00S02162.sfm +++| QUAL *
02513 M00S02163.sfm +++| ERP SPACE 4,10
02514 M00S02164.sfm +++|** ERP - COMMON ERROR EXIT FROM SFM.
02515 M00S02165.sfm +++|*
02516 M00S02166.sfm +++|* ENTRY (DA) = ERROR CODE.
02517 M00S02167.sfm +++|*
02518 M00S02168.sfm +++|* USES DA, LS, CM - CM+4.
02519 M00S02169.sfm +++|*
02520 M00S02170.sfm +++|* CALLS GFE.
02521 M00S02171.sfm +++|
02522 M00S02172.sfm +++|
02523 M00S02173.sfm +++| ERP ENTRY ENTRY
02524 M00S02174.sfm +++| LDM FETL CHECK FET LENGTH
02525 M00S02175.sfm +++| ZJN ERP0 IF ONE-WORD FET
02526 M00S02176.sfm +++| RJM GFE GET FET ADDRESS
02527 M00S02177.sfm +++| ADN 1
02528 M00S02178.sfm +++| CRD CM
02529 M00S02179.sfm +++| LDD CM+1 CHECK IF EP BIT SET
02530 M00S02180.sfm +++| SHN 21-10
02531 M00S02181.sfm +++| PJN ERP1 IF EP BIT NOT SET
02532 M00S02182.sfm +++| ERP0 LDD DA SET ERROR CODE IN FET+0
02533 M00S02183.sfm +++| SHN 12
02534 M00S02184.sfm +++| RAD LS
02535 M00S02185.sfm +++| SHN -14
Line S02186 Modification History
M01 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
02536 M01S02186.ns2357 ---| STM SFMB
Line S00032 Modification History
M01 (Added by) ns2357
Seq # *Modification Id* Act
----------------------------+
02537 M01S00032.ns2357 +++| STM SFMC
02538 M00S02187.sfm +++| LJM SFMX RETURN TO USER
02539 M00S02188.sfm +++|
02540 M00S02189.sfm +++| ERP1 LDD DA CHECK ERROR TYPE
02541 M00S02190.sfm +++| LMN /ERR/DFB
02542 M00S02191.sfm +++| NJN ERP2 IF NOT DAYFILE BUSY ERROR
02543 M00S02192.sfm +++| LDN TIRR REASON CODE = TRACK INTERLOCK
02544 M00S02193.sfm +++| LJM ERS ENTER PP RECALL STACK
02545 M00S02194.sfm +++|
02546 M00S02195.sfm +++| ERP2 LDM TEMT,DA SET ERROR MESSAGE ADDRESS
02547 M00S02196.sfm +++| STD DA
02548 M00S02197.sfm +++| LJM ABP ABORT JOB
02549 M00S02198.sfm +++| SPACE 4,10
02550 M00S02199.sfm +++|** DEFINED ERROR CODES.
02551 M00S02200.sfm +++|*
02552 M00S02201.sfm +++|* EC DESCRIPTION
02553 M00S02202.sfm +++|* 1 DAYFILE BUSY.
02554 M00S02203.sfm +++|* 2 MASS STORAGE NOT AVAILABLE.
02555 M00S02204.sfm +++|* 3 FILE NOT FOUND.
02556 M00S02205.sfm +++|* 4 UNCORRECTABLE RMS ERROR.
02557 M00S02206.sfm +++|* 5 *CPD* NOT ACTIVE
02558 M00S02207.sfm +++|* 6 RETURN INFORMATION TOO LONG FOR BUFFER.
02559 M00S02208.sfm +++|* 7 LID UNKNOWN OR NOT LEGAL.
02560 M00S02209.sfm +++|* 10 INCORRECT LID ATTRIBUTES.
02561 M00S02210.sfm +++|* 11 CURRENT ATTRIBUTES NOT IN LID TABLE.
02562 M00S02211.sfm +++|* 12 LID TABLE OVERFLOW.
02563 M00S02212.sfm +++|* 13 TOO MANY HOST LIDS.
02564 M00S02213.sfm +++|* 14 INCORRECT SUBFUNCTION CODE.
02565 M00S02214.sfm +++|* 15 INCORRECT NETWORK STATUS PARAMETER.
02566 M00S02215.sfm +++|* 16 CHECK PARAMETER BLOCK ENTRIES FOR ERROR.
02567 M00S02216.sfm +++|
02568 M00S02217.sfm +++|
02569 M00S02218.sfm +++| TEMT INDEX
02570 M00S02219.sfm +++| INDEX /ERR/DFB,ERPA
02571 M00S02220.sfm +++| INDEX /ERR/TKL,ERPB
02572 M00S02221.sfm +++| INDEX /ERR/FNF,ERPC
02573 M00S02222.sfm +++| INDEX /ERR/RMS,ERPD
02574 M00S02223.sfm +++| INDEX /ERR/CNF,ERPE
02575 M00S02224.sfm +++| INDEX /ERR/LTL,ERPF
02576 M00S02225.sfm +++| INDEX /ERR/LNL,NMSG
02577 M00S02226.sfm +++| INDEX /ERR/ILA,NMSG
02578 M00S02227.sfm +++| INDEX /ERR/LOA,NMSG
02579 M00S02228.sfm +++| INDEX /ERR/LTO,NMSG
02580 M00S02229.sfm +++| INDEX /ERR/TMH,NMSG
02581 M00S02230.sfm +++| INDEX /ERR/IFC,NMSG
02582 M00S02231.sfm +++| INDEX /ERR/IST,NMSG
02583 M00S02232.sfm +++| INDEX /ERR/CPB,NMSG
02584 M00S02233.sfm +++| INDEX /ERR/MXSE
02585 M00S02234.sfm +++|
02586 M00S02235.sfm +++|
02587 M00S02236.sfm +++| ERPA DATA C* SFM - DAYFILE BUSY.*
02588 M00S02237.sfm +++| ERPB DATA C* SFM - TRACK LIMIT.*
02589 M00S02238.sfm +++| ERPC DATA C* SFM - FILE NOT FOUND.*
02590 M00S02239.sfm +++| ERPD DATA C* SFM - UNCORRECTABLE RMS ERROR.*
02591 M00S02240.sfm +++| ERPE DATA C+ *CPD* NOT ACTIVE.+
02592 M00S02241.sfm +++| ERPF DATA C* SFM - LID TABLE TOO LONG FOR BUFFER.*
02593 M00S02242.sfm +++|
02594 M00S02243.sfm +++| NMSG EQU 0 (NO DAYFILE MESSAGE ISSUED)
02595 M00S02244.sfm +++| SPACE 4,10
02596 M00S02245.sfm +++| OVERFLOW OVLA
02597 M00S02246.sfm +++| OVERLAY (FAST ATTACH PROCESSORS.)
02598 M00S02247.sfm +++| SPACE 4
02599 M00S02248.sfm +++| EFA TITLE FUNCTION PROCESSORS
02600 M00S02249.sfm +++| CFA SPACE 4,10
Line S02250 Modification History
M01 (Removed by) 261l700
Seq # *Modification Id* Act
----------------------------+
02601 M01S02250.261l700 ---|*** FUNCTION *CFAF* - COUNT FAST ATTACH FILES.
Line S00106 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
02602 M01S00106.261l700 +++|*** FUNCTION *CFFF* - COUNT FAST ATTACH FILES.
02603 M00S02251.sfm +++|*
02604 M00S02252.sfm +++|* *CFA* COUNTS FAST ATTACH FILES FOR THE FAMILY OF THE CALLING
02605 M00S02253.sfm +++|* PROGRAM AND COMPARES IT TO THE DAF COUNT OF THE SAME FAMILY.
02606 M00S02254.sfm +++|* *CFA* MUST BE CALLED BY A SPECIAL SYSTEM JOB.
02607 M00S02255.sfm +++|*
02608 M00S02256.sfm +++|* ENTRY (IR+3 - IR+4) = FET FWA.
02609 M00S02257.sfm +++|*
02610 M00S02258.sfm +++|* EXIT (FET+5) = 36/ 0, 24/ C
02611 M00S02259.sfm +++|*
02612 M00S02260.sfm +++|* MACROS SFA.
02613 M00S02261.sfm +++|
02614 M00S02262.sfm +++|
02615 M00S02263.sfm +++| CFA ENTRY ENTRY
02616 M00S02264.sfm +++| LDD CP GET FAMILY NAME
02617 M00S02265.sfm +++| ADN PFCW
02618 M00S02266.sfm +++| CRD CM
02619 M00S02267.sfm +++| SFA EST,CM+3
02620 M00S02268.sfm +++| ADK EQDE
02621 M00S02269.sfm +++| CRD CM
02622 M00S02270.sfm +++| LDD CM+4
02623 M00S02271.sfm +++| SHN 3
02624 M00S02272.sfm +++| ADN PFGL
02625 M00S02273.sfm +++| CRD CM
02626 M00S02274.sfm +++|
02627 M00S02275.sfm +++|* COUNT FAST ATTACH FILES ON SPECIFIED FAMILY.
02628 M00S02276.sfm +++|
02629 M00S02277.sfm +++| LDN 0 INITIALIZE FAFT COUNT
02630 M00S02278.sfm +++| STD T1
02631 M00S02279.sfm +++| STD QA
02632 M00S02280.sfm +++| CFA1 AOD QA ADVANCE FNT ORDINAL
02633 M00S02281.sfm +++| LMD TE
02634 M00S02282.sfm +++| ZJN CFA3 IF END OF FNT
02635 M00S02283.sfm +++| SFA FNT,QA READ FNT ENTRY
02636 M00S02284.sfm +++| CRD CN
02637 M00S02285.sfm +++| ADN FSTG READ FST INFORMATION
02638 M00S02286.sfm +++| CRD T3
02639 M00S02287.sfm +++| LDD CN+4 CHECK FILE TYPE
02640 M00S02288.sfm +++| SHN -6
02641 M00S02289.sfm +++| LMN FAFT
02642 M00S02290.sfm +++| NJN CFA1 IF NOT FAFT
02643 M00S02291.sfm +++| LDD T3
02644 M00S02292.sfm +++| STD T2 SAVE EST ORDINAL
02645 M00S02293.sfm +++| SFA EST
02646 M00S02294.sfm +++| ADK EQDE
02647 M00S02295.sfm +++| CRD T3 EST WORD
02648 M00S02296.sfm +++| LDD T3+4 READ FAMILY NAME
02649 M00S02297.sfm +++| SHN 3
02650 M00S02298.sfm +++| ADN PFGL
02651 M00S02299.sfm +++| CRD T3
02652 M00S02300.sfm +++| RJM CFM COMPARE FAMILY NAMES
02653 M00S02301.sfm +++| NJN CFA1 IF NOT SAME FAMILY
02654 M00S02302.sfm +++| AOD T1 INCREMENT FAFT COUNT
02655 M00S02303.sfm +++| UJN CFA1 LOOP
02656 M00S02304.sfm +++|
02657 M00S02305.sfm +++|* GET DIRECT ACCESS FILE (DAF) COUNT FOR SPECIFIED FAMILY.
02658 M00S02306.sfm +++|
02659 M00S02307.sfm +++| CFA3 LDN ESTP GET EST POINTER
02660 M00S02308.sfm +++| CRD FN
02661 M00S02309.sfm +++| LDD FN+3 SAVE LAST MASS STORAGE ORDINAL + 1
02662 M00S02310.sfm +++| STD FN+1
02663 M00S02311.sfm +++| LDN 0 INITIALIZE DAF COUNT
02664 M00S02312.sfm +++| STD FN+3
02665 M00S02313.sfm +++| STD FN+4
02666 M00S02314.sfm +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
02667 M00S02315.sfm +++| STD FN
02668 M00S02316.sfm +++| CFA4 AOD FN GET NEXT EST ENTRY
02669 M00S02317.sfm +++| LMD FN+1
02670 M00S02318.sfm +++| ZJN CFA5 IF END OF MASS STORAGE EQUIPMENTS
02671 M00S02319.sfm +++| SFA EST,FN READ EST ENTRY
02672 M00S02320.sfm +++| ADK EQDE
02673 M00S02321.sfm +++| CRD CN
02674 M00S02322.sfm +++| LDD CN
02675 M00S02323.sfm +++| SHN 21-13
02676 M00S02324.sfm +++| PJN CFA4 IF NOT MS EQUIPMENT
02677 M00S02325.sfm +++| LDD CN+4 GET FAMILY NAME
02678 M00S02326.sfm +++| SHN 3
02679 M00S02327.sfm +++| ADN PFGL
02680 M00S02328.sfm +++| CRD T3
02681 M00S02329.sfm +++| RJM CFM COMPARE FAMILY NAMES
02682 M00S02330.sfm +++| NJN CFA4 IF NOT SAME FAMILY
02683 M00S02331.sfm +++| LDD CN+4 GET DAF COUNT
02684 M00S02332.sfm +++| SHN 3
02685 M00S02333.sfm +++| ADN STLL
02686 M00S02334.sfm +++| CRD CN
02687 M00S02335.sfm +++| LDD CN+3 INCREMENT DAF COUNT
02688 M00S02336.sfm +++| RAD FN+4
02689 M00S02337.sfm +++| SHN -14
02690 M00S02338.sfm +++| RAD FN+3
02691 M00S02339.sfm +++| UJN CFA4 SEARCH FOR ANOTHER FAMILY DEVICE
02692 M00S02340.sfm +++|
02693 M00S02341.sfm +++|* STORE RESULT.
02694 M00S02342.sfm +++|
02695 M00S02343.sfm +++| CFA5 LDN ZERL
02696 M00S02344.sfm +++| CRD CM
02697 M00S02345.sfm +++| LDD FN+3
02698 M00S02346.sfm +++| SHN 14
02699 M00S02347.sfm +++| ADD FN+4
02700 M00S02348.sfm +++| SBD T1 (DAF COUNT) - (FAFT COUNT)
02701 M00S02349.sfm +++| STD CM+4
02702 M00S02350.sfm +++| SHN -14
02703 M00S02351.sfm +++| STD CM+3
02704 M00S02352.sfm +++| RJM GFE WRITE FET+5
02705 M00S02353.sfm +++| ADN 5
02706 M00S02354.sfm +++| CWD CM
02707 M00S02355.sfm +++| LJM SFMX EXIT
Line S00033 Modification History
M01 (Added by) ns2357
Seq # *Modification Id* Act
----------------------------+
02708 M01S00033.ns2357 +++| ECF SPACE 4,10
02709 M01S00034.ns2357 +++|*** FUNCTION *ECFF* - ENTER *CPD* SAMPLE FILE.
02710 M01S00035.ns2357 +++|*
02711 M01S00036.ns2357 +++|* SPECIFIED FILE MUST BE A DIRECT ACCESS FILE.
02712 M01S00037.ns2357 +++|* NO ACTION TAKEN IF SPECIFIED FILE ALREADY ENTERED.
02713 M01S00038.ns2357 +++|
02714 M01S00039.ns2357 +++|
02715 M01S00040.ns2357 +++| ECF ENTRY ENTRY
02716 M01S00041.ns2357 +++| LCN FAFT-PMFT ENABLE SEARCH FOR *PMFT* FILE
02717 M01S00042.ns2357 +++| RAM FATC
02718 M01S00043.ns2357 +++| RJM VLF VERIFY LOCAL FILE
02719 M01S00044.ns2357 +++| NJN ECF1 IF FILE UNDEFINED IN SYSTEM FNT
02720 M01S00045.ns2357 +++| LJM SFMX RETURN
02721 M01S00046.ns2357 +++|
02722 M01S00047.ns2357 +++| ECF1 RJM IFA INITIALIZE SYSTEM FNT ENTRY
02723 M01S00048.ns2357 +++| LDD QA
02724 M01S00049.ns2357 +++| STM ECFA+2 SET FNT ORDINAL FOR *CPD* CALL
02725 M01S00050.ns2357 +++| NFA FA,R
02726 M01S00051.ns2357 +++| ADN FSTL RESTORE FST INFORMATION
02727 M01S00052.ns2357 +++| CRD FS
02728 M01S00053.ns2357 +++| LDD IR+3 SET FET ADDRESS
02729 M01S00054.ns2357 +++| STM ECFA+3
02730 M01S00055.ns2357 +++| LDD IR+4
02731 M01S00056.ns2357 +++| STM ECFA+4
02732 M01S00057.ns2357 +++| RJM GFE READ LIMIT WORD
02733 M01S00058.ns2357 +++| ADN 4
02734 M01S00059.ns2357 +++| CRD CN
02735 M01S00060.ns2357 +++| LDD FA SET LOCAL FNT OFFSET
02736 M01S00061.ns2357 +++| STD CN
02737 M01S00062.ns2357 +++| RJM GFE UPDATE FET
02738 M01S00063.ns2357 +++| ADN 4
02739 M01S00064.ns2357 +++| CWD CN
02740 M01S00065.ns2357 +++| LDC ECFA ENABLE *CPD* CALL
02741 M01S00066.ns2357 +++| STM SFMF
02742 M01S00067.ns2357 +++| LJM SFMX RETURN
02743 M01S00068.ns2357 +++|
02744 M01S00069.ns2357 +++|
02745 M01S00070.ns2357 +++| ECFA VFD 18/3RCPD,6/40,12/0,24/0
02746 M00S02356.sfm +++| EFA SPACE 4,10
02747 M00S02357.sfm +++|*** FUNCTION *EFAF* - ENTER LOCAL FAST ATTACH FILE.
02748 M00S02358.sfm +++|*
02749 M00S02359.sfm +++|* SPECIFIED FILE MUST BE A DIRECT ACCESS FILE.
02750 M00S02360.sfm +++|* NO ACTION TAKEN IF SPECIFIED FILE ALREADY ENTERED.
02751 M00S02361.sfm +++| EGF SPACE 4
02752 M00S02362.sfm +++|*** FUNCTION *EGFF* - ENTER GLOBAL FAST ATTACH FILE.
02753 M00S02363.sfm +++|*
02754 M00S02364.sfm +++|* THE SPECIFIED FILE IS ENTERED INTO THE GLOBAL FAST
02755 M00S02365.sfm +++|* ATTACH STATUS IF IT RESIDES ON A SHARED DEVICE. IF THE
02756 M00S02366.sfm +++|* FILE IS NOT ON A SHARED DEVICE, THE FUNCTION IS EXACTLY
02757 M00S02367.sfm +++|* THE SAME AS FUNCTION *EFAF*, ENTER LOCAL FAST ATTACH.
02758 M00S02368.sfm +++|*
02759 M00S02369.sfm +++|* THE SPECIFIED FILE MUST BE A DIRECT ACCESS FILE.
02760 M00S02370.sfm +++|
02761 M00S02371.sfm +++|
02762 M00S02372.sfm +++| EGF ENTRY ENTRY
02763 M00S02373.sfm +++| RJM VLF VERIFY LOCAL FILE
02764 M00S02374.sfm +++| NJN EGF1 IF FAST ATTACH FILE NOT FOUND
02765 M00S02375.sfm +++| LJM SFMX EXIT
02766 M00S02376.sfm +++|
02767 M00S02377.sfm +++| EGF1 LDD ES CHECK FILE ON SHARED DEVICE
02768 M00S02378.sfm +++| SHN 21-11
02769 M00S02379.sfm +++| PJN EGF2 IF NOT SHARED DEVICE
02770 M00S02380.sfm +++| LDD IR+2
02771 M00S02381.sfm +++| LMN EFAF
02772 M00S02382.sfm +++| NJN EGF3 IF NOT LOCAL FAST ATTACH
02773 M00S02383.sfm +++| RJM SMI GET MACHINE INDEX
02774 M00S02384.sfm +++| STD MI
02775 M00S02385.sfm +++| EGF2 UJN EGF6 UPDATE SYSTEM SECTOR
02776 M00S02386.sfm +++|
02777 M00S02387.sfm +++| EGF3 SOM EGFA
02778 M00S02388.sfm +++| RJM SMP SET MMF PARAMETERS
02779 M00S02389.sfm +++| LDD ES
02780 M00S02390.sfm +++| SHN 21-4
02781 M00S02391.sfm +++| MJN EGF6 IF INDEPENDENT SHARED DEVICE
02782 M00S02392.sfm +++| LDN DATI SET *DATI* INTERLOCK
02783 M00S02393.sfm +++| RJM SFR
02784 M00S02394.sfm +++| RJM SFT SEARCH *FAT* TABLE
02785 M00S02395.sfm +++| NJN EGF4 IF ENTRY FOUND
02786 M00S02396.sfm +++| RJM EFI ENTER *FAT* TABLE ENTRY
02787 M00S02397.sfm +++| ZJN EGF5 IF HOLE USED FOR ENTRY
02788 M00S02398.sfm +++| RJM IFC INCREMENT FAST ATTACH COUNT
02789 M00S02399.sfm +++| UJN EGF5
02790 M00S02400.sfm +++|
02791 M00S02401.sfm +++| EGF4 RJM UFI UPDATE *FAT* ENTRY
02792 M00S02402.sfm +++| EGF5 LDN DATI CLEAR *DATI* INTERLOCK
02793 M00S02403.sfm +++| RJM CFI
02794 M00S02404.sfm +++| EGF6 LDD MI SET SYSTEM SECTOR ADDRESS OF WRITE FLAG
02795 M00S02405.sfm +++| STD BA
02796 M00S02406.sfm +++| SHN 2
02797 M00S02407.sfm +++| ADC UCSS
02798 M00S02408.sfm +++| RAD BA
02799 M00S02409.sfm +++| RJM IFA INITIALIZE FAST ATTACH FILE
02800 M00S02410.sfm +++| LDN 1 READ SYSTEM SECTOR
02801 M00S02411.sfm +++| RJM RFS
02802 M00S02412.sfm +++| NJN EGF8 IF SYSTEM SECTOR ERROR
02803 M00S02413.sfm +++| LDD ES
02804 M00S02414.sfm +++| LPN 20
02805 M00S02415.sfm +++| ZJN EGF7 IF NOT INDEPENDENT SHARED DEVICE
02806 M00S02416.sfm +++| LDN 4 SET MACHINE ACTIVE FLAG
02807 M00S02417.sfm +++| EGF7 ADN 1 SET LOCAL WRITE FLAG
02808 M00S02418.sfm +++|* ADN 0 (CLEAR LOCAL WRITE FLAG - GLOBAL FILE)
02809 M00S02419.sfm +++| EGFA EQU *-1
02810 M00S02420.sfm +++| STI BA
02811 M00S02421.sfm +++| LDC 4000 SET FAST ATTACH INDICATOR
02812 M00S02422.sfm +++| LMD FI
02813 M00S02423.sfm +++| STM FISS
02814 M00S02424.sfm +++| LDM CASS CLEAR CURRENT ACCESS MODE
02815 M00S02425.sfm +++| SCN 37
02816 M00S02426.sfm +++| STM CASS
02817 M00S02427.sfm +++| LDD QA SET FNT ORDINAL
02818 M00S02428.sfm +++| STM FASS
02819 M00S02429.sfm +++| LDD MA COPY FILE NAME TO SYSTEM SECTOR
02820 M00S02430.sfm +++| CWD FN
02821 M00S02431.sfm +++| CRM FNSS,ON
02822 M00S02432.sfm +++| RJM WFS REWRITE SYSTEM SECTOR
02823 M00S02433.sfm +++| EGF8 LDD FI SET *FAT* INDEX IN FNT ENTRY
02824 M00S02434.sfm +++| RAD FN+3
02825 M00S02435.sfm +++| SFA FNT,QA STORE FNT ENTRY
02826 M00S02436.sfm +++| CWD FN
02827 M00S02437.sfm +++| ADN FSTG
02828 M00S02438.sfm +++| CWD FS
02829 M00S02439.sfm +++| LJM SFMX RETURN
02830 M00S02440.sfm +++| ELF SPACE 4
02831 M00S02441.sfm +++|*** FUNCTION *ELFF* - ENTER LINK FAST ATTACH FILE.
02832 M00S02442.sfm +++|*
02833 M00S02443.sfm +++|* A SEARCH IS MADE OF THE ECS/FAT TABLE IN ORDER TO DETERMINE
02834 M00S02444.sfm +++|* IF A FILE WITH THE SPECIFIED NAME HAS ALREADY BEEN ENTERED
02835 M00S02445.sfm +++|* INTO GLOBAL FAST ATTACH STATUS. THE EST ORDINAL AND
02836 M00S02446.sfm +++|* FIRST TRACK RETURNED FROM *PFM* IN *TERW* ARE USED TO
02837 M00S02447.sfm +++|* UNIQUELY IDENTIFY THE FILE.
02838 M00S02448.sfm +++|
02839 M00S02449.sfm +++|
02840 M00S02450.sfm +++| ELF ENTRY ENTRY
02841 M00S02451.sfm +++| LDD CP SET EQUIPMENT AND FIRST TRACK
02842 M00S02452.sfm +++| ADN TERW
02843 M00S02453.sfm +++| CRD CM
02844 M00S02454.sfm +++| LDD CM+4 SET TRACK
02845 M00S02455.sfm +++| STD FS+1
02846 M00S02456.sfm +++| LDD CM+3 SET EQUIPMENT
02847 M00S02457.sfm +++| LPC 777
02848 M00S02458.sfm +++| STD FS
02849 M00S02459.sfm +++| STD T5
02850 M00S02460.sfm +++| SFA EST SET EQUIPMENT EST
02851 M00S02461.sfm +++| ADK EQDE
02852 M00S02462.sfm +++| CRD ES
02853 M00S02463.sfm +++| LDD ES CHECK FILE ON SHARED DEVICE
02854 M00S02464.sfm +++| SHN 21-11
02855 M00S02465.sfm +++| PJN ELF1 IF FILE NOT ON SHARED DEVICE
02856 M00S02466.sfm +++| RJM SMP SET MMF PARAMETERS
02857 M00S02467.sfm +++| LDD ES
02858 M00S02468.sfm +++| SHN 21-4
02859 M00S02469.sfm +++| MJN ELF4 IF INDEPENDENT SHARED DEVICE
02860 M00S02470.sfm +++| LDN DATI SET *DATI* INTERLOCK
02861 M00S02471.sfm +++| RJM SFR
02862 M00S02472.sfm +++| RJM SFT SEARCH *FAT* TABLE
02863 M00S02473.sfm +++| NJN ELF2 IF FILE FOUND
02864 M00S02474.sfm +++| ELF1 ABORT /MESS/ERFA * SFM LINK FAST ATTACH FILE NOT FOUND.*
02865 M00S02475.sfm +++|
02866 M00S02476.sfm +++| ELF2 LDD MI CHECK MACHINE ALREADY ENTERED
02867 M00S02477.sfm +++| SHN 2 OFFSET = (MI+1)*5+(BA)
02868 M00S02478.sfm +++| ADD MI
02869 M00S02479.sfm +++| ADN 5
02870 M00S02480.sfm +++| ADD BA
02871 M00S02481.sfm +++| STD T1
02872 M00S02482.sfm +++| LDI T1
02873 M00S02483.sfm +++| ZJN ELF5 IF MACHINE NOT ENTERED YET
02874 M00S02484.sfm +++| LDN DATI CLEAR *DATI* INTERLOCK
02875 M00S02485.sfm +++| RJM CFI
02876 M00S02486.sfm +++| ELF3 LJM SFMX RETURN
02877 M00S02487.sfm +++|
02878 M00S02488.sfm +++| ELF4 LDD ES+4 READ FAMILY NAME
02879 M00S02489.sfm +++| SHN 3
02880 M00S02490.sfm +++| ADN PFGL
02881 M00S02491.sfm +++| CRD CN
02882 M00S02492.sfm +++| LDD MA MOVE FILE NAME
02883 M00S02493.sfm +++| CWD FN
02884 M00S02494.sfm +++| CRD CM
02885 M00S02495.sfm +++| RJM FAT SEARCH FOR FAST ATTACH FILE
02886 M00S02496.sfm +++| NJN ELF6 IF FILE NOT FOUND
02887 M00S02497.sfm +++| UJN ELF3 RETURN
02888 M00S02498.sfm +++|
02889 M00S02499.sfm +++| ELF5 RJM UFI UPDATE *FAT* TABLE
02890 M00S02500.sfm +++| LDN DATI CLEAR *DATI* INTERLOCK
02891 M00S02501.sfm +++| RJM CFI
02892 M00S02502.sfm +++| ELF6 RJM IFA INITIALIZE FAST ATTACH FILE
02893 M00S02503.sfm +++| LDD ES
02894 M00S02504.sfm +++| LPN 20
02895 M00S02505.sfm +++| ZJN ELF7 IF NOT INDEPENDENT SHARED DEVICE
02896 M00S02506.sfm +++| RJM RFS READ SYSTEM SECTOR
02897 M00S02507.sfm +++| NJN ELF3 IF SYSTEM SECTOR ERROR
02898 M00S02508.sfm +++| LDD MI
02899 M00S02509.sfm +++| SHN 2
02900 M00S02510.sfm +++| ADD MI
02901 M00S02511.sfm +++| ADC UCSS
02902 M00S02512.sfm +++| STD T1
02903 M00S02513.sfm +++| LDN 4 SET MACHINE ACTIVE FLAG
02904 M00S02514.sfm +++| RAI T1
02905 M00S02515.sfm +++| RJM WFS REWRITE SYSTEM SECTOR
02906 M00S02516.sfm +++| ELF7 LDD FI SET *FAT* INDEX IN FNT ENTRY
02907 M00S02517.sfm +++| RAD FN+3
02908 M00S02518.sfm +++| SFA FNT,QA STORE FNT ENTRY
02909 M00S02519.sfm +++| CWD FN
02910 M00S02520.sfm +++| ADN FSTG
02911 M00S02521.sfm +++| CWD FS
02912 M00S02522.sfm +++| LDD FS SET EST ORDINAL
02913 M00S02523.sfm +++| STD CM+1
02914 M00S02524.sfm +++| LDN IUCS INCREMENT USER COUNT
02915 M00S02525.sfm +++| STD CM+3
Line S02526 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
02916 M01S02526.253l688 ---| MONITOR STBM
Line S00001 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
02917 M01S00001.253l688 +++| MONITOR SMDM
02918 M00S02527.sfm +++| LJM SFMX
02919 M00S02528.sfm +++| DFA SPACE 4
02920 M00S02529.sfm +++|*** FUNCTION *DFAF* - DELETE FAST ATTACH FILE.
02921 M00S02530.sfm +++|*
02922 M00S02531.sfm +++|* SPECIFIED FILE MUST BE ASSIGNED TO CONTROL POINT.
Line S00171 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
02923 M02S00171.ns2357 ---| RFA SPACE 4,10
02924 M02S00172.ns2357 ---|*** FUNCTION *RFAF* - RETURN FAST ATTACH FILE.
02925 M02S00173.ns2357 ---|*
02926 M02S00174.ns2357 ---|* THIS FUNCTION RETURNS A FAST ATTACH FILE WITHOUT REQUIRING
02927 M02S00175.ns2357 ---|* AN IDLE FAMILY.
02928 M00S02532.sfm +++|
02929 M00S02533.sfm +++|
02930 M00S02534.sfm +++| DFA ENTRY ENTRY
02931 M00S02535.sfm +++| RJM VLF VERIFY LOCAL FILE
02932 M00S02536.sfm +++| ZJN DFA1 IF FAST ATTACH FILE FOUND
02933 M00S02537.sfm +++| LJM SFMX
02934 M00S02538.sfm +++|
Line S02539 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
02935 M01S02539.252l678 ---| DFA1 LDD CP CHECK FAMILY ACTIVITY COUNT
Line S00005 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
02936 M01S00005.252l678 +++| DFA1 LDC DFAB-4 PRESET TABLE ADDRESS
02937 M01S00006.252l678 +++| STD CM
02938 M01S00007.252l678 +++| DFA1.1 LDN 4 INCREMENT ADDRESS FOR NEXT ENTRY
02939 M01S00008.252l678 +++| RAD CM
02940 M01S00009.252l678 +++| LDM 0,CM
02941 M01S00010.252l678 +++| ZJN DFA1.2 IF END OF TABLE
02942 M01S00011.252l678 +++| LMD FN
02943 M01S00012.252l678 +++| NJN DFA1.1 IF NO FILE NAME MATCH
02944 M01S00013.252l678 +++| LDM 1,CM
02945 M01S00014.252l678 +++| LMD FN+1
02946 M01S00015.252l678 +++| NJN DFA1.1 IF NO FILE NAME MATCH
02947 M01S00016.252l678 +++| LDM 2,CM
02948 M01S00017.252l678 +++| LMD FN+2
02949 M01S00018.252l678 +++| NJN DFA1.1 IF NO FILE NAME MATCH
02950 M01S00019.252l678 +++| LDM 3,CM
02951 M01S00020.252l678 +++| LMD FN+3
02952 M01S00021.252l678 +++| SCN 77
02953 M01S00022.252l678 +++| ZJN DFA2 IF IGNORE FAMILY ACTIVITY COUNT
02954 M01S00023.252l678 +++| DFA1.2 LDD CP CHECK FAMILY ACTIVITY COUNT
02955 M00S02540.sfm +++| ADN PFCW
02956 M00S02541.sfm +++| CRD CM
02957 M00S02542.sfm +++| SFA EST,CM+3
02958 M00S02543.sfm +++| ADK EQDE
02959 M00S02544.sfm +++| CRD CM
02960 M00S02545.sfm +++| LDD CM+4
02961 M00S02546.sfm +++| SHN 3
02962 M00S02547.sfm +++| ADN DULL
02963 M00S02548.sfm +++| CRD CM
02964 M00S02549.sfm +++| LDD CM+4
02965 M00S02550.sfm +++| LPC 3777
02966 M00S02551.sfm +++| SBN 1
02967 M00S02552.sfm +++| ZJN DFA2 IF NO FAMILY ACTIVITY
Line S00176 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2357
Seq # *Modification Id* Act
----------------------------+
02968 M02S00176.ns2357 ---| LDD IR+2
02969 M02S00177.ns2357 ---| LMN RFAF
02970 M02S00178.ns2357 ---| ZJN DFA2 IF *RFAF* FUNCTION
02971 M00S02553.sfm +++| ABORT /MESS/ERAF * SFM FAMILY STILL ACTIVE.*
02972 M00S02554.sfm +++|
02973 M00S02555.sfm +++| DFA2 LDD FS+4 CLEAR FAST ATTACH INDICATOR
02974 M00S02556.sfm +++| LPC 5777
02975 M00S02557.sfm +++| STD FS+4
02976 M00S02558.sfm +++| LDC SYFT*100 SET FILE TYPE
02977 M00S02559.sfm +++| STD FN+4
02978 M00S02560.sfm +++| LDN ZERL
02979 M00S02561.sfm +++| CRD CN
02980 M00S02562.sfm +++| LDD T1 SET FNT ORDINAL
02981 M00S02563.sfm +++| STD QA
02982 M00S02564.sfm +++| SFA FNT READ FNT ENTRY
02983 M00S02565.sfm +++| CRD CM
02984 M00S02566.sfm +++| CWD FN
02985 M00S02567.sfm +++| ADN FSTG
02986 M00S02568.sfm +++| CWD CN
02987 M00S02569.sfm +++| LDD CM+3 CHECK GLOBAL FAST ATTACH
02988 M00S02570.sfm +++| LPN 77
02989 M00S02571.sfm +++| ZJN DFA3 IF NOT GLOBAL FAST ATTACH
02990 M00S02572.sfm +++| RJM SMP
02991 M00S02573.sfm +++| LDD ES
02992 M00S02574.sfm +++| SHN 21-4
02993 M00S02575.sfm +++| PJN DFA7 IF NOT INDEPENDENT SHARED DEVICE
02994 M00S02576.sfm +++|
02995 M00S02577.sfm +++|* CLEAR FST ADDRESS FROM SYSTEM SECTOR.
02996 M00S02578.sfm +++|
02997 M00S02579.sfm +++| DFA3 LDD FS RESTORE EQUIPMENT
02998 M00S02580.sfm +++| STD T5
02999 M00S02581.sfm +++| LDD FS+1 RESTORE FIRST TRACK
03000 M00S02582.sfm +++| STD T6
03001 M00S02583.sfm +++| LDN 0 READ SYSTEM SECTOR
03002 M00S02584.sfm +++| RJM RFS
03003 M00S02585.sfm +++| NJN DFA6 IF SYSTEM SECTOR ERROR
03004 M00S02586.sfm +++| LDD ES
03005 M00S02587.sfm +++| LPN 20
03006 M00S02588.sfm +++| ZJN DFA4 IF NOT SHARED DEVICE
03007 M00S02589.sfm +++| RJM SMI GET MACHINE INDEX
03008 M00S02590.sfm +++| STD MI
03009 M00S02591.sfm +++| RJM CAC
03010 M00S02592.sfm +++| ZJN DFA4 IF LAST MACHINE RELEASING FILE
03011 M00S02593.sfm +++| LDN 0 CLEAR ACCESS MODE
03012 M00S02594.sfm +++| STM CASS
03013 M00S02595.sfm +++| STI T2 CLEAR LOCAL WRITE FLAG
03014 M00S02596.sfm +++| UJN DFA5 REWRITE SYSTEM SECTOR
03015 M00S02597.sfm +++|
03016 M00S02598.sfm +++| DFA4 STM FISS
03017 M00S02599.sfm +++| DFA5 RJM WFS REWRITE SYSTEM SECTOR
03018 M00S02600.sfm +++| DFA6 LJM DFA11 DECREMENT USER COUNT
03019 M00S02601.sfm +++|
03020 M00S02602.sfm +++|* PROCESS MMF FAST ATTACH FILE.
03021 M00S02603.sfm +++|
03022 M00S02604.sfm +++| DFA7 LDN DATI SET *DATI* INTERLOCK
03023 M00S02605.sfm +++| RJM SFR
03024 M00S02606.sfm +++| RJM SFT SEARCH *FAT* TABLE
03025 M00S02607.sfm +++| NJN DFA8 IF FILE FOUND
03026 M00S02608.sfm +++| ABORT /MESS/ERFF * SFM FILE NOT FOUND.*
03027 M00S02609.sfm +++|
03028 M00S02610.sfm +++| DFA8 LDD MI SET LOCAL WORD OFFSET
03029 M00S02611.sfm +++| SHN 2
03030 M00S02612.sfm +++| ADD MI
03031 M00S02613.sfm +++| ADN 5
03032 M00S02614.sfm +++| ADD BA
03033 M00S02615.sfm +++| STM DFAA
03034 M00S02616.sfm +++| LDN ZERL DELETE LOCAL ENTRY
03035 M00S02617.sfm +++| CRM *,ON
03036 M00S02618.sfm +++| DFAA EQU *-1
Line S02619 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03037 M01S02619.253l688 ---| LDM 2*5,BA CHECK FOR OTHER MACHINES
03038 M01S02620.253l688 ---| ADM 3*5,BA
03039 M01S02621.253l688 ---| ADM 4*5,BA
03040 M01S02622.253l688 ---| ADM 5*5,BA
Line S00002 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03041 M01S00002.253l688 +++| LDN MXMF PRESET SEARCH LOOP
03042 M01S00003.253l688 +++| STD T0
03043 M01S00004.253l688 +++| DFA8.1 SOD T0 CHECK FOR OTHER MACHINES
03044 M01S00005.253l688 +++| MJN DFA9 IF NO OTHER MACHINES ACTIVE
03045 M01S00006.253l688 +++| SHN 2
03046 M01S00007.253l688 +++| ADD T0
03047 M01S00008.253l688 +++| ADD BA
03048 M01S00009.253l688 +++| STD T1
03049 M01S00010.253l688 +++| LDM 2*5,T1
03050 M00S02623.sfm +++| NJN DFA10 IF NOT LAST MACHINE OUT
Line S00011 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03051 M01S00011.253l688 +++| UJN DFA8.1 CHECK NEXT MACHINE SLOT
03052 M00S02624.sfm +++|
03053 M00S02625.sfm +++|* PROCESS LAST ENTRY REMOVED.
03054 M00S02626.sfm +++|
03055 M00S02627.sfm +++| DFA9 LDN ZERL SET TO DELETE ENTRY
03056 M00S02628.sfm +++| CRD CM
Line S02629 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03057 M01S02629.253l688 ---| LDD MA
03058 M01S02630.253l688 ---| CWD CM
03059 M01S02631.253l688 ---| LDD DA+1 SET *FAT* TRACK
03060 M01S02632.253l688 ---| STD T6
03061 M01S02633.253l688 ---| LDN FAST SET FIRST *FAT* SECTOR
03062 M01S02634.253l688 ---| STD T7
03063 M01S02635.253l688 ---| RJM CEA CONVERT EXTENDED MEMORY ADDRESS
03064 M01S02636.253l688 ---| LDD FI CLEAR *FAT* ENTRY
03065 M01S02637.253l688 ---| SHN 3
03066 M01S02638.253l688 ---| RAD CM+4
03067 M01S02639.253l688 ---| SHN -14
03068 M01S02640.253l688 ---| ADC WECS*1000 SET TO WRITE EXTENDED MEMORY
03069 M01S02641.253l688 ---| RAD CM+3
03070 M01S02642.253l688 ---| LDN 1-1 SET TO WRITE 1 WORD
03071 M01S02643.253l688 ---| RJM ECS WRITE EXTENDED MEMORY
Line S00012 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03072 M01S00012.253l688 +++| LDN 0 CLEAR WORD ZERO OF *FAT* ENTRY
03073 M01S00013.253l688 +++| RJM WFW
03074 M00S02644.sfm +++| LDN DATI CLEAR *DATI* INTERLOCK
03075 M00S02645.sfm +++| RJM CFI
03076 M00S02646.sfm +++| LJM DFA3 UPDATE SYSTEM SECTOR AND FST
03077 M00S02647.sfm +++|
03078 M00S02648.sfm +++| DFA10 LDC LDNI CLEAR LOCAL ENTRY
03079 M00S02649.sfm +++| STM UFIA
03080 M00S02650.sfm +++| RJM UFI UPDATE *FAT* ENTRY
03081 M00S02651.sfm +++| LDN DATI CLEAR *DATI* INTERLOCK
03082 M00S02652.sfm +++| RJM CFI
03083 M00S02653.sfm +++| RJM CFE CLEAR LOCAL FNT ENTRY
03084 M00S02654.sfm +++| LDD FS DECREMENT COUNT FOR FAST ATTACH
03085 M00S02655.sfm +++| STD CM+1
03086 M00S02656.sfm +++| LDN DUCS
03087 M00S02657.sfm +++| STD CM+3
Line S02658 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03088 M01S02658.253l688 ---| MONITOR STBM
Line S00014 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03089 M01S00014.253l688 +++| MONITOR SMDM
03090 M00S02659.sfm +++| DFA11 LDD FS DECREMENT COUNT FOR LOCAL FILE
03091 M00S02660.sfm +++| STD CM+1 SET EQUIPMENT
03092 M00S02661.sfm +++| LDN DUCS
03093 M00S02662.sfm +++| STD CM+3
Line S02663 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03094 M01S02663.253l688 ---| MONITOR STBM
Line S00015 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03095 M01S00015.253l688 +++| MONITOR SMDM
03096 M00S02664.sfm +++| LJM SFMX
Line S00024 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03097 M01S00024.252l678 +++|
03098 M01S00025.252l678 +++|
03099 M01S00026.252l678 +++|* TABLE OF SYSTEM FILES FOR FAMILY ACTIVITY OVERRIDE.
03100 M01S00027.252l678 +++|
03101 M01S00028.252l678 +++| DFAB BSS 0
03102 M01S00029.252l678 +++| DATA 7L"TMFC" TMS DATABASE
03103 M01S00030.252l678 +++| CON 0 END OF TABLE
03104 M01S00031.252l678 +++| GTS SPACE 4,10
03105 M01S00032.252l678 +++|*** FUNCTION *GTSF* - GET TMS STATUS.
03106 M01S00033.252l678 +++|*
03107 M01S00034.252l678 +++|* ENTRY (IR+3 - IR+4) = PARAMETER WORD ADDRESS.
03108 M01S00035.252l678 +++|*
03109 M01S00036.252l678 +++|* EXIT (ADDRESS) = BIT 59 SET IF TMS IS ENABLED.
03110 M01S00037.252l678 +++|* BIT 58 SET IF TFM BINARIES ON SYSTEM.
03111 M01S00038.252l678 +++|* BIT 57 SET IF TMS ACTIVE ON FAMILY.
03112 M01S00039.252l678 +++|* BIT 1 SET IF DEFAULT *TO=E*.
03113 M01S00040.252l678 +++|* BIT 0 SET IF DEFAULT *TO=F*.
03114 M01S00041.252l678 +++|
03115 M01S00042.252l678 +++|
03116 M01S00043.252l678 +++| GTS ENTRY ENTRY
03117 M01S00044.252l678 +++| LDD CP GET FAMILY EST ORDINAL
03118 M01S00045.252l678 +++| ADN PFCW
03119 M01S00046.252l678 +++| CRD CM
03120 M01S00047.252l678 +++| SFA EST,CM+3 GET EST ENTRY
03121 M01S00048.252l678 +++| CRD CM
03122 M01S00049.252l678 +++| LDD CM+4 GET FAMILY NAME FROM MST
03123 M01S00050.252l678 +++| SHN 3
03124 M01S00051.252l678 +++| ADN PFGL
03125 M01S00052.252l678 +++| CRD CN
03126 M01S00053.252l678 +++| LDD MA GET TAPE CATALOG NAME
03127 M01S00054.252l678 +++| CWM GTSC,ON
03128 M01S00055.252l678 +++| LDD MA
03129 M01S00056.252l678 +++| CRD CM
03130 M01S00057.252l678 +++| RJM FAT FIND FAST ATTACH FILE
03131 M01S00058.252l678 +++| STD CM
03132 M01S00059.252l678 +++| LDN ZERL PRESET PARAMETER WORD
03133 M01S00060.252l678 +++| CRD CN
03134 M01S00061.252l678 +++| LDD CM SET FILE STATUS
03135 M01S00062.252l678 +++| LMN 1
03136 M01S00063.252l678 +++| SHN 11-0
03137 M01S00064.252l678 +++| STD CN
03138 M01S00065.252l678 +++| EXECUTE TFM,=
03139 M01S00066.252l678 +++| LDC 100+1RT SET NAME OF TMS PP PROGRAM *TFM*
03140 M01S00067.252l678 +++| STD CM+2
03141 M01S00068.252l678 +++| LDC 2RFM
03142 M01S00069.252l678 +++| STD CM+3
03143 M01S00070.252l678 +++| MONITOR SPLM SEARCH PERIPHERAL LIBRARY
03144 M01S00071.252l678 +++| LDD CM+4 CHECK IF TMS BINARIES IN SYSTEM
03145 M01S00072.252l678 +++| ADD CM+3
03146 M01S00073.252l678 +++| ZJN GTS1 IF NO BINARIES
03147 M01S00074.252l678 +++| LDC 2000 FLAG BINARIES IN SYSTEM
03148 M01S00075.252l678 +++| RAD CN
03149 M01S00076.252l678 +++| GTS1 LDN SSTL GET TMS ENABLED/DISABLED STATUS
03150 M01S00077.252l678 +++| CRD CM
03151 M01S00078.252l678 +++| LDD CM+2
03152 M01S00079.252l678 +++| LPN 1
03153 M01S00080.252l678 +++| LMN 1
03154 M01S00081.252l678 +++| SHN 13-0
03155 M01S00082.252l678 +++| RAD CN
03156 M01S00083.252l678 +++| NFA TMSN GET TMS CONTROL WORD
03157 M01S00084.252l678 +++| CRD CM
03158 M01S00085.252l678 +++| LDD CM+4 PRESET USER DEFAULTS
03159 M01S00086.252l678 +++| SHN 1-12
03160 M01S00087.252l678 +++| STD CN+4
03161 M01S00088.252l678 +++| SHN 21-13-1+12
03162 M01S00089.252l678 +++| MJN GTS3 IF DEFAULTS SET BY USER
03163 M01S00090.252l678 +++| LDD CP FETCH EJT ORDINAL
03164 M01S00091.252l678 +++| ADK TFSW
03165 M01S00092.252l678 +++| CRD CM
03166 M01S00093.252l678 +++| SFA EJT,CM CALCULATE EJT ENTRY ABSOLUTE ADDRESS
03167 M01S00094.252l678 +++| ADK SCLE GET JOB ORIGIN TYPE
03168 M01S00095.252l678 +++| CRD CM
03169 M01S00096.252l678 +++| LDD CM
03170 M01S00097.252l678 +++| LPN 17
03171 M01S00098.252l678 +++| NJN GTS2 IF NOT SYSTEM ORIGIN
03172 M01S00099.252l678 +++| AOM GTSA CHANGE SHIFT COUNTS
03173 M01S00100.252l678 +++| AOM GTSB
03174 M01S00101.252l678 +++| GTS2 LDK TFML GET TMS SYSTEM STATUS WORD
03175 M01S00102.252l678 +++| CRD CM
03176 M01S00103.252l678 +++| LDD CM+4 SET *TO=F* OR *TO=T*
03177 M01S00104.252l678 +++| GTSA SHN 0-12
03178 M01S00105.252l678 +++|* SHN 0-11 SYSTEM ORIGIN
03179 M01S00106.252l678 +++| LPN 1
03180 M01S00107.252l678 +++| STD CN+4
03181 M01S00108.252l678 +++| LDD CM+4 SET *TO=E* OR *TO=C*
03182 M01S00109.252l678 +++| GTSB SHN 1-10
03183 M01S00110.252l678 +++|* SHN 1-7 SYSTEM ORIGIN
03184 M01S00111.252l678 +++| LPN 2
03185 M01S00112.252l678 +++| RAD CN+4
03186 M01S00113.252l678 +++| GTS3 LDD CN+4 SET DEFAULT TAPE OPTIONS
03187 M01S00114.252l678 +++| LMN 3
03188 M01S00115.252l678 +++| LPN 3
03189 M01S00116.252l678 +++| STD CN+4
03190 M01S00117.252l678 +++| LDN 0
03191 M01S00118.252l678 +++| STD T1
03192 M01S00119.252l678 +++| RJM GFE WRITE REPLY WORD
03193 M01S00120.252l678 +++| CWD CN RETURN TMS STATUS
03194 M01S00121.252l678 +++| LJM DPP DROP PP
03195 M01S00122.252l678 +++|
03196 M01S00123.252l678 +++| GTSC DATA 7L"TMFC" TAPE CATALOG FILE NAME
Line S00071 Modification History
M01 (Added by) ns2357
Seq # *Modification Id* Act
----------------------------+
03197 M01S00071.ns2357 +++| SCD SPACE 4,10
03198 M01S00072.ns2357 +++|*** FUNCTION *SCDF* - SET *CPD* DROP FLAG.
03199 M01S00073.ns2357 +++|*
03200 M01S00074.ns2357 +++|* THIS FUNCTION WILL SET THE *CPD* DROP FLAG IN CMR. AS A
03201 M01S00075.ns2357 +++|* RESULT, THE COPY OF *CPD* THAT IS RUNNING WILL TERMINATE.
Line S00107 Modification History
M01 (Added by) 261l700
Seq # *Modification Id* Act
----------------------------+
03202 M01S00107.261l700 +++|* IT WILL ALSO ASSIGN THE ACTIVE *SAMPLE* FILE (IF ONE EXISTS)
03203 M01S00108.261l700 +++|* TO THE CALLING JOB AS A LOCAL FILE.
Line S00076 Modification History
M01 (Added by) ns2357
Seq # *Modification Id* Act
----------------------------+
03204 M01S00076.ns2357 +++|
03205 M01S00077.ns2357 +++|
03206 M01S00078.ns2357 +++| SCD ENTRY ENTRY
03207 M01S00079.ns2357 +++|
03208 M01S00080.ns2357 +++|* CHECK IF *CPD* IS ACTIVE.
03209 M01S00081.ns2357 +++|
03210 M01S00082.ns2357 +++| LDN PPCP SET PP COMMUNICATION AREA ADDRESSES
03211 M01S00083.ns2357 +++| CRD CM
03212 M01S00084.ns2357 +++| LDD CM+4
03213 M01S00085.ns2357 +++| STD DA
03214 M01S00086.ns2357 +++| LDN PPUL
03215 M01S00087.ns2357 +++| CRD CM
03216 M01S00088.ns2357 +++| LDD CM+2
03217 M01S00089.ns2357 +++| SHN 3
03218 M01S00090.ns2357 +++| ADD DA
03219 M01S00091.ns2357 +++| STD T2
03220 M01S00092.ns2357 +++| SCD1 LDD DA CHECK PP PROGRAM NAME
03221 M01S00093.ns2357 +++| CRD CM
03222 M01S00094.ns2357 +++| LDD CM+1
03223 M01S00095.ns2357 +++| SCN 77
03224 M01S00096.ns2357 +++| SHN 6
03225 M01S00097.ns2357 +++| LMD CM
03226 M01S00098.ns2357 +++| LMC 3RDCP
03227 M01S00099.ns2357 +++| ZJN SCD2 IF *CPD* FOUND
03228 M01S00100.ns2357 +++| LDN 10
03229 M01S00101.ns2357 +++| RAD DA
03230 M01S00102.ns2357 +++| LMD T2
03231 M01S00103.ns2357 +++| NJN SCD1 IF MORE PP-S TO CHECK
03232 M01S00104.ns2357 +++| STD DA
03233 M01S00105.ns2357 +++| LJM SCD4 PROCESS SAMPLE FILE
03234 M01S00106.ns2357 +++|
03235 M01S00107.ns2357 +++| SCD2 LDN 1 SET *CPD* DROP FLAG
03236 M01S00108.ns2357 +++| STD CM+1
03237 M01S00109.ns2357 +++| STD CM+2
03238 M01S00110.ns2357 +++| LDD MA
03239 M01S00111.ns2357 +++| CWM SCDA,ON
03240 M01S00112.ns2357 +++| MONITOR UADM
03241 M01S00113.ns2357 +++| SCD3 DELAY WAIT AWHILE
03242 M01S00114.ns2357 +++| PAUSE
03243 M01S00115.ns2357 +++| LDD CM+1
03244 M01S00116.ns2357 +++| NJP SFMX IF ERROR FLAG SET
03245 M01S00117.ns2357 +++| LDD DA
03246 M01S00118.ns2357 +++| CRD CM
03247 M01S00119.ns2357 +++| LDD CM+1 CHECK PP ASSIGNED
03248 M01S00120.ns2357 +++| SCN 77
03249 M01S00121.ns2357 +++| SHN 6
03250 M01S00122.ns2357 +++| LMD CM
03251 M01S00123.ns2357 +++| LMC 3RDCP
03252 M01S00124.ns2357 +++| ZJN SCD3 IF *CPD* STILL ACTIVE
03253 M01S00125.ns2357 +++|
03254 M01S00126.ns2357 +++|* PROCESS SAMPLE FILE.
03255 M01S00127.ns2357 +++|
03256 M01S00128.ns2357 +++| SCD4 LDN 0 INITIALIZE SEARCH INDEX
03257 M01S00129.ns2357 +++| STD QA
03258 M01S00130.ns2357 +++| SCD5 AOD QA ADVANCE ORDINAL
03259 M01S00131.ns2357 +++| LMD TE
03260 M01S00132.ns2357 +++| NJN SCD6 IF NOT END OF FNT
03261 M01S00133.ns2357 +++| ERROR /ERR/FNF EC = 3, * SFM FILE NOT FOUND.*
03262 M01S00134.ns2357 +++|
03263 M01S00135.ns2357 +++| SCD6 SFA FNT,QA READ FNT ENTRY
03264 M01S00136.ns2357 +++| CRD FN
03265 M01S00137.ns2357 +++| LDD FN+4
03266 M01S00138.ns2357 +++| LMC PMFT*100
03267 M01S00139.ns2357 +++| NJN SCD5 IF INCORRECT TYPE
03268 M01S00140.ns2357 +++|
03269 M01S00141.ns2357 +++|* CREATE LOCAL FILE.
03270 M01S00142.ns2357 +++|
03271 M01S00143.ns2357 +++| RJM EFN ENTER FILE NAME
03272 M01S00144.ns2357 +++| LDN ZERL
03273 M01S00145.ns2357 +++| CRD CN
03274 M01S00146.ns2357 +++| LDD MA
03275 M01S00147.ns2357 +++| CWD FN
03276 M01S00148.ns2357 +++| CRD CM
03277 M01S00149.ns2357 +++| LDD CM+3 CLEAR MODE FLAGS
03278 M01S00150.ns2357 +++| SCN 77
03279 M01S00151.ns2357 +++| STD CM+3
03280 M01S00152.ns2357 +++| LDC SYFT*100 SET FILE TYPE
03281 M01S00153.ns2357 +++| STD CM+4
03282 M01S00154.ns2357 +++| SFA FNT,QA
03283 M01S00155.ns2357 +++| CRD FN
03284 M01S00156.ns2357 +++| CWD CM RESTORE SYSTEM FNT SLOT
03285 M01S00157.ns2357 +++| ADN FSTG
03286 M01S00158.ns2357 +++| CRD FS
03287 M01S00159.ns2357 +++| CWD CN
03288 M01S00160.ns2357 +++| NFA FA,R STORE FILE TYPE IN LOCAL FNT
03289 M01S00161.ns2357 +++| CWD FN
03290 M01S00162.ns2357 +++| SOD FS+4 SET FILE BUSY
03291 M01S00163.ns2357 +++| LDD DA
03292 M01S00164.ns2357 +++| NJP SFMX IF *CPD* FOUND
03293 M01S00165.ns2357 +++| ERROR /ERR/CNF EC=5, * CPD NOT ACTIVE.*
03294 M01S00166.ns2357 +++|
03295 M01S00167.ns2357 +++|
03296 M01S00168.ns2357 +++| SCDA CON LIOS INCREMENT LOW CORE FIELD BY ONE
03297 M01S00169.ns2357 +++| CON INWL WORD ADDRES
03298 M01S00170.ns2357 +++| CON 2*100+1 BIT ADDRESS/FIELD WIDTH
03299 M01S00171.ns2357 +++| CON 0
03300 M01S00172.ns2357 +++| CON 0
03301 M00S02665.sfm +++| CAC SPACE 4,10
03302 M00S02666.sfm +++|** CAC - CHECK ACTIVITY COUNTS.
03303 M00S02667.sfm +++|*
03304 M00S02668.sfm +++|* ENTRY (BFMS) = SYSTEM SECTOR.
03305 M00S02669.sfm +++|* (MI) = MACHINE INDEX.
03306 M00S02670.sfm +++|*
03307 M00S02671.sfm +++|* EXIT (A) = 0 IF LAST MACHINE TO DELETE FILE.
03308 M00S02672.sfm +++|* (T2) = *UCSS* OFFSET FOR THIS MACHINE.
03309 M00S02673.sfm +++|*
03310 M00S02674.sfm +++|* USES CM, T2.
03311 M00S02675.sfm +++|
03312 M00S02676.sfm +++|
03313 M00S02677.sfm +++| CAC SUBR ENTRY/EXIT
03314 M00S02678.sfm +++| LDD MI
03315 M00S02679.sfm +++| SHN 2
03316 M00S02680.sfm +++| ADD MI
03317 M00S02681.sfm +++| ADC UCSS
03318 M00S02682.sfm +++| STD T2
03319 M00S02683.sfm +++| LDI T2 CLEAR MACHINE ACTIVE FLAG
03320 M00S02684.sfm +++| SCN 4
03321 M00S02685.sfm +++| STI T2
03322 M00S02686.sfm +++| LDN 0
03323 M00S02687.sfm +++| STD CM
03324 M00S02688.sfm +++| CAC1 LDM UCSS+5,CM CHECK FOR OTHER MACHINES ACTIVE
03325 M00S02689.sfm +++| LPN 4
03326 M00S02690.sfm +++| NJN CACX IF MACHINE ACTIVE
03327 M00S02691.sfm +++| LDN 5
03328 M00S02692.sfm +++| RAD CM ADVANCE TO NEXT MACHINE
03329 M00S02693.sfm +++| ADC -MISD*5
03330 M00S02694.sfm +++| NJN CAC1 IF NOT ALL MACHINES CHECKED
03331 M00S02695.sfm +++| LDM CASS SET CURRENT ACCESS TO WRITE
03332 M00S02696.sfm +++| SCN 20
03333 M00S02697.sfm +++| LMN 20
03334 M00S02698.sfm +++| STM CASS
03335 M00S02699.sfm +++| LDN 0
03336 M00S02700.sfm +++| UJN CACX RETURN
03337 M00S02701.sfm +++| TITLE SUBROUTINES.
03338 M00S02702.sfm +++| CFE SPACE 4,10
03339 M00S02703.sfm +++|** CFE - CLEAR LOCAL FNT ENTRY.
03340 M00S02704.sfm +++|*
03341 M00S02705.sfm +++|* ENTRY (FA) = INDEX OF FNT ENTRY.
03342 M00S02706.sfm +++|*
03343 M00S02707.sfm +++|* EXIT (A) = (FA) = 0.
03344 M00S02708.sfm +++|*
03345 M00S02709.sfm +++|* USES CM - CM+4.
03346 M00S02710.sfm +++|*
03347 M00S02711.sfm +++|* MACROS MONITOR.
03348 M00S02712.sfm +++|
03349 M00S02713.sfm +++|
03350 M00S02714.sfm +++| CFE SUBR ENTRY/EXIT
03351 M00S02715.sfm +++| LDN ZERL
03352 M00S02716.sfm +++| CRD CM
03353 M00S02717.sfm +++| LDD FA
03354 M00S02718.sfm +++| ZJN CFEX IF NO LOCAL FILE
03355 M00S02719.sfm +++| STD CM+4
03356 M00S02720.sfm +++| LDN DLFS DELETE LOCAL FNT ENTRY
03357 M00S02721.sfm +++| STD CM+1
03358 M00S02722.sfm +++| MONITOR PLFM
03359 M00S02723.sfm +++|* LDN 0 CLEAR FNT INDEX
03360 M00S02724.sfm +++| STD FA
03361 M00S02725.sfm +++| UJN CFEX RETURN
03362 M00S02726.sfm +++| CFI SPACE 4,10
03363 M00S02727.sfm +++|** CFI - CLEAR FLAG REGISTER INTERLOCK.
03364 M00S02728.sfm +++|*
03365 M00S02729.sfm +++|* ENTRY (A) = INTERLOCK TO CLEAR. (*DATI* OR *FATI*)
03366 M00S02730.sfm +++|*
03367 M00S02731.sfm +++|* EXIT (A) = (ABTB).
03368 M00S02732.sfm +++|* INTERLOCK CLEARED.
03369 M00S02733.sfm +++|*
03370 M00S02734.sfm +++|* USES CM - CM+4.
03371 M00S02735.sfm +++|
03372 M00S02736.sfm +++|
03373 M00S02737.sfm +++| CFI SUBR ENTRY/EXIT
03374 M00S02738.sfm +++| SHN 6
03375 M00S02739.sfm +++| STD CM+1
03376 M00S02740.sfm +++| LDN CFRS CLEAR FLAG REGISTER BITS
03377 M00S02741.sfm +++| SHN 11
03378 M00S02742.sfm +++| STD CM+3
03379 M00S02743.sfm +++| MONITOR ECSM
03380 M00S02744.sfm +++| SOM ABTB CLEAR INTERLOCK HELD
03381 M00S02745.sfm +++| UJN CFIX RETURN
03382 M00S02746.sfm +++| CFM SPACE 4,10
03383 M00S02747.sfm +++|** CFM - COMPARE FAMILY NAMES.
03384 M00S02748.sfm +++|*
03385 M00S02749.sfm +++|* ENTRY (T3 - T7) = FAMILY NAME A.
03386 M00S02750.sfm +++|* (CM - CM+4) = FAMILY NAME B.
03387 M00S02751.sfm +++|*
03388 M00S02752.sfm +++|* EXIT (A) = 0, IF SAME FAMILY NAME.
03389 M00S02753.sfm +++|
03390 M00S02754.sfm +++|
03391 M00S02755.sfm +++| CFM SUBR ENTRY/EXIT
03392 M00S02756.sfm +++| LDD CM
03393 M00S02757.sfm +++| LMD T3
03394 M00S02758.sfm +++| NJN CFMX IF NOT SAME FAMILY
03395 M00S02759.sfm +++| LDD CM+1
03396 M00S02760.sfm +++| LMD T3+1
03397 M00S02761.sfm +++| NJN CFMX IF NOT SAME FAMILY
03398 M00S02762.sfm +++| LDD CM+2
03399 M00S02763.sfm +++| LMD T3+2
03400 M00S02764.sfm +++| NJN CFMX IF NOT SAME FAMILY
03401 M00S02765.sfm +++| LDD CM+3
03402 M00S02766.sfm +++| LMD T3+3
03403 M00S02767.sfm +++| SHN -6
03404 M00S02768.sfm +++| UJN CFMX RETURN
03405 M00S02769.sfm +++| ECS SPACE 4
03406 M00S02770.sfm +++|** EXTENDED MEMORY - READ/WRITE EXTENDED MEMORY.
03407 M00S02771.sfm +++|*
03408 M00S02772.sfm +++|* ENTRY (A) = NUMBER OF WORDS*100.
03409 M00S02773.sfm +++|* (CM+3 - CM+4) SET UP FOR *ECSM*.
03410 M00S02774.sfm +++|*
03411 M00S02775.sfm +++|* EXIT TO *ABT* IF UNRECOVERED ERROR.
03412 M00S02776.sfm +++|*
03413 M00S02777.sfm +++|* USES CM - CM+4.
03414 M00S02778.sfm +++|* MESSAGE BUFFER IS USED FOR CM BUFFER.
03415 M00S02779.sfm +++|
03416 M00S02780.sfm +++|
03417 M00S02781.sfm +++| ECS SUBR ENTRY/EXIT
03418 M00S02782.sfm +++| STD CM+1 SET WORDS TO READ/WRITE
03419 M00S02783.sfm +++| LDD MA SET BUFFER ADDRESS
03420 M00S02784.sfm +++| STD CM+2
03421 M00S02785.sfm +++| MONITOR ECSM READ/WRITE EXTENDED MEMORY
03422 M00S02786.sfm +++| LDD CM+1
03423 M00S02787.sfm +++| ZJN ECSX IF NO ERROR
03424 M00S02788.sfm +++| ABORT /MESS/ERLE * SFM UNRECOVERED LINK DEVICE ERROR.*
03425 M00S02789.sfm +++| EFI SPACE 4,20
03426 M00S02790.sfm +++|** EFI - ENTER *FAT* ITEM.
03427 M00S02791.sfm +++|*
03428 M00S02792.sfm +++|* ENTRY (FN - FN+3) = FAST ATTACH FILE NAME.
03429 M00S02793.sfm +++|* (FS - FS+4) = FILE FST ENTRY.
03430 M00S02794.sfm +++|* (ES - ES+4) = FILE EST ENTRY.
03431 M00S02795.sfm +++|* (FC) = *FAT* TABLE COUNT.
03432 M00S02796.sfm +++|* (FI) = *FAT* TABLE INDEX OF HOLE
03433 M00S02797.sfm +++|* (ID) = MACHINE ID
03434 M00S02798.sfm +++|* (MI) = MACHINE INDEX
03435 M00S02799.sfm +++|*
03436 M00S02800.sfm +++|* EXIT (A) .EQ. 0 IF HOLD USED FOR ENTRY.
03437 M00S02801.sfm +++|* (A) .NE. 0 IF NEW ENTRY CREATED AT END OF TABLE.
03438 M00S02802.sfm +++|* TO *ABT* IF *FAT* SPACE NOT AVAILABLE.
03439 M00S02803.sfm +++|*
03440 M00S02804.sfm +++|* USES CM - CM+4, T1, T6, T7.
03441 M00S02805.sfm +++|* MESSAGE BUFFER USED FOR CM/ECS BUFFER.
03442 M00S02806.sfm +++|*
03443 M00S02807.sfm +++|* CALLS CEA, ECS.
03444 M00S02808.sfm +++|
03445 M00S02809.sfm +++|
03446 M00S02810.sfm +++| EFI SUBR ENTRY/EXIT
03447 M00S02811.sfm +++| LDD FI
03448 M00S02812.sfm +++| NJN EFI1 IF HOLE AVAILABLE
03449 M00S02813.sfm +++| AOM EFIA SET NEW ENTRY CREATED
Line S00016 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03450 M01S00016.253l688 +++| LDN 20 SET AVAILABLE ENTRY COUNT
03451 M01S00017.253l688 +++| EFIB SHN 0
03452 M01S00018.253l688 +++| SBK FAST
03453 M01S00019.253l688 +++| SHN 6-FATS
03454 M01S00020.253l688 +++| STD T1
03455 M00S02814.sfm +++| LDD FC
03456 M00S02815.sfm +++| STD FI
Line S02816 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03457 M01S02816.253l688 ---| SCN 77
03458 M01S02817.253l688 ---| ZJN EFI1 IF SPACE AVAILABLE
Line S00021 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03459 M01S00021.253l688 +++| SBD T1
03460 M01S00022.253l688 +++| MJN EFI1 IF SPACE AVAILABLE
03461 M00S02818.sfm +++| ABORT /MESS/ERNH * SFM GLOBAL FAST ATTACH LIMIT.*
03462 M00S02819.sfm +++|
Line S02820 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03463 M01S02820.253l688 ---|* SET WORDS 1 - 6 OF *FAT* ENTRY IN MESSAGE BUFFER.
Line S00023 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
03464 M01S00023.253l688 +++|* SET *FAT* WORDS IN EXTENDED MEMORY.
03465 M00S02821.sfm +++|
03466 M00S02822.sfm +++| EFI1 LDN ZERL SET FIRST TRACK AND USER COUNTS
03467 M00S02823.sfm +++| CRD CM
03468 M00S02824.sfm +++| LDD FS+1
03469 M00S02825.sfm +++| STD CM+1
Line S02826 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
03470 M01S02826.253l688 ---| LDD MA
03471 M01S02827.253l688 ---| STD T1
03472 M01S02828.253l688 ---| CWD CM
03473 M01S02829.253l688 ---| LDN 0 SET LOCAL AREAS
03474 M01S02830.253l688 ---| STD CM+1
03475 M01S02831.253l688 ---| AOD T1 LOCAL AREA 1
03476 M01S02832.253l688 ---| CWD CM
03477 M01S02833.253l688 ---| AOD T1 LOCAL AREA 2
03478 M01S02834.253l688 ---| CWD CM
03479 M01S02835.253l688 ---| AOD T1 LOCAL AREA 3
03480 M01S02836.253l688 ---| CWD CM