User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:6dx

Deck 6DX

5 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.6dx     +++|          IDENT  6DX,MSFW
00002  M01S00002.6dx     +++|          PERIPH
00003  M01S00003.6dx     +++|          BASE   MIXED
00004  M01S00004.6dx     +++|          SST
00005  M01S00005.6dx     +++|          TITLE  6DX - UEM DRIVER.
00006  M01S00006.6dx     +++|*COMMENT  6DX - UEM DRIVER.
Line S00007 Modification History
M01 (Added by) 6dx
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.6dx     +++|          SPACE  4,10
00010  M01S00009.6dx     +++|*****     6DX - UEM DRIVER.
00011  M01S00010.6dx     +++|*         C. B. LOSCHEIDER.  81/03/04.
00012  M01S00011.6dx     +++|          SPACE  4,10
00013  M01S00012.6dx     +++|***       6DX PROVIDES THE CAPABILITY TO ACCESS UEM.
00014  M01S00013.6dx     +++|          SPACE  4,10
00015  M01S00014.6dx     +++|***       ORGANIZATION OF UEM.
00016  M01S00015.6dx     +++|*         UEM IS TREATED AS A SINGLE DEVICE.
00017  M01S00016.6dx     +++|*
00018  M01S00017.6dx     +++|*         EQUIPMENT TYPE IS *DE*.
00019  M01S00018.6dx     +++|*
Line S00019 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00019.252l678 ---|*         SECTORS/TRACK = 16D.
00021  M01S00001.252l678 +++|*         SECTORS/TRACK = SLDE (20B, 40B, 100B, OR 200B).
00022  M01S00020.6dx     +++|*
Line S00021 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00021.252l678 ---|*         WORDS/TRACK = 2020B.
00024  M01S00002.252l678 +++|*         WORDS/TRACK = 101B*SLDE.
00025  M01S00022.6dx     +++|          SPACE  4,10
00026  M01S00023.6dx     +++|**        ENTRY CONDITIONS.
00027  M01S00024.6dx     +++|*
00028  M01S00025.6dx     +++|*
00029  M01S00026.6dx     +++|*         (T5) = EST ORDINAL.
00030  M01S00027.6dx     +++|*         (T6) = TRACK.
00031  M01S00028.6dx     +++|*         (T7) = SECTOR.
00032  M01S00029.6dx     +++|          SPACE  4,10
00033  M01S00030.6dx     +++|*CALL     COMPMAC
00034  M01S00031.6dx     +++|*CALL     COMSDFS
00035  M01S00032.6dx     +++|*CALL     COMSMSP
00036  M01S00033.6dx     +++|*CALL     COMSPIM
00037  M01S00034.6dx     +++|          SPACE  4,10
00038  M01S00035.6dx     +++|*         ASSEMBLY CONSTANTS.
00039  M01S00036.6dx     +++|
00040  M01S00037.6dx     +++|
00041  M01S00038.6dx     +++| DEC      MICRO  1,, 6DX     DECK NAME
00042  M01S00039.6dx     +++|          EJECT
00043  M01S00040.6dx     +++|**        ENTRY POINT TRANSFERS.
00044  M01S00041.6dx     +++|
00045  M01S00042.6dx     +++|
00046  M01S00043.6dx     +++|          ORG    MSFW
00047  M01S00044.6dx     +++|
00048  M01S00045.6dx     +++|          CON    PRS         PRESET ADDRESS
00049  M01S00046.6dx     +++|
00050  M01S00047.6dx     +++|
00051  M01S00048.6dx     +++| RDS      CON    0           ENTRY
00052  M01S00049.6dx     +++|          UJN    RDS.        ENTER DRIVER
00053  M01S00050.6dx     +++|
00054  M01S00051.6dx     +++|
00055  M01S00052.6dx     +++| WDS      CON    0           ENTRY
00056  M01S00053.6dx     +++|          UJN    WDS.        ENTER DRIVER
00057  M01S00054.6dx     +++| EMS      SPACE  4,10
00058  M01S00055.6dx     +++|**        EMS - END MASS STORAGE OPERATION.
00059  M01S00056.6dx     +++|*
00060  M01S00057.6dx     +++|*         EXIT   (A) = 0.
00061  M01S00003.252l678 +++|*                (UEMG) = EM SHIFT FOR CALCULATING HEADER ADDRESS.
00062  M01S00004.252l678 +++|*                (UEMH) = EM SHIFT FOR CALCULATING EM ADDRESS.
00063  M01S00058.6dx     +++|
00064  M01S00059.6dx     +++|
00065  M01S00060.6dx     +++| .EMS     SUBR               ENTRY/EXIT
00066  M01S00061.6dx     +++|          LDN    0
00067  M01S00062.6dx     +++|          STM    CHRV
00068  M01S00063.6dx     +++|          UJN    .EMSX       RETURN
00069  M01S00064.6dx     +++| RDS      SPACE  4,10
00070  M01S00065.6dx     +++|**        RDS - READ SECTOR.
00071  M01S00066.6dx     +++|*
00072  M01S00067.6dx     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00073  M01S00068.6dx     +++|*
00074  M01S00069.6dx     +++|*         EXIT   (A) = 0 IF TRANSFER COMPLETE.
00075  M01S00070.6dx     +++|*                    = ERROR CODE IF ERROR OCCURRED.
00076  M01S00071.6dx     +++|*
00077  M01S00072.6dx     +++|*         CALLS  UEM.
00078  M01S00073.6dx     +++|
00079  M01S00074.6dx     +++|
00080  M01S00075.6dx     +++| RDS.     LPC    7777
00081  M01S00076.6dx     +++|          UJN    UEM         SET BUFFER ADDRESSES
00082  M01S00077.6dx     +++| WDS      SPACE  4,10
00083  M01S00078.6dx     +++|**        WDS - WRITE SECTOR.
00084  M01S00079.6dx     +++|*
00085  M01S00080.6dx     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00086  M01S00081.6dx     +++|*
00087  M01S00082.6dx     +++|*         EXIT   (A) = 0 IF TRANSFER COMPLETE.
00088  M01S00083.6dx     +++|*                    = ERROR CODE IF ERROR OCCURRED.
00089  M01S00084.6dx     +++|*
00090  M01S00085.6dx     +++|*         CALLS  UEM.
00091  M01S00086.6dx     +++|
00092  M01S00087.6dx     +++|
00093  M01S00088.6dx     +++| WDS.     LPC    7777
00094  M01S00089.6dx     +++|          LMC    1S15
00095  M01S00090.6dx     +++|*         UJN    UEM         SET BUFFER ADDRESSES
00096  M01S00091.6dx     +++| UEM      SPACE  4,15
00097  M01S00092.6dx     +++|**        UEM - UEM TRANSFER.
00098  M01S00093.6dx     +++|*
00099  M01S00094.6dx     +++|*         ENTRY  (A) = 3/ O,3/,12/ BUFFER ADDRESS.
00100  M01S00095.6dx     +++|*                      O = 0 FOR READ REQUEST.
00101  M01S00096.6dx     +++|*                        = 1 FOR WRITE REQUEST.
00102  M01S00005.252l678 +++|*                (UEMG) = EM SHIFT FOR CALCULATING HEADER ADDRESS.
00103  M01S00006.252l678 +++|*                (UEMH) = EM SHIFT FOR CALCULATING EM ADDRESS.
00104  M01S00097.6dx     +++|*
00105  M01S00098.6dx     +++|*         EXIT   (A) .LT. 0, IF UNRECOVERED ERROR.
00106  M01S00099.6dx     +++|*
00107  M01S00100.6dx     +++|*         MACROS MSERR.
00108  M01S00101.6dx     +++|
00109  M01S00102.6dx     +++|
00110  M01S00103.6dx     +++| UEM      STM    UEMD        SET BUFFER ADDRESS FOR HEADER
00111  M01S00104.6dx     +++|          ADN    2
00112  M01S00105.6dx     +++|          STM    UEME
00113  M01S00106.6dx     +++|          SHN    -17         SAVE READ/WRITE FLAG FOR *7DX*
00114  M01S00107.6dx     +++|          STI    D1
00115  M01S00108.6dx     +++|          SHN    1           SET RETURN INDEX
00116  M01S00109.6dx     +++|          STD    CM
00117  M01S00110.6dx     +++|          ERRNZ  RDS+2-WDS   CODE DEPENDS ON VALUE
00118  M01S00111.6dx     +++|          SHN    7-1         SET READ / WRITE INSTRUCTIONS
00119  M01S00112.6dx     +++|          LMC    CRMI+ON
00120  M01S00113.6dx     +++|          STM    UEMD-1
00121  M01S00114.6dx     +++|          LMN    HN&ON
00122  M01S00115.6dx     +++|          STM    UEME-1
00123  M01S00116.6dx     +++|          LDM    RDS,CM      SET RETURN ADDRESS
00124  M01S00117.6dx     +++|          STM    UEMF
Line S00118 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00118.252l678 ---|          LDD    T6          HEADER ADDRESS = TRACK * 2020 + SECTOR
Line S00119 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00119.252l678 ---|          LPC    3777
Line S00120 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00120.252l678 ---|          SHN    4
Line S00121 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00121.252l678 ---|          STD    CM+1
Line S00122 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00122.252l678 ---|          SHN    -6
Line S00123 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00123.252l678 ---|          STD    CM
Line S00124 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00124.252l678 ---|          SHN    -6
Line S00125 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00125.252l678 ---|          RAD    CM
00133  M01S00126.6dx     +++|          LDC    **          LARGEST TRACK VALUE
00134  M01S00127.6dx     +++| UEMA     EQU    *-1
00135  M01S00128.6dx     +++|          SBD    T6
00136  M01S00129.6dx     +++|          MJN    UEM1        IF TRACK TOO LARGE
Line S00130 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00130.252l678 ---|          LDN    SLDP
Line S00131 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00131.252l678 ---|          SBD    T7
Line S00132 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00132.252l678 ---|          PJN    UEM2        IF SECTOR OK
00140  M01S00007.252l678 +++|          LDD    T7
00141  M01S00008.252l678 +++|          SBM    SLM
00142  M01S00009.252l678 +++|          MJN    UEM2        IF SECTOR OKAY
00143  M01S00133.6dx     +++|
00144  M01S00134.6dx     +++|*         INVALID MASS STORAGE ADDRESS.
00145  M01S00135.6dx     +++|
00146  M01S00136.6dx     +++| UEM1     LDN    ADDE        SET ADDRESS ERROR
00147  M01S00137.6dx     +++|          STM    ERRA
00148  M01S00138.6dx     +++|          MSERR  7DX         CALL *7DX* ERROR PROCESSOR
00149  M01S00139.6dx     +++|
00150  M01S00140.6dx     +++|*         VALID MASS STORAGE ADDRESS.
00151  M01S00141.6dx     +++|
Line S00142 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00142.252l678 ---| UEM2     LDD    CM+1
Line S00143 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00143.252l678 ---|          LPN    77
Line S00144 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00144.252l678 ---|          SHN    6
Line S00145 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00145.252l678 ---|          ADD    T7
Line S00146 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00146.252l678 ---|          RAD    CM+1
Line S00147 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00147.252l678 ---|          SHN    -14
Line S00148 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00148.252l678 ---|          RAD    CM
00159  M01S00010.252l678 +++| UEM2     LDD    T6          HEADER ADDRESS = TRACK*101B*SLDE+SECTOR
00160  M01S00011.252l678 +++|          LPC    3777
00161  M01S00012.252l678 +++|          SHN    1
00162  M01S00013.252l678 +++|          STD    CM+1
00163  M01S00014.252l678 +++|          SHN    6
00164  M01S00015.252l678 +++|          RAD    CM+1
00165  M01S00016.252l678 +++|          SHN    -14
00166  M01S00017.252l678 +++| UEMG     SHN    4-1
00167  M01S00018.252l678 +++|*         SHN    4-1+EMTS    (EMTS = TRACK SHIFT)
00168  M01S00019.252l678 +++|          STD    CM
00169  M01S00020.252l678 +++|          LDD    CM+1
00170  M01S00021.252l678 +++| UEMH     SHN    4-1
00171  M01S00022.252l678 +++|*         SHN    4-1+EMTS    (EMTS = TRACK SHIFT)
00172  M01S00023.252l678 +++|          LMD    T7          ADD SECTOR NUMBER
00173  M01S00024.252l678 +++|          STD    CM+1
00174  M01S00025.252l678 +++|          SHN    -14
00175  M01S00026.252l678 +++|          RAD    CM
00176  M01S00149.6dx     +++|          LDC    0           CM ADDR = HEADER ADDR + UEM BASE ADDR
00177  M01S00150.6dx     +++| UEMB     EQU    *-1
00178  M01S00151.6dx     +++|          RAD    CM+1
00179  M01S00152.6dx     +++|          SHN    -14
00180  M01S00153.6dx     +++|          ADC    0
00181  M01S00154.6dx     +++| UEMC     EQU    *-1
00182  M01S00155.6dx     +++|          RAD    CM
00183  M01S00156.6dx     +++|          SRD    CM+2        SAVE R-REGISTER
Line S00157 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00157.252l678 ---|          LDD    CM+1        PUT UPPER 15 ADDR BITS IN R-REGISTER
00185  M01S00027.252l678 +++|          LDD    CM+1        PUT UPPER 18 ADDR BITS IN R-REGISTER
00186  M01S00158.6dx     +++|          SCN    77
00187  M01S00159.6dx     +++|          SHN    6
00188  M01S00160.6dx     +++|          LMD    CM
00189  M01S00161.6dx     +++|          SHN    6
00190  M01S00162.6dx     +++|          STD    T2
00191  M01S00163.6dx     +++|          SHN    -14
00192  M01S00164.6dx     +++|          STD    T1
00193  M01S00165.6dx     +++|          LRD    T1
00194  M01S00166.6dx     +++|          LDD    CM+1        PUT LOWER 6 ADDR BITS IN A-REGISTER
00195  M01S00167.6dx     +++|          LPN    77
00196  M01S00168.6dx     +++|          STD    CM+1
00197  M01S00169.6dx     +++|          LMC    400000
00198  M01S00170.6dx     +++|          CRM    *,ON        READ/WRITE HEADER
00199  M01S00171.6dx     +++| UEMD     EQU    *-1
Line S00172 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00172.252l678 ---|          LDD    T7          DATA ADDRESS = HEADER + 20 + 77 * SECTOR
00201  M01S00028.252l678 +++|          LDD    T7          DATA ADDRESS = HEADER + SLDE +77 * SECTOR
00202  M01S00173.6dx     +++|          SHN    6
00203  M01S00174.6dx     +++|          SBD    T7
Line S00175 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00175.252l678 ---|          ADN    SLDP
00205  M01S00029.252l678 +++|          ADM    SLM
00206  M01S00176.6dx     +++|          ADD    CM+1
00207  M01S00177.6dx     +++|          LMC    400000
00208  M01S00178.6dx     +++|          CRM    *,HN        READ/WRITE DATA
00209  M01S00179.6dx     +++| UEME     EQU    *-1
00210  M01S00180.6dx     +++|          LRD    CM+2        RESTORE R-REGISTER
00211  M01S00181.6dx     +++|          LDN    0           INDICATE NO ERRORS
00212  M01S00182.6dx     +++|          STM    CHRV
00213  M01S00183.6dx     +++| UEM3     LJM    *           RETURN
00214  M01S00184.6dx     +++| UEMF     EQU    *-1
00215  M01S00185.6dx     +++| PRS      SPACE  4,10
00216  M01S00186.6dx     +++|**        PRS - PRESET.
00217  M01S00187.6dx     +++|*
00218  M01S00188.6dx     +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
00219  M01S00189.6dx     +++|
00220  M01S00190.6dx     +++|
Line S00191 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00191.252l678 ---| PRS      LDC    UEML        GET UEM BASE ADDRESS
00222  M01S00030.252l678 +++| PRS      LDK    MEFL        SET EM SHIFT
00223  M01S00031.252l678 +++|          CRM    PRSA,ON
00224  M01S00032.252l678 +++|          LDM    PRSA+2
00225  M01S00033.252l678 +++|          SHN    -5
00226  M01S00034.252l678 +++|          LPN    3
00227  M01S00035.252l678 +++|          ADC    SHNI+4-1
00228  M01S00036.252l678 +++|          STM    UEMG        UPDATE SHIFT INSTRUCTIONS
00229  M01S00037.252l678 +++|          STM    UEMH
00230  M01S00038.252l678 +++|          LDC    UEML        GET UEM BASE ADDRESS
00231  M01S00192.6dx     +++|          CRM    PRSA,ON
00232  M01S00193.6dx     +++|          LDM    PRSA
Line S00194 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00194.252l678 ---|          SHN    21-2+UESF
00234  M01S00039.252l678 +++|          SHN    21-2
00235  M01S00195.6dx     +++|          STM    UEMC
00236  M01S00196.6dx     +++|          SHN    13-21
00237  M01S00197.6dx     +++|          SCN    77
00238  M01S00198.6dx     +++|          STM    UEMB
00239  M01S00199.6dx     +++|          LDD    CM+4        SET LARGEST TRACK
00240  M01S00200.6dx     +++|          SHN    3
00241  M01S00201.6dx     +++|          ADK    TDGL
00242  M01S00202.6dx     +++|          CRM    PRSA,ON
00243  M01S00203.6dx     +++|          SOM    PRSA
00244  M01S00204.6dx     +++|          ADC    4000
00245  M01S00205.6dx     +++|          STM    UEMA
00246  M01S00206.6dx     +++|          LJM    SMSX        RETURN
00247  M01S00207.6dx     +++|
00248  M01S00208.6dx     +++| PRSA     BSS    0           FIVE BYTES FOR READING LARGEST TRACK
Line S00209 Modification History
M01 (Added by) 6dx
M02 (Updated by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00209.ns2352  ---|          ERRNG  PPFW-5-*-5  OVERFLOW OF PRSA
00250  M01S00001.ns2352  +++| .1       SET    *+5+4-MSFW  CHECK FOR OVERFLOW
00251  M01S00002.ns2352  +++| .1       SET    .1/5
00252  M01S00003.ns2352  +++| .1       SET    MSFW+.1*5
00253  M01S00004.ns2352  +++| .2       SET    PPFW-5-*-5  BYTES AVAILABLE BEFORE OVERFLOW
00254  M01S00005.ns2352  +++|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5
Line S00210 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00255  M02S00210.252l678 ---| 7DX      MSOVL  7714,T2,EPFW-1,(UEM ERROR PROCESSOR.)
00256  M01S00040.252l678 +++| 7DX      MSOVL  7702,T2,EPFW-1,(UEM ERROR PROCESSOR.)
00257  M01S00211.6dx     +++|          SPACE  4,10
00258  M01S00212.6dx     +++|*****     7DX - UEM ERROR PROCESSOR.
00259  M01S00213.6dx     +++|*         C. B. LOSCHEIDER.  81/03/04.
00260  M01S00214.6dx     +++|          SPACE  4,10
00261  M01S00215.6dx     +++|***       *7DX* IS CALLED WHEN AN UNRECOVERABLE UEM ABORT
00262  M01S00216.6dx     +++|*         HAS OCCURRED. THE ONLY ERROR WHICH MAY OCCUR
00263  M01S00217.6dx     +++|*         IS AN ADDRESSING ERROR.
00264  M01S00218.6dx     +++|          SPACE  4,10
00265  M01S00219.6dx     +++|          QUAL
00266  M01S00220.6dx     +++| BEGIN    BSSN   PRS
00267  M01S00221.6dx     +++| ERRA     BSSN   1           ERROR FLAG WORD
00268  M01S00222.6dx     +++|          ERRNG  DEFW-*      *7DX*/COMMON ERROR PROCESSOR CONFLICT
00269  M01S00223.6dx     +++| END      BSSN
00270  M01S00224.6dx     +++|          QUAL   *
00271  M01S00225.6dx     +++| MSE      SPACE  4,25
00272  M01S00226.6dx     +++|**        MSE - MASS STORAGE ERROR PROCESSOR.
00273  M01S00227.6dx     +++|*
00274  M01S00228.6dx     +++|*         ENTRY  ((D1)) = 0 IF READ, 1 IF WRITE.
00275  M01S00229.6dx     +++|*                (UEMD) = PP BUFFER ADDRESS OF HEADER.
00276  M01S00230.6dx     +++|*                (ERRA) = ERROR CODE AS DEFINED IN *COMSMSP*.
00277  M01S00231.6dx     +++|*                (T1) = UEMD.
00278  M01S00232.6dx     +++|*                (T2) = ERRA.
00279  M01S00233.6dx     +++|*                (T5) = EQUIPMENT.
00280  M01S00234.6dx     +++|*                (T6) = LOGICAL TRACK.
00281  M01S00235.6dx     +++|*                (T7) = LOGICAL SECTOR.
00282  M01S00236.6dx     +++|*
Line S00237 Modification History
M01 (Added by) 6dx
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00237.ns2741  ---|*         EXIT   (T2) = READ BUFFER ADDRESS FOR *7EL*.
00284  M01S00001.ns2741  +++|*         EXIT   (T2) = READ BUFFER ADDRESS FOR *7EK*.
00285  M01S00238.6dx     +++|*                (DEDT) = 8/0, 4/*6DX* DRIVER TYPE.
00286  M01S00239.6dx     +++|*                (DEEC) = ERROR CODE.
00287  M01S00240.6dx     +++|*                (DENR) = 0.
00288  M01S00241.6dx     +++|*                (DERC) = 0.
00289  M01S00242.6dx     +++|*                (DERW) = 1 IF WRITE REQUEST, 0 IF READ REQUEST.
00290  M01S00243.6dx     +++|*                (DEST) = 0.
00291  M01S00244.6dx     +++|*                (DEWR) = 0.
Line S00245 Modification History
M01 (Added by) 6dx
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00245.253l688 ---|*                (RDCT) = 7/0, 1/1, 4/0.
00293  M01S00001.253l688 +++|*                (RDCT) = 5/0, 1/1, 6/0.
00294  M01S00246.6dx     +++|*                (MB+2) = DRIVER DEPENDENT PART OF BML MESSAGE.
00295  M01S00247.6dx     +++|*                         24/0, 12/W, 24/A.
00296  M01S00248.6dx     +++|*                         W = WORD COUNT.
00297  M01S00249.6dx     +++|*                         A = EXTENDED MEMORY ERROR ADDRESS.
00298  M01S00250.6dx     +++|*
00299  M01S00251.6dx     +++|*         USES   T2, CM - CM+4.
00300  M01S00252.6dx     +++|*
00301  M01S00253.6dx     +++|*         MACROS MSERR.
00302  M01S00254.6dx     +++|
00303  M01S00255.6dx     +++|
00304  M01S00256.6dx     +++| DDX      ENTRY              *7DX* ENTRY
00305  M01S00257.6dx     +++|
00306  M01S00258.6dx     +++|          LDI    D1          SET READ/WRITE FLAG
00307  M01S00259.6dx     +++|          STM    DERW
00308  M01S00260.6dx     +++|          LDK    /COMSDFS/D6DX  SAVE DRIVER TYPE
00309  M01S00261.6dx     +++|          STM    DEDT
Line S00262 Modification History
M01 (Added by) 6dx
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00262.253l688 ---|          LDN    20          SET *RECOVERY IN PROGRESS* FLAG
00311  M01S00002.253l688 +++|          LDD    HN          SET RECOVERY IN PROGRESS FLAG
00312  M01S00263.6dx     +++|          STM    RDCT
00313  M01S00264.6dx     +++|          LDI    T2          SET ERROR CODE
00314  M01S00265.6dx     +++|          STM    DEEC
Line S00266 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00266.252l678 ---|          LDD    T6          HEADER ADDRESS = TRACK * 2020B + SECTOR
00316  M01S00041.252l678 +++|          LDK    MEFL
00317  M01S00042.252l678 +++|          CRD    CM
00318  M01S00043.252l678 +++|          LDD    CM+2
00319  M01S00044.252l678 +++|          SHN    -5
00320  M01S00045.252l678 +++|          LPN    3
00321  M01S00046.252l678 +++|          RAM    DDXA
00322  M01S00047.252l678 +++|          LDD    T6          HEADER ADDRESS = TRACK*101B*SLDE+SECTOR
00323  M01S00267.6dx     +++|          LPC    3777
Line S00268 Modification History
M01 (Added by) 6dx
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00324  M02S00268.252l678 ---|          SHN    4
00325  M01S00048.252l678 +++| DDXA     SHN    4
00326  M01S00049.252l678 +++|*         SHN    4+EMTS      (EMTS = TRACK SHIFT)
00327  M01S00269.6dx     +++|          STD    CM+4
00328  M01S00270.6dx     +++|          SHN    -6
00329  M01S00271.6dx     +++|          STD    CM+3
00330  M01S00272.6dx     +++|          SHN    -6
00331  M01S00273.6dx     +++|          RAD    CM+3
00332  M01S00274.6dx     +++|          LDD    CM+4
00333  M01S00275.6dx     +++|          LPN    77
00334  M01S00276.6dx     +++|          SHN    6
00335  M01S00277.6dx     +++|          ADD    T7
00336  M01S00278.6dx     +++|          RAD    CM+4
00337  M01S00279.6dx     +++|          SHN    -14
00338  M01S00280.6dx     +++|          RAD    CM+3
00339  M01S00281.6dx     +++|          LDN    1           SAVE WORD COUNT FOR BML MESSAGE
00340  M01S00282.6dx     +++|          STD    CM+2
00341  M01S00283.6dx     +++|          LDN    0           CLEAR UNUSED FIELDS IN BML MESSAGE
00342  M01S00284.6dx     +++|          STD    CM+1
00343  M01S00285.6dx     +++|          STD    CM
00344  M01S00286.6dx     +++|          STM    DENR        INITIALIZE *NON-RECOVERABLE ERROR* FLAG
00345  M01S00287.6dx     +++|          STM    DERC        INITIALIZE RETRY COUNT
00346  M01S00288.6dx     +++|          STM    DEST        INITIALIZE ERROR PROCESSING CONTROL WORD
00347  M01S00289.6dx     +++|          ERRNZ  RTC.AD      *7DX* ASSUMES NO RETRY WILL BE ATTEMPTED
00348  M01S00290.6dx     +++|          STM    DEWR        INITIALIZE *DATA WRITTEN/READ* FLAG
00349  M01S00291.6dx     +++|          LDI    T1          SET ADDRESS OF BUFFER HEADER
00350  M01S00292.6dx     +++|          STD    T2
00351  M01S00293.6dx     +++|          LDD    MA          SAVE DEPENDENT PART OF BML MESSAGE
00352  M01S00294.6dx     +++|          ADN    2
00353  M01S00295.6dx     +++|          CWD    CM
Line S00296 Modification History
M01 (Added by) 6dx
M02 (Updated by) ns2741
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00296.ns2741  ---|          MSERR  7EL         EXECUTE *7EL*
00355  M01S00002.ns2741  +++|          MSERR  7EK         EXECUTE *7EK*
00356  M01S00297.6dx     +++|
00357  M01S00298.6dx     +++|
00358  M01S00299.6dx     +++|          ERRNG  10000-*     *7DX* HAS OVERFLOWED
00359  M01S00300.6dx     +++|          BSS    10000-*     SPARES (ADJUST ORIGIN BY 5 AS REQUIRED)
00360  M01S00301.6dx     +++|          CON    DDX-1       (T0) = ENTRY ADDRESS - 1
00361  M01S00302.6dx     +++|          CON    UEMD        (T1) = BUFFER HEADER ADDRESS
00362  M01S00303.6dx     +++|          CON    ERRA        (T2) = ADDRESS OF WORD CONTAINING
00363  M01S00304.6dx     +++|                                    ERROR FLAG
00364  M01S00305.6dx     +++|          ERRNZ  LN-*        ILLEGAL PROGRAM LENGTH
00365  M01S00306.6dx     +++|          QUAL   *
00366  M01S00307.6dx     +++|          END
cdc/nos2.source/opl.opl871/deck/6dx.txt · Last modified: by 127.0.0.1