Initial revision

diff --git a/v7/src/compiler/machines/vax/assmd.scm b/v7/src/compiler/machines/vax/assmd.scm
new file mode 100644 (file)
index 0000000..599a050
--- /dev/null
+++ b/v7/src/compiler/machines/vax/assmd.scm
@@ -0,0 +1,86 @@
+#| -*-Scheme-*-
+
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/assmd.scm,v 1.1 1988/01/08 13:04:24 bal Exp $
+
+Copyright (c) 1987 Massachusetts Institute of Technology
+
+This material was developed by the Scheme project at the Massachusetts
+Institute of Technology, Department of Electrical Engineering and
+Computer Science.  Permission to copy this software, to redistribute
+it, and to use it for any purpose is granted, subject to the following
+restrictions and understandings.
+
+1. Any copy made of this software must include this copyright notice
+in full.
+
+2. Users of this software agree to make their best efforts (a) to
+return to the MIT Scheme project any improvements or extensions that
+they make, so that these may be included in future releases; and (b)
+to inform MIT of noteworthy uses of this software.
+
+3. All materials developed as a consequence of the use of this
+software shall duly acknowledge such use, in accordance with the usual
+standards of acknowledging credit in academic research.
+
+4. MIT has made no warrantee or representation that the operation of
+this software will be error-free, and MIT is under no obligation to
+provide any services, by way of maintenance, update, or otherwise.
+
+5. In conjunction with products arising from the use of this material,
+there shall be no use of the name of the Massachusetts Institute of
+Technology nor of any adaptation thereof in any advertising,
+promotional, or sales literature without prior written consent from
+MIT in each case. |#
+
+;;;; Assembler Machine Dependencies.  DEC Vax version
+
+(declare (usual-integrations))
+\f
+(declare (integrate addressing-granularity scheme-object-width
+                   maximum-padding-length
+                   maximum-block-offset block-offset-width))
+
+(define addressing-granularity 8)
+(define scheme-object-width 32)
+(define endianness 'LITTLE)
+
+;; Instructions can be any number of bytes long.
+;; Thus the maximum padding is 3 bytes.
+(define maximum-padding-length 24)
+
+;; Block offsets are encoded words
+
+(define maximum-block-offset (- (expt 2 15) 1))
+(define block-offset-width 16)
+
+(define (block-offset->bit-string offset start?)
+  (unsigned-integer->bit-string
+   block-offset-width
+   (+ offset (if start? offset (1+ offset)))))
+
+(define make-nmv-header
+  (let ((nmv-type-string
+        (unsigned-integer->bit-string 8
+                                      (microcode-type 'MANIFEST-NM-VECTOR))))
+    (named-lambda (make-nmv-header n)
+      (bit-string-append
+       (unsigned-integer->bit-string 24 n)
+       nmv-type-string))))
+
+(define (object->bit-string object)
+  (bit-string-append
+   (unsigned-integer->bit-string 24 (primitive-datum object))
+   (unsigned-integer->bit-string 8 (primitive-type object))))
+\f
+;;; Machine dependent instruction order
+
+(define (instruction-initial-position block)
+  0)
+
+(define (instruction-insert! bits block position receiver)
+  (declare (integrate receiver))
+  (let ((l (bit-string-length bits)))
+    (bit-substring-move-right! bits 0 l block position)
+    (receiver (+ position l))))
+
+(set! instruction-append bit-string-append)
\ No newline at end of file