X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fcaseld.mud.1;fp=%3Cmdl.comp%3E%2Fcaseld.mud.1;h=e81cef402cf193d0e814e93dc0775c601fab2505;hp=0000000000000000000000000000000000000000;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9

diff --git a/<mdl.comp>/caseld.mud.1 b/<mdl.comp>/caseld.mud.1
new file mode 100644
index 0000000..e81cef4
--- /dev/null
+++ b/<mdl.comp>/caseld.mud.1
@@ -0,0 +1,37 @@
+
+
+<USE "MACROS" "SORTX">
+
+<SET REDEFINE T>
+
+<PACKAGE "CC">
+
+<BEGIN-HACK "BTB">
+
+<BEGIN-MHACK>
+
+<COND (<NOT <GASSIGNED? CASE-CODE>> <SETG CASE-CODE ,SPARE1-CODE>)>
+
+<BLOCK (<ROOT>)>
+
+PRIMTYPE?
+
+<COND (<NOT <GASSIGNED? CASE>>
+       <SETG CASE (1)>)>
+
+<ENDBLOCK>
+
+<PROG ((CH <OR <OPEN "READB" "COMPIL;CASE FBIN">
+	       <OPEN "READB" "COMPIL;CASE NBIN">>))
+	<COND (.CH <PRINC "Using Compiled CASE."> <CRLF>
+	       <LOAD .CH><CLOSE .CH>)
+	      (ELSE <GROUP-LOAD "COMPIL;CASE >">)>>
+
+<PUT ,CASE PAPPLY-OBJECT ,CASE-FCN>
+
+<PUT ,ANALYZERS ,CASE-CODE ,CASE-ANA>
+
+<PUT ,GENERATORS ,CASE-CODE ,CASE-GEN>
+
+<ENDPACKAGE>
+
\ No newline at end of file