%from IMP %include SYSSPECS, MCODE, FORMATS, Depio

!Revision history:

! PSR 16-Sep-87 corrected to return zero if the file doesn't exist.

%externalroutine File Size %alias "3L___file_size"
   {really a function}
   %integer Handle = In SCB_User1
   *MOV _ R0, #2    {get file length}
   *LDR _ R1, Handle
   *SWI _ Brasil Args
   *MOVVS _ R0, #0      {V-set for an error, return zero}
   *MOVVC _ R0, R2      {V-clear correct answer in R2}
%end