HRL B,A
DOTCAL CORBLK,[[1000,,0],[1000,,-1],B]
FATAL INITM -- CAN'T FLUSH MIDDLE CORE
- MOVE A,[-<400-PHIBOT>,,PHIBOT]
- DOTCAL CORBLK,[[1000,,210000],[1000,,-1],A]
- FATAL INITM -- CAN'T PURIFY HIGH CORE
+ MOVE B,RHITOP
+ ASH B,-10.
+ SUBI B,1
+ MOVEI A,PHIBOT
+ SUB A,B
+ HRLS A
+ HRRI A,PHIBOT
+;FIXME Disabled because this doesn't succeed...
+; DOTCAL CORBLK,[[1000,,210000],[1000,,-1],A]
+; FATAL INITM -- CAN'T PURIFY HIGH CORE
]
IFE ITS,[