(FILECREATED "27-Jul-85 18:13:10" ("compiled on " {IVY}LISP>EDIN>PCMEMTEST.;1) "19-Mar-85 14:34:17" tcompl%'d in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 4-Jun-85 15:11:13" {DSK}HTHOMPSON>DSL>PCMEMTEST.;4 31870 changes to: (VARS PCMEMTESTCOMS) (FNS MAKE.PCMEM.TEST PCMEM.CHECKOUT ShowWords TestBltIn TestBltOut FastTestBltIn QuietTestBltIn QuietTestBltOut) previous date: " 3-Jun-85 17:36:53" {DSK}HTHOMPSON>DSL>PCMEMTEST.;1) PCMEM.CHECKOUT D1 (P 14Q pat P 12Q pat P 10Q result P 7 p P 5 pages P 1 i I 0 maxPageNumber F 15Q BMTArray1 F 16Q BMTArray2 F 17Q PCMEM.THRESH F 20Q PCMEM.READTESTPATS F 21Q PCMEM.WRITETESTPATS)  @jdllj2IdHBJMnoi @jdlli oi i oi i hjd Ij jIjl Ij lIK Lh[IkYL&oi Mi hihi oi i j k j ji l2 ji ooi i Wng cWng cM!Nh_W  O%h_Roi Oi oi OI_OgOlnWW Woi O_Oioi Oi oi i W" O%h_Roi Oi oi OI_OgOlnWW Woi O_Oioi Oi oi i N^(1025Q TERPRI 1020Q PRIN1 1007Q PRIN1 1000Q PRIN1 751Q PRIN1 735Q QuietTestBltOut 700Q PRIN1 667Q PRIN1 660Q PRIN1 627Q TERPRI 622Q PRIN1 611Q PRIN1 602Q PRIN1 553Q PRIN1 537Q QuietTestBltIn 502Q PRIN1 471Q PRIN1 462Q PRIN1 411Q ARRAY 370Q ARRAY 351Q TERPRI 344Q PRIN1 326Q BUSDMA.READTCBIT 320Q DISMISS 312Q BUSDMA.READTCBIT 302Q BUSDMA.READADDRESS 275Q DISMISS 271Q BUSDMA.READADDRESS 264Q TERPRI 257Q PRIN1 246Q PRINTDEF 236Q POSITION 230Q PRIN1 167Q PCBUS.READHL 161Q PCBUS.WRITEHL 146Q PCBUS.READHL 140Q PCBUS.WRITEHL 131Q TERPRI 124Q PRIN1 113Q TERPRI 106Q PRIN1 75Q PRIN1 54Q PRIN1 5 BUSDMA.INIT 2 BUS.RESET) (716Q STRAIGHT 520Q STRAIGHT 406Q WORD 365Q WORD) ( 1014Q " write test OK" 774Q "Page " 745Q "+" 674Q " write test errors for pattern " 654Q "Page " 616Q " read test OK" 576Q "Page " 547Q "+" 476Q " read test errors for pattern " 456Q "Page " 340Q "Memory refresh DMA OK" 333Q "The memory refresh DMA is not running." 253Q "." 224Q "There is memory on the PC at page address(es) " 120Q "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." 102Q "." 50Q "There does not appear to be any memory connected to the PC in page address range 0 - ") RecordError D1 (P 1 subEntry P 0 topEntry I 3 secondIndex I 2 firstIndex I 1 value I 0 aList) 5B@ HBhhX@ CH YAIIAh hCAhH (62Q PUTASSOC 47Q \NCONC2 31Q ASSOC 23Q PUTASSOC 4 ASSOC) NIL () SetupTestArray D1 (P 1 i I 2 n I 1 pattern I 0 array1) oBkIHh@IAdjjRAdgjn @gIkjn0j-AdgIkjjnddAoA *IkY(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) SRIdl oH H)dl oI k ll2I hhci(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 gIcgI KJ(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 Woo o l 1gHhhTcog gIcgI Ko Wg 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) ;P Pj o PQSo o Too ci(65Q PRIN1 46Q PRIN1 36Q PRIN1 20Q PRIN1 3 PRIN1) NIL ( 62Q " read errors," 55Q " read errors: " 43Q " per thousand)" 31Q 1000.0 15Q " (") ShowResultsA0004 D1 (NAME ERRORSET F 0 mn F 1 out? F 2 j F 3 n F 4 mp F 5 MACROY) Nh P Pj o PRSo o TQooQoo c i(110Q PRIN1 53Q PRIN1 43Q PRIN1 25Q PRIN1 10Q PRIN1 3 TERPRI) NIL ( 105Q " memory decays," 100Q " write errors," 71Q " memory decays: " 64Q " write errors: " 50Q " per thousand)" 36Q 1000.0 22Q " (") ShowResultsA0005 D1 (NAME ERRORSET F 0 sn F 1 ln F 2 MACROY F 3 mn F 4 sp) @h P Pj o PQSo o Too ci(72Q PRIN1 53Q PRIN1 43Q PRIN1 25Q PRIN1 10Q PRIN1 3 TERPRI) NIL ( 67Q " slow faults." 62Q " slow faults: " 50Q " per thousand)" 36Q 1000.0 22Q " (") 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 1gHhhTcog gIcgI KGG1lhi Di lhi Ei lhi Fi i i 1gHhhTcog gIcgI KGi 1gHhhTcog gIcgI KGG:i lhi oi lhi oi lhi oi i 1gHhhTcog gIcgI KGi  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 gi hcikRmSl i i (60Q TERPRI 53Q PRIN1 47Q PCBUS.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) ?Al 1gHhhTcYog gIcgI KJ(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 dgg%dggdgggg0Id KJh\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 l hi 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)  GG bGAG GGjG@ Goi GkjIH(kIk@ GI(kIkGI(@ JkغIkYJi oi i oi i Fnkjddhhhhhh8 KJO`ljGjG@ GGkIHHGI(GI( kIk@ _GI(/g_B!AgOGI(IGOIGI(GI( Lk\OZO_hCGl 1gOhhW,c,_og g_"Oc,gO O"IkYSO:g_MkԽBAgOGI(IOIGI(GI( kIkGI( tNkԾBOIOO CXl 1gO$hhW,c,_&og g_*O&c,gO& O*GKDl jJEgoi 9Li ki oi Mi oi Ni oi i Kk["Ag'KkGA@oooLOi MOi KkGA@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 PCBUS.WRITEWORD 660Q RecordError 571Q ERROR! 562Q APPLY 532Q TestBltInA0002 473Q RADIX 440Q RecordError 360Q PCBUS.READWORD 312Q BLOCK 303Q PCBUS.READARRAY 211Q TERPRI 204Q PRIN1 173Q TERPRI 166Q PRIN1 155Q PRIN1 134Q PCBUS.WRITEWORD 111Q PCBUS.READWORD 64Q PRIN1 53Q BLOCK 45Q PCBUS.WRITEARRAY 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 l hi 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)  GG bAg%AgAdggGgGAG Goi i Fnkjddhhhhhh8 IHDO>`lj0AdgGA.gGIkjggAgGIkjjnG GGjG GGjG GGk OOWGO(GO( kOk@ _GO(2g_B$AgMGO(OGMOGO(GO( JkZO\O_hCGl 1gOhhW,c,_og g_"Oc,gO O"Ok_IO?g_KkԻB"AgNGO(ONOGO(GO( kOkGO( mLkԼBOOOO CPl 1gO$hhW,c,_&og g_*O&c,gO& O*GIDl jJEgoi 9Ji ki oi Ki oi Li oi i IkYAg%IkGA@oooJMi KNi IkGA@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 PCBUS.WRITEWORD 722Q RecordError 626Q ERROR! 617Q APPLY 567Q TestBltOutA0002 530Q RADIX 475Q RecordError 411Q PCBUS.READWORD 336Q BLOCK 327Q PCBUS.READARRAY 316Q BLOCK 307Q PCBUS.WRITEARRAY 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 l hi 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)  GG bGAG GjG@ oi GkjIH(kIk@ GI(kIkGI(@ JkغIkYJi oi i oi i Fnkjddhhhhhh( KJ`ljG OjUGjO@ _jDkOk@ _GO(1g_B#AgOhOGO( OOGO( Lk\O\O_hCGl 1gOhhW.c._ og g_$O c.gO  O$Ok_IO