(FILECREATED "21-Jun-84 19:41:23" {ERIS}<SPEECH>PILOTBBT.;1
 2466   

      changes to:  (VARS PILOTBBTCOMS))


(PRETTYCOMPRINT PILOTBBTCOMS)

(RPAQQ PILOTBBTCOMS
 ((RECORDS PILOTBBT)))
[DECLARE: EVAL@COMPILE 

(DATATYPE PILOTBBT
 ((PBTDESTLO WORD)
		    (PBTDESTHI WORD)
		    (PBTDESTBIT WORD)                        (* Destination bit address)

		    (PBTDESTBPL SIGNEDWORD)                  (* Destination bits per line -- distance in bits to move

							     between items)

		    (PBTSOURCELO WORD)
		    (PBTSOURCEHI WORD)
		    (PBTSOURCEBIT WORD)                      (* Source bit address)

		    (PBTSOURCEBPL SIGNEDWORD)                (* Source bits per line)

		    (PBTWIDTH WORD)                          (* Width of an item in bits)

		    (PBTHEIGHT WORD)                         (* Number of items -- height in scanlines)

		    (PBTFLAGS WORD)
		    (NIL 5 WORD)                             (* Unused, needed to make 16-alignment)

		    )
		   (BLOCKRECORD PILOTBBT ((NIL 7 WORD)
				 (NIL BITS 4)                (* Overlay on PBTSOURCEBPL when PBTUSEGRAY)

				 (PBTGRAYOFFSET BITS 4)      (* Offset in gray block where BITBLT should start)

				 (PBTGRAYWIDTHLESSONE BITS 4)
                                                             (* Width-1 of gray block in words)

				 (PBTGRAYHEIGHTLESSONE BITS 4)
                                                             (* Height-1 of gray block)

				 (NIL 2 WORD)                (* Overlay on PBTFLAGS ...)

				 (PBTBACKWARD FLAG)
				 (PBTDISJOINT FLAG)
				 (PBTDISJOINTITEMS FLAG)
				 (PBTUSEGRAY FLAG)
				 (PBTSOURCETYPE BITS 1)
				 (PBTOPERATION BITS 2)
				 (NIL BITS 9)))
		   [ACCESSFNS PILOTBBT ([PBTSOURCE (\VAG2 (fetch
 PBTSOURCEHI of
 DATUM)
							  (fetch
 PBTSOURCELO of
 DATUM))
						   (PROGN (replace
 PBTSOURCEHI of
 DATUM
							     with
 (\HILOC NEWVALUE))
							  (replace
 PBTSOURCELO of
 DATUM
							     with
 (\LOLOC NEWVALUE]
			       (PBTDEST (\VAG2 (fetch
 PBTDESTHI of
 DATUM)
					       (fetch
 PBTDESTLO of
 DATUM))
					(PROGN (replace
 PBTDESTHI of
 DATUM with
 (\HILOC NEWVALUE))
					       (replace
 PBTDESTLO of
 DATUM with
 (\LOLOC NEWVALUE]
		   (SYSTEM))
]
(/DECLAREDATATYPE (QUOTE PILOTBBT)
		  (QUOTE (WORD WORD WORD SIGNEDWORD WORD WORD WORD SIGNEDWORD WORD WORD WORD WORD 
			       WORD WORD WORD WORD)))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP