Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / 20 / pmap.mud

diff --git a/mim/development/mim/20/pmap.mud b/mim/development/mim/20/pmap.mud
new file mode 100644 (file)
index 0000000..22ce574
--- /dev/null
+++ b/mim/development/mim/20/pmap.mud
@@ -0,0 +1,11 @@
+<DEFINE I$GET-PAGES (PAGLOC PAGES) T>
+
+<DEFINE I$FLUSH-PAGES (PAGLOC PAGES "AUX" ERR)
+       #DECL ((PAGES PAGLOC) FIX)
+       <COND (<NOT <SET ERR <CALL SYSOP PMAP -1 <ORB ,M$$MY-PROC-LH .PAGLOC>
+                                  <ORB ,M$$SETZ .PAGES>>>>
+              <ERROR PMAP-FAILURE!-ERRORS .ERR>)
+             (ELSE .ERR)>>
+
+<DEFINE I$ASK-SYSTEM-FOR-PAGES (PAGES PGTBL) <>>
+