Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / caseld.mud.1

diff --git a/<mdl.comp>/caseld.mud.1 b/<mdl.comp>/caseld.mud.1
new file mode 100644 (file)
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>
+\f\ 3
\ No newline at end of file