*COMDECK,COMSIPI
          CTEXT  COMSIPI - IPI DRIVER INTERFACE EQUATES 
*IF -DEF,NOS,4
*IF -DEF,MVE
          IF     -DEF,QUAL$,1 
          QUAL   IPI
*ENDIF
          BASE   MIXED
  
          EJECT 
  
*         DCB (OEF) INDEX CONSTANT EQUATES
  
 AR       EQU    4           DCB (OEF) -- AUTO RETRY MASK 
 BRE      EQU    0#40        DCB (OEF) -- BURST RELEASE ENABLE
 CMT      EQU    0#8         DCB (OEF) -- CENTRAL MEMORY TRANSFER 
 CSD      EQU    0#80        DCB (OEF) -- CONDITIONAL SUCCESS DISA
 DRL      EQU    2           DCB (OEF) -- DRIVE RELEASE ENABLE
 DRS      EQU    1           DCB (OEF) -- DRIVE RESERVE ENABLE
 I4       EQU    0#200       DCB (OEF) -- I4/IPI DRIVER SELECT BIT
 I4PB     EQU    0#400       DCB (OEF) -- I4 PORT B SELECT (PORT A
 PRE      EQU    0#100       DCB (OEF) -- PRIORITY RESERVE ENABLE 
 RTBR     EQU    0#10        DCB (OEF) -- ENABLE TASK RELEASE BEFO
 SLR      EQU    0#20        DCB (OEF) -- SLAVE RESET ENABLE
  
          EJECT 
  
*         COMMAND BUFFERS INDEX CONSTANT EQUATES
  
 CR       EQU    1           CB -- COMMAND REFERENCE NUMBER 
 OM       EQU    2           CB -- OPCODE MODIFIER
 SA       EQU    3           CB -- SLAVE ADDRESS WORD 
 PM       EQU    4           CB -- PARAMETER WORD 
 CT1      EQU    5           CB -- HIGH-ORDER DATA COUNT
 CT2      EQU    6           CB -- LOW-ORDER DATA COUNT 
 DA1      EQU    7           CB -- CYLINDER ADDRESS 
 DA2      EQU    8D          CB -- HEAD/SECTOR ADDRESS
          EJECT 
  
*         DRIVER CONTROL BLOCK INDEX EQUATES
  
 TSK      EQU    0           DCB -- IPI DRIVER TASK 
 CHN      EQU    1           DCB -- IPI CHANNEL ADDRESS 
 CA       EQU    2           DCB -- CONTROLLER ADDRESS
 DA       EQU    3           DCB -- DRIVE ADDRESS 
 CYL      EQU    4           DCB -- CYLINDER ADDRESS
 HD       EQU    5           DCB -- HEAD (TRACK) ADDRESS
 SEC      EQU    6           DCB -- SECTOR ADDRESS
 OEF      EQU    7           DCB -- OPERATION ENABLE FLAGS
 CDG1     EQU    8D          DCB -- CONTROLLER DIAGNOSTIC SUBTEST 
 IBCU     EQU    8D          DCB -- UPPER IML BYTE COUNT FOR TASK 
 CDG2     EQU    9D          DCB -- CONTROLLER DIAGNOSTIC SUBTEST 
 IBCL     EQU    9D          DCB -- LOWER IML BYTE COUNT FOR TASK 
 FWA1     EQU    10D         DCB -- (R-REG) UPPER FWA FOR CENTRAL 
 FWA2     EQU    11D         DCB -- (R-REG) LOWER FWA FOR CENTRAL 
 FWA3     EQU    12D         DCB -- (A-REG) PART OF CENTRAL MEMORY
 STC      EQU    13D         DCB -- NO. 2048-BYTE SECTORS FOR DATA
 IBSC     EQU    14D         DCB -- INTERVAL BURSTING SECTOR COUNT
 GS       EQU    15D         DCB -- GENERAL STATUS WORD 
 FTSK     EQU    16D         DCB -- FAILING TASK
 LLE      EQU    17D         DCB -- LOW-LEVEL ERROR CODE
 PLLE     EQU    18D         DCB -- PREVIOUS (1ST) ERROR CAPTURED 
 LFCN     EQU    19D         DCB -- LATEST FUNCTION 
 LSS      EQU    20D         DCB -- LATEST SELECT STATUS
 LBAS     EQU    21D         DCB -- LATEST BUS ACKNOWLEDGE STATUS 
 LSVS     EQU    22D         DCB -- LATEST SLAVE STATUS 
 LRIS     EQU    23D         DCB -- LATEST REQUEST INTERR STATUS
 LIER     EQU    24D         DCB -- CONTENTS OF IPI/LSI ERROR REGI
          EJECT 
  
*         MISCELLANEOUS EQUATES 
  
 MS       EQU    4           SB -- MAJOR STATUS 
 ONEK     EQU    1024D       SECTOR WORD COUNT CONSTANT 
 PMW      EQU    5           RCB -- 1ST PARAMETER WORD
  
*         TASK MNEUMONIC EQUATES
  
 RSET     EQU    1           MASTER/SELECTIVE RESET 
 SEL      EQU    2           SELECT CONTROLLER
 DESEL    EQU    3           DESELECT CONTROLLER
 RESDR    EQU    4           RESERVE DRIVE
 RELDR    EQU    5           RELEASE DRIVE
 SEEK     EQU    6           SEEK 
 SEKRD    EQU    7           SEEK-READ DATA 
 SEKWR    EQU    8D          SEEK-WRITE DATA
 BUFRD    EQU    9D          READ FROM CONTROLLER BUFFER
 BUFWR    EQU    10D         WRITE TO CONTROLLER BUFFER 
 SSRDD    EQU    11D         SELECT/SEEK-READ/DESELECT
 SSWRD    EQU    12D         SELECT/SEEK-WRITE/DESELECT 
 CMDG     EQU    13D         PERFORM CONTROLLER DIAGNOSTICS 
 DRDG     EQU    14D         PERFORM DRIVE DIAGNOSTICS
 RQDT     EQU    15D         REQUEST DRIVE TYPE 
 RQTC     EQU    16D         REQUEST TASK COMPLETE
 IFMT     EQU    17D         INITIAL FORMAT 
 LCIML    EQU    18D         LOAD CONTROLLER IML DATA 
  
*IF -DEF,NOS,4
*IF -DEF,MVE
          IF     -DEF,QUAL$,1 
          QUAL   *
*ENDIF
          BASE   *
          ENDX
  
