User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:0au

Deck 0AU

9 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0au     +++|          IDENT  0AU,UPFX
00002  M01S00002.0au     +++|          TITLE  0AU - UPDATE PROJECT PROFILE FILE.
00003  M01S00003.0au     +++|          PERIPH J
00004  M01S00004.0au     +++|          BASE   MIXED
00005  M01S00005.0au     +++|          SST
00006  M01S00006.0au     +++|*COMMENT  0AU - UPDATE PROJECT PROFILE FILE.
Line S00007 Modification History
M01 (Added by) 0au
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP., 1976.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.0au     +++|          SPACE  4,10
00010  M01S00009.0au     +++|***       0AU - UPDATE PROJECT PROFILE FILE.
00011  M01S00010.0au     +++|*         S. L. KSANDER.     76/04/20.
00012  M01S00011.0au     +++|          SPACE  4,10
00013  M01S00012.0au     +++|***       0AU IS A LOCATION-FREE ROUTINE WHICH DOES THE FOLLOWING
00014  M01S00013.0au     +++|*
00015  M01S00014.0au     +++|*         1. UPDATES THE APPROPRIATE LEVEL-3 BLOCK PROJECT ENTRY OF
00016  M01S00015.0au     +++|*            THE PROJECT PROFILE FILE.
00017  M01S00016.0au     +++|*         2. CLEARS CONTROL POINT AREA ACCUMULATOR OVERFLOW FLAGS
00018  M01S00017.0au     +++|*            AND ISSUES THE APPROPRIATE ACCOUNT DAYFILE MESSAGE.
00019  M01S00018.0au     +++|*
00020  M01S00019.0au     +++|*         0AU IS CALLED WHENEVER OVERFLOW OF AN ACCUMULATOR IS
00021  M01S00020.0au     +++|*         DETECTED OR AT END OF ACCOUNT BLOCK.
00022  M01S00021.0au     +++|          SPACE  4,15
00023  M01S00022.0au     +++|***       ENTRY CONDITIONS.
00024  M01S00023.0au     +++|*
00025  M01S00024.0au     +++|*         ((LA)-5) = AABB
Line S00025 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00025.ns21000 ---|*                    AA = OVERFLOW FLAG BITS FROM *FPFW*.
00027  M01S00001.ns21000 +++|*                    AA = OVERFLOW FLAG BITS FROM *SRUW*.
00028  M01S00026.0au     +++|*                    BB = FUNCTION CODE.
00029  M01S00027.0au     +++|*                         0 = END OF ACCOUNT BLOCK CALL.
00030  M01S00028.0au     +++|*                         1 = ACCUMULATOR OVERFLOW CALL.
00031  M01S00029.0au     +++|*         ((LA)-4) = PP ADDRESS OF TWO CM WORD JSN/SRU BLOCK.
00032  M01S00030.0au     +++|*                    WORD 1 = 24/JSN,24/,6/SC,6/
00033  M01S00031.0au     +++|*                    WORD 2 = 18/,42/SRU ACCUMULATOR.
00034  M01S00032.0au     +++|*                    JSN = JOB SEQUENCE NUMBER.
00035  M01S00033.0au     +++|*                    SC = SERVICE CLASS.
00036  M01S00034.0au     +++|*         ((LA)-3) = FNT ORDINAL OF PROFILE FILE.
00037  M01S00035.0au     +++|*         ((LA)-2) = TRACK OF LEVEL 3 BLOCK ON PROFILE FILE.
00038  M01S00036.0au     +++|*                  = 0, IF NO PROFILE FILE PRESENT.
00039  M01S00037.0au     +++|*         ((LA)-1) = SECTOR OF LEVEL 3 BLOCK ON PROFILE FILE.
00040  M01S00038.0au     +++|          SPACE  4,20
00041  M01S00039.0au     +++|***       EXIT CONDITIONS.
00042  M01S00040.0au     +++|*
00043  M01S00041.0au     +++|*         (A) = 0, IF SUCCESSFUL CALL. ONE OF THE FOLLOWING OCCURRED
00044  M01S00042.0au     +++|*                1. END OF ACCOUNT BLOCK CALL - PROFILE FILE UPDATE
00045  M01S00043.0au     +++|*                   PERFORMED IF PROFILE FILE PRESENT.
00046  M01S00044.0au     +++|*                2. OVERFLOW CALL - NO OVERFLOW DETECTED, OR OVERFLOW
00047  M01S00045.0au     +++|*                   FLAG CLEARED (IN ADDITION, IF SRU ACCUMULATOR,
00048  M01S00046.0au     +++|*                   PROFILE FILE UPDATE PERFORMED AS IN 1.).
00049  M01S00047.0au     +++|*                ((LA)-1) = CONTROL POINT AREA ACCUMULATOR OVERFLOW
00050  M01S00048.0au     +++|*                FLAGS BEFORE CLEARING.
00051  M01S00049.0au     +++|*         THE FOLLOWING INDICATE PROFILE FILE NOT UPDATED-
00052  M01S00050.0au     +++|*         (A) = 1, IF SYSTEM ERROR. ONE OF THE FOLLOWING HAS OCCURED
00053  M01S00051.0au     +++|*                  1. *ORET* ERROR FLAG SET IN CP.
00054  M01S00052.0au     +++|*                  2. READ ERROR ON LEVEL-3 BLOCK.
00055  M01S00053.0au     +++|*                  3. VALIDATION ERROR IN LEVEL-3 BLOCK.
00056  M01S00054.0au     +++|*                  4. WRITE ERROR ON LEVEL-3 BLOCK.
00057  M01S00055.0au     +++|*             = 2, IF PROFILE FILE INTERLOCKED BY *PROFILE*.
00058  M01S00056.0au     +++|*                  (ANY OVERFLOW FLAGS REMAIN SET).
00059  M01S00001.242l642 +++|*
00060  M01S00002.242l642 +++|*         (A) .LT. 0 IF PROFILE FILE DEVICE INACCESSIBLE.
00061  M01S00001.ns2553  +++|*         (T5) = EST ORDINAL OF PROFILE FILE DEVICE.
00062  M01S00057.0au     +++|          SPACE  4,15
00063  M01S00058.0au     +++|***       ACCOUNT DAYFILE MESSAGES.
00064  M01S00059.0au     +++|*
00065  M01S00060.0au     +++|*         THE FOLLOWING ERROR MESSAGES ARE ISSUED WHEN
00066  M01S00061.0au     +++|*         THE CORRESPONDING ACCUMULATOR HAS OVERFLOWED.
00067  M01S00062.0au     +++|*         (XXXXXX.XXX IS THE ACCUMULATOR,S OVERFLOW VALUE)
00068  M01S00063.0au     +++|*
00069  M01S00064.0au     +++|*         *UCAD, XXXXXX.XXXKUNS.* = ADDER ACCUMULATOR.
00070  M01S00065.0au     +++|*
00071  M01S00066.0au     +++|*         *UCPF, XXXXXX.XXXKUNS.* = PERMANENT FILE ACCUMULATOR.
00072  M01S00067.0au     +++|*
00073  M01S00068.0au     +++|*         *UCMT, XXXXXX.XXXKUNS.* = MAGNETIC TAPE ACCUMULATOR.
00074  M01S00069.0au     +++|*
00075  M01S00070.0au     +++|*         *UCMS, XXXXXX.XXXKUNS.* = MASS STORAGE ACCUMULATOR.
00076  M01S00071.0au     +++|*
00077  M01S00001.ns2753  +++|*         *UCOD, XXXXXX.XXXKUNS.* = OPTICAL DISK ACCUMULATOR.
00078  M01S00002.ns2753  +++|*
00079  M01S00072.0au     +++|*         *ACSO, XXXXXX.XXXUNTS.* = SRU ACCUMULATOR.
00080  M01S00073.0au     +++|*
Line S00074 Modification History
M01 (Added by) 0au
M02 (Updated by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00074.v22l602 ---|*         *UCMP, XXXXXX.XXXKUNS.* = MAP III ACCUMULATOR.
00082  M01S00001.v22l602 +++|*         *UCMP, XXXXXX.XXXKUNS.* = MAP ACCUMULATOR.
00083  M01S00001.ns22000 +++|*
00084  M01S00002.ns22000 +++|*         *UCAC, XXXXXX.XXXUNTS.* = AUC ACCUMULATOR.
00085  M01S00075.0au     +++|          SPACE  4,10
00086  M01S00076.0au     +++|***       OPERATOR MESSAGES.
00087  M01S00077.0au     +++|*
00088  M01S00078.0au     +++|*         NONE.
00089  M01S00079.0au     +++|          SPACE  4,5
00090  M01S00080.0au     +++|***       ROUTINES USED.
00091  M01S00081.0au     +++|*
00092  M01S00082.0au     +++|*         CALLS  DFM, RDS, WDS.
00093  M01S00083.0au     +++|          SPACE  4,10
00094  M01S00084.0au     +++|*CALL     COMPMAC
00095  M01S00085.0au     +++|*CALL     COMSCPS
00096  M01S00086.0au     +++|*CALL     COMSMSP
00097  M01S00087.0au     +++|*CALL     COMSPFM
00098  M01S00088.0au     +++|*CALL     COMSPRO
00099  M01S00089.0au     +++|*CALL     COMSZOL
00100  M01S00090.0au     +++|*CALL     COMPREL
00101  M01S00091.0au     +++|          SPACE  4,10
00102  M01S00092.0au     +++|****      DIRECT CELL ASSIGNMENTS.
00103  M01S00093.0au     +++|
00104  M01S00094.0au     +++| FA       EQU    16          PROFILE FILE FNT ORDINAL
00105  M01S00095.0au     +++| BA       EQU    17          BUFFER ADDRESS
00106  M01S00096.0au     +++|
00107  M01S00097.0au     +++|****
00108  M01S00098.0au     +++|          SPACE  4,10
00109  M01S00099.0au     +++|****      ASSEMBLE CONSTANTS.
00110  M01S00100.0au     +++|
00111  M01S00101.0au     +++| EAFC     EQU    0           END OF ACCOUNT BLOCK FUNCTION
00112  M01S00102.0au     +++| AOFC     EQU    1           ACCUMULATOR OVERFLOW FUNCTION
00113  M01S00103.0au     +++|
00114  M01S00104.0au     +++| MEPO     EQU    3           MASS STORAGE ERROR PROCESSING OPTION
00115  M01S00105.0au     +++| PFDL     EQU    4000D       DELAY CYCLES WAITING FOR PROFILE FILE
00116  M01S00106.0au     +++|
00117  M01S00107.0au     +++|****
00118  M01S00108.0au     +++|          TITLE  MAIN PROGRAM.
00119  M01S00109.0au     +++| UPF      SPACE  4,10
00120  M01S00110.0au     +++|**        UPF - MAIN PROGRAM.
00121  M01S00111.0au     +++|
00122  M01S00112.0au     +++|          ORG    5
00123  M01S00113.0au     +++|
00124  M01S00114.0au     +++| UPF      SUBR               ENTRY/EXIT
00125  M01S00115.0au     +++|          RJM    PRS         PRESET
00126  M01S00116.0au     +++|
00127  M01S00117.0au     +++|*         CHECK FOR ACCUMULATOR OVERFLOW.
00128  M01S00118.0au     +++|
00129  M01S00119.0au     +++|          LDN    RLCO        CLEAR OVERFLOW FLAGS
00130  M01S00120.0au     +++|          STD    CM+1
00131  M01S00121.0au     +++|          MONITOR RLMM
00132  M01S00122.0au     +++|          RJM    IOM         ISSUE OVERFLOW MESSAGES
Line S00123 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00123.242l642 ---|          MJN    UPF2        IF SRU ACCUMULATOR OVERFLOW
Line S00124 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00124.242l642 ---| UPFA     LDN    0           CHECK FUNCTION CODE
Line S00125 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00125.242l642 ---|*         LDN    (FC)&AOFC
Line S00126 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00126.242l642 ---|          NJN    UPF2        IF NOT OVERFLOW CALL
Line S00127 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00127.242l642 ---|          SOM    UPFC        SET NORMAL COMPLETION
Line S00128 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00128.242l642 ---|          UJN    UPF5        COMPLETE PROCESSING
00139  M01S00129.0au     +++|
00140  M01S00130.0au     +++|*         READ LEVEL-3 BLOCK.
00141  M01S00131.0au     +++|
00142  M01S00132.0au     +++| UPF2     LDD    T6          CHECK PROFILE FILE PRESENT
00143  M01S00133.0au     +++|          ZJN    UPFX        IF PROFILE FILE NOT PRESENT
Line S00134 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00134.242l642 ---|          SETMS  READ
00145  M01S00135.0au     +++|          LDN    2           PRESET LEVEL-3 BLOCK PROJECT ENTRY INDEX
00146  M01S00136.0au     +++|          STD    T3
00147  M01S00137.0au     +++|          LDM    -5          CHECK SECTOR POSITION
00148  M01S00138.0au     +++|          SHN    21-12
00149  M01S00139.0au     +++|          PJN    UPF3        IF FIRST ENTRY
00150  M01S00140.0au     +++|          LDC    5*PMWE      SET SECOND ENTRY OFFSET
00151  M01S00141.0au     +++|          RAD    T3
00152  M01S00142.0au     +++| UPF3     LDD    BA          SET BUFFER ADDRESS
00153  M01S00143.0au     +++|          RAD    T3
00154  M01S00144.0au     +++|          RAM    UPFF
00155  M01S00145.0au     +++|          STM    UPFG
00156  M01S00146.0au     +++|          RAM    UPFH
00157  M01S00147.0au     +++|          LDD    BA          READ SECTOR
00158  M01S00148.0au     +++|          RJM.   RDS
00159  M01S00149.0au     +++|          PJN    UPF7        IF NO READ ERROR
00160  M01S00150.0au     +++|
00161  M01S00151.0au     +++|*         COMPLETION PROCESSING.
00162  M01S00152.0au     +++|
00163  M01S00153.0au     +++| UPF4     ENDMS
Line S00154 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00154.242l642 ---| UPF5     UJN    UPF6        IF FILE NOT ATTACHED
Line S00155 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00155.242l642 ---| UPFB     EQU    *-1
Line S00156 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00156.242l642 ---|*         PSN                (FILE ATTACHED)
00167  M01S00157.0au     +++|          LDN    RFAS        RETURN PROFILE FILE
00168  M01S00158.0au     +++|          RJM    ARF
00169  M01S00159.0au     +++| UPF6     LDN    1           SET SYSTEM ERROR STATUS
00170  M01S00160.0au     +++| UPFC     EQU    *-1
00171  M01S00161.0au     +++|*         LDN    0           (NORMAL COMPLETION)
00172  M01S00162.0au     +++|          LJM    UPFX
00173  M01S00163.0au     +++|
Line S00164 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00164.242l642 ---| UPF7     ENDMS
Line S00165 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00165.242l642 ---|
00176  M01S00166.0au     +++|*         UPDATE MASTER USER AND INSTALLATION SRU ACCUMULATORS.
00177  M01S00167.0au     +++|
Line S00168 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00168.242l642 ---|          LDN    ZERL        CLEAR SRU ACCUMULATOR VALUE
00179  M01S00003.242l642 +++| UPF7     LDN    ZERL        CLEAR SRU ACCUMULATOR VALUE
00180  M01S00169.0au     +++|          CRD    CM
00181  M01S00170.0au     +++|          LDN    40          INCREMENT ACCUMULATOR FOR OVERFLOW
00182  M01S00171.0au     +++|          STD    CM+1
00183  M01S00172.0au     +++| UPFD     LDN    0           CHECK FUNCTION CODE
00184  M01S00173.0au     +++|*         LDN    (FC)&AOFC
00185  M01S00174.0au     +++|          ZJN    UPF8        IF OVERFLOW FUNCTION CODE
00186  M01S00175.0au     +++|          LDD    MA          SET CURRENT SRU ACCUMULATOR
00187  M01S00176.0au     +++|          CWM.   *,TR
00188  M01S00177.0au     +++| UPFE     EQU    *-1
00189  M01S00178.0au     +++|          SBN    2
00190  M01S00179.0au     +++|          CRD    CM
00191  M01S00180.0au     +++| UPF8     LDD    MA          SET MASTER/INSTALLATION ACCUMULATOR
00192  M01S00181.0au     +++|          CWM.   5*PMSW,TR
00193  M01S00182.0au     +++| UPFF     EQU    *-1
00194  M01S00183.0au     +++|          CWD    CM          SET INCREMENT VALUE
00195  M01S00184.0au     +++|          SBN    2
00196  M01S00185.0au     +++|          CWD    CM
00197  M01S00186.0au     +++|          LDN    2           SET OPERATION COUNT
00198  M01S00187.0au     +++|          STD    CM+4
00199  M01S00188.0au     +++|          LDN    ABIF
00200  M01S00189.0au     +++|          STD    CM+1
00201  M01S00190.0au     +++|          MONITOR ACTM
00202  M01S00191.0au     +++|          LDD    MA          SET INCREMENTED VALUES
00203  M01S00192.0au     +++|          CRM.   5*PMSW,TR
00204  M01S00193.0au     +++| UPFG     EQU    *-1
00205  M01S00194.0au     +++|          LDN    PDTL        SET LAST UPDATE DATE AND TIME
00206  M01S00195.0au     +++|          CRM.   5*PUDW-5*PMSW,ON
00207  M01S00196.0au     +++| UPFH     EQU    *-1
00208  M01S00197.0au     +++|
00209  M01S00198.0au     +++|*         RE-WRITE LEVEL-3 BLOCK.
00210  M01S00199.0au     +++|
Line S00200 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00200.242l642 ---|          SETMS  WRITE,RW
00212  M01S00201.0au     +++|          LDD    BA          WRITE SECTOR
00213  M01S00202.0au     +++|          LMK    WLSF        SET WRITE LAST SECTOR
00214  M01S00203.0au     +++|          RJM.   WDS
00215  M01S00204.0au     +++|          MJN    UPF9        IF WRITE ERROR
00216  M01S00205.0au     +++|          SOM    UPFC        SET NORMAL COMPLETION
00217  M01S00206.0au     +++| UPF9     LJM    UPF4        RETURN FILE AND SET STATUS
00218  M01S00207.0au     +++|
00219  M01S00208.0au     +++|
00220  M01S00209.0au     +++|          ERRNZ  PISW-PMSW-2 SETUP ERROR FOR *ACTM* FUNCTION
00221  M01S00210.0au     +++|          ERRNZ  PUDW-PMSW-1
00222  M01S00211.0au     +++|          TITLE  SUBROUTINES.
00223  M01S00212.0au     +++| ARF      SPACE  4,10
00224  M01S00213.0au     +++|**        ARF - ATTACH/RETURN FAST ATTACH FILE.
00225  M01S00214.0au     +++|*
00226  M01S00215.0au     +++|*         ENTRY  (A) = SUBFUNCTION CODE FOR ATTACH/RETURN.
00227  M01S00216.0au     +++|*                (FA) = PROFILE FILE FNT ORDINAL.
00228  M01S00004.242l642 +++|*                (T5) = PROFILE FILE EST ORDINAL.
00229  M01S00217.0au     +++|*
00230  M01S00218.0au     +++|*         EXIT   (A) = FUNCTION RESPONSE CODE.
00231  M01S00219.0au     +++|*                (CM+4) = BYTE 4 OF RESPONSE IF REJECT.
Line S00220 Modification History
M01 (Added by) 0au
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00220.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
Line S00003 Modification History
M01 (Added by) ns22000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00003.242l642 ---|*                (T5) = EST ORDINAL.
Line S00221 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00234  M02S00221.242l642 ---|*
Line S00222 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00235  M03S00222.242l642 ---|*         USES   T1, T2, CM - CM+4.
Line S00002 Modification History
M01 (Added by) ns21000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00002.242l642 ---|*         USES   T1, T2, T5, CM - CM+4.
Line S00223 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00223.242l642 ---|*
Line S00224 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00224.242l642 ---|*         CALLS  SFA.
00239  M01S00005.242l642 +++|*
00240  M01S00006.242l642 +++|*         USES   CM - CM+4.
00241  M01S00225.0au     +++|*
00242  M01S00226.0au     +++|*         MACROS MONITOR.
00243  M01S00227.0au     +++|
00244  M01S00228.0au     +++|
00245  M01S00229.0au     +++| ARF      SUBR               ENTRY/EXIT
Line S00230 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00230.242l642 ---|          STD    T1          SET SUBFUNCTION CODE
Line S00231 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00231.242l642 ---|          SFA    FNT,FA      FETCH FILE NAME FOR COMPARE
Line S00232 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00232.242l642 ---|          CRD    CM
Line S00233 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00233.242l642 ---|          LDD    CM+3        SAVE GLOBAL FILE FLAG
Line S00234 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00234.242l642 ---|          LPN    77
Line S00235 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00235.242l642 ---|          STD    T2
Line S00236 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00236.242l642 ---|          SFA    FNT,FA      FETCH PROFILE FST INFORMATION
Line S00237 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00237.242l642 ---|          ADN    FSTG
Line S00238 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00238.242l642 ---|          CRD    CM
Line S00239 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00239.242l642 ---|          LDD    CM
Line S00240 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00240.242l642 ---|          STD    T5
Line S00241 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00241.242l642 ---|          LDD    T1          SET SUBFUNCTION CODE
00258  M01S00242.0au     +++|          STD    CM+3
Line S00243 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00243.ns21000 ---|          LDN    PTNM        SET NON-ROLLABLE MODIFY MODE
00260  M01S00003.ns21000 +++|          LDC    4000+PTUP   SET NON-ROLLABLE UPDATE MODE
00261  M01S00244.0au     +++|          STD    CM+2
Line S00245 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00245.242l642 ---|          LDD    T2
00263  M01S00007.242l642 +++| ARFA     LDN    0
00264  M01S00246.0au     +++|          ZJN    ARF1        IF NOT GLOBAL FAST ATTACH FILE
Line S00247 Modification History
M01 (Added by) 0au
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00247.ns22000 ---|          LDD    T5          SET GLOBAL FAST ATTACH EQUIPMENT NUMBER
00266  M01S00004.ns22000 +++|          LDD    T5          SET GLOBAL FAST ATTACH EST ORDINAL
00267  M01S00002.ns2553  +++| ARFB     ADD    TH          IMMEDIATE RETURN IF INACCESSIBLE DEVICE
00268  M01S00003.ns2553  +++|*         PSN                (AFTER FILE IS ATTACHED)
00269  M01S00248.0au     +++| ARF1     STD    CM+1
00270  M01S00249.0au     +++|          LDD    FA          SET FNT ORDINAL
00271  M01S00250.0au     +++|          STD    CM+4
00272  M01S00251.0au     +++|          MONITOR AFAM
00273  M01S00252.0au     +++|          LDD    CM+1        SET EXIT CONDITION
Line S00253 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00253.ns21000 ---|          UJN    ARFX        RETURN
00275  M01S00004.ns21000 +++|          UJP    ARFX        RETURN
Line S00254 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00254.242l642 ---|          SPACE  4,10
Line S00255 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00255.242l642 ---|**        COMMON DECKS.
Line S00256 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00256.242l642 ---|
Line S00257 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00257.242l642 ---|
Line S00258 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00258.242l642 ---| FNT$     EQU    1           ASSEMBLE SYSTEM FNT ACCESS
Line S00259 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00259.242l642 ---| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION
Line S00260 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00260.242l642 ---|*CALL     COMPGFP
00283  M01S00261.0au     +++| BUF      SPACE  4,10
00284  M01S00262.0au     +++|**        BUF - MASS STORAGE BUFFER
00285  M01S00263.0au     +++|
00286  M01S00264.0au     +++|
00287  M01S00265.0au     +++| BUF      EQU    *
00288  M01S00266.0au     +++|          TITLE  OVERLAID SUBROUTINES.
00289  M01S00267.0au     +++| IDM      SPACE  4,10
00290  M01S00268.0au     +++|**        IDM - ISSUE DAYFILE MESSAGE.
00291  M01S00269.0au     +++|*
Line S00270 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00270.ns21000 ---|*         ENTRY  (A) = RIGHT 2 CHARACTERS OF DAYFILE MESSAGE PREFIX.
Line S00271 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00271.ns21000 ---|*                (A) .LT. 0, MESSAGE PRESET IN BUFFER.
Line S00272 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00272.ns21000 ---|*
Line S00273 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00273.ns21000 ---|*         EXIT   NONE.
00296  M01S00005.ns21000 +++|*         ENTRY  MESSAGE PRESET IN BUFFER.
00297  M01S00274.0au     +++|*
00298  M01S00275.0au     +++|*         CALLS  DFM.
00299  M01S00276.0au     +++|
00300  M01S00277.0au     +++|
00301  M01S00278.0au     +++| IDM      SUBR               ENTRY/EXIT
00302  M01S00279.0au     +++|          LDC    AJNN+IDMA   ISSUE ACCOUNT FILE MESSAGE
00303  M01S00280.0au     +++|          ADD    LA
00304  M01S00281.0au     +++|          RJM.   DFM
Line S00282 Modification History
M01 (Added by) 0au
M02 (Updated by) 0au1
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00282.0au1    ---|          LDC    CPON+IDMA+5 ISSUE USER DAYFILE MESSAGE
00306  M01S00001.0au1    +++|          LDC    CDON+IDMA+5 ISSUE USER DAYFILE MESSAGE
00307  M01S00283.0au     +++|          ADD    LA
00308  M01S00284.0au     +++|          RJM.   DFM
00309  M01S00285.0au     +++|          UJN    IDMX
00310  M01S00286.0au     +++|
00311  M01S00287.0au     +++|
00312  M01S00288.0au     +++| IDMA     VFD    24/4HJSNN,24/4H    ,12/**
00313  M01S00289.0au     +++|          DATA   C*UCXX,   1048.576KUNS.*
00314  M01S00290.0au     +++| IOM      SPACE  4,15
00315  M01S00291.0au     +++|**        IOM - ISSUE OVERFLOW MESSAGES.
00316  M01S00292.0au     +++|*
00317  M01S00293.0au     +++|*         ENTRY  (CM+4) = CONTROL POINT AREA OVERFLOW FLAGS (RIGHT
00318  M01S00294.0au     +++|*                         JUSTIFIED) BEFORE CLEARED.
00319  M01S00295.0au     +++|*
Line S00296 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00296.242l642 ---|*         EXIT   (A) .LT. 0, IF SRU ACCUMULATOR OVERFLOW.
Line S00297 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00297.242l642 ---|*                ((LA)-1) = CONTROL POINT AREA OVERFLOW FLAGS
00322  M01S00008.242l642 +++|*         EXIT   ((LA)-1) = CONTROL POINT AREA OVERFLOW FLAGS
00323  M01S00298.0au     +++|*                           (RIGHT JUSTIFIED) BEFORE CLEARED.
00324  M01S00299.0au     +++|*                APPROPRIATE OVERFLOW MESSAGES ISSUED.
00325  M01S00300.0au     +++|*
00326  M01S00301.0au     +++|*         CALLS  IDM.
00327  M01S00302.0au     +++|
00328  M01S00303.0au     +++|
Line S00006 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00006.ns22000 ---| IOM2     LDD    T3          CHECK SRU ACCUMULATOR OVERFLOW
Line S00007 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00007.ns22000 ---|          SHN    21-5
Line S00005 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2753
Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00005.ns2753  ---| IOM2     LDM    -1          CHECK AUC OVERFLOW
00332  M01S00003.ns2753  +++| IOM2     LDM    -1          CHECK OPTICAL DISK OVERFLOW
00333  M01S00004.ns2753  +++|          SHN    21-10
00334  M01S00005.ns2753  +++|          PJN    IOM2.1      IF NO OVERFLOW
00335  M01S00006.ns2753  +++|          LDC    2ROD
00336  M01S00007.ns2753  +++|          STM    IDMA+6
00337  M01S00008.ns2753  +++|          RJM    IDM
00338  M01S00009.ns2753  +++| IOM2.1   LDM    -1          CHECK AUC OVERFLOW
00339  M01S00006.ns22000 +++|          SHN    21-7
00340  M01S00007.ns22000 +++|          PJN    IOM4        IF NO OVERFLOW
00341  M01S00008.ns22000 +++|          LDN    11          MOVE DAYFILE MESSAGE
00342  M01S00009.ns22000 +++|          STD    T1
00343  M01S00010.ns22000 +++|          LDD    LA
00344  M01S00011.ns22000 +++|          RAM    IOMF
00345  M01S00012.ns22000 +++| IOM3     LDM.   IOMH,T1
00346  M01S00013.ns22000 +++| IOMF     EQU    *-1
00347  M01S00014.ns22000 +++|          STM.   IDMA+5-IDMA,T1
00348  M01S00015.ns22000 +++| IOMG     EQU    *-1
00349  M01S00016.ns22000 +++|          SOD    T1
00350  M01S00017.ns22000 +++|          PJN    IOM3        IF MESSAGE MOVE NOT COMPLETE
00351  M01S00018.ns22000 +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
00352  M01S00019.ns22000 +++| IOM4     LDD    T3          CHECK SRU ACCUMULATOR OVERFLOW
00353  M01S00020.ns22000 +++|          SHN    21-5
00354  M01S00008.ns21000 +++|          PJN    IOMX        IF NO OVERFLOW
00355  M01S00009.ns21000 +++|          LDN    11          MOVE DAYFILE MESSAGE
00356  M01S00010.ns21000 +++|          STD    T1
00357  M01S00011.ns21000 +++|          LDD    LA
00358  M01S00012.ns21000 +++|          RAM    IOMA
Line S00013 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00013.ns22000 ---| IOM3     LDM.   IOMC,T1
00360  M01S00021.ns22000 +++| IOM5     LDM.   IOMC,T1
00361  M01S00014.ns21000 +++| IOMA     EQU    *-1
00362  M01S00015.ns21000 +++|          STM.   IDMA+5-IDMA,T1
00363  M01S00016.ns21000 +++| IOMB     EQU    *-1
00364  M01S00017.ns21000 +++|          SOD    T1
Line S00018 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00018.ns22000 ---|          PJN    IOM3        IF MESSAGE MOVE NOT COMPLETE
00366  M01S00022.ns22000 +++|          PJN    IOM5        IF MESSAGE MOVE NOT COMPLETE
00367  M01S00019.ns21000 +++|          RJM    IDM         ISSUE DAYFILE MESSAGE
Line S00020 Modification History
M01 (Added by) ns21000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00020.242l642 ---|          LCN    0
00369  M01S00021.ns21000 +++|
00370  M01S00304.0au     +++| IOM      SUBR               ENTRY/EXIT
00371  M01S00305.0au     +++|          LDD    CM+4        SET OVERFLOW FLAGS
00372  M01S00306.0au     +++|          STM    -1
00373  M01S00307.0au     +++|          STD    T3
Line S00308 Modification History
M01 (Added by) 0au
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00308.ns22000 ---|          LDN    7-2         SET INITIAL SHIFT COUNT
00375  M01S00023.ns22000 +++|          LDN    7-2         SET INITIAL SHIFT COUNT
00376  M01S00309.0au     +++|          STD    T4
00377  M01S00310.0au     +++| IOM1     SOD    T4          DECREMENT SHIFT COUNT
Line S00311 Modification History
M01 (Added by) 0au
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00311.ns22000 ---|          MJN    IOM2        IF ALL SHIFTS COMPLETE
00379  M01S00024.ns22000 +++|          MJP    IOM2        IF ALL SHIFTS COMPLETE
00380  M01S00312.0au     +++|          LDD    T3          CHECK OVERFLOW FLAG
00381  M01S00313.0au     +++|          RAD    T3
Line S00314 Modification History
M01 (Added by) 0au
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00382  M02S00314.ns22000 ---|          SHN    21-7
00383  M01S00025.ns22000 +++|          SHN    21-7
00384  M01S00315.0au     +++|          PJN    IOM1        IF OVERFLOW FLAG NOT SET
00385  M01S00316.0au     +++|          LDM.   IOMD-IDMA-5,T4 SET MESSAGE PREFIX
00386  M01S00317.0au     +++| IOME     EQU    *-1
00387  M01S00318.0au     +++|          STM    IDMA+6
00388  M01S00319.0au     +++|          RJM    IDM
00389  M01S00320.0au     +++|          UJN    IOM1        PROCESS REMAINING OVERFLOW FLAGS
00390  M01S00321.0au     +++|
Line S00322 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00322.ns21000 ---| IOM2     LDD    T3          CHECK SRU ACCUMULATOR OVERFLOW
Line S00323 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00323.ns21000 ---|          SHN    21-5
Line S00324 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00324.ns21000 ---|          PJN    IOM4        IF NO OVERFLOW
Line S00325 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00325.ns21000 ---|          LDN    11          MOVE DAYFILE MESSAGE
Line S00326 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00326.ns21000 ---|          STD    T1
Line S00327 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00396  M02S00327.ns21000 ---|          LDD    LA
Line S00328 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00328.ns21000 ---|          RAM    IOMA
Line S00329 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00329.ns21000 ---| IOM3     LDM.   IOMC,T1
Line S00330 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00330.ns21000 ---| IOMA     EQU    *-1
Line S00331 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00331.ns21000 ---|          STM.   IDMA+5-IDMA,T1
Line S00332 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00332.ns21000 ---| IOMB     EQU    *-1
Line S00333 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00333.ns21000 ---|          SOD    T1
Line S00334 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00334.ns21000 ---|          PJN    IOM3        IF MESSAGE MOVE NOT COMPLETE
Line S00335 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00335.ns21000 ---|          RJM    IDM         ISSUE DAYFILE MESSAGE
Line S00336 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00336.ns21000 ---|          LCN    0
Line S00337 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00337.ns21000 ---| IOM4     LJM    IOMX
00407  M01S00338.0au     +++|
00408  M01S00339.0au     +++|
00409  M01S00340.0au     +++| IOMC     DATA   L*ACSO, 219902.325UNTS*
00410  M01S00026.ns22000 +++|
00411  M01S00027.ns22000 +++| IOMH     DATA   L*UCAC, 536872.911UNTS.*
00412  M01S00341.0au     +++|
00413  M01S00342.0au     +++| IOMD     BSS    0           MESSAGE PREFIX TABLE
00414  M01S00343.0au     +++|          CON    2RAD
00415  M01S00344.0au     +++|          CON    2RPF
00416  M01S00345.0au     +++|          CON    2RMT
00417  M01S00346.0au     +++|          CON    2RMS
00418  M01S00347.0au     +++|          CON    2RMP
00419  M01S00348.0au     +++|          TITLE  PRESET.
00420  M01S00349.0au     +++| PRS      SPACE  4,25
00421  M01S00350.0au     +++|**        PRS - PRESET.
00422  M01S00351.0au     +++|*
00423  M01S00352.0au     +++|*         ENTRY  ((LA)-5 - (LA)-1) = INITIAL CALLING SEQUENCE.
00424  M01S00353.0au     +++|*
Line S00354 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00354.242l642 ---|*         EXIT   (T6) = LEVEL-3 BLOCK TRACK.
00426  M01S00009.242l642 +++|*         EXIT   (T5) = PROFILE FILE DEVICE EST ORDINAL.
00427  M01S00010.242l642 +++|*                (T6) = LEVEL-3 BLOCK TRACK.
00428  M01S00355.0au     +++|*                (T7) = LEVEL-3 BLOCK SECTOR.
00429  M01S00356.0au     +++|*                (FA) = FNT ORDINAL OF PROFILE FILE.
00430  M01S00357.0au     +++|*                (BA) = SECTOR BUFFER ADDRESS.
00431  M01S00358.0au     +++|*                (UPFA) = (UPFD) = *LDN (FC)&AOFC*
00432  M01S00359.0au     +++|*                (UPFE) = PARAMETER BLOCK ADDRESS.
00433  M01S00360.0au     +++|*                (UPFB) = SET IF PROFILE FILE PRESENT.
Line S00361 Modification History
M01 (Added by) 0au
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00361.ns22000 ---|*                (IOMB) = RELOCATED ADDRESS OF *IDMA+5*.
00435  M01S00028.ns22000 +++|*                (IOMB) = (IOMG) = RELOCATED ADDRESS OF *IDMA+5*.
00436  M01S00362.0au     +++|*                (IDMA - IDMA+1) = JOB SEQUENCE NUMBER.
00437  M01S00363.0au     +++|*                (SFAA) = BASE FNT ADDRESS / 10.
00438  M01S00004.ns2553  +++|*         (ARFB) = *PSN* IF *PROFILE* ATTACHED OR NOT NEEDED.
00439  M01S00364.0au     +++|*                PROFILE FILE ATTACHED IF PRESENT.
00440  M01S00365.0au     +++|*                DRIVER SET IF NEEDED.
00441  M01S00366.0au     +++|*                TO *UPFX* IF *ORET* ERROR FLAG SET OR FILE BUSY.
00442  M01S00367.0au     +++|*
Line S00368 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00368.ns21000 ---|*         USES   T1 - T7, CM - CM+4.
Line S00022 Modification History
M01 (Added by) ns21000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00022.242l642 ---|*         USES   T1, T2, T6, T7, CM - CM+4.
Line S00369 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00369.242l642 ---|*
Line S00370 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00446  M02S00370.242l642 ---|*         CALLS  ARF, IFP.
00447  M01S00011.242l642 +++|*         USES   BA, FA, T1, T2, CM - CM+4, T5 - T5+4.
00448  M01S00012.242l642 +++|*
00449  M01S00013.242l642 +++|*         CALLS  ARF.
00450  M01S00371.0au     +++|*
Line S00372 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00372.242l642 ---|*         MACROS PAUSE, SFA.
00452  M01S00014.242l642 +++|*         MACROS PAUSE, SETMS, SFA.
00453  M01S00373.0au     +++|
00454  M01S00374.0au     +++|
00455  M01S00375.0au     +++| PRS      SUBR               ENTRY/EXIT
Line S00376 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00376.242l642 ---|          RJM    IFP         INITIALIZE *COMPGFP*
00457  M01S00377.0au     +++|          LDN    1           SET JSN FOR DAYFILE MESSAGE
00458  M01S00378.0au     +++|          STD    T1
00459  M01S00379.0au     +++|          LDD    LA
00460  M01S00380.0au     +++|          RAM    PRSB
00461  M01S00381.0au     +++|          RAM    IOMB
00462  M01S00029.ns22000 +++|          STM    IOMG
00463  M01S00382.0au     +++|          RAM    IOME
00464  M01S00383.0au     +++|          LDM    -4          SET JSN/SRU PARAMETER ADDRESS
00465  M01S00384.0au     +++|          STM    UPFE
00466  M01S00385.0au     +++|          STM    PRSA
00467  M01S00386.0au     +++|          ADN    4
00468  M01S00387.0au     +++|          STD    T2
00469  M01S00388.0au     +++| PRS1     LDM.   *,T1        MOVE JSN TO DAYFILE MESSAGE
00470  M01S00389.0au     +++| PRSA     EQU    *-1
00471  M01S00390.0au     +++|          STM.   IDMA,T1
00472  M01S00391.0au     +++| PRSB     EQU    *-1
00473  M01S00392.0au     +++|          SOD    T1
00474  M01S00393.0au     +++|          PJN    PRS1
00475  M01S00394.0au     +++|          LDI    T2          SET SERVICE CLASS
00476  M01S00395.0au     +++|          SHN    -6
00477  M01S00396.0au     +++|          STM    IDMA+4
00478  M01S00397.0au     +++|
00479  M01S00398.0au     +++|*         SET PROFILE FILE POINTERS FROM PARAMETER PASS.
00480  M01S00399.0au     +++|
Line S00400 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00400.242l642 ---|          LDM    -1          SET LEVEL-3 BLOCK SECTOR
Line S00401 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00401.242l642 ---|          STD    T7
00483  M01S00402.0au     +++|          LDC    BUF         SET BUFFER ADDRESS
00484  M01S00403.0au     +++|          ADD    LA
00485  M01S00404.0au     +++|          STD    BA
00486  M01S00405.0au     +++|          LDM    -3          SET PROFILE FILE FNT ORDINAL
00487  M01S00406.0au     +++|          STD    FA
Line S00407 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00407.242l642 ---|          LDM    -2          SET LEVEL-3 BLOCK TRACK
Line S00408 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00408.242l642 ---|          STD    T6
Line S00409 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00409.242l642 ---|          NJN    PRS2        IF PROFILE FILE PRESENT
Line S00410 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00410.242l642 ---|          UJN    PRS6        SET FUNCTION CODE
00492  M01S00015.242l642 +++|          SFA    FNT         READ FNT ENTRY
00493  M01S00016.242l642 +++|          CRD    CM
00494  M01S00017.242l642 +++|          ADN    FSTG        SET PROFILE FILE DEVICE EST ORDINAL
00495  M01S00018.242l642 +++|          CRD    T5
00496  M01S00019.242l642 +++|          LDD    CM+3        SET GLOBAL FILE STATUS
00497  M01S00020.242l642 +++|          LPN    77
00498  M01S00021.242l642 +++|          RAM    ARFA
00499  M01S00022.242l642 +++|          LDM    -1          SET LEVEL-3 BLOCK SECTOR
00500  M01S00023.242l642 +++|          STD    T7
00501  M01S00024.242l642 +++|          LDM    -5          EXTRACT FUNCTION CODE
00502  M01S00025.242l642 +++|          LPN    77
00503  M01S00026.242l642 +++|          LMN    AOFC
00504  M01S00027.242l642 +++|          STD    T1
00505  M01S00028.242l642 +++|          RAM    UPFD
00506  M01S00029.242l642 +++|          LDD    CP          FETCH CONTROL POINT AREA OVERFLOW FLAGS
00507  M01S00030.242l642 +++|          ADN    SRUW
00508  M01S00031.242l642 +++|          CRD    CM
00509  M01S00032.242l642 +++|          LDD    CM+1        CHECK SRU ACCUMULATOR OVERFLOW
00510  M01S00033.242l642 +++|          LPN    40
00511  M01S00034.242l642 +++|          ADD    T1
00512  M01S00035.242l642 +++|          ZJN    PRS2        IF NO NEED TO ACCESS PROFILE FILE
00513  M01S00036.242l642 +++|          LDM    -2
00514  M01S00037.242l642 +++| PRS2     STD    T6
00515  M01S00038.242l642 +++|          NJN    PRS4        IF PROFILE FILE PRESENT
Line S00039 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2553
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00039.ns2553  ---| PRS3     LJM    PRSX        RETURN
00517  M01S00005.ns2553  +++| PRS3     STM    ARFB
00518  M01S00006.ns2553  +++|          LJM    PRSX        RETURN
00519  M01S00040.242l642 +++|
00520  M01S00041.242l642 +++| PRS4     SETMS  IO,RW
00521  M01S00001.ns2776  +++|          LDM.   MSD
00522  M01S00002.ns2776  +++|          SHN    21-6
00523  M01S00042.242l642 +++|          MJN    PRS6        IF PROFILE FILE DEVICE INACCESSIBLE
00524  M01S00411.0au     +++|
00525  M01S00412.0au     +++|*         ATTACH PROFILE FILE FOR UPDATE.
00526  M01S00413.0au     +++|
Line S00414 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00414.242l642 ---| PRS2     LDN    AFAS        ATTACH PROFILE FILE
Line S00415 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00415.242l642 ---|          RJM    ARF
Line S00416 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00416.242l642 ---|          ZJN    PRS5        IF ATTACH COMPLETED
Line S00417 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00417.242l642 ---|          LDD    CM+4
Line S00418 Modification History
M01 (Added by) 0au
M02 (Updated by) ns21000
M03 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00531  M03S00418.242l642 ---|          SHN    21-10
Line S00023 Modification History
M01 (Added by) ns21000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00023.242l642 ---|          SHN    21-1
Line S00419 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00419.242l642 ---|          PJN    PRS3        IF ATTACHED IN MODIFY MODE BY *PROFILE*
00534  M01S00043.242l642 +++| PRS5     LDN    AFAS        ATTACH PROFILE FILE
00535  M01S00044.242l642 +++|          RJM    ARF
00536  M01S00045.242l642 +++|          ZJN    PRS3        IF ATTACH COMPLETED
00537  M01S00007.ns2553  +++|          SHN    21-11
00538  M01S00008.ns2553  +++|          MJN    PRS6        IF DEVICE INACCESSIBLE
00539  M01S00046.242l642 +++|          LDD    CM+4
00540  M01S00047.242l642 +++|          LPN    2           CHECK REJECT
00541  M01S00048.242l642 +++|          LMN    2
00542  M01S00049.242l642 +++|          NJN    PRS6        IF ATTACHED IN MODIFY MODE BY *PROFILE*
00543  M01S00420.0au     +++|
00544  M01S00421.0au     +++|*         WAIT FOR OTHER *0AU* TO RELEASE PROFILE FILE.
00545  M01S00422.0au     +++|
00546  M01S00423.0au     +++|          LDC    PFDL/2
00547  M01S00424.0au     +++|          SBN    1
00548  M01S00425.0au     +++|          NJN    *-1
00549  M01S00426.0au     +++|          PAUSE
00550  M01S00427.0au     +++|          LDD    CM+1        CHECK ERROR FLAG
Line S00428 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00428.242l642 ---|          LPN    37
Line S00429 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00429.242l642 ---|          LMN    ORET
Line S00430 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00430.242l642 ---|          ZJN    PRS4        IF OVERRIDE ERROR FLAG SET
Line S00431 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00431.242l642 ---|          UJN    PRS2        RETRY FILE ATTACH
Line S00432 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00432.242l642 ---|
Line S00433 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00433.242l642 ---| PRS3     LDN    1           SET ERROR CODE
Line S00434 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00434.242l642 ---| PRS4     ADN    1           INCREMENT ERROR CODE
Line S00435 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00435.242l642 ---|          LJM    UPFX
Line S00436 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00436.242l642 ---|
Line S00437 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00437.242l642 ---| PRS5     STM    UPFB        SET FILE ATTACHED
Line S00438 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00438.242l642 ---|
Line S00439 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00439.242l642 ---|*         SET FUNCTION CODE.
Line S00440 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00440.242l642 ---|
Line S00441 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00441.242l642 ---| PRS6     LDM    -5          SET FUNCTION CODE
Line S00442 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00442.242l642 ---|          LPN    77
Line S00443 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00443.242l642 ---|          LMN    AOFC
Line S00444 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00444.242l642 ---|          RAM    UPFA
Line S00445 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00445.242l642 ---|          STM    UPFD
Line S00446 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00446.242l642 ---|          LJM    PRSX        RETURN
Line S00447 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00447.242l642 ---|          SPACE  4,10
Line S00448 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00448.242l642 ---|**        ASSEMBLE *COMPGFP* INITIALIZATION CODE.
Line S00449 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00449.242l642 ---|
Line S00450 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00450.242l642 ---|
Line S00451 Modification History
M01 (Added by) 0au
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00451.242l642 ---| IFP      HERE
00575  M01S00050.242l642 +++|          LMN    ORET
00576  M01S00051.242l642 +++|          NJN    PRS5        IF NOT OPERATOR OVERRIDE
00577  M01S00052.242l642 +++|          LDN    1
00578  M01S00053.242l642 +++| PRS6     LJM    UPFX        EXIT
00579  M01S00054.242l642 +++|          SPACE  4,10
00580  M01S00055.242l642 +++|**        COMMON DECKS.
00581  M01S00056.242l642 +++|
00582  M01S00057.242l642 +++|
00583  M01S00058.242l642 +++| FNT$     EQU    1           ASSEMBLE SYSTEM FNT ACCESS
00584  M01S00059.242l642 +++|*CALL     COMPGFP
00585  M01S00452.0au     +++|          SPACE  4,10
00586  M01S00453.0au     +++|          OVERFLOW 5,ZAUL
00587  M01S00454.0au     +++|
00588  M01S00455.0au     +++|          ERRNG  ZAUL-BUF-503 BUFFER OVERFLOWS CALLING PROGRAM
00589  M01S00456.0au     +++|          END
cdc/nos2.source/opl.opl871/deck/0au.txt ยท Last modified: by 127.0.0.1