<<=========================================================             00010000
=                                                         =             00015000
=                  inclknio i4                            =             00020000
=                                                         =             00025000
=========================================================>>             00030000
comment                                                                 00035000
                                                                        00040000
include file for disc related defines and equates                       00045000
and memory management - i/o system interfacing fields                   00050000
                                                                        00055000
;                                                                       00060000
integer pointer s'ditp = %0,                                   <<06801>>00065000
                s'dst  = %2;                                   <<06801>>00070000
                                                               <<06801>>00075000
equate readreq=0,                                                       00080000
       writereq=1; <<function code>>                                    00085000
equate iostatusok=1;  <<xfer status definition>>                        00090000
equate requrgclassword=1,                                               00095000
       queuereqcode=0,                                                  00100000
       disablereqcode=1,                                                00105000
       abortreqcode=%100000,                                            00110000
       bkgrndreadpri=181,                                               00115000
       forcedwritepri=10,                                               00120000
       bkgrndpri=255;                                                   00125000
define abortdiscreqflag=(0:1)#, <<discqmanager's requesttype parm>>     00130000
       disablediscreqflag=(15:1)#,                             <<06801>>00135000
       dit'cache'enabled = (4:1)#;                             <<06801>>00140000
                                                                        00145000
<<                                                                      00150000
dit structure                                                           00155000
>>                                                                      00160000
                                                                        00165000
logical array dit00(*)=db+0,                                            00170000
              dit01(*)=db+1,                                            00175000
              dit02(*)=db+2,                                            00180000
              dit04(*)=db+4;                                            00185000
                                                                        00190000
define ditflags=dit00(x)#,                                              00195000
       nextditsysbaseinx=dit01(x)#,                                     00200000
       ditioqp=dit02(x)#,                                               00205000
       ditdltp=dit04(x)#;                                               00210000
                                                                        00215000
integer array discdit00(*)=db+0,                                        00220000
              discdit01(*)=db+1,                                        00225000
              discdit02(*)=db+2,                                        00230000
              discdit03(*)=db+3,                                        00235000
              discdit04(*)=db+4,                                        00240000
              discdit05(*)=db+5,                                        00245000
              discdit06(*)=db+6,                                        00250000
              discdit07(*)=db+7,                                        00255000
              discdit08(*)=db+8,                                        00260000
              discdit09(*)=db+9;                                        00265000
                                                                        00270000
define ditactiveflag=(2:1)#;                                            00275000
                                                                        00280000
define ditqheadp=discdit08(x)#,                                         00285000
       ditqtailp=discdit09(x)#,                                         00290000
       ditcurrentreqp=discdit02(x)#;                                    00295000
                                                                        00300000
define conf'disc'req'cnt=(0:8)#;                                        00305000
                                                                        00310000
equate deferredreqq = 0,                                                00315000
       cdtreqq = 1,                                                     00320000
       ditreqq = 2;                                                     00325000
                                                                        00330000
<<                                                                      00335000
dlt mm/driver communication bits                                        00340000
>>                                                                      00345000
                                                                        00350000
integer array dlt(*)=db+0;                                              00355000
                                                                        00360000
define dltflags=dlt(x)#,                                                00365000
       dltdrvrfrznflag=(8:1)#,                                          00370000
       dltmmerrorcflag=(9:1)#;                                          00375000
                                                                        00380000
equate sectorsizeinwords = 128;                                         00385000
