![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to temp$.s 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 temp$.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / dmp4 |
1.1 ! root 1: ! 2: /* privileged registers constants (addresses) */ ! 3: ! 4: ! 5: ! 6: .set SBR,0 /*system base register */ ! 7: .set SLR,1 /*system length reg */ ! 8: .set P0BR,2 /*p0 base reg */ ! 9: .set P0LR,3 /*p0 length reg */ ! 10: .set P1BR,4 /*p1 base reg */ ! 11: .set P1LR,5 /*p1 length reg */ ! 12: .set P2BR,6 /*p2 base reg */ ! 13: .set P2LR,7 /*p2 length reg */ ! 14: .set IPL,8 /*int priority level reg */ ! 15: .set MME,9 /*memory mgmt enable reg */ ! 16: .set TBIA,10 /*trans buf invalidate all */ ! 17: /*entries */ ! 18: .set TBIS,11 /*trans buf invalidate single */ ! 19: /*entry */ ! 20: .set DCK,12 /*data cache key */ ! 21: .set CCK,13 /*code cache key */ ! 22: .set PCBB,14 /*process control block base */ ! 23: .set ISP,15 /*interrupt stack pointer */ ! 24: .set SIRR,16 /*software int request reg */ ! 25: .set SISR,17 /*software int summary reg */ ! 26: .set SCBB,18 /*system control block base reg */ ! 27: .set KSP,19 /*kernel stack pointer reg */ ! 28: .set USP,20 /*user stack pointer */ ! 29: .set DCB,21 /*CPU2 DCB */ ! 30: .set PACC,23 /*purge (invalidate) all pages */ ! 31: /*of process in code cache */ ! 32: .set P1DC,24 /*purge one page of data cache */ ! 33: .set PADC,25 /*purge all the pages of */ ! 34: /*process in data cache */ ! 35: .set HISR,26 /* Hardware interrupt summary reg */ ! 36: .set DCR,27 /* Diagnostic control register */ ! 37: .set PDCS,28 /* Purge 1 data cache slot */ ! 38: ! 39: # ! 40: #TAHOE program status longword ! 41: # ! 42: ! 43: .set PSL_C,0x00000001 /* carry bit */ ! 44: .set PSL_V,0x00000002 /* overflow bit */ ! 45: .set PSL_Z,0x00000004 /* zero bit */ ! 46: .set Z,0x00000004 ! 47: .set PSL_N,0x00000008 /* negative bit */ ! 48: .set PSL_T,0x00000010 /* trace enable bit */ ! 49: .set PSL_I,0x00000020 /* integer overflow enable bit */ ! 50: .set PSL_EN_OVFL,0x20 /* integer overflow enable bit */ ! 51: .set PSL_EN_UNDFL,0x40 /* floating underflow enable */ ! 52: .set PSL_DBL,0x80 /* dbl precision Accumulator bit */ ! 53: .set PSL_IPL,0x001f0000 /* interrupt priority level */ ! 54: .set PSL_MOD,0x01000000 /* mode = 1 means user */ ! 55: .set PSL_IS,0x04000000 /* interrupt stack */ ! 56: .set PSL_TP,0x40000000 /* trace pending */ ! 57: ! 58: # ! 59: # TAHOE page table entry ! 60: #/ ! 61: .set PG_V,0x8000000 ! 62: .set PG_PROT,0x78000000 ! 63: .set PG_M,0x04000000 ! 64: .set PG_USED,0x02000000 ! 65: .set PG_NC,0x01000000 ! 66: .set PG_PFNUM,0x003fffff ! 67: ! 68: .set PG_NOACC,0 ! 69: .set PG_KR,0x40000000 ! 70: .set PG_KW,0x60000000 ! 71: .set PG_URKR,0x50000000 ! 72: .set PG_URKW,0x70000000 ! 73: .set PG_UW,0x78000000 ! 74: ! 75: #* PCB offsets & diagnostic extension to pcb */ ! 76: #* PCB is at pcb0 */ ! 77: ! 78: ! 79: .set PCB_SIZE, 24 ! 80: .set PCB_KSP, 0 ! 81: .set PCB_USP, 4 ! 82: .set PCB_R0, 8 ! 83: .set PCB_R1, 12 ! 84: .set PCB_R2, 16 ! 85: .set PCB_R3, 20 ! 86: .set PCB_R4, 24 ! 87: .set PCB_R5, 28 ! 88: .set PCB_R6, 32 ! 89: .set PCB_R7, 36 ! 90: .set PCB_R8, 40 ! 91: .set PCB_R9, 44 ! 92: .set PCB_R10, 48 ! 93: .set PCB_R11, 52 ! 94: .set PCB_R12, 56 ! 95: .set PCB_R13, 60 ! 96: .set PCB_PC, 64 ! 97: .set PCB_PSL, 68 ! 98: .set PCB_P0BR, 72 ! 99: .set PCB_P0LR, 76 ! 100: .set PCB_P1BR, 80 ! 101: .set PCB_P1LR, 84 ! 102: .set PCB_P2BR, 88 ! 103: .set PCB_P2LR, 92 ! 104: .set PCB_ACCM, 96 ! 105: .set PCB_ACCL, 100 ! 106: #* ! 107: # Diagnostic pcb extension ! 108: #/ ! 109: .set PCB_STAT, 104 /*process status,statistics,id,etc*/ ! 110: ! 111: ! 112: ! 113: #* fundamental constants */ ! 114: ! 115: #* ! 116: # fundamental constants of the implementation-- ! 117: # cannot be changed easily. ! 118: #/ ! 119: ! 120: .set NBPG,1024 ! 121: .set PGOFSET,(NBPG-1) /* byte offset into page */ ! 122: .set PGSHIFT,10 /* LOG2(NBPG) */ ! 123: .set HIGH,0x1f ! 124: ! 125: ! 126: #* SCB offsets */ ! 127: #* SCB is at scb */ ! 128: ! 129: .set PFVEC,1*4 /*power fail */ ! 130: .set PRVEC,2*4 /*power restore */ ! 131: .set CLOCKVEC,7*4 /*hard clock vector */ ! 132: .set CRVEC,0xa*4 /*console receive */ ! 133: .set CXVEC,44 /*console transmit */ ! 134: .set SIVEC1,0x1e*4 /*software int vec #1 */ ! 135: /*for 2,3,..15, sub 4,8,.. 56 */ ! 136: /*from SIVEC1 */ ! 137: .set BEVEC,0x20*4 /*bus error */ ! 138: .set SYSVEC,0x2b*4 /*system call (kcall) */ ! 139: .set PINSTVEC,0x2c*4 /*privileged instruction fault */ ! 140: .set PRIVSVEC,0x2c*4 /*privileged instruction fault */ ! 141: .set ROVEC,0x2d*4 /*reserved operand fault */ ! 142: .set RAVEC,0x2e*4 /*reserved addressing fault */ ! 143: .set PROTVEC,0x2f*4 /*access control violation */ ! 144: .set TRANS,0x30 /*translation fault vector */ ! 145: .set TRANSVEC,0x30*4 /*translation fault vector */ ! 146: .set KSPVEC,0x31*4 /*kernel stack not valid vector */ ! 147: .set TRACEVEC,0x32*4 /*trace vector */ ! 148: .set BPTVEC,0x33*4 /*break point fault */ ! 149: .set ARITHVEC,0x34*4 /*arithmetic trap */ ! 150: .set ALIGNVEC,0x35*4 /*alignment vector */ ! 151: .set FPMVEC,0x37*4 /*fpp emulation vector */ ! 152: .set IO14VEC,256 /*io vector, ipl #14 */ ! 153: .set IO15VEC,320 /*io vector, ipl #15 */ ! 154: .set IO16VEC,384 /*io vector, ipl #16 */ ! 155: .set IO17VEC,448 /*io vector, ipl #17 */ ! 156: ! 157: #* SPT (system page table) offsets */ ! 158: #* SPT is at Sysmap */ ! 159: ! 160: .set SCBPTE,8 /*system control block pte offset*/ ! 161: .set BUFPTE,12 /*buffer pte offset */ ! 162: .set ISPTE,16 /*interrupt stack page 0 */ ! 163: .set IS1PTE,20 /*interrupt stack page 1 */ ! 164: .set SPTPTE,20 /*system page table page 1 */ ! 165: .set SPT1PTE,20 /*system page table page 2 */ ! 166: .set IOMAPPTE,24 /*io map */ ! 167: .set PCBPTE,28 /*process control blocks pte */ ! 168: .set U0P0PTE,32 /*U0 p0pt pte */ ! 169: .set U0P1PTE,36 /*U0 p1pt pte */ ! 170: .set U0P2PTE,40 /*U0 p2pt pte */ ! 171: .set U1P0PTE,44 ! 172: .set U1P1PTE,48 ! 173: .set U1P2PTE,52 ! 174: .set U2P0PTE,56 ! 175: .set U2P1PTE,60 ! 176: .set U2P2PTE,64 ! 177: .set U3P0PTE,68 ! 178: .set U3P1PTE,72 ! 179: .set U3P2PTE,76 ! 180: .set U4P0PTE,80 ! 181: .set U4P1PTE,84 ! 182: .set U4P2PTE,88 ! 183: .set U5P0PTE,92 ! 184: .set U5P1PTE,96 ! 185: .set U5P2PTE,100 ! 186: .set U6P0PTE,104 ! 187: .set U6P1PTE,108 ! 188: .set U6P2PTE,112 ! 189: .set U7P0PTE,116 /*U7 p0pt pte */ ! 190: .set U7P1PTE,120 /*U7 p1pt pte */ ! 191: .set U7P2PTE,124 /*U7 p2pt pte */ ! 192: .set IOB0PTE,128 /*io buffer 0 pte */ ! 193: .set IOB1PTE,132 ! 194: .set IOB2PTE,136 ! 195: .set IOB3PTE,140 ! 196: .set IOB4PTE,144 ! 197: .set IOB5PTE,148 ! 198: .set IOB6PTE,152 ! 199: .set IOB7PTE,156 /*io buffer 7 pte */ ! 200: ! 201: ! 202: #* trap.h 4.6 81/03/03 */ ! 203: ! 204: #* ! 205: #* Trap type values ! 206: #/ ! 207: ! 208: .set RESADFLT,0 /* reserved addressing fault */ ! 209: .set PRIVINFLT,1 /* privileged instruction fault */ ! 210: .set RESOPFLT,2 /* reserved operand fault */ ! 211: .set BPTFLT,3 /* bpt instruction fault */ ! 212: .set ALIGNFLT,4 /* alignment fault */ ! 213: .set SYSCALL,5 /* kcall instruction (syscall trap) */ ! 214: .set ARITHTRAP,6 /* arithmetic trap */ ! 215: .set PROTFLT,7 /* protection fault */ ! 216: .set TRCTRAP,8 /* trace trap */ ! 217: .set TRANSFLT,9 /* translation not valid fault */ ! 218: .set DONE,255 ! 219: ! 220: # ! 221: # Event codes ! 222: # ! 223: .set RTCLOCK_CODE,7 /* real time clock event */ ! 224: .set RESOP_CODE,0x2d /* reserved operand fault */ ! 225: .set RESAD_CODE,0x2e /* reserved address fault */ ! 226: .set ARITH_CODE,0x34 /* arithmetic fault */ ! 227: .set FPM_CODE,0x37 /* fpp emulation trap */ ! 228: .set INTEGER_OVERFLOW,1 /* code for arith. fault */ ! 229: ! 230: # ! 231: # Arithmetic Event types ! 232: # ! 233: .set INT_OVFL_CODE,1 /* integer overflow */ ! 234: .set INT_0_DIV_CODE,2 /* integer divide by 0 */ ! 235: .set FLT_0_DIV_CODE,3 /* floating divide by 0 */ ! 236: .set FLT_OVFL_CODE,4 /* floating overflow */ ! 237: .set FLT_UNDFL_CODE,5 /* floating underflow */ ! 238: ! 239: # ! 240: # Floating Point Instruction Op-Codes ! 241: # ! 242: .set LDF_OP_CODE,0x06 /* sgl load acc. instr */ ! 243: .set LDD_OP_CODE,0x07 /* dbl load acc. instr */ ! 244: .set LNF_OP_CODE,0x16 /* sgl load-neg acc. instr */ ! 245: .set LND_OP_CODE,0x17 /* dbl load-neg acc. instr */ ! 246: .set STF_OP_CODE,0x26 /* sgl store acc. instr */ ! 247: .set STD_OP_CODE,0x27 /* dbl store acc. instr */ ! 248: .set CMPF_OP_CODE,0x36 /* sgl compare instr */ ! 249: .set CMPD_OP_CODE,0x37 /* dbl compare instr */ ! 250: .set CMPF2_OP_CODE,0x46 /* sgl compare 2 instr */ ! 251: .set CMPD2_OP_CODE,0x47 /* dbl compare 2 instr */ ! 252: .set TSTF_OP_CODE,0x56 /* sgl test acc. instr */ ! 253: .set TSTD_OP_CODE,0x57 /* dbl test acc. instr */ ! 254: .set PUSHD_OP_CODE,0x67 /* dbl push acc. instr */ ! 255: .set CVLF_OP_CODE,0x76 /* convert int to sgl instr */ ! 256: .set CVLD_OP_CODE,0x77 /* convert int to dbl instr */ ! 257: .set CVFL_OP_CODE,0x86 /* convert sgl to int instr */ ! 258: .set CVDL_OP_CODE,0x87 /* convert dbl to int instr */ ! 259: .set LDFD_OP_CODE,0x97 /* load sgl to dbl instr */ ! 260: .set CVDF_OP_CODE,0xa6 /* convert dbl to sgl instr */ ! 261: .set NEGF_OP_CODE,0xb6 /* negate sgl acc. instr */ ! 262: .set NEGD_OP_CODE,0xb7 /* negate dbl acc. instr */ ! 263: .set ADDF_OP_CODE,0xc6 /* sgl add instr */ ! 264: .set ADDD_OP_CODE,0xc7 /* dbl add instr */ ! 265: .set SUBF_OP_CODE,0xd6 /* sgl subtract instr */ ! 266: .set SUBD_OP_CODE,0xd7 /* dbl subtract instr */ ! 267: .set MULF_OP_CODE,0xe6 /* sgl multiply instr */ ! 268: .set MULD_OP_CODE,0xe7 /* dbl multiply instr */ ! 269: .set DIVF_OP_CODE,0xf6 /* sgl divide instr */ ! 270: .set DIVD_OP_CODE,0xf7 /* dbl divide instr */ ! 271: .set SINF_OP_CODE,0x05 /* sgl sine instr */ ! 272: .set COSF_OP_CODE,0x15 /* sgl cosine instr */ ! 273: .set ATANF_OP_CODE,0x25 /* sgl arc-tangent instr */ ! 274: .set LOGF_OP_CODE,0x35 /* sgl natural log instr */ ! 275: .set SQRTF_OP_CODE,0x45 /* sgl square root instr */ ! 276: .set EXPF_OP_CODE,0x55 /* sgl "e to the x" instr */ ! 277: .set MULL2_OP_CODE,0x4c /* integer multiply - 2 ops */ ! 278: .set MULL3_OP_CODE,0x5c /* integer multiply - 3 ops */ ! 279: ! 280: ! 281: # ! 282: # Addressing test constants - These must agree with "fpp_defs.h" ! 283: # ! 284: .set ADR_ABSOLUTE,1 /* absolute address */ ! 285: .set ADR_LITERAL,2 /* literal -short immediate byte */ ! 286: .set ADR_IM_B,3 /* immediate byte */ ! 287: .set ADR_IM_W,4 /* immediate word */ ! 288: .set ADR_IM_L,5 /* immediate long-word */ ! 289: .set ADR_B_DSP,6 /* byte displ relative */ ! 290: .set ADR_W_DSP,7 /* word displ relative */ ! 291: .set ADR_L_DSP,8 /* long-word displ relative */ ! 292: .set ADR_B_DSP_DEF,9 /* byte displ relative deferred */ ! 293: .set ADR_W_DSP_DEF,10 /* word displ relative deferred */ ! 294: .set ADR_L_DSP_DEF,11 /* L-word displ relative deferred */ ! 295: .set ADR_REG,12 /* direct register */ ! 296: .set ADR_REG_DEF,13 /* register deferred */ ! 297: .set ADR_FP_DEF,14 /* FP deferred */ ! 298: .set ADR_SP_DEF,15 /* SP deferred */ ! 299: .set ADR_PUSH,16 /* auto-decrement SP */ ! 300: .set ADR_POP,17 /* auto-increment SP */ ! 301: .set ADR_POP_DEF,18 /* auto-increment SP deferred */ ! 302: .set ADR_REG_B,19 /* register + byte displ */ ! 303: .set ADR_REG_W,20 /* register + word displ */ ! 304: .set ADR_REG_L,21 /* register + long-word displ */ ! 305: .set ADR_REG_B_DEF,22 /* register + byte displ deferred */ ! 306: .set ADR_REG_W_DEF,23 /* register + word displ deferred */ ! 307: .set ADR_REG_L_DEF,24 /* register + L-word displ deferred */ ! 308: .set ADR_I_FP_DEF,25 /* indexed (frame pointer deferred) */ ! 309: .set ADR_I_L,26 /* indexed (longword displacement) */ ! 310: ! 311: ! 312: #************************************************************************* ! 313: # ! 314: # Stuff for the Demand Paging , Events, & Addressing Tests ! 315: # ! 316: #************************************************************************/ ! 317: .set SGL,1 /* sgl precision data */ ! 318: .set DBL,2 /* dbl precision data */ ! 319: .set ENABLE_EVENTS,0x60 /* enable ovfl & undfl events */ ! 320: .set NONE,0 /* no operand flag */ ! 321: .set LOAD,1 /* read-the-operand flag */ ! 322: .set STORE,2 /* store-the-operand flag */ ! 323: ! 324: .set NO_EVT_HLT,1 /* halt code: did not Get event */ ! 325: .set EVT_MSK_HLT,2 /* halt code: got masked event */ ! 326: .set BAD_PSL_HLT,3 /* halt code: wrong PSL value */ ! 327: .set PUSH_CNT_HLT,4 /* halt code: wrong # ops on stk */ ! 328: .set PUSH_PSL_HLT,5 /* halt code: bad PSL on stack */ ! 329: .set PUSH_PC_HLT,6 /* halt code: bad PC on stack */ ! 330: .set BAD_REG_HLT,7 /* halt code: bad final register */ ! 331: .set BAD_ACC_HLT,8 /* halt code: bad final Acc. */ ! 332: ! 333: # ! 334: # set DMP_PG_0 to the 1st empty page ! 335: # ! 336: .set DMP_PG_0,0x36000 ! 337: .set DMP_PG_1,DMP_PG_0+0x400 ! 338: .set DMP_PG_2,DMP_PG_1+0x400 ! 339: .set DMP_PG_3,DMP_PG_2+0x400 ! 340: .set DMP_PG_4,DMP_PG_3+0x400 ! 341: .set DMP_PG_5,DMP_PG_4+0x400 ! 342: .set DMP_PG_6,DMP_PG_5+0x400 ! 343: .set DMP_PG_7,DMP_PG_6+0x400 ! 344: .set DMP_PG_8,DMP_PG_7+0x400 ! 345: .set DMP_PG_9,DMP_PG_8+0x400 ! 346: .set DMP_PG_10,DMP_PG_9+0x400 ! 347: .set DMP_PG_11,DMP_PG_10+0x400 ! 348: .set DMP_PG_12,DMP_PG_11+0x400 ! 349: .set DMP_PG_13,DMP_PG_12+0x400 ! 350: ! 351: # ! 352: # test code space for the address / demand page tests ! 353: # ! 354: .set START_OF_CODE,DMP_PG_1-20 /* 1st addr of test-code space */ ! 355: .set CODE_BUF_SIZE,40 /* # bytes in test-code space */ ! 356: .set END_OF_CODE,START_OF_CODE+CODE_BUF_SIZE ! 357: ! 358: # ! 359: # data locations used by the event and demand page tests ! 360: # ! 361: .set _dmp_byte_op_1,DMP_PG_1+0x30 /* 'byte offset' data */ ! 362: .set _dmp_byte_op_2,DMP_PG_1+0x50 /* 'byte offset' data */ ! 363: .set _dmp_byte_op_3,DMP_PG_1+0x70 /* 'byte offset' data */ ! 364: .set _dmp_op_1,DMP_PG_3-4 /* 1st data word */ ! 365: .set _dmp_op_1_ptr,DMP_PG_4+0x30 /* ptr to 1st data wd */ ! 366: .set _dmp_op_2_ptr,DMP_PG_5+0x30 /* ptr to 2nd data wd */ ! 367: .set _dmp_op_2,DMP_PG_7-4 /* 2nd data word */ ! 368: .set _dmp_op_3,DMP_PG_8 /* 3rd data word */ ! 369: .set _dmp_op_3_ptr,DMP_PG_9+0x30 /* ptr to 3rd data wd */ ! 370: .set _dmp_op_4,DMP_PG_10 /* 4th data (for pipes) */ ! 371: .set _dmp_op_5,DMP_PG_11 /* 5th data (for pipes) */ ! 372: .set _sp_minus,DMP_PG_13-4 /* SP for POPs */ ! 373: .set _sp_page,DMP_PG_13 /* SP page boundary */ ! 374: .set _sp_plus,DMP_PG_13+4 /* SP for PUSHs */ ! 375: ! 376: ! 377: /************************************************************************/ ! 378: /* Revision History */ ! 379: /* ---------- */ ! 380: /* Rev 1.0 1 Aug 85 */ ! 381: /* */ ! 382: /* Initial release of the diagnostic */ ! 383: /* */ ! 384: /************************************************************************/ ! 385: ! 386: # INIT.X for the Demand Pageing Tests ! 387: # ! 388: # This file is a diagnostic version of locore.s. ! 389: # It contains the following: ! 390: # *system data area = scb, dump buffer, interrupt stack, ! 391: # *system page table,user page tables,pcbs,iomap, & io buffers. ! 392: # ! 393: # *system code = interrupt vectors, initialization of system data, ! 394: # *memory size calculation,initialization of SPT, zeroing of ! 395: # *unused memory, & loading of SBR & SLR. ! 396: # * ! 397: # *at the end of this code, you are ready to go to virtual mode. ! 398: # * --- GOOD LUCK! ! 399: # ! 400: ########################################################################## ! 401: # ! 402: # 6-Mar-85 : changed to user mode execution ! 403: # 11-Mar-85 : moved mode changeing from here to RUN_CODE ! 404: # 17-Jul-85 : added "mtpr" test for fpp/no-fpp wcs ! 405: ########################################################################## ! 406: ! 407: ! 408: /* privileged registers addresses */ ! 409: #include "prvreg.h" ! 410: ! 411: /* program status long word definition */ ! 412: #include "psl.h" ! 413: ! 414: /* page table entry definition */ ! 415: #include "pte.h" ! 416: ! 417: /* process control block offsets */ ! 418: #include "pcboffset.h" ! 419: ! 420: /* fundamental constants for globl use */ ! 421: #include "const.h" ! 422: ! 423: /* system control block offsets*/ ! 424: #include "scboffset.h" ! 425: /* SPT offsets */ ! 426: #include "sptoffset.h" ! 427: ! 428: /* trap numbers*/ ! 429: #include "trap.h" ! 430: ! 431: ! 432: #define V_TRAP 0 ! 433: #define V_SYSCALL 4 ! 434: ! 435: .set HIGH,0x1f /*mask for disabling all interrupts */ ! 436: .set MCKVEC,4 /*scb offset for machinecheck vector */ ! 437: .set NISP,2 /*no. of interrupt stack pages */ ! 438: .set DONE,255 /*user process done code */ ! 439: .set TTRAP,0x32 ! 440: .set PRIVS,0x2c ! 441: ! 442: .text ! 443: ! 444: /* PROCESSOR STORAGE AREA */ ! 445: #include "pstorage.s" ! 446: ! 447: .globl _Entry ! 448: _Entry: ! 449: jmp start ! 450: .space (1024-6) ! 451: ! 452: /* globl dump buffer to be used for communication */ ! 453: /* between tests & interrupt handlers, & other misc. */ ! 454: /* purposes. */ ! 455: ! 456: /* Physical page 3 : Used for global variables */ ! 457: ! 458: .set NLWU,35 /*no. of longwords already used */ ! 459: /*this must be changed when you define */ ! 460: /*additional variables below before */ ! 461: /*_dbuf */ ! 462: .globl _Codek ! 463: _Codek: .long 0 /* Code cache key */ ! 464: ! 465: .globl _restart ! 466: _restart: ! 467: .space 4 /*contains restart address for restarting*/ ! 468: /*after power is restored (loaded by */ ! 469: /*power fail interrupt handler & used by*/ ! 470: /*CPU 2 */ ! 471: .globl _maxmem ! 472: _maxmem: ! 473: .space 4 /*memory size in no of bytes */ ! 474: ! 475: .globl _maxpages ! 476: _maxpages: ! 477: .space 4 /*memory size in no. of physical pages */ ! 478: ! 479: .globl _lastadd ! 480: _lastadd: ! 481: .space 4 /*address of the last long word */ ! 482: ! 483: .globl _unused ! 484: _unused: ! 485: .space 4 /*first unused page in system space */ ! 486: ! 487: .globl _ctlblk ! 488: _ctlblk: ! 489: .long 0 /* pointer to SCB */ ! 490: ! 491: .globl _savvec0 /*save vectors area */ ! 492: _savvec0: ! 493: .space 4 ! 494: ! 495: .globl _savvec1 /*save vectors area */ ! 496: _savvec1: ! 497: .space 4 ! 498: ! 499: .globl _savvec2 /*save vectors area */ ! 500: _savvec2: ! 501: .space 4 ! 502: ! 503: .globl _savvec3 /*save vectors area */ ! 504: _savvec3: ! 505: .space 4 ! 506: ! 507: .globl _savvec4 /*save vectors area */ ! 508: _savvec4: ! 509: .space 4 ! 510: ! 511: .globl _savvec5 /*save vectors area */ ! 512: _savvec5: ! 513: .space 4 ! 514: .globl _savvec6 /*save vectors area */ ! 515: _savvec6: ! 516: .space 4 ! 517: .globl _savvec7 /*save vectors area */ ! 518: _savvec7: ! 519: .space 4 ! 520: ! 521: .globl _savvec8 /*save vectors area */ ! 522: _savvec8: ! 523: .space 4 ! 524: ! 525: .globl _r_no ! 526: _r_no: ! 527: .long 0 ! 528: .globl _pt_base ! 529: _pt_base: ! 530: .long 0 ! 531: .globl _saved_psl ! 532: _saved_psl: ! 533: .long 0 ! 534: .globl _saved_sp ! 535: _saved_sp: ! 536: .long 0 ! 537: .globl _saved_fp ! 538: _saved_fp: ! 539: .long 0 ! 540: .globl _ret_adr ! 541: _ret_adr: ! 542: .long 0 ! 543: .globl _exp_par0 ! 544: _exp_par0: ! 545: .long 0 ! 546: .globl _exp_par1 ! 547: _exp_par1: ! 548: .long 0 ! 549: .globl _f_vaddr ! 550: _f_vaddr: ! 551: .long 0 /* VA that caused fault */ ! 552: ! 553: .globl _f_ptr ! 554: _f_ptr: ! 555: .long 0 /* Pointer to fault parameters */ ! 556: .globl _df_cnt ! 557: _df_cnt: ! 558: .long 0 /* Count of data fault */ ! 559: ! 560: .globl _if_cnt ! 561: _if_cnt: ! 562: .long 0 /* Count of Instruction fault */ ! 563: ! 564: .globl _newepc ! 565: _newepc: ! 566: .long 0 ! 567: ! 568: .globl _errcnt ! 569: _errcnt: ! 570: .long 0 ! 571: ! 572: .globl _clk_cnt ! 573: _clk_cnt: ! 574: .long 0 ! 575: ! 576: .globl _ttcnt ! 577: _ttcnt: ! 578: .long 0 /* Count of Trap exception */ ! 579: .globl _trcnt ! 580: _trcnt: ! 581: .long 0 /* Count of Translation fault */ ! 582: ! 583: .globl _Ufpte ! 584: _Ufpte: .long 0 ! 585: .globl _Ulpte ! 586: _Ulpte: .long 0 ! 587: ! 588: .globl _dbuf /*dump buffer left out of 1K */ ! 589: _dbuf: ! 590: .space NBPG - (NLWU *4) ! 591: edbuf: ! 592: ! 593: ! 594: .globl _intstack /* Interrupt stack */ ! 595: _intstack: /* Physical pages 4 & 5 */ ! 596: .space NISP*NBPG ! 597: eintstack: ! 598: ! 599: ! 600: .set SYSPTSIZE,512 /* No. of entries in SPT */ ! 601: ! 602: /* ! 603: System Page Table -- physical page 6 & 7 ! 604: */ ! 605: .align 2 ! 606: .globl _Sysmap ! 607: _Sysmap: ! 608: .space SYSPTSIZE*4 /* 512 max pages allowed for system */ ! 609: eSysmap: ! 610: .globl _Syssize ! 611: .set _Syssize,(eSysmap-_Sysmap)/4 /* should be SYSPTSIZE */ ! 612: ! 613: .globl _iomap /* Physical page 8 */ ! 614: _iomap: .space 1024 /* IOMAP - unused */ ! 615: .globl _eiomap ! 616: _eiomap: ! 617: ! 618: .globl _pcb0 /* Physical page 9 */ ! 619: _pcb0: .space 128 /*process control block 0 */ ! 620: .globl _pcb1 ! 621: _pcb1: .space 128 /*process control block 1 */ ! 622: .globl _pcb2 ! 623: _pcb2: .space 128 /*process control block 2 */ ! 624: .globl _pcb3 ! 625: _pcb3: .space 128 /*process control block 3 */ ! 626: .globl _pcb4 ! 627: _pcb4: .space 128 /*process control block 4 */ ! 628: .globl _pcb5 ! 629: _pcb5: .space 128 /*process control block 5 */ ! 630: .globl _pcb6 ! 631: _pcb6: .space 128 /*process control block 6 */ ! 632: .globl _pcb7 ! 633: _pcb7: .space 128 /*process control block 7 */ ! 634: ! 635: /* ! 636: *user #0 page tables -- P0PT, P1PT, P2PT ! 637: *physical memory -- page10, 11, & 12 respectively ! 638: */ ! 639: .align 2 ! 640: .globl _u0p0pt ! 641: _u0p0pt: ! 642: .space 1024 /*255 max pages for user #0 text */ ! 643: .globl _u0p1pt ! 644: _u0p1pt: ! 645: .space 1024 /*255 max pages for user #0 data */ ! 646: .globl _u0p2pt ! 647: _u0p2pt: ! 648: .space 1020 /*255 max pages for user #0 stack */ ! 649: eu0p2pt: ! 650: .space 4 ! 651: ! 652: /* ! 653: *user #1 page tables -- P0PT, P1PT, P2PT ! 654: *physical memory -- page13 ,14, & 15 respectively ! 655: */ ! 656: .align 2 ! 657: .globl _u1p0pt ! 658: _u1p0pt: ! 659: .space 1024 /*255 max pages for user #1 text */ ! 660: .globl _u1p1pt ! 661: _u1p1pt: ! 662: .space 1024 /*255 max pages for user #1 data */ ! 663: .globl _u1p2pt ! 664: _u1p2pt: ! 665: .space 1020 /*255 max pages for user #1 stack */ ! 666: eu1p2pt: ! 667: .space 4 ! 668: ! 669: ! 670: /* ! 671: *user #2 page tables -- P0PT, P1PT, P2PT ! 672: *physical memory -- page 16, 17 , & 18 respectively ! 673: */ ! 674: .align 2 ! 675: .globl _u2p0pt ! 676: _u2p0pt: ! 677: .space 1024 /*255 max pages for user #2 text */ ! 678: .globl _u2p1pt ! 679: _u2p1pt: ! 680: .space 1024 /*255 max pages for user #2 data */ ! 681: .globl _u2p2pt ! 682: _u2p2pt: ! 683: .space 1020 /*255 max pages for user #2 stack */ ! 684: eu2p2pt: ! 685: .space 4 ! 686: ! 687: ! 688: /* ! 689: *user #3 page tables -- P0PT, P1PT, P2PT ! 690: *physical memory -- page 19, 20 , & 21 respectively ! 691: */ ! 692: .align 2 ! 693: .globl _u3p0pt ! 694: _u3p0pt: ! 695: .space 1024 /*255 max pages for user #3 text */ ! 696: .globl _u3p1pt ! 697: _u3p1pt: ! 698: .space 1024 /*255 max pages for user #3 data */ ! 699: .globl _u3p2pt ! 700: _u3p2pt: ! 701: .space 1020 /*255 max pages for user #3 stack */ ! 702: eu3p2pt: ! 703: .space 4 ! 704: ! 705: /* ! 706: *user #4 thru 6 page tables ! 707: *physical memory -- pages 22 thru 30 ! 708: */ ! 709: .globl _u4p0pt ! 710: _u4p0pt: ! 711: .space (9*NBPG) - 4 ! 712: eu6p2pt: ! 713: .space 4 ! 714: ! 715: /* ! 716: Area used for Kernel stack ! 717: physical memory -- page 31, 32 , 33 ! 718: */ ! 719: ! 720: .align 2 ! 721: .globl _Kstack /* Kernel stack */ ! 722: _Kstack: /* Physical pages 31,32,33 */ ! 723: .space 3*NBPG ! 724: .globl ekstack ! 725: ekstack: ! 726: ! 727: ! 728: .globl _iob0 /*io buffer 0 */ ! 729: _iob0: .space 1024 ! 730: .globl _iob1 /*io buffer 1 */ ! 731: _iob1: .space 1024 ! 732: .globl _iob2 /*io buffer 2 */ ! 733: _iob2: .space 1024 ! 734: .globl _iob3 /*io buffer 3 */ ! 735: _iob3: .space 1024 ! 736: .globl _iob4 /*io buffer 4 */ ! 737: _iob4: .space 1024 ! 738: .globl _iob5 /*io buffer 5 */ ! 739: _iob5: .space 1024 ! 740: .globl _iob6 /*io buffer 6 */ ! 741: _iob6: .space 1024 ! 742: esysdata: ! 743: ! 744: /* SYSTEM CONTROL BLOCK */ ! 745: #include "scblock.s" ! 746: ! 747: ! 748: ! 749: #include "evthandlers.s" ! 750: ! 751: #define ACBL(_n1,_n2,_n3,_n4) addl2 _n2,_n3; cmpl _n3,_n1; bleq _n4; ! 752: ! 753: ! 754: ! 755: # *INITIALIZATION CODE ! 756: # * ! 757: # * MME off; mode = k; IPL = 31; IS = 1 ! 758: # * ! 759: ! 760: ! 761: .globl start ! 762: start: ! 763: mtpr $0,$MME /* Disable MME */ ! 764: movl r0,_run_list ! 765: movl r1,_OPTIONS ! 766: clrl _nonstop /* clear the continuous run flag */ ! 767: movl r2,_count /* save the test count */ ! 768: bneq 1f /* is count = 0 ? */ ! 769: movl $1,_count /* yes -set cycle count = 1 */ ! 770: 1: bgeq 1f /* is count < 0 ? */ ! 771: movl $1,_nonstop /* yes -set NONSTOP flag */ ! 772: 1: ! 773: clrl _no_fpp_wcs /* clear the NO-FPP WCS flag */ ! 774: mtpr $0x400,$DCR /* check for FPP WCS loaded */ ! 775: tstl r1 /* r1 = 0 if NO-FPP WCS loaded */ ! 776: bneq 1f ! 777: movl $1,_no_fpp_wcs /* set the NO-FPP WCS flag */ ! 778: 1: ! 779: movab _scb,r0 ! 780: andl2 $0x3ffffc00,r0 ! 781: mtpr r0,$SCBB /* Set SCBB */ ! 782: mtpr $0x1f,$IPL /* Set IPL to HIGH */ ! 783: ! 784: andl3 $4,r11,_ss1 /* messages sense switch */ ! 785: ! 786: # ! 787: # clear the option flags ! 788: # ! 789: clrl _halt_flg /* clear the halt on error flag */ ! 790: clrl _loop_on_err /* clear the loop on error flag */ ! 791: movl $1,_prt_error /* set the print error messages flag */ ! 792: movl $1,_prt_hdrs /* set the print header messages flag */ ! 793: movl $1,_en_data_cache /* set the enable data cache flag */ ! 794: movl $1,_user_mode /* set the Run In User Mode flag */ ! 795: clrl _exp_event /* clear the fpp event expected flag */ ! 796: clrl _event_return /* clear the fpp event return flag */ ! 797: clrl _unexp_event_ret /*clear the unexpected event return addr */ ! 798: ! 799: # ! 800: # set the option flags as needed ! 801: # ! 802: bitl $1,_OPTIONS /* bit(0) = HALT ON ERROR */ ! 803: beql 1f ! 804: movl $1,_halt_flg /* set the HALT ON ERROR flag */ ! 805: 1: ! 806: bitl $2,_OPTIONS /* bit(1) = LOOP ON ERROR */ ! 807: beql 1f ! 808: movl $1,_loop_on_err /* set the LOOP ON ERROR flag */ ! 809: 1: ! 810: bitl $4,_OPTIONS /* bit(2) = PRINT ERROR MESSAGES */ ! 811: beql 1f ! 812: clrl _prt_error /* clear the PRINT ERROR MESSAGES flag */ ! 813: 1: ! 814: bitl $8,_OPTIONS /* bit(3) = PRINT HEADER MESSAGES */ ! 815: beql 1f ! 816: clrl _prt_hdrs /* clear the PRINT HEADER MESSAGES flag */ ! 817: 1: ! 818: bitl $16,_OPTIONS /* bit(4) = ENABLE DATA CACHE flag */ ! 819: beql 1f ! 820: clrl _en_data_cache /* clear the ENABLE DATA CACHE flag */ ! 821: 1: ! 822: bitl $32,_OPTIONS /* bit(5) = DON'T RUN IN USER MODE flag */ ! 823: beql 1f ! 824: clrl _user_mode /* reset the RUN IN USER MODE flag */ ! 825: 1: ! 826: movpsl r1 ! 827: andl2 $0xffffff00,r1 /* Mask out flags */ ! 828: cmpl r1,$0x041f0000 /*IS on,modes =k & IPL = 31? */ ! 829: beql 1f ! 830: 2: movl $1,r0 ! 831: movl $0x041f0000,r2 ! 832: halt /* PSL not initialized as expected */ ! 833: 1: ! 834: movl $_intstack+NISP*NBPG,r0 ! 835: andl2 $0x3fffffff,r0 /* Mask out bit 30,31 */ ! 836: mtpr r0,$ISP /* init. ISP */ ! 837: movl r0,sp /* in case we get exception */ ! 838: movab (sp),fp /* Initialize FP */ ! 839: # ! 840: # Clear system data area all the way upto system code ! 841: # this includes dump buffer,interrupt stack,spt,iomap,pcbs,user ! 842: # page tables, & io buffer area. ! 843: # ! 844: 3: ! 845: movab esysdata,r7 ! 846: movab _restart,r6 ! 847: 1: clrl (r6) ! 848: ACBL(r7,$4,r6,1b) ! 849: # ! 850: # Initialize System Page Table ! 851: # ! 852: 5: ! 853: clrl r2 ! 854: movab esysdata,r1 /* R1 = Last address in system data area */ ! 855: andl2 $0x3fffffff,r1 /* Mask out bit 30,31 */ ! 856: shar $PGSHIFT,r1,r1 /* Get page no. of last system data addr */ ! 857: /* Map systm data area 1 to 1,kernel writable */ ! 858: 1: ! 859: orl3 $PG_V|PG_KW,r2,_Sysmap[r2] ! 860: aoblss r1,r2,1b ! 861: ! 862: # ! 863: # Map system text area 1 to 1, Kernel read/write. ! 864: # For this to work, the label _etext must exist at the end ! 865: # of system code; Add in 4 more pages for data area used in C ! 866: # ! 867: movab _Esys,r1 /* Map System text 1 to 1; Kernel R/W */ ! 868: andl2 $0x3fffffff,r1 ! 869: shar $PGSHIFT,r1,r1 ! 870: 1: ! 871: orl3 $PG_V|PG_KW,r2,_Sysmap[r2] ! 872: aobleq r1,r2,1b ! 873: # ! 874: # Map from here to last page used by user : ! 875: # invalid, User access, & virtual = physical ! 876: # ! 877: movl r2,_unused /* Save first unused physical page no */ ! 878: movl r2,_Ufpte /* First PTE of User */ ! 879: movl $0x80000,r1 /* Allow this much memory for User */ ! 880: shar $PGSHIFT,r1,r1 ! 881: movl r1,_Ulpte /* Last PTE of User */ ! 882: ! 883: 1: ! 884: orl3 $PG_V|PG_UW,r2,_Sysmap[r2] /* Valid / User Read/Write */ ! 885: aoblss r1,r2,1b ! 886: ! 887: # ! 888: # Initialize SBR, SLR ! 889: # ! 890: sysrdy: ! 891: mtpr $_Sysmap,$SBR /* Set SYSTEM BASE REG */ ! 892: mtpr $_Syssize,$SLR ! 893: mtpr $64,$DCR /* Enable fault */ ! 894: ! 895: # GO TO VIRTUAL MODE ! 896: # Double map the kernel into user addresses : ! 897: # This will enable system to go to virtual mode the 1st time !! ! 898: # ! 899: ! 900: orl3 $0xc0000000,$_Sysmap,r0 ! 901: mtpr r0,$P0BR /* Double map P0BR to SBR */ ! 902: mtpr $_Syssize,$P0LR ! 903: mtpr $1,$PADC /* Purge all data cache */ ! 904: mtpr $1,$TBIA /* Purge all Trans. buffer */ ! 905: ! 906: mfpr $SCBB,r0 ! 907: movab _Trans,TRANSVEC(r0) /* Set new trans. fault handler */ ! 908: movab _Prvis,PRIVSVEC(r0) /* Set new priv. ins. fault handler */ ! 909: moval _FPM_handler,FPMVEC(r0) /* Set now fpm trap handler */ ! 910: mtpr $_pcb0,$0xe /* Init. PCBB to PCB_0 */ ! 911: ! 912: movab _pcb0,r0 ! 913: movab ekstack,PCB_KSP(r0) /* Init. PCB_KSP */ ! 914: movab eustack,PCB_USP(r0) /* Init. PCB_USP */ ! 915: mfpr $P0BR,PCB_P0BR(r0) /* " PCB_P0BR */ ! 916: mfpr $P0LR,PCB_P0LR(r0) /* " PCB_P0LR */ ! 917: movl $0x001f000,PCB_PSL(r0) /* Set PCB_PSL : Kernel Mode */ ! 918: ldpctx /* load the process context */ ! 919: ! 920: mtpr $1,$PACC /* purge the code cache */ ! 921: movl $1,_Codek ! 922: mtpr _Codek,$CCK /* Set code cache key */ ! 923: ! 924: callf $4,_monitor /* go execute the test */ ! 925: ! 926: ! 927: #include "fault_handlers.s" /* put spectial handlers here */ ! 928: ! 929: ! 930: # /**************************************************************************** ! 931: # * STACK AREA ! 932: # ****************************************************************************/ ! 933: ! 934: .globl _Esys /* end of systems only code */ ! 935: _Esys: ! 936: .space NBPG ! 937: ! 938: .globl _Ustack /* basic stack space */ ! 939: _Ustack: ! 940: .space (2*NBPG)-4 /* 2 pages */ ! 941: .globl eustack ! 942: eustack: ! 943: .long 0 /* initial user stack ptr */ ! 944: ! 945: .globl U_area ! 946: U_area: ! 947:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.