![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cp.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 cp.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / memman |
1.1 ! root 1: LL0: ! 2: .data ! 3: .set CPMDCB,21 ! 4: .set DC_OFF,2 ! 5: .set DC_ON,1 ! 6: .set MME,9 ! 7: .set DCR,27 ! 8: .set PDCS,28 ! 9: .set CTL_SW,0x41b ! 10: .comm _tmp_lw,4 ! 11: .align 2 ! 12: .globl _cpbuf_sz ! 13: _cpbuf_sz: ! 14: .long 1 ! 15: .align 2 ! 16: .globl _charcnt ! 17: _charcnt: ! 18: .long 0 ! 19: .comm _cpout,204 ! 20: .set HISR,0x410 ! 21: .text ! 22: .align 1 ! 23: .globl _putstr ! 24: _putstr: ! 25: .word L16 ! 26: # /* Console Processor Interface */ ! 27: # /* Tahoe version, Nov. 1982 */ ! 28: # ! 29: # /****************************************/ ! 30: # /* */ ! 31: # /* Reduced DCB layout for byte */ ! 32: # /* communication. */ ! 33: # /* */ ! 34: # /****************************************/ ! 35: # ! 36: # asm(".set CPMDCB,21"); ! 37: # asm(".set DC_OFF,2"); ! 38: # asm(".set DC_ON,1"); ! 39: # asm(".set MME,9"); ! 40: # asm(".set DCR,27"); ! 41: # asm(".set PDCS,28"); ! 42: # asm(".set CTL_SW,0x41b"); /* Addr of switches to turn on Cache, MME, Fault */ ! 43: # long tmp_lw; ! 44: # ! 45: # ! 46: # #define CPBUFLEN 200 /* Output buffer length */ ! 47: # struct cphdr ! 48: # { ! 49: # char cp_unit; /* Done bit & unit # */ ! 50: # char cp_comm; /* Command */ ! 51: # short cp_count; /* Counter (when relevant) */ ! 52: # }; ! 53: # ! 54: # struct cpdcb_o /* Output structure */ ! 55: # { ! 56: # struct cphdr cp_hdr; ! 57: # char cp_buf[CPBUFLEN]; /* Buffer for output or 'stty' */ ! 58: # }; ! 59: # ! 60: # struct cpdcb_i /* Structure for input */ ! 61: # { ! 62: # struct cphdr cp_hdr; ! 63: # char cpi_buf[4]; /* Buffer for input */ ! 64: # }; ! 65: # ! 66: # #define CPDONE 0x80 /* 'Done' bit in cp_unit */ ! 67: # #define CPTAKE 0x40 /* CP 'ack' to this cpdcb */ ! 68: # ! 69: # /* Values for 'unit' */ ! 70: # #define CPUNIT 0 /* The CP itself */ ! 71: # #define CPCONS 1 /* Console line */ ! 72: # #define CPREMOT 2 /* Remote line */ ! 73: # ! 74: # /* Values for 'command' */ ! 75: # #define CPRESET 0 ! 76: # #define CPWRITE 1 ! 77: # #define CPREAD 2 ! 78: # #define CPSTTY 3 ! 79: # #define CPBOOT 4 ! 80: # ! 81: # ! 82: # /* Put a char to CPU2 console */ ! 83: # ! 84: # #define NCHAR 1 ! 85: # ! 86: # long cpbuf_sz = 1; /* Buffer size */ ! 87: # long charcnt = 0; ! 88: # struct cpdcb_o cpout; /* DCB for output */ ! 89: # ! 90: # asm(".set HISR,0x410"); ! 91: # ! 92: # putstr(str) ! 93: # char *str; ! 94: # { long c_cnt; ! 95: jbr L18 ! 96: L19: ! 97: # ! 98: # cpout.cp_hdr.cp_unit = CPCONS; /* Reset done bit */ ! 99: cvtlb $1,_cpout ! 100: # cpout.cp_hdr.cp_comm = CPWRITE; /* Set command */ ! 101: cvtlb $1,_cpout+1 ! 102: # for(c_cnt=0;;c_cnt++) { ! 103: clrl -56(fp) ! 104: L22: ! 105: # cpout.cp_buf[c_cnt] = *str++; ! 106: movl $_cpout+4,r0 ! 107: movl -56(fp),r1 ! 108: movb *4(fp),(r0)[r1] ! 109: incl 4(fp) ! 110: # if (cpout.cp_buf[c_cnt]=='\n') { ! 111: movl $_cpout+4,r0 ! 112: movl -56(fp),r1 ! 113: cmpb (r0)[r1],$10 ! 114: jneq L23 ! 115: # c_cnt++; ! 116: incl -56(fp) ! 117: # cpout.cp_buf[c_cnt]='\r'; ! 118: movl $_cpout+4,r0 ! 119: movl -56(fp),r1 ! 120: cvtlb $13,(r0)[r1] ! 121: # } ! 122: # if (cpout.cp_buf[c_cnt]=='\0') break; ! 123: L23: ! 124: movl $_cpout+4,r0 ! 125: movl -56(fp),r1 ! 126: tstb (r0)[r1] ! 127: jneq L24 ! 128: jbr L21 ! 129: # } ! 130: L24: ! 131: L20: ! 132: incl -56(fp) ! 133: jbr L22 ! 134: L21: ! 135: # if (c_cnt) { ! 136: tstl -56(fp) ! 137: jeql L25 ! 138: # cpout.cp_hdr.cp_count = c_cnt; ! 139: cvtlw -56(fp),_cpout+2 ! 140: # cp_poll('\0'); } ! 141: pushl $0 ! 142: callf $8,_cp_poll ! 143: # } ! 144: L25: ! 145: ret ! 146: .set L16,0x0 ! 147: L18: ! 148: subl3 $56,fp,sp ! 149: jbr L19 ! 150: .data ! 151: .text ! 152: .align 1 ! 153: .globl _putchar ! 154: _putchar: ! 155: .word L28 ! 156: # ! 157: # putchar(c) ! 158: # { ! 159: jbr L30 ! 160: L31: ! 161: # cpout.cp_hdr.cp_unit = CPCONS; /* Reset done bit */ ! 162: cvtlb $1,_cpout ! 163: # cpout.cp_hdr.cp_comm = CPWRITE; /* Set command */ ! 164: cvtlb $1,_cpout+1 ! 165: # cpout.cp_buf[charcnt] = c; ! 166: movl $_cpout+4,r0 ! 167: movl _charcnt,r1 ! 168: cvtlb 4(fp),(r0)[r1] ! 169: # cpout.cp_hdr.cp_count = 1; ! 170: cvtlw $1,_cpout+2 ! 171: # cp_poll(c); ! 172: pushl 4(fp) ! 173: callf $8,_cp_poll ! 174: # } ! 175: ret ! 176: .set L28,0x0 ! 177: L30: ! 178: jbr L31 ! 179: .data ! 180: .text ! 181: .align 1 ! 182: .globl _cp_poll ! 183: _cp_poll: ! 184: .word L32 ! 185: # ! 186: # cp_poll(c) ! 187: # char c; ! 188: # { register long time, r11; ! 189: jbr L34 ! 190: L35: ! 191: # ! 192: # time = 900000; ! 193: movl $900000,r12 ! 194: # asm("movab _cpout,r10"); ! 195: movab _cpout,r10 ! 196: # asm("andl2 $0xffffff,r10"); ! 197: andl2 $0xffffff,r10 ! 198: # asm("mtpr r10,$CPMDCB"); ! 199: mtpr r10,$CPMDCB ! 200: # tmp_lw = (long)(&cpout.cp_hdr.cp_unit); ! 201: movl $_cpout,_tmp_lw ! 202: # ! 203: # r11 = (long)(&cpout.cp_hdr.cp_unit); ! 204: movl $_cpout,r11 ! 205: # while (time-- && !(cpout.cp_hdr.cp_unit & CPDONE)) { ! 206: L36: ! 207: movl r12,r0 ! 208: decl r12 ! 209: tstl r0 ! 210: jeql L37 ! 211: cvtbl _cpout,r0 ! 212: bitl $128,r0 ! 213: jneq L37 ! 214: # asm("mtpr r11,$0x1c"); /* mtpr r11,$PDCS */ ! 215: mtpr r11,$0x1c ! 216: # } ! 217: jbr L36 ! 218: L37: ! 219: # if (!(cpout.cp_hdr.cp_unit & CPDONE)) cp_hlt(); /* Time out */ ! 220: cvtbl _cpout,r0 ! 221: bitl $128,r0 ! 222: jneq L38 ! 223: callf $4,_cp_hlt ! 224: # if (c== '\n') putchar('\r'); ! 225: L38: ! 226: cmpb 7(fp),$10 ! 227: jneq L40 ! 228: pushl $13 ! 229: callf $8,_putchar ! 230: # } ! 231: L40: ! 232: ret ! 233: .set L32,0x1800 ! 234: L34: ! 235: jbr L35 ! 236: .data ! 237: .text ! 238: .align 1 ! 239: .globl _cp_hlt ! 240: _cp_hlt: ! 241: .word L41 ! 242: # ! 243: # cp_hlt() ! 244: # { ! 245: jbr L43 ! 246: L44: ! 247: # asm("movl $0xeeeeeeee,r0"); ! 248: movl $0xeeeeeeee,r0 ! 249: # asm("movl $0xeeeeeeee,r1"); ! 250: movl $0xeeeeeeee,r1 ! 251: # asm("movl $0xeeeeeeee,r2"); ! 252: movl $0xeeeeeeee,r2 ! 253: # asm("halt"); ! 254: halt ! 255: # } ! 256: ret ! 257: .set L41,0x0 ! 258: L43: ! 259: jbr L44 ! 260: .data ! 261: #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.