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
]