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

diff --git a/mim/development/mim/vax/pmap.mud b/mim/development/mim/vax/pmap.mud
new file mode 100644
index 0000000..77910ff
--- /dev/null
+++ b/mim/development/mim/vax/pmap.mud
@@ -0,0 +1,25 @@
+
+<DEFINE I$GET-PAGES (PAGLOC PAGES "AUX" (TUV <STACK <IUVECTOR 2>>) ERR
+		     (STR "Error--ran out of virtual pages.  Killing processes may help.
+"))
+  #DECL ((PAGLOC PAGES) FIX (TUV) <UVECTOR [2 FIX]>)
+  <SET PAGLOC <- *17777777777* <PAGE-ADDRESS .PAGLOC>>>
+  <COND (<G? .PAGLOC <CHTYPE ,I$P1-SIZE FIX>>
+	 <CALL SYSCALL GETRLIMIT 3 .TUV>
+	 <1 .TUV .PAGLOC>
+	 <PROG ()
+	   <COND (<NOT <SET ERR <CALL SYSCALL SETRLIMIT 3 .TUV>>>
+		  <CALL PRINT 0 .STR <LENGTH .STR>>
+		  <CALL QUIT 0>
+		  <AGAIN>)
+		 (T
+		  <SETG I$P1-SIZE .PAGLOC>)>>)
+	(T)>>
+
+<DEFINE I$FLUSH-PAGES (PAGLOC PAGES)
+  #DECL ((PAGLOC PAGES) FIX)
+  T>
+
+<DEFINE I$ASK-SYSTEM-FOR-PAGES (PAGES PGTBL)
+  <>>
+