$PAGE "INCLUDE FILE FOR IMPORTING CACHE MANAGEMENT ROUTINES"            00001000
                                                                        00002000
<< BEGIN INCLUDE FILE : INCLCIMP  >>                                    00003000
                                                                        00004000
                                                                        00005000
integer procedure CDT'GET'ENTRY;                                        00006000
option external;                                                        00007000
                                                                        00008000
procedure CDT'FREE'ENTRY(CDT'ENTRY);                                    00009000
value CDT'ENTRY;                                                        00010000
integer CDT'ENTRY;                                                      00011000
option external;                                                        00012000
                                                                        00013000
logical procedure CDT'SET'BIT(CDT'ENTRY,BIT'NUMBER,BIT'VALUE);          00014000
value CDT'ENTRY,BIT'NUMBER,BIT'VALUE;                                   00015000
integer CDT'ENTRY,BIT'NUMBER;                                           00016000
logical BIT'VALUE;                                                      00017000
option external;                                                        00018000
                                                                        00019000
logical procedure CDT'GET'BIT(CDT'ENTRY,BIT'NUMBER,BIT'VALUE);          00020000
value CDT'ENTRY,BIT'NUMBER,BIT'VALUE;                                   00021000
integer CDT'ENTRY,BIT'NUMBER;                                           00022000
logical BIT'VALUE;                                                      00023000
option external;                                                        00024000
                                                                        00025000
integer procedure CDT'SET'WORD(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);       00026000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00027000
integer CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                               00028000
option external;                                                        00029000
                                                                        00030000
integer procedure CDT'GET'WORD(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);       00031000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00032000
integer CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                               00033000
option external;                                                        00034000
                                                                        00035000
integer procedure CDT'ADD'WORD(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);       00036000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00037000
integer CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                               00038000
option external;                                                        00039000
                                                                        00040000
double procedure CDT'SET'DOUBLE(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);      00041000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00042000
integer CDT'ENTRY,WORD'NUMBER;                                          00043000
double WORD'VALUE;                                                      00044000
option external;                                                        00045000
                                                                        00046000
double procedure CDT'GET'DOUBLE(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);      00047000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00048000
integer CDT'ENTRY,WORD'NUMBER;                                          00049000
double WORD'VALUE;                                                      00050000
option external;                                                        00051000
                                                                        00052000
double procedure CDT'ADD'DOUBLE(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);      00053000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00054000
integer CDT'ENTRY,WORD'NUMBER;                                          00055000
double WORD'VALUE;                                                      00056000
option external;                                                        00057000
                                                                        00058000
DOUBLE PROCEDURE CDT'ATTACHIO(LDEV,QMISC,DSTX,ADDR,FNCT,                00059000
                              CNT,P1,P2,FLAGS,                          00060000
                              EXTBASE,EXTSIZE);                         00061000
                                                                        00062000
VALUE                       LDEV, QMISC, DSTX, ADDR, FNCT,              00063000
                            EXTBASE, EXTSIZE,                           00064000
                            CNT, P1, P2, FLAGS;                         00065000
                                                                        00066000
INTEGER                     LDEV, QMISC, DSTX, ADDR, FNCT,              00067000
                            CNT, P1, P2, FLAGS;                         00068000
                                                                        00069000
DOUBLE                      EXTBASE;                                    00070000
                                                                        00071000
LOGICAL                     EXTSIZE;                                    00072000
                                                                        00073000
option external;                                                        00074000
                                                                        00075000
procedure CDT'FORCE'LDR'COMPLETION(LDR'INDEX);                          00076000
value LDR'INDEX;                                                        00077000
integer LDR'INDEX;                                                      00078000
option external;                                                        00079000
                                                                        00080000
PROCEDURE LinkCachedRegion(regionbase);                                 00081000
VALUE regionbase;                                                       00082000
DOUBLE regionbase;                                                      00083000
OPTION EXTERNAL;                                                        00084000
                                                                        00085000
PROCEDURE UnlinkCachedRegion(regionbase);                               00086000
VALUE regionbase;                                                       00087000
DOUBLE regionbase;                                                      00088000
OPTION EXTERNAL;                                                        00089000
                                                                        00090000
PROCEDURE ProcessCDTLogReqQ(cdtentrynum, iostatus, xfercount);          00091000
VALUE cdtentrynum, iostatus, xfercount;                                 00092000
INTEGER cdtentrynum, iostatus, xfercount;                               00093000
OPTION EXTERNAL;                                                        00094000
                                                                        00095000
PROCEDURE CacheWriteComp(cdtentrynumber,xferstatus);                    00096000
VALUE cdtentrynumber,xferstatus;                                        00097000
INTEGER cdtentrynumber,xferstatus;                                      00098000
OPTION EXTERNAL;                                                        00099000
                                                                        00100000
LOGICAL PROCEDURE IsDevCachable(ldev);                                  00101000
VALUE ldev;                                                             00102000
INTEGER ldev;                                                           00103000
OPTION EXTERNAL;                                                        00104000
                                                                        00105000
LOGICAL PROCEDURE IsSysCachable;                                        00106000
OPTION EXTERNAL;                                                        00107000
                                                                        00108000
procedure CDT'QUEUE'LDR(CDT'ENTRY,LDR'INDEX,QUEUE);                     00109000
value CDT'ENTRY,LDR'INDEX,QUEUE;                                        00110000
integer CDT'ENTRY,LDR'INDEX,QUEUE;                                      00111000
option external;                                                        00112000
                                                                        00113000
procedure CDT'DEQUEUE'LDR(CDT'ENTRY,LDR'INDEX,QUEUE);                   00114000
value CDT'ENTRY,LDR'INDEX,QUEUE;                                        00115000
integer CDT'ENTRY,LDR'INDEX,QUEUE;                                      00116000
option external;                                                        00117000
                                                                        00117100
integer procedure CDT'FIND'DE(LDEV);                                    00117200
value LDEV;                                                             00117300
integer LDEV;                                                           00117400
option external;                                                        00117500
                                                                        00117600
INTEGER PROCEDURE FLUSH'CACHE(LDEV,START'ADDR,LIMIT'ADDR);              00117700
VALUE LDEV,START'ADDR,LIMIT'ADDR;                                       00117800
INTEGER LDEV;                                                           00117900
DOUBLE START'ADDR,LIMIT'ADDR;                                           00117910
OPTION EXTERNAL;                                                        00117920
<< END INCLUDE FILE : INCLCIMP  >>                                      00118000
