(FILECREATED "11-Jun-85 11:38:14" {ERIS}<LISPCORE>BUSMASTER>BUSRESET.;1
 625    

      changes to:  (VARS BUSRESETCOMS)
		   (FNS BUS.RESET))


(PRETTYCOMPRINT BUSRESETCOMS)

(RPAQQ BUSRESETCOMS
 ((FNS BUS.RESET)))
(DEFINEQ

(BUS.RESET

  [LAMBDA NIL                                                (* edited: "25-Sep-84 12:25")


          (* * reset the BusMaster and do a reset cycle on the external bus -- emit a control code then write a dummy datum to

	  trigger the cycle)



    (
BX.OUTPUT
 32 4)
    (
BX.OUTPUT
 0 5)
    (
BX.OUTPUT
 0 4)
    (
BX.OUTPUT
 0 5])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (224 603 (BUS.RESET 234 . 601)))))
STOP