# Tape boot program to load and transfer
# to a program on a 9-tr mag tape in
# UNIX 'tp' format on the VAX machine.
# This program is the boot block on the mag tape.
# Entry is made to the desired file via 'calls $0,entrypt'
# so return can be 'ret'.
.set core,50 # assume 50 K words avail.
.set BOOBLK,1 # no. tape blocks for boot
.set HDRSIZ,040 # size of file header for VAX
.set MAGIC,0410 # file type id in header
.set ENTSIZ,64 # size of 1 TP dir entry, bytes
.set PTHSIZ,32 # size of TP path name, bytes
.set BLKSIZ,512 # tape block size, bytes
.set NUMDIR,24 # no. of dir blocks on tape
.set ENTBLK,8 # no. of dir entries per tape block
.set NL,012 # new-line char
.set CR,015 # carriage-return char
.set MAXC,65535 # max. count for 'movc' op
.set TENT,024 # task header entry loc
.set TXCS_pr,7 # bit position of TXCS ready bit
.set RXCS_pd,7 # bit position of RXCS done bit
.set FILSIZ,38 # dir offset for file size
.set BNUM,44 # dir offset for start block no.
.set MBA1,0x20012000 # MBA 1 device reg's
.set M_cfg,0 # MBA config reg
.set M_cr,4 # MBA control reg
.set M_stat,8 # MBA status reg
.set M_var,12 # MBA virt addr reg
.set M_bc,16 # MBA byte count reg
.set M_map,0x800 # start of MBA map reg's
.set MBAinit,1 # MBA init bit in MBA control reg
.set TM02,MBA1+0x400 # start of TM02 reg's
.set TM_cs1,0 # TM02 control 1 reg
.set TM_ds,4 # status reg
.set TM_as,16 # attention summary
.set TM_fc,20 # frame count
.set TM_tc,36 # TM02 tape control
# Function codes for TM02 control reg 1
.set RWND,6 # rewind, on-line
.set DCLR,010 # drive clear
.set SFWD,030 # space forward
.set SREV,032 # space reverse
.set WRIF,060 # write forward
.set REDF,070 # read forward
.set ERR,040000 # composite error bit in status reg
.set TCHAR,012300 # drive 0, odd parity, PDP11,
# 1600 BPI NRZ, abort on error - for
.set DRDY,0200 # TM02/drive ready in status reg
.set TM_pd,7 # bit position of TM DRDY bit
.set TM_pe,14 # bit position of TM ERROR bit
.set tapa,-4 # desired tape addr
.set mtapa,-8 # current tape addr
.set name,-8-PTHSIZ # operator-typed file name
movl $RELOC,fp # core loc to which to move this program
addl3 $name,fp,sp # set stack pointer, leaving room for locals
movl $HDRSIZ,r0 # skip header
movc3 $end,(r0),(fp) # move boot up to relocated position
jmp start+RELOC # jump to relocated code
movl $MBAinit,M_cr(%rMBA) # MBA initialize
movl $TCHAR,TM_tc(%rTM) # drive no., etc.
movl $DCLR+GO,TM_cs1(%rTM) # drive clear
bsbw rew # rewind input tape
movab name(fp),r4 # start of filename storage
movzbl $'=,r0 # prompt character
bsbw putc # output char to main console
movl r4,r1 # loc at which to store user-specified file name
bsbw getc # get input char's in file name
cmpb r0,$NL # terminator ?
cmpb r0,$'@ # r0 = return character
subl3 r4,r1,r9 # size of path name
beql start # dumb operator
# user-specified TP filename has been stored at name(fp)
# read in entire tp directory contents into low core
# 'cmpc[35]' instruction uses reg's 0-3
movl $BOOBLK,tapa(fp) # desired tape block no.
movl $(NUMDIR*BLKSIZ),r6 # no. bytes in total dir
bsbw taper # read no. bytes indicated
# search entire directory for user-specified file name
clrl r5 # dir buff loc = 0
cmpc3 r9,(r5),(r4) # see if dir entry matches filename
beql fndfil # found match
acbl $NUMDIR*BLKSIZ-1,$ENTSIZ,r5,nxtdir # see if done with tp dir
brb start # entry not in directory - start all over
# found desired tp dir entry
movzwl BNUM(r5),tapa(fp) # start block no., 2 bytes
movzwl FILSIZ(r5),r6 # low 2 bytes file size
insv FILSIZ-1(r5),$16,$8,r6 # file size, high byte
cmpl r6,$RELOC-512 # check if file fits below stack
brw start # file too large
# time to read in desired file from tape
# if load module header exists, move down rest of load
cmpl (r5),$MAGIC # unix a.out?
# move start of exec image down to 0
movq TSIZ(r0),r1 # text size and data size
movq BSIZ(r0),r3 # bss size, symbol table size
movl TENT(r0),r5 # entry loc
movl r7,r6 # restore file size
# move data up to page boundary
extzv $0,$9,r1,r0 # byte-in-page of last text byte
subl3 r0,$512,r0 # room needed
addl2 r2,r1 # current end+1 of data
addl2 r1,r0 # new end+1 of data
movl r0,r7 # start here on bssz clearing
subl3 r7,$RELOC-4,r0 # no. bytes to clear
# time to jump to start of file & execute
brw start # returned from execution - start all over
# taper: movcTAPE (r6),tapa(fp),0
bsbb rew # beginning of tape
bsbb rrec # advance 1 block; (we never want block 0)
cmpl mtapa(fp),tapa(fp) # current position .vs. desired
acbl $1,$-BLKSIZ,r6,rloop
# subr to read 1 block from mag tape into page (r0)
bbc $TM_pd,r2,rrec # TM02 & drive ready ?
movl $-BLKSIZ,M_bc(%rMBA) # byte count
bisl3 $0x80000000,r0,M_map(%rMBA) # MBA map entry = valid bit + phys page no.
clrl M_var(%rMBA) # MBA virt addr reg = map reg no. + byte offset
movl $REDF+GO,TM_cs1(%rTM) # read forward
bbc $TM_pd,r2,tmrdy # TM02 & device ready ?
bbc $TM_pe,r2,donred # any read errors ?
clrl TM_ds(%rTM) # clear status - try to recover
mnegl $1,TM_fc(%rTM) # frame count for backspace
movl $SREV+GO,TM_cs1(%rTM) # space reverse
incl r0 # next SBI page no.
incl mtapa(fp) # mag tape block position
# subr to rewind mag tape
movl $RWND+GO,TM_cs1(%rTM) # rewind
clrl mtapa(fp) # current position
# subroutines to do char i-o with main tty console
bbc $RXCS_pd,r0,getc # receiver ready ?
bbc $TXCS_pr,r2,putc # transmitter ready ?
projects / unix-history / blob