$page "Include File For I/O Structure Access"                           00000100
                                                                        00000200
<<=========================================================             00001000
=                                                         =             00002000
=                  INCLIO - A0                            =             00003000
=                                                         =             00004000
=========================================================>>             00005000
COMMENT                                                                 00006000
                                                                        00007000
INCLUDE FILE FOR DISC RELATED DEFINES AND EQUATES                       00008000
AND MEMORY MANAGEMENT - I/O SYSTEM INTERFACING FIELDS                   00009000
                                                                        00010000
;                                                                       00011000
                                                                        00012000
integer pointer S'DISCREQ = %31,                                        00013000
                S'LPDT = %10,                                           00014000
                S'DST = %2,                                             00015000
                S'DITP = %0;   << Sysbase relative >>                   00016000
                                                                        00017000
<<                                                                      00018000
DISCREQTAB                                                              00019000
>>                                                                      00020000
                                                                        00021000
<<Disc Request Entry Declaration for db relative access>>               00022000
                                                                        00023000
INTEGER ARRAY DISCREQ00(*)=DB+0,                                        00024000
              DISCREQ01(*)=DB+1,                                        00025000
              DISCREQ02(*)=DB+2,                                        00026000
              DISCREQ03(*)=DB+3,                                        00027000
              DISCREQ04(*)=DB+4,                                        00028000
              DISCREQ05(*)=DB+5,                                        00029000
              DISCREQ06(*)=DB+6,                                        00030000
              DISCREQ07(*)=DB+7,                                        00031000
              DISCREQ08(*)=DB+8,                                        00032000
              DISCREQ09(*)=DB+9,                                        00033000
              DISCREQ10(*)=DB+10,                                       00034000
              DISCREQ11(*)=DB+11,                                       00035000
              DISCREQ12(*)=DB+12,                                       00036000
              DISCREQ13(*)=DB+13,                                       00037000
              DISCREQ14(*)=DB+14,                                       00038000
              DISCREQ15(*)=DB+15;                                       00039000
                                                                        00040000
<<Disc Request Entry Word Definitions>>                                 00041000
                                                                        00042000
DEFINE REQLDEVN=DISCREQ02(X)#,                                          00043000
       DISCREQFLAGS=DISCREQ00(X)#,                                      00044000
       PREVREQP=DISCREQ11(X)#,                                          00045000
       NEXTREQP=DISCREQ12(X)#,                                          00046000
       REQXFERDISP=DISCREQ14(X)#,                                       00047000
       AUXDISCREQFLAGS=DISCREQ15(X)#,                                   00048000
       REQOBJIDENT=DISCREQ13(X)#,                                       00049000
       REQDSTINFO=DISCREQ04(X)#,                                        00050000
       REQURGCLASS=DISCREQ01(X)#,                                       00051000
       REQMMBASE=DISCREQ05(X)#,                                         00052000
       REQMMBANK=DISCREQ04(X)#,                                         00053000
       REQTRANSFERCNT=DISCREQ07(X)#,                                    00054000
       REQHODA=DISCREQ08(X)#,                                           00055000
       REQLODA=DISCREQ09(X)#,                                           00056000
       DISCREQSTAT=DISCREQ10(X)#,                                       00057000
       DISCREQXFERCNT=DISCREQ07(X)#;                                    00058000
                                                                        00059000
<<Disc Request Entry Subfields>>                                        00060000
                                                                        00061000
DEFINE                                                                  00062000
                                                                        00063000
       REQDSTNFIELD=(6:10)#,                                            00064000
       REQSTKFLAG=(0:1)#,                                               00065000
       REQFUNCTION=DISCREQ06(X).(8:8)#,                                 00066000
       DISCREQSTATUS=DISCREQ10(X).(13:3)#;                              00067000
                                                                        00068000
<<Disc Request Entry Flags Definitions>>                                00069000
                                                                        00070000
DEFINE                                                                  00071000
                                                                        00072000
       ABORTREQATTMPTFLAG=(0:1)#,                                       00073000
       MMDISCREQFLAG=(1:1)#,                                            00074000
       REQSYSBUFR=(3:1)#,                                               00075000
       REQQUEUEDFLAG=(9:1)#,                                            00076000
       DITSCURRREQFLAG=(12:1)#,                                         00077000
       DEFFEREDREQFLAG=(13:1)#,                                         00078000
       DISABLEDREQFLAG=(13:1)#,  << For MPEIV compatibility >>          00078100
       LOGREQFLAG=(14:1)#;                                              00079000
                                                                        00080000
<<Disc Req Entry Flag Bit Numbers>>                                     00081000
                                                                        00082000
EQUATE ABORTREQATTMPTBIT=0,                                             00083000
       DEFERREDREQBIT=13,                                               00084000
       REQQUEUEDBIT=9,                                                  00085000
       DITSCURRREQBIT=12,                                               00086000
       MMDISCREQBIT=1;                                                  00087000
                                                                        00088000
<<Function Code Equates>>                                               00089000
                                                                        00090000
EQUATE READREQ=0,                                                       00091000
       WRITEREQ=1; <<FUNCTION CODE>>                                    00092000
                                                                        00093000
<<xfer status Definitions>>                                             00094000
                                                                        00095000
EQUATE                                                                  00096000
                                                                        00097000
   iostatusok = 1 ;                                                     00098000
                                                                        00099000
<<Urgency Class Definition>>                                            00100000
                                                                        00101000
EQUATE REQURGCLASSWORD=1,                                               00102000
       BKGRNDREADPRI=181,                                               00106000
       FORCEDWRITEPRI=10,                                               00107000
       BKGRNDPRI=255;                                                   00108000
                                                                        00109000
<<                                                                      00110000
DIT STRUCTURE                                                           00111000
>>                                                                      00112000
                                                                        00113000
LOGICAL ARRAY DIT00(*)=DB+0,                                            00114000
              DIT01(*)=DB+1,                                            00115000
              DIT02(*)=DB+2,                                            00116000
              DIT04(*)=DB+4;                                            00117000
                                                                        00118000
DEFINE DITFLAGS=DIT00(X)#,                                              00119000
       NEXTDITSYSBASEINX=DIT01(X)#,                                     00120000
       DITIOQP=DIT02(X)#,                                               00121000
       DITDLTP=DIT04(X)#;                                               00122000
                                                                        00123000
INTEGER ARRAY DISCDIT00(*)=DB+0,                                        00124000
              DISCDIT01(*)=DB+1,                                        00125000
              DISCDIT02(*)=DB+2,                                        00126000
              DISCDIT03(*)=DB+3,                                        00127000
              DISCDIT04(*)=DB+4,                                        00128000
              DISCDIT05(*)=DB+5,                                        00129000
              DISCDIT06(*)=DB+6,                                        00130000
              DISCDIT07(*)=DB+7,                                        00131000
              DISCDIT08(*)=DB+8,                                        00132000
              DISCDIT09(*)=DB+9;                                        00133000
                                                                        00134000
DEFINE DITACTIVEFLAG=(2:1)#,                                            00135000
       DIT'CACHE'ENABLED = (4:1)#;                                      00135100
                                                                        00136000
DEFINE DITQHEADP=DISCDIT08(X)#,                                         00137000
       DITQTAILP=DISCDIT09(X)#,                                         00138000
       DITCURRENTREQP=DISCDIT02(X)#;                                    00139000
                                                                        00140000
DEFINE conf'disc'req'cnt=(0:8)#;                                        00140100
                                                                        00140200
EQUATE                                                                  00141000
                                                                        00142000
   deferredqheadword = 8 ; <<pts to pnding q from entry 0 of>>          00143000
                          <<discreqtab>>                                00144000
                                                                        00145000
<< parameter equates for Queue/Dequeue Disc Req >>                      00146000
                                                                        00147000
EQUATE                                                                  00148000
                                                                        00149000
   <<qtype parameter>>                                                  00150000
                                                                        00151000
   deferredreqq = 0,                                                    00152000
   cdtreqq = 1,                                                         00153000
   ditreqq = 2;                                                         00154000
                                                                        00155000
<<Parameter Descriptions for DiscQManager>>                             00156000
                                                                        00157000
DEFINE ABORTDISCREQFLAG=(0:1)#, <<DISCQMANAGER'S REQUESTTYPE PARM>>     00158000
       DISABLEDISCREQFLAG=(15:1)#;                                      00159000
EQUATE                                                                  00160000
       QUEUEREQCODE=0,                                                  00161000
       DEFEREQCODE=1,                                                   00162000
       ABORTREQCODE=%100000;                                            00163000
                                                                        00164000
<<                                                                      00165000
DLT MM/DRIVER COMMUNICATION BITS                                        00166000
>>                                                                      00167000
                                                                        00168000
INTEGER ARRAY DLT(*)=DB+0;                                              00169000
                                                                        00170000
DEFINE DLTFLAGS=DLT(X)#,                                                00171000
       DLTDRVRFRZNFLAG=(8:1)#,                                          00172000
       DLTMMERRORCFLAG=(9:1)#;                                          00173000
                                                                        00174000
<<                                                                      00175000
GENERAL IOQ                                                             00176000
>>                                                                      00177000
                                                                        00178000
INTEGER ARRAY IOQ00(*)=DB+0,                                            00179000
              IOQ02(*)=DB+2;                                            00180000
                                                                        00181000
DEFINE IOQFLAGS=IOQ00(X)#,                                              00182000
       IOQLDEVNUMBER=IOQ02(X).(8:8)#,                                   00183000
       IOQDATAFZNFLAG=(7:1)#,                                           00184000
       IOQMMERRORDFLAG=(8:1)#;                                          00185000
                                                                        00186000
EQUATE sectorsizeinwords=128;                                           00187000
                                                                        00188000
                                                                        00189000
<<=========================================================             00190000
=                                                         =             00191000
=                  END INCLIO                             =             00192000
=                                                         =             00193000
=========================================================>>             00194000
