Adds LIBMAX AND MAXTUL FASL files. These are prerequisites for

building and running Macsyma.  Resolves #710 and #711.

src/libmax/ermsgx.5

@@ -0,0 +1,46 @@
+;-*-LISP-*-
+
+;This file contains support macros for the STRMRG package.
+
+(macsyma-module ERMSGX macro)
+
+(eval-when (eval compile)
+  (or (get 'defsetf 'version)
+      (load '((LISP) defsetf))))
+
+;; The fixnum which is stored into for buffering the whole-words we get
+;; back from IN.  This fixnum is DEPOSITed into.
+
+(defmacro message-file-buffer-pointer (message-file)
+  `(sfa-get ,message-file 0))
+
+(defmacro message-file-buffer (message-file)
+   `(EXAMINE (MAKNUM (message-file-buffer-pointer ,message-file))))
+
+;; The file array from which to read.  Should be open in FIXNUM IN mode.
+
+(defmacro message-file-file (message-file)
+   `(sfa-get ,message-file 1))
+
+;; The next character out of the fixnum which should be read in response to
+;; TYI.  Counted down from the left.  When zero, a new word must be read first.
+
+(defmacro message-file-charno (message-file)
+   `(sfa-get ,message-file 2))
+
+(defmacro message-file-header-count (message-file)
+  `(sfa-get ,message-file 3))
+
+(defmacro message-file-header-offset (message-file)
+  `(sfa-get ,message-file 4))
+
+(defmacro message-file-text-offset (message-file)
+  `(sfa-get ,message-file 5))
+
+(defmacro message-file-alist (message-file)
+  `(sfa-get ,message-file 6))
+
+(defvar message-file-size 7)
+
+(defsetf examine ((() loc) val) ()
+  `(deposit ,loc ,val))