home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / 4BSD / Distributions / tips / SMS_plain43_recipe < prev   
Encoding:
Internet Message Format  |  1998-09-25  |  37.7 KB
  1. From: "Steven M. Schultz" <sms@moe.2bsd.com>
  2. Date: Tue, 22 Sep 1998 17:43:44 -0700 (PDT)
  3.  
  4. 4.3 CAN run on a uVax. But, in true chicken-and-egg fashion, you must
  5. have access to a working TK50 tape drive so that you may build a TK50
  6. boot tape for that medium.
  7.  
  8. Check out the README in the shar file. It is assumed that you have installed
  9. previous fixes in /sys/vax regarding uVaxen. But just in case you haven't,
  10. another article has been posted with those fixes.
  11.  
  12. Rick
  13.  
  14. #!/bin/sh
  15. #
  16. # This is a shell archive.  Remove anything before the above #! line,
  17. # then unpack it by saving it in a file and typing "sh file".  (Files
  18. # unpacked will be owned by you and have default permissions.)
  19. #
  20. # This archive contains:
  21. #    README
  22. #    mdec.Makefile.diff
  23. #    mdec.rdboot.s
  24. #    mdec.tmscpboot.s
  25. #    stand.Makefile.diff
  26. #    stand.autoconf.c.diff
  27. #    stand.conf.c.diff
  28. #    stand.srt0.c.diff
  29. #    stand.tmscp.c.diff
  30. #    stand.uda.c.diff
  31.  
  32. echo x - README
  33. cat > "README" << '//E*O*F README//'
  34. THE RECIPE
  35.  
  36. or, how to make a tk50 boot tape and/or boot a uVax.
  37.  
  38. These are really two separate problems. They are only related if all
  39. you have is a tk50 drive on your uVax.
  40.  
  41. These are not idiot-proof instructions, but I've tried to make them
  42. as complete as possible. All these instructions (and some of the
  43. code; see srt0.c) assume root on the uVax will be ra0.
  44.  
  45. YOU MUST ALREADY HAVE A WORKING VAX! These instructions are useless on
  46. a cold machine. You must have a 4.3 machine and a working uVax (probably
  47. Ultrix!) with a tk50 drive.
  48.  
  49. The enterprising person can also make a 9-track boot tape, if your
  50. uVax is so equipped. However, I've not examined what changes or values
  51. may be necessary for those standalone drivers, so I won't speculate.
  52. To the ambitious: autoconf.c probably contains the magic you need, and
  53. /sys/dist (and Installing and Operating 4.3bsd -- Appendix A) contains
  54. the programs and instructions on how to build a boot tape.
  55.  
  56. You will also require a spare, root-size partition on the working 4.3
  57. machine. This is primarily to build the miniroot.
  58.  
  59. I. Install the patches. Note that you MUST have installed the uVax
  60.     instruction emulation fix posted some time ago to the net. Because
  61.     it was posted some time ago, I've not included it as part of the
  62.     diffs. However, because it was posted some time ago :) I've posted
  63.     it again as a second shar file for those who didn't grab it the
  64.     first time.
  65.  
  66.     These diffs should be applied to copies of the source on the
  67.     working 4.3 machine. (Copies, in case you or "patch" make some
  68.     terrible error.)
  69.  
  70. II. The format of a TK50 boot tape.
  71.  
  72.     The basic format of the tape should be:
  73.  
  74.     tape 1:
  75.     file 1: tmscpboot, and tp file containing boot and copy
  76.     file 2: miniroot
  77.     file 3: dump of /
  78.     file 4: tar image of /usr
  79.     file 5: tar image of /sys
  80.     file 6: tar image of /usr/src
  81.     file 7: tar image of /usr/lib/vfont
  82.  
  83.     tape 2:
  84.     file 1: tar image of /usr/src/new
  85.     file 2: tar image of /usr/ingres
  86.  
  87.     Now mostly because tk50's take so darn long to write, I suggest the
  88.     following shorter tape:
  89.  
  90.     file 1: as before
  91.     file 2: as before
  92.     file 3: as before
  93.     file 4: as before
  94.     file 5: as before
  95.  
  96.     You can pull in the other stuff later if you want via tk50 or (more
  97.     likely) the network; this will be enough for you to come up multi-user.
  98.  
  99. III. Building the tape.
  100.     I assume below that /dev/rmt8 is the tk50 tape drive to which you
  101.     are writing, and nrmt8 is the non-rewind drive (also known as rmt12).
  102.     References to /sys/... here actually refer to your copy of the
  103.     sources, wherever you may have chosen for them to live.
  104.  
  105.     Persons familiar with building boot tapes may be able to shorten this
  106.     procedure by taking any file after #3 directly from the distribution
  107.     tape instead of doing what is listed here.  Since this shortcut can
  108.     be difficult to explain for all the various commands involved, it
  109.     is not gone into here. Shortcuts will be briefly mentioned in [].
  110.     Where possible, methods of moving things from one machine to another
  111.     via rsh are mentioned. This will require a /.rhosts to do this as root.
  112.     It's not the *only* method, just a suggested one.
  113.  
  114.     How to build file 1:
  115.  
  116.     cd mdec
  117.     make tmscpboot
  118.     cd /sys/stand
  119.     make tpboot tpcopy
  120.     mv tpboot boot; mv tpcopy copy
  121.     tp cmf tp.file boot copy
  122.     cat /sys/mdec/tmscpboot tp.file | dd of=/dev/nrmt8 bs=512 conv=sync
  123.         (or, remotely)
  124.     cat /sys/mdec/tmscpboot tp.file | rsh uVax dd of=/dev/nrmt8 bs=512 conv=sync
  125.  
  126.     How to build file 2:
  127.  
  128.     Here you will need that spare partition. I'll call it, rather
  129.     generically, /dev/rraXX here.
  130.  
  131.     You must remake the GENERIC kernel. Alter /sys/conf/GENERIC and add
  132.     the line
  133.  
  134.     cpu    "VAX630"
  135.     
  136.     Then make the directory /sys/GENERIC, if it doesn't exist, and
  137.  
  138.     cd /sys/conf
  139.     config GENERIC
  140.     cd ../GENERIC
  141.     make depend
  142.     make vmunix
  143.     
  144.     The last two will take some time, the last one taking longest.
  145.  
  146.     After this is finished, you will use that spare partition.
  147.     Now you must build the miniroot and add the new GENERIC kernel.
  148.     [You can also retrieve the miniroot from the original
  149.     distribution tape, move your new GENERIC kernel onto the
  150.     miniroot, and put the miniroot to the tk50 tape.]
  151.  
  152.     You will need to investigate /sys/dist/buildmini.
  153.     It is a simple shell script, but it will need to be tailored to
  154.     fit your setup. Change "miniroot" and "minitype" at the top to
  155.     reflect the disk you are using.
  156.  
  157.     mv /genvmunix /genvmunix.old
  158.     cp /sys/GENERIC/vmunix /genvmunix
  159.     /sys/dist/buildmini
  160.     mount /dev/raXX /mnt
  161.     cp /sys/GENERIC/vmunix /mnt/vmunix
  162.     ln /mnt/vmunix /mnt/genvmunix
  163.     umount /dev/raXX
  164.     dd if=/dev/rraXX of=/dev/nrmt8 bs=10k conv=sync
  165.         (or, remotely)
  166.     rsh uVax dd of=/dev/nrmt8 bs=10k conv=sync < /dev/rraXX
  167.  
  168.     How to make file 3:
  169.     
  170.     This is a simple dump.  Just make a dump of your own /.
  171.     [ Or, you may copy the one from the distribution tape. In
  172.       this case, be sure to copy the generic kernel to your
  173.       new root partition after "copy"ing in the Installation,
  174.       or your kernel won't know about uVaxen.]
  175.  
  176.     dump 0f /dev/nrmt8 /
  177.         (or, remotely)
  178.     rdump 0f uVax:/dev/nrmt8 /
  179.     
  180.     How to make file 4:
  181.     
  182.     You only want *some* directories from /usr. The following minimal
  183.     set is suggested. You can retrieve others later from the working
  184.     4.3 vax via the network (or more laborious tk50 tapes):
  185.  
  186.     cd /usr
  187.     tar cf /dev/nrmt8 adm bin include lib man mdec ucb
  188.     
  189.     [ or copy the one on the distribution. More directories there,
  190.       but certainly easier. ]
  191.  
  192.     How to make file 5:
  193.  
  194.     MAKE SURE YOU ARE USING YOUR CHANGED SET OF SYS SOURCES HERE!!
  195.  
  196.     cd /sys;
  197.     tar cf /dev/nrmt8 .
  198.  
  199. IV. Booting from tape.
  200.  
  201.     Once you have the TK50 tape built, you should be able to insert it on
  202.     your cold machine and issue the command "b mu0" in response to the >>>
  203.     prompt. It will take between 1 and 2 minutes to load and issue a '='
  204.     prompt. Then you proceed as directed in "Installing and Operating",
  205.     except when booting, use "genvmunix" rather than "vmunix" until
  206.     you have made a machine-specific kernel.
  207.  
  208. V. Booting from disk.
  209.     
  210.     Once you have a running Unix system, you will quickly tire of having
  211.     to boot from tape every time. It is easy to boot from disk (and thus
  212.     have autoboot work.)
  213.  
  214.     Rdboot.s is the key. You want your root disk to have rdboot in its
  215.     boot block (first sector) and bootra in the next 15 sectors. First,
  216.     recompile them.
  217.     
  218.     cd /sys/stand; make bootra
  219.     cd /sys/mdec; make rdboot
  220.     
  221.     Then install them on the root disk:
  222.  
  223.     cd /usr/mdec
  224.     installboot rdboot bootra /dev/ra0a
  225.     
  226.     You will also need a new /boot:
  227.  
  228.     cd /sys/stand; make boot
  229.     cp boot /boot
  230.     
  231.     Anytime you newfs your root partition, you will need to do this,
  232.     because newfs will, by default, copy rdboot and bootrd or raboot
  233.     and bootra. In fact, you may need to link bootra to bootrd to
  234.     keep newfs happy.
  235.  
  236. //E*O*F README//
  237.  
  238. echo x - mdec.Makefile.diff
  239. cat > "mdec.Makefile.diff" << '//E*O*F mdec.Makefile.diff//'
  240. *** /tmp/Makefile    Thu Dec 10 09:28:12 1987
  241. --- Makefile    Thu Dec 10 09:27:46 1987
  242. ***************
  243. *** 60,65 ****
  244. --- 60,79 ----
  245.     dd if=a.out of=b.out bs=32 skip=1
  246.     dd if=b.out of=tmboot conv=sync
  247.   
  248. + rdboot: rdboot.s
  249. +     as rdboot.s
  250. +     nm -u a.out
  251. +     strip a.out
  252. +     dd if=a.out of=b.out bs=32 skip=1
  253. +     dd if=b.out of=rdboot conv=sync
  254. + 
  255. + tmscpboot: tmscpboot.s
  256. +     as tmscpboot.s
  257. +     nm -u a.out
  258. +     strip a.out
  259. +     dd if=a.out of=b.out bs=32 skip=1
  260. +     dd if=b.out of=tmscpboot conv=sync
  261. + 
  262.   tsboot: tsboot.s
  263.     as tsboot.s
  264.     nm -u a.out
  265. //E*O*F mdec.Makefile.diff//
  266.  
  267. echo x - mdec.rdboot.s
  268. cat > "mdec.rdboot.s" << '//E*O*F mdec.rdboot.s//'
  269. /*
  270. ** This is a VMB boot block for microvax.  For more info, see
  271. ** the KA-630 User's manual.
  272. */
  273.  
  274. /*
  275. **          ---------------------------------------------------
  276. ** BB + 0: |      1     |      N     |      any value          |
  277. **          ---------------------------------------------------
  278. */
  279. xxx:    .long    0x001040000
  280. /*
  281. **          ---------------------------------------------------
  282. **      4: |        low  lbn         |      high lbn           |
  283. **          ---------------------------------------------------
  284. */
  285.     .long    0x000010000
  286. /*
  287. ** BB + 2*N
  288. **          ---------------------------------------------------
  289. **    + 0: | check byte |      K     |     0     |   18 (HEX)  |
  290. **          ---------------------------------------------------
  291. */
  292.     .long    0x0e7000018
  293. /*
  294. **          ---------------------------------------------------
  295. **    + 4: |     any  value          |  1 or 81  |      0      |
  296. **          ---------------------------------------------------
  297. */
  298.     .long    0x000008100
  299. /*
  300. **          ---------------------------------------------------
  301. **    + 8: |     size in blocks of the image                   |
  302. **          ---------------------------------------------------
  303. */
  304.     .long    0x00000000f
  305. /*
  306. **          ---------------------------------------------------
  307. **    +12: |     load offset from default load address         |
  308. **          ---------------------------------------------------
  309. */
  310.     .long    0x000000000
  311. /*
  312. **          ---------------------------------------------------
  313. **    +16: |     offset into image to start execution          |
  314. **          ---------------------------------------------------
  315. */
  316.     .long    0x000000002
  317. /*
  318. **          ---------------------------------------------------
  319. **    +20: |     sum of previous three longwords               |
  320. **          ---------------------------------------------------
  321. */
  322.     .long    0x000000011
  323. /*
  324. **
  325. ** BB +0:    These two bytes can have any value
  326. **
  327. ** BB+2:    This value is the word offset from the start of the
  328. **        bootblock to the identification area described below.
  329. **
  330. ** BB+3:    This byte must be one.
  331. **
  332. ** BB+4:    This longword contains the logical block number
  333. **        (word swapped) of the secondary image.
  334. **
  335. ** BB+(2*n)+0:    This byte defines the expected instruction set.
  336. **        18(hex) means VAX.
  337. **
  338. ** BB+(2*n)+1:    This byte defines the expected controller type, 0
  339. **        means unknown.
  340. **
  341. ** BB+(2*n)+2:    This byte defines the file structure on the volume,
  342. **        it may be any value.
  343. **
  344. ** BB+(2*n)+3:    This byte must be the ones complement of the sum of
  345. **        the previous three bytes.
  346. **
  347. ** BB+(2*n)+4:    This byte must be zero.
  348. **
  349. ** BB+(2*n)+5:    This byte must be 1 or 81 (hex).  This byte defines
  350. **        the version number of the format standard and the
  351. **        type of disk.  The version is one, the high bit is 0
  352. **        for single sided, 1 for double sided.
  353. **
  354. ** BB+(2*n)+6:    These two bytes may be any value, but generally they
  355. **        are zero.
  356. **
  357. ** BB+(2*n)+8:    This entry is a longword containing the size in
  358. **        blocks of the secondary bootstrap image.
  359. **
  360. ** BB+(2*n)+12:    This entry is a longword containing a load offset
  361. **        (usually zero) from the default load address of the
  362. **        secondary bootstrap.
  363. **
  364. ** BB+(2*n)+16:    This entry is a longword containing the byte offset
  365. **        into the secondary bootstrap where execution is to
  366. **        begin.
  367. **
  368. ** BB+(2*n)+20:    This entry is a longword containing the sum of the
  369. **        previous three longwords.
  370. */
  371. //E*O*F mdec.rdboot.s//
  372.  
  373. echo x - mdec.tmscpboot.s
  374. cat > "mdec.tmscpboot.s" << '//E*O*F mdec.tmscpboot.s//'
  375. #
  376. # TK50 tape boot block for distribution tapes
  377. # works on Q-bus tk50 drive on uVaxen
  378. #
  379. # reads a program from a tp directory on a tape and executes it
  380. # program must be stripped of the header and is loaded ``bits as is''
  381. # you can return to this loader via ``ret'' as you are called ``calls $0,ent''
  382. #
  383.     .set    RELOC,0x70000
  384. /*  tp directory definitions */
  385.     .set    FILSIZ,38    # tp direc offset for file size
  386.     .set    BNUM,44        # tp dir offset for start block no.
  387.     .set    ENTSIZ,64    # size of 1 TP dir entry, bytes
  388.     .set    PTHSIZ,32    # size of TP path name, bytes
  389.     .set    BLKSIZ,512    # tape block size, bytes
  390.     .set    NUMDIR,24    # no. of dir blocks on tape
  391.     .set    ENTBLK,8    # no. of dir entries per tape block
  392. /* processor registers and bits */
  393.     .set    RXCS,32
  394.     .set    RXDB,33
  395.     .set    TXCS,34
  396.     .set    TXDB,35
  397.     .set    RXCS_DONE,0x80
  398.     .set    TXCS_RDY,0x80
  399.     .set    TXCS_pr,7    /* bit position of TXCS ready bit */
  400.     .set    RXCS_pd,7    /* bit position of RXCS done bit */
  401. /* UBA registers */
  402.     .set    MAPSTART,0x20088000    # for a uVax, anyway
  403.     .set    UBAMEM,0x1ffc2000    # again, for a uVax
  404.     .set    MRV,0x80000000        # map register valid bit
  405. /* TMSCP UBA registers */
  406.     .set    TMSCP_CSR, 0774500    # CSR of tk50
  407.     .set    TMSCPip,0        # initialization and polling
  408.     .set    TMSCPsa,2        # status and address
  409. /* handy values for tmscp communication area */
  410.     .set    TMSCP_OWN,0x80000000
  411.     .set    TMSCP_ERR,0x8000
  412.     .set    TMSCP_STEP4,0x4000
  413.     .set    TMSCP_STEP3,0x2000
  414.     .set    TMSCP_STEP2,0x1000
  415.     .set    TMSCP_STEP1,0x800
  416.     .set    TMSCP_IE,0x80
  417.     .set    TMSCP_GO,1
  418. /* handy offsets into tmscp communication area (from tmscpca) */
  419.     .set    cmdint,4
  420.     .set    rspint,6
  421.     .set    rspdsc,8
  422.     .set    cmddsc,12
  423. /* handy offsets into mscp packets (from %rCMD or %rRSP) */
  424.     .set    msglen,0
  425.     .set    vcid,3
  426.     .set    unit,8
  427.     .set    op,12
  428.     .set    status,14
  429.     .set    modifier,14
  430.     .set    bytecnt,16
  431.     .set    cntflgs,18
  432.     .set    buffer,20
  433.     .set    tmkcnt,20
  434.     .set    lbn,32
  435.     .set    dscptr,40
  436. /* TMSCP commands and modifiers */
  437.     .set    M_OP_STCON,4
  438.     .set    M_OP_ONLIN,9
  439.     .set    M_OP_READ,33
  440.     .set    M_OP_REPOS,37
  441.     .set    M_MD_REWND,2
  442.     .set    M_MD_IMMED,0x80
  443.     .set    M_MD_CLSEX,0x200
  444.     .set    M_ST_MASK,0x1f
  445.     .set    M_ST_TAPEM,14
  446. /* miscellaneous */
  447.     .set    IUR, 0x37
  448.     .set    SID, 0x3e
  449.     .set    VAX_630,8
  450. /* local stack variables */
  451.     .set    tmscpca,-240-PTHSIZ-26    # struct tmscpca (see tmscpreg.h)
  452.     .set    rsp,-240-PTHSIZ-10    # tmscp response area
  453.     .set    cmd,-120-PTHSIZ-10    # tmscp command area
  454.     .set    name,-PTHSIZ-10        # operator-typed file name
  455.     .set    dirread,-10        # is the tape directory incore already?
  456.     .set    mtapa,-8        # cur tape addr (last blk we read)
  457.     .set    tapa,-4            # desired tape addr (inclusive)
  458. /* register usage */
  459.     .set    rCMD,r7
  460.     .set    rRSP,r8
  461.     .set    rUBADDR,r9
  462.     .set    rMAPREGS,r10
  463.     .set    rCSR,r11
  464. /* ===== */
  465.  
  466. /* initialization */
  467. init:
  468.     /*
  469.      * if on a uVax, we were loaded by VMB from tape. We also have
  470.      * only one unibus, at 0x1fffc2000 (see above). Elstwise, this
  471.      * boot program will almost certainly need help.
  472.      */
  473.     mfpr    $SID,r0
  474.     cmpzv    $24,$8,r0,$VAX_630
  475.     beql    1f
  476.     halt
  477.     /*
  478.      * We must have been loaded by VMB, and thus we are at a non-zero
  479.      * location.  sp will contain the base address of the area at which
  480.      * we were loaded. So we add sp to $end to get the true end-of-program
  481.      * address.
  482.      */
  483. 1:    movl    sp,r6        # r6 - beginning of program
  484.     movl    $RELOC,fp    # core loc to which to move this program
  485.     addl3    $-512,fp,sp    # set stack pointer; leave room for locals
  486.     addl3    $-512,fp,r0    # zero our destination mem .. we start here
  487.     addl3    $end,fp,r1    # and end here
  488. clr:
  489.     clrl    (r0)+
  490.     cmpl    r0,r1
  491.     jlss    clr
  492.  
  493.     movc3    $end,(r6),(fp)    # copy to relocated position
  494. #    movzbl    $'a,r0
  495. #    bsbw    putc
  496.     addl3    $reginit,$RELOC,r0
  497.     jmp    (r0)        # and go there
  498. reginit:
  499.     /* initialize our registers. Should need to do this only once */
  500. #    movzbl    $'b,r0
  501. #    bsbw    putc
  502.     addl3    $UBAMEM, $TMSCP_CSR, %rCSR    # set up CSR register
  503.     movl    $MAPSTART, %rMAPREGS    # locate map registers
  504.  
  505.     moval    tmscpca(fp), %rUBADDR    # set unibus address for comm area
  506.     extzv    $0,$9,%rUBADDR,%rUBADDR    # format: (MR# << 9) | (&comm & 0x1ff)
  507.     ashl    $-9,$RELOC-512,r0    # setting up map register for our stack
  508.     bisl3    $MRV,r0,(%rMAPREGS)    # mark our stack valid (MR #0)
  509.  
  510.     moval    cmd(fp),%rCMD        # location of cmd mscp packet
  511.     moval    rsp(fp),%rRSP        # location of rsp mscp packet
  512.     bsbw    inittmscp        # init the unit
  513.     bsbw    onlin            # set tape online
  514.     bsbw    rew            # rewind tape
  515.  
  516. start:
  517. #    movzbl    $11,r0            # newline
  518. #    bsbw    putc
  519. #    movzbl    $13,r0            # return
  520. #    bsbw    putc
  521.     movzbl    $'=,r0            # prompt
  522.     bsbw    putc            
  523.     bsbw    getname
  524.  
  525.     # desired TP filename is in name(fp).  Now read in entire tp directory
  526.     # contents into low core, starting at loc 0
  527.  
  528.     tstw    dirread(fp)    # if directory needs to be read in, do so
  529.     bneq    1f
  530.     bsbw    readdir
  531. 1:
  532.  
  533.     # all of directory is now in locore, @ 0.
  534.     # search for filename; return to start if it isn't there.
  535.  
  536.     clrl    r0            # start at location 0
  537. nxtdir:    moval    name(fp),r2
  538.     movl    r0,r1
  539. 1:    cmpb    (r1),(r2)
  540.     bneq    2f
  541.     tstb    (r1)
  542.     beql    found
  543.     incl    r1
  544.     incl    r2
  545.     brb    1b
  546. 2:    acbl    $NUMDIR*BLKSIZ-1,$ENTSIZ,r0,nxtdir
  547.     brw    start            # entry not in directory; start over
  548.  
  549.     # entry IS here; read it in from tape
  550.  
  551. found:    movzwl    BNUM(r0),tapa(fp)    # start block no., 2 bytes
  552.     addl2    $2-1,tapa(fp)        # skip over this program (2 blocks)
  553.                     # minus 1 because we will read THROUGH
  554.                     # this block; so we want to stop just
  555.                     # before it
  556.     movzwl    FILSIZ(r0),r4        # low 2 bytes file size
  557.     insv    FILSIZ-1(r0),$16,$8,r4  # file size, high byte
  558.     cmpl    r4,$RELOC-512        # check if file fits below stack
  559.     bgeq    start             # file too large
  560.  
  561.     # Now advance to proper place on tape. tapa has our
  562.     # desired address
  563.  
  564.     clrw    dirread(fp)    # we are about to obliterate our incore copy
  565.                 # of the directory
  566. 2:    clrl    r3    # rrec expects r3 to point to a buffer. 0 will do ...
  567.     bsbw    rrec
  568.     cmpl    mtapa(fp),tapa(fp)
  569.     blss    2b
  570.  
  571.     # tape now positioned correctly. Read in program. Number of bytes
  572.     # to read is in r4. We must round up to an even BLKSIZ boundary.
  573.     # Clear the area we are putting it at; unix expects zeroes in its
  574.     # data and bss section.
  575.  
  576.     addl2    $BLKSIZ-1,r4        # round up
  577.     bicl2    $BLKSIZ-1,r4        # mask out
  578.     movl    r4,r5            # use r5; need to save r4 for later
  579. 1:    clrl    (r5)
  580.     sobgtr    r5,1b
  581.  
  582.     # now read in file.
  583.  
  584.     clrl    r3            # read into page 0 (incremented by rrec)
  585.     ashl    $-9,r4,r5        # r5 now holds # blks to read
  586.     addl2    r5,tapa(fp)        # compute desired tape blk #
  587. 1:    bsbw    rrec
  588.     cmpl    mtapa(fp),tapa(fp)    # got it yet?
  589.     blss    1b
  590.  
  591.     # begin execution. Call as a function.
  592.     clrl    r5
  593.     calls    $0,(r5)
  594.  
  595.     # now, since the called function has reset the tape drive for
  596.     # us (!) we must reinit it again ourselves.
  597.  
  598.     ashl    $-9,$RELOC-512,r0    # set up map register for our stack
  599.     bisl3    $MRV,r0,(%rMAPREGS)    # mark our stack valid (MR #0)
  600.     bsbw    inittmscp        # re-init drive
  601.     bsbw    onlin            # re-online it
  602.     brw    start
  603.  
  604.     # getname will set name(fp) and leave len(name(fp)) in r6
  605. getname:moval    name(fp),r1        # mov to register for ease of access
  606. nxtc:    bsbw    getc
  607.     cmpb    r0,$012            # end of line?
  608.     beql    nullc
  609.     movb    r0,(r1)+
  610.     brb    nxtc
  611. nullc:    moval    name(fp),r0
  612.     subl3    r0,r1,r6        # length of path name
  613.     jeql    start            # just hit return; nothing useful here
  614.     clrb    (r1)+            # add null at end
  615.     incl    r6            # add null to length
  616.     rsb
  617.  
  618. getc:    mfpr    $RXCS,r0
  619.     bbc    $RXCS_pd,r0,getc    /* receiver ready ? */
  620.     mfpr    $RXDB,r0
  621.     extzv    $0,$7,r0,r0
  622.     cmpb    r0,$015
  623.     bneq    putc
  624.     bsbw    putc
  625.     movb    $0,r0
  626.     bsbw    putc
  627.     movb    $012,r0
  628.  
  629. putc:    mfpr    $TXCS,r2
  630.     bbc    $TXCS_pr,r2,putc    /* transmitter ready ? */
  631.     extzv    $0,$7,r0,r0
  632.     mtpr    r0,$TXDB
  633.     rsb
  634.  
  635. inittmscp:
  636.     movw    $0,TMSCPip(%rCSR)        # start step 1
  637. 1:    bitw    $TMSCP_STEP1,TMSCPsa(%rCSR)
  638.     beql    1b
  639. #    movzbl    $'1,r0
  640. #    bsbw    putc
  641. init2:    movw    $TMSCP_ERR,TMSCPsa(%rCSR)    # start step 2
  642. 2:    bitw    $TMSCP_STEP2,TMSCPsa(%rCSR)
  643.     beql    2b
  644. #    movzbl    $'2,r0
  645. #    bsbw    putc
  646. init3:    addl3    $8,%rUBADDR,r0            # start step 3
  647.     cvtlw    r0,TMSCPsa(%rCSR)
  648. 3:    bitw    $TMSCP_STEP3,TMSCPsa(%rCSR)
  649.     beql    3b
  650. #    movzbl    $'3,r0
  651. #    bsbw    putc
  652. init4:    addl3    $8,%rUBADDR,r0            # start step 4
  653.     ashl    $-16,r0,r0
  654.     cvtlw    r0,TMSCPsa(%rCSR)
  655. 4:    bitw    $TMSCP_STEP4,TMSCPsa(%rCSR)
  656.     beql    4b
  657. #    movzbl    $'4,r0
  658. #    bsbw    putc
  659. setchar:
  660.     movw    $TMSCP_GO,TMSCPsa(%rCSR)
  661.     moval    140(%rUBADDR),tmscpca+cmddsc(fp)
  662.     moval    tmscpca+cmddsc(fp),dscptr(%rCMD)
  663.     movb    $1,vcid(%rCMD)
  664.     moval    20(%rUBADDR),tmscpca+rspdsc(fp)
  665.     moval    tmscpca+rspdsc(fp),dscptr(%rRSP)
  666.     clrw    cntflgs(%rCMD)
  667.  
  668.     movb    $M_OP_STCON,op(%rCMD)
  669.     clrw    modifier(%rCMD)
  670.     clrl    buffer(%rCMD)
  671.     clrl    bytecnt(%rCMD)
  672.     bsbw    tmscpcmd    
  673. #    movzbl    $'S,r0
  674. #    bsbw    putc
  675.  
  676.     rsb
  677.  
  678. tmscpcmd:
  679.     movw    $116,msglen(%rCMD)        # 116 -- size of an mscp packet
  680.     bisl2    $TMSCP_OWN,tmscpca+cmddsc(fp)
  681.     movw    $116,msglen(%rRSP)
  682.     bisl2    $TMSCP_OWN,tmscpca+rspdsc(fp)
  683.     movw    TMSCPip(%rCSR),r0        # start polling
  684. wait:    cvtwl    TMSCPsa(%rCSR),r0
  685.     bitl    $TMSCP_ERR,r0
  686.     beql    1f
  687.     movw    modifier(%rRSP),r1    # so we can read status easily
  688.     halt                # some error or other
  689. 1:    tstl    tmscpca+4(fp)
  690.     beql    2f
  691.     clrw    tmscpca+4(fp)
  692. 2:    bitl    $TMSCP_OWN,tmscpca+rspdsc(fp)
  693.     bneq    wait
  694.  
  695.     # cmd done
  696.  
  697.     clrw    tmscpca+rspint(fp)
  698.     extzv    $0,$5,status(%rRSP),r0
  699.     tstl    r0
  700.     beql    ok            # no errors
  701.     cmpl    $M_ST_TAPEM, r0
  702.     beql    ok            # not an error, just a tape mark
  703.     halt                # some unknown error
  704. ok:    rsb
  705.  
  706. rew:    movb    $M_OP_REPOS,op(%rCMD)
  707.     movw    $M_MD_REWND|M_MD_IMMED,modifier(%rCMD)
  708.     clrl    buffer(%rCMD)
  709.     clrl    bytecnt(%rCMD)
  710.     bsbw    tmscpcmd
  711. #    movzbl    $'r,r0            # to indicate r)ewind
  712. #    bsbw    putc
  713.     movl    $-1,mtapa(fp)        # no blocks read yet
  714.     rsb
  715.     
  716. onlin:    movb    $M_OP_ONLIN,op(%rCMD)
  717.     clrw    modifier(%rCMD)
  718.     clrl    buffer(%rCMD)
  719.     clrl    bytecnt(%rCMD)
  720.     bsbw    tmscpcmd
  721. #    movzbl    $'O,r0            # to indicate O)nline
  722. #    bsbw    putc
  723.     rsb
  724.     
  725.     # Read the tp directory. Number of blocks to read is in tapa(fp),
  726.     # and will be read into memory starting at location 0.
  727. readdir:bsbw    rew            # beginning of tape
  728.     addl3    $2,$NUMDIR,tapa(fp)    # blocks to read (skip this 1k program)
  729.     clrl    r3            # using mem starting at 0 as free space
  730.     bsbw    rrec; bsbw rrec        # read and discard first two blocks --
  731.                     # those are this program
  732.     bsbw    rrec            # read and discard first tp block
  733.     clrl    r3            # reset starting place
  734.     incw    dirread(fp)        # show that directory is incore
  735. 1:    bsbw    rrec
  736.     cmpl    mtapa(fp),tapa(fp)    # done yet?
  737.     blss    1b
  738.     rsb
  739.  
  740.     # read 1 block from mag tape into page indicated by r3, which will
  741.     # automatically be incremented here. mtapa is also advanced.
  742.  
  743. rrec:    bisl3    $MRV,r3,4(%rMAPREGS)    # using map register #1
  744.     movl    $BLKSIZ,bytecnt(%rCMD)    # how much to read
  745.     ashl    $9,$1,buffer(%rCMD)    # indicating mr #1. We just happen to
  746.                     # be on a page boundary, so filling in
  747.                     # the low 9 bits is not necessary.
  748.     movb    $M_OP_READ,op(%rCMD)
  749.     clrw    modifier(%rCMD)
  750.     bsbw    tmscpcmd
  751. #    movzbl    $'R,r0            # to indicate R)ead a record
  752. #    bsbw    putc
  753.     incl    mtapa(fp)
  754.     incl    r3
  755.     rsb
  756. end:
  757. //E*O*F mdec.tmscpboot.s//
  758.  
  759. echo x - stand.Makefile.diff
  760. cat > "stand.Makefile.diff" << '//E*O*F stand.Makefile.diff//'
  761. *** /sys/stand/Makefile    Thu Jun  5 01:48:32 1986
  762. --- Makefile    Wed Dec  9 14:31:56 1987
  763. ***************
  764. *** 8,25 ****
  765.   DESTDIR=/
  766.   INCPATH=-I. -I../h
  767.   CFLAGS=    -O ${INCPATH} -DSTANDALONE ${COPTS} 
  768. ! COPTS=    -DVAX780 -DVAX750 -DVAX730 -DVAX8600
  769.   730OPTS=-O ${INCPATH} -DSTANDALONE -DVAX730
  770.   RELOC=    70000
  771.   
  772. ! SRCS=    sys.c conf.c prf.c machdep.c \
  773.     autoconf.c hp.c hpmaptype.c ht.c idc.c mba.c mt.c rk.c \
  774. !     rl.c tm.c ts.c up.c upmaptype.c uba.c uda.c ut.c \
  775.     drtest.c format.c up.old.c hp.old.c ../vax/dkbad.c
  776.   DUMMIES= bootxx.c confxx.c
  777.   DRIVERS=autoconf.o hp.o hpmaptype.o ht.o idc.o mba.o mt.o \
  778.     rk.o rl.o tm.o ts.o \
  779. !     up.o upmaptype.o uba.o uda.o ut.o
  780.   # These drivers don't have ecc correction and bad sector forwarding;
  781.   # they are placed in the file system boot area for 750's.  If your
  782.   # root has bad sectors you can try and squeeze the newer drivers in...
  783. --- 8,25 ----
  784.   DESTDIR=/
  785.   INCPATH=-I. -I../h
  786.   CFLAGS=    -O ${INCPATH} -DSTANDALONE ${COPTS} 
  787. ! COPTS=    -DVAX780 -DVAX750 -DVAX730 -DVAX8600 -DVAX630
  788.   730OPTS=-O ${INCPATH} -DSTANDALONE -DVAX730
  789.   RELOC=    70000
  790.   
  791. ! SRCS=    sys.c conf.c prf.c machdep.c strings.c \
  792.     autoconf.c hp.c hpmaptype.c ht.c idc.c mba.c mt.c rk.c \
  793. !     rl.c tm.c ts.c up.c upmaptype.c uba.c uda.c ut.c tmscp.c \
  794.     drtest.c format.c up.old.c hp.old.c ../vax/dkbad.c
  795.   DUMMIES= bootxx.c confxx.c
  796.   DRIVERS=autoconf.o hp.o hpmaptype.o ht.o idc.o mba.o mt.o \
  797.     rk.o rl.o tm.o ts.o \
  798. !     up.o upmaptype.o uba.o uda.o ut.o tmscp.o
  799.   # These drivers don't have ecc correction and bad sector forwarding;
  800.   # they are placed in the file system boot area for 750's.  If your
  801.   # root has bad sectors you can try and squeeze the newer drivers in...
  802. ***************
  803. *** 32,38 ****
  804.   
  805.   all: ${ALL}
  806.   
  807. ! ${LIBSA}: sys.o conf.o ${DRIVERS} prf.o machdep.o dkbad.o
  808.     ar crv ${LIBSA} $?
  809.     ranlib ${LIBSA}
  810.   
  811. --- 32,38 ----
  812.   
  813.   all: ${ALL}
  814.   
  815. ! ${LIBSA}: sys.o conf.o ${DRIVERS} prf.o machdep.o dkbad.o strings.o
  816.     ar crv ${LIBSA} $?
  817.     ranlib ${LIBSA}
  818.   
  819. //E*O*F stand.Makefile.diff//
  820.  
  821. echo x - stand.autoconf.c.diff
  822. cat > "stand.autoconf.c.diff" << '//E*O*F stand.autoconf.c.diff//'
  823. *** /usr/tmp/autoconf.c    Wed Dec  9 14:38:25 1987
  824. --- autoconf.c    Wed Dec  9 14:31:56 1987
  825. ***************
  826. *** 51,56 ****
  827. --- 51,70 ----
  828.   #undef    UTR
  829.   #undef    UMA
  830.   
  831. +     /*
  832. +      * The map registers start right at 20088000 on the
  833. +      * ka630, so we have to subtract out the 2k offset to make
  834. +      * the pointers work ...
  835. +      */
  836. + #define    UTR(i)    ((struct uba_regs *)((caddr_t) (NEX630+(i))-0x800))
  837. + #define    UMA    ((caddr_t)UMEM630)
  838. + 
  839. + struct    uba_regs *ubaddr630[] = { UTR(0) };
  840. + caddr_t    umaddr630[] = { UMA };
  841. + 
  842. + #undef    UTR
  843. + #undef    UMA
  844. + 
  845.   configure()
  846.   {
  847.     union cpusid cpusid;
  848. ***************
  849. *** 82,87 ****
  850. --- 96,107 ----
  851.         umaddr = umaddr730;
  852.         nmba = nuba = 0;
  853.         break;
  854. +     
  855. +     case VAX_630:
  856. +         ubaddr = ubaddr630;
  857. +         umaddr = umaddr630;
  858. +         nmba = nuba = 0;
  859. +         break;
  860.     }
  861.     /*
  862.      * Forward into the past...
  863. ***************
  864. *** 96,101 ****
  865. --- 116,128 ----
  866.             ubaddr[i]->uba_cr = UBACR_ADINIT;
  867.     if ((cpu != VAX_780) && (cpu != VAX_8600))
  868.         mtpr(IUR, 0);
  869. +     /* 
  870. +      * enable external access to local memory
  871. +      * - aka the interprocessor doorbell
  872. +      * cf Emulex QD01/D disk controller technical manual, p 6-9
  873. +      */
  874. +     if (cpu == VAX_630)
  875. +         *(ubamem(0,017777500)) = 0x20;
  876.     /* give unibus devices a chance to recover... */
  877.     if (nuba > 0)
  878.         DELAY(2000000);
  879. //E*O*F stand.autoconf.c.diff//
  880.  
  881. echo x - stand.conf.c.diff
  882. cat > "stand.conf.c.diff" << '//E*O*F stand.conf.c.diff//'
  883. *** /usr/tmp/conf.c    Wed Dec  9 14:38:26 1987
  884. --- conf.c    Wed Dec  9 14:31:57 1987
  885. ***************
  886. *** 94,99 ****
  887. --- 94,102 ----
  888.   int    idcstrategy(), idcopen(), idcioctl();
  889.   #endif
  890.   int    rlstrategy(), rlopen(), rlioctl();
  891. + #if defined(VAX630)
  892. + int    tmscpstrategy(), tmscpopen(), tmscpclose();
  893. + #endif
  894.   #ifndef BOOT
  895.   int    tmstrategy(), tmopen(), tmclose();
  896.   int    tsstrategy(), tsopen(), tsclose();
  897. ***************
  898. *** 117,122 ****
  899. --- 120,128 ----
  900.     { "rb",    idcstrategy,    idcopen,    nullsys,    idcioctl },
  901.   #endif
  902.     { "rl",    rlstrategy,    rlopen,        nullsys,    rlioctl },
  903. + #if defined(VAX630)
  904. +     { "tk",    tmscpstrategy,    tmscpopen,    tmscpclose,    nullioctl },
  905. + #endif
  906.   #ifndef BOOT
  907.     { "ts",    tsstrategy,    tsopen,        tsclose,    nullioctl },
  908.   #if defined(VAX780) || defined(VAX750) || defined(VAX8600)
  909. //E*O*F stand.conf.c.diff//
  910.  
  911. echo x - stand.srt0.c.diff
  912. cat > "stand.srt0.c.diff" << '//E*O*F stand.srt0.c.diff//'
  913. *** /tmp/,RCSt1a19865    Tue Mar 22 17:22:57 1988
  914. --- srt0.c    Tue Mar 22 17:12:22 1988
  915. ***************
  916. *** 3,9
  917.    * All rights reserved.  The Berkeley software License Agreement
  918.    * specifies the terms and conditions for redistribution.
  919.    *
  920. !  *    @(#)srt0.c    7.1 (Berkeley) 6/5/86
  921.    */
  922.   
  923.   #include "../vax/mtpr.h"
  924.  
  925. --- 3,9 -----
  926.    * All rights reserved.  The Berkeley software License Agreement
  927.    * specifies the terms and conditions for redistribution.
  928.    *
  929. !  *    @(#)srt0.c    7.3 (Berkeley) 4/2/87
  930.    */
  931.   
  932.   #include "../vax/mtpr.h"
  933. ***************
  934. *** 23,28
  935.     .globl    _configure
  936.     .globl    _cpu
  937.     .globl    _openfirst
  938.   
  939.     .set    HIGH,31        # mask for total disable
  940.   
  941.  
  942. --- 23,30 -----
  943.     .globl    _configure
  944.     .globl    _cpu
  945.     .globl    _openfirst
  946. +     .globl    _boothowto
  947. +     .globl    _bootdev
  948.   
  949.     .set    HIGH,31        # mask for total disable
  950.   
  951. ***************
  952. *** 27,33
  953.     .set    HIGH,31        # mask for total disable
  954.   
  955.   entry:    .globl    entry
  956. !     .word    0x0
  957.     mtpr    $HIGH,$IPL        # just in case
  958.   #ifdef REL
  959.     movl    $RELOC,sp
  960.  
  961. --- 29,35 -----
  962.     .set    HIGH,31        # mask for total disable
  963.   
  964.   entry:    .globl    entry
  965. !     nop; nop            # .word    0x0101
  966.     mtpr    $HIGH,$IPL        # just in case
  967.   
  968.   #ifdef REL
  969. ***************
  970. *** 29,34
  971.   entry:    .globl    entry
  972.     .word    0x0
  973.     mtpr    $HIGH,$IPL        # just in case
  974.   #ifdef REL
  975.     movl    $RELOC,sp
  976.   #else
  977.  
  978. --- 31,37 -----
  979.   entry:    .globl    entry
  980.     nop; nop            # .word    0x0101
  981.     mtpr    $HIGH,$IPL        # just in case
  982. + 
  983.   #ifdef REL
  984.     # we need to do special stuff on microvax II
  985.     mfpr    $SID,r0
  986. ***************
  987. *** 30,35
  988.     .word    0x0
  989.     mtpr    $HIGH,$IPL        # just in case
  990.   #ifdef REL
  991.     movl    $RELOC,sp
  992.   #else
  993.     movl    $RELOC-0x2400,sp
  994.  
  995. --- 33,65 -----
  996.     mtpr    $HIGH,$IPL        # just in case
  997.   
  998.   #ifdef REL
  999. +     # we need to do special stuff on microvax II
  1000. +     mfpr    $SID,r0
  1001. +     cmpzv    $24,$8,r0,$VAX_630
  1002. +     bneq    1f
  1003. + 
  1004. +     /*
  1005. +      * Were we booted by VMB?  If so, r11 is not boothowto,
  1006. +      * but rather the address of the `Extended RPB' (see KA630
  1007. +      * User's Manual, pp 3-21).  These tests were devised by
  1008. +      * richl@tektronix, 11/10/87.
  1009. +      */
  1010. +     cmpl    (r11),r11        # if boothowto, r11 will be small
  1011. +     bneq    1f            # and these will not fault
  1012. +     cmpl    4(r11),$0
  1013. +     bneq    1f
  1014. +     cmpl    8(r11),$-1
  1015. +     bneq    1f
  1016. +     tstl    0xc(r11)
  1017. +     bneq    1f
  1018. + 
  1019. +     /*
  1020. +      * Booted by VMB: get flags from extended rpb.
  1021. +      * We can only guess at the boot device (here ra(0,0)).
  1022. +      */
  1023. +     movl    0x30(r11),r11
  1024. +     movl    $9,r10            # device = ra(0,0)
  1025. + 1:
  1026.     movl    $RELOC,sp
  1027.   #else
  1028.     movl    $RELOC-0x2400,sp
  1029. ***************
  1030. *** 35,40
  1031.     movl    $RELOC-0x2400,sp
  1032.   #endif
  1033.   start:
  1034.     movl    aedata,r0
  1035.   clr:
  1036.     clrl    (r0)+
  1037.  
  1038. --- 65,74 -----
  1039.     movl    $RELOC-0x2400,sp
  1040.   #endif
  1041.   start:
  1042. + #ifndef REL
  1043. +     /*
  1044. +      * Clear bss segment
  1045. +      */
  1046.     movl    aedata,r0
  1047.   clr:
  1048.     clrl    (r0)+
  1049. ***************
  1050. *** 40,51
  1051.     clrl    (r0)+
  1052.     cmpl    r0,sp
  1053.     jlss    clr
  1054. ! #ifdef REL
  1055. !     movc3    aedata,*$0,(sp)
  1056. ! /*
  1057. !  * Reclear bss segment separately from text and data
  1058. !  * since movc3 can't move more than 64K bytes
  1059. !  */
  1060.   dclr:
  1061.     clrl    (r3)+
  1062.     cmpl    r3,$_end
  1063.  
  1064. --- 74,86 -----
  1065.     clrl    (r0)+
  1066.     cmpl    r0,sp
  1067.     jlss    clr
  1068. ! #else
  1069. !     /*
  1070. !      * `entry' below generates a pc-relative reference to the
  1071. !      * code, so this works no matter where we are now.
  1072. !      * Clear bss segment *after* moving text and data.
  1073. !      */
  1074. !     movc3    aedata,entry,(sp)
  1075.   dclr:
  1076.     clrl    (r3)+
  1077.     cmpl    r3,$_end
  1078. ***************
  1079. *** 58,63
  1080.     jmp    *abegin
  1081.   begin:
  1082.   #endif
  1083.     mtpr    $0,$SCBB
  1084.     calls    $0,_configure
  1085.     movl    $1,_openfirst
  1086.  
  1087. --- 93,101 -----
  1088.     jmp    *abegin
  1089.   begin:
  1090.   #endif
  1091. +     movl    r11,_boothowto
  1092. +     movl    r10,_bootdev
  1093. + again:
  1094.     mtpr    $0,$SCBB
  1095.     calls    $0,_configure
  1096.     movl    $1,_openfirst
  1097. ***************
  1098. *** 62,69
  1099.     calls    $0,_configure
  1100.     movl    $1,_openfirst
  1101.     calls    $0,_main
  1102. ! #ifndef TP
  1103. !     jmp    start
  1104.   #else
  1105.     ret
  1106.   #endif
  1107.  
  1108. --- 100,107 -----
  1109.     calls    $0,_configure
  1110.     movl    $1,_openfirst
  1111.     calls    $0,_main
  1112. ! #ifdef REL
  1113. !     jmp    again
  1114.   #else
  1115.     ret
  1116.   #endif
  1117. ***************
  1118. *** 75,80
  1119.   #else
  1120.   aedata:    .long    _edata
  1121.   #endif
  1122.   
  1123.   __rtt:
  1124.     .word    0x0
  1125.  
  1126. --- 113,121 -----
  1127.   #else
  1128.   aedata:    .long    _edata
  1129.   #endif
  1130. + _bootdev:    .long    0
  1131. + _boothowto:    .long    0
  1132. +     .text
  1133.   
  1134.   __rtt:
  1135.     .word    0x0
  1136. ***************
  1137. *** 84,89
  1138.     jmp    start
  1139.   #endif
  1140.   
  1141.     .globl    _badloc
  1142.   _badloc:
  1143.     .word    0
  1144.  
  1145. --- 125,131 -----
  1146.     jmp    start
  1147.   #endif
  1148.   
  1149. +     .globl    _badaddr
  1150.     .globl    _badloc
  1151.   _badloc:
  1152.   _badaddr:
  1153. ***************
  1154. *** 86,91
  1155.   
  1156.     .globl    _badloc
  1157.   _badloc:
  1158.     .word    0
  1159.     movl    $1,r0
  1160.     movl    4(ap),r3
  1161.  
  1162. --- 128,134 -----
  1163.     .globl    _badaddr
  1164.     .globl    _badloc
  1165.   _badloc:
  1166. + _badaddr:
  1167.     .word    0
  1168.     movl    $1,r0
  1169.     movl    4(ap),r3
  1170. ***************
  1171. *** 89,94
  1172.     .word    0
  1173.     movl    $1,r0
  1174.     movl    4(ap),r3
  1175.     movl    $4,r2
  1176.     movab    9f,(r2)
  1177.     tstl    (r3)
  1178.  
  1179. --- 132,138 -----
  1180.     .word    0
  1181.     movl    $1,r0
  1182.     movl    4(ap),r3
  1183. +     movl    8(ap),r4
  1184.     movl    $4,r2
  1185.     movab    9f,(r2)
  1186.     bbc    $0,r4,1f; tstb    (r3)
  1187. ***************
  1188. *** 91,97
  1189.     movl    4(ap),r3
  1190.     movl    $4,r2
  1191.     movab    9f,(r2)
  1192. !     tstl    (r3)
  1193.   1:    clrl    r0            # made it w/o machine checks
  1194.   2:    movl    $4,r2
  1195.     clrl    (r2)
  1196.  
  1197. --- 135,143 -----
  1198.     movl    8(ap),r4
  1199.     movl    $4,r2
  1200.     movab    9f,(r2)
  1201. !     bbc    $0,r4,1f; tstb    (r3)
  1202. ! 1:    bbc    $1,r4,1f; tstw    (r3)
  1203. ! 1:    bbc    $2,r4,1f; tstl    (r3)
  1204.   1:    clrl    r0            # made it w/o machine checks
  1205.   2:    movl    $4,r2
  1206.     clrl    (r2)
  1207. ***************
  1208. *** 104,109
  1209.     .word    5f-0b        # 2 is 750
  1210.     .word    5f-0b        # 3 is 730
  1211.     .word    6f-0b        # 4 is 8600
  1212.   5:
  1213.     mtpr    $0xf,$MCESR
  1214.     brb    1f
  1215.  
  1216. --- 150,159 -----
  1217.     .word    5f-0b        # 2 is 750
  1218.     .word    5f-0b        # 3 is 730
  1219.     .word    6f-0b        # 4 is 8600
  1220. +     .word    5f-0b        # 5 is 8200
  1221. +     .word    1f-0b        # 6 is 8800
  1222. +     .word    1f-0b        # 7 is 610
  1223. +     .word    5f-0b        # 8 is 630
  1224.   5:
  1225.     mtpr    $0xf,$MCESR
  1226.     brb    1f
  1227. ***************
  1228. *** 116,118
  1229.     addl2    (sp)+,sp        # discard mchchk trash
  1230.     movab    2b,(sp)
  1231.     rei
  1232.  
  1233. --- 166,206 -----
  1234.     addl2    (sp)+,sp        # discard mchchk trash
  1235.     movab    2b,(sp)
  1236.     rei
  1237. + 
  1238. + /*
  1239. +  * Short assembly versions of strcmp, strcpy, and strlen
  1240. +  * that do not use special instructions.
  1241. +  */
  1242. +     .globl    _strcmp
  1243. + _strcmp:
  1244. +     .word    0
  1245. +     movq    4(ap),r0
  1246. + 0:    cmpb    (r0),(r1)+
  1247. +     bneq    1f
  1248. +     tstb    (r0)+
  1249. +     bneq    0b
  1250. +     clrl    r0
  1251. +     ret
  1252. + 1:    cvtbl    (r0),r0
  1253. +     cvtbl    -(r1),r1
  1254. +     subl2    r1,r0
  1255. +     ret
  1256. + 
  1257. +     .globl    _strcpy
  1258. + _strcpy:
  1259. +     .word    0
  1260. +     movq    4(ap),r0
  1261. + 0:    movb    (r1)+,(r0)+
  1262. +     bneq    0b
  1263. +     movl    4(ap),r0
  1264. +     ret
  1265. + 
  1266. +     .globl    _strlen
  1267. + _strlen:
  1268. +     .word    0
  1269. +     movl    4(ap),r0
  1270. + 0:    tstb    (r0)+
  1271. +     bneq    0b
  1272. +     decl    r0
  1273. +     subl2    4(ap),r0
  1274. +     ret
  1275. //E*O*F stand.srt0.c.diff//
  1276.  
  1277. echo x - stand.tmscp.c.diff
  1278. cat > "stand.tmscp.c.diff" << '//E*O*F stand.tmscp.c.diff//'
  1279. *** /usr/tmp/tmscp.c    Wed Dec  9 14:38:32 1987
  1280. --- tmscp.c    Wed Dec  9 14:31:58 1987
  1281. ***************
  1282. *** 46,53 ****
  1283.   #include "../machine/pte.h"
  1284.    
  1285.   #include "../h/param.h"
  1286. ! #include "../h/gnode.h"
  1287. ! #include "../h/devio.h"
  1288.    
  1289.   #include "savax.h"
  1290.    
  1291. --- 46,53 ----
  1292.   #include "../machine/pte.h"
  1293.    
  1294.   #include "../h/param.h"
  1295. ! #include "../h/inode.h"
  1296. ! #include "../h/fs.h"
  1297.    
  1298.   #include "savax.h"
  1299.    
  1300. ***************
  1301. *** 177,182 ****
  1302. --- 177,188 ----
  1303.         _stop("tms: bad offset");
  1304.     else if (io->i_boff > 0)
  1305.         /*
  1306. +          * rewind tape -- incidentally clears serious exception,
  1307. +          * if present
  1308. +          */
  1309. +         tmscprew(io);
  1310. + 
  1311. +         /*
  1312.          * Skip forward the appropriate number of files on the tape.
  1313.          */
  1314.         {
  1315. ***************
  1316. *** 193,202 ****
  1317.   tmscpclose(io)
  1318.     register struct iob *io;
  1319.   {
  1320. !     tmscpcmd(M_OP_REPOS, M_MD_REWND);
  1321.   }
  1322.    
  1323. -  
  1324.   /*
  1325.    * Set up tmscp command packet.  Cause the controller to poll to pick up
  1326.    * the command.
  1327. --- 199,224 ----
  1328.   tmscpclose(io)
  1329.     register struct iob *io;
  1330.   {
  1331. !     tmscprew(io);
  1332.   }
  1333. + 
  1334. + /*
  1335. +  * rewind the tape. Clear the serious exception that may have occured if we
  1336. +  * hit EOF previously.
  1337. +  */
  1338. + tmscprew(io)
  1339. +     register struct iob *io;
  1340. + {
  1341. +     tmscp.tmscp_cmd.mscp_unit = io->i_unit;
  1342. +     tmscp.tmscp_cmd.mscp_buffer = 0;
  1343. +     tmscp.tmscp_cmd.mscp_bytecnt = 0;
  1344. +     if (tmscpcmd(M_OP_REPOS, M_MD_REWND|M_MD_CLSEX) == 0) {
  1345. +         printf("tms: rewind failed\n");
  1346. +         return(1);
  1347. +         }
  1348. +     return(0);
  1349. + }
  1350.    
  1351.   /*
  1352.    * Set up tmscp command packet.  Cause the controller to poll to pick up
  1353.    * the command.
  1354. ***************
  1355. *** 281,291 ****
  1356.     ubafree(io, ubinfo);
  1357.     /*
  1358.      * Detect hitting tape mark so we do it gracefully and return a
  1359. !      * character count of 0 to signify end of copy.  Rewind the tape
  1360. !      * before returning.
  1361.      */
  1362. !     if ((mp->mscp_status & M_ST_MASK) == M_ST_TAPEM)
  1363.         return(0);
  1364.     return(io->i_cc);
  1365.   }
  1366.    
  1367. --- 303,315 ----
  1368.     ubafree(io, ubinfo);
  1369.     /*
  1370.      * Detect hitting tape mark so we do it gracefully and return a
  1371. !      * character count of 0 to signify end of copy. Clear the exception
  1372. !      * and rewind before returning.
  1373.      */
  1374. !     if ((mp->mscp_status & M_ST_MASK) == M_ST_TAPEM) {
  1375. !         tmscprew(io);
  1376.         return(0);
  1377. +         }
  1378.     return(io->i_cc);
  1379.   }
  1380.    
  1381. //E*O*F stand.tmscp.c.diff//
  1382.  
  1383. echo x - stand.uda.c.diff
  1384. cat > "stand.uda.c.diff" << '//E*O*F stand.uda.c.diff//'
  1385. *** /usr/tmp/uda.c    Wed Dec  9 14:38:34 1987
  1386. --- uda.c    Wed Dec  9 14:31:59 1987
  1387. ***************
  1388. *** 7,12 ****
  1389. --- 7,20 ----
  1390.    */
  1391.   
  1392.   /*
  1393. +  * decided NOT to put an RCS header into standalone code -- don't know how
  1394. +  * critical space may be ...
  1395. +  *
  1396. +  *  $Header: uda.c,v 1.1 87/03/27 16:26:37 richl Exp $
  1397. +  *
  1398. +  */
  1399. + 
  1400. + /*
  1401.    * UDA50/RAxx disk device driver
  1402.    */
  1403.   #include "../machine/pte.h"
  1404. ***************
  1405. *** 48,62 ****
  1406.   int ra25_off[] = { 0, 15884, 0, -1, -1, -1, 25916, -1 };
  1407.   int ra60_off[] = { 0, 15884, 0, 49324, 131404, 49324, 242606, 49324 };
  1408.   int ra80_off[] = { 0, 15884, 0, -1, 49324, 49324, 49910, 131404 };
  1409. - #ifndef    UCBRA
  1410. - #ifdef RA_COMPAT
  1411. - int ra81_off[] = { 0, 16422, 0, 49324, 131404, 412490, 375564, 83538 };
  1412. - #else
  1413. - int ra81_off[] = { 0, 16422, 0, 375564, 391986, 699720, 375564, 83538 };
  1414. - #endif
  1415. - #else
  1416.   int ra81_off[] = { 0, 15884, 0, 242606, 258490, 565690, 242606, 49324 };
  1417. ! #endif
  1418.   
  1419.   struct mscp *udcmd();
  1420.   static int ratype[NRA];
  1421. --- 56,64 ----
  1422.   int ra25_off[] = { 0, 15884, 0, -1, -1, -1, 25916, -1 };
  1423.   int ra60_off[] = { 0, 15884, 0, 49324, 131404, 49324, 242606, 49324 };
  1424.   int ra80_off[] = { 0, 15884, 0, -1, 49324, 49324, 49910, 131404 };
  1425.   int ra81_off[] = { 0, 15884, 0, 242606, 258490, 565690, 242606, 49324 };
  1426. ! int rd52_off[] = { 0, 15884, 0, -1, -1, -1, 25650, -1 };
  1427. ! int rd53_off[] = { 0, 15884, 0, -1, 0, 33440, 49324, 15884 };
  1428.   
  1429.   struct mscp *udcmd();
  1430.   static int ratype[NRA];
  1431. ***************
  1432. *** 128,133 ****
  1433. --- 130,141 ----
  1434.         break;
  1435.     case    81:
  1436.         off = ra81_off[io->i_boff];
  1437. +         break;
  1438. +     case    52:
  1439. +         off = rd52_off[io->i_boff];
  1440. +         break;
  1441. +     case    53:
  1442. +         off = rd53_off[io->i_boff];
  1443.         break;
  1444.     default:
  1445.         printf("uda%d: don't support ra%d's\n", i, ratype[i]);
  1446. //E*O*F stand.uda.c.diff//
  1447.  
  1448. exit 0
  1449.