         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
<< The CDT entry size has been increased by two words because>><<s2300>>00161000
<< the Cached Device entry need one word to determine how    >><<s2300>>00161100
<< many bits CDT'SHIFT'DA requires to execute the DLSL       >><<s2300>>00161200
<< instruction and one more word to make the size even in    >><<s2300>>00161300
<< order to accommodate the access method of CDT'DARRAY.     >><<s2300>>00161400
                                                               <<s2300>>00161500
equate CDT'ENTRY'SIZE  = 26;  << CDT Entries are 26 words long <<s2300>>00165000
                                                               <<s2300>>00166000
equate EAGLE'SUBTYPE   = 10,  << Device subtype for HP7937     <<s2300>>00166100
       CS80'TYPE      = 3;    <<Device type for CS80 disc drive<<s2314>>00166200
$edit void=00166600                                            <<s2314>>00166300
                                                               <<s2300>>00277000
<<***********************************************************>><<s2300>>00277100
<<******* WARNING ********* WARNING ********* WARNING *******>><<s2300>>00277200
<<***********************************************************>><<s2300>>00277300
<<**** CDT'ENTRY'SIZE must be an EVEN number in order    ****>><<s2300>>00277400
<<**** for Disc Caching to access the CDT Device entry   ****>><<s2300>>00277500
<<**** table and the Mapped Domain entry table correctly.****>><<s2300>>00277600
<<***********************************************************>><<s2300>>00277700
<<***********************************************************>><<s2300>>00277800
                                                               <<s2300>>00277900
       CDT'DE'SHIFT'CNT = CDT'DE'SCANPT + 2, <<Bits shift count<<s2300>>00386000
       CDT'DE'MAKE'EVEN = CDT'DE'SHIFT'CNT + 1, << empty cell  <<s2314>>00387000
       CDT'DE'END       = CDT'DE'MAKE'EVEN + 1; <<Entry length <<s2300>>00390000
<< Since the high-order byte of a double-word disc address    ><<s2300>>00815000
<< Since the HP7937 disc drive is currently our largest       ><<s2300>>00840000
<< capacity disc drive with 571 megabytes of disc memory and  ><<s2300>>00841000
<< uses only the lower 6 bits of the HODA to represent the    ><<s2300>>00845000
<< highest possible sector address, we will assume DLSL(10).  ><<s2300>>00850000
<< To tune Disc Caching performance and to allow larger discs ><<s2314>>00855000
<< to be added to the 3000 later, we now do a DESCRIBE through><<s2314>>00860000
<< P'ATTACHIO to obtain the maximum value of the single-vector><<s2314>>00861000
<< address.  Depending on what bit of the MSB of the HODA is  ><<s2314>>00862000
<< set, we'll store a corresponding number of bits to shift in><<s2314>>00863000
<< CDT'DE'SHIFT'CNT so that it can be used with the DLSL instr><<s2314>>00864000
define   CDT'SHIFT'DA =                                        <<s2300>>00865000
                                                               <<s2300>>00866000
         << Access the CDT Device entry table, get the bit >>  <<s2300>>00866100
         << shift count, and store it in the X register.   >>  <<s2300>>00866200
                                                               <<s2300>>00866300
             CDT'X := CDT'ARRAY(LDEV'OFFSET+CDT'DE'SHIFT'CNT); <<s2300>>00867000
             assemble(DLSL 0, X)#;                             <<s2300>>00868000
