User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:ver

Deck VER

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ver     +++|          IDENT  VER,VER
00002  M00S00002.ver     +++|          PERIPH
00003  M00S00003.ver     +++|          BASE   MIXED
00004  M00S00004.ver     +++|          SST    SSCP
00005  M00S00005.ver     +++|          TITLE  VER - VIRTUAL ENVIRONMENT REQUEST PROCESSOR.
00006  M00S00006.ver     +++|*COMMENT  VER - VIRTUAL RESOURCE REQUEST PROCESSOR.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1981.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.ver     +++| VER      SPACE  4,10
00010  M00S00009.ver     +++|***       VER - VIRTUAL ENVIRONMENT REQUEST PROCESSOR.
00011  M00S00010.ver     +++|*
00012  M00S00011.ver     +++|*         K. H. BOSSARD.     82/04/19.
00013  M00S00012.ver     +++|          SPACE  4,10
00014  M00S00013.ver     +++|***              *VER* PROCESSES REQUESTS FOR OBTAINING AND
00015  M00S00014.ver     +++|*         RETURNING RESOURCES FOR NOS/VE IN THE DUAL STATE
00016  M00S00015.ver     +++|*         ENVIRONMENT.
00017  M00S00016.ver     +++|          SPACE  4,10
00018  M00S00017.ver     +++|***       CALL.
00019  M00S00018.ver     +++|*
00020  M00S00019.ver     +++|*
00021  M00S00020.ver     +++|*T        18/*VER*, 1/1, 5/CP, 12/FCN, 6/0, 18/ADDR
Figure

01718232429ADDR0FCN30353640414259FCNCP1*VER*

00022  M00S00021.ver     +++|*
00023  M00S00022.ver     +++|*         CP     NVE CONTROL POINT NUMBER.
00024  M00S00023.ver     +++|*         FCN    FUNCTION CODE.
00025  M00S00024.ver     +++|*         ADDR   ADDRESS OF PARAMETER BLOCK.
00026  M00S00025.ver     +++|          SPACE  4,10
00027  M00S00026.ver     +++|***       REPLY BLOCK.
00028  M00S00027.ver     +++|*
00029  M00S00028.ver     +++|*         48/UNCHANGED, 12/GRS
00030  M00S00029.ver     +++|*         48/UNCHANGED, 12/RS
00031  M00S00030.ver     +++|*
00032  M00S00031.ver     +++|*         GRS    GENERAL RETURN STATUS (RIGHTMOST BIT IS A
00033  M00S00032.ver     +++|*                COMPLETION BIT).
00034  M00S00033.ver     +++|*         RS     INDIVIDUAL RETURN STATUS.
00035  M00S00034.ver     +++|*
00036  M00S00035.ver     +++|*         *RS* IS THE RETURN STATUS FOR A SPECIFIC INDIVIDUAL REQUEST
00037  M00S00036.ver     +++|*         AND IS NOT PRESENT IN ALL FORMATS.  FOR REPLIES THAT HAVE
00038  M00S00037.ver     +++|*         BOTH *GRS* AND *RS*, *GRS* CONTAINS THE VALUE OF THE LAST
00039  M00S00038.ver     +++|*         ENCOUNTERED NON-ZERO ERROR STATUS.  REQUEST PROCESSING
00040  M00S00039.ver     +++|*         CONTINUES UNTIL A FATAL ERROR (100X,200X) OCCURS.
00041  M00S00040.ver     +++|          SPACE  4,10
00042  M00S00041.ver     +++|***       DAYFILE MESSAGES.
00043  M00S00042.ver     +++|*
00044  M00S00043.ver     +++|*
00045  M00S00044.ver     +++|*         * VER - ILLEGAL USER ACCESS.*
00046  M00S00045.ver     +++|*         THE CALLER DID NOT HAVE NVE SUBSYSTEM ID.
00047  M00S00046.ver     +++|*
00048  M00S00047.ver     +++|*         * VER - ARGUMENT ERROR.*
00049  M00S00048.ver     +++|*         INDICATES ONE OF THE FOLLOWING.
00050  M00S00049.ver     +++|*         1.  AN ILLEGAL FUNCTION CODE WAS SPECIFIED.
00051  M00S00050.ver     +++|*         2.  AUTO RECALL WAS NOT SELECTED.
00052  M00S00051.ver     +++|*         3.  PARAMETER BLOCK WAS NOT WITHIN CALLER-S FIELD LENGTH.
00053  M00S00052.ver     +++|*         4.  THE COMPLETION BIT IN THE PARAMETER BLOCK WAS SET.
00054  M00S00053.ver     +++|*
00055  M00S00054.ver     +++|*         * VER - FATAL MAINTENANCE REGISTER ERROR.*
00056  M00S00055.ver     +++|*         A FATAL PARITY ERROR OCCURRED DURING MAINTENANCE REGISTER
00057  M00S00056.ver     +++|*         ACCESS THROUGH THE MAINTENANCE CHANNEL.
00058  M00S00057.ver     +++|*
00059  M00S00058.ver     +++|*         * VER - EJT ENTRY UNAVAILABLE.*
00060  M00S00059.ver     +++|*         *VER* WAS UNABLE TO OBTAIN AN EJT ORDINAL.
00061  M00S00060.ver     +++|*
00062  M00S00061.ver     +++|*         * VER - OVERLAY SELECTION ERROR.*
00063  M00S00062.ver     +++|*         OVERLAY *2VR* RECEIVED CONTROL ON A FUNCTION CODE
00064  M00S00063.ver     +++|*         WHICH SHOULD HAVE BEEN PROCESSED BY *VER* MAIN.
00065  M00S00064.ver     +++|
00066  M00S00065.ver     +++|          SPACE  4,10
00067  M00S00066.ver     +++|***       BINARY MAINTENANCE LOG MESSAGES.
00068  M00S00067.ver     +++|*
00069  M00S00068.ver     +++|*
00070  M00S00069.ver     +++|*         MESSAGES WILL BE ISSUED IN THE FOLLOWING CASES.
00071  M00S00070.ver     +++|*
00072  M00S00071.ver     +++|*         1. REQUEST CM FOR NOS/VE.
00073  M00S00072.ver     +++|*         2. RETURN CM FROM NOS/VE.
00074  M00S00073.ver     +++|*         3. REQUEST PP FOR NOS/VE.
00075  M00S00074.ver     +++|*         4. RETURN PP FROM NOS/VE.
00076  M00S00075.ver     +++|*         5. CANNOT IDLE PP.
00077  M00S00076.ver     +++|*         6. CANNOT DEADSTART PP.
00078  M00S00077.ver     +++|*         7. BAD PP RETURNED FROM NOS/VE.
00079  M00S00078.ver     +++|*
00080  M00S00079.ver     +++|*         THE CONTENTS OF THE MESSAGE INCLUDE THE PP NUMBER OR
00081  M00S00080.ver     +++|*         THE CURRENT FWA AND LWA+1 OF NOS/VE CM, AS APPROPRIATE.
00082  M00S00081.ver     +++|          SPACE  4,10
00083  M00S00082.ver     +++|**        ROUTINES CALLED.
00084  M00S00083.ver     +++|*
00085  M00S00084.ver     +++|*
00086  M00S00085.ver     +++|*         1VP - RESERVE VIRTUAL PP.
00087  M00S00086.ver     +++|          SPACE  4,10
00088  M00S00087.ver     +++|*CALL     COMPMAC
00089  M00S00088.ver     +++|*CALL     COMPMRM
00090  M00S00089.ver     +++|*CALL     COMSCPS
00091  M00S00090.ver     +++|*CALL     COMSDFS
00092  M00S00091.ver     +++|*CALL     COMSDFT
00093  M00S00092.ver     +++|          QUAL   DSL
00094  M00S00093.ver     +++|*CALL     COMSDSL
00095  M00S00094.ver     +++|          QUAL   *
00096  M00S00095.ver     +++|          LIST   X
00097  M00S00096.ver     +++|*CALL     COMSDST
00098  M00S00097.ver     +++|          LIST   *
00099  M00S00098.ver     +++|*CALL     COMSEJT
00100  M00S00099.ver     +++|*CALL     COMSIOU
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00001.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
00102  M02S00002.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
00103  M02S00003.273l780 ---|*CALL     COMSPCP
00104  M00S00100.ver     +++|*CALL     COMSPIM
00105  M00S00101.ver     +++|*CALL     COMSSSD
00106  M00S00102.ver     +++|          LIST   X
00107  M00S00103.ver     +++|*CALL     COMSVED
00108  M00S00104.ver     +++|          LIST   *
00109  M00S00105.ver     +++|          SPACE  4,10
00110  M00S00106.ver     +++|****      DIRECT LOCATION ASSIGNMENTS.
00111  M00S00107.ver     +++|
00112  M00S00108.ver     +++|
00113  M00S00109.ver     +++| PB       EQU    20 - 24     REQUEST/REPLY WORD BUFFER (5 LOCATIONS)
00114  M00S00110.ver     +++| RN       EQU    25          C180 REGISTER NUMBER
00115  M00S00111.ver     +++| EC       EQU    26          C180 REGISTER CONNECTION CODE
00116  M00S00112.ver     +++| LO       EQU    27          LIST OFFSET
Line S00004 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00117  M01S00004.271l716 +++| NC       EQU    LO          SYSTEM CONTROL POINT NUMBER
00118  M00S00113.ver     +++| CL       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
00119  M00S00114.ver     +++| DA       EQU    35          DIRECT CELL STORAGE
00120  M00S00115.ver     +++| DB       EQU    36          DIRECT CELL STORAGE
00121  M00S00116.ver     +++| DC       EQU    37          DIRECT CELL STORAGE
00122  M00S00117.ver     +++| CN       EQU    40 - 44     CM WORD BUFFER (5 LOCATIONS)
00123  M00S00118.ver     +++| ES       EQU    CN          CM WORD BUFFER FOR *COMPDVC*
00124  M00S00119.ver     +++| LE       EQU    45          LAST EST ORDINAL + 1
00125  M00S00120.ver     +++| CF       EQU    46          CONFIGURATION FLAG
Line S00005 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00005.271l716 +++| BS       EQU    47          MEMORY BLOCK SIZE
00127  M00S00121.ver     +++| SC       EQU    60 - 64     SCRATCH
00128  M00S00122.ver     +++|****
00129  M00S00123.ver     +++|          SPACE  4,10
00130  M00S00124.ver     +++|*         IN ORDER TO SAVE SPACE, THE DIRECT CELL *TH* IS USED IN PLACE
00131  M00S00125.ver     +++|*         OF *ESIR*.  THIS MUST BE CHANGED IF THE VALUE OF *ESIR* IN
00132  M00S00126.ver     +++|*         *COMSVED* CHANGES.
00133  M00S00127.ver     +++|
00134  M00S00128.ver     +++|          ERRNZ  ESIR-1000   *ESIR* VALUE HAS CHANGED, SEE ABOVE NOTE
00135  M00S00129.ver     +++|          TITLE  MACRO DEFINITIONS.
00136  M00S00130.ver     +++| ABORT    SPACE  4,10
00137  M00S00131.ver     +++|**        ABORT - ERROR PROCESSING MACRO.
00138  M00S00132.ver     +++|*
00139  M00S00133.ver     +++|*         ABORT  ADDR
00140  M00S00134.ver     +++|*
00141  M00S00135.ver     +++|*         ADDR = FWA OF ERROR MESSAGE FOR DAYFILE.
00142  M00S00136.ver     +++|*
00143  M00S00137.ver     +++|*         CALLS  ERR.
00144  M00S00138.ver     +++|
00145  M00S00139.ver     +++|
00146  M00S00140.ver     +++|          PURGMAC ABORT
00147  M00S00141.ver     +++|
00148  M00S00142.ver     +++| ABORT    MACRO  A
00149  M00S00143.ver     +++|          MACREF ABORT
00150  M00S00144.ver     +++|          LDC    A
00151  M00S00145.ver     +++|          LJM    ERR
00152  M00S00146.ver     +++| ABORT    ENDM
00153  M00S00147.ver     +++| FCN      SPACE  4,10
00154  M00S00148.ver     +++|**        FCN - DEFINE FUNCTION PROCESSOR.
00155  M00S00149.ver     +++|*
00156  M00S00150.ver     +++|*         FCN    NAME
00157  M00S00151.ver     +++|*
00158  M00S00152.ver     +++|*         NAME = NAME OF FUNCTION PROCESSOR.
00159  M00S00153.ver     +++|
00160  M00S00154.ver     +++|
00161  M00S00155.ver     +++| FCN      MACRO  A
00162  M00S00156.ver     +++|          CON    A
00163  M00S00157.ver     +++| FCN      ENDM
00164  M00S00158.ver     +++|          TITLE  MAIN PROGRAM.
00165  M00S00159.ver     +++|          ORG    PPFW
00166  M00S00160.ver     +++| VER      SPACE  4,10
00167  M00S00161.ver     +++|**        VER - MAIN PROGRAM.
00168  M00S00162.ver     +++|
00169  M00S00163.ver     +++|
00170  M00S00164.ver     +++| VER      RJM    PRS         PRESET VIRTUAL ENVIRONMENT
00171  M00S00165.ver     +++|          STD    PB+4
00172  M00S00166.ver     +++|          NJN    VERX        IF ERROR FOUND DURING PRESET
00173  M00S00167.ver     +++|
00174  M00S00168.ver     +++|*         TO FUNCTION PROCESSOR WITH
00175  M00S00169.ver     +++|*         (PB - PB+4) = FIRST WORD OF PARAMETER BLOCK.
00176  M00S00170.ver     +++|*                     = 1/F, 35/0, 12/LENGTH, 12/0.
00177  M00S00171.ver     +++|*                     F = FLAG USED ONLY IN RETURN FUNCTIONS.
00178  M00S00172.ver     +++|*                       = 0 - RETURN SPECIFIED RESOURCES.
00179  M00S00173.ver     +++|*                       = 1 - RETURN ALL.
00180  M00S00174.ver     +++|*                     LENGTH = LENGTH (IN CM WORDS) OF PARAMETER BLOCK.
00181  M00S00175.ver     +++|*         (IR+3 - IR+4) = ADDRESS OF PARAMETER BLOCK.
00182  M00S00176.ver     +++|
00183  M00S00177.ver     +++|          RJM    **
00184  M00S00178.ver     +++| VERA     EQU    *-1         (FUNCTION PROCESSOR ADDRESS)
00185  M00S00179.ver     +++|
00186  M00S00180.ver     +++| VERX     AOD    PB+4        SET COMPLETION BIT
00187  M00S00181.ver     +++|          RJM    CPA         GET PARAMETER BLOCK ADDRESS
00188  M00S00182.ver     +++|          CWD    PB          WRITE RESPONSE
00189  M00S00183.ver     +++|          MONITOR  DPPM      DROP PP
00190  M00S00184.ver     +++|          LJM    PPR         EXIT TO PP RESIDENT
00191  M00S00185.ver     +++|
00192  M00S00186.ver     +++|
00193  M00S00187.ver     +++|**        RESERVED LOCATIONS.
00194  M00S00188.ver     +++|
00195  M00S00189.ver     +++| CHFL     CON    0           CHANNEL RESERVED FLAG
00196  M00S00190.ver     +++| NEJT     CON    0           NOS/VE EJT ORDINAL
00197  M00S00191.ver     +++| PPCA     CON    0           PP COMMUNICATION AREA ADDRESS
00198  M00S00192.ver     +++|          TITLE  ERROR PROCESSOR.
00199  M00S00193.ver     +++| ERR      SPACE  4,10
00200  M00S00194.ver     +++|**        ERR - ERROR PROCESSOR.
00201  M00S00195.ver     +++|*
00202  M00S00196.ver     +++|*         ENTRY  (A) = FWA OF ERROR MESSAGE FOR DAYFILE.
00203  M00S00197.ver     +++|*
00204  M00S00198.ver     +++|*         EXIT   DAYFILE MESSAGE ISSUED.
00205  M00S00199.ver     +++|*                CONTROL POINT ABORTED.
00206  M00S00200.ver     +++|*
00207  M00S00201.ver     +++|*         CALLS  DFM.
00208  M00S00202.ver     +++|*
00209  M00S00203.ver     +++|*         MACROS MONITOR.
00210  M00S00204.ver     +++|
00211  M00S00205.ver     +++|
00212  M00S00206.ver     +++| ERR      RJM    DFM         ISSUE DAYFILE MESSAGE
00213  M00S00207.ver     +++|          MONITOR  ABTM      ABORT CONTROL POINT
00214  M00S00208.ver     +++|          LJM    PPR         EXIT TO PP RESIDENT
00215  M00S00209.ver     +++|
00216  M00S00210.ver     +++|*         ERROR MESSAGES.
00217  M00S00211.ver     +++|
00218  M00S00212.ver     +++| ERIR     DATA   C* VER - ILLEGAL USER ACCESS.*
00219  M00S00213.ver     +++| ERAE     DATA   C* VER - ARGUMENT ERROR.*
00220  M00S00214.ver     +++| ERMR     DATA   C* VER - FATAL MAINTENANCE REGISTER ERROR.*
00221  M00S00215.ver     +++| EREU     DATA   C* VER - EJT ENTRY UNAVAILABLE.*
00222  M00S00216.ver     +++| EROS     DATA   C* VER - OVERLAY SELECTION ERROR.*
00223  M00S00217.ver     +++|          SPACE  4,10
00224  M00S00218.ver     +++|*         COMMON DECKS.
00225  M00S00219.ver     +++|
00226  M00S00220.ver     +++|
00227  M00S00221.ver     +++|*CALL     COMPMRA
00228  M00S00222.ver     +++|*CALL     COMPRNS
00229  M00S00223.ver     +++|          TITLE  BUFFER DEFINITIONS.
00230  M00S00224.ver     +++|          SPACE  4,35
00231  M00S00225.ver     +++|**        BUFFER DEFINITIONS.
00232  M00S00226.ver     +++|*
00233  M00S00227.ver     +++|*         BUFFERS ARE ALLOCATED AT THE HIGHEST MEMORY LOCATIONS
00234  M00S00228.ver     +++|*         SO THAT THE SAME BUFFER DEFINITIONS MAY BE USED BY BOTH
00235  M00S00229.ver     +++|*         THE MAIN PORTION OF *VER* AND THE *2VR* OVERLAY.  NONE OF
00236  M00S00230.ver     +++|*         THESE BUFFERS MAY BE USED BY PRESET.
00237  M00S00231.ver     +++|*
00238  M00S00232.ver     +++|*         *IBUF*, *PBUF*, AND *RBUF* MUST NOT OVERLAP.
Line S00001 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00239  M01S00001.ver13   +++|*         *MBUF* MUST NOT OVERLAP *IBUF* OR *RBUF*.
00240  M00S00233.ver     +++|*         *CBUF* MUST NOT OVERLAP *RBUF*.
Line S00002 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00002.ver13   +++|*         *MBUF* MAY OVERLAP *CBUF* AND *PBUF*.
00242  M00S00234.ver     +++|*         *CBUF* AND *TCFL* MAY OVERLAP *IBUF* AND *PBUF*.
00243  M00S00235.ver     +++|*
Line S00003 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00003.ver13   +++|*         *MBUF* IS USED ONLY FOR THE *RSCM* AND *RNCM* FUNCTIONS.
00245  M00S00236.ver     +++|*         *PBUF* IS USED ONLY FOR THE *RNPP* AND *RNPT* FUNCTIONS.
00246  M00S00237.ver     +++|*         *PBUF* MUST HAVE TWO RESERVED WORDS PRECEEDING IT FOR DISK
00247  M00S00238.ver     +++|*         LINKAGE BYTES.
00248  M00S00239.ver     +++|
00249  M00S00240.ver     +++|
00250  M00S00241.ver     +++| .CBUFL   MAX    40,CTALL*5  CHANNEL TABLE/CONTROL POINT FL SPACE
00251  M00S00242.ver     +++| .IBUFL   EQU    10          MAINTENANCE REGISTER SPACE
Line S00004 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00252  M01S00004.ver13   +++| .MBUFL   EQU    10          MAINTENANCE REGISTER SPACE
00253  M00S00243.ver     +++| .PBUFL   EQU    1200        PP RESIDENT SPACE
00254  M00S00244.ver     +++| .RBUFL   MAX    10,CTALL*5  MAINTENANCE REGISTER/CHANNEL TABLE SPACE
00255  M00S00245.ver     +++| RBUF     EQU    EPFW-.RBUFL MAINTENANCE REGISTER/CHANNEL TABLE BUFFER
00256  M00S00246.ver     +++| CBUF     EQU    RBUF-.CBUFL CHANNEL TABLE/CONTROL POINT FL BUFFER
00257  M00S00247.ver     +++| IBUF     EQU    RBUF-.IBUFL MAINTENANCE REGISTER BUFFER
Line S00005 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00005.ver13   +++| MBUF     EQU    IBUF-.IBUFL MAINTENANCE REGISTER BUFFER
00259  M00S00248.ver     +++| PBUF     EQU    IBUF-.PBUFL PP RESIDENT INPUT BUFFER
00260  M00S00249.ver     +++|
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00261  M01S00006.271l716 +++|
Line S00250 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00262  M01S00250.271l716 ---|**        TABLE OF CONTROL POINT FIELD LENGTH.
Line S00007 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00007.271l716 +++|**        TCFL - TABLE OF CP/PCP CM FIELD LENGTHS.
00264  M00S00251.ver     +++|*
Line S00252 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00265  M01S00252.271l716 ---|*         ONE WORD PER CONTROL POINT.
Line S00008 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00266  M01S00008.271l716 +++|*         ONE WORD PER CP/PCP.
00267  M00S00253.ver     +++|*
00268  M00S00254.ver     +++|*T        1/R, 11/ FL
Figure

01011 FLR

00269  M00S00255.ver     +++|*         R=1, IF ROLLOUT FLAG SET.
00270  M00S00256.ver     +++|
00271  M00S00257.ver     +++|
00272  M00S00258.ver     +++| TCFL     EQU    CBUF
00273  M00S00259.ver     +++|          TITLE  COMMON SUBROUTINES.
Line S00006 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00274  M01S00006.ver13   +++| CHA      SPACE  4,10
00275  M01S00007.ver13   +++|**        CHA - CHECK CHANNEL ASSIGNMENT.
00276  M01S00008.ver13   +++|*
00277  M01S00009.ver13   +++|*         ENTRY  (T2) = CHANNEL NUMBER.
00278  M01S00010.ver13   +++|*
00279  M01S00011.ver13   +++|*         EXIT   (A) = 0 IF CHANNEL IS ASSIGNED TO NOS/VE.
00280  M01S00012.ver13   +++|*
00281  M01S00013.ver13   +++|*         USES   T4.
00282  M01S00014.ver13   +++|
00283  M01S00015.ver13   +++|
00284  M01S00016.ver13   +++| CHA      SUBR               ENTRY/EXIT
00285  M01S00017.ver13   +++|          LDN    CTALL
00286  M01S00018.ver13   +++|          STD    T4
00287  M01S00019.ver13   +++|          LDC    **          FWA OF CHANNEL EJT ASSIGNMENT TABLE
00288  M01S00020.ver13   +++| CHAA     EQU    *-2
00289  M01S00021.ver13   +++|          CRM    CBUF,T4     READ CHANNEL ASSIGNMENT TABLE
00290  M01S00022.ver13   +++|          LDM    NEJT
00291  M01S00023.ver13   +++|          LMM    CBUF,T2
00292  M01S00024.ver13   +++|          UJN    CHAX        RETURN
00293  M00S00260.ver     +++| CPA      SPACE  4,10
00294  M00S00261.ver     +++|**        CPA - CHECK PARAMETER BLOCK ADDRESS.
00295  M00S00262.ver     +++|*
00296  M00S00263.ver     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00297  M00S00264.ver     +++|*                (PB+3) = WORD COUNT.
00298  M00S00265.ver     +++|*
00299  M00S00266.ver     +++|*         EXIT   (A) = ABSOLUTE ADDRESS OF PARAMETER BLOCK.
00300  M00S00267.ver     +++|*                ABORT IF PARAMETER BLOCK NOT WITHIN FIELD LENGTH.
00301  M00S00268.ver     +++|*
00302  M00S00269.ver     +++|*         MACROS ABORT.
00303  M00S00270.ver     +++|
00304  M00S00271.ver     +++|
00305  M00S00272.ver     +++| CPA2     LDD    IR+3        LOAD ABSOLUTE ADDRESS
00306  M00S00273.ver     +++|          SHN    6
00307  M00S00274.ver     +++|          ADD    RA
00308  M00S00275.ver     +++|          SHN    6
00309  M00S00276.ver     +++|          ADD    IR+4
00310  M00S00277.ver     +++|
00311  M00S00278.ver     +++| CPA      SUBR               ENTRY/EXIT
00312  M00S00279.ver     +++|          LDD    IR+3
00313  M00S00280.ver     +++|          SCN    37
00314  M00S00281.ver     +++|          NJN    CPA1        IF OUT OF RANGE
00315  M00S00282.ver     +++|          LDD    IR+3
00316  M00S00283.ver     +++|          SHN    14
00317  M00S00284.ver     +++|          LMD    IR+4
00318  M00S00285.ver     +++|          ADD    PB+3        ADD LENGTH
00319  M00S00286.ver     +++|          SBN    1
00320  M00S00287.ver     +++|          SHN    -6
00321  M00S00288.ver     +++|          SBD    FL
00322  M00S00289.ver     +++|          MJN    CPA2        IF PARAMETER BLOCK WITHIN FL
00323  M00S00290.ver     +++| CPA1     ABORT  ERAE        * VER - ARGUMENT ERROR.*
00324  M00S00291.ver     +++| IBM      SPACE  4,10
00325  M00S00292.ver     +++|**        IBM - ISSUE BINARY MAINTENANCE LOG MESSAGE.
00326  M00S00293.ver     +++|*
00327  M00S00294.ver     +++|*         ENTRY  (A) = MESSAGE ID.
00328  M00S00295.ver     +++|*                (T1) = SYMPTOM CODE.
00329  M00S00296.ver     +++|*                (CN - CN+4) = DATA WORD.
00330  M00S00297.ver     +++|*
00331  M00S00298.ver     +++|*         USES   CM - CM+4.
00332  M00S00299.ver     +++|*
00333  M00S00300.ver     +++|*         CALLS  DFM.
00334  M00S00301.ver     +++|
00335  M00S00302.ver     +++|
00336  M00S00303.ver     +++| IBM      SUBR               ENTRY/EXIT
00337  M00S00304.ver     +++|          STM    IBMA        SET MESSAGE ID
00338  M00S00305.ver     +++|          LDD    T1          SET SYMPTOM CODE
00339  M00S00306.ver     +++|          STM    IBMA+1
00340  M00S00307.ver     +++|          LDD    MA          MOVE DATA WORD TO BUFFER
00341  M00S00308.ver     +++|          CWD    CN
00342  M00S00309.ver     +++|          CRM    IBMB,ON
00343  M00S00310.ver     +++|          LDN    ZERL
00344  M00S00311.ver     +++|          CRD    CM
00345  M00S00312.ver     +++|          LDN    IBML        SET MESSAGE LENGTH
00346  M00S00313.ver     +++|          STD    CM+1
00347  M00S00314.ver     +++|          LDC    IBMA+BMLN   ISSUE DAYFILE MESSAGE
00348  M00S00315.ver     +++|          RJM    DFM
00349  M00S00316.ver     +++|          UJN    IBMX        RETURN
00350  M00S00317.ver     +++|
00351  M00S00318.ver     +++|*         MESSAGE BUFFER.
00352  M00S00319.ver     +++|
00353  M00S00320.ver     +++| IBMA     VFD    12/0,12/0,36/0  MESSAGE ID, SYMPTOM CODE
00354  M00S00321.ver     +++|          VFD    60/0        RESERVED
00355  M00S00322.ver     +++| IBMB     VFD    60/0        MESSAGE
00356  M00S00323.ver     +++| IBML     EQU    *-IBMA
00357  M00S00324.ver     +++| LPR      SPACE  4,10
00358  M00S00325.ver     +++|**        LPR - LOAD PP RESIDENT.
00359  M00S00326.ver     +++|*
00360  M00S00327.ver     +++|*         EXIT   (PBUF) = COPY OF PP RESIDENT.
00361  M00S00328.ver     +++|*
00362  M00S00329.ver     +++|*         USES   DA, DB, T2, T5, T6, T7, CL, CM - CM+4.
00363  M00S00330.ver     +++|*
00364  M00S00331.ver     +++|*         CALLS  RNS.
00365  M00S00332.ver     +++|*
00366  M00S00333.ver     +++|*         MACROS ENDMS, MONITOR, SETMS.
00367  M00S00334.ver     +++|
00368  M00S00335.ver     +++|
00369  M00S00336.ver     +++| LPR      SUBR               ENTRY/EXIT
00370  M00S00337.ver     +++|          LDC    0L1PR       SET *PPR* NAME
00371  M00S00338.ver     +++|          STD    CM+3
00372  M00S00339.ver     +++|          SHN    -14
00373  M00S00340.ver     +++|          STD    CM+2
00374  M00S00341.ver     +++|          MONITOR  SPLM      SEARCH PERIPHERAL LIBRARY
00375  M00S00342.ver     +++|          LDD    CM+1        SET EST ORDINAL
00376  M00S00343.ver     +++|          LPN    77
00377  M00S00344.ver     +++|          STD    T5
00378  M00S00345.ver     +++|          LDD    CM+2        SET TRACK NUMBER
00379  M00S00346.ver     +++|          STD    T6
00380  M00S00347.ver     +++|          LDD    CM+3        SET SECTOR NUMBER
00381  M00S00348.ver     +++|          STD    T7
00382  M00S00349.ver     +++|          SETMS  IO
00383  M00S00350.ver     +++|          LDC    PBUF-2
00384  M00S00351.ver     +++|          STD    CL
00385  M00S00352.ver     +++| LPR1     LDI    CL          SAVE TWO WORDS
00386  M00S00353.ver     +++|          STD    CL+1
00387  M00S00354.ver     +++|          LDM    1,CL
00388  M00S00355.ver     +++|          STD    CL+2
00389  M00S00356.ver     +++|          LDD    CL
00390  M00S00357.ver     +++|          RJM    RNS         READ NEXT SECTOR
00391  M00S00358.ver     +++|          LDD    CL+1        RESTORE TWO WORDS
00392  M00S00359.ver     +++|          STI    CL
00393  M00S00360.ver     +++|          LDD    CL+2
00394  M00S00361.ver     +++|          STM    1,CL
00395  M00S00362.ver     +++|          LDC    500         ADVANCE BUFFER ADDRESS
00396  M00S00363.ver     +++|          RAD    CL
00397  M00S00364.ver     +++|          LDD    T1
00398  M00S00365.ver     +++|          SHN    -6
00399  M00S00366.ver     +++|          NJN    LPR1        IF NOT END OF *PPR*
00400  M00S00367.ver     +++|          ENDMS
00401  M00S00368.ver     +++|          LJM    LPRX        RETURN
00402  M00S00369.ver     +++| MRER     SPACE  4,10
00403  M00S00370.ver     +++|**        MRER - MAINTENANCE REGISTER ERROR HANDLER.
00404  M00S00371.ver     +++|*
00405  M00S00372.ver     +++|*         ENTRY  FATAL MAINTENANCE REGISTER ERROR.
00406  M00S00373.ver     +++|*                (T7) = CHANNEL NUMBER IF ONE ASSIGNED.
00407  M00S00374.ver     +++|*                (CHFL) .NE. 0 IF CHANNEL ASSIGNED.
00408  M00S00375.ver     +++|*
00409  M00S00376.ver     +++|*         EXIT   TO *ERR* VIA *ABORT* MACRO.
00410  M00S00377.ver     +++|*                CHANNEL DROPPED AND DISCONNECTED.
00411  M00S00378.ver     +++|*
00412  M00S00379.ver     +++|*         MACROS ABORT, DCHAN.
00413  M00S00380.ver     +++|
00414  M00S00381.ver     +++|
00415  M00S00382.ver     +++| MRER     LDM    CHFL        CHECK CHANNEL ASSIGNED FLAG
00416  M00S00383.ver     +++|          ZJN    MRE1        IF CHANNEL NOT ASSIGNED
00417  M00S00384.ver     +++| MREA     DCN    **+40
00418  M00S00385.ver     +++|          LDD    T7
00419  M00S00386.ver     +++|          DCHAN              DROP CHANNEL
00420  M00S00387.ver     +++| MRE1     ABORT  ERMR        * VER - FATAL MAINTENANCE REGISTER ERROR.*
00421  M00S00388.ver     +++| NEC      SPACE  4,10
00422  M00S00389.ver     +++|**        NEC - NORMALIZE EC REGISTER.
00423  M00S00390.ver     +++|*
00424  M00S00391.ver     +++|*         ENTRY  (RBUF - RBUF+7) = EC REGISTER.
00425  M00S00392.ver     +++|*
00426  M00S00393.ver     +++|*         EXIT   (RBUF - RBUF+7) = NORMALIZED EC REGISTER.
00427  M00S00394.ver     +++|*                NORMALIZED EC REGISTER REWRITTEN.
00428  M00S00395.ver     +++|*                BITS 34-39, 43-47, 51-55, 58 = 0.
00429  M00S00396.ver     +++|*                ALL OTHER BITS ARE UNCHANGED.
00430  M00S00397.ver     +++|*
00431  M00S00398.ver     +++|*         MACROS WRITMR.
00432  M00S00399.ver     +++|
00433  M00S00400.ver     +++|
00434  M00S00401.ver     +++| NEC      SUBR               ENTRY/EXIT
00435  M00S00402.ver     +++|          LDM    RBUF+4      CLEAR BITS 34-39
00436  M00S00403.ver     +++| NECA     SCN    37
00437  M00S00404.ver     +++|*         SCN    77          (IF IOU MODEL I2)
00438  M00S00405.ver     +++|          STM    RBUF+4
00439  M00S00406.ver     +++|          LDM    RBUF+5      CLEAR BITS 43-47
00440  M00S00407.ver     +++|          SCN    37
00441  M00S00408.ver     +++|          STM    RBUF+5
00442  M00S00409.ver     +++|          LDM    RBUF+6      CLEAR BITS 51-55
00443  M00S00410.ver     +++|          SCN    37
00444  M00S00411.ver     +++|          STM    RBUF+6
00445  M00S00412.ver     +++|          LDM    RBUF+7      CLEAR BIT 58
00446  M00S00413.ver     +++|          SCN    40
00447  M00S00414.ver     +++|          STM    RBUF+7
00448  M00S00415.ver     +++|          WRITMR RBUF,,DEMR  UPDATE EC REGISTER
00449  M00S00416.ver     +++|          LJM    NECX        RETURN
00450  M00S00417.ver     +++| SDC      SPACE  4,10
00451  M00S00418.ver     +++|**        SDC - SELECT DEADSTART CHANNEL.
00452  M00S00419.ver     +++|*
00453  M00S00420.ver     +++|*         EXIT   (T7) = CHANNEL NUMBER.
00454  M00S00421.ver     +++|*                (CHFL) = CHANNEL FLAG SET.
00455  M00S00422.ver     +++|*
Line S00423 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00423.252l678 ---|*         USES   T1, CM - CM+4.
Line S00001 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00001.252l678 +++|*         USES   T0, T1, CM - CM+4.
00458  M00S00424.ver     +++|*
00459  M00S00425.ver     +++|*         MACROS RCHAN, SFA.
00460  M00S00426.ver     +++|
00461  M00S00427.ver     +++|
00462  M00S00428.ver     +++| SDC      SUBR               ENTRY/EXIT
00463  M00S00429.ver     +++| SDC1     LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00464  M00S00430.ver     +++|          STD    T1
00465  M00S00431.ver     +++| SDC2     AOD    T1          ADVANCE EST ORDINAL
00466  M00S00432.ver     +++|          LMD    LE
00467  M00S00433.ver     +++|          ZJN    SDC1        IF NO CHANNEL FOUND
00468  M00S00434.ver     +++|          SFA    EST,T1      READ EST ENTRY
00469  M00S00435.ver     +++|          ADK    EQDE
00470  M00S00436.ver     +++|          CRD    CM
00471  M00S00437.ver     +++|          LDD    CM
00472  M00S00438.ver     +++|          SHN    21-13
00473  M00S00439.ver     +++|          PJN    SDC2        IF NOT MASS STORAGE DEVICE
00474  M00S00440.ver     +++|          LDD    CM+3        CHECK IF ECS ENTRY
Line S00441 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00441.252l678 ---|          LPC    3777
00476  M00S00442.ver     +++|          LMC    2RDE
00477  M00S00443.ver     +++|          ZJN    SDC2        IF ECS ENTRY
Line S00444 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00478  M01S00444.252l678 ---|          LDD    CM+1        CHECK IF CHANNEL DOWN
00479  M01S00445.252l678 ---|          SHN    21-5
00480  M01S00446.252l678 ---|          PJN    SDC3        IF CHANNEL NOT DOWN
00481  M01S00447.252l678 ---|          LPN    37
00482  M01S00448.252l678 ---|          ZJN    SDC2        IF NO ALTERNATE CHANNEL
00483  M01S00449.252l678 ---|          LDD    CM+1        CHECK IF ALTERNATE CHANNEL DOWN
00484  M01S00450.252l678 ---|          SHN    21-13
00485  M01S00451.252l678 ---|          MJN    SDC2        IF ALTERNATE CHANNEL DOWN
00486  M01S00452.252l678 ---| SDC3     SHN    -14
Line S00002 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00487  M01S00002.252l678 +++|          LDN    CM
00488  M01S00003.252l678 +++|          STD    T0
00489  M01S00004.252l678 +++| SDC3     AOD    T0
00490  M01S00005.252l678 +++|          LMN    CM+3
00491  M01S00006.252l678 +++|          ZJN    SDC2        IF BOTH CHANNELS CHECKED
00492  M01S00007.252l678 +++|          LDI    T0
00493  M01S00008.252l678 +++|          SHN    0-12
00494  M01S00009.252l678 +++|          LMN    2
00495  M01S00010.252l678 +++|          NJN    SDC3        IF CHANNEL NOT PRESENT OR DISABLED
00496  M01S00011.252l678 +++|          LDI    T0
00497  M01S00012.252l678 +++|          SHN    21-5
00498  M01S00013.252l678 +++|          MJN    SDC3        IF CONCURRENT CHANNEL
00499  M01S00014.252l678 +++|          SHN    5-21
00500  M00S00453.ver     +++|          STD    T7
00501  M00S00454.ver     +++|          RCHAN              RESERVE CHANNEL
00502  M00S00455.ver     +++|          AOM    CHFL        SET CHANNEL RESERVED FLAG
00503  M00S00456.ver     +++|          LJM    SDCX        RETURN
00504  M00S00457.ver     +++| SEA      SPACE  4,10
00505  M00S00458.ver     +++|**        SEA - SET *EICB* ADDRESS.
00506  M00S00459.ver     +++|*
00507  M00S00460.ver     +++|*         EXIT   (A) = *EICB* ADDRESS.
00508  M00S00461.ver     +++|
00509  M00S00462.ver     +++|
00510  M00S00463.ver     +++| SEA      SUBR               ENTRY/EXIT
00511  M00S00464.ver     +++| SEAA     LDC    **          (FWA OF *EICB*)
00512  M00S00465.ver     +++|          UJN    SEAX        RETURN
Line S00025 Modification History
M01 (Added by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00025.ver13   +++| VRC      SPACE  4,15
00514  M01S00026.ver13   +++|**        VRC - VE RESERVE CHANNEL.
00515  M01S00027.ver13   +++|*
00516  M01S00028.ver13   +++|*         ENTRY  (T2) = CHANNEL NUMBER.
00517  M01S00029.ver13   +++|*
00518  M01S00030.ver13   +++|*         EXIT   (T4) = 0 IF CHANNEL PREVIOUSLY NOS/VE RESERVED.
00519  M01S00031.ver13   +++|*                (CM+1) = NONZERO VALUE IF CHANNEL ASSIGNED.
00520  M01S00032.ver13   +++|*                NIO CHANNEL DISCONNECTED IF ASSIGNED.
00521  M01S00033.ver13   +++|*
00522  M01S00034.ver13   +++|*         USES   T4, CM - CM+4.
00523  M01S00035.ver13   +++|*
00524  M01S00036.ver13   +++|*         CALLS  CHA.
00525  M01S00037.ver13   +++|*
00526  M01S00038.ver13   +++|*         MACROS MONITOR.
00527  M01S00039.ver13   +++|
00528  M01S00040.ver13   +++|
00529  M01S00041.ver13   +++| VRC1     STD    T4          INDICATE ALREADY NOS/VE RESERVED
00530  M01S00042.ver13   +++|
00531  M01S00043.ver13   +++| VRC      SUBR               ENTRY/EXIT
00532  M01S00044.ver13   +++|          RJM    CHA         CHECK CHANNEL ASSIGNMENT
00533  M01S00045.ver13   +++|          ZJN    VRC1        IF CHANNEL ALREADY NOS/VE RESERVED
00534  M01S00046.ver13   +++|          LDD    T2          SET CHANNEL NUMBER
00535  M01S00047.ver13   +++|          STD    CM+3
00536  M01S00048.ver13   +++|          LDM    NEJT        SET ALTERNATE EJT ORDINAL
00537  M01S00049.ver13   +++|          STD    CM+4
00538  M01S00050.ver13   +++|          LDC    4001        SET DUMMY EST ORDINAL
00539  M01S00051.ver13   +++|          STD    CM+1
00540  M01S00052.ver13   +++|          LDN    ICNS        SET SUBFUNCTION
00541  M01S00053.ver13   +++|          STD    CM+2
00542  M01S00054.ver13   +++|          MONITOR  SEQM      REQUEST CHANNEL
00543  M01S00055.ver13   +++|          LDD    CM+1
00544  M01S00056.ver13   +++|          ZJP    VRCX        IF CHANNEL NOT AVAILABLE
00545  M01S00057.ver13   +++|          LDD    T2
00546  M01S00058.ver13   +++|          LPN    40
00547  M01S00059.ver13   +++|          NJP    VRCX        IF CONCURRENT CHANNEL
00548  M01S00060.ver13   +++|          LDC    DCNI+40     DISCONNECT CHANNEL
00549  M01S00061.ver13   +++|          ADD    T2
00550  M01S00062.ver13   +++|          STM    VRCA
00551  M01S00063.ver13   +++| VRCA     DCN    **+40
00552  M01S00064.ver13   +++|          UJP    VRCX        RETURN
00553  M01S00065.ver13   +++| VTC      SPACE  4,10
00554  M01S00066.ver13   +++|**        VTC - VE RETURN CHANNEL.
00555  M01S00067.ver13   +++|*
00556  M01S00068.ver13   +++|*         ENTRY  (T2) = CHANNEL NUMBER.
00557  M01S00069.ver13   +++|*
00558  M01S00070.ver13   +++|*         EXIT   (A) = 0.
00559  M01S00071.ver13   +++|*                CHANNEL RETURNED.
00560  M01S00072.ver13   +++|*
00561  M01S00073.ver13   +++|*         USES   CM - CM+4.
00562  M01S00074.ver13   +++|*
00563  M01S00075.ver13   +++|*         MACROS MONITOR.
00564  M01S00076.ver13   +++|
00565  M01S00077.ver13   +++|
00566  M01S00078.ver13   +++| VTC      SUBR               ENTRY/EXIT
00567  M01S00079.ver13   +++|          LDD    T2          SET CHANNEL NUMBER
00568  M01S00080.ver13   +++|          STD    CM+3
00569  M01S00081.ver13   +++|          LDM    NEJT        SET ALTERNATE EJT ORDINAL
00570  M01S00082.ver13   +++|          STD    CM+4
00571  M01S00083.ver13   +++|          LDC    4001        SET DUMMY EST ORDINAL
00572  M01S00084.ver13   +++|          STD    CM+1
00573  M01S00085.ver13   +++|          LDN    CCNS        SET SUBFUNCTION
00574  M01S00086.ver13   +++|          STD    CM+2
00575  M01S00087.ver13   +++|          MONITOR  SEQM      RETURN CHANNEL
00576  M01S00088.ver13   +++|*         LDN    0
00577  M01S00089.ver13   +++|          UJN    VTCX        RETURN
00578  M00S00466.ver     +++| OVLA     SPACE  4,10
00579  M00S00467.ver     +++|*         DEFINE ORIGIN FOR OVERLAY *2VR*.
00580  M00S00468.ver     +++|
00581  M00S00469.ver     +++| OVLA     EQU    *+5
00582  M00S00470.ver     +++|          TITLE  FUNCTION PROCESSORS.
00583  M00S00471.ver     +++| RCM      SPACE  4,15
00584  M00S00472.ver     +++|**        FUNCTION 0 - RSCM - RESERVE CM.
00585  M00S00473.ver     +++|*
00586  M00S00474.ver     +++|*         ENTRY  (EIBA - EIBA+1) = *EICB* ADDRESS.
00587  M00S00475.ver     +++|*                (PB LIST ENTRY) = 42/0, 18/CM WORDS/1000B REQUESTED.
00588  M00S00476.ver     +++|*
00589  M00S00477.ver     +++|*         EXIT   WORD *D7CM+1* OF *EICB* AND PB LIST ENTRY+1 =
00590  M00S00478.ver     +++|*                12/0, 24/FWA/1000B, 24/LWA+1/1000B.
00591  M00S00479.ver     +++|*                (PB LIST ENTRY) = 42/0, 18/CM WORDS/1000B REQUESTED
00592  M00S00480.ver     +++|*                ROUNDED UP TO THE NEAREST 2000B BOUNDARY.
00593  M00S00481.ver     +++|*                MACHINE FL ADJUSTED TO REFLECT NEW TOTAL FOR NOS.
00594  M00S00482.ver     +++|*                (PB+4) = ERROR STATUS.
00595  M00S00483.ver     +++|*                BML MESSAGE ISSUED.
00596  M00S00484.ver     +++|*
Line S00485 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00597  M01S00485.ns2633  ---|*         USES   PB+4, T6, T7, CL - CL+4, CM+3 - CM+4.
Line S00001 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00598  M01S00001.ns2633  +++|*         USES   PB+4, T6, T7, CL - CL+4, CM+3 - CM+4, T1 - T1+4.
00599  M00S00486.ver     +++|*
00600  M00S00487.ver     +++|*         CALLS  CMS, CPA, CRZ, GCC, IBM, RST, SBA, SDA.
00601  M00S00488.ver     +++|
00602  M00S00489.ver     +++|
00603  M00S00490.ver     +++| RCM      SUBR               ENTRY/EXIT
00604  M00S00491.ver     +++|          LDD    PB+3        CHECK PARAMETER BLOCK LENGTH
00605  M00S00492.ver     +++|          SBN    2
00606  M00S00493.ver     +++|          PJN    RCM1        IF LENGTH LONG ENOUGH
00607  M00S00494.ver     +++|          LDC    ESIL        SET INSUFFICIENT LENGTH STATUS
00608  M00S00495.ver     +++|          LJM    RCM5        RETURN
00609  M00S00496.ver     +++|
00610  M00S00497.ver     +++| RCM1     RJM    CPA         GET NUMBER OF CM WORDS REQUESTED
00611  M00S00498.ver     +++|          ADN    1
00612  M00S00499.ver     +++|          CRD    CL
00613  M00S00500.ver     +++|          LDD    CL+4        CHECK REQUEST
00614  M00S00501.ver     +++|          LPN    1
00615  M00S00502.ver     +++|          ZJN    RCM1.1      IF REQUEST EVEN
00616  M00S00503.ver     +++|          AOD    CL+4        ROUND UP TO NEAREST 2000B BOUNDARY
00617  M00S00504.ver     +++|          SHN    -14
00618  M00S00505.ver     +++|          RAD    CL+3        ADD CARRY
00619  M00S00506.ver     +++| RCM1.1   LDD    CL+3
00620  M00S00507.ver     +++|          STD    T6
Line S00508 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00621  M01S00508.ns2633  ---|          SHN    14
00622  M01S00509.ns2633  ---|          LMD    CL+4
Line S00002 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00623  M01S00002.ns2633  +++|          LDD    CL+4
00624  M00S00510.ver     +++|          STD    T7
Line S00511 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00625  M01S00511.ns2633  ---|          SHN    -17
00626  M01S00512.ns2633  ---|          NJN    RCM1.2      IF REQUEST .GE. 128 MEGABYTES
00627  M00S00513.ver     +++|          RJM    GCC         GET CURRENT NOS/VE SIZE
Line S00514 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00514.ns2633  ---|          STD    CM+4
00629  M01S00515.ns2633  ---|          SHN    -14
00630  M01S00516.ns2633  ---|          STD    CM+3
00631  M00S00517.ver     +++|          RJM    CRZ         CHECK REQUEST SIZE
Line S00518 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00632  M01S00518.ns2633  ---|          MJN    RCM4        IF ILLEGAL REQUEST
00633  M01S00519.ns2633  ---|          NJN    RCM2        IF REQUEST SATISFIED BY RESERVED BLOCK
Line S00003 Modification History
M01 (Added by) ns2633
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00003.ns2709  ---|          PJN    RCM2        IF REQUEST SATISFIED BY RESERVED BLOCK
Line S00001 Modification History
M01 (Added by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
00635  M01S00001.ns2709  +++|          PJN    RCM2.1      IF REQUEST SATISFIED BY RESERVED BLOCK
00636  M00S00520.ver     +++|          LDC    UEML        CHECK FOR UEM PRESENT
00637  M00S00521.ver     +++|          CRD    T1
00638  M00S00522.ver     +++|          LDD    T1+4
00639  M00S00523.ver     +++|          LPN    2
00640  M00S00524.ver     +++|          ZJN    RCM6        IF UEM NOT PRESENT
Line S00525 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00641  M01S00525.ns2633  ---| RCM1.2   UJN    RCM4        SET NOT AVAILABLE
Line S00004 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00642  M01S00004.ns2633  +++|          UJN    RCM4        SET NOT AVAILABLE
00643  M00S00526.ver     +++|
00644  M00S00527.ver     +++| RCM2     RJM    SBA         SET BOUNDS ADDRESS
Line S00528 Modification History
M01 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
00645  M01S00528.ns2709  ---|          RJM    SDA         SET *EICB* CM ADDRESSES
Line S00002 Modification History
M01 (Added by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00002.ns2709  +++| RCM2.1   RJM    SDA         SET *EICB* CM ADDRESSES
00647  M00S00529.ver     +++|          LDN    0           SET REPLY WORD
00648  M00S00530.ver     +++|          STD    CL
00649  M00S00531.ver     +++|          STD    CL+1
00650  M00S00532.ver     +++|          RJM    CPA         SET REPLY
00651  M00S00533.ver     +++|          ADN    1
00652  M00S00534.ver     +++|          CWD    CL
00653  M00S00535.ver     +++|          ADN    1
00654  M00S00536.ver     +++|          CWD    CN
00655  M00S00537.ver     +++|          LDC    /COMSDFS/HS0110  SET SYMPTOM CODE
00656  M00S00538.ver     +++|          STD    T1
00657  M00S00539.ver     +++|          LDC    /COMSDFS/HM0240  SET MESSAGE ID
00658  M00S00540.ver     +++|          RJM    IBM         ISSUE BML MESSAGE
00659  M00S00541.ver     +++| RCM3     LJM    RCMX        RETURN
00660  M00S00542.ver     +++|
00661  M00S00543.ver     +++| RCM4     LDN    ESCM        SET CM NOT AVAILABLE STATUS
00662  M00S00544.ver     +++| RCM5     STD    PB+4
00663  M00S00545.ver     +++|          UJN    RCM3        RETURN
00664  M00S00546.ver     +++|
00665  M00S00547.ver     +++|*         DYNAMIC CASE. (UEM NOT PRESENT).
00666  M00S00548.ver     +++|
00667  M00S00549.ver     +++|*         DETERMINE IF BLOCK IS ALREADY COMPLETELY USED.
00668  M00S00550.ver     +++|*         COMPARE CURRENT NOS/VE MEMORY TO RESERVED BLOCK SIZE.
00669  M00S00551.ver     +++|
Line S00552 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00670  M01S00552.ns2633  ---| RCM6     LDD    CN+3
00671  M01S00553.ns2633  ---|          SBD    CM+3
00672  M01S00554.ns2633  ---|          MJN    RCM7        IF ALREADY USING MORE THAN BLOCK
00673  M01S00555.ns2633  ---|          SHN    14
00674  M01S00556.ns2633  ---|          LMD    CN+4
Line S00005 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00675  M01S00005.ns2633  +++| RCM6     LDD    CM+3
00676  M01S00006.ns2633  +++|          STD    T1
00677  M01S00007.ns2633  +++|          LDD    CN+4
00678  M00S00557.ver     +++|          SBD    CM+4
Line S00008 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00008.ns2633  +++|          PJN    RCM6.1      IF NO BORROW
00680  M01S00009.ns2633  +++|          AOD    T1          ADJUST FOR BORROW
00681  M01S00010.ns2633  +++| RCM6.1   LDD    CN+3
00682  M01S00011.ns2633  +++|          SBD    T1
00683  M00S00558.ver     +++|          MJN    RCM7        IF ALREADY USING MORE THAN BLOCK
00684  M00S00559.ver     +++|
00685  M00S00560.ver     +++|*         SET AMOUNT TO REQUEST DYNAMICALLY.
00686  M00S00561.ver     +++|*         (REQUEST + CURRENT SIZE - BLOCK SIZE).
00687  M00S00562.ver     +++|
Line S00563 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00688  M01S00563.ns2633  ---|          LDD    CL+3
00689  M01S00564.ns2633  ---|          ADD    CM+3
00690  M01S00565.ns2633  ---|          SBD    CN+3
00691  M01S00566.ns2633  ---|          SHN    14
00692  M01S00567.ns2633  ---|          LMD    CL+4
Line S00012 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00693  M01S00012.ns2633  +++|          LDD    CN+3
00694  M01S00013.ns2633  +++|          STD    T1
00695  M01S00014.ns2633  +++|          LDD    CL+4
00696  M00S00568.ver     +++|          ADD    CM+4
00697  M00S00569.ver     +++|          SBD    CN+4
00698  M00S00570.ver     +++|          STD    T7
Line S00571 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00699  M01S00571.ns2633  ---|          SHN    -14
Line S00015 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00700  M01S00015.ns2633  +++|          PJN    RCM6.2      IF NO BORROW
00701  M01S00016.ns2633  +++|          AOD    T1          ADJUST FOR BORROW
00702  M01S00017.ns2633  +++|          AOD    T7
00703  M01S00018.ns2633  +++|          LDN    0
00704  M01S00019.ns2633  +++| RCM6.2   SHN    -14
00705  M01S00020.ns2633  +++|          ADD    CL+3
00706  M01S00021.ns2633  +++|          ADD    CM+3
00707  M01S00022.ns2633  +++|          SBD    T1
00708  M00S00572.ver     +++|          STD    T6
00709  M00S00573.ver     +++| RCM7     RJM    CMS         CHECK MEMORY SIZE
00710  M00S00574.ver     +++|          MJN    RCM4        IF NOT ENOUGH LEFT
00711  M00S00575.ver     +++|          LDD    T6          SAVE TOTAL REQUEST
00712  M00S00576.ver     +++|          STM    RCMA
00713  M00S00577.ver     +++|          LDD    T7
00714  M00S00578.ver     +++|          STM    RCMA+1
00715  M00S00579.ver     +++|          LDN    0           SET REQUEST FUNCTION
00716  M00S00580.ver     +++|          RJM    RST         REQUEST MEMORY
00717  M00S00581.ver     +++|          NJN    RCM8        IF TOTAL REQUEST NOT AVAILABLE
00718  M00S00582.ver     +++|          LJM    RCM2        SET *EICB* AND REPLY
00719  M00S00583.ver     +++|
00720  M00S00584.ver     +++|*         RETURN MEMORY ALREADY ASSIGNED.
00721  M00S00585.ver     +++|
00722  M00S00586.ver     +++| RCM8     STD    T7
00723  M00S00587.ver     +++|          SHN    -14
00724  M00S00588.ver     +++|          STD    T6
00725  M00S00589.ver     +++|          LDM    RCMA
00726  M00S00590.ver     +++|          SBD    T6
00727  M00S00591.ver     +++|          SHN    14
00728  M00S00592.ver     +++|          LMM    RCMA+1
00729  M00S00593.ver     +++|          SBD    T7
00730  M00S00594.ver     +++|          STD    T7
00731  M00S00595.ver     +++|          SHN    -14
00732  M00S00596.ver     +++|          STD    T6
Line S00597 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00733  M01S00597.271l716 ---|          LDC    4000        RETURN MEMORY
Line S00009 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00734  M01S00009.271l716 +++|          LDD    HN          RETURN MEMORY
00735  M00S00598.ver     +++|          RJM    RST
00736  M00S00599.ver     +++|          LJM    RCM4        SET NOT AVAILABLE STATUS
00737  M00S00600.ver     +++|
00738  M00S00601.ver     +++| RCMA     CON    0,0         TOTAL DYNAMIC MEMORY REQUEST
00739  M00S00602.ver     +++| RPP      SPACE  4,15
00740  M00S00603.ver     +++|**        FUNCTION 1 - RSPP - RESERVE PP-S.
00741  M00S00604.ver     +++|*
00742  M00S00605.ver     +++|*         ON 20 PP 810/830 CONFIGURATIONS, PP-S MUST BE ASSIGNED
00743  M00S00606.ver     +++|*         TO NOS/VE IN PARTNER PAIRS.  IF NOS/VE REQUESTS AN ODD
00744  M00S00607.ver     +++|*         NUMBER OF PP-S OR RETURNS ONE MEMBER OF A PARTNER PAIR,
00745  M00S00608.ver     +++|*         THE EXTRA PP MUST NOT BE USED BY NOS, BUT NOS/VE MUST
00746  M00S00609.ver     +++|*         NOT KNOW ABOUT IT EITHER.  THESE PP-S ARE CALLED PSEUDO-
00747  M00S00610.ver     +++|*         ASSIGNED.  AS FAR AS NOS IS CONCERNED, THEY ARE IN AN
00748  M00S00611.ver     +++|*         IDENTICAL STATUS AS OTHERS ASSIGNED TO NOS/VE.  THEIR
00749  M00S00612.ver     +++|*         INPUT REGISTERS CONTAIN *VP AND THEY ARE IDLE AND MARKED
00750  M00S00613.ver     +++|*         AS UPPER PP-S IN THE OS BOUNDS REGISTER.  THE ONLY
00751  M00S00614.ver     +++|*         DISTINCTION IS THAT BYTE 4 OF THE INPUT REGISTER IS ZERO
00752  M00S00615.ver     +++|*         FOR PP-S THAT ARE ACTUALLY ASSIGNED, AND NON-ZERO FOR
00753  M00S00616.ver     +++|*         THOSE THAT ARE PSEUDO-ASSIGNED.  IN ORDER TO ASSIGN THEM
00754  M00S00617.ver     +++|*         TO NOS/VE ALL THAT MUST BE DONE IS TO CLEAR BYTE 4 OF THE
00755  M00S00618.ver     +++|*         INPUT REGISTER AND ENTER THE PP NUMBER IN THE REPLY BLOCK
00756  M00S00619.ver     +++|*         FOR A REQUEST PP FUNCTION.
00757  M00S00620.ver     +++|*
00758  M00S00621.ver     +++|*         EXIT   (PB LIST ENTRY) = 6/PP NUMBER, 54/0.
00759  M00S00622.ver     +++|*                                = 6/77B, 42/0, 12/ERROR CODE
00760  M00S00623.ver     +++|*                                  IF PP UNAVAILABLE.
00761  M00S00624.ver     +++|*                (PB+4) = ERROR STATUS.
00762  M00S00625.ver     +++|*                BML MESSAGE ISSUED.
00763  M00S00626.ver     +++|*
00764  M00S00627.ver     +++|*         USES   DA, DB, DC, EC, LO, PB+4, T3, T6, CL - CL+4,
00765  M00S00628.ver     +++|*                CM - CM+4, CN - CN+4.
00766  M00S00629.ver     +++|*
00767  M00S00630.ver     +++|*         CALLS  ARC, CPA, GCP, IBM, IPP, SPB.
00768  M00S00631.ver     +++|*
00769  M00S00632.ver     +++|*         MACROS DELAY, EXECUTE, MONITOR, PAUSE.
00770  M00S00633.ver     +++|
00771  M00S00634.ver     +++|
00772  M00S00635.ver     +++| RPP      SUBR               ENTRY/EXIT
00773  M00S00636.ver     +++|          LDN    ZERL        INITIALIZE RESPONSE LIST ENTRY
00774  M00S00637.ver     +++|          CRD    CL
00775  M00S00638.ver     +++|          LDN    1           INITIALIZE LIST OFFSET
00776  M00S00639.ver     +++|          STD    LO
00777  M00S00640.ver     +++|          LDD    PB+3        GET NUMBER REQUESTED
00778  M00S00641.ver     +++|          ZJN    RPPX        IF NONE REQUESTED
00779  M00S00642.ver     +++|          STD    T6
00780  M00S00643.ver     +++|          RJM    GCP         GET CURRENT STATUS OF PP-S
00781  M00S00644.ver     +++|          RJM    ARC         ADJUST REQUEST COUNT
00782  M00S00645.ver     +++|          LDD    T6
00783  M00S00646.ver     +++|          ZJN    RPPX        IF REQUEST SATISFIED
00784  M00S00647.ver     +++|          LDD    CM+2        TOTAL PP-S IN SYSTEM
00785  M00S00648.ver     +++|          SBD    T6
00786  M00S00649.ver     +++|          SBD    T5
00787  M00S00650.ver     +++|          SBN    MINP
00788  M00S00651.ver     +++|          PJN    RPP1        IF ENOUGH LEFT FOR NOS
00789  M00S00652.ver     +++|          RAD    T6          SET NUMBER OF PP-S AVAILABLE TO NOS/VE
00790  M00S00653.ver     +++|          MJN    RPP0        IF NONE AVAILABLE
00791  M00S00654.ver     +++|          NJN    RPP1        IF NOS/VE DOES NOT ALREADY HAVE MAXIMUM
00792  M00S00655.ver     +++| RPP0     UJN    RPP2.2      SET PP NOT AVAILABLE STATUS
00793  M00S00656.ver     +++|
00794  M00S00657.ver     +++|*         REQUEST PP FOR *1VP*.
00795  M00S00658.ver     +++|
00796  M00S00659.ver     +++| RPP1     LDD    MA          SET INPUT REGISTER
00797  M00S00660.ver     +++|          CWM    RPPA,ON
00798  M00S00661.ver     +++|          EXECUTE  1VP,=
00799  M00S00662.ver     +++|          LDN    5           INITIALIZE ATTEMPT COUNT
00800  M00S00663.ver     +++|          STD    DC
00801  M00S00664.ver     +++| RPP2     LDN    ZERL
00802  M00S00665.ver     +++|          CRD    CM
00803  M00S00666.ver     +++|          LDD    CF
00804  M00S00667.ver     +++|          ZJN    RPP2.1      IF NOT 810/830 WITH 20 PP-S
00805  M00S00668.ver     +++|          LDN    4           SET PARTNER PAIR FLAG
00806  M00S00669.ver     +++| RPP2.1   LMN    1           SET PRIORITY REQUEST
00807  M00S00670.ver     +++|          STD    CM+1
00808  M00S00671.ver     +++|          MONITOR  RPPM      REQUEST PP
00809  M00S00672.ver     +++|          LDD    CM+1
00810  M00S00673.ver     +++|          NJN    RPP3        IF PP AVAILABLE
00811  M00S00674.ver     +++|          PAUSE  NE
00812  M00S00675.ver     +++|          DELAY
00813  M00S00676.ver     +++|          SOD    DC          DECREMENT ATTEMPT COUNT
00814  M00S00677.ver     +++|          NJN    RPP2        IF ANOTHER ATTEMPT TO BE MADE
00815  M00S00678.ver     +++| RPP2.2   LJM    RPP6        SET PP NOT AVAILABLE STATUS
00816  M00S00679.ver     +++|
00817  M00S00680.ver     +++| RPP3     STD    T3          SAVE INPUT REGISTER ADDRESS
00818  M00S00681.ver     +++|          LDD    CM+2        SAVE SECOND INPUT REGISTER ADDRESS
00819  M00S00682.ver     +++|          STD    DA
00820  M00S00683.ver     +++| RPP4     LDD    T3          GET INPUT REGISTER OF *1VP*
00821  M00S00684.ver     +++|          CRD    CM
00822  M00S00685.ver     +++|          LDD    CM
00823  M00S00686.ver     +++|          LMC    2R*V
00824  M00S00687.ver     +++|          ZJN    RPP4.0      IF *1VP* READY
00825  M00S00688.ver     +++|          PAUSE  NE
00826  M00S00689.ver     +++|          DELAY
00827  M00S00690.ver     +++|          UJN    RPP4        RECHECK CALL
00828  M00S00691.ver     +++|
00829  M00S00692.ver     +++|RPP4.0    RJM    IPP         IDLE PP
00830  M00S00693.ver     +++|          MJN    RPP4.1      IF PP NOT IDLED
00831  M00S00694.ver     +++|          LDD    T5
00832  M00S00695.ver     +++|          RJM    SPB         SET UPPER PP BIT
00833  M00S00696.ver     +++|          LDC    /COMSDFS/HS0112  SET SYMPTOM CODE
00834  M00S00697.ver     +++|          STD    T1
00835  M00S00698.ver     +++|          LDN    ZERL        CLEAR DATA WORD
00836  M00S00699.ver     +++|          CRD    CN
00837  M00S00700.ver     +++|          LDD    T5          SET PP NUMBER
00838  M00S00701.ver     +++|          STD    CN+4
00839  M00S00702.ver     +++|          LDC    /COMSDFS/HM0240  SET MESSAGE ID
00840  M00S00703.ver     +++|          RJM    IBM         ISSUE BML MESSAGE
00841  M00S00704.ver     +++|          LDD    DB
00842  M00S00705.ver     +++|          NJN    RPP4.2      IF PSEUDO-ASSIGNMENT
00843  M00S00706.ver     +++|          LDD    T5          SET PP NUMBER
00844  M00S00707.ver     +++|          SHN    6
00845  M00S00708.ver     +++|          STD    CL
00846  M00S00709.ver     +++|          RJM    CPA         WRITE PARAMETER LIST ENTRY
00847  M00S00710.ver     +++|          ADD    LO
00848  M00S00711.ver     +++|          CWD    CL
00849  M00S00712.ver     +++|          AOD    LO          INCREMENT LIST OFFSET
00850  M00S00713.ver     +++| RPP4.1   UJN    RPP5        CHECK IF REQUEST SATISFIED
00851  M00S00714.ver     +++|
00852  M00S00715.ver     +++| RPP4.2   LDN    0           CLEAR PSEUDO-ASSIGNMENT NEEDED
00853  M00S00716.ver     +++|          STD    DB
00854  M00S00717.ver     +++|          LDD    T3          SET PSEUDO-ASSIGNED STATUS IN *IR*
00855  M00S00718.ver     +++|          CRD    CM
00856  M00S00719.ver     +++|          AOD    CM+4
00857  M00S00720.ver     +++|          LDD    T3
00858  M00S00721.ver     +++|          CWD    CM
00859  M00S00722.ver     +++| RPP5     SOD    T6
00860  M00S00723.ver     +++|          ZJN    RPP6        IF REQUEST SATISFIED
00861  M00S00724.ver     +++|          LDD    DA
00862  M00S00725.ver     +++|          STD    T3
00863  M00S00726.ver     +++|          ZJP    RPP1        IF NO SECOND PP ASSIGNED
00864  M00S00727.ver     +++|          LDN    0           CLEAR SECOND PP ASSIGNED
00865  M00S00728.ver     +++|          STD    DA
00866  M00S00729.ver     +++|          UJP    RPP4        PROCESS SECOND PP
00867  M00S00730.ver     +++|
00868  M00S00731.ver     +++|*         SET ERROR STATUS IN ALL REMAINING LIST ENTRIES.
00869  M00S00732.ver     +++|
00870  M00S00733.ver     +++| RPP6     LDD    LO
00871  M00S00734.ver     +++| RPP7     SBD    PB+3
00872  M00S00735.ver     +++|          SBN    1
00873  M00S00736.ver     +++|          PJN    RPP8        IF END OF PARAMETER BLOCK LIST
00874  M00S00737.ver     +++|          LDN    ESPP        SET PP NOT AVAILABLE STATUS
00875  M00S00738.ver     +++|          STD    PB+4
00876  M00S00739.ver     +++|          STD    CL+4
00877  M00S00740.ver     +++|          LDC    7700        SET ERROR RESPONSE
00878  M00S00741.ver     +++|          STD    CL
00879  M00S00742.ver     +++|          RJM    CPA         WRITE PARAMETER LIST ENTRY
00880  M00S00743.ver     +++|          ADD    LO
00881  M00S00744.ver     +++|          CWD    CL
00882  M00S00745.ver     +++|          AOD    LO          INCREMENT LIST OFFSET
00883  M00S00746.ver     +++|          UJN    RPP7        CHECK FOR ANOTHER ENTRY
00884  M00S00747.ver     +++|
00885  M00S00748.ver     +++| RPP8     LJM    RPPX        RETURN
00886  M00S00749.ver     +++|
00887  M00S00750.ver     +++| RPPA     VFD    18/0L1VP,42/0  *1VP* INPUT REGISTER
00888  M00S00751.ver     +++| RCL      SPACE  4,10
00889  M00S00752.ver     +++|**        FUNCTION 2 - RSCH - RESERVE CHANNELS.
00890  M00S00753.ver     +++|*
00891  M00S00754.ver     +++|*         ENTRY  (PB LIST ENTRY) = 6/CH, 54/0.
00892  M00S00755.ver     +++|*
00893  M00S00756.ver     +++|*         EXIT   (PB+4) = ERROR STATUS.
00894  M00S00757.ver     +++|*                (PB LIST ENTRY) = 48/UNCHANGED, 12/ERROR CODE.
00895  M00S00758.ver     +++|*
00896  M00S00759.ver     +++|*         USES   LO, T2, CL - CL+4.
00897  M00S00760.ver     +++|*
00898  M00S00761.ver     +++|*         CALLS  CPA, DCA.
00899  M00S00762.ver     +++|
00900  M00S00763.ver     +++|
00901  M00S00764.ver     +++| RCL7     LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
00902  M00S00765.ver     +++|          STD    PB+4
00903  M00S00766.ver     +++|
00904  M00S00767.ver     +++| RCL      SUBR               ENTRY/EXIT
00905  M00S00768.ver     +++|          LDD    PB+3        CHECK BLOCK LENGTH
00906  M00S00769.ver     +++|          ZJN    RCLX        IF NONE REQUESTED
00907  M00S00770.ver     +++|          SBN    NCTAL*5+1
00908  M00S00771.ver     +++|          PJN    RCL7        IF TOO MANY CHANNELS REQUESTED
00909  M00S00772.ver     +++|          LDN    NCTAL
00910  M00S00773.ver     +++|          STD    T2
00911  M00S00774.ver     +++|          LDC    **          FWA CHANNEL STATUS TABLE
00912  M00S00775.ver     +++| RCLA     EQU    *-2
00913  M00S00776.ver     +++|          CRM    RBUF,T2
00914  M00S00777.ver     +++|          LDN    1           INITIALIZE LIST OFFSET
00915  M00S00778.ver     +++|          STD    LO
00916  M00S00779.ver     +++| RCL1     RJM    CPA         READ NEXT CHANNEL NUMBER
00917  M00S00780.ver     +++|          ADD    LO
00918  M00S00781.ver     +++|          CRD    CL
00919  M00S00782.ver     +++|          LDN    0           CLEAR ERROR FLAG
00920  M00S00783.ver     +++|          STD    CL+4
00921  M00S00784.ver     +++|          LDD    CL
00922  M00S00785.ver     +++|          SHN    -6
00923  M00S00786.ver     +++|          STD    T2
00924  M00S00787.ver     +++|          SBN    MXNC+1
00925  M00S00788.ver     +++|          MJN    RCL2        IF VALID CHANNEL NUMBER
00926  M00S00789.ver     +++|          LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
00927  M00S00790.ver     +++|          UJN    RCL3        WRITE PARAMETER LIST ENTRY
00928  M00S00791.ver     +++|
00929  M00S00792.ver     +++| RCL2     RJM    DCA         DETERMINE CHANNEL AVAILABILITY
00930  M00S00793.ver     +++|          ZJN    RCL4        IF CHANNEL WAS PREVIOUSLY NOS/VE RESERVED
00931  M00S00794.ver     +++|          LDD    CM+1
00932  M00S00795.ver     +++|          NJN    RCL4        IF CHANNEL ASSIGNED
00933  M00S00796.ver     +++|          LDN    ESCH        SET CHANNEL NOT AVAILABLE STATUS
00934  M00S00797.ver     +++| RCL3     STD    PB+4
00935  M00S00798.ver     +++|          STD    CL+4
00936  M00S00799.ver     +++| RCL4     RJM    CPA         WRITE PARAMETER LIST ENTRY
00937  M00S00800.ver     +++|          ADD    LO
00938  M00S00801.ver     +++|          CWD    CL
00939  M00S00802.ver     +++|          LDD    CL+4
00940  M00S00803.ver     +++|          LMD    TH          CHECK IF *ESIR*
00941  M00S00804.ver     +++|          NJN    RCL6        IF LEGAL REQUEST
00942  M00S00805.ver     +++| RCL5     LJM    RCLX        RETURN
00943  M00S00806.ver     +++|
00944  M00S00807.ver     +++| RCL6     AOD    LO          INCREMENT LIST OFFSET
00945  M00S00808.ver     +++|          SBD    PB+3
00946  M00S00809.ver     +++|          SBN    1
00947  M00S00810.ver     +++|          PJN    RCL5        IF END OF LIST
00948  M00S00811.ver     +++|          LJM    RCL1        PROCESS NEXT LIST ENTRY
Line S00812 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00812.ver13   ---| REQ      SPACE  4,20
00950  M01S00813.ver13   ---|**        FUNCTION 3 - RSEQ - RESERVE EQUIPMENT.
00951  M01S00814.ver13   ---|*
00952  M01S00815.ver13   ---|*         ENTRY  (PB LIST ENTRY) = 6/CH, 6/EQ, 6/UN, 42/0.
00953  M01S00816.ver13   ---|*                                = 60/0.
00954  M01S00817.ver13   ---|*
00955  M01S00818.ver13   ---|*         EXIT   (PB+4) = ERROR STATUS.
00956  M01S00819.ver13   ---|*                (PB LIST ENTRY) = 48/UNCHANGED, 12/ERROR CODE.
00957  M01S00820.ver13   ---|*                                = 24/0, 12/EQ/UN TYPE, 15/0,
00958  M01S00821.ver13   ---|*                                  9/EST ORDINAL.
00959  M01S00822.ver13   ---|*
00960  M01S00823.ver13   ---|*         USES   DA, LO, T2, CL - CL+4, CM - CM+4.
00961  M01S00824.ver13   ---|*
00962  M01S00825.ver13   ---|*         CALLS  CPA, CUA, DVC, SEE, VET, VRC, VTC.
00963  M01S00826.ver13   ---|*
00964  M01S00827.ver13   ---|*         MACROS MONITOR.
00965  M01S00828.ver13   ---|
00966  M01S00829.ver13   ---|
00967  M01S00830.ver13   ---| REQ17    LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
00968  M01S00831.ver13   ---|          STD    PB+4
00969  M01S00832.ver13   ---|
00970  M01S00833.ver13   ---| REQ      SUBR               ENTRY/EXIT
00971  M01S00834.ver13   ---|          LDD    PB+3        CHECK BLOCK LENGTH
00972  M01S00835.ver13   ---|          ZJN    REQX        IF NONE REQUESTED
00973  M01S00836.ver13   ---|          SBN    2
00974  M01S00837.ver13   ---|          MJN    REQ17       IF BLOCK TOO SHORT
00975  M01S00838.ver13   ---|          LDD    PB+3
00976  M01S00839.ver13   ---|          SHN    -1
00977  M01S00840.ver13   ---|          SBD    LE
00978  M01S00841.ver13   ---|          PJN    REQ17       IF BLOCK LONGER THAN 2 * EST LENGTH
00979  M01S00842.ver13   ---|          LDD    PB+3
00980  M01S00843.ver13   ---|          LPN    1
00981  M01S00844.ver13   ---|          NJN    REQ17       IF BLOCK LENGTH NOT EVEN NUMBER OF WORDS
00982  M01S00845.ver13   ---|          LDN    1           INITIALIZE LIST OFFSET
00983  M01S00846.ver13   ---|          STD    LO
00984  M01S00847.ver13   ---| REQ1     RJM    CPA         READ NEXT LIST ENTRY
00985  M01S00848.ver13   ---|          ADD    LO
00986  M01S00849.ver13   ---|          CRD    CL
00987  M01S00850.ver13   ---|          RJM    SEE         SEARCH EST FOR EQUIPMENT
00988  M01S00851.ver13   ---|          PJN    REQ3        IF EST ENTRY FOUND
00989  M01S00852.ver13   ---|          LDN    ESNE        SET EST ENTRY NOT FOUND STATUS
00990  M01S00853.ver13   ---| REQ2     LJM    REQ13       WRITE RESPONSE
00991  M01S00854.ver13   ---|
00992  M01S00855.ver13   ---| REQ3     RJM    VET         VALIDATE EQUIPMENT TRANSFERABILITY
00993  M01S00856.ver13   ---|          ZJN    REQ6        IF EQUIPMENT TRANSFERABLE
00994  M01S00857.ver13   ---|          PJN    REQ2        IF NOT DOWN
00995  M01S00858.ver13   ---|          LDD    CL
00996  M01S00859.ver13   ---|          SHN    -6
00997  M01S00860.ver13   ---|          STD    T2
00998  M01S00861.ver13   ---|          RJM    VRC         INSURE CHANNEL IS RESERVED
00999  M01S00862.ver13   ---|          LDD    T4
01000  M01S00863.ver13   ---|          ZJN    REQ4        IF CHANNEL ALREADY ASSIGNED
01001  M01S00864.ver13   ---|          LDD    CM+1
01002  M01S00865.ver13   ---|          ZJN    REQ7        SET CHANNEL NOT AVAILABLE STATUS
01003  M01S00866.ver13   ---| REQ4     RJM    CUA         CHECK IF MASS STORAGE UNIT ASSIGNED
01004  M01S00867.ver13   ---|          ZJN    REQ5        IF NOT ASSIGNED
01005  M01S00868.ver13   ---|          LDN    ESAA
01006  M01S00869.ver13   ---|          UJN    REQ2        WRITE RESPONSE
01007  M01S00870.ver13   ---|
01008  M01S00871.ver13   ---| REQ5     LJM    REQ12       SET UNIT ASSIGNED BIT IN MST
01009  M01S00872.ver13   ---|
01010  M01S00873.ver13   ---|*         ENSURE CHANNEL IS RESERVED BY NOS/VE.
01011  M01S00874.ver13   ---|
01012  M01S00875.ver13   ---| REQ6     STD    DA          CLEAR CHANNEL JUST RESERVED FLAG
01013  M01S00876.ver13   ---|          LDD    CL          GET CHANNEL NUMBER
01014  M01S00877.ver13   ---|          SHN    -6
01015  M01S00878.ver13   ---|          STD    T2
01016  M01S00879.ver13   ---|          RJM    VRC         VE RESERVE CHANNEL
01017  M01S00880.ver13   ---|          LDD    T4
01018  M01S00881.ver13   ---|          ZJN    REQ9        IF CHANNEL WAS PREVIOUSLY ASSIGNED
01019  M01S00882.ver13   ---|          LDD    CM+1
01020  M01S00883.ver13   ---|          NJN    REQ8        IF CHANNEL ASSIGNED
01021  M01S00884.ver13   ---| REQ7     LDN    ESCH        SET CHANNEL NOT AVAILABLE STATUS
01022  M01S00885.ver13   ---|          UJN    REQ11       WRITE RESPONSE
01023  M01S00886.ver13   ---|
01024  M01S00887.ver13   ---|*         RESERVE EQUIPMENT FOR NOS/VE.
01025  M01S00888.ver13   ---|
01026  M01S00889.ver13   ---| REQ8     LDN    1           SET CHANNEL JUST ASSIGNED FLAG
01027  M01S00890.ver13   ---|          STD    DA
01028  M01S00891.ver13   ---| REQ9     LDD    T7          SET EST ORDINAL
01029  M01S00892.ver13   ---|          LMC    4000        SET ALTERNATE EJT FLAG
01030  M01S00893.ver13   ---|          STD    CM+1
01031  M01S00894.ver13   ---|          LDK    RDES        REQUEST DOWNED EQUIPMENT
01032  M01S00895.ver13   ---|          STD    CM+2
01033  M01S00896.ver13   ---|          LDM    NEJT        SET EJT ORDINAL
01034  M01S00897.ver13   ---|          STD    CM+3
01035  M01S00898.ver13   ---|          MONITOR  REQM      REQUEST EQUIPMENT
01036  M01S00899.ver13   ---|          LDD    CM+1
01037  M01S00900.ver13   ---|          NJN    REQ12       IF EQUIPMENT ASSIGNED
01038  M01S00901.ver13   ---|          LDD    DA
01039  M01S00902.ver13   ---|          ZJN    REQ10       IF CHANNEL NOT JUST ASSIGNED
01040  M01S00903.ver13   ---|          RJM    VTC         VE RETURN CHANNEL
01041  M01S00904.ver13   ---| REQ10    LDN    ESEQ        SET EQUIPMENT NOT AVAILABLE STATUS
01042  M01S00905.ver13   ---| REQ11    UJN    REQ13       WRITE RESPONSE
01043  M01S00906.ver13   ---|
01044  M01S00907.ver13   ---|*         IF EQUIPMENT IS MASS STORAGE DEVICE, SET BIT CORRESPONDING
01045  M01S00908.ver13   ---|*         TO *DDLL* UNIT LIST POSITION IN MST BIT MAP.
01046  M01S00909.ver13   ---|
01047  M01S00910.ver13   ---| REQ12    BSS    0
01048  M01S00911.ver13   ---|*         RJM    CCL         CHECK CONTROLWARE LOAD
01049  M01S00912.ver13   ---|          LDD    CN
01050  M01S00913.ver13   ---|          SHN    0-13
01051  M01S00914.ver13   ---|          ZJN    REQ14       IF NOT MASS STORAGE DEVICE
01052  M01S00915.ver13   ---|          LDD    CN+4        READ BIT MAP
01053  M01S00916.ver13   ---|          SHN    3
01054  M01S00917.ver13   ---|          ADN    NVGL
01055  M01S00918.ver13   ---|          CRD    CM
01056  M01S00919.ver13   ---|          ERRNZ  SHNI-1000   CANNOT USE DIRECT CELL *TH*
01057  M01S00920.ver13   ---|          LDD    TH          SET SHIFT COUNT
01058  M01S00921.ver13   ---|          ADD    DC
01059  M01S00922.ver13   ---|          STM    REQA
01060  M01S00923.ver13   ---|          LDN    1
01061  M01S00924.ver13   ---| REQA     SHN    **
01062  M01S00925.ver13   ---|          RAD    CM+4        SET BIT
01063  M01S00926.ver13   ---|          LDD    CN+4        UPDATE BIT MAP
01064  M01S00927.ver13   ---|          SHN    3
01065  M01S00928.ver13   ---|          ADN    NVGL
01066  M01S00929.ver13   ---|          CWD    CM
01067  M01S00930.ver13   ---|          LDN    0           SET NO ERROR STATUS
01068  M01S00931.ver13   ---|
01069  M01S00932.ver13   ---|*         WRITE TWO WORD RESPONSE.
01070  M01S00933.ver13   ---|
01071  M01S00934.ver13   ---| REQ13    STD    PB+4        SET ERROR STATUS
01072  M01S00935.ver13   ---| REQ14    STD    CL+4
01073  M01S00936.ver13   ---|          RJM    CPA         WRITE FIRST WORD OF RESPONSE
01074  M01S00937.ver13   ---|          ADD    LO
01075  M01S00938.ver13   ---|          CWD    CL
01076  M01S00939.ver13   ---|          AOD    LO          INCREMENT LIST OFFSET
01077  M01S00940.ver13   ---|          LDD    CL+4
01078  M01S00941.ver13   ---|          LPC    7677
01079  M01S00942.ver13   ---|          NJN    REQ15       IF ERROR STATUS SET
01080  M01S00943.ver13   ---|          LDN    ZERL        CLEAR SECOND WORD
01081  M01S00944.ver13   ---|          CRD    CL
01082  M01S00945.ver13   ---|          RJM    DVC         GET DEVICE CODE
01083  M01S00946.ver13   ---|          STD    CL+2        SET *EQ/UN* TYPE
01084  M01S00947.ver13   ---|          LDD    T7          SET EST ORDINAL
01085  M01S00948.ver13   ---|          STD    CL+4
01086  M01S00949.ver13   ---|          RJM    CPA         WRITE SECOND WORD OF RESPONSE
01087  M01S00950.ver13   ---|          ADD    LO
01088  M01S00951.ver13   ---|          CWD    CL
01089  M01S00952.ver13   ---| REQ15    AOD    LO          INCREMENT LIST OFFSET
01090  M01S00953.ver13   ---|          SBD    PB+3
01091  M01S00954.ver13   ---|          MJN    REQ16       IF NOT END OF LIST
01092  M01S00955.ver13   ---|          LJM    REQX        RETURN
01093  M01S00956.ver13   ---|
01094  M01S00957.ver13   ---| REQ16    LJM    REQ1        PROCESS NEXT REQUEST
Line S00958 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01095  M01S00958.ns2633  ---| TCM      SPACE  4,15
Line S00023 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01096  M01S00023.ns2633  +++| TCM      SPACE  4,20
01097  M00S00959.ver     +++|**        FUNCTION 4 - RNCM - RETURN CM.
01098  M00S00960.ver     +++|*
01099  M00S00961.ver     +++|*         ENTRY  (PB LIST ENTRY) = 42/0, 18/NUMBER OF WORDS/1000B TO
01100  M00S00962.ver     +++|*                                  RETURN.
01101  M00S00963.ver     +++|*
01102  M00S00964.ver     +++|*         EXIT   *EICB* WORD *D7CM+1* = 12/0, 24/FWA/1000B,
01103  M00S00965.ver     +++|*                                       24/LWA+1/1000B.
01104  M00S00966.ver     +++|*                (PB LIST ENTRY) = 42/0, 18/NUMBER OF WORDS/1000B TO
01105  M00S00967.ver     +++|*                RETURN ROUNDED DOWN TO NEAREST 2000B BOUNDARY.
01106  M00S00968.ver     +++|*                MACHINE FL IS ADJUSTED IF ANY DYNAMIC MEMORY RETURNED.
01107  M00S00969.ver     +++|*                (PB+4) = ERROR STATUS.
01108  M00S00970.ver     +++|*                BML MESSAGE ISSUED.
01109  M00S00971.ver     +++|*
Line S00972 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00972.ns2633  ---|*         USES   CL - CL+1, CM - CM+4, CN - CN+1.
Line S00024 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00024.ns2633  +++|*         USES   T1, CL - CL+1, CM - CM+4, CN - CN+1.
01112  M00S00973.ver     +++|*
01113  M00S00974.ver     +++|*         CALLS  CPA, GCC, IBM, RDM, SDA.
01114  M00S00975.ver     +++|
01115  M00S00976.ver     +++|
01116  M00S00977.ver     +++| TCM2     LDN    0           SET TOTAL NUMBER OF WORDS = 0
01117  M00S00978.ver     +++|          STD    CL
01118  M00S00979.ver     +++|          STD    CL+1
01119  M00S00980.ver     +++|          LDD    CN          SET AMOUNT TO RETURN = CURRENT VALUE
01120  M00S00981.ver     +++|          STD    CM+3
01121  M00S00982.ver     +++|          LDD    CN+1
01122  M00S00983.ver     +++|          STD    CM+4
01123  M00S00984.ver     +++| TCM3     RJM    RDM         RETURN DYNAMIC MEMORY
01124  M00S00985.ver     +++|          RJM    SDA         SET CM ADDRESSES IN *EICB*
01125  M00S00986.ver     +++|          LDC    /COMSDFS/HS0111  SET SYMPTOM CODE
01126  M00S00987.ver     +++|          STD    T1
01127  M00S00988.ver     +++|          LDC    /COMSDFS/HM0240  SET MESSAGE ID
01128  M00S00989.ver     +++|          RJM    IBM         ISSUE BML MESSAGE
01129  M00S00990.ver     +++|
01130  M00S00991.ver     +++| TCM      SUBR               ENTRY/EXIT
01131  M00S00992.ver     +++|          RJM    GCC         GET CURRENT NUMBER OF NOS/VE CM WORDS
Line S00025 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00025.ns2633  +++|          LDD    CM+3
01133  M01S00026.ns2633  +++|          STD    CN
01134  M01S00027.ns2633  +++|          LDD    CM+4
01135  M00S00993.ver     +++|          STD    CN+1
Line S00994 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00994.ns2633  ---|          SHN    -14
01137  M01S00995.ns2633  ---|          STD    CN
01138  M00S00996.ver     +++|          RJM    CPA         GET NUMBER OF WORDS TO BE RETURNED
01139  M00S00997.ver     +++|          ADN    1
01140  M00S00998.ver     +++|          CRD    CM
01141  M00S00999.ver     +++|          LDD    PB
01142  M00S01000.ver     +++|          SHN    21-13
Line S01001 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01143  M01S01001.ns2633  ---|          MJN    TCM2        IF REQUEST TO RETURN ALL MEMORY
Line S00028 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01144  M01S00028.ns2633  +++|          MJP    TCM2        IF REQUEST TO RETURN ALL MEMORY
01145  M00S01002.ver     +++|          LDD    CM+4        ROUND DOWN TO NEAREST 2000B
01146  M00S01003.ver     +++|          SCN    1
01147  M00S01004.ver     +++|          STD    CM+4
01148  M00S01005.ver     +++|          RJM    CPA         SET ROUNDED VALUE IN REPLY BLOCK
01149  M00S01006.ver     +++|          ADN    1
01150  M00S01007.ver     +++|          CWD    CM
Line S01008 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01151  M01S01008.ns2633  ---|          LDD    CN          FIND NEW TOTAL
01152  M01S01009.ns2633  ---|          SBD    CM+3
01153  M01S01010.ns2633  ---|          MJN    TCM1        IF NUMBER TO RETURN .GT. CURRENT NUMBER
01154  M01S01011.ns2633  ---|          SHN    14
01155  M01S01012.ns2633  ---|          LMD    CN+1
Line S00029 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01156  M01S00029.ns2633  +++|          LDD    CM+3        FIND NEW TOTAL
01157  M01S00030.ns2633  +++|          STD    T1
01158  M01S00031.ns2633  +++|          LDD    CN+1
01159  M00S01013.ver     +++|          SBD    CM+4
Line S01014 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01160  M01S01014.ns2633  ---|          MJN    TCM1        IF NUMBER TO RETURN .GT. CURRENT NUMBER
01161  M00S01015.ver     +++|          STD    CL+1
Line S01016 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01162  M01S01016.ns2633  ---|          SHN    -14
Line S00032 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01163  M01S00032.ns2633  +++|          PJN    TCM1        IF NO BORROW
01164  M01S00033.ns2633  +++|          AOD    T1          ADJUST FOR BORROW
01165  M01S00034.ns2633  +++|          AOD    CL+1
01166  M01S00035.ns2633  +++| TCM1     LDD    CN
01167  M01S00036.ns2633  +++|          SBD    T1
01168  M00S01017.ver     +++|          STD    CL
Line S01018 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01169  M01S01018.ns2633  ---|          LJM    TCM3        SET ADDRESSES IN *EICB*
01170  M01S01019.ns2633  ---|
01171  M01S01020.ns2633  ---| TCM1     LDN    ESCM        SET CM NOT ASSIGNED ERROR STATUS
Line S00037 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01172  M01S00037.ns2633  +++|          PJP    TCM3        IF NUMBER TO RETURN .LE. CURRENT NUMBER
01173  M01S00038.ns2633  +++|          LDN    ESCM        SET CM NOT ASSIGNED ERROR STATUS
01174  M00S01021.ver     +++|          STD    PB+4
01175  M00S01022.ver     +++|          LJM    TCMX        RETURN
01176  M00S01023.ver     +++| TPP      SPACE  4,15
01177  M00S01024.ver     +++|**        FUNCTION 5 - RNPP - RETURN PP.
01178  M00S01025.ver     +++|*
01179  M00S01026.ver     +++|*         ENTRY  (PB LIST ENTRY) = 6/PP NUMBER, 54/0.
01180  M00S01027.ver     +++|*
01181  M00S01028.ver     +++|*         EXIT   (PB LIST ENTRY) = 6/UNCHANGED, 42/0, 12/ERROR STATUS.
01182  M00S01029.ver     +++|*                (PB+4) = ERROR STATUS.
01183  M00S01030.ver     +++|*
01184  M00S01031.ver     +++|*         USES   DA, EC, LO, PB+4, CL - CL+4, CN - CN+4.
01185  M00S01032.ver     +++|*
01186  M00S01033.ver     +++|*         CALLS  CPA, CPS, DPL, LPR, SPB, VPN.
01187  M00S01034.ver     +++|*
01188  M00S01035.ver     +++|*         MACROS MONITOR.
01189  M00S01036.ver     +++|
01190  M00S01037.ver     +++|
01191  M00S01038.ver     +++| TPP13    LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01192  M00S01039.ver     +++|          STD    PB+4
01193  M00S01040.ver     +++|
01194  M00S01041.ver     +++| TPP      SUBR               ENTRY/EXIT
01195  M00S01042.ver     +++|          RJM    LPR         LOAD PP RESIDENT
01196  M00S01043.ver     +++|          LDN    PPUL        GET NUMBER OF SYSTEM PP-S
01197  M00S01044.ver     +++|          CRD    CN
01198  M00S01045.ver     +++|          LDD    CN+2
01199  M00S01046.ver     +++|          STD    DA
01200  M00S01047.ver     +++|          LDD    PB
01201  M00S01048.ver     +++|          SHN    21-13
01202  M00S01049.ver     +++|          PJN    TPP1        IF RETURN SPECIFIED PP-S REQUEST
01203  M00S01050.ver     +++|          LJM    TPP7        RETURN ALL NOS/VE PP-S
01204  M00S01051.ver     +++|
01205  M00S01052.ver     +++|*         RETURN SPECIFIED PP-S.
01206  M00S01053.ver     +++|
01207  M00S01054.ver     +++| TPP1     LDD    PB+3
01208  M00S01055.ver     +++|          ZJN    TPPX        IF NONE TO RETURN
01209  M00S01056.ver     +++|          SBD    DA
01210  M00S01057.ver     +++|          SBN    1
01211  M00S01058.ver     +++|          PJN    TPP13       IF REQUEST TOO LARGE
01212  M00S01059.ver     +++|
01213  M00S01060.ver     +++| TPP2     LDN    1           INITIALIZE LIST OFFSET
01214  M00S01061.ver     +++|          STD    LO
01215  M00S01062.ver     +++| TPP3     RJM    CPA         READ NEXT LIST ENTRY
01216  M00S01063.ver     +++|          ADD    LO
01217  M00S01064.ver     +++|          CRD    CL
01218  M00S01065.ver     +++|          LDD    CL
01219  M00S01066.ver     +++|          SHN    -6
01220  M00S01067.ver     +++|          RJM    VPN         VALIDATE PP NUMBER
01221  M00S01068.ver     +++|          NJN    TPP6        IF NOT ASSIGNED TO NOS/VE
01222  M00S01069.ver     +++|          RJM    CPS         CHECK PARTNER STATUS
01223  M00S01070.ver     +++|          MJN    TPP4        IF ONLY REPLY NEEDED (PARTNER IS ASSIGNED)
01224  M00S01071.ver     +++|          NJN    TPP6        IF PP IS PSEUDO-ASSIGNED
01225  M00S01072.ver     +++|          LDD    T4          PP NUMBER
01226  M00S01073.ver     +++|          LMC    10000
01227  M00S01074.ver     +++|          RJM    SPB         SET LOWER PP BIT
01228  M00S01075.ver     +++|          RJM    DPL         DEADSTART PP AND LOAD *PPR*
01229  M00S01076.ver     +++| TPP4     LDN    0           CLEAR ERROR FLAG
01230  M00S01077.ver     +++|          STD    CL+4
01231  M00S01078.ver     +++| TPP5     RJM    CPA         WRITE LIST ENTRY
01232  M00S01079.ver     +++|          ADD    LO
01233  M00S01080.ver     +++|          CWD    CL
01234  M00S01081.ver     +++|          LDD    CL+4
01235  M00S01082.ver     +++|          LMD    TH          CHECK IF *ESIR*
01236  M00S01083.ver     +++|          ZJN    TPP9        IF ILLEGAL REQUEST
01237  M00S01084.ver     +++|          AOD    LO          INCREMENT OFFSET
01238  M00S01085.ver     +++|          SBD    PB+3
01239  M00S01086.ver     +++|          SBN    1
01240  M00S01087.ver     +++|          PJN    TPP9        IF END OF LIST
01241  M00S01088.ver     +++|          LJM    TPP3        PROCESS NEXT PP
01242  M00S01089.ver     +++|
01243  M00S01090.ver     +++| TPP6     STD    PB+4
01244  M00S01091.ver     +++|          STD    CL+4
01245  M00S01092.ver     +++|          UJN    TPP5        WRITE LIST ENTRY
01246  M00S01093.ver     +++|
01247  M00S01094.ver     +++|*         RETURN ALL NOS/VE RESERVED PP-S.
01248  M00S01095.ver     +++|
01249  M00S01096.ver     +++| TPP7     LDN    0           INITIALIZE PP NUMBER
01250  M00S01097.ver     +++|          STD    CL
01251  M00S01098.ver     +++| TPP8     LDD    CL
01252  M00S01099.ver     +++|          RJM    VPN         VALIDATE PP NUMBER
01253  M00S01100.ver     +++|          ZJN    TPP10       IF ASSIGNED TO NOS/VE
01254  M00S01101.ver     +++|          LMN    ESPP
01255  M00S01102.ver     +++|          ZJN    TPP11       IF NOT END OF PP-S
01256  M00S01103.ver     +++| TPP9     UJN    TPP12       RETURN
01257  M00S01104.ver     +++|
01258  M00S01105.ver     +++| TPP10    LDD    T4          RETURN NOS/VE PP
01259  M00S01106.ver     +++|          LMC    10000
01260  M00S01107.ver     +++|          RJM    SPB         SET LOWER PP BIT
01261  M00S01108.ver     +++|          RJM    DPL         DEADSTART PP AND LOAD PPR
01262  M00S01109.ver     +++| TPP11    AOD    CL          INCREMENT PP NUMBER
01263  M00S01110.ver     +++|          SBN    12
01264  M00S01111.ver     +++|          NJN    TPP8        IF NOT PP 20
01265  M00S01112.ver     +++|          LDN    20          SET START OF UPPER BANK
01266  M00S01113.ver     +++|          STD    CL
01267  M00S01114.ver     +++|          UJN    TPP8        PROCESS NEXT PP
01268  M00S01115.ver     +++|
01269  M00S01116.ver     +++| TPP12    LJM    TPPX        RETURN
01270  M00S01117.ver     +++| TCH      SPACE  4,15
01271  M00S01118.ver     +++|**        FUNCTION 6 - RNCH - RETURN CHANNEL.
01272  M00S01119.ver     +++|*
01273  M00S01120.ver     +++|*         ENTRY  (PB LIST ENTRY) = 6/CH, 54/0.
01274  M00S01121.ver     +++|*
01275  M00S01122.ver     +++|*         EXIT   (PB+4) = ERROR STATUS.
01276  M00S01123.ver     +++|*                (PB LIST ENTRY) = 48/UNCHANGED, 12/ERROR STATUS.
01277  M00S01124.ver     +++|*
01278  M00S01125.ver     +++|*         USES   LO, PB+4, T2, CL - CL+4.
01279  M00S01126.ver     +++|*
01280  M00S01127.ver     +++|*         CALLS  CPA, VTC.
01281  M00S01128.ver     +++|
01282  M00S01129.ver     +++|
01283  M00S01130.ver     +++| TCH11    LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01284  M00S01131.ver     +++|          STD    PB+4
01285  M00S01132.ver     +++|
01286  M00S01133.ver     +++| TCH      SUBR               ENTRY/EXIT
01287  M00S01134.ver     +++|          LDN    NCTAL       READ EJT ASSIGNMENT TABLE
01288  M00S01135.ver     +++|          STD    T2
01289  M00S01136.ver     +++|          LDC    **          FWA OF CHANNEL EJT ASSIGNMENT TABLE
01290  M00S01137.ver     +++| TCHA     EQU    *-2
01291  M00S01138.ver     +++|          CRM    CBUF,T2
01292  M00S01139.ver     +++|          LDD    PB
01293  M00S01140.ver     +++|          SHN    21-13
01294  M00S01141.ver     +++|          PJN    TCH1        IF TO RETURN SPECIFIED CHANNELS
01295  M00S01142.ver     +++|          LJM    TCH7        RETURN ALL NOS/VE CHANNELS
01296  M00S01143.ver     +++|
01297  M00S01144.ver     +++| TCH1     LDD    PB+3        CHECK BLOCK LENGTH
01298  M00S01145.ver     +++|          ZJN    TCHX        IF NONE TO BE RETURNED
01299  M00S01146.ver     +++|          SBN    NCTAL*5+1
01300  M00S01147.ver     +++|          PJN    TCH11       IF TOO MANY CHANNELS TO BE RETURNED
01301  M00S01148.ver     +++|          LDN    1           INITIALIZE LIST OFFSET
01302  M00S01149.ver     +++|          STD    LO
01303  M00S01150.ver     +++| TCH2     RJM    CPA         GET NEXT CHANNEL TO RETURN
01304  M00S01151.ver     +++|          ADD    LO
01305  M00S01152.ver     +++|          CRD    CL
01306  M00S01153.ver     +++|          LDD    CL
01307  M00S01154.ver     +++|          SHN    -6
01308  M00S01155.ver     +++|          STD    T2
01309  M00S01156.ver     +++|          SBN    MXNC+1
01310  M00S01157.ver     +++|          MJN    TCH3        IF VALID CHANNEL NUMBER
01311  M00S01158.ver     +++|          LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01312  M00S01159.ver     +++|          UJN    TCH4        WRITE PARAMETER LIST ENTRY
01313  M00S01160.ver     +++|
01314  M00S01161.ver     +++| TCH3     LDM    NEJT
01315  M00S01162.ver     +++|          LMM    CBUF,T2
01316  M00S01163.ver     +++|          ZJN    TCH5        IF CHANNEL IS NOS/VE RESERVED
01317  M00S01164.ver     +++|          LDN    ESCH        SET CHANNEL NOT NOS/VE RESERVED STATUS
01318  M00S01165.ver     +++| TCH4     STD    PB+4
01319  M00S01166.ver     +++|          UJN    TCH6        WRITE PARAMETER LIST ENTRY
01320  M00S01167.ver     +++|
01321  M00S01168.ver     +++| TCH5     RJM    VTC         VE RETURN CHANNEL
01322  M00S01169.ver     +++|*         LDN    0           CLEAR ERROR STATUS
01323  M00S01170.ver     +++| TCH6     STD    CL+4
01324  M00S01171.ver     +++|          RJM    CPA         WRITE PARAMETER LIST ENTRY
01325  M00S01172.ver     +++|          ADD    LO
01326  M00S01173.ver     +++|          CWD    CL
01327  M00S01174.ver     +++|          LDD    CL+4
01328  M00S01175.ver     +++|          LMD    TH          CHECK IF *ESIR*
01329  M00S01176.ver     +++|          ZJN    TCH10       IF ILLEGAL REQUEST
01330  M00S01177.ver     +++|          AOD    LO          INCREMENT LIST OFFSET
01331  M00S01178.ver     +++|          SBD    PB+3
01332  M00S01179.ver     +++|          SBN    1
01333  M00S01180.ver     +++|          PJN    TCH10       IF END OF LIST
01334  M00S01181.ver     +++|          LJM    TCH2        PROCESS NEXT LIST ENTRY
01335  M00S01182.ver     +++|
01336  M00S01183.ver     +++|*         RETURN ALL NOS/VE RESERVED CHANNELS.
01337  M00S01184.ver     +++|
01338  M00S01185.ver     +++| TCH7     LDN    0           INITIALIZE CHANNEL TABLE OFFSET
01339  M00S01186.ver     +++|          STD    T2
01340  M00S01187.ver     +++| TCH8     LDM    NEJT
01341  M00S01188.ver     +++|          LMM    CBUF,T2
01342  M00S01189.ver     +++|          NJN    TCH9        IF CHANNEL NOT NOS/VE RESERVED
01343  M00S01190.ver     +++|          RJM    VTC         VE RETURN CHANNEL
01344  M00S01191.ver     +++| TCH9     AOD    T2          INCREMENT CHANNEL TABLE OFFSET
01345  M00S01192.ver     +++|          SBN    MXNC+1
01346  M00S01193.ver     +++|          MJN    TCH8        IF NOT END OF TABLE
01347  M00S01194.ver     +++| TCH10    LJM    TCHX        RETURN
Line S01195 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01348  M01S01195.ver13   ---| TEQ      SPACE  4,15
01349  M01S01196.ver13   ---|**        FUNCTION 7 - RNEQ - RETURN EQUIPMENT.
01350  M01S01197.ver13   ---|*
01351  M01S01198.ver13   ---|*         ENTRY  (PB LIST ENTRY) = 6/CH, 6/EQ, 6/UN, 42/0.
01352  M01S01199.ver13   ---|*                (NEJT) = NOS/VE EJT ORDINAL.
01353  M01S01200.ver13   ---|*
01354  M01S01201.ver13   ---|*         EXIT   (PB+4) = ERROR STATUS.
01355  M01S01202.ver13   ---|*                (PB LIST ENTRY) = 18/UNCHANGED, 30/0, 12/ERROR STATUS.
01356  M01S01203.ver13   ---|*
01357  M01S01204.ver13   ---|*         USES   LO, PB+4, T2, CL - CL+4, CM - CM+4, CN - CN+4.
01358  M01S01205.ver13   ---|*
Line S01206 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01359  M02S01206.ver13   ---|*         CALLS  CCA, CPA, CUA, SEE, VET.
Line S00010 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01360  M02S00010.ver13   ---|*         CALLS  CHA, CPA, CUA, SEE, VET.
Line S01207 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01361  M01S01207.ver13   ---|*
01362  M01S01208.ver13   ---|*         MACROS MONITOR, SFA.
01363  M01S01209.ver13   ---|
01364  M01S01210.ver13   ---|
01365  M01S01211.ver13   ---| TEQ15    LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01366  M01S01212.ver13   ---|          STD    PB+4
01367  M01S01213.ver13   ---|
01368  M01S01214.ver13   ---| TEQ      SUBR               ENTRY/EXIT
01369  M01S01215.ver13   ---|          LDD    PB
01370  M01S01216.ver13   ---|          SHN    21-13
01371  M01S01217.ver13   ---|          PJN    TEQ1        IF TO RETURN SPECIFIED EQUIPMENT
01372  M01S01218.ver13   ---|          LJM    TEQ13       RETURN ALL NOS/VE EQUIPMENT
01373  M01S01219.ver13   ---|
01374  M01S01220.ver13   ---| TEQ1     LDD    PB+3        CHECK BLOCK LENGTH
01375  M01S01221.ver13   ---|          ZJN    TEQX        IF NONE TO RETURN
01376  M01S01222.ver13   ---|          SBD    LE
01377  M01S01223.ver13   ---|          PJN    TEQ15       IF BLOCK LONGER THAN EST LENGTH
01378  M01S01224.ver13   ---|          LDN    1           INITIALIZE LIST OFFSET
01379  M01S01225.ver13   ---|          STD    LO
01380  M01S01226.ver13   ---| TEQ2     RJM    CPA         READ NEXT LIST ENTRY
01381  M01S01227.ver13   ---|          ADD    LO
01382  M01S01228.ver13   ---|          CRD    CL
01383  M01S01229.ver13   ---|          RJM    SEE         SEARCH EST FOR EQUIPMENT
01384  M01S01230.ver13   ---|          PJN    TEQ3        IF EST ENTRY FOUND
01385  M01S01231.ver13   ---|          LDN    ESNE        SET NOT IN EST STATUS
01386  M01S01232.ver13   ---|          UJN    TEQ5        WRITE LIST ENTRY
01387  M01S01233.ver13   ---|
01388  M01S01234.ver13   ---| TEQ3     RJM    VET         CHECK EQUIPMENT ASSIGNMENT
01389  M01S01235.ver13   ---|          MJN    TEQ4        IF EQUIPMENT ASSIGNED TO NOS/VE
01390  M01S01236.ver13   ---|          LDN    ESEQ        SET EQUIPMENT NOT ASSIGNED STATUS
01391  M01S01237.ver13   ---|          UJN    TEQ5        WRITE LIST ENTRY
01392  M01S01238.ver13   ---|
01393  M01S01239.ver13   ---| TEQ4     LDD    CL
01394  M01S01240.ver13   ---|          SHN    -6
01395  M01S01241.ver13   ---|          STD    T2
Line S01242 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01396  M02S01242.ver13   ---|          RJM    CCA         CHECK CHANNEL ASSIGNMENT
Line S00011 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01397  M02S00011.ver13   ---|          RJM    CHA         CHECK CHANNEL ASSIGNMENT
Line S01243 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01398  M01S01243.ver13   ---|          ZJN    TEQ4.1      IF CHANNEL ASSIGNED
01399  M01S01244.ver13   ---|          LDN    ESCH        SET CHANNEL NOT ASSIGNED STATUS
01400  M01S01245.ver13   ---|          UJN    TEQ5        WRITE RESPONSE
01401  M01S01246.ver13   ---|
01402  M01S01247.ver13   ---| TEQ4.1   RJM    CUA         CHECK UNIT ASSIGNMENT
01403  M01S01248.ver13   ---|          MJN    TEQ7        IF NOT MASS STORAGE
01404  M01S01249.ver13   ---|          SBN    ESAA
01405  M01S01250.ver13   ---|          ZJN    TEQ6        IF UNIT ASSIGNED
01406  M01S01251.ver13   ---|          LDN    ESUN        SET UNIT NOT ASSIGNED STATUS
01407  M01S01252.ver13   ---| TEQ5     LJM    TEQ9        WRITE RESPONSE
01408  M01S01253.ver13   ---|
01409  M01S01254.ver13   ---|*         RETURN NOS/VE EQUIPMENT.
01410  M01S01255.ver13   ---|
01411  M01S01256.ver13   ---| TEQ6     LDD    CN+4        CLEAR UNIT ASSIGNED STATUS
01412  M01S01257.ver13   ---|          SHN    3
01413  M01S01258.ver13   ---|          ADN    NVGL
01414  M01S01259.ver13   ---|          CRD    CM
01415  M01S01260.ver13   ---|          ERRNZ  SHNI-1000   CANNOT USE DIRECT CELL *TH*
01416  M01S01261.ver13   ---|          LDD    TH          SET SHIFT COUNT
01417  M01S01262.ver13   ---|          ADD    DC
01418  M01S01263.ver13   ---|          STM    TEQA
01419  M01S01264.ver13   ---|          LDN    1
01420  M01S01265.ver13   ---| TEQA     SHN    **
01421  M01S01266.ver13   ---|          LMD    CM+4        CLEAR BIT
01422  M01S01267.ver13   ---|          STD    CM+4
01423  M01S01268.ver13   ---|          LDD    CN+4        UPDATE UNIT STATUS
01424  M01S01269.ver13   ---|          SHN    3
01425  M01S01270.ver13   ---|          ADN    NVGL
01426  M01S01271.ver13   ---|          CWD    CM
01427  M01S01272.ver13   ---|          LDD    CM+4        CHECK FOR OTHER UNIT ASSIGNMENTS
01428  M01S01273.ver13   ---|          NJN    TEQ8        IF ANOTHER UNIT ASSIGNED
01429  M01S01274.ver13   ---| TEQ7     LDD    T7          SET EST ORDINAL
01430  M01S01275.ver13   ---|          LMC    4000        SET ALTERNATE EJT FLAG
01431  M01S01276.ver13   ---|          STD    CM+1
01432  M01S01277.ver13   ---|          LDM    NEJT        SET EJT ORDINAL
01433  M01S01278.ver13   ---|          STD    CM+3
01434  M01S01279.ver13   ---|          MONITOR  DEQM      RELEASE EQUIPMENT
01435  M01S01280.ver13   ---| TEQ8     LDN    0           CLEAR ERROR FLAG
01436  M01S01281.ver13   ---|          UJN    TEQ10       WRITE RESPONSE
01437  M01S01282.ver13   ---|
01438  M01S01283.ver13   ---|*         WRITE LIST RESPONSE.
01439  M01S01284.ver13   ---|
01440  M01S01285.ver13   ---| TEQ9     STD    PB+4        SET STATUS
01441  M01S01286.ver13   ---| TEQ10    STD    CL+4
01442  M01S01287.ver13   ---|          RJM    CPA         WRITE RESPONSE
01443  M01S01288.ver13   ---|          ADD    LO
01444  M01S01289.ver13   ---|          CWD    CL
01445  M01S01290.ver13   ---|          AOD    LO          INCREMENT OFFSET
01446  M01S01291.ver13   ---|          SBD    PB+3
01447  M01S01292.ver13   ---|          SBN    1
01448  M01S01293.ver13   ---|          MJN    TEQ12       IF NOT END OF LIST
01449  M01S01294.ver13   ---| TEQ11    LJM    TEQX        RETURN
01450  M01S01295.ver13   ---|
01451  M01S01296.ver13   ---| TEQ12    LJM    TEQ2        PROCESS NEXT LIST ENTRY
01452  M01S01297.ver13   ---|
01453  M01S01298.ver13   ---|*         RETURN ALL EQUIPMENT.
01454  M01S01299.ver13   ---|
01455  M01S01300.ver13   ---| TEQ13    LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
01456  M01S01301.ver13   ---|          STD    LO
01457  M01S01302.ver13   ---| TEQ14    AOD    LO          ADVANCE EST ORDINAL
01458  M01S01303.ver13   ---|          LMD    LE
01459  M01S01304.ver13   ---|          ZJN    TEQ11       IF END OF EST
01460  M01S01305.ver13   ---|          SFA    EST,LO
01461  M01S01306.ver13   ---|          ADK    EQDE
01462  M01S01307.ver13   ---|          CRD    CN          READ EST ENTRY
01463  M01S01308.ver13   ---|          ADK    EQAE-EQDE   READ JOB ASSIGNMENT WORD
01464  M01S01309.ver13   ---|          CRD    CM
01465  M01S01310.ver13   ---|          LDM    NEJT
01466  M01S01311.ver13   ---|          LMD    CM+4
01467  M01S01312.ver13   ---|          NJN    TEQ14       IF NOT NOS/VE RESERVED
01468  M01S01313.ver13   ---|          LDD    LO          SET EST ORDINAL
01469  M01S01314.ver13   ---|          LMC    4000        SET ALTERNATE EJT FLAG
01470  M01S01315.ver13   ---|          STD    CM+1
01471  M01S01316.ver13   ---|          LDM    NEJT        SET EJT ORDINAL
01472  M01S01317.ver13   ---|          STD    CM+3
01473  M01S01318.ver13   ---|          MONITOR  DEQM      RELEASE EQUIPMENT
01474  M01S01319.ver13   ---|          LDD    CN          CHECK FOR MASS STORAGE
01475  M01S01320.ver13   ---|          SHN    21-13
01476  M01S01321.ver13   ---|          PJN    TEQ14       IF NOT MASS STORAGE
01477  M01S01322.ver13   ---|          LDN    ZERL        CLEAR ALL UNIT ASSIGNMENTS
01478  M01S01323.ver13   ---|          CRD    CM
01479  M01S01324.ver13   ---|          LDD    CN+4
01480  M01S01325.ver13   ---|          SHN    3
01481  M01S01326.ver13   ---|          ADN    NVGL
01482  M01S01327.ver13   ---|          CWD    CM
01483  M01S01328.ver13   ---|          UJP    TEQ14       PROCESS NEXT EST ENTRY
Line S01329 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01484  M01S01329.ns2633  ---| SCM      SPACE  4,10
Line S00039 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01485  M01S00039.ns2633  +++| SCM      SPACE  4,15
01486  M00S01330.ver     +++|**        FUNCTION 10 - STCM - STATUS OF NOS/VE CM.
01487  M00S01331.ver     +++|*
01488  M00S01332.ver     +++|*         ENTRY  (EIBA - EIBA+1) = *EICB* ADDRESS.
01489  M00S01333.ver     +++|*
01490  M00S01334.ver     +++|*         EXIT   (PB LIST ENTRY) = 42/0, 18/NUMBER OF WORDS/1000B.
01491  M00S01335.ver     +++|*                                = 12/0, 24/FWA/1000B, 24/LWA+1/1000B.
01492  M00S01336.ver     +++|*                (PB+4) = ERROR STATUS.
01493  M00S01337.ver     +++|*
01494  M00S01338.ver     +++|*         USES   PB+4, CL - CL+4, CM - CM+4.
01495  M00S01339.ver     +++|*
01496  M00S01340.ver     +++|*         CALLS  CPA, GCC, SEA.
01497  M00S01341.ver     +++|
01498  M00S01342.ver     +++|
01499  M00S01343.ver     +++| SCM1     LDC    ESIL        SET INSUFFICIENT LENGTH STATUS
01500  M00S01344.ver     +++|          STD    PB+4
01501  M00S01345.ver     +++|
01502  M00S01346.ver     +++| SCM      SUBR               ENTRY/EXIT
01503  M00S01347.ver     +++|          LDD    PB+3        CHECK LENGTH
01504  M00S01348.ver     +++|          SBN    2
01505  M00S01349.ver     +++|          MJN    SCM1        IF INSUFFICIENT LENGTH
01506  M00S01350.ver     +++|          LDN    ZERL        CLEAR RESPONSE
01507  M00S01351.ver     +++|          CRD    CL
01508  M00S01352.ver     +++|          RJM    GCC         GET CURRENT NUMBER OF NOS/VE CM WORDS
Line S00040 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01509  M01S00040.ns2633  +++|          LDD    CM+3
01510  M01S00041.ns2633  +++|          STD    CL+3
01511  M01S00042.ns2633  +++|          LDD    CM+4
01512  M00S01353.ver     +++|          STD    CL+4
Line S01354 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01513  M01S01354.ns2633  ---|          SHN    -14
01514  M01S01355.ns2633  ---|          STD    CL+3
01515  M00S01356.ver     +++|          RJM    SEA         GET ADDRESSES FROM *EICB*
01516  M00S01357.ver     +++|          ADN    D7CM+1
01517  M00S01358.ver     +++|          CRD    CM
01518  M00S01359.ver     +++|          RJM    CPA         WRITE RESPONSE
01519  M00S01360.ver     +++|          ADN    1
01520  M00S01361.ver     +++|          CWD    CL
01521  M00S01362.ver     +++|          ADN    1
01522  M00S01363.ver     +++|          CWD    CM
01523  M00S01364.ver     +++|          UJN    SCMX        RETURN
Line S01365 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01524  M01S01365.ns2633  ---| SPP      SPACE  4,10
Line S00043 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01525  M01S00043.ns2633  +++| SPP      SPACE  4,15
01526  M00S01366.ver     +++|**        FUNCTION 11 - STPP - STATUS OF NOS/VE PP-S.
01527  M00S01367.ver     +++|*
01528  M00S01368.ver     +++|*         ENTRY  (PB LIST ENTRY) = 6/PP NUMBER, 54/0.
01529  M00S01369.ver     +++|*                (PPCA) = PP COMMUNICATION AREA ADDRESS.
01530  M00S01370.ver     +++|*
01531  M00S01371.ver     +++|*         EXIT   (PB+4) = ERROR STATUS.
01532  M00S01372.ver     +++|*                (PB LIST ENTRY) = 48/UNCHANGED, 12/ERROR STATUS.
01533  M00S01373.ver     +++|*
01534  M00S01374.ver     +++|*         USES   DA, LO, PB+4, CL - CL+4, CN - CN+4.
01535  M00S01375.ver     +++|*
01536  M00S01376.ver     +++|*         CALLS  CPA, VPN.
01537  M00S01377.ver     +++|
01538  M00S01378.ver     +++|
01539  M00S01379.ver     +++| SPP5     LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01540  M00S01380.ver     +++|          STD    PB+4
01541  M00S01381.ver     +++|
01542  M00S01382.ver     +++| SPP      SUBR               ENTRY/EXIT
01543  M00S01383.ver     +++|          LDN    PPUL        GET NUMBER OF SYSTEM PP-S
01544  M00S01384.ver     +++|          CRD    CN
01545  M00S01385.ver     +++|          LDD    CN+2
01546  M00S01386.ver     +++|          STD    DA
01547  M00S01387.ver     +++|          LDD    PB+3        CHECK PARAMETER BLOCK LENGTH
01548  M00S01388.ver     +++|          ZJN    SPPX        IF NO REQUEST
01549  M00S01389.ver     +++|          SBN    21D
01550  M00S01390.ver     +++|          PJN    SPP5        IF LENGTH .GT. NUMBER OF SYSTEM PP-S
01551  M00S01391.ver     +++|          LDN    1           INITIALIZE LIST OFFSET
01552  M00S01392.ver     +++|          STD    LO
01553  M00S01393.ver     +++| SPP1     RJM    CPA         READ NEXT LIST ENTRY
01554  M00S01394.ver     +++|          ADD    LO
01555  M00S01395.ver     +++|          CRD    CL
01556  M00S01396.ver     +++|          LDD    CL
01557  M00S01397.ver     +++|          SHN    -6
01558  M00S01398.ver     +++|          RJM    VPN         VALIDATE PP NUMBER
01559  M00S01399.ver     +++|          NJN    SPP2        IF NOT ASSIGNED TO NOS/VE
01560  M00S01400.ver     +++|          LDD    CM+4
01561  M00S01401.ver     +++|          ZJN    SPP3        IF NOT PSEUDO-ASSIGNED TO NOS/VE
01562  M00S01402.ver     +++| SPP2     LDN    ESPP        SET PP NOT ASSIGNED STATUS
01563  M00S01403.ver     +++|          STD    PB+4
01564  M00S01404.ver     +++| SPP3     STD    CL+4        SET ERROR STATUS
01565  M00S01405.ver     +++|          RJM    CPA         WRITE RESPONSE
01566  M00S01406.ver     +++|          ADD    LO
01567  M00S01407.ver     +++|          CWD    CL
01568  M00S01408.ver     +++|          AOD    LO          INCREMENT LIST OFFSET
01569  M00S01409.ver     +++|          SBD    PB+3
01570  M00S01410.ver     +++|          SBN    1
01571  M00S01411.ver     +++|          MJN    SPP1        IF NOT END OF LIST
01572  M00S01412.ver     +++|          LJM    SPPX        RETURN
01573  M00S01413.ver     +++| SCH      SPACE  4,10
01574  M00S01414.ver     +++|**        FUNCTION 12 - STCH - STATUS OF NOS/VE CHANNELS.
01575  M00S01415.ver     +++|*
01576  M00S01416.ver     +++|*         ENTRY  (PB LIST ENTRY) = 6/CH, 54/0.
01577  M00S01417.ver     +++|*                (NEJT) = NOS/VE EJT ORDINAL.
01578  M00S01418.ver     +++|*
01579  M00S01419.ver     +++|*         EXIT   (PB+4) = ERROR STATUS.
01580  M00S01420.ver     +++|*                (PB LIST ENTRY) = 48/UNCHANGED, 12/ERROR STATUS.
01581  M00S01421.ver     +++|*
01582  M00S01422.ver     +++|*         USES   LO, PB+4, T2, CL - CL+4.
01583  M00S01423.ver     +++|*
01584  M00S01424.ver     +++|*         CALLS  CPA.
01585  M00S01425.ver     +++|
01586  M00S01426.ver     +++|
01587  M00S01427.ver     +++| SCH5     LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01588  M00S01428.ver     +++|          STD    PB+4
01589  M00S01429.ver     +++|
01590  M00S01430.ver     +++| SCH      SUBR               ENTRY/EXIT
01591  M00S01431.ver     +++|          LDD    PB+3        CHECK PARAMETER BLOCK LENGTH
01592  M00S01432.ver     +++|          ZJN    SCHX        IF NO REQUEST
01593  M00S01433.ver     +++|          SBN    NCTAL*5
01594  M00S01434.ver     +++|          PJN    SCH5        IF LENGTH .GT. NUMBER OF CHANNELS
01595  M00S01435.ver     +++|          LDN    NCTAL
01596  M00S01436.ver     +++|          STD    LO
01597  M00S01437.ver     +++|          LDC    **          FWA OF CHANNEL EJT ASSIGNMENT TABLE
01598  M00S01438.ver     +++| SCHA     EQU    *-2
01599  M00S01439.ver     +++|          CRM    CBUF,LO
01600  M00S01440.ver     +++|          LDN    1           INITIALIZE LIST OFFSET
01601  M00S01441.ver     +++|          STD    LO
01602  M00S01442.ver     +++| SCH1     RJM    CPA         READ NEXT LIST ENTRY
01603  M00S01443.ver     +++|          ADD    LO
01604  M00S01444.ver     +++|          CRD    CL
01605  M00S01445.ver     +++|          LDD    CL
01606  M00S01446.ver     +++|          SHN    -6
01607  M00S01447.ver     +++|          STD    T2
01608  M00S01448.ver     +++|          SBN    MXNC+1
01609  M00S01449.ver     +++|          MJN    SCH2        IF VALID CHANNEL NUMBER
01610  M00S01450.ver     +++|          LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01611  M00S01451.ver     +++|          STD    PB+4
01612  M00S01452.ver     +++|          UJN    SCH3        WRITE RESPONSE
01613  M00S01453.ver     +++|
01614  M00S01454.ver     +++| SCH2     LDM    NEJT
01615  M00S01455.ver     +++|          LMM    CBUF,T2
01616  M00S01456.ver     +++|          ZJN    SCH3        IF CHANNEL RESERVED BY NOS/VE
01617  M00S01457.ver     +++|          LDN    ESCH        SET CHANNEL NOT RESERVED STATUS
01618  M00S01458.ver     +++|          STD    PB+4
01619  M00S01459.ver     +++| SCH3     STD    CL+4        SET ERROR STATUS
01620  M00S01460.ver     +++|          RJM    CPA         WRITE RESPONSE
01621  M00S01461.ver     +++|          ADD    LO
01622  M00S01462.ver     +++|          CWD    CL
01623  M00S01463.ver     +++|          LDD    CL+4
01624  M00S01464.ver     +++|          LMD    TH          CHECK IF *ESIR*
01625  M00S01465.ver     +++|          ZJN    SCH4        IF ILLEGAL REQUEST
01626  M00S01466.ver     +++|          AOD    LO          INCREMENT LIST OFFSET
01627  M00S01467.ver     +++|          SBD    PB+3
01628  M00S01468.ver     +++|          SBN    1
01629  M00S01469.ver     +++|          PJN    SCH4        IF END OF LIST
01630  M00S01470.ver     +++|          LJM    SCH1        PROCESS NEXT LIST ENTRY
01631  M00S01471.ver     +++|
01632  M00S01472.ver     +++| SCH4     LJM    SCHX        RETURN
Line S01473 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01633  M01S01473.ver13   ---| SEQ      SPACE  4,10
01634  M01S01474.ver13   ---|**        FUNCTION 13 - STEQ - STATUS NOS/VE EQUIPMENT.
01635  M01S01475.ver13   ---|*
01636  M01S01476.ver13   ---|*         ENTRY  (PB LIST ENTRY) = 6/CH, 6/EQ, 6/UN, 42/0.
01637  M01S01477.ver13   ---|*
01638  M01S01478.ver13   ---|*         EXIT   (PB+4) = ERROR STATUS.
01639  M01S01479.ver13   ---|*                (PB LIST ENTRY) = 48/UNCHANGED, 12/ERROR STATUS.
01640  M01S01480.ver13   ---|*
01641  M01S01481.ver13   ---|*         USES   LO, PB+4, T2, CL - CL+4.
01642  M01S01482.ver13   ---|*
Line S01483 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01643  M02S01483.ver13   ---|*         CALLS  CCA, CPA, CUA, SEE, VET.
Line S00012 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01644  M02S00012.ver13   ---|*         CALLS  CHA, CPA, CUA, SEE, VET.
Line S01484 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01645  M01S01484.ver13   ---|
01646  M01S01485.ver13   ---|
01647  M01S01486.ver13   ---| SEQ9     LDD    TH          SET ILLEGAL REQUEST STATUS (*ESIR*)
01648  M01S01487.ver13   ---|          STD    PB+4
01649  M01S01488.ver13   ---|
01650  M01S01489.ver13   ---| SEQ      SUBR               ENTRY/EXIT
01651  M01S01490.ver13   ---|          LDD    PB+3        CHECK BLOCK LENGTH
01652  M01S01491.ver13   ---|          ZJN    SEQX        IF NO REQUEST
01653  M01S01492.ver13   ---|          SBD    LE
01654  M01S01493.ver13   ---|          PJN    SEQ9        IF BLOCK LONGER THAN EST LENGTH
01655  M01S01494.ver13   ---|          LDN    1           INITIALIZE LIST OFFSET
01656  M01S01495.ver13   ---|          STD    LO
01657  M01S01496.ver13   ---| SEQ1     RJM    CPA         READ NEXT LIST ENTRY
01658  M01S01497.ver13   ---|          ADD    LO
01659  M01S01498.ver13   ---|          CRD    CL
01660  M01S01499.ver13   ---|          RJM    SEE         SEARCH EST FOR EQUIPMENT
01661  M01S01500.ver13   ---|          PJN    SEQ2        IF EST ENTRY FOUND
01662  M01S01501.ver13   ---|          LDN    ESNE        SET NOT IN EST STATUS
01663  M01S01502.ver13   ---|          UJN    SEQ5        WRITE RESPONSE
01664  M01S01503.ver13   ---|
01665  M01S01504.ver13   ---| SEQ2     RJM    VET         CHECK EQUIPMENT ASSIGNMENT
01666  M01S01505.ver13   ---|          MJN    SEQ4        IF EQUIPMENT ASSIGNED TO NOS/VE
01667  M01S01506.ver13   ---| SEQ3     LDN    ESEQ        SET EQUIPMENT NOT ASSIGNED STATUS
01668  M01S01507.ver13   ---|          UJN    SEQ5        WRITE RESPONSE
01669  M01S01508.ver13   ---|
01670  M01S01509.ver13   ---| SEQ4     LDD    CL
01671  M01S01510.ver13   ---|          SHN    -6
01672  M01S01511.ver13   ---|          STD    T2
Line S01512 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01673  M02S01512.ver13   ---|          RJM    CCA         CHECK CHANNEL ASSIGNMENT
Line S00013 Modification History
M01 (Added by) 271l716
M02 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01674  M02S00013.ver13   ---|          RJM    CHA         CHECK CHANNEL ASSIGNMENT
Line S01513 Modification History
M01 (Removed by) ver13
Seq #  *Modification Id* Act 
----------------------------+
01675  M01S01513.ver13   ---|          ZJN    SEQ4.1      IF CHANNEL ASSIGNED
01676  M01S01514.ver13   ---|          LDN    ESCH        SET CHANNEL NOT ASSIGNED STATUS
01677  M01S01515.ver13   ---|          UJN    SEQ5        WRITE RESPONSE
01678  M01S01516.ver13   ---|
01679  M01S01517.ver13   ---| SEQ4.1   RJM    CUA         CHECK UNIT ASSIGNMENT
01680  M01S01518.ver13   ---|          MJN    SEQ6        IF NOT MASS STORAGE DEVICE
01681  M01S01519.ver13   ---|          SBN    ESAA
01682  M01S01520.ver13   ---|          ZJN    SEQ7        IF UNIT ASSIGNED
01683  M01S01521.ver13   ---|          LDN    ESUN        SET UNIT NOT ASSIGNED STATUS
01684  M01S01522.ver13   ---| SEQ5     STD    PB+4
01685  M01S01523.ver13   ---|          UJN    SEQ7        WRITE RESPONSE
01686  M01S01524.ver13   ---|
01687  M01S01525.ver13   ---| SEQ6     LDN    0           CLEAR ERROR STATUS
01688  M01S01526.ver13   ---| SEQ7     STD    CL+4
01689  M01S01527.ver13   ---|          RJM    CPA
01690  M01S01528.ver13   ---|          ADD    LO
01691  M01S01529.ver13   ---|          CWD    CL          WRITE RESPONSE
01692  M01S01530.ver13   ---|          AOD    LO          INCREMENT LIST OFFSET
01693  M01S01531.ver13   ---|          SBD    PB+3
01694  M01S01532.ver13   ---|          SBN    1
01695  M01S01533.ver13   ---|          PJN    SEQ8        IF END OF LIST
01696  M01S01534.ver13   ---|          LJM    SEQ1        PROCESS NEXT LIST ENTRY
01697  M01S01535.ver13   ---|
01698  M01S01536.ver13   ---| SEQ8     LJM    SEQX        RETURN
01699  M00S01537.ver     +++| SMR      SPACE  4,15
01700  M00S01538.ver     +++|**        FUNCTION 14 - STMR - STATUS AVAILABLE RESOURCES.
01701  M00S01539.ver     +++|*
01702  M00S01540.ver     +++|*         EXIT   (PB LIST ENTRY) = 42/0, 18/NUMBER OF CM WORDS/1000B
01703  M00S01541.ver     +++|*                                 AVAILABLE.
01704  M00S01542.ver     +++|*                                = 54/0, 6/NUMBER OF PP-S AVAILABLE.
01705  M00S01543.ver     +++|*
Line S01544 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01706  M01S01544.ns2633  ---|*         USES   DA, DB, PB+4, CL - CL+4, CM - CM+4.
Line S00044 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01707  M01S00044.ns2633  +++|*         USES   DA, DB, PB+4, T1, CL - CL+4, CM - CM+4.
01708  M00S01545.ver     +++|*
01709  M00S01546.ver     +++|*         CALLS  CPA, GCC, GCP.
01710  M00S01547.ver     +++|
01711  M00S01548.ver     +++|
Line S01549 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01712  M01S01549.ns2633  ---| SMR3     LDC    ESIL        SET INSUFFICIENT LENGTH STATUS
Line S00045 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01713  M01S00045.ns2633  +++| SMR6     LDC    ESIL        SET INSUFFICIENT LENGTH STATUS
01714  M00S01550.ver     +++|          STD    PB+4
01715  M00S01551.ver     +++|
01716  M00S01552.ver     +++| SMR      SUBR               ENTRY/EXIT
01717  M00S01553.ver     +++|          LDD    PB+3        CHECK BLOCK LENGTH
01718  M00S01554.ver     +++|          SBN    2
Line S01555 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01719  M01S01555.ns2633  ---|          MJN    SMR3        IF INSUFFICIENT LENGTH FOR REPLY
Line S00046 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01720  M01S00046.ns2633  +++|          MJN    SMR6        IF INSUFFICIENT LENGTH FOR REPLY
01721  M00S01556.ver     +++|          LDN    ZERL        CLEAR RESPONSE
01722  M00S01557.ver     +++|          CRD    CL
01723  M00S01558.ver     +++|          RJM    GCC         GET CURRENT NUMBER OF NOS/VE CM WORDS
Line S00047 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S00047.ns2633  +++|          LDD    CM+3
01725  M01S00048.ns2633  +++|          STD    DA
01726  M01S00049.ns2633  +++|          STD    T1
01727  M01S00050.ns2633  +++|          LDD    CM+4
01728  M00S01559.ver     +++|          STD    DB
Line S01560 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01729  M01S01560.ns2633  ---|          SHN    -14
01730  M01S01561.ns2633  ---|          STD    DA
01731  M00S01562.ver     +++|          LDC    UEML        CHECK FOR UEM
01732  M00S01563.ver     +++|          CRD    CM
01733  M00S01564.ver     +++|          LDD    CM+4
01734  M00S01565.ver     +++|          LPN    2
Line S01566 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01735  M01S01566.ns2633  ---|          ZJN    SMR1        IF UEM NOT PRESENT
01736  M01S01567.ns2633  ---|          LDD    CN+3        SUBTRACT CURRENT FROM BLOCK SIZE
01737  M01S01568.ns2633  ---|          SBD    DA
01738  M01S01569.ns2633  ---|          SHN    14
01739  M01S01570.ns2633  ---|          LMD    CN+4
Line S00051 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01740  M01S00051.ns2633  +++|          ZJN    SMR2        IF UEM NOT PRESENT
01741  M01S00052.ns2633  +++|          LDD    CN+4        SUBTRACT CURRENT FROM BLOCK SIZE
01742  M00S01571.ver     +++|          SBD    DB
01743  M00S01572.ver     +++|          STD    CL+4
Line S01573 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01744  M01S01573.ns2633  ---|          SHN    -14
Line S00053 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01745  M01S00053.ns2633  +++|          PJN    SMR1        IF NO BORROW
01746  M01S00054.ns2633  +++|          AOD    T1          ADJUST FOR BORROW
01747  M01S00055.ns2633  +++|          AOD    CL+4
01748  M01S00056.ns2633  +++| SMR1     LDD    CN+3
01749  M01S00057.ns2633  +++|          SBD    T1
01750  M00S01574.ver     +++|          STD    CL+3
Line S01575 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01751  M01S01575.ns2633  ---|          UJN    SMR2        SET RESPONSE
Line S00058 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01752  M01S00058.ns2633  +++|          LJM    SMR5        SET RESPONSE
01753  M00S01576.ver     +++|
Line S01577 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01754  M01S01577.ns2633  ---| SMR1     LDC    MABL        GET MACHINE FL/100B
Line S00059 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01755  M01S00059.ns2633  +++| SMR2     LDC    MABL        GET MACHINE FL/100B
01756  M00S01578.ver     +++|          CRD    CM
01757  M00S01579.ver     +++|          LDD    CM+2        FORM MACHINE FL/1000B
Line S00060 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01758  M01S00060.ns2633  +++|          LPN    7
01759  M00S01580.ver     +++|          SHN    14
01760  M00S01581.ver     +++|          LMD    CM+3
01761  M00S01582.ver     +++|          ADN    7
01762  M00S01583.ver     +++|          SHN    -3
Line S01584 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01763  M01S01584.ns2633  ---|          SBD    CN+2        FORM MACHINE FL - MINCM
Line S00061 Modification History
M01 (Added by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
01764  M01S00061.ns2633  +++|          STD    CM+3
01765  M01S00062.ns2633  +++|          SHN    -14
01766  M01S00063.ns2633  +++|          SHN    3
01767  M01S00064.ns2633  +++|          ADD    CM+2
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/ver.txt ยท Last modified: by 127.0.0.1