Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / 20 / pager-info.mima

diff --git a/mim/development/mim/20/pager-info.mima b/mim/development/mim/20/pager-info.mima
new file mode 100644 (file)
index 0000000..b2003b3
--- /dev/null
+++ b/mim/development/mim/20/pager-info.mima
@@ -0,0 +1,105 @@
+
+<SETG AC-VECTOR <IUVECTOR 16>>
+
+<GDECL (AC-VECTOR) UVECTOR>
+
+#WORD *5153206002*
+                   <GFCN \1aPRINT-INFO ("VALUE" <OR ATOM FALSE> "TUPLE" ANY)>
+                   <MAKTUP IGNORE4 TEMP9 TEMP10 TM6:FLOAT = IGNORE4>
+                   <INTGO>
+                   <GVAL 'AC-VECTOR = IGNORE4>
+                   <FRAME '\1aTIME>
+                   <CALL '\1aTIME 0 = TEMP9>
+                   <GVAL 'INITIAL-CPU = TEMP10>
+                   <SUBF TEMP9 TEMP10 = TM6 (TYPE FLOAT)>
+                   <DEAD TEMP9 TEMP10>
+                   <SYSOP 'TIME-JSYS (RETURN 1) = TEMP10>
+                   <GVAL 'INITIAL-TIME = TEMP9>
+                   <SUB TEMP10 TEMP9 = TEMP10 (TYPE FIX)>
+                   <DEAD TEMP9>
+                   <FLOAT TEMP10 = TEMP10 (TYPE FLOAT)>
+                   <DIVF TEMP10 1000.0 = TEMP9 (TYPE FLOAT)>
+                   <DEAD TEMP10>
+                   <SYSOP 'GTRPI 131072 (RETURN ALL)>
+                   <FRAME '\1aPRINT-MANY>
+                   <GVAL 'OUTCHAN = STACK>
+                   <PUSH 'PRINC>
+                   <PUSH "CPU time:  ">
+                   <PUSH TM6>
+                   <PUSH "
+Real time:  ">
+                   <PUSH TEMP9>
+                   <PUSH " (">
+                   <DIVF TM6 TEMP9 = TEMP10 (TYPE FLOAT)>
+                   <DEAD TM6 TEMP9>
+                   <MULF TEMP10 100.0 = STACK (TYPE FLOAT)>
+                   <DEAD TEMP10>
+                   <PUSH "%)">
+                   <PUSH "
+Traps:  ">
+                   <NTHUU IGNORE4 1 = TEMP10 (TYPE FIX)>
+                   <GVAL 'INITIAL-TRAPS = TEMP9>
+                   <SUB TEMP10 TEMP9 = STACK (TYPE FIX)>
+                   <DEAD TEMP10 TEMP9>
+                   <PUSH "
+Faults:  ">
+                   <NTHUU IGNORE4 2 = TEMP9 (TYPE FIX)>
+                   <GVAL 'INITIAL-FAULTS = TEMP10>
+                   <SUB TEMP9 TEMP10 = STACK (TYPE FIX)>
+                   <DEAD TEMP9 TEMP10>
+                   <PUSH "
+Pager time:  ">
+                   <NTHUU IGNORE4 3 = TEMP10 (TYPE FIX)>
+                   <DEAD IGNORE4>
+                   <GVAL 'INITIAL-PAGER = TEMP9>
+                   <SUB TEMP10 TEMP9 = TEMP10 (TYPE FIX)>
+                   <DEAD TEMP9>
+                   <FLOAT TEMP10 = TEMP10 (TYPE FLOAT)>
+                   <DIVF TEMP10 1000.0 = STACK (TYPE FLOAT)>
+                   <DEAD TEMP10>
+                   <CALL '\1aPRINT-MANY 15 = TEMP10>
+                   <RETURN TEMP10>
+                   <DEAD TEMP10>
+                   <END \1aPRINT-INFO>
+
+#WORD *20264174420*
+                   <GFCN \1aIINFO ("VALUE" ANY)>
+                   <TEMP TEMP4>
+                   <INTGO>
+                   <SYSOP 'TIME-JSYS (RETURN 1) = TEMP4>
+                   <SETG 'INITIAL-TIME TEMP4>
+                   <DEAD TEMP4>
+                   <FRAME '\1aTIME>
+                   <CALL '\1aTIME 0 = TEMP4>
+                   <SETG 'INITIAL-CPU TEMP4>
+                   <DEAD TEMP4>
+                   <SYSOP 'GTRPI 131072 (RETURN ALL)>
+                   <GVAL 'AC-VECTOR = TEMP4>
+                   <NTHUU TEMP4 1 = TEMP4 (TYPE FIX)>
+                   <SETG 'INITIAL-TRAPS TEMP4>
+                   <DEAD TEMP4>
+                   <GVAL 'AC-VECTOR = TEMP4>
+                   <NTHUU TEMP4 2 = TEMP4 (TYPE FIX)>
+                   <SETG 'INITIAL-FAULTS TEMP4>
+                   <DEAD TEMP4>
+                   <GVAL 'AC-VECTOR = TEMP4>
+                   <NTHUU TEMP4 3 = TEMP4 (TYPE FIX)>
+                   <SETG 'INITIAL-PAGER TEMP4>
+                   <DEAD TEMP4>
+                   <FRAME '\1aCLASS>
+                   <PUSH "QUIT">
+                   <PUSH 1>
+                   <PUSH 'T>
+                   <CALL '\1aCLASS 3 = TEMP4>
+                   <SETG 'QUIT-CLASS TEMP4>
+                   <DEAD TEMP4>
+                   <FRAME '\1aON>
+                   <FRAME '\1aHANDLER>
+                   <PUSH "QUIT">
+                   <GVAL 'PRINT-INFO = STACK>
+                   <CALL '\1aHANDLER 2 = STACK>
+                   <CALL '\1aON 1 = TEMP4>
+                   <SETG 'QUIT-HANDLER TEMP4>
+                   <RETURN TEMP4>
+                   <DEAD TEMP4>
+                   <END \1aIINFO>