(FILECREATED "21-Dec-84 15:34:34" {ERIS}<LISPCORE>SOURCES>MULTIBUS.;2
 4220   

      changes to:  (FNS PCWRITE PCOUTPUT PCREADTEST PCREAD PCINPUT TEST6 TEST9 TEST7 TEST8)
		   (VARS MULTIBUSCOMS TESTADDRESS BABOON)

      previous date: "19-Dec-84 02:03:05" {IVY}<PURCELL>LISP>MULTIBUS.;4)


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT MULTIBUSCOMS)

(RPAQQ MULTIBUSCOMS
 ((FNS PCMEMTEST PCREADTEST PCWRITETEST PCCTLTEST PCREAD PCWRITE PCINPUT PCOUTPUT 
			  TEST3 TEST4 TEST5 TEST6 TEST7 TEST8 TEST9)
	(MACROS PCWRITE)
	(VARS TESTADDRESS)))
(DEFINEQ

(PCMEMTEST

  [LAMBDA (D A)                                              (* edited: "19-Dec-84 01:23")

    (OR A (SETQ A 61440))
    (OR D (SETQ D 43690))
    (PCWRITE
 A D)
    (COND
      ((NEQ D (PRINT (PCREAD
 A)))
	(HELP])

(PCREADTEST

  [LAMBDA (A D)                                              (* edited: "21-Dec-84 13:59")

    (OR A (SETQ A 3770000Q))
    (OR D (SETQ D 125252Q))
    (PCWRITE
 A D)
    (PRINT (PCREAD
 A))
    (do
 (\DEVICE.OUTPUT D 40Q)
	(\DEVICE.INPUT 51Q])

(PCWRITETEST

  [LAMBDA (A D)                                              (* edited: "19-Dec-84 01:35")

    (OR A (SETQ A 170000Q))
    (OR D (SETQ D 125252Q))
    (PCWRITE
 A D)
    (PRINT (PCREAD
 A))
    (PCWRITE
 A D)
    (do
 (PROGN ((OPCODES MISC2 2)
		D 40Q])

(PCCTLTEST

  [LAMBDA NIL                                                (* edited: "18-Dec-84 23:01")

    (do
 (PROGN ((OPCODES MISC2 2)
		1 53Q])

(PCREAD

  [LAMBDA (A)                                                (* edited: "21-Dec-84 15:04")

    (PCBUS A 0 105001Q])

(PCWRITE

  [LAMBDA (A D)                                              (* SCP "21-Dec-84 15:31")

    (PCBUS A D 35202])

(PCINPUT

  [LAMBDA (A)                                                (* edited: "21-Dec-84 15:04")

    (PCBUS A 0 107004Q])

(PCOUTPUT

  [LAMBDA (A D)                                              (* SCP "21-Dec-84 15:33")

    (PCBUS A D 36104])

(TEST3

  [LAMBDA NIL                                                (* edited: "18-Dec-84 22:50")

    (for
 I from
 0 to
 17Q do
 (PROGN (PCWRITE
 (PLUS 3400020Q I)
					    I)
				   (PRINT (PCREAD
 (PLUS 3400020Q I])

(TEST4

  [LAMBDA NIL                                                (* edited: "18-Dec-84 22:51")

    (for
 I from
 0 to
 17Q do
 (PROGN (PRINT I)
				   (READ)
				   (PCWRITELUT I 377Q])

(TEST5

  [LAMBDA (N D)                                              (* edited: "18-Dec-84 23:11")

    (for
 I from
 0 to
 (OR N 400Q) do
 (PCWRITEPIXEL (PLUS (TIMES I 1201Q))
						  (OR D 3])

(TEST6

  [LAMBDA (D A)                                              (* edited: "21-Dec-84 15:00")

    (SETQ A (OR A 170040Q))
    (SETQ D (OR D 52525Q))
    (PCOUTPUT
 A D)
    (PRINT (PCINPUT
 A])

(TEST7

  [LAMBDA (PRINTFLG N)                                       (* edited: "21-Dec-84 12:02")

    (if
 N
	then
 (for
 I from
 0 to
 34Q do
 (if
 PRINTFLG
					 then
 (PRINT (PCREAD
 170000Q))
				       else
 (PCREAD
 170000Q)))
      else
 (do
 (if
 PRINTFLG
		   then
 (PRINT (PCREAD
 170000Q))
		 else
 (PCREAD
 170000Q])

(TEST8

  [LAMBDA (PRINTFLG N)                                       (* edited: "21-Dec-84 13:57")

    (if
 N
	then
 (for
 I from
 0 to
 34Q do
 (if
 PRINTFLG
					 then
 (PRINT (PCREAD
 3770000Q))
				       else
 (PCREAD
 3770000Q)))
      else
 (do
 (if
 PRINTFLG
		   then
 (PRINT (PCREAD
 3770000Q))
		 else
 (PCREAD
 3770000Q])

(TEST9

  [LAMBDA (N)                                                (* edited: "21-Dec-84 14:10")

    (PROG ((A TESTADDRESS))
          (for
 I from
 0 to
 (OR N 76400Q)
	     do
 (PCWRITE
 TESTADDRESS 52525Q)
		(PRINT (PCREAD
 TESTADDRESS))
		(PCWRITE
 TESTADDRESS 125252Q)
		(PRINT (PCREAD
 TESTADDRESS])
)
(DECLARE: EVAL@COMPILE 

(PUTPROPS PCWRITE MACRO
 ((A D)
			 (PCBUS A D 33154)))
)

(RPAQQ TESTADDRESS
 1044480)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (570 4079 (PCMEMTEST 580 . 820) (PCREADTEST 822 . 1095) (PCWRITETEST 1097 . 1383) (
PCCTLTEST 1385 . 1542) (PCREAD 1544 . 1675) (PCWRITE 1677 . 1803) (PCINPUT 1805 . 1937) (PCOUTPUT 1939
 . 2066) (TEST3 2068 . 2312) (TEST4 2314 . 2522) (TEST5 2524 . 2736) (TEST6 2738 . 2949) (TEST7 2951
 . 3341) (TEST8 3343 . 3737) (TEST9 3739 . 4077)))))
STOP