(SYSLIB) Programming Reference Manual - Public Support Login ...

MFDSP$–Master File Directory Service Package
A sample MASM program was developed which performs the preceding algorithm. It is
designed to be called only once.
.
. A program to access all the main items in the Master File Directory
.
INCLUDE ‘MAXR$’
$(1)
START* .
LA,U A0,MFDPKT . Call ER MSCON$ to acquire a
ER MSCON$ . copy of the directory
SA A0,STATWORD .
TZ,S3 STATWORD . Was MSCON$ erroneous?
J ERROR . YES, exit with error
DIROK .
LA A0,(4400,DSPPKT) . Call MFDSP$ function 0 to
LA,U A1,0 . initialize for DGET$ file
LMJ X11,MFDSP$ . and return the address of
. of the first lead item.
J ERROR . A 0,X11 return means error.
SZ A4 . Set a flag showing we have
. not gotten lead item sector 1.
NXTMAIN .
LA A0,(4400,DSPPKT) . Call MFDSP$ function 4
LA,U A1,4 . (Get Next Main Item).
LMJ X11,MFDSP$ .
J ERROR . A 0,X11 return means error
JZ A1,NOSNAP . IF A1=0, no Main Item found
SA A0,SNAPPKT+2 . ELSE, print out sector 0 of
SA,H2 A1,SNAPPKT+1 . the main item
LA,U A0,SNAPPKT .
ER SNAP$ .
NOSNAP .
TZ A1 . Was a Main Item found?
J NXTMAIN . Yes, get the next one.
TNE,U A4,1 . Have we already gotten
. sector 1 of the lead item?
J NEXTLEAD . YES, get the next lead item
LA,U A4,1 . NO, set the flag to show
. we’re getting sector 1 now.
LA A0,(4400,DSPPKT) .
LA,U A1,3 . Get sector 1 of lead item.
LMJ X11,MFDSP$ .
J ERROR . A 0,X11 return means error
JZ A1,NOSNAP3 . IF A1=0, no find occurred.
SA A0,SNAPPKT3+2 . ELSE, print out sector 1 of
SA,H2 A1,SNAPPKT3+1 . the current lead item.
LA,U A0,SNAPPKT3 .
ER SNAP$ .
13–10 7833 1733–004