![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to subs.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 / memman|
Return to subs.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / memman |
1.1 ! root 1: LL0: ! 2: .data ! 3: .set SBR,0 ! 4: .set SLR,1 ! 5: .set P0BR,2 ! 6: .set P0LR,3 ! 7: .set P1BR,4 ! 8: .set P1LR,5 ! 9: .set P2BR,6 ! 10: .set P2LR,7 ! 11: .set IPL,8 ! 12: .set MAPEN,9 ! 13: .set MME,9 ! 14: .set TBIA,10 ! 15: .set TBIS,11 ! 16: .set DCK,12 ! 17: .set CCK,13 ! 18: .set PCBB,14 ! 19: .set KSP,19 ! 20: .set USP,20 ! 21: .set CPMDCB,21 ! 22: .set PADC,25 ! 23: .set DCR,27 ! 24: .set DC_ON,1 ! 25: .set DC_OFF,2 ! 26: .set TB_ON,256 ! 27: .set TB_OFF,512 ! 28: .comm _dummy,4 ! 29: .text ! 30: .align 1 ! 31: .globl _mfpr ! 32: _mfpr: ! 33: .word L16 ! 34: # ! 35: # #include "definitions" ! 36: # ! 37: # extern long r_no, pt_base, ctlblk; ! 38: # long dummy; ! 39: # ! 40: # /* To get value of base registers */ ! 41: # mfpr(sr) ! 42: # long sr; ! 43: # { ! 44: jbr L18 ! 45: L19: ! 46: # asm("mfpr 4(fp),_dummy"); ! 47: mfpr 4(fp),_dummy ! 48: # return(dummy); ! 49: movl _dummy,r0 ! 50: ret ! 51: # } ! 52: ret ! 53: .set L16,0x0 ! 54: L18: ! 55: jbr L19 ! 56: .data ! 57: .text ! 58: .align 1 ! 59: .globl _fixpv_pte ! 60: _fixpv_pte: ! 61: .word L21 ! 62: # ! 63: # /* This routine modify the valid,protection bits (bit 27-31) of PTE ! 64: # in any Page table. Input parameter : ! 65: # reg_no : contain a number specify one of the following : ! 66: # SBR,SLR,P0BR,P0LR,P1BR,P1LR,P2BR,P2LR ! 67: # old_pte : pointer to location to save original PTE ! 68: # (This could be used to read any PTE when pvbits_msk = 0) ! 69: # which1 : PTE no; 0,1,2...X ! 70: # pvbits_msk : bit 27-31 of PTE ! 71: # */ ! 72: # fixpv_pte(reg_no,which1,old_pte,pvbits_msk) ! 73: # long reg_no, *old_pte, which1, pvbits_msk; ! 74: # { ! 75: jbr L23 ! 76: L24: ! 77: # long *st_base; ! 78: # ! 79: # r_no = reg_no; ! 80: movl 4(fp),_r_no ! 81: # ! 82: # /* asm("mfpr _r_no,_pt_base"); */ /* Get base address */ ! 83: # pt_base = mfpr(r_no); ! 84: pushl _r_no ! 85: callf $8,_mfpr ! 86: movl r0,_pt_base ! 87: # ! 88: # st_base = (long *)pt_base; ! 89: movl _pt_base,-56(fp) ! 90: # st_base += which1; ! 91: shll $2,8(fp),r0 ! 92: addl2 r0,-56(fp) ! 93: # *old_pte = *st_base; /* Save original PTE */ ! 94: movl *-56(fp),*12(fp) ! 95: # /* Mask access and valid bits off */ ! 96: # *st_base = (*st_base) & (~(PTE_PROT | PTE_V)); ! 97: andl3 $134217727,*-56(fp),r0 ! 98: movl r0,*-56(fp) ! 99: # *st_base = (*st_base)|(pvbits_msk); /* Set V,protection bits */ ! 100: orl3 16(fp),*-56(fp),r0 ! 101: movl r0,*-56(fp) ! 102: # asm("mtpr $0,$TBIA"); /* Invalidate translation buffers */ ! 103: mtpr $0,$TBIA ! 104: # } ! 105: ret ! 106: .set L21,0x0 ! 107: L23: ! 108: subl3 $56,fp,sp ! 109: jbr L24 ! 110: .data ! 111: .text ! 112: .align 1 ! 113: .globl _fixmuc_pte ! 114: _fixmuc_pte: ! 115: .word L26 ! 116: # ! 117: # /* This routine modify the modify,used,uncachable bits (22-24) of PTE ! 118: # in any Page table. Input parameter : ! 119: # reg_no : contain a number specify one of the following : ! 120: # SBR,SLR,P0BR,P0LR,P1BR,P1LR,P2BR,P2LR ! 121: # old_pte : pointer to location to save original PTE ! 122: # (This could be used to read any PTE when pvbits_msk = 0) ! 123: # which1 : PTE no; 0,1,2...X ! 124: # pvbits_msk : bits 22-24 of PTE; if mask < 0 then just read back PTE. ! 125: # */ ! 126: # fixmuc_pte(reg_no,which1,old_pte,pvbits_msk) ! 127: # long reg_no, *old_pte, which1, pvbits_msk; ! 128: # { ! 129: jbr L28 ! 130: L29: ! 131: # long *st_base; ! 132: # ! 133: # r_no = reg_no; ! 134: movl 4(fp),_r_no ! 135: # ! 136: # /* asm("mfpr _r_no,_pt_base"); */ /* Get base address */ ! 137: # pt_base = mfpr(r_no); ! 138: pushl _r_no ! 139: callf $8,_mfpr ! 140: movl r0,_pt_base ! 141: # ! 142: # st_base = (long *)pt_base; ! 143: movl _pt_base,-56(fp) ! 144: # st_base += which1; ! 145: shll $2,8(fp),r0 ! 146: addl2 r0,-56(fp) ! 147: # *old_pte = *st_base; /* Save original PTE */ ! 148: movl *-56(fp),*12(fp) ! 149: # if (pvbits_msk < 0) return; ! 150: tstl 16(fp) ! 151: jgeq L30 ! 152: ret ! 153: # *st_base=(*st_base)&(~(PTE_UC|PTE_M|PTE_U)); /* Mask NC,M,U bit off */ ! 154: L30: ! 155: andl3 $-29360129,*-56(fp),r0 ! 156: movl r0,*-56(fp) ! 157: # *st_base = (*st_base)|(pvbits_msk); ! 158: orl3 16(fp),*-56(fp),r0 ! 159: movl r0,*-56(fp) ! 160: # asm("mtpr $0,$TBIA"); /* Invalidate translation buffers */ ! 161: mtpr $0,$TBIA ! 162: # } ! 163: ret ! 164: .set L26,0x0 ! 165: L28: ! 166: subl3 $56,fp,sp ! 167: jbr L29 ! 168: .data ! 169: .text ! 170: .align 1 ! 171: .globl _fixpfn_pte ! 172: _fixpfn_pte: ! 173: .word L32 ! 174: # ! 175: # /* This routine modify the page frame number (bit 0-21) of PTE ! 176: # in any Page table. Input parameter : ! 177: # reg_no : contain a number specify one of the following : ! 178: # SBR,SLR,P0BR,P0LR,P1BR,P1LR,P2BR,P2LR ! 179: # old_pte : pointer to location to save original PTE ! 180: # (This could be used to read any PTE when pvbits_msk = 0) ! 181: # which1 : PTE no; 0,1,2...X ! 182: # pfn : New page frame no. (bit 0 thru 19 of pfn ) ! 183: # */ ! 184: # fixpfn_pte(reg_no,which1,old_pte,pfn) ! 185: # long reg_no, *old_pte, which1, pfn; ! 186: # { ! 187: jbr L34 ! 188: L35: ! 189: # long *st_base; ! 190: # ! 191: # r_no = reg_no; ! 192: movl 4(fp),_r_no ! 193: # ! 194: # /* asm("mfpr _r_no,_pt_base"); */ /* Get base address */ ! 195: # pt_base = mfpr(r_no); ! 196: pushl _r_no ! 197: callf $8,_mfpr ! 198: movl r0,_pt_base ! 199: # ! 200: # st_base = (long *)pt_base; ! 201: movl _pt_base,-56(fp) ! 202: # st_base += which1; ! 203: shll $2,8(fp),r0 ! 204: addl2 r0,-56(fp) ! 205: # *old_pte = *st_base; /* Save original PTE */ ! 206: movl *-56(fp),*12(fp) ! 207: # *st_base = (*st_base)&(~PTE_PFN); /* Mask PFN off */ ! 208: andl3 $-4194304,*-56(fp),r0 ! 209: movl r0,*-56(fp) ! 210: # *st_base = (*st_base)|(pfn & PTE_PFN); /* Set new PFN */ ! 211: andl3 $4194303,16(fp),r0 ! 212: orl3 r0,*-56(fp),r0 ! 213: movl r0,*-56(fp) ! 214: # *st_base = (*st_base)&0xff7fffff; /* Set PTE_M bit off */ ! 215: andl3 $-8388609,*-56(fp),r0 ! 216: movl r0,*-56(fp) ! 217: # asm("mtpr $0,$TBIA"); /* Invalidate translation buffers */ ! 218: mtpr $0,$TBIA ! 219: # asm("mtpr $0,$PADC"); /* Purge all data cache */ ! 220: mtpr $0,$PADC ! 221: # } ! 222: ret ! 223: .set L32,0x0 ! 224: L34: ! 225: subl3 $56,fp,sp ! 226: jbr L35 ! 227: .data ! 228: .text ! 229: .align 1 ! 230: .globl _set_handler ! 231: _set_handler: ! 232: .word L37 ! 233: # ! 234: # /* This routine saved a vector in SCB and set it to a new one ! 235: # input parameters : ! 236: # which1 : Vector no; 0,1,2,..X ! 237: # saved_vec : pointer to a location to saved original vector ! 238: # new_vec : address of new handler ! 239: # stack : 'K' or 'k' : service on Kernel stack ! 240: # otherwise : service on Interrupt stack ! 241: # */ ! 242: # ! 243: # ! 244: # set_handler(which1,saved_vec,new_vec) ! 245: # long which1, *saved_vec, new_vec; ! 246: # { long *st_base; ! 247: jbr L39 ! 248: L40: ! 249: # ! 250: # asm("movab _scb,_ctlblk"); ! 251: movab _scb,_ctlblk ! 252: # st_base = (long *)ctlblk; /* address of SCB is at page 2 */ ! 253: movl _ctlblk,-56(fp) ! 254: # st_base += which1; ! 255: shll $2,4(fp),r0 ! 256: addl2 r0,-56(fp) ! 257: # *saved_vec = *st_base; /* Save original vector */ ! 258: movl *-56(fp),*8(fp) ! 259: # *st_base = new_vec; ! 260: movl 12(fp),*-56(fp) ! 261: # } ! 262: ret ! 263: .set L37,0x0 ! 264: L39: ! 265: subl3 $56,fp,sp ! 266: jbr L40 ! 267: .data ! 268: .text ! 269: .align 1 ! 270: .globl _write_pg ! 271: _write_pg: ! 272: .word L42 ! 273: # ! 274: # ! 275: # /* This routine write the who page of memory with "value" ! 276: # Inpur parameters : ! 277: # space : Has 1 of these values (0,1,2,3) correspond to ! 278: # P0, P1, P2, System space respectively. ! 279: # page_no : Virtual page no. to be written ! 280: # value : Value to be written ! 281: # v_type : | 0 : value is used to write in all locations. ! 282: # | 1 : value is the start value and is incremented ! 283: # | for next locations. ! 284: # */ ! 285: # ! 286: # write_pg(space,page_no,value,v_type) ! 287: # long space, page_no, value, v_type; ! 288: # { ! 289: jbr L44 ! 290: L45: ! 291: # long *lptr; ! 292: # int ix; ! 293: # ! 294: # lptr = (long *)(((space & 0x3)<<30)|((page_no & 0xfffff)<<PGSHIFT)); ! 295: andl3 $3,4(fp),r0 ! 296: shll $30,r0,r0 ! 297: andl3 $1048575,8(fp),r1 ! 298: shll $10,r1,r1 ! 299: orl2 r1,r0 ! 300: movl r0,-56(fp) ! 301: # for (ix=0;ix<NBPG;ix += 4) ! 302: clrl -60(fp) ! 303: L48: ! 304: cmpl -60(fp),$1024 ! 305: jgeq L47 ! 306: # { ! 307: # *lptr++ = value; ! 308: movl 12(fp),*-56(fp) ! 309: addl2 $4,-56(fp) ! 310: # if (v_type) value += 4; ! 311: tstl 16(fp) ! 312: jeql L49 ! 313: addl2 $4,12(fp) ! 314: # } ! 315: L49: ! 316: L46: ! 317: addl2 $4,-60(fp) ! 318: jbr L48 ! 319: L47: ! 320: # } ! 321: ret ! 322: .set L42,0x0 ! 323: L44: ! 324: subl3 $60,fp,sp ! 325: jbr L45 ! 326: .data ! 327: .text ! 328: .align 1 ! 329: .globl _read_pg ! 330: _read_pg: ! 331: .word L51 ! 332: # ! 333: # /* This routine read the who page of memory . ! 334: # Inpur parameters : ! 335: # space : Has 1 of these values (0,1,2,3) correspond to ! 336: # P0, P1, P2, System space respectively. ! 337: # page_no : Virtual page no. to be read. ! 338: # start_dst : pointer to array of longwords. ! 339: # */ ! 340: # ! 341: # read_pg(space,page_no,start_dst) ! 342: # long space, page_no, *start_dst; ! 343: # { ! 344: jbr L53 ! 345: L54: ! 346: # long *lptr; ! 347: # int ix; ! 348: # ! 349: # lptr = (long *)(((space & 0x3)<<30)|((page_no & 0xfffff)<<PGSHIFT)); ! 350: andl3 $3,4(fp),r0 ! 351: shll $30,r0,r0 ! 352: andl3 $1048575,8(fp),r1 ! 353: shll $10,r1,r1 ! 354: orl2 r1,r0 ! 355: movl r0,-56(fp) ! 356: # for (ix=0;ix<NBPG;ix += 4) ! 357: clrl -60(fp) ! 358: L57: ! 359: cmpl -60(fp),$1024 ! 360: jgeq L56 ! 361: # *start_dst++ = *lptr++ ; ! 362: movl *-56(fp),*12(fp) ! 363: addl2 $4,-56(fp) ! 364: addl2 $4,12(fp) ! 365: L55: ! 366: addl2 $4,-60(fp) ! 367: jbr L57 ! 368: L56: ! 369: # } ! 370: ret ! 371: .set L51,0x0 ! 372: L53: ! 373: subl3 $60,fp,sp ! 374: jbr L54 ! 375: .data ! 376: #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.