DataMuseum.dk

top - download

    Length: 3145 (0xc49)
    Types: TextFile
    Names: »coldmd.scm.410«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/scheme/scm/coldmd.scm.410« 

TextFile

;;; -*-Scheme-*-
;;;
;;;	Copyright (c) 1984 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.
;;;

;;;; The Big Bang Cafe

;;; This code is executed before anything else.
;;; It must contain no symbols, because the fasloader will
;;; not yet have a symbol table to work with.

(declare
 (compilable-primitive-functions
  set-fixed-objects-vector! get-fixed-objects-vector
  vector-cons vector-set! scode-eval binary-fasload
  vector-ref hunk3-cons system-hunk3-cxr0
  system-hunk3-set-cxr1! system-hunk3-set-cxr2!
  coerce-fixnum-to-bignum
  ))
\f


;;; Make the fixed objects vector.
(set-fixed-objects-vector! (vector-cons #o40 '()))

;;; Make an interrupt vector.
(vector-set! (get-fixed-objects-vector)
	     1
	     (vector-cons #o10 '()))

;;; Make the non-object.
(vector-set! (get-fixed-objects-vector)
	     0
	     '(()))

;;; Make the obarray.
(vector-set! (get-fixed-objects-vector)
	     3
	     (vector-cons #o5671 '()))	;3001 is prime.

;;; Initialize history.

;; Make dummy history

(vector-set! (get-fixed-objects-vector)
	     19
	     (hunk3-cons (hunk3-cons #!FALSE #!FALSE #!FALSE)
			 #!FALSE #!FALSE))

;; Link vertebrae

(system-hunk3-set-cxr1! (vector-ref (get-fixed-objects-vector) 19)
			(vector-ref (get-fixed-objects-vector) 19))

(system-hunk3-set-cxr2! (vector-ref (get-fixed-objects-vector) 19)
			(vector-ref (get-fixed-objects-vector) 19))

;; Link reductions

(system-hunk3-set-cxr2!
 (system-hunk3-cxr0 (vector-ref (get-fixed-objects-vector) 19))
 (system-hunk3-cxr0 (vector-ref (get-fixed-objects-vector) 19)))

;;; Install bignum one

(vector-set! (get-fixed-objects-vector)
	     #x14
	     (coerce-fixnum-to-bignum 1))

(scode-eval (binary-fasload "runmd.bin") '())