User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1dl

Deck 1DL

9 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1dl     +++|          IDENT  1DL,LDO
00002  M01S00002.1dl     +++|          PERIPH
00003  M01S00003.1dl     +++|          BASE   MIXED
00004  M01S00004.1dl     +++|          SST
00005  M01S00005.1dl     +++| EOR$     EQU    1           DEFINE EOR POSITION ADVANCE
00006  M01S00006.1dl     +++| MSR$     EQU    1           DEFINE ERROR PROCESSING FOR *RNS*
00007  M01S00007.1dl     +++|*COMMENT  1DL - DISPLAY OVERLAY LOADER.
Line S00008 Modification History
M01 (Added by) 1dl
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT COPYRIGHT   CONTROL DATA CORP. 1970.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.1dl     +++|          TITLE  1DL - DISPLAY OVERLAY LOADER.
00011  M01S00010.1dl     +++|          SPACE  4
00012  M01S00011.1dl     +++|***       1DL - DISPLAY OVERLAY LOADER.
00013  M01S00012.1dl     +++|*         G. R. MANSFIELD.  70/12/11.
00014  M01S00013.1dl     +++|          SPACE  4
00015  M01S00014.1dl     +++|***              1DL MAY BE CALLED TO LOAD OVERLAYS FROM MASS STORAGE
00016  M01S00015.1dl     +++|*         FOR DISPLAY PROGRAMS.  THE OVERLAYS ARE ASSUMED TO BEGIN AT
00017  M01S00016.1dl     +++|*         THE MASS STORAGE ADDRESS SPECIFIED BY THE FIRST OVERLAY
00018  M01S00017.1dl     +++|*         WHICH HAS THE SAME FIRST 2 CHARACTERS OF THE REQUESTED
00019  M01S00018.1dl     +++|*         OVERLAY AND CONTINUE IN A CONTIGUOUS BLOCK,
00020  M01S00019.1dl     +++|          SPACE  4
00021  M01S00020.1dl     +++|***       CALL.
00022  M01S00021.1dl     +++|*
00023  M01S00022.1dl     +++|*
00024  M01S00023.1dl     +++|*T        18/  *1DL*,6/  CP,12/  CH,24/  NAME
Figure

0232429 NAME CH303536414259 CH CP *1DL*

00025  M01S00024.1dl     +++|*         CP     CONTROL POINT NUMBER
Line S00025 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00025.1dl2    ---|*         CH     CHANNEL FOR TRNASMISSION OF OVERLAY
00027  M01S00001.1dl2    +++|*         CH     CHANNEL FOR TRANSMISSION OF OVERLAY
00028  M01S00026.1dl     +++|*                IF CH IS GREATER THAN 77 THEN A CM TRANSFER WILL BE
00029  M01S00027.1dl     +++|*                SELECTED TO THE RECEIVING PPS MSG. BUFFER. CH MUST BE
00030  M01S00028.1dl     +++|*                THE RECEIVING PPS INPUT REGISTER ADDRESS.
00031  M01S00029.1dl     +++|*         NAME   OVERLAY NAME
00032  M01S00030.1dl     +++|          SPACE  4
00033  M01S00031.1dl     +++|***       COMMUNICATION.
00034  M01S00032.1dl     +++|*
00035  M01S00033.1dl     +++|*
00036  M01S00034.1dl     +++|*                WHEN 1DL IS READY TO TRANSMIT THE OVERLAY TO THE
00037  M01S00035.1dl     +++|*         CALLING PROGRAM, BYTE 2 OF THE INPUT REGISTER IS SET TO
00038  M01S00036.1dl     +++|*         7777B.  1DL THEN WAITS FOR BYTE 2 OF THE INPUT REGISTER TO
00039  M01S00037.1dl     +++|*         BE SET TO 0.  IF THIS DOES NOT TAKE PLACE WITHIN 1 SECOND,
00040  M01S00038.1dl     +++|*         1DL EXITS TO PP RESIDENT, THUS ABORTING THE OVERLAY LOAD.
00041  M01S00039.1dl     +++|*                IF A CM TRANSFER IS SELECTED, THE FOLLOWING ADDITIONAL
00042  M01S00040.1dl     +++|*         INTERFACE REQUIREMENTS MUST BE FOLLOWED.
00043  M01S00041.1dl     +++|*                1. AFTER 1DL READY TO SEND IS DETECTED, RECEIVER MUST
00044  M01S00042.1dl     +++|*                   ZERO HIS OUTPUT REGISTER AND THEN SET BYTE 2 OF HIS
00045  M01S00043.1dl     +++|*                   INPUT REGISTER TO ZERO. -READY TO RECEIVE
00046  M01S00044.1dl     +++|*                2. RECEIVER READS HIS OUTPUT REGISTER.  IF BYTE 4 IS
00047  M01S00045.1dl     +++|*                   ZERO, DELAY 128 MICROSECS AND READ AGAIN. IF BYTE
00048  M01S00046.1dl     +++|*                   4 IS NON-ZERO THE LOWER 6 BITS CONTAIN THE BLOCK
00049  M01S00047.1dl     +++|*                   WORD-COUNT AND THE UPPER 6 BITS CONTAIN A FLAG.
00050  M01S00048.1dl     +++|*                   THE FLAG INDICATES DATA IS IN THE MSG. BUFFER.
00051  M01S00049.1dl     +++|*                   IF THE WORD COUNT IS ZERO,THE LAST BLOCK HAS ALREADY
00052  M01S00050.1dl     +++|*                   BEEN RECEIVED AND THE TRANSFER IS COMPLETE.
00053  M01S00051.1dl     +++|*                3  IF THE WORD-COUNT IS NON-ZERO, READ FROM THE MSG.
00054  M01S00052.1dl     +++|*                   BUFFER (WORD-COUNT) WORDS. OTHERWISE, END.
00055  M01S00053.1dl     +++|*                4. ZERO THE OUTPUT REGISTER TO INDICATE TO 1DL THAT
00056  M01S00054.1dl     +++|*                   THE DATA HAS BEEN REMOVED FROM THE BUFFER AND GO TO
00057  M01S00055.1dl     +++|*                   STEP 2.
00058  M01S00056.1dl     +++|*
Line S00057 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00057.242l642 ---|*         *WARNING* - DIRECT CHANNEL TRANSFERS ARE LIMITED TO *MXSC*
00060  M01S00001.242l642 +++|*         *WARNING* - DIRECT CHANNEL TRANSFERS ARE LIMITED TO *MXPC*
Line S00058 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00058.1dl2    ---|*         SECTORS.  ANY DATA BEYOND THIS LIMIT IS IGNORED.  ON CM
Line S00059 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00059.1dl2    ---|*         TRANSFERS AFTER *MXSC* SECTORS, IT IS POSSIBLE FOR 1DL TO
Line S00060 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00060.1dl2    ---|*         BE TRAPPED BY A STORAGE MOVE OR DROP.  THEREFORE, THE
Line S00061 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
M03 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00064  M03S00061.1dl2    ---|*         CALLING PP MUST ALLOW PAUSE AFTER *MXSC* SECTORS TRANSFERRED.
Line S00002 Modification History
M01 (Added by) 242l642
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00002.1dl2    ---|*         CALLING PP MUST ALLOW PAUSE AFTER *MXPC* SECTORS TRANSFERRED.
00066  M01S00002.1dl2    +++|*         SECTORS; ANY DATA BEYOND THIS LIMIT IS IGNORED.  ON CM
00067  M01S00003.1dl2    +++|*         TRANSFERS AFTER *MXPC* SECTORS, IT IS POSSIBLE FOR *1DL* TO
00068  M01S00004.1dl2    +++|*         BE TRAPPED BY A STORAGE MOVE OR DROP.  IF A PAUSE OCCURS,
00069  M01S00005.1dl2    +++|*         THE CM TRANSFER PROTOCOL (IN WHICH THE TWO PP-S MONITOR
00070  M01S00006.1dl2    +++|*         EACH OTHER-S OUTPUT REGISTERS) WILL BREAK DOWN.  SINCE
00071  M01S00007.1dl2    +++|*         *1DL* CANNOT TELL WHETHER OR NOT A PAUSE ACTUALLY OCCURRED,
00072  M01S00008.1dl2    +++|*         *1DL* MUST THEREFORE RESYNCHRONIZE THE TRANSFER AFTER EACH
00073  M01S00009.1dl2    +++|*         *MXPC* SECTORS.  *1DL* WILL DO THIS BY STARTING OVER WITH
00074  M01S00010.1dl2    +++|*         THE INITIAL PROTOCOL (*1DL* SETTING BYTE 2 OF ITS INPUT
00075  M01S00011.1dl2    +++|*         REGISTER SET TO 7777B AND THE CALLING PP SETTING IT TO ZERO).
00076  M01S00012.1dl2    +++|*         THEREFORE, THE CALLING PP MUST BE PREPARED TO PAUSE (IF *1DL*
00077  M01S00013.1dl2    +++|*         PAUSES) AND TO RESYNCHRONIZE THE TRANSFER (IN ANY EVENT)
00078  M01S00014.1dl2    +++|*         AFTER EACH *MXPC* SECTORS ARE TRANSFERRED.
00079  M01S00062.1dl     +++|          SPACE  4
00080  M01S00063.1dl     +++|*CALL     COMPCHI
00081  M01S00064.1dl     +++|*CALL     COMPMAC
00082  M01S00065.1dl     +++|*CALL     COMSMSP
00083  M01S00001.ns2666  +++|*CALL     COMSPIM
00084  M01S00066.1dl     +++|          SPACE  4
00085  M01S00067.1dl     +++|****      DIRECT LOCATION ASSIGNMENTS.
00086  M01S00068.1dl     +++|
00087  M01S00069.1dl     +++|
00088  M01S00070.1dl     +++| T8       EQU    16          *7SE* PARAMETER WORD
00089  M01S00071.1dl     +++| CN       EQU    20          CM WORD BUFFER (5 LOCATIONS)
00090  M01S00072.1dl     +++| OV       EQU    25          OVERLAY NAME
00091  M01S00073.1dl     +++| BO       EQU    26          BUFFER OVERFLOW
00092  M01S00074.1dl     +++| TN       EQU    30 - 34     TRANSFER DIRECT CELLS
00093  M01S00075.1dl     +++| CW       EQU    40 - 44     CM TRANSFER CONTROL WORD
00094  M01S00076.1dl     +++|****
00095  M01S00077.1dl     +++|          SPACE  4
00096  M01S00078.1dl     +++|*         ASSEMBLY CONSTANT.
00097  M01S00079.1dl     +++|
00098  M01S00080.1dl     +++|
00099  M01S00081.1dl     +++| CH       EQU    CHDS        TRANSMISSION CHANNEL
00100  M01S00082.1dl     +++| WT       EQU    6           CM WORDS PER CM TRANSFER
00101  M01S00083.1dl     +++|          TITLE  MAIN PROGRAM.
00102  M01S00084.1dl     +++| LDO      SPACE  4
00103  M01S00085.1dl     +++|**        LDO - MAIN PROGRAM.
00104  M01S00086.1dl     +++|
00105  M01S00087.1dl     +++|
00106  M01S00088.1dl     +++|          ORG    PPFW
00107  M01S00089.1dl     +++| LDO      RJM    PRS         PRESET PROGRAM
00108  M01S00090.1dl     +++|          LDN    0
00109  M01S00091.1dl     +++|          RJM    SFO         SEARCH FOR OVERLAY
00110  M01S00092.1dl     +++|          NJN    LDO.1       IF FOUND
00111  M01S00093.1dl     +++|          LJM    DPP
00112  M01S00094.1dl     +++|
00113  M01S00095.1dl     +++|*         INITIATE TRANSMISSION.
00114  M01S00096.1dl     +++|
00115  M01S00097.1dl     +++| LDO.1    PAUSE  NE
00116  M01S00098.1dl     +++|          AOD    IR+2
00117  M01S00099.1dl     +++|          STD    TN          SAVE CHANNEL OR CM FLAG (IF CM THE OA)
Line S00100 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00100.1dl2    ---|          LCN    0           SET TRANSMIT REQUEST
00119  M01S00015.1dl2    +++| LDO0.2   LCN    0           SET TRANSMIT REQUEST
00120  M01S00101.1dl     +++|          STD    IR+2
Line S00102 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00102.ns2708  ---|          STD    TN+1
00122  M01S00001.ns2708  +++|          STD    TN+1        SET PRIMARY TIMEOUT COUNTER
00123  M01S00002.ns2708  +++|          LDN    3
00124  M01S00003.ns2708  +++|          STD    TN+2        SET SECONDARY TIMEOUT COUNTER
00125  M01S00103.1dl     +++|          LDD    IA
00126  M01S00104.1dl     +++|          CWD    IR
00127  M01S00105.1dl     +++| LDO1     SOD    TN+1
00128  M01S00004.ns2708  +++|          NJN    LDO1.1      IF TIME NOT UP YET
00129  M01S00005.ns2708  +++|          SOD    TN+2
00130  M01S00106.1dl     +++|          ZJN    LDO2        IF TIME UP
Line S00107 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00107.v23l617 ---|          LDC    160
Line S00001 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2708
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00001.ns2708  ---| LDOA     LDC    160
00133  M01S00006.ns2708  +++|          LCN    0
00134  M01S00007.ns2708  +++|          STD    TN+1        RESET PRIMARY TIMEOUT COUNTER
00135  M01S00008.ns2708  +++| LDO1.1   LDC    160
00136  M01S00009.ns2708  +++| LDOA     EQU    *-2
00137  M01S00108.1dl     +++|          SBN    1
00138  M01S00109.1dl     +++|          NJN    *-1
00139  M01S00110.1dl     +++|          LDD    IA          READ RESPONSE
00140  M01S00111.1dl     +++|          CRD    CM
00141  M01S00112.1dl     +++|          LDD    CM+2
00142  M01S00113.1dl     +++|          NJN    LDO1        IF RECEIVE NOT READY
00143  M01S00114.1dl     +++|
00144  M01S00115.1dl     +++|
00145  M01S00116.1dl     +++|*         TRANSMIT OVERLAY.
00146  M01S00117.1dl     +++|
00147  M01S00118.1dl     +++|          LDD    TN
00148  M01S00119.1dl     +++|          SHN    -6
00149  M01S00120.1dl     +++|          NJN    LDO3        IF CM TRANSFER DESIRED
00150  M01S00121.1dl     +++|          LDM    BUF+4       FORM PP WORD COUNT
00151  M01S00122.1dl     +++|          SHN    2
00152  M01S00123.1dl     +++|          ADM    BUF+4
00153  M01S00124.1dl     +++|          IJM    *,CH        WAIT FOR ACTIVE CHANNEL
00154  M01S00125.1dl     +++|          OAM    BUF,CH      OUTPUT OVERLAY
00155  M01S00126.1dl     +++|          FJM    *,CH
00156  M01S00127.1dl     +++|          DCN    CH+40
00157  M01S00128.1dl     +++|
00158  M01S00129.1dl     +++| DPP      MONITOR DPPM       DROP PP
00159  M01S00130.1dl     +++|          LJM    PPR         EXIT TO PP RESIDENT
00160  M01S00131.1dl     +++|
00161  M01S00132.1dl     +++|*         CLEAR READY TO SEND FLAG AND CHANGE THIRD CHARACTER OF NAME
00162  M01S00133.1dl     +++|*         SO THAT THE RECEIVING PPU FIGURES OUT *1DL* IS GOING TO DROP.
00163  M01S00134.1dl     +++|
00164  M01S00135.1dl     +++| LDO2     LDN    0
00165  M01S00136.1dl     +++|          STD    IR+2
00166  M01S00137.1dl     +++|          LDD    IR+1        CHANGE NAME
00167  M01S00138.1dl     +++|          LPN    77
00168  M01S00139.1dl     +++|          STD    IR+1
00169  M01S00140.1dl     +++|          LDD    IA
00170  M01S00141.1dl     +++|          CWD    IR
00171  M01S00142.1dl     +++|          LCN    0           DELAY
00172  M01S00143.1dl     +++|          SBN    1
00173  M01S00144.1dl     +++|          NJN    *-1
00174  M01S00145.1dl     +++|          UJN    DPP
00175  M01S00146.1dl     +++|
00176  M01S00147.1dl     +++| LDO3     LDC    4000+WT     INITIALIZE TRANSFER COUNT
00177  M01S00148.1dl     +++|          STD    CW+4
00178  M01S00149.1dl     +++|          LDD    TN          SAVE MESSAGE BUFFER ADDRESS
00179  M01S00150.1dl     +++|          ADN    1
00180  M01S00151.1dl     +++|          STD    TN+1
00181  M01S00152.1dl     +++|          LDM    BUF+4       SET WORD COUNT
00182  M01S00153.1dl     +++|          STD    TN+2
00183  M01S00154.1dl     +++|          LDN    WT          SET WORDS PER TRANSFER
00184  M01S00155.1dl     +++|          STD    TN+3
00185  M01S00156.1dl     +++| LDO4     LDD    TN+2        CHECK LAST BLOCK
00186  M01S00157.1dl     +++|          SBD    TN+3
00187  M01S00158.1dl     +++|          PJN    LDO5        IF MORE THAN WT WORDS LEFT
00188  M01S00159.1dl     +++|          RAD    CW+4        UPDATE WORD COUNT IN BLOCK
00189  M01S00160.1dl     +++|          LPN    77
00190  M01S00161.1dl     +++|          ZJN    LDO8        IF END OF BUFFER / DATA
00191  M01S00162.1dl     +++| LDO5     LDN    77          DELAY
00192  M01S00163.1dl     +++|          SBN    1
00193  M01S00164.1dl     +++|          NJN    *-1
00194  M01S00165.1dl     +++|          LDD    TN
00195  M01S00166.1dl     +++|          CRD    CM
00196  M01S00167.1dl     +++|          LDD    CM+4
00197  M01S00168.1dl     +++|          NJN    LDO5        IF NOT READY TO SEND
00198  M01S00169.1dl     +++|          LDD    TN+1
00199  M01S00170.1dl     +++|          CWM    BUF,TN+3    TRANSFER BLOCK
Line S00171 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00171.v23l617 ---| LDOA     EQU    *-1
00201  M01S00002.v23l617 +++| LDOB     EQU    *-1
00202  M01S00172.1dl     +++|          SBN    WT+1
00203  M01S00173.1dl     +++|          CWD    CW          SET DATA READY
00204  M01S00174.1dl     +++|          LDN    WT*5        UPDATE BLOCK ADDRESS
Line S00175 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00175.v23l617 ---|          RAM    LDOA
00206  M01S00003.v23l617 +++|          RAM    LDOB
00207  M01S00176.1dl     +++|          LDD    CW+4
00208  M01S00177.1dl     +++|          LPN    77
00209  M01S00178.1dl     +++|          NJN    LDO7        IF NOT END OF TRANSFER
00210  M01S00179.1dl     +++| LDO6     LJM    DPP
00211  M01S00180.1dl     +++|
00212  M01S00181.1dl     +++| LDO7     LCN    WT
00213  M01S00182.1dl     +++|          RAD    TN+2
00214  M01S00183.1dl     +++|          PJN    LDO4        IF STILL MORE WORDS TO TRANSFER
00215  M01S00184.1dl     +++| LDO8     LDD    BO
00216  M01S00185.1dl     +++|          NJN    LDO9        IF BUFFER OVERFLOW
00217  M01S00186.1dl     +++|          LDC    4000        SET NULL TRANSFER
00218  M01S00187.1dl     +++|          STD    CW+4
00219  M01S00188.1dl     +++|          UJN    LDO5
00220  M01S00189.1dl     +++|
00221  M01S00190.1dl     +++| LDO9     STM    BUF+4       SET REMAINING WORD COUNT
00222  M01S00191.1dl     +++|          LDN    0           CLEAR BUFFER OVERFLOW
00223  M01S00192.1dl     +++|          STD    BO
00224  M01S00002.ns2666  +++|          PSN
00225  M01S00003.ns2666  +++|*         UJN    LDO10       (CM RESIDENT OVERLAY)
00226  M01S00004.ns2666  +++| LDOC     EQU    *-1
00227  M01S00193.1dl     +++|          SETMS  READSYS
00228  M01S00194.1dl     +++|          LDC    BUF+5
Line S00195 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00195.v23l617 ---|          STM    LDOA
00230  M01S00004.v23l617 +++|          STM    LDOB
00231  M01S00196.1dl     +++|          SBN    2           (BUF+3)
00232  M01S00197.1dl     +++|          STD    CN          PPU ADDRESS
Line S00198 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00198.ns2666  ---|          LDN    MXPC        SET MAXIMUM SECTOR COUNT
00234  M01S00005.ns2666  +++| LDO10    LDN    MXPC
00235  M01S00199.1dl     +++|          STD    CN+4
00236  M01S00200.1dl     +++|          RJM    SFO         GET THE REST OF THE OVERLAY
Line S00201 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl2
Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00201.1dl2    ---|          LJM    LDO3
00238  M01S00016.1dl2    +++|          LJM    LDO0.2      RESYNCHRONIZE THE TRANSFER
Line S00202 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00202.ns2666  ---| SFO      SPACE  4
00240  M01S00006.ns2666  +++| SFO      SPACE  4,15
00241  M01S00203.1dl     +++|**        SFO - SEARCH FOR OVERLAY.
00242  M01S00204.1dl     +++|*
Line S00205 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00205.ns2666  ---|*         ENTRY  (A)=0, NORMAL ENTRY, (A) NOT EQUAL TO 0 CONTINUE.
00244  M01S00007.ns2666  +++|*         ENTRY  (A) = 0 IF INITIAL ENTRY.
00245  M01S00008.ns2666  +++|*                (A) .NE. 0 IF CONTINUATION ENTRY.
00246  M01S00009.ns2666  +++|*                (T4 - T7) = MASS STORAGE PARAMETERS IF CONTINUATION
00247  M01S00010.ns2666  +++|*                ENTRY AND NOT CM RESIDENT OVERLAY.
00248  M01S00206.1dl     +++|*
00249  M01S00207.1dl     +++|*         EXIT   (A) = 0 IF NOT FOUND.
00250  M01S00208.1dl     +++|*                (BUF - BUF+N) = OVERLAY FOUND.
Line S00209 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00209.ns2666  ---|*         T1 - T7 MUST NOT BE USED IF THIS ROUTINE IS REENTERED.
00252  M01S00011.ns2666  +++|*                (T4 - T7) = MASS STORAGE PARAMETERS IF INITIAL ENTRY
00253  M01S00012.ns2666  +++|*                AND NOT CM RESIDENT OVERLAY.
00254  M01S00210.1dl     +++|*
Line S00211 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00211.ns2666  ---|*         USES   CN - CN+4.
00256  M01S00013.ns2666  +++|*         USES   BO, CN - CN+4, T4 - T7.
00257  M01S00212.1dl     +++|*
00258  M01S00213.1dl     +++|*         CALLS  SPL, RNS.
00259  M01S00214.1dl     +++|*
00260  M01S00215.1dl     +++|*         MACROS ENDMS, SETMS.
00261  M01S00216.1dl     +++|
00262  M01S00217.1dl     +++|
Line S00218 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00218.ns2666  ---| SFO4     LDI    CN
00264  M01S00014.ns2666  +++| SFO9     LDI    CN
00265  M01S00219.1dl     +++|          STD    CN+1
00266  M01S00220.1dl     +++|          LDM    1,CN
00267  M01S00221.1dl     +++|          STD    CN+2
00268  M01S00222.1dl     +++|          LDD    CN          READ NEXT SECTOR
00269  M01S00223.1dl     +++|          RJM    RNS
Line S00224 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00224.ns2666  ---| SFO5     LDD    CN+1        RESTORE 2 BYTES
00271  M01S00015.ns2666  +++| SFO10    LDD    CN+1        RESTORE 2 BYTES
00272  M01S00225.1dl     +++|          STI    CN
00273  M01S00226.1dl     +++|          LDD    CN+2
00274  M01S00227.1dl     +++|          STM    1,CN
00275  M01S00228.1dl     +++|          LDC    500         ADVANCE SECTOR ADDRESS
00276  M01S00229.1dl     +++|          RAD    CN
00277  M01S00230.1dl     +++|          LDD    T1          CHECK WORD COUNT
00278  M01S00231.1dl     +++|          SHN    -6
Line S00232 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00232.ns2666  ---|          ZJN    SFO7        IF EOR
00280  M01S00016.ns2666  +++|          ZJN    SFO12       IF EOR
00281  M01S00233.1dl     +++|          SOD    CN+4
Line S00234 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00234.ns2666  ---| SFO6     NJN    SFO4        IF NOT THE MAXIMUM SECTORS READ
00283  M01S00017.ns2666  +++| SFO11    NJN    SFO9        IF MORE SECTORS WILL FIT INTO BUFFER
00284  M01S00235.1dl     +++|          LDM    BUF+4
00285  M01S00236.1dl     +++|          ADC    -100*MXPC
Line S00237 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00237.ns2666  ---|          ZJN    SFO7        IF NEXT SECTOR EOR
00287  M01S00018.ns2666  +++|          ZJN    SFO12       IF NEXT SECTOR EOR
00288  M01S00238.1dl     +++|          STD    BO          WORDS LEFT OVER
00289  M01S00239.1dl     +++|          LDC    MXPC*100    SET MAXIMUM WORD COUNT
00290  M01S00240.1dl     +++|          STM    BUF+4
Line S00241 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00241.ns2666  ---| SFO7     ENDMS              END MASS STORAGE OPERATION
Line S00242 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00242.ns2666  ---|          LDN    1
00293  M01S00019.ns2666  +++| SFO12    ENDMS
00294  M01S00020.ns2666  +++| SFO13    LDN    1           INDICATE OVERLAY FOUND
00295  M01S00243.1dl     +++|
00296  M01S00244.1dl     +++| SFO      SUBR               ENTRY/EXIT
Line S00245 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00245.ns2666  ---|          NJN    SFO6        IF NOT FIRST ENTRY
00298  M01S00021.ns2666  +++|          NJN    SFO11       IF NOT FIRST ENTRY
00299  M01S00022.ns2666  +++|*         NJN    SFO3        IF NOT FIRST ENTRY (CM RESIDENT OVERLAY)
00300  M01S00023.ns2666  +++| SFOA     EQU    *-1
00301  M01S00246.1dl     +++|
00302  M01S00247.1dl     +++|*         SEARCH PLD FOR FIRST OVERLAY OF GROUP.
00303  M01S00248.1dl     +++|
Line S00249 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00249.ns2666  ---| SFO0     RJM    SPL         SEARCH PLD
00305  M01S00024.ns2666  +++| SFO1     RJM    SPL         SEARCH PLD
00306  M01S00250.1dl     +++|          ZJN    SFOX        IF OVERLAY NOT FOUND
00307  M01S00025.ns2666  +++|          MJP    SFO6        IF FOUND IN *RPL*
00308  M01S00251.1dl     +++|          SETMS  READSYS
Line S00252 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00252.ns2666  ---| SFO1     LDD    CN          READ NEXT SECTOR
00310  M01S00026.ns2666  +++| SFO2     LDD    CN          READ NEXT SECTOR
00311  M01S00253.1dl     +++|          RJM    RNS
Line S00254 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00312  M02S00254.ns2666  ---|          NJN    SFO3        IF NOT EMPTY SECTOR
00313  M01S00027.ns2666  +++|          NJN    SFO5        IF NOT EMPTY SECTOR
00314  M01S00255.1dl     +++|          ENDMS
00315  M01S00256.1dl     +++|*         LDN    0           RETURN WITH (A) = 0
00316  M01S00257.1dl     +++|          UJN    SFOX
00317  M01S00258.1dl     +++|
00318  M01S00028.ns2666  +++| SFO3     LDC    BUF         RESET TRANSFER ADDRESS
00319  M01S00029.ns2666  +++|          STM    LDOB
00320  M01S00030.ns2666  +++|          LDM    BUF+4
00321  M01S00031.ns2666  +++|          UJN    SFO7        READ REST OF OVERLAY
00322  M01S00032.ns2666  +++|
Line S00259 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00259.ns2666  ---| SFO2     LDD    T1          CHECK SECTOR WORD COUNT
00324  M01S00033.ns2666  +++| SFO4     LDD    T1          CHECK SECTOR WORD COUNT
00325  M01S00260.1dl     +++|          SHN    -6
Line S00261 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00261.ns2666  ---|          ZJN    SFO1        IF SHORT SECTOR
00327  M01S00034.ns2666  +++|          ZJN    SFO2        IF SHORT SECTOR
00328  M01S00262.1dl     +++|          LDD    CN          READ NEXT SECTOR
00329  M01S00263.1dl     +++|          RJM    RNS
Line S00264 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00264.ns2666  ---|          UJN    SFO2
00331  M01S00035.ns2666  +++|          UJN    SFO4        LOOP
00332  M01S00265.1dl     +++|
00333  M01S00266.1dl     +++|*         CHECK OVERLAY NAME.
00334  M01S00267.1dl     +++|
Line S00268 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00268.ns2666  ---| SFO3     LDM    2,CN
00336  M01S00036.ns2666  +++| SFO5     LDM    2,CN
00337  M01S00269.1dl     +++|          SHN    6
00338  M01S00270.1dl     +++|          LMD    IR+4
00339  M01S00271.1dl     +++|          SHN    6
00340  M01S00272.1dl     +++|          LMM    3,CN
00341  M01S00273.1dl     +++|          LMD    IR+3
Line S00274 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00274.ns2666  ---|          NJN    SFO2        IF NO MATCH
00343  M01S00037.ns2666  +++|          NJN    SFO4        IF NO MATCH
00344  M01S00275.1dl     +++|          LDN    MXPC        SET MAXIMUM SECTOR COUNT
00345  M01S00276.1dl     +++|          STD    CN+4
Line S00277 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00277.ns2666  ---|          LJM    SFO5
Line S00278 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl1
M03 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00347  M03S00278.ns2666  ---|          SPACE  4
Line S00001 Modification History
M01 (Added by) 1dl1
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00001.ns2666  ---|          SPACE  4,10
00349  M01S00038.ns2666  +++|          LJM    SFO10       READ OVERLAY
00350  M01S00039.ns2666  +++|
00351  M01S00040.ns2666  +++|*         READ CM RESIDENT OVERLAY.
00352  M01S00041.ns2666  +++|
00353  M01S00042.ns2666  +++| SFO6     LDD    T4+3
00354  M01S00043.ns2666  +++| SFO7     STD    T4
00355  M01S00044.ns2666  +++|          SBK    MXPC*100
00356  M01S00045.ns2666  +++|          MJN    SFO8        IF OVERLAY FITS IN BUFFER
00357  M01S00046.ns2666  +++|          STD    BO          SAVE REMAINDER
00358  M01S00047.ns2666  +++|          LDC    MXPC*100
00359  M01S00048.ns2666  +++|          STD    T4
00360  M01S00049.ns2666  +++| SFO8     LDD    T4+1
00361  M01S00050.ns2666  +++|          LPN    77
00362  M01S00051.ns2666  +++|          SHN    14
00363  M01S00052.ns2666  +++|          LMD    T4+2
00364  M01S00053.ns2666  +++|          CRM    BUF,T4      READ IN OVERLAY
00365  M01S00054.ns2666  +++|          ISTORE LDOC,(UJN LDO10)
00366  M01S00055.ns2666  +++|          ISTORE SFOA,(NJN SFO3)
00367  M01S00056.ns2666  +++|          LDD    T4          SET TRANSFER SIZE
00368  M01S00057.ns2666  +++|          STM    BUF+4
00369  M01S00058.ns2666  +++|          RAD    T4+2        UPDATE READ ADDRESS
00370  M01S00059.ns2666  +++|          SHN    -14
00371  M01S00060.ns2666  +++|          RAD    T4+1
00372  M01S00061.ns2666  +++|          UJP    SFO13       SET OVERLAY FOUND
00373  M01S00062.ns2666  +++| MSR      SPACE  4,10
Line S00279 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00279.242l642 ---|*         ERROR PROCESSOR FOR *RNS*.
00375  M01S00003.242l642 +++|**        MSR - MASS STORAGE ERROR PROCESSOR FOR *COMPRNS*.
00376  M01S00004.242l642 +++|*
00377  M01S00005.242l642 +++|*         LOOP TRYING TO READ THE SECTOR UNTIL NO ERROR IS ENCOUNTERED.
00378  M01S00006.242l642 +++|*         THE DRIVER WILL AUTOMATICALLY SWITCH TO DIFFERENT SYSTEM
00379  M01S00007.242l642 +++|*         DEVICES.
00380  M01S00008.242l642 +++|
00381  M01S00009.242l642 +++|
00382  M01S00010.242l642 +++| MSR1     SOM    MSRA
00383  M01S00011.242l642 +++|          ZJP    DPP         IF RETRY LIMIT EXHAUSTED
00384  M01S00012.242l642 +++|
00385  M01S00013.242l642 +++| MSR2     LDD    CN          RETRY THE READ
00386  M01S00014.242l642 +++|          RJM    RDS
00387  M01S00015.242l642 +++|          MJN    MSR1        IF ERROR
00388  M01S00280.1dl     +++|
Line S00281 Modification History
M01 (Added by) 1dl
M02 (Updated by) 1dl1
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00281.1dl1    ---| MSR      SETMS              READ EST
Line S00002 Modification History
M01 (Added by) 1dl1
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00002.242l642 ---| MSR      CON    **          *RNS* ERROR RETURN
Line S00003 Modification History
M01 (Added by) 1dl1
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00003.242l642 ---|          SETMS              READ EST
00392  M01S00016.242l642 +++| MSR      SUBR               ENTRY/EXIT
00393  M01S00017.242l642 +++|          SFA    EST,T5
00394  M01S00018.242l642 +++|          ADK    EQDE
00395  M01S00019.242l642 +++|          CRD    CM          READ EST ENTRY
00396  M01S00282.1dl     +++|          LDD    CM
Line S00283 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00283.242l642 ---|          SHN    0-12
Line S00284 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00284.242l642 ---|          LPN    1
Line S00285 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00285.242l642 ---|          LMN    1
Line S00286 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00286.242l642 ---|          ZJN    RNS-1       IF ON SYSTEM DEVICE
00401  M01S00020.242l642 +++|          SHN    21-12
00402  M01S00021.242l642 +++|          MJN    MSR2        IF ERROR ON SYSTEM DEVICE
00403  M01S00022.242l642 +++|
00404  M01S00023.242l642 +++|*         CALL *7SE* TO REMOVE THE ASR ENTRY FOR THE OVERLAY.
00405  M01S00024.242l642 +++|
00406  M01S00287.1dl     +++|          LDN    IR+3        SET *7SE* CALL PARAMETERS
00407  M01S00288.1dl     +++|          STD    T8
00408  M01S00289.1dl     +++|          EXECUTE  7SE,BUF
Line S00290 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00290.ns2666  ---|          LJM    SFO0        RETRY
00410  M01S00063.ns2666  +++|          LJM    SFO1        RETRY
00411  M01S00025.242l642 +++|
00412  M01S00026.242l642 +++|
00413  M01S00027.242l642 +++| MSRA     CON    10D         ERROR RETRY LIMIT
00414  M01S00291.1dl     +++|          SPACE  4,10
00415  M01S00292.1dl     +++|*         COMMON DECKS.
00416  M01S00293.1dl     +++|
00417  M01S00294.1dl     +++|
00418  M01S00295.1dl     +++|*CALL     COMPRNS
Line S00296 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00296.ns2666  ---| SPL      SPACE  4,20
00420  M01S00064.ns2666  +++| SPL      SPACE  4,15
00421  M01S00297.1dl     +++|**        SPL - SEARCH PERIPHERAL LIBRARY DIRECTORY.
00422  M01S00298.1dl     +++|*
00423  M01S00299.1dl     +++|*         ENTRY  (IR+3 - IR+4) = OVERLAY NAME.
00424  M01S00300.1dl     +++|*
Line S00301 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00301.242l642 ---|*         EXIT   (A) = 0 IF FIRST OVERLAY OF GROUP NOT FOUND.
00426  M01S00028.242l642 +++|*         EXIT   (A) = 0 IF NEITHER THE OVERLAY NOR FIRST OVERLAY OF
Line S00029 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00029.ns2666  ---|                             GROUP FOUND.
Line S00302 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00302.ns2666  ---|*
Line S00303 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
M03 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00429  M03S00303.ns2666  ---|*                (A) .NE. 0 IF FIRST OVERLAY OF GROUP FOUND.
Line S00030 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00030.ns2666  ---|*                (A) .NE. 0 IF OVERLAY OR FIRST OVERLAY OF GROUP FOUND.
00431  M01S00065.ns2666  +++|*                      GROUP FOUND.
00432  M01S00066.ns2666  +++|*                (A) .GT. 0 IF OVERLAY OR FIRST OVERLAY OF GROUP FOUND.
00433  M01S00067.ns2666  +++|*                (A) .LT. 0 IF OVERLAY FOUND IN *RPL*.
00434  M01S00304.1dl     +++|*                (T4 - T7) = MASS STORAGE PARAMETERS.
00435  M01S00305.1dl     +++|*                (CN) = BUFFER ADDRESS.
00436  M01S00068.ns2666  +++|*                (BO) = 0 IF OVERLAY FOUND.
00437  M01S00306.1dl     +++|*
Line S00307 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00307.ns2666  ---|*         USES   T3 - T7, CM - CM+4, OV.
00439  M01S00069.ns2666  +++|*         USES   BO, CN, OV, CM - CM+4, T4 - T7.
00440  M01S00308.1dl     +++|*
Line S00309 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00309.242l642 ---|*         MACROS MONITOR, SETMS.
00442  M01S00031.242l642 +++|*         MACROS MONITOR, SFA.
00443  M01S00310.1dl     +++|
00444  M01S00311.1dl     +++|
00445  M01S00312.1dl     +++| SPL3     STD    BO          CLEAR BUFFER OVERFLOW
00446  M01S00313.1dl     +++|          LDC    BUF-2       SET BUFFER ADDRESS
00447  M01S00314.1dl     +++|          STD    CN
00448  M01S00315.1dl     +++|
00449  M01S00316.1dl     +++| SPL      SUBR               ENTRY/EXIT
00450  M01S00317.1dl     +++|          LDD    IA          MOVE OVERLAY NAME TO MONITOR CALL
00451  M01S00318.1dl     +++|          CRD    CM+3-4
00452  M01S00319.1dl     +++|          MONITOR SPLM       REQUEST LIBRARY SEARCH
00453  M01S00320.1dl     +++|          LDD    OA          SET LOAD PARAMETERS
00454  M01S00321.1dl     +++|          CRD    T4
00455  M01S00322.1dl     +++|          LDD    CM+1
00456  M01S00323.1dl     +++|          SCN    77
00457  M01S00324.1dl     +++|          ZJN    SPL3        IF MASS STORAGE RESIDENT
00458  M01S00070.ns2666  +++|          SHN    -7
00459  M01S00071.ns2666  +++|          NJN    SPL1.2      IF NOT IN *RPL*
00460  M01S00072.ns2666  +++|          STD    BO          CLEAR BUFFER OVERFLOW
00461  M01S00073.ns2666  +++|          LDD    T4+4        CHECK FOR DUMMY *SFP* ENTRY
00462  M01S00074.ns2666  +++|          ADD    T4+3
00463  M01S00075.ns2666  +++|          ZJN    SPLX        IF OVERLAY NOT FOUND
00464  M01S00076.ns2666  +++|          LCN    1
00465  M01S00077.ns2666  +++| SPL1.1   UJN    SPLX        SET FOUND IN *RPL*
00466  M01S00078.ns2666  +++|
00467  M01S00325.1dl     +++| SPL1     SHN    -7
00468  M01S00326.1dl     +++|          ZJN    SPLX        IF IN *RPL*
Line S00001 Modification History
M01 (Added by) 251l664
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00001.ns2666  ---|          SHN    -1
00470  M01S00079.ns2666  +++| SPL1.2   SHN    -1
00471  M01S00002.251l664 +++|          NJN    SPL1        IF 16 BIT OVERLAY
00472  M01S00327.1dl     +++|          LDD    IR+3
00473  M01S00328.1dl     +++|          LMN    1R9
00474  M01S00329.1dl     +++|          NJN    SPL1        IF NOT CALL FOR DISPLAY OVERLAY
00475  M01S00330.1dl     +++|          LDD    IR+4        PRESET FIRST OVERLAY IN GROUP
00476  M01S00331.1dl     +++|          SCN    77
00477  M01S00332.1dl     +++|*         LMN    1RA-1
00478  M01S00333.1dl     +++|          STD    OV
00479  M01S00334.1dl     +++| SPL2     AOD    OV          ADVANCE FIRST OVERLAY IN GROUP
00480  M01S00335.1dl     +++|          STD    CM+3
00481  M01S00336.1dl     +++|          LMD    IR+4
Line S00337 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00337.ns2666  ---|          ZJN    SPLX        IF REQUESTED OVERLAY INACCESSIBLE
00483  M01S00080.ns2666  +++|          ZJN    SPL1.1      IF REQUESTED OVERLAY INACCESSIBLE
00484  M01S00338.1dl     +++|          LDN    1R9         SET NAME IN MONITOR CALL
00485  M01S00339.1dl     +++|          STD    CM+2
00486  M01S00340.1dl     +++|          MONITOR SPLM       REQUEST LIBRARY SEARCH
00487  M01S00341.1dl     +++|          LDD    OA          SET LOAD PARAMETERS
00488  M01S00342.1dl     +++|          CRD    T4
00489  M01S00343.1dl     +++|          LDD    CM+1
00490  M01S00344.1dl     +++|          SCN    77
00491  M01S00345.1dl     +++|          NJN    SPL2        IF NOT MASS STORAGE RESIDENT
Line S00346 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00346.242l642 ---|          SETMS              READ EST
00493  M01S00032.242l642 +++|          SFA    EST,T5
00494  M01S00033.242l642 +++|          ADK    EQDE
00495  M01S00034.242l642 +++|          CRD    CM
00496  M01S00347.1dl     +++|          LDD    CM
00497  M01S00348.1dl     +++|          SHN    21-12
00498  M01S00349.1dl     +++|          PJN    SPL2        IF NOT SYSTEM DEVICE
00499  M01S00350.1dl     +++|          LDN    0
00500  M01S00351.1dl     +++|          LJM    SPL3        RETURN
00501  M01S00352.1dl     +++|          SPACE  4,10
00502  M01S00353.1dl     +++|**        BUFFER.
00503  M01S00354.1dl     +++|
00504  M01S00355.1dl     +++|
00505  M01S00356.1dl     +++| BUF      EQU    *+2
00506  M01S00357.1dl     +++| BUFL     EQU    EPFW-BUF    BUFFER LENGTH
00507  M01S00358.1dl     +++| MXPC     EQU    BUFL/500    MAXIMUM PRU COUNT
Line S00359 Modification History
M01 (Added by) 1dl
M02 (Updated by) ns2666
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00359.ns2666  ---| PRS      SPACE  4
00509  M01S00081.ns2666  +++| PRS      SPACE  4,10
00510  M01S00360.1dl     +++|**        PRS - PRESET PROGRAM.
00511  M01S00361.1dl     +++|*
Line S00362 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00362.v23l617 ---|*         MODIFY CHANNELS IF REQUIRED.
Line S00363 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00363.v23l617 ---|*
Line S00364 Modification History
M01 (Added by) 1dl
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00514  M02S00364.v23l617 ---|*         USES   T1, T2.
00515  M01S00005.v23l617 +++|*         USES   T1, T2, CM - CM+4.
00516  M01S00006.v23l617 +++|*
00517  M01S00007.v23l617 +++|*         MACROS SFA.
00518  M01S00365.1dl     +++|
00519  M01S00366.1dl     +++|
00520  M01S00367.1dl     +++| PRS1     RAI    T2          MODIFY CHANNEL INSTRUCTION
00521  M01S00368.1dl     +++|          AOD    T1          ADVANCE TABLE ADDRESS
00522  M01S00369.1dl     +++| PRS2     LDI    T1          SET NEXT INSTRUCTION
00523  M01S00370.1dl     +++|          STD    T2
00524  M01S00371.1dl     +++|          LDD    IR+2        CHECK CHANNEL
00525  M01S00372.1dl     +++|          CHTL   *
00526  M01S00373.1dl     +++|          SBN    CH
00527  M01S00374.1dl     +++|          NJN    PRS1        LOOP FOR ALL CHANNEL INSTRUCTIONS
00528  M01S00375.1dl     +++|
00529  M01S00376.1dl     +++| PRS      SUBR               ENTRY/EXIT
00530  M01S00008.v23l617 +++|          LDN    DSEQ
00531  M01S00009.v23l617 +++|          SFA    EST         FETCH EST ENTRY FOR DISPLAY
Line S00010 Modification History
M01 (Added by) v23l617
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00010.252l678 ---|          ADK    EQDE
00533  M01S00001.252l678 +++|          ADK    EQAE
00534  M01S00011.v23l617 +++|          CRD    CM
00535  M01S00012.v23l617 +++|          LDD    CM+2        SET TIMEOUT DELAY
00536  M01S00013.v23l617 +++|          RAM    LDOA
00537  M01S00377.1dl     +++|          LDN    ZERL        CLEAR CONTROL WORD
00538  M01S00378.1dl     +++|          CRD    CW
00539  M01S00379.1dl     +++|          LDD    IR+2        CHECK CHANNEL
00540  M01S00380.1dl     +++|          SHN    -6
00541  M01S00381.1dl     +++|          NJN    PRSX        IF CM TRANSFER SELECTED
00542  M01S00382.1dl     +++|          LDC    TCHS        SET CHANNEL TABLE
00543  M01S00383.1dl     +++|          STD    T1
00544  M01S00384.1dl     +++|          UJN    PRS2        ENTER LOOP
00545  M01S00385.1dl     +++| TCHS     SPACE  4
00546  M01S00386.1dl     +++|**        TCHS - CHANNEL TABLE.
00547  M01S00387.1dl     +++|
00548  M01S00388.1dl     +++|
00549  M01S00389.1dl     +++| TCHS     CHTB
00550  M01S00390.1dl     +++|
Line S00391 Modification History
M01 (Added by) 1dl
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00551  M02S00391.242l642 ---|          ERRNG  EPFW-BUF-500*MXPC  BUFFER OVERFLOW
00552  M01S00392.1dl     +++|          SPACE  4
00553  M01S00393.1dl     +++|          END
cdc/nos2.source/opl.opl871/deck/1dl.txt ยท Last modified: by 127.0.0.1