![[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 / dmp4|
Return to init.x CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / dmp4 |
1.1 ! root 1: /************************************************************************/ ! 2: /* Revision History */ ! 3: /* ---------- */ ! 4: /* Rev 1.0 1 Aug 85 */ ! 5: /* */ ! 6: /* Initial release of the diagnostic */ ! 7: /* */ ! 8: /************************************************************************/ ! 9: ! 10: # INIT.X for the Demand Pageing Tests ! 11: # ! 12: # This file is a diagnostic version of locore.s. ! 13: # It contains the following: ! 14: # *system data area = scb, dump buffer, interrupt stack, ! 15: # *system page table,user page tables,pcbs,iomap, & io buffers. ! 16: # ! 17: # *system code = interrupt vectors, initialization of system data, ! 18: # *memory size calculation,initialization of SPT, zeroing of ! 19: # *unused memory, & loading of SBR & SLR. ! 20: # * ! 21: # *at the end of this code, you are ready to go to virtual mode. ! 22: # * --- GOOD LUCK! ! 23: # ! 24: ########################################################################## ! 25: # ! 26: # 6-Mar-85 : changed to user mode execution ! 27: # 11-Mar-85 : moved mode changeing from here to RUN_CODE ! 28: # 17-Jul-85 : added "mtpr" test for fpp/no-fpp wcs ! 29: ########################################################################## ! 30: ! 31: ! 32: /* privileged registers addresses */ ! 33: #include "prvreg.h" ! 34: ! 35: /* program status long word definition */ ! 36: #include "psl.h" ! 37: ! 38: /* page table entry definition */ ! 39: #include "pte.h" ! 40: ! 41: /* process control block offsets */ ! 42: #include "pcboffset.h" ! 43: ! 44: /* fundamental constants for globl use */ ! 45: #include "const.h" ! 46: ! 47: /* system control block offsets*/ ! 48: #include "scboffset.h" ! 49: /* SPT offsets */ ! 50: #include "sptoffset.h" ! 51: ! 52: /* trap numbers*/ ! 53: #include "trap.h" ! 54: ! 55: ! 56: #define V_TRAP 0 ! 57: #define V_SYSCALL 4 ! 58: ! 59: .set HIGH,0x1f /*mask for disabling all interrupts */ ! 60: .set MCKVEC,4 /*scb offset for machinecheck vector */ ! 61: .set NISP,2 /*no. of interrupt stack pages */ ! 62: .set DONE,255 /*user process done code */ ! 63: .set TTRAP,0x32 ! 64: .set PRIVS,0x2c ! 65: ! 66: .text ! 67: ! 68: /* PROCESSOR STORAGE AREA */ ! 69: #include "pstorage.s" ! 70: ! 71: .globl _Entry ! 72: _Entry: ! 73: jmp start ! 74: .space (1024-6) ! 75: ! 76: /* globl dump buffer to be used for communication */ ! 77: /* between tests & interrupt handlers, & other misc. */ ! 78: /* purposes. */ ! 79: ! 80: /* Physical page 3 : Used for global variables */ ! 81: ! 82: .set NLWU,35 /*no. of longwords already used */ ! 83: /*this must be changed when you define */ ! 84: /*additional variables below before */ ! 85: /*_dbuf */ ! 86: .globl _Codek ! 87: _Codek: .long 0 /* Code cache key */ ! 88: ! 89: .globl _restart ! 90: _restart: ! 91: .space 4 /*contains restart address for restarting*/ ! 92: /*after power is restored (loaded by */ ! 93: /*power fail interrupt handler & used by*/ ! 94: /*CPU 2 */ ! 95: .globl _maxmem ! 96: _maxmem: ! 97: .space 4 /*memory size in no of bytes */ ! 98: ! 99: .globl _maxpages ! 100: _maxpages: ! 101: .space 4 /*memory size in no. of physical pages */ ! 102: ! 103: .globl _lastadd ! 104: _lastadd: ! 105: .space 4 /*address of the last long word */ ! 106: ! 107: .globl _unused ! 108: _unused: ! 109: .space 4 /*first unused page in system space */ ! 110: ! 111: .globl _ctlblk ! 112: _ctlblk: ! 113: .long 0 /* pointer to SCB */ ! 114: ! 115: .globl _savvec0 /*save vectors area */ ! 116: _savvec0: ! 117: .space 4 ! 118: ! 119: .globl _savvec1 /*save vectors area */ ! 120: _savvec1: ! 121: .space 4 ! 122: ! 123: .globl _savvec2 /*save vectors area */ ! 124: _savvec2: ! 125: .space 4 ! 126: ! 127: .globl _savvec3 /*save vectors area */ ! 128: _savvec3: ! 129: .space 4 ! 130: ! 131: .globl _savvec4 /*save vectors area */ ! 132: _savvec4: ! 133: .space 4 ! 134: ! 135: .globl _savvec5 /*save vectors area */ ! 136: _savvec5: ! 137: .space 4 ! 138: .globl _savvec6 /*save vectors area */ ! 139: _savvec6: ! 140: .space 4 ! 141: .globl _savvec7 /*save vectors area */ ! 142: _savvec7: ! 143: .space 4 ! 144: ! 145: .globl _savvec8 /*save vectors area */ ! 146: _savvec8: ! 147: .space 4 ! 148: ! 149: .globl _r_no ! 150: _r_no: ! 151: .long 0 ! 152: .globl _pt_base ! 153: _pt_base: ! 154: .long 0 ! 155: .globl _saved_psl ! 156: _saved_psl: ! 157: .long 0 ! 158: .globl _saved_sp ! 159: _saved_sp: ! 160: .long 0 ! 161: .globl _saved_fp ! 162: _saved_fp: ! 163: .long 0 ! 164: .globl _ret_adr ! 165: _ret_adr: ! 166: .long 0 ! 167: .globl _exp_par0 ! 168: _exp_par0: ! 169: .long 0 ! 170: .globl _exp_par1 ! 171: _exp_par1: ! 172: .long 0 ! 173: .globl _f_vaddr ! 174: _f_vaddr: ! 175: .long 0 /* VA that caused fault */ ! 176: ! 177: .globl _f_ptr ! 178: _f_ptr: ! 179: .long 0 /* Pointer to fault parameters */ ! 180: .globl _df_cnt ! 181: _df_cnt: ! 182: .long 0 /* Count of data fault */ ! 183: ! 184: .globl _if_cnt ! 185: _if_cnt: ! 186: .long 0 /* Count of Instruction fault */ ! 187: ! 188: .globl _newepc ! 189: _newepc: ! 190: .long 0 ! 191: ! 192: .globl _errcnt ! 193: _errcnt: ! 194: .long 0 ! 195: ! 196: .globl _clk_cnt ! 197: _clk_cnt: ! 198: .long 0 ! 199: ! 200: .globl _ttcnt ! 201: _ttcnt: ! 202: .long 0 /* Count of Trap exception */ ! 203: .globl _trcnt ! 204: _trcnt: ! 205: .long 0 /* Count of Translation fault */ ! 206: ! 207: .globl _Ufpte ! 208: _Ufpte: .long 0 ! 209: .globl _Ulpte ! 210: _Ulpte: .long 0 ! 211: ! 212: .globl _dbuf /*dump buffer left out of 1K */ ! 213: _dbuf: ! 214: .space NBPG - (NLWU *4) ! 215: edbuf: ! 216: ! 217: ! 218: .globl _intstack /* Interrupt stack */ ! 219: _intstack: /* Physical pages 4 & 5 */ ! 220: .space NISP*NBPG ! 221: eintstack: ! 222: ! 223: ! 224: .set SYSPTSIZE,512 /* No. of entries in SPT */ ! 225: ! 226: /* ! 227: System Page Table -- physical page 6 & 7 ! 228: */ ! 229: .align 2 ! 230: .globl _Sysmap ! 231: _Sysmap: ! 232: .space SYSPTSIZE*4 /* 512 max pages allowed for system */ ! 233: eSysmap: ! 234: .globl _Syssize ! 235: .set _Syssize,(eSysmap-_Sysmap)/4 /* should be SYSPTSIZE */ ! 236: ! 237: .globl _iomap /* Physical page 8 */ ! 238: _iomap: .space 1024 /* IOMAP - unused */ ! 239: .globl _eiomap ! 240: _eiomap: ! 241: ! 242: .globl _pcb0 /* Physical page 9 */ ! 243: _pcb0: .space 128 /*process control block 0 */ ! 244: .globl _pcb1 ! 245: _pcb1: .space 128 /*process control block 1 */ ! 246: .globl _pcb2 ! 247: _pcb2: .space 128 /*process control block 2 */ ! 248: .globl _pcb3 ! 249: _pcb3: .space 128 /*process control block 3 */ ! 250: .globl _pcb4 ! 251: _pcb4: .space 128 /*process control block 4 */ ! 252: .globl _pcb5 ! 253: _pcb5: .space 128 /*process control block 5 */ ! 254: .globl _pcb6 ! 255: _pcb6: .space 128 /*process control block 6 */ ! 256: .globl _pcb7 ! 257: _pcb7: .space 128 /*process control block 7 */ ! 258: ! 259: /* ! 260: *user #0 page tables -- P0PT, P1PT, P2PT ! 261: *physical memory -- page10, 11, & 12 respectively ! 262: */ ! 263: .align 2 ! 264: .globl _u0p0pt ! 265: _u0p0pt: ! 266: .space 1024 /*255 max pages for user #0 text */ ! 267: .globl _u0p1pt ! 268: _u0p1pt: ! 269: .space 1024 /*255 max pages for user #0 data */ ! 270: .globl _u0p2pt ! 271: _u0p2pt: ! 272: .space 1020 /*255 max pages for user #0 stack */ ! 273: eu0p2pt: ! 274: .space 4 ! 275: ! 276: /* ! 277: *user #1 page tables -- P0PT, P1PT, P2PT ! 278: *physical memory -- page13 ,14, & 15 respectively ! 279: */ ! 280: .align 2 ! 281: .globl _u1p0pt ! 282: _u1p0pt: ! 283: .space 1024 /*255 max pages for user #1 text */ ! 284: .globl _u1p1pt ! 285: _u1p1pt: ! 286: .space 1024 /*255 max pages for user #1 data */ ! 287: .globl _u1p2pt ! 288: _u1p2pt: ! 289: .space 1020 /*255 max pages for user #1 stack */ ! 290: eu1p2pt: ! 291: .space 4 ! 292: ! 293: ! 294: /* ! 295: *user #2 page tables -- P0PT, P1PT, P2PT ! 296: *physical memory -- page 16, 17 , & 18 respectively ! 297: */ ! 298: .align 2 ! 299: .globl _u2p0pt ! 300: _u2p0pt: ! 301: .space 1024 /*255 max pages for user #2 text */ ! 302: .globl _u2p1pt ! 303: _u2p1pt: ! 304: .space 1024 /*255 max pages for user #2 data */ ! 305: .globl _u2p2pt ! 306: _u2p2pt: ! 307: .space 1020 /*255 max pages for user #2 stack */ ! 308: eu2p2pt: ! 309: .space 4 ! 310: ! 311: ! 312: /* ! 313: *user #3 page tables -- P0PT, P1PT, P2PT ! 314: *physical memory -- page 19, 20 , & 21 respectively ! 315: */ ! 316: .align 2 ! 317: .globl _u3p0pt ! 318: _u3p0pt: ! 319: .space 1024 /*255 max pages for user #3 text */ ! 320: .globl _u3p1pt ! 321: _u3p1pt: ! 322: .space 1024 /*255 max pages for user #3 data */ ! 323: .globl _u3p2pt ! 324: _u3p2pt: ! 325: .space 1020 /*255 max pages for user #3 stack */ ! 326: eu3p2pt: ! 327: .space 4 ! 328: ! 329: /* ! 330: *user #4 thru 6 page tables ! 331: *physical memory -- pages 22 thru 30 ! 332: */ ! 333: .globl _u4p0pt ! 334: _u4p0pt: ! 335: .space (9*NBPG) - 4 ! 336: eu6p2pt: ! 337: .space 4 ! 338: ! 339: /* ! 340: Area used for Kernel stack ! 341: physical memory -- page 31, 32 , 33 ! 342: */ ! 343: ! 344: .align 2 ! 345: .globl _Kstack /* Kernel stack */ ! 346: _Kstack: /* Physical pages 31,32,33 */ ! 347: .space 3*NBPG ! 348: .globl ekstack ! 349: ekstack: ! 350: ! 351: ! 352: .globl _iob0 /*io buffer 0 */ ! 353: _iob0: .space 1024 ! 354: .globl _iob1 /*io buffer 1 */ ! 355: _iob1: .space 1024 ! 356: .globl _iob2 /*io buffer 2 */ ! 357: _iob2: .space 1024 ! 358: .globl _iob3 /*io buffer 3 */ ! 359: _iob3: .space 1024 ! 360: .globl _iob4 /*io buffer 4 */ ! 361: _iob4: .space 1024 ! 362: .globl _iob5 /*io buffer 5 */ ! 363: _iob5: .space 1024 ! 364: .globl _iob6 /*io buffer 6 */ ! 365: _iob6: .space 1024 ! 366: esysdata: ! 367: ! 368: /* SYSTEM CONTROL BLOCK */ ! 369: #include "scblock.s" ! 370: ! 371: ! 372: ! 373: #include "evthandlers.s" ! 374: ! 375: #define ACBL(_n1,_n2,_n3,_n4) addl2 _n2,_n3; cmpl _n3,_n1; bleq _n4; ! 376: ! 377: ! 378: ! 379: # *INITIALIZATION CODE ! 380: # * ! 381: # * MME off; mode = k; IPL = 31; IS = 1 ! 382: # * ! 383: ! 384: ! 385: .globl start ! 386: start: ! 387: mtpr $0,$MME /* Disable MME */ ! 388: movl r0,_run_list ! 389: movl r1,_OPTIONS ! 390: clrl _nonstop /* clear the continuous run flag */ ! 391: movl r2,_count /* save the test count */ ! 392: bneq 1f /* is count = 0 ? */ ! 393: movl $1,_count /* yes -set cycle count = 1 */ ! 394: 1: bgeq 1f /* is count < 0 ? */ ! 395: movl $1,_nonstop /* yes -set NONSTOP flag */ ! 396: 1: ! 397: clrl _no_fpp_wcs /* clear the NO-FPP WCS flag */ ! 398: mtpr $0x400,$DCR /* check for FPP WCS loaded */ ! 399: tstl r1 /* r1 = 0 if NO-FPP WCS loaded */ ! 400: bneq 1f ! 401: movl $1,_no_fpp_wcs /* set the NO-FPP WCS flag */ ! 402: 1: ! 403: movab _scb,r0 ! 404: andl2 $0x3ffffc00,r0 ! 405: mtpr r0,$SCBB /* Set SCBB */ ! 406: mtpr $0x1f,$IPL /* Set IPL to HIGH */ ! 407: ! 408: andl3 $4,r11,_ss1 /* messages sense switch */ ! 409: ! 410: # ! 411: # clear the option flags ! 412: # ! 413: clrl _halt_flg /* clear the halt on error flag */ ! 414: clrl _loop_on_err /* clear the loop on error flag */ ! 415: movl $1,_prt_error /* set the print error messages flag */ ! 416: movl $1,_prt_hdrs /* set the print header messages flag */ ! 417: movl $1,_en_data_cache /* set the enable data cache flag */ ! 418: movl $1,_user_mode /* set the Run In User Mode flag */ ! 419: clrl _exp_event /* clear the fpp event expected flag */ ! 420: clrl _event_return /* clear the fpp event return flag */ ! 421: clrl _unexp_event_ret /*clear the unexpected event return addr */ ! 422: ! 423: # ! 424: # set the option flags as needed ! 425: # ! 426: bitl $1,_OPTIONS /* bit(0) = HALT ON ERROR */ ! 427: beql 1f ! 428: movl $1,_halt_flg /* set the HALT ON ERROR flag */ ! 429: 1: ! 430: bitl $2,_OPTIONS /* bit(1) = LOOP ON ERROR */ ! 431: beql 1f ! 432: movl $1,_loop_on_err /* set the LOOP ON ERROR flag */ ! 433: 1: ! 434: bitl $4,_OPTIONS /* bit(2) = PRINT ERROR MESSAGES */ ! 435: beql 1f ! 436: clrl _prt_error /* clear the PRINT ERROR MESSAGES flag */ ! 437: 1: ! 438: bitl $8,_OPTIONS /* bit(3) = PRINT HEADER MESSAGES */ ! 439: beql 1f ! 440: clrl _prt_hdrs /* clear the PRINT HEADER MESSAGES flag */ ! 441: 1: ! 442: bitl $16,_OPTIONS /* bit(4) = ENABLE DATA CACHE flag */ ! 443: beql 1f ! 444: clrl _en_data_cache /* clear the ENABLE DATA CACHE flag */ ! 445: 1: ! 446: bitl $32,_OPTIONS /* bit(5) = DON'T RUN IN USER MODE flag */ ! 447: beql 1f ! 448: clrl _user_mode /* reset the RUN IN USER MODE flag */ ! 449: 1: ! 450: movpsl r1 ! 451: andl2 $0xffffff00,r1 /* Mask out flags */ ! 452: cmpl r1,$0x041f0000 /*IS on,modes =k & IPL = 31? */ ! 453: beql 1f ! 454: 2: movl $1,r0 ! 455: movl $0x041f0000,r2 ! 456: halt /* PSL not initialized as expected */ ! 457: 1: ! 458: movl $_intstack+NISP*NBPG,r0 ! 459: andl2 $0x3fffffff,r0 /* Mask out bit 30,31 */ ! 460: mtpr r0,$ISP /* init. ISP */ ! 461: movl r0,sp /* in case we get exception */ ! 462: movab (sp),fp /* Initialize FP */ ! 463: # ! 464: # Clear system data area all the way upto system code ! 465: # this includes dump buffer,interrupt stack,spt,iomap,pcbs,user ! 466: # page tables, & io buffer area. ! 467: # ! 468: 3: ! 469: movab esysdata,r7 ! 470: movab _restart,r6 ! 471: 1: clrl (r6) ! 472: ACBL(r7,$4,r6,1b) ! 473: # ! 474: # Initialize System Page Table ! 475: # ! 476: 5: ! 477: clrl r2 ! 478: movab esysdata,r1 /* R1 = Last address in system data area */ ! 479: andl2 $0x3fffffff,r1 /* Mask out bit 30,31 */ ! 480: shar $PGSHIFT,r1,r1 /* Get page no. of last system data addr */ ! 481: /* Map systm data area 1 to 1,kernel writable */ ! 482: 1: ! 483: orl3 $PG_V|PG_KW,r2,_Sysmap[r2] ! 484: aoblss r1,r2,1b ! 485: ! 486: # ! 487: # Map system text area 1 to 1, Kernel read/write. ! 488: # For this to work, the label _etext must exist at the end ! 489: # of system code; Add in 4 more pages for data area used in C ! 490: # ! 491: movab _Esys,r1 /* Map System text 1 to 1; Kernel R/W */ ! 492: andl2 $0x3fffffff,r1 ! 493: shar $PGSHIFT,r1,r1 ! 494: 1: ! 495: orl3 $PG_V|PG_KW,r2,_Sysmap[r2] ! 496: aobleq r1,r2,1b ! 497: # ! 498: # Map from here to last page used by user : ! 499: # invalid, User access, & virtual = physical ! 500: # ! 501: movl r2,_unused /* Save first unused physical page no */ ! 502: movl r2,_Ufpte /* First PTE of User */ ! 503: movl $0x80000,r1 /* Allow this much memory for User */ ! 504: shar $PGSHIFT,r1,r1 ! 505: movl r1,_Ulpte /* Last PTE of User */ ! 506: ! 507: 1: ! 508: orl3 $PG_V|PG_UW,r2,_Sysmap[r2] /* Valid / User Read/Write */ ! 509: aoblss r1,r2,1b ! 510: ! 511: # ! 512: # Initialize SBR, SLR ! 513: # ! 514: sysrdy: ! 515: mtpr $_Sysmap,$SBR /* Set SYSTEM BASE REG */ ! 516: mtpr $_Syssize,$SLR ! 517: mtpr $64,$DCR /* Enable fault */ ! 518: ! 519: # GO TO VIRTUAL MODE ! 520: # Double map the kernel into user addresses : ! 521: # This will enable system to go to virtual mode the 1st time !! ! 522: # ! 523: ! 524: orl3 $0xc0000000,$_Sysmap,r0 ! 525: mtpr r0,$P0BR /* Double map P0BR to SBR */ ! 526: mtpr $_Syssize,$P0LR ! 527: mtpr $1,$PADC /* Purge all data cache */ ! 528: mtpr $1,$TBIA /* Purge all Trans. buffer */ ! 529: ! 530: mfpr $SCBB,r0 ! 531: movab _Trans,TRANSVEC(r0) /* Set new trans. fault handler */ ! 532: movab _Prvis,PRIVSVEC(r0) /* Set new priv. ins. fault handler */ ! 533: moval _FPM_handler,FPMVEC(r0) /* Set now fpm trap handler */ ! 534: mtpr $_pcb0,$0xe /* Init. PCBB to PCB_0 */ ! 535: ! 536: movab _pcb0,r0 ! 537: movab ekstack,PCB_KSP(r0) /* Init. PCB_KSP */ ! 538: movab eustack,PCB_USP(r0) /* Init. PCB_USP */ ! 539: mfpr $P0BR,PCB_P0BR(r0) /* " PCB_P0BR */ ! 540: mfpr $P0LR,PCB_P0LR(r0) /* " PCB_P0LR */ ! 541: movl $0x001f000,PCB_PSL(r0) /* Set PCB_PSL : Kernel Mode */ ! 542: ldpctx /* load the process context */ ! 543: ! 544: mtpr $1,$PACC /* purge the code cache */ ! 545: movl $1,_Codek ! 546: mtpr _Codek,$CCK /* Set code cache key */ ! 547: ! 548: callf $4,_monitor /* go execute the test */ ! 549: ! 550: ! 551: #include "fault_handlers.s" /* put spectial handlers here */ ! 552: ! 553: ! 554: # /**************************************************************************** ! 555: # * STACK AREA ! 556: # ****************************************************************************/ ! 557: ! 558: .globl _Esys /* end of systems only code */ ! 559: _Esys: ! 560: .space NBPG ! 561: ! 562: .globl _Ustack /* basic stack space */ ! 563: _Ustack: ! 564: .space (2*NBPG)-4 /* 2 pages */ ! 565: .globl eustack ! 566: eustack: ! 567: .long 0 /* initial user stack ptr */ ! 568: ! 569: .globl U_area ! 570: U_area: ! 571:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.