(FILECREATED "10-Aug-85 16:18:17" ("compiled on " {ERIS}BUSMASTER>NEW>SHOW>BUSMASTER.;3) " 9-Aug-85 12:39:42" tcompl'd in "INTERLISP-D 9-Aug-85 ..." dated " 9-Aug-85 12:45:27") (FILECREATED "10-Aug-85 16:17:28" {ERIS}BUSMASTER>NEW>SHOW>BUSMASTER.;3 39285 changes to: ( VARS BUSMASTERCOMS) (FNS BUS.READHL BUS.WRITEHL BUS.WRITE BUS.READ BUS.OUTPUT BUS.INPUT BUS.RESET MBUS.INPUT MBUS.OUTPUT MBUS.READ MBUS.READHL MBUS.WRITE MBUS.WRITEHL PCBUS.INPUT PCBUS.OUTPUT PCBUS.READ PCBUS.READHL PCBUS.READWORD PCBUS.WRITE PCBUS.WRITEHL PCBUS.WRITEWORD PCBUS.READARRAY PCBUS.WRITEARRAY PCBUS.TESTARRAY \BUSBLT.UFN BUSDMA.SETMODE BUSDMA.SETPAGE BUSDMA.SETADDRESS BUSDMA.READADDRESS BUSDMA.SETCOUNTER BUSDMA.READCOUNTER BUSDMA.MASK BUSDMA.UNMASK BUSDMA.INIT BUSDMA.READTCBIT \FUATran \SUATran BUS.CHECKADDR BUS.CHECKCNT BUS.CHECKOUT BM16LOOP BM8LOOP BMSTATLOOP MB.CHECKOUT MBRCVR.CHECKOUT MBMEM.PRELIMCHECK PC.CHECKOUT PCRCVR.CHECKOUT PCMEM.PRELIMCHECK STATPRINT ) previous date: "10-Aug-85 15:59:19" {ERIS}BUSMASTER>NEW>SHOW>BUSMASTER.;1) BUS.INPUT D1 (L (0 IOADR)) @l0yll+yjl yl)xNIL NIL () BUS.OUTPUT D1 (L (1 DATUM 0 IOADR)) @l0yll+yAl yNIL NIL () BUS.READ D1 (I 0 MEMADDR) @@n (12Q PCBUS.READHL) NIL () BUS.READHL D1 (L (1 MEMADRL 0 MEMADRH)) @l;yAl0ykl+yjl yl)xNIL NIL () BUS.RESET D1 NIL l l+yjl ynl n (30Q PCBUS.INPUT 22Q PCBUS.OUTPUT) NIL () BUS.WRITE D1 (I 1 DATUM I 0 MEMADDR) @@nA (13Q PCBUS.WRITEHL) NIL () BUS.WRITEHL D1 (L (2 DATUM 1 MEMADRL 0 MEMADRH)) @l;yAl0yll+yBl yNIL NIL () MBUS.INPUT D1 (L (0 IOADR)) @l0ynl+yjl yl)xNIL NIL () MBUS.OUTPUT D1 (L (1 DATUM 0 IOADR)) @l0ynl+yAl yNIL NIL () MBUS.READ D1 (I 0 MEMADDR) @@n (12Q MBUS.READHL) NIL () MBUS.READHL D1 (L (1 MEMADRL 0 MEMADRH)) @l;yAl0ynl+yjl yl)xNIL NIL () MBUS.WRITE D1 (I 1 DATUM I 0 MEMADDR) @@nA (13Q MBUS.WRITEHL) NIL () MBUS.WRITEHL D1 (L (2 DATUM 1 MEMADRL 0 MEMADRH)) @l;yAl0ynl+yBl yNIL NIL () PCBUS.INPUT D1 (L (0 IOADR)) @l0yll+yjl yl)xNIL NIL () PCBUS.OUTPUT D1 (L (1 DATUM 0 IOADR)) @l0yll+yAl yNIL NIL () PCBUS.READ D1 (I 0 MEMADDR) @@n (12Q PCBUS.READHL) NIL () PCBUS.READHL D1 (L (1 MEMADRL 0 MEMADRH)) @l;yAl0ykl+yjl yl)xNIL NIL () PCBUS.READWORD D1 (P 2 second P 1 first P 0 loAddr I 2 mode I 1 loWordAddr I 0 hiAddr) 9A@H @Hk BBdgIJgJIo (66Q SHOULDNT 23Q PCBUS.READHL 11Q PCBUS.READHL) (50Q SWAP 35Q STRAIGHT) ( 63Q "bad mode") PCBUS.WRITE D1 (I 1 DATUM I 0 MEMADDR) @@nA (13Q PCBUS.WRITEHL) NIL () PCBUS.WRITEHL D1 (L (2 DATUM 1 MEMADRL 0 MEMADRH)) @l;yAl0yll+yBl yNIL NIL () PCBUS.WRITEWORD D1 (P 2 loAddr P 1 hi P 0 lo I 3 mode I 2 word I 1 loWordAddr I 0 hiAddr) ABlBACCdg@JI @JkH g@JH @JkI o (76Q SHOULDNT 66Q PCBUS.WRITEHL 56Q PCBUS.WRITEHL 42Q PCBUS.WRITEHL 32Q PCBUS.WRITEHL) (46Q SWAP 21Q STRAIGHT) ( 73Q "bad mode") PCBUS.READARRAY D1 (P 2 firstCount P 1 orig P 0 size I 6 hiAddr I 5 wrap? I 4 arrayIndex I 3 mode I 2 count I 1 loWordAddr I 0 array) Bj@ g@@ DIBHI4EBH}@AHIDIZCDhF hAJbaBJbZIbUCCdg D@DIЅ@FkAB0gD@DIЅ@FkAB0o lB l@ (305Q ERRORX 302Q SETERRORN 273Q ERRORX 270Q SETERRORN 261Q SHOULDNT 112Q PCBUS.READARRAY 36Q ARRAYORIG 14Q ARRAYTYP) (236Q ARRAYP 223Q ARRAYP 212Q SWAP 173Q ARRAYP 160Q ARRAYP 146Q STRAIGHT 30Q ARRAYP 17Q SMALLPOSP) ( 256Q "bad mode") PCBUS.WRITEARRAY D1 (P 2 firstCount P 1 orig P 0 size I 6 hiAddr I 5 wrap? I 4 arrayIndex I 3 mode I 2 count I 1 loWordAddr I 0 array) Bj@ g@@ DIBHI4EBH}@AHIDIZCDhF hAJbaBJbZIbUCCdg D@DIЅ@FkAB0gD@DIЅ@FkAB0o lB l@ (305Q ERRORX 302Q SETERRORN 273Q ERRORX 270Q SETERRORN 261Q SHOULDNT 112Q PCBUS.WRITEARRAY 36Q ARRAYORIG 14Q ARRAYTYP) (236Q ARRAYP 223Q ARRAYP 212Q SWAP 173Q ARRAYP 160Q ARRAYP 146Q STRAIGHT 30Q ARRAYP 17Q SMALLPOSP) ( 256Q "bad mode") PCBUS.TESTARRAY D1 (I 5 hiAddr I 4 arrayIndex I 3 mode I 2 count I 1 loWordAddr I 0 array) Bjm@BkDkk@ (@ g[CCdg#D@D@ Ѕ@EkAB0g"D@D@ Ѕ@EkAB0o o (177Q ERROR 167Q SHOULDNT 135Q ARRAYORIG 67Q ARRAYORIG 31Q ARRAYTYP 22Q ARRAYORIG) (144Q ARRAYP 126Q ARRAYP 115Q SWAP 76Q ARRAYP 60Q ARRAYP 46Q STRAIGHT 34Q SMALLPOSP) ( 174Q "array must be of WORDs" 164Q "bad mode") \BUSBLT.UFN D1 (I 4 ALPHABYTE I 3 NWORDS I 2 BUSADRL I 1 BUSADRH I 0 DLADR) o (6 ERROR) NIL ( 3 "Attempt to use busmaster on a machine which doesn't support it") BUSDMA.SETMODE D1 (I 3 DECADDR? I 2 AUTOINIT? I 1 WRITEMEMORY? I 0 CHAN) !l @AllBljCl jl@ (36Q PCBUS.OUTPUT) NIL () BUSDMA.SETPAGE D1 (I 1 PAGE I 0 CHAN) '@dklll@llo@ A (44Q PCBUS.OUTPUT 40Q HELP) NIL ( 34Q "bad channel# arg:") BUSDMA.SETADDRESS D1 (P 0 CMD I 1 ADDR I 0 CHAN) @l j HA HA h(25Q PCBUS.OUTPUT 17Q PCBUS.OUTPUT 12Q PCBUS.OUTPUT) NIL () BUSDMA.READADDRESS D1 (P 0 CMD I 0 CHAN) @l j H H (22Q PCBUS.INPUT 16Q PCBUS.INPUT 12Q PCBUS.OUTPUT) NIL () BUSDMA.SETCOUNTER D1 (P 1 CMD P 0 NBYTESLESS1 I 1 NBYTES I 0 CHAN) 2Ak@kAjAooA l j IH IH h(56Q PCBUS.OUTPUT 50Q PCBUS.OUTPUT 43Q PCBUS.OUTPUT 34Q HELP) NIL ( 30Q "arg must be 1..64K:" 22Q 200000Q) BUSDMA.READCOUNTER D1 (P 0 CMD I 0 CHAN) @kl j H H k(24Q PCBUS.INPUT 20Q PCBUS.INPUT 14Q PCBUS.OUTPUT) NIL () BUSDMA.MASK D1 (I 0 CHAN) l @l (10Q PCBUS.OUTPUT) NIL () BUSDMA.UNMASK D1 (I 0 CHAN) l @ (5 PCBUS.OUTPUT) NIL () BUSDMA.INIT D1 (P 1 MASTERCLEAR P 0 TIMER) 5l@l HllT Hkl Ij jdn jhi j h(61Q BUSDMA.UNMASK 55Q BUSDMA.SETMODE 47Q BUSDMA.SETCOUNTER 34Q PCBUS.OUTPUT 27Q PCBUS.OUTPUT 17Q PCBUS.OUTPUT) (40Q BUSDMA.TCBITS) () BUSDMA.READTCBIT D1 (P 0 MASK I 1 CLEARTHEBIT? I 0 CHANNEL) +k@ `l dHjhA`Hm(17Q PCBUS.INPUT 4 LLSH) (47Q BUSDMA.TCBITS 37Q BUSDMA.TCBITS 23Q BUSDMA.TCBITS 12Q BUSDMA.TCBITS) () \FUATran D1 (I 2 wrapped I 1 currentAddress I 0 dmaChannel) @3@ 3ABAlBlgogAgggggg@ohoooggggg@ohooohhogBgggggoggk@hhhhhggBoogggBgggoggk@hhhhhhgoogAgggggg@ohoooggggg@ohooohhoggggoggk@hhhhhggo@hohhho@ABh (753Q ERROR 7 EVAL) (665Q ERROR 662Q then 634Q LLSH 631Q CONSTANT 622Q LOGAND 617Q ZEROP 614Q NOT 611Q if 536Q LLSH 533Q CONSTANT 530Q BX.OUTPUT 525Q PROGN 522Q LLSH 463Q LLSH 460Q CONSTANT 455Q BX.OUTPUT 452Q PROGN 447Q LRSH 444Q LOGOR 440Q SETQ 425Q then 373Q LLSH 370Q CONSTANT 361Q LOGAND 356Q ZEROP 353Q NOT 347Q SETQ 344Q if 341Q else 317Q SETQ 314Q then 266Q LLSH 263Q CONSTANT 254Q LOGAND 251Q ZEROP 246Q NOT 243Q if 240Q then 234Q if 161Q LLSH 156Q CONSTANT 153Q BX.OUTPUT 150Q PROGN 145Q LLSH 106Q LLSH 103Q CONSTANT 100Q BX.OUTPUT 75Q PROGN 72Q LRSH 67Q LOGOR 63Q SETQ 54Q PROGN) ( 741Q "Invalid arguments - must be a number and two atoms" 702Q (else T) 671Q "double wrap 2" 626Q (PROGN (BX.OUTPUT 10Q 7) (BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 606Q (* * if we've wrapped again already, that means we were not paying attention for a long time before the current round, and things are in bad shape) 570Q (7) 562Q ((BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 554Q (7) 543Q (1) 515Q (1) 507Q ((BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 501Q (7) 470Q (1) 435Q (PROGN (BX.OUTPUT 14Q 7) (BX.OUTPUT 10Q 4) (BX.OUTPUT 0 5)) 431Q (* * read address again to be sure to get past the end) 365Q (PROGN (BX.OUTPUT 10Q 7) (BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 332Q (else T) 324Q ('DoubleWrap) 260Q (PROGN (BX.OUTPUT 10Q 7) (BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 231Q (* * Check the TC bit for this channel - open coded for speed) 213Q (7) 205Q ((BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 177Q (7) 166Q (1) 140Q (1) 132Q ((BX.OUTPUT 4 4) (BX.OUTPUT 0 5) (BX.INPUT 5)) 124Q (7) 113Q (1) 60Q (PROGN (BX.OUTPUT 14Q 7) (BX.OUTPUT 10Q 4) (BX.OUTPUT 0 5))) \SUATran D1 (I 2 wrapped I 1 currentAddress I 0 dmaChannel) kA\BYAlRBlKgg@hhogAoggBgoggBohohoABh (150Q ERROR) (101Q SETQ 76Q else 67Q then 63Q if 60Q PROG1 46Q SETQ 31Q channel 26Q LET) ( 140Q "Invalid arguments - currentAddress and wrapped must be atoms" 123Q ((BUSDMA.UNMASK channel)) 106Q ((BUSDMA.READTCBIT channel T)) 73Q (if (BUSDMA.READTCBIT channel T) then 'DoubleWrap else T) 53Q ((BUSDMA.READADDRESS channel)) 43Q (BUSDMA.MASK channel)) BUS.CHECKADDR D1 (P 1 result P 0 cmd I 1 pat I 0 chan) )@l j HA HA AH H YIh(36Q PCBUS.INPUT 32Q PCBUS.INPUT 25Q PCBUS.OUTPUT 17Q PCBUS.OUTPUT 12Q PCBUS.OUTPUT) NIL () BUS.CHECKCNT D1 (P 1 result P 0 cmd I 1 pat I 0 chan) +@kl j HA HA AH H YIh(40Q PCBUS.INPUT 34Q PCBUS.INPUT 27Q PCBUS.OUTPUT 21Q PCBUS.OUTPUT 14Q PCBUS.OUTPUT) NIL () BUS.CHECKOUTA0001 D1 (NAME ERRORSET F 0 i F 1 result F 2 MACROY) 6oi P oi lhi Q oi i ci(60Q TERPRI 53Q PRIN1 42Q STATPRINT 35Q TAB 25Q PRIN1 14Q STATPRINT 7 PRIN1) NIL ( 47Q "out." 21Q "in," 3 "Status loopback failure: ") BUS.CHECKOUT D1 (P 13Q RESETSTATE P 12Q MACROY P 10Q OLDVALUE P 7 pat P 5 result P 4 chan P 2 result P 1 i I 0 quietFlg F 14Q RESETVARSLST)  l*xndndn8dn8dnioi i h]ljIdHiF@oi i ljIdHi@oi i ljIdHi@oi i lj2LKoh_^ih ZJi 1 gOhhWc_og g_OcgO Oh*IkY ZBoi oIi oi lhi oJi oi i hIkYd ZEoi oIdi oi lhi oJi oi i hIkY_LO ]Foi Li oi oOi oi l3hi oMi oMLO ]Roi Li oi oOi oi l3hi oMi oi i h\NNLk\9i@oi i i(1225Q TERPRI 1220Q PRIN1 1161Q TERPRI 1154Q PRIN1 1143Q PRINTNUM 1131Q TAB 1121Q PRIN1 1110Q PRINTNUM 1075Q PRIN1 1064Q PRIN1 1056Q PRIN1 1043Q BUS.CHECKCNT 1026Q PRINTNUM 1014Q TAB 1004Q PRIN1 773Q PRINTNUM 760Q PRIN1 747Q PRIN1 741Q PRIN1 726Q BUS.CHECKADDR 700Q TERPRI 673Q PRIN1 662Q PRINTNUM 650Q TAB 640Q PRIN1 627Q PRINTNUM 612Q PRIN1 577Q BM16LOOP 555Q TERPRI 550Q PRIN1 537Q PRINTNUM 525Q TAB 515Q PRIN1 504Q PRINTNUM 472Q PRIN1 457Q BM8LOOP 437Q ERROR! 430Q APPLY 400Q BUS.CHECKOUTA0001 341Q OUTPUT 332Q BMSTATLOOP 260Q TERPRI 253Q PRIN1 211Q TERPRI 204Q PRIN1 142Q TERPRI 135Q PRIN1 64Q TERPRI 57Q PRIN1 2 BUS.RESET) (420Q OUTPUT 404Q ERROR 375Q INTERNAL 347Q OUTPUT) ( 1214Q "DMA loopback OK" 1150Q " out." 1136Q (FIX 4 20Q) 1115Q " in," 1102Q (FIX 4 20Q) 1071Q ": " 1052Q "DMA channel counter loopback failure on channel " 1033Q " out." 1021Q (FIX 4 20Q) 1000Q " in," 765Q (FIX 4 20Q) 754Q ": " 735Q "DMA channel address loopback failure on channel " 667Q " out." 655Q (FIX 4 20Q) 634Q " in," 617Q (FIX 4 20Q) 606Q "16-bit data loopback failure: " 544Q " out." 532Q (FIX 2 20Q) 511Q " in," 477Q (FIX 2 20Q) 466Q "8-bit data loopback failure: " 372Q (BUS.CHECKOUTA0001) 302Q (0 177777Q) 247Q "16-bit data loopback OK" 200Q "8-bit data loopback OK" 131Q "Status loopback OK" 53Q "Either the busmaster is powered down, or there isn't anything connected to the parallel I/O port where the busmaster should be - please check that the busmaster is indeed cabled up to the bottom socket on the CPE (3) board of the Dandetiger and that it has power.") BM16LOOP D1 (L (0 D)) 'll;yjl0ynl+y@l yl)xX@HhNIL NIL () BM8LOOP D1 (L (0 D)) &ll;yjl0yll+y@l yl)xX@HhNIL NIL () BMSTATLOOP D1 (L (0 pat)) T @l;y@@l0y@lkl+yjl yl*xY@InInIl@XHhNIL NIL () MB.CHECKOUT D1 (L (0 quietFlg)) oNIL NIL ( 3 "Not implemented yet") MBRCVR.CHECKOUT D1 (L (0 quietFlg)) oNIL NIL ( 3 "Not implemented yet") MBMEM.PRELIMCHECK D1 (L (1 quietFlg 0 pageNumber)) oNIL NIL ( 3 "Not implemented yet") PC.CHECKOUT D1 (I 0 quietFlg) @ @ h@ i(33Q BUSDMA.INIT 30Q BUS.RESET 23Q PCMEM.PRELIMCHECK 14Q PCRCVR.CHECKOUT 6 BUS.CHECKOUT 2 BUS.RESET) NIL () PCRCVR.CHECKOUT D1 (P 2 result P 1 i I 0 quietFlg) xnj n loi i hiNljIH]nI In Z@oi oIi oi l)hi oJi oi i ihhIkYi@oi i ljIHlIIl In Z@oi oIi oi l,hi oJi oi i ihMIn Z@oi oIi oi l,hi oJi oi i ihhIkYQi@oi i i(564Q TERPRI 557Q PRIN1 523Q TERPRI 516Q PRIN1 505Q PRINTNUM 473Q TAB 463Q PRIN1 452Q PRINTNUM 440Q PRIN1 424Q PCBUS.INPUT 407Q TERPRI 402Q PRIN1 371Q PRINTNUM 357Q TAB 347Q PRIN1 336Q PRINTNUM 324Q PRIN1 310Q PCBUS.INPUT 300Q PCBUS.WRITEHL 247Q TERPRI 242Q PRIN1 203Q TERPRI 176Q PRIN1 165Q PRINTNUM 153Q TAB 143Q PRIN1 132Q PRINTNUM 120Q PRIN1 104Q PCBUS.INPUT 74Q PCBUS.OUTPUT 40Q TERPRI 33Q PRIN1 17Q PCBUS.INPUT 11Q PCBUS.OUTPUT 2 BUS.RESET) NIL ( 553Q "Receiver address registers loopback OK" 512Q " out." 500Q (FIX 2 20Q) 457Q " in," 445Q (FIX 2 20Q) 434Q "Receiver addr-lo register loopback failure: " 376Q " out." 364Q (FIX 2 20Q) 343Q " in," 331Q (FIX 2 20Q) 320Q "Receiver addr-hi register loopback failure: " 236Q "Receiver data register loopback OK" 172Q " out." 160Q (FIX 2 20Q) 137Q " in," 125Q (FIX 2 20Q) 114Q "Receiver data register loopback failure: " 27Q "The PC appears to be powered down or not connected - please check and try again") PCMEM.PRELIMCHECK D1 (P 5 pages P 1 i I 1 quietFlg I 0 pageNumber) @jdllj2IdHBJMnoi @jdlli oi i oi i hjd Ij jIjl Ij lIK Lh[IkYL&Aoi i i(231Q TERPRI 224Q PRIN1 161Q PCBUS.READHL 153Q PCBUS.WRITEHL 140Q PCBUS.READHL 132Q PCBUS.WRITEHL 123Q TERPRI 116Q PRIN1 105Q TERPRI 100Q PRIN1 67Q PRIN1 46Q PRIN1) NIL ( 220Q "Memory there OK" 112Q "Please check that the busmaster and PC are powered up and running correctly by calling (BUS.CHECKOUT) and (PCRCVR.CHECKOUT), and check that there is at least one memory board installed in the PC. If that doesn't help, check the page address switches on the memory board to see that they are in the indicated range." 74Q "." 42Q "There does not appear to be any memory connected to the PC in page address range 0 - ") STATPRINT D1 (P 3 label P 2 i I 0 statbits) ?ojlHhIJK o @J k k JmԺHX(62Q SPACES 55Q PRIN1 50Q LRSH 42Q PRIN1 32Q PRIN1) NIL ( 37Q ":" 3 (test a16 a8 a0)) (PRETTYCOMPRINT BUSMASTERCOMS) (RPAQQ BUSMASTERCOMS ((* peek and poke functions) (VARS (DWIMIFYCOMPFLG T)) (FNS BUS.INPUT BUS.OUTPUT BUS.READ BUS.READHL BUS.RESET BUS.WRITE BUS.WRITEHL MBUS.INPUT MBUS.OUTPUT MBUS.READ MBUS.READHL MBUS.WRITE MBUS.WRITEHL PCBUS.INPUT PCBUS.OUTPUT PCBUS.READ PCBUS.READHL PCBUS.READWORD PCBUS.WRITE PCBUS.WRITEHL PCBUS.WRITEWORD) (* block transfer and test functions (words <-> PC only to date)) (FNS PCBUS.READARRAY PCBUS.WRITEARRAY PCBUS.TESTARRAY) (* define the \BUSBLT subopcodes in terms of the basic one) (PROP DOPVAL \BUSBLTIN \BUSBLTINBYTES \BUSBLTINSWAPBYTES \BUSBLTOUT \BUSBLTOUTBYTES \BUSBLTOUTNYBBLES \BUSBLTOUTSWAPBYTES \BUSBLTCHECK \BUSBLTCHECKBYTES \BUSBLTCHECKSWAPBYTES) (FNS \BUSBLT.UFN) (* dma controller's low level (command) functions) (FNS BUSDMA.SETMODE BUSDMA.SETPAGE BUSDMA.SETADDRESS BUSDMA.READADDRESS BUSDMA.SETCOUNTER BUSDMA.READCOUNTER BUSDMA.MASK BUSDMA.UNMASK) ( * dma controller's higher level functions) (FNS BUSDMA.INIT BUSDMA.READTCBIT) (VARS (BUSDMA.TCBITS 0)) (GLOBALVARS BUSDMA.TCBITS) (MACROS BUSDMA.FASTUPDATEADDR BUSDMA.SLOWUPDATEADDR) (PROP ARGNAMES BUSDMA.FASTUPDATEADDR BUSDMA.SLOWUPDATEADDR) (FNS \FUATran \SUATran) (* Busmaster and PC/Multibus connection checkout) (FNS BUS.CHECKADDR BUS.CHECKCNT BUS.CHECKOUT BM16LOOP BM8LOOP BMSTATLOOP MB.CHECKOUT MBRCVR.CHECKOUT MBMEM.PRELIMCHECK PC.CHECKOUT PCRCVR.CHECKOUT PCMEM.PRELIMCHECK STATPRINT) (FILES (SYSLOAD) BUSEXTENDER) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) BUSEXTENDER (IMPORTFILE) LLARRAYELT)))) (RPAQQ DWIMIFYCOMPFLG T) (PUTPROPS \BUSBLTIN DOPVAL (4 BUSBLT 4)) (PUTPROPS \BUSBLTINBYTES DOPVAL (4 BUSBLT 5)) (PUTPROPS \BUSBLTINSWAPBYTES DOPVAL (4 BUSBLT 6)) (PUTPROPS \BUSBLTOUT DOPVAL (4 BUSBLT 0)) (PUTPROPS \BUSBLTOUTBYTES DOPVAL (4 BUSBLT 1)) (PUTPROPS \BUSBLTOUTNYBBLES DOPVAL (4 BUSBLT 3)) (PUTPROPS \BUSBLTOUTSWAPBYTES DOPVAL (4 BUSBLT 2)) (PUTPROPS \BUSBLTCHECK DOPVAL (4 BUSBLT 20)) (PUTPROPS \BUSBLTCHECKBYTES DOPVAL (4 BUSBLT 21)) (PUTPROPS \BUSBLTCHECKSWAPBYTES DOPVAL (4 BUSBLT 22)) (RPAQQ BUSDMA.TCBITS 0) (PUTPROPS BUSDMA.FASTUPDATEADDR MACRO (X (\FUATran (CAR X) (CADR X) (CADDR X)))) (PUTPROPS BUSDMA.SLOWUPDATEADDR MACRO (X (\SUATran (CAR X) (CADR X) (CADDR X)))) (PUTPROPS BUSDMA.FASTUPDATEADDR ARGNAMES (dmaChannel currentAddress wrapped)) (PUTPROPS BUSDMA.SLOWUPDATEADDR ARGNAMES (dmaChannel currentAddress wrapped)) (FILESLOAD (SYSLOAD) BUSEXTENDER) (PUTPROPS BUSMASTER COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL