From:	CSBVAX::MRGATE!KARNEY%PPC.MFENET@NMFECC.ARPA@SMTP  5-APR-1988 19:31
To:	ARISIA::EVERHART
Subj:	BOSS 1.5 update


Received: from ppc.mfenet by ccc.mfenet with Tell via MfeNet ;
	Tue, 5 Apr 88 12:58:14 PDT
Date:	  Tue, 5 Apr 88 12:58:14 PDT
From:     KARNEY%PPC.MFENET@NMFECC.ARPA
Message-Id: <880405125814.2020021c@NMFECC.ARPA>
Subject:   BOSS 1.5 update
To:       Everhart%Arisia.decnet@ge-crd.arpa
Comment: From KARNEY@PPC.MFENET on  5-APR-1988 15:47:47.14 EDT

Below is an update from BOSS 1.4 to 1.5.  This fixes a bug that occurs on
systems on which the sysgen parameter MAXBUF is set to less than 4096.
(The symptom of the bug is that BOSS exits with "Exceeded quota" when you
switch to a process with a lot of buffered output.)  To use this update do
  $ edit/sum boss.c/update
and recompile.

    Charles Karney
    Plasma Physics Laboratory   Phone:   +1 609 243 2607
    Princeton University        MFEnet:  Karney@PPC.MFEnet
    PO Box 451                  ARPAnet: Karney%PPC.MFEnet@NMFECC.ARPA
    Princeton, NJ 08543-0451    Bitnet:  Karney%PPC.MFEnet@ANLVMS.Bitnet


....................... Cut between dotted lines and save ......................
$!.............................................................................
$! VAX/VMS archive file created by VMS_SHAR V-5.03 07-Oct-1987
$! which was written by Michael Bednarek (U3369429@ucsvc.dn.mu.oz.au)
$! To unpack, simply save and execute (@) this file.
$!
$! This archive was created by KARNEY
$! on Tuesday 5-APR-1988 13:48:41.85
$!
$! It contains the following 1 file:
$! BOSS.UPD
$!=============================================================================
$ Set Symbol/Scope=(NoLocal,NoGlobal)
$ Version=F$GetSYI("VERSION") ! See what VMS version we have here:
$ If Version.ges."V4.4" then goto Version_OK
$ Write SYS$Output "Sorry, you are running VMS ",Version, -
                ", but this procedure requires V4.4 or higher."
$ Exit 44
$Version_OK: CR[0,8]=13
$ Pass_or_Failed="failed!,passed."
$ Goto Start
$Convert_File:
$ Read/Time_Out=0/Error=No_Error1/Prompt="creating ''File_is'" SYS$Command ddd
$No_Error1: Define/User_Mode SYS$Output NL:
$ Edit/TPU/NoSection/NoDisplay/Command=SYS$Input/Output='File_is' -
        VMS_SHAR_DUMMY.DUMMY
f:=Get_Info(Command_Line,"File_Name");b:=Create_Buffer("",f);
o:=Get_Info(Command_Line,"Output_File");Set(Output_File,b,o);
Position(Beginning_of(b));Loop x:=Erase_Character(1);Loop ExitIf x<>"V";
Move_Vertical(1);x:=Erase_Character(1);Append_Line;
Move_Horizontal(-Current_Offset);EndLoop;Move_Vertical(1);
ExitIf Mark(None)=End_of(b) EndLoop;Position(Beginning_of(b));Loop
x:=Search("`",Forward,Exact);ExitIf x=0;Position(x);Erase_Character(1);
If Current_Character='`' then Move_Horizontal(1);else
Copy_Text(ASCII(INT(Erase_Character(3))));EndIf;EndLoop;Exit;
$ Delete VMS_SHAR_DUMMY.DUMMY;*
$ Checksum 'File_is
$ Success=F$Element(Check_Sum_is.eq.CHECKSUM$CHECKSUM,",",Pass_or_Failed)+CR
$ Read/Time_Out=0/Error=No_Error2/Prompt=" CHECKSUM ''Success'" SYS$Command ddd
$No_Error2: Return
$Start:
$ File_is="BOSS.UPD"
$ Check_Sum_is=742091753
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
X-   16
XVersion 1.5.  April 5, 1988
X  Fix exceeded quota problem that occurs when buflen > sysgen's maxbuf.
X-   76
X#define  maxbuf       1200`009/* Should be less than SYSGEN MAXBUF */
X`009`009`009`009/* 1200 is in fact the minimum setting */
X-  237,  238
X    j = 0;
X    while (j < buflen[n]) {
X      check(SYS$QIOW(1,tt_chn,IO$_WRITEVBLK,&tiosb,0,0,&buffer[n][j],
X`009`009     (buflen[n] - j < maxbuf) ? buflen[n] - j : maxbuf,
X`009`009     0,0,0,0));
X      j += maxbuf;
X    }
X-  624,  624
X  printf("Begin BOSS 1.5\nType control-\\ control-h for information\n");
X/
$ GoSub Convert_File
$ Exit

[Distribution to more than ten people]
