;
; THIS VERSION OF POOL PROVIDES ERROR CHECKING SUPPORT FOR THE
; ACT CACHE/45 CACHE MEMORY.  EVERY POOL MONITORING CYCLE IT CHECKS
; TO SEE IF THE CACHE/45'S DISABLE BIT IS SET IN IT'S CSR.  IF
; IT IS, A WARNING MESSAGE IS DISPLAYED 5 TIMES ON TT0:.  THIS COMMAND
; FILE MAY BE USED TO BUILD A VERSION OF POOL WHICH DOES NOT MONITOR
; THE CACHE/45.  TO DO THIS THE GLOBAL DEFINITION OF CSHCSR SHOULD
; BE ZERO. IF IT IS SET TO ZERO, THE CACHE/45 CODE IS SKIPPED.
.ENABLE SUBSTITUTION
MAC POOL.OBJ;1=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'<UIC>'POOL
.OPEN POOLBLD.CMD;1
.DATA POOL.TSK;1/PR/CP/-FP/MM=POOL,LB:[1,54]RSX11M.STB
.DATA /
.DATA PRI=100
.DATA ASG=TT0:1
.DATA ASG=CO:3
.DATA STACK=100
.DATA TASK=POOL
.DATA UNITS=3
.DATA GBLDEF=TOTLMT:764
.DATA GBLDEF=LGELMT:310
.DATA ;GBLDEF=CSHCSR:VALUE		; SET VALUE TO CACHE/45 CSR REGISTER
;.DATA  GBLDEF=CSHCSR:165006		; FOR USE WITH A ACT CACHE/45 CACHE MEMORY
.DATA   ;GBLDEF=CSHCSR:175006		; ALTERNATE ACT CACHE/45 CSR REGISTER
.DATA GBLDEF=CSHCSR:0			; IF ONE HAS NO CACHE/45
.DATA PAR=GEN
.DATA //
.CLOSE
TKB @POOLBLD
TCF 7