(FILECREATED "12-Jun-86 16:41:17" {ERIS}<TAMARIN>UCODE>MISCX.;2
 13710Q 

      changes to:  (FNS MakeMiscPla)
		   (VARS MISCXCOMS)

      previous date: "12-Jun-86 13:08:11" {ERIS}<TAMARIN>UCODE>MISCX.;1)


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

(PRETTYCOMPRINT MISCXCOMS)

(RPAQQ MISCXCOMS
 ((* * Misc Actions)
		    (FNS DoMisc ClockMisc MakeMiscPla PrechargeSync ClockSync)))
(* * Misc Actions)


(DEFINEQ

(DoMisc

  [LAMBDA NIL                                                (* agb: "12-Jun-86 11:45")

                                                             (* Decoder (fetch (MI Misc) of #MIR) 1 

							     (QUOTE (none #Misc-EnableInts #Misc-DisableInts 

							     #Misc-WriteOctal #Misc-OpLength=0 #Misc-Reset 

							     #Misc-NoteTag #Misc-Stop #Misc-SetInitialRefill 

							     #Misc-ResetInitialRefill #Misc-ClearNoteTag)))

    (if
 (
EQ
 37Q (fetch
 (MI Misc) of
 #MIR))
	then
 (
PRINT
 "Emulator stopped")
	       (
TS.MAINMENUSELECTEDFN
 (
QUOTE
 Exit)
					(
WINDOWPROP
 TS.MAINWINDOW (
QUOTE
 DEBUGMENU))
					(
QUOTE
 LEFT)))
    (
EvaluatePLA
 MiscPlaSpec (
QUOTE
 MiscPla])

(ClockMisc

  [LAMBDA NIL                                                (* agb: "12-Jun-86 12:37")

    (
ExecuteClock
 (
QUOTE
 (((*Op)
				(@SetOutputInt~ $SetOutputInt~)
				(@ResetOutputInt~ $ResetOutputInt~)
				(@SetInitialRefill~ $SetInitialRefill~)
				(@ResetInitialRefill~ $ResetInitialRefill~)
				(@SetStackRefill~ $SetStackRefill~)
				(@ResetStackRefill~ $ResetStackRefill~)
				(@SetInterruptEnable~ $SetInterruptEnable~)
				(@ResetInterruptEnable~ $ResetInterruptEnable~)
				(@SetMemLock~ $SetMemLock~)
				(@ResetMemLock~ $ResetMemLock~)
				(@SetRefCnt~ $SetRefCnt~)
				(@ResetRefCnt~ $ResetRefCnt~)
				(@OpLength=0 $OpLength=0)
				(@ResetRefresh $ResetRefresh)
				(@Resetinterrupt $ResetInterrupt))
			       (((Not (@SetOutputInt~)))
				(1 $OutputInt))
			       (((Not (@ResetOutputInt~)))
				(0 $OutputInt))
			       (((Not (@SetInitialRefill~)))
				(1 $InitialRefill))
			       (((Not (@ResetInitialRefill~)))
				(0 $InitialRefill))
			       (((Not (@SetStackRefill~)))
				(1 $StackRefill))
			       (((Not (@ResetStackRefill~)))
				(0 $StackRefill))
			       (((Not (@SetInterruptEnable~)))
				(1 $InterruptEnable))
			       (((Not (@ResetInterruptEnable~)))
				(0 $InterruptEnable))
			       (((Not (@SetMemLock~)))
				(1 $MemLock))
			       (((Not (@ResetMemLock~)))
				(0 $MemLock))
			       (((Not (@SetRefCnt~)))
				(1 $RefCnt))
			       (((Not (@ResetRefCnt~)))
				(0 $RefCnt))
			       ((*Micro)
				($StackRefill #$StackRefill)
				($OutputInt #$OutputInt)
				($StackRefill #$StackRefill)
				($InterruptEnable~ #$InterruptEnable~)
				($MemLock #$MemLock)
				($RefCnt #$RefCnt)
				($ResetRefresh #$ResetRefresh)
				($OpLength=0 #OpLength=0)
				($ResetInterrupt #$ResetInterrupt)
				($InitialRefill #InitialRefill))
			       ((*Micro $OpLength=0)
				(0 #$OpLength])

(MakeMiscPla

  [LAMBDA NIL                                                (* agb: "12-Jun-86 14:43")

    (
SETQ
 MiscPlaSpec
      (
MakePlaSpec
 (
QUOTE
 (((#MIR Misc)
				 0 5 0)))
		     (
QUOTE
 ((@SetOutputInt~ 1 1 0)
				(@ResetOutputInt~ 1 1 0)
				(@SetInitialRefill~ 2 1 0)
				(@ResetInitialRefill~ 2 1 0)
				(@SetStackRefill~ 3 1 0)
				(@ResetStackRefill~ 3 1 0)
				(@SetInterruptEnable~ 4 1 0)
				(@ResetInterruptEnable~ 4 1 0)
				(@SetMemLock~ 5 2 0)
				(@ResetMemLock~ 5 2 0)
				(@SetRefCnt~ 6 2 0)
				(@ResetRefCnt~ 6 2 0)
				(@ResetRefresh 7 1 0)
				(@ResetInterrupt 7 1 0)
				(@OpLength=0 10Q 1 0)
				(@WriteOctal 11Q 1 0)
				(@Reset-VMM 12Q 1 0)))
		     (
QUOTE
 ((0 - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
				(1 - 0 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 setoutputint)
				(2 - 1 0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 resetoutputint)
				(3 - 1 1 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 setinitialrefill)
				(4 - 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 0 0 resetinitialrefill)
				(5 - 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 0 setstackrefill)
				(6 - 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 0 0 resetstackrefill)
				(7 - 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 0 0 setinterruptenable)
				(10Q - 1 1 1 1 1 1 1 0 1 1 1 1 0 0 0 0 0 resetinterruptenable)
				(11Q - 1 1 1 1 1 1 1 1 0 1 1 1 0 0 0 0 0 setmemlock)
				(12Q - 1 1 1 1 1 1 1 1 1 0 1 1 0 0 0 0 0 resetmemlock)
				(20Q - 1 1 1 1 1 1 1 1 1 1 0 1 0 0 0 0 0 setrefcnt)
				(21Q - 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 resetrefcnt)
				(13Q - 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 resetrefresh)
				(22Q - 1 1 1 1 1 1 1 1 1 1 1 1 0 1 0 0 0 resetinterrupt)
				(14Q - 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 0 0 oplength=0)
				(15Q - 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 0 writeoctal)
				(16Q - 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 reset-vmm)
				(17Q - 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 0 1 reset)
				(23Q - 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 0 0 
				     oplength=0&resetinitialrefill)
				(37Q - 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 stop])

(PrechargeSync

  [LAMBDA NIL                                                (* agb: "12-Jun-86 13:05")

    (
ExecuteClock
 (
QUOTE
 (((T)
				(Reset pReset)
				(Hold pHold)
				(Refresh pRefresh)
				(upRefresh pupRefresh)
				(Interrupt pInterrupt)
				(upInterrupt pupInterrupt])

(ClockSync

  [LAMBDA NIL                                                (* agb: "12-Jun-86 13:03")

    [
ExecuteClock
 (
QUOTE
 (((T)
				(pReset @Reset)
				(pHold SHold)
				(pRefresh upRefresh)
				(pupRefresh upupRefresh)
				(pInterrupt upInterrupt)
				(pupInterrupt upupInterrupt]
    (
SETQ
 #Hold (
LAND
 SHold #$MemLock))
    (
SETQ
 #SetRefresh (
LAND
 upRefresh (
LNOT
 upupRefresh)))
    (
SETQ
 #SetInterrupt (
LAND
 upInterrupt (
LNOT
 upupInterrupt)))
    (
ExecuteClock
 (
QUOTE
 (((#SetRefresh)
				(1 #Refresh))
			       ((#$ResetRefresh)
				(0 #Refresh))
			       ((#SetInterrupt)
				(1 #Interrupt))
			       ((#$ResetInterrupt)
				(0 #Interrupt])
)
(PUTPROPS MISCX COPYRIGHT ("Xerox Corporation" 3702Q))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (672Q 13573Q (DoMisc 704Q . 2264Q) (ClockMisc 2266Q . 5753Q) (MakeMiscPla 5755Q . 11616Q
) (PrechargeSync 11620Q . 12266Q) (ClockSync 12270Q . 13571Q)))))
STOP