HP3000-L Archives

September 1995, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Reply To:
Date:
Tue, 5 Sep 1995 17:22:04 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (34 lines)
Rich asks:
> Anyone know how to use DEBUG/iX to get the FSERROR number from a failed
> call to the native mode FREAD intrinsic?
 
One way is to use the spiffy debug function NMCALL, which lets you call
an arbitrary routine in an arbitrary XL file. The only downside is that
it only lets you (easily) pass the first four arguments (the ones in
registers). I like to solve Rich's problem by calling PRINFFILEINFO and
passing it the file number in question. For example, if we are interested in
file number 1...
 
$7 ($5d) nmdebug > wl nmcall("NL.PUB.SYS/PRINTFILEINFO", 1)
 
+-F-I-L-E---I-N-F-O-R-M-A-T-I-O-N---D-I-S-P-L-A-Y+
!  FILE NAME IS $STDLIST                         !
!  FOPTIONS: NEW,ASCII,$STDLIST,U,CCTL,DEQ       !
!            NOLABEL                             !
!  AOPTIONS: OUTPUT,NOMR,NOLOCK,SHR,NOBUF,MULTI  !
!            WAIT,NOCOPY                         !
!  DEVICE TYPE: 16     DEVICE SUBTYPE: 0         !
!  LDEV: 28       DRT: 0         UNIT: 0         !
!  RECORD SIZE: 81     BLOCK SIZE: 82    (BYTES) !
!  EXTENT SIZE: 0      MAX EXTENTS: 0            !
!  RECPTR: 0           RECLIMIT: 0               !
!  LOGCOUNT: 0            PHYSCOUNT: 0           !
!  EOF AT: 0           LABEL ADDR: %00000000000  !
!  FILE CODE: 0        ULABELS: 0                !
!  FILE OWNER:                                   !
!  ERROR NUMBER: 0     RESIDUE: 1        (BYTES) !
!  BLOCK NUMBER: 0            NUMREC: 1          !
+------------------------------------------------+
 
G.

ATOM RSS1 RSS2