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.

4.2.6. Examples<br />

AEDIT$–ASCII Image Composition Editing Package<br />

The following table contains examples of AEDIT$ PROC calls and the instructions that<br />

the PROC call generates.<br />

Procedure Call Generated Instructions<br />

A$ECHAR ‘A’ LA,U A0,’A’<br />

LMJ X11,AECHAR$<br />

A$ECHAR *TAG,X6,S5 LA,S5 A0,*TAG,X6<br />

LMJ X11,AECHAR$<br />

A$ECHAR,’CB’ I$BJ X11,CBAECHAR$<br />

A$EDECV COUNT,,H2 LA,H2 A0,COUNT<br />

LMJ X11,AEDECV$<br />

A$EDECV LMJ X11,AEDECV$<br />

A$ECOPY 50,LINE LA,U A0,LINE<br />

LA,U A1,50<br />

LMJ X11,AECOPY$<br />

A$ECOPY 50,TAB,X6,W LA A0,TAB,X6<br />

LA,U A1,50<br />

LMJ X11,AECOPY$<br />

A$ECOPY COUNT LA,U A1,COUNT<br />

LMJ X11,AECOPY$<br />

A$EDECF,’A’ 10,COUNT LA A0,COUNT<br />

LA,U A1,10<br />

LMJ X11,CBAEDECF$-1<br />

A$EFLF2 30*/6+18,(1.234D) DL A1,(1.234D)<br />

LA,U A0,30*/6+18<br />

LMJ X11,AEFLF2$<br />

A$EFLF1 20*/6+9 LA,U A0,20*/6+9<br />

LMJ X11,AEFLF1$<br />

7833 1733–004 4–25

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

Saved successfully!

Ooh no, something went wrong!