;-*- mode: lisp; package: lambda; base: 8 -*-
;;;
;;; (c) Copyright 1984 - Lisp Machine, Inc.
;;;

(SI:DEFINE-SIMPLE-TRANSFORMATION :LAMBDA-ASSEMBLE LAMBDA:MICRO-ASSEMBLE-SYSTEM-TOP-LEVEL
     LAMBDA:FILE-TEST-ALWAYS (':LISP) (':LMC)
     NIL NIL T)	;LOAD like

(SI:DEFINE-SIMPLE-TRANSFORMATION :LAMBDA-ASSEMBLE-experimental
				 LAMBDA:MICRO-ASSEMBLE-SYSTEM-TOP-LEVEL-experimental
     LAMBDA:FILE-TEST-ALWAYS (':LISP) (':LMC)
     NIL NIL T)	;LOAD like

(SI:DEFINE-MAKE-SYSTEM-SPECIAL-VARIABLE SI:*FILES-TO-MICRO-ASSEMBLE* NIL)

(DEFSYSTEM UCODE
    (:NAME "Ucode")
    (:NICKNAMES "Lambda-Ucode")
    (:PACKAGE "LAMBDA")
    (:OUTPUT-PATHNAME "SYS:UBIN;ULAMBDA")
    (:PATHNAME-DEFAULT "SYS:ULAMBDA;")
    (:USE-FAST-READER T)
    (:LAMBDA-ASSEMBLE ("UC-PARAMETERS" "UC-LAMBDA"  ;UC-LAMBDA must follow UC-PARAMETERS
		       "UC-LAMBDA-MACROCODE" "UC-CALL-RETURN" "UC-STORAGE-ALLOCATION"
		       "UC-FCTNS" "UC-LAMBDA-ARRAY" "UC-LOGICAL" 
		       "UC-ARITH" "UC-STRING" "UC-TRANSPORTER" "UC-SCAVENGER"
		       "UC-STACK-CLOSURE"
		       "UC-METER" "UC-HACKS" "UC-TV" "UC-TRACK-MOUSE"
		       "UC-LAMBDA-PAGE-FAULT" "UC-LAMBDA-DISK" "UC-LAMBDA-INTERRUPT" 
		       "UC-CHAOS" "UC-STACK-GROUPS" "UC-LAMBDA-COLD-DISK" "UC-MC"
;		       "UC-PROLOG"
		       "UC-INITIALIZATION"  ;flushed from physical memory after initialization.
		       )))


(DEFSYSTEM kuke-UCODE
    (:PACKAGE "LAMBDA")
    (:OUTPUT-PATHNAME "lam3:kuke;ULAMBDA")
    (:PATHNAME-DEFAULT "SYS:ULAMBDA;")
    (:USE-FAST-READER T)
    (:LAMBDA-ASSEMBLE ("UC-PARAMETERS" "UC-LAMBDA"  ;UC-LAMBDA must follow UC-PARAMETERS
		       "UC-LAMBDA-MACROCODE" "UC-CALL-RETURN" "UC-STORAGE-ALLOCATION"
		       "UC-FCTNS" "UC-LAMBDA-ARRAY" "UC-LOGICAL" 
		       "UC-ARITH" "UC-STRING" "UC-TRANSPORTER" "UC-SCAVENGER"
		       "UC-STACK-CLOSURE"
		       "UC-METER" "UC-HACKS" "UC-TV" "UC-TRACK-MOUSE"
		       "UC-LAMBDA-PAGE-FAULT" "UC-LAMBDA-DISK" "UC-LAMBDA-INTERRUPT" 
		       "UC-CHAOS" "UC-STACK-GROUPS" "UC-LAMBDA-COLD-DISK" "UC-MC"
;		       "UC-PROLOG"
		       "lam3:kuke;st"		;string translate
		       "UC-INITIALIZATION"  ;flushed from physical memory after initialization.
		       )))