*COMDECK COMSIPA
*IF DEF,LISTDOC,1 
          LIST   X
          CTEXT  COMSIPA - IPI DAS 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 DISABLE 
 DRL      EQU    2           DCB (OEF) -- DRIVE RELEASE ENABLE
 DRS      EQU    1           DCB (OEF) -- DRIVE RESERVE ENABLE
 ILE      EQU    0#800       DCB (OEF) -- INTERLOCK MODE ENABLE 
 I4       EQU    0#200       DCB (OEF) -- I4/IPI DRIVER SELECT BIT
 I4PB     EQU    0#400       DCB (OEF) -- I4 PORT B SELECT (PORT A = 0) 
 PRE      EQU    0#100       DCB (OEF) -- PRIORITY RESERVE ENABLE 
 RTBR     EQU    0#10        DCB (OEF) -- ENABLE TSK RELEASE BEFORE RESP
 SLR      EQU    0#20        DCB (OEF) -- SLAVE RESET ENABLE
 SPE      EQU    0#1000      DCB (OEF) -- PARALLEL MODE ENABLE
 PDE      EQU    0#2000      DCB (OEF) -- PHYSICAL DRIVE ENABLE 
  
          EJECT 
  
*         COMMAND PACKETS INDEX CONSTANT EQUATES
  
 CR       EQU    1           CP -- COMMAND REFERENCE NUMBER 
 OM       EQU    2           CP -- OPCODE MODIFIER
 SA       EQU    3           CP -- SLAVE ADDRESS WORD 
 PM       EQU    4           CP -- PARAMETER WORD 
 CT1      EQU    5           CP -- HIGH-ORDER DATA COUNT
 CT2      EQU    6           CP -- LOW-ORDER DATA COUNT 
 DA1      EQU    7           CP -- CYLINDER ADDRESS 
 DA2      EQU    8D          CP -- 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 
 PHDA     EQU    8D          DCB -- PHYSICAL DRIVE ADDRESS
 CDG2     EQU    9D          DCB -- CONTROLLER DIAGNOSTIC SUBTEST 
 IBCL     EQU    9D          DCB -- LOWER IML BYTE COUNT FOR TASK 
 CDG3     EQU    10D         DCB -- CONTROLLER DIAGNOSTIC SUBTEST 
 CDG4     EQU    11D         DCB -- CONTROLLER DIAGNOSTIC SUBTEST 
 FWA1     EQU    12D         DCB -- (R-REG) UPPER FWA FOR CENTRAL 
 FWA2     EQU    13D         DCB -- (R-REG) LOWER FWA FOR CENTRAL 
 FWA3     EQU    14D         DCB -- (A-REG) PART OF CENTRAL MEMORY
 STC      EQU    15D         DCB -- NO. 2048-BYTE SECTORS FOR DATA
 IBSC     EQU    16D         DCB -- INTERVAL BURSTING SECTOR COUNT
 BIDS     EQU    17D         DCB -- BURST/INTRPT/DATA BLOCK SIZE
 GS       EQU    18D         DCB -- GENERAL STATUS WORD 
 FTSK     EQU    19D         DCB -- FAILING TASK
 LLE      EQU    20D         DCB -- LOW-LEVEL ERROR 
 PLLE     EQU    21D         DCB -- PREVIOUS (1ST) ERROR CAPTURED 
 LFCN     EQU    22D         DCB -- LAST FUNCTION 
 LSS      EQU    23D         DCB -- LATEST SELECT STATUS
 LBAS     EQU    24D         DCB -- LATEST BUS ACKNOWLEDGE STATUS 
 LSVS     EQU    25D         DCB -- LATEST SLAVE STATUS 
 LRIS     EQU    26D         DCB -- LATEST REQUEST INTERR STATUS
 LIER     EQU    27D         DCB -- CONTENTS OF IPI/LSI ERROR REGISTER
 LESR     EQU    28D         DCB -- CONTENTS OF ERROR STATUS REGISTER 
 LOSR     EQU    29D         DCB -- CONTENTS OF OPERATIONAL STATUS REG
 LISR     EQU    30D         DCB -- CONTENTS OF IPI/LSI STATUS REGISTER 
          EJECT 
  
*         MISCELLANEOUS EQUATES 
  
 MS       EQU    4           SB -- MAJOR STATUS 
 PMW      EQU    5           RCP -- 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 
 SCAB     EQU    19D         SET CONTROLLER ATTRIBUTE BUFFER SIZE 
 RDPFL    EQU    21D         READ PERFORMANCE LOG 
 RPADS    EQU    22D         REPORT ADDRESSEE STATUS
 CLUN     EQU    23D         CLUSTER UNIT AS 1X 
  
*IF -DEF,NOS,4
*IF -DEF,MVE
          IF     -DEF,QUAL$,1 
          QUAL   *
*ENDIF
          BASE   *
          ENDX
