[Coco] x register

[Bill Nobel]

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