This CORBLK call fails. It's trying to make all pages from BOT to the
end of memory read-only; this change should make it only do this to
pages that actually exist. It doesn't work, though.
HRL B,A
DOTCAL CORBLK,[[1000,,0],[1000,,-1],B]
FATAL INITM -- CAN'T FLUSH MIDDLE CORE
- MOVE A,[-<400-PHIBOT>,,PHIBOT]
+ MOVE B,RHITOP
+ ASH B,-10.
+ SUBI B,1
+ MOVEI A,PHIBOT
+ SUB A,B
+ HRLS A
+ HRRI A,PHIBOT
DOTCAL CORBLK,[[1000,,210000],[1000,,-1],A]
FATAL INITM -- CAN'T PURIFY HIGH CORE
]