Seq # *Modification Id* Act
----------------------------+
01768 M01S00065.ns2633 +++| SHN -3
01769 M01S00066.ns2633 +++| STD CM+2
01770 M01S00067.ns2633 +++| LDD CN+1 FORM MACHINE FL - MINCM
01771 M01S00068.ns2633 +++| STD T1
01772 M01S00069.ns2633 +++| LDD CM+3
01773 M01S00070.ns2633 +++| SBD CN+2
01774 M00S01585.ver +++| STD CL+4
Line S00071 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
01775 M01S00071.ns2633 +++| PJN SMR3 IF NO BORROW
01776 M01S00072.ns2633 +++| AOD T1 ADJUST FOR BORROW
01777 M01S00073.ns2633 +++| AOD CL+4
01778 M01S00074.ns2633 +++| SMR3 LDD CM+2
01779 M01S00075.ns2633 +++| SBD T1
01780 M01S00076.ns2633 +++| STD CL+3
01781 M01S00077.ns2633 +++| LDD DA FORM BLOCK - CURRENT
01782 M01S00078.ns2633 +++| STD T1
01783 M01S00079.ns2633 +++| LDD CN+4
01784 M01S00080.ns2633 +++| SBD DB
01785 M01S00081.ns2633 +++| STD T2
01786 M01S00082.ns2633 +++| PJN SMR4 IF NO BORROW
01787 M01S00083.ns2633 +++| AOD T1 ADJUST FOR BORROW
01788 M01S00084.ns2633 +++| AOD T2
01789 M01S00085.ns2633 +++| SMR4 LDD CN+3
01790 M01S00086.ns2633 +++| SBD T1
01791 M01S00087.ns2633 +++| STD T1
01792 M01S00088.ns2633 +++| MJN SMR5 IF BLOCK USED UP
01793 M01S00089.ns2633 +++| LDD T2 RETURN FL - MINCM + UNUSED BLOCK
01794 M01S00090.ns2633 +++| RAD CL+4
01795 M00S01586.ver +++| SHN -14
Line S01587 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
01796 M01S01587.ns2633 ---| SBD CN+1
01797 M01S01588.ns2633 ---| STD CL+3
01798 M01S01589.ns2633 ---| LDD CN+3 FORM BLOCK - CURRENT
01799 M01S01590.ns2633 ---| SBD DA
01800 M01S01591.ns2633 ---| MJN SMR2 IF BLOCK USED UP
01801 M01S01592.ns2633 ---| SHN 14
01802 M01S01593.ns2633 ---| LMD CN+4
01803 M01S01594.ns2633 ---| SBD DB
01804 M01S01595.ns2633 ---| MJN SMR2 IF BLOCK USED UP
01805 M01S01596.ns2633 ---| RAD CL+4 RETURN FL - MINCM + UNUSED BLOCK
01806 M01S01597.ns2633 ---| SHN -14
Line S00091 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
01807 M01S00091.ns2633 +++| ADD T1
01808 M00S01598.ver +++| RAD CL+3
Line S01599 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
01809 M01S01599.ns2633 ---| SMR2 LDD CL+4 ROUND DOWN TO NEAREST 2000B
Line S00092 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
01810 M01S00092.ns2633 +++|
01811 M01S00093.ns2633 +++|* SET UP RESPONSE.
01812 M01S00094.ns2633 +++|
01813 M01S00095.ns2633 +++| SMR5 LDD CL+4 ROUND DOWN TO NEAREST 2000B
01814 M00S01600.ver +++| SCN 1
01815 M00S01601.ver +++| STD CL+4
01816 M00S01602.ver +++| RJM CPA RETURN AVAILABLE CM
01817 M00S01603.ver +++| ADN 1
01818 M00S01604.ver +++| CWD CL
01819 M00S01605.ver +++| LDN 0 CLEAR RESPONSE
01820 M00S01606.ver +++| STD CL+3
01821 M00S01607.ver +++| RJM GCP GET CURRENT STATUS OF NOS/VE PP-S
01822 M00S01608.ver +++| LDD CM+2 RETURN TOTAL PP-S - DEDICATED - MINIMUM
01823 M00S01609.ver +++| SBD T5
01824 M00S01610.ver +++| SBN MINP
01825 M00S01611.ver +++| ADD T1 DO NOT COUNT PSEUDO-ASSIGNED PP-S
01826 M00S01612.ver +++| STD CL+4
01827 M00S01613.ver +++| RJM CPA RETURN AVAILABLE PP-S
01828 M00S01614.ver +++| ADN 2
01829 M00S01615.ver +++| CWD CL
01830 M00S01616.ver +++| LJM SMRX RETURN
01831 M00S01617.ver +++| TITLE SUBROUTINES.
01832 M00S01618.ver +++| APP SPACE 4,15
01833 M00S01619.ver +++|** APP - ASSIGN PSEUDO-ASSIGNED PP.
01834 M00S01620.ver +++|*
01835 M00S01621.ver +++|* ENTRY (LO) = CURRENT OFFSET IN PARAMETER LIST.
01836 M00S01622.ver +++|* (T1) = NUMBER OF PSEUDO-ASSIGNED PP-S.
01837 M00S01623.ver +++|* (T6) = PP REQUEST COUNT.
01838 M00S01624.ver +++|*
01839 M00S01625.ver +++|* EXIT (LO) = ADVANCED LIST ENTRY POINTER.
01840 M00S01626.ver +++|* (T1) = DECREMENTED COUNT OF PSEUDO-ASSIGNED PP-S.
01841 M00S01627.ver +++|* (T6) = DECREMENTED PP REQUEST COUNT.
01842 M00S01628.ver +++|*
01843 M00S01629.ver +++|* USES CL, LO, T1, T4, T5, T6, CM - CM+4.
01844 M00S01630.ver +++|*
01845 M00S01631.ver +++|* CALLS CPA.
01846 M00S01632.ver +++|*
01847 M00S01633.ver +++|* NOTE - THIS ROUTINE DOES NOT CHECK FOR THE END OF THE PP
01848 M00S01634.ver +++|* COMMUNICATION AREA. IT EXPECTS TO FIND A PSEUDO-ASSIGNED PP.
01849 M00S01635.ver +++|
01850 M00S01636.ver +++|
01851 M00S01637.ver +++| APP SUBR ENTRY/EXIT
01852 M00S01638.ver +++| LDM PPCA GET PP COMMUNICATION AREA POINTER
01853 M00S01639.ver +++| STD T4
01854 M00S01640.ver +++| LDN 0 INITIALIZE PP NUMBER
01855 M00S01641.ver +++| STD T5
01856 M00S01642.ver +++| APP1 AOD T5 INCREMENT PP NUMBER
01857 M00S01643.ver +++| LMN 12
01858 M00S01644.ver +++| NJN APP2 IF NOT PP 12
01859 M00S01645.ver +++| LDN 20 SET PP 20
01860 M00S01646.ver +++| STD T5
01861 M00S01647.ver +++| APP2 LDN 10 READ NEXT INPUT REGISTER
01862 M00S01648.ver +++| RAD T4
01863 M00S01649.ver +++| CRD CM
01864 M00S01650.ver +++| LDD CM+1
01865 M00S01651.ver +++| SCN 77
01866 M00S01652.ver +++| SHN 6
01867 M00S01653.ver +++| LMD CM
01868 M00S01654.ver +++| LMC 3RP*V
01869 M00S01655.ver +++| NJN APP1 IF NOT *VP
01870 M00S01656.ver +++| LDD CM+4
01871 M00S01657.ver +++| ZJN APP1 IF NOT PSEUDO-ASSIGNED
01872 M00S01658.ver +++| LDD T5 SET PP NUMBER IN REPLY
01873 M00S01659.ver +++| SHN 6
01874 M00S01660.ver +++| STD CL
01875 M00S01661.ver +++| RJM CPA WRITE PARAMETER LIST ENTRY
01876 M00S01662.ver +++| ADD LO
01877 M00S01663.ver +++| CWD CL
01878 M00S01664.ver +++| AOD LO INCREMENT LIST OFFSET
01879 M00S01665.ver +++| LDN 0 CLEAR PSEUDO-ASSIGNED STATUS
01880 M00S01666.ver +++| STD CM+4
01881 M00S01667.ver +++| LDD T4 REWRITE INPUT REGISTER
01882 M00S01668.ver +++| CWD CM
01883 M00S01669.ver +++| SOD T6 DECREMENT REQUEST COUNT
01884 M00S01670.ver +++| SOD T1 DECREMENT PSEUDO-ASSIGNED COUNT
01885 M00S01671.ver +++| LJM APPX RETURN
01886 M00S01672.ver +++| ARC SPACE 4,45
01887 M00S01673.ver +++|** ARC - ADJUST REQUEST COUNT.
01888 M00S01674.ver +++|*
01889 M00S01675.ver +++|* THIS ROUTINE ATTEMPTS TO SATISFY AS MUCH AS POSSIBLE OF
01890 M00S01676.ver +++|* THE CURRENT PP REQUEST WITH PSEUDO-ASSIGNED PP-S. IF THE
01891 M00S01677.ver +++|* REQUEST IS FOR AN ODD NUMBER OF PP-S, ONE PSEUDO-ASSIGNED
01892 M00S01678.ver +++|* PP WILL BE USED, AND THE REQUEST CHANGED TO ONE FOR AN EVEN
01893 M00S01679.ver +++|* NUMBER OF PP-S. EVEN REQUESTS WILL BE SATIFIED BY USING
01894 M00S01680.ver +++|* PAIRS OF PSEUDO-ASSIGNED PP-S, UNTIL ANOTHER PAIR IS NOT
01895 M00S01681.ver +++|* AVAILABLE, OR THE ENTIRE REQUEST IS SATISFIED.
01896 M00S01682.ver +++|*
01897 M00S01683.ver +++|* ENTRY (T6) = PP REQUEST COUNT FROM PARAMETER BLOCK.
01898 M00S01684.ver +++|* (T1) = NUMBER OF PP-S PSEUDO-ASSIGNED TO NOS/VE.
01899 M00S01685.ver +++|* (CF) = 0, IF NOT 810/830 WITH 20 PP-S.
01900 M00S01686.ver +++|*
01901 M00S01687.ver +++|* EXIT (T6) = ADJUSTED REQUEST COUNT. (REDUCED BY ANY
01902 M00S01688.ver +++|* PSEUDO-ASSIGNED PP-S THAT WERE USED, OR
01903 M00S01689.ver +++|* INCREASED BY 1, IF THE REQUEST IS FOR AN
01904 M00S01690.ver +++|* ODD NUMBER OF PP-S AND NO PSEUDO-ASSIGNED
01905 M00S01691.ver +++|* PP-S ARE AVAILABLE). THIS COUNT IS ALWAYS
01906 M00S01692.ver +++|* AN EVEN NUMBER.
01907 M00S01693.ver +++|* (DB) .NE. 0, IF PSEUDO-ASSIGNMENT REQUIRED.
01908 M00S01694.ver +++|*
01909 M00S01695.ver +++|* SEE *GCP* FOR OTHER EXIT CONDITIONS.
01910 M00S01696.ver +++|*
01911 M00S01697.ver +++|* USES DB, T6.
01912 M00S01698.ver +++|*
01913 M00S01699.ver +++|* CALLS APP, GCP.
01914 M00S01700.ver +++|
01915 M00S01701.ver +++|
01916 M00S01702.ver +++| ARC3 RJM GCP RESET CURRENT STATUS OF PP-S
01917 M00S01703.ver +++|
01918 M00S01704.ver +++| ARC SUBR ENTRY/EXIT
01919 M00S01705.ver +++| LDN 0 CLEAR PSEUDO-ASSIGNMENT FLAG
01920 M00S01706.ver +++| STD DB
01921 M00S01707.ver +++| LDD CF
01922 M00S01708.ver +++| ZJN ARCX IF NOT 810/830 WITH 20 PP-S
01923 M00S01709.ver +++| LDD T1
01924 M00S01710.ver +++| NJN ARC1 IF PSEUDO-ASSIGNED PP-S
01925 M00S01711.ver +++| LDD T6
01926 M00S01712.ver +++| LPN 1
01927 M00S01713.ver +++| ZJN ARCX IF REQUEST IS FOR EVEN NUMBER
01928 M00S01714.ver +++| AOD T6 MAKE REQUEST EVEN
01929 M00S01715.ver +++| AOD DB SET PSEUDO-ASSIGNMENT REQUIRED
01930 M00S01716.ver +++| UJN ARC3 RESET STATUS
01931 M00S01717.ver +++|
01932 M00S01718.ver +++| ARC1 LDD T6
01933 M00S01719.ver +++| LPN 1
01934 M00S01720.ver +++| ZJN ARC2 IF EVEN REQUEST
01935 M00S01721.ver +++| RJM APP ASSIGN PSEUDO-ASSIGNED PP
01936 M00S01722.ver +++| ARC2 LDD T6
01937 M00S01723.ver +++| ZJN ARC3 IF REQUEST IS SATISFIED
01938 M00S01724.ver +++| LDD T1
01939 M00S01725.ver +++| SBN 2
01940 M00S01726.ver +++| MJN ARC3 IF NO PAIR OF PSEUDO-ASSIGNED PP-S
01941 M00S01727.ver +++| RJM APP ASSIGN PSEUDO-ASSIGNED PP
01942 M00S01728.ver +++| RJM APP ASSIGN PSEUDO-ASSIGNED PP
01943 M00S01729.ver +++| UJN ARC2 CHECK IF REQUEST SATISFIED
Line S01730 Modification History
M01 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
01944 M01S01730.273l780 ---| CAM SPACE 4,10
Line S00001 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
01945 M01S00001.273l780 +++| CAM SPACE 4,15
01946 M00S01731.ver +++|** CAM - CALCULATE AVAILABLE MEMORY.
Line S01732 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
01947 M01S01732.271l716 ---|* ADAPTED FROM *UFL* IN *MTR*.
01948 M00S01733.ver +++|*
Line S01734 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
01949 M01S01734.271l716 ---|* ENTRY (LO) = SYSTEM CONTROL POINT NUMBER.
Line S00014 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
01950 M01S00014.271l716 +++|* ENTRY (NC) = SYSTEM CONTROL POINT NUMBER.
01951 M00S01735.ver +++|*
Line S01736 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
01952 M01S01736.271l716 ---|* EXIT (DC) = UNASSIGNED MEMORY.
Line S00015 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
01953 M01S00015.271l716 +++|* EXIT (DB) = HIGHEST CP/PCP NUMBER + 1.
01954 M01S00016.271l716 +++|* (DC) = UNASSIGNED CM/100B (3777B IF UNASSIGNED
01955 M01S00017.271l716 +++|* CM .GE. 131K).
01956 M00S01737.ver +++|* *TCFL* BUILT.
01957 M00S01738.ver +++|*
01958 M00S01739.ver +++|* USES DB, DC, CM - CM+4, CN - CN+4, SC - SC+4, T1 - T5.
01959 M00S01740.ver +++|*
Line S01741 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
01960 M01S01741.271l716 ---|* CALLS DUM.
Line S00018 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
01961 M02S00018.273l780 ---|* MACROS LCPA.
Line S00002 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
01962 M01S00002.273l780 +++|* CALLS CCA.
01963 M00S01742.ver +++|
01964 M00S01743.ver +++|
01965 M00S01744.ver +++| CAM SUBR ENTRY/EXIT
Line S01745 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
01966 M01S01745.271l716 ---| LDN FLSW
01967 M01S01746.271l716 ---| CRD CM READ *FLSW* OF CONTROL POINT 0
01968 M01S01747.271l716 ---| LDN 0
01969 M01S01748.271l716 ---| STD DB CLEAR CONTROL POINT
01970 M01S01749.271l716 ---| STD CM+2
01971 M01S01750.271l716 ---| STD DC CLEAR UNASSIGNED MEMORY
01972 M01S01751.271l716 ---| CAM1 LDD CM+3 SET RA+FL OF CURRENT CP
01973 M01S01752.271l716 ---| ADD CM+4
01974 M01S01753.271l716 ---| STD T3
01975 M01S01754.271l716 ---| SHN -14
01976 M01S01755.271l716 ---| ADD CM+2
01977 M01S01756.271l716 ---| STD T2
01978 M01S01757.271l716 ---| AOD DB ADVANCE CONTROL POINT
01979 M01S01758.271l716 ---| SHN 7
01980 M01S01759.271l716 ---| ADN FLSW
01981 M01S01760.271l716 ---| CRD CM READ *FLSW* OF NEXT CONTROL POINT
01982 M01S01761.271l716 ---| SHN -7
01983 M01S01762.271l716 ---| LMD LO
01984 M01S01763.271l716 ---| ZJN CAMX IF LAST CONTROL POINT (SYSTEM CP)
01985 M01S01764.271l716 ---| LDD CM+2 FORM FWA OF CP
01986 M01S01765.271l716 ---| SHN 14
01987 M01S01766.271l716 ---| ADD CM+3
01988 M01S01767.271l716 ---| SBD CM
01989 M01S01768.271l716 ---| RJM DUM DETERMINE UNASSIGNED MEMORY
01990 M01S01769.271l716 ---| RAD DC ACCUMULATE UNASSIGNED MEMORY
01991 M01S01770.271l716 ---| SHN -13
01992 M01S01771.271l716 ---| ZJN CAM2 IF TOTAL .LT. 3777B
01993 M01S01772.271l716 ---| LDC 3777 SET MAXIMUM
01994 M01S01773.271l716 ---| STD DC
01995 M01S01774.271l716 ---| CAM2 LDD DB CHECK CONTROL POINT STATUS
01996 M01S01775.271l716 ---| SHN 7
01997 M01S01776.271l716 ---| ADN STSW
Line S00019 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
01998 M01S00019.271l716 +++| LDK ACML GET AVAILABLE CM
01999 M01S00020.271l716 +++| CRD CM
02000 M01S00021.271l716 +++| LDN 0 INITIALIZE CP/PCP NUMBER
02001 M01S00022.271l716 +++| STD DB
02002 M01S00023.271l716 +++| LDD CM
02003 M01S00024.271l716 +++| SHN 14
02004 M01S00025.271l716 +++| LMD CM+1
02005 M01S00026.271l716 +++| SBK 3777
02006 M01S00027.271l716 +++| PJN CAM1 IF AVAILABLE CM .GE. 3777B
02007 M01S00028.271l716 +++| LDD CM+1
02008 M01S00029.271l716 +++| UJN CAM2 SET AVAILABLE CM
02009 M01S00030.271l716 +++|
02010 M01S00031.271l716 +++| CAM1 LDC 3777 SET MAXIMUM AVAILABLE CM
02011 M01S00032.271l716 +++| CAM2 STD DC
02012 M01S00033.271l716 +++| CAM3 AOD DB ADVANCE CP/PCP NUMBER
02013 M01S00034.271l716 +++| LMD NC
02014 M01S00035.271l716 +++| ZJN CAM5 IF SYSTEM CP
02015 M01S00036.271l716 +++| LMD NC
02016 M01S00037.271l716 +++| LMC **
02017 M01S00038.271l716 +++| CAMA EQU *-1 (NUMBER OF MCT ENTRIES)
02018 M01S00039.271l716 +++| ZJN CAMX IF ALL CP-S/PCP-S PROCESSED
Line S00040 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq # *Modification Id* Act
----------------------------+
02019 M02S00040.273l780 ---| LCPA STSW,DB
Line S00003 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02020 M01S00003.273l780 +++| LDD DB SET CP/PCP ADDRESS
02021 M01S00004.273l780 +++| RJM CCA
02022 M01S00005.273l780 +++| ADK STSW
02023 M00S01777.ver +++| CRD T1 READ STATUS WORD
02024 M00S01778.ver +++| ADN JCIW-STSW
02025 M00S01779.ver +++| CRD SC READ JOB CONTROL WORD
Line S01780 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02026 M01S01780.271l716 ---| ADN TFSW-JCIW
Line S00041 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02027 M01S00041.271l716 +++| ADK FLSW-JCIW
02028 M01S00042.271l716 +++| CRD CM
02029 M01S00043.271l716 +++| ADK TFSW-FLSW
02030 M00S01781.ver +++| CRD CN READ EJT ORDINAL
02031 M00S01782.ver +++| LDD CN
Line S01783 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02032 M01S01783.271l716 ---| ZJN CAM4 IF CONTROL POINT UNASSIGNED
Line S00044 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02033 M01S00044.271l716 +++| ZJN CAM5 IF UNASSIGNED CP/PCP
02034 M00S01784.ver +++| LDD SC+2
Line S01785 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02035 M01S01785.271l716 ---| ZJN CAM3 IF JOB IS ROLLABLE
Line S00045 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02036 M01S00045.271l716 +++| ZJN CAM4 IF ROLLABLE JOB
02037 M00S01786.ver +++| LDN 0
Line S01787 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02038 M01S01787.271l716 ---| UJN CAM4 CLEAR FL
Line S00046 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02039 M01S00046.271l716 +++| UJN CAM5 CLEAR *TCFL* ENTRY
02040 M00S01788.ver +++|
Line S01789 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02041 M01S01789.271l716 ---| CAM3 LDD T1+2 SAVE FL + ROLLOUT STATUS
Line S00047 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02042 M01S00047.271l716 +++| CAM4 LDD T1+2 SAVE CM FL + ROLLOUT STATUS
02043 M00S01790.ver +++| LPN 1
Line S01791 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02044 M01S01791.271l716 ---| SHN 11-0
Line S00048 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02045 M01S00048.271l716 +++| SHN 13-0
02046 M00S01792.ver +++| ADD CM+4
02047 M00S01793.ver +++| ADD CM ADD NFL
Line S01794 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02048 M01S01794.271l716 ---| CAM4 STM TCFL,DB
02049 M01S01795.271l716 ---| LJM CAM1 NEXT CONTROL POINT
Line S00049 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02050 M01S00049.271l716 +++| CAM5 STM TCFL,DB
02051 M01S00050.271l716 +++| UJP CAM3 PROCESS NEXT CP/PCP
Line S00006 Modification History
M01 (Added by) 273l780
Seq # *Modification Id* Act
----------------------------+
02052 M01S00006.273l780 +++| CCA SPACE 4,10
02053 M01S00007.273l780 +++|** CCA - COMPUTE CPA/PCPA ADDRESS.
02054 M01S00008.273l780 +++|*
02055 M01S00009.273l780 +++|* ENTRY (A) = CP/PCP NUMBER.
02056 M01S00010.273l780 +++|* (NC) = NUMBER OF CONTROL POINTS.
02057 M01S00011.273l780 +++|*
02058 M01S00012.273l780 +++|* EXIT (A) = CPA/PCPA ADDRESS.
02059 M01S00013.273l780 +++|
02060 M01S00014.273l780 +++|
02061 M01S00015.273l780 +++| CCA1 ADD NC
02062 M01S00016.273l780 +++| SHN 7
02063 M01S00017.273l780 +++|
02064 M01S00018.273l780 +++| CCA SUBR ENTRY/EXIT
02065 M01S00019.273l780 +++| SBD NC
02066 M01S00020.273l780 +++| MJN CCA1 IF CONTROL POINT
02067 M01S00021.273l780 +++| ZJN CCA1 IF SYSTEM CONTROL POINT
02068 M01S00022.273l780 +++| SHN 7
02069 M01S00023.273l780 +++| CCAA ADC ** (PCP AREAS BASE ADDRESS)
02070 M01S00024.273l780 +++| UJN CCAX RETURN
02071 M00S01796.ver +++| CMS SPACE 4,10
02072 M00S01797.ver +++|** CMS - CHECK MEMORY SIZE.
02073 M00S01798.ver +++|*
02074 M00S01799.ver +++|* ENTRY (T6 - T7) = MEMORY TO REQUEST/1000B.
02075 M00S01800.ver +++|* (CN+1 - CN+2) = MINCM/1000B.
02076 M00S01801.ver +++|*
02077 M00S01802.ver +++|* EXIT (A) .LT. 0 IF REQUEST WILL NOT LEAVE THE
02078 M00S01803.ver +++|* MINCM VALUE FOR NOS. (65K MINIMUM REQUIRED IF
02079 M00S01804.ver +++|* MINCM IS NOT SPECIFIED).
02080 M00S01805.ver +++|*
02081 M00S01806.ver +++|* USES T1 - T5.
02082 M00S01807.ver +++|
02083 M00S01808.ver +++|
02084 M00S01809.ver +++| CMS SUBR ENTRY/EXIT
02085 M00S01810.ver +++| LDC MABL GET CURRENT NOS CM SIZE/100B
02086 M00S01811.ver +++| CRD T1
02087 M00S01812.ver +++| LDD T1+2 FORM CURRENT CM/1000B
Line S00096 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02088 M01S00096.ns2633 +++| LPN 7
02089 M00S01813.ver +++| SHN 14
02090 M00S01814.ver +++| LMD T1+3
02091 M00S01815.ver +++| ADN 7 ROUND TO NEXT THOUSAND
02092 M00S01816.ver +++| SHN -3
02093 M00S01817.ver +++| STD T1+3
02094 M00S01818.ver +++| SHN -14
Line S01819 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02095 M01S01819.ns2633 ---| SBD T6
Line S00097 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02096 M01S00097.ns2633 +++| SHN 3
02097 M01S00098.ns2633 +++| ADD T1+2
02098 M01S00099.ns2633 +++| SHN -3
02099 M01S00100.ns2633 +++| STD T1+2
02100 M01S00101.ns2633 +++| LDD T6 COMPUTE NEW NOS CM SIZE/1000B
02101 M01S00102.ns2633 +++| STD T1
02102 M01S00103.ns2633 +++| LDD T1+3
02103 M01S00104.ns2633 +++| SBD T7
02104 M01S00105.ns2633 +++| STD T2
02105 M01S00106.ns2633 +++| PJN CMS1 IF NO BORROW
02106 M01S00107.ns2633 +++| AOD T1 ADJUST FOR BORROW
02107 M01S00108.ns2633 +++| AOD T2
02108 M01S00109.ns2633 +++| CMS1 LDD T1+2
02109 M01S00110.ns2633 +++| SBD T1
02110 M01S00111.ns2633 +++| STD T1
02111 M00S01820.ver +++| MJN CMSX IF REQUEST TOO LARGE
Line S01821 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02112 M01S01821.ns2633 ---| SHN 14
02113 M01S01822.ns2633 ---| LMD T1+3
02114 M01S01823.ns2633 ---| SBD T7
02115 M01S01824.ns2633 ---| MJN CMSX IF REQUEST TOO LARGE
02116 M01S01825.ns2633 ---| STD T2
02117 M01S01826.ns2633 ---| SHN -14
02118 M01S01827.ns2633 ---| SBD CN+1
02119 M01S01828.ns2633 ---| MJN CMSX IF RESULT LEAVES .LT. MINCM
02120 M01S01829.ns2633 ---| SHN 14
02121 M01S01830.ns2633 ---| LMD T2
Line S00112 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02122 M01S00112.ns2633 +++| LDD CN+1 CHECK IF RESULT LEAVES .LT. MINCM
02123 M01S00113.ns2633 +++| STD T3
02124 M01S00114.ns2633 +++| LDD T2
02125 M00S01831.ver +++| SBD CN+2
Line S01832 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02126 M01S01832.ns2633 ---| UJN CMSX RETURN
Line S00115 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02127 M01S00115.ns2633 +++| PJN CMS2 IF NO BORROW
02128 M01S00116.ns2633 +++| AOD T3 ADJUST FOR BORROW
02129 M01S00117.ns2633 +++| CMS2 LDD T1
02130 M01S00118.ns2633 +++| SBD T3
02131 M01S00119.ns2633 +++| LJM CMSX RETURN
02132 M00S01833.ver +++| CPS SPACE 4,20
02133 M00S01834.ver +++|** CPS - CHECK PARTNER STATUS.
02134 M00S01835.ver +++|*
02135 M00S01836.ver +++|* WHEN A NOS/VE PP IS RETURNED, IT MUST BE LEFT AS
02136 M00S01837.ver +++|* PSEUDO-ASSIGNED IF IT-S PARTNER IS STILL ASSIGNED.
02137 M00S01838.ver +++|* IF IT-S PARTNER IS PSEUDO-ASSIGNED, THEN BOTH CAN BE
02138 M00S01839.ver +++|* RELEASED FOR USE BY NOS.
02139 M00S01840.ver +++|*
02140 M00S01841.ver +++|* ENTRY (T4) = PP NUMBER.
02141 M00S01842.ver +++|* (T3) = OFFSET INTO PP COMMUNICATION AREA.
02142 M00S01843.ver +++|* (CM - CM+4) = INPUT REGISTER.
02143 M00S01844.ver +++|*
02144 M00S01845.ver +++|* EXIT (A) = 0, IF PARTNER IS PSEUDO-ASSIGNED.
02145 M00S01846.ver +++|* = *ESPP*, IF PP BEING RETURNED IS PSEUDO-ASSIGNED.
02146 M00S01847.ver +++|* .LT. 0, IF PARTNER IS STILL ASSIGNED.
02147 M00S01848.ver +++|*
02148 M00S01849.ver +++|* USES CM+4, SC, SC+1, T5, T6.
02149 M00S01850.ver +++|*
02150 M00S01851.ver +++|* CALLS DPL, SPB.
02151 M00S01852.ver +++|
02152 M00S01853.ver +++|
02153 M00S01854.ver +++| CPS5 LDN ESPP SET PP NOT ASSIGNED ERROR STATUS
02154 M00S01855.ver +++|
02155 M00S01856.ver +++| CPS SUBR ENTRY/EXIT
02156 M00S01857.ver +++| LDD CF
02157 M00S01858.ver +++| ZJN CPSX IF NOT 810/830 WITH 20 PP-S
02158 M00S01859.ver +++| LDD CM+4
02159 M00S01860.ver +++| NJN CPS5 IF PSEUDO-ASSIGNED
02160 M00S01861.ver +++| LDD T4
02161 M00S01862.ver +++| SBN 12
02162 M00S01863.ver +++| PJN CPS1 IF UPPER BANK
02163 M00S01864.ver +++| ADN 12+20
02164 M00S01865.ver +++| STD T5 PARTNER PP NUMBER
02165 M00S01866.ver +++| LDD T3
02166 M00S01867.ver +++| ADK 10*12
02167 M00S01868.ver +++| UJN CPS2 READ INPUT REGISTER
02168 M00S01869.ver +++|
02169 M00S01870.ver +++| CPS1 SBN 6
02170 M00S01871.ver +++| STD T5 PARTNER PP NUMBER
02171 M00S01872.ver +++| LDD T3
02172 M00S01873.ver +++| SBK 10*12
02173 M00S01874.ver +++| CPS2 STD T6 OFFSET OF PARTNER-S INPUT REGISTER
02174 M00S01875.ver +++| ADM PPCA
02175 M00S01876.ver +++| CRD CN READ PARTNER-S INPUT REGISTER
02176 M00S01877.ver +++| LDD CN+4
02177 M00S01878.ver +++| ZJN CPS4 IF PARTNER IS ASSIGNED
02178 M00S01879.ver +++|
02179 M00S01880.ver +++|* PARTNER IS PSEUDO-ASSIGNED. IT CAN BE RELEASED
02180 M00S01881.ver +++|* FOR USE BY NOS.
02181 M00S01882.ver +++|
02182 M00S01883.ver +++| LDD T3 SAVE PARAMETERS
02183 M00S01884.ver +++| STD SC
02184 M00S01885.ver +++| LDD T4
02185 M00S01886.ver +++| STD SC+1
02186 M00S01887.ver +++| LDD T5 RETURN PARTNER
02187 M00S01888.ver +++| STD T4
02188 M00S01889.ver +++| LMC 10000 SET LOWER PP BIT
02189 M00S01890.ver +++| RJM SPB
02190 M00S01891.ver +++| LDD T6
02191 M00S01892.ver +++| STD T3
02192 M00S01893.ver +++| RJM DPL DEADSTART PP AND LOAD *PPR*
02193 M00S01894.ver +++| LDD SC RESTORE PARAMETERS
02194 M00S01895.ver +++| STD T3
02195 M00S01896.ver +++| LDD SC+1
02196 M00S01897.ver +++| STD T4
02197 M00S01898.ver +++| LDN 0
02198 M00S01899.ver +++| CPS3 LJM CPSX RETURN
02199 M00S01900.ver +++|
02200 M00S01901.ver +++|* PARTNER IS ASSIGNED. SET THIS PP AS PSEUDO-ASSIGNED.
02201 M00S01902.ver +++|
02202 M00S01903.ver +++| CPS4 AOD CM+4 SET PSEUDO-ASSIGNED STATUS IN *IR*
02203 M00S01904.ver +++| LDM PPCA
02204 M00S01905.ver +++| ADD T3
02205 M00S01906.ver +++| CWD CM
02206 M00S01907.ver +++| LCN 0
02207 M00S01908.ver +++| UJN CPS3 RETURN
02208 M00S01909.ver +++| CRZ SPACE 4,15
02209 M00S01910.ver +++|** CRZ - CHECK REQUEST SIZE.
02210 M00S01911.ver +++|*
02211 M00S01912.ver +++|* ENTRY (CL+3 - CL+4) = REQUEST/1000B.
02212 M00S01913.ver +++|* (CM+3 - CM+4) = CURRENT NOS/VE MEMORY SIZE/1000B.
02213 M00S01914.ver +++|* (CN+3 - CN+4) = RESERVED BLOCK SIZE/1000B.
02214 M00S01915.ver +++|*
Line S01916 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02215 M01S01916.ns2633 ---|* EXIT (A) .LT. 0 IF CURRENT SIZE + REQUEST IS ILLEGAL.
02216 M01S01917.ns2633 ---|* (A) = 0 IF CURRENT SIZE + REQUEST LARGER THAN BLOCK
02217 M01S01918.ns2633 ---|* SIZE.
02218 M01S01919.ns2633 ---|* (A) .GT. 0 IF CURRENT SIZE + REQUEST IS WITHIN BLOCK.
Line S00120 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02219 M01S00120.ns2633 +++|* EXIT (A) .LT. 0 IF CURRENT SIZE + REQUEST LARGER THAN
02220 M01S00121.ns2633 +++|* BLOCK SIZE.
02221 M01S00122.ns2633 +++|* (A) .GE. 0 IF CURRENT SIZE + REQUEST IS WITHIN BLOCK.
02222 M00S01920.ver +++|* (CL - CL+1) = (CURRENT SIZE + REQUEST)/1000B.
02223 M00S01921.ver +++|*
Line S01922 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02224 M01S01922.ns2633 ---|* USES CL - CL+1.
Line S00123 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02225 M01S00123.ns2633 +++|* USES T1, CL - CL+1.
02226 M00S01923.ver +++|
02227 M00S01924.ver +++|
Line S01925 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02228 M01S01925.ns2633 ---| CRZ2 LDN 0 SET LARGER THAN BLOCK STATUS
02229 M01S01926.ns2633 ---|
02230 M00S01927.ver +++| CRZ SUBR ENTRY/EXIT
Line S01928 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02231 M01S01928.ns2633 ---| LDD CL+3 FORM NEW TOTAL
02232 M01S01929.ns2633 ---| ADD CM+3
02233 M01S01930.ns2633 ---| SHN 14
02234 M01S01931.ns2633 ---| ADD CL+4
Line S00124 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02235 M01S00124.ns2633 +++| LDD CL+4 FORM NEW TOTAL
02236 M00S01932.ver +++| ADD CM+4
02237 M00S01933.ver +++| STD CL+1
02238 M00S01934.ver +++| SHN -14
Line S00125 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02239 M01S00125.ns2633 +++| ADD CL+3
02240 M01S00126.ns2633 +++| ADD CM+3
02241 M00S01935.ver +++| STD CL
Line S01936 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02242 M01S01936.ns2633 ---| SHN -3
02243 M01S01937.ns2633 ---| ZJN CRZ1 IF NOT TOO LARGE (77777000 MAXIMUM)
02244 M01S01938.ns2633 ---| LCN 0 SET EXIT
02245 M01S01939.ns2633 ---| UJN CRZX RETURN
02246 M01S01940.ns2633 ---|
02247 M01S01941.ns2633 ---| CRZ1 LDD CN+3 COMPARE TO BLOCK SIZE
02248 M01S01942.ns2633 ---| SBD CL
02249 M01S01943.ns2633 ---| MJN CRZ2 IF TOTAL LARGER THAN BLOCK SIZE
02250 M01S01944.ns2633 ---| SHN 14
02251 M01S01945.ns2633 ---| LMD CN+4
Line S00127 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02252 M01S00127.ns2633 +++| STD T1
02253 M01S00128.ns2633 +++| LDD CN+4 COMPARE TO BLOCK SIZE
02254 M00S01946.ver +++| SBD CL+1
Line S01947 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02255 M01S01947.ns2633 ---| MJN CRZ2 IF TOTAL LARGER THAN BLOCK SIZE
02256 M01S01948.ns2633 ---| LDN 1 SET WITHIN BLOCK STATUS
Line S00129 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02257 M01S00129.ns2633 +++| PJN CRZ1 IF NO BORROW
02258 M01S00130.ns2633 +++| AOD T1 ADJUST FOR BORROW
02259 M01S00131.ns2633 +++| CRZ1 LDD CN+3
02260 M01S00132.ns2633 +++| SBD T1
02261 M00S01949.ver +++| UJN CRZX RETURN
02262 M00S01950.ver +++| CSS SPACE 4,10
02263 M00S01951.ver +++|** CSS - CHANGE SCHEDULER STATUS.
02264 M00S01952.ver +++|*
02265 M00S01953.ver +++|* ENTRY (A) = 0 IF TO ENABLE SCHEDULER.
02266 M00S01954.ver +++|* .NE. 0 IF TO DISABLE SCHEDULER.
02267 M00S01955.ver +++|*
02268 M00S01956.ver +++|* USES CM - CM+4.
02269 M00S01957.ver +++|*
02270 M00S01958.ver +++|* MACROS MONITOR.
02271 M00S01959.ver +++|
02272 M00S01960.ver +++|
02273 M00S01961.ver +++| CSS SUBR ENTRY/EXIT
02274 M00S01962.ver +++| ZJN CSS1 IF TO ENABLE
02275 M00S01963.ver +++| LDN LIOS&LDOS
02276 M00S01964.ver +++| CSS1 LMN LDOS
02277 M00S01965.ver +++| STM CSSA SET SUBFUNCTION
02278 M00S01966.ver +++| LDN 1
02279 M00S01967.ver +++| STD CM+1 SET COUNT
02280 M00S01968.ver +++| STD CM+2 SET NO DROP
02281 M00S01969.ver +++| LDD MA
02282 M00S01970.ver +++| CWM CSSA,ON
02283 M00S01971.ver +++| MONITOR UADM
02284 M00S01972.ver +++| UJN CSSX RETURN
02285 M00S01973.ver +++|
02286 M00S01974.ver +++| CSSA CON LIOS INCREMENT FIELD BY ONE
02287 M00S01975.ver +++|* CON LDOS (DECREMENT)
02288 M00S01976.ver +++| CON INWL WORD ADDRESS
02289 M00S01977.ver +++| CON 13D*100+1 BIT POSITION AND FIELD WIDTH
02290 M00S01978.ver +++| CON 0
02291 M00S01979.ver +++| CON 0
Line S01980 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
02292 M01S01980.ver13 ---| CUA SPACE 4,10
02293 M01S01981.ver13 ---|** CUA - CHECK IF UNIT ASSIGNED TO NOS/VE.
02294 M01S01982.ver13 ---|*
02295 M01S01983.ver13 ---|* ENTRY (DC) = CORRESPONDING BIT NUMBER OF UNIT.
02296 M01S01984.ver13 ---|* (CN - CN+4) = EST ENTRY.
02297 M01S01985.ver13 ---|*
02298 M01S01986.ver13 ---|* EXIT (A) .LT. 0 IF NOT MASS STORAGE DEVICE.
02299 M01S01987.ver13 ---|* = 0 IF UNIT NOT ASSIGNED TO NOS/VE.
02300 M01S01988.ver13 ---|* = *ESAA* STATUS IF UNIT ASSIGNED TO NOS/VE.
02301 M01S01989.ver13 ---|*
02302 M01S01990.ver13 ---|* USES CM - CM+4.
02303 M01S01991.ver13 ---|
02304 M01S01992.ver13 ---|
02305 M01S01993.ver13 ---| CUA2 LCN 0 SET NOT MASS STORAGE FLAG
02306 M01S01994.ver13 ---|
02307 M01S01995.ver13 ---| CUA SUBR ENTRY/EXIT
02308 M01S01996.ver13 ---| LDD CN
02309 M01S01997.ver13 ---| SHN 21-13
02310 M01S01998.ver13 ---| PJN CUA2 IF NOT MASS STORAGE DEVICE
02311 M01S01999.ver13 ---| LDD CN+4 GET UNIT ASSIGNMENT STATUS
02312 M01S02000.ver13 ---| SHN 3
02313 M01S02001.ver13 ---| ADN NVGL
02314 M01S02002.ver13 ---| CRD CM
02315 M01S02003.ver13 ---| LDC SHNI+21 SET SHIFT COUNT
02316 M01S02004.ver13 ---| SBD DC
02317 M01S02005.ver13 ---| STM CUAA
02318 M01S02006.ver13 ---| LDD CM+4
02319 M01S02007.ver13 ---| CUAA SHN **
02320 M01S02008.ver13 ---| MJN CUA1 IF UNIT ASSIGNED TO NOS/VE
02321 M01S02009.ver13 ---| LDN 0 SET UNIT NOT ASSIGNED STATUS
02322 M01S02010.ver13 ---| UJN CUAX RETURN
02323 M01S02011.ver13 ---|
02324 M01S02012.ver13 ---| CUA1 LDN ESAA SET UNIT ALREADY ASSIGNED STATUS
02325 M01S02013.ver13 ---| UJN CUAX RETURN
02326 M00S02014.ver +++| DPL SPACE 4,15
02327 M00S02015.ver +++|** DPL - DEADSTART PP AND LOAD *PPR*.
02328 M00S02016.ver +++|*
02329 M00S02017.ver +++|* ENTRY (T3) = OFFSET INTO PP COMMUNICATION AREA.
02330 M00S02018.ver +++|* (T4) = PP NUMBER.
02331 M00S02019.ver +++|* (EC) = ELEMENT CONNECT CODE.
02332 M00S02020.ver +++|* (PPCA) = PP COMMUNICATION AREA ADDRESS.
02333 M00S02021.ver +++|* *PPR* AT PBUF+5.
02334 M00S02022.ver +++|*
02335 M00S02023.ver +++|* EXIT (A) .GT. 0 IF *PPR* SUCCESSFULLY LOADED.
02336 M00S02024.ver +++|* = 0 IF *PPR* NOT SUCCESSFULLY LOADED.
02337 M00S02025.ver +++|* BML MESSAGE ISSUED WITH PP NUMBER (SYMPTOM
02338 M00S02026.ver +++|* CODE INDICATES WHETHER OPERATION WAS SUCCESSFUL).
02339 M00S02027.ver +++|* IF UNABLE TO COMPLETE DEADSTART/LOAD, THE PP
02340 M00S02028.ver +++|* IS IDLED AND ITS INPUT REGISTER SET TO ***.
02341 M00S02029.ver +++|*
02342 M00S02030.ver +++|* USES T1 - T3, T6, T7, CN - CN+4.
02343 M00S02031.ver +++|*
02344 M00S02032.ver +++|* CALLS IBM, IPP, NEC, PSC, SDC.
02345 M00S02033.ver +++|*
02346 M00S02034.ver +++|* MACROS DCHAN, DELAY, PAUSE, READMR, WRITMR.
02347 M00S02035.ver +++|
02348 M00S02036.ver +++|
02349 M00S02037.ver +++| DPL9 LDD T7
02350 M00S02038.ver +++| DCHAN DROP CHANNEL
02351 M00S02039.ver +++| LDN 0 CLEAR CHANNEL ASSIGNED FLAG
02352 M00S02040.ver +++| STM CHFL
02353 M00S02041.ver +++| LDC /COMSDFS/HS0113 SET SYMPTOM CODE
02354 M00S02042.ver +++| STD T1
02355 M00S02043.ver +++| LDN ZERL CLEAR DATA WORD
02356 M00S02044.ver +++| CRD CN
02357 M00S02045.ver +++| LDD T4 SET PP NUMBER
02358 M00S02046.ver +++| STD CN+4
02359 M00S02047.ver +++| LDC /COMSDFS/HM0240 SET MESSAGE ID
02360 M00S02048.ver +++| RJM IBM ISSUE BML MESSAGE
02361 M00S02049.ver +++| LDN 1 SET SUCCESSFUL LOAD STATUS
02362 M00S02050.ver +++|
02363 M00S02051.ver +++| DPL SUBR ENTRY/EXIT
02364 M00S02052.ver +++| LDM PPCA SET PP INPUT REGISTER ADDRESS
02365 M00S02053.ver +++| RAD T3
02366 M00S02054.ver +++| LDN 10 INITIALIZE DEADSTART/LOAD ATTEMPT COUNT
02367 M00S02055.ver +++| STD T2
02368 M00S02056.ver +++| LDD T3 SET UP *IA*, *OA*, *MA*, *CP* FOR THIS PP
02369 M00S02057.ver +++| STM PBUF+IA+5
02370 M00S02058.ver +++| ADN 1
02371 M00S02059.ver +++| STM PBUF+OA+5
02372 M00S02060.ver +++| ADN 1
02373 M00S02061.ver +++| STM PBUF+MA+5
02374 M00S02062.ver +++| LDN NCPL SET SYSTEM CONTROL POINT ADDRESS
02375 M00S02063.ver +++| CRD CN
02376 M00S02064.ver +++| AOD CN+1
02377 M00S02065.ver +++| SHN 7
02378 M00S02066.ver +++| STM PBUF+CP+5
02379 M00S02067.ver +++| DPL2 RJM SDC SELECT DEADSTART CHANNEL
02380 M00S02068.ver +++| RJM PSC PRESET CHANNEL INSTRUCTIONS
02381 M00S02069.ver +++| DPLA ACN **+40 ACTIVATE CHANNEL
02382 M00S02070.ver +++|
02383 M00S02071.ver +++|* DEADSTART PP.
02384 M00S02072.ver +++|
02385 M00S02073.ver +++| READMR RBUF,,DEMR READ EC REGISTER
02386 M00S02074.ver +++| LDM RBUF+4 SET PP NUMBER
02387 M00S02075.ver +++| DPLI SCN 37
02388 M00S02076.ver +++|* SCN 77 (IF IOU MODEL I2)
02389 M00S02077.ver +++| LMD T4
02390 M00S02078.ver +++| DPLJ LMN 0
02391 M00S02079.ver +++|* LMN 40 (SET AUTO MODE BIT IF IOU MODEL I2)
02392 M00S02080.ver +++| STM RBUF+4
02393 M00S02081.ver +++| LDM RBUF+5 SET CHANNEL NUMBER
02394 M00S02082.ver +++| SCN 37
02395 M00S02083.ver +++| LMD T7
02396 M00S02084.ver +++| STM RBUF+5
02397 M00S02085.ver +++| LDM RBUF+6 SET LOAD MODE BIT
02398 M00S02086.ver +++| SCN 37
02399 M00S02087.ver +++| ADN 20
02400 M00S02088.ver +++| STM RBUF+6
02401 M00S02089.ver +++| LDM RBUF+7 SET ENABLE BIT
02402 M00S02090.ver +++| SCN 40
02403 M00S02091.ver +++| ADN 40
02404 M00S02092.ver +++| STM RBUF+7
02405 M00S02093.ver +++| WRITMR RBUF,,DEMR WRITE EC REGISTER
02406 M00S02094.ver +++| RJM NEC NORMALIZE EC REGISTER
02407 M00S02095.ver +++|
02408 M00S02096.ver +++|* LOAD *PPR*.
02409 M00S02097.ver +++|
02410 M00S02098.ver +++| LDC MSFW+1 OUTPUT START ADDRESS
02411 M00S02099.ver +++| DPLB OAN **+40
02412 M00S02100.ver +++| DELAY
02413 M00S02101.ver +++| DPLC EJM DPL4,0 IF CHANNEL ACCEPTED WORD
02414 M00S02102.ver +++| LJM DPL6 PROCESS TIME OUT
02415 M00S02103.ver +++|
02416 M00S02104.ver +++| DPL4 LDC PPFW-1
02417 M00S02105.ver +++| DPLD OAM PBUF+6,0 OUTPUT *PPR*
02418 M00S02106.ver +++| DPLE SFM DPL6,0 IF PARITY ERRORS
02419 M00S02107.ver +++| DPLF DCN **+40 DISCONNECT CHANNEL TO START PP
02420 M00S02108.ver +++|
02421 M00S02109.ver +++|* WAIT FOR PP TO INITIALIZE.
02422 M00S02110.ver +++|*
02423 M00S02111.ver +++|* NOTE - THE DELAY MUST BE LONG ENOUGH TO ALLOW *PPR*
02424 M00S02112.ver +++|* PRESET TO COMPLETE (AND ISSUE THE *DPPM* TO CLEAR
02425 M00S02113.ver +++|* THE INPUT REGISTER). IF A TIME OUT OCCURS HERE,
02426 M00S02114.ver +++|* AND THE PP IS DEADSTARTED AGAIN AFTER IT IS ALREADY
02427 M00S02115.ver +++|* EXECUTING, THE RESULTS ARE UNPREDICTABLE.
02428 M00S02116.ver +++|
02429 M00S02117.ver +++| LDD TH SET DELAY LOOP COUNT
02430 M00S02118.ver +++| STD T6
02431 M00S02119.ver +++| DPL5 PAUSE NE
02432 M00S02120.ver +++| DELAY
02433 M00S02121.ver +++| SOD T6
02434 M00S02122.ver +++| ZJN DPL7 IF TIME OUT
02435 M00S02123.ver +++| LDD T3 CHECK PP INPUT REGISTER
02436 M00S02124.ver +++| CRD CN
02437 M00S02125.ver +++| LDD CN+1
02438 M00S02126.ver +++| SCN 77
02439 M00S02127.ver +++| SHN 6
02440 M00S02128.ver +++| LMD CN
02441 M00S02129.ver +++| LMC 3RP*V
02442 M00S02130.ver +++| ZJN DPL5 IF PP STILL ASSIGNED TO NOS/VE
02443 M00S02131.ver +++| LJM DPL9 RETURN
02444 M00S02132.ver +++|
02445 M00S02133.ver +++|* PROCESS TIME OUT AND PARITY ERRORS.
02446 M00S02134.ver +++|
02447 M00S02135.ver +++| DPL6 BSS 0
02448 M00S02136.ver +++| DPLG DCN **+40 DISCONNECT CHANNEL
02449 M00S02137.ver +++| DPL7 LDD T7
02450 M00S02138.ver +++| DCHAN DROP CHANNEL
02451 M00S02139.ver +++| LDN 0 CLEAR CHANNEL RESERVED FLAG
02452 M00S02140.ver +++| STM CHFL
02453 M00S02141.ver +++| SOD T2 DECREMENT DEADSTART ATTEMPT COUNT
02454 M00S02142.ver +++| ZJN DPL8 IF DEADSTART NOT TO BE RETRIED
02455 M00S02143.ver +++| LJM DPL2 ATTEMPT DEADSTART AGAIN
02456 M00S02144.ver +++|
02457 M00S02145.ver +++|* IDLE PP AND SET UNUSABLE IF UNABLE TO DEADSTART.
02458 M00S02146.ver +++|
02459 M00S02147.ver +++| DPL8 LDC /COMSDFS/HS0120 SET SYMPTOM CODE
02460 M00S02148.ver +++| STD T1
02461 M00S02149.ver +++| LDN ZERL CLEAR DATA WORD
02462 M00S02150.ver +++| CRD CN
02463 M00S02151.ver +++| LDD T4 SET PP NUMBER
02464 M00S02152.ver +++| STD CN+4
02465 M00S02153.ver +++| LDC /COMSDFS/HM0240 SET MESSAGE ID
02466 M00S02154.ver +++| RJM IBM ISSUE BML MESSAGE
02467 M00S02155.ver +++| RJM IPP IDLE PP
02468 M00S02156.ver +++| LDD T3
02469 M00S02157.ver +++| CWM DPLH,ON SET INPUT REGISTER TO ***
02470 M00S02158.ver +++| LDN 0
02471 M00S02159.ver +++| LJM DPLX RETURN
02472 M00S02160.ver +++|
02473 M00S02161.ver +++| DPLH VFD 18/3R***,42/0 INPUT REGISTER OF UNUSABLE PP
Line S02162 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02474 M01S02162.271l716 ---| DUM SPACE 4,10
02475 M01S02163.271l716 ---|** DUM - DETERMINE UNASSIGNED MEMORY.
02476 M01S02164.271l716 ---|*
02477 M01S02165.271l716 ---|* ENTRY (A) = FWA/100B OF CURRENT CONTROL POINT.
02478 M01S02166.271l716 ---|* (T2 - T3) = LWA/100B OF PREVIOUS CONTROL POINT.
02479 M01S02167.271l716 ---|*
02480 M01S02168.271l716 ---|* EXIT (A) = UNASSIGNED MEMORY AFTER PREVIOUS CONTROL POINT.
02481 M01S02169.271l716 ---|*
02482 M01S02170.271l716 ---|* USES T0.
02483 M01S02171.271l716 ---|
02484 M01S02172.271l716 ---|
02485 M01S02173.271l716 ---| DUM SUBR ENTRY/EXIT
02486 M01S02174.271l716 ---| SBD T3
02487 M01S02175.271l716 ---| STD T0
02488 M01S02176.271l716 ---| SHN -14
02489 M01S02177.271l716 ---| SBD T2
02490 M01S02178.271l716 ---| NJN DUM1 IF .GT. 7777
02491 M01S02179.271l716 ---| LDD T0
02492 M01S02180.271l716 ---| SHN 21-13
02493 M01S02181.271l716 ---| PJN DUM2 IF .LE. 3777
02494 M01S02182.271l716 ---| DUM1 LDC 377700 SET MAXIMUM
02495 M01S02183.271l716 ---| DUM2 SHN -6
02496 M01S02184.271l716 ---| UJN DUMX RETURN
02497 M00S02185.ver +++| GCC SPACE 4,10
02498 M00S02186.ver +++|** GCC - GET CURRENT NUMBER OF NOS/VE CM WORDS.
02499 M00S02187.ver +++|*
02500 M00S02188.ver +++|* ENTRY (EIBA - EIBA+1) = *EICB* ADDRESS.
02501 M00S02189.ver +++|*
Line S02190 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02502 M01S02190.ns2633 ---|* EXIT (A) = NUMBER OF NOS/VE CM WORDS/1000B.
Line S00133 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02503 M01S00133.ns2633 +++|* EXIT (CM+3 - CM+4) = NUMBER OF NOS/VE CM WORDS/1000B.
02504 M00S02191.ver +++|* (CN - CN+4) = WORD *D7CM* FROM *EICB*.
02505 M00S02192.ver +++|*
Line S02193 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02506 M01S02193.ns2633 ---|* USES CM - CM+4, CN - CN+4.
Line S00134 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02507 M01S00134.ns2633 +++|* USES T1, CM - CM+4, CN - CN+4.
02508 M00S02194.ver +++|*
02509 M00S02195.ver +++|* CALLS SEA.
Line S00135 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02510 M01S00135.ns2633 +++|
02511 M00S02196.ver +++|
02512 M00S02197.ver +++| GCC SUBR ENTRY/EXIT
02513 M00S02198.ver +++| RJM SEA SET *EICB* FWA
02514 M00S02199.ver +++| ADN D7CM
02515 M00S02200.ver +++| CRD CN READ *D7CM*
02516 M00S02201.ver +++| ADN 1
02517 M00S02202.ver +++| CRD CM READ CURRENT FWA/LWA+1
Line S02203 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02518 M01S02203.ns2633 ---| LDD CM+3 SUBTRACT TO FIND CURRENT NOS/VE CM
02519 M01S02204.ns2633 ---| SBD CM+1
02520 M01S02205.ns2633 ---| SHN 14
02521 M01S02206.ns2633 ---| LMD CM+4
Line S00136 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02522 M01S00136.ns2633 +++| LDD CM+1 SUBTRACT TO FIND CURRENT NOS/VE CM
02523 M01S00137.ns2633 +++| STD T1
02524 M01S00138.ns2633 +++| LDD CM+4
02525 M00S02207.ver +++| SBD CM+2
Line S00139 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02526 M01S00139.ns2633 +++| STD CM+4
02527 M01S00140.ns2633 +++| PJN GCC1 IF NO BORROW
02528 M01S00141.ns2633 +++| AOD T1 ADJUST FOR BORROW
02529 M01S00142.ns2633 +++| AOD CM+4
02530 M01S00143.ns2633 +++| GCC1 LDD CM+3
02531 M01S00144.ns2633 +++| SBD T1
02532 M01S00145.ns2633 +++| STD CM+3
02533 M00S02208.ver +++| UJN GCCX RETURN
02534 M00S02209.ver +++| GCP SPACE 4,10
02535 M00S02210.ver +++|** GCP - GET CURRENT STATUS OF PP-S.
02536 M00S02211.ver +++|*
02537 M00S02212.ver +++|* ENTRY (PPCA) = ADDRESS OF PP COMMUNICATION AREA.
02538 M00S02213.ver +++|*
02539 M00S02214.ver +++|* EXIT (T4) = NUMBER OF NOS/VE RESERVED PP-S.
02540 M00S02215.ver +++|* (T1) = NUMBER OF PSEUDO-ASSIGNED TO NOS/VE PP-S.
02541 M00S02216.ver +++|* (T5) = NUMBER OF DEDICATED PP-S.
02542 M00S02217.ver +++|* (CM+2) = NUMBER OF PP-S IN SYSTEM.
02543 M00S02218.ver +++|*
02544 M00S02219.ver +++|* USES T1, T2, T3, T4, T5, T7, CM - CM+4, CN - CN+4.
02545 M00S02220.ver +++|
02546 M00S02221.ver +++|
02547 M00S02222.ver +++| GCP SUBR ENTRY/EXIT
02548 M00S02223.ver +++| LDN PPUL GET NUMBER OF PP-S IN SYSTEM
02549 M00S02224.ver +++| CRD CM
02550 M00S02225.ver +++| LDD CM+2
02551 M00S02226.ver +++| STD T2
02552 M00S02227.ver +++| LDM PPCA GET PP COMMUNICATION AREA POINTER
02553 M00S02228.ver +++| STD T3
02554 M00S02229.ver +++| LDN 0
02555 M00S02230.ver +++| STD T1 INITIALIZE COUNT OF PSEUDO-ASSIGNED PP-S
02556 M00S02231.ver +++| STD T4 INITIALIZE COUNT OF NOS/VE PP-S
02557 M00S02232.ver +++| STD T5 INITIALIZE COUNT OF DEDICATED PP-S
02558 M00S02233.ver +++| GCP1 LDN 0 INITIALIZE TABLE INDEX
02559 M00S02234.ver +++| STD T7
02560 M00S02235.ver +++| LDD T3 READ NEXT INPUT REGISTER
02561 M00S02236.ver +++| CRD CN
02562 M00S02237.ver +++| GCP2 LDD CN CHECK FOR DEDICATED PP
02563 M00S02238.ver +++| LMM TDPP,T7
02564 M00S02239.ver +++| NJN GCP3 IF NO MATCH
02565 M00S02240.ver +++| LDD CN+1
02566 M00S02241.ver +++| SCN 77
02567 M00S02242.ver +++| LMM TDPP+1,T7
02568 M00S02243.ver +++| NJN GCP3 IF NO MATCH
02569 M00S02244.ver +++| AOD T5 COUNT DEDICATED PP
02570 M00S02245.ver +++| LDD T7
02571 M00S02246.ver +++| NJN GCP4 IF NOT NOS/VE PP
02572 M00S02247.ver +++| AOD T4 COUNT NOS/VE PP
02573 M00S02248.ver +++| LDD CN+4
02574 M00S02249.ver +++| ZJN GCP4 IF NOT PSEUDO-ASSIGNED
02575 M00S02250.ver +++| AOD T1 COUNT PSEUDO-ASSIGNED PP
02576 M00S02251.ver +++| UJN GCP4 READ NEXT INPUT REGISTER
02577 M00S02252.ver +++|
02578 M00S02253.ver +++| GCP3 LDN 2 INCREMENT INDEX
02579 M00S02254.ver +++| RAD T7
02580 M00S02255.ver +++| SBN TDPPL
02581 M00S02256.ver +++| MJN GCP2 IF NOT END OF TABLE
02582 M00S02257.ver +++| GCP4 LDN 10 ADVANCE TO NEXT INPUT REGISTER
02583 M00S02258.ver +++| RAD T3
02584 M00S02259.ver +++| SOD T2
02585 M00S02260.ver +++| NJN GCP1 IF MORE PP-S TO PROCESS
02586 M00S02261.ver +++| LJM GCPX RETURN
02587 M00S02262.ver +++| TDPP SPACE 4,10
02588 M00S02263.ver +++|** TDPP - TABLE OF DEDICATED PP-S.
02589 M00S02264.ver +++|*
02590 M00S02265.ver +++|* TWO WORD ENTRY.
02591 M00S02266.ver +++|*
02592 M00S02267.ver +++|*T, 18/NAME OF DEDICATED PP ROUTINE, 6/0
Figure
0 5 6 23 0 NAME OF DEDICATED PP ROUTINE
02593 M00S02268.ver +++|*
02594 M00S02269.ver +++|* NOTE - **VP* MUST BE THE FIRST ENTRY IN THE TABLE.
02595 M00S02270.ver +++|
02596 M00S02271.ver +++|
02597 M00S02272.ver +++| TDPP BSS 0 TABLE OF DEDICATED PP-S
02598 M00S02273.ver +++| VFD 24/3L*VP NOS/VE PP
02599 M00S02274.ver +++| VFD 24/0LMTR
02600 M00S02275.ver +++| VFD 24/0LDSD
02601 M00S02276.ver +++| VFD 24/0LDIS
02602 M00S02277.ver +++| VFD 24/0LO26
02603 M00S02278.ver +++| VFD 24/0L1CD
02604 M00S02279.ver +++| VFD 24/0L1HP
02605 M00S02280.ver +++| VFD 24/0L1XM
02606 M00S02281.ver +++| VFD 24/0L1TS
02607 M00S02282.ver +++| VFD 24/0L1TN
02608 M00S02283.ver +++| VFD 24/0L1TM
02609 M00S02284.ver +++| VFD 24/0LPIP
02610 M00S02285.ver +++| VFD 24/0LNDR
02611 M00S02286.ver +++| VFD 24/0LDFT
02612 M00S02287.ver +++| VFD 24/0LSCD
Line S00146 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02613 M01S00146.ns2633 +++| VFD 24/0LSCI
02614 M00S02288.ver +++| VFD 24/0LCPD
02615 M00S02289.ver +++| VFD 24/0LMDD
02616 M00S02290.ver +++| VFD 24/0LMTE
02617 M00S02291.ver +++| VFD 24/3L***
02618 M00S02292.ver +++|
02619 M00S02293.ver +++| TDPPL EQU *-TDPP LENGTH OF DEDICATED PP TABLE
02620 M00S02294.ver +++| IPP SPACE 4,15
02621 M00S02295.ver +++|** IPP - IDLE PP.
02622 M00S02296.ver +++|*
02623 M00S02297.ver +++|* ENTRY (T3) = PP INPUT REGISTER ADDRESS.
02624 M00S02298.ver +++|* (PPCA) = PP COMMUNICATION AREA ADDRESS.
02625 M00S02299.ver +++|* (EC) = ELEMENT CONNECT CODE FOR IDLE PP.
02626 M00S02300.ver +++|*
02627 M00S02301.ver +++|* EXIT (A) = 0 IF PP IDLED.
02628 M00S02302.ver +++|* .LT. 0 IF UNABLE TO IDLE.
02629 M00S02303.ver +++|* (T5) = PP NUMBER.
02630 M00S02304.ver +++|* BML MESSAGE ISSUED IF UNABLE TO IDLE.
02631 M00S02305.ver +++|*
02632 M00S02306.ver +++|* USES T1, T2, T5, CN - CN+4.
02633 M00S02307.ver +++|*
02634 M00S02308.ver +++|* CALLS IBM, NEC.
02635 M00S02309.ver +++|*
02636 M00S02310.ver +++|* MACROS DELAY, LOCKMR, PAUSE, READMR, WRITMR.
02637 M00S02311.ver +++|
02638 M00S02312.ver +++|
02639 M00S02313.ver +++| IPP SUBR ENTRY/EXIT
02640 M00S02314.ver +++| LDD T3 COMPUTE NUMBER OF PP
02641 M00S02315.ver +++| SBM PPCA
02642 M00S02316.ver +++| SHN -3
02643 M00S02317.ver +++| STD T5
02644 M00S02318.ver +++| SBN 12
02645 M00S02319.ver +++| MJN IPP1 IF PP NUMBER .LT. 12
02646 M00S02320.ver +++| ADN 12+6
02647 M00S02321.ver +++| STD T5
02648 M00S02322.ver +++| IPP1 READMR RBUF,,DEMR READ EC REGISTER
02649 M00S02323.ver +++| LDM RBUF+4 SET PP NUMBER
02650 M00S02324.ver +++| IPPA SCN 37
02651 M00S02325.ver +++|* SCN 77 (IF IOU MODEL I2)
02652 M00S02326.ver +++| LMD T5
02653 M00S02327.ver +++| IPPB LMN 0
02654 M00S02328.ver +++|* LMN 40 (SET AUTO MODE BIT IF IOU MODEL I2)
02655 M00S02329.ver +++| STM RBUF+4
02656 M00S02330.ver +++| LDM RBUF+6 SET IDLE MODE BIT, K REGISTER (10B)
02657 M00S02331.ver +++| SCN 37
02658 M00S02332.ver +++| ADN 6
02659 M00S02333.ver +++| STM RBUF+6
02660 M00S02334.ver +++| LDM RBUF+7 SET ENABLE BIT
02661 M00S02335.ver +++| SCN 40
02662 M00S02336.ver +++| ADN 40
02663 M00S02337.ver +++| STM RBUF+7
02664 M00S02338.ver +++| LDN 10 INITIALIZE TIME OUT COUNT
02665 M00S02339.ver +++| STD T2
02666 M00S02340.ver +++|
02667 M00S02341.ver +++|* LOOP UNTIL PP IS IDLED.
02668 M00S02342.ver +++|
02669 M00S02343.ver +++| IPP2 LOCKMR SET GET LONG TERM INTERLOCK
02670 M00S02344.ver +++| WRITMR RBUF,,DEMR WRITE EC REGISTER
02671 M00S02345.ver +++| READMR IBUF,,ISTR READ INPUT STATUS REGISTER
02672 M00S02346.ver +++| LOCKMR CLEAR CLEAR LONG TERM INTERLOCK
02673 M00S02347.ver +++| LDM IBUF+4 CHECK IF PP IN IDLE MODE
02674 M00S02348.ver +++| LPN 3
02675 M00S02349.ver +++| SHN 10
02676 M00S02350.ver +++| ADM IBUF+5
02677 M00S02351.ver +++| SHN 10
02678 M00S02352.ver +++| ADM IBUF+6
02679 M00S02353.ver +++| LMC 107700
02680 M00S02354.ver +++| ZJP IPP4 IF PP IDLING
02681 M00S02355.ver +++| SOD T2
02682 M00S02356.ver +++| ZJN IPP3 IF TIME OUT
02683 M00S02357.ver +++| PAUSE NE
02684 M00S02358.ver +++| DELAY
02685 M00S02359.ver +++| LJM IPP2 LOOP
02686 M00S02360.ver +++|
02687 M00S02361.ver +++|* ISSUE BML MESSAGE.
02688 M00S02362.ver +++|
02689 M00S02363.ver +++| IPP3 LDC /COMSDFS/HS0121 SET SYMPTOM CODE
02690 M00S02364.ver +++| STD T1
02691 M00S02365.ver +++| LDN ZERL CLEAR DATA WORD
02692 M00S02366.ver +++| CRD CN
02693 M00S02367.ver +++| LDD T5 SET PP NUMBER
02694 M00S02368.ver +++| STD CN+4
02695 M00S02369.ver +++| LDC /COMSDFS/HM0240 SET MESSAGE ID
02696 M00S02370.ver +++| RJM IBM ISSUE BML MESSAGE
02697 M00S02371.ver +++| LDD T3 SET *** IN INPUT REGISTER
02698 M00S02372.ver +++| CWM DPLH,ON
02699 M00S02373.ver +++| RJM NEC NORMALIZE EC REGISTER
02700 M00S02374.ver +++| LCN 1
02701 M00S02375.ver +++| LJM IPPX RETURN
02702 M00S02376.ver +++|
02703 M00S02377.ver +++|* NORMALIZE EC REGISTER.
02704 M00S02378.ver +++|
02705 M00S02379.ver +++| IPP4 RJM NEC NORMALIZE EC REGISTER
02706 M00S02380.ver +++| LDN 0
02707 M00S02381.ver +++| LJM IPPX RETURN
02708 M00S02382.ver +++| PSC SPACE 4,10
02709 M00S02383.ver +++|** PSC - PRESET CHANNEL INSTRUCTIONS.
02710 M00S02384.ver +++|*
02711 M00S02385.ver +++|* ENTRY (T7) = CHANNEL NUMBER.
02712 M00S02386.ver +++|*
02713 M00S02387.ver +++|* EXIT CHANNEL INSTRUCTIONS MODIFIED.
02714 M00S02388.ver +++|*
02715 M00S02389.ver +++|* USES T1, T5.
02716 M00S02390.ver +++|
02717 M00S02391.ver +++|
02718 M00S02392.ver +++| PSC SUBR ENTRY/EXIT
02719 M00S02393.ver +++| LDC TPSC-1 INITIALIZE CHANNEL TABLE ADDRESS
02720 M00S02394.ver +++| STD T1
02721 M00S02395.ver +++| PSC1 AOD T1 ADVANCE CHANNEL TABLE
02722 M00S02396.ver +++| LDI T1
02723 M00S02397.ver +++| ZJN PSCX IF END OF TABLE
02724 M00S02398.ver +++| STD T5 MODIFY CHANNEL INSTRUCTION
02725 M00S02399.ver +++| LDI T5
02726 M00S02400.ver +++| SCN 37
02727 M00S02401.ver +++| LMD T7
02728 M00S02402.ver +++| STI T5
02729 M00S02403.ver +++| UJN PSC1 LOOP
02730 M00S02404.ver +++|
02731 M00S02405.ver +++|
02732 M00S02406.ver +++|** TPSC - TABLE OF CHANNEL INSTRUCTIONS.
02733 M00S02407.ver +++|
02734 M00S02408.ver +++| TPSC BSS 0
02735 M00S02409.ver +++| CON DPLA
02736 M00S02410.ver +++| CON DPLB
02737 M00S02411.ver +++| CON DPLC
02738 M00S02412.ver +++| CON DPLD
02739 M00S02413.ver +++| CON DPLE
02740 M00S02414.ver +++| CON DPLF
02741 M00S02415.ver +++| CON DPLG
02742 M00S02416.ver +++| CON MREA
02743 M00S02417.ver +++| CON 0 END OF TABLE
02744 M00S02418.ver +++| RDM SPACE 4,10
02745 M00S02419.ver +++|** RDM - RETURN DYNAMIC MEMORY.
02746 M00S02420.ver +++|*
02747 M00S02421.ver +++|* ENTRY (CN - CN+1) = CURRENT NOS/VE MEMORY/1000B.
02748 M00S02422.ver +++|* (CM+3 - CM+4) = AMOUNT TO RETURN/1000B.
02749 M00S02423.ver +++|* (CL - CL+1) = NEW NOS/VE MEMORY SIZE/1000B.
02750 M00S02424.ver +++|* (CN+3 - CN+4) = RESERVED BLOCK SIZE/1000B.
02751 M00S02425.ver +++|*
Line S02426 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02752 M01S02426.ns2633 ---|* USES T6 - T7.
Line S00147 Modification History
M01 (Added by) ns2633
M02 (Removed by) ns2709
Seq # *Modification Id* Act
----------------------------+
02753 M02S00147.ns2709 ---|* USES T1, T6, T7.
Line S00003 Modification History
M01 (Added by) ns2709
Seq # *Modification Id* Act
----------------------------+
02754 M01S00003.ns2709 +++|* USES T1 - T1+4, T6, T7.
02755 M00S02427.ver +++|*
02756 M00S02428.ver +++|* CALLS RST, SBA.
02757 M00S02429.ver +++|
02758 M00S02430.ver +++|
02759 M00S02431.ver +++| RDM SUBR ENTRY/EXIT
Line S02432 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02760 M01S02432.ns2633 ---| LDD CL
02761 M01S02433.ns2633 ---| SBD CN+3
02762 M01S02434.ns2633 ---| MJN RDM1 IF NEW TOTAL WITHIN BLOCK
02763 M01S02435.ns2633 ---| SHN 14
02764 M01S02436.ns2633 ---| LMD CL+1
Line S00148 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02765 M01S00148.ns2633 +++| LDD CN+3
02766 M01S00149.ns2633 +++| STD T1
02767 M01S00150.ns2633 +++| LDD CL+1
02768 M00S02437.ver +++| SBD CN+4
Line S02438 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02769 M01S02438.ns2633 ---| MJN RDM1 IF NEW TOTAL WITHIN BLOCK
Line S00151 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02770 M01S00151.ns2633 +++| PJN RDM1 IF NO BORROW
02771 M01S00152.ns2633 +++| AOD T1 ADJUST FOR BORROW
02772 M01S00153.ns2633 +++| RDM1 LDD CL
02773 M01S00154.ns2633 +++| SBD T1
02774 M01S00155.ns2633 +++| MJN RDM2 IF NEW TOTAL WITHIN BLOCK
02775 M00S02439.ver +++| LDD CM+3 RETURN ENTIRE REQUEST
Line S02440 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02776 M01S02440.ns2633 ---| SHN 14
02777 M01S02441.ns2633 ---| LMD CM+4
02778 M01S02442.ns2633 ---| UJN RDM2
Line S00156 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02779 M01S00156.ns2633 +++| STD T6
02780 M01S00157.ns2633 +++| LDD CM+4
02781 M01S00158.ns2633 +++| STD T7
02782 M01S00159.ns2633 +++| UJN RDM4 RETURN MEMORY
02783 M00S02443.ver +++|
Line S02444 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02784 M01S02444.ns2633 ---| RDM1 LDD CN
02785 M01S02445.ns2633 ---| SBD CN+3
Line S00160 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
02786 M01S00160.ns2633 +++| RDM2 LDD CN+3
02787 M01S00161.ns2633 +++| STD T1
02788 M01S00162.ns2633 +++| LDD CN+1
02789 M01S00163.ns2633 +++| SBD CN+4
02790 M01S00164.ns2633 +++| STD T7
02791 M01S00165.ns2633 +++| PJN RDM3 IF NO BORROW
02792 M01S00166.ns2633 +++| AOD T1 ADJUST FOR BORROW
02793 M01S00167.ns2633 +++| AOD T7
02794 M01S00168.ns2633 +++| RDM3 LDD CN
02795 M01S00169.ns2633 +++| SBD T1
02796 M01S00170.ns2633 +++| STD T6
02797 M00S02446.ver +++| MJN RDMX IF NO DYNAMIC MEMORY ASSIGNED
Line S02447 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02798 M01S02447.ns2633 ---| SHN 14
02799 M01S02448.ns2633 ---| LMD CN+1
02800 M01S02449.ns2633 ---| SBD CN+4
02801 M01S02450.ns2633 ---| MJN RDMX IF NO DYNAMIC MEMORY ASSIGNED
02802 M01S02451.ns2633 ---| RDM2 STD T7 SET AMOUNT TO RETURN
02803 M01S02452.ns2633 ---| SHN -14
02804 M01S02453.ns2633 ---| STD T6
02805 M01S02454.ns2633 ---| RJM SBA SET OS BOUNDS ADDRESS
Line S00171 Modification History
M01 (Added by) ns2633
M02 (Removed by) ns2709
Seq # *Modification Id* Act
----------------------------+
02806 M02S00171.ns2709 ---| RDM4 RJM SBA SET OS BOUNDS ADDRESS
Line S02455 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2709
Seq # *Modification Id* Act
----------------------------+
02807 M02S02455.ns2709 ---| LDC 4000 SET RETURN FUNCTION
02808 M02S02456.ns2709 ---| RJM RST RETURN MEMORY
Line S00051 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2709
Seq # *Modification Id* Act
----------------------------+
02809 M02S00051.ns2709 ---| LDD HN RETURN MEMORY
Line S00004 Modification History
M01 (Added by) ns2709
Seq # *Modification Id* Act
----------------------------+
02810 M01S00004.ns2709 +++| RDM4 LDC UEML CHECK FOR UEM PRESENT
02811 M01S00005.ns2709 +++| CRD T1
02812 M01S00006.ns2709 +++| LDD T1+4
02813 M01S00007.ns2709 +++| LPN 2
02814 M01S00008.ns2709 +++| NJN RDM5 IF UEM PRESENT
02815 M01S00009.ns2709 +++| RJM SBA SET OS BOUNDS ADDRESS
02816 M01S00010.ns2709 +++| RDM5 LDD HN RETURN MEMORY
Line S00052 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02817 M01S00052.271l716 +++| RJM RST
02818 M00S02457.ver +++| LJM RDMX RETURN
02819 M00S02458.ver +++| ROJ SPACE 4,10
02820 M00S02459.ver +++|** ROJ - ROLLOUT JOBS.
02821 M00S02460.ver +++|*
Line S02461 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02822 M01S02461.271l716 ---|* ENTRY (RSTB) = AMOUNT REQUIRED THAT WAS UNAVAILABLE.
Line S00053 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02823 M01S00053.271l716 +++|* ENTRY (BS) = MEMORY REQUIRED THAT WAS UNAVAILABLE.
02824 M00S02462.ver +++|* SCHEDULER DISABLED BIT SET IN *INWL*.
02825 M00S02463.ver +++|*
02826 M00S02464.ver +++|* EXIT (A) .LT. 0 IF ROLLOUTS WILL NOT MAKE THE REQUIRED
02827 M00S02465.ver +++|* AMOUNT OF MEMORY AVAILABLE.
02828 M00S02466.ver +++|*
Line S02467 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02829 M01S02467.271l716 ---|* USES DC, T1, T2, CM - CM+4.
Line S00054 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02830 M01S00054.271l716 +++|* USES DB, DC, CM - CM+4.
02831 M00S02468.ver +++|*
02832 M00S02469.ver +++|* CALLS CAM, SRR.
02833 M00S02470.ver +++|*
02834 M00S02471.ver +++|* MACROS MONITOR.
02835 M00S02472.ver +++|
Line S00055 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02836 M01S00055.271l716 +++|
02837 M01S00056.271l716 +++| ROJ4 LCN 0 INDICATE INSUFFICIENT MEMORY OBTAINED
02838 M00S02473.ver +++|
02839 M00S02474.ver +++| ROJ SUBR ENTRY/EXIT
02840 M00S02475.ver +++| ROJ1 PAUSE NE
02841 M00S02476.ver +++| LDK JSCL WAIT FOR SCHEDULER NOT ACTIVE
02842 M00S02477.ver +++| CRD CM
02843 M00S02478.ver +++| LDD CM
02844 M00S02479.ver +++| SHN 21-13
02845 M00S02480.ver +++| MJN ROJ1 IF SCHEDULER ACTIVE
02846 M00S02481.ver +++| RJM CAM CALCULATE AVAILABLE MEMORY
02847 M00S02482.ver +++|
02848 M00S02483.ver +++|* ROLLOUT JOBS.
02849 M00S02484.ver +++|
Line S02485 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02850 M01S02485.271l716 ---| LDN 1 INITIALIZE TABLE INDEX
02851 M01S02486.271l716 ---| STD T1
02852 M01S02487.271l716 ---| ROJ2 LDM TCFL,T1
02853 M01S02488.271l716 ---| NJN ROJ5 IF CONTROL POINT ASSIGNED
02854 M01S02489.271l716 ---| ROJ3 AOD T1 ADVANCE CONTROL POINT
02855 M01S02490.271l716 ---| LMD LO
02856 M01S02491.271l716 ---| NJN ROJ2 IF NOT END OF CONTROL POINTS
02857 M01S02492.271l716 ---| LCN 0
02858 M01S02493.271l716 ---| ROJ4 UJN ROJX RETURN
02859 M01S02494.271l716 ---|
02860 M01S02495.271l716 ---| ROJ5 STD T2
02861 M01S02496.271l716 ---| SHN 21-13
02862 M01S02497.271l716 ---| MJN ROJ6 IF ROLLOUT FLAG SET
02863 M01S02498.271l716 ---| RJM SRR SET ROLLOUT REQUEST
02864 M01S02499.271l716 ---| MJN ROJ3 IF JOB NOT ROLLED
02865 M01S02500.271l716 ---| ROJ6 LDD T2
Line S00057 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02866 M01S00057.271l716 +++| ROJ2 SOD DB DECREMENT CP/PCP NUMBER
02867 M01S00058.271l716 +++| ZJN ROJ4 IF ALL CP-S/PCP-S PROCESSED
02868 M01S00059.271l716 +++| LDM TCFL,DB
02869 M01S00060.271l716 +++| ZJN ROJ2 IF CP/PCP UNASSIGNED
02870 M01S00061.271l716 +++| SHN 21-13
02871 M01S00062.271l716 +++| MJN ROJ3 IF ROLLOUT ALREADY REQUESTED
02872 M01S00063.271l716 +++| RJM SRR REQUEST ROLLOUT
02873 M01S00064.271l716 +++| MJN ROJ2 IF REQUEST REJECTED
02874 M01S00065.271l716 +++| ROJ3 LDM TCFL,DB
02875 M00S02501.ver +++| LPC 3777
02876 M00S02502.ver +++| RAD DC ADD TO AVAILABLE MEMORY
02877 M00S02503.ver +++| SHN -3
Line S02504 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02878 M01S02504.271l716 ---| SBM RSTB
Line S00066 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02879 M01S00066.271l716 +++| SBD BS
Line S02505 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02880 M01S02505.271l716 ---| PJN ROJ4 IF ENOUGH MEMORY
02881 M01S02506.271l716 ---| UJN ROJ3 CHECK NEXT CONTROL POINT
Line S00067 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02882 M01S00067.271l716 +++| PJN ROJX IF ENOUGH CM AVAILABLE
02883 M01S00068.271l716 +++| UJN ROJ2 PROCESS NEXT CP/PCP
02884 M00S02507.ver +++| RST SPACE 4,10
02885 M00S02508.ver +++|** RST - REQUEST STORAGE.
02886 M00S02509.ver +++|*
02887 M00S02510.ver +++|* ENTRY (A) = 0 IF REQUEST MEMORY.
Line S02511 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02888 M01S02511.271l716 ---|* = 4000B IF RETURN MEMORY.
Line S00069 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02889 M01S00069.271l716 +++|* = 100 IF RETURN MEMORY.
02890 M00S02512.ver +++|* (T6 - T7) = MEMORY TO REQUEST OR RETURN/1000B.
02891 M00S02513.ver +++|*
02892 M00S02514.ver +++|* EXIT (A) = MEMORY UNAVAILABLE/1000B IF UNABLE TO OBTAIN
02893 M00S02515.ver +++|* TOTAL REQUEST.
02894 M00S02516.ver +++|* MEMORY IS ASSIGNED TO OR RELEASED FROM NOS/VE AND
02895 M00S02517.ver +++|* *MABL* IS UPDATED TO REFLECT THE NEW MACHINE FL
02896 M00S02518.ver +++|* FOR NOS.
02897 M00S02519.ver +++|*
Line S02520 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02898 M01S02520.271l716 ---|* USES LO, T2, T6, T7, CM - CM+4.
Line S00070 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02899 M01S00070.271l716 +++|* USES BS, NC, T2, T6, T7, CM - CM+4.
02900 M00S02521.ver +++|*
02901 M00S02522.ver +++|* CALLS CSS, ROJ.
02902 M00S02523.ver +++|*
02903 M00S02524.ver +++|* MACROS MONITOR, PAUSE.
02904 M00S02525.ver +++|
02905 M00S02526.ver +++|
02906 M00S02527.ver +++| RST5 RJM CSS ENABLE SCHEDULER
02907 M00S02528.ver +++| LDN 0
02908 M00S02529.ver +++|
02909 M00S02530.ver +++| RST SUBR ENTRY/EXIT
Line S02531 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02910 M01S02531.271l716 ---| STM RSTA SET FUNCTION
Line S00071 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02911 M01S00071.271l716 +++| ADC LDNI
02912 M01S00072.271l716 +++| ERRNZ LDNI+100-LCNI CODE DEPENDS ON VALUE
02913 M01S00073.271l716 +++| STM RSTA
02914 M01S00074.271l716 +++| LDC 377 SET MAXIMUM BLOCK SIZE
02915 M01S00075.271l716 +++| STD BS
Line S02532 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02916 M01S02532.271l716 ---| LDN NCPL SET NUMBER OF CONTROL POINTS
Line S00076 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02917 M01S00076.271l716 +++| LDK NCPL SET SYSTEM CP NUMBER
02918 M00S02533.ver +++| CRD CM
02919 M00S02534.ver +++| AOD CM+1
Line S02535 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02920 M01S02535.271l716 ---| STD LO
Line S00077 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02921 M01S00077.271l716 +++| STD NC
02922 M00S02536.ver +++| LDN 1
02923 M00S02537.ver +++| RJM CSS DISABLE SCHEDULER
02924 M00S02538.ver +++| RST1 LDD T6 CHECK REMAINING REQUEST
02925 M00S02539.ver +++| SHN 14
02926 M00S02540.ver +++| LMD T7
02927 M00S02541.ver +++| ZJN RST5 IF NO MORE REQUIRED
Line S02542 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02928 M01S02542.271l716 ---| ADC -377
Line S00078 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02929 M01S00078.271l716 +++| SBD BS
02930 M00S02543.ver +++| MJN RST2 IF .LT. 131K REQUIRED
02931 M00S02544.ver +++| STD T7 SAVE REMAINING REQUEST
02932 M00S02545.ver +++| SHN -14
02933 M00S02546.ver +++| STD T6
Line S02547 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02934 M01S02547.271l716 ---| LDC 3770
02935 M00S02548.ver +++| UJN RST3 REQUEST 131K
02936 M00S02549.ver +++|
Line S02550 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02937 M01S02550.271l716 ---| RST2 LDD T7
02938 M01S02551.271l716 ---| STD T2
Line S00079 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02939 M01S00079.271l716 +++| RST2 RAD BS
02940 M00S02552.ver +++| LDN 0 CLEAR REMAINING REQUEST
02941 M00S02553.ver +++| STD T6
02942 M00S02554.ver +++| STD T7
Line S02555 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02943 M01S02555.271l716 ---| LDD T2 SET REQUEST/100B
02944 M01S02556.271l716 ---| SHN 3
02945 M01S02557.271l716 ---| RST3 ADC **
02946 M01S02558.271l716 ---| RSTA EQU *-1 (4000B IF RETURN)
Line S00080 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02947 M01S00080.271l716 +++| RST3 LDN 0
02948 M01S00081.271l716 +++| RSTA EQU RST3
02949 M01S00082.271l716 +++|* LCN 0 (RETURNING MEMORY)
02950 M01S00083.271l716 +++| LMD BS
02951 M01S00084.271l716 +++| SHN 3 SET REQUEST / 100B
02952 M00S02559.ver +++| STD CM+1
02953 M00S02560.ver +++| LDC 200 SET NOS/VE TYPE
02954 M00S02561.ver +++| STD CM+2
02955 M00S02562.ver +++| MONITOR RSTM REQUEST STORAGE
02956 M00S02563.ver +++| LDD CM+1
02957 M00S02564.ver +++| ZJN RST1 IF REQUEST HONORED
Line S02565 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02958 M01S02565.271l716 ---| SHN -3
02959 M01S02566.271l716 ---| STM RSTB SAVE REQUEST
02960 M01S02567.271l716 ---| RJM ROJ ROLL OUT JOBS
02961 M01S02568.271l716 ---| PJN RST4 IF MEMORY AVAILABLE
Line S00085 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02962 M01S00085.271l716 +++| RJM ROJ
02963 M01S00086.271l716 +++| PJN RST3 IF MEMORY AVAILABLE
02964 M00S02569.ver +++| LDN 0 ENABLE SCHEDULER
02965 M00S02570.ver +++| RJM CSS
02966 M00S02571.ver +++| LDD T6 SET AMOUNT UNAVAILABLE
02967 M00S02572.ver +++| SHN 14
02968 M00S02573.ver +++| ADD T7
Line S02574 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
02969 M01S02574.271l716 ---| ADM RSTB
02970 M01S02575.271l716 ---| LJM RSTX RETURN
02971 M01S02576.271l716 ---|
02972 M01S02577.271l716 ---| RST4 PAUSE NE
02973 M01S02578.271l716 ---| LDM RSTB
02974 M01S02579.271l716 ---| SHN 3
02975 M01S02580.271l716 ---| UJP RST3 RETRY REQUEST
02976 M01S02581.271l716 ---|
02977 M01S02582.271l716 ---| RSTB CON 0 REQUIRED MEMORY/1000B
Line S00087 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
02978 M01S00087.271l716 +++| ADD BS
02979 M01S00088.271l716 +++| LJM RSTX RETURN
02980 M00S02583.ver +++| SBA SPACE 4,10
02981 M00S02584.ver +++|** SBA - SET OS BOUNDS ADDRESS.
02982 M00S02585.ver +++|*
02983 M00S02586.ver +++|* ENTRY (CL - CL+1) = NEW NOS/VE SIZE/1000B.
02984 M00S02587.ver +++|* (EC) = IOU CONNECT CODE.
Line S00011 Modification History
M01 (Added by) ns2709
Seq # *Modification Id* Act
----------------------------+
02985 M01S00011.ns2709 +++|* *UEM* MUST NOT BE DEFINED FOR *NOS*.
02986 M00S02588.ver +++|*
02987 M00S02589.ver +++|* EXIT PP OS BOUNDS ADDRESS SET TO FWA OF NOS/VE CM.
02988 M00S02590.ver +++|*
Line S02591 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
02989 M01S02591.ns2633 ---|* USES T2, CN - CN+4.
Line S00172 Modification History
M01 (Added by) ns2633
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
02990 M02S00172.ver13 ---|* USES T1, T2, CN - CN+4.
Line S00090 Modification History
M01 (Added by) ver13
Seq # *Modification Id* Act
----------------------------+
02991 M01S00090.ver13 +++|* USES T1, T2, T3, CN - CN+4.
02992 M00S02592.ver +++|*
02993 M00S02593.ver +++|* CALLS SEA.
02994 M00S02594.ver +++|*
02995 M00S02595.ver +++|* MACROS LOCKMR, READMR, WRITMR.
02996 M00S02596.ver +++|
02997 M00S02597.ver +++|
02998 M00S02598.ver +++| SBA SUBR ENTRY/EXIT
02999 M00S02599.ver +++| LOCKMR SET
03000 M00S02600.ver +++| READMR RBUF,,IOSB FETCH CURRENT OS BOUNDS DATA
03001 M00S02601.ver +++| RJM SEA READ LWA+1 OF NOS/VE CM
03002 M00S02602.ver +++| ADN D7CM+1
03003 M00S02603.ver +++| CRD CN
Line S02604 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
03004 M01S02604.ns2633 ---| LDD CN+3 CALCULATE NEW FWA OF NOS/VE CM
03005 M01S02605.ns2633 ---| SBD CL
03006 M01S02606.ns2633 ---| SHN 14
03007 M01S02607.ns2633 ---| LMD CN+4
Line S00173 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03008 M01S00173.ns2633 +++| LDD CL CALCULATE NEW FWA OF NOS/VE CM
03009 M01S00174.ns2633 +++| STD T1
03010 M01S00175.ns2633 +++| LDD CN+4
03011 M00S02608.ver +++| SBD CL+1
Line S02609 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
03012 M01S02609.ns2633 ---| SHN -1 FORM OS BOUNDS ADDRESS/2000B
Line S00176 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03013 M01S00176.ns2633 +++| STD T2
03014 M01S00177.ns2633 +++| PJN SBA1 IF NO BORROW
03015 M01S00178.ns2633 +++| AOD T1 ADJUST FOR BORROW
03016 M01S00179.ns2633 +++| AOD T2
03017 M01S00180.ns2633 +++| SBA1 LDD CN+3
03018 M01S00181.ns2633 +++| SBD T1
03019 M01S00182.ns2633 +++| STD T1
Line S00183 Modification History
M01 (Added by) ns2633
M02 (Removed by) ns2709
Seq # *Modification Id* Act
----------------------------+
03020 M02S00183.ns2709 ---| LDD T2 FORM OS BOUNDS ADDRESS/2000B
Line S00012 Modification History
M01 (Added by) ns2709
Seq # *Modification Id* Act
----------------------------+
03021 M01S00012.ns2709 +++| ZJN SBA2 IF ADDRESS/1000B = 0XXXXB (.LT. 16MB)
03022 M01S00013.ns2709 +++| LDN 1 SET ADDRESS/1000B TO 10000B (16MB)
03023 M01S00014.ns2709 +++| STD T1
03024 M01S00015.ns2709 +++| LDN 0
03025 M01S00016.ns2709 +++| STD T2
03026 M01S00017.ns2709 +++| SBA2 LDD T2 FORM OS BOUNDS ADDRESS/2000B
Line S00184 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03027 M01S00184.ns2633 +++| SHN -1
03028 M00S02610.ver +++| STM RBUF+7
03029 M00S02611.ver +++| SHN -8D
Line S00185 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03030 M01S00185.ns2633 +++| STD T2
03031 M01S00186.ns2633 +++| LDD T1
03032 M01S00187.ns2633 +++| SHN 3
03033 M01S00188.ns2633 +++| LMD T2
03034 M00S02612.ver +++| STM RBUF+6
Line S02613 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03035 M01S02613.ver13 ---| READMR IBUF,,DEMR READ IOU REGISTER
Line S00091 Modification History
M01 (Added by) ver13
Seq # *Modification Id* Act
----------------------------+
03036 M01S00091.ver13 +++| READMR IBUF,,DEMR READ EC REGISTER
03037 M00S02614.ver +++| LDM IBUF+7 CLEAR OS BOUNDS ENABLE
03038 M00S02615.ver +++| STD T2
03039 M00S02616.ver +++| SCN 10
03040 M00S02617.ver +++| STM IBUF+7
Line S02618 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03041 M01S02618.ver13 ---| WRITMR IBUF,,DEMR
03042 M01S02619.ver13 ---| WRITMR RBUF,,IOSB WRITE NEW OS BOUNDS
Line S00092 Modification History
M01 (Added by) ver13
Seq # *Modification Id* Act
----------------------------+
03043 M01S00092.ver13 +++| WRITMR IBUF
03044 M01S00093.ver13 +++| SBAA UJN SBA3 (NO CPP-S IN SYSTEM OR MODEL 42 IOU)
03045 M01S00094.ver13 +++|* PSN (CPP-S IN SYSTEM AND NOT MODEL 42 IOU)
03046 M01S00095.ver13 +++| READMR MBUF,,ECCR READ CIO EC REGISTER
03047 M01S00096.ver13 +++| LDM MBUF+7 CLEAR OS BOUNDS ENABLE
03048 M01S00097.ver13 +++| STD T3
03049 M01S00098.ver13 +++| SCN 10
03050 M01S00099.ver13 +++| STM MBUF+7
03051 M01S00100.ver13 +++| WRITMR MBUF
03052 M01S00101.ver13 +++| SBA3 WRITMR RBUF,,IOSB WRITE NEW OS BOUNDS
Line S02620 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03053 M01S02620.ver13 ---| LDD T2 RESTORE IOU REGISTER
Line S00102 Modification History
M01 (Added by) ver13
Seq # *Modification Id* Act
----------------------------+
03054 M01S00102.ver13 +++| LDD T2 RESTORE EC REGISTER
03055 M00S02621.ver +++| STM IBUF+7
03056 M00S02622.ver +++| WRITMR IBUF,,DEMR
Line S02623 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03057 M01S02623.ver13 ---| LOCKMR CLEAR
Line S00103 Modification History
M01 (Added by) ver13
Seq # *Modification Id* Act
----------------------------+
03058 M01S00103.ver13 +++| SBAB UJN SBA4 (NO CPP-S IN SYSTEM OR IOU MODEL 42)
03059 M01S00104.ver13 +++|* PSN (CPP-S IN SYSTEM AND NOT IOU MODEL 42)
03060 M01S00105.ver13 +++| LDD T3 RESTORE EC REGISTER
03061 M01S00106.ver13 +++| STM MBUF+7
03062 M01S00107.ver13 +++| WRITMR MBUF,,ECCR
03063 M01S00108.ver13 +++| SBA4 LOCKMR CLEAR
03064 M00S02624.ver +++| LJM SBAX RETURN
03065 M00S02625.ver +++| SDA SPACE 4,10
03066 M00S02626.ver +++|** SDA - SET *EICB* CM ADDRESSES.
03067 M00S02627.ver +++|*
03068 M00S02628.ver +++|* ENTRY (CL - CL+1) = NUMBER OF CM WORDS/1000B TO BE RESERVED
03069 M00S02629.ver +++|* FOR NOS/VE.
03070 M00S02630.ver +++|* (EIBA - EIBA+1) = *EICB* ADDRESS.
03071 M00S02631.ver +++|*
03072 M00S02632.ver +++|* EXIT (CN - CN+4) = WORD *D7CM* OF *EICB*.
03073 M00S02633.ver +++|* = 12/0, 24/FWA/1000B, 24/LWA+1/1000B.
03074 M00S02634.ver +++|*
Line S02635 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
03075 M01S02635.ns2633 ---|* USES CN - CN+4.
Line S00189 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03076 M01S00189.ns2633 +++|* USES T1, CN - CN+4.
03077 M00S02636.ver +++|*
03078 M00S02637.ver +++|* CALLS SEA.
03079 M00S02638.ver +++|
03080 M00S02639.ver +++|
03081 M00S02640.ver +++| SDA SUBR ENTRY/EXIT
03082 M00S02641.ver +++| RJM SEA GET CURRENT CM ADDRESSES FROM *EICB*
03083 M00S02642.ver +++| ADN D7CM+1
03084 M00S02643.ver +++| CRD CN
Line S02644 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
03085 M01S02644.ns2633 ---| LDD CN+3 SUBTRACT NEW TOTAL FROM LWA+1
03086 M01S02645.ns2633 ---| SBD CL
03087 M01S02646.ns2633 ---| SHN 14
03088 M01S02647.ns2633 ---| LMD CN+4
Line S00190 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03089 M01S00190.ns2633 +++| LDD CL SUBTRACT NEW TOTAL FROM LWA+1
03090 M01S00191.ns2633 +++| STD T1
03091 M01S00192.ns2633 +++| LDD CN+4
03092 M00S02648.ver +++| SBD CL+1
03093 M00S02649.ver +++| STD CN+2 SET NEW FWA
Line S02650 Modification History
M01 (Removed by) ns2633
Seq # *Modification Id* Act
----------------------------+
03094 M01S02650.ns2633 ---| SHN -14
Line S00193 Modification History
M01 (Added by) ns2633
Seq # *Modification Id* Act
----------------------------+
03095 M01S00193.ns2633 +++| PJN SDA1 IF NO BORROW
03096 M01S00194.ns2633 +++| AOD T1 ADJUST FOR BORROW
03097 M01S00195.ns2633 +++| AOD CN+2
03098 M01S00196.ns2633 +++| SDA1 LDD CN+3
03099 M01S00197.ns2633 +++| SBD T1
03100 M00S02651.ver +++| STD CN+1
03101 M00S02652.ver +++| RJM SEA WRITE NEW CM ADDRESSES TO *EICB*
03102 M00S02653.ver +++| ADN D7CM+1
03103 M00S02654.ver +++| CWD CN
03104 M00S02655.ver +++| UJN SDAX RETURN
03105 M00S02656.ver +++| SPB SPACE 4,15
03106 M00S02657.ver +++|** SPB - SET PP BOUNDS BIT.
03107 M00S02658.ver +++|*
03108 M00S02659.ver +++|* ENTRY (A) = 6/BIT VALUE, 12/PP NUMBER.
03109 M00S02660.ver +++|* BIT VALUE = 1 TO SET LOWER PP.
03110 M00S02661.ver +++|* = 0 TO SET UPPER PP.
03111 M00S02662.ver +++|* (EC) = IOU CONNECT CODE.
03112 M00S02663.ver +++|* (SPBA) = BARREL CONFIGURATION.
03113 M00S02664.ver +++|* (SPBB) = NUMBER OF BARRELS.
03114 M00S02665.ver +++|*
03115 M00S02666.ver +++|* EXIT PP OS BOUNDS REGISTER SET FOR GIVEN PP.
03116 M00S02667.ver +++|*
03117 M00S02668.ver +++|* USES T2, T7.
03118 M00S02669.ver +++|*
03119 M00S02670.ver +++|* MACROS LOCKMR, READMR, WRITMR.
03120 M00S02671.ver +++|
03121 M00S02672.ver +++|
03122 M00S02673.ver +++| SPB SUBR ENTRY/EXIT
03123 M00S02674.ver +++| STD T7 SAVE LOGICAL PP NUMBER
03124 M00S02675.ver +++| SHN -14
03125 M00S02676.ver +++| STM SPBE SAVE BOUNDS BIT VALUE
03126 M00S02677.ver +++| LDN 0
03127 M00S02678.ver +++| STD T2
03128 M00S02679.ver +++| LDD T7
03129 M00S02680.ver +++| SBN 20
03130 M00S02681.ver +++| MJN SPB1 IF IN LOWER 10 PP-S
03131 M00S02682.ver +++| STD T7
03132 M00S02683.ver +++| AOD T2
03133 M00S02684.ver +++| AOD T2
03134 M00S02685.ver +++| SPB1 LDD T7
03135 M00S02686.ver +++| SBN 5
03136 M00S02687.ver +++| MJN SPB2 IF IN LOWER BARREL OF THE TWO
03137 M00S02688.ver +++| STD T7
03138 M00S02689.ver +++| AOD T2
03139 M00S02690.ver +++| SPB2 LDD T2
03140 M00S02691.ver +++| SPBA ADN **
03141 M00S02692.ver +++|* ADN 0 (BARREL RECONFIGURATION)
03142 M00S02693.ver +++|* ADN 1
03143 M00S02694.ver +++|* ADN 2
03144 M00S02695.ver +++|* ADN 3
03145 M00S02696.ver +++| STD T2
03146 M00S02697.ver +++| SPBB SBN **
03147 M00S02698.ver +++|* SBN 1 (NUMBER OF BARRELS)
03148 M00S02699.ver +++|* SBN 2
03149 M00S02700.ver +++|* SBN 3
03150 M00S02701.ver +++|* SBN 4
03151 M00S02702.ver +++| MJN SPB3 IF NO OVERFLOW
03152 M00S02703.ver +++| STD T2
03153 M00S02704.ver +++| ERRNZ SHNI-1000 CANNOT USE DIRECT CELL *TH*
03154 M00S02705.ver +++| SPB3 LDD TH SET SHIFT COUNT
03155 M00S02706.ver +++| ADD T7
03156 M00S02707.ver +++| STM SPBC
03157 M00S02708.ver +++| STM SPBF
03158 M00S02709.ver +++| LOCKMR SET
03159 M00S02710.ver +++| READMR RBUF,,IOSB READ CURRENT OS BOUNDS DATA
03160 M00S02711.ver +++| LDM RBUF,T2
03161 M00S02712.ver +++| STM SPBD
03162 M00S02713.ver +++| LCN 1
03163 M00S02714.ver +++| SPBC SHN **
03164 M00S02715.ver +++| LPC **
03165 M00S02716.ver +++| SPBD EQU *-1
03166 M00S02717.ver +++| STM RBUF,T2
03167 M00S02718.ver +++| LDC **
03168 M00S02719.ver +++| SPBE EQU *-1
03169 M00S02720.ver +++| SPBF SHN **
03170 M00S02721.ver +++| LMM RBUF,T2 ADD NEW BIT TO REGISTER DATA
03171 M00S02722.ver +++| STM RBUF,T2
03172 M00S02723.ver +++| WRITMR RBUF SET NEW OS BOUNDS REGISTER
03173 M00S02724.ver +++| LOCKMR CLEAR
03174 M00S02725.ver +++| LJM SPBX RETURN
03175 M00S02726.ver +++| VPN SPACE 4,10
03176 M00S02727.ver +++|** VPN - VALIDATE PP NUMBER.
03177 M00S02728.ver +++|*
03178 M00S02729.ver +++|* ENTRY (A) = PP NUMBER.
03179 M00S02730.ver +++|* (DA) = NUMBER OF SYSTEM PP-S.
03180 M00S02731.ver +++|*
03181 M00S02732.ver +++|* EXIT (A) = 0, IF ASSIGNED TO NOS/VE.
03182 M00S02733.ver +++|* = *ESIR*, IF INCORRECT NUMBER.
03183 M00S02734.ver +++|* = *ESPP*, IF NOT ASSIGNED TO NOS/VE.
03184 M00S02735.ver +++|* (T3) = PP OFFSET INTO COMMUNICATION AREA.
03185 M00S02736.ver +++|* (T4) = PP NUMBER.
03186 M00S02737.ver +++|* (CM - CM+4) = INPUT REGISTER.
03187 M00S02738.ver +++|*
03188 M00S02739.ver +++|* USES T3, T4, CM - CM+4.
03189 M00S02740.ver +++|
03190 M00S02741.ver +++|
03191 M00S02742.ver +++| VPN3 LDD T4
03192 M00S02743.ver +++| VPN4 SHN 3
03193 M00S02744.ver +++| STD T3
03194 M00S02745.ver +++| LDM PPCA CHECK IF ASSIGNED TO NOS/VE
03195 M00S02746.ver +++| ADD T3
03196 M00S02747.ver +++| CRD CM
03197 M00S02748.ver +++| LDD CM+1
03198 M00S02749.ver +++| SCN 77
03199 M00S02750.ver +++| SHN 6
03200 M00S02751.ver +++| LMD CM
03201 M00S02752.ver +++| LMC 3RP*V
03202 M00S02753.ver +++| ZJN VPNX IF ASSIGNED TO NOS/VE
03203 M00S02754.ver +++| LDN ESPP SET ERROR CODE
03204 M00S02755.ver +++|
03205 M00S02756.ver +++| VPN SUBR ENTRY/EXIT
03206 M00S02757.ver +++| STD T4
03207 M00S02758.ver +++| SBN 10D
03208 M00S02759.ver +++| MJN VPN3 IF LOWER BANK PP
03209 M00S02760.ver +++| LDD DA
03210 M00S02761.ver +++| SBN 11D
03211 M00S02762.ver +++| PJN VPN2 IF UPPER PP-S EXIST ON SYSTEM
03212 M00S02763.ver +++| VPN1 LDD TH SET ILLEGAL REQUEST STATUS (*ESIR*)
03213 M00S02764.ver +++| UJN VPNX RETURN
03214 M00S02765.ver +++|
03215 M00S02766.ver +++| VPN2 LDD T4
03216 M00S02767.ver +++| SBN 20
03217 M00S02768.ver +++| MJN VPN1 IF 12 .LE. PP NUMBER .LE. 17
03218 M00S02769.ver +++| ADC 20-32
03219 M00S02770.ver +++| PJN VPN1 IF PP NUMBER .GT. 31
03220 M00S02771.ver +++| ADN 32-6
03221 M00S02772.ver +++| LJM VPN4 RETURN
03222 M00S02773.ver +++| SPACE 4,10
03223 M00S02774.ver +++|** CODE PAST THIS POINT MAY BE OVERLAID BY *PBUF*.
03224 M00S02775.ver +++|*
03225 M00S02776.ver +++|* *PBUF* IS USED ONLY FOR THE *RPP* FUNCTION.
03226 M00S02777.ver +++|* *PBUF* MUST HAVE TWO RESERVED WORDS PRECEEDING IT FOR DISK
03227 M00S02778.ver +++|* LINKAGE BYTES.
03228 M00S02779.ver +++|
03229 M00S02780.ver +++| ERRNG PBUF-*-2 ERROR IF PBUF OVERLAYS EARLIER CODE
03230 M00S02781.ver +++| TITLE SUBROUTINES OVERLAYABLE BY *PBUF*.
Line S02782 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
03231 M01S02782.271l716 ---| CCA SPACE 4,10
03232 M01S02783.271l716 ---|** CCA - CHECK CHANNEL ASSIGNMENT.
Line S00089 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03233 M02S00089.ver13 ---| CHA SPACE 4,10
03234 M02S00090.ver13 ---|** CHA - CHECK CHANNEL ASSIGNMENT.
Line S02784 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03235 M01S02784.ver13 ---|*
03236 M01S02785.ver13 ---|* ENTRY (T2) = CHANNEL NUMBER.
03237 M01S02786.ver13 ---|*
03238 M01S02787.ver13 ---|* EXIT (A) = 0 IF CHANNEL IS ASSIGNED TO NOS/VE.
03239 M01S02788.ver13 ---|*
03240 M01S02789.ver13 ---|* USES T4.
03241 M01S02790.ver13 ---|
03242 M01S02791.ver13 ---|
Line S02792 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03243 M02S02792.ver13 ---| CCA SUBR ENTRY/EXIT
Line S00091 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03244 M02S00091.ver13 ---| CHA SUBR ENTRY/EXIT
Line S02793 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03245 M01S02793.ver13 ---| LDN NCTAL
03246 M01S02794.ver13 ---| STD T4
03247 M01S02795.ver13 ---| LDC ** FWA OF CHANNEL EJT ASSIGNMENT TABLE
Line S02796 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03248 M02S02796.ver13 ---| CCAA EQU *-2
Line S00092 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03249 M02S00092.ver13 ---| CHAA EQU *-2
Line S02797 Modification History
M01 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03250 M01S02797.ver13 ---| CRM CBUF,T4 READ CHANNEL ASSIGNMENT TABLE
03251 M01S02798.ver13 ---| LDM NEJT
03252 M01S02799.ver13 ---| LMM CBUF,T2
Line S02800 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03253 M02S02800.ver13 ---| UJN CCAX RETURN
Line S00093 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq # *Modification Id* Act
----------------------------+
03254 M02S00093.ver13 ---| UJN CHAX RETURN
03255 M00S02801.ver +++| DCA SPACE 4,10
03256 M00S02802.ver +++|** DCA - DETERMINE CHANNEL AVAILABILITY.
03257 M00S02803.ver +++|*
03258 M00S02804.ver +++|* ENTRY (T2) = CHANNEL NUMBER.
03259 M00S02805.ver +++|* (RBUF - RBUF+NCTAL*5) = CHANNEL STATUS TABLE.
03260 M00S02806.ver +++|*
03261 M00S02807.ver +++|* EXIT (A) = 0 IF CHANNEL PREVIOUSLY ASSIGNED.
03262 M00S02808.ver +++|* (CM+1) .NE. 0 IF CHANNEL ASSIGNED.
03263 M00S02809.ver +++|*
03264 M00S02810.ver +++|* USES T3, T4, CM - CM+4.
03265 M00S02811.ver +++|*
03266 M00S02812.ver +++|* CALLS SEC, VRC.
03267 M00S02813.ver +++|*
03268 M00S02814.ver +++|* MACROS MONITOR.
03269 M00S02815.ver +++|
03270 M00S02816.ver +++|
03271 M00S02817.ver +++| DCA SUBR ENTRY/EXIT
03272 M00S02818.ver +++| LDM RBUF,T2
03273 M00S02819.ver +++| SHN 21-5
03274 M00S02820.ver +++| PJN DCA1 IF CHANNEL IS UP
03275 M00S02821.ver +++| LJM DCA8 CHECK EQUIPMENT ON DOWN CHANNEL
03276 M00S02822.ver +++|
03277 M00S02823.ver +++|* CHANNEL IS UP. SEARCH FOR EQUIPMENT CONFIGURED ON IT.
03278 M00S02824.ver +++|
03279 M00S02825.ver +++| DCA1 LDD T2 CHECK IF CONSOLE CHANNEL
03280 M00S02826.ver +++| LMN CHDS
03281 M00S02827.ver +++| ZJN DCA4 IF CONSOLE CHANNEL
03282 M00S02828.ver +++| LDD T2
03283 M00S02829.ver +++| SBN 20
03284 M00S02830.ver +++| MJN DCA2 IF CHANNEL 0-17B
03285 M00S02831.ver +++| SBN 40-20
03286 M00S02832.ver +++| PJN DCA4 IF CHANNEL ABOVE 37B
03287 M00S02833.ver +++| DCA2 ADN 4
03288 M00S02834.ver +++| PJN DCA4 IF REQUESTED 14B-17B OR OVER 33B
03289 M00S02835.ver +++| DCA3 LDD LE
03290 M00S02836.ver +++| RJM SEC SEARCH FOR EQUIPMENT ON THIS CHANNEL
03291 M00S02837.ver +++| ZJN DCA6 IF NO EQUIPMENT FOUND
03292 M00S02838.ver +++| DCA4 LDN 0 SET CHANNEL NOT ASSIGNED
03293 M00S02839.ver +++| STD CM+1
03294 M00S02840.ver +++| LDN 1
03295 M00S02841.ver +++| DCA5 UJN DCAX RETURN
03296 M00S02842.ver +++|
03297 M00S02843.ver +++| DCA6 STD CM+1 CLEAR EST ORDINAL
03298 M00S02844.ver +++| STD CM+4 CLEAR MUX FLAG
03299 M00S02845.ver +++| LDN DNCS SET SUBFUNCTION
03300 M00S02846.ver +++| STD CM+2
03301 M00S02847.ver +++| LDD T2 SET CHANNEL NUMBER
03302 M00S02848.ver +++| STD CM+3
03303 M00S02849.ver +++| MONITOR SEQM DOWN UNCONFIGURED CHANNEL
03304 M00S02850.ver +++| DCA7 RJM VRC VE RESERVE CHANNEL
03305 M00S02851.ver +++| LDD T4
03306 M00S02852.ver +++| UJN DCA5 RETURN
03307 M00S02853.ver +++|
03308 M00S02854.ver +++|* CHANNEL IS DOWN. CHECK FOR NON-TRANSFERRABLE EQUIPMENT.
03309 M00S02855.ver +++|
03310 M00S02856.ver +++| DCA8 LDD LE
03311 M00S02857.ver +++| DCA9 RJM SEC SEARCH FOR EQUIPMENT ON THIS CHANNEL
03312 M00S02858.ver +++| PJN DCA7 IF NO EQUIPMENT FOUND
03313 M00S02859.ver +++| LDN 0 INITIALIZE TABLE INDEX
03314 M00S02860.ver +++| STD T4
03315 M00S02861.ver +++| DCA10 LDM TEQT,T4
03316 M00S02862.ver +++| ZJN DCA3 IF END OF TABLE
03317 M00S02863.ver +++| LMD CM+3
03318 M00S02864.ver +++| LPC 3777
03319 M00S02865.ver +++| ZJN DCA9 IF EQUIPMENT IS TRANSFERRABLE
03320 M00S02866.ver +++| AOD T4
03321 M00S02867.ver +++| UJN DCA10 CHECK NEXT TABLE ENTRY
03322 M00S02868.ver +++|
03323 M00S02869.ver +++| TEQT SPACE 4,10
03324 M00S02870.ver +++|** TEQT - TABLE OF TRANSFERRABLE EQUIPMENT.
03325 M00S02871.ver +++|*
03326 M00S02872.ver +++|* ONE WORD ENTRY.
03327 M00S02873.ver +++|*
03328 M00S02874.ver +++|*T 12/2RMN
03329 M00S02875.ver +++|* MN = MNEMONIC OF EQUIPMENT THAT MAY BE TRANSFERRED TO NOS/VE.
03330 M00S02876.ver +++|
03331 M00S02877.ver +++|
03332 M00S02878.ver +++| TEQT BSS 0 TABLE OF TRANSFERRABLE EQUIPMENT
Line S00001 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
03333 M01S00001.274l797 +++| VFD 12/2RAT
03334 M01S00002.274l797 +++| VFD 12/2RCT
03335 M00S02879.ver +++| VFD 12/2RMT
03336 M00S02880.ver +++| VFD 12/2RNT
03337 M00S02881.ver +++| VFD 12/2RDJ
03338 M00S02882.ver +++| VFD 12/2RDL
03339 M00S02883.ver +++| VFD 12/2RDM
03340 M00S02884.ver +++| VFD 12/2RDQ
03341 M00S02885.ver +++| VFD 12/0 END OF TABLE
03342 M00S02886.ver +++| SEC SPACE 4,15
03343 M00S02887.ver +++|** SEC - SEARCH FOR EQUIPMENT ON SPECIFIED CHANNEL.
03344 M00S02888.ver +++|*
03345 M00S02889.ver +++|* ENTRY (A) = EST ORDINAL+1 FROM WHICH TO START SEARCH.
03346 M00S02890.ver +++|* = 0 IF (T3) = STARTING EST ORDINAL+1.
03347 M00S02891.ver +++|* (T2) = CHANNEL NUMBER.
03348 M00S02892.ver +++|*
03349 M00S02893.ver +++|* EXIT (A) = 0 IF NONE FOUND.
03350 M00S02894.ver +++|* = (T3) = EST ORDINAL OF EQUIPMENT FOUND.
03351 M00S02895.ver +++|* (CM - CM+4) = EST ENTRY WORD *EQDE*.
Line S00015 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03352 M01S00015.252l678 +++|*
03353 M01S00016.252l678 +++|* USES T1, T2, CM - CM+4.
03354 M00S02896.ver +++|*
03355 M00S02897.ver +++|* MACROS SFA.
03356 M00S02898.ver +++|
03357 M00S02899.ver +++|
Line S02900 Modification History
M01 (Removed by) 252l678
Seq # *Modification Id* Act
----------------------------+
03358 M01S02900.252l678 ---| SEC5 LDD T3
03359 M01S02901.252l678 ---| SBN NOPE
03360 M01S02902.252l678 ---| NJN SEC6 IF NOT CHECKING *EM* EST ENTRY
03361 M01S02903.252l678 ---| LDD CM+3
03362 M01S02904.252l678 ---| LMC 2RDP
03363 M01S02905.252l678 ---| NJN SEC1 IF NOT *DP* EQUIPMENT IGNORE
03364 M01S02906.252l678 ---| SEC6 LDD T3 RETURN EST ORDINAL
Line S00017 Modification History
M01 (Added by) 252l678
Seq # *Modification Id* Act
----------------------------+
03365 M01S00017.252l678 +++| SEC3 LDD T3 RETURN EST ORDINAL
03366 M00S02907.ver +++|
03367 M00S02908.ver +++| SEC SUBR ENTRY/EXIT
03368 M00S02909.ver +++| ZJN SEC1 IF NOT INITIAL CALL
03369 M00S02910.ver +++| STD T3 SAVE EST ORDINAL
03370 M00S02911.ver +++| SEC1 SOD T3 DECREMENT EST ORDINAL
03371 M00S02912.ver +++| SBN NOPE-1
03372 M00S02913.ver +++| ZJN SECX IF END OF EST
03373 M00S02914.ver +++| SFA EST,T3
03374 M00S02915.ver +++| ADK EQDE
03375 M00S02916.ver +++| CRD CM READ EST ENTRY
03376 M00S02917.ver +++| LDD CM+3