(FILECREATED "21-May-86 11:14:35" {ERIS}<TAMARIN>WORK>SIMULATE>RELOAD.;1
 3797   

      changes to:  (VARS RELOADCOMS)
		   (FNS RELOADEMULATOR LOADTAMOPCODES MAKETAMOPCODEARRAY LOADLATEST)

      previous date: "21-May-86 09:04:25" {ERIS}<TAMARIN>UCODE>RELOAD.;1)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RELOADCOMS)

(RPAQQ RELOADCOMS
 ((FNS RELOADEMULATOR LOADLATEST LOADTAMOPCODES MAKETAMOPCODEARRAY)))
(DEFINEQ

(RELOADEMULATOR

  [LAMBDA NIL                                                (* rtk "21-May-86 11:13")

    (
LOAD?
 (
QUOTE
 ABC))
    (
CNDIR
 (
QUOTE
 {ERIS}<TAMARIN>UCODE>))
    (LOADLATEST
 (
QUOTE
 TAMARINEMULATOR))
    (LOADLATEST
 (
QUOTE
 MICROASSEMBLER))
    (LOADLATEST
 (
QUOTE
 EMULATORSUPPORT))
    (
LOAD?
 (
QUOTE
 LLB.DCOM))
    (
LOAD?
 (
QUOTE
 TESTOPS))
    (
CNDIR
 (
QUOTE
 {ERIS}<TAMARIN>WORK>SIMULATE>))
    (LOADLATEST
 (
QUOTE
 TSIMULATE))
    (LOADLATEST
 (
QUOTE
 TACCESS))
    (LOADLATEST
 (
QUOTE
 TOPEDIT))
    (LOADTAMOPCODES
)
    (MAKETAMOPCODEARRAY
)
    (
CNDIR
 (
QUOTE
 {ERIS}<TAMARIN>UCODE>])

(LOADLATEST

  [LAMBDA (FNAME)                                            (* rtk "21-May-86 10:55")

    (
PROG
 [(DN (
MKATOM
 (
CONCAT
 FNAME ".DCOM"]
	    (
PROG
 ((DCOMDATE (
GETFILEINFO
 DN (
QUOTE
 IWRITEDATE)))
		     (SRCDATE (
GETFILEINFO
 FNAME (
QUOTE
 IWRITEDATE)))
		     (FSRCNAME (
INFILEP
 FNAME))
		     (FDCOMNAME (
INFILEP
 DN))
		     CURRSRCDATE CURRDCOMDATE DCOMFLAG)
		    (if
 DCOMDATE
			then
 (
SETQ
 DCOMDATE (
DIFFERENCE
 DCOMDATE 60)))
		    (if
 SRCDATE
			then
 (
SETQ
 SRCDATE (
DIFFERENCE
 SRCDATE 60)))
		    [
SETQ
 CURRSRCDATE (
CAR
 (for
 i in
 (
GETPROP
 FNAME (
QUOTE
 FILEDATES))
						  thereis
 (
EQUAL
 (
CDR
 i)
								     FSRCNAME]
		    [
SETQ
 CURRDCOMDATE (
CAR
 (for
 i in
 (
GETPROP
 FNAME (
QUOTE
 FILEDATES))
						   thereis
 (
EQUAL
 (
CDR
 i)
								      FDCOMNAME]
		    (
SETQ
 DCOMFLAG (if
 (
AND
 DCOMDATE (
AND
 CURRDCOMDATE (
GREATERP

								    DCOMDATE
								    (
IDATE
 CURRDCOMDATE)))
						  (
GREATERP
 DCOMDATE SRCDATE))
					 then
 (
LOAD
 DN)
						(
QUOTE
 PROP)
				       else
 NIL))
		    (if
 (
AND
 CURRSRCDATE SRCDATE (
GREATERP
 SRCDATE (
IDATE
 CURRSRCDATE)))
			then
 (
LOAD
 FNAME DCOMFLAG])

(LOADTAMOPCODES

  [LAMBDA NIL                                                (* rtk "21-May-86 11:13")

    (
PROG
 (PROP (THEFILE ""))
	    (
PRINT
 "READING TAMARIN OPCODES")
	    (
SETQ
 THEFILE (
OPENFILE
 (
QUOTE
 TAMOPS)
					(
QUOTE
 INPUT)))
	    (
SETQ
 PROP (
READ
 THEFILE))
	    (
SETQ
 \TAMOPCODES (
HREAD
 THEFILE))
	    (
CLOSEF
 THEFILE)
	    (
PRINT
 "SETTING TAMARIN PROPERTIES")
	    (for
 I in
 \TAMOPCODES do
 (
PUTPROP
 (fetch
 (TOPCODE OPCODENAME) of
 I)
						      PROP I])

(MAKETAMOPCODEARRAY

  [LAMBDA NIL                                                (* rtk "18-Mar-86 07:48")

    (LET (OPNUM LOCARR)
         (
SETQ
 LOCARR (
ARRAY
 256 (
QUOTE
 POINTER)
				 NIL 0))
         (
PRINT
 "MAKEING   \TAMOPCODEARRAY")
         (for
 I in
 \TAMOPCODES
	    do
 (
PUTPROP
 (fetch
 (TOPCODE OPCODENAME) of
 I)
			    (
QUOTE
 TOPCODE)
			    I)
		 (
SETQ
 OPNUM (fetch
 (TOPCODE OP#) of
 I))
		 (if
 (
LISTP
 OPNUM)
		     then
 (for
 J from
 (
CAR
 OPNUM) to
 (
CADR
 OPNUM)
			       do
 (
SETA
 LOCARR J I))
		   else
 (
SETA
 LOCARR OPNUM I)))
         (
SETQ
 \TAMOPCODEARRAY LOCARR])
)
(PUTPROPS RELOAD COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (460 3720 (RELOADEMULATOR 470 . 1168) (LOADLATEST 1170 . 2478) (LOADTAMOPCODES 2480 . 
3026) (MAKETAMOPCODEARRAY 3028 . 3718)))))
STOP