User Tools

Site Tools


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

Deck 0RT

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.0rt     +++|          IDENT  0RT,RTRX
00002  M01S00002.0rt     +++|          PERIPH J
00003  M01S00003.0rt     +++|          BASE   MIXED
00004  M01S00004.0rt     +++|          SST
00005  M01S00005.0rt     +++| REL$     SET    0
00006  M01S00006.0rt     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00007  M01S00007.0rt     +++|*COMMENT  0RT - RETURN TAPE RESOURCE.
Line S00008 Modification History
M01 (Added by) 0rt
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1983.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.0rt     +++|          TITLE  0RT - RETURN TAPE RESOURCE.
00011  M01S00010.0rt     +++|          SPACE  4,10
00012  M01S00011.0rt     +++|***       0RT - RETURN TAPE RESOURCE.
00013  M01S00012.0rt     +++|*
00014  M01S00013.0rt     +++|*         J. L. LARSON.      81/12/14.
00015  M01S00014.0rt     +++|          SPACE  4,10
00016  M01S00015.0rt     +++|***              *0RT* IS A LOCATION FREE ROUTINE USED TO CLEAR
00017  M01S00016.0rt     +++|*         THE ASSOCIATED VSN (RSXVID) FILE ENTRY AND UPDATE THE
00018  M01S00017.0rt     +++|*         JOB DEMAND (RSXDID) FILE ENTRY FOR RETURN OF A TAPE RESOURCE.
00019  M01S00018.0rt     +++|*
00020  M01S00019.0rt     +++|*         *0RT* IS CALLED BY *0DF* (RETURN/UNLOAD TAPE).
00021  M01S00020.0rt     +++|          SPACE  4,10
00022  M01S00021.0rt     +++|***       ENTRY CONDITIONS.
00023  M01S00022.0rt     +++|*
00024  M01S00023.0rt     +++|*         (FA) = RELATIVE FNT ADDRESS IN NFL
00025  M01S00024.0rt     +++|*         ((LA)-1) = Y
00026  M01S00025.0rt     +++|*                WHERE LA = LOAD ADDRESS
00027  M01S00026.0rt     +++|*                       Y = RESOURCE UPDATE CONTROL
00028  M01S00027.0rt     +++|*                            BIT 0 = 0, IF UPDATING ASSIGNED AND DEMAND
00029  M01S00028.0rt     +++|*                                    1, IF NOT UPDATING DEMAND COUNT
00030  M01S00029.0rt     +++|*         (FS - FS+4) = FST INFORMATION
00031  M01S00030.0rt     +++|*
00032  M01S00031.0rt     +++|*         USES   DIRECT CELLS 0 - 17.
00033  M01S00032.0rt     +++|*                *BFMS* MS SECTOR BUFFER.
00034  M01S00033.0rt     +++|          SPACE  4,10
00035  M01S00034.0rt     +++|***       EXIT CONDITIONS.
00036  M01S00035.0rt     +++|*
00037  M01S00036.0rt     +++|*         (A) .LT. 0 IF RESOURCE DEMAND FILE DEVICE INACCESSIBLE.
00038  M01S00001.ns2553  +++|*         (T5) = EST ORDINAL OF DEVICE, IF INACCESSIBLE.
00039  M01S00002.ns2553  +++|*         (FSTL OF FNT) UPDATED IN CM.
00040  M01S00037.0rt     +++|          SPACE  4,10
00041  M01S00038.0rt     +++|**        COMMON DECKS.
00042  M01S00039.0rt     +++|
00043  M01S00040.0rt     +++|
00044  M01S00041.0rt     +++|*CALL     COMPMAC
00045  M01S00042.0rt     +++|*CALL     COMSCPS
00046  M01S00043.0rt     +++|          QUAL   COMSMTX
00047  M01S00044.0rt     +++|*CALL     COMSMTX
00048  M01S00045.0rt     +++|          QUAL   *
00049  M01S00046.0rt     +++|*CALL     COMSPIM
00050  M01S00047.0rt     +++|*CALL     COMSMSP
00051  M01S00048.0rt     +++|*CALL     COMPREL
00052  M01S00049.0rt     +++|          QUAL   COMSRSX
00053  M01S00050.0rt     +++|*CALL     COMSRSX
00054  M01S00051.0rt     +++|          QUAL   *
00055  M01S00052.0rt     +++|*CALL     COMSSSD
00056  M01S00053.0rt     +++|*CALL     COMSZOL
00057  M01S00054.0rt     +++|          SPACE  4,10
00058  M01S00055.0rt     +++|****      DIRECT LOCATION ASSIGNMENTS.
00059  M01S00056.0rt     +++|
00060  M01S00057.0rt     +++|
00061  M01S00058.0rt     +++| FS       EQU    20 - 24     FST INFORMATION (5 LOCATIONS)
00062  M01S00059.0rt     +++| RI       EQU    FS+2        RANDOM INDEX (2 LOCATIONS)
00063  M01S00060.0rt     +++| FA       EQU    57          RELATIVE FNT ADDRESS IN NFL
00064  M01S00061.0rt     +++|          SPACE  4,10
00065  M01S00062.0rt     +++|*         ASSEMBLY CONSTANTS.
00066  M01S00063.0rt     +++|
00067  M01S00064.0rt     +++|
00068  M01S00065.0rt     +++| DFRA     EQU    BFMS+2+/COMSRSX/VDFI*5+3  DEMAND FILE RANDOM ADDRESS
00069  M01S00066.0rt     +++| TACT     EQU    BFMS+2+/COMSRSX/RVAL*5+3  TOTAL ASSIGNED COUNT
00070  M01S00067.0rt     +++| TDCT     EQU    BFMS+2+/COMSRSX/RVAL*5+4  TOTAL DEMAND COUNT
00071  M01S00068.0rt     +++| TRIX     EQU    BFMS+2+/COMSRSX/VDFI*5+2  TAPE RESOURCE INDEX
00072  M01S00069.0rt     +++|
00073  M01S00070.0rt     +++|****
00074  M01S00071.0rt     +++|          TITLE  MAIN PROGRAM.
00075  M01S00072.0rt     +++| RTR      SPACE  4,10
00076  M01S00073.0rt     +++|**        RTR - MAIN ROUTINE.
00077  M01S00074.0rt     +++|
00078  M01S00075.0rt     +++|
00079  M01S00076.0rt     +++|          ORG    5
00080  M01S00077.0rt     +++| RTR      SUBR               ENTRY/EXIT
00081  M01S00078.0rt     +++|          RJM    IFP         INITIALIZE GLOBAL FNT PROCESSOR
00082  M01S00079.0rt     +++|          LDD    FS+4
00083  M01S00080.0rt     +++|          SHN    21-2
00084  M01S00081.0rt     +++|          MJN    RTR1        IF PREVIOUS DEMAND FILE ERROR
00085  M01S00082.0rt     +++|          LDN    RVFO        SET RESOURCE VSN FILE ORDINAL
00086  M01S00083.0rt     +++|          RJM    RRF         READ VSN FILE ENTRY
00087  M01S00084.0rt     +++|
00088  M01S00085.0rt     +++|*         CLEAR VSN ENTRY.
00089  M01S00086.0rt     +++|
00090  M01S00087.0rt     +++|          LDM.   DFRA        SET DEMAND FILE RANDOM ADDRESS
00091  M01S00088.0rt     +++|          STD    RI
00092  M01S00089.0rt     +++|          LDM.   DFRA+1
00093  M01S00090.0rt     +++|          STD    RI+1
00094  M01S00091.0rt     +++|          LDM.   TRIX        GET TAPE RESOURCE INDEX AND BYTE POINTER
00095  M01S00092.0rt     +++|          SBD    HN          CONVERT BYTE POINTER TO ACCESS LEVEL
00096  M01S00093.0rt     +++|          SHN    3
00097  M01S00094.0rt     +++|          LMN    4
00098  M01S00095.0rt     +++|          RAD    FS+4
00099  M01S00096.0rt     +++|          LDN    0
00100  M01S00097.0rt     +++|          RJM    CLE         CLEAR VSN ENTRY
00101  M01S00098.0rt     +++|          LDD    FS+1
00102  M01S00099.0rt     +++|          ZJN    RTRX        IF NO UDT ADDRESS
00103  M01S00100.0rt     +++| RTR1     LDN    RDFO        RESOURCE DEMAND FILE ORDINAL
00104  M01S00101.0rt     +++|          RJM    RRF         READ DEMAND FILE ENTRY
00105  M01S00102.0rt     +++|*         UJN    URC         UPDATE RESOURCE COUNTS
00106  M01S00103.0rt     +++| URC      SPACE  4,10
00107  M01S00104.0rt     +++|*         URC - UPDATE RESOURCE ASSIGNED AND DEMAND COUNTS.
00108  M01S00105.0rt     +++|*
00109  M01S00106.0rt     +++|*         ENTRY  (FS+4) = RESOURCE BYTE POINTER.
00110  M01S00107.0rt     +++|*
00111  M01S00108.0rt     +++|*         EXIT   TO *RTU* TO RELEASE TAPE UNIT.
00112  M01S00109.0rt     +++|*
00113  M01S00110.0rt     +++|*         ERROR  TO *HNG* IF RESOURCE COUNTS INVALID.
00114  M01S00111.0rt     +++|*
00115  M01S00112.0rt     +++|*         USES   T2.
00116  M01S00113.0rt     +++|
00117  M01S00114.0rt     +++|
00118  M01S00115.0rt     +++| URC      BSS    0           ENTRY
00119  M01S00116.0rt     +++|          LDD    FS+4
00120  M01S00117.0rt     +++|          SHN    -3          CALCULATE RESOURCE BYTE NUMBER
00121  M01S00118.0rt     +++|          LPN    77
00122  M01S00119.0rt     +++|          STD    T2
00123  M01S00120.0rt     +++|          SHN    2
00124  M01S00121.0rt     +++|          ADC    BFMS+2+5
00125  M01S00122.0rt     +++|          RAD    T2
00126  M01S00123.0rt     +++|          LDD    FS+4
00127  M01S00124.0rt     +++|          ADD    TH          CONVERT ACCESS LEVEL TO BYTE POINTER
00128  M01S00125.0rt     +++|          SHN    -11
00129  M01S00126.0rt     +++|          SBN    5
00130  M01S00127.0rt     +++|          MJN    URC1        IF NOT IN SECOND WORD OF ENTRY
00131  M01S00128.0rt     +++|          ADN    1           ADJUST TO SECOND WORD
00132  M01S00129.0rt     +++| URC1     RAD    T2
00133  M01S00130.0rt     +++|
00134  M01S00131.0rt     +++|*         DECREMENT RESOURCE ASSIGNED COUNT AND TOTAL ASSIGNED COUNT.
00135  M01S00132.0rt     +++|
00136  M01S00133.0rt     +++|          LDC    -100        DECREMENT RESOURCE ASSIGNED COUNT
00137  M01S00134.0rt     +++|          RAI    T2
00138  M01S00135.0rt     +++|          MJN    HNG         IF RESOURCE ASSIGNED COUNT OUT OF RANGE
00139  M01S00136.0rt     +++|          LDM.   TDCT        CHECK TOTAL DEMAND COUNT = 1
00140  M01S00137.0rt     +++|          SBN    1
00141  M01S00138.0rt     +++|          ZJN    URC2        IF ONLY ONE CONCURRENT RESOURCE SCHEDULED
00142  M01S00139.0rt     +++|          LDM    -1
00143  M01S00140.0rt     +++|          NJN    URC3        IF UNLOAD (DECREMENT ASSIGNED COUNT)
00144  M01S00141.0rt     +++|
00145  M01S00142.0rt     +++|*         IF ALL DEMANDS SATISFIED, DECREMENT RESOURCE DEMAND COUNT
00146  M01S00143.0rt     +++|*         AND TOTAL DEMAND COUNT.
00147  M01S00144.0rt     +++|
00148  M01S00145.0rt     +++| URC2     LDM.   TACT        CHECK ALL DEMANDS SATISFIED
00149  M01S00146.0rt     +++|          SBM.   TDCT
00150  M01S00147.0rt     +++|          MJN    URC3        IF NOT ALL DEMANDS SATISFIED
00151  M01S00148.0rt     +++|          SOI    T2          DECREMENT RESOURCE DEMAND COUNT
00152  M01S00149.0rt     +++|          SHN    21-5
00153  M01S00150.0rt     +++|          MJN    HNG         IF RESOURCE DEMAND COUNT OUT OF RANGE
00154  M01S00151.0rt     +++|          SOM.   TDCT        DECREMENT TOTAL DEMAND COUNT
00155  M01S00152.0rt     +++|          MJN    HNG         IF TOTAL DEMAND COUNT NOT IN RANGE
00156  M01S00153.0rt     +++| URC3     SOM.   TACT
00157  M01S00154.0rt     +++|          PJN    RTU         IF TOTAL ASSIGNED COUNT NOT OUT OF RANGE
00158  M01S00155.0rt     +++|*         UJN    HNG         HANG PP
00159  M01S00156.0rt     +++| HNG      SPACE  4,10
00160  M01S00157.0rt     +++|**        HNG - HANG PP.
00161  M01S00158.0rt     +++|*
00162  M01S00159.0rt     +++|*         EXIT   TO *RRF4* IF PP HANG CLEARED.
00163  M01S00160.0rt     +++|*
00164  M01S00161.0rt     +++|*         MACROS MONITOR.
00165  M01S00162.0rt     +++|
00166  M01S00163.0rt     +++|
00167  M01S00164.0rt     +++| HNG      BSS    0           ENTRY
00168  M01S00165.0rt     +++|          MONITOR  HNGM      HANG PP
00169  M01S00166.0rt     +++|          LJM    RRF4        RELEASE CHANNEL AND EXIT
00170  M01S00167.0rt     +++| RTU      SPACE  4,10
00171  M01S00168.0rt     +++|**        RTU - RELEASE TAPE UNIT.
00172  M01S00169.0rt     +++|*
00173  M01S00170.0rt     +++|*         ENTRY  (FS - FS+4) = FST INFORMATION.
00174  M01S00171.0rt     +++|*
00175  M01S00172.0rt     +++|*         EXIT   TO *RTRX*.
00176  M01S00173.0rt     +++|*
00177  M01S00174.0rt     +++|*         USES   CM - CM+4.
00178  M01S00175.0rt     +++|*
00179  M01S00176.0rt     +++|*         CALLS  CLE, PAU.
00180  M01S00177.0rt     +++|*
00181  M01S00178.0rt     +++|*         MACROS MONITOR.
00182  M01S00179.0rt     +++|
00183  M01S00180.0rt     +++|
00184  M01S00181.0rt     +++| RTU      BSS    0           ENTRY
00185  M01S00182.0rt     +++|          LDN    1
00186  M01S00183.0rt     +++|          RJM    CLE         UPDATE DEMAND FILE ENTRY
Line S00184 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00184.282l826 ---|          LDD    FS+1
Line S00185 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00185.282l826 ---|          STD    CM+1
Line S00186 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00186.282l826 ---|          LDN    /COMSMTX/XRU  SET RETURN CODE
00190  M01S00001.282l826 +++|
00191  M01S00002.282l826 +++|*         IF CALLED BY MAGNET, A *CLOSE/UNLOAD* OR *CLOSE/RETURN*
00192  M01S00003.282l826 +++|*         REQUEST IS IN PROGRESS.  IN THIS CASE, *1MT* WILL INITIATE
00193  M01S00004.282l826 +++|*         THE UNIT RETURN PROCESSING.
00194  M01S00005.282l826 +++|
00195  M01S00006.282l826 +++|          LDD    IA          SET CALLING CONTROL POINT ADDRESS
00196  M01S00007.282l826 +++|          CRD    CM
00197  M01S00008.282l826 +++|          LDD    CM+1
00198  M01S00009.282l826 +++|          LPN    37
00199  M01S00010.282l826 +++|          SHN    7
00200  M01S00011.282l826 +++|          ADK    JCIW        GET SUBSYSTEM ID
00201  M01S00012.282l826 +++|          CRD    CM
00202  M01S00013.282l826 +++|          LDD    CM+2
00203  M01S00014.282l826 +++|          LMK    MTSI
00204  M01S00015.282l826 +++|          ZJN    RTU2        IF CALLED BY MAGNET
00205  M01S00016.282l826 +++|          LDN    ZERL
00206  M01S00017.282l826 +++|          CRD    CM
00207  M01S00018.282l826 +++|          LDN    /COMSMTX/RTF  SET RETURN REQUEST
00208  M01S00187.0rt     +++|          STD    CM
00209  M01S00188.0rt     +++|          LDD    MA
00210  M01S00189.0rt     +++|          CWD    CM
00211  M01S00190.0rt     +++| RTU1     RJM    PAU         PAUSE
Line S00191 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00191.282l826 ---|          LDN    /COMSMTX/XREQ  SET *MAGNET* RETURN CALL
00213  M01S00019.282l826 +++|          LDD    FS+1        SET *UFRQ* ADDRESS
00214  M01S00020.282l826 +++|          ADK    /COMSMTX/UFRQ
00215  M01S00192.0rt     +++|          STD    CM+4
Line S00193 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00193.282l826 ---|          LDN    1           SET WRITE FLAG
00217  M01S00021.282l826 +++|          LDN    5           SET WRITE AND INCREMENT TAPE ACTIVITY
00218  M01S00194.0rt     +++|          STD    CM+1
Line S00195 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00195.282l826 ---|          SHN    6           SET NUMBER OF WORDS TO WRITE
00220  M01S00022.282l826 +++|          LDD    HN          SET NUMBER OF WORDS TO WRITE
00221  M01S00196.0rt     +++|          STD    CM+3
00222  M01S00197.0rt     +++|          LCN    7777-MTSI
00223  M01S00198.0rt     +++|          STD    CM+2
Line S00199 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00224  M02S00199.282l826 ---|          MONITOR TDAM
Line S00200 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00200.282l826 ---|          LDD    CM+1
Line S00201 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00201.282l826 ---|          ZJN    RTU3        IF COMPLETE
Line S00202 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00202.282l826 ---|          LMN    4
Line S00203 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00203.282l826 ---|          NJN    RTU1        IF *MAGNET* ACTIVE
00229  M01S00023.282l826 +++|          MONITOR TDAM       MAKE TAPE RETURN REQUEST
00230  M01S00024.282l826 +++|          LDD    CM+1
00231  M01S00025.282l826 +++|          ZJN    RTU2        IF COMPLETE
00232  M01S00026.282l826 +++|          SBN    1
00233  M01S00027.282l826 +++|          ZJN    RTU1        IF MAGNET MOVING
00234  M01S00028.282l826 +++|          LDD    FS          SET EST ORDINAL
00235  M01S00029.282l826 +++|          STD    CM+1
00236  M01S00030.282l826 +++|          MONITOR  DEQM      DROP EQUIPMENT
00237  M01S00031.282l826 +++|*         LDN    0           SET RETURN COMPLETE
00238  M01S00204.0rt     +++| RTU2     LJM    RTRX        RETURN
Line S00205 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00205.282l826 ---|
Line S00206 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00206.282l826 ---| RTU3     LDN    CIOS        INCREMENT TAPE ACTIVITY COUNT
Line S00207 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00207.282l826 ---|          STD    CM
Line S00208 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00208.282l826 ---|          LDN    STSW
Line S00209 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00209.282l826 ---|          STD    CM+1
Line S00210 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00210.282l826 ---|          LDC    404
Line S00211 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00211.282l826 ---|          STD    CM+2
Line S00212 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00212.282l826 ---|          LDD    MA
Line S00213 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00213.282l826 ---|          CWD    CM
Line S00214 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00214.282l826 ---|          LDN    1           SET REQUEST COUNT AND NO DROP
Line S00215 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00215.282l826 ---|          STD    CM+1
Line S00216 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00216.282l826 ---|          STD    CM+2
Line S00217 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00217.282l826 ---|          MONITOR  UADM
Line S00218 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00218.282l826 ---|          LDD    CM+1
Line S00219 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00219.282l826 ---|          ZJN    RTU2        IF UPDATE COMPLETE
Line S00220 Modification History
M01 (Added by) 0rt
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00220.282l826 ---|          LJM    HNG         HANG PP
00255  M01S00221.0rt     +++|          TITLE  SUBROUTINES.
00256  M01S00222.0rt     +++| RRF      SPACE  4,15
00257  M01S00223.0rt     +++|**        RRF - READ RESOURCE FILE ENTRY.
00258  M01S00224.0rt     +++|*
00259  M01S00225.0rt     +++|*         ENTRY  (A) = FNT ORDINAL OF RESOURCE FILE.
00260  M01S00226.0rt     +++|*                (RI - RI+1) = RANDOM INDEX OF RESOURCE FILE ENTRY.
00261  M01S00227.0rt     +++|*
00262  M01S00228.0rt     +++|*         EXIT   (T5 - T7) = RESOURCE FILE MS PARAMETERS.
00263  M01S00229.0rt     +++|*                (BFMS) = RESOURCE FILE ENTRY (MS SECTOR).
00264  M01S00230.0rt     +++|*
00265  M01S00231.0rt     +++|*         ERROR  TO *RTRX* IF FILE EMPTY, RANDOM INDEX ERROR,
00266  M01S00232.0rt     +++|*                OR SECTOR READ ERROR.
00267  M01S00233.0rt     +++|*
00268  M01S00234.0rt     +++|*         USES   T1, T3, CM - CM+4, T5 - T5+4.
00269  M01S00235.0rt     +++|*
00270  M01S00236.0rt     +++|*         CALLS  CLE, CRA, PAU, RDS, SFI.
00271  M01S00237.0rt     +++|*
00272  M01S00238.0rt     +++|*         MACROS SETMS, SFA.
00273  M01S00239.0rt     +++|
00274  M01S00240.0rt     +++|
00275  M01S00241.0rt     +++| RRF      SUBR               ENTRY/EXIT
00276  M01S00242.0rt     +++|          STD    T3
00277  M01S00243.0rt     +++|          SFA    FNT         GET RESOURCE FILE FST ENTRY
00278  M01S00244.0rt     +++|          ADN    FSTG
00279  M01S00245.0rt     +++|          CRD    T5
00280  M01S00246.0rt     +++|          LDD    T6
00281  M01S00247.0rt     +++|          ZJN    RRF1        IF FILE UNUSED
00282  M01S00248.0rt     +++|          SETMS  IO,RW
00283  M01S00249.0rt     +++|          LDD    CM+4        FETCH FWA OF TRT
00284  M01S00250.0rt     +++|          SHN    3
00285  M01S00251.0rt     +++|          ADN    TRLL
00286  M01S00252.0rt     +++|          CRD    CM
00287  M01S00253.0rt     +++|          LDD    CM+3
00288  M01S00254.0rt     +++|          LPN    77
00289  M01S00255.0rt     +++|          SHN    14
00290  M01S00256.0rt     +++|          LMD    CM+4
00291  M01S00257.0rt     +++|          SBD    TH          4000/4
00292  M01S00258.0rt     +++|          STM    CRAA+1
00293  M01S00259.0rt     +++|          SHN    -14
00294  M01S00260.0rt     +++|          LMC    ADCI
00295  M01S00261.0rt     +++|          STM    CRAA
00296  M01S00262.0rt     +++|          LDD    RI
00297  M01S00263.0rt     +++|          ADD    RI+1
00298  M01S00264.0rt     +++| RRF1     ZJN    RRF5        IF NO RANDOM INDEX
00299  M01S00265.0rt     +++| RRF2     RJM    PAU         PAUSE
00300  M01S00266.0rt     +++|*         LDN    SFIN
00301  M01S00267.0rt     +++|          ERRNZ  SFIN        CODE DEPENDS ON VALUE
00302  M01S00268.0rt     +++|*         STD    T1
00303  M01S00269.0rt     +++|          SFA    FNT,T3      INTERLOCK RESOURCE FILE
00304  M01S00270.0rt     +++|          RJM    SFI
00305  M01S00271.0rt     +++|          NJN    RRF2        IF INTERLOCK UNAVAILABLE
00306  M01S00272.0rt     +++|          RJM    CRA
00307  M01S00273.0rt     +++|          MJN    RRF4        IF RANDOM ADDRESS ERROR
00308  M01S00274.0rt     +++|          LDC    BFMS
00309  M01S00275.0rt     +++|          RJM.   RDS         READ SECTOR
00310  M01S00276.0rt     +++|          MJN    RRF3        IF READ ERROR
00311  M01S00277.0rt     +++|          LJM    RRFX        RETURN
00312  M01S00278.0rt     +++|
00313  M01S00279.0rt     +++| RRF3     SHN    21-12
00314  M01S00280.0rt     +++|          MJN    RRF4        IF NON-RECOVERABLE ERROR
00315  M01S00281.0rt     +++|          SOM    RRFA
00316  M01S00282.0rt     +++| RRF4     LCN    0           RELEASE FILE WITH NO UPDATE
00317  M01S00283.0rt     +++|          RJM    CLE
00318  M01S00284.0rt     +++|*         LDN    0           SET EXIT CONDITION
00319  M01S00285.0rt     +++| RRFA     ADN    0
00320  M01S00286.0rt     +++|*         LCN    77          (RECOVERABLE MS ERROR ENCOUNTERED)
00321  M01S00287.0rt     +++| RRF5     LJM    RTRX        RETURN
00322  M01S00288.0rt     +++| CLE      SPACE  4,25
00323  M01S00289.0rt     +++|**        CLE - CLEAR/UPDATE FILE ENTRY.
00324  M01S00290.0rt     +++|*
00325  M01S00291.0rt     +++|*         ENTRY  (A) = 0, IF CLEAR FILE ENTRY.
00326  M01S00292.0rt     +++|*                (A) .GT. 0, IF UPDATE FILE ENTRY.
00327  M01S00293.0rt     +++|*                (A) .LT. 0, IF RELEASE CHANNEL WITH NO UPDATE.
00328  M01S00294.0rt     +++|*                (T3) = FNT ORDINAL OF RESOURCE FILE.
00329  M01S00295.0rt     +++|*                (FA) = RELATIVE FNT ADDRESS IN NFL.
00330  M01S00296.0rt     +++|*                (T5 - T7) = RESOURCE FILE MS PARAMETERS.
00331  M01S00297.0rt     +++|*                (FS - FS+4) = FST INFORMATION.
00332  M01S00298.0rt     +++|*                (BFMS) = RESOURCE FILE ENTRY (MS SECTOR).
00333  M01S00299.0rt     +++|*
00334  M01S00300.0rt     +++|*         EXIT   RESOURCE FILE SECTOR REWRITTEN FROM BFMS BUFFER
00335  M01S00301.0rt     +++|*                FOR ENTRY CONDITION (A) .GE. 0.
00336  M01S00302.0rt     +++|*
00337  M01S00303.0rt     +++|*         ERROR  TO *RRF3* IF MASS STORAGE ERROR.
00338  M01S00304.0rt     +++|*
00339  M01S00305.0rt     +++|*         USES   T1, CM - CM+4.
00340  M01S00306.0rt     +++|*
00341  M01S00307.0rt     +++|*         CALLS  SFI, WDS.
00342  M01S00308.0rt     +++|*
00343  M01S00309.0rt     +++|*         MACROS ENDMS, SFA.
00344  M01S00310.0rt     +++|
00345  M01S00311.0rt     +++|
00346  M01S00312.0rt     +++| CLE      SUBR               EXTRY/EXIT
00347  M01S00313.0rt     +++|          NJN    CLE2        IF UPDATE ONLY
00348  M01S00314.0rt     +++|          LDC    500
00349  M01S00315.0rt     +++|          STD    T1
00350  M01S00316.0rt     +++| CLE1     LDN    0           CLEAR SECTOR BUFFER
00351  M01S00317.0rt     +++|          STM.   BFMS+1,T1
00352  M01S00318.0rt     +++|          SOD    T1
00353  M01S00319.0rt     +++|          NJN    CLE1        IF MORE TO CLEAR
00354  M01S00320.0rt     +++| CLE2     MJN    CLE3        IF NO SECTOR TO WRITE
00355  M01S00321.0rt     +++|          LDC    BFMS+WLSF   WRITE SECTOR
00356  M01S00322.0rt     +++|          RJM.   WDS
00357  M01S00323.0rt     +++|          MJP    RRF3        IF WRITE ERROR
00358  M01S00324.0rt     +++|          NFA    FA,R
00359  M01S00325.0rt     +++|          ADN    FSTL        UPDATE FST INFORMATION
00360  M01S00326.0rt     +++|          CWD    FS
00361  M01S00327.0rt     +++| CLE3     ENDMS              END MASS STORAGE OPERATION
00362  M01S00328.0rt     +++|          LDN    CFIN        CLEAR FILE INTERLOCK OPTION
00363  M01S00329.0rt     +++|          STD    T1
00364  M01S00330.0rt     +++|          SFA    FNT,T3      ABSOLUTE ADDRESS OF RESOURCE FILE FNT
00365  M01S00331.0rt     +++|          RJM    SFI         CLEAR RESOURCE FILE INTERLOCK
00366  M01S00332.0rt     +++|          UJP    CLEX        RETURN
00367  M01S00333.0rt     +++| PAU      SPACE  4,10
00368  M01S00334.0rt     +++|**        PAU - PAUSE AND CHECK FOR OPERATOR OVERRIDE.
00369  M01S00335.0rt     +++|*
00370  M01S00336.0rt     +++|*         EXIT   (A) = (T1) = 0.
00371  M01S00337.0rt     +++|*
00372  M01S00338.0rt     +++|*         ERROR  TO *RTRX* IF OPERATOR OVERRIDE ERROR FLAG.
00373  M01S00339.0rt     +++|*
00374  M01S00340.0rt     +++|*         USES   T1.
00375  M01S00341.0rt     +++|*
00376  M01S00342.0rt     +++|*         MACROS DELAY, PAUSE.
00377  M01S00343.0rt     +++|
00378  M01S00344.0rt     +++|
00379  M01S00345.0rt     +++| PAU      SUBR               ENTRY/EXIT
00380  M01S00346.0rt     +++|          LDN    20          DELAY TWO MILLISECONDS
00381  M01S00347.0rt     +++|          STD    T1
00382  M01S00348.0rt     +++| PAU1     SOD    T1
00383  M01S00349.0rt     +++|          ZJN    PAUX        IF END OF DELAY
00384  M01S00350.0rt     +++|          DELAY
00385  M01S00351.0rt     +++|          PAUSE
00386  M01S00352.0rt     +++|          LDD    CM+1
00387  M01S00353.0rt     +++|          LMN    ORET
00388  M01S00354.0rt     +++|          NJN    PAU1        IF NOT OPERATOR OVERRIDE
00389  M01S00355.0rt     +++|          LJM    RTRX        EXIT
00390  M01S00356.0rt     +++|          SPACE  4,10
00391  M01S00357.0rt     +++|**        COMMON DECKS.
00392  M01S00358.0rt     +++|
00393  M01S00359.0rt     +++|
00394  M01S00360.0rt     +++| IRA$     SET    1           DEFINE INITIALIZATION
00395  M01S00361.0rt     +++| REL$     SET    1
00396  M01S00362.0rt     +++|*CALL     COMPCRA
00397  M01S00363.0rt     +++| FNT$     EQU    1           ASSEMBLE SYSTEM FNT PROCESSOR
00398  M01S00364.0rt     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
00399  M01S00365.0rt     +++|*CALL     COMPGFP
00400  M01S00366.0rt     +++| SFI$     EQU    1           SELECT IMMEDIATE RETURN FROM *SFI*
00401  M01S00367.0rt     +++|*CALL     COMPSFI
00402  M01S00368.0rt     +++|
00403  M01S00369.0rt     +++|
00404  M01S00370.0rt     +++| IFP      HERE               CODE TO INITIALIZE SYSTEM FNT PROCESSOR
00405  M01S00371.0rt     +++|          SPACE  4,10
00406  M01S00372.0rt     +++|          RSTR
00407  M01S00373.0rt     +++|          SPACE  4,10
00408  M01S00374.0rt     +++|          OVERFLOW 5,ZRTL
00409  M01S00375.0rt     +++|
00410  M01S00376.0rt     +++|          END
cdc/nos2.source/opl.opl871/deck/0rt.txt ยท Last modified: by 127.0.0.1