X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2F20%2Fpmap.mima;fp=mim%2Fdevelopment%2Fmim%2F20%2Fpmap.mima;h=1735d5a46616e0ac7015061be69bc9bd3c04c47b;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/20/pmap.mima b/mim/development/mim/20/pmap.mima
new file mode 100644
index 0000000..1735d5a
--- /dev/null
+++ b/mim/development/mim/20/pmap.mima
@@ -0,0 +1,72 @@
+
+<GFCN I$GET-PAGES ("VALUE" ATOM ANY ANY) PAGLOC5 PAGES6> 
+
+<TEMP> 
+
+<INTGO> 
+
+AGAIN2 
+
+RETURN3 
+
+<RETURN 'T> 
+
+<END> 
+
+<GFCN I$FLUSH-PAGES ("VALUE" ANY FIX FIX) PAGLOC5 PAGES6> 
+
+<TEMP TEMP10 TEMP11 ERR7> 
+
+<INTGO> 
+
+AGAIN2 
+
+<OR PAGLOC5 #WORD *400000000000* = TEMP10> 
+
+<OR PAGES6 #WORD *400000000000* = TEMP11> 
+
+<SYSOP 'PMAP -1 TEMP10 TEMP11 = ERR7> 
+
+<DEAD TEMP11 TEMP10> 
+
+<TYPE? ERR7 <TYPE-CODE FALSE> - PHRASE9> 
+
+<FRAME 'ERROR> 
+
+<PUSH 'PMAP-FAILURE!-ERRORS> 
+
+<PUSH ERR7> 
+
+<CALL 'ERROR 2 = TEMP11> 
+
+<JUMP + COND8> 
+
+PHRASE9 
+
+<SET TEMP11 ERR7> 
+
+PHRASE12 
+
+COND8 
+
+RETURN3 
+
+<RETURN TEMP11> 
+
+<DEAD TEMP11> 
+
+<END> 
+
+<GFCN I$ASK-SYSTEM-FOR-PAGES ("VALUE" FALSE ANY ANY) PAGES5 PGTBL6> 
+
+<TEMP> 
+
+<INTGO> 
+
+AGAIN2 
+
+RETURN3 
+
+<RETURN #FALSE ()> 
+
+<END>