![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to init.x CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / event|
Return to init.x CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / event |
1.1 ! root 1: ! 2: /* init.s */ ! 3: ! 4: ! 5: /* This file is a diagnostic version of locore.s. */ ! 6: /* It contains the following: */ ! 7: /* *system data area = scb, dump buffer, interrupt stack, */ ! 8: /* *system page table,user page tables,pcbs,iomap, & io buffers. */ ! 9: /* */ ! 10: /* *system code = interrupt vectors, initialization of system data,*/ ! 11: /* *memory size calculation,initialization of SPT, zeroing of */ ! 12: /* *unused memory, & loading of SBR & SLR. */ ! 13: /* * */ ! 14: /* *at the end of this code, you are ready to go to virtual mode. */ ! 15: /* * --- GOOD LUCK! */ ! 16: /* */ ! 17: /* The arithmetic fault test will only be run if there is a */ ! 18: /* Floating Point Processor in the system or if the users sets the */ ! 19: /* 'run arithmetic test' bit (bit 4 -0x10) in register #1. */ ! 20: /* */ ! 21: /* 14-June-85 : run arithmetic fault test with FPP or option bit set */ ! 22: /* */ ! 23: ! 24: /* privileged registers addresses */ ! 25: #include "prvreg.h" ! 26: ! 27: /* program status long word definition */ ! 28: #include "psl.h" ! 29: ! 30: /* page table entry definition */ ! 31: #include "pte.h" ! 32: ! 33: /* process control block offsets */ ! 34: #include "pcboffset.h" ! 35: ! 36: /* fundamental constants for globl use */ ! 37: #include "const.h" ! 38: ! 39: /* system control block offsets*/ ! 40: #include "scboffset.h" ! 41: /* SPT offsets */ ! 42: #include "sptoffset.h" ! 43: ! 44: /* trap numbers*/ ! 45: #include "trap.h" ! 46: ! 47: ! 48: #define V_TRAP 0 ! 49: #define V_SYSCALL 4 ! 50: ! 51: .set HIGH,0x1f /*mask for disabling all interrupts */ ! 52: .set MCKVEC,4 /*scb offset for machinecheck vector */ ! 53: .set NISP,2 /*no. of interrupt stack pages */ ! 54: .set DONE,255 /*user process done code */ ! 55: ! 56: .text ! 57: ! 58: #include "pstorage.s" /* PROCESSOR STORAGE AREA */ ! 59: ! 60: .globl _Entry ! 61: _Entry: ! 62: jmp start ! 63: .space (1024-6) ! 64: ! 65: ! 66: ! 67: ! 68: /* globl dump buffer to be used for communication */ ! 69: /* between tests & interrupt handlers, & other misc. */ ! 70: /* purposes. */ ! 71: ! 72: /*physical page 3 */ ! 73: ! 74: .set NLWU,34 /*no. of longwords already used */ ! 75: /*this must be changed when you define */ ! 76: /*additional variables below before */ ! 77: /*_dbuf */ ! 78: .globl _restart ! 79: _restart: ! 80: .space 4 /*contains restart address for restarting*/ ! 81: /*after power is restored (loaded by */ ! 82: /*power fail interrupt handler & used by*/ ! 83: /*CPU 2 */ ! 84: .globl _maxmem ! 85: _maxmem: ! 86: .space 4 /*memory size in no of bytes */ ! 87: ! 88: .globl _maxpages ! 89: _maxpages: ! 90: .space 4 /*memory size in no. of physical pages */ ! 91: ! 92: .globl _lastadd ! 93: _lastadd: ! 94: .space 4 /*address of the last long word */ ! 95: ! 96: .globl _unused ! 97: _unused: ! 98: .space 4 /*first unused page in system space */ ! 99: ! 100: .globl _ctlblk ! 101: _ctlblk: ! 102: .long 0 /* pointer to SCB */ ! 103: ! 104: .globl _savvec0 /*save vectors area */ ! 105: _savvec0: ! 106: .space 4 ! 107: ! 108: .globl _savvec1 /*save vectors area */ ! 109: _savvec1: ! 110: .space 4 ! 111: ! 112: .globl _savvec2 /*save vectors area */ ! 113: _savvec2: ! 114: .space 4 ! 115: ! 116: .globl _savvec3 /*save vectors area */ ! 117: _savvec3: ! 118: .space 4 ! 119: ! 120: .globl _savvec4 /*save vectors area */ ! 121: _savvec4: ! 122: .space 4 ! 123: ! 124: .globl _savvec5 /*save vectors area */ ! 125: _savvec5: ! 126: .space 4 ! 127: .globl _savvec6 /*save vectors area */ ! 128: _savvec6: ! 129: .space 4 ! 130: .globl _savvec7 /*save vectors area */ ! 131: _savvec7: ! 132: .space 4 ! 133: ! 134: .globl _savvec8 /*save vectors area */ ! 135: _savvec8: ! 136: .space 4 ! 137: ! 138: .globl badrtn ! 139: badrtn: ! 140: .long tfail ! 141: ! 142: testno: .long 0 ! 143: ! 144: .globl _dbuf /*dump buffer left out of 1K */ ! 145: .globl _r_no ! 146: _r_no: ! 147: .long 0 ! 148: .globl _pt_base ! 149: _pt_base: ! 150: .long 0 ! 151: .globl _saved_psl ! 152: _saved_psl: ! 153: .long 0 ! 154: .globl _saved_sp ! 155: _saved_sp: ! 156: .long 0 ! 157: .globl _saved_fp ! 158: _saved_fp: ! 159: .long 0 ! 160: .globl _p_ptr ! 161: _p_ptr: ! 162: .long 0 ! 163: .globl _ret_adr ! 164: _ret_adr: ! 165: .long 0 ! 166: .globl _exp_par0 ! 167: _exp_par0: ! 168: .long 0 ! 169: .globl _exp_par1 ! 170: _exp_par1: ! 171: .long 0 ! 172: .globl _exp_par2 ! 173: _exp_par2: ! 174: .long 0 ! 175: .globl _exp_par3 ! 176: _exp_par3: ! 177: .long 0 ! 178: .globl _act_par0 ! 179: _act_par0: ! 180: .long 0 ! 181: .globl _act_par1 ! 182: _act_par1: ! 183: .long 0 ! 184: .globl _act_par2 ! 185: _act_par2: ! 186: .long 0 ! 187: .globl _act_par3 ! 188: _act_par3: ! 189: .long 0 ! 190: .globl _test_no ! 191: _test_no: ! 192: .long 0 ! 193: .globl _clk_cnt ! 194: _clk_cnt: ! 195: .long 0 /* Clock int. count */ ! 196: _dbuf: ! 197: .space NBPG - (NLWU *4) ! 198: edbuf: ! 199: ! 200: ! 201: .globl _intstack /* Interrupt stack */ ! 202: _intstack: /* Physical pages 4 & 5 */ ! 203: .space NISP*NBPG ! 204: eintstack: ! 205: ! 206: ! 207: .set SYSPTSIZE,512 /* No. of entries in SPT */ ! 208: ! 209: /* ! 210: System Page Table -- physical page 6 & 7 ! 211: */ ! 212: .align 2 ! 213: .globl _Sysmap ! 214: _Sysmap: ! 215: .space SYSPTSIZE*4 /* 512 max pages allowed for system */ ! 216: eSysmap: ! 217: .globl _Syssize ! 218: .set _Syssize,(eSysmap-_Sysmap)/4 /* should be SYSPTSIZE */ ! 219: ! 220: .globl _iomap /* Physical page 8 */ ! 221: _iomap: .space 1024 /* IOMAP - unused */ ! 222: .globl _eiomap ! 223: _eiomap: ! 224: ! 225: .globl _pcb0 /* Physical page 9 */ ! 226: _pcb0: .space 128 /*process control block 0 */ ! 227: .globl _pcb1 ! 228: _pcb1: .space 128 /*process control block 1 */ ! 229: .globl _pcb2 ! 230: _pcb2: .space 128 /*process control block 2 */ ! 231: .globl _pcb3 ! 232: _pcb3: .space 128 /*process control block 3 */ ! 233: .globl _pcb4 ! 234: _pcb4: .space 128 /*process control block 4 */ ! 235: .globl _pcb5 ! 236: _pcb5: .space 128 /*process control block 5 */ ! 237: .globl _pcb6 ! 238: _pcb6: .space 128 /*process control block 6 */ ! 239: .globl _pcb7 ! 240: _pcb7: .space 128 /*process control block 7 */ ! 241: ! 242: /* ! 243: *user #0 page tables -- P0PT, P1PT, P2PT ! 244: *physical memory -- page10, 11, & 12 respectively ! 245: */ ! 246: .align 2 ! 247: .globl _u0p0pt ! 248: _u0p0pt: ! 249: .space 1024 /*255 max pages for user #0 text */ ! 250: .globl _u0p1pt ! 251: _u0p1pt: ! 252: .space 1024 /*255 max pages for user #0 data */ ! 253: .globl _u0p2pt ! 254: _u0p2pt: ! 255: .space 1020 /*255 max pages for user #0 stack */ ! 256: eu0p2pt: ! 257: .space 4 ! 258: ! 259: /* ! 260: *user #1 page tables -- P0PT, P1PT, P2PT ! 261: *physical memory -- page13 ,14, & 15 respectively ! 262: */ ! 263: .align 2 ! 264: .globl _u1p0pt ! 265: _u1p0pt: ! 266: .space 1024 /*255 max pages for user #1 text */ ! 267: .globl _u1p1pt ! 268: _u1p1pt: ! 269: .space 1024 /*255 max pages for user #1 data */ ! 270: .globl _u1p2pt ! 271: _u1p2pt: ! 272: .space 1020 /*255 max pages for user #1 stack */ ! 273: eu1p2pt: ! 274: .space 4 ! 275: ! 276: ! 277: /* ! 278: *user #2 page tables -- P0PT, P1PT, P2PT ! 279: *physical memory -- page 16, 17 , & 18 respectively ! 280: */ ! 281: .align 2 ! 282: .globl _u2p0pt ! 283: _u2p0pt: ! 284: .space 1024 /*255 max pages for user #2 text */ ! 285: .globl _u2p1pt ! 286: _u2p1pt: ! 287: .space 1024 /*255 max pages for user #2 data */ ! 288: .globl _u2p2pt ! 289: _u2p2pt: ! 290: .space 1020 /*255 max pages for user #2 stack */ ! 291: eu2p2pt: ! 292: .space 4 ! 293: ! 294: ! 295: /* ! 296: *user #3 page tables -- P0PT, P1PT, P2PT ! 297: *physical memory -- page 19, 20 , & 21 respectively ! 298: */ ! 299: .align 2 ! 300: .globl _u3p0pt ! 301: _u3p0pt: ! 302: .space 1024 /*255 max pages for user #3 text */ ! 303: .globl _u3p1pt ! 304: _u3p1pt: ! 305: .space 1024 /*255 max pages for user #3 data */ ! 306: .globl _u3p2pt ! 307: _u3p2pt: ! 308: .space 1020 /*255 max pages for user #3 stack */ ! 309: eu3p2pt: ! 310: .space 4 ! 311: ! 312: /* ! 313: *user #4 thru 6 page tables ! 314: *physical memory -- pages 22 thru 30 ! 315: */ ! 316: .globl _u4p0pt ! 317: _u4p0pt: ! 318: .space (9*NBPG) - 4 ! 319: eu6p2pt: ! 320: .space 4 ! 321: ! 322: /* ! 323: *user #7 page tables -- P0PT, P1PT, P2PT ! 324: *physical memory -- page 31, 32 , & 33 respectively ! 325: */ ! 326: .align 2 ! 327: .globl _u7p0pt ! 328: _u7p0pt: ! 329: .space 1024 /*255 max pages for user #7 text */ ! 330: .globl _u7p1pt ! 331: _u7p1pt: ! 332: .space 1024 /*255 max pages for user #7 data */ ! 333: .globl _u7p2pt ! 334: _u7p2pt: ! 335: .space 1020 /*255 max pages for user #7 stack */ ! 336: eu7p2pt: ! 337: .space 4 ! 338: ! 339: .globl _iob0 /*io buffer 0 */ ! 340: _iob0: .space 1024 ! 341: .globl _iob1 /*io buffer 1 */ ! 342: _iob1: .space 1024 ! 343: .globl _iob2 /*io buffer 2 */ ! 344: _iob2: .space 1024 ! 345: .globl _iob3 /*io buffer 3 */ ! 346: _iob3: .space 1024 ! 347: .globl _iob4 /*io buffer 4 */ ! 348: _iob4: .space 1024 ! 349: .globl _iob5 /*io buffer 5 */ ! 350: _iob5: .space 1024 ! 351: .globl _iob6 /*io buffer 6 */ ! 352: _iob6: .space 1024 ! 353: esysdata: ! 354: ! 355: #include "scblock.s" /* SYSTEM CONTROL BLOCK */ ! 356: ! 357: ! 358: ! 359: ! 360: ! 361: ! 362: ! 363: #include "evthandlers.s" /*event handlers */ ! 364: ! 365: #define ACBL(_n1,_n2,_n3,_n4) \ ! 366: addl2 _n2,_n3;\ ! 367: cmpl _n3,_n1;\ ! 368: bleq _n4; ! 369: ! 370: ! 371: ! 372: /* ! 373: *INITIALIZATION CODE ! 374: * ! 375: * MME off; mode = k; IPL = 31; IS = 1 ! 376: * ! 377: */ ! 378: ! 379: .globl start ! 380: start: ! 381: mtpr $0,$MME /* Disable MME */ ! 382: ! 383: movl r0,_tno /* R0 : Test no to run; 0 run all tests */ ! 384: movl r1,_option ! 385: movl r2,_Cycle /* R2 : Cycle count */ ! 386: ! 387: clrl _cycle ! 388: clrl _lptest ! 389: movl $1,_Emsg /* Turn on messages sense switch */ ! 390: andl3 _option,$0x8,_ss1 /* Heading message sense switch */ ! 391: ! 392: tstl _tno /* Set lptest if tno = XX and loop forever */ ! 393: beql 1f ! 394: cmpl _Cycle,$-1 ! 395: bneq extest ! 396: incl _lptest ! 397: extest: ! 398: movab 1f,r0 ! 399: andl2 $0xfffffff,r0 ! 400: jmp (r0) /* Switch map S->U */ ! 401: 1: ! 402: mtpr $0,$MME ! 403: movab _scb,r0 ! 404: andl2 $0x3ffffc00,r0 ! 405: mtpr r0,$SCBB /* Set SCBB */ ! 406: mtpr $0x1f,$IPL /* Set IPL to HIGH */ ! 407: ! 408: movpsl r1 ! 409: andl2 $0xffffff00,r1 /* Mask out flags */ ! 410: cmpl r1,$0x041f0000 /*IS on,modes =k & IPL = 31? */ ! 411: beql 1f ! 412: 2: movl $1,r0 ! 413: movl $0x041f0000,r2 ! 414: halt /* PSL not initialized as expected */ ! 415: /* ! 416: # Mask out bit 30,31 of SCB vectors ! 417: # Will turm them back on when ready to go virtual in ! 418: # system space ! 419: */ ! 420: 1: ! 421: clrl _clk_cnt ! 422: movl $7,r0 /* R0 : Vector no. of clock int. */ ! 423: movab _Hardclk,_scb[r0] /* New vector for clock */ ! 424: movl $NBPG/4,r1 /* One page for SCB */ ! 425: movab _scb,r0 ! 426: andl2 $0x3ffffc00,r0 ! 427: 1: andl2 $0x3fffffff,(r0) ! 428: addl2 $4,r0 ! 429: decl r1 /* Last one yet ? */ ! 430: bneq 1b ! 431: ! 432: ! 433: movl $_intstack+NISP*NBPG,r0 ! 434: andl2 $0x3fffffff,r0 /* Mask out bit 30,31 */ ! 435: mtpr r0,$ISP /* init. ISP */ ! 436: movl r0,sp /* in case we get exception */ ! 437: movab (sp),fp /* Initialize FP */ ! 438: ! 439: /* ! 440: Clear system data area all the way upto system code ! 441: this includes dump buffer,interrupt stack,spt,iomap,pcbs,user ! 442: page tables, & io buffer area. ! 443: */ ! 444: 3: ! 445: movab esysdata,r7 ! 446: movab _restart,r6 ! 447: 1: clrl (r6) ! 448: ACBL(r7,$4,r6,1b) ! 449: /* ! 450: Initialize System Page Table ! 451: */ ! 452: 5: ! 453: clrl r2 ! 454: movab esysdata,r1 /* R1 = Last address in system data area */ ! 455: andl2 $0x3fffffff,r1 /* Mask out bit 30,31 */ ! 456: shar $PGSHIFT,r1,r1 /* Get page no. of last system data addr */ ! 457: /* Map systm data area 1 to 1,kernel writable */ ! 458: 1: ! 459: movl r2,r11 /* Donot want to use orl3 */ ! 460: orl2 $PG_V|PG_KW,r11 ! 461: orl2 r11,_Sysmap[r2] ! 462: aoblss r1,r2,1b ! 463: /* ! 464: Map system text area 1 to 1, Kernel read/write. ! 465: For this to work, the label _etext must exist at the end ! 466: of system code; Add in 4 more pages for data area used in C ! 467: */ ! 468: movab _edata + 4*(NBPG-1),r1 /* Map text+data 1 to 1; Kernel R/W */ ! 469: /* movab _etext + 4*(NBPG-1), r1 */ ! 470: andl2 $0x3fffffff,r1 ! 471: shar $PGSHIFT,r1,r1 ! 472: 1: ! 473: movl r2,r11 ! 474: orl2 $PG_V|PG_KW,r11 /* Kernel Read/Write */ ! 475: orl2 r11,_Sysmap[r2] ! 476: aoblss r1,r2,1b ! 477: /* ! 478: Map from here (1st unused page) to page 512 : ! 479: * invalid,no access, & virtual = physical ! 480: */ ! 481: movl r2,_unused /* Save first unused physical page no */ ! 482: movl $LSP+1,r1 ! 483: 1: movl r2,_Sysmap[r2] ! 484: aoblss r1,r2,1b ! 485: ! 486: /* ! 487: Initialize SBR, SLR ! 488: *Following are some useful addresses for user 0 (in case you want ! 489: *to start user 0: ! 490: * ! 491: * p0br = $_u0p0pt (limit = 256 max) ! 492: * p1br = $_u0p1pt ( same limit) ! 493: * p2br = $0xbfc02c00 (funny) ! 494: * p2lr = $0x000ffff0 (funny) ! 495: * ! 496: *for other users, add NBPG*3 to above except for p2 area ! 497: * ! 498: * u0_user_sp = 0xbffffbfc ! 499: * u0_k_sp = 0xbfffe3fc ! 500: * u0_s_sp = 0xbfffcbfc ! 501: * u0_e_sp = 0xbfffcbfc ! 502: * ! 503: */ ! 504: ! 505: sysrdy: ! 506: mtpr $(_Sysmap-0xc0000000),$SBR /* Set SYSTEM BASE REG */ ! 507: mtpr $_Syssize,$SLR ! 508: ! 509: .globl _ready ! 510: _ready: ! 511: mtpr $64,$DCR /* Enable fault */ ! 512: movab tfail,badrtn ! 513: ! 514: tstl _ss1 ! 515: jeql 1f ! 516: pushab M0 ! 517: callf $8,_writes /* Print heading */ ! 518: ! 519: cmpl $0,_tno ! 520: beql t0 ! 521: cmpl $1,_tno ! 522: bneq nxt1 ! 523: t0: ! 524: tstl _ss1 ! 525: jeql 1f ! 526: pushab M1 ! 527: callf $8,_writes ! 528: 1: ! 529: clrl _Errmsg ! 530: callf $4,_prvreg /* Subtest1 : MTPR/MFPR from privilege regs */ ! 531: tstl _lptest ! 532: bneq t0 ! 533: nxt1: ! 534: cmpl $0,_tno ! 535: beql t1 ! 536: cmpl $2,_tno ! 537: bneq nxt2 ! 538: t1: ! 539: tstl _ss1 ! 540: jeql 1f ! 541: pushab M2 ! 542: callf $8,_writes ! 543: 1: ! 544: clrl _Errmsg ! 545: callf $4,_prvinstr /* Subtest2 : Test ldpctx, svpctx, rei */ ! 546: tstl _lptest ! 547: bneq t1 ! 548: nxt2: ! 549: cmpl $0,_tno ! 550: beql t2 ! 551: cmpl $3,_tno ! 552: bneq nxt3 ! 553: t2: ! 554: tstl _ss1 ! 555: jeql 1f ! 556: pushab M3 ! 557: callf $8,_writes ! 558: 1: ! 559: clrl _Errmsg ! 560: callf $4,_be_evt /* Subtest3 : Bus error interrupt */ ! 561: tstl _lptest /* again on this test */ ! 562: bneq t2 ! 563: nxt3: ! 564: cmpl $0,_tno ! 565: beql t3 ! 566: cmpl $4,_tno ! 567: bneq nxt4 ! 568: t3: ! 569: tstl _ss1 ! 570: jeql 1f ! 571: pushab M4 ! 572: callf $8,_writes ! 573: 1: ! 574: clrl _Errmsg ! 575: callf $4,_roprnd_evt /* Subtest4 : Reserved operand fault */ ! 576: tstl _lptest ! 577: bneq t3 ! 578: nxt4: ! 579: cmpl $0,_tno ! 580: beql t4 ! 581: cmpl $5,_tno ! 582: bneq nxt5 ! 583: t4: ! 584: tstl _ss1 ! 585: jeql 1f ! 586: pushab M5 ! 587: callf $8,_writes ! 588: 1: clrl _Errmsg ! 589: callf $4,_prv_evt /* Subtest5 : Privilege inst. fault */ ! 590: tstl _lptest ! 591: bneq t4 ! 592: nxt5: ! 593: cmpl $0,_tno ! 594: beql t5 ! 595: cmpl $6,_tno ! 596: bneq nxt6 ! 597: t5: ! 598: tstl _ss1 ! 599: jeql 1f ! 600: pushab M6 ! 601: callf $8,_writes ! 602: 1: clrl _Errmsg ! 603: callf $4,_align_evt /* Subtest6 : Data alignment fault */ ! 604: tstl _lptest ! 605: bneq t5 ! 606: nxt6: ! 607: cmpl $0,_tno ! 608: beql t6 ! 609: cmpl $7,_tno ! 610: bneq nxt7 ! 611: t6: ! 612: tstl _ss1 ! 613: jeql 1f ! 614: pushab M7 ! 615: callf $8,_writes ! 616: 1: clrl _Errmsg ! 617: callf $4,_raddr_evt /* Subtest7 : Reserved addr. mode fault */ ! 618: tstl _lptest ! 619: bneq t6 ! 620: nxt7: ! 621: cmpl $0,_tno ! 622: beql t7 ! 623: cmpl $8,_tno ! 624: bneq nxt8 ! 625: t7: ! 626: tstl _ss1 ! 627: jeql 1f ! 628: pushab M8 ! 629: callf $8,_writes ! 630: 1: clrl _Errmsg ! 631: callf $4,_rsv_evt /* Subtest8 : Reserved instuction fault */ ! 632: tstl _lptest ! 633: bneq t7 ! 634: nxt8: ! 635: # 6/14/85 brw nxt9 /* SKIP THIS TEST because of backplane problem */ ! 636: mtpr $0x400,$DCR /* Is there a floating point out there? */ ! 637: tstl r1 /* -R1 will be non zero if there is. */ ! 638: bneq 1f /* test the arithmetic fault w/ FPP's */ ! 639: bitl $0x10,_option /* test the arithmetic fault anyway? */ ! 640: beql nxt9 /* -don't run it (backplane problem )*/ ! 641: 1: ! 642: cmpl $0,_tno ! 643: beql t8 ! 644: cmpl $9,_tno ! 645: bneq nxt9 ! 646: t8: ! 647: tstl _ss1 ! 648: jeql 1f ! 649: pushab M9 ! 650: callf $8,_writes ! 651: 1: clrl _Errmsg ! 652: callf $4,_arith_evt /* Subtest9 : Arithmetic fault */ ! 653: tstl _lptest ! 654: bneq t8 ! 655: nxt9: ! 656: cmpl $0,_tno ! 657: beql t9 ! 658: cmpl $10,_tno ! 659: bneq nxt10 ! 660: t9: ! 661: tstl _ss1 ! 662: jeql 1f ! 663: pushab M10 ! 664: callf $8,_writes ! 665: 1: clrl _Errmsg ! 666: callf $4,_bpt_evt /* subtest10 : Break point instruction test */ ! 667: tstl _lptest ! 668: bneq t9 ! 669: nxt10: ! 670: cmpl $0,_tno ! 671: beql t10 ! 672: cmpl $11,_tno ! 673: bneq nxt11 ! 674: t10: ! 675: tstl _ss1 ! 676: jeql 1f ! 677: pushab M11 ! 678: callf $8,_writes ! 679: 1: clrl _Errmsg ! 680: callf $0,_ttrap_evt /* Subtest11 : Trace trap test */ ! 681: tstl _lptest ! 682: bneq t10 ! 683: nxt11: ! 684: cmpl $0,_tno ! 685: beql t11 ! 686: cmpl $12,_tno ! 687: jneq nxt12 ! 688: t11: ! 689: tstl _ss1 ! 690: jeql 1f ! 691: pushab M12 ! 692: callf $8,_writes ! 693: 1: clrl _Errmsg ! 694: callf $4,_sftint_evt /* Subtest12 : Software interrupt test */ ! 695: tstl _lptest ! 696: bneq t11 ! 697: ! 698: /* GO TO VIRTUAL MODE ! 699: Double map the kernel into user addresses : ! 700: This will enable system to go to virtual mode the 1st time !! ! 701: */ ! 702: nxt12: ! 703: mtpr $(_Sysmap-0xc0000000),$SBR /* Set SYSTEM BASE REG */ ! 704: mtpr $_Syssize,$SLR ! 705: mtpr $_Sysmap,$P0BR ! 706: mtpr $_Syssize,$P0LR ! 707: mtpr $1,$PADC ! 708: mtpr $1,$TBIA ! 709: mtpr $1,$MME ! 710: jmp *$vmode ! 711: vmode: ! 712: mtpr $0,$P0LR ! 713: ! 714: movl $_intstack+NISP*NBPG,r0 ! 715: mtpr r0,$ISP /* init. ISP,sp to virtual address */ ! 716: movl r0,sp ! 717: ! 718: /* ! 719: Set bit 30,31 of SCB vectors on. ! 720: Now we are running virtual in system space ! 721: */ ! 722: movl $NBPG/4,r1 /* One page for SCB */ ! 723: movab _scb,r0 ! 724: andl2 $0xfffffc00,r0 ! 725: 1: orl2 $0xc0000000,(r0) ! 726: addl2 $4,r0 ! 727: decl r1 /* Last one yet ? */ ! 728: bneq 1b ! 729: ! 730: movab tfail,badrtn ! 731: ! 732: cmpl $0,_tno ! 733: beql t12 ! 734: cmpl $13,_tno ! 735: bneq nxt13 ! 736: t12: ! 737: tstl _ss1 ! 738: jeql 1f ! 739: pushab M13 ! 740: callf $8,_writes ! 741: 1: clrl _Errmsg ! 742: calls $4,_kcall_evt /* KCALL test */ ! 743: tstl _lptest ! 744: bneq t12 ! 745: nxt13: ! 746: cmpl $0,_tno ! 747: beql t13 ! 748: cmpl $14,_tno ! 749: bneq nxt14 ! 750: t13: ! 751: tstl _ss1 ! 752: jeql 1f ! 753: pushab M14 ! 754: callf $8,_writes ! 755: 1: clrl _Errmsg ! 756: calls $4,_trans_evt /* Translation fault */ ! 757: tstl _lptest ! 758: bneq t13 ! 759: nxt14: ! 760: cmpl $0,_tno ! 761: beql t14 ! 762: cmpl $15,_tno ! 763: bneq nxt15 ! 764: t14: ! 765: tstl _ss1 ! 766: jeql 1f ! 767: pushab M15 ! 768: callf $8,_writes ! 769: 1: clrl _Errmsg ! 770: calls $4,_probe_evt /* PROBER/PROBEW test */ ! 771: tstl _lptest ! 772: bneq t14 ! 773: nxt15: ! 774: cmpl $0,_tno ! 775: beql t15 ! 776: cmpl $16,_tno ! 777: bneq nxt16 ! 778: t15: ! 779: tstl _ss1 ! 780: jeql 1f ! 781: pushab M16 ! 782: callf $8,_writes ! 783: 1: clrl _Errmsg ! 784: calls $4,_ksnv_evt /* Kernel stack not valid test */ ! 785: tstl _lptest ! 786: bneq t15 ! 787: nxt16: ! 788: cmpl $0,_tno ! 789: beql t16 ! 790: cmpl $17,_tno ! 791: bneq nxt17 ! 792: t16: ! 793: tstl _ss1 ! 794: jeql 1f ! 795: pushab M17 ! 796: callf $8,_writes ! 797: 1: clrl _Errmsg ! 798: calls $4,_mulevt /* Multiple events test */ ! 799: tstl _lptest ! 800: bneq t16 ! 801: nxt17: ! 802: cmpl $0,_tno ! 803: jneq last ! 804: cmpl $-1,_Cycle /* If Cycle == -1; loop forever */ ! 805: beql 1f /* and skip the last test */ ! 806: subl3 _cycle,_Cycle,r0 ! 807: cmpl $1,r0 /* Only (ALL tests and last cycle) */ ! 808: jlss last /* turn on this test */ ! 809: t17: ! 810: pushl $M18 /* Display msg */ ! 811: callf $8,_writes ! 812: pushl $M19 ! 813: callf $8,_writes ! 814: pushl $M20 ! 815: callf $8,_writes ! 816: clrl _Errmsg ! 817: calls $4,_isnv_evt /* Interrupt stack not valid test */ ! 818: /* NO RETURN FROM THIS TEST */ ! 819: last: ! 820: cmpl $-1,_Cycle /* If Cycle == -1; loop forever */ ! 821: beql 1f ! 822: ! 823: incl _cycle ! 824: cmpl _cycle,_Cycle ! 825: bgeq passed ! 826: 1: ! 827: mfpr $SBR,r0 ! 828: mfpr $SLR,r1 ! 829: orl2 $0xc0000000,r0 ! 830: mtpr r0,$P0BR ! 831: mtpr r1,$P0LR /* Map user to system space */ ! 832: jmp extest ! 833: ! 834: .globl passed ! 835: passed: ! 836: tstl _ss1 ! 837: jeql 1f ! 838: pushab M21 /* Cycle count */ ! 839: callf $4+4,_writes ! 840: pushl _Cycle ! 841: callf $4+4,_writeh ! 842: pushab M22 ! 843: callf $4+4,_writes ! 844: 1: ! 845: movl $0xcafebabe,r0 ! 846: halt ! 847: .space 20 ! 848: ! 849: .globl tfail ! 850: tfail: /* enter here when test fail */ ! 851: storer $0x1fff,Gregs /* save registers */ ! 852: tstl _Emsg /* If set then donot print message */ ! 853: beql nomsg ! 854: movl _Errmsg,r0 ! 855: beql 1f ! 856: pushl r0 /* Print errror message if any */ ! 857: callf $8,_writes ! 858: 1: ! 859: pushab Gregs ! 860: callf $8,_error /* Dump general registers */ ! 861: nomsg: ! 862: loadr $0x1fff,Gregs /* load registers */ ! 863: halt ! 864: ! 865: ! 866: .align 2 ! 867: .globl _Hardclk ! 868: _Hardclk: ! 869: incl _clk_cnt ! 870: rei ! 871: ! 872: ! 873: .data 1 ! 874: M0: ! 875: .ascii "\n\t** The Event Test **\12\0" ! 876: M1: ! 877: .ascii "** Subtest1 : MTPR/MFPR from privilege registers \12\0" ! 878: M2: ! 879: .ascii "** Subtest2 : Test LDPCTX, SVPCTX, REI \12\0" ! 880: M3: ! 881: .ascii "** Subtest3 : Bus error interrupt \12\0" ! 882: M4: ! 883: .ascii "** Subtest4 : Reserved operand fault\12\0" ! 884: M5: ! 885: .ascii "** Subtest5 : Privilege inst. fault \12\0" ! 886: M6: ! 887: .ascii "** Subtest6 : Data alignment fault \12\0" ! 888: M7: ! 889: .ascii "** Subtest7 : Reserved addr. mode fault \12\0" ! 890: M8: ! 891: .ascii "** Subtest8 : Reserved instruction fault \12\0" ! 892: M9: ! 893: .ascii "** Subtest9 : Arithmetic fault\12\0" ! 894: M10: ! 895: .ascii "** Subtest10 : Break point instruction test \12\0" ! 896: M11: ! 897: .ascii "** Subtest11 : Trace trap test \12\0" ! 898: M12: ! 899: .ascii "** Subtest12 : Software interrupt test \12\0" ! 900: M13: ! 901: .ascii "** Subtest13 : KCALL\12\0" ! 902: M14: ! 903: .ascii "** Subtest14 : Translation fault\12\0" ! 904: M15: ! 905: .ascii "** Subtest15 : PROBER/PROBEW\12\0" ! 906: M16: ! 907: .ascii "** Subtest16 : Kernel stack not valid test\12\0" ! 908: M17: ! 909: .ascii "** Subtest17 : Mutiple events test\12\0" ! 910: M18: ! 911: .ascii "** Subtest18 : Interrupt stack not valid test.\12\0" ! 912: M19: ! 913: .ascii "If TAHOE get a machine check after you see this message\12\0" ! 914: M20: ! 915: .ascii " then The EVENT test passed !\12\0" ! 916: ! 917: M21: .ascii "\n** Cycle count : \0" ! 918: M22: .ascii "\n\0" ! 919: ! 920: .globl err1 ! 921: err1: ! 922: .ascii "\nRegisters : \0" ! 923: .globl err2 ! 924: err2: ! 925: .ascii " \0" ! 926: .globl err3 ! 927: err3: ! 928: .ascii "\n \0" ! 929: .globl err4 ! 930: err4: ! 931: .ascii "\n\0" ! 932: ! 933: .globl e_type ! 934: e_type: ! 935: .ascii "\n** Unexpected exception type : \0" ! 936: ! 937: .globl par_0 ! 938: par_0: ! 939: .ascii "** Par 0 : \0" ! 940: ! 941: .globl par_1 ! 942: par_1: ! 943: .ascii "** Par 1 : \0" ! 944: ! 945: .globl par_pc ! 946: par_pc: ! 947: .ascii "** PC : \0" ! 948: ! 949: .globl par_psl ! 950: par_psl: ! 951: .ascii "** PSL : \0" ! 952: ! 953: .align 2 ! 954: Gregs: .space 60 /* Space to save general registers */ ! 955: .align 2 ! 956: .globl _Errmsg ! 957: _Errmsg: ! 958: .long 0 /* Pointer to error message */ ! 959: .globl _ss1 ! 960: _ss1: .long 0 /* If 1 then donot print heading messages */ ! 961: .globl _tno ! 962: _tno: .long 0 /* If -1 run ALL tests, else run test "tno" */ ! 963: .globl _Cycle ! 964: _Cycle: .long 0 /* Cycle count */ ! 965: .globl _cycle ! 966: _cycle: .long 0 /* Cycle count */ ! 967: .globl _option ! 968: _option: ! 969: .long 0 ! 970: .globl _lptest ! 971: _lptest: ! 972: .long 0 /* Loop on test specified by tno */ ! 973: .globl _CPer ! 974: _CPer: ! 975: .long 0 ! 976: .globl _Emsg ! 977: _Emsg: ! 978: .long 1 ! 979:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.