![[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 / pits|
Return to init.x CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / pits |
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:
18: #include "conf.h"
19: /* privileged registers addresses */
20: #include "prvreg.h"
21:
22: /* program status long word definition */
23: #include "psl.h"
24:
25: /* page table entry definition */
26: #include "pte.h"
27:
28: /* process control block offsets */
29: #include "pcboffset.h"
30:
31: /* fundamental constants for globl use */
32: #include "const.h"
33:
34: /* system control block offsets*/
35: #include "scboffset.h"
36: /* SPT offsets */
37: #include "sptoffset.h"
38:
39: /* trap numbers*/
40: #include "trap.h"
41:
42:
43: #define V_TRAP 0
44: #define V_SYSCALL 4
45:
46: .set HIGH,0x1f /*mask for disabling all interrupts */
47: .set MCKVEC,4 /*scb offset for machinecheck vector */
48: .set NISP,2 /*no. of interrupt stack pages */
49: .set DONE,255 /*user process done code */
50:
51: .text
52:
53: #include "pstorage.s" /* PROCESSOR STORAGE AREA */
54:
55: .globl _Entry
56: _Entry:
57: mtpr $0x1f,$IPL
58: jmp start
59: .space (1024-9)
60:
61:
62:
63: /* globl dump buffer to be used for communication */
64: /* between tests & interrupt handlers, & other misc. */
65: /* purposes. */
66:
67: /*physical page 3 */
68:
69: .set NLWU,32 /*no. of longwords already used */
70: /*this must be changed when you define */
71: /*additional variables below before */
72: /*_dbuf */
73: .globl _restart
74: _restart:
75: .space 4 /*contains restart address for restarting*/
76: /*after power is restored (loaded by */
77: /*power fail interrupt handler & used by*/
78: /*CPU 2 */
79: /* ****************** */
80: .globl _cyconf /* address : 0xc04 */
81: _cyconf: /* Cypher configuration pointer : 0xc06 */
82: .space 4
83: .space 4
84: /* ****************** */
85:
86: .globl _Unused
87: _Unused:
88: .space 4 /* Just a copy of variable 'unused' */
89:
90: .globl _unused
91: _unused:
92: .space 4 /*first unused page in system space */
93:
94: .globl _ctlblk
95: _ctlblk:
96: .long 0 /* pointer to SCB */
97:
98: .globl _savvec0 /*save vectors area */
99: _savvec0:
100: .space 4
101:
102: .globl _savvec1 /*save vectors area */
103: _savvec1:
104: .space 4
105:
106: .globl _savvec2 /*save vectors area */
107: _savvec2:
108: .space 4
109:
110: .globl _savvec3 /*save vectors area */
111: _savvec3:
112: .space 4
113:
114: .globl _savvec4 /*save vectors area */
115: _savvec4:
116: .space 4
117:
118: .globl _savvec5 /*save vectors area */
119: _savvec5:
120: .space 4
121: .globl _savvec6 /*save vectors area */
122: _savvec6:
123: .space 4
124: .globl _savvec7 /*save vectors area */
125: _savvec7:
126: .space 4
127:
128: .globl _savvec8 /*save vectors area */
129: _savvec8:
130: .space 4
131:
132: testno: .long 0
133:
134: .globl _dbuf /*dump buffer left out of 1K */
135: .globl _r_no
136: _r_no:
137: .long 0
138: .globl _pt_base
139: _pt_base:
140: .long 0
141: .globl _saved_psl
142: _saved_psl:
143: .long 0
144: .globl _saved_sp
145: _saved_sp:
146: .long 0
147: .globl _saved_fp
148: _saved_fp:
149: .long 0
150: .globl _p_ptr
151: _p_ptr:
152: .long 0
153: .globl _ret_adr
154: _ret_adr:
155: .long 0
156: .globl _exp_par0
157: _exp_par0:
158: .long 0
159: .globl _exp_par1
160: _exp_par1:
161: .long 0
162: .globl _exp_par2
163: _exp_par2:
164: .long 0
165: .globl _exp_par3
166: _exp_par3:
167: .long 0
168: .globl _act_par0
169: _act_par0:
170: .long 0
171: .globl _act_par1
172: _act_par1:
173: .long 0
174:
175: .globl _IOpage
176: _IOpage:
177: .long 0 /* Pointer 64K I/O pages */
178: #
179: #
180: #
181: .globl _proc_no
182: _proc_no:
183: .long 0
184:
185: .globl _clk_cnt
186: _clk_cnt:
187: .long 0
188: _dbuf:
189: .space NBPG - (NLWU *4)
190: edbuf:
191:
192:
193: .globl _intstack /* Interrupt stack */
194: _intstack: /* Physical pages 4 & 5 */
195: .space NISP*NBPG
196: eintstack:
197:
198:
199: .set SYSPTSIZE,512 /* No. of entries in SPT */
200:
201: /*
202: System Page Table -- physical page 6 & 7
203: */
204: .align 2
205: .globl _Sysmap
206: _Sysmap:
207: .space SYSPTSIZE*4 /* 512 max pages allowed for system */
208: eSysmap:
209: .globl _Syssize
210: .set _Syssize,(eSysmap-_Sysmap)/4 /* should be SYSPTSIZE */
211:
212: .globl _iomap /* Physical page 8 */
213: _iomap: .space 1024 /* IOMAP - unused */
214: .globl _eiomap
215: _eiomap:
216:
217: .globl _pcb0 /* Physical page 9 */
218: _pcb0: .space 128 /*process control block 0 */
219: .globl _pcb1
220: _pcb1: .space 128 /*process control block 1 */
221: .globl _pcb2
222: _pcb2: .space 128 /*process control block 2 */
223: .globl _pcb3
224: _pcb3: .space 128 /*process control block 3 */
225: .globl _pcb4
226: _pcb4: .space 128 /*process control block 4 */
227: .globl _pcb5
228: _pcb5: .space 128 /*process control block 5 */
229: .globl _pcb6
230: _pcb6: .space 128 /*process control block 6 */
231: .globl _pcb7
232: _pcb7: .space 128 /*process control block 7 */
233:
234: /*
235: *user #0 page tables -- P0PT, P1PT, P2PT
236: *physical memory -- page10, 11, & 12 respectively
237: */
238: .align 2
239: .globl _u0p0pt
240: _u0p0pt:
241: .space 1024 /*255 max pages for user #0 text */
242: .globl _u0p1pt
243: _u0p1pt:
244: .space 1024 /*255 max pages for user #0 data */
245: .globl _u0p2pt
246: _u0p2pt:
247: .space 1020 /*255 max pages for user #0 stack */
248: eu0p2pt:
249: .space 4
250:
251: /*
252: *user #1 page tables -- P0PT, P1PT, P2PT
253: *physical memory -- page13 ,14, & 15 respectively
254: */
255: .align 2
256: .globl _u1p0pt
257: _u1p0pt:
258: .space 1024 /*255 max pages for user #1 text */
259: .globl _u1p1pt
260: _u1p1pt:
261: .space 1024 /*255 max pages for user #1 data */
262: .globl _u1p2pt
263: _u1p2pt:
264: .space 1020 /*255 max pages for user #1 stack */
265: eu1p2pt:
266: .space 4
267:
268:
269: /*
270: *user #2 page tables -- P0PT, P1PT, P2PT
271: *physical memory -- page 16, 17 , & 18 respectively
272: */
273: .align 2
274: .globl _u2p0pt
275: _u2p0pt:
276: .space 1024 /*255 max pages for user #2 text */
277: .globl _u2p1pt
278: _u2p1pt:
279: .space 1024 /*255 max pages for user #2 data */
280: .globl _u2p2pt
281: _u2p2pt:
282: .space 1020 /*255 max pages for user #2 stack */
283: eu2p2pt:
284: .space 4
285:
286:
287: /*
288: *user #3 page tables -- P0PT, P1PT, P2PT
289: *physical memory -- page 19, 20 , & 21 respectively
290: */
291: .align 2
292: .globl _u3p0pt
293: _u3p0pt:
294: .space 1024 /*255 max pages for user #3 text */
295: .globl _u3p1pt
296: _u3p1pt:
297: .space 1024 /*255 max pages for user #3 data */
298: .globl _u3p2pt
299: _u3p2pt:
300: .space 1020 /*255 max pages for user #3 stack */
301: eu3p2pt:
302: .space 4
303:
304: /*
305: *user #4 thru 6 page tables
306: *physical memory -- pages 22 thru 30
307: */
308: .globl _u4p0pt
309: _u4p0pt:
310: .space (9*NBPG) - 4
311: eu6p2pt:
312: .space 4
313:
314: /*
315: *user #7 page tables -- P0PT, P1PT, P2PT
316: *physical memory -- page 31, 32 , & 33 respectively
317: */
318: .align 2
319: .globl _u7p0pt
320: _u7p0pt:
321: .space 1024 /*255 max pages for user #7 text */
322: .globl _u7p1pt
323: _u7p1pt:
324: .space 1024 /*255 max pages for user #7 data */
325: .globl _u7p2pt
326: _u7p2pt:
327: .space 1020 /*255 max pages for user #7 stack */
328: eu7p2pt:
329: .space 4
330:
331: .globl _Ksp0 /* Page used for Kernel stack of user0 */
332: _Ksp0: .space 1020
333: _Eksp0: .long 0
334:
335: .globl _Ksp1 /* Page used for Kernel stack of user1 */
336: _Ksp1: .space 1020
337: _Eksp1: .long 0
338:
339: .globl _Ksp2 /* Page used for Kernel stack of user2 */
340: _Ksp2: .space 1020
341: _Eksp2: .long 0
342:
343: .globl _Ksp3 /* Page used for Kernel stack of user3 */
344: _Ksp3: .space 1020
345: _Eksp3: .long 0
346:
347: .globl _Ksp4 /* Page used for Kernel stack of user4 */
348: _Ksp4: .space 1020
349: _Eksp4: .long 0
350:
351: .globl _Ksp5 /* Page used for Kernel stack of user5 */
352: _Ksp5: .space 1020
353: _Eksp5: .long 0
354:
355: .globl _Ksp6 /* Page used for Kernel stack of user6 */
356: _Ksp6: .space 1020
357: _Eksp6: .long 0
358: #
359: # I/O buffers
360: #
361: .globl _iob0
362: _iob0: .space 1024
363: .globl _iob1
364: _iob1: .space 1024
365: .globl _iob2
366: _iob2: .space 1024
367: .globl _iob3
368: _iob3: .space 1024
369: .globl _iob4
370: _iob4: .space 1024
371: .globl _iob5
372: _iob5: .space 16384
373:
374: esysdata:
375:
376: #include "scblock.s" /* SYSTEM CONTROL BLOCK */
377:
378:
379:
380:
381:
382:
383: #include "evthandlers.s" /*event handlers */
384:
385: #define ACBL(_n1,_n2,_n3,_n4) \
386: addl2 _n2,_n3;\
387: cmpl _n3,_n1;\
388: bleq _n4;
389:
390:
391:
392: /*
393: *INITIALIZATION CODE
394: *
395: * MME off; mode = k; IPL = 31; IS = 1
396: *
397: */
398:
399: .globl start
400: start:
401: mtpr $0x1f,$IPL /* Set IPL to HIGH */
402: mtpr $0,$MME /* Disable MME */
403: movab _scb,r0
404: andl2 $0x3ffffc00,r0
405: mtpr r0,$SCBB /* Set SCBB */
406:
407: movpsl r1
408: andl2 $0x001f0000,r1 /* Mask out flags */
409: cmpl r1,$0x001f0000 /* modes = K & IPL = 31? */
410: beql 1f
411: 2: movl $1,r0
412: movl $0x041f0000,r2
413: halt /* PSL not initialized as expected */
414: 1:
415: movl $_intstack+NISP*NBPG,r0
416: andl2 $0x3fffffff,r0 /* Mask out bit 30,31 */
417: mtpr r0,$ISP /* init. ISP */
418: movl r0,sp /* in case we get exception */
419: movab (sp),fp /* Initialize FP */
420: #
421: # Clear system data area all the way upto system code
422: # this includes dump buffer,interrupt stack,spt,iomap,pcbs,user
423: # page tables, & io buffer area.
424: #
425: 3:
426: movab esysdata,r7
427: movab _restart,r6
428: 1: clrl (r6)
429: ACBL(r7,$4,r6,1b)
430: #
431: # Initialize System Page Table
432: #
433: 5:
434: clrl r2
435: movab _Ksp6,r1 /* R1 = Last address in Kernel stack area */
436: andl2 $0x3fffffff,r1 /* Mask out bit 30,31 */
437: shar $PGSHIFT,r1,r1 /* Get page no. of last page of Kstacks */
438: 1:
439: movl r2,r11 /* Donot want to use orl3 */
440: orl2 $PG_V|PG_KW,r11
441: orl2 r11,_Sysmap[r2]
442: aobleq r1,r2,1b
443:
444: movab esysdata,r1 /* R1 = Last address in system data area */
445: andl2 $0x3fffffff,r1 /* Mask out bit 30,31 */
446: shar $PGSHIFT,r1,r1 /* Get page no. of last system data addr */
447: 1:
448: movl r2,r11 /* Donot want to use orl3 */
449: orl2 $PG_V|PG_KW|PG_NC,r11 /* Set I/O buffers non cachable */
450: orl2 r11,_Sysmap[r2]
451: aoblss r1,r2,1b
452: #
453: # Map system text area 1 to 1, Kernel read/write.
454: # For this to work, the label _etext must exist at the end
455: # of system code; Add in 4 more pages for data area used in C
456: #
457: movab _end + (NBPG-1),r1 /* Map text+data 1 to 1; Kernel R/W */
458: andl3 $0x3ffffc00,r1,_IOpage
459: addl2 $64*(1024),r1
460: andl2 $0x3fffffff,r1
461: shar $PGSHIFT,r1,r1
462: 1:
463: movl r2,r11
464: orl2 $PG_V|PG_KW|PG_NC,r11 /* Kernel Read/Write, non_cachable */
465: orl2 r11,_Sysmap[r2]
466: aoblss r1,r2,1b
467: #
468: # Map from here (1st unused page) to page 512 :
469: # * invalid,no access, & virtual = physical
470: #
471: movl r2,_unused /* Save first unused physical page no */
472: movl $LSP+1,r1
473: 1: movl r2,_Sysmap[r2]
474: aoblss r1,r2,1b
475:
476: sysrdy:
477: movab _Sysmap,r0
478: mtpr r0,$SBR /* Set SYSTEM BASE REG */
479: mtpr $_Syssize,$SLR
480: orl2 $0xc0000000,r0
481: mtpr r0,$P0BR /* Set P0BR */
482: mtpr $_Syssize,$P0LR
483:
484: movl $CLOCK,r0
485: movab _Xclock,_scb[r0] /* Set clock handler */
486:
487: movl $BUSER,r0
488: movab _Buser,_scb[r0] /* Set bus error handler */
489:
490: clrl _bturn
491: clrl _bell
492: clrl _btime
493: mtpr $1,$IPL /* Allow clock interrupt */
494: incl _IOinit /* Set flag so bus err don't print */
495: #
496: # Probe for VIOCs
497: #
498: clrl _viocs
499: callf $4,_chk_vadr
500: movl r0,_viocs
501: #
502: # Probe for VDDCs
503: #
504: clrl _vddcs
505: callf $4,_chk_vdadr
506: movl r0,_vddcs
507: .globl _ready
508: _ready:
509: clrl _proc_no
510: mtpr $1,$PACC
511: mtpr $1,$PADC
512: mtpr $1,$TBIA
513: mtpr $1,$CCK /* Set Code Cache Key = 1 */
514: mtpr $1,$DCK /* Set Data Cache Key = 1 */
515: mtpr $1,$MME /* Enable MME */
516: jmp *$1f
517: 1:
518: movab _pcb0,r0
519: movab _Eksp0,(r0) /* Set PCB0_KSP */
520: mfpr $P0BR,PCB_P0BR(r0) /* Set PCB0_P0BR */
521: mfpr $P0LR,PCB_P0LR(r0) /* Set PCB0_P0LR */
522: mtpr r0,$PCBB /* Init PCBB to PCB_0 */
523: ldpctx /* Just to switch to Kernel stack */
524: mtpr $1,$IPL /* Drop IPL to 1 */
525: movl (sp)+,r12 /* Pop unnecessary PC,PSL */
526: movl (sp)+,r11
527: #
528: # The following tests are included : Tape, Vioc, Vddc.
529: # Bit 0-2 of R0 correspond to Tape, Vioc, Vddc test. To disable
530: # a particular test just set the corresponding bit to 1 before
531: # start. For example, if only VIOC test to be run, set R0=5.
532: # To run all, set R0 = 0. This process is now done by the
533: # routine 'echo'.
534: #
535: # Now that MME, probe for magtape
536: #
537: 1: clrl _tapes
538: callf $4,_chk_tape
539: movl r0,_tapes
540: mfpr $SLR,_Sslr /* Save original SLR */
541: movl _unused,_Unused /* Save 1st unused page */
542: go:
543: mtpr _Sslr,$SLR /* Reinit. SLR with original value */
544: movl _Unused,_unused /* always restore it !! */
545: pushab imsg /* Select users options */
546: callf $8,_writes /* Print message */
547: callf $8,_echo /* Get user response */
548: movl r0,tst_mask /* Save user option */
549: #
550: # Tape Master Test
551: #
552: andl3 $0x1,tst_mask,r0 /* Is Tape test selected */
553: jneq 1f /* Skip to next test if not */
554: callf $4,_tape /* set up to test tape */
555: cmpl $0,r0 /* See if there was a controller */
556: jeql 2f
557: callf $4,_tm_ex /* Test magtape */
558: 2:
559: clrl _tape_ON /* next test */
560: brw 1f
561: #
562: # VIOCs Test
563: #
564: 1:
565: andl3 $0x2,tst_mask,r0
566: bneq 1f
567: tstl _viocs /* Any VIOCs to test ? */
568: beql 2f
569: callf $4,_init_vec /* Set up interrupt handlers for VIOCs */
570: callf $4,_vioc /* VIOC test */
571: clrl _vioc_ON /* next test */
572: brw 1f
573: 2:
574: pushab nmsg /* print no VIOCs message */
575: callf $4,_writes
576: #
577: # VDDC Controller Test
578: #
579: 1:
580: andl3 $0x4,tst_mask,r0
581: jneq 1f
582: tstl _vddcs /* Any VDDCs to test ? */
583: beql 1f
584: callf $4,_vddc /* Set up to test VDDCs */
585: cmpl $0,r0 /* See if there were any controllers */
586: jeql 2f
587: callf $4,_vddc_ex /* Test VDDCs */
588: 2:
589: clrl _vddc_ON /* Print Done msg */
590: brw 1f
591: #
592: #
593: #
594: 1:
595: clrl _Berr /* Clear the bus error flag */
596: clrl _IOinit
597: clrl _Multi
598: movl tst_mask,r0
599: jmp go /* Restart the test */
600: #
601: # Real time clock Handler
602: #
603: .align 2
604: .globl _Xclock
605: _Xclock:
606: rei
607:
608: #
609: # Bus error handler
610: #
611: .align 2
612: .globl _Buser
613: _Buser:
614: movab (sp),-(sp) /* Push pointer to error parameter */
615: callf $8,_buserror
616: incl _Berr
617: movl (sp)+,r0
618: movl (sp)+,r0
619: rei
620:
621: #
622: # badaddr(addr, len)
623: # see if access addr with a len type instruction causes a machine check
624: # len is length of access (1=byte, 2=short, 4=long)
625: # r0 = 0 means good(exists); r0 =1 means does not exist.
626: #
627: .globl _badaddr
628: _badaddr:
629: .word 0x1c # Keep r4,r3,r2
630: mfpr $IPL,r1
631: mtpr $HIGH,$IPL
632: movl _scb+BEVEC,r2
633: movl 4(fp),r3
634: movl 8(fp),r4
635: movab 9f,_scb+BEVEC
636: bbc $0,r4,1f; tstb (r3)
637: 1: bbc $1,r4,1f; tstw (r3)
638: 1: bbc $2,r4,1f; tstl (r3)
639: 1: clrl r0 # made it w/o machine checks
640: 2: movl r2,_scb+BEVEC
641: mtpr r1,$IPL
642: ret
643:
644: .align 2
645: 9: # Here we catch buss error (if it comes)
646: andl3 4(sp),$0x7,r0 # check ERRCD
647: cmpl r0,$1 # check APE
648: jneq 1f
649: halt # Address parity error !!!
650: 1: cmpl r0,$5 # check VBE
651: jneq 1f
652: halt # Versabus error
653: 1:
654: movl $1,r0 # Anything else = bad address
655: movab 8(sp),sp # discard buss error trash
656: movab 2b,(sp) # new program counter on stack.
657: rei
658: #
659: #
660: #
661: .data
662: .align 2
663: _Sslr:
664: .long 0
665: tst_mask:
666: .long 0
667: _bell: .long 0
668: _bturn: .long 0
669: _btime: .long 0
670: .globl _Multi
671: _Multi: .long 0
672: .globl _Berr
673: _Berr: .long 0
674: .globl _IOinit
675: _IOinit: .long 0
676: .globl _tape_ON
677: _tape_ON:
678: .long 1
679: .globl _vioc_ON
680: _vioc_ON:
681: .long 1
682: .globl _vddc_ON
683: _vddc_ON:
684: .long 1
685: .globl _tapes
686: _tapes:
687: .long 0
688: .globl _viocs
689: _viocs:
690: .long 0
691: .globl _vddcs
692: _vddcs:
693: .long 0
694: .align 1
695: imsg: .ascii "\n\nPeripherial Integrated Test System r1.2\n",
696: .ascii "\nSelect one of the following :\n",
697: .ascii "\n 0 - Run all test",
698: .ascii "\n 1 - Tape Master test",
699: .ascii "\n 2 - VIOC test",
700: .ascii "\n 3 - VDDC test\n",
701: .ascii "\nEnter the appropriate test number : \0"
702: nmsg: .ascii "\n\nNo VIOCs are installed\n\0"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.