# RP06/RM03 disk boot program to load "/boot" from
# a UNIX filesystem (starting at block 1 on pack on
# drive 0) into low core and to execute that file.
# This program can only read regular small version 7 files
# from the root of a UNIX filesystem.
.set BLKSIZ,1024 # disc block size
.set INOSIZ,64 # no. bytes/inode entry
.set INOBLK,BLKSIZ/INOSIZ # no. inodes/disc block
.set INOMSK,0xfffffff0 # changes with inode size
.set NAMSIZ,14 # no. bytes in name field of dir entry
.set ENTADR,024 # offset to entry addr in task header
.set DIRSIZ,16 # size of directory entry, bytes
.set ROOTINO,2 # root dir inode no.
.set MBA0,0x20010000 # MBA 0 device reg's
.set M_cr,MBA0+4 # MBA control reg
.set M_var,MBA0+12 # MBA virt addr reg
.set M_bc,MBA0+16 # MBA byte count reg
.set M_map,MBA0+0x800 # start of MBA map reg's
.set MBAinit,1 # MBA init bit in MBA control reg
.set RP,MBA0+0x400 # start of RP06 drive 0 reg's
.set RP_cr,RP+0 # RP06 control reg, drive 0
.set RP_sr,RP+4 # status reg
.set RP_stk,RP+0x14 # desired track/sector reg
.set RP_dt,RP+0x18 # drive type reg
.set RP_off,RP+0x24 # RP offset reg
.set RP_cyl,RP+0x28 # desired cyl reg
# RP06 function codes, status bits
.set RP_RED,070 # read data
.set RP_DC,010 # drive clear function code
.set RP_RIP,020 # Read-In Preset function code
.set RP_FMT,0x1000 # format bit for offset reg
.set RP_MOL,0x1000 # medium online in status reg
.set RP_DRY,0200 # drive ready, staus reg
.set RP_ERR,040000 # composite error, staus reg
.set RP_pDRY,7 # bit position of RP_DRY
.set RP_pERR,14 # bit position of RP_ERR
# system initialization - executed once per boot load
halt # entry mask required by DEC monitor software
movl $MBAinit,*$M_cr # MBA initialize
movl $RP_RIP+RP_GO,*$RP_cr # read-in preset
movl $RP_FMT,*$RP_off # format bit in RP offset reg
mull3 *$rpsec,*$rptrk,*$rpst
# move boot image up to higher core
# 'uboot' must have no header
movc3 $end,*$0,(sp) # move boot to relocated position
# jump to re-located code at 'start2' - done once per boot load
# execution starts here only after boot has been re-located
# search inodes for pathname specified in 'names'
# 'cmpc[35]' instruction uses reg's 0 - 3
# 'movc[35]' instruction uses reg's 0-5
movl $names+RELOC,r6 # start of input filename
movzbl $ROOTINO,r0 # start at root inode for search
clrw *$bno # 'bno' is index into 'iaddr[]' in inode entry
bsbw iget # get inode into core
tstb (r6) # r6 -> empty pathname component if end of pathname
bsbw rmblk # read in 1 of blocks in 'addr[]' in inode entry
beql start2 # file not found if zero cc set
movl $buf,r7 # buffer holds directory block
tstw (r7) # null dir entry (inode # field = 0)
cmpc3 $NAMSIZ,(r6),2(r7) # compare 'names' against
# dir entry - both null-filled
bneq dirchk # branch if dir entry is not the one
# found component in a dir entry
movzwl (r7),r0 # 2-byte inode no. from 1st 2 bytes of dir entry
addl2 $NAMSIZ,r6 # point to next pathname component in 'names[]'
brb nxti # now go get inode whose no. is in r0
dirchk : # no pathname match
acbl $buf+BLKSIZ-1,$DIRSIZ,r7,nxtent # loop if
# more dir entries in this buffer
brb get1b # get another dir block into buffer
# here if inode for desired file has been read in
clrl bufptr # new buffer ptr is low core
bsbb rmblk # get a block in the file
beql clear # branch if no more file blocks to read
# skip above branch if more file blocks to read in
addl2 $BLKSIZ,bufptr # next page in low core
brb getlop # go get next block of input file
# subroutine to get the inode whose no. is in r0
addl3 $(INOBLK*(NBOO+NSUP))-1,r0,r8 # have to add in 2 blocks (boot and super)
# worth of dummy inodes to calculate proper inode block
divl3 $INOBLK,r8,r4 # calculate inode block , put in r4
bsbw rblk # read in block containing desired inode
mull2 $INOSIZ,r8 # x inode size = offset in block
addl2 $buf,r8 # buffer loc of inode entry
# move inode entry to separate buffer
movc3 $time-inode,(r8),*$inode
# subr to read in 1 of blocks (bno) in 'addr[]'
addw2 $3,*$bno # index into 'addr[]' array in inode entry
# this boot assumes only small files(<11 blocks)
extzv $0,$24,(r0),r4 # get low 2 bytes of block no. -> r4
bneq rblk # read in block if non-zero
# zero cc is set on return
# subr to read disc block no. specified in r4 from RP06, drive 0
ediv *$rpst,r4,*$RP_cyl,r1
# (r4 = block no.)/(no. blocks per cyl) -> cyl no.
# r1 = remainder = block offset with in cylinder
# r1 = track no. ; ; sector no. in low part RP_stk
insv r1,$8,$5,r0 # move track no. into RP_stk
movl r0,*$RP_stk # track-sector
movl $-BLKSIZ,*$M_bc # byte count
ashl $-9,bufptr,r0 # start page no. of buffer
bisl3 $0x80000000,r0,*$M_map # MBA map reg =
# valid bit + phys page no.
bisl3 $0x80000000,r0,*$(M_map+4)
clrl *$M_var # buffer has been 512-byte aligned + map reg 0
movl $RP_RED+RP_GO,*$RP_cr # disc read function code
bbc $RP_pDRY,r0,rprdy # loop unitl ready
bbs $RP_pERR,r0,rperr # branch if error
bicpsw $2 # set zero cc for caller success
.byte 'b,'o,'o,'t,0,0,0,0,0,0,0,0,0,0
projects / unix-history / blob