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

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

w<br />

x<br />

l<br />

SDFI, SDFO–System Data Format I/O Routines<br />

Address on which to base definitions (word offset). If omitted, the current location is<br />

used.<br />

Index register for dynamic definitions<br />

Levels above calling point to which definitions are to be known.<br />

If omitted, main assembly is used. If specified, one level above the main assembly<br />

is the maximum allowed; otherwise the main assembly level is the maximum.<br />

If buf2 is not specified, S$DFCT generates the FCT using single buffering.<br />

Example<br />

The following example generates the packet (FCT) for SDFO with the S$DFCT PROC:<br />

1. $ASCII<br />

2. $INCLUDE ‘MAXR$’<br />

3. $INCLUDE ‘SDFP$’<br />

4. $(2)<br />

5. PKT S$DFCT,‘DGL’ ‘TPF$’,W$,1792 448,BUF1,BUF2;<br />

6. 20,LINE ,X7<br />

7. BUF1 $RES 448<br />

8. BUF2 $RES 448<br />

9. LINE $RES 20<br />

.<br />

.<br />

.<br />

10. $(1)<br />

11. START<br />

12. L,U X7,PKT . Get address of packet<br />

13. L A6,(0500130000001)<br />

14. S A6,PKTICW . Store label ICW<br />

.<br />

.<br />

.<br />

In this example, the packet (FCT) for SDFO is generated on line 5 by the S$DFCT PROC.<br />

The D option displays the packet in the MASM assembly. The G option initializes the<br />

packet with the information contained in the S$DFCT parameter fields 1, 2, and 3. The L<br />

option generates dynamic $EQUF definitions using the label field on the S$DFCT PROC<br />

and information in parameter field 4. In this case, the $EQUF labels are prefixed with<br />

'PKT', use X-register X7, and are externalized to the main assembly level.<br />

Line 13 and 14 store a label control record in the SDFO packet using the $EQUF<br />

generated by the S$DFCT PROC.<br />

7833 1733–004 21–15

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

Saved successfully!

Ooh no, something went wrong!