(FILECREATED " 9-Sep-86 18:39:32" {ERIS}<TAMARIN>UCODE>VMTEST4.;1
 3532Q  

      changes to:  (VARS VMTEST4COMS vmtest4))


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

(PRETTYCOMPRINT VMTEST4COMS)

(RPAQQ VMTEST4COMS
 ((VARS vmtest4)))

(RPAQQ vmtest4
 (@ 0 GVAR (EvalBytes 3 (TamRep (QUOTE Ptr)
						10000100Q))
		    '1 GVAR← (EvalBytes 3 (TamRep (QUOTE Ptr)
						  10000100Q))
		    PCONST
		    (EvalBytes 4 (TamRep (QUOTE Ptr)
					 10002001Q))
		    COPY GETBASEPTR.N 100Q '1 PLUS PUTBASEPTR.N 100Q PCONST
		    (EvalBytes 4 (TamRep (QUOTE Ptr)
					 10004001Q))
		    COPY GETBASEPTR.N 100Q '1 PLUS RPLPTR.N 100Q FN0 (EvalBytes 3
										(AddAtom
										  (QUOTE Ovfn)))
		    STOP
		    (EvalBytes 0 (AddFnHeader (QUOTE RcFn)
					      100Q))
		    RETNP
		    (EvalBytes 0 (AddFnHeader (QUOTE PfFn)
					      200Q))
		    VAR8 ICONST (EvalBytes 4 (TamRep 77777777Q))
		    LOGAND LRSH.N 12Q SETTYPE.N (TamRep (QUOTE Ptr))
		    COPY GETBASEPTR.N 0 VAR9← '1 LOGAND '1 EQ FJUMPX 7 ICONST (EvalBytes
		      4
		      (TamRep 3))
		    JUMPX 5 ICONST (EvalBytes 4 (TamRep 1))
		    VAR9 LOGOR PUTBASEPTR.N 0 RESET-VMM RETNP @ 4000Q (EvalBytes -4 (TamRep 21Q))
		    (EvalBytes -4 (TamRep 20Q))
		    (EvalBytes -4 (TamRep 20Q))
		    (EvalBytes -4 (TamRep 20Q))
		    (EvalBytes -4 (TamRep 20Q))
		    (EvalBytes -4 (TamRep 20Q))
		    (EvalBytes -4 (TamRep 30Q))
		    (EvalBytes -4 (TamRep 34Q))
		    @ 10101Q (EvalBytes -4 (TamRep (QUOTE Int)
						   5))
		    (EvalBytes 0 (AddFnHeader (QUOTE Ovfn)
					      10014000Q))
		    JUMPXX
		    (EvalBytes 2 7712Q)
		    @ 20015770Q NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP 
		    NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP '0 '1 'NIL 'T NOP NOP NOP 
		    RETURN))
(PUTPROPS VMTEST4 COPYRIGHT ("Xerox Corporation" 3702Q))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP