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.

BSP$-Program File Basic Service Package<br />

5.2. Example of Using BSP$<br />

The following example uses BSP$ to access a program file:<br />

$(2)<br />

FCT $RES 43 . File control table<br />

ELTTBL $RES 252 . Buffer for element table<br />

FILENAME ‘TESTFILE ‘ . Program file name<br />

ADDPKT . BSP$ add packet<br />

‘NEWPROGRAM ‘ . Element name<br />

+ 0 . Word 2 of add packet<br />

+ 1,0 . Element type (symbolic)<br />

‘VERS-3 ‘ . Element version name<br />

+ 5,0,1 . Element cycle information<br />

+ ELTLEN . Sector length of element text<br />

+ ELTADRR . Address of element text (sector)<br />

+ 0 . Time and date element added<br />

. (filled by BSP$)<br />

.<br />

.<br />

.<br />

$(1)<br />

DL A6,FILENAME . Get file name<br />

DS A6,FCT . Put in top of FCT<br />

L,U A0,FCT . Get address of FCT<br />

LMJ X11,RFTI$ . Read FTI<br />

J BSPERR . Error return<br />

.<br />

L,U A0,FCT . Get address of FCT<br />

L A1,(ELTTBL,252) . Get addr,len of buffer<br />

LMJ X11,RPFET$ . Read element table into buffer<br />

J BSPERR . Error return<br />

.<br />

L,U A0,FCT . Get address of FCT<br />

L,U A1,ADDPKT . Get address of add packet<br />

LMJ X11,ETIA$ . Add the element to the file<br />

J BSPERR . Error return<br />

.<br />

. Write element text, using SDFO (for example)<br />

.<br />

L,U A0,FCT . Get address of FCT<br />

LMJ X11,WPFET$ . Write back the element table<br />

J BSPERR . Error return<br />

L A7,FCT+7 . Get next write location<br />

A,U A7,ELTLEN . Add length of new element<br />

S A7,FCT+7 . Put in FCT<br />

.<br />

L,U A0,FCT . Get address of FCT<br />

LMJ X11,WFTI$ . Write back the<br />

J BSPERR . Error return<br />

.<br />

.<br />

.<br />

5–34 7833 1733–004

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

Saved successfully!

Ooh no, something went wrong!