[Coco] x register

[phil pt]

Thank you.

<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=icon>
Virus-free.
www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=link>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

On Sun, Apr 26, 2020 at 6:14 PM Bill Nobel <b_nobel at hotmail.com> wrote:

> Phil the $8D is the system call for I$GetStt. The reg.bb=2 sets the call
> to return SS.SIZ which return file size.  Reg.lu holds the least
> significant word an reg.lx holds the most significant word.  Basically the
> routine you show will point to a location of a record of a certain size in
> the file.
>
> Sent from my iPad
>
> > On Apr 26, 2020, at 11:32 AM, phil pt <ptaylor2446 at gmail.com> wrote:
> >
> > What is checking here because the manual includes nothing about the x
> > register.
> >
> > 5
> > reg.aa=path
> > callcode=$8D
> > reg.bb=2
> > RUN syscall(callcode,reg)
> > IF reg.lu<0 THEN lof=reg.lu+65536.
> > ELSE
> > lof=reg.lu
> > ENDIF
> > IF reg.lx<0 THEN mult=reg.lx+65536.
> > ELSE
> > mult=reg.lx
> > ENDIF
> > huser=(lof+mult*65536.)/SIZE(rec)
> >
> >
> >
> > <
> https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=icon
> >
> > Virus-free.
> > www.avast.com
> > <
> https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=link
> >
> > <#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
> >
> > --
> > Coco mailing list
> > Coco at maltedmedia.com
> > https://pairlist5.pair.net/mailman/listinfo/coco
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
>