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

diff --git a/mim/development/mim/20/pager-info.mima b/mim/development/mim/20/pager-info.mima
new file mode 100644
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 PRINT-INFO ("VALUE" <OR ATOM FALSE> "TUPLE" ANY)>
+		    <MAKTUP IGNORE4 TEMP9 TEMP10 TM6:FLOAT = IGNORE4>
+		    <INTGO>
+		    <GVAL 'AC-VECTOR = IGNORE4>
+		    <FRAME 'TIME>
+		    <CALL 'TIME 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 'PRINT-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 'PRINT-MANY 15 = TEMP10>
+		    <RETURN TEMP10>
+		    <DEAD TEMP10>
+		    <END PRINT-INFO>
+
+#WORD *20264174420*
+		    <GFCN IINFO ("VALUE" ANY)>
+		    <TEMP TEMP4>
+		    <INTGO>
+		    <SYSOP 'TIME-JSYS (RETURN 1) = TEMP4>
+		    <SETG 'INITIAL-TIME TEMP4>
+		    <DEAD TEMP4>
+		    <FRAME 'TIME>
+		    <CALL 'TIME 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 'CLASS>
+		    <PUSH "QUIT">
+		    <PUSH 1>
+		    <PUSH 'T>
+		    <CALL 'CLASS 3 = TEMP4>
+		    <SETG 'QUIT-CLASS TEMP4>
+		    <DEAD TEMP4>
+		    <FRAME 'ON>
+		    <FRAME 'HANDLER>
+		    <PUSH "QUIT">
+		    <GVAL 'PRINT-INFO = STACK>
+		    <CALL 'HANDLER 2 = STACK>
+		    <CALL 'ON 1 = TEMP4>
+		    <SETG 'QUIT-HANDLER TEMP4>
+		    <RETURN TEMP4>
+		    <DEAD TEMP4>
+		    <END IINFO>