(FILECREATED "15-Apr-85 08:25:49" ("compiled on " {DSK}HTHOMPSON>DSL>TESTBLT.;13) "19-Mar-85 14:34:17" recompiled changes: BMTChangeDirection DoTB StartBltTest FastTestBltIn MakeBusmasterTest in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:48:35") (FILECREATED "15-Apr-85 08:24:44" {DSK}HTHOMPSON>DSL>TESTBLT.;13 25668 changes to: (FNS FastTestBltIn StartBltTest BMTChangeDirection DoTB MakeBusmasterTest) (VARS TESTBLTCOMS BusmasterIcon) (PROPS (\BUSBLTCHECKSWAPBYTES DOPVAL) (\BUSBLTCHECKBYTES DOPVAL) (\BUSBLTCHECK DOPVAL)) previous date: "12-Apr-85 14:13:36" {DSK}HTHOMPSON>DSL>TESTBLT.;10) BMTChangeDirection D1 (I 0 direction F 0 $$TogWindow$$ F 1 BMTInPatternSpecs F 2 BMTOutPatternSpecs) :g ²1Pi g h@gð§@dgð’¿Qgð¥@gð‘R‚@(66Q TogMenuReset 63Q SHOULDNT 22Q GETWINDOWUSERPROP 14Q MAINWINDOW 5 BOUNDP) (54Q FastOut 46Q Out 36Q FastIn 27Q In 17Q PatternMenu 2 $$TogWindow$$) () BMTSetValue D1 (P 0 proc I 1 value I 0 var F 1 $$TogWindow$$) 5g ŸQi É.XµAg@hi²ôHg@Ah¿°å(60Q PROCESS.APPLY 42Q PROCESS.APPLY 21Q \INSUREWINDOW 16Q MAINWINDOW 5 BOUNDP) (50Q SET 33Q BOUNDP 2 $$TogWindow$$) () DoTBA0001 D1 (NAME ERRORSET F 0 fn F 1 args F 2 MACROY) PQ ci(4 APPLY) NIL () DoTB D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 args I 0 fn F 4 RESETVARSLST) Wg 1gHhhTc¹og £g»Ic¿gI ¿K“¿g g (124Q TogMenuReset 121Q GETWINDOWUSERPROP 113Q PROCESSPROP 105Q THIS.PROCESS 100Q ERROR! 72Q APPLY 46Q DoTBA0001 13Q TTYDISPLAYSTREAM 10Q PROCESSPROP 2 THIS.PROCESS) (116Q ControlMenu 110Q WINDOW 63Q TTYDISPLAYSTREAM 52Q ERROR 43Q INTERNAL 21Q TTYDISPLAYSTREAM 5 WINDOW) ( 40Q (DoTBA0001)) RecordError D1 (P 1 subEntry P 0 topEntry I 3 secondIndex I 2 firstIndex I 1 value I 0 aList) 1B@H©BhhX@¿CHYAI§IAh hCAhH(56Q PUTASSOC 43Q \NCONC2 21Q PUTASSOC) NIL () SetupTestArray D1 (P 1 i I 2 n I 1 pattern I 0 array1) oBkIHó‘h@IAdjð“¿j°R—Adgð™¿jnÿÿ °@gðIkåjð”nÿÿ°0j°-Adgðž¿Ikåjð’j°nÿÿ°d¥d¡‘A‡oA *¿IkÔY°š(145Q SHOULDNT 45Q RAND) (77Q alt1 52Q alt0 33Q rand) ( 141Q "not a valid pattern") ShowErrorsA0001 D1 (NAME ERRORSET P 1 subEntry P 0 topEntry F 2 aList F 3 MACROY) SR°Idl ¿oH ¿H°)dl ¿oI ¿k ¿ll2I µ×hµ¸hci(101Q PRINTPARA 76Q SORT 64Q SPACES 57Q PRINTNUM 45Q TAB 26Q PRINTNUM 14Q TAB) NIL ( 52Q (FIX 4 20Q) 21Q (FIX 4 20Q)) ShowErrors D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 aList F 4 RESETVARSLST) <l 1gHhhTcYog £g»IcgI K“J(67Q ERROR! 62Q APPLY 37Q ShowErrorsA0001 4 RADIX) (53Q RADIX 43Q ERROR 34Q INTERNAL 12Q RADIX) ( 31Q (ShowErrorsA0001)) ShowResultsA0001A0002 D1 (NAME ERRORSET F 0 pattern F 1 MACROY) P ci(3 PRIN1) NIL () ShowResultsA0001 D1 (NAME ERRORSET P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE F 4 RESETVARSLST F 5 j F 6 n F 7 out? F 10Q MACROY F 11Q mode) žh ¿U ¿o ¿V ¿o ¿UVÖ ¿W”oƒo ¿o ¿l 1gHhhTc¹og £g»Ic¿gI ¿K“¿o ¿Wµg ¿o ¿h ci(230Q TERPRI 223Q PRIN1 213Q PRIN1 200Q PRIN1 167Q ERROR! 161Q APPLY 135Q ShowResultsA0001A0002 102Q RADIX 74Q PRIN1 64Q PRIN1 44Q PRIN1 35Q PRIN1 25Q PRIN1 20Q PRIN1 10Q PRIN1 3 TERPRI) (210Q STRAIGHT 152Q RADIX 141Q ERROR 132Q INTERNAL 110Q RADIX) ( 220Q " mode." 175Q " in " 127Q (ShowResultsA0001A0002) 71Q " of pattern " 61Q " reads" 54Q " writes" 32Q " words = " 15Q " passes * ") ShowResultsA0003 D1 (NAME ERRORSET F 0 ln F 1 j F 2 MACROY F 3 n F 4 lp) EP ¿Pjð³*P•P ³ o ¿PQSÖoëë ¿o ¿T”oƒo ci(77Q PRIN1 60Q PRIN1 50Q PRIN1 32Q PRIN1 21Q \FZEROP 3 PRIN1) NIL ( 74Q " read errors," 67Q " read errors: " 55Q " per thousand)" 43Q 1000.0 27Q " (") ShowResultsA0004 D1 (NAME ERRORSET F 0 mn F 1 out? F 2 j F 3 n F 4 mp F 5 MACROY) Xh ¿P ¿Pjð³*P•P ³ o ¿PRSÖoëë ¿o ¿T›Q”ooŠQ”oƒo c i(122Q PRIN1 65Q PRIN1 55Q PRIN1 37Q PRIN1 26Q \FZEROP 10Q PRIN1 3 TERPRI) NIL ( 117Q " memory decays," 112Q " write errors," 103Q " memory decays: " 76Q " write errors: " 62Q " per thousand)" 50Q 1000.0 34Q " (") ShowResultsA0005 D1 (NAME ERRORSET F 0 sn F 1 ln F 2 MACROY F 3 mn F 4 sp) Jh ¿P ¿Pjð³*P•P ³ o ¿PQSÔoëë ¿o ¿T”oƒo ci(104Q PRIN1 65Q PRIN1 55Q PRIN1 37Q PRIN1 26Q \FZEROP 10Q PRIN1 3 TERPRI) NIL ( 101Q " slow faults." 74Q " slow faults: " 62Q " per thousand)" 50Q 1000.0 34Q " (") ShowResults D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 15Q out? I 14Q sp I 13Q sn I 12Q mp I 11Q mn I 10Q lp I 7 ln I 6 c3 I 5 c2 I 4 c1 I 3 mode I 2 pattern I 1 n I 0 j F 4 RESETVARSLST) Œi 1gHhhTc¹og £g»Ic¿gI ¿K“¿G£G²1lhi¿Di ¿lhi¿Ei ¿lhi¿Fi ¿i ¿i 1gHhhTc¹og £g»Ic¿gI ¿K“¿Gµ‚±Ói 1gHhhTc¹og £g»Ic¿gI ¿K“¿Gµ‚±‰G²:i ¿lhi¿oi ¿lhi¿oi ¿lhi¿oi ¿i 1gHhhTc¹og £g»Ic¿gI ¿K“¿Gµi ¿°÷ ¿±ÿv ¿±ÿ,(606Q ShowErrors 577Q ShowErrors 571Q ShowErrors 565Q TERPRI 553Q ERROR! 545Q APPLY 521Q ShowResultsA0005 466Q OUTPUT 461Q PRIN1 450Q TAB 440Q PRIN1 427Q TAB 417Q PRIN1 406Q TAB 376Q TERPRI 354Q ERROR! 346Q APPLY 322Q ShowResultsA0004 267Q OUTPUT 251Q ERROR! 243Q APPLY 217Q ShowResultsA0003 164Q OUTPUT 157Q TERPRI 152Q PRIN1 144Q TAB 134Q PRIN1 126Q TAB 116Q PRIN1 110Q TAB 70Q ERROR! 62Q APPLY 36Q ShowResultsA0001 3 OUTPUT) (536Q OUTPUT 525Q ERROR 516Q INTERNAL 474Q OUTPUT 337Q OUTPUT 326Q ERROR 317Q INTERNAL 275Q OUTPUT 234Q OUTPUT 223Q ERROR 214Q INTERNAL 172Q OUTPUT 53Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) ( 513Q (ShowResultsA0005) 455Q "addrs" 434Q "2nd" 413Q "1st" 314Q (ShowResultsA0004) 211Q (ShowResultsA0003) 30Q (ShowResultsA0001)) ShowWordsA0001 D1 (NAME ERRORSET P 0 addr F 1 MACROY F 2 offset F 3 inRadix) 5i gð™i hcikRµmÿSµl Ô i ¿i ¿°Ñ(60Q TERPRI 53Q PRIN1 47Q BUS.READWORD 43Q TrueRadixRead 17Q READC 6 PEEKC) (11Q s) () ShowWords D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 2 offset I 1 outRadix I 0 inRadix F 4 RESETVARSLST) ?Aµl 1gHhhTcYog £g»IcgI K“J(72Q ERROR! 65Q APPLY 42Q ShowWordsA0001 7 RADIX) (56Q RADIX 46Q ERROR 37Q INTERNAL 15Q RADIX) ( 34Q (ShowWordsA0001)) StartBltTest D1 (P 1 menus P 0 mw F 5 $$TogWindow$$) „Ui Hg HggI dgð•¿g°%dgð•¿g°dgð”¿g‹gð“g‚0I°d ºKµJh\J&»µíLHg hgH(201Q PUTWINDOWPROP 176Q ADD.PROCESS 163Q \NCONC2 160Q GETWINDOWUSERPROP 127Q TogMenuValue 114Q SHOULDNT 35Q TogMenuValue 16Q GETWINDOWUSERPROP 4 MAINWINDOW) (172Q WINDOW 155Q BMTArrays 110Q FastTestBltOut 103Q FastOut 77Q FastTestBltIn 71Q FastIn 63Q TestBltOut 55Q Out 47Q TestBltIn 41Q In 30Q DoTB 25Q PROCESS 13Q BMTMenus) () StopBltTest D1 (P 1 proc P 0 mw F 2 $$TogWindow$$) (Ri H É.H ¿oH Io (45Q PROCESS.EVAL 35Q PRIN1 24Q TERPRI 13Q \INSUREWINDOW 4 MAINWINDOW) NIL ( 42Q (SETQ $Stop$ T) 31Q "Stopping...") TestBltInA0001 D1 (NAME ERRORSET F 0 i F 1 prev F 2 true F 3 MACROY) 2oi ¿Pi ¿lhi¿Qi ¿ki ¿Ri ¿i ci(54Q TERPRI 47Q PRIN1 41Q SPACES 33Q PRIN1 25Q TAB 15Q PRIN1 7 PRIN1) NIL ( 3 "s") TestBltInA0002 D1 (NAME ERRORSET F 0 i F 1 type F 2 array1 F 3 MACROY F 4 array2 F 5 true) CQi ¿Pi ¿lhi¿RP(i ¿lhi¿TP(i ¿lhi¿Ui ¿i ci(75Q TERPRI 70Q PRIN1 62Q TAB 52Q PRIN1 42Q TAB 32Q PRIN1 22Q TAB 12Q PRIN1 4 PRIN1) NIL () TestBltIn D1 (P 25Q RESETSTATE P 24Q MACROY P 22Q OLDVALUE P 21Q RESETSTATE P 20Q MACROY P 16Q OLDVALUE P 15Q prev P 14Q true P 13Q $Stop$ P 12Q type P 11Q slowPairs P 10Q memPairs P 7 lossPairs P 6 slowFaults P 5 memFaults P 4 losses P 3 j P 1 i I 12Q array2 I 11Q array1 I 10Q block? I 7 n I 6 numPasses I 5 sumType I 4 sumEvery I 3 show I 2 save I 1 pattern I 0 mode F 26Q RESETVARSLST) ÔG§G b¿GAGG“¿GjG@G“¿oi ¿GkjIHó³(kIkÕ@GI(ð³kIkÕGI(@“JkØºIkÔY°ØJi ¿oi ¿i ¿oi ¿i Fµnÿÿkjddhhhhhh8KJó’±ÞO’±Ø`Èlåjð’±ÊGjG@¿G“¿GkIHó’±HGI(GI(ð’±™ kIkÕ@_GI(ð²/g_¿B²!Agð™OGI(IGˆOIGI(GI(¿LkÔ\‰OµZO_¿h²¸C²Gl 1gOhhW,c,_¿og ¥g_"¿Oc,¿gO ¿O"“¿IkÔY±ÿSOð²:g_¿MkÔ½B²Agð—OGI(I†OIGI(GI(¿kIkÕGI(±ÿtNkÔ¾BšOIOO¿C¢±ÿXl 1gO$hhW,c,_&¿og ¥g_*¿O&c,¿gO& ¿O*“¿±ÿG“¿KDµl jð²JEgð™oi °9Li ¿ki ¿oi ¿Mi ¿oi ¿Ni ¿oi ¿i ¿KkÔ[±þ"Agð²'KkÕGA@oooLOi MOi °KkÕGA@oooLOMONO h(1320Q ShowResults 1253Q SORT 1243Q SORT 1171Q TERPRI 1164Q PRIN1 1153Q PRIN1 1145Q PRIN1 1134Q PRIN1 1126Q PRIN1 1115Q SPACES 1107Q PRIN1 1100Q PRIN1 1056Q IMOD 1044Q BLOCK 1030Q ERROR! 1021Q APPLY 771Q TestBltInA0001 732Q RADIX 717Q RecordError 674Q BUS.WRITEWORD 660Q RecordError 571Q ERROR! 562Q APPLY 532Q TestBltInA0002 473Q RADIX 440Q RecordError 360Q BUS.READWORD 312Q BLOCK 303Q FetchArray 211Q TERPRI 204Q PRIN1 173Q TERPRI 166Q PRIN1 155Q PRIN1 134Q BUS.WRITEWORD 111Q BUS.READWORD 64Q PRIN1 53Q BLOCK 45Q StoreArray 34Q BUSDMA.INIT 30Q BLOCK 22Q SetupTestArray 7 ARRAYSIZE) (1205Q rand 1066Q %. 1011Q RADIX 775Q ERROR 766Q INTERNAL 740Q RADIX 630Q rand 612Q m 552Q RADIX 536Q ERROR 527Q INTERNAL 501Q RADIX 406Q rand 374Q r 257Q \EM.KBDAD3) ( 1300Q "addrs" 1274Q "err" 1270Q "val" 1233Q "errs" 1227Q "val" 1223Q "addr" 1160Q " slow faults." 1141Q " memory decays, " 1122Q "read errors, " 1074Q "." 763Q (TestBltInA0001) 524Q (TestBltInA0002) 200Q "starting test." 162Q " errors," 60Q "Pattern stored, ") TestBltOutA0001 D1 (NAME ERRORSET F 0 i F 1 prev F 2 true F 3 MACROY) 2oi ¿Pi ¿lhi¿Qi ¿ki ¿Ri ¿i ci(54Q TERPRI 47Q PRIN1 41Q SPACES 33Q PRIN1 25Q TAB 15Q PRIN1 7 PRIN1) NIL ( 3 "s") TestBltOutA0002 D1 (NAME ERRORSET F 0 i F 1 type F 2 array1 F 3 MACROY F 4 array2 F 5 true) CQi ¿Pi ¿lhi¿RP(i ¿lhi¿TP(i ¿lhi¿Ui ¿i ci(75Q TERPRI 70Q PRIN1 62Q TAB 52Q PRIN1 42Q TAB 32Q PRIN1 22Q TAB 12Q PRIN1 4 PRIN1) NIL () TestBltOut D1 (P 25Q RESETSTATE P 24Q MACROY P 22Q OLDVALUE P 21Q RESETSTATE P 20Q MACROY P 16Q OLDVALUE P 15Q prev P 14Q i P 12Q true P 11Q $Stop$ P 10Q type P 7 slowPairs P 6 memPairs P 5 lossPairs P 4 slowFaults P 3 memFaults P 2 losses P 1 j I 12Q array2 I 11Q array1 I 10Q block? I 7 n I 6 numPasses I 5 sumType I 4 sumEvery I 3 show I 2 save I 1 pattern I 0 mode F 26Q RESETVARSLST) öG§G b¿Agð³%Agð³Adgð³gð•Gg‚GAG¿G“¿oi ¿i Fµnÿÿkjddhhhhhh8 IHó’±DO’±>`Èlåjð’±0Adgð•¿GA°.gð²GIkåjð”g°g°Agð²GIkåjð‘j‚nÿÿG¿G“¿GjG¿G“¿GjG¿G“¿GkOOó’±WGO(GO(ð’±ž kOkÕ@_GO(ð²2g_¿B²$AgðšMGO(OG‰MOGO(GO(¿JkÔZ‰Oµ\O_¿h²³C²Gl 1gOhhW,c,_¿og ¥g_"¿Oc,¿gO ¿O"“¿OkÔ_±ÿIOð²?g_¿KkÔ»B²"Agð˜NGO(O‡NOGO(GO(¿kOkÕGO(±ÿmLkÔ¼B›OOOO¿C¢±ÿPl 1gO$hhW,c,_&¿og ¥g_*¿O&c,¿gO& ¿O*“¿±ÿG“¿IDµl jð²JEgð™oi °9Ji ¿ki ¿oi ¿Ki ¿oi ¿Li ¿oi ¿i ¿IkÔY±ý¼Agð²%IkÕGA@oooJMi KNi °IkÕGA@oooJMKNLOi h(1362Q ShowResults 1316Q SORT 1307Q SORT 1236Q TERPRI 1231Q PRIN1 1220Q PRIN1 1212Q PRIN1 1201Q PRIN1 1173Q PRIN1 1162Q SPACES 1154Q PRIN1 1145Q PRIN1 1123Q IMOD 1111Q BLOCK 1075Q ERROR! 1066Q APPLY 1036Q TestBltOutA0001 777Q RADIX 764Q RecordError 740Q BUS.WRITEWORD 722Q RecordError 626Q ERROR! 617Q APPLY 567Q TestBltOutA0002 530Q RADIX 475Q RecordError 411Q BUS.READWORD 336Q BLOCK 327Q FetchArray 316Q BLOCK 307Q StoreArray 276Q BLOCK 267Q SetupTestArray 110Q TERPRI 103Q PRIN1 72Q BLOCK 63Q SetupTestArray 7 ARRAYSIZE) (1252Q rand 1133Q %. 1056Q RADIX 1042Q ERROR 1033Q INTERNAL 1005Q RADIX 667Q rand 651Q w 607Q RADIX 573Q ERROR 564Q INTERNAL 536Q RADIX 440Q rand 426Q r 242Q altAll 234Q alt1 227Q alt0 211Q alt 176Q newRand 156Q \EM.KBDAD3 52Q rand 43Q fixedRand 35Q newRand 25Q altAll 16Q alt) ( 1343Q "addrs" 1337Q "err" 1333Q "val" 1300Q "errs" 1274Q "val" 1270Q "addr" 1225Q " slow faults." 1206Q " write errors, " 1167Q "read errors, " 1141Q "." 1030Q (TestBltOutA0001) 561Q (TestBltOutA0002) 77Q "Pattern initialized, starting test.") FastTestBltInA0001 D1 (NAME ERRORSET F 0 firstBad F 1 prev F 2 true F 3 MACROY) 2oi ¿Pi ¿lhi¿Qi ¿ki ¿Ri ¿i ci(54Q TERPRI 47Q PRIN1 41Q SPACES 33Q PRIN1 25Q TAB 15Q PRIN1 7 PRIN1) NIL ( 3 "s") FastTestBltInA0002 D1 (NAME ERRORSET F 0 firstBad F 1 type F 2 MACROY F 3 array1 F 4 true) 3Qi ¿Pi ¿lhi¿SP(i ¿lhi¿Ti ¿i ci(55Q TERPRI 50Q PRIN1 42Q TAB 32Q PRIN1 22Q TAB 12Q PRIN1 4 PRIN1) NIL () FastTestBltIn D1 (P 26Q RESETSTATE P 25Q MACROY P 23Q OLDVALUE P 22Q RESETSTATE P 21Q MACROY P 17Q OLDVALUE P 16Q prev P 15Q firstBad P 14Q top P 13Q true P 12Q type P 11Q slowPairs P 10Q memPairs P 7 lossPairs P 6 slowFaults P 5 memFaults P 4 losses P 3 j P 1 i I 12Q array2 I 11Q array1 I 10Q block? I 7 n I 6 numPasses I 5 sumType I 4 sumEvery I 3 show I 2 save I 1 pattern I 0 mode F 27Q RESETVARSLST) ÑG§G b¿GAGGjG@oi ¿GkjIHó³(kIkÕ@GI(ð³kIkÕGI(@“JkØºIkÔY°ØJi ¿oi ¿i ¿oi ¿i Fµnÿÿkjddhhhhhh(KJó’±é`Èlåjð’±ÛG Ojð’±qO˜O ’±cGjO@_jð’±RO˜O ’±DkOkÙ@_GO(ð²1g_¿B²#AgðOhOGO(‹OOGO(¿LkÔ\‰Oµ\O_¿h²´C²Gl 1gOhhW.c._ ¿og ¥g_$¿O c.¿gO ¿O$“¿OkÙ_±ÿ-Oð²