18.08.2013 Views

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

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

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

MFDSP$–Master File Directory Service Package<br />

NOSNAP3 .<br />

TZ A1 . Did we find a sector 1?<br />

J NXTMAIN . YES, get more main items<br />

NEXTLEAD .<br />

SZ A4 . Set the flag showing we have<br />

. not gotten lead item sect 1.<br />

LA A0,(4400,DSPPKT) . (We’re getting the next lead<br />

LA,U A1,2 . item now.)<br />

LMJ X11,MFDSP$ .<br />

J ERROR . A 0,X11 return means error<br />

JZ A1,EXIT . IF A1=0, no find occurred.<br />

SA A0,SNAPPKT2+2 . ELSE print out sector 0 of<br />

SA,H2 A1,SNAPPKT2+1 . the lead item.<br />

LA,U A0,SNAPPKT2 .<br />

ER SNAP$ .<br />

J NXTMAIN . Get the next main item.<br />

ERROR .<br />

L$SNAP ‘ERROR’,2 . An error occurred. ABORT.<br />

ER EABT$ .<br />

EXIT .<br />

er exit$ . exit the program.<br />

$(0) .<br />

SNAPPKT + ‘MAIN’ . The Main Item SNAP packet<br />

+ 0200034000000 . Snap A-registers, 034 words,<br />

+ 0 . start address gets filled in<br />

. in the code.<br />

SNAPPKT2 + ‘LEAD0’ . The Lead Item sector 0 SNAP<br />

+ 0200034000000 . packet<br />

+ 0 .<br />

SNAPPKT3 + ‘LEAD1’ . The Lead Item sector 1 SNAP<br />

+ 0200034000000 . packet<br />

+ 0 .<br />

STATWORD $RES 1 .<br />

MFDPKT + 015 . The packet needed for<br />

+ ‘TDIR$’ . calling ER MSCON$<br />

+ 900 .<br />

+ MFDBUF1,MFDBUF2 .<br />

+ 0 .<br />

MFDBUF1 $RES 1792 .<br />

MFDBUF2 $RES 1792 .<br />

DSPPKT + ‘TDIR$’ . The packet needed for<br />

$RES 4398 . calling MFDSP$.<br />

$END START .<br />

7833 1733–004 13–11

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!