Re: SixPacks mods for GCIC users

--- In [email protected], "paoloG" <crc@...> wrote:
>
>
>
> --- In [email protected], "Rocky" rocsystems@ wrote:
> >
> > Whoops
> >
> >
> >
> > I missed the little phrase "bypassing for the getmains"
> >
> > If you only did it there and checked that it was the getmain SVC
than I
> > guess that is an acceptable approach.
> >
> >
> >
> > Since there are about 60 different SVCs skipping on that one
specific SVC
> > should not be too much of an issus.
> >
> >
> >
> > Rocky
>
> Hi Roc,
>
> what I did was to put on top of the two CLC series of instructions the
checks for GETMAIN and FREEMAIN.
> In the routine with OURSVC label I saved 46 instructions and in the
second with OURSVC1 label I saved about 500 instructions (I put on top
the second check before the DIAG *ONLY* for GETMAIN and FREEMAIN - I
thougt it was uninfluent to get the time for these two functions;-)
>
> The wait time passing from 65 sec to 28 secs with your brilliant GSVC
mod makes lot of sense:
>
> 1): the time was of 18 secs and not of 28 (read well the post ;-)
>
> 2): The wait figure - with equal MIPS -should be of 3.5 (LOAD time) +
6.2(GETMAIN time) = about 10 secs - *BUT* in the original GSVC routine
the greater part of instructions was made by this loop:
>
> LPGTSTRG L 2,PTRNEXT
> CLC STGCODE,=C'$END'
> BNE K4STG
> MVC RCDBAD,=F'8'
> B RTBAD
> *------------------------------
> K4STG C 4,STGLEN
> BH LPGTSTRG
> CLC STGCODE,=CL4'FREE'
> BNE LPGTSTRG
>
> that evidently were more speedy that the average in your routine
(giving so a nearly twofolders MIPS figure).
>
> BTW to optimize the original loop I'd make two CLI compare instead of
the CLC and put the CLC STGCODE,=CL4'FREE' on top (perhaps I'll try just
for fun - I'd expect a 30% of wait time reduction) ;-)
>

I made the following  little mod to the original vanilla GSVC:

LPGTSTRG EQU   *
          L     2,PTRNEXT
          CLI   STGCODE,C'F'
          BNE   LPGTSTRG
          C     4,STGLEN
          BH    LPGTSTRG
          CLI   STGCODE,C'$'
          BNE   LK4STG
          MVC   RCDBAD,=F'8'
          B     RTBAD
*------------------------------
LK4STG   EQU   *
*

The path length, for a file of 14,000 lines, decreased from 735 to 336 M
instructions, and

the wait time from 33.6 to 14.4 secs. Better than I expected. [:)]

BFN

Paul


> I had realized that your original GCIC wasn't made for so many
GETMAINs - it was a nice home made CICS for VM - I guess much more
performing than official CICS/VM (that alas I can't find anywhere:-(.
>
> But *our* GCIC editor is mostly a mono task application - so some
little performance mods could be done without doing any arm (I don't
expect 16 users editing files on VM/370 simultaneously on my little
PC;-)
>
> Regards.
>
> Paul
>
>