         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$PAGE "INCLUDE FILE FOR IMPORTING CACHE MANAGEMENT ROUTINES"            00010000
                                                                        00015000
<< BEGIN INCLUDE FILE : INCLCIMP  >>                                    00020000
                                                                        00025000
                                                                        00030000
integer procedure CDT'GET'ENTRY;                                        00035000
option external;                                                        00040000
                                                                        00045000
procedure CDT'FREE'ENTRY(CDT'ENTRY);                                    00050000
value CDT'ENTRY;                                                        00055000
integer CDT'ENTRY;                                                      00060000
option external;                                                        00065000
                                                                        00070000
logical procedure CDT'SET'BIT(CDT'ENTRY,BIT'NUMBER,BIT'VALUE);          00075000
value CDT'ENTRY,BIT'NUMBER,BIT'VALUE;                                   00080000
integer CDT'ENTRY,BIT'NUMBER;                                           00085000
logical BIT'VALUE;                                                      00090000
option external;                                                        00095000
                                                                        00100000
logical procedure CDT'GET'BIT(CDT'ENTRY,BIT'NUMBER,BIT'VALUE);          00105000
value CDT'ENTRY,BIT'NUMBER,BIT'VALUE;                                   00110000
integer CDT'ENTRY,BIT'NUMBER;                                           00115000
logical BIT'VALUE;                                                      00120000
option external;                                                        00125000
                                                                        00130000
integer procedure CDT'SET'WORD(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);       00135000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00140000
integer CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                               00145000
option external;                                                        00150000
                                                                        00155000
integer procedure CDT'GET'WORD(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);       00160000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00165000
integer CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                               00170000
option external;                                                        00175000
                                                                        00180000
integer procedure CDT'ADD'WORD(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);       00185000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00190000
integer CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                               00195000
option external;                                                        00200000
                                                                        00205000
double procedure CDT'SET'DOUBLE(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);      00210000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00215000
integer CDT'ENTRY,WORD'NUMBER;                                          00220000
double WORD'VALUE;                                                      00225000
option external;                                                        00230000
                                                                        00235000
double procedure CDT'GET'DOUBLE(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);      00240000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00245000
integer CDT'ENTRY,WORD'NUMBER;                                          00250000
double WORD'VALUE;                                                      00255000
option external;                                                        00260000
                                                                        00265000
double procedure CDT'ADD'DOUBLE(CDT'ENTRY,WORD'NUMBER,WORD'VALUE);      00270000
value CDT'ENTRY,WORD'NUMBER,WORD'VALUE;                                 00275000
integer CDT'ENTRY,WORD'NUMBER;                                          00280000
double WORD'VALUE;                                                      00285000
option external;                                                        00290000
                                                                        00295000
DOUBLE PROCEDURE CDT'ATTACHIO(LDEV,QMISC,DSTX,ADDR,FNCT,                00300000
                              CNT,P1,P2,FLAGS,                          00305000
                              EXTBASE,EXTSIZE);                         00310000
                                                                        00315000
VALUE                       LDEV, QMISC, DSTX, ADDR, FNCT,              00320000
                            EXTBASE, EXTSIZE,                           00325000
                            CNT, P1, P2, FLAGS;                         00330000
                                                                        00335000
INTEGER                     LDEV, QMISC, DSTX, ADDR, FNCT,              00340000
                            CNT, P1, P2, FLAGS;                         00345000
                                                                        00350000
DOUBLE                      EXTBASE;                                    00355000
                                                                        00360000
LOGICAL                     EXTSIZE;                                    00365000
                                                                        00370000
option external;                                                        00375000
                                                                        00380000
procedure CDT'FORCE'LDR'COMPLETION(LDR'INDEX);                          00385000
value LDR'INDEX;                                                        00390000
integer LDR'INDEX;                                                      00395000
option external;                                                        00400000
                                                                        00405000
PROCEDURE LinkCachedRegion(regionbase);                                 00410000
VALUE regionbase;                                                       00415000
DOUBLE regionbase;                                                      00420000
OPTION EXTERNAL;                                                        00425000
                                                                        00430000
PROCEDURE UnlinkCachedRegion(regionbase);                               00435000
VALUE regionbase;                                                       00440000
DOUBLE regionbase;                                                      00445000
OPTION EXTERNAL;                                                        00450000
                                                                        00455000
PROCEDURE ProcessCDTLogReqQ(cdtentrynum, iostatus, xfercount);          00460000
VALUE cdtentrynum, iostatus, xfercount;                                 00465000
INTEGER cdtentrynum, iostatus, xfercount;                               00470000
OPTION EXTERNAL;                                                        00475000
                                                                        00480000
PROCEDURE CacheWriteComp(cdtentrynumber,xferstatus);                    00485000
VALUE cdtentrynumber,xferstatus;                                        00490000
INTEGER cdtentrynumber,xferstatus;                                      00495000
OPTION EXTERNAL;                                                        00500000
                                                                        00505000
LOGICAL PROCEDURE IsDevCachable(ldev);                                  00510000
VALUE ldev;                                                             00515000
INTEGER ldev;                                                           00520000
OPTION EXTERNAL;                                                        00525000
                                                                        00530000
LOGICAL PROCEDURE IsSysCachable;                                        00535000
OPTION EXTERNAL;                                                        00540000
                                                                        00545000
procedure CDT'QUEUE'LDR(CDT'ENTRY,LDR'INDEX,QUEUE);                     00550000
value CDT'ENTRY,LDR'INDEX,QUEUE;                                        00555000
integer CDT'ENTRY,LDR'INDEX,QUEUE;                                      00560000
option external;                                                        00565000
                                                                        00570000
procedure CDT'DEQUEUE'LDR(CDT'ENTRY,LDR'INDEX,QUEUE);                   00575000
value CDT'ENTRY,LDR'INDEX,QUEUE;                                        00580000
integer CDT'ENTRY,LDR'INDEX,QUEUE;                                      00585000
option external;                                                        00590000
                                                               <<06789>>00595000
integer procedure CDT'FIND'DE(LDEV);                           <<06789>>00600000
value LDEV;                                                    <<06789>>00605000
integer LDEV;                                                  <<06789>>00610000
option external;                                               <<06789>>00615000
                                                               <<06789>>00620000
INTEGER PROCEDURE FLUSH'CACHE(LDEV,START'ADDR,LIMIT'ADDR);     <<06789>>00625000
VALUE LDEV,START'ADDR,LIMIT'ADDR;                              <<06789>>00630000
INTEGER LDEV;                                                  <<06789>>00635000
DOUBLE START'ADDR,LIMIT'ADDR;                                  <<06789>>00640000
OPTION EXTERNAL;                                               <<06789>>00645000
<< END INCLUDE FILE : INCLCIMP  >>                                      00650000
