User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ver.001

Deck VER Part 001

9 Modifications

Listing Sections

Source

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

056230NAME 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
Figure

0112RMN

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
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/ver.001.txt ยท Last modified: by 127.0.0.1