projects
/
pdp10-muddle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't try to purify pages that don't exist (dubious).
[pdp10-muddle.git]
/
<mdl.int>
/
initm.373
diff --git
a/<mdl.int>/initm.373
b/<mdl.int>/initm.373
index 9c6d748c3e42538fde10b2671e142e7ff4add79c..cf9547297d189836089608512dfd1ac14fd251ea 100644
(file)
--- a/
<mdl.int>/initm.373
+++ b/
<mdl.int>/initm.373
@@
-461,7
+461,13
@@
PURIMP: MOVE A,FRETOP
HRL B,A
DOTCAL CORBLK,[[1000,,0],[1000,,-1],B]
FATAL INITM -- CAN'T FLUSH MIDDLE CORE
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
]
DOTCAL CORBLK,[[1000,,210000],[1000,,-1],A]
FATAL INITM -- CAN'T PURIFY HIGH CORE
]