Deck 1AJ Part 010

214 Modifications

Seq #  *Modification Id* Act 
----------------------------+
12720  M02S00009.1aj50   ---|          PJN    CSC5        IF ABORT OPTION NOT SELECTED

Seq #  *Modification Id* Act 
----------------------------+
12721  M02S00588.1aj50   ---|          LDC    CWDI+CM
12722  M02S00589.1aj50   ---|          STM    TCSD
12723  M02S00590.1aj50   ---| CSC4     LJM    CSCX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
12724  M02S00010.1aj50   ---|
12725  M02S00011.1aj50   ---| CSC5     LDC    LDNI+SYET   ABORT JOB IF LOAD ERRORS
12726  M02S00012.1aj50   ---|          STM    ISTB
12727  M02S00013.1aj50   ---|          UJN    CSC4        RETURN

Seq #  *Modification Id* Act 
----------------------------+
12728  M01S00015.1aj50   +++| CSC3     LJM    CSCX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
12729  M01S00591.ns21000 +++| IAA      SPACE  4,15
12730  M01S00592.ns21000 +++|***       IAA - ISSUE APPLICATION ACCOUNTING MESSAGE.
12731  M01S00593.ns21000 +++|*
12732  M01S00594.ns21000 +++|*         ENTRY  (T3 - T3+4) = (CP) + *FPFW*.
12733  M01S00595.ns21000 +++|*                (A) = APPLICATION ACCOUNTING BITS.
12734  M01S00596.ns21000 +++|*
12735  M01S00597.ns21000 +++|*         EXIT   APPLICATION ACCOUNTING BITS CLEARED.
12736  M01S00598.ns21000 +++|*                APPLICATION ACCOUNTING MESSAGE ISSUED.
12737  M01S00599.ns21000 +++|*
12738  M01S00600.ns21000 +++|*         USES   FS, CM - CM+4, T3 - T3+4.
12739  M01S00601.ns21000 +++|*
12740  M01S00602.ns21000 +++|*         CALLS  DFM.
12741  M01S00603.ns21000 +++|*
12742  M01S00604.ns21000 +++|*         MACROS MONITOR.
12743  M01S00605.ns21000 +++|
12744  M01S00606.ns21000 +++|
12745  M01S00607.ns21000 +++| IAA      SUBR               ENTRY/EXIT
12746  M01S00608.ns21000 +++|          STD    FS          TEMPORARY SAVE
12747  M01S00609.ns21000 +++|          LDD    T3          CLEAR APPLICATION ACCOUNTING BITS
12748  M01S00610.ns21000 +++|          LPC    6377
12749  M01S00611.ns21000 +++|          STD    T3
12750  M01S00612.ns21000 +++|          LDD    CP          REWRITE ACCOUNTING CONTROL WORD
12751  M01S00613.ns21000 +++|          ADN    FPFW
12752  M01S00614.ns21000 +++|          CWD    T3
12753  M01S00615.ns21000 +++|          SBN    FPFW-CPTW   READ CP ACCUMULATOR WORD
12754  M01S00616.ns21000 +++|          CRD    T3
12755  M01S00617.ns21000 +++|          ADN    CPJW-CPTW   READ CP TIME JOB STEP WORD
12756  M01S00618.ns21000 +++|          CRD    CM
12757  M01S00619.ns21000 +++|          LDD    FS          CHECK FOR ACCOUNTING IN PROCESS
12758  M01S00620.ns21000 +++|          SHN    21-11
12759  M01S00621.ns21000 +++|          PJN    IAAX        IF APPLICATION ACCOUNTING NOT IN PROCESS
12760  M01S00622.ns21000 +++|          LDD    MA          WRITE WORDS TO MESSAGE BUFFER
12761  M01S00623.ns21000 +++|          CWD    T3
12762  M01S00624.ns21000 +++|          ADN    1
12763  M01S00625.ns21000 +++|          CWD    CM
12764  M01S00626.ns21000 +++|          LDN    ABUS
12765  M01S00627.ns21000 +++|          STD    CM+1        SET *ACTM* SUB-FUNCTION (ABUS)
12766  M01S00628.ns21000 +++|          MONITOR  ACTM      CALCULATE CP TIME USED FOR JOB STEP
12767  M01S00629.ns21000 +++|          LDD    MA          READ CONVERSION INTO MESSAGE AREA
12768  M01S00630.ns21000 +++|          CRM    IAAA+3,ON
12769  M01S00631.ns21000 +++|          LDC    ACFN+IAAA
12770  M01S00632.ns21000 +++|          RJM    DFM         DISPLAY IN ACCOUNT DAYFILE
12771  M01S00633.ns21000 +++|          LJM    IAAX        EXIT
12772  M01S00634.ns21000 +++|
12773  M01S00635.ns21000 +++|
12774  M01S00636.ns21000 +++|*         DAYFILE MESSAGE.
12775  M01S00637.ns21000 +++|
12776  M01S00638.ns21000 +++| IAAA     DATA   C*UEAU, 000000.000UNTS.*

Seq #  *Modification Id* Act 
----------------------------+
12777  M01S00110.241l630 +++| INT      SPACE  4,10
12778  M01S00111.241l630 +++|**        INT - INTIALIZE DIRECT CELLS.
12779  M01S00112.241l630 +++|*
12780  M01S00113.241l630 +++|*         EXIT   (JO) = JOB EJT ORDINAL.
12781  M01S00114.241l630 +++|*                (RQSF) = ROLLOUT ALLOWED FLAG.
12782  M01S00115.241l630 +++|*
12783  M01S00116.241l630 +++|*         USES   EF, EP, FA, IR, PF, AB - AB+4, CM - CM+4,
12784  M01S00117.241l630 +++|*                CN - CN+4, CW - CW+4, FS - FS+4, SP - SP+4,
12785  M01S00118.241l630 +++|*                T1 - T7.
12786  M01S00119.241l630 +++|*

Seq #  *Modification Id* Act 
----------------------------+
12787  M02S00120.1aj92   ---|*         CALLS  CAT, CCF, IAA, IFP.

Seq #  *Modification Id* Act 
----------------------------+
12788  M01S00058.1aj92   +++|*         CALLS  AKW, CAT, CCF, CUA, IAA, IFP, IPL, SSF.

Seq #  *Modification Id* Act 
----------------------------+
12789  M01S00121.241l630 +++|*
12790  M01S00122.241l630 +++|*         MACROS MONITOR, NFA, SFA.
12791  M01S00123.241l630 +++|*
12792  M01S00124.241l630 +++|*         NOTE   THE INITIALIZATION CODE IS SPLIT INTO TWO PARTS.
12793  M01S00125.241l630 +++|*                THIS PART IS OVERLAYED BY THE DISK BUFFER.
12794  M01S00126.241l630 +++|
12795  M01S00127.241l630 +++|
12796  M01S00128.241l630 +++| INT      BSS    0           ENTRY
12797  M01S00129.241l630 +++|          RJM    IFP         INITIALIZE *COMPGFP*

Seq #  *Modification Id* Act 
----------------------------+
12798  M01S00059.1aj92   +++|          RJM    CUA         GET USER ACCESS PRIVILEGES
12799  M01S00060.1aj92   +++|          STM    TCSD
12800  M01S00061.1aj92   +++|          LDD    CM
12801  M01S00062.1aj92   +++|          STM    TCSE

Seq #  *Modification Id* Act 
----------------------------+
12802  M01S00130.241l630 +++|          LDD    CP          READ STATUS WORD
12803  M01S00131.241l630 +++|          ADN    STSW
12804  M01S00132.241l630 +++|          CRD    CN
12805  M01S00133.241l630 +++|          ADN    JCIW-STSW   READ JOB CONTROL INFORMATION
12806  M01S00134.241l630 +++|          CRD    AB

Seq #  *Modification Id* Act 
----------------------------+
12807  M02S00135.ns2323  ---|          ADN    UIDW-JCIW   READ VALIDATION FLAG
12808  M02S00136.ns2323  ---|          CRD    FS
12809  M02S00137.ns2323  ---|          ADK    TFSW-UIDW   READ EJT ORDINAL WORD

Seq #  *Modification Id* Act 
----------------------------+
12810  M01S00216.ns2323  +++|          ADK    TFSW-JCIW   READ EJT ORDINAL WORD

Seq #  *Modification Id* Act 
----------------------------+
12811  M01S00138.241l630 +++|          CRD    T1
12812  M01S00139.241l630 +++|          ADK    CSPW-TFSW   READ COMMAND POINTER
12813  M01S00140.241l630 +++|          CRD    SP
12814  M01S00141.241l630 +++|          ADN    SEPW-CSPW   READ SPECIAL ENTRY POINT WORD
12815  M01S00142.241l630 +++|          CRD    CW

Seq #  *Modification Id* Act 
----------------------------+
12816  M02S00143.1aj87   ---|          LDD    T1          SET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
12817  M01S00005.1aj87   +++|          LDD    AB+3
12818  M01S00006.1aj87   +++|          SHN    21-6
12819  M01S00007.1aj87   +++|          PJN    INT0        IF EXTENDED MEMORY PROTECT NOT SELECTED
12820  M01S00008.1aj87   +++|          ISTORE RQSC,(NJN RQS0)
12821  M01S00009.1aj87   +++|          ISTORE RQSJ,(UJN RQS8)
12822  M01S00010.1aj87   +++| INT0     LDD    T1          SET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
12823  M01S00144.241l630 +++|          STD    JO

Seq #  *Modification Id* Act 
----------------------------+
12824  M02S00145.ns2323  ---|          LDD    FS+3        SET VALIDATION STATUS
12825  M02S00146.ns2323  ---|          LPN    40

Seq #  *Modification Id* Act 
----------------------------+
12826  M01S00217.ns2323  +++|          LDD    SP          SET CHARGE REQUIRED STATUS
12827  M01S00218.ns2323  +++|          LPN    4

Seq #  *Modification Id* Act 
----------------------------+
12828  M01S00147.241l630 +++|          STM    TCSA
12829  M01S00148.241l630 +++|          SFA    EJT,JO
12830  M01S00149.241l630 +++|          ADK    SCHE
12831  M01S00150.241l630 +++|          CRD    CM          READ END OF JOB STATUS

Seq #  *Modification Id* Act 
----------------------------+
12832  M02S00151.1aj71   ---|          ADK    SCLE-SCHE

Seq #  *Modification Id* Act 
----------------------------+
12833  M01S00001.1aj71   +++|          ADK    //SCLE-SCHE

Seq #  *Modification Id* Act 
----------------------------+
12834  M01S00152.241l630 +++|          CRD    T1          READ FORCED ROLLIN FLAG
12835  M01S00153.241l630 +++|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
12836  M02S00154.242l642 ---|          SHN    21-12
12837  M02S00155.242l642 ---|          MJN    INT1        IF END OF JOB

Seq #  *Modification Id* Act 
----------------------------+
12838  M01S00433.242l642 +++|          LPC    3000
12839  M01S00434.242l642 +++|          LMK    NOTM*1000
12840  M01S00435.242l642 +++|          NJN    INT1        IF END OF JOB

Seq #  *Modification Id* Act 
----------------------------+
12841  M01S00156.241l630 +++|          LDD    AB+2
12842  M01S00157.241l630 +++|          SBK    LSSI+1
12843  M01S00158.241l630 +++|          MJN    INT2        IF NOT A SUBSYSTEM
12844  M01S00159.241l630 +++| INT1     LDC    UJNI+BCP19-BCPG  BYPASS CLEAR OF MEMORY
12845  M01S00160.241l630 +++|          STM    BCPG
12846  M01S00161.241l630 +++| INT2     LDD    AB+2        SET/CLEAR ROLLOUT ALLOWED FLAG
12847  M01S00162.241l630 +++|          NJN    INT3        IF ROLLOUT NOT ALLOWED
12848  M01S00163.241l630 +++|          LDD    AB+3
12849  M01S00164.241l630 +++|          LPC    1000
12850  M01S00165.241l630 +++|          NJN    INT3        IF *DIS* ASSIGNED TO JOB

Seq #  *Modification Id* Act 
----------------------------+
12851  M01S00001.ns2542  +++|          LDD    AB+1
12852  M01S00002.ns2542  +++|          LPN    10
12853  M01S00003.ns2542  +++|          NJN    INT3        IF *CPUPFM* ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
12854  M01S00166.241l630 +++|          LDD    T1
12855  M01S00167.241l630 +++|          LPN    20
12856  M01S00168.241l630 +++| INT3     STM    RQSF
12857  M01S00169.241l630 +++|          LDN    0
12858  M01S00170.241l630 +++|          STD    PF          CLEAR PROGRAM FORMAT
12859  M01S00171.241l630 +++|          STD    FA          CLEAR FNT ADDRESS
12860  M01S00172.241l630 +++|          STD    EF          CLEAR/SET ERROR FLAG
12861  M01S00173.241l630 +++|          STD    EP          CLEAR ENTRY POINT
12862  M01S00174.241l630 +++|          LDD    IR          CHECK FOR *TCS* CALL
12863  M01S00175.241l630 +++|          LMC    2RTC
12864  M01S00176.241l630 +++|          ZJN    INT5        IF *TCS* CALL

Seq #  *Modification Id* Act 
----------------------------+
12865  M02S00177.1aj84   ---|          LDD    CP          READ APPLICATION ACCOUNTING CONTROL WORD
12866  M02S00178.1aj84   ---|          ADN    FPFW
12867  M02S00179.1aj84   ---|          CRD    T3
12868  M02S00180.1aj84   ---|          LDD    T3          CHECK FOR ACCOUNTING IN PROCESS
12869  M02S00181.1aj84   ---|          LPC    1400
12870  M02S00182.1aj84   ---|          ZJN    INT4        IF APPLICATION ACCOUNTING NOT SET
12871  M02S00183.1aj84   ---|          RJM    IAA         ISSUE APPLICATION ACCOUNTING MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
12872  M01S00184.241l630 +++| INT4     LJM    INT7        DETERMINE ORIGIN TYPE
12873  M01S00185.241l630 +++|

Seq #  *Modification Id* Act 
----------------------------+
12874  M02S00186.273l780 ---| INT5     AOM    RQSG        SET *TCS* FLAG
12875  M02S00187.273l780 ---|          LDC    LDNI+DPPM

Seq #  *Modification Id* Act 
----------------------------+
12876  M01S00008.273l780 +++| INT5     LDC    LDNI+DPPM

Seq #  *Modification Id* Act 
----------------------------+
12877  M01S00188.241l630 +++|          STM    DPPA

Seq #  *Modification Id* Act 
----------------------------+
12878  M02S00189.273l780 ---|          SCN    77
12879  M02S00190.273l780 ---|          STM    RQSH
12880  M02S00191.273l780 ---|          ADK    RECM        PREVENT *JACM* FOR *TCS* RA+1 CALL
12881  M02S00192.273l780 ---|          STM    RQSI

Seq #  *Modification Id* Act 
----------------------------+
12882  M02S00436.273l780 ---|          AOM    SPFB        FLAG JOB ADVANCE NOT SET

Seq #  *Modification Id* Act 
----------------------------+
12883  M02S00193.273l780 ---|          LDC    UJNI+77+IST3-ISTC
12884  M02S00194.273l780 ---|          STM    ISTC        DONT ADVANCE JOB IF RA+1 *TCS* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
12885  M01S00009.273l780 +++|          AOM    MSRA        SET NO JOB ADVANCE FLAG

Seq #  *Modification Id* Act 
----------------------------+
12886  M01S00195.241l630 +++|          LDD    IR+2
12887  M01S00196.241l630 +++|          LMN    5
12888  M01S00197.241l630 +++|          ZJN    INT6        IF EXECUTE COMMAND FROM CM
12889  M01S00198.241l630 +++|          LJM    INT10       CHECK ERROR FLAG
12890  M01S00199.241l630 +++|
12891  M01S00200.241l630 +++|*         THE JOB ADVANCE FLAG IS SET FOR A *TCS* CALL (TO
12892  M01S00201.241l630 +++|*         EXECUTE A COMMAND FROM CM) BY SAVING THE REQUEST,
12893  M01S00202.241l630 +++|*         DROPPING THE CPU, AND WAITING FOR THE SYSTEM TO ADVANCE
12894  M01S00203.241l630 +++|*         THE JOB.  WHEN THE JOB IS ADVANCED, *1AJ* THEN ATTEMPTS TO
12895  M01S00204.241l630 +++|*         START UP THE COMMAND FROM THE CM ADDRESS POINTED
12896  M01S00205.241l630 +++|*         TO BY THE ORIGINAL *TCS* REQUEST WITH JOB ADVANCE SET.
12897  M01S00206.241l630 +++|
12898  M01S00207.241l630 +++| INT6     RJM    CAT         CLEAR ADDRESS FOR *TCS* EXECUTE COMMAND
12899  M01S00208.241l630 +++|          RJM    CCF         CLEAR CONTROL FIELDS
12900  M01S00209.241l630 +++|          LDD    IR+3        SAVE *TCS* REQUEST ADDRESS
12901  M01S00210.241l630 +++|          LPN    77
12902  M01S00211.241l630 +++|          SHN    14
12903  M01S00212.241l630 +++|          LMD    IR+4
12904  M01S00213.241l630 +++|          SHN    14
12905  M01S00214.241l630 +++|          STD    CM+2
12906  M01S00215.241l630 +++|          SHN    -6
12907  M01S00216.241l630 +++|          SCN    77
12908  M01S00217.241l630 +++|          RAD    CM+3
12909  M01S00218.241l630 +++|          LDD    T1
12910  M01S00219.241l630 +++|          CWD    CM
12911  M01S00220.241l630 +++|          LDN    1           SELECT CLEAR CPU STATUS
12912  M01S00221.241l630 +++|          STD    CM+1
12913  M01S00222.241l630 +++|          MONITOR  DCPM
12914  M01S00223.241l630 +++|          LJM    DPP         DROP PP
12915  M00S08055.1aj     +++|
12916  M00S08056.1aj     +++| IFP      HERE               ASSEMBLE *COMPGFP* INITIALIZATION
12917  M00S08057.1aj     +++|*CALL     COMPAST

Seq #  *Modification Id* Act 
----------------------------+
12918  M01S00063.1aj92   +++|*CALL     COMPCUA
12919  M00S08058.1aj     +++|*CALL     COMPSTA
12920  M00S08059.1aj     +++|          SPACE  4,10
12921  M00S08060.1aj     +++|          OVERFLOW
12922  M00S08061.1aj     +++|          TTL    1AJ/3AC - SEARCH PERIPHERAL LIBRARY.
12923  M00S08062.1aj     +++|          TITLE
12924  M00S08063.1aj     +++|          IDENT  3AC,SPLX    SEARCH PERIPHERAL LIBRARY.
12925  M00S08064.1aj     +++|*COMMENT  1AJ - SEARCH PERIPHERAL LIBRARY.

Seq #  *Modification Id* Act 
----------------------------+
12926  M01S08065.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
12927  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
12928  M00S08066.1aj     +++|          SPACE  4,10
12929  M00S08067.1aj     +++|***       3AC - SEARCH PERIPHERAL LIBRARY.
12930  M00S08068.1aj     +++|*
12931  M00S08069.1aj     +++|*         *3AC* SEARCHES FOR PROGRAM NAME IN THE PERIPHERAL LIBRARY.
12932  M00S08070.1aj     +++| SPL      SPACE  4,15
12933  M00S08071.1aj     +++|**        SPL - MAIN ROUTINE.
12934  M00S08072.1aj     +++|*
12935  M00S08073.1aj     +++|*         ENTRY  (AB - AB+4) = ASSEMBLED NAME.
12936  M00S08074.1aj     +++|*
12937  M00S08075.1aj     +++|*         EXIT   RETURN IF NOT FOUND.
12938  M00S08076.1aj     +++|*                TO CALLED PROGRAM.
12939  M00S08077.1aj     +++|*                (ISDA) = 0 IF PROGRAM FOUND.
12940  M00S08078.1aj     +++|*
12941  M00S08079.1aj     +++|*         USES   T2, T3, AB - AB+4, CM - CM+4.
12942  M00S08080.1aj     +++|*
12943  M00S08081.1aj     +++|*         CALLS  AOD.
12944  M00S08082.1aj     +++|*
12945  M00S08083.1aj     +++|*         MACROS MONITOR.
12946  M00S08084.1aj     +++|
12947  M00S08085.1aj     +++|
12948  M00S08086.1aj     +++|          ORG    OVL+5
12949  M00S08087.1aj     +++|
12950  M00S08088.1aj     +++| SPL      SUBR               ENTRY/EXIT
12951  M00S08089.1aj     +++|          LDD    AB          CHECK FIRST CHARACTER OF NAME
12952  M00S08090.1aj     +++|          SHN    -6
12953  M00S08091.1aj     +++|          STD    CM+2
12954  M00S08092.1aj     +++|          SBN    1R0
12955  M00S08093.1aj     +++|          PJN    SPLX        IF NOT LETTER
12956  M00S08094.1aj     +++|          LDD    AB+1
12957  M00S08095.1aj     +++|          LPN    77
12958  M00S08096.1aj     +++|          NJN    SPLX        IF MORE THAN 3 CHARACTERS
12959  M00S08097.1aj     +++|          LDD    AB+1        SET PROGRAM NAME IN REQUEST
12960  M00S08098.1aj     +++|          SHN    6
12961  M00S08099.1aj     +++|          LMD    AB
12962  M00S08100.1aj     +++|          SHN    6
12963  M00S08101.1aj     +++|          STD    CM+3
12964  M00S08102.1aj     +++|          MONITOR  SPLM      SEARCH PERIPHERAL LIBRARY
12965  M00S08103.1aj     +++|          LDD    CM+1
12966  M00S08104.1aj     +++|          SHN    -6-1
12967  M00S08105.1aj     +++|          NJN    SPLX        IF NOT FOUND
12968  M00S08106.1aj     +++|          STM    ISDA
12969  M00S08107.1aj     +++|
12970  M00S08108.1aj     +++|*         ENTER NUMERIC ARGUMENTS.
12971  M00S08109.1aj     +++|
12972  M00S08110.1aj     +++|          LDI    CA          CHECK NEXT CHARACTER
12973  M00S08111.1aj     +++|          ZJN    SPL2        IF TERMINATOR
12974  M00S08112.1aj     +++|          AOD    CA
12975  M00S08113.1aj     +++|          RJM    AOD         ASSEMBLE DIGITS
12976  M00S08114.1aj     +++|          LDI    CA          CHECK NEXT CHARACTER
12977  M00S08115.1aj     +++|          ZJN    SPL1        IF TERMINATOR
12978  M00S08116.1aj     +++|          LDD    T3          SET PARAMETER 1
12979  M00S08117.1aj     +++|          SHN    6
12980  M00S08118.1aj     +++|          STD    AB+3
12981  M00S08119.1aj     +++|          ADD    T2
12982  M00S08120.1aj     +++|          SHN    6
12983  M00S08121.1aj     +++|          STD    AB+2
12984  M00S08122.1aj     +++|          AOD    CA          ASSEMBLE DIGITS
12985  M00S08123.1aj     +++|          RJM    AOD
12986  M00S08124.1aj     +++| SPL1     LDD    T2          SET PARAMETER 2
12987  M00S08125.1aj     +++|          RAD    AB+3
12988  M00S08126.1aj     +++|          LDD    T3
12989  M00S08127.1aj     +++|          STD    AB+4
12990  M00S08128.1aj     +++| SPL2     LDD    IR+1        SET CP NUMBER
12991  M00S08129.1aj     +++|          LPN    37
12992  M00S08130.1aj     +++|          RAD    AB+1
12993  M00S08131.1aj     +++|          LDD    IA          WRITE INPUT REGISTER
12994  M00S08132.1aj     +++|          CWD    AB
12995  M00S08133.1aj     +++|          LDN    10          SET PP PROGRAM FORMAT
12996  M00S08134.1aj     +++|          STD    PF

Seq #  *Modification Id* Act 
----------------------------+
12997  M01S08135.v23l617 ---|          LJM    IST6        ISSUE STATEMENT TO DAYFILE

Seq #  *Modification Id* Act 
----------------------------+
12998  M01S00769.v23l617 +++|          LJM    IST6        ISSUE COMMAND TO DAYFILE
12999  M00S08136.1aj     +++| AOD      SPACE  4,10
13000  M00S08137.1aj     +++|**        AOD - ASSEMBLE OCTAL DIGITS.
13001  M00S08138.1aj     +++|*
13002  M00S08139.1aj     +++|*         ENTRY  (CA) = CHARACTER ADDRESS.
13003  M00S08140.1aj     +++|*
13004  M00S08141.1aj     +++|*         EXIT   (T2 - T3) = ASSEMBLED DIGITS.
13005  M00S08142.1aj     +++|*
13006  M00S08143.1aj     +++|*         ERROR  TO *ERR* IF MORE THAN 6 DIGITS.
13007  M00S08144.1aj     +++|*
13008  M00S08145.1aj     +++|*         USES   T1, T4.
13009  M00S08146.1aj     +++|*
13010  M00S08147.1aj     +++|*         CALLS  ARG, ASN.
13011  M00S08148.1aj     +++|
13012  M00S08149.1aj     +++|
13013  M00S08150.1aj     +++| AOD3     SOD    T4          RESET CHARACTER ADDRESS
13014  M00S08151.1aj     +++|          STD    CA
13015  M00S08152.1aj     +++|          RJM    ARG         PROCESS ARGUMENTS
13016  M00S08153.1aj     +++|          LDD    KA          SET KEYWORD ADDRESS
13017  M00S08154.1aj     +++|          STD    CA
13018  M00S08155.1aj     +++|          RJM    ASN         ASSEMBLE NAME
13019  M00S08156.1aj     +++|          LDN    0           CLEAR OCTAL ASSEMBLY
13020  M00S08157.1aj     +++|          STD    T2
13021  M00S08158.1aj     +++|          STD    T3
13022  M00S08159.1aj     +++|
13023  M00S08160.1aj     +++| AOD      SUBR               ENTRY/EXIT
13024  M00S08161.1aj     +++|          LDD    CA          SAVE CHARACTER ADDRESS
13025  M00S08162.1aj     +++|          STD    T4
13026  M00S08163.1aj     +++|          LDN    0           CLEAR ASSEMBLY
13027  M00S08164.1aj     +++|          STD    T2
13028  M00S08165.1aj     +++|          STD    T3
13029  M00S08166.1aj     +++| AOD1     LDI    CA          CHECK CHARACTER
13030  M00S08167.1aj     +++|          ZJN    AODX        IF TERMINATOR
13031  M00S08168.1aj     +++|          SBN    1R0
13032  M00S08169.1aj     +++|          STD    T1
13033  M00S08170.1aj     +++|          MJN    AOD3        IF ALPHA
13034  M00S08171.1aj     +++|          SBN    1R+-1R0
13035  M00S08172.1aj     +++|          PJN    AODX        IF SEPARATOR
13036  M00S08173.1aj     +++|          ADN    1R+-1R8
13037  M00S08174.1aj     +++|          PJN    AOD3        IF OCTAL
13038  M00S08175.1aj     +++|          LDD    T2          CHECK ASSEMBLY
13039  M00S08176.1aj     +++|          SCN    7
13040  M00S08177.1aj     +++|          NJN    AOD2        IF TOO MANY DIGITS
13041  M00S08178.1aj     +++|          LDD    T2          SHIFT ASSEMBLY
13042  M00S08179.1aj     +++|          SHN    14
13043  M00S08180.1aj     +++|          ADD    T3
13044  M00S08181.1aj     +++|          SHN    3
13045  M00S08182.1aj     +++|          ADD    T1          ADD NEW DIGIT
13046  M00S08183.1aj     +++|          STD    T3          STORE ASSEMBLY
13047  M00S08184.1aj     +++|          SHN    -14
13048  M00S08185.1aj     +++|          STD    T2
13049  M00S08186.1aj     +++|          AOD    CA          ADVANCE CHARACTER
13050  M00S08187.1aj     +++|          UJN    AOD1        LOOP
13051  M00S08188.1aj     +++|
13052  M00S08189.1aj     +++| AOD2     LJM    ERR         FORMAT ERROR
13053  M00S08190.1aj     +++|          SPACE  4,10
13054  M00S08191.1aj     +++|          ERRNG  BFMS-*
13055  M00S08192.1aj     +++|          TTL    1AJ/LDR - LOAD CENTRAL PROGRAM.
13056  M00S08193.1aj     +++|          TITLE
13057  M00S08194.1aj     +++|          QUAL   LDR
13058  M00S08195.1aj     +++|          IDENT  LDR,LDR     LOAD CENTRAL PROGRAM.
13059  M00S08196.1aj     +++|*COMMENT  1AJ - LOAD CENTRAL PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
13060  M01S08197.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
13061  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
13062  M00S08198.1aj     +++|          SPACE  4,10
13063  M00S08199.1aj     +++|***       LDR - OVERLAY LOADER.
13064  M00S08200.1aj     +++|*
13065  M00S08201.1aj     +++|*         *LDR* LOADS OVERLAYS IN RESPONSE TO CPU PROGRAM REQUESTS.
13066  M00S08202.1aj     +++|          SPACE  4,10
13067  M00S08203.1aj     +++|***       CALL.
13068  M00S08204.1aj     +++|*
13069  M00S08205.1aj     +++|*         18/  *LDR*,1/ ,1/A,22/,18/ADDR
13070  M00S08206.1aj     +++|*         A      AUTO RECALL IF DESIRED
13071  M00S08207.1aj     +++|*         ADDR   ADDRESS OF REQUEST
13072  M00S08208.1aj     +++|*
13073  M00S08209.1aj     +++|*         THE LOAD REQUEST CONSISTS OF 2 - 4 WORDS.
13074  M00S08210.1aj     +++|*
13075  M00S08211.1aj     +++|*T ADDR   42/  *NAME*,18/0

Figure ADDR

13076  M00S08212.1aj     +++|*T,       6/L1,6/L2,2/N,3/0,1/U,1/V,4/0,1/E,18/LWA,18/FWA

Figure

13077  M00S08213.1aj     +++|*T,       42/  *OVLNAME*,18/0

Figure

13078  M00S08214.1aj     +++|*T,       42/  *EPTNAME*,18/0

Figure

13079  M00S08215.1aj     +++|*
13080  M00S08216.1aj     +++|*         *NAME* SOURCE OF NAME DEPENDING ON *U* AND *N*.
13081  M00S08217.1aj     +++|*         L1     FIRST OVERLAY LEVEL.
13082  M00S08218.1aj     +++|*         L2     SECOND OVERLAY LEVEL.
13083  M00S08219.1aj     +++|*         N      NUMBER OF WORDS IN REQUEST - 2.
13084  M00S08220.1aj     +++|*         U      LOAD OPTION (SEE BELOW).
13085  M00S08221.1aj     +++|*         V      OVERLAY FLAG (MUST BE SET TO 1).
13086  M00S08222.1aj     +++|*         E      CALL COMPLETION FLAG (SEE BELOW).
13087  M00S08223.1aj     +++|*         FWA    FIRST WORD ADDRESS OF OVERLAY.
13088  M00S08224.1aj     +++|*         LWA    LAST WORD ADDRESS AVAILABLE FOR LOAD.
13089  M00S08225.1aj     +++|*         *OVLNAME*  NAME OF OVERLAY TO BE LOADED (IF N"0).
13090  M00S08226.1aj     +++|*         *EPTNAME*  ENTRY POINT NAME WHEN LOADING MULTIPLE ENTRY
13091  M00S08227.1aj     +++|*                  POINT OVERLAY (IF N=2).
13092  M00S08228.1aj     +++|*
13093  M00S08229.1aj     +++|*         IF U=0      N IS IGNORED AND *NAME* IS THE NAME OF THE
13094  M00S08230.1aj     +++|*                     FILE CONTAINING OVERLAY (L1 AND L2 ARE REQUIRED).
13095  M00S08231.1aj     +++|*
13096  M00S08232.1aj     +++|*         IF U=1 AND N=0  *NAME* IS THE NAME OF THE OVERLAY FROM
13097  M00S08233.1aj     +++|*                         SYSTEM (L1 AND L2 ARE IGNORED).
13098  M00S08234.1aj     +++|*
13099  M00S08235.1aj     +++|*         IF U=1 AND N"0  *OVLNAME* IS THE NAME OF THE OVERLAY FROM
13100  M00S08236.1aj     +++|*                         SYSTEM (L1 AND L2 ARE IGNORED).
13101  M00S08237.1aj     +++|*
13102  M00S08238.1aj     +++|*         IF FWA=0,  OVERLAY IS LOADED AT ADDRESS SPECIFIED BY OVERLAY.
13103  M00S08239.1aj     +++|*
13104  M00S08240.1aj     +++|*         IF L1=L2=0, CONTROL IS TO CALLED OVERLAY, OTHERWISE, CONTROL
13105  M00S08241.1aj     +++|*                     IS RETURNED TO CALLER WITH *FWA* = ENTRY ADDRESS.
13106  M00S08242.1aj     +++|*
13107  M00S08243.1aj     +++|*         IF E=1,  CONTROL TRANSFERS TO THE SPECIFIED ENTRY POINT
13108  M00S08244.1aj     +++|*                  (*EPTNAME*) IN THE OVERLAY.
13109  M00S08245.1aj     +++|*
13110  M00S08246.1aj     +++|*
13111  M00S08247.1aj     +++|*         UPON COMPLETION OF THE LOAD, INFORMATION IS RETURNED IN THE
13112  M00S08248.1aj     +++|*         CALL BLOCK AS FOLLOWS-
13113  M00S08249.1aj     +++|*
13114  M00S08250.1aj     +++|*T ADDR   42/  *NAME*,18/0

Figure ADDR

13115  M00S08251.1aj     +++|*T,       6/L1,6/L2,30/0,18/EPTADDR

Figure

13116  M00S08252.1aj     +++|*T,       42/  *OVLNAME*,18/0

Figure

13117  M00S08253.1aj     +++|*T,       42/  *EPTNAME*,18/0

Figure

13118  M00S08254.1aj     +++|*
13119  M00S08255.1aj     +++|*         EPTADDR  ENTRY POINT ADDRESS OF OVERLAY.
13120  M00S08256.1aj     +++|*                  IF N=2, EPTADDR IS ADDRESS OF *EPTNAME*.
13121  M00S08257.1aj     +++|          SPACE  4,10
13122  M00S08258.1aj     +++|***       DAYFILE MESSAGES.
13123  M00S08259.1aj     +++|*
13124  M00S08260.1aj     +++|*         * OVERLAY NOT FOUND IN LIBRARY - OVLNAME* REQUESTED
13125  M00S08261.1aj     +++|*         OVERLAY *OVLNAME* WAS NOT FOUND IN THE SYSTEM LIBRARY.
13126  M00S08262.1aj     +++|*
13127  M00S08263.1aj     +++|*         * ARG ERROR.* = LDR PARMAETERS WERE OUTSIDE FL.
13128  M00S08264.1aj     +++|*
13129  M00S08265.1aj     +++|*         * FILE NOT OVERLAY FORMAT.* = FIRST RECORD OF FILE WAS NOT
13130  M00S08266.1aj     +++|*         AN OVERLAY.
13131  M00S08267.1aj     +++|*
13132  M00S08268.1aj     +++|*         * LDR ERROR.*  ISSUED BEFORE ONE OF ABOVE ERRORS.
13133  M00S08269.1aj     +++|
13134  M00S08270.1aj     +++|*         * I/O ON EXECUTE-ONLY FILE.* = AN OVERLAY LOAD HAS BEEN
13135  M00S08271.1aj     +++|*         ATTEMPTED FOR AN EXECUTE-ONLY FILE OTHER THAN THAT
13136  M00S08272.1aj     +++|*         FROM WHICH THE MAIN PROGRAM WAS LOADED.
13137  M00S08273.1aj     +++|          SPACE  4,10
13138  M00S08274.1aj     +++|**        COMMON DECKS.
13139  M00S08275.1aj     +++|
13140  M00S08276.1aj     +++|
13141  M00S08277.1aj     +++|          QUAL   MSP
13142  M00S08278.1aj     +++|*CALL     COMSMSP
13143  M00S08279.1aj     +++|          QUAL   *
13144  M00S08280.1aj     +++|          SPACE  4,10
13145  M00S08281.1aj     +++|****      DIRECT LOCATION ASSIGNMENTS.
13146  M00S08282.1aj     +++|
13147  M00S08283.1aj     +++|
13148  M00S08284.1aj     +++| WC       EQU    T8          SECTOR WORD COUNT
13149  M00S08285.1aj     +++| PF       EQU    /TCS/PF
13150  M00S08286.1aj     +++| LV       EQU    /TCS/CA
13151  M00S08287.1aj     +++|****
13152  M00S08288.1aj     +++|          TITLE  MAIN PROGRAM.
13153  M00S08289.1aj     +++| LDR      SPACE  4,10
13154  M00S08290.1aj     +++|**        LDR - MAIN PROGRAM.
13155  M00S08291.1aj     +++|*
13156  M00S08292.1aj     +++|*         CALLS  /3AE/CLD, /3AE/LCP, *3AD*.
13157  M00S08293.1aj     +++|*
13158  M00S08294.1aj     +++|*         MACROS EXECUTE, LDA, NFA.
13159  M00S08295.1aj     +++|
13160  M00S08296.1aj     +++|
13161  M00S08297.1aj     +++|          ORG    PPFW
13162  M00S08298.1aj     +++| LDR      LDN    0           CLEAR FNT ADDRESS
13163  M00S08299.1aj     +++|          STD    EP          CLEAR ENTRY POINT
13164  M00S08300.1aj     +++|          STD    FA
13165  M00S08301.1aj     +++|
13166  M00S08302.1aj     +++|*         LOAD COPY ROUTINES.
13167  M00S08303.1aj     +++|
13168  M00S08304.1aj     +++|          EXECUTE  3AE

Seq #  *Modification Id* Act 
----------------------------+
13169  M01S00437.242l642 +++|          AOM    /3AE/MSRA   SET NON JOB ADVANCE TYPE ERROR PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
13170  M01S08305.ns2488  ---|          LDN    40          SET LDR COMPLETION
13171  M01S08306.ns2488  ---|          RAM    /3AE/SLPB
13172  M01S08307.ns2488  ---|

Seq #  *Modification Id* Act 
----------------------------+
13173  M01S00001.ns2488  +++|          AOM    /3AE/SLPB   SET LDR CALL FLAG
13174  M00S08308.1aj     +++|
13175  M00S08309.1aj     +++|*         CHECK REQUEST ADDRESS.
13176  M00S08310.1aj     +++|
13177  M00S08311.1aj     +++|          LDD    IR+3        CHECK ARGUMENT ADDRESS
13178  M00S08312.1aj     +++|          SHN    14
13179  M00S08313.1aj     +++|          LMD    IR+4
13180  M00S08314.1aj     +++|          MJN    LDR1        IF OUT OF RANGE
13181  M00S08315.1aj     +++|          ADN    1
13182  M00S08316.1aj     +++|          SHN    -6
13183  M00S08317.1aj     +++|          SBD    FL
13184  M00S08318.1aj     +++|          PJN    LDR1        IF \ FL-1
13185  M00S08319.1aj     +++|
13186  M00S08320.1aj     +++|*         CHECK REQUEST.
13187  M00S08321.1aj     +++|
13188  M00S08322.1aj     +++|          LDA    IR+3        READ FILE/PROGRAM NAME
13189  M00S08323.1aj     +++|          CRD    AB
13190  M00S08324.1aj     +++|          CRM    LDRD,ON     SET NAME IN MESSAGE
13191  M00S08325.1aj     +++|          CRD    CM          READ REQUEST WORD
13192  M00S08326.1aj     +++|          LDD    CM+3        CHECK FWA
13193  M00S08327.1aj     +++|          LPN    37
13194  M00S08328.1aj     +++|          RAM    /3AE/CMSA
13195  M00S08329.1aj     +++|          STM    /3AE/CCMA
13196  M00S08330.1aj     +++|          LPN    37
13197  M00S08331.1aj     +++|          SHN    14
13198  M00S08332.1aj     +++|          LMD    CM+4
13199  M00S08333.1aj     +++|          STM    /3AE/CMSA+1
13200  M00S08334.1aj     +++|          STM    /3AE/CCMA+1
13201  M00S08335.1aj     +++|          SHN    -6
13202  M00S08336.1aj     +++|          SBD    FL
13203  M00S08337.1aj     +++|          MJN    LDR2        IF NOT OUT OF RANGE
13204  M00S08338.1aj     +++| LDR1     LDC    =C* ARG. ERROR.*
13205  M00S08339.1aj     +++|          LJM    LDE         PROCESS ERROR
13206  M00S08340.1aj     +++|
13207  M00S08341.1aj     +++| LDR2     LDD    CM+3        CHECK LWA
13208  M00S08342.1aj     +++|          SHN    -6
13209  M00S08343.1aj     +++|          STD    LV          SAVE LWA
13210  M00S08344.1aj     +++|          SHN    14
13211  M00S08345.1aj     +++|          LMD    CM+2
13212  M00S08346.1aj     +++|          NJN    LDR3        IF LWA SPECIFIED
13213  M00S08347.1aj     +++|          LJM    LDR4        SET OVERLAY LEVELS
13214  M00S08348.1aj     +++|
13215  M00S08349.1aj     +++| LDR3     SHN    6
13216  M00S08350.1aj     +++|          SHN    -6
13217  M00S08351.1aj     +++|          SBD    FL
13218  M00S08352.1aj     +++|          PJN    LDR1        IF LWA BEYOND FL
13219  M00S08353.1aj     +++|          ADD    FL
13220  M00S08354.1aj     +++|          SHN    6
13221  M00S08355.1aj     +++|          LMD    LV          RESTORE LWA
13222  M00S08356.1aj     +++|          ADN    1           ALLOW LOAD UP TO AND INCLUDING LWA
13223  M00S08357.1aj     +++|          STM    /3AE/CMSE+1
13224  M00S08358.1aj     +++|          STM    LDRB+4      SET LWA + 1 FOR LOAD COPY ROUTINES
13225  M00S08359.1aj     +++|          LMC    777777
13226  M00S08360.1aj     +++|          STM    /3AE/CMSB+1
13227  M00S08361.1aj     +++|          STM    /3AE/CPHA+1
13228  M00S08362.1aj     +++|          LMC    777777
13229  M00S08363.1aj     +++|          SHN    -14
13230  M00S08364.1aj     +++|          STM    LDRB+3
13231  M00S08365.1aj     +++|          LMC    ADCI+77
13232  M00S08366.1aj     +++|          STM    /3AE/CMSB
13233  M00S08367.1aj     +++|          STM    /3AE/CPHA
13234  M00S08368.1aj     +++|          LMC    LDCI&ADCI+77
13235  M00S08369.1aj     +++|          STM    /3AE/CMSE
13236  M00S08370.1aj     +++|          AOM    /3AE/CCMB   FLAG FWA SPECIFIED
13237  M00S08371.1aj     +++| LDR4     LDD    CM          SET OVERLAY LEVELS
13238  M00S08372.1aj     +++|          STD    LV
13239  M00S08373.1aj     +++|          LDD    CM+1
13240  M00S08374.1aj     +++|          LPN    1           SET RETURN FLAG
13241  M00S08375.1aj     +++|          RAM    LDRA
13242  M00S08376.1aj     +++|          LDN    1           SET FLAG FOR USER LIBRARY LOAD FALSE
13243  M00S08377.1aj     +++|          STD    CW
13244  M00S08378.1aj     +++|          LDD    CM+1        CHECK REQUEST
13245  M00S08379.1aj     +++|          SHN    21-6
13246  M00S08380.1aj     +++|          MJN    LDR5        IF LIBRARY LOAD
13247  M00S08381.1aj     +++|          LJM    LDR10       PROCESS LOCAL FILE LOAD
13248  M00S08382.1aj     +++|
13249  M00S08383.1aj     +++| LDR5     SHN    -3
13250  M00S08384.1aj     +++|          LPN    3
13251  M00S08385.1aj     +++|          ZJN    LDR6        IF TWO WORD REQUEST
13252  M00S08386.1aj     +++|          ADN    1
13253  M00S08387.1aj     +++|          SHN    6
13254  M00S08388.1aj     +++|          ADD    IR+3
13255  M00S08389.1aj     +++|          SHN    6
13256  M00S08390.1aj     +++|          ADD    RA          READ OVERLAY/ENTRY NAME
13257  M00S08391.1aj     +++|          SHN    6
13258  M00S08392.1aj     +++|          ADD    IR+4
13259  M00S08393.1aj     +++|          CRD    AB
13260  M00S08394.1aj     +++|          CRM    LDRD,ON     SET NAME IN MESSAGE
13261  M00S08395.1aj     +++|
13262  M00S08396.1aj     +++|*         PROCESS LIBRARY SEARCH.
13263  M00S08397.1aj     +++|
13264  M00S08398.1aj     +++| LDR6     LDD    AB+3        CLEAR EIGHTH CHARACTER
13265  M00S08399.1aj     +++|          SCN    77
13266  M00S08400.1aj     +++|          STD    AB+3
13267  M00S08401.1aj     +++|          STM    LDRE
13268  M00S08402.1aj     +++|          LDN    0           TERMINATE MESSAGE
13269  M00S08403.1aj     +++|          STM    LDRE+1
13270  M00S08404.1aj     +++|          LDD    CP          CHECK USER LIBRARY LOAD FLAG
13271  M00S08405.1aj     +++|          ADC    LB1W
13272  M00S08406.1aj     +++|          CRD    CW
13273  M00S08407.1aj     +++|          LDD    CW
13274  M00S08408.1aj     +++|          LPN    1
13275  M00S08409.1aj     +++|          ZJN    LDR7        IF NOT USER LIBRARY LOAD
13276  M00S08410.1aj     +++|          LDD    CP          GET ADDRESS OF USER LIBRARY
13277  M00S08411.1aj     +++|          ADC    EOCW
13278  M00S08412.1aj     +++|          CRD    AB
13279  M00S08413.1aj     +++|          NFA    AB,R        GET LIBRARY NAME
13280  M00S08414.1aj     +++|          CRD    AB
13281  M00S08415.1aj     +++|          LDN    0           SET FLAG FOR USER LIBRARY LOAD
13282  M00S08416.1aj     +++|          STD    CW          FLAG FOR USER LIBRARY LOAD
13283  M00S08417.1aj     +++|          LDD    AB+3        CLEAR EIGHTH CHARACTER
13284  M00S08418.1aj     +++|          SCN    77B
13285  M00S08419.1aj     +++|          STD    AB+3
13286  M00S08420.1aj     +++|          LDD    CM+1        SAVE CALL BLOCK SIZE
13287  M00S08421.1aj     +++|          SHN    -12
13288  M00S08422.1aj     +++|          LJM    LDR11       PROCESS LOCAL FILE LOAD
13289  M00S08423.1aj     +++|
13290  M00S08424.1aj     +++| LDR7     RJM    /3AE/CLD    SEARCH CENTRAL LIBRARY DIRECTORY
13291  M00S08425.1aj     +++|          ZJN    LDR8        IF NOT FOUND
13292  M00S08426.1aj     +++|          CRD    CW          READ CONTROL WORD
13293  M00S08427.1aj     +++|          SBN    1
13294  M00S08428.1aj     +++|          CRD    CN          READ FIRST WORD
13295  M00S08429.1aj     +++|          LDD    MA          SET ENTRY POINT NAME
13296  M00S08430.1aj     +++|          CWD    AB
13297  M00S08431.1aj     +++|          CRM    /3AE/CL,ON

Seq #  *Modification Id* Act 
----------------------------+
13298  M01S08432.ns22000 ---|          LDN    0           CLEAR EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
13299  M01S00226.ns22000 +++|          LDN    0           CLEAR EST ORDINAL
13300  M00S08433.1aj     +++|          STD    T5
13301  M00S08434.1aj     +++|          LDD    CW+1        CHECK PROGRAM LOCATION
13302  M00S08435.1aj     +++|          LPC    2000
13303  M00S08436.1aj     +++|          NJN    LDR12       IF PROGRAM CM RESIDENT
13304  M00S08437.1aj     +++|          LDD    CW+2        SET ALTERNATE EQUIPMENT
13305  M00S08438.1aj     +++|          STD    T5
13306  M00S08439.1aj     +++|          LDD    CN+3        SET ADDRESS OF PROGRAM ON SYSTEM DEVICE
13307  M00S08440.1aj     +++|          STM    /3AE/CL+4
13308  M00S08441.1aj     +++|          LDD    CN+4
13309  M00S08442.1aj     +++|          STM    /3AE/CL+5
13310  M00S08443.1aj     +++|          LDD    CW+3        CHECK TRACK
13311  M00S08444.1aj     +++|          SHN    6
13312  M00S08445.1aj     +++|          MJN    LDR12       IF NOT SPECIAL FORM
13313  M00S08446.1aj     +++| LDR8     LDC    LDRC        * OVERLAY NOT FOUND IN LIBRARY - OVLNAME.*
13314  M00S08447.1aj     +++| LDR9     LJM    LDE         PROCESS ERROR
13315  M00S08448.1aj     +++|
13316  M00S08449.1aj     +++|*         PROCESS FILE SEARCH.
13317  M00S08450.1aj     +++|
13318  M00S08451.1aj     +++| LDR10    SHN    -3          SAVE CALL BLOCK SIZE
13319  M00S08452.1aj     +++| LDR11    LPN    3
13320  M00S08453.1aj     +++|          STD    EP
13321  M00S08454.1aj     +++|          EXECUTE  3AD       SEARCH FILE FOR OVERLAY
13322  M00S08455.1aj     +++|
13323  M00S08456.1aj     +++|*         LOAD OVERLAY.
13324  M00S08457.1aj     +++|
13325  M00S08458.1aj     +++| LDR12    RJM    /3AE/LCP    LOAD OVERLAY

Seq #  *Modification Id* Act 
----------------------------+
13326  M01S08459.ns2031  ---|          NJN    LDR9        IF LOAD ERRORS
13327  M01S08460.ns2031  ---|          LDD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
13328  M01S00269.ns2031  +++|          ZJN    LDR12.1     IF NO ERROR
13329  M01S00270.ns2031  +++|          LMC    400000
13330  M01S00271.ns2031  +++|          UJN    LDR9        PROCESS LOAD ERROR
13331  M01S00272.ns2031  +++|
13332  M01S00273.ns2031  +++| LDR12.1  LDD    CM+3
13333  M00S08461.1aj     +++|          LPN    37
13334  M00S08462.1aj     +++|          STD    CM+3
13335  M00S08463.1aj     +++| LDRA     LDN    0
13336  M00S08464.1aj     +++|*         LDN    1           (*RETURN TO ENTRY POINT* SET)
13337  M00S08465.1aj     +++|          NJN    LDR13       IF RETURN TO OVERLAY LOADED
13338  M00S08466.1aj     +++|          LDD    LV
13339  M00S08467.1aj     +++|          ZJN    LDR13       IF (0,0) LEVEL OVERLAY
13340  M00S08468.1aj     +++|          LJM    LDR15       NOT (0,0) LEVEL OVERLAY
13341  M00S08469.1aj     +++|
13342  M00S08470.1aj     +++|*         SET (P) = ENTRY ADDRESS
13343  M00S08471.1aj     +++|
13344  M00S08472.1aj     +++| LDR13    LDA    AB+3        READ HEADER WORD
13345  M00S08473.1aj     +++|          CRD    CN
13346  M00S08474.1aj     +++|          LDM    /3AE/CSFD   CHECK FOR FWA FROM 53 TABLE
13347  M00S08475.1aj     +++|          ADM    /3AE/CSFD+1
13348  M00S08476.1aj     +++|          ZJN    LDR14       IF NO FWA FROM 53 TABLE
13349  M00S08477.1aj     +++|          LDM    /3AE/CSFD   USE FWA FROM 53 TABLE
13350  M00S08478.1aj     +++|          STD    CN+2
13351  M00S08479.1aj     +++|          LDM    /3AE/CSFD+1
13352  M00S08480.1aj     +++|          STD    CN+3
13353  M00S08481.1aj     +++| LDR14    LDD    CN+3        CALCULATE ENTRY ADDRESS
13354  M00S08482.1aj     +++|          SHN    -6
13355  M00S08483.1aj     +++|          STD    CN+3
13356  M00S08484.1aj     +++|          LDD    AB+3        CALCULATE RELOCATION
13357  M00S08485.1aj     +++|          SHN    14
13358  M00S08486.1aj     +++|          ADD    AB+4
13359  M00S08487.1aj     +++|          SBD    CN+3
13360  M00S08488.1aj     +++|          SHN    14
13361  M00S08489.1aj     +++|          SBD    CN+2
13362  M00S08490.1aj     +++|          SHN    6
13363  M00S08491.1aj     +++|          RAD    CM+4
13364  M00S08492.1aj     +++|          SHN    -14
13365  M00S08493.1aj     +++|          RAD    CM+3
13366  M00S08494.1aj     +++|          LDD    CP          ENTER (P)
13367  M00S08495.1aj     +++|          CRD    CN
13368  M00S08496.1aj     +++|          LDD    CM+3
13369  M00S08497.1aj     +++|          STD    CN
13370  M00S08498.1aj     +++|          LDD    CM+4
13371  M00S08499.1aj     +++|          STD    CN+1
13372  M00S08500.1aj     +++|          LDD    CP
13373  M00S08501.1aj     +++|          CWD    CN

Seq #  *Modification Id* Act 
----------------------------+
13374  M01S08502.ns2488  ---|          UJN    DPP         DROP PPU

Seq #  *Modification Id* Act 
----------------------------+
13375  M01S00002.ns2488  +++|          UJN    LDR16       DROP PPU
13376  M00S08503.1aj     +++|
13377  M00S08504.1aj     +++|*         ENTER ENTRY ADDRESS IN SECOND REQUEST WORD FOR (I,J).
13378  M00S08505.1aj     +++|
13379  M00S08506.1aj     +++| LDR15    STD    CM          SET OVERLAY LEVEL
13380  M00S08507.1aj     +++|          LDN    0
13381  M00S08508.1aj     +++|          STD    CM+1
13382  M00S08509.1aj     +++|          STD    CM+2
13383  M00S08510.1aj     +++|          LDA    IR+3        STORE USER REPLY
13384  M00S08511.1aj     +++|          ADN    1
13385  M00S08512.1aj     +++|          CWD    CM
13386  M00S08513.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
13387  M01S08514.ns2488  ---| DPP      MONITOR  DPPM      DROP PP

Seq #  *Modification Id* Act 
----------------------------+
13388  M01S00003.ns2488  +++|*         SET COMPLETION BIT IN *LDRR*.
13389  M01S00004.ns2488  +++|
13390  M01S00005.ns2488  +++| LDR16    LDD    RA
13391  M01S00006.ns2488  +++|          SHN    6
13392  M01S00007.ns2488  +++|          ADN    LDRR
13393  M01S00008.ns2488  +++|          CRD    CM
13394  M01S00009.ns2488  +++|          LDN    40          SET COMPLETION BIT
13395  M01S00010.ns2488  +++|          STD    CM+2
13396  M01S00011.ns2488  +++|          LDD    RA
13397  M01S00012.ns2488  +++|          SHN    6
13398  M01S00013.ns2488  +++|          ADN    LDRR
13399  M01S00014.ns2488  +++|          CWD    CM
13400  M01S00015.ns2488  +++|          MONITOR  DPPM      DROP PP
13401  M00S08515.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
13402  M00S08516.1aj     +++|
13403  M00S08517.1aj     +++|
13404  M00S08518.1aj     +++| LDRB     CON    0,0,0,0,0   LWA ALLOWED FOR LOAD
13405  M00S08519.1aj     +++|
13406  M00S08520.1aj     +++| LDRC     DATA   C* OVERLAY NOT FOUND IN LIBRARY - OVLNAME.*
13407  M00S08521.1aj     +++| LDRD     EQU    *-5
13408  M00S08522.1aj     +++| LDRE     EQU    *-2
13409  M00S08523.1aj     +++| LDE      SPACE  4,10
13410  M00S08524.1aj     +++|**        LDE - PROCESS *LDR* ERROR.
13411  M00S08525.1aj     +++|*
13412  M00S08526.1aj     +++|*         ENTRY  (A)  = ADDRESS OF MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
13413  M01S00274.ns2031  +++|*                (A) = ADDRESS + 400000B IF COMMON ERROR MESSAGE.
13414  M00S08527.1aj     +++|*                (FA) = ADDRESS OF FNT ENTRY.
13415  M00S08528.1aj     +++|*
13416  M00S08529.1aj     +++|*         EXIT   TO *PPR*.
13417  M00S08530.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13418  M01S08531.ns2031  ---|*         USES   FS+4, T4.

Seq #  *Modification Id* Act 
----------------------------+
13419  M01S00275.ns2031  +++|*         USES   EF, EP, FS+4.
13420  M00S08532.1aj     +++|*
13421  M00S08533.1aj     +++|*         CALLS  DFM.
13422  M00S08534.1aj     +++|*
13423  M00S08535.1aj     +++|*         MACROS MONITOR, NFA.
13424  M00S08536.1aj     +++|
13425  M00S08537.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
13426  M01S08538.ns2031  ---| LDE      STD    T4          SET MESSAGE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
13427  M01S00276.ns2031  +++| LDE      STD    EF          SAVE ERROR MESSAGE ADDRESS
13428  M01S00277.ns2031  +++|          SHN    -14
13429  M01S00278.ns2031  +++|          STD    EP
13430  M00S08539.1aj     +++|          LDD    FA          CHECK LOAD MODE
13431  M00S08540.1aj     +++|          ZJN    LDE1        IF NOT LOAD FILE
13432  M00S08541.1aj     +++|          LDD    FS+4        SET OPERATION COMPLETE
13433  M00S08542.1aj     +++|          SCN    77
13434  M00S08543.1aj     +++|          LMN    5
13435  M00S08544.1aj     +++|          STD    FS+4
13436  M00S08545.1aj     +++|          NFA    FA,R        STORE FST ENTRY
13437  M00S08546.1aj     +++|          ADN    FSTL
13438  M00S08547.1aj     +++|          CWD    FS
13439  M00S08548.1aj     +++| LDE1     LDC    =C* LDR ERROR.*
13440  M00S08549.1aj     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
13441  M01S00279.ns2031  +++|          LDD    EP
13442  M01S00280.ns2031  +++|          NJN    LDE2        IF *3AM* CALL REQUIRED
13443  M00S08550.1aj     +++|          LDC    CPON        DIAGNOSTIC TO CP DAYFILE

Seq #  *Modification Id* Act 
----------------------------+
13444  M01S08551.ns2031  ---|          LMD    T4

Seq #  *Modification Id* Act 
----------------------------+
13445  M01S00281.ns2031  +++|          LMD    EF
13446  M00S08552.1aj     +++|          RJM    DFM
13447  M00S08553.1aj     +++|          MONITOR  ABTM      ABORT CONTROL POINT
13448  M00S08554.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT

Seq #  *Modification Id* Act 
----------------------------+
13449  M01S00282.ns2031  +++|
13450  M01S00283.ns2031  +++| LDE2     EXECUTE  3AM       PROCESS ERROR MESSAGE
13451  M00S08555.1aj     +++|          SPACE  4,10
13452  M00S08556.1aj     +++|          USE    MESSAGES
13453  M00S08557.1aj     +++| ELDR     EQU    *+5
13454  M00S08558.1aj     +++|          TTL    1AJ/3AD - SEARCH FOR OVERLAY.
13455  M00S08559.1aj     +++|          TITLE
13456  M00S08560.1aj     +++|          IDENT  3AD,SFOX    SEARCH FOR OVERLAY.
13457  M00S08561.1aj     +++|*COMMENT  1AJ - SEARCH FOR OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
13458  M01S08562.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
13459  M01S00009.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
13460  M00S08563.1aj     +++|          SPACE  4,10
13461  M00S08564.1aj     +++|***       3AD - SEARCH FOR OVERLAY.
13462  M00S08565.1aj     +++|*
13463  M00S08566.1aj     +++|*         *3AD* SEARCHES A LOCAL FILE FOR AN OVERLAY.
13464  M00S08567.1aj     +++|*
13465  M00S08568.1aj     +++|*         IF THE FILE TO BE SEARCHED IS A USER LIBRARY, THE SEARCH
13466  M00S08569.1aj     +++|*         IS MADE RANDOMLY VIA THE *OPLD* DIRECTORY.  THE OVERLAY IS
13467  M00S08570.1aj     +++|*         SEARCHED FOR BY NAME AND TYPE (0,0 VS. NON-0,0).  WHEN AN
13468  M00S08571.1aj     +++|*         ENTRY IS FOUND THE FILE IS POSITIONED RANDOMLY AND THE
13469  M00S08572.1aj     +++|*         OVERLAY IS THEN CHECKED FOR THE CORRECT LEVEL.
13470  M00S08573.1aj     +++|*
13471  M00S08574.1aj     +++|*         IF THE FILE TO BE SEARCHED IS NOT A USER LIBRARY OR THE
13472  M00S08575.1aj     +++|*         *OPLD* CANNOT BE LOCATED, AN END AROUND SEARCH OF THE
13473  M00S08576.1aj     +++|*         FILE IS MADE FOR AN OVERLAY OF THE REQUESTED LEVEL.
13474  M00S08577.1aj     +++|*
13475  M00S08578.1aj     +++|*         WARNING - IF A NON-LIBRARY FILE IS NOT POSITIONED AT THE
13476  M00S08579.1aj     +++|*         BEGINNING OF A LOGICAL RECORD, RANDOM DATA COULD POSSIBLY BE
13477  M00S08580.1aj     +++|*         INTERPRETED AS A VALID OVERLAY HEADER.
13478  M00S08581.1aj     +++|          SPACE  4,10
13479  M00S08582.1aj     +++|***       DAYFILE MESSAGES.
13480  M00S08583.1aj     +++|*
13481  M00S08584.1aj     +++|*         * OVERLAY FILE NOT FOUND.* = REQUESTED FILE IS NOT AVAILABLE.
13482  M00S08585.1aj     +++|*
13483  M00S08586.1aj     +++|*         * OVERLAY FILE EMPTY.* = NO DATA APPEARS IN REQUESTED FILE.
13484  M00S08587.1aj     +++|*
13485  M00S08588.1aj     +++|*         * OVERLAY NOT FOUND.* = REQUESTED OVERLAY IS NOT ON FILE.
13486  M00S08589.1aj     +++|*
13487  M00S08590.1aj     +++|*         * FILE NOT ON MASS STORAGE.*
13488  M00S08591.1aj     +++|*
13489  M00S08592.1aj     +++|*         * ENTRY POINT NOT FOUND.* = REQUESTED ENTRY POINT IS NOT
13490  M00S08593.1aj     +++|*         ON FILE.
13491  M00S08594.1aj     +++|*
13492  M00S08595.1aj     +++|*         * I/O SEQUENCE ERROR.* = UNABLE TO SET OVERLAY FILE BUSY.
13493  M00S08596.1aj     +++| SFO      SPACE  4,10
13494  M00S08597.1aj     +++|**        SFO - MAIN ROUTINE.
13495  M00S08598.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13496  M01S00001.1aj2    +++|*         ENTRY  (CW) = 1, IF LOCAL FILE LOAD.
13497  M01S00002.1aj2    +++|*                (CW) = 0, IF LIBRARY LOAD.
13498  M01S00003.1aj2    +++|*
13499  M00S08599.1aj     +++|*         EXIT   (T1) = CM WORD COUNT OF SECTOR IN *BFMS*.

Seq #  *Modification Id* Act 
----------------------------+
13500  M01S00438.242l642 +++|*                TO */3AE/MSR*, IF MASS STORAGE ERROR.
13501  M00S08600.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13502  M01S08601.1aj72   ---|*         CALLS  /3AE/CPF, /3AE/RNS, SAF, SFB, SOD.

Seq #  *Modification Id* Act 
----------------------------+
13503  M01S00001.1aj72   +++|*         CALLS  CEL, /3AE/CPF, /3AE/RNS, SAF, SFB, SOD.
13504  M00S08602.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13505  M01S08603.ns22000 ---|*         MACROS ENDMS, SETMS.

Seq #  *Modification Id* Act 
----------------------------+
13506  M01S00227.ns22000 +++|*         MACROS ENDMS, SETMS, SFA.
13507  M00S08604.1aj     +++|
13508  M00S08605.1aj     +++|
13509  M00S08606.1aj     +++|          ORG    ELDR
13510  M00S08607.1aj     +++| SFO      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13511  M01S08608.1aj2    ---|          LDN    0           CLEAR SETTING OF LIBRARY LOAD FLAG
13512  M01S08609.1aj2    ---|          STM    /3AE/SLPD
13513  M01S08610.1aj2    ---|          LDD    CW          CHECK FOR USER LIBRARY LOAD
13514  M01S08611.1aj2    ---|          NJN    SFO1        IF NOT USER LIBRARY LOAD
13515  M01S08612.1aj2    ---|          LDC    LDNI+1      FORCE LOAD FROM USER LIBRARY
13516  M01S08613.1aj2    ---|          STM    SFOA

Seq #  *Modification Id* Act 
----------------------------+
13517  M01S00004.1aj2    +++|          LDD    CW          CHECK FOR USER LIBRARY LOAD
13518  M01S00005.1aj2    +++|          ZJN    SFO0        IF USER LIBRARY LOAD
13519  M01S00006.1aj2    +++|          LDN    0           CLEAR LIBRARY LOAD FLAG
13520  M01S00007.1aj2    +++|          STM    /3AE/SLPD
13521  M01S00008.1aj2    +++|          UJN    SFO1        SEARCH FOR FILE
13522  M01S00009.1aj2    +++|
13523  M01S00010.1aj2    +++| SFO0     LDC    LDNI+1      FORCE LOAD FROM USER LIBRARY
13524  M01S00011.1aj2    +++|          STM    SFOA
13525  M00S08614.1aj     +++| SFO1     RJM    SAF         SEARCH FOR ASSIGNED FILE
13526  M00S08615.1aj     +++|          NJN    SFO2        IF FOUND
13527  M00S08616.1aj     +++|          LDC    =C* OVERLAY FILE NOT FOUND.*
13528  M00S08617.1aj     +++|          UJN    SFO3        PROCESS ERROR
13529  M00S08618.1aj     +++|
13530  M00S08619.1aj     +++| SFO2     RJM    SFB         SET FILE BUSY
13531  M00S08620.1aj     +++|          ZJN    SFO4        IF FILE SET BUSY
13532  M00S08621.1aj     +++|          LDN    0
13533  M00S08622.1aj     +++|          STD    FA          CLEAR FNT ADDRESS
13534  M00S08623.1aj     +++|          LDC    =C* I/O SEQUENCE ERROR.*
13535  M00S08624.1aj     +++| SFO3     LJM    LDE         PROCESS ERROR
13536  M00S08625.1aj     +++|
13537  M00S08626.1aj     +++| SFO4     LDD    CM+3        SAVE FILE STATUS
13538  M00S08627.1aj     +++|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
13539  M01S08628.ns22000 ---|          LDD    FS          SET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
13540  M01S00228.ns22000 +++|          LDD    FS          SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
13541  M01S08629.ns22000 ---|          LPN    77
13542  M00S08630.1aj     +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
13543  M01S08631.ns22000 ---|          ADM    ESTS        READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
13544  M01S00229.ns22000 +++|          SFA    EST         READ EST ENTRY
13545  M01S00230.ns22000 +++|          ADK    EQDE
13546  M00S08632.1aj     +++|          CRD    CM
13547  M00S08633.1aj     +++|          LDD    CM          CHECK EQUIPMENT
13548  M00S08634.1aj     +++|          SHN    6
13549  M00S08635.1aj     +++|          MJN    SFO5        IF MASS STORAGE
13550  M00S08636.1aj     +++|          LDC    =C* FILE NOT ON MASS STORAGE.*
13551  M00S08637.1aj     +++|          UJN    SFO3        PROCESS ERROR
13552  M00S08638.1aj     +++|
13553  M00S08639.1aj     +++| SFO5     LDD    T2          CHECK FILE STATUS
13554  M00S08640.1aj     +++|          LPN    4
13555  M00S08641.1aj     +++|          ZJN    SFO7        IF NOT EXECUTE-ONLY
13556  M00S08642.1aj     +++|          LDD    CP          CHECK VALID ACCESS
13557  M00S08643.1aj     +++|          ADC    EOCW
13558  M00S08644.1aj     +++|          CRD    CM
13559  M00S08645.1aj     +++|          LDD    CM
13560  M00S08646.1aj     +++|          LMD    FA
13561  M00S08647.1aj     +++|          ZJN    SFO7        IF VALID ACCESS

Seq #  *Modification Id* Act 
----------------------------+
13562  M01S08648.1aj8    ---|          LDC    =C* I/O ON EXECUTE-ONLY FILE.*

Seq #  *Modification Id* Act 
----------------------------+
13563  M01S00001.1aj8    +++|          LDD    LV
13564  M01S00002.1aj8    +++|          NJN    SFO5.1      IF NOT MAIN OVERLAY LOAD
13565  M01S00003.1aj8    +++|          LDD    FA          RESET FILE ADDRESS
13566  M01S00004.1aj8    +++|          STD    CM
13567  M01S00005.1aj8    +++|          LDD    CP
13568  M01S00006.1aj8    +++|          ADC    EOCW
13569  M01S00007.1aj8    +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
13570  M01S00002.1aj72   +++|          RJM    CEL         CLEAR ERROR PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
13571  M01S00008.1aj8    +++|          UJN    SFO7        CONTINUE
13572  M01S00009.1aj8    +++|
13573  M01S00010.1aj8    +++| SFO5.1   LDC    =C* I/O ON EXECUTE-ONLY FILE.*
13574  M00S08649.1aj     +++| SFO6     LJM    LDE         ABORT
13575  M00S08650.1aj     +++|
13576  M00S08651.1aj     +++| SFO7     LDD    FS+3        SET SECTOR
13577  M00S08652.1aj     +++|          STD    T7
13578  M00S08653.1aj     +++|          LDD    FS+2        SET TRACK
13579  M00S08654.1aj     +++|          STD    T6
13580  M00S08655.1aj     +++|          NJN    SFO8        IF FILE USED
13581  M00S08656.1aj     +++|          LDC    =C* OVERLAY FILE EMPTY.*
13582  M00S08657.1aj     +++|          UJN    SFO6        ABORT
13583  M00S08658.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
13584  M01S08659.242l642 ---| SFO8     SETMS  READ

Seq #  *Modification Id* Act 
----------------------------+
13585  M02S00001.242l642 ---|          LDN    40          SET ERROR EXIT FLAG
13586  M02S00002.242l642 ---|          RAM    /3AE/MSR1

Seq #  *Modification Id* Act 
----------------------------+
13587  M01S00439.242l642 +++| SFO8     LDN    40          SET ERROR EXIT FLAG
13588  M01S00440.242l642 +++|          RAM    /3AE/MSRB
13589  M00S08660.1aj     +++|          LDC    LDE         SET EXIT ADDRESS ON DISK ERROR

Seq #  *Modification Id* Act 
----------------------------+
13590  M01S08661.242l642 ---|          STM    /3AE/MSRA

Seq #  *Modification Id* Act 
----------------------------+
13591  M01S00441.242l642 +++|          STM    /3AE/MSRC
13592  M01S00442.242l642 +++|          SETMS  READSTR
13593  M00S08662.1aj     +++| SFOA     LDD    EP          CHECK CALL BLOCK SIZE
13594  M00S08663.1aj     +++|*         LDN    1           FORCE LOAD FROM USER LIBRARY
13595  M00S08664.1aj     +++|          ZJN    SFO9        IF NOT 3 OR 4 WORD CALL BLOCK
13596  M00S08665.1aj     +++|          RJM    SOD         SEARCH *OPLD* DIRECTORY
13597  M00S08666.1aj     +++|          LDD    EP          SET ENTRY POINT FLAG
13598  M00S08667.1aj     +++|          SHN    -1
13599  M00S08668.1aj     +++|          STD    EP
13600  M00S08669.1aj     +++|          ZJN    SFO9        IF NOT 4 WORD CALL BLOCK
13601  M00S08670.1aj     +++|          LDA    IR+3        READ ENTRY POINT WORD
13602  M00S08671.1aj     +++|          ADN    3
13603  M00S08672.1aj     +++|          CRD    CW
13604  M00S08673.1aj     +++| SFO9     LJM    SFO18       ENTER LOOP
13605  M00S08674.1aj     +++|
13606  M00S08675.1aj     +++|*         SEARCH FILE.
13607  M00S08676.1aj     +++|
13608  M00S08677.1aj     +++| SFO10    LDM    BFMS        CHECK FOR EOI
13609  M00S08678.1aj     +++|          ADM    BFMS+1
13610  M00S08679.1aj     +++|          NJN    SFO11       IF FILE NOT AT EOI
13611  M00S08680.1aj     +++|          LDD    FS+1        REWIND FILE
13612  M00S08681.1aj     +++|          STD    T6
13613  M00S08682.1aj     +++|          LDN    FSMS
13614  M00S08683.1aj     +++|          STD    T7
13615  M00S08684.1aj     +++|          UJN    SFO12       PAUSE AT EOI
13616  M00S08685.1aj     +++|
13617  M00S08686.1aj     +++| SFO11    LDD    T7          CHECK SECTOR NUMBER
13618  M00S08687.1aj     +++|          NJN    SFO13       IF NOT START OF NEW TRACK
13619  M00S08688.1aj     +++| SFO12    ENDMS
13620  M00S08689.1aj     +++| SFO13    LDD    T7          CHECK STARTING POSITION
13621  M00S08690.1aj     +++|          LMD    FS+3
13622  M00S08691.1aj     +++|          NJN    SFO14       IF NOT AT STARTING SECTOR NUMBER
13623  M00S08692.1aj     +++|          LDD    T6
13624  M00S08693.1aj     +++|          LMD    FS+2
13625  M00S08694.1aj     +++|          ZJN    SFO16       IF AT STARTING POSITION
13626  M00S08695.1aj     +++| SFO14    LDD    WC          CHECK WORD COUNT
13627  M00S08696.1aj     +++|          SHN    -6
13628  M00S08697.1aj     +++|          ZJN    SFO18       IF NOT FULL PRU
13629  M00S08698.1aj     +++|          LDC    BFMS        READ NEXT SECTOR
13630  M00S08699.1aj     +++|          RJM    /3AE/RNS    READ NEXT SECTOR

Seq #  *Modification Id* Act 
----------------------------+
13631  M01S00443.242l642 +++|          MJP    /3AE/MSR    IF MASS STORAGE ERROR
13632  M00S08700.1aj     +++|          STD    WC          SAVE WORD COUNT
13633  M00S08701.1aj     +++| SFO15    LJM    SFO10       CHECK FOR EOI
13634  M00S08702.1aj     +++|
13635  M00S08703.1aj     +++|*         ISSUE ERROR MESSAGE.
13636  M00S08704.1aj     +++|
13637  M00S08705.1aj     +++| SFO16    ENDMS
13638  M00S08706.1aj     +++|          LDC    =C* OVERLAY NOT FOUND.*
13639  M00S08707.1aj     +++|          LJM    LDE         PROCESS ERROR
13640  M00S08708.1aj     +++|
13641  M00S08709.1aj     +++| SFO17    LDN    0           RESET ENTRY POINT BIAS
13642  M00S08710.1aj     +++|          STM    /3AE/SLPA
13643  M00S08711.1aj     +++|          UJN    SFO15       CHECK FOR EOI
13644  M00S08712.1aj     +++|
13645  M00S08713.1aj     +++|*         CHECK RECORD FOR OVERLAY OF CORRECT LEVEL.
13646  M00S08714.1aj     +++|
13647  M00S08715.1aj     +++| SFO18    RJM    /3AE/CPF    CHECK PROGRAM FORMAT
13648  M00S08716.1aj     +++|          NJN    SFO17       IF ERROR
13649  M00S08717.1aj     +++|          LDM    3,T3        CHECK LEVEL
13650  M00S08718.1aj     +++|          LMD    LV
13651  M00S08719.1aj     +++|          NJN    SFO17       IF NOT REQUESTED OVERLAY
13652  M00S08720.1aj     +++|
13653  M00S08721.1aj     +++|*         CHECK PROGRAM FORMAT.
13654  M00S08722.1aj     +++|
13655  M00S08723.1aj     +++|          LDD    PF
13656  M00S08724.1aj     +++|          ADD    EP
13657  M00S08725.1aj     +++|          LMN    3
13658  M00S08726.1aj     +++|          ZJN    SFO19       IF *ABS* AND 4 WORD *LDR* CALL
13659  M00S08727.1aj     +++|          LJM    SFOX        RETURN
13660  M00S08728.1aj     +++|
13661  M00S08729.1aj     +++| SFO19    LDN    77          SET MAXIMUM ENTRY COUNT
13662  M00S08730.1aj     +++|          SBM    /3AE/SLPA   SUBTRACT 5400 TABLE HEADER IF PRESENT
13663  M00S08731.1aj     +++|          STD    CM
13664  M00S08732.1aj     +++|          SBN    77
13665  M00S08733.1aj     +++|          ZJN    SFO20       IF NO 54 TABLE
13666  M00S08734.1aj     +++|          LDC    LDNI+2+10*5 ADVANCE SEARCH ADDRESS
13667  M00S08735.1aj     +++|          STM    SFOB
13668  M00S08736.1aj     +++| SFO20    LDD    T3
13669  M00S08737.1aj     +++|          LMC    BFMS
13670  M00S08738.1aj     +++|          ZJN    SFO21       IF NO *7700* TABLE
13671  M00S08739.1aj     +++|          LDD    CM
13672  M00S08740.1aj     +++|          SBM    BFMS+3      ADJUST MAXIMUM ENTRY COUNT
13673  M00S08741.1aj     +++|          STD    CM
13674  M00S08742.1aj     +++| SFO21    LDM    5,T3
13675  M00S08743.1aj     +++|          LPN    77
13676  M00S08744.1aj     +++|          SHN    14          CHECK ENTRY COUNT
13677  M00S08745.1aj     +++|          LMM    6,T3
13678  M00S08746.1aj     +++|          PJN    SFO22       IF COUNT POSITIVE
13679  M00S08747.1aj     +++|          LMC    -0
13680  M00S08748.1aj     +++| SFO22    STD    T2          SET ENTRY COUNT
13681  M00S08749.1aj     +++|          SBD    CM
13682  M00S08750.1aj     +++|          PJN    SFO25       IF ENTRIES NOT ALL ON 1ST SECTOR
13683  M00S08751.1aj     +++|          ADD    CM
13684  M00S08752.1aj     +++|          RAM    SFOC
13685  M00S08753.1aj     +++| SFOB     LDN    2+5
13686  M00S08754.1aj     +++|*         LDN    2+10*5      (54 TABLE)
13687  M00S08755.1aj     +++|          ADD    T3          SET INDEX TO 1ST ENTRY
13688  M00S08756.1aj     +++|          STD    CM
13689  M00S08757.1aj     +++| SFO23    LDI    CM          CHECK BYTE 0
13690  M00S08758.1aj     +++|          LMD    CW
13691  M00S08759.1aj     +++|          NJN    SFO24       IF NO MATCH
13692  M00S08760.1aj     +++|          LDM    1,CM
13693  M00S08761.1aj     +++|          LMD    CW+1
13694  M00S08762.1aj     +++|          NJN    SFO24       IF NO MATCH ON BYTE 1
13695  M00S08763.1aj     +++|          LDM    2,CM
13696  M00S08764.1aj     +++|          LMD    CW+2
13697  M00S08765.1aj     +++|          NJN    SFO24       IF NO MATCH ON BYTE 2
13698  M00S08766.1aj     +++|          LDM    3,CM
13699  M00S08767.1aj     +++|          LMD    CW+3
13700  M00S08768.1aj     +++|          SCN    77
13701  M00S08769.1aj     +++|          ZJN    SFO26       IF ENTRY FOUND
13702  M00S08770.1aj     +++| SFO24    LDN    5
13703  M00S08771.1aj     +++|          RAD    CM          ADVANCE INDEX
13704  M00S08772.1aj     +++|          SOD    T2          DECREMENT ENTRY COUNT
13705  M00S08773.1aj     +++|          NJN    SFO23       IF NOT END OF ENTRIES
13706  M00S08774.1aj     +++| SFO25    ENDMS
13707  M00S08775.1aj     +++|          LDC    =C* ENTRY POINT NOT FOUND.*
13708  M00S08776.1aj     +++|          LJM    LDE         PROCESS ERROR
13709  M00S08777.1aj     +++|
13710  M00S08778.1aj     +++| SFO26    LDN    0
13711  M00S08779.1aj     +++| SFOC     EQU    *-1
13712  M00S08780.1aj     +++|          SBD    T2          SET INDEX TO ENTRY
13713  M00S08781.1aj     +++|          STD    EP
13714  M00S08782.1aj     +++|          LJM    SFOX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13715  M01S00003.1aj72   +++| CEL      SPACE  4,10
13716  M01S00004.1aj72   +++|**        CEL - CLEAR ERROR PROCESSING.
13717  M01S00005.1aj72   +++|*
13718  M01S00006.1aj72   +++|*         EXIT   EREXIT, DISTC AND REPRIEVE PROCESSING CLEARED.
13719  M01S00007.1aj72   +++|*                SECURE MEMORY STATUS SET.
13720  M01S00008.1aj72   +++|*
13721  M01S00009.1aj72   +++|*         USES   CM - CM+4.
13722  M01S00010.1aj72   +++|
13723  M01S00011.1aj72   +++|
13724  M01S00012.1aj72   +++| CEL      SUBR               ENTRY/EXIT
13725  M01S00013.1aj72   +++|          LDD    CP          CLEAR EREXIT AND REPRIEVE PROCESSING
13726  M01S00014.1aj72   +++|          ADN    EECW
13727  M01S00015.1aj72   +++|          CRD    CM
13728  M01S00016.1aj72   +++|          LDN    0
13729  M01S00017.1aj72   +++|          STD    CM+4
13730  M01S00018.1aj72   +++|          STD    CM+1
13731  M01S00019.1aj72   +++|          LDD    CM
13732  M01S00020.1aj72   +++|          LPC    4000
13733  M01S00021.1aj72   +++|          STD    CM
13734  M01S00022.1aj72   +++|          LDD    CM+3
13735  M01S00023.1aj72   +++|          SCN    37
13736  M01S00024.1aj72   +++|          STD    CM+3
13737  M01S00025.1aj72   +++|          LDD    CP
13738  M01S00026.1aj72   +++|          ADN    EECW
13739  M01S00027.1aj72   +++|          CWD    CM
13740  M01S00028.1aj72   +++|          ADN    DBAW-EECW   SET SECURE MEMORY STATUS
13741  M01S00029.1aj72   +++|          CRD    CM
13742  M01S00030.1aj72   +++|          LDD    CM
13743  M01S00031.1aj72   +++|          LPC    3777
13744  M01S00032.1aj72   +++|          LMC    4000
13745  M01S00033.1aj72   +++|          STD    CM
13746  M01S00034.1aj72   +++|          LDD    CP
13747  M01S00035.1aj72   +++|          ADC    DBAW
13748  M01S00036.1aj72   +++|          CWD    CM
13749  M01S00037.1aj72   +++|          SBN    DBAW-TIAW   CLEAR TERMINAL INTERRUPT ADDRESS
13750  M01S00038.1aj72   +++|          CRD    CM
13751  M01S00039.1aj72   +++|          LDN    0
13752  M01S00040.1aj72   +++|          STD    CM+2
13753  M01S00041.1aj72   +++|          LDD    CM+3
13754  M01S00042.1aj72   +++|          LPN    77
13755  M01S00043.1aj72   +++|          STD    CM+3
13756  M01S00044.1aj72   +++|          LDD    CP
13757  M01S00045.1aj72   +++|          ADN    TIAW
13758  M01S00046.1aj72   +++|          CWD    CM
13759  M01S00047.1aj72   +++|          LJM    CELX        RETURN
13760  M00S08783.1aj     +++| SOD      SPACE  4,20
13761  M00S08784.1aj     +++|**        SOD - SEARCH *OPLD* DIRECTORY FOR OVERLAY.
13762  M00S08785.1aj     +++|*
13763  M00S08786.1aj     +++|*         *SOD* LOOKS FOR AN *OPLD* RECORD ON THE OVERLAY FILE.
13764  M00S08787.1aj     +++|*         IF FOUND THE *OPLD* IS SEARCHED FOR AN OVERLAY OF THE
13765  M00S08788.1aj     +++|*         CORRECT NAME AND TYPE.
13766  M00S08789.1aj     +++|*
13767  M00S08790.1aj     +++|*         ENTRY  (FS - FS+3) = OVERLAY FILE FST ENTRY.
13768  M00S08791.1aj     +++|*
13769  M00S08792.1aj     +++|*         EXIT   TO *SFO16* IF OVERLAY NOT FOUND IN *OPLD*.
13770  M00S08793.1aj     +++|*                (T6 - T7) = TRACK AND SECTOR OF OVERLAY.
13771  M00S08794.1aj     +++|*
13772  M00S08795.1aj     +++|*         USES   FS+2, FS+3, RI, RI+1, T2, T3, T6, T7, AB - AB+4.
13773  M00S08796.1aj     +++|*
13774  M00S08797.1aj     +++|*         CALLS  CRA, /3AE/RNS.
13775  M00S08798.1aj     +++|*
13776  M00S08799.1aj     +++|*         MACROS SETMS.
13777  M00S08800.1aj     +++|
13778  M00S08801.1aj     +++|
13779  M00S08802.1aj     +++| SOD      SUBR               ENTRY/EXIT
13780  M00S08803.1aj     +++|          LDD    EP          FIND OVERLAY NAME IN CALL BLOCK
13781  M00S08804.1aj     +++|          ZJN    SOD1        IF OVERLAY NAME IN FIRST WORD OF BLOCK
13782  M00S08805.1aj     +++|          LDN    2           READ NAME FROM THIRD WORD OF CALL BLOCK
13783  M00S08806.1aj     +++|          SHN    6
13784  M00S08807.1aj     +++| SOD1     ADD    IR+3
13785  M00S08808.1aj     +++|          SHN    6
13786  M00S08809.1aj     +++|          ADD    RA
13787  M00S08810.1aj     +++|          SHN    6
13788  M00S08811.1aj     +++|          ADD    IR+4        (A) = ABSOLUTE CM ADDRESS OF *OVLNAME*
13789  M00S08812.1aj     +++|          CRD    AB          (AB - AB-4) CONTAINS OVERLAY NAME
13790  M00S08813.1aj     +++|          LDD    FS+1        SET FILE TO *BOI*
13791  M00S08814.1aj     +++|          STD    T6          FIRST TRACK
13792  M00S08815.1aj     +++|          LDN    FSMS        SET FIRST SECTOR
13793  M00S08816.1aj     +++|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
13794  M01S08817.242l642 ---|          SETMS  READ        NOTE RANDOM POSITION

Seq #  *Modification Id* Act 
----------------------------+
13795  M01S00444.242l642 +++|          SETMS  POSITION    NOTE RANDOM POSITION
13796  M00S08818.1aj     +++|          LDC    BFMS        BUFFER ADDRESS
13797  M00S08819.1aj     +++|          RJM    /3AE/RNS    READ NEXT SECTOR

Seq #  *Modification Id* Act 
----------------------------+
13798  M01S00445.242l642 +++|          MJN    SOD3.1      IF MASS STORAGE ERROR
13799  M00S08820.1aj     +++|          NJN    SOD3        IF DATA TRANSFERED
13800  M00S08821.1aj     +++| SOD2     LDD    FS+3        RESTORE ORIGINAL FILE POSITION
13801  M00S08822.1aj     +++|          STD    T7          STORE SECTOR
13802  M00S08823.1aj     +++|          LDD    FS+2
13803  M00S08824.1aj     +++|          STD    T6          SET TRACK
13804  M00S08825.1aj     +++|          LJM    SODX        RETURN
13805  M00S08826.1aj     +++|
13806  M00S08827.1aj     +++| SOD3     SBN    20B         CHECK FOR VALID PREFIX/ULIB RECORD
13807  M00S08828.1aj     +++|          MJN    SOD2        IF LESS THAN 20B WORDS TRANSFERED
13808  M00S08829.1aj     +++|          LDM    BFMS+2+5*17 FIRST WORD OF ULIB TABLE
13809  M00S08830.1aj     +++|          LMC    7600B
13810  M00S08831.1aj     +++|          NJN    SOD2        IF NOT A ULIB RECORD
13811  M00S08832.1aj     +++|          LDM    BFMS+2+5*17+2  STORE OPLD RANDOM ADDRESS IN RI - RI+1
13812  M00S08833.1aj     +++|          STD    RI
13813  M00S08834.1aj     +++|          LDM    BFMS+2+5*17+3
13814  M00S08835.1aj     +++|          STD    RI+1
13815  M00S08836.1aj     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
13816  M00S08837.1aj     +++|          MJN    SOD2        IF RANDOM ADDRESS NOT ON TRT CHAIN

Seq #  *Modification Id* Act 
----------------------------+
13817  M01S08838.242l642 ---|          SETMS  READ        NOTE RANDOM POSITION

Seq #  *Modification Id* Act 
----------------------------+
13818  M01S00446.242l642 +++|          SETMS  POSITION    NOTE RANDOM POSITION
13819  M00S08839.1aj     +++|          LDC    BFMS        BUFFER ADDRESS
13820  M00S08840.1aj     +++|          RJM    /3AE/RNS    READ NEXT SECTOR

Seq #  *Modification Id* Act 
----------------------------+
13821  M01S00447.242l642 +++| SOD3.1   MJN    SOD6.1      IF MASS STORAGE ERROR
13822  M00S08841.1aj     +++|          NJN    SOD4        IF *OPLD* NOT EMPTY
13823  M00S08842.1aj     +++|          LJM    SOD2        RESTORE ORIGINAL FILE POSITION
13824  M00S08843.1aj     +++|
13825  M00S08844.1aj     +++| SOD4     LDM    BFMS+2      CHECK FOR VALID OPLD TABLE
13826  M00S08845.1aj     +++|          LMC    7700B
13827  M00S08846.1aj     +++|          NJN    SOD5        IF NOT VALID OPLD TABLE
13828  M00S08847.1aj     +++|          LDC    BFMS+2+5*20 FIRST ENTRY IN BUFFER
13829  M00S08848.1aj     +++|          STD    T2
13830  M00S08849.1aj     +++|          LDN    20          CM WORD IN BUFFER
13831  M00S08850.1aj     +++|          STD    T3
13832  M00S08851.1aj     +++|          UJN    SOD9        ENTER MAIN LOOP
13833  M00S08852.1aj     +++|
13834  M00S08853.1aj     +++| SOD5     LJM    SOD2        RESTORE ORIGINAL FILE POSITION
13835  M00S08854.1aj     +++|
13836  M00S08855.1aj     +++|*         SEARCH OPLD FOR OVERLAY.
13837  M00S08856.1aj     +++|
13838  M00S08857.1aj     +++| SOD6     LDC    BFMS        BUFFER ADDRESS
13839  M00S08858.1aj     +++|          RJM    /3AE/RNS    READ NEXT SECTOR

Seq #  *Modification Id* Act 
----------------------------+
13840  M01S00448.242l642 +++| SOD6.1   MJP    /3AE/MSR    IF MASS STORAGE ERROR
13841  M00S08859.1aj     +++|          NJN    SOD8        IF NOT EMPTY SECTOR
13842  M00S08860.1aj     +++| SOD7     LJM    SFO16       IF OVERLAY NOT FOUND
13843  M00S08861.1aj     +++|
13844  M00S08862.1aj     +++|*         SEARCH DIRECTORY.
13845  M00S08863.1aj     +++|
13846  M00S08864.1aj     +++| SOD8     LDC    BFMS+2      PP WORD TO START SEARCH
13847  M00S08865.1aj     +++|          STD    T2
13848  M00S08866.1aj     +++|          LDN    1           CM WORD TO START SEARCH
13849  M00S08867.1aj     +++|          STD    T3
13850  M00S08868.1aj     +++| SOD9     LDD    T1          READ WORDS TRANSFERRED
13851  M00S08869.1aj     +++|          SBD    T3          CM WORD POSITION
13852  M00S08870.1aj     +++|          PJN    SOD10       IF MORE ENTRIES IN BUFFER
13853  M00S08871.1aj     +++|          LDD    T1
13854  M00S08872.1aj     +++|          SHN    -6          CHECK FOR SHORT PRU
13855  M00S08873.1aj     +++|          NJN    SOD6        IF FULL PRU
13856  M00S08874.1aj     +++|          UJN    SOD7        ENTRY NOT FOUND
13857  M00S08875.1aj     +++|
13858  M00S08876.1aj     +++| SOD10    LDI    T2          CHECK OVERLAY NAME
13859  M00S08877.1aj     +++|          LMD    AB
13860  M00S08878.1aj     +++|          NJN    SOD11       IF NO MATCH
13861  M00S08879.1aj     +++|          LDM    1,T2
13862  M00S08880.1aj     +++|          LMD    AB+1
13863  M00S08881.1aj     +++|          NJN    SOD11       IF NO MATCH
13864  M00S08882.1aj     +++|          LDM    2,T2
13865  M00S08883.1aj     +++|          LMD    AB+2
13866  M00S08884.1aj     +++|          NJN    SOD11       IF NO MATCH
13867  M00S08885.1aj     +++|          LDM    3,T2
13868  M00S08886.1aj     +++|          LMD    AB+3
13869  M00S08887.1aj     +++|          SCN    77
13870  M00S08888.1aj     +++|          ZJN    SOD12       IF OVERLAY FOUND
13871  M00S08889.1aj     +++| SOD11    LDN    2           INCREMENT CM WORD COUNT
13872  M00S08890.1aj     +++|          RAD    T3
13873  M00S08891.1aj     +++|          LDN    10D         INCREMENT BUFFER POINTER
13874  M00S08892.1aj     +++|          RAD    T2
13875  M00S08893.1aj     +++|          UJN    SOD9        CHECK NEXT ENTRY
13876  M00S08894.1aj     +++|
13877  M00S08895.1aj     +++|*         CHECK PROGRAM FOR PROPER LEVEL.
13878  M00S08896.1aj     +++|
13879  M00S08897.1aj     +++| SOD12    LDM    4,T2        CHECK PROGRAM TYPE
13880  M00S08898.1aj     +++|          LMN    ABRT
13881  M00S08899.1aj     +++|          NJN    SOD13       IF NOT 0,0(ABS)
13882  M00S08900.1aj     +++|          LDD    LV          CHECK LEVEL REQUESTED
13883  M00S08901.1aj     +++|          NJN    SOD11       IF REQUEST NOT FOR 0,0
13884  M00S08902.1aj     +++|          UJN    SOD14       FIND RANDOM ADDRESS
13885  M00S08903.1aj     +++|
13886  M00S08904.1aj     +++| SOD13    LMN    OVRT&ABRT
13887  M00S08905.1aj     +++|          NJN    SOD11       IF NOT AN OVERLAY
13888  M00S08906.1aj     +++|          LDD    LV          CHECK LEVEL REQUESTED
13889  M00S08907.1aj     +++|          ZJN    SOD11       IF REQUEST IS FOR 0,0
13890  M00S08908.1aj     +++|
13891  M00S08909.1aj     +++|*         FOUND OVERLAY OF PROPER LEVEL, CONVERT ITS RANDOM ADDRESS.
13892  M00S08910.1aj     +++|
13893  M00S08911.1aj     +++| SOD14    LDM    1*5+3,T2    SET RANDOM INDEX
13894  M00S08912.1aj     +++|          STD    RI
13895  M00S08913.1aj     +++|          LDM    1*5+4,T2
13896  M00S08914.1aj     +++|          STD    RI+1
13897  M00S08915.1aj     +++|          ADD    RI
13898  M00S08916.1aj     +++|          ZJN    SOD15       IF RANDOM INDEX IS ZERO
13899  M00S08917.1aj     +++|          LDD    FS+1        SET TO FIRST TRACK
13900  M00S08918.1aj     +++|          STD    T6
13901  M00S08919.1aj     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
13902  M00S08920.1aj     +++|          MJN    SOD15       IF RANDOM ADDRESS NOT ON DISK
13903  M00S08921.1aj     +++|
13904  M00S08922.1aj     +++|*         SET FILE POSITION TO *BOI* TO MINIMIZE SEARCH TIME
13905  M00S08923.1aj     +++|*         IN CASE OVERLAY NAME FOUND IN *OPLD* IS NOT THE
13906  M00S08924.1aj     +++|*         CORRECT LEVEL.  THIS WILL ALSO MINIMIZE THE POSSIBILITY
13907  M00S08925.1aj     +++|*         OF AN OVERLAY OF THE CORRECT LEVEL AND WRONG NAME
13908  M00S08926.1aj     +++|*         BEING LOADED.
13909  M00S08927.1aj     +++|
13910  M00S08928.1aj     +++|          LDD    FS+1        SET CURRENT TRACK = FIRST TRACK
13911  M00S08929.1aj     +++|          STD    FS+2
13912  M00S08930.1aj     +++|          LDN    FSMS        SET FIRST SECTOR
13913  M00S08931.1aj     +++|          STD    FS+3
13914  M00S08932.1aj     +++|          LJM    SODX        RETURN
13915  M00S08933.1aj     +++|
13916  M00S08934.1aj     +++| SOD15    LJM    SFO16       OVERLAY NOT FOUND
13917  M00S08935.1aj     +++|          SPACE  4,10
13918  M00S08936.1aj     +++|**        COMMON DECKS.
13919  M00S08937.1aj     +++|
13920  M00S08938.1aj     +++|
13921  M00S08939.1aj     +++| FN       EQU    AB          FILE NAME
13922  M00S08940.1aj     +++| RI       EQU    T8          RANDOM INDEX (2 WORDS)
13923  M00S08941.1aj     +++|*CALL     COMPSAF
13924  M00S08942.1aj     +++|*CALL     COMPSFB
13925  M00S08943.1aj     +++|*CALL     COMPCRA
13926  M00S08944.1aj     +++|
13927  M00S08945.1aj     +++|          USE    LITERALS
13928  M00S08946.1aj     +++|
13929  M00S08947.1aj     +++|          ERRNG  OVL-5-*-500 OVERFLOWS INTO OVERLAY AREA
13930  M00S08948.1aj     +++|          TTL    1AJ/3AE - LOAD COPY ROUTINES.
13931  M00S08949.1aj     +++|          TITLE
13932  M00S08950.1aj     +++|          QUAL   3AE
13933  M00S08951.1aj     +++|          IDENT  3AE,LCRX    LOAD COPY ROUTINES.
13934  M00S08952.1aj     +++|*COMMENT  1AJ - LOAD COPY ROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
13935  M01S08953.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
13936  M01S00010.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
13937  M00S08954.1aj     +++|          SPACE  4,10
13938  M00S08955.1aj     +++|***       3AE - LOAD COPY ROUTINES.
13939  M00S08956.1aj     +++|*
13940  M00S08957.1aj     +++|*         *3AE* CONTAINS SUBROUTINES USED TO LOAD PROGRAMS.
13941  M00S08958.1aj     +++|          SPACE  4,10
13942  M00S08959.1aj     +++|***       DAYFILE MESSAGES.
13943  M00S08960.1aj     +++|*
13944  M00S08961.1aj     +++|*         * OVERLAY NOT FOUND.* = REQUESTED OVERLAY WAS NOT FOUND.
13945  M00S08962.1aj     +++|*
13946  M00S08963.1aj     +++|*         * FL TOO SHORT FOR PROGRAM.*
13947  M00S08964.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13948  M01S08965.v23l617 ---|*         * FLE TOO SHORT FOR LOAD.* = ECS FL TOO SHORT FOR

Seq #  *Modification Id* Act 
----------------------------+
13949  M01S00770.v23l617 +++|*         * FLE TOO SHORT FOR LOAD.* = EXTENDED MEMORY FL TOO SHORT FOR
13950  M00S08966.1aj     +++|*         REQUIRED LOAD.
13951  M00S08967.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13952  M01S08968.v23l617 ---|*         * ILLEGAL LOAD ADDRESS.* = LOAD ADDRESS .LT. 2

Seq #  *Modification Id* Act 
----------------------------+
13953  M01S00771.v23l617 +++|*         * INCORRECT LOAD ADDRESS.* = LOAD ADDRESS .LT. 2
13954  M00S08969.1aj     +++|*
13955  M00S08970.1aj     +++|*         * LDR - ENTRY POINT NOT FOUND.* = ENTRY POINT
13956  M00S08971.1aj     +++|*         SPECIFIED COULD NOT BE LOCATED BY *1AJ*.
13957  M00S08972.1aj     +++|*
13958  M00S08973.1aj     +++|*         * UNIDENTIFIED PROGRAM FORMAT.* = THE FILE REQUESTED TO BE
13959  M00S08974.1aj     +++|*         LOADED WAS NOT IN A RECOGNIZED FORMAT.
13960  M00S08975.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13961  M01S08976.v23l617 ---|*         * ECS LOAD ERROR.* = BAD LOAD ADDRESS FROM ECS.

Seq #  *Modification Id* Act 
----------------------------+
13962  M01S00772.v23l617 +++|*         * EXTENDED MEMORY LOAD ERROR.* = BAD LOAD ADDRESS FROM
13963  M01S00773.v23l617 +++|*         EXTENDED MEMORY.
13964  M00S08977.1aj     +++|*
13965  M00S08978.1aj     +++|*         * UNRECOVERED MASS STORAGE ERROR.* = UNRECOVERED READ
13966  M00S08979.1aj     +++|*         ERROR ENCOUNTERED ON LOAD.
13967  M00S08980.1aj     +++|*
13968  M00S08981.1aj     +++|*         * OVERLAY LOST.* = OVERLAY NOT FOUND ON *CLD*.
13969  M00S08982.1aj     +++|          SPACE  4,10
13970  M00S08983.1aj     +++|****      DIRECT LOCATION ASSIGNMENTS.
13971  M00S08984.1aj     +++|
13972  M00S08985.1aj     +++|
13973  M00S08986.1aj     +++| WC       EQU    T8          SECTOR WORD COUNT
13974  M00S08987.1aj     +++| PF       EQU    /TCS/PF     PROGRAM FORMAT
13975  M00S08988.1aj     +++|****
13976  M00S08989.1aj     +++|          SPACE  4,10
13977  M00S08990.1aj     +++|          TITLE  LOAD SUBROUTINES.
13978  M00S08991.1aj     +++| LCR      SPACE  4,10
13979  M00S08992.1aj     +++|**        LCR - ENTRY/EXIT.
13980  M00S08993.1aj     +++|*
13981  M00S08994.1aj     +++|*         CALLS  PRS.
13982  M00S08995.1aj     +++|
13983  M00S08996.1aj     +++|
13984  M00S08997.1aj     +++|          ORG    OVL+5
13985  M00S08998.1aj     +++| LCR      SUBR               ENTRY/EXIT
13986  M00S08999.1aj     +++|          RJM    PRS         PRESET OVERLAY
13987  M00S09000.1aj     +++|          UJN    LCRX        RETURN FROM LOAD
13988  M00S09001.1aj     +++| LCP      SPACE 4,20
13989  M00S09002.1aj     +++|**        LCP - LOAD CENTRAL PROGRAM.
13990  M00S09003.1aj     +++|*

Seq #  *Modification Id* Act 
----------------------------+
13991  M01S09004.ns22000 ---|*         ENTRY  (T5) = ALTERNATE DEVICE EQUIPMENT NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
13992  M01S00231.ns22000 +++|*         ENTRY  (T5) = ALTERNATE DEVICE EST ORDINAL.
13993  M00S09005.1aj     +++|*                (T1) = CM WORD COUNT OF SECTOR IN *BFMS*.
13994  M00S09006.1aj     +++|*                (FA) = FNT ADDRESS IF LOCAL FILE LOAD.
13995  M00S09007.1aj     +++|*                (FA) = 0 IF LOAD FROM SYSTEM.
13996  M00S09008.1aj     +++|*                (CW - CW+4) LIBRARY CONTROL WORD.
13997  M00S09009.1aj     +++|*                (FS - FS+4) FST ENTRY IN FILE LOAD.

Seq #  *Modification Id* Act 
----------------------------+
13998  M01S00449.242l642 +++|*                (/3AE/MSRA) = 1 IF JOB ADVANCE NOT SET.
13999  M00S09010.1aj     +++|*
14000  M00S09011.1aj     +++|*         EXIT   (A) = ADDRESS OF ERROR MESSAGE.
14001  M00S09012.1aj     +++|*                (PF) = PROGRAM FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
14002  M01S00450.242l642 +++|*                TO *MSR*, IF MASS STORAGE ERROR.
14003  M00S09013.1aj     +++|*
14004  M00S09014.1aj     +++|*         USES   T1, T5 - T7, CM - CM+4.
14005  M00S09015.1aj     +++|*
14006  M00S09016.1aj     +++|*         CALLS  CDP, CSA, CCM, CPF.
14007  M00S09017.1aj     +++|*
14008  M00S09018.1aj     +++|*         MACROS ENDMS, SETMS.
14009  M00S09019.1aj     +++|
14010  M00S09020.1aj     +++|
14011  M00S09021.1aj     +++| LCP      SUBR               ENTRY/EXIT
14012  M00S09022.1aj     +++|          LDD    FA          CHECK FNT ADDRESS
14013  M00S09023.1aj     +++|          ZJN    LCP1        IF NOT FILE LOAD
14014  M00S09024.1aj     +++|          LJM    CMS         COPY MS RESIDENT PROGRAM
14015  M00S09025.1aj     +++|
14016  M00S09026.1aj     +++| LCP1     LDD    CW+1        CHECK LIBRARY RESIDENCE
14017  M00S09027.1aj     +++|          LPC    6000
14018  M00S09028.1aj     +++|          ZJN    LCP2        IF RESIDENT ON SYSTEM DEVICE ONLY
14019  M00S09029.1aj     +++|          RJM    CSA
14020  M00S09030.1aj     +++|          ZJN    LCP2        IF SYSEDIT ACTIVE
14021  M00S09031.1aj     +++|          RJM    CCM         CHECK PROGRAM RESIDENCE

Seq #  *Modification Id* Act 
----------------------------+
14022  M01S09032.242l642 ---|          LDD    T5
14023  M00S09033.1aj     +++|          NJN    LCP3        IF ON ALTERNATE SYSTEM
14024  M00S09034.1aj     +++| LCP2     LDN    FNTP        GET SYSTEM DEVICE FROM SYSTEM FST
14025  M00S09035.1aj     +++|          CRD    CM
14026  M00S09036.1aj     +++|          LDD    CM
14027  M00S09037.1aj     +++|          SHN    14
14028  M00S09038.1aj     +++|          ADD    CM+1
14029  M00S09039.1aj     +++|          ERRNZ  SYFO        (SYSTEM FILE ORDINAL NONZERO.)
14030  M00S09040.1aj     +++|          ADN    FSTG
14031  M00S09041.1aj     +++|          CRD    CM
14032  M00S09042.1aj     +++|          LDD    CM
14033  M00S09043.1aj     +++|          LPC    777
14034  M00S09044.1aj     +++|          STD    T5
14035  M00S09045.1aj     +++|          RJM    CDP         CHECK DEVICE PARAMETERS
14036  M00S09046.1aj     +++| LCP3     LDD    CW+3        SET TRACK
14037  M00S09047.1aj     +++|          STD    T6
14038  M00S09048.1aj     +++|          LDD    CW+4        SET SECTOR
14039  M00S09049.1aj     +++|          STD    T7

Seq #  *Modification Id* Act 
----------------------------+
14040  M01S09050.ns2071  ---|          SETMS  READSYS,NE

Seq #  *Modification Id* Act 
----------------------------+
14041  M02S00001.242l642 ---|          SETMS  READSYS

Seq #  *Modification Id* Act 
----------------------------+
14042  M01S00451.242l642 +++|          SETMS  READSYS
14043  M00S09051.1aj     +++| LCP4     RJM    CPF         CHECK PROGRAM FORMAT
14044  M00S09052.1aj     +++|          ZJN    CMS         IF LOADABLE FORMAT
14045  M00S09053.1aj     +++| LCP5     STD    T1
14046  M00S09054.1aj     +++|          ENDMS
14047  M00S09055.1aj     +++|          LDD    T1
14048  M00S09056.1aj     +++|          JMP    LCPX        RETURN
14049  M00S09057.1aj     +++| CMS      SPACE  4,25
14050  M00S09058.1aj     +++|**        CMS - COPY MS RESIDENT PROGRAM.
14051  M00S09059.1aj     +++|*
14052  M00S09060.1aj     +++|*         ENTRY  (T4 - T7) = MS PARAMETERS.
14053  M00S09061.1aj     +++|*                (T1) = CM WORD COUNT OF SECTOR IN *BFMS*.
14054  M00S09062.1aj     +++|*                (T3) = ADDRESS-2 OF PROGRAM HEADER IN *BFMS*.
14055  M00S09063.1aj     +++|*                (CN - CN+1) = LOAD ADDRESS, IF NONE SPECIFIED BY USER.
14056  M00S09064.1aj     +++|*                (FA) = ADDRESS OF FST ENTRY.
14057  M00S09065.1aj     +++|*                (FS - FS+4) = FST ENTRY.
14058  M00S09066.1aj     +++|*                (PF) = PROGRAM FORMAT.
14059  M00S09067.1aj     +++|*                FIRST SECTOR READ AND *CPF* CALLED.
14060  M00S09068.1aj     +++|*
14061  M00S09069.1aj     +++|*         EXIT   TO *LCP5* IF LOAD ERROR WITH -
14062  M00S09070.1aj     +++|*                (A) = ERROR MESSAGE ADDRESS.
14063  M00S09071.1aj     +++|*                TO *SLP* AFTER LOAD WITH -
14064  M00S09072.1aj     +++|*                (AB+3 - AB+4) = FWA OF PROGRAM.
14065  M00S09073.1aj     +++|*                (CN+3 - CN+4) = LWA+1 OF PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
14066  M01S00452.242l642 +++|*                TO *MSR*, IF MASS STORAGE ERROR.
14067  M00S09074.1aj     +++|*
14068  M00S09075.1aj     +++|*         USES   AB+3 - AB+4, CN+3 - CN+4, FS+2 - FS+4.
14069  M00S09076.1aj     +++|*
14070  M00S09077.1aj     +++|*         CALLS  CSF, DDT, MSR, RNS.
14071  M00S09078.1aj     +++|*
14072  M00S09079.1aj     +++|*         MACROS ENDMS, LDA, MONITOR, NFA.
14073  M00S09080.1aj     +++|
14074  M00S09081.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
14075  M01S09082.v23l617 ---|*         ILLEGAL LOAD ADDRESS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
14076  M01S00774.v23l617 +++|*         INCORRECT LOAD ADDRESS ERROR.
14077  M00S09083.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
14078  M01S09084.ns2031  ---| CMS9     LDC    =C* ILLEGAL LOAD ADDRESS.*

Seq #  *Modification Id* Act 
----------------------------+
14079  M02S00284.v23l617 ---| CMS9     LDC    /ERR/EM20   * ILLEGAL LOAD ADDRESS.*

Seq #  *Modification Id* Act 
----------------------------+
14080  M01S00775.v23l617 +++| CMS9     LDC    /ERR/EM20   * INCORRECT LOAD ADDRESS.*
14081  M00S09085.1aj     +++|          UJN    LCP5        EXIT
14082  M00S09086.1aj     +++|
14083  M00S09087.1aj     +++|*         FL TOO SHORT ERROR.
14084  M00S09088.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
14085  M01S09089.ns2031  ---| CMS10    LDC    =C* FL TOO SHORT FOR PROGRAM.*

Seq #  *Modification Id* Act 
----------------------------+
14086  M01S00285.ns2031  +++| CMS10    LDC    /ERR/EM02   * FL TOO SHORT FOR PROGRAM.*
14087  M00S09090.1aj     +++|          UJN    LCP5        EXIT
14088  M00S09091.1aj     +++|
14089  M00S09092.1aj     +++| CMS      LDC    0
14090  M00S09093.1aj     +++| CMSA     EQU    *-2
14091  M00S09094.1aj     +++|          NJN    CMS1        IF USER SPECIFIED LOAD ADDRESS
14092  M00S09095.1aj     +++|          LDD    CN          SET LOAD ADDRESS
14093  M00S09096.1aj     +++|          SHN    14
14094  M00S09097.1aj     +++|          LMD    CN+1
14095  M00S09098.1aj     +++| CMS1     SBN    2           CHECK LOAD ADDRESS
14096  M00S09099.1aj     +++|          MJN    CMS9        IF .LE. 1
14097  M00S09100.1aj     +++|          ADN    2
14098  M00S09101.1aj     +++|          STD    CN+2
14099  M00S09102.1aj     +++|          STD    CN+4
14100  M00S09103.1aj     +++|          SHN    -14
14101  M00S09104.1aj     +++|          STD    CN+1
14102  M00S09105.1aj     +++|          STD    CN+3
14103  M00S09106.1aj     +++|
14104  M00S09107.1aj     +++|*         COPY PROGRAM FROM MASS STORAGE.
14105  M00S09108.1aj     +++|
14106  M00S09109.1aj     +++|          RJM    CSF         CHECK SPECIAL FORMAT
14107  M00S09110.1aj     +++| CMS2     LDD    T3          SET WRITE ADDRESS
14108  M00S09111.1aj     +++|          ADN    2
14109  M00S09112.1aj     +++|          STM    CMSC
14110  M00S09113.1aj     +++|          LDD    CN+3        CHECK WRITE LENGTH
14111  M00S09114.1aj     +++|          SHN    14
14112  M00S09115.1aj     +++|          ADD    CN+4
14113  M00S09116.1aj     +++|          ADD    T1
14114  M00S09117.1aj     +++|          SBN    1           GENERATE LWA FROM LWA+1
14115  M00S09118.1aj     +++| CMSB     SHN    -6          NO LWA FOR LOAD SPECIFIED
14116  M00S09119.1aj     +++|          SBD    FL
14117  M00S09120.1aj     +++|*         ADC    -(LWA+1)    (LWA FOR LOAD SPECIFIED)
14118  M00S09121.1aj     +++|          PJN    CMS10       IF WRITE LENGTH .GT. FL
14119  M00S09122.1aj     +++|          LDA    CN+3        STORE SECTOR
14120  M00S09123.1aj     +++|          CWM    BFMS+2,T1
14121  M00S09124.1aj     +++| CMSC     EQU    *-1
14122  M00S09125.1aj     +++|          LDD    T1          ADVANCE ADDRESS
14123  M00S09126.1aj     +++|          RAD    CN+4
14124  M00S09127.1aj     +++|          SHN    -14
14125  M00S09128.1aj     +++|          RAD    CN+3
14126  M00S09129.1aj     +++|          LDM    BFMS+1      CHECK SECTOR WORD COUNT
14127  M00S09130.1aj     +++|          SHN    -6
14128  M00S09131.1aj     +++|          ZJN    CMS3        IF SHORT SECTOR

Seq #  *Modification Id* Act 
----------------------------+
14129  M01S09132.v23l617 ---| CMSD     LDN    0           CHECK ECS BUFFERED FLAG
14130  M01S09133.v23l617 ---|*         LDN    2&3         (DEVICE BUFFERED IN ECS)
14131  M01S09134.v23l617 ---|          NJN    CMS4        IF DEVICE BUFFERED IN ECS

Seq #  *Modification Id* Act 
----------------------------+
14132  M01S00776.v23l617 +++| CMSD     LDN    0           CHECK EXTENDED MEMORY BUFFERED FLAG
14133  M01S00777.v23l617 +++|*         LDN    2&3         (DEVICE BUFFERED IN EXTENDED MEMORY)
14134  M01S00778.v23l617 +++|          NJN    CMS4        IF DEVICE BUFFERED IN EXTENDED MEMORY
14135  M00S09135.1aj     +++|          LDC    BFMS        READ NEXT SECTOR
14136  M00S09136.1aj     +++|          RJM    RNS

Seq #  *Modification Id* Act 
----------------------------+
14137  M01S00453.242l642 +++|          MJN    CMS5        IF MASS STORAGE READ ERROR
14138  M00S09137.1aj     +++|          ZJN    CMS3        IF WORD COUNT = 0
14139  M00S09138.1aj     +++|          LDN    IMLL
14140  M00S09139.1aj     +++|          RAM    CMSF+4
14141  M00S09140.1aj     +++|          LJM    CMS2        READ NEXT SECTOR
14142  M00S09141.1aj     +++|
14143  M00S09142.1aj     +++| CMS3     UJN    CMS7        CONTINUE
14144  M00S09143.1aj     +++|
14145  M00S09144.1aj     +++| CMS4     LDD    MA          COPY CM ADDRESS
14146  M00S09145.1aj     +++|          CWD    CN
14147  M00S09146.1aj     +++|          CRD    CM
14148  M00S09147.1aj     +++| CMSE     LDC    **          SET LWA OF LOAD
14149  M00S09148.1aj     +++|*         LDC    LWA         (LWA OF LOAD IF SPECIFIED)
14150  M00S09149.1aj     +++|          SHN    14
14151  M00S09150.1aj     +++|          STD    CM+2
14152  M00S09151.1aj     +++|          SHN    -6
14153  M00S09152.1aj     +++|          SCN    77
14154  M00S09153.1aj     +++|          RAD    CM+3
14155  M00S09154.1aj     +++|          LDC    RDDS*10000+7777  READ TO EOR
14156  M00S09155.1aj     +++|          RJM    DDT
14157  M00S09156.1aj     +++|          PJN    CMS6        IF NO ERROR OCCURED

Seq #  *Modification Id* Act 
----------------------------+
14158  M01S09157.251l664 ---|          SHN    21-10

Seq #  *Modification Id* Act 
----------------------------+
14159  M01S00001.251l664 +++|          SHN    21-20
14160  M00S09158.1aj     +++|          PJN    CMS5        IF NOT A LOAD ERROR
14161  M00S09159.1aj     +++|          LJM    CMS10       ISSUE LOAD ERROR MESSAGE
14162  M00S09160.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
14163  M01S09161.242l642 ---| CMS5     RJM    MSR         PROCESS READ ERROR

Seq #  *Modification Id* Act 
----------------------------+
14164  M01S00454.242l642 +++| CMS5     LJM    MSR         PROCESS READ ERROR
14165  M00S09162.1aj     +++|
14166  M00S09163.1aj     +++| CMS6     LDD    CM+3        SET LWA+1 OF LOAD
14167  M00S09164.1aj     +++|          LPN    77
14168  M00S09165.1aj     +++|          STD    CN+3
14169  M00S09166.1aj     +++|          LDD    CM+4
14170  M00S09167.1aj     +++|          STD    CN+4

Seq #  *Modification Id* Act 
----------------------------+
14171  M01S00639.ns21000 +++|          LDD    T4
14172  M01S00640.ns21000 +++|          RAM    CMSF+4
14173  M01S00641.ns21000 +++|          ERRNZ  IMLL-1      CODE DEPENDS ON VALUE
14174  M00S09168.1aj     +++| CMS7     ENDMS
14175  M00S09169.1aj     +++|          LDD    CN+2        SET FWA OF LOAD
14176  M00S09170.1aj     +++|          STD    AB+4
14177  M00S09171.1aj     +++|          LDD    CN+1
14178  M00S09172.1aj     +++|          STD    AB+3
14179  M00S09173.1aj     +++|          LDD    FA
14180  M00S09174.1aj     +++|          ZJN    CMS8        IF NOT FILE LOAD
14181  M00S09175.1aj     +++|          LDD    T6          SET CURRENT TRACK
14182  M00S09176.1aj     +++|          STD    FS+2
14183  M00S09177.1aj     +++|          LDD    T7          SET CURRENT SECTOR
14184  M00S09178.1aj     +++|          STD    FS+3
14185  M00S09179.1aj     +++|          LDD    FS+4        SET OPERATION COMPLETE
14186  M00S09180.1aj     +++|          SCN    77
14187  M00S09181.1aj     +++|          LMN    5
14188  M00S09182.1aj     +++|          STD    FS+4
14189  M00S09183.1aj     +++|          NFA    FA,R        STORE FST ENTRY
14190  M00S09184.1aj     +++|          ADN    FSTL
14191  M00S09185.1aj     +++|          CWD    FS
14192  M00S09186.1aj     +++|

Seq #  *Modification Id* Act 
----------------------------+
14193  M01S09187.ns22000 ---|*         INCRMENT CHARGES FOR LOAD

Seq #  *Modification Id* Act 
----------------------------+
14194  M01S00232.ns22000 +++|*         INCREMENT CHARGES FOR LOAD.
14195  M00S09188.1aj     +++|
14196  M00S09189.1aj     +++| CMS8     LDD    MA          WRITE UADM PARAMETER TO MB
14197  M00S09190.1aj     +++|          CWM    CMSF,ON
14198  M00S09191.1aj     +++|          LDN    1           SET WORD COUNT AND NO DROP FLAG
14199  M00S09192.1aj     +++|          STD    CM+1
14200  M00S09193.1aj     +++|          STD    CM+2
14201  M00S09194.1aj     +++|          MONITOR  UADM
14202  M00S09195.1aj     +++|          UJN    SLP         SET LOAD PARAMETERS
14203  M00S09196.1aj     +++|
14204  M00S09197.1aj     +++|
14205  M00S09198.1aj     +++| CMSF     CON    AISS        SUB FUNCTION
14206  M00S09199.1aj     +++|          CON    IOAW        WORD TO UPDATE
14207  M00S09200.1aj     +++|          CON    40D*100+20D FIELD TO UPDATE
14208  M00S09201.1aj     +++|          CON    0           INCREMENT
14209  M00S09202.1aj     +++|          CON    IMLL
14210  M00S09203.1aj     +++| SLP      SPACE  4,15
14211  M00S09204.1aj     +++|**        SLP - SET LOAD PARAMETERS.
14212  M00S09205.1aj     +++|*
14213  M00S09206.1aj     +++|*         ENTRY  AT *SLP* FROM ROUTINES *CMS* AND *CCM*.
14214  M00S09207.1aj     +++|*                (PF) = PROGRAM FORMAT.
14215  M00S09208.1aj     +++|*                (AB+3 - AB+4) = FWA PROGRAM.
14216  M00S09209.1aj     +++|*                (CN+3 - CN+4) = LWA+1 OF PROGRAM.
14217  M00S09210.1aj     +++|*
14218  M00S09211.1aj     +++|*         EXIT   (CM+3 - CM+4) = ENTRY ADDRESS.
14219  M00S09212.1aj     +++|*                (AB+3 - AB+4) = FWA OF PROGRAM.
14220  M00S09213.1aj     +++|*                */TCS/BCPI* SET WITH PARAMETERS FOR *CSTM*
14221  M00S09214.1aj     +++|*                MONITOR CALL.
14222  M00S09215.1aj     +++|*
14223  M00S09216.1aj     +++|*         USES   CM - CM+4, AB - AB+2, CN - CN+4, CW - CW+4.
14224  M00S09217.1aj     +++|*
14225  M00S09218.1aj     +++|*         CALLS  REP.
14226  M00S09219.1aj     +++|
14227  M00S09220.1aj     +++|
14228  M00S09221.1aj     +++| SLP      LDA    AB+3,M      READ ENTRY POINTS
14229  M00S09222.1aj     +++|          ADC    0           TABLE OFFSET FOR *5400* TABLE
14230  M00S09223.1aj     +++| SLPA     EQU    *-1
14231  M00S09224.1aj     +++|*         ADC    7           (*5400* TABLE AND 00,00 OVERLAY)
14232  M00S09225.1aj     +++|*         ADC    4           (*5400* TABLE AND NOT 00,00 OVERLAY)
14233  M00S09226.1aj     +++|          CRM    BFMS,HN

Seq #  *Modification Id* Act 
----------------------------+
14234  M01S09227.ns21000 ---|          LDN    CPUL        CHECK MAINFRAME TYPE
14235  M01S09228.ns21000 ---|          CRD    CM
14236  M01S09229.ns21000 ---|          LDD    CM+3
14237  M01S09230.ns21000 ---|          SHN    21-10
14238  M01S09231.ns21000 ---|          MJN    SLP1        IF CYBER 170-8X5 TYPE MAINFRAME
14239  M01S09232.ns21000 ---|          LDD    CP          CLEAR EXIT MODE FLAGS ON C70 MODEL 74

Seq #  *Modification Id* Act 
----------------------------+
14240  M01S00642.ns21000 +++|          LDK    MABL        CHECK MAINFRAME TYPE
14241  M01S00643.ns21000 +++|          CRD    CM
14242  M01S00644.ns21000 +++|          LDD    CM+1
14243  M01S00645.ns21000 +++|          SHN    21-13
14244  M01S00646.ns21000 +++|          PJN    SLP1        IF CYBER 170-8X5 TYPE MAINFRAME

Seq #  *Modification Id* Act 
----------------------------+
14245  M01S00001.ns2488a +++|          LDD    CP          CHECK JOB STATUS
14246  M01S00002.ns2488a +++|          ADN    STSW
14247  M01S00003.ns2488a +++|          CRD    CM
14248  M01S00004.ns2488a +++|          LDD    CM
14249  M01S00005.ns2488a +++|          SHN    -11
14250  M01S00006.ns2488a +++|          LMN    ICPS
14251  M01S00007.ns2488a +++|          NJN    SLP1        IF JOB NOT IN *I* STATUS

Seq #  *Modification Id* Act 
----------------------------+
14252  M01S00647.ns21000 +++|          LDD    CP          CLEAR EXIT MODE FLAGS FROM XP
14253  M00S09233.1aj     +++|          ADN    3
14254  M00S09234.1aj     +++|          CRD    CM
14255  M00S09235.1aj     +++|          LDD    CM
14256  M00S09236.1aj     +++|          SCN    30          CLEAR ERROR EXIT STATUS BITS
14257  M00S09237.1aj     +++|          STD    CM
14258  M00S09238.1aj     +++|          LDD    CP
14259  M00S09239.1aj     +++|          ADN    3
14260  M00S09240.1aj     +++|          CWD    CM
14261  M00S09241.1aj     +++| SLP1     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
14262  M01S09242.ns2488  ---|          LDM    SLPB        CHECK LDR CALL
14263  M01S09243.ns2488  ---|          LPN    40

Seq #  *Modification Id* Act 
----------------------------+
14264  M01S00016.ns2488  +++| SLPB     LDN    0           CHECK LDR CALL
14265  M01S00017.ns2488  +++|*         LDN    1           (LDR CALL)
14266  M00S09244.1aj     +++|          NJN    SLP2        IF LDR CALL
14267  M00S09245.1aj     +++|          LDD    CN+3        SET FWA OF CLEAR MEMORY FUNCTION
14268  M00S09246.1aj     +++|          STM    /TCS/BCPI+3
14269  M00S09247.1aj     +++|          LDD    CN+4
14270  M00S09248.1aj     +++|          STM    /TCS/BCPI+4
14271  M00S09249.1aj     +++|          LDD    FL          COMPUTE WORD COUNT OF CLEAR
14272  M00S09250.1aj     +++|          SHN    6
14273  M00S09251.1aj     +++|          SBD    CN+4
14274  M00S09252.1aj     +++|          SHN    6
14275  M00S09253.1aj     +++|          SBD    CN+3
14276  M00S09254.1aj     +++|          SHN    14
14277  M00S09255.1aj     +++|          STM    /TCS/BCPI+2
14278  M00S09256.1aj     +++|          SHN    -14
14279  M00S09257.1aj     +++|          STM    /TCS/BCPI+1
14280  M00S09258.1aj     +++|          LDD    AB+3        SET CLEAR OF AREA FROM 100B TO FWA
14281  M00S09259.1aj     +++|          SHN    14
14282  M00S09260.1aj     +++|          ADD    AB+4
14283  M00S09261.1aj     +++|          SBD    HN
14284  M00S09262.1aj     +++|          MJN    SLP2        IF LOADED BEFORE 100B
14285  M00S09263.1aj     +++|          STM    /TCS/BCPI+5+2
14286  M00S09264.1aj     +++|          SHN    -14
14287  M00S09265.1aj     +++|          STM    /TCS/BCPI+5+1
14288  M00S09266.1aj     +++| SLP2     LDM    CL
14289  M00S09267.1aj     +++|          NJN    SLP3        IF ENTRY POINT SPECIFIED
14290  M00S09268.1aj     +++|          AOM    SLPH        DO NOT SEARCH ENTRY POINTS

Seq #  *Modification Id* Act 
----------------------------+
14291  M01S09269.ns21000 ---| SLP3     LDN    CPUL        READ CPU STATUS
14292  M01S09270.ns21000 ---|          CRD    CM
14293  M01S09271.ns21000 ---|          LDD    RA          MERGE *CYBER LOADER* FIELDS

Seq #  *Modification Id* Act 
----------------------------+
14294  M01S00648.ns21000 +++| SLP3     LDD    RA          MERGE *CYBER LOADER* FIELDS
14295  M00S09272.1aj     +++|          SHN    6
14296  M00S09273.1aj     +++|          ADN    FWPR
14297  M00S09274.1aj     +++|          CRD    CW

Seq #  *Modification Id* Act 
----------------------------+
14298  M01S09275.ns21000 ---|          LDD    CM+3        SET CEJ BIT IN (FWPR)
14299  M01S09276.ns21000 ---|          LPN    4
14300  M01S09277.ns21000 ---|          SHN    11
14301  M01S09278.ns21000 ---|          STD    AB
14302  M00S09279.1aj     +++|          LDD    CW
14303  M00S09280.1aj     +++|          LPC    3777

Seq #  *Modification Id* Act 
----------------------------+
14304  M01S09281.ns21000 ---|          RAD    AB

Seq #  *Modification Id* Act 
----------------------------+
14305  M01S00649.ns21000 +++|          ADC    4000        SET CEJ/MEJ ENABLED FLAG IN (FWPR)
14306  M01S00650.ns21000 +++|          STD    AB
14307  M00S09282.1aj     +++|          LDD    CW+1
14308  M00S09283.1aj     +++|          STD    AB+1
14309  M00S09284.1aj     +++|          LDN    0           SET LOAD ORIGIN TYPE
14310  M00S09285.1aj     +++| LDOT     EQU    *-1         (PRS)
14311  M00S09286.1aj     +++|          STD    AB+2
14312  M00S09287.1aj     +++|          LDD    RA          MERGE *CYBER LOADER* FIELDS
14313  M00S09288.1aj     +++|          SHN    6
14314  M00S09289.1aj     +++|          ADN    LWPR
14315  M00S09290.1aj     +++|          CRD    CW

Seq #  *Modification Id* Act 
----------------------------+
14316  M01S09291.ns21000 ---|          LDD    CM+3        SET CMU BIT IN (LWPR)

Seq #  *Modification Id* Act 
----------------------------+
14317  M01S00651.ns21000 +++|          LDK    MABL        GET HARDWARE OPTIONS
14318  M01S00652.ns21000 +++|          CRD    CM
14319  M01S00653.ns21000 +++|          LDD    CM+1        SET CMU BIT IN (LWPR)
14320  M00S09292.1aj     +++|          LPN    10

Seq #  *Modification Id* Act 
----------------------------+
14321  M01S00654.ns21000 +++|          LMN    10
14322  M00S09293.1aj     +++|          SHN    10
14323  M00S09294.1aj     +++|          STD    CN
14324  M00S09295.1aj     +++|          LDN    IPRL        SET CHARACTER SET MODE
14325  M00S09296.1aj     +++|          CRD    CM
14326  M00S09297.1aj     +++|          LDD    CM+2
14327  M00S09298.1aj     +++|          LPN    1
14328  M00S09299.1aj     +++|          SHN    21-6        POSITION CHARACTER SET MODE FLAG

Proceed to Part 11