X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=MUDDLE%2Fpfunct.12;fp=MUDDLE%2Fpfunct.12;h=273feed89c6b8c25d76c999610a66b0fff37562e;hb=39c5769144e7f2a58076bdb973d2c80fa603345c;hp=0000000000000000000000000000000000000000;hpb=bab072f950a643ac109660a223b57e635492ac25;p=pdp10-muddle.git

diff --git a/MUDDLE/pfunct.12 b/MUDDLE/pfunct.12
new file mode 100644
index 0000000..273feed
--- /dev/null
+++ b/MUDDLE/pfunct.12
@@ -0,0 +1,26 @@
+<SETG PFUNCT <FUNCTION (OBLST CHAN)
+	<PROG (A B C D E (F 0))
+		<SET A 1>
+		<SET B <LENGTH .OBLST>>
+
+L2		<SET C <.A .OBLST>>
+L1		<COND (<=? .C ()> <GO FOO>)>
+
+		<COND (<GASSIGNED? <SET D <1 .C>>>
+			<SET E <TYPE <GVAL .D>>>
+			<COND (<OR <=? .E SUBR><=? .E FSUBR>>
+				<PRIN1 .D .CHAN>
+				<PRINC "  " .CHAN>
+				<PRIN1 .E .CHAN>
+				<COND (<=? 5 <SET F <+ .F 1>>> <SET F 0> <TERPRI .CHAN><TERPRI .CHAN>)
+					(ELSE <PRINC "	" .CHAN>
+					<SET FO <FLATSIZE .D 24>>
+					<COND (<1? .FO> <PRINC "		" .CHAN>)
+						(<L? .FO 10><PRINC "	" .CHAN>)>)>)>)>
+		<SET C <REST .C>>
+		<GO L1>
+FOO		<SET A <+ .A 1>>
+		<COND (<1? <- .A .B>> <RETURN "DONE">)>
+		<GO L2>
+>>>
+
\ No newline at end of file