(FILECREATED " 7-JAN-83 17:12:20" {PHYLUM}<LISPCORE>SOURCES>PPBLT.;1
 1167   

      changes to:  (VARS PPBLTCOMS)
		   (FNS \PRINTERPORTBLT))


(* Copyright (c) 1983 by Xerox Corporation)

(PRETTYCOMPRINT PPBLTCOMS)

(RPAQQ PPBLTCOMS
 ((FNS \PRINTERPORTBLT)))
(DEFINEQ

(\PRINTERPORTBLT

  [LAMBDA (BASE BYTECOUNT)                                   (* scp " 7-JAN-83 17:10")

    (PROG NIL
      LP                                                     (* check interupts or faults)

          (IF
 (ZEROP BYTECOUNT)
	      THEN
 (RETURN NIL))
          (IF
 (NOT (ZEROP (LOGAND (READPRINTERPORT)
				  32768)))
	      THEN
 (RETURN BYTECOUNT))
          (WRITEPRINTERPORT (GETBASEBYTE BASE 0))
          (WRITEPRINTERPORT 256)
          (SETQ BYTECOUNT (SUB1 BYTECOUNT))
          (IF
 (NOT (ZEROP (LOGAND (READPRINTERPORT)
				  32768)))
	      THEN
 (RETURN BYTECOUNT))
          (WRITEPRINTERPORT (GETBASEBYTE BASE 1))
          (WRITEPRINTERPORT 256)
          (SETQ BYTECOUNT (SUB1 BYTECOUNT))
          (SETQ BASE (ADDBASE BASE 1))
          (GO LP])
)
(PUTPROPS PPBLT COPYRIGHT ("Xerox Corporation" 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (267 1091 (\PRINTERPORTBLT 277 . 1089)))))
STOP