User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:6di.003

Deck 6DI Part 003

43 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04269  M01S03862.6di     +++|          ENDMS
04270  M01S03863.6di     +++|          LDN    2
04271  M01S03864.6di     +++| PRS4     LJM    PRSX        EXIT
04272  M01S03865.6di     +++|
04273  M01S03866.6di     +++|
04274  M01S03867.6di     +++| PRSB     CON    0500,0016                  CONTROL BYTES
04275  M01S03868.6di     +++|          CON    0000,0000,0000,1120,1400   FIRST WORD OF SECTOR
04276  M01S03869.6di     +++|          CON    0000,0000,0000             BEGINNING OF SECOND WORD
04277  M01S03870.6di     +++| PRSBL    EQU    *-PRSB
04278  M01S03871.6di     +++| PSP      SPACE  4
04279  M01S03872.6di     +++|***       PSP - PACK SERIAL PROCESSOR.
04280  M01S03873.6di     +++|*
04281  M01S03874.6di     +++|*         ENTRY  (A) = LOGICAL UNIT.
04282  M01S03875.6di     +++|*                (T5) = EQUIPMENT.
04283  M01S03876.6di     +++|*                (T6) = TRACK.
Line S00068 Modification History
M01 (Added by) ns2776
M02 (Updated by) 0pimsfx
Seq #  *Modification Id* Act 
----------------------------+
04284  M02S00068.0pimsfx ---|*                (T7) = SECTOR.
04285  M01S03877.6di     +++|*
04286  M01S03878.6di     +++|*         EXIT   (A) = 6/BL, 12/TA.
04287  M01S03879.6di     +++|*                      BL = BML MESSAGE LENGTH.
04288  M01S03880.6di     +++|*                      TA = DAYFILE MESSAGE TABLE ADDRESS.
04289  M01S03881.6di     +++|*                (A) = 0 IF DISK ERROR DETECTED.
04290  M01S03882.6di     +++|*                (BFMS - BFMS+1) = PACK SERIAL NUMBER IF NO DISK ERROR.
04291  M01S03883.6di     +++|*
04292  M01S03884.6di     +++|*         USES   T0, T3 - T7, CM - CM+4.
04293  M01S03885.6di     +++|*
04294  M01S03886.6di     +++|*         CALLS  CBD, CHB, CSD, CTD, RDS.
04295  M01S03887.6di     +++|*
04296  M01S03888.6di     +++|*         MACROS ENDMS.
04297  M01S03889.6di     +++|
04298  M01S03890.6di     +++|
04299  M01S03891.6di     +++| PSP4     LDN    0           RETURN ERROR STATUS
04300  M01S03892.6di     +++|
04301  M01S03893.6di     +++| PSP      SUBR               ENTRY/EXIT
04302  M01S03894.6di     +++|          STD    T1          SAVE LOGICAL UNIT
04303  M01S00003.0pimsfx +++|*         FSN IS SET DURING PRS EXECUTION, SEE COMMENTS THERE
04304  M01S00004.0pimsfx +++|          LDM    FSN  SET FACTORY SECTOR NUMBER
04305  M01S00005.0pimsfx +++|          STD    T7
Line S03895 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04306  M02S03895.ns2776  ---|          LDN    0
Line S03896 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04307  M02S03896.ns2776  ---|          STD    T7          SECTOR
04308  M01S03897.6di     +++| PSP1     SOD    T1          FORM LOGICAL UNIT * SECTOR LIMIT
04309  M01S03898.6di     +++|          MJN    PSP2        IF MULTIPLICATION COMPLETE
04310  M01S03899.6di     +++|          LDC    0           ADD SINGLE UNIT SECTOR LIMIT
04311  M01S03900.6di     +++| PSPB     EQU    *-1
04312  M01S03901.6di     +++|          RAD    T7
04313  M01S03902.6di     +++|          UJN    PSP1
04314  M01S03903.6di     +++|
04315  M01S03904.6di     +++| PSP2     LDC    BFMS        READ FACTORY SECTOR
04316  M01S03905.6di     +++|          RJM.   RDS
04317  M01S03906.6di     +++|          MJN    PSP4        IF ERROR
Line S03907 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2546
Seq #  *Modification Id* Act 
----------------------------+
04318  M02S03907.ns2546  ---|          ENDMS              RELEASE CHANNEL
04319  M01S03908.6di     +++|          LDD    MA          GET PHYSICAL UNIT NUMBER
04320  M01S03909.6di     +++|          CWD    T4
04321  M01S03910.6di     +++|          MONITOR  LDAM      CONVERT ADDRESS
04322  M01S00001.ns2546  +++|          ENDMS
04323  M01S03911.6di     +++|          LDD    MA
04324  M01S03912.6di     +++|          ADN    1
04325  M01S03913.6di     +++|          CRD    CM
04326  M01S03914.6di     +++|          LDD    CM+1        PUT PHYSICAL UNIT NUMBER IN MESSAGE
Line S03915 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04327  M02S03915.271l716 ---|          STM    MSGB+11
04328  M01S00002.271l716 +++|          STM    MSGB+3
04329  M01S03916.6di     +++|          RJM    C2D
04330  M01S03917.6di     +++|          STM    MSGA+4
04331  M01S03918.6di     +++|          LDC    BFMS        SET ADDRESS OF PACK SERIAL NUMBER
04332  M01S03919.6di     +++|          STD    CM
04333  M01S03920.6di     +++|          LDC    MSGA+7      SET ERRLOG MESSAGE DESTINATION ADDRESS
04334  M01S03921.6di     +++|          ADD    LA
04335  M01S03922.6di     +++|          STD    CM+1
Line S03923 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04336  M02S03923.271l716 ---|          LDC    MSGB+5      SET BML MESSAGE DESTINATION ADDRESS
04337  M01S00003.271l716 +++|          LDC    MSGB+7      SET BML MESSAGE DESTINATION ADDRESS
04338  M01S03924.6di     +++|          ADD    LA
04339  M01S03925.6di     +++|          STD    CM+2
04340  M01S03926.6di     +++|          RJM    CSD         CONVERT 6 BCD DIGITS TO DISPLAY
04341  M01S03927.6di     +++|          LDC    TDMA+MSG1L*10000
04342  M01S03928.6di     +++|          ADD    LA
04343  M01S03929.6di     +++|          LJM    PSPX        EXIT
04344  M01S03930.6di     +++|
04345  M01S03931.6di     +++|
04346  M01S03932.6di     +++| MSGA     DATA   C*EQ000, U00,PS=000000.*
04347  M01S03933.6di     +++|
04348  M01S03934.6di     +++| MSGB     CON    DM0401      MESSAGE ID
04349  M01S03935.6di     +++|          CON    HI0100      MESSAGE SYMPTOM
04350  M01S03936.6di     +++|          CON    0           DEVICE TYPE (DISPLAY CODE)
Line S03937 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04351  M02S03937.271l716 ---|          BSSZ   2           RESERVED FOR CDC
Line S03938 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04352  M02S03938.271l716 ---|          DATA   6AXXXXXX    PACK SERIAL NUMBER (DISPLAY CODE)
Line S03939 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04353  M02S03939.271l716 ---|          CON    0           EST ORDINAL (BINARY)
Line S03940 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04354  M02S03940.271l716 ---|          CON    0           UNIT NUMBER (BINARY)
04355  M01S00004.271l716 +++|          CON    0           UNIT NUMBER (BINARY)
04356  M01S00005.271l716 +++|          CON    0           RESERVED FOR CDC
04357  M01S00006.271l716 +++|          CON    0           EST ORDINAL (BINARY)
04358  M01S00007.271l716 +++|          CON    0           RESERVED FOR CDC
04359  M01S00008.271l716 +++|          DATA   6AXXXXXX    PACK SERIAL NUMBER (DISPLAY CODE)
04360  M01S03941.6di     +++| MSG1L    EQU    *-MSGB      REGULAR BML MESSAGE LENGTH
04361  M01S03942.6di     +++| TDMA     SPACE  4,10
04362  M01S03943.6di     +++|**        TDMA - TABLE OF DAYFILE MESSAGE ADDRESSES.
04363  M01S03944.6di     +++|
04364  M01S03945.6di     +++|
04365  M01S03946.6di     +++| TDMA     BSS    0
04366  M01S03947.6di     +++|          CON    MSGA        ERRLOG MESSAGE ADDRESS
04367  M01S03948.6di     +++|          CON    MSGB        BML MESSAGE ADDRESS
04368  M01S00006.0pimsfx +++|*         RESERVE SPACE FOR STORING FACTORY SECTOR NUMBER
04369  M01S00007.0pimsfx +++| FSN     BSS     1
04370  M01S03949.6di     +++| TALP     SPACE  4
04371  M01S03950.6di     +++|**        TALP - TABLE OF ALGORITHM INDEX PROCESSING PARAMETERS.
04372  M01S03951.6di     +++|*
04373  M01S03952.6di     +++|*         ENTRY = 1 WORDS.
04374  M01S03953.6di     +++|*         WORD 1 = LOGICAL TRACK OF MANUFACTURING SECTOR.
04375  M01S03954.6di     +++|
04376  M01S03955.6di     +++|
04377  M01S03956.6di     +++| TALP     INDEX
04378  M01S03957.6di     +++|          INDEX  AIDI,(7150)
04379  M01S03958.6di     +++|          INDEX  AIDJ,(7154)
04380  M01S03959.6di     +++|          INDEX  AIDK,(7150)
04381  M01S03960.6di     +++|          INDEX  AIDL,(7154)
04382  M01S03961.6di     +++|          INDEX  AIDM,(7222)
04383  M01S03962.6di     +++|          INDEX  AIDQ,(7222)
04384  M01S00069.ns2776  +++|          INDEX  AIDR,(5060)
04385  M01S03963.6di     +++|          INDEX  AIDX,(7150)
04386  M01S03964.6di     +++|          INDEX  AIDY,(7134)
04387  M01S03965.6di     +++|          INDEX  AIDZ,(6136)
04388  M01S03966.6di     +++|          INDEX  AIDA,(6137)
04389  M01S03967.6di     +++|          INDEX  AIDB,(7222)
04390  M01S03968.6di     +++|          INDEX  AIDC,(7352)
04391  M01S03969.6di     +++|          INDEX  AIDD,(0)
04392  M01S03970.6di     +++|          INDEX  AIDG,(0)
Line S03971 Modification History
M01 (Added by) 6di
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04393  M02S03971.284l847 ---|          INDEX  AIMX
04394  M01S00002.284l847 +++|          INDEX  AIDS
04395  M01S03972.6di     +++| TDST     SPACE  4,10
04396  M01S03973.6di     +++|**        TDST - TABLE OF DEADSTART TRACK NUMBERS.
04397  M01S03974.6di     +++|
04398  M01S03975.6di     +++|
04399  M01S03976.6di     +++| TDST     INDEX
04400  M01S03977.6di     +++|          INDEX  AIDI,7152
04401  M01S03978.6di     +++|          INDEX  AIDJ,7155
04402  M01S03979.6di     +++|          INDEX  AIDK,7150
04403  M01S03980.6di     +++|          INDEX  AIDL,7154
04404  M01S03981.6di     +++|          INDEX  AIDM,7222
04405  M01S03982.6di     +++|          INDEX  AIDQ,7222
04406  M01S00070.ns2776  +++|          INDEX  AIDR,5060
04407  M01S03983.6di     +++|          INDEX  AIDX,7150
04408  M01S03984.6di     +++|          INDEX  AIDY,7134
04409  M01S03985.6di     +++|          INDEX  AIDZ,6136
04410  M01S03986.6di     +++|          INDEX  AIDA,6137
04411  M01S03987.6di     +++|          INDEX  AIDB,7222
04412  M01S03988.6di     +++|          INDEX  AIDC,(7352)
04413  M01S03989.6di     +++|          INDEX  AIDD,7140
04414  M01S03990.6di     +++|          INDEX  AIDG,6570
Line S03991 Modification History
M01 (Added by) 6di
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04415  M02S03991.284l847 ---|          INDEX  AIMX
04416  M01S00003.284l847 +++|          INDEX  AIDS
04417  M01S03992.6di     +++| TDSS     SPACE  4,10
04418  M01S03993.6di     +++|**        TDSS - TABLE OF DEADSTART SECTOR NUMBERS.
04419  M01S00071.ns2776  +++|*
04420  M01S00072.ns2776  +++|*         NOTE - IF A NEW DEVICE WITH A DEADSTART SECTOR NUMBER GREATER
04421  M01S00073.ns2776  +++|*         THAN 377 IS ADDED TO THIS TABLE, CODE IN THE AREA JUST BEFORE
04422  M01S00074.ns2776  +++|*         TAG *PRS1* MAY REQUIRE ALTERATION.
04423  M01S03994.6di     +++|
04424  M01S03995.6di     +++|
04425  M01S03996.6di     +++| TDSS     INDEX
04426  M01S03997.6di     +++|          INDEX  AIDI,1
04427  M01S03998.6di     +++|          INDEX  AIDJ,1
04428  M01S03999.6di     +++|          INDEX  AIDK,3
04429  M01S04000.6di     +++|          INDEX  AIDL,3
04430  M01S04001.6di     +++|          INDEX  AIDM,37B
04431  M01S04002.6di     +++|          INDEX  AIDQ,76B
04432  M01S00075.ns2776  +++|          INDEX  AIDR,2476B
04433  M01S04003.6di     +++|          INDEX  AIDX,2
04434  M01S04004.6di     +++|          INDEX  AIDY,2
04435  M01S04005.6di     +++|          INDEX  AIDZ,2
04436  M01S04006.6di     +++|          INDEX  AIDA,2
04437  M01S04007.6di     +++|          INDEX  AIDB,370B
04438  M01S04008.6di     +++|          INDEX  AIDC,2
04439  M01S04009.6di     +++|          INDEX  AIDD,0
04440  M01S04010.6di     +++|          INDEX  AIDG,0
Line S04011 Modification History
M01 (Added by) 6di
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S04011.284l847 ---|          INDEX  AIMX
04442  M01S00004.284l847 +++|          INDEX  AIDS
04443  M01S04012.6di     +++| CBD      SPACE  4
04444  M01S04013.6di     +++|**        CBD - CONVERT BINARY CODED DECIMAL TO DISPLAY CODE.
04445  M01S04014.6di     +++|*
04446  M01S04015.6di     +++|*         ENTRY  (A) = 10/,8/ 2 BCD DIGITS.
04447  M01S04016.6di     +++|*                (CM+1) = ADDRESS IN ERRLOG MESSAGE WHERE RESULT IS
04448  M01S04017.6di     +++|*                         TO BE STORED.
04449  M01S04018.6di     +++|*                (CM+2) = ADDRESS IN BML MESSAGE WHERE RESULT IS TO
04450  M01S04019.6di     +++|*                         BE STORED.
04451  M01S04020.6di     +++|*
04452  M01S04021.6di     +++|*         EXIT   CONVERTED DIGITS ADDED TO ERRLOG AND BML MESSAGES.
04453  M01S04022.6di     +++|*                (CM+1) AND (CM+2) INCREMENTED.
04454  M01S04023.6di     +++|*
04455  M01S04024.6di     +++|*         USES   T0.
04456  M01S04025.6di     +++|
04457  M01S04026.6di     +++|
04458  M01S04027.6di     +++| CBD      SUBR               ENTRY/EXIT
04459  M01S04028.6di     +++|          LPC    377         UNPACK DIGITS
04460  M01S04029.6di     +++|          SHN    16          SAVE HIGH ORDER DIGIT
04461  M01S04030.6di     +++|          STD    T0
04462  M01S04031.6di     +++|          SCN    17
04463  M01S04032.6di     +++|          SHN    -2          POSITION LOW ORDER DIGIT
04464  M01S04033.6di     +++|          LMD    T0          MERGE HIGH ORDER DIGIT
04465  M01S04034.6di     +++|          SHN    6
04466  M01S04035.6di     +++|          ADC    2R00        CONVERT TO DISPLAY CODE
04467  M01S04036.6di     +++|          STI    CM+1
04468  M01S04037.6di     +++|          STI    CM+2
04469  M01S04038.6di     +++|          AOD    CM+1
04470  M01S04039.6di     +++|          AOD    CM+2
04471  M01S04040.6di     +++|          UJN    CBDX        EXIT
04472  M01S04041.6di     +++| CSD      SPACE  4,10
04473  M01S04042.6di     +++|**        CSD - CONVERT SIX BCD DIGITS TO DISPLAY CODE.
04474  M01S04043.6di     +++|*
04475  M01S04044.6di     +++|*         ENTRY  (CM) = ADDRESS OF BCD DIGITS.
04476  M01S04045.6di     +++|*                (CM+1) = STARTING ADDRESS IN ERRLOG MESSAGE WHERE
04477  M01S04046.6di     +++|*                         RESULT IS TO BE STORED.
04478  M01S04047.6di     +++|*                (CM+2) = STARTING ADDRESS IN BML MESSAGE WHERE RESULT
04479  M01S04048.6di     +++|*                         IS TO BE STORED.
04480  M01S04049.6di     +++|*
04481  M01S04050.6di     +++|*         EXIT   DIGITS ADDED TO ERRLOG AND BML MESSAGES.
04482  M01S04051.6di     +++|*                (CM - CM+2) EACH INCREMENTED TO POINT TO THE FIRST
04483  M01S04052.6di     +++|*                BYTE AFTER THE ADDED DIGITS.
04484  M01S04053.6di     +++|*
04485  M01S04054.6di     +++|*         USES   CM.
04486  M01S04055.6di     +++|*
04487  M01S04056.6di     +++|*         CALLS  CBD.
04488  M01S04057.6di     +++|
04489  M01S04058.6di     +++|
04490  M01S04059.6di     +++| CSD      SUBR               ENTRY/EXIT
04491  M01S04060.6di     +++|          LDI    CM          CONVERT BCD DIGITS ONE AND TWO
04492  M01S04061.6di     +++|          SHN    -4
04493  M01S04062.6di     +++|          RJM    CBD
04494  M01S04063.6di     +++|          LDI    CM          CONVERT BCD DIGITS THREE AND FOUR
04495  M01S04064.6di     +++|          LPN    17
04496  M01S04065.6di     +++|          SHN    14
04497  M01S04066.6di     +++|          LMM.   1,CM
04498  M01S04067.6di     +++|          SHN    -10
04499  M01S04068.6di     +++|          RJM    CBD
04500  M01S04069.6di     +++|          AOD    CM
04501  M01S04070.6di     +++|          LDI    CM          CONVERT BCD DIGITS FIVE AND SIX
04502  M01S04071.6di     +++|          RJM    CBD
04503  M01S04072.6di     +++|          AOD    CM
04504  M01S04073.6di     +++|          UJN    CSDX        EXIT
04505  M01S04074.6di     +++|          SPACE  4
04506  M01S04075.6di     +++|**        COMMON DECKS.
04507  M01S04076.6di     +++|
04508  M01S04077.6di     +++|
04509  M01S04078.6di     +++|*CALL     COMPC2D
04510  M01S04079.6di     +++|          SPACE  4
04511  M01S04080.6di     +++|          ERRNG  473-*       OVERLAY OVERFLOWS PRU
04512  M01S04081.6di     +++|          RSTR               RESTORE INSTRUCTIONS
04513  M01S04082.6di     +++|          TITLE  0RI - UNIT RESERVE PROCESSOR.
04514  M01S04083.6di     +++|          QUAL   0RI
04515  M01S04084.6di     +++|          IDENT  0RI,PRSX   "HN" UNIT RESERVE PROCESSOR.
04516  M01S04085.6di     +++|*COMMENT  6DI - "HN" UNIT RESERVE PROCESSOR.
Line S04086 Modification History
M01 (Added by) 6di
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04517  M02S04086.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
04518  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04519  M01S04087.6di     +++|          SPACE  4
04520  M01S04088.6di     +++|***       UNIT RESERVE PROCESSOR.
04521  M01S04089.6di     +++|*         R. J. THIELEN.     75/11/20.
04522  M01S04090.6di     +++|*         W. E. GOEBEL.      78/03/06.
04523  M01S04091.6di     +++|*         K. F. REHM.        84/07/12.
04524  M01S04092.6di     +++|          SPACE  4
04525  M01S04093.6di     +++|***              THE UNIT RESERVE PROCESSOR IS USED IN CASES WHERE 844
04526  M01S04094.6di     +++|*         DRIVES ARE CONNECTED TO MORE THAN ONE CONTROLLER, AND THE
04527  M01S04095.6di     +++|*         CONTROLLER WHICH IS CURRENTLY HOLDING DRIVES RESERVED IS
04528  M01S04096.6di     +++|*         INOPERATIVE.  THE PROCESSOR ISSUES A *GRENADE* FUNCTION TO
04529  M01S04097.6di     +++|*         THE FUNCTIONING CONTROLLER, WHICH RELEASES ALL 844 DRIVES
04530  M01S04098.6di     +++|*         RESERVED BY THE INOPERATIVE CONTROLLER.
04531  M01S04099.6di     +++|          SPACE  4
04532  M01S04100.6di     +++|*         REDEFINE INSTRUCTIONS FOR LOCATION FREE EXECUTION.
04533  M01S04101.6di     +++|
04534  M01S04102.6di     +++|          RIREL              REDEFINE INSTRUCTIONS
04535  M01S04103.6di     +++| PRS      SPACE  4,10
04536  M01S04104.6di     +++|***       PRS - PRESET UNIT RESERVE PROCESSOR.
04537  M01S04105.6di     +++|*
04538  M01S04106.6di     +++|*         EXIT   (A) = MAIN PROCESSOR ENTRY ADDRESS.
04539  M01S04107.6di     +++|
04540  M01S04108.6di     +++|
04541  M01S04109.6di     +++|          ORG    5
04542  M01S04110.6di     +++| PRS      SUBR               ENTRY/EXIT
04543  M01S04111.6di     +++|          LDC    RUR
04544  M01S04112.6di     +++|          ADD    LA
04545  M01S04113.6di     +++|          UJN    PRSX        EXIT
04546  M01S04114.6di     +++| RUR      SPACE  4,10
04547  M01S04115.6di     +++|**        RUR - RELEASE UNIT RESERVES.
04548  M01S04116.6di     +++|*
04549  M01S04117.6di     +++|*         ENTRY  (T5) = EST ORDINAL OF EQUIPMENT.
04550  M01S04118.6di     +++|*                (T6) = LEGAL TRACK NUMBER.
04551  M01S04119.6di     +++|*                (T7) = LEGAL SECTOR NUMBER.
04552  M01S04120.6di     +++|*
04553  M01S04121.6di     +++|*         CALLS  RDS.
04554  M01S04122.6di     +++|*
04555  M01S04123.6di     +++|*         MACROS SETMS.
04556  M01S04124.6di     +++|
04557  M01S04125.6di     +++|
04558  M01S04126.6di     +++| RUR      SUBR               ENTRY/EXIT
04559  M01S04127.6di     +++|          SETMS  PIO,(DF,NS)
04560  M01S04128.6di     +++|          LDC    LDNI+FCGR
04561  M01S04129.6di     +++|          STM.   LDAA
04562  M01S04130.6di     +++|          LDM    RURA
04563  M01S04131.6di     +++|          STM.   LDAB
04564  M01S04132.6di     +++|          LDM    RURB
04565  M01S04133.6di     +++|          STM.   RDSA
04566  M01S04134.6di     +++|          RJM.   RDS         ISSUE GRENADE FUNCTION
04567  M01S04135.6di     +++|          ENDMS
04568  M01S04136.6di     +++|          UJN    RURX        RETURN
04569  M01S04137.6di     +++|
04570  M01S04138.6di     +++| RURA     BSS    0
04571  M01S04139.6di     +++|          LOC    LDAB
04572  M01S04140.6di     +++|          UJN    LDA7        AVOID OUTPUT OF DISK ADDRESS
04573  M01S04141.6di     +++|          LOC    *O
04574  M01S04142.6di     +++|
04575  M01S04143.6di     +++| RURB     BSS    0
04576  M01S04144.6di     +++|          LOC    RDSA
04577  M01S04145.6di     +++|          UJN    RDS4        AVOID ISSUING FURTHER FUNCTIONS
04578  M01S04146.6di     +++|          LOC    *O
04579  M01S04147.6di     +++|
04580  M01S04148.6di     +++|
04581  M01S04149.6di     +++|          BSS    0
04582  M01S04150.6di     +++|          ERRNG  473-*       OVERLAY OVERFLOWS PRU
04583  M01S04151.6di     +++|          RSTR               RESTORE INSTRUCTIONS
04584  M01S04152.6di     +++|          TITLE  0SI - SERVO TIMING PROCESSOR.
04585  M01S04153.6di     +++|          QUAL   0SI
04586  M01S04154.6di     +++|          IDENT  0SI,PRSX   "HN" SERVO TIMING PROCESSOR.
04587  M01S04155.6di     +++|  COMMENT 82/02/26. 82/10/23. 6DI - "HN" SERVO TIMING PROCESSOR.
Line S04156 Modification History
M01 (Added by) 6di
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04588  M02S04156.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
04589  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04590  M01S04157.6di     +++|          SPACE  4,10
04591  M01S04158.6di     +++|***       SERVO TIMING PROCESSOR.
04592  M01S04159.6di     +++|*         R. J. THIELEN.     75/11/20.
04593  M01S04160.6di     +++|*         W. E. GOEBEL.      78/03/06.
04594  M01S04161.6di     +++|*         T. J. CALLAGHAN.   83/03/09.
04595  M01S04162.6di     +++|          SPACE  4,10
04596  M01S04163.6di     +++|***              THE SERVO TIMING PROCESSOR PERFORMS SERVO
04597  M01S04164.6di     +++|*         ADJUSTMENTS FOR 885 DRIVES.
04598  M01S04165.6di     +++|          SPACE  4,10
04599  M01S04166.6di     +++|*         REDEFINE INSTRUCTIONS FOR LOCATION FREE EXECUTION.
04600  M01S04167.6di     +++|
04601  M01S04168.6di     +++|          RIREL              REDEFINE INSTRUCTIONS
04602  M01S04169.6di     +++| PRS      SPACE  4,10
04603  M01S04170.6di     +++|***       PRS - PRESET PACK SERIAL PROCESSOR.
04604  M01S04171.6di     +++|*
04605  M01S04172.6di     +++|*         ENTRY  ((LA)-1) = 3/,9/  EQ.
04606  M01S04173.6di     +++|*                EQ = EST ORDINAL.
04607  M01S04174.6di     +++|*
04608  M01S04175.6di     +++|*         EXIT   (A) = MAIN PROCESSOR ENTRY ADDRESS.
04609  M01S04176.6di     +++|*                (T5) = EST ORDINAL.
04610  M01S04177.6di     +++|*                (T6) = TRACK.
04611  M01S04178.6di     +++|*                (T7) = SECTOR.
04612  M01S04179.6di     +++|*                PACK SERIAL PROCESSOR INITIALIZED.
04613  M01S04180.6di     +++|*                MASS STORAGE DRIVER INITIALIZED AND MODIFIED TO READ
04614  M01S04181.6di     +++|*                THE APPROPRIATE SECTOR.
04615  M01S04182.6di     +++|*
04616  M01S04183.6di     +++|*         USES   T5.
04617  M01S04184.6di     +++|*
04618  M01S04185.6di     +++|*         MACROS SETMS.
04619  M01S04186.6di     +++|
04620  M01S04187.6di     +++|
04621  M01S04188.6di     +++|          ORG    5
04622  M01S04189.6di     +++| PRS      SUBR               ENTRY/EXIT
04623  M01S04190.6di     +++|          LDM    -1          SET EST ORDINAL
04624  M01S04191.6di     +++|          LPC    777
04625  M01S04192.6di     +++|          STD    T5
04626  M01S04193.6di     +++|          SETMS  PIO,(DF,NS)
04627  M01S04194.6di     +++|          LDD    LA          ABSOLUTIZE ADDRESS
04628  M01S04195.6di     +++|          RAM    FTCA
04629  M01S04196.6di     +++|          SBN    TFTC-FTC    RETURN PROCESSOR ADDRESS
04630  M01S04197.6di     +++|          UJN    PRSX        RETURN
04631  M01S04198.6di     +++| FTC      SPACE  4,10
04632  M01S04199.6di     +++|**        FTC - FUNCTION SERVO DIFFERENCE TIMING COUNTER.
04633  M01S04200.6di     +++|*
04634  M01S04201.6di     +++|*         ENTRY  (T7) = LOGICAL UNIT * SINGLE UNIT SECTOR LIMIT.
04635  M01S04202.6di     +++|*
04636  M01S04203.6di     +++|*         EXIT   (A) = 0 IF TIMING TOO LARGE.
04637  M01S04204.6di     +++|*                (A) .LT. 0 IF DISK ERROR.
04638  M01S04205.6di     +++|*                (A) = SERVO TIMING AVERAGED OVER 20 SAMPLES.
04639  M01S04206.6di     +++|*
04640  M01S04207.6di     +++|*         USES   T1, T3.
04641  M01S04208.6di     +++|*
04642  M01S04209.6di     +++|*         CALLS  RDS.
04643  M01S04210.6di     +++|*
04644  M01S04211.6di     +++|*         MACROS ENDMS, SETMS.
04645  M01S04212.6di     +++|
04646  M01S04213.6di     +++|
04647  M01S04214.6di     +++| FTC3     ENDMS
04648  M01S04215.6di     +++|
04649  M01S04216.6di     +++| FTC      SUBR               ENTRY/EXIT
04650  M01S04217.6di     +++|          LDN    2           SET DRIVER
04651  M01S04218.6di     +++|          STM.   FNCA
04652  M01S04219.6di     +++|          LDN    TFTCL-1     MOVE CODE TO *RDS*
04653  M01S04220.6di     +++|          STD    T1
04654  M01S04221.6di     +++| FTC1     LDM.   TFTC,T1
04655  M01S04222.6di     +++| FTCA     EQU    *-1
04656  M01S04223.6di     +++|          STM.   RDSC,T1
04657  M01S04224.6di     +++|          SOD    T1
04658  M01S04225.6di     +++|          PJN    FTC1        IF MORE TO MOVE
04659  M01S04226.6di     +++|          LDN    20          SET TIMING LOOP COUNTER
04660  M01S04227.6di     +++|          STD    T3
04661  M01S04228.6di     +++| FTC2     LDC    BFMS        INPUT TIMING SAMPLE
04662  M01S04229.6di     +++|          RJM.   RDS
04663  M01S04230.6di     +++|          MJN    FTCX        IF ERROR
04664  M01S04231.6di     +++|          LDM.   BFMS
04665  M01S04232.6di     +++|          NJN    FTC3        IF TIMING DATA TOO LARGE
04666  M01S04233.6di     +++|          LDM.   BFMS+1      PROCESS TIMING SAMPLE
04667  M01S04234.6di     +++|          RAM    FTCB+1
04668  M01S04235.6di     +++|          SHN    -14
04669  M01S04236.6di     +++|          RAM    FTCB
04670  M01S04237.6di     +++|          SOD    T3
04671  M01S04238.6di     +++|          NJN    FTC2        IF MORE SAMPLES TO PROCESS
04672  M01S04239.6di     +++|          ENDMS
04673  M01S04240.6di     +++| FTCB     LDC    0           TOTAL OF TIMING SAMPLES
04674  M01S04241.6di     +++|          SHN    -4
04675  M01S04242.6di     +++|          LJM    FTCX        RETURN
04676  M01S04243.6di     +++|
04677  M01S04244.6di     +++| TFTC     BSS    0           CODE TO OVERLAY *RDS*
04678  M01S04245.6di     +++|          LOC    RDSC
04679  M01S04246.6di     +++|          RJM.   LDA         SEEK TO CYLINDER 0
04680  M01S04247.6di     +++|          RJM    FTD         FUNCTION TIMING DIFFERENCE COUNTER
04681  M01S04248.6di     +++|          UJN    RDSA        INPUT TIMING DATA
04682  M01S04249.6di     +++|          BSS    RDSA-*      SPARES
04683  M01S04250.6di     +++| RDSA     LDN    FCTD        INPUT TIMING DATA
04684  M01S04251.6di     +++|          LOC    *O
04685  M01S04252.6di     +++| TFTCL    EQU    *-TFTC
04686  M01S04253.6di     +++| FTC      SPACE  4,10
04687  M01S04254.6di     +++|**        FTD - FUNCTION TIMING DIFFERENCE COUNTER.
04688  M01S04255.6di     +++|
04689  M01S04256.6di     +++|
04690  M01S04257.6di     +++| FTD      SUBR               ENTRY/EXIT
04691  M01S04258.6di     +++|          LDM.   FNCC        SET FUNCTION
04692  M01S04259.6di     +++|          ADN    40
04693  M01S04260.6di     +++|          STM    FTDA
04694  M01S04261.6di     +++|          LDM.   FNCB        SET TEST
04695  M01S04262.6di     +++|          STM    FTDB
04696  M01S04263.6di     +++|          LDN    FCFT        FUNCTION TIMING DIFFERENCE COUNTER
04697  M01S04264.6di     +++| FTDA     FAN    0+40
04698  M01S04265.6di     +++|          LDD    TH
04699  M01S04266.6di     +++|          STD    T1
04700  M01S04267.6di     +++|          STD    T2
04701  M01S04268.6di     +++| FTDB     CON    0,RDSA
04702  M01S04269.6di     +++|*         IJM    RDSA,CH     IF FUNCTION ACCEPTED
04703  M01S04270.6di     +++|          SOD    T1
04704  M01S04271.6di     +++|          PJN    FTDB        IF NOT TIME OUT
04705  M01S04272.6di     +++|          SOD    T2
04706  M01S04273.6di     +++|          PJN    FTDB        IF NOT TIME OUT
04707  M01S04274.6di     +++|          UJN    FTDX        RETURN
04708  M01S04275.6di     +++|          SPACE  4
04709  M01S04276.6di     +++|          ERRNG  473-*       OVERLAY OVERFLOWS PRU
04710  M01S04277.6di     +++|          RSTR   RESTORE INSTRUCTIONS
04711  M01S04278.6di     +++|          TITLE  0CI - FIRMWARE IDENT PROCESSOR.
04712  M01S04279.6di     +++|          QUAL   0CI
04713  M01S04280.6di     +++|          IDENT  0CI,PRSX   "HN" FIRMWARE IDENT PROCESSOR.
04714  M01S04281.6di     +++|*COMMENT  6DI - "HN" FIRMWARE IDENT PROCESSOR.
Line S04282 Modification History
M01 (Added by) 6di
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04715  M02S04282.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
04716  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04717  M01S04283.6di     +++|          SPACE  4
04718  M01S04284.6di     +++|***       FIRMWARE IDENT PROCESSOR.
04719  M01S04285.6di     +++|*         R. J. THIELEN.     75/11/20.
04720  M01S04286.6di     +++|*         W. E. GOEBEL.      78/03/06.
04721  M01S04287.6di     +++|          SPACE  4
04722  M01S04288.6di     +++|***              THE FIRMWARE IDENT PROCESSOR OBTAINS DETAILED STATUS
04723  M01S04289.6di     +++|*         FOR A SPECIFIED EQUIPMENT, CHANNEL AND LOGICAL UNIT, EXTRACTS
04724  M01S04290.6di     +++|*         THE FIRMWARE REVISION NUMBER AND PLACES THAT INFORMATION IN A
04725  M01S04291.6di     +++|*         DAYFILE MESSAGE THAT IT RETURNS TO THE CALLING PROGRAM.
04726  M01S04292.6di     +++|          SPACE  4
04727  M01S04293.6di     +++|*         REDEFINE INSTRUCTIONS FOR LOCATION FREE EXECUTION.
04728  M01S04294.6di     +++|
04729  M01S04295.6di     +++|          RIREL              REDEFINE INSTRUCTIONS
04730  M01S04296.6di     +++|          SPACE  4,10
04731  M01S04297.6di     +++|**        COMMON DECKS.
04732  M01S04298.6di     +++|
04733  M01S04299.6di     +++|
04734  M01S04300.6di     +++|*CALL     COMSDFS
04735  M01S04301.6di     +++| PRS      SPACE  4,10
04736  M01S04302.6di     +++|***       PRS - PRESET FIRMWARE IDENTIFICATION PROCESSOR.
04737  M01S04303.6di     +++|*
04738  M01S04304.6di     +++|*         ENTRY  ((LA)-1) = 3/ FN,9/ EQ.
04739  M01S04305.6di     +++|*                FN = FUNCTION NUMBER.
04740  M01S04306.6di     +++|*                     0 = CHANNEL CONTROLWARE IDENTIFICATION.
04741  M01S04307.6di     +++|*                     1 = CONTROL MODULE CONTROLWARE IDENTIFICATION.
04742  M01S04308.6di     +++|*
04743  M01S04309.6di     +++|*         EXIT   (A) = MAIN PROCESSOR ENTRY ADDRESS.
04744  M01S04310.6di     +++|*                (T5) = EST ORDINAL.
04745  M01S04311.6di     +++|*                FIRMWARE IDENTIFICATION PROCESSOR INITIALIZED.
04746  M01S04312.6di     +++|*
04747  M01S04313.6di     +++|*         USES   T5, T7, CM - CM+4.
04748  M01S04314.6di     +++|*
04749  M01S04315.6di     +++|*         MACROS SETMS.
04750  M01S04316.6di     +++|
04751  M01S04317.6di     +++|
04752  M01S04318.6di     +++|          ORG    5
04753  M01S04319.6di     +++| PRS      SUBR               ENTRY/EXIT
04754  M01S04320.6di     +++|          LDD    LA          ABSOLUTIZE MESSAGE ADDRESSES
04755  M01S04321.6di     +++|          RAM    TDMA
04756  M01S04322.6di     +++|          RAM    TDMA+1
04757  M01S04323.6di     +++|          LDM    -1          SET EST ORDINAL
04758  M01S04324.6di     +++|          LPC    777
04759  M01S04325.6di     +++|          STD    T5
04760  M01S04326.6di     +++|          SETMS  PIOCH,(DF,NR,NS)
04761  M01S04327.6di     +++|          LDD    CM+4        GET ALGORITHM INDEX FROM MST
04762  M01S04328.6di     +++|          SHN    3
04763  M01S04329.6di     +++|          ADN    DILL
04764  M01S04330.6di     +++|          CRD    CM
Line S04331 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04765  M02S04331.6di14   ---|          SBN    DILL-MDGL
Line S04332 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04766  M02S04332.6di14   ---|          ERRNG  DILL-MDGL
Line S04333 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04767  M02S04333.6di14   ---|          CRD    CM-1        GET SINGLE UNIT SECTOR LIMIT
04768  M01S04334.6di     +++|          LDD    CM+4
04769  M01S04335.6di     +++|          LPN    77
04770  M01S04336.6di     +++|          RAM    FIPC
Line S04337 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04771  M02S04337.6di14   ---|          STD    CM+4        SAVE FOR CONTROL MODULE TEST
04772  M01S00001.6di14   +++|          STM    PRSA
04773  M01S04338.6di     +++|          ADC    -AIIB-TDAI
04774  M01S04339.6di     +++|          MJN    PRS2        IF NOT ISD
04775  M01S04340.6di     +++|          SBK    AIIE-AIIB
04776  M01S04341.6di     +++|          MJN    PRS3        IF ISD
04777  M01S04342.6di     +++|          SBK    AIDC-AIIE
04778  M01S04343.6di     +++|          ERRNG  AIDC-AIIE   ALGORITHM INDEXES OUT OF ORDER
Line S04344 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04779  M02S04344.6di14   ---| PRS2     MJN    PRS2.1      IF NOT FSC, 7165 NOR ISD
04780  M01S00002.6di14   +++|          MJN    PRS2        IF NOT FSC, 7165 NOR ISD
04781  M01S04345.6di     +++|          STD    T0
04782  M01S04346.6di     +++|          LDN    ARNW-FRNW   SET ADAPTOR REVISION NUMBER WORD
04783  M01S04347.6di     +++|          RAM    FIPF
04784  M01S04348.6di     +++|          LDD    T0
04785  M01S04349.6di     +++|          ZJN    PRS5        IF 7165/895 EQUIPMENT
Line S04350 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04786  M02S04350.6di14   ---| PRS2.1   UJN    PRS6        MODIFY DRIVER
04787  M01S00003.6di14   +++| PRS2     UJN    PRS6        MODIFY DRIVER
04788  M01S04351.6di     +++|
04789  M01S04352.6di     +++|*         MODIFY OVERLAY FOR EITHER THE 7255 ADAPTOR OR FOR A CONTROL
04790  M01S04353.6di     +++|*         MODULE.
04791  M01S04354.6di     +++|
04792  M01S04355.6di     +++| PRS3     LDM    -1
04793  M01S04356.6di     +++|          SHN    0-11
04794  M01S04357.6di     +++|          ZJN    PRS5        IF 7255 ADAPTOR
Line S04358 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04795  M02S04358.6di14   ---|          LDD    CM+4
Line S04359 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04796  M02S04359.6di14   ---|          STM    PRSA
04797  M01S00004.6di14   +++|          LDM    PRSA
04798  M01S04360.6di     +++|          ADK    -AIDD-TDAI
04799  M01S04361.6di     +++|          ZJN    PRS4        IF *DD* DEVICE TYPE
04800  M01S04362.6di     +++|          LDN    /CNTL/T424-/CNTL/T422   (CONTROL MODULE II)
04801  M01S04363.6di     +++| PRS4     ADN    /CNTL/T422  (CONTROL MODULE I)
04802  M01S04364.6di     +++|          STM    **
04803  M01S04365.6di     +++| PRSA     EQU    *-1         (MODIFY CONTROLWARE INDEX TABLE CONTENTS)
04804  M01S04366.6di     +++|          LDN    PSNI
04805  M01S04367.6di     +++|          STM    FIPE
04806  M01S04368.6di     +++|          LDN    HI0104-HI0101
04807  M01S04369.6di     +++|          RAM    MSGB+1
04808  M01S04370.6di     +++| PRS5     LDN    1RD-1RA
04809  M01S04371.6di     +++|          RAM    MSGA+5
04810  M01S04372.6di     +++|          STM    MSGB+10
Line S04373 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04811  M02S04373.6di14   ---| PRS6     LDD    CM-1+1      SET SINGLE UNIT SECTOR LIMIT
Line S04374 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04812  M02S04374.6di14   ---| PRS7     LDC    LDNI+FCDS   SET DRIVER TO READ *DETAILED STATUS*
04813  M01S00005.6di14   +++| PRS6     LDC    LDNI+FCDS   SET DRIVER TO READ *DETAILED STATUS*
04814  M01S04375.6di     +++|          STM.   RDSA
04815  M01S00006.6di14   +++|          LDM    -1
04816  M01S00007.6di14   +++|          SHN    0-11
04817  M01S00008.6di14   +++|          NJN    PRS7        IF CONTROL MODULE FIRMWARE IDENTIFICATION
04818  M01S04376.6di     +++|          LDD    HN          ENABLE A BRANCH TO READ *DETAILED STATUS*
04819  M01S04377.6di     +++|          ERRNZ  LJMI-100    ADJUST IF VALUE CHANGES
04820  M01S04378.6di     +++|          STM.   LDAC
04821  M01S04379.6di     +++|          LDC    RDS2
04822  M01S04380.6di     +++|          STM.   LDAC+1
Line S04381 Modification History
M01 (Added by) 6di
M02 (Updated by) 6di14
Seq #  *Modification Id* Act 
----------------------------+
04823  M02S04381.6di14   ---|          LDN    DSLN
04824  M01S00009.6di14   +++| PRS7     LDN    DSLN
04825  M01S04382.6di     +++|          STM.   FNCA
04826  M01S04383.6di     +++|          LDC    FIP
04827  M01S04384.6di     +++|          ADD    LA
04828  M01S04385.6di     +++|          LJM    PRSX        EXIT
04829  M01S04386.6di     +++|
Line S04387 Modification History
M01 (Added by) 6di
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04830  M02S04387.271l716 ---| MSGA     DATA   C*CH00,MA722-A00,CM0.*
04831  M01S00009.271l716 +++| MSGA     DATA   C*CH00 MA722-A00,CM0.*
04832  M01S04388.6di     +++|
04833  M01S04389.6di     +++| MSGB     CON    DM0401      MESSAGE ID
04834  M01S04390.6di     +++|          CON    HI0101      MESSAGE SYMPTOM
04835  M01S04391.6di     +++|          CON    0           CHANNEL (OCTAL)
04836  M01S04392.6di     +++|          CON    0           (CONTROL MODULE EQUIPMENT NUMBER)
04837  M01S04393.6di     +++|          CON    0           RESERVED FOR CDC
04838  M01S04394.6di     +++|          DATA   10A MA722-AYY  FIRMWARE REVISION LEVEL (DISPLAY CODE)
04839  M01S04395.6di     +++| MSGBL    EQU    *-MSGB      BML MESSAGE LENGTH
04840  M01S04396.6di     +++| TDMA     SPACE  4,10
04841  M01S04397.6di     +++|**        TDMA - TABLE OF DAYFILE MESSAGE ADDRESSES.
04842  M01S04398.6di     +++|
04843  M01S04399.6di     +++|
04844  M01S04400.6di     +++| TDMA     BSS    0
04845  M01S04401.6di     +++|          CON    MSGA        ERRLOG MESSAGE ADDRESS
04846  M01S04402.6di     +++|          CON    MSGB-MSGA   BML MESSAGE ADDRESS
04847  M01S04403.6di     +++| FIP      SPACE  4
04848  M01S04404.6di     +++|***       FIP - FIRMWARE IDENTIFICATION PROCESSOR.
04849  M01S04405.6di     +++|*
04850  M01S04406.6di     +++|*         ENTRY  (T4) = CHANNEL.
04851  M01S04407.6di     +++|*                (T5) = EST ORDINAL.
04852  M01S04408.6di     +++|*
04853  M01S04409.6di     +++|*         EXIT   (A) = 6/BL, 12/TA.
04854  M01S04410.6di     +++|*                      BL = BML MESSAGE LENGTH.
04855  M01S04411.6di     +++|*                      TA = ADDRESS OF MESSAGE PARAMETER BLOCK.
04856  M01S04412.6di     +++|*                    .LT. 0 IF MASS STORAGE ERROR.
04857  M01S04413.6di     +++|*                (T5) = UNCHANGED.
04858  M01S04414.6di     +++|*                (BFMS) = DETAILED STATUS.
04859  M01S04415.6di     +++|*
04860  M01S04416.6di     +++|*         USES   T3, T6, T7.
04861  M01S04417.6di     +++|*
04862  M01S04418.6di     +++|*         CALLS  CDD, COD, RDS.
04863  M01S04419.6di     +++|*
04864  M01S04420.6di     +++|*         MACROS ENDMS.
04865  M01S04421.6di     +++|
04866  M01S04422.6di     +++|
04867  M01S04423.6di     +++| FIP      SUBR               ENTRY/EXIT
04868  M01S04424.6di     +++|          LDN    0
04869  M01S04425.6di     +++|          STD    T6          CLEAR LOGICAL ADDRESS
04870  M01S04426.6di     +++|          STD    T7
04871  M01S04427.6di     +++|          LDC    BFMS        READ DETAILED STATUS
04872  M01S04428.6di     +++|          RJM.   RDS
04873  M01S04429.6di     +++|          MJN    FIPX        IF ERROR
04874  M01S04430.6di     +++|          ENDMS
04875  M01S04431.6di     +++|
04876  M01S04432.6di     +++|*         ADD CHANNEL NUMBER TO THE ERRLOG AND BML MESSAGES.
04877  M01S04433.6di     +++|
04878  M01S04434.6di     +++|          LDD    T4          PUT CHANNEL IN MESSAGE
04879  M01S04435.6di     +++|          STM    MSGB+2
04880  M01S04436.6di     +++|          RJM    COD
04881  M01S04437.6di     +++|          STM    MSGA+1
04882  M01S04438.6di     +++|
04883  M01S04439.6di     +++|*         ADD FIRMWARE TYPE TO ERRLOG AND BML MESSAGES.
04884  M01S04440.6di     +++|
04885  M01S04441.6di     +++|          LDM    TDAI
04886  M01S04442.6di     +++| FIPC     EQU    *-1
04887  M01S04443.6di     +++|          NJN    FIP4        IF CONTROLWARE TYPE ALREADY KNOWN
04888  M01S04444.6di     +++|          LDM.   BFMS+FRNW
04889  M01S04445.6di     +++|          SHN    -12
04890  M01S04446.6di     +++|          SHN    1
04891  M01S04447.6di     +++| FIP4     ADD    LA
04892  M01S04448.6di     +++|          ADC    FIPH
04893  M01S04449.6di     +++|          STD    T3
04894  M01S04450.6di     +++|          LDI    T3
04895  M01S04451.6di     +++|          STM    MSGA+3
04896  M01S04452.6di     +++|          STM    MSGB+6
04897  M01S04453.6di     +++|          LDM.   1,T3
04898  M01S04454.6di     +++|          STM    MSGA+4
04899  M01S04455.6di     +++|          STM    MSGB+7
04900  M01S04456.6di     +++|
04901  M01S04457.6di     +++|*         ADD REVISION NUMBER TO ERRLOG AND BML MESSAGES.  IF
04902  M01S04458.6di     +++|*         PROCESSING A CONTROL MODULE, ADD THE CONTROL MODULE
04903  M01S04459.6di     +++|*         EQUIPMENT NUMBER TO THE MESSAGES.
04904  M01S04460.6di     +++|
04905  M01S04461.6di     +++|          LDC    MSGA+7
04906  M01S04462.6di     +++|          ADD    LA
04907  M01S04463.6di     +++|          STD    T3
04908  M01S04464.6di     +++|          UJN    FIP6        CHANNEL FIRMWARE IDENTIFICATION
04909  M01S04465.6di     +++|*         PSN                (CONTROL MODULE FIRMWARE IDENTIFICATION)
04910  M01S04466.6di     +++| FIPE     EQU    *-1
04911  M01S04467.6di     +++|          LDM.   BFMS+FRNW   GET CONTROL MODULE EQUIPMENT NUMBER
04912  M01S04468.6di     +++|          SHN    -3
04913  M01S04469.6di     +++|          LPN    7
04914  M01S04470.6di     +++|          STM    MSGB+3
04915  M01S04471.6di     +++|          ADC    2RM0
04916  M01S04472.6di     +++|          STM    MSGA+10
04917  M01S04473.6di     +++|          LDN    11-7
04918  M01S04474.6di     +++|          RAD    T3
04919  M01S04475.6di     +++|          LDM.   BFMS+CMNW
04920  M01S04476.6di     +++|          LPN    37
04921  M01S04477.6di     +++|          UJN    FIP7        ADD REVISION NUMBER
04922  M01S04478.6di     +++|
04923  M01S04479.6di     +++| FIP6     LDM.   BFMS+FRNW
04924  M01S04480.6di     +++|*         LDM.   BFMS+ARNW   (FSC AND 7165 EQUIPMENTS)
04925  M01S04481.6di     +++| FIPF     EQU    *-1
04926  M01S04482.6di     +++|          SHN    -6
04927  M01S04483.6di     +++|          LPN    17
04928  M01S04484.6di     +++| FIP7     RJM    CDD
04929  M01S04485.6di     +++|          STM    MSGA+6
04930  M01S04486.6di     +++|          STM    MSGB+11
04931  M01S04487.6di     +++|
04932  M01S04488.6di     +++|*         TERMINATE THE ERROR LOG MESSAGE.
04933  M01S04489.6di     +++|
04934  M01S04490.6di     +++|          LDC    2R.
04935  M01S04491.6di     +++|          STI    T3
04936  M01S04492.6di     +++|          LDN    0
04937  M01S04493.6di     +++|          STM.   1,T3
04938  M01S04494.6di     +++|          LDC    TDMA+MSGBL*10000  SET TABLE ADDRESS, BML MSG LENGTH
04939  M01S04495.6di     +++|          ADD    LA
04940  M01S04496.6di     +++|          LJM    FIPX        RETURN
04941  M01S04497.6di     +++|
04942  M01S04498.6di     +++|
04943  M01S04499.6di     +++| FIPH     BSS    0
04944  M01S04500.6di     +++|          LOC    0
04945  M01S04501.6di     +++|          QUAL   CNTL
04946  M01S04502.6di     +++| T710     DATA   4RA710      HALF TRACK CONTROLWARE
04947  M01S04503.6di     +++| T454     DATA   4RA454      FSC ADAPTOR CONTROLWARE
04948  M01S04504.6di     +++| T401     DATA   4RA401      FULL TRACK CONTROLWARE
04949  M01S04505.6di     +++| T721     DATA   4RA721      FMD CONTROLWARE
04950  M01S04506.6di     +++| T722     DATA   4RA722      DEMA/PFMD CONTROLWARE
04951  M01S04507.6di     +++| T462     DATA   4RA462      7255 ADAPTOR CONTROLWARE
04952  M01S04508.6di     +++| T422     DATA   4RH422      CONTROL MODULE I CONTROLWARE
04953  M01S04509.6di     +++| T424     DATA   4RH424      CONTROL MODULE II CONTROLWARE
04954  M01S04510.6di     +++| T464     DATA   4RA464      7165 CONTROLWARE
04955  M01S04511.6di     +++|          QUAL   *
04956  M01S04512.6di     +++|          LOC    *O
04957  M01S04513.6di     +++|
04958  M01S04514.6di     +++|
04959  M01S04515.6di     +++| TDAI     INDEX
04960  M01S04516.6di     +++|          INDEX  AIDI,0
04961  M01S04517.6di     +++|          INDEX  AIDJ,0
04962  M01S04518.6di     +++|          INDEX  AIDM,0
04963  M01S04519.6di     +++|          INDEX  AIDK,0
04964  M01S04520.6di     +++|          INDEX  AIDL,0
04965  M01S04521.6di     +++|          INDEX  AIDQ,0
04966  M01S00076.ns2776  +++|          INDEX  AIDR,0
04967  M01S04522.6di     +++|          INDEX  AIDD,/CNTL/T462
04968  M01S04523.6di     +++|          INDEX  AIDG,/CNTL/T462
04969  M01S04524.6di     +++|          INDEX  AIDB,/CNTL/T722
04970  M01S04525.6di     +++|          INDEX  AIDC,/CNTL/T464
04971  M01S04526.6di     +++|          INDEX  AIDX,/CNTL/T401
04972  M01S04527.6di     +++|          INDEX  AIDY,/CNTL/T401
04973  M01S04528.6di     +++|          INDEX  AIDZ,/CNTL/T401
04974  M01S04529.6di     +++|          INDEX  AIDA,/CNTL/T401
Line S04530 Modification History
M01 (Added by) 6di
M02 (Updated by) 284l847
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
04975  M03S04530.ns2776  ---|          INDEX  AIMX
04976  M01S00005.284l847 +++|          INDEX  AIDS
04977  M01S04531.6di     +++| CDD      SPACE  4,10
04978  M01S04532.6di     +++|**        CDD - CONVERT TWO DIGITS TO DECIMAL DISPLAY CODE.
04979  M01S04533.6di     +++|*
04980  M01S04534.6di     +++|*         ENTRY  (A) = NUMBER TO CONVERT.
04981  M01S04535.6di     +++|*
04982  M01S04536.6di     +++|*         EXIT   (A) = DISPLAY CODE VALUE.
04983  M01S04537.6di     +++|*
04984  M01S04538.6di     +++|*         USES   T0 - T1.
04985  M01S04539.6di     +++|
04986  M01S04540.6di     +++|
04987  M01S04541.6di     +++| CDD2     ADN    10D+1R0
04988  M01S04542.6di     +++|          SHN    14          POSITION UNITS
04989  M01S04543.6di     +++|          ADD    T0
04990  M01S04544.6di     +++|          SHN    6
04991  M01S04545.6di     +++|
04992  M01S04546.6di     +++| CDD      SUBR               ENTRY/EXIT
04993  M01S04547.6di     +++|          STD    T1          SAVE NUMBER
04994  M01S04548.6di     +++|          LDN    1R0         PRESET TENS
04995  M01S04549.6di     +++|          STD    T0
04996  M01S04550.6di     +++| CDD1     LDD    T1          COUNT 10
04997  M01S04551.6di     +++|          SBN    10D
04998  M01S04552.6di     +++|          MJN    CDD2        IF CONVERSION COMPLETE
04999  M01S04553.6di     +++|          STD    T1
05000  M01S04554.6di     +++|          AOD    T0
05001  M01S04555.6di     +++|          UJN    CDD1        LOOP TO END OF CONVERSION
05002  M01S04556.6di     +++| COD      SPACE  4,10
05003  M01S04557.6di     +++|**        COD - CONVERT TWO DIGITS TO OCTAL DISPLAY CODE.
05004  M01S04558.6di     +++|*
05005  M01S04559.6di     +++|*         ENTRY  (A) = NUMBER TO CONVERT.
05006  M01S04560.6di     +++|*
05007  M01S04561.6di     +++|*         EXIT   (A) = DISPLAY CODE VALUE.
05008  M01S04562.6di     +++|*
05009  M01S04563.6di     +++|*         USES   T0.
05010  M01S04564.6di     +++|
05011  M01S04565.6di     +++|
05012  M01S04566.6di     +++| COD      SUBR               ENTRY/EXIT
05013  M01S04567.6di     +++|          STD    T0
05014  M01S04568.6di     +++|          SHN    3
05015  M01S04569.6di     +++|          LMD    T0
05016  M01S04570.6di     +++|          SCN    70
05017  M01S04571.6di     +++|          ADC    2R00
05018  M01S04572.6di     +++|          UJN    CODX        RETURN
05019  M01S04573.6di     +++|
05020  M01S04574.6di     +++|
05021  M01S04575.6di     +++|          BSS    0
05022  M01S04576.6di     +++|          ERRNG  473-*       OVERLAY OVERFLOWS PRU
05023  M01S04577.6di     +++|          RSTR               RESTORE INSTRUCTIONS
05024  M01S00005.ns2494  +++|          TITLE  0SC - SWEEP CYCLING PROCESSOR.
05025  M01S00006.ns2494  +++|          QUAL   0SC
05026  M01S00007.ns2494  +++|          IDENT  0SC,SCPX
Line S00008 Modification History
M01 (Added by) ns2494
M02 (Updated by) ns2584
Seq #  *Modification Id* Act 
----------------------------+
05027  M02S00008.ns2584  ---|*COMMENT  0SC - SWEEP CYCLING PROCESSOR.
05028  M01S00003.ns2584  +++|*COMMENT  6DI - SWEEP CYCLING PROCESSOR.
Line S00009 Modification History
M01 (Added by) ns2494
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05029  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1987.
05030  M01S00009.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05031  M01S00010.ns2494  +++| 0SC      SPACE  4,10
05032  M01S00011.ns2494  +++|***       0SC - SWEEP CYCLING PROCESSOR.
05033  M01S00012.ns2494  +++|*         R. M. DANISCH.     87/01/01.
05034  M01S00013.ns2494  +++| 0SC      SPACE  4,10
05035  M01S00014.ns2494  +++|***       *0SC* IS CALLED BY *1MV* TO EXECUTE THE NEXT SWEEP CYCLING
05036  M01S00015.ns2494  +++|*         SEEK SEQUENCE FOR A SPECIFIED MASS STORAGE DEVICE.  THE SEEK
05037  M01S00016.ns2494  +++|*         SEQUENCE WILL BE EXECUTED FOR EACH PHYSICAL UNIT OF A
05038  M01S00017.ns2494  +++|*         MULTI-UNIT DEVICE.  WORD *SCLL* OF THE MST ENTRY CONTAINS THE
05039  M01S00018.ns2494  +++|*         CYLINDER NUMBER USED FOR THE LAST SEEK IN THE PREVIOUS
05040  M01S00019.ns2494  +++|*         SEQUENCE.
05041  M01S00020.ns2494  +++| 0SC      SPACE  4,10
05042  M01S00021.ns2494  +++|***       ENTRY CONDITIONS.
05043  M01S00022.ns2494  +++|*
05044  M01S00023.ns2494  +++|*
05045  M01S00024.ns2494  +++|*         (IR+2) = EST ORDINAL.
05046  M01S00025.ns2494  +++| 0SC      SPACE  4,10
05047  M01S00026.ns2494  +++|*         DIRECT CELL ASSIGNMENTS.
05048  M01S00027.ns2494  +++|
05049  M01S00028.ns2494  +++|
05050  M01S00029.ns2494  +++| CN       EQU    20 - 24     CM WORD BUFFER
05051  M01S00030.ns2494  +++| AB       EQU    25 - 31     CM WORD BUFFER
05052  M01S00031.ns2494  +++| SU       EQU    32          SINGLE UNIT SECTOR LIMIT
05053  M01S00032.ns2494  +++| SC       EQU    33          SEEK COUNT
05054  M01S00033.ns2494  +++| SI       EQU    34          SEEK INCREMENT
05055  M01S00034.ns2494  +++| TI       EQU    35          *TDVP* TABLE INDEX
05056  M01S00035.ns2494  +++| MS       EQU    36          MST ENTRY ADDRESS / 10B
05057  M01S00036.ns2494  +++| 0SC      SPACE  4,10
05058  M01S00037.ns2494  +++|*         REDEFINE INSTRUCTIONS FOR LOCATION FREE EXECUTION.
05059  M01S00038.ns2494  +++|
05060  M01S00039.ns2494  +++|          RIREL
05061  M01S00040.ns2494  +++| SCP      SPACE  4,10
05062  M01S00041.ns2494  +++|          ORG    5
05063  M01S00042.ns2494  +++|
05064  M01S00043.ns2494  +++|**        SCP - SWEEP CYCLING PROCESSOR.
05065  M01S00044.ns2494  +++|
05066  M01S00045.ns2494  +++|
05067  M01S00046.ns2494  +++| SCP      SUBR               ENTRY/EXIT
05068  M01S00047.ns2494  +++|
05069  M01S00048.ns2494  +++|*         PRESET *0SC*.
05070  M01S00049.ns2494  +++|
05071  M01S00050.ns2494  +++|          LDD    IR+2
05072  M01S00051.ns2494  +++|          STD    T5
05073  M01S00052.ns2494  +++|          SETMS  PIO,(NS)
05074  M01S00053.ns2494  +++|          LDD    CM+4        SAVE MST ENTRY ADDRESS
05075  M01S00054.ns2494  +++|          STD    MS
05076  M01S00055.ns2494  +++|          SHN    3
05077  M01S00056.ns2494  +++|          ADN    MDGL        READ SINGLE UNIT SECTOR LIMIT
05078  M01S00057.ns2494  +++|          CRD    AB
05079  M01S00058.ns2494  +++|          ADK    SCLL-MDGL   READ SWEEP CYCLING CONTROL WORD
05080  M01S00059.ns2494  +++|          CRD    CN
05081  M01S00060.ns2494  +++|          LDD    AB+1        SET SINGLE UNIT SECTOR LIMIT
05082  M01S00061.ns2494  +++|          LPC    3777
05083  M01S00062.ns2494  +++|          STD    SU
05084  M01S00063.ns2494  +++|          LDD    LA          INITIALIZE *TDVP* TABLE INDEX
05085  M01S00064.ns2494  +++|          SBN    5
05086  M01S00065.ns2494  +++|          STD    TI
05087  M01S00066.ns2494  +++| SCP1     LDN    5           ADVANCE TO NEXT TABLE ENTRY
05088  M01S00067.ns2494  +++|          RAD    TI
05089  M01S00068.ns2494  +++|          SBD    LA
05090  M01S00069.ns2494  +++|          LMC    TDVPL
05091  M01S00070.ns2494  +++|          ZJP    SCPX        IF SWEEP CYCLING NOT SUPPORTED ON DEVICE
05092  M01S00071.ns2494  +++|          LDM.   TDVP,TI
05093  M01S00072.ns2494  +++|          LMD    CM+3
05094  M01S00073.ns2494  +++|          NJN    SCP1        IF NOT DEVICE TYPE MATCH
05095  M01S00074.ns2494  +++|          STD    T7
05096  M01S00075.ns2494  +++|          LDC    SCP9        DISABLE ERROR PROCESSING
05097  M01S00076.ns2494  +++|          ADD    LA
05098  M01S00077.ns2494  +++|          STM.   ERRA
05099  M01S00078.ns2494  +++|          LDD    HN          AVOID DATA TRANSFER
05100  M01S00079.ns2494  +++|          STM.   DSTB
05101  M01S00080.ns2494  +++|          ERRNZ  LJMI-100    CODE DEPENDS ON VALUE
05102  M01S00081.ns2494  +++|
05103  M01S00082.ns2494  +++|*         POSITION TO STARTING CYLINDER.
05104  M01S00083.ns2494  +++|
05105  M01S00084.ns2494  +++| SCP2     LDN    0           CAUSE IMMEDIATE EXIT IF ERROR ON 1ST SEEK
05106  M01S00085.ns2494  +++|          STD    SC
05107  M01S00086.ns2494  +++|          LDN    SCP4        AVOID DATA TRANSFER
05108  M01S00087.ns2494  +++|          ADD    LA
05109  M01S00088.ns2494  +++|          STM.   DSTB+1
05110  M01S00089.ns2494  +++|          LDD    CN
05111  M01S00090.ns2494  +++|          ADN    1
05112  M01S00091.ns2494  +++|          LMM.   TDVP+1,TI
05113  M01S00092.ns2494  +++|          ZJN    SCP3        IF PRIOR SEQUENCE ENDED ON LAST CYLINDER
05114  M01S00093.ns2494  +++|          LDD    CN          SET INITIAL POSITION
05115  M01S00094.ns2494  +++|          SHN    1           CONVERT CYLINDER TO LOGICAL TRACK
05116  M01S00095.ns2494  +++| SCP3     STD    T6
05117  M01S00096.ns2494  +++|*         LDC    BFMS        ISSUE READ REQUEST FOR SEEK EXECUTION
05118  M01S00097.ns2494  +++|          RJM.   RDS         CALL DRIVER TO ISSUE SEEK
05119  M01S00098.ns2494  +++| SCP4     DELAY  8D*17D      DELAY FOR ONE DISK REVOLUTION
05120  M01S00099.ns2494  +++|
05121  M01S00100.ns2494  +++|*         ISSUE SEEK SEQUENCE.
05122  M01S00101.ns2494  +++|
05123  M01S00102.ns2494  +++|          LDC    SCP8        AVOID DATA TRANSFER
05124  M01S00103.ns2494  +++|          ADD    LA
05125  M01S00104.ns2494  +++|          STM.   DSTB+1
05126  M01S00105.ns2494  +++|          LDM.   TDVP+2,TI   SET SMALL SEEK COUNT
05127  M01S00106.ns2494  +++|          STD    SC
05128  M01S00107.ns2494  +++|          LDM.   TDVP+3,TI   SET SMALL SEEK INCREMENT
05129  M01S00108.ns2494  +++| SCP5     STD    SI
05130  M01S00109.ns2494  +++| SCP6     LDD    SI          ADVANCE POSITION BY SEEK INCREMENT
05131  M01S00110.ns2494  +++|          SHN    1
05132  M01S00111.ns2494  +++|          RAD    T6
05133  M01S00112.ns2494  +++|          SHN    -1
05134  M01S00113.ns2494  +++|          SBM.   TDVP+1,TI
05135  M01S00114.ns2494  +++|          MJN    SCP7        IF NOT BEYOND END OF DEVICE
05136  M01S00115.ns2494  +++|          LDN    0           PERFORM ONLY ONE SEEK AT END OF DEVICE
05137  M01S00116.ns2494  +++|          STD    SC
05138  M01S00117.ns2494  +++|          LDM.   TDVP+1,TI   SEEK TO LAST CYLINDER
05139  M01S00118.ns2494  +++|          SBN    1
05140  M01S00119.ns2494  +++|          SHN    1
05141  M01S00120.ns2494  +++|          STD    T6
05142  M01S00121.ns2494  +++|*         LDC    BFMS        ISSUE READ REQUEST WITH NO DATA TRANSFER
05143  M01S00122.ns2494  +++| SCP7     RJM.   RDS         CALL DRIVER TO ISSUE SEEK
05144  M01S00123.ns2494  +++| SCP8     DELAY  8D*17D      DELAY FOR ONE DISK REVOLUTION
05145  M01S00124.ns2494  +++| SCP9     SOD    SC          DECREMENT SEEK COUNT
05146  M01S00125.ns2494  +++|          MJN    SCP10       IF POSITIONING COMPLETE
05147  M01S00126.ns2494  +++|          NJN    SCP6        IF SMALL SEEK SEQUENCE INCOMPLETE
05148  M01S00127.ns2494  +++|          LDM.   TDVP+4,TI   SET MAJOR POSITION INCREMENT
05149  M01S00128.ns2494  +++|          UJN    SCP5        CALCULATE NEXT SEEK ADDRESS
05150  M01S00129.ns2494  +++|
05151  M01S00130.ns2494  +++|*         RELEASE THE CURRENT DRIVE AND CHECK FOR ANOTHER (MULTI-UNIT).
05152  M01S00131.ns2494  +++|
05153  M01S00132.ns2494  +++| SCP10    ENDMS
05154  M01S00133.ns2494  +++|          LDD    SU          ADVANCE TO NEXT UNIT
05155  M01S00134.ns2494  +++|          RAD    T7
05156  M01S00135.ns2494  +++|          SBM.   SLM
05157  M01S00136.ns2494  +++|          MJP    SCP2        IF MORE UNITS TO PROCESS
05158  M01S00137.ns2494  +++|
05159  M01S00138.ns2494  +++|*         UPDATE THE SWEEP CYCLING CONTROL WORD IN THE MST ENTRY.
05160  M01S00139.ns2494  +++|
05161  M01S00140.ns2494  +++|          LDD    T6          STORE FINAL POSITION IN *SCLL*
05162  M01S00141.ns2494  +++|          SHN    -1
05163  M01S00142.ns2494  +++|          STD    CN
05164  M01S00143.ns2494  +++|          LDK    RTCL        STORE NEW TIME STAMP IN *SCLL*
05165  M01S00144.ns2494  +++|          CRD    CM
05166  M01S00145.ns2494  +++|          LDD    CM+1
05167  M01S00146.ns2494  +++|          STD    CN+1
05168  M01S00147.ns2494  +++|          LDD    MS          UPDATE *SCLL*
05169  M01S00148.ns2494  +++|          SHN    3
05170  M01S00149.ns2494  +++|          ADN    SCLL
05171  M01S00150.ns2494  +++|          CWD    CN
05172  M01S00151.ns2494  +++|          LJM    SCPX        RETURN
05173  M01S00152.ns2494  +++| TDVP     SPACE  4,10
05174  M01S00153.ns2494  +++|**        TDVP - TABLE OF DEVICE PARAMETERS.
05175  M01S00154.ns2494  +++|
05176  M01S00155.ns2494  +++|
05177  M01S00156.ns2494  +++| TDVP     BSS    0
05178  M01S00157.ns2494  +++|
05179  M01S00158.ns2494  +++|          CON    2RDB        DEVICE TYPE *DB*
05180  M01S00159.ns2494  +++|          CON    CYUNDB      NUMBER OF CYLINDERS ON DEVICE
05181  M01S00160.ns2494  +++|          CON    3           NUMBER OF SMALL INCREMENT SEEKS
05182  M01S00161.ns2494  +++|          CON    12D         SIZE OF SMALL INCREMENT SEEK
05183  M01S00162.ns2494  +++|          CON    93D         SIZE OF LARGE INCREMENT SEEK
05184  M01S00163.ns2494  +++|
05185  M01S00164.ns2494  +++|          CON    2RDD        DEVICE TYPE *DD*
05186  M01S00165.ns2494  +++|          CON    CYUNDD      NUMBER OF CYLINDERS ON DEVICE
05187  M01S00166.ns2494  +++|          CON    4           NUMBER OF SMALL INCREMENT SEEKS
05188  M01S00167.ns2494  +++|          CON    13D         SIZE OF SMALL INCREMENT SEEK
05189  M01S00168.ns2494  +++|          CON    50D         SIZE OF LARGE INCREMENT SEEK
05190  M01S00169.ns2494  +++|
05191  M01S00170.ns2494  +++|          CON    2RDG        DEVICE TYPE *DG*
05192  M01S00171.ns2494  +++|          CON    CYUNDG      NUMBER OF CYLINDERS ON DEVICE
05193  M01S00172.ns2494  +++|          CON    6           NUMBER OF SMALL INCREMENT SEEKS
05194  M01S00173.ns2494  +++|          CON    16D         SIZE OF SMALL INCREMENT SEEK
05195  M01S00174.ns2494  +++|          CON    80D         SIZE OF LARGE INCREMENT SEEK
05196  M01S00175.ns2494  +++|
05197  M01S00176.ns2494  +++|          CON    2RDM        DEVICE TYPE *DM*
05198  M01S00177.ns2494  +++|          CON    CYUNDM      NUMBER OF CYLINDERS ON DEVICE
05199  M01S00178.ns2494  +++|          CON    3           NUMBER OF SMALL INCREMENT SEEKS
05200  M01S00179.ns2494  +++|          CON    12D         SIZE OF SMALL INCREMENT SEEK
05201  M01S00180.ns2494  +++|          CON    93D         SIZE OF LARGE INCREMENT SEEK
05202  M01S00181.ns2494  +++|
05203  M01S00182.ns2494  +++|          CON    2RDQ        DEVICE TYPE *DQ*
05204  M01S00183.ns2494  +++|          CON    CYUNDQ      NUMBER OF CYLINDERS ON DEVICE
05205  M01S00184.ns2494  +++|          CON    3           NUMBER OF SMALL INCREMENT SEEKS
05206  M01S00185.ns2494  +++|          CON    12D         SIZE OF SMALL INCREMENT SEEK
05207  M01S00186.ns2494  +++|          CON    93D         SIZE OF LARGE INCREMENT SEEK
05208  M01S00187.ns2494  +++|
05209  M01S00188.ns2494  +++| TDVPL    BSS    0           LWA+1 OF TABLE
05210  M01S00189.ns2494  +++| 0SC      SPACE  4
05211  M01S00190.ns2494  +++|          OVERFLOW  5,ZSCL   *0SC* OVERFLOWS PRU
05212  M01S04578.6di     +++|          TITLE  0SD - SPIN UP/DOWN ISMD DRIVES.
05213  M01S04579.6di     +++|          QUAL   0SD
Line S04580 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05214  M02S04580.251l670 ---|          IDENT  0SD,PRSX    "HN" SPIN UP/DOWN ISD DRIVES.
Line S04581 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05215  M02S04581.251l670 ---|*COMMENT  0SD - SPIN UP/DOWN ISD DRIVES.
05216  M01S00001.251l670 +++|          IDENT  0SD,PRSX    "HN" SPIN UP/DOWN MS DRIVES.
Line S00002 Modification History
M01 (Added by) 251l670
M02 (Updated by) ns2584
Seq #  *Modification Id* Act 
----------------------------+
05217  M02S00002.ns2584  ---|*COMMENT  0SD - SPIN UP/DOWN MS DRIVES.
05218  M01S00004.ns2584  +++|*COMMENT  6DI - SPIN UP/DOWN MS DRIVES.
Line S04582 Modification History
M01 (Added by) 6di
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05219  M02S04582.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1983.
05220  M01S00010.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05221  M01S04583.6di     +++|          SPACE  4,10
Line S04584 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05222  M02S04584.251l670 ---|***       SPIN UP/DOWN ISD DRIVES.
05223  M01S00003.251l670 +++|***       0SD - SPIN UP/DOWN MASS STORAGE DRIVES.
05224  M01S04585.6di     +++|*         K. F. REHM.        83/06/16.
05225  M01S04586.6di     +++|          SPACE  4,10
Line S04587 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05226  M02S04587.251l670 ---|***       *0SD* IS USED TO SPIN UP OR DOWN ISD DRIVES.
Line S04588 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05227  M02S04588.251l670 ---|*         DEPENDING UPON THE ENTRY CONDITIONS, ONE UNIT MAY BE SPUN
Line S04589 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05228  M02S04589.251l670 ---|*         UP/DOWN OR ALL UNITS IN A MULTI-SPINDLE DEVICE MAY BE SPUN
Line S04590 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05229  M02S04590.251l670 ---|*         UP/DOWN.  *0SD* WILL AVOID ISSUING A SPINUP FUNCTION IF THE
Line S04591 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05230  M02S04591.251l670 ---|*         DRIVE IS ALREADY SPINNING.  IT WILL ALSO NOT ATTEMPT TO SPIN
Line S04592 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05231  M02S04592.251l670 ---|*         DOWN A DRIVE THAT IS ALREADY SPUN DOWN.
05232  M01S00004.251l670 +++|***       *0SD* IS USED TO SPINUP OR SPINDOWN THOSE MASS STORAGE
05233  M01S00005.251l670 +++|*         DEVICES THAT SUPPORT SAID CAPABILITY.  FOR ISMD TYPE
05234  M01S00006.251l670 +++|*         DEVICES, THE DRIVER IS MODIFIED TO ISSUE A SPINUP OR
Line S00007 Modification History
M01 (Added by) 251l670
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05235  M02S00007.271l716 ---|*         SPINDOWN FUNCTION.  FOR HYDRA DEVICES, A FLAG IS SET
Line S00008 Modification History
M01 (Added by) 251l670
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
05236  M02S00008.271l716 ---|*         IN THE BUFFERED I/O *PUT* TO BE PROCESSED BY *1HY*.
05237  M01S00010.271l716 +++|*         SPINDOWN FUNCTION.  FOR BUFFERED DEVICES, A FLAG IS
05238  M01S00011.271l716 +++|*         SET IN THE BUFFERED I/O PHYSICAL UNIT TABLE TO BE
05239  M01S00012.271l716 +++|*         PROCESSED BY DEVICE SPECIFIC DRIVERS.
05240  M01S00009.251l670 +++|          SPACE  4,10
05241  M01S00010.251l670 +++|**        COMMON DECKS.
05242  M01S00011.251l670 +++|
05243  M01S00012.251l670 +++|
05244  M01S00013.251l670 +++|*CALL     COMSHIO
05245  M01S04593.6di     +++|          SPACE  4,10
05246  M01S04594.6di     +++|*         REDEFINE INSTRUCTIONS FOR LOCATION FREE EXECUTION.
05247  M01S04595.6di     +++|
05248  M01S04596.6di     +++|          RIREL              REDEFINE INSTRUCTIONS
05249  M01S04597.6di     +++| PRS      SPACE  4,10
05250  M01S04598.6di     +++|**        PRS - PRESET SPINUP/DOWN PROCESSOR.
05251  M01S04599.6di     +++|*
05252  M01S04600.6di     +++|*         EXIT   (A) = PROCESSOR ENTRY ADDRESS.
05253  M01S04601.6di     +++|
05254  M01S04602.6di     +++|
05255  M01S04603.6di     +++|          ORG    5
05256  M01S04604.6di     +++| PRS      SUBR               ENTRY/EXIT
05257  M01S00014.251l670 +++|          LDD    LA
05258  M01S00015.251l670 +++|          RAM    PRDC
05259  M01S04605.6di     +++|          LDN    SUE         RETURN SPINUP/SPINDOWN PROCESSOR ADDRESS
05260  M01S04606.6di     +++|          ADD    LA
05261  M01S04607.6di     +++|          UJN    PRSX        EXIT
05262  M01S04608.6di     +++| SUE      SPACE  4,10
05263  M01S04609.6di     +++|**        SUE - SPIN UP/DOWN AN ISD DRIVE.
05264  M01S04610.6di     +++|*
05265  M01S04611.6di     +++|*         ENTRY  ((LA)-1) = EST ORDINAL OF EQUIPMENT TO SPIN UP/DOWN.
Line S04612 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05266  M02S04612.251l670 ---|*                ((LA)-2) = 7/0,1/SF,1/UF,3/LU, WHERE
05267  M01S00016.251l670 +++|*                ((LA)-2) = 7/0,1/SF,4/0, WHERE
05268  M01S04613.6di     +++|*                           SF = 0, IF TO SPIN UP EQUIPMENT.
05269  M01S04614.6di     +++|*                              = 1, IF TO SPIN DOWN EQUIPMENT.
Line S04615 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05270  M02S04615.251l670 ---|*                           UF = 0, IF TO SPIN ALL UNITS IN A DEVICE.
Line S04616 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05271  M02S04616.251l670 ---|*                              = 1, IF TO SPIN ONLY ONE UNIT.
Line S04617 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05272  M02S04617.251l670 ---|*                           LU = LOGICAL UNIT - 1 OF UNIT TO BE SPUN.
05273  M01S04618.6di     +++|*
05274  M01S04619.6di     +++|*         EXIT   ((LA)-1) = UNCHANGED.
05275  M01S04620.6di     +++|*                ((LA)-2) = UNCHANGED.
05276  M01S04621.6di     +++|*
05277  M01S04622.6di     +++|*         USES   CM - CM+4.
05278  M01S04623.6di     +++|*
05279  M01S04624.6di     +++|*         CALLS  ANU, PRD, WDS.
05280  M01S04625.6di     +++|*
05281  M01S04626.6di     +++|*         MACROS MONITOR.
05282  M01S04627.6di     +++|
05283  M01S04628.6di     +++|
05284  M01S04629.6di     +++| SUE4     RJM    ANU         ADVANCE TO THE NEXT PHYSICAL UNIT
05285  M01S04630.6di     +++|          NJN    SUE1        IF MORE UNITS TO SPIN UP
05286  M01S04631.6di     +++|
05287  M01S04632.6di     +++| SUE      SUBR               ENTRY/EXIT
05288  M01S04633.6di     +++|          RJM    PRD         PRESET DRIVER
05289  M01S04634.6di     +++|          ZJN    SUEX        IF NOT AN ISD DRIVE
05290  M01S04635.6di     +++| SUE1     LDN    0
05291  M01S04636.6di     +++|          STM    CGSA
05292  M01S04637.6di     +++|          LDN    CM+1
05293  M01S04638.6di     +++|          RJM.   WDS
05294  M01S04639.6di     +++|          LPN    17
05295  M01S04640.6di     +++|          LMN    NRDE
05296  M01S04641.6di     +++|          NJN    SUE4        IF HARDWARE FAILURE
05297  M01S04642.6di     +++|          STD    CM          CLEAR FLASHING *MS2W* MESSAGE
05298  M01S04643.6di     +++|          LDD    CP
05299  M01S04644.6di     +++|          ADK    MS2W
05300  M01S04645.6di     +++|          CWD    CM
05301  M01S04646.6di     +++|          LDM    -2
Line S04647 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05302  M02S04647.251l670 ---|          LPN    20
05303  M01S04648.6di     +++|          NJN    SUE4        IF SPINDOWN REQUEST
05304  M01S04649.6di     +++| SUE2     LDD    MA
05305  M01S04650.6di     +++|          CWD    T4
05306  M01S04651.6di     +++|          MONITOR  LDAM
05307  M01S04652.6di     +++|          LDD    MA
05308  M01S04653.6di     +++|          ADN    1
05309  M01S04654.6di     +++|          CRD    CM
05310  M01S04655.6di     +++|          LDN    2           IGNORE *DRIVE BUSY* GENERAL STATUS
05311  M01S04656.6di     +++|          STM    CGSA
05312  M01S04657.6di     +++|          LDM    -2
Line S04658 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05313  M02S04658.251l670 ---|          LPN    20
05314  M01S04659.6di     +++|          ZJN    SUE3        IF SPINUP REQUEST
05315  M01S04660.6di     +++|          LDN    FCSD&FCSU   SET SPINDOWN
05316  M01S04661.6di     +++| SUE3     LMK    FCSU        SET SPINUP
05317  M01S04662.6di     +++|          LJM.   WDS4        ISSUE SPINUP/DOWN FUNCTION
05318  M01S04663.6di     +++| ANU      SPACE  4,10
05319  M01S04664.6di     +++|**        ANU - ADVANCE TO NEXT PHYSICAL UNIT.
05320  M01S04665.6di     +++|*
05321  M01S04666.6di     +++|*         *ANU* WILL DELAY AT LEAST 10 MSEC TO AVOID POWER FLUCTUATIONS
05322  M01S04667.6di     +++|*         WHEN MORE THAN ONE UNIT IS TO BE SPUN UP/DOWN.
05323  M01S04668.6di     +++|*
05324  M01S04669.6di     +++|*         ENTRY  (T6) = NUMBER OF UNITS REMAINING TO BE SPUN UP/DOWN.
05325  M01S04670.6di     +++|*
05326  M01S04671.6di     +++|*         EXIT   (A) .NE. 0, IF NEXT UNIT EXISTS.
05327  M01S04672.6di     +++|*
05328  M01S04673.6di     +++|*         USES   CM.
05329  M01S04674.6di     +++|*
05330  M01S04675.6di     +++|*         MACROS DELAY, ENDMS.
05331  M01S04676.6di     +++|
05332  M01S04677.6di     +++|
05333  M01S04678.6di     +++| ANU2     ENDMS
05334  M01S04679.6di     +++|*         LDN    0           (A) = 0 IS *ENDMS* EXIT CONDITION
05335  M01S04680.6di     +++|
05336  M01S04681.6di     +++| ANU      SUBR               ENTRY/EXIT
Line S04682 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05337  M02S04682.251l670 ---|          LDM    -2
Line S04683 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05338  M02S04683.251l670 ---|          LPN    10
Line S04684 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05339  M02S04684.251l670 ---|          NJN    ANU2        IF ONLY ONE UNIT SPUN
05340  M01S04685.6di     +++|          LDC    0           (SINGLE UNIT SECTOR LIMIT)
05341  M01S04686.6di     +++| ANUA     EQU    *-1         SET BY *PRD*
05342  M01S04687.6di     +++|          RAD    T7
05343  M01S04688.6di     +++|          SOD    T6
05344  M01S04689.6di     +++|          MJN    ANU2        IF NO MORE UNITS IN EQUIPMENT
05345  M01S04690.6di     +++|          DELAY  10D*8D       DELAY 10 MILLISECONDS
05346  M01S04691.6di     +++|          PAUSE  ST
05347  M01S04692.6di     +++|          LDN    1
05348  M01S04693.6di     +++|          UJN    ANUX        EXIT
05349  M01S04694.6di     +++| CGS      SPACE  4,10
05350  M01S04695.6di     +++|**        CGS - CHECK GENERAL STATUS.
05351  M01S04696.6di     +++|*
05352  M01S04697.6di     +++|*         *CGS* TRAPS ALL GENERAL STATUS FUNCTIONS ISSUED BY *6DI* TO
05353  M01S04698.6di     +++|*         THE CONTROLLER AND RETURNS TO CALLER IF EITHER A *0000*
05354  M01S04699.6di     +++|*         (OPERATION SUCCESSFUL) OR *0002* (DRIVE BUSY) STATUS IS
05355  M01S04700.6di     +++|*         ISSUED.  THIS ALLOWS *0SD* TO CONTINUE SPINNING UP/DOWN
05356  M01S04701.6di     +++|*         OTHER DRIVES WITHOUT HAVING TO WAIT IN *DSWM* PROCESSING
05357  M01S04702.6di     +++|*         UNTIL THE CURRENT DRIVE FINISHES SPINNING UP/DOWN.
05358  M01S04703.6di     +++|*
05359  M01S04704.6di     +++|*         ENTRY  (A) = GENERAL STATUS.
05360  M01S04705.6di     +++|*
05361  M01S04706.6di     +++|*         EXIT   TO *SUE4* IF SPINUP AND NON-ERROR GENERAL STATUS.
05362  M01S04707.6di     +++|*                TO *SUE2* IF SPINDOWN AND NON-ERROR GENERAL STATUS.
05363  M01S04708.6di     +++|*                TO *LDA1* IF ERROR GENERAL STATUS.
05364  M01S04709.6di     +++|
05365  M01S04710.6di     +++|
05366  M01S04711.6di     +++| CGS      BSS    0           ENTRY
05367  M01S04712.6di     +++|          NJN    CGS2        IF NOT *0000* GENERAL STATUS
05368  M01S04713.6di     +++| CGS1     LJM.   0,CM        RETURN TO CALLER
05369  M01S04714.6di     +++|
05370  M01S04715.6di     +++| CGS2     STD    CM+3        SAVE STATUS
05371  M01S04716.6di     +++|          LMC    0
05372  M01S04717.6di     +++|*         LMC    2           (IGNORE *DRIVE BUSY* GENERAL STATUS)
05373  M01S04718.6di     +++| CGSA     EQU    *-1
05374  M01S04719.6di     +++|          ZJN    CGS1        IF *DRIVE BUSY*
05375  M01S04720.6di     +++|          SHN    21-13
05376  M01S04721.6di     +++|          PJN    CGS3        IF NO ERROR
05377  M01S04722.6di     +++|          LDN    0
05378  M01S04723.6di     +++|          STM    CGSA
05379  M01S04724.6di     +++| CGS3     LDD    CM+3        RESTORE STATUS
05380  M01S04725.6di     +++|          LJM.   LDA3        PROCESS STATUS
05381  M01S04726.6di     +++| PRD      SPACE  4,10
05382  M01S04727.6di     +++|**        PRD - PRESET DRIVER.
05383  M01S04728.6di     +++|*
Line S04729 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05384  M02S04729.ns2750  ---|*         EXIT   (A) = 0 IF NOT AN ISD DRIVE.
05385  M01S00001.ns2750  +++|*         EXIT   (A) = 0 IF DEVICE NOT CANDIDATE FOR SPINUP/SPINDOWN.
05386  M01S00017.251l670 +++|*                (T5) = EST ORDINAL.
05387  M01S04730.6di     +++|*                (T6) = NUMBER OF UNITS - 1 IN EQUIPMENT.
05388  M01S04731.6di     +++|*
Line S04732 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05389  M02S04732.251l670 ---|*         USES   CM - CM+4, T5, T6, T7.
05390  M01S00018.251l670 +++|*         USES   T6, T7, CM - CM+4.
05391  M01S04733.6di     +++|*
05392  M01S04734.6di     +++|*         MACROS SETMS, SFA.
05393  M01S04735.6di     +++|
05394  M01S04736.6di     +++|
Line S04737 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05395  M02S04737.251l670 ---| PRD4     LDN    0           INDICATE NON-ISD DEVICE
05396  M01S00019.251l670 +++| PRD6     LDM    -2          SET FLAG VALUE
05397  M01S00020.251l670 +++|          SHN    -3
05398  M01S00021.251l670 +++|          NJN    PRD7        IF SPINDOWN REQUEST
05399  M01S00022.251l670 +++|          LDN    4
05400  M01S00023.251l670 +++|          ERRNZ  SPDF+1-SPUF CODE DEPENDS ON VALUE
05401  M01S00024.251l670 +++| PRD7     LMN    1
05402  M01S00025.251l670 +++|          ERRNZ  DUNF+1-SPDF CODE DEPENDS ON VALUE
05403  M01S00026.251l670 +++|          STM    PRDA+4
05404  M01S00027.251l670 +++|          LDC    BIOL        GET POINTER TO BUFFERED I/O TABLES
05405  M01S00028.251l670 +++|          CRD    CM
05406  M01S00029.251l670 +++|          LDD    CM+1        FETCH *PUT* TABLE POINTER WORD
05407  M01S00030.251l670 +++|          SHN    14
05408  M01S00031.251l670 +++|          LMD    CM+2
05409  M01S00032.251l670 +++|          ADN    PUTP
05410  M01S00033.251l670 +++|          CRD    CM
05411  M01S00034.251l670 +++|          LDD    CM+4        SET FWA OF *UNCT* WORD IN *PUT*
05412  M01S00035.251l670 +++|          ADK    UNCT
05413  M01S00036.251l670 +++|          STM    PRDB
05414  M01S00037.251l670 +++|          SHN    -14
05415  M01S00038.251l670 +++|          ADD    CM+3
05416  M01S00001.ns2682  +++|          LPN    77          CLEAR FLAGS
05417  M01S00039.251l670 +++|          LMC    ADCI
05418  M01S00040.251l670 +++|          STM    PRDB-1
05419  M01S00041.251l670 +++|          LDD    CM          NUMBER OF ENTRIES IN TABLE
05420  M01S00042.251l670 +++|          STD    T7
05421  M01S00043.251l670 +++| PRD8     SHN    PUTLS       READ UNIT DESCRIPTOR WORD
05422  M01S00044.251l670 +++|          ADC    0
05423  M01S00045.251l670 +++| PRDB     EQU    *-1
05424  M01S00046.251l670 +++|          CRD    CM
05425  M01S00047.251l670 +++|          STD    CM+4        SAVE ADDRESS FOR MONITOR CALL
05426  M01S00048.251l670 +++|          SHN    -14
05427  M01S00049.251l670 +++|          STD    CM+3
05428  M01S00050.251l670 +++|          LDD    CM+1        CHECK EST ORDINAL
05429  M01S00051.251l670 +++|          LMD    T5
05430  M01S00052.251l670 +++|          NJN    PRD9        IF NOT REQUESTED DEVICE
05431  M01S00053.251l670 +++|          LDN    1
05432  M01S00054.251l670 +++|          STD    CM+1
05433  M01S00055.251l670 +++|          LDD    MA          STORE *UTEM* REQUEST IN MESSAGE BUFFER
05434  M01S00056.251l670 +++|          CWM.   PRDA,CM+1
05435  M01S00057.251l670 +++| PRDC     EQU    *-1
05436  M01S00058.251l670 +++|          MONITOR  UTEM      SET FLAG FOR BUFFERED DEVICE DRIVER
05437  M01S00059.251l670 +++|          SOD    T6
05438  M01S00060.251l670 +++|          MJN    PRD10       IF NO MORE UNITS
05439  M01S00061.251l670 +++| PRD9     SOD    T7
05440  M01S00062.251l670 +++|          NJN    PRD8        IF NOT END OF *PUT*
Line S00063 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05441  M02S00063.272l774 ---| PRD10    LDN    0           INDICATE NON-ISD DEVICE
05442  M01S00001.272l774 +++| PRD10    LDN    0           DEVICE NOT CANDIDATE FOR SPINUP/SPINDOWN
05443  M01S04738.6di     +++|
05444  M01S04739.6di     +++| PRD      SUBR               ENTRY/EXIT
05445  M01S04740.6di     +++|          LDM    -1          SET EQUIPMENT
05446  M01S04741.6di     +++|          STD    T5
05447  M01S04742.6di     +++|          SFA    EST         GET EST ENTRY
05448  M01S04743.6di     +++|          ADK    EQDE
05449  M01S04744.6di     +++|          CRD    CM
05450  M01S04745.6di     +++|          LDD    CM
05451  M01S04746.6di     +++|          SHN    21-13
Line S04747 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05452  M02S04747.251l670 ---|          PJN    PRD4        IF NOT A MASS STORAGE DEVICE
Line S04748 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05453  M02S04748.251l670 ---|          LDD    CM+4        GET ALGORITHM INDEX
Line S04749 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05454  M02S04749.251l670 ---|          SHN    3
Line S04750 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05455  M02S04750.251l670 ---|          ADK    DILL
Line S04751 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05456  M02S04751.251l670 ---|          CRD    T7
Line S04752 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05457  M02S04752.251l670 ---|          LDD    T7+4
Line S04753 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05458  M02S04753.251l670 ---|          LPN    77
Line S04754 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05459  M02S04754.251l670 ---|          SBK    AIIB
Line S04755 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05460  M02S04755.251l670 ---| PRD0     MJN    PRD4        IF NOT AN ISD DEVICE
Line S04756 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05461  M02S04756.251l670 ---|          SBK    AIIE-AIIB
Line S04757 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05462  M02S04757.251l670 ---|          PJN    PRD4        IF NOT AN ISD DEVICE
Line S04758 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05463  M02S04758.251l670 ---|          LDD    CM+4        GET NUMBER OF UNITS IN DEVICE
Line S04759 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05464  M02S04759.251l670 ---|          SHN    3
Line S04760 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05465  M02S04760.251l670 ---|          ADK    DDLL
Line S04761 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05466  M02S04761.251l670 ---|          CRD    T7
Line S04762 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05467  M02S04762.251l670 ---|          SBK    DDLL-MDGL   GET SINGLE UNIT SECTOR LIMIT
Line S04763 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05468  M02S04763.251l670 ---|          CRD    CM
Line S04764 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05469  M02S04764.251l670 ---|          LDD    T7          CHECK FOR NULL EQUIPMENT
Line S04765 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05470  M02S04765.251l670 ---|          LPC    2007
Line S04766 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05471  M02S04766.251l670 ---|          STD    T6
Line S04767 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05472  M02S04767.251l670 ---|          SHN    21-12
Line S04768 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05473  M02S04768.251l670 ---|          MJN    PRD0        IF NULL EQUIPMENT
05474  M01S00064.251l670 +++|          PJN    PRD10       IF NOT A MASS STORAGE DEVICE
Line S00065 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05475  M02S00065.272l774 ---|          LDD    CM+3
Line S00066 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05476  M02S00066.272l774 ---|          LPC    3777
Line S00067 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05477  M02S00067.272l774 ---|          LMC    2RDD
Line S00068 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05478  M02S00068.272l774 ---|          ZJN    PRD2        IF ISMD DEVICE
Line S00069 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05479  M02S00069.272l774 ---|          LMN    1RG&1RD
Line S00070 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05480  M02S00070.272l774 ---|          ZJN    PRD2        IF ISMD DEVICE
Line S00071 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05481  M02S00071.272l774 ---|          LMN    1RF&1RG
Line S00072 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05482  M02S00072.272l774 ---|          ZJN    PRD2        IF HYDRA DEVICE
Line S00073 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05483  M02S00073.272l774 ---|          LMN    1RH&1RF
Line S00074 Modification History
M01 (Added by) 251l670
M02 (Updated by) 271l716
M03 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05484  M03S00074.272l774 ---| PRD1     NJN    PRD10       IF NOT HYDRA DEVICE
Line S00013 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05485  M02S00013.272l774 ---|          ZJN    PRD2        IF HYDRA DEVICE
Line S00014 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05486  M02S00014.272l774 ---|          LMN    1RN&1RH
Line S00015 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05487  M02S00015.272l774 ---| PRD1     NJN    PRD10       IF NOT XMD DEVICE
05488  M01S00002.272l774 +++|          LDC    TPRD-1      CHECK DEVICE TYPE
05489  M01S00003.272l774 +++|          ADD    LA
05490  M01S00004.272l774 +++|          STD    T1
05491  M01S00005.272l774 +++| PRD1     AOD    T1
05492  M01S00006.272l774 +++|          LDI    T1
05493  M01S00007.272l774 +++|          ZJN    PRD10       IF NOT CANDIDATE FOR SPINUP/SPINDOWN
05494  M01S00008.272l774 +++|          LMD    CM+3
05495  M01S00009.272l774 +++|          NJN    PRD1        IF DEVICE TYPE DOES NOT MATCH
05496  M01S00075.251l670 +++| PRD2     LDD    CM+4
05497  M01S00076.251l670 +++|          SHN    3
05498  M01S00077.251l670 +++|          ADN    DDLL        FETCH DEVICE UNIT COUNT
05499  M01S00078.251l670 +++|          CRD    T6
05500  M01S00079.251l670 +++|          SBN    DDLL-DILL   GET DEVICE DEPENDENT PARAMETERS
05501  M01S00080.251l670 +++|          CRD    T7
05502  M01S00081.251l670 +++|          LDD    T6          CHECK FOR NULL EQUIPMENT
05503  M01S00082.251l670 +++|          LPC    2007
05504  M01S00083.251l670 +++|          STD    T6          SAVE UNIT COUNT
05505  M01S00084.251l670 +++|          SHN    21-12
Line S00085 Modification History
M01 (Added by) 251l670
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05506  M02S00085.272l774 ---|          MJN    PRD1        IF NULL EQUIPMENT
05507  M01S00010.272l774 +++|          MJP    PRD10       IF NULL EQUIPMENT
05508  M01S00086.251l670 +++|          LDD    T7+3
05509  M01S00087.251l670 +++|          SHN    21-12
05510  M01S00088.251l670 +++|          MJP    PRD6        IF BUFFERED DEVICE
05511  M01S00089.251l670 +++|          LDD    CM+4
05512  M01S00090.251l670 +++|          SHN    3
05513  M01S00091.251l670 +++|          ADN    MDGL        GET SINGLE UNIT SECTOR LIMIT
05514  M01S00092.251l670 +++|          CRD    CM
05515  M01S04769.6di     +++|          LDD    CM+1        SECTOR LIMIT
05516  M01S04770.6di     +++|          LPC    3777
05517  M01S04771.6di     +++|          STM    ANUA
05518  M01S04772.6di     +++|          SETMS  PIO,(AD,DE,DF,NR,NS)
05519  M01S04773.6di     +++|          LDN    0
05520  M01S04774.6di     +++|          STD    T7
Line S04775 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05521  M02S04775.251l670 ---|          LDM    -2
Line S04776 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05522  M02S04776.251l670 ---|          SHN    21-3
Line S04777 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05523  M02S04777.251l670 ---|          PJN    PRD2        IF ALL UNITS TO BE SPUN
Line S04778 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05524  M02S04778.251l670 ---|          SHN    3-21
Line S04779 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05525  M02S04779.251l670 ---|          LPN    7           GET UNIT NUMBER
Line S04780 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05526  M02S04780.251l670 ---|          STD    CM
Line S04781 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05527  M02S04781.251l670 ---|          ZJN    PRD2        IF SECTOR SET TO CORRECT UNIT
Line S04782 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05528  M02S04782.251l670 ---| PRD1     LDM    ANUA
Line S04783 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05529  M02S04783.251l670 ---|          RAD    T7
Line S04784 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05530  M02S04784.251l670 ---|          SOD    CM
Line S04785 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05531  M02S04785.251l670 ---|          NJN    PRD1        IF NOT YET TO CORRECT UNIT
Line S04786 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05532  M02S04786.251l670 ---| PRD2     LDD    HN          MODIFY ROUTINES *WDS* AND *DST*
05533  M01S00093.251l670 +++|          LDD    HN
05534  M01S04787.6di     +++|          ERRNZ  LJMI-100B   CODE USES *HN* TO CREATE *LJM*
05535  M01S04788.6di     +++|          STM.   DSTA
Line S04789 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05536  M02S04789.251l670 ---|          STM.   WDS2
05537  M01S00094.251l670 +++|          STM.   WDS2        MODIFY ROUTINES *WDS* AND *DST*
05538  M01S04790.6di     +++|          LDC    CGS
05539  M01S04791.6di     +++|          ADD    LA
05540  M01S04792.6di     +++|          STM.   DSTA+1
05541  M01S04793.6di     +++|          LDM    -2
Line S04794 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05542  M02S04794.251l670 ---|          LPN    20
Line S04795 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05543  M02S04795.251l670 ---|          ZJN    PRD3        IF SPINUP REQUEST
Line S04796 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05544  M02S04796.251l670 ---|          LDK    SUE2&SUE4
Line S04797 Modification History
M01 (Added by) 6di
M02 (Updated by) 251l670
Seq #  *Modification Id* Act 
----------------------------+
05545  M02S04797.251l670 ---| PRD3     LMK    SUE4
05546  M01S00095.251l670 +++|          ZJN    PRD5        IF SPINUP REQUEST
05547  M01S00096.251l670 +++|          LDK    SUE2&SUE4
05548  M01S00097.251l670 +++| PRD5     LMK    SUE4
05549  M01S04798.6di     +++|          ADD    LA
05550  M01S04799.6di     +++|          STM.   WDS2+1
05551  M01S04800.6di     +++|          LDC    LDCI
05552  M01S04801.6di     +++|          STM.   WDSD
05553  M01S04802.6di     +++|          LDK    SUE4
05554  M01S04803.6di     +++|          ADD    LA
05555  M01S04804.6di     +++|          STM.   WDSD+1
05556  M01S04805.6di     +++|          LDN    1
05557  M01S04806.6di     +++|          STM.   FNCA
05558  M01S04807.6di     +++|          LJM    PRDX        EXIT
05559  M01S00098.251l670 +++|
05560  M01S00099.251l670 +++|
05561  M01S00100.251l670 +++| PRDA     VFD    1/0,5/PILL-UNCT,6/3,6/DUNF,42/0  *UTEM* REQUEST
05562  M01S00011.272l774 +++|
05563  M01S00012.272l774 +++| TPRD     BSS    0           CANDIDATE DEVICES FOR SPINUP/SPINDOWN
05564  M01S00013.272l774 +++|          CON    2RDD        834
05565  M01S00014.272l774 +++|          CON    2RDG        836
05566  M01S00015.272l774 +++|          CON    2RDF        887 (4KB SECTOR)
05567  M01S00016.272l774 +++|          CON    2RDH        887 (16KB SECTOR)
Line S00017 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05568  M02S00017.ns2750  ---|          CON    2RDN        9853
Line S00018 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05569  M02S00018.ns2750  ---|          CON    2REA        5832 (1X SSD)
Line S00019 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05570  M02S00019.ns2750  ---|          CON    2REB        5832 (2X SSD)
Line S00020 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05571  M02S00020.ns2750  ---|          CON    2REC        5833 (1X SABRE)
Line S00021 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05572  M02S00021.ns2750  ---|          CON    2RED        5833 (1XP SABRE)
Line S00022 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05573  M02S00022.ns2750  ---|          CON    2REE        5833 (2X SABRE)
Line S00023 Modification History
M01 (Added by) 272l774
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
05574  M02S00023.ns2750  ---|          CON    2REF        5833 (2XP SABRE)
05575  M01S00024.272l774 +++|          CON    0
05576  M01S04808.6di     +++|          SPACE  4,10
05577  M01S04809.6di     +++|          ERRNG  473-*       OVERLAY OVERFLOWS PRU
05578  M01S04810.6di     +++|          RSTR               RESTORE INSTRUCTIONS
Line S04811 Modification History
M01 (Added by) 6di
M02 (Updated by) ns2352
Seq #  *Modification Id* Act 
----------------------------+
05579  M02S04811.ns2352  ---|          TTL
05580  M01S04812.6di     +++|          SPACE  4
05581  M01S04813.6di     +++|          END
cdc/nos2.source/opl.opl871/deck/6di.003.txt ยท Last modified: by 127.0.0.1