![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to obblock.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / sys / boot / bb|
Return to obblock.s CVS log | Up to [Research Unix] / researchv10dc / sys / boot / bb |
1.1 root 1: #
2: # device-independent boot block
3: # uses the rom device driver
4: # reads an already-de-headered, small file with predetermined name
5: # into the beginning of memory
6: # and executes it
7: #
8: # buffering:
9: # the ROM driver will only write into the bottom 64K of memory
10: # to make things simple, we always read to a fixed place,
11: # then copy to the desired place.
12: # if we would have read to the fixed place,
13: # we copy to a safe buffer, and copy back when we're all done.
14: # the same subterfuge is needed to avoid overwriting the in-RAM copy
15: # of the boot ROMs, where our device driver lives,
16: # so we use the memory just below the ROM copy for the buffer
17: #
18: .set BSIZE,512 # size of a disk block, according to rom driver
19: .set BSHIFT,9
20: .set BUFADDR,0xfa00-BSIZE # where to read stuff
21: .set BUFSIZE,1024+BSIZE # sizeof(buffer) + sizeof(roms)
22:
23: .set NAMELEN,14 # number of chars in name; one element for now
24: .set HIADDR,0x70000 # high address at which we run
25:
26: .set REGMASK,0xef # registers to save for second boot
27: .set SVSIZE,7*4
28: .set SADR,0 # r0 -- overwritten with start addr
29: .set SR1,(1*4) # offsets in save area
30: .set SR3,(3*4)
31: .set SFLGS,(4*4) # boot flags -- r5
32: .set DRIVER,(5*4) # where device driver addr gets saved -- r6
33:
34: .set A_MAGIC,0 # offset in exec hdr: magic number
35: .set A_TEXT,4 # text size
36: .set A_DATA,8 # data size
37: .set A_ENTRY,20 # start address
38:
39: .set ISIZE,64 # size of an i-node
40: .set ISHIFT,6 # same as a shift
41: .set INOPB,BSIZE/ISIZE
42: .set ROOTINO,2 # i-number of the root
43: .set ILBLK,2 # first block of i-list
44: .set NDIREC,10 # number of direct blocks
45: .set NINDIR,256 # number of (interesting) indirect blocks
46: .set NINDBLK,NDIREC+NINDIR
47: .set I_ADDR,12 # offset to addresses in inode
48: .set DIRSIZ,14 # chars in filename
49:
50: .set PGSIZE,1024 # ld's idea of page size -- for 0410 a.out
51: .set PGSHIFT,10
52:
53: .set RXCS,32 # console rcv csr
54: .set RXDB,33 # console rcv data buffer
55: .set RRDY_B,7 # bit number of ready bit in RXCS
56: .set TXCS,34 # console xmt csr
57: .set TXDB,35 # console xmt data buffer
58: .set TRDY_B,7 # bit number of ready bit in TXCS
59:
60: #
61: # main code
62: # relocate ourselves to high memory
63: # read the root directory, and search it for
64: # the desired file
65: # read that file in
66: #
67: # start must be at addr 0xc
68: #
69:
70: beg:
71: brb start;brb start # 0, 2 valid start addresses
72: hiaddr: .long HIADDR
73: .set didsave,hiaddr+3 # a byte which is 0 when we start
74: bufaddr: .long BUFADDR # handy constant reference
75: start:
76: movl hiaddr,sp # set up new stack
77: pushr $REGMASK # save important boot registers
78: movl sp,r11 # remember where they are
79: movc3 $end,beg,SVSIZE(sp) # copy us up
80: jmp strel+SVSIZE(sp)
81:
82: bootname:
83: .byte 'u,'n,'i,'x,0,0,0,0,0,0,0,0,0,0
84:
85:
86: #
87: # print a character on the console from r1
88: #
89:
90: putc:
91: mfpr $TXCS,r2
92: bbc $TRDY_B,r2,putc
93: mtpr r1,$TXDB
94: rsb
95:
96: #
97: # jump here after relocation
98: #
99:
100: strel:
101: blbs SFLGS(r11),stask # boot flag 1 == prompt for filename
102: movab bootname,r0
103: 0: movzbl (r0)+,r1
104: beql prnl
105: bsbb putc
106: brb 0b
107:
108: stask:
109: movl r11,sp # in case we loop back
110:
111: #
112: # read a string from the console into bootname
113: # terminated by newline
114: #
115:
116: getpr:
117: movzbl $'*,r1 # prompt
118: bsbb putc
119:
120: getname:
121: movab bootname,r3
122: movzbl $NAMELEN-1,r0
123: 0: mfpr $RXCS,r1
124: bbc $RRDY_B,r1,0b
125: mfpr $RXDB,r1
126: bicb2 $0200,r1
127: bsbb putc
128: cmpb $015,r1
129: beql 8f
130: cmpb $040,r1 # ignore control chars; thanks, nautilus
131: bgtr 0b
132: decl r0
133: blss 0b
134: movb r1,(r3)+
135: brb 0b
136: 8: clrb (r3)+
137: sobgtr r0,8b
138: prnl: movzbl $015,r1
139: bsbb putc
140: movzbl $012,r1
141: bsbb putc # and return
142: 2:
143: #
144: # get the root i-node
145: #
146: movl $ROOTINO,r0
147: bsbb iget
148: #### check is directory?
149: movab -NINDBLK*4(sp),sp
150: movl sp,r10
151: bsbb addrcpy
152: #
153: # search the root directory
154: #
155:
156: clrl r12 # init block pointer
157: dirblk:
158: clrl r5 # use beginning of mem as buffer
159: bsbw lread
160: bneq stask # eof, try another file
161: clrl r9
162: 0:
163: movzwl (r9)+,r0 # empty entry?
164: beql 2f # yes, skip it
165: clrl r1
166: 1: cmpb (r9)[r1],bootname[r1] # MicroVAX II doesn't have cmpc
167: bneq 2f
168: aoblss $DIRSIZ,r1,1b
169: brb diryes # the name we want
170:
171: 2: acbw $FSBSIZE-1,$DIRSIZ,r9,0b
172: incl r12 # get next block
173: brb dirblk
174:
175: berr: brb stask
176:
177: #
178: # subroutines placed here, out of sequence, to save space
179: #
180: # copy/convert block numbers
181: # out of an i-node
182: # r10 points to where we want them
183: # r0 points to the i-node
184: # for now, only the direct blocks
185: #
186: # r0 is destroyed
187: #
188:
189: addrcpy:
190: movl r10,r1 # make a volatile copy
191: addl2 $I_ADDR,r0 # point to addresses
192: clrl r2
193: 0:
194: movw (r0)+,(r1)+
195: movzbw (r0)+,(r1)+
196: aoblss $NDIREC+1,r2,0b
197: rsb
198:
199: #
200: # fetch an i-node
201: # r0 has the i-number
202: # on exit, r0 points to the i-node in core
203: # address 0 is used as a buffer
204: #
205:
206: iget:
207: decl r0 # i-numbers are 1 based
208: clrl r1 # make a quadword
209: ediv $INOPB,r0,r8,-(sp) # r8 == block; (sp) == offset
210: addl2 $ILBLK*FSBSIZE/BSIZE,r8
211: clrl r5 # into address 0
212: bsbb bread
213: ashl $ISHIFT,(sp)+,r0 # point to i-node
214: rsb
215:
216: #
217: # read a BSIZE block from the disk
218: # using the rom subroutine
219: # block number in r8;
220: # buffer address in r5
221: # no return if it failed
222: #
223: # hack: if we would read atop the boot roms, don't;
224: # read into a safe place instead, and remember
225: # for the purposes of the hack, it's assumed that
226: # reads are aligned in memory conveniently
227: #
228:
229: bread:
230: subl3 bufaddr,r5,r0
231: blss 0f
232: cmpl r0,$BUFSIZE
233: bgeq 0f
234: movab savedata,r5
235: addl2 r0,r5
236: movb $1,didsave
237: 0:
238: pushl r5 # save real addr
239: movl bufaddr,r5 # get buffer loc
240: movq SR1(r11),r1 # device address stuff
241: movl SR3(r11),r3 # unit number
242: pushl r5 # duplicate address for driver routine
243: jsb *DRIVER(r11) # and call driver
244: blbc r0,berr # disk error, start over
245: tstl (sp)+ # fixup stack
246: movc3 $BSIZE,*bufaddr,*(sp)+ # copy data to final resting place
247: rsb
248:
249: #
250: # back to the main path:
251: # found the file
252: # fetch its i-node and read it in
253: # i-number left in r0 for us
254: #
255:
256: diryes:
257: bsbb iget
258: ##### check i-node?
259: bsbb addrcpy
260: #
261: # indirect blocks
262: # only the first 1024 bytes of the first indirect block examined
263: #
264: mull3 NDIREC*4(r10),$FSBSIZE/BSIZE,r12 # pick up one indirect block
265: beql noind
266: movl r12,r8
267: moval NDIREC*4(r10),r5
268: bsbb bread
269: addl3 r12,$1,r8 # 2 sectors == 256 indirections
270: moval NDIREC*4+BSIZE(r10),r5
271: bsbb bread
272: noind:
273: clrl r5
274: clrl r12
275: rdloop:
276: ashl $FSSHIFT,r12,r5
277: bsbb lread
278: bneq eof
279: incl r12
280: brb rdloop
281: #
282: # whole file read in
283: # check for a.out header and relocate
284: #
285: eof:
286: blbc didsave,1f
287: movc3 $BUFSIZE,savedata,*bufaddr
288: 1: clrl r12
289: movq A_TEXT(r12),r7 # r7 = text size; r8 = data size
290: movl A_ENTRY(r12),SADR(r11) # starting address
291: 2: casel A_MAGIC(r12),$0407,$1
292: 0: .word m0407-0b
293: .word m0410-0b
294: clrl SADR(r11) # no a.out, start at the top
295: brb done
296: m0407:
297: addl2 r8,r7 # text = text + data; no data
298: clrl r8
299: #
300: # do copies by longword: simpler and smaller than movc3,
301: # which would need to loop anyway
302: # longword not quadword because ld rounds sizes to long
303: #
304: # really should beql after the second div, else when there's no data
305: # we copy one extra word to a nonsense place.
306: # too bad; we can't spare the code space
307: #
308: m0410:
309: clrl r0
310: movzbl $32,r1
311: addl3 r7,r8,r2
312: divl2 $4,r2
313: 1: movl (r1)+,(r0)+ # copy down over a.out header
314: sobgtr r2,1b
315: divl3 $4,r8,r2
316: addl3 r8,r7,r1 # from t + d
317: extzv $0,$PGSHIFT,r7,r0
318: beql 0f # don't overround
319: subw3 r0,$PGSIZE,r0
320: 0: addl2 r1,r0 # to t + d + round
321: 2: movl -(r1),-(r0) # copy data to start at page boundary
322: sobgtr r2,2b
323: #
324: # reset registers and start
325: #
326:
327: done:
328: movl r11,sp
329: popr $REGMASK
330: movl r5,r11 # put boot flags in stupid bky place
331: jmp 2(r0) # skip register mask & start it
332:
333: #
334: # read a (filesystem) block from a file
335: # (filesystem) block number in r12
336: # buffer address in r5
337: # r10 points to the addresses
338: # returns status in psw:
339: # zero flag set if read a block
340: # clear if error or block doesn't exist
341: #
342:
343: lread:
344: cmpw r12,$NINDBLK
345: blss 0f
346: lerr:
347: bicpsw $4 # clear zero flag
348: rsb
349: 0:
350: movl (r10)[r12],r8
351: beql lerr
352: pushl $FSBSIZE/BSIZE # count of disk blocks within fs block
353: mull3 $FSBSIZE/BSIZE,r8,-(sp) # fs block to disk block
354: 1:
355: movl (sp),r8
356: movl r5,r6 # safe place
357: bsbw bread
358: movab BSIZE(r6),r5
359: incl (sp)
360: sobgtr 4(sp),1b
361: clrq (sp)+ # addl2 $8,sp; set zero bit
362: rsb
363: #
364: # last address that needs saving
365: #
366: .globl end
367: end:
368:
369: #
370: # put uninitialized (not 0) data here
371: #
372: .align 2
373: savedata:
374: # .space ROMSIZE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.