         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$PAGE "I/O SYSTEM IMPORTABLE PROCEDURE DECLARATIONS"                    00010000
                                                                        00015000
<< BEGIN INCLUDE FILE : INCLIOIM>>                                      00020000
                                                                        00025000
PROCEDURE HELP;                                                         00030000
OPTION EXTERNAL;                                                        00035000
                                                                        00040000
PROCEDURE INITIO(FLAGS);                                                00045000
VALUE FLAGS;                                                            00050000
INTEGER FLAGS;                                                          00055000
OPTION EXTERNAL;                                                        00060000
                                                                        00065000
INTEGER PROCEDURE  LDEVTOSUBTYPE(LDEV);                        <<s2299>>00067000
VALUE   LDEV;                                                  <<s2299>>00067100
INTEGER LDEV;                                                  <<s2299>>00067200
OPTION  EXTERNAL;                                              <<s2299>>00067300
                                                               <<s2299>>00067400
INTEGER PROCEDURE  LDEVTOTYPE(LDEV);                           <<s2299>>00067500
VALUE   LDEV;                                                  <<s2299>>00067600
INTEGER LDEV;                                                  <<s2299>>00067700
OPTION  EXTERNAL;                                              <<s2299>>00067800
                                                               <<s2299>>00067900
DOUBLE PROCEDURE TIMER;                                                 00070000
OPTION EXTERNAL;                                                        00075000
                                                                        00080000
PROCEDURE SUDDENDEATH(WHICH);                                           00085000
VALUE WHICH;                                                            00090000
INTEGER WHICH;                                                          00095000
OPTION EXTERNAL;                                                        00100000
                                                                        00105000
INTEGER PROCEDURE TIMEREQ(C,R,T);                                       00110000
VALUE C,R,T;                                                            00115000
INTEGER C,R;                                                            00120000
DOUBLE T;                                                               00125000
OPTION EXTERNAL;                                                        00130000
                                                                        00135000
PROCEDURE ABORTTIMEREQ(TRLX);                                           00140000
VALUE TRLX;                                                             00145000
INTEGER TRLX;                                                           00150000
OPTION EXTERNAL;                                                        00155000
                                                                        00160000
PROCEDURE AWAKEIO(DITP,FLAGS);                                          00165000
VALUE DITP,FLAGS;                                                       00170000
INTEGER POINTER DITP;                                                   00175000
INTEGER FLAGS;                                                          00180000
OPTION EXTERNAL;                                                        00185000
                                                                        00190000
DOUBLE PROCEDURE ATTACHIO(LDEV,QMISC,DSTX,ADR,FNCT,CNT,P1,P2,FLAGS);    00195000
VALUE LDEV,QMISC,DSTX,ADR,FNCT,CNT,P1,P2,FLAGS;                         00200000
INTEGER LDEV,QMISC,DSTX,ADR,FNCT,CNT,P1,P2,FLAGS;                       00205000
OPTION EXTERNAL;                                                        00210000
                                                                        00215000
INTEGER PROCEDURE GETDISCREQ(REQTYPE);                                  00220000
VALUE REQTYPE;                                                          00225000
INTEGER REQTYPE;                                                        00230000
OPTION EXTERNAL;                                                        00235000
                                                                        00240000
PROCEDURE RETURNDISCREQ(PNTR);                                          00245000
VALUE PNTR;                                                             00250000
INTEGER POINTER PNTR;                                                   00255000
OPTION EXTERNAL;                                                        00260000
                                                                        00265000
PROCEDURE STARTCLOCK(YEARDAY,TIMEDAY);                                  00270000
VALUE YEARDAY,TIMEDAY;                                                  00275000
INTEGER YEARDAY;                                                        00280000
DOUBLE TIMEDAY;                                                         00285000
OPTION EXTERNAL;                                                        00290000
                                                                        00295000
PROCEDURE DISCQMANAGER(REQP,REQUESTTYPE);                               00300000
VALUE REQP,REQUESTTYPE;                                                 00305000
INTEGER REQP,REQUESTTYPE;                                               00310000
OPTION EXTERNAL;                                                        00315000
                                                                        00320000
PROCEDURE QUEUEDISCREQ(REQP, QTYPE, AUXINFO);                           00325000
VALUE REQP, QTYPE, AUXINFO;                                             00330000
INTEGER REQP, QTYPE, AUXINFO;                                           00335000
OPTION EXTERNAL;                                                        00340000
                                                                        00345000
PROCEDURE DEQUEUEDISCREQ(REQP, QTYPE, AUXINFO);                         00350000
VALUE REQP, QTYPE, AUXINFO;                                             00355000
INTEGER REQP, QTYPE, AUXINFO;                                           00360000
OPTION EXTERNAL;                                                        00365000
                                                                        00370000
LOGICAL PROCEDURE CHEKTRLFREE;                                          00375000
OPTION EXTERNAL;                                                        00380000
                                                                        00385000
procedure CHECKLDEV(LDEV);                                              00390000
value LDEV;                                                             00395000
integer LDEV;                                                           00400000
option external;                                                        00405000
                                                                        00410000
double procedure WAITFORIO(IOQX);                                       00415000
value IOQX;                                                             00420000
integer IOQX;                                                           00425000
option external;                                                        00430000
                                                                        00435000
                                                                        00440000
<< This HARDRES procedure performs I/O request        >>                00445000
<< completion processing.  Called from CDT'COMPLETOR. >>                00450000
procedure SIODM'REQUEST'DONE(REQP,ADISC);                      <<07296>>00455000
value REQP,ADISC;                                              <<07296>>00460000
integer pointer REQP;                                                   00465000
logical ADISC;                                                 <<07296>>00470000
option external;                                                        00475000
                                                                        00480000
<< Call physical ATTACHIO if CACHING cannot satisfy request >>          00485000
DOUBLE PROCEDURE P'ATTACHIO(LDEV, QMISC, DSTX, ADDR, FNCT,     <<04317>>00490000
                            CNT, P1, P2, FLAGS,                <<04500>>00495000
                            EXTBASE, EXTSIZE);                 <<04500>>00500000
                                                               <<04317>>00505000
VALUE                       LDEV, QMISC, DSTX, ADDR, FNCT,     <<04317>>00510000
                            EXTBASE, EXTSIZE,                  <<04500>>00515000
                            CNT, P1, P2, FLAGS;                <<04317>>00520000
                                                               <<04317>>00525000
INTEGER                     LDEV, QMISC, DSTX, ADDR, FNCT,     <<04317>>00530000
                            CNT, P1, P2, FLAGS;                <<04317>>00535000
                                                               <<04317>>00540000
DOUBLE                      EXTBASE;                           <<04500>>00545000
                                                               <<04500>>00550000
LOGICAL                     EXTSIZE;                           <<04500>>00555000
                                                               <<04500>>00560000
OPTION PRIVILEGED, EXTERNAL, VARIABLE;                                  00565000
                                                                        00570000
PROCEDURE BUMPWRITEPRI(DISCREQENTRYINDEX,NEWPRI);              <<06795>>00575000
VALUE DISCREQENTRYINDEX,NEWPRI;                                <<06795>>00580000
INTEGER DISCREQENTRYINDEX,NEWPRI;                              <<06795>>00585000
OPTION EXTERNAL;                                               <<06795>>00590000
                                                               <<06795>>00595000
INTEGER PROCEDURE SERIALWRITEQMGR(DISCREQENTRYINDEX,           <<06795>>00600000
   CONTROLCODE,AUXINFO);                                       <<06795>>00605000
VALUE DISCREQENTRYINDEX,CONTROLCODE,AUXINFO;                   <<06795>>00610000
INTEGER DISCREQENTRYINDEX,CONTROLCODE,AUXINFO;                 <<06795>>00615000
OPTION EXTERNAL;                                               <<06795>>00620000
                                                               <<06795>>00625000
<< END INCLUDE FILE : INCLIOIM>>                                        00630000
                                                                        00635000
