Seq # *Modification Id* Act
----------------------------+
01852 M00S01733.ppr +++|*** *3RU* IS CALLED BY *1RU* TO SET THE SOFTWARE RESERVE
01853 M00S01734.ppr +++|* ON THE DEVICE.
01854 M00S01735.ppr +++| SPACE 4,10
01855 M00S01736.ppr +++|*** ENTRY CONDITIONS.
01856 M00S01737.ppr +++|*
01857 M00S01738.ppr +++|*
01858 M00S01739.ppr +++|* (TL) = LENGTH OF TRT IN CM WORDS.
01859 M00S01740.ppr +++|* (T5) = MS EST ORDINAL.
01860 M00S01741.ppr +++|* (MS) = MST ADDRESS/10B.
01861 M00S01742.ppr +++|* (EF) = ERROR FLAG.
01862 M00S01743.ppr +++| SPACE 4,10
01863 M00S01744.ppr +++|*** EXIT CONDITIONS.
01864 M00S01745.ppr +++|*
01865 M00S01746.ppr +++|*
01866 M00S01747.ppr +++|* TO URPX IF NO WRITE ERROR.
01867 M00S01748.ppr +++|* TO ERR IF LABEL WRITE ERROR.
01868 M00S01749.ppr +++| SPACE 4,10
01869 M00S01750.ppr +++|*** NOTE - THIS OVERLAY MUST RESIDE IN *RPL*.
01870 M00S01751.ppr +++| EJECT
01871 M00S01752.ppr +++|*** RID - RESERVE ISHARED DEVICE.
01872 M00S01753.ppr +++|
01873 M00S01754.ppr +++|
01874 M00S01755.ppr +++| RID SUBR
01875 M00S01756.ppr +++| LDD EA
01876 M00S01757.ppr +++| NJN RID3 IF NOT A REPAIR CALL
01877 M00S01758.ppr +++| LDD EF
01878 M00S01759.ppr +++| NJN RID1 IF ERRORS OCCURRED
01879 M00S01760.ppr +++|
01880 M00S01761.ppr +++|* CHECK FOR SIMULTANEOUS UPDATE BY ANOTHER MAINFRAME.
01881 M00S01762.ppr +++|
01882 M00S01763.ppr +++| LDD CN+2
01883 M00S01764.ppr +++| SBM N4SS+5*SDGL+2
01884 M00S01765.ppr +++| MJN RID2 IF SIMULTANEOUS UPDATE
01885 M00S01766.ppr +++| NJN RID1 IF DISK COPY IS OLDER THAN CM COPY
01886 M00S01767.ppr +++| LDD CN+3
01887 M00S01768.ppr +++| SBM N4SS+5*SDGL+3
01888 M00S01769.ppr +++| MJN RID2 IF SIMULTANEOUS UPDATE
01889 M00S01770.ppr +++| NJN RID1 IF DISK COPY IS OLDER THAN CM COPY
01890 M00S01771.ppr +++| LDD CN+4
01891 M00S01772.ppr +++| SCN 77 IGNORE INTERLOCK BITS
01892 M00S01773.ppr +++| LMN 77
01893 M00S01774.ppr +++| SBM N4SS+5*SDGL+4
Line S01775 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01894 M01S01775.ns2579 ---| SHN -6
01895 M00S01776.ppr +++| RID1 PJP RID6 IF NOT SIMULTANEOUS UPDATE
01896 M00S01777.ppr +++| RID2 ERROR ESUP *SIMULTANEOUS UPDATE*
01897 M00S01778.ppr +++|
01898 M00S01779.ppr +++| RID3 LDD EF
01899 M00S01780.ppr +++| NJP RIS IF ERROR PROCESSING
01900 M00S01781.ppr +++|
01901 M00S01782.ppr +++|* VERIFY THAT THE MAINFRAME IS IN THE DIT.
01902 M00S01783.ppr +++|
01903 M00S01784.ppr +++| LDD TA GET TRT ADDRESS
01904 M00S01785.ppr +++| SHN 14
01905 M00S01786.ppr +++| LMD TA+1
01906 M00S01787.ppr +++| ADD DO
01907 M00S01788.ppr +++| ADD MI
01908 M00S01789.ppr +++| SBN 1
01909 M00S01790.ppr +++| CRD CM GET THIS MAINFRAME-S ID
01910 M00S01791.ppr +++| LDD CM+4
01911 M00S01792.ppr +++| LMD ID
01912 M00S01793.ppr +++| ZJN RID4 IF ID MATCHES
01913 M00S01794.ppr +++| ERROR EMND *MACHINE NOT IN DIT ERROR*
01914 M00S01795.ppr +++|
01915 M00S01796.ppr +++|* RESERVE THE DEVICE.
01916 M00S01797.ppr +++|
01917 M00S01798.ppr +++| RID4 STD T7 RESET SECTOR NUMBER
01918 M00S01799.ppr +++| RJM RLS RECREATE LABEL SECTOR
01919 M00S01800.ppr +++| LDD MI SET SOFTWARE RESERVE
01920 M00S01801.ppr +++| SHN 1
01921 M00S01802.ppr +++| LMM N4SS+SDGL*5+4
01922 M00S01803.ppr +++| LPN 76
01923 M00S01804.ppr +++| ZJN RID5 IF THIS MAINFRAME ALREADY HAS INTERLOCK
01924 M00S01805.ppr +++| RAM N4SS+SDGL*5+4
01925 M00S01806.ppr +++| RJM CLC UPDATE CHECKSUM
01926 M00S01807.ppr +++| STM CKSS
01927 M00S01808.ppr +++| LDC BFMS+WLSF WRITE LABEL SECTOR WITH SOFTWARE RESERVE
01928 M00S01809.ppr +++| RJM WDS
01929 M00S01810.ppr +++| PJN RID5 IF NO WRITE ERROR
Line S01811 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01930 M01S01811.ns2579 ---| ERROR EWEL *LABEL WRITE ERROR*
Line S00050 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
01931 M01S00050.ns2579 +++| ERROR ESIN *LABEL WRITE ERROR* SETTING INTERLOCK
01932 M00S01812.ppr +++|
01933 M00S01813.ppr +++| RID5 LDK RTCL GET CURRENT TIME
01934 M00S01814.ppr +++| CRD TM
Line S01815 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01935 M01S01815.ns2579 ---| LDC 2000 SET TABLES CURRENT FLAG
01936 M01S01816.ns2579 ---| RAM N4SS+SDGL*5
Line S00051 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
01937 M01S00051.ns2579 +++| LDM N4SS+SDGL*5 SET TABLES CURRENT FLAG
01938 M01S00052.ns2579 +++| LPC -2000
01939 M01S00053.ns2579 +++| LMC 2000
01940 M01S00054.ns2579 +++| STM N4SS+SDGL*5
01941 M00S01817.ppr +++| LDD MS
01942 M00S01818.ppr +++| SHN 3
01943 M00S01819.ppr +++| ADN SDGL
01944 M00S01820.ppr +++| CWM N4SS+SDGL*5,ON
01945 M00S01821.ppr +++| RJM SRB SET REISSUE BIT
01946 M00S01822.ppr +++| RID6 EXECUTE 3RV WRITE TABLES BACK AND RETURN TO CALLER
01947 M00S01823.ppr +++| RIS SPACE 4,10
01948 M00S01824.ppr +++|*** RIS - RETURN INACCESSIBLE STATUS.
01949 M00S01825.ppr +++|*
01950 M00S01826.ppr +++|* *RIS* CAUSES THE PP-S REQUESTING RETURN-ON-INACCESSIBLE
01951 M00S01827.ppr +++|* DEVICE TO REISSUE THEIR MONITOR FUNCTIONS. *CPUMTR* WILL
01952 M00S01828.ppr +++|* DETECT THE INACCESSIBLE DEVICE STATUS, CLEAR THE PP-S BIT IN
Line S01829 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01953 M01S01829.ns2579 ---|* *MCLL*, AND CLEAR BYTE 0 OF ITS OUPUT REGISTER.
Line S00055 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
01954 M01S00055.ns2579 +++|* *MCLL*, AND CLEAR BYTE 0 OF ITS OUTPUT REGISTER.
01955 M01S00056.ns2579 +++|*
01956 M01S00057.ns2579 +++|* ENTRY (A) = (EF) = ERROR FLAG.
01957 M00S01830.ppr +++|
01958 M00S01831.ppr +++|
Line S01832 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01959 M01S01832.ns2579 ---| RIS LDK PSNI PRESET *SRB*
01960 M01S01833.ns2579 ---| STM SRBA
01961 M01S01834.ns2579 ---| STM SRBE
Line S00058 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
01962 M01S00058.ns2579 +++|
01963 M01S00059.ns2579 +++| RIS SBN EPRO
01964 M01S00060.ns2579 +++| ZJN RIS2 IF PROCESSING ERROR
01965 M01S00061.ns2579 +++| ERRNZ EWRC-EPRO CODE ASSUMES VALUE
01966 M01S00062.ns2579 +++| PJN RIS1 IF WRITE-TIME ERROR
01967 M01S00063.ns2579 +++| LDD RI CHECK RETURN-ON-INACCESSIBLE IN CALL
01968 M01S00064.ns2579 +++| SHN 21-11
01969 M01S00065.ns2579 +++| PJN RIS2 IF RETURN-ON-INACCESSIBLE NOT SET
01970 M01S00066.ns2579 +++|
01971 M01S00067.ns2579 +++|* RETURN TO CALLER.
01972 M01S00068.ns2579 +++|
01973 M01S00069.ns2579 +++| LDN 0 CLEAR OUTPUT REGISTER
01974 M01S00070.ns2579 +++| STD OR
01975 M01S00071.ns2579 +++| RIS1 LDN C1AS CLEAR *1RU* ACTIVITY IN *MCLL*
01976 M01S00072.ns2579 +++| STD CM+3
01977 M01S00073.ns2579 +++| LDD T5
01978 M01S00074.ns2579 +++| STD CM+1
01979 M01S00075.ns2579 +++| MONITOR SMDM
01980 M01S00076.ns2579 +++|* LDN PSNI
01981 M01S00077.ns2579 +++| STM SRBA MAKE ONLY ONE PASS IN *SRB*
01982 M01S00078.ns2579 +++| RJM SRB SET REISSUE BIT FOR ALL PP-S
01983 M01S00079.ns2579 +++| UJP RID6 RETURN TO CALLER
01984 M01S00080.ns2579 +++|
01985 M01S00081.ns2579 +++|* REPLY TO WAITING PP-S, DELAY, THEN RETRY THE REQUEST.
01986 M01S00082.ns2579 +++|
01987 M01S00083.ns2579 +++| RIS2 LDK PSNI
01988 M01S00084.ns2579 +++| STM SRBA MAKE ONLY ONE PASS IN *SRB*
01989 M01S00085.ns2579 +++| STM SRBE REQUIRE RET-ON-INACCESSIBLE TO SET REISSUE
01990 M01S00086.ns2579 +++| STD T8 INITIALIZE TIMEOUT COUNTER
01991 M01S00087.ns2579 +++| ERRNZ PSNI-77 CODE ASSUMES VALUE
01992 M00S01835.ppr +++| RJM SRB SET REISSUE BIT FOR PP-S REQUESTING RETURN
Line S01836 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
01993 M01S01836.ns2553 ---| LDD SA
Line S00041 Modification History
M01 (Added by) ns2553
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01994 M02S00041.ns2579 ---| LDK INWL CHECK FOR DEADSTART IN PROGRESS
Line S00088 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
01995 M01S00088.ns2579 +++| RIS2.1 LDD MS CHECK SUSPECT FLAG
01996 M01S00089.ns2579 +++| SHN 3
01997 M01S00090.ns2579 +++| ADN DALL
Line S00042 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
01998 M01S00042.ns2553 +++| CRD CM
Line S00043 Modification History
M01 (Added by) ns2553
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
01999 M02S00043.ns2579 ---| LDD CM+3
02000 M02S00044.ns2579 ---| LPN 12
02001 M02S00045.ns2579 ---| ZJN RIS0 IF DEADSTART COMPLETE, SCHEDULING ENABLED
02002 M02S00046.ns2579 ---| STM RISB FORCE RETRY
02003 M02S00047.ns2579 ---| UJN RIS1 DELAY
02004 M02S00048.ns2579 ---|
02005 M02S00049.ns2579 ---| RIS0 LDD SA
Line S01837 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02006 M01S01837.ns2579 ---| SHN 14
02007 M01S01838.ns2579 ---| LMD SA+1
02008 M01S01839.ns2579 ---| ZJN RID6 IF STANDALONE
02009 M01S01840.ns2579 ---| SBN 7 CHECK RETURN-ON-INACCESSIBLE IN CALL
02010 M01S01841.ns2579 ---| CRD CM
02011 M01S01842.ns2579 ---| LDD CM+1 CHECK THIS PP
02012 M01S01843.ns2579 ---| SHN 21-11
02013 M01S01844.ns2579 ---| MJN RID6 IF RETURN-ON-INACCESSIBLE SET
02014 M01S01845.ns2579 ---| RIS1 DELAY 4
Line S00091 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02015 M01S00091.ns2579 +++| LDD CM
02016 M01S00092.ns2579 +++| SHN 21-7
02017 M01S00093.ns2579 +++| PJN RIS3 IF SUSPECT HAS CLEARED
02018 M01S00094.ns2579 +++| DELAY 8D*16D 16 MILLISECONDS
02019 M00S01846.ppr +++| PAUSE
02020 M00S01847.ppr +++| LDD CM+1
02021 M00S01848.ppr +++| LMN ORET
Line S01849 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02022 M01S01849.ns2579 ---| NJN RIS2 IF NOT OPERATOR *OVERRIDE*
02023 M01S01850.ns2579 ---| MONITOR DPPM
02024 M01S01851.ns2579 ---| LJM PPR EXIT
02025 M01S01852.ns2579 ---|
02026 M01S01853.ns2579 ---| RIS2 LDD MS
02027 M01S01854.ns2579 ---| SHN 3
02028 M01S01855.ns2579 ---| ADN DALL
02029 M01S01856.ns2579 ---| CRD CM
02030 M01S01857.ns2579 ---| LDD CM
02031 M01S01858.ns2579 ---| SHN 21-7
Line S01859 Modification History
M01 (Removed by) ns2553
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02032 M02S01859.ns2579 ---| MJN RIS1 IF STILL INACCESSIBLE
Line S00050 Modification History
M01 (Added by) ns2553
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02033 M02S00050.ns2579 ---| RISB MJN RIS1 IF STILL INACCESSIBLE
02034 M02S00051.ns2579 ---|* PSN (DEADSTART IN PROGRESS)
Line S00095 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02035 M01S00095.ns2579 +++| ZJN RIS5 IF OPERATOR *OVERRIDE*
02036 M01S00096.ns2579 +++| SOD T8 DECREMENT TIMEOUT COUNTER
02037 M01S00097.ns2579 +++| PJN RIS2.1 IF NOT TIMED OUT
02038 M00S01860.ppr +++|
02039 M00S01861.ppr +++|* RESTART REQUEST.
02040 M00S01862.ppr +++|
Line S01863 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02041 M01S01863.ns2579 ---| LDD EF
02042 M01S01864.ns2579 ---| SBN 77
02043 M01S01865.ns2579 ---| MJN RIS3 IF NO MESSAGE TO CLEAR
02044 M01S01866.ns2579 ---| LDN 0
02045 M01S01867.ns2579 ---| STD CM
02046 M01S01868.ns2579 ---| LDD EF
02047 M01S01869.ns2579 ---| CWD CM CLEAR ERROR MESSAGE
02048 M01S01870.ns2579 ---| RIS3 LDN 1 SET LATENCY ACTIVITY BIT IN *MCLL*
02049 M01S01871.ns2579 ---| STD CM+1
Line S00098 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02050 M01S00098.ns2579 +++| RIS3 LDD EM
02051 M01S00099.ns2579 +++| ZJN RIS4 IF NO MESSAGE TO CLEAR
02052 M01S00100.ns2579 +++| CWM RISA,ON CLEAR ERROR MESSAGE
02053 M01S00101.ns2579 +++| RIS4 LDD EF
02054 M01S00102.ns2579 +++| SBN EWRC
02055 M01S00103.ns2579 +++| PJP RID6 IF WRITE ERROR
02056 M01S00104.ns2579 +++|
02057 M01S00105.ns2579 +++|* RETRY REQUEST FROM THE READ.
02058 M01S00106.ns2579 +++|
02059 M01S00107.ns2579 +++| LDN 1
Line S00052 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02060 M01S00052.ns2553 +++| STD IR+3 SET RETRY FUNCTION CODE FOR *1RU*
Line S01872 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02061 M01S01872.ns2579 ---| LDD MS
02062 M01S01873.ns2579 ---| SHN 3
02063 M01S01874.ns2579 ---| STD CM+4
02064 M01S01875.ns2579 ---| SHN -14
02065 M01S01876.ns2579 ---| STD CM+3
02066 M01S01877.ns2579 ---| LDD MA
02067 M01S01878.ns2579 ---| CWM RISA,CM+1
Line S00108 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02068 M01S00108.ns2579 +++| ADD MA
02069 M00S01879.ppr +++| CWD SA-1 REWRITE SAVE AREA ADDRESS IN MB+1
Line S01880 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02070 M01S01880.ns2579 ---| MONITOR UTEM
Line S01881 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02071 M01S01881.ns2553 ---| LDN 1 RETRY REQUEST
02072 M01S01882.ns2553 ---| STD IR+4
02073 M00S01883.ppr +++| EXECUTE 1RU
02074 M00S01884.ppr +++|
Line S00109 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02075 M01S00109.ns2579 +++| RIS5 MONITOR DPPM
02076 M01S00110.ns2579 +++| LJM PPR EXIT
02077 M00S01885.ppr +++|
Line S01886 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02078 M01S01886.ns2579 ---| RISA VFD 1/0,5/MCLL,6/1,6/0,42/1
Line S00111 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02079 M01S00111.ns2579 +++|
02080 M01S00112.ns2579 +++| RISA CON 0
02081 M00S01887.ppr +++| SRB SPACE 4,10
02082 M00S01888.ppr +++|*** SRB - SET REISSUE BIT FOR PP-S WITH REQUESTS PENDING.
02083 M00S01889.ppr +++|*
02084 M00S01890.ppr +++|* CHECK OUTSTANDING FUNCTIONS MASK AND CAUSE WAITING PPS TO
02085 M00S01891.ppr +++|* REISSUE THEIR FUNCTION.
02086 M00S01892.ppr +++|*
Line S01893 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02087 M01S01893.ns2579 ---|* ENTRY (SRBA) IS CHANGED TO A *PSN* INSTRUCTION IF THE
02088 M01S01894.ns2579 ---|* RETURN-ON-INACCESSIBLE BIT MUST ALSO BE SET.
Line S00113 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02089 M01S00113.ns2579 +++|* ENTRY (SRBA) = *PSN*, ONLY ONE PASS IS TO BE MADE.
02090 M01S00114.ns2579 +++|* (SRBE) = *PSN*, IF THE RETURN-ON-INACCESSIBLE BIT
02091 M01S00115.ns2579 +++|* MUST ALSO BE SET BEFORE THE REISSUE BIT WILL
02092 M01S00116.ns2579 +++|* BE SET.
02093 M00S01895.ppr +++|*
02094 M00S01896.ppr +++|* USES T1, T3, CM - CM+4, CN - CN+4.
02095 M00S01897.ppr +++|
02096 M00S01898.ppr +++|
02097 M00S01899.ppr +++| SRB6 UJN SRB1 RECHECK
02098 M00S01900.ppr +++|* PSN (PROCESS RETURN-ON-INACCESSIBLE FLAG)
02099 M00S01901.ppr +++| SRBA EQU *-1
02100 M00S01902.ppr +++|
02101 M00S01903.ppr +++|
02102 M00S01904.ppr +++| SRB SUBR ENTRY/EXIT
02103 M00S01905.ppr +++| LDK PPCP GET PP COMMUNICATION AREA ADDRESS
02104 M00S01906.ppr +++| CRD CM
02105 M00S01907.ppr +++| AOD CM+4
02106 M00S01908.ppr +++| STD T3
02107 M00S01909.ppr +++| SRB1 LDN 2 SET PP COUNTER
02108 M00S01910.ppr +++| STD T1
02109 M00S01911.ppr +++| LDD MS GET OUTSTANDING FUNCTION MASK BITS
02110 M00S01912.ppr +++| SHN 3
02111 M00S01913.ppr +++| ADN MCLL
02112 M00S01914.ppr +++| CRD CN
02113 M00S01915.ppr +++| LDD CN+1 IGNORE PPS 0 AND 1
02114 M00S01916.ppr +++| LPN 77
02115 M00S01917.ppr +++| ADD CN+2
02116 M00S01918.ppr +++| ZJN SRBX IF NO BITS ARE SET
02117 M00S01919.ppr +++| SRB2 LDD CN+1
02118 M00S01920.ppr +++| LPN 77
02119 M00S01921.ppr +++| SHN 14
02120 M00S01922.ppr +++| ADD CN+2
02121 M00S01923.ppr +++| SHN 21-0
02122 M00S01924.ppr +++| STD CN+2
02123 M00S01925.ppr +++| SHN -14
02124 M00S01926.ppr +++| STD CN+1
02125 M00S01927.ppr +++| SHN 14
02126 M00S01928.ppr +++| PJN SRB3 IF BIT NOT SET FOR PP
02127 M00S01929.ppr +++| LDD T1 SET UP BIT FOR PP MASK
02128 M00S01930.ppr +++| SBN 2
02129 M00S01931.ppr +++| LMD TH+SHNI*
02130 M00S01932.ppr +++| STM SRBB
02131 M00S01933.ppr +++| STM SRBD
02132 M00S01934.ppr +++| LDN 1
02133 M00S01935.ppr +++| SRBB SHN **
02134 M00S01936.ppr +++| SRBC LPC 0
02135 M00S01937.ppr +++| NJN SRB5 IF PP ALREADY PROCESSED
02136 M00S01938.ppr +++| LDN 1 SET PP PROCESSED BIT
02137 M00S01939.ppr +++| SRBD SHN **
02138 M00S01940.ppr +++| RAM SRBC+1
02139 M00S01941.ppr +++| SHN -14
02140 M00S01942.ppr +++| RAM SRBC
02141 M00S01943.ppr +++| LDD T1 GET PP REQUEST
02142 M00S01944.ppr +++| SHN 3
02143 M00S01945.ppr +++| ADD T3
02144 M00S01946.ppr +++| STD T0
02145 M00S01947.ppr +++| CRD CM
02146 M00S01948.ppr +++| SRBE UJN SRB4 TELL PP TO REISSUE FUNCTION
02147 M00S01949.ppr +++|* PSN (PROCESS RETURN-ON-INACCESSIBLE FLAG)
02148 M00S01950.ppr +++|
02149 M00S01951.ppr +++| LDD CM+1
02150 M00S01952.ppr +++| SHN 21-11
02151 M00S01953.ppr +++| SRB3 PJN SRB5 IF RETURN-ON-INACCESSIBLE FLAG IS NOT SET
Line S01954 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02152 M01S01954.ns2579 ---| SRB4 LDC 5000 TELL PP TO REISSUE ITS FUNCTION
02153 M01S01955.ns2579 ---| RAD CM
Line S00117 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02154 M01S00117.ns2579 +++| SRB4 LDD CM TELL PP TO REISSUE ITS FUNCTION
02155 M01S00118.ns2579 +++| LPC -5000
02156 M01S00119.ns2579 +++| LMC 5000
02157 M01S00120.ns2579 +++| STD CM
02158 M00S01956.ppr +++| LDD T0
02159 M00S01957.ppr +++| CWD CM
02160 M00S01958.ppr +++| SRB5 AOD T1 ADVANCE TO NEXT PP
02161 M00S01959.ppr +++| SBN 20D+1
02162 M00S01960.ppr +++| MJP SRB2 IF MORE PPS TO CHECK
02163 M00S01961.ppr +++| LJM SRB6 RECHECK IF NECESSARY
Line S00121 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02164 M01S00121.ns2579 +++|
02165 M00S01962.ppr +++|
02166 M00S01963.ppr +++| OVERFLOW RIDX,MSFW+/1BP/PPSA2*5,CMR
02167 M00S01964.ppr +++| OVERLAY (WRITE MST/TRT/MRT PROCESSOR.),URSW
02168 M00S01965.ppr +++| SPACE 4,10
02169 M00S01966.ppr +++|*** 3RV - WRITE MST/TRT/MRT PROCESSOR.
02170 M00S01967.ppr +++|* G. A. SCHUMACHER. 79/08/03.
02171 M00S01968.ppr +++|* J. J. EIKUM. 81/05/18.
02172 M00S01969.ppr +++| SPACE 4,10
02173 M00S01970.ppr +++|*** *3RV* IS CALLED BY *3RU* WHEN THE MST/TRT
02174 M00S01971.ppr +++|* MUST BE WRITTEN BACK TO THE DEVICE.
02175 M00S01972.ppr +++| SPACE 4,10
02176 M00S01973.ppr +++|*** ENTRY CONDITIONS.
02177 M00S01974.ppr +++|*
02178 M00S01975.ppr +++|*
02179 M00S01976.ppr +++|* (TL) = LENGTH OF TRT IN CM WORDS.
02180 M00S01977.ppr +++|* (T5) = MS EST ORDINAL.
02181 M00S01978.ppr +++|* (MS) = MST ADDRESS/10B.
02182 M00S01979.ppr +++|* (EF) = ZERO.
02183 M00S01980.ppr +++| SPACE 4,10
02184 M00S01981.ppr +++|*** EXIT CONDITIONS.
02185 M00S01982.ppr +++|*
02186 M00S01983.ppr +++|*
02187 M00S01984.ppr +++|* TO URPX IF NO WRITE ERROR.
02188 M00S01985.ppr +++|* TO ERR IF LABEL WRITE ERROR.
02189 M00S01986.ppr +++| SPACE 4,10
02190 M00S01987.ppr +++|*** NOTE - THIS OVERLAY MUST RESIDE IN *RPL*.
02191 M00S01988.ppr +++| EJECT
02192 M00S01989.ppr +++|*** WID - WRITE ISHARED DEVICE.
02193 M00S01990.ppr +++|*
02194 M00S01991.ppr +++|* ENTRY (CN - CN+4) = (*SDGL*), FOR REPAIR CALL ONLY.
02195 M00S01992.ppr +++|
02196 M00S01993.ppr +++|
02197 M00S01994.ppr +++| WID SUBR
Line S01995 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02198 M01S01995.ns2579 ---| LDD EA
Line S00122 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02199 M01S00122.ns2579 +++| LDD EF
02200 M01S00123.ns2579 +++| ZJN WID3 IF NO ERRORS ENCOUNTERED
02201 M01S00124.ns2579 +++| SBN EPRO
02202 M01S00125.ns2579 +++| NJP WID15 IF A READ OR WRITE ERROR
02203 M01S00126.ns2579 +++| STD EF
02204 M01S00127.ns2579 +++| LJM WID7 RETRY WRITE
02205 M01S00128.ns2579 +++|
02206 M01S00129.ns2579 +++| WID3 LDD EA
02207 M00S01996.ppr +++| ZJP WID8 IF REPAIR CALL
Line S01997 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02208 M01S01997.ns2579 ---| LDD EF
02209 M01S01998.ns2579 ---| NJP WID15 IF ERROR ENCOUNTERED
02210 M01S01999.ns2579 ---| WID4 DELAY
Line S00130 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02211 M01S00130.ns2579 +++| WID4 DELAY WAIT WHILE DISK REVOLVES
02212 M00S02000.ppr +++| LDK RTCL
02213 M00S02001.ppr +++| CRD CM
02214 M00S02002.ppr +++| LDD CM+4
02215 M00S02003.ppr +++| SBD TM+4
02216 M00S02004.ppr +++| PJN WID5 IF TIME HASN-T WRAPPED
02217 M00S02005.ppr +++| ADC 10000
02218 M00S02006.ppr +++| WID5 SBN 14
02219 M00S02007.ppr +++| MJN WID4 IF NOT NEAR END OF REVOLUTION
02220 M00S02008.ppr +++| LDD SA
02221 M00S02009.ppr +++| SHN 14
02222 M00S02010.ppr +++| ADD SA+1
02223 M00S02011.ppr +++| ZJN WID6 IF RUNNING IN STAND-ALONE PP
02224 M00S02012.ppr +++| SBN 6
Line S02013 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02225 M01S02013.ns2579 ---| WID6 CRM MBSA,SX
Line S00131 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02226 M01S00131.ns2579 +++| WID6 CRM BFMS,SX
02227 M00S02014.ppr +++| LDD MA MOVE REQUEST PARAMETERS TO CM - CM+4
02228 M00S02015.ppr +++| CWD OR
02229 M00S02016.ppr +++| CRD CM
Line S02017 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02230 M01S02017.ns2579 ---| CWM MBSA,SX RESTORE REQUEST TIME MESSAGE BUFFER
Line S00132 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02231 M01S00132.ns2579 +++| CWM BFMS,SX RESTORE REQUEST TIME MESSAGE BUFFER
02232 M00S02018.ppr +++| LDD OR ISSUE FUNCTION
02233 M00S02019.ppr +++| RJM FTN
Line S02020 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02234 M01S02020.ns2579 ---| LDD OA SAVE RESPONSE
Line S00133 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02235 M01S00133.ns2579 +++| LDD CM+1 CHECK RETURN-ON-INACCESSIBLE-DEVICE
02236 M01S00134.ns2579 +++| SHN 21-11
02237 M01S00135.ns2579 +++| PJN WID6.1 IF STANDALONE *1RU* OR ACCESSIBLE DEVICE
02238 M01S00136.ns2579 +++| LDC 4000 SET REISSUE BIT
02239 M01S00137.ns2579 +++| RAD OR
02240 M01S00138.ns2579 +++| LDD RI
02241 M01S00139.ns2579 +++| STD OR+1
02242 M01S00140.ns2579 +++| SHN 21-11
02243 M01S00141.ns2579 +++| PJN WID7 IF RETURN-ON-INACCESSIBLE NOT REQUESTED
02244 M01S00142.ns2579 +++| WID6.1 LDD OA SAVE RESPONSE
02245 M00S02021.ppr +++| CRD OR
02246 M00S02022.ppr +++| ADN 1
Line S02023 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02247 M01S02023.ns2579 ---| CRM MBSA,SX
Line S00143 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02248 M01S00143.ns2579 +++| CRM BFMS,SX
02249 M01S00144.ns2579 +++| LDD SA
02250 M01S00145.ns2579 +++| SHN 14
02251 M01S00146.ns2579 +++| ADD SA+1
02252 M01S00147.ns2579 +++| ZJN WID7 IF RUNNING IN STAND-ALONE PP
02253 M01S00148.ns2579 +++| SBN 6
02254 M01S00149.ns2579 +++| CWM BFMS,SX
02255 M00S02024.ppr +++|
02256 M00S02025.ppr +++|* WRITE MST/DIT/TRT/MRT TO THE DISK.
02257 M00S02026.ppr +++|
Line S02027 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02258 M01S02027.ns2579 ---| WID7 LDD MS CHECK TABLES CURRENT FLAG
Line S00150 Modification History
M01 (Added by) ns2579
M02 (Removed by) ppr17
Seq # *Modification Id* Act
----------------------------+
02259 M02S00150.ppr17 ---| WID7 LDN 77 SET TABLES-CURRENT TIMEOUT
Line S00001 Modification History
M01 (Added by) ppr17
Seq # *Modification Id* Act
----------------------------+
02260 M01S00001.ppr17 +++| WID7 LCN 0 SET TABLES-CURRENT TIMEOUT
Line S00151 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02261 M01S00151.ns2579 +++| STD T8
02262 M01S00152.ns2579 +++| WID7.1 DELAY 4
02263 M01S00153.ns2579 +++| SOD T8 DECREMENT TIMEOUT COUNTER
02264 M01S00154.ns2579 +++| MJN WID7.2 IF TIMED OUT
02265 M01S00155.ns2579 +++| LDD MS
02266 M00S02028.ppr +++| SHN 3
02267 M00S02029.ppr +++| ADN SDGL
Line S02030 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02268 M01S02030.ns2579 ---| CRD CN
Line S00156 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02269 M01S00156.ns2579 +++| CRD CN GET TABLES-CURRENT FLAG
02270 M01S00157.ns2579 +++| ADK MCLL-SDGL
02271 M01S00158.ns2579 +++| CRD CM GET LONG-TERM INTERLOCK
02272 M00S02031.ppr +++| LDD CN
02273 M00S02032.ppr +++| SHN 21-12
Line S02033 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02274 M01S02033.ns2579 ---| MJN WID7 IF TABLES STILL BEING USED
02275 M01S02034.ns2579 ---| SETMS =,IO,(NS,DF,SM) ENABLE ENDMS FOR ERROR PROCESSING
Line S00159 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02276 M01S00159.ns2579 +++| MJN WID7.1 IF SOME MONITOR FUNCTIONS NOT COMPLETE
02277 M01S00160.ns2579 +++| LDD CN+4
02278 M01S00161.ns2579 +++| SHN 21-0
02279 M01S00162.ns2579 +++| PJN WID7.3 IF MST/TRT INTERLOCK NOT SET
02280 M01S00163.ns2579 +++| LDD CM+1
02281 M01S00164.ns2579 +++| SHN 0-13
02282 M01S00165.ns2579 +++| NJP WID14 IF LONG-TERM INTERLOCK SET
02283 M01S00166.ns2579 +++| WID7.2 ERROR EPRO SET PROCESSING ERROR
02284 M01S00167.ns2579 +++|
02285 M01S00168.ns2579 +++| WID7.3 SETMS =,IO,(NS,DF,SM) ENABLE ENDMS FOR ERROR PROCESSING
02286 M00S02035.ppr +++| LDM UERR
02287 M00S02036.ppr +++| LPC -EPDE+EPSM
02288 M00S02037.ppr +++| STM UERR
02289 M00S02038.ppr +++| WID8 LDD TL CALCULATE SECTOR INCREMENT FROM TRT TO MRT
02290 M00S02039.ppr +++| ADD HN
02291 M00S02040.ppr +++| SHN -6
02292 M00S02041.ppr +++| STD T0
02293 M00S02042.ppr +++| LDN MRTL-1-1
02294 M00S02043.ppr +++| SBD T0
02295 M00S02044.ppr +++| ADD MI
02296 M00S02045.ppr +++| RAM WIDA
02297 M00S02046.ppr +++| LDN LSLT RESET SECTOR NUMBER
02298 M00S02047.ppr +++| STD T7
02299 M00S02048.ppr +++| WID9 RAD T7
02300 M00S02049.ppr +++| RJM RLS RECREATE LABEL SECTOR
02301 M00S02050.ppr +++| LDM N4SS+DULL*5 SET SECTOR FOR SECOND COPY OF TABLES
02302 M00S02051.ppr +++| STD TM
02303 M00S02052.ppr +++| LDC BFMS+WCSF
02304 M00S02053.ppr +++| RJM WDS
02305 M00S02054.ppr +++| MJN WID11 IF ERROR
02306 M00S02055.ppr +++|* LDN 0
02307 M00S02056.ppr +++| STD CO CLEAR TRT OFFSET
02308 M00S02057.ppr +++| LDD TL LOAD NUMBER OF WORDS TO BE WRITTEN
02309 M00S02058.ppr +++| RJM WLT WRITE TRT TO LABEL TRACK
02310 M00S02059.ppr +++| WIDA LDN ** ADVANCE TO MRT SECTOR
02311 M00S02060.ppr +++| RAD T7
02312 M00S02061.ppr +++| LDD CN
02313 M00S02062.ppr +++| SHN 21-10
02314 M00S02063.ppr +++| PJN WID10 IF MRT NOT UPDATED
02315 M00S02064.ppr +++| LDD TL SET NUMBER OF CM WORDS TO BE WRITTEN
02316 M00S02065.ppr +++| ADN 7
02317 M00S02066.ppr +++| SHN -3 (TRT LENGTH+7)/10B = MRT LENGTH
02318 M00S02067.ppr +++| RJM WLT WRITE MRT TO LABEL TRACK
02319 M00S02068.ppr +++| WID10 LDD TM
02320 M00S02069.ppr +++| SBD T7
02321 M00S02070.ppr +++| PJN WID9 IF SECOND COPY NOT WRITTEN
02322 M00S02071.ppr +++| UJN WID12 CLEAR SOFTWARE RESERVE
02323 M00S02072.ppr +++|
02324 M00S02073.ppr +++| WID11 ERROR EWET *WRITE ERROR WRITING TABLES.*
02325 M00S02074.ppr +++|
02326 M00S02075.ppr +++|* REWRITE LABEL TO CLEAR SOFTWARE RESERVE.
02327 M00S02076.ppr +++|
Line S02077 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02328 M01S02077.ns2579 ---| WID12 LDD CN+4 CLEAR MST/TRT INTERLOCK IN CENTRAL MEMORY
Line S00169 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02329 M01S00169.ns2579 +++| WID12 LDD EA
02330 M01S00170.ns2579 +++| ZJP WID15 IF REPAIR CALL
02331 M01S00171.ns2579 +++| LDC 4000 CLEAR TABLE UPDATE FLAGS
02332 M01S00172.ns2579 +++| STD CN
02333 M01S00173.ns2579 +++| LDD CN+4 CLEAR MST/TRT INTERLOCK IN CENTRAL MEMORY
02334 M00S02078.ppr +++| SCN 76
02335 M00S02079.ppr +++| STD CN+4
Line S02080 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02336 M01S02080.ns2579 ---| SHN 21-0
02337 M01S02081.ns2579 ---| PJN WID13 IF MONITOR/PROGRAM MODE INTERLOCK NOT SET
02338 M01S02082.ns2579 ---| LDD MS
02339 M01S02083.ns2579 ---| SHN 3
02340 M01S02084.ns2579 ---| ADN MCLL
02341 M01S02085.ns2579 ---| CRD CM
02342 M01S02086.ns2579 ---| LDD CM+1
02343 M01S02087.ns2579 ---| SHN 21-13
02344 M01S02088.ns2579 ---| MJN WID14 IF LONG-TERM INTERLOCK SET
02345 M01S02089.ns2579 ---| MONITOR HNGM
02346 M01S02090.ns2579 ---|
02347 M01S02091.ns2579 ---| WID13 LDC 4000 CLEAR TABLE UPDATE FLAGS
02348 M01S02092.ns2579 ---| STD CN
02349 M00S02093.ppr +++| LDD MS
02350 M00S02094.ppr +++| SHN 3
02351 M00S02095.ppr +++| ADN SDGL
02352 M00S02096.ppr +++| CWD CN
02353 M00S02097.ppr +++| SETMS IO,(NS,DE,DF)
Line S02098 Modification History
M01 (Removed by) ns2776
Seq # *Modification Id* Act
----------------------------+
02354 M01S02098.ns2776 ---|* LDC XX0000
Line S00001 Modification History
M01 (Added by) ns2776
Seq # *Modification Id* Act
----------------------------+
02355 M01S00001.ns2776 +++|* LDN 0
02356 M00S02099.ppr +++| ADK LSLT REWRITE LABEL
02357 M00S02100.ppr +++| STD T7
02358 M00S02101.ppr +++| RJM RLS
02359 M00S02102.ppr +++| LDC BFMS+WLSF
02360 M00S02103.ppr +++| RJM WDS
02361 M00S02104.ppr +++| PJN WID14 IF NO ERROR
02362 M00S02105.ppr +++| ERROR EWEL *LABEL WRITE ERROR*
02363 M00S02106.ppr +++|
Line S02107 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02364 M01S02107.ns2579 ---| WID14 ENDMS
Line S00174 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02365 M01S00174.ns2579 +++|* COMPLETE UPDATE PROCESSING.
02366 M00S02108.ppr +++|
Line S00175 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02367 M01S00175.ns2579 +++| WID14 LDD MS CLEAR PP OUTPUT REGISTER ADDRESS
02368 M01S00176.ns2579 +++| SHN 3
02369 M01S00177.ns2579 +++| ADN MCLL
02370 M01S00178.ns2579 +++| CRD CN
02371 M01S00179.ns2579 +++| LDN 0
02372 M01S00180.ns2579 +++| STD CN
02373 M01S00181.ns2579 +++| LDD MS
02374 M01S00182.ns2579 +++| SHN 3
02375 M01S00183.ns2579 +++| ADN MCLL
02376 M01S00184.ns2579 +++| CWD CN
02377 M01S00185.ns2579 +++| WID15 ENDMS
02378 M01S00186.ns2579 +++|
02379 M00S02109.ppr +++|* RETURN TO CALLER.
Line S02110 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02380 M01S02110.ns2579 ---|
02381 M01S02111.ns2579 ---| WID15 LDD OR+1 CHECK FOR INACCESSIBLE DEVICE
02382 M01S02112.ns2579 ---| SHN 21-11
02383 M01S02113.ns2579 ---| PJN WID16 IF DEVICE IS ACCESSIBLE
02384 M01S02114.ns2579 ---| SHN 5-11-21-11
02385 M01S02115.ns2579 ---| STD EF (EF) .GE. 40
02386 M01S02116.ns2579 ---| EXECUTE 3RU WAIT FOR STATUS TO CHANGE
02387 M00S02117.ppr +++|
02388 M00S02118.ppr +++| WID16 LDD EA RESTORE EXIT ADDRESS FOR FTN
02389 M00S02119.ppr +++| STM FTN
02390 M00S02120.ppr +++| NJN WID17 IF NOT REPAIR CALL
02391 M00S02121.ppr +++| LDD IA SET REPAIR-ATTEMPTED FOR *1MV*
02392 M00S02122.ppr +++| CRD IR
02393 M00S02123.ppr +++| LDD IR+3
02394 M00S02124.ppr +++| SCN 40
02395 M00S02125.ppr +++| LMN 40
02396 M00S02126.ppr +++| STD IR+3
02397 M00S02127.ppr +++| LDD IA
02398 M00S02128.ppr +++| CWD IR
02399 M00S02129.ppr +++| UJN WID18 RECALL *1MV*
02400 M00S02130.ppr +++|
Line S02131 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02401 M01S02131.ns2579 ---| WID17 LDD MS CLEAR PP OUTPUT REGISTER ADDRESS
02402 M01S02132.ns2579 ---| SHN 3
02403 M01S02133.ns2579 ---| ADN MCLL
02404 M01S02134.ns2579 ---| CRD CN
02405 M01S02135.ns2579 ---| LDN 0
02406 M01S02136.ns2579 ---| STD CN
02407 M01S02137.ns2579 ---| LDD MS
02408 M01S02138.ns2579 ---| SHN 3
02409 M01S02139.ns2579 ---| ADN MCLL
02410 M01S02140.ns2579 ---| CWD CN
02411 M01S02141.ns2579 ---| LDD SA CHECK FOR STAND-ALONE CALL
02412 M01S02142.ns2579 ---| ADD SA+1
Line S00187 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02413 M01S00187.ns2579 +++| WID17 LDD SA CHECK FOR STAND-ALONE CALL
02414 M01S00188.ns2579 +++| SHN 14
02415 M01S00189.ns2579 +++| LMD SA+1
02416 M00S02143.ppr +++| NJN WID19 IF NOT STAND-ALONE CALL
02417 M00S02144.ppr +++| MONITOR DPPM DROP PP
02418 M00S02145.ppr +++| WID18 LJM PPR EXIT TO PPR
02419 M00S02146.ppr +++|
02420 M00S02147.ppr +++|* RESTORE PP MEMORY AND RETURN TO CALLING ROUTINE.
02421 M00S02148.ppr +++|
Line S02149 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02422 M01S02149.ns2579 ---| WID19 LDD OA SET RESPONSE TO FUNCTION
Line S00190 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02423 M01S00190.ns2579 +++| WID19 SBN 6 GET MESSAGE BUFFER DATA
02424 M01S00191.ns2579 +++| CRM BFMS,SX
02425 M01S00192.ns2579 +++| LDD OA SET RESPONSE TO FUNCTION
02426 M00S02150.ppr +++| CWD OR
02427 M00S02151.ppr +++| LDD MA RESTORE THE MESSAGE BUFFER
Line S02152 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02428 M01S02152.ns2579 ---| CWM MBSA,SX
Line S00193 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02429 M01S00193.ns2579 +++| CWM BFMS,SX
02430 M00S02153.ppr +++| LDC /1BP/PPSA1
02431 M00S02154.ppr +++| STD T1
02432 M00S02155.ppr +++| LDD SA
02433 M00S02156.ppr +++| SHN 14
02434 M00S02157.ppr +++| ADD SA+1
02435 M00S02158.ppr +++| CRM /1BP/FBB1,T1
02436 M00S02159.ppr +++|* LJM RST
02437 M00S02160.ppr +++| WLT SPACE 4,10
02438 M00S02161.ppr +++|*** WLT - WRITE LABEL TRACK SECTOR TO MS.
02439 M00S02162.ppr +++|*
02440 M00S02163.ppr +++|* ENTRY (A) = NUMBER OF CM WORDS TO BE WRITTEN TO DISK.
02441 M00S02164.ppr +++|* (CO) = OFFSET FROM TRT FWA OF DATA TO BE WRITTEN.
02442 M00S02165.ppr +++|* (T7) = SECTOR NUMBER TO BE WRITTEN.
02443 M00S02166.ppr +++|* (TA - TA+1) = TRT ADDRESS.
02444 M00S02167.ppr +++|*
02445 M00S02168.ppr +++|* EXIT (T7) = SECTOR NUMBER OF LAST SECTOR WRITTEN.
02446 M00S02169.ppr +++|* (CO) = OFFSET +1 OF LAST DATA WRITTEN.
02447 M00S02170.ppr +++|*
02448 M00S02171.ppr +++|* USES TM+1, TM+2.
02449 M00S02172.ppr +++|*
02450 M00S02173.ppr +++|* CALLS WDS.
02451 M00S02174.ppr +++|
02452 M00S02175.ppr +++|
02453 M00S02176.ppr +++| WLT7 LDN WCSF/10000-WLSF/10000 RESTORE WCSF FUNCTION
02454 M00S02177.ppr +++| RAM WLTA
02455 M00S02178.ppr +++|
02456 M00S02179.ppr +++| WLT SUBR ENTRY/EXIT
02457 M00S02180.ppr +++| STD TM+2 SAVE WORD COUNT
02458 M00S02181.ppr +++| LDD HN
02459 M00S02182.ppr +++| STD TM+1
02460 M00S02183.ppr +++| STM BFMS+1
02461 M00S02184.ppr +++| WLT1 LDC -100 DECREMENT COUNT OF WORDS TO BE WRITTEN
02462 M00S02185.ppr +++| RAD TM+2
02463 M00S02186.ppr +++| PJN WLT3 IF 100 OR MORE WORDS LEFT
02464 M00S02187.ppr +++| RAD TM+1 SET COUNT OF WORDS LEFT
02465 M00S02188.ppr +++| MJN WLT7 IF ALL WORDS WRITTEN
02466 M00S02189.ppr +++| LDN 0
02467 M00S02190.ppr +++| STD TM+2
02468 M00S02191.ppr +++| LDD TM+1
02469 M00S02192.ppr +++| STM BFMS+1
02470 M00S02193.ppr +++| LDD MS GET CURRENT COUNTER VALUE
02471 M00S02194.ppr +++| SHN 3
02472 M00S02195.ppr +++| ADN SDGL
02473 M00S02196.ppr +++| CRM BFMS+2+77*5,ON
02474 M00S02197.ppr +++| LCN WCSF/10000-WLSF/10000 SET WLSF FUNCTION
02475 M00S02198.ppr +++| RAM WLTA
02476 M00S02199.ppr +++| WLT3 AOD T7
02477 M00S02200.ppr +++| WLT4 ADN 1
02478 M00S02201.ppr +++| STM BFMS
02479 M00S02202.ppr +++| LDD TA READ SECTOR OF TRT DATA FROM CM
02480 M00S02203.ppr +++| SHN 14
02481 M00S02204.ppr +++| ADD TA+1
02482 M00S02205.ppr +++| ADD CO
02483 M00S02206.ppr +++| CRM BFMS+2,TM+1
02484 M00S02207.ppr +++| LDD TM+1
02485 M00S02208.ppr +++| RAD CO
02486 M00S02209.ppr +++| WLTA LDC WCSF+BFMS WRITE SECTOR OF TRT TO DISK
02487 M00S02210.ppr +++| RJM WDS
02488 M00S02211.ppr +++| PJP WLT1 IF NO WRITE ERROR
02489 M00S02212.ppr +++| SHN 21-11
02490 M00S02213.ppr +++| PJN WLT6 IF REISSUE OF CURRENT SECTOR NOT POSSIBLE
02491 M00S02214.ppr +++| LDD TM+1 BACKUP CM ADDRESS
02492 M00S02215.ppr +++| STM BFMS+1
02493 M00S02216.ppr +++| LMC -0
02494 M00S02217.ppr +++| RAD CO
Line S02218 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02495 M01S02218.ns2553 ---| WLT5 LDD T7
Line S00053 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02496 M01S00053.ns2553 +++| LDD T7
02497 M00S02219.ppr +++| UJN WLT4 RELOAD BUFFER
02498 M00S02220.ppr +++|
02499 M00S02221.ppr +++| WLT6 ERROR EWET *WRITE ERROR WRITING TABLES.*
02500 M00S02222.ppr +++|
02501 M00S02223.ppr +++| OVERFLOW WIDX,MSFW+/1BP/PPSA2*5,CMR
02502 M00S02224.ppr +++| OVERLAY (R/W LABEL ERROR PROCESSOR.),N4SS+PFGL*5+12
02503 M00S02225.ppr +++| SPACE 4,10
02504 M00S02226.ppr +++|*** 3RW - UNIT RESERVE PROCESSOR.
02505 M00S02227.ppr +++|* G. A. SCHUMACHER. 79/08/03.
02506 M00S02228.ppr +++|* J. J. EIKUM. 81/05/18.
02507 M00S02229.ppr +++| SPACE 4,10
02508 M00S02230.ppr +++|*** *3RW* IS CALLED BY *1RU* OR *3RU* WHEN AN ERROR
02509 M00S02231.ppr +++|* IS DETECTED IN READING OR WRITING THE MS DEVICE LABEL.
02510 M00S02232.ppr +++| SPACE 4,10
02511 M00S02233.ppr +++|*** OPERATOR MESSAGES.
02512 M00S02234.ppr +++|*
02513 M00S02235.ppr +++|*
02514 M00S02236.ppr +++|* *1RU LABEL ERROR, M, EQXXX.*
02515 M00S02237.ppr +++|* M = MODE.
02516 M00S02238.ppr +++|* D = DIT ERROR.
02517 M00S02239.ppr +++|* R = READ.
02518 M00S02240.ppr +++|* W = WRITE.
02519 M00S02241.ppr +++|* XXX = EST ORDINAL OF DEVICE ON WHICH ERROR OCCURRED.
02520 M00S02242.ppr +++| SPACE 4,10
02521 M00S02243.ppr +++|*** ENTRY CONDITIONS.
02522 M00S02244.ppr +++|*
02523 M00S02245.ppr +++|* (EF) = ERROR CODE.
02524 M00S02246.ppr +++|* (T5) = MS EST ORDINAL.
02525 M00S02247.ppr +++| SPACE 4,10
02526 M00S02248.ppr +++|*** EXIT CONDITIONS.
02527 M00S02249.ppr +++|*
02528 M00S02250.ppr +++|* TO *URPX*.
02529 M00S02251.ppr +++| SPACE 4,10
02530 M00S02252.ppr +++|*** NOTE - THIS OVERLAY MUST RESIDE IN *RPL*.
02531 M00S02253.ppr +++| EJECT
02532 M00S02254.ppr +++|*** LEP - LABEL ERROR PROCESSOR FOR 1RU.
02533 M00S02255.ppr +++|
02534 M00S02256.ppr +++|
02535 M00S02257.ppr +++| ORG N4SS+PFGL*5+12
02536 M00S02258.ppr +++| LEP SUBR
02537 M00S02259.ppr +++| LDM TERP-1,EF GET PROCESSOR ADDRESS
02538 M00S02260.ppr +++| STM LEPB
02539 M00S02261.ppr +++| LDM TERP,EF GET MESSAGE ADDRESS
02540 M00S02262.ppr +++| ZJN LEP3 IF NO MESSAGE
02541 M00S02263.ppr +++| STD T1
02542 M00S02264.ppr +++| STM LEPA
02543 M00S02265.ppr +++| LDC 2REQ
02544 M00S02266.ppr +++| STI T1
02545 M00S02267.ppr +++| LDD T5 CONVERT UPPER TWO DIGITS OF EST ORDINAL
02546 M00S02268.ppr +++| SHN -3
02547 M00S02269.ppr +++| RJM C2D
02548 M00S02270.ppr +++| STM 1,T1
02549 M00S02271.ppr +++| LDD T5 CONVERT LOWER DIGIT OF EST ORDINAL
02550 M00S02272.ppr +++| LPN 7
02551 M00S02273.ppr +++| SHN 6
02552 M00S02274.ppr +++| ADC 2R0,
02553 M00S02275.ppr +++| STM 2,T1
02554 M00S02276.ppr +++| LEP1 LDN NCPL
02555 M00S02277.ppr +++| CRD CM
02556 M00S02278.ppr +++| AOD CM+1 DISPLAY MESSAGE AT SYSTEM CP
Line S02279 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02557 M01S02279.ns2553 ---| LEP2 SHN 7
Line S00054 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02558 M01S00054.ns2553 +++| SHN 7
02559 M00S02280.ppr +++| ADN MS2W
Line S02281 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02560 M01S02281.ns2579 ---| STD EF SAVE ADDRESS OF *MS2W* BUFFER
Line S00194 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02561 M01S00194.ns2579 +++| STD EM SAVE ADDRESS OF *MS2W* BUFFER
02562 M00S02282.ppr +++| CWM **,TR
02563 M00S02283.ppr +++| LEPA EQU *-1
02564 M00S02284.ppr +++| LEP3 LJM ** JUMP TO PROCESSOR
02565 M00S02285.ppr +++| LEPB EQU *-1
02566 M00S02286.ppr +++| TERP SPACE 4,10
02567 M00S02287.ppr +++|** TERP - TABLE OF ERROR PROCESSORS.
02568 M00S02288.ppr +++|
02569 M00S02289.ppr +++|
02570 M00S02290.ppr +++| TERP BSS 0
02571 M00S02291.ppr +++| LOC 1
Line S00195 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02572 M01S00195.ns2579 +++| ERDC BSS 0 READ TIME ERROR CODES
02573 M00S02292.ppr +++| ECDM CON RME,=C* HARDWARE RESERVE ERROR.*-3
02574 M00S02293.ppr +++| ECKS CON CKS,=C* LABEL CHECKSUM ERROR.*-3
02575 M00S02294.ppr +++| EMND CON MND,=C* MACHINE NOT IN DIT.*-3
02576 M00S02295.ppr +++| EPNE CON PNE,0 PACK NAME ERROR
02577 M00S02296.ppr +++| ERDE CON RDE,=C* LABEL READ ERROR.*-3
02578 M00S02297.ppr +++| ERES CON RES,=C* INTERLOCKED BY .*-3
Line S00196 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02579 M01S00196.ns2579 +++| ESIN CON RME,=C* LABEL WRITE ERROR.*-3
02580 M01S00197.ns2579 +++|
02581 M01S00198.ns2579 +++| EWRC BSS 0 WRITE TIME ERROR CODES
02582 M01S00199.ns2579 +++| EPRO CON RME,=C* PROCESSING ERROR.*-3
02583 M00S02298.ppr +++| ESUP CON SUP,0 SIMULTANEOUS UPDATE
02584 M00S02299.ppr +++| EWEL CON RME,=C* LABEL WRITE ERROR.*-3
02585 M00S02300.ppr +++| EWET CON SIS,=C* TABLE WRITE ERROR.*-3
02586 M00S02301.ppr +++| LOC *O
02587 M00S02302.ppr +++|
02588 M00S02303.ppr +++| USE LITERALS FORCE LITERALS HERE
02589 M00S02304.ppr +++| CKS SPACE 4,10
02590 M00S02305.ppr +++|** CKS - BAD CHECKSUM.
02591 M00S02306.ppr +++|
02592 M00S02307.ppr +++|
02593 M00S02308.ppr +++| CKS LDD EA
02594 M00S02309.ppr +++| ZJN CKS1 IF REPAIR CALL
02595 M00S02310.ppr +++| LJM RME RELEASE MASS STORAGE EQUIPMENT
02596 M00S02311.ppr +++|
Line S02312 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02597 M01S02312.ns2553 ---| CKS1 STD EF CLEAR ERROR FLAG
Line S00055 Modification History
M01 (Added by) ns2553
M02 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02598 M02S00055.ns2579 ---| CKS1 LDD EF CLEAR ERROR MESSAGE
Line S00200 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02599 M01S00200.ns2579 +++| CKS1 LDD EM CLEAR ERROR MESSAGE
Line S00056 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02600 M01S00056.ns2553 +++| CWD EA
02601 M01S00057.ns2553 +++| LDN 0 CLEAR ERROR FLAG
02602 M01S00058.ns2553 +++| STD EF
Line S00201 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02603 M01S00201.ns2579 +++| STD EM
02604 M00S02313.ppr +++| EXECUTE 3RV REWRITE THE LABEL TABLES
02605 M00S02314.ppr +++| MND SPACE 4,10
02606 M00S02315.ppr +++|** MND - MACHINE NOT IN DIT.
02607 M00S02316.ppr +++|
02608 M00S02317.ppr +++|
02609 M00S02318.ppr +++| MND MONITOR HNGM HANG ON DIT ERROR
02610 M00S02319.ppr +++| UJP LEP1 LOOP ON HANG
02611 M00S02320.ppr +++| PNE SPACE 4,10
02612 M00S02321.ppr +++|** PNE - PACK NAME ERROR.
02613 M00S02322.ppr +++|
02614 M00S02323.ppr +++|
02615 M00S02324.ppr +++| PNE LDC BFMS
02616 M00S02325.ppr +++| STD IR+2 SET LABEL BUFFER ADDRESS
02617 M00S02326.ppr +++| LDD T5
02618 M00S02327.ppr +++| STD IR+3 SET EST ORDINAL
Line S02328 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02619 M01S02328.ns2553 ---| ISTORE PRSB,(LDN 0) IGNORE CHANNEL RESERVE
02620 M01S02329.ns2553 ---| LDC RUR
Line S00059 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02621 M01S00059.ns2553 +++| LDC /1RU/RDI
02622 M00S02330.ppr +++| STM EXR SET RETURN ADDRESS
02623 M00S02331.ppr +++| EXECUTE 5ME,* ISSUE ERROR MESSAGE AND WAIT FOR RESPONSE
02624 M00S02332.ppr +++| LJM EXR+1 LOAD *5ME*
02625 M00S02333.ppr +++| RDE SPACE 4,10
02626 M00S02334.ppr +++|** RDE - READ ERROR.
02627 M00S02335.ppr +++|
02628 M00S02336.ppr +++|
02629 M00S02337.ppr +++| RDE LDD EA
02630 M00S02338.ppr +++| ZJN CKS1 IF REPAIR CALL
02631 M00S02339.ppr +++| LDM UERR ENABLE ENDMS FOR ERROR PROCESSING
02632 M00S02340.ppr +++| LMC EPDE-EPSM
02633 M00S02341.ppr +++| STM UERR
02634 M00S02342.ppr +++| SETMS =,IO,(NS,DF,SM)
Line S02343 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02635 M01S02343.ns2553 ---| LPC EPDE-EPSM
02636 M01S02344.ns2553 ---| NJN SIS IF *ENDMS* ALREADY ENABLED
02637 M01S02345.ns2553 ---|* LDN 0
02638 M01S02346.ns2553 ---| LJM CID RETRY READ
Line S00060 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02639 M01S00060.ns2553 +++| SHN 21-10
02640 M01S00061.ns2553 +++| ERRNZ EPDE-EPSM-1S8 CODE ASSUMES VALUE
Line S00062 Modification History
M01 (Added by) ns2553
M02 (Removed by) ppr18
Seq # *Modification Id* Act
----------------------------+
02641 M02S00062.ppr18 ---| MJN SIS IF *ENDMS* ALREADY ENABLED
Line S00001 Modification History
M01 (Added by) ppr18
Seq # *Modification Id* Act
----------------------------+
02642 M01S00001.ppr18 +++| MJN SDS IF *ENDMS* ALREADY ENABLED
Line S00063 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02643 M01S00063.ns2553 +++| LJM /1RU/RDI RETRY READ
02644 M00S02347.ppr +++| RES SPACE 4,10
02645 M00S02348.ppr +++|** SOFTWARE RESERVE SET BY ANOTHER MACHINE.
02646 M00S02349.ppr +++|
02647 M00S02350.ppr +++|
02648 M00S02351.ppr +++| RES LDM RESA GET MID OF MACHINE WITH RESERVE
02649 M00S02352.ppr +++| STM 13,T1
02650 M00S02353.ppr +++| LDN RME-RES CHANGE ERROR PROCESSOR
02651 M00S02354.ppr +++| RAM LEPB
02652 M00S02355.ppr +++| LJM LEP1 DISPLAY MESSAGE
02653 M00S02356.ppr +++|
02654 M00S02357.ppr +++|
02655 M00S02358.ppr +++| RESA EQU RESA BUFFER FOR MID OF MACHINE WITH RESERVE
02656 M00S02359.ppr +++| RME SPACE 4,10
Line S02360 Modification History
M01 (Removed by) ns2579
Seq # *Modification Id* Act
----------------------------+
02657 M01S02360.ns2579 ---|** RME - RELEASE MASS STORAGE EPQUIMENT.
Line S00202 Modification History
M01 (Added by) ns2579
Seq # *Modification Id* Act
----------------------------+
02658 M01S00202.ns2579 +++|** RME - RELEASE MASS STORAGE EQUIPMENT.
02659 M00S02361.ppr +++|
02660 M00S02362.ppr +++|
02661 M00S02363.ppr +++| RME ENDMS
02662 M00S02364.ppr +++|* UJN SDS SET DEVICE SUSPECT
02663 M00S02365.ppr +++| SDS SPACE 4,10
02664 M00S02366.ppr +++|** SDS - SET DEVICE SUSPECT.
02665 M00S02367.ppr +++|
02666 M00S02368.ppr +++|
02667 M00S02369.ppr +++| SDS LDD T5 SET SUSPECT
02668 M00S02370.ppr +++| STD CM+1
02669 M00S02371.ppr +++| LDN SSES
02670 M00S02372.ppr +++| STD CM+2
02671 M00S02373.ppr +++| MONITOR SEQM
02672 M00S02374.ppr +++|* UJN SIS
02673 M00S02375.ppr +++| SIS SPACE 4,10
02674 M00S02376.ppr +++|** SIS - SET INACCESSIBLE STATUS.
02675 M00S02377.ppr +++|
02676 M00S02378.ppr +++|
02677 M00S02379.ppr +++| SIS EXECUTE 3RU PROCESS RETURN-ON-INACCESSIBLE STATUS
02678 M00S02380.ppr +++| SUP SPACE 4,10
02679 M00S02381.ppr +++|** SUP - SIMULTANEOUS UPDATE.
02680 M00S02382.ppr +++|
02681 M00S02383.ppr +++|
02682 M00S02384.ppr +++| SUP MONITOR HNGM SET ERROR ON DEVICE
02683 M00S02385.ppr +++| UJN SUP LOOP
02684 M00S02386.ppr +++| SPACE 4,10
02685 M00S02387.ppr +++|* COMMON DECKS.
02686 M00S02388.ppr +++|
02687 M00S02389.ppr +++|
02688 M00S02390.ppr +++|*QUAL$ EQU 0
02689 M00S02391.ppr +++|*CALL COMPC2D
02690 M00S02392.ppr +++|
02691 M00S02393.ppr +++| OVERFLOW LEPX,EPFW,CMR
02692 M00S02394.ppr +++| OVERLAY (SET INACCESSIBLE STATUS.),10001-3*5
02693 M00S02395.ppr +++| SIA SPACE 4,10
Line S02396 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02694 M01S02396.273l780 ---|*** SIA - SET INACCESSIBLE STATUS.
Line S00023 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02695 M01S00023.273l780 +++|*** 3RX - SET INACCESSIBLE STATUS.
02696 M00S02397.ppr +++|*
02697 M00S02398.ppr +++|* J. M. MAREK. 87/04/30.
02698 M00S02399.ppr +++| SIA SPACE 4,10
Line S02400 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02699 M01S02400.273l780 ---|*** *SIA* IS USED TO SET THE STATUSES NECESSARY TO HANDLE
02700 M01S02401.273l780 ---|* AN INACCESSIBLE STATUS FROM *AFAM*, *DLKM*, *DTKM*, *RTCM*,
02701 M01S02402.273l780 ---|* *STBM*, *VMSM*. IT IS INITIATED BY *CPUMTR* VIA A *BOTM*
02702 M01S02403.273l780 ---|* AND RETURNS TO *FTN1*.
Line S00024 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02703 M01S00024.273l780 +++|*** *3RX* IS CALLED BY *CPUMTR* WHEN AN INACCESSIBLE
02704 M01S00025.273l780 +++|* STATUS ON AN *ISHARE* DEVICE PREVENTS NORMAL COMPLETION OF
02705 M01S00026.273l780 +++|* THE *AFAM*, *DLKM*, *DTKM*, *RTCM*, *STBM*, OR *VMSM*
02706 M01S00027.273l780 +++|* FUNCTION. *3RX* IS EXECUTED VIA THE *BOTM* *PPR* FUNCTION
02707 M01S00028.273l780 +++|* AND SETS STATUS FLAGS TO BE USED BY THE CALLER IN PROCESSING
02708 M01S00029.273l780 +++|* THE INACCESSIBLE DEVICE ERROR.
02709 M01S00030.273l780 +++|*
02710 M01S00031.273l780 +++|* NOTE - THIS PROGRAM MUST BE CM RESIDENT.
02711 M00S02404.ppr +++| SIA SPACE 4,10
02712 M00S02405.ppr +++|*** ENTRY CONDITIONS.
02713 M00S02406.ppr +++|*
Line S02407 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02714 M01S02407.273l780 ---|* (CM+3) = *MSD*.
02715 M01S02408.273l780 ---|* (CM+4) = SUBSYSTEM AND DEVICE STATUS FOR *MSD* BYTE.
Line S00032 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02716 M01S00032.273l780 +++|* (CM+1 - CM+2) = FWA OF *3RX* IN *RPL*.
02717 M01S00033.273l780 +++|* (CM+3 - CM+4) = *SBFP + 2* ADDRESS IN EXTENDED PP
02718 M01S00034.273l780 +++|* COMMUNCATION BLOCK.
02719 M00S02409.ppr +++| SIA SPACE 4,10
02720 M00S02410.ppr +++|*** EXIT CONDITIONS.
02721 M00S02411.ppr +++|*
Line S02412 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02722 M01S02412.273l780 ---|* (MSD) = BITS 6 AND 11 SET FROM (CM+4).
Line S00035 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02723 M01S00035.273l780 +++|* (MSD) SUBSYSTEM STATUS UPDATED.
02724 M00S02413.ppr +++|* (RDCT) = 0.
02725 M00S02414.ppr +++|* (CM - CM+4) = OUTPUT REGISTER.
Line S02415 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02726 M01S02415.273l780 ---|* TO *FTN1*.
02727 M01S02416.273l780 ---| SIA SPACE 4,10
02728 M01S02417.273l780 ---|*** NOTE - THIS PROGRAM MUST BE CM RESIDENT.
02729 M01S02418.273l780 ---| SIA SPACE 4,10
02730 M01S02419.273l780 ---|** SIA - MAIN PROGRAM.
Line S00036 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02731 M01S00036.273l780 +++|* TO *FTN1.0* TO RETURN TO CALLER OF *FTN*.
02732 M00S02420.ppr +++|
02733 M00S02421.ppr +++|
02734 M00S02422.ppr +++| SIA BSS 0 ENTRY
Line S02423 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02735 M01S02423.273l780 ---| LDI CM+3 SET SUBSYSTEM STATUS
02736 M01S02424.273l780 ---| LPN 77
02737 M01S02425.273l780 ---| LMD CM+4
02738 M01S02426.273l780 ---| STI CM+3
02739 M01S02427.273l780 ---| LDD OA RESTORE OUTPUT REGISTER
02740 M01S02428.273l780 ---| SHN -3
02741 M01S02429.273l780 ---| ADC ** (ADDRESS OF OR SAVE BUFFER IN *CPUMTR*)
Line S00037 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02742 M01S00037.273l780 +++| LDD CM+3 SET DIRECT CELL SAVE ADDRESS
02743 M01S00038.273l780 +++| SHN 14
02744 M01S00039.273l780 +++| ADD CM+4
02745 M01S00040.273l780 +++| CWD CN SAVE (CN - CN+4)
02746 M01S00041.273l780 +++| SBN 1
02747 M01S00042.273l780 +++| CRD CN READ *MSD* PARAMETERS
02748 M01S00043.273l780 +++| LDN 0
02749 M01S00044.273l780 +++| STM RDCT
02750 M01S00045.273l780 +++| LDC 3*100 SET READ OFFSET
02751 M01S00046.273l780 +++| LJM FTN1.2 READ AND EXECUTE NEXT SEGMENT
02752 M01S00047.273l780 +++| BSSZ 10000B-* SPARE SPACE
02753 M01S00048.273l780 +++| CON SIA-1 (T0+1) BECOMES (P)
02754 M01S00049.273l780 +++|
02755 M01S00050.273l780 +++| LOC 10001-3*5
02756 M01S00051.273l780 +++|
02757 M01S00052.273l780 +++| SIA1 LDM MSD GET *MSD*
02758 M01S00053.273l780 +++| LPN 77 PRESERVE DRIVER INDENTIFIER
02759 M01S00054.273l780 +++| LMD CN UPDATE SUBSYSTEM STATUS
02760 M01S00055.273l780 +++| STM MSD
02761 M01S00056.273l780 +++| LDD CM+3 SET DIRECT CELL SAVE ADDRESS
02762 M01S00057.273l780 +++| SHN 14
02763 M01S00058.273l780 +++| ADD CM+4
02764 M01S00059.273l780 +++| CRD CN RESTORE (CN - CN+4)
02765 M01S00060.273l780 +++| SBN 2 READ OUTPUT REGISTER
02766 M00S02430.ppr +++| CRD CM
Line S02431 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02767 M01S02431.273l780 ---| LDN 0 SET DRIVER ERROR STATUS
02768 M01S02432.273l780 ---| STM RDCT
02769 M01S02433.273l780 ---| LJM FTN1 RETURN TO CALLER
02770 M01S02434.273l780 ---| BSSZ 10000B-* (SPARE SPACE)
02771 M01S02435.273l780 ---| CON SIA-1 (T0)+1 BECOMES (P)
02772 M01S02436.273l780 ---|
02773 M01S02437.273l780 ---|* THE FOLLOWING BYTES ARE PARAMETERS USED BY *CPUMTR*. THEY
02774 M01S02438.273l780 ---|* ARE NOT READ INTO THE PP.
02775 M01S02439.273l780 ---|
02776 M01S02440.273l780 ---| CON 2000B PRESET INDEX + 2000B
02777 M01S02441.273l780 ---| CON 0,0 ZERO
02778 M01S02442.273l780 ---| CON 0,0 UNUSED
Line S00061 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02779 M01S00061.273l780 +++| LJM FTN1.0 RETURN TO *FTN* CALLER
02780 M01S00062.273l780 +++| BSSZ 10000B-* SPARE SPACE
02781 M01S00063.273l780 +++| CON SIA1-1 (T0+1) BECOMES (P)
02782 M00S02443.ppr +++| 1FA TTL PPR/1FA FAST ATTACH SUBFUNCTION PROCESSOR.
02783 M00S02444.ppr +++| EJECT
02784 M00S02445.ppr +++| QUAL 1FA
02785 M00S02446.ppr +++| IDENT 1FA,PPFW
02786 M00S02447.ppr +++|*COMMENT PPR - FAST ATTACH SUBFUNCTION PROCESSOR.
Line S02448 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
02787 M01S02448.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
Line S00008 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
02788 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
02789 M00S02449.ppr +++| SPACE 4,10
02790 M00S02450.ppr +++|*** 1FA - FAST ATTACH SUBFUNCTION PROCESSOR.
02791 M00S02451.ppr +++|* G. A. SCHUMACHER. 79/08/03.
02792 M00S02452.ppr +++|* J. J. EIKUM. 81/05/18.
02793 M00S02453.ppr +++|* J. J. EIKUM. 86/11/21.
02794 M00S02454.ppr +++| SPACE 4,10
02795 M00S02455.ppr +++|*** *1FA* IS CALLED BY PP RESIDENT WHEN AN *AFAM* MONITOR
02796 M00S02456.ppr +++|* FUNCTION IS ISSUED ON AN INDEPENDENT SHARED DEVICE.
02797 M00S02457.ppr +++| SPACE 4,10
02798 M00S02458.ppr +++|*** OPERATOR MESSAGES.
02799 M00S02459.ppr +++|*
02800 M00S02460.ppr +++|*
Line S02461 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02801 M01S02461.ns2553 ---|* *1FA ERROR, M, EQXXX, FILENAM*
Line S00064 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02802 M01S00064.ns2553 +++|* *EQXXX, 1FA ERROR, M, FILENAM*
02803 M00S02462.ppr +++|* M = MODE.
02804 M00S02463.ppr +++|* R = READ.
02805 M00S02464.ppr +++|* W = WRITE.
02806 M00S02465.ppr +++|* XXX = EST ORDINAL.
02807 M00S02466.ppr +++|* FILENAM = FILENAME OF FAST ATTACH FILE INVOLVED.
02808 M00S02467.ppr +++| SPACE 4,10
02809 M00S02468.ppr +++|*** ENTRY CONDITIONS.
02810 M00S02469.ppr +++|*
02811 M00S02470.ppr +++|*
02812 M00S02471.ppr +++|* LOCATIONS *FAFW* THROUGH *MSD* AND *MSFW* THROUGH *MSFW*+500
02813 M00S02472.ppr +++|* ARE SAVED IN THIS PP-S SAVE AREA.
02814 M00S02473.ppr +++| SPACE 4,10
02815 M00S02474.ppr +++|*** EXIT CONDITIONS.
02816 M00S02475.ppr +++|*
02817 M00S02476.ppr +++|*
02818 M00S02477.ppr +++|* PP MEMORY IS RESTORED FROM THE PP SAVE AREA.
02819 M00S02478.ppr +++|* MESSAGE BUFFER IS UPDATED TO INFORMATION RETURNED
02820 M00S02479.ppr +++|* BY CPUMTR WHEN THE FUNCTION WAS PROCESSED.
02821 M00S02480.ppr +++| SPACE 4,10
02822 M00S02481.ppr +++|*** NOTE - THIS OVERLAY MUST RESIDE IN *RPL*.
02823 M00S02482.ppr +++| SPACE 4,10
02824 M00S02483.ppr +++|* COMMON DECKS.
02825 M00S02484.ppr +++|
02826 M00S02485.ppr +++|
02827 M00S02486.ppr +++|*CALL COMSPFM
02828 M00S02487.ppr +++|*CALL COMS1DS
02829 M00S02488.ppr +++| SPACE 4,10
02830 M00S02489.ppr +++|**** DIRECT LOCATION ASSIGNMENTS.
02831 M00S02490.ppr +++|
02832 M00S02491.ppr +++|
Line S02492 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02833 M01S02492.ns2553 ---| CN EQU 20 - 24 CM WORD BUFFER
02834 M01S02493.ns2553 ---| SA EQU 25 - 26 PP SAVE AREA ADDRESS
02835 M01S02494.ns2553 ---| OR EQU 30 - 34 OUTPUT REGISTER
02836 M01S02495.ns2553 ---| EA EQU 41 EXIT ADDRESS
Line S00065 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02837 M01S00065.ns2553 +++| BEGIN BSSN 20
02838 M01S00066.ns2553 +++| CN BSSN 5 CM WORD BUFFER
02839 M01S00067.ns2553 +++| MS BSSN 1 MST ADDRESS
02840 M01S00068.ns2553 +++| SA BSSN 2 PP SAVE AREA ADDRESS
02841 M01S00069.ns2553 +++| OR BSSN 5 OUTPUT REGISTER
02842 M01S00070.ns2553 +++| EA BSSN 1 EXIT ADDRESS
02843 M01S00071.ns2553 +++| EF BSSN 1 ERROR FLAG
02844 M01S00072.ns2553 +++| ERRNG IR-* DIRECT CELLS OVERFLOW INTO *IR*
02845 M00S02496.ppr +++|****
02846 M00S02497.ppr +++| SPACE 4,10
02847 M00S02498.ppr +++| FAP TITLE MAIN ROUTINE.
02848 M00S02499.ppr +++| SPACE 4,10
02849 M00S02500.ppr +++| ORG PPFW
02850 M00S02501.ppr +++| SPACE 4,10
02851 M00S02502.ppr +++|** FAP - MAIN ROUTINE.
02852 M00S02503.ppr +++|
02853 M00S02504.ppr +++|
Line S02505 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02854 M01S02505.ns2553 ---| FAP BSS 0
Line S00073 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02855 M01S00073.ns2553 +++| FAP BSS 0 ENTRY
02856 M00S02506.ppr +++|
02857 M00S02507.ppr +++|* SET UP SAVE AREA.
02858 M00S02508.ppr +++|
Line S02509 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02859 M01S02509.ns2553 ---| FAP LDM FTN SAVE EXIT ADDRESS
Line S00074 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02860 M01S00074.ns2553 +++| LDM FTN SAVE EXIT ADDRESS
02861 M00S02510.ppr +++| STD EA
02862 M00S02511.ppr +++| LDC FTN RESTORE *PAUSE* MACRO IN *PLL*
02863 M00S02512.ppr +++| STM PLLD
02864 M00S02513.ppr +++| LDD MA GET SAVE AREA ADDRESS
02865 M00S02514.ppr +++| ADN 1
02866 M00S02515.ppr +++| CRD SA-1
02867 M00S02516.ppr +++| LDD SA GET ORIGINAL OUTPUT REGISTER
02868 M00S02517.ppr +++| SHN 14
02869 M00S02518.ppr +++| ADD SA+1
02870 M00S02519.ppr +++| SBN 7
02871 M00S02520.ppr +++| CRD OR
02872 M00S02521.ppr +++| ADC .RST+7 WRITE *RST* TO PP SAVE AREA
02873 M00S02522.ppr +++| CWM PRSA,TR
02874 M00S02523.ppr +++|
02875 M00S02524.ppr +++|* CHECK FUNCTION PARAMETERS.
02876 M00S02525.ppr +++|
02877 M00S02526.ppr +++| LDD OR+3
02878 M00S02527.ppr +++| SBN 2
02879 M00S02528.ppr +++| PJN FAP1 IF ILLEGAL SUBFUNCTION
02880 M00S02529.ppr +++| LDD OR+2
02881 M00S02530.ppr +++| LPC 3777
02882 M00S02531.ppr +++| SBN PTLM
02883 M00S02532.ppr +++| PJN FAP1 IF ILLEGAL MODE
02884 M00S02533.ppr +++| LDM CHRV
02885 M00S02534.ppr +++| LPN 1
02886 M00S02535.ppr +++| ZJN FAP1.1 IF CHANNEL NOT RESERVED
02887 M00S02536.ppr +++| FAP1 MONITOR CHGM
02888 M00S02537.ppr +++| UJN FAP1 HANG
02889 M00S02538.ppr +++|
02890 M00S02539.ppr +++|* SET RETURN ADDRESS IN CM COPY OF PP ADDRESS ZERO.
02891 M00S02540.ppr +++|
02892 M00S02541.ppr +++|* READ FNT/FST.
02893 M00S02542.ppr +++|
02894 M00S02543.ppr +++| FAP1.1 RJM IFP INITIALIZE *COMPGFP*
02895 M00S02544.ppr +++| SFA FNT,OR+4
02896 M00S02545.ppr +++| CRM ERRA+13,ON
02897 M00S02546.ppr +++| CRD T5 SET EST ORDINAL AND TRACK
02898 M00S02547.ppr +++|
02899 M00S02548.ppr +++|* READ SYSTEM SECTOR OF REQUESTED FILE.
02900 M00S02549.ppr +++|
02901 M00S02550.ppr +++| FAP1.2 LDN 0 SET SYSTEM SECTOR ADDRESS
02902 M00S02551.ppr +++| STD T7
Line S02552 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02903 M01S02552.ns2553 ---| SETMS IO,(DE,DF)
02904 M01S02553.ns2553 ---| LDC BFMS
Line S00075 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02905 M01S00075.ns2553 +++| SETMS IO,(NS,DE,DF)
02906 M01S00076.ns2553 +++| LDD CM+4 SET MST ADDRESS
02907 M01S00077.ns2553 +++| STD MS
02908 M01S00078.ns2553 +++| FAP1.3 LDC BFMS READ SYSTEM SECTOR
02909 M00S02554.ppr +++| RJM RDS
02910 M00S02555.ppr +++| PJN FAP2 IF NO UNRECOVERED ERROR
02911 M00S02556.ppr +++| ERROR 1RR
02912 M00S02557.ppr +++|
Line S02558 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
02913 M01S02558.ns2553 ---| FAP2 RJM CFM CHECK FILE MODE
Line S00079 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
02914 M01S00079.ns2553 +++| FAP2 LDM UERR CHECK *ENDMS* DISABLED FLAG
02915 M01S00080.ns2553 +++| SHN 21-10
02916 M01S00081.ns2553 +++| ERRNZ EPDE-EPSM-400
02917 M01S00082.ns2553 +++| PJN FAP1.2 IF *ENDMS* ENABLED
02918 M01S00083.ns2553 +++| RJM CFM CHECK FILE MODE
02919 M00S02559.ppr +++| NJN FAP4 IF ACCESS NOT ALLOWED
02920 M00S02560.ppr +++| FAP3 LDC WLSF+BFMS WRITE SECTOR
02921 M00S02561.ppr +++| RJM WDS
02922 M00S02562.ppr +++| PJN FAP5 IF NO WRITE ERROR
02923 M00S02563.ppr +++| ERROR 1RW
02924 M00S02564.ppr +++|
02925 M00S02565.ppr +++| FAP4 LDM CASS RETURN NON-ROLLABLE FLAG
02926 M00S02566.ppr +++| SHN 1-7
02927 M00S02567.ppr +++| STD OR+4
02928 M00S02568.ppr +++| FAP5 ENDMS
02929 M00S02569.ppr +++|
02930 M00S02570.ppr +++|* RESTORE PP MEMORY AND RETURN TO CALLING PROGRAM.
02931 M00S02571.ppr +++|
02932 M00S02572.ppr +++|* LDN 0 SET RESPONSE
02933 M00S02573.ppr +++| STD OR
02934 M00S02574.ppr +++| LDD OA
02935 M00S02575.ppr +++| CWD OR
02936 M00S02576.ppr +++|* LDD MA RESTORE THE MESSAGE BUFFER
02937 M00S02577.ppr +++|* CWM MBSA,SX
02938 M00S02578.ppr +++| LDD EA RESTORE EXIT ADDRESS FOR FTN
02939 M00S02579.ppr +++| STM FTN
02940 M00S02580.ppr +++| LDC /1BP/PPSA1
02941 M00S02581.ppr +++| STD T1
02942 M00S02582.ppr +++| LDD SA
02943 M00S02583.ppr +++| SHN 14
02944 M00S02584.ppr +++| ADD SA+1
02945 M00S02585.ppr +++| CRM /1BP/FBB1,T1
02946 M00S02586.ppr +++|* LJM RST
02947 M00S02587.ppr +++|
02948 M00S02588.ppr +++| PRSA BSS 0
02949 M00S02589.ppr +++| LOC 10001-3*5
02950 M00S02590.ppr +++| RST CRM /1BP/FBB2,CM+4
02951 M00S02591.ppr +++| SBK PPSA CLEAR SAVE AREA INTERLOCK
02952 M00S02592.ppr +++| CWM RSTA,ON
02953 M00S02593.ppr +++| LJM FTN11 RETURN TO *FTN*
02954 M00S02594.ppr +++|
02955 M00S02595.ppr +++|
02956 M00S02596.ppr +++| RSTA BSSZ 5 ZERO WORD
02957 M00S02597.ppr +++| BSS 10000-*
02958 M00S02598.ppr +++| LOC *-10000 SPARES
02959 M00S02599.ppr +++| T0 CON RST-1
02960 M00S02600.ppr +++| LOC *O
02961 M00S02601.ppr +++|
02962 M00S02602.ppr +++| .A SET RST-/1BP/FBB1
02963 M00S02603.ppr +++| .RST EQU .A/5 WORD ADDRESS OF *RST* IN PP SAVE AREA
02964 M00S02604.ppr +++| ERRNZ .A-.RST*5 *RST* MUST BEGIN ON A WORD BOUNDARY
02965 M00S02605.ppr +++| CFM SPACE 4,10
02966 M00S02606.ppr +++|** CFM - CHECK FILE MODE.
02967 M00S02607.ppr +++|*
02968 M00S02608.ppr +++|* ENTRY (BFMS) = SYSTEM SECTOR.
02969 M00S02609.ppr +++|* (OR+2) = ACCESS MODE.
02970 M00S02610.ppr +++|* (OR+3) = SUBFUNCTION.
02971 M00S02611.ppr +++|* (T5) = EST ORDINAL.
02972 M00S02612.ppr +++|*
02973 M00S02613.ppr +++|* EXIT SYSTEM SECTOR UPDATED FOR NEW ACCESS MODE.
02974 M00S02614.ppr +++|* (OR+1) = 0, IF FILE ACCESS ALLOWED.
02975 M00S02615.ppr +++|* (OR+1) = 1, IF FILE ACCESS NOT ALLOWED.
02976 M00S02616.ppr +++|* (A) = (OR+1).
02977 M00S02617.ppr +++|*
02978 M00S02618.ppr +++|* USES CN, OR+1, T1, T2, T3, CM - CM+4.
02979 M00S02619.ppr +++|*
02980 M00S02620.ppr +++|* MACROS MONITOR, SFA.
02981 M00S02621.ppr +++|
02982 M00S02622.ppr +++|
02983 M00S02623.ppr +++| CFM22 MONITOR HNGM
02984 M00S02624.ppr +++|
02985 M00S02625.ppr +++| CFM SUBR ENTRY/EXIT
02986 M00S02626.ppr +++| LDM CASS SET CURRENT ACCESS MODE
02987 M00S02627.ppr +++| LPN 32
02988 M00S02628.ppr +++| STD T3
02989 M00S02629.ppr +++| SFA EST,T5 GET MST ADDRESS
02990 M00S02630.ppr +++| ADK EQDE
02991 M00S02631.ppr +++| CRD CM
02992 M00S02632.ppr +++| LDD CM+4 GET MACHINE INDEX FROM MST
02993 M00S02633.ppr +++| SHN 3
02994 M00S02634.ppr +++| ADN DULL
02995 M00S02635.ppr +++| CRD CM
02996 M00S02636.ppr +++| LDD CM+2
02997 M00S02637.ppr +++| LPN 17
02998 M00S02638.ppr +++| ADN 1
02999 M00S02639.ppr +++| STD CN
03000 M00S02640.ppr +++| SHN 2
03001 M00S02641.ppr +++| ADC UCSS
03002 M00S02642.ppr +++| RAD CN
03003 M00S02643.ppr +++| LDD OR+2
03004 M00S02644.ppr +++| LPN 17
03005 M00S02645.ppr +++| STD T1
03006 M00S02646.ppr +++| LDM CFMA,T1 SET PROCESSOR ADDRESS
03007 M00S02647.ppr +++| NJN CFM2 IF LEGAL MODE
03008 M00S02648.ppr +++| CFM1 UJN CFM22 HANG
03009 M00S02649.ppr +++|
03010 M00S02650.ppr +++| CFM2 STD T2
03011 M00S02651.ppr +++| SFA FNT,OR+4 READ FST ENTRY
03012 M00S02652.ppr +++| ADN FSTG
03013 M00S02653.ppr +++| CRD CM
03014 M00S02654.ppr +++| LDM CFMB,T1 SET BYTE NUMBERS
03015 M00S02655.ppr +++| STD T1
03016 M00S02656.ppr +++| LDD OR+3
03017 M00S02657.ppr +++|* LMN AFAS
03018 M00S02658.ppr +++| ERRNZ AFAS
03019 M00S02659.ppr +++| ZJN CFM4 IF *ATTACH* SUBFUNCTION
03020 M00S02660.ppr +++|
03021 M00S02661.ppr +++|* PROCESS *RETURN* SUBFUNCTION.
03022 M00S02662.ppr +++|
03023 M00S02663.ppr +++| LDD T1
03024 M00S02664.ppr +++| ZJN CFM3 IF A WRITEABLE MODE
03025 M00S02665.ppr +++| RAD CN
03026 M00S02666.ppr +++| SOI CN DECREMENT LOCAL COUNT
03027 M00S02667.ppr +++| SOM UCSS,T1 DECREMENT GLOBAL COUNT
03028 M00S02668.ppr +++| MJN CFM1 IF UNDERFLOW
03029 M00S02669.ppr +++| UJN CFM7 SET RESPONSE
03030 M00S02670.ppr +++|
03031 M00S02671.ppr +++| CFM3 LDD T3
03032 M00S02672.ppr +++| ZJN CFM1 IF WRITE BITS NOT SET
03033 M00S02673.ppr +++| SOI CN CLEAR LOCAL WRITE BIT
03034 M00S02674.ppr +++| LDN 0 CLEAR GLOBAL WRITE BITS
03035 M00S02675.ppr +++| STM CASS
03036 M00S02676.ppr +++| STD CM+4 CLEAR NON-ROLLABLE FLAG
03037 M00S02677.ppr +++| UJN CFM8 SET RESPONSE
03038 M00S02678.ppr +++|
03039 M00S02679.ppr +++|* PROCESS *ATTACH* SUBFUNCTION.
03040 M00S02680.ppr +++|
03041 M00S02681.ppr +++| CFM4 LDD T3
03042 M00S02682.ppr +++| LJM 0,T2 JUMP TO PROCESSOR
03043 M00S02683.ppr +++|
03044 M00S02684.ppr +++|* WRITE ACCESS REQUESTED.
03045 M00S02685.ppr +++|
03046 M00S02686.ppr +++| CFM5 ADM UCSS+1 CHECK IF ANY ACTIVE USERS ON FILE
03047 M00S02687.ppr +++| ADM UCSS+2
03048 M00S02688.ppr +++| ADM UCSS+3
03049 M00S02689.ppr +++| ADM UCSS+4
03050 M00S02690.ppr +++| NJN CFM11 IF ACCESS NOT ALLOWED
03051 M00S02691.ppr +++| LDN 32 SET WRITE USER
03052 M00S02692.ppr +++|
03053 M00S02693.ppr +++|* SET NEW FILE MODE.
03054 M00S02694.ppr +++|
03055 M00S02695.ppr +++| CFM6 RAM CASS SET NEW FILE MODE
03056 M00S02696.ppr +++| AOI CN SET LOCAL WRITE FLAG
03057 M00S02697.ppr +++| LDD OR+2
03058 M00S02698.ppr +++| SHN 21-13
03059 M00S02699.ppr +++| CFM7 PJN CFM9 IF NON-ROLLABLE OPTION NOT SPECIFIED
03060 M00S02700.ppr +++| LDN 2 SET NON-ROLLABLE FLAG
03061 M00S02701.ppr +++| STD CM+4
03062 M00S02702.ppr +++| SHN 6
03063 M00S02703.ppr +++| RAM CASS
03064 M00S02704.ppr +++| CFM8 SFA FNT,OR+4 UPDATE FST ENTRY
03065 M00S02705.ppr +++| ADN FSTG
03066 M00S02706.ppr +++| CWD CM
03067 M00S02707.ppr +++| CFM9 LDN 0
03068 M00S02708.ppr +++| UJN CFM16 SET RESPONSE
03069 M00S02709.ppr +++|
03070 M00S02710.ppr +++|* MODIFY ACCESS REQUESTED.
03071 M00S02711.ppr +++|
03072 M00S02712.ppr +++| CFM10 ADM UCSS+1 CHECK FOR W, M, A, U, R/A, R/U OR R USERS
03073 M00S02713.ppr +++| ADM UCSS+2
03074 M00S02714.ppr +++| ADM UCSS+3
03075 M00S02715.ppr +++| CFM11 NJN CFM15 IF ACCESS NOT ALLOWED
03076 M00S02716.ppr +++| LDN 12 SET MODIFY USER
03077 M00S02717.ppr +++| CFM12 UJN CFM6 SET FILE MODE
03078 M00S02718.ppr +++|
03079 M00S02719.ppr +++|* APPEND ACCESS REQUESTED.
03080 M00S02720.ppr +++|
03081 M00S02721.ppr +++| CFM13 ADM UCSS+1 CHECK FOR W, M, A, U, R/U OR R USERS
03082 M00S02722.ppr +++| ADM UCSS+2
03083 M00S02723.ppr +++| NJN CFM15 IF ACCESS NOT ALLOWED
03084 M00S02724.ppr +++| LDN 2 SET APPEND USER
03085 M00S02725.ppr +++| UJN CFM12 SET NEW FILE MODE
03086 M00S02726.ppr +++|
03087 M00S02727.ppr +++|* UPDATE ACCESS REQUESTED.
03088 M00S02728.ppr +++|
03089 M00S02729.ppr +++| CFM14 ADM UCSS+1 CHECK FOR W, M, A, U, R/A OR R USERS
03090 M00S02730.ppr +++| ADM UCSS+3
03091 M00S02731.ppr +++| NJN CFM15 IF ACCESS NOT ALLOWED
03092 M00S02732.ppr +++| LDN 10
03093 M00S02733.ppr +++| UJN CFM12 SET NEW FILE MODE
03094 M00S02734.ppr +++|
03095 M00S02735.ppr +++|* ACCESS NOT ALLOWED.
03096 M00S02736.ppr +++|
03097 M00S02737.ppr +++| CFM15 LDN 1 SET FILE BUSY RESPONSE
03098 M00S02738.ppr +++| CFM16 STD OR+1
03099 M00S02739.ppr +++| LJM CFMX RETURN
03100 M00S02740.ppr +++|
03101 M00S02741.ppr +++|* READ OR EXECUTE ACCESS REQUESTED.
03102 M00S02742.ppr +++|
03103 M00S02743.ppr +++|* LPN 32 DO NOT ALLOW W, M, A OR U USERS
03104 M00S02744.ppr +++| CFM17 NJN CFM15 IF ACCESS NOT ALLOWED
03105 M00S02745.ppr +++|
03106 M00S02746.ppr +++|* INCREMENT USER COUNTS.
03107 M00S02747.ppr +++|
03108 M00S02748.ppr +++| CFM18 LDD T1 GET BYTE NUMBERS
03109 M00S02749.ppr +++| RAD CN
03110 M00S02750.ppr +++| LDM UCSS,T1
03111 M00S02751.ppr +++| LMC 7777
03112 M00S02752.ppr +++| ZJN CFM15 IF USER COUNT OVERFLOW
03113 M00S02753.ppr +++| AOM UCSS,T1 INCREMENT GLOBAL COUNT
03114 M00S02754.ppr +++| AOI CN INCREMENT LOCAL COUNT
03115 M00S02755.ppr +++| LDN 0 RETURN FILE ATTACHED RESPONSE
03116 M00S02756.ppr +++| UJN CFM16 RETURN
03117 M00S02757.ppr +++|
03118 M00S02758.ppr +++|
03119 M00S02759.ppr +++|* READ / ALLOW MODIFY ACCESS REQUESTED.
03120 M00S02760.ppr +++|
03121 M00S02761.ppr +++| CFM19 LPN 20 DO NOT ALLOW W USERS
03122 M00S02762.ppr +++| NJN CFM17 IF ACCESS NOT ALLOWED
03123 M00S02763.ppr +++| UJN CFM18 INCREMENT USER COUNTS
03124 M00S02764.ppr +++|
03125 M00S02765.ppr +++|* READ / ALLOW APPEND ACCESS REQUESTED.
03126 M00S02766.ppr +++|
03127 M00S02767.ppr +++| CFM20 LPN 30 DO NOT ALLOW W, M OR U USERS
03128 M00S02768.ppr +++| NJN CFM17 IF ACCESS NOT ALLOWED
03129 M00S02769.ppr +++| UJN CFM18 INCREMENT USER COUNTS
03130 M00S02770.ppr +++|
03131 M00S02771.ppr +++|* READ / ALLOW UPDATE ACCESS REQUESTED.
03132 M00S02772.ppr +++|
03133 M00S02773.ppr +++| CFM21 LPN 22 DO NOT ALLOW W, M OR A USERS
03134 M00S02774.ppr +++| NJN CFM17 IF ACCESS NOT ALLOWED
03135 M00S02775.ppr +++| UJN CFM18 INCREMENT USER COUNTS
03136 M00S02776.ppr +++|
03137 M00S02777.ppr +++|
03138 M00S02778.ppr +++| CFMA BSS 0 FILE ATTACH PROCESSORS
03139 M00S02779.ppr +++| LOC 0
03140 M00S02780.ppr +++| CON CFM5 WRITE
03141 M00S02781.ppr +++| CON CFM17 READ
03142 M00S02782.ppr +++| CON CFM13 APPEND
03143 M00S02783.ppr +++| CON CFM17 EXECUTE
03144 M00S02784.ppr +++| CON 0 NULL
03145 M00S02785.ppr +++| CON CFM10 MODIFY
03146 M00S02786.ppr +++| CON CFM19 READ / ALLOW MODIFY
03147 M00S02787.ppr +++| CON CFM20 READ / ALLOW APPEND
03148 M00S02788.ppr +++| CON CFM14 UPDATE
03149 M00S02789.ppr +++| CON CFM21 READ / ALLOW UPDATE
03150 M00S02790.ppr +++| ERRNZ *-PTLM
03151 M00S02791.ppr +++| LOC *O
03152 M00S02792.ppr +++|
03153 M00S02793.ppr +++|
03154 M00S02794.ppr +++| CFMB BSS 0 FILE RETURN FLAGS
03155 M00S02795.ppr +++| LOC 0
03156 M00S02796.ppr +++| CON 0 WRITE
03157 M00S02797.ppr +++| CON 1 READ
03158 M00S02798.ppr +++| CON 0 APPEND
03159 M00S02799.ppr +++| CON 1 EXECUTE
03160 M00S02800.ppr +++| CON 0 NULL
03161 M00S02801.ppr +++| CON 0 MODIFY
03162 M00S02802.ppr +++| CON 4 READ / ALLOW MODIFY
03163 M00S02803.ppr +++| CON 3 READ / ALLOW APPEND
03164 M00S02804.ppr +++| CON 0 UPDATE
03165 M00S02805.ppr +++| CON 2 READ / ALLOW UPDATE
03166 M00S02806.ppr +++| ERRNZ *-PTLM
03167 M00S02807.ppr +++| LOC *O
03168 M00S02808.ppr +++| ERR SPACE 4,10
03169 M00S02809.ppr +++|*** ERR - READ/WRITE ERROR HANDLER.
03170 M00S02810.ppr +++|*
03171 M00S02811.ppr +++|* ENTRY (A) = R, IF READ ERROR.
03172 M00S02812.ppr +++|* (A) = W, IF WRITE ERROR.
03173 M00S02813.ppr +++|* (T5) = EQUIPMENT.
03174 M00S02814.ppr +++|*
03175 M00S02815.ppr +++|* EXIT TO MAIN PROGRAM TO RETRY.
03176 M00S02816.ppr +++|
03177 M00S02817.ppr +++|
03178 M00S02818.ppr +++| ERR BSS 0 ENTRY
Line S02819 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03179 M01S02819.ns2553 ---| STD T1
03180 M01S02820.ns2553 ---| ADC 2L
03181 M01S02821.ns2553 ---| STM ERRA+5
03182 M01S02822.ns2553 ---| LDD T5 CONVERT UPPER TWO DIGITS OF EST ORDINAL
Line S00084 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03183 M01S00084.ns2553 +++| STD EF
03184 M01S00085.ns2553 +++| SHN 6
03185 M01S00086.ns2553 +++| LMN 1R,
03186 M01S00087.ns2553 +++| STM ERRA+11
03187 M01S00088.ns2553 +++| LMC 2RR,
03188 M01S00089.ns2553 +++| NJN ERR1 IF NOT READ ERROR
03189 M01S00090.ns2553 +++| LDM UERR ENABLE *ENDMS* FOR ERROR PROCESSING
03190 M01S00091.ns2553 +++| LMC EPDE-EPSM
03191 M01S00092.ns2553 +++| STM UERR
03192 M01S00093.ns2553 +++| SETMS =,IO,(NS,DF,SM)
03193 M01S00094.ns2553 +++| SHN 21-10
03194 M01S00095.ns2553 +++| ERRNZ EPDE-EPSM-1S8 CODE ASSUMES VALUE
03195 M01S00096.ns2553 +++| PJP FAP1.3 IF *ENDMS* NOW ENABLED
03196 M01S00097.ns2553 +++| ERR1 ENDMS
03197 M01S00098.ns2553 +++| LDD T5 CONVERT UPPER TWO DIGITS OF EST ORDINAL
03198 M00S02823.ppr +++| SHN -3
03199 M00S02824.ppr +++| RJM C2D
Line S02825 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03200 M01S02825.ns2553 ---| STM ERRA+10
Line S00099 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03201 M01S00099.ns2553 +++| STM ERRA+1
03202 M00S02826.ppr +++| LDD T5 CONVERT LOWER DIGIT OF EST ORDINAL
03203 M00S02827.ppr +++| LPN 7
03204 M00S02828.ppr +++| SHN 6
03205 M00S02829.ppr +++| ADC 2R0,
Line S02830 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03206 M01S02830.ns2553 ---| STM ERRA+11
Line S00100 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03207 M01S00100.ns2553 +++| STM ERRA+2
03208 M00S02831.ppr +++| LDM ERRA+13+3 TERMINATE FILENAME
03209 M00S02832.ppr +++| SCN 17
03210 M00S02833.ppr +++| STM ERRA+13+3
03211 M00S02834.ppr +++| LDD IR+1
03212 M00S02835.ppr +++| LPN 37
Line S02836 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03213 M01S02836.ns2553 ---| NJN ERR1 IF NOT AT CONTROL POINT 0
Line S00101 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03214 M01S00101.ns2553 +++| NJN ERR2 IF NOT AT CONTROL POINT 0
03215 M00S02837.ppr +++| LDN NCPL
03216 M00S02838.ppr +++| CRD CM
03217 M00S02839.ppr +++| AOD CM+1
Line S02840 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03218 M01S02840.ns2553 ---| ERR1 SHN 7
Line S00102 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03219 M01S00102.ns2553 +++| ERR2 SHN 7
03220 M01S00103.ns2553 +++| STD CP
03221 M00S02841.ppr +++| ADN MS2W
03222 M00S02842.ppr +++| CWM ERRA,TR
Line S02843 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03223 M01S02843.ns2553 ---| LDD T1
03224 M01S02844.ns2553 ---| LMN 1RR
03225 M01S02845.ns2553 ---| ZJN ERR2 IF READ ERROR
03226 M01S02846.ns2553 ---| LJM FAP3 RETRY WRITE
Line S00104 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03227 M01S00104.ns2553 +++| LDK INWL CHECK FOR DEADSTART IN PROGRESS
03228 M01S00105.ns2553 +++| CRD CM
03229 M01S00106.ns2553 +++| LDD CM+3
03230 M01S00107.ns2553 +++| LPN 12
03231 M01S00108.ns2553 +++| ZJN ERR3 IF DEADSTART COMPLETE, SCHEDULING ENABLED
03232 M01S00109.ns2553 +++| STM ERRB FORCE RETRY
03233 M01S00110.ns2553 +++| UJN ERR4 DELAY
03234 M01S00111.ns2553 +++|
03235 M01S00112.ns2553 +++| ERR3 LDD SA
03236 M01S00113.ns2553 +++| SHN 14
03237 M01S00114.ns2553 +++| LMD SA+1
03238 M01S00115.ns2553 +++| SBN 7 CHECK RETURN-ON-INACCESSIBLE IN CALL
03239 M01S00116.ns2553 +++| CRD CM
03240 M01S00117.ns2553 +++| LDD CM+1
03241 M01S00118.ns2553 +++| SHN 21-11
03242 M01S00119.ns2553 +++| MJP FAP5 IF RETURN-ON-INACCESSIBLE SET
03243 M01S00120.ns2553 +++| ERR4 DELAY 4
03244 M01S00121.ns2553 +++| PAUSE
03245 M01S00122.ns2553 +++| LDD CM+1
03246 M01S00123.ns2553 +++| LMN ORET
03247 M01S00124.ns2553 +++| NJN ERR5 IF NOT OPERATOR *OVERRIDE*
03248 M01S00125.ns2553 +++| MONITOR DPPM
03249 M01S00126.ns2553 +++| LJM PPR EXIT
03250 M01S00127.ns2553 +++|
03251 M01S00128.ns2553 +++| ERR5 LDD MS
03252 M01S00129.ns2553 +++| SHN 3
03253 M01S00130.ns2553 +++| ADN DALL
03254 M01S00131.ns2553 +++| CRD CM
03255 M01S00132.ns2553 +++| LDD CM
03256 M01S00133.ns2553 +++| SHN 21-7
03257 M01S00134.ns2553 +++| ERRB MJN ERR4 IF STILL INACCESSIBLE
03258 M01S00135.ns2553 +++|* PSN (DEADSTART IN PROGRESS)
03259 M01S00136.ns2553 +++|
03260 M01S00137.ns2553 +++|* RESTART REQUEST.
03261 M01S00138.ns2553 +++|
03262 M01S00139.ns2553 +++| LDN 0
03263 M01S00140.ns2553 +++| STD CM
03264 M01S00141.ns2553 +++| LDD CP
03265 M01S00142.ns2553 +++| ADN MS2W
03266 M01S00143.ns2553 +++| CWD CM CLEAR ERROR MESSAGE
03267 M01S00144.ns2553 +++| LJM FAP1.2 RETRY REQUEST
03268 M00S02847.ppr +++|
Line S02848 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03269 M01S02848.ns2553 ---| ERR2 ENDMS
03270 M01S02849.ns2553 ---| LJM FAP1.2 RETRY READ
03271 M00S02850.ppr +++|
Line S02851 Modification History
M01 (Removed by) ns2553
Seq # *Modification Id* Act
----------------------------+
03272 M01S02851.ns2553 ---| ERRA DATA C*1FA ERROR, M, EQXXX, FILENAM*
Line S00145 Modification History
M01 (Added by) ns2553
Seq # *Modification Id* Act
----------------------------+
03273 M01S00145.ns2553 +++| ERRA DATA C*EQXXX, 1FA ERROR, M, FILENAM*
03274 M00S02852.ppr +++| SPACE 4,10
03275 M00S02853.ppr +++| QUAL$ SET 0
03276 M00S02854.ppr +++| COMMON SPACE 4,10
03277 M00S02855.ppr +++|** COMMON DECKS.
03278 M00S02856.ppr +++|
03279 M00S02857.ppr +++|
03280 M00S02858.ppr +++|*CALL COMPC2D
03281 M00S02859.ppr +++| FNT$ SET 1 ASSEMBLE FNT ADDRESSING IN *COMPGFP*
03282 M00S02860.ppr +++| IFP$ EQU 1 ASSEMBLE REMOTE INITIALIZATION
03283 M00S02861.ppr +++|*CALL COMPGFP
03284 M00S02862.ppr +++| SPACE 4,10
03285 M00S02863.ppr +++|** ASSEMBLE *COMPGFP* INITIALIZATION CODE.
03286 M00S02864.ppr +++|
03287 M00S02865.ppr +++| IFP HERE
03288 M00S02866.ppr +++| OVERFLOW PPFW,MSFW+/1BP/PPSA2*5,CMR
Line S00064 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
03289 M01S00064.273l780 +++| 1CP TTL PPR/1CP - SET CONTROL POINT ASSIGNMENT.
03290 M01S00065.273l780 +++| TITLE
03291 M01S00066.273l780 +++| QUAL 1CP
03292 M01S00067.273l780 +++| IDENT 1CP,CCP
03293 M01S00068.273l780 +++|*COMMENT PPR - SET CONTROL POINT ASSIGNMENT.
Line S00069 Modification History
M01 (Added by) 273l780
M02 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
03294 M02S00069.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1986.
Line S00009 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
03295 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
Line S00070 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
03296 M01S00070.273l780 +++| 1CP SPACE 4,10
03297 M01S00071.273l780 +++|*** 1CP - SET CONTROL POINT ASSIGNMENT.
03298 M01S00072.273l780 +++|*
03299 M01S00073.273l780 +++|* G. S. YODER 90/06/04.
03300 M01S00074.273l780 +++| 1CP SPACE 4,10
03301 M01S00075.273l780 +++|*** *1CP* IS CALLED BY *CPUMTR* TO COMPLETE THE PROCESSING
03302 M01S00076.273l780 +++|* OF THE *CCAM* FUNCTION. *1CP* IS EXECUTED VIA THE *BOTM*
03303 M01S00077.273l780 +++|* *PPR* FUNCTION AND SETS ADDRESSES IN *PPR* FOR THE NEW
03304 M01S00078.273l780 +++|* CONTROL POINT BEFORE RETURNING TO THE CALLER.
03305 M01S00079.273l780 +++|*
03306 M01S00080.273l780 +++|* NOTE - THIS PROGRAM MUST BE CM RESIDENT.
03307 M01S00081.273l780 +++| 1CP SPACE 4,10
03308 M01S00082.273l780 +++|*** ENTRY CONDITIONS.
03309 M01S00083.273l780 +++|*
03310 M01S00084.273l780 +++|* (CM+1 - CM+2) = FWA OF *1CP* IN *RPL*.
03311 M01S00085.273l780 +++|* (CM+3 - CM+4) = *SBFP + 2* ADDRESS IN EXTENDED PP
03312 M01S00086.273l780 +++|* COMMUNICATION BLOCK.
03313 M01S00087.273l780 +++| 1CP SPACE 4,10
03314 M01S00088.273l780 +++|*** EXIT CONDITIONS.
03315 M01S00089.273l780 +++|*
03316 M01S00090.273l780 +++|* CONTROL POINT ACCESS ADDRESSES UPDATED.
03317 M01S00091.273l780 +++|* (CM - CM+4) = OUTPUT REGISTER.
03318 M01S00092.273l780 +++|* TO *FTN1.0* TO RETURN TO CALLER OF *FTN*.
03319 M01S00093.273l780 +++| 1CP SPACE 4,10
03320 M01S00094.273l780 +++|**** DIRECT LOCATION ASSIGNMENTS.
03321 M01S00095.273l780 +++|
03322 M01S00096.273l780 +++|
03323 M01S00097.273l780 +++| CN EQU 20 CM WORD BUFFER (5 LOCATIONS)
03324 M01S00098.273l780 +++|
03325 M01S00099.273l780 +++|****
03326 M01S00100.273l780 +++|
03327 M01S00101.273l780 +++|
03328 M01S00102.273l780 +++| ORG 10001-3*5
03329 M01S00103.273l780 +++|
03330 M01S00104.273l780 +++|
03331 M01S00105.273l780 +++| CCP BSS 0 ENTRY
03332 M01S00106.273l780 +++| LDD CM+3 SET DIRECT CELL SAVE ADDRESS
03333 M01S00107.273l780 +++| SHN 14
03334 M01S00108.273l780 +++| ADD CM+4
03335 M01S00109.273l780 +++| CWD CN SAVE (CN - CN+4)
03336 M01S00110.273l780 +++| SBN 1 READ PARAMETERS
03337 M01S00111.273l780 +++| CRD CN
03338 M01S00112.273l780 +++| LDD CN SET CP/PCP NUMBER FOR MOVE CHECK
03339 M01S00113.273l780 +++| STM FTNG
03340 M01S00114.273l780 +++| LDC 3*100 SET READ OFFSET
03341 M01S00115.273l780 +++| LJM FTN1.2 READ AND EXECUTE NEXT SEGMENT
03342 M01S00116.273l780 +++| BSSZ 10000B-* SPARE SPACE
03343 M01S00117.273l780 +++| CON CCP-1 (T0+1) BECOMES (P)
03344 M01S00118.273l780 +++|
03345 M01S00119.273l780 +++| LOC 10001-3*5
03346 M01S00120.273l780 +++|
03347 M01S00121.273l780 +++| CCP1 LDD CN+1 SET *FLSW* ADDRESS
03348 M01S00122.273l780 +++| LMC LDCI
03349 M01S00123.273l780 +++| STM FTNC
03350 M01S00124.273l780 +++| LDD CN+2
03351 M01S00125.273l780 +++| STM FTNC+1
03352 M01S00126.273l780 +++| LDD CN+4 SET *CP*
03353 M01S00127.273l780 +++| STD CP
03354 M01S00128.273l780 +++| LDC 6*100 SET READ OFFSET
03355 M01S00129.273l780 +++| LJM FTN1.2 READ AND EXECUTE NEXT SEGMENT
03356 M01S00130.273l780 +++| BSSZ 10000B-* SPARE SPACE
03357 M01S00131.273l780 +++| CON CCP1-1 (T0)+1 BECOMES (P)
03358 M01S00132.273l780 +++|
03359 M01S00133.273l780 +++| LOC 10001-3*5
03360 M01S00134.273l780 +++|
03361 M01S00135.273l780 +++| CCP2 LDD CM+3 SET DIRECT CELL SAVE ADDRESS
03362 M01S00136.273l780 +++| SHN 14
03363 M01S00137.273l780 +++| ADD CM+4
03364 M01S00138.273l780 +++| CRD CN RESTORE (CN - CN+4)
03365 M01S00139.273l780 +++| SBN 2 READ OUTPUT REGISTER
03366 M01S00140.273l780 +++| CRD CM
03367 M01S00141.273l780 +++| LJM FTN1.0 RETURN TO *FTN* CALLER
03368 M01S00142.273l780 +++| BSSZ 10000B-* SPARE SPACE
03369 M01S00143.273l780 +++| CON CCP2-1 (T0)+1 BECOMES (P)
03370 M00S02867.ppr +++| TTL PPR/1RP - RELOAD PP RESIDENT.
03371 M00S02868.ppr +++| TITLE
03372 M00S02869.ppr +++| QUAL 1RP
03373 M00S02870.ppr +++| IDENT 1RP,RLP
03374 M00S02871.ppr +++|*COMMENT PPR - RELOAD PP RESIDENT.
Line S02872 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
03375 M01S02872.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
Line S00010 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
03376 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
03377 M00S02873.ppr +++| SPACE 4
03378 M00S02874.ppr +++|*** 1RP - RELOAD PP RESIDENT.
03379 M00S02875.ppr +++|* G. R. MANSFIELD. 70/07/17.
03380 M00S02876.ppr +++|* R. E. TATE. 73/01/05.
03381 M00S02877.ppr +++| SPACE 4
03382 M00S02878.ppr +++|*** 1RP MAY BE CALLED BY A PP TO RESTORE THAT PP-S COPY
03383 M00S02879.ppr +++|* OF PP RESIDENT. WHEN 1RP IS READY TO TRANSMIT PP RESIDENT,
03384 M00S02880.ppr +++|* BYTE 2 OF 1RP-S INPUT REGISTER IS SET TO 7777B. 1RP THEN
03385 M00S02881.ppr +++|* WAITS FOR BYTE 2 OF THE INPUT REGISTER TO BE SET TO 0.
03386 M00S02882.ppr +++|* IF THIS DOES NOT TAKE PLACE WITHIN 1 SECOND, 1RP EXITS,
03387 M00S02883.ppr +++|* THUS ABORTING THE LOAD. THE DATA TRANSFER IS MADE 6 CM WORDS
03388 M00S02884.ppr +++|* AT A TIME THROUGH THE MESSAGE BUFFER. BYTE 4 OF THE CALLING
03389 M00S02885.ppr +++|* PPU,S OUTPUT REGISTER IS USED AS THE FULL/EMPTY FLAG. END
03390 M00S02886.ppr +++|* OF DATA IS SIGNIFIED BY A LESS THAN 6 WORD TRANSFER.
03391 M00S02887.ppr +++|* THE CALLING PROGRAM CLEARS THE OUTPUT REGISTER TO INDICATE
03392 M00S02888.ppr +++|* EMPTY BUFFER AND *1RP* SETS BYTE 4 TO INDICATE FULL BUFFER.
03393 M00S02889.ppr +++| SPACE 4
03394 M00S02890.ppr +++|*** CALL.
03395 M00S02891.ppr +++|*
03396 M00S02892.ppr +++|*
03397 M00S02893.ppr +++|*T 18/1RP,6/0,12/0,12/0,12/IA
Figure
0 11 12 23 24 29 IA 0 0 30 35 36 41 42 59 0 0 1RP
03398 M00S02894.ppr +++|* IA = CALLER-S INPUT REGISTER ADDRESS.
03399 M00S02895.ppr +++|*
03400 M00S02896.ppr +++|* CALLER,S OUTPUT REGISTER.
03401 M00S02897.ppr +++|*
03402 M00S02898.ppr +++|*T OR 12/0,12/0,12/0,12/0,12/NOOC
Figure
OR
0 11 12 23 24 29 NOOC 0 0 30 35 36 47 48 59 0 0 0
03403 M00S02899.ppr +++|*
03404 M00S02900.ppr +++|* N = 4 - BUFFER FULL.
03405 M00S02901.ppr +++|* C = NUMBER OF WORDS.
03406 M00S02902.ppr +++| SPACE 4
03407 M00S02903.ppr +++|*** DAYFILE MESSAGES.
03408 M00S02904.ppr +++|*
03409 M00S02905.ppr +++|*
03410 M00S02906.ppr +++|* NONE.
03411 M00S02907.ppr +++| SPACE 4
03412 M00S02908.ppr +++|*** OPERATOR MESSAGES.
03413 M00S02909.ppr +++|*
03414 M00S02910.ppr +++|*
03415 M00S02911.ppr +++|* NONE.
03416 M00S02912.ppr +++| SPACE 4
03417 M00S02913.ppr +++|**** DIRECT LOCATION ASSIGNMENTS.
03418 M00S02914.ppr +++|
03419 M00S02915.ppr +++|
03420 M00S02916.ppr +++| CN EQU 20 CM WORD BUFFER (5 LOCATIONS)
03421 M00S02917.ppr +++|
03422 M00S02918.ppr +++|****
03423 M00S02919.ppr +++| RLP TITLE MAIN PROGRAM.
03424 M00S02920.ppr +++|*** RLP - MAIN PROGRAM.
03425 M00S02921.ppr +++|
03426 M00S02922.ppr +++|
03427 M00S02923.ppr +++| ORG PPFW
03428 M00S02924.ppr +++| RLP RJM PRS PRESET PROGRAM
03429 M00S02925.ppr +++|
03430 M00S02926.ppr +++|* INITIATE TRANSMISSION.
03431 M00S02927.ppr +++|
03432 M00S02928.ppr +++|
03433 M00S02929.ppr +++| LCN 0 SET TRANSMIT REQUEST
03434 M00S02930.ppr +++| STD IR+2
03435 M00S02931.ppr +++| LDD IA
03436 M00S02932.ppr +++| CWD IR
03437 M00S02933.ppr +++| LCN 0 SET TIMER
03438 M00S02934.ppr +++| STD T1
03439 M00S02935.ppr +++| RLP1 SOD T1
03440 M00S02936.ppr +++| ZJN RLP4 IF TIME UP
03441 M00S02937.ppr +++| LDD IA READ RESPONSE
03442 M00S02938.ppr +++| CRD CM
03443 M00S02939.ppr +++| LDD CM+2
03444 M00S02940.ppr +++| NJN RLP1 IF RECEIVE NOT READY
03445 M00S02941.ppr +++|
03446 M00S02942.ppr +++|* TRANSMIT *PPR*.
03447 M00S02943.ppr +++|
03448 M00S02944.ppr +++| RLP2 LDN 77 DELAY
03449 M00S02945.ppr +++| SBN 1
03450 M00S02946.ppr +++| NJN *-1
03451 M00S02947.ppr +++| LDD IR+3 CHECK OUTPUT REGISTER
03452 M00S02948.ppr +++| CRD CM
03453 M00S02949.ppr +++| LDD CM+4
03454 M00S02950.ppr +++| NJN RLP2 IF NOT READY FOR NEXT WORD
03455 M00S02951.ppr +++| LDN 5*6 UPDATE BUFFER ADDRESS
03456 M00S02952.ppr +++| RAM RLPA
03457 M00S02953.ppr +++| ADC -MSFW
03458 M00S02954.ppr +++| PJN RLP3 IF TRANSFER COMPLETE
03459 M00S02955.ppr +++| LDD T6 TRANSFER DATA BLOCK TO MESSAGE BUFFER
03460 M00S02956.ppr +++| CWM 100-5*6,T7
03461 M00S02957.ppr +++| RLPA EQU *-1
03462 M00S02958.ppr +++| SBN 7 SET FULL FLAG
03463 M00S02959.ppr +++| CWM RLPD,ON
03464 M00S02960.ppr +++| UJN RLP2 LOOP
03465 M00S02961.ppr +++| RLP3 LCN 6 SET LAST TRANSFER FLAG
03466 M00S02962.ppr +++| RAM RLPD+4
03467 M00S02963.ppr +++| LDD IR+3 SET RANSFER COMPLETE FLAG
03468 M00S02964.ppr +++| CWM RLPD,ON
03469 M00S02965.ppr +++|
03470 M00S02966.ppr +++| RLP4 LDC * RESET EXCHANGE ADDRESS
03471 M00S02967.ppr +++| RLPB EQU *-1
03472 M00S02968.ppr +++| STM XJ3
03473 M00S02969.ppr +++| STM XJ4
03474 M00S02970.ppr +++| LDC *
03475 M00S02971.ppr +++| RLPC EQU *-1
03476 M00S02972.ppr +++| STM XJ3+1
03477 M00S02973.ppr +++| STM XJ4+1
03478 M00S02974.ppr +++| ADN 6 RESET EXCHANGE PACKAGE MA ADDRESS
03479 M00S02975.ppr +++| STM XJ2+1
03480 M00S02976.ppr +++| SHN -14
03481 M00S02977.ppr +++| ADM RLPB
03482 M00S02978.ppr +++| STM XJ2
03483 M00S02979.ppr +++|
03484 M00S02980.ppr +++|* DROP PP.
03485 M00S02981.ppr +++|
03486 M00S02982.ppr +++| MONITOR DPPM DROP PP
03487 M00S02983.ppr +++| LJM PPR EXIT TO PP RESIDENT
03488 M00S02984.ppr +++|
03489 M00S02985.ppr +++| RLPD CON 0 FULL FLAG WORD
03490 M00S02986.ppr +++| CON 0
03491 M00S02987.ppr +++| CON 0
03492 M00S02988.ppr +++| CON 0
03493 M00S02989.ppr +++| CON 4006
03494 M00S02990.ppr +++| PRS SPACE 4
03495 M00S02991.ppr +++|** PRS - PRESET PROGRAM.
03496 M00S02992.ppr +++|
03497 M00S02993.ppr +++|
03498 M00S02994.ppr +++| PRS SUBR ENTRY/EXIT
03499 M00S02995.ppr +++| LDN 6 SET CONSTANT
03500 M00S02996.ppr +++| STD T7
03501 M00S02997.ppr +++| LDD IR+4 SET OUTPUT REGISTER ADDRESS
03502 M00S02998.ppr +++| ADN 1
03503 M00S02999.ppr +++| STD IR+3
03504 M00S03000.ppr +++| ADN 1 SET MESSAGE BUFFER ADDRESS
03505 M00S03001.ppr +++| STD T6
03506 M00S03002.ppr +++| LDM XJ3 SAVE EXCHANGE PACKAGE
03507 M00S03003.ppr +++| STM RLPB
03508 M00S03004.ppr +++| LDM XJ3+1
03509 M00S03005.ppr +++| STM RLPC
03510 M00S03006.ppr +++| LDN PXPP READ PP EXCHANGE STATUS
03511 M00S03007.ppr +++| CRD CN
03512 M00S03008.ppr +++| LDN PPCP READ PP COMMUNICATION POINTER
03513 M00S03009.ppr +++| CRD CM
03514 M00S03010.ppr +++| LDD IR+4 SET PP NUMBER * 21
03515 M00S03011.ppr +++| SBD CM+4
03516 M00S03012.ppr +++| SBN 20
03517 M00S03013.ppr +++| SHN -3
03518 M00S03014.ppr +++| STD T1
03519 M00S03015.ppr +++| SHN 4
03520 M00S03016.ppr +++| ADD T1
03521 M00S03017.ppr +++| RAD CN+4 SET EXCHANGE ADDRESS
03522 M00S03018.ppr +++| STM XJ3+1
03523 M00S03019.ppr +++| STM XJ4+1
03524 M00S03020.ppr +++| SHN -14
03525 M00S03021.ppr +++| RAD CN+3
03526 M00S03022.ppr +++| LMC LDCI
03527 M00S03023.ppr +++| STM XJ3
03528 M00S03024.ppr +++| STM XJ4
03529 M00S03025.ppr +++| LDD CN+4 SET EXCHANGE PACKAGE MA ADDRESS
03530 M00S03026.ppr +++| ADN 6
03531 M00S03027.ppr +++| STM XJ2+1
03532 M00S03028.ppr +++| SHN -14