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

AEDIT$–ASCII Image Composition Editing Package
Table 4–2. AEDIT$: General Purpose ASCII Editing Routines
PROC Call Generated
Instructions
A$EFD1 p1 LA A0,p1
LMJ X11,AEFD1$
A$EFD2 p1 DL A0,p1
LMJ X11,AEFD2$
A$EMSG p1 LA,U A0,p1
LMJ X11,AEMSG$
Description
Insert one word of ASCII characters.
The four characters in p1 are inserted into the image. ASCII
spaces (040) and null characters (000) are ignored.
Insert two words of ASCII characters.
The eight characters in p1 are inserted into the data area.
Blanks and null characters are ignored.
Message editor initial entry.
A$EMSGR LMJ X11,AEMSGR$ Message editor reentry.
A$EOCTF
p1,p2
LA A0,p2
LA,U A1,p1
LMJ X11,AEOCTF$
A$EOCTV p1 LA A0,p1
A$EPACK
p1,p2
LMJ X11,AEOCTV$
LA,U A0,p2
LA,U A1,p1
LMJ X11,AEPACK$
Copies the characters starting at the address given in p1 into
the data area. This process stops when the character in Q1 of
the sixth word of the packet (stop character) is found. The
pointer to the string is saved in the packet.
The string at address p1 must contain at least one stop
character. A character offset for the first word of the string
may be supplied in H1 of register A0. The offset is in the
range 0–3 with 0=Q1,1=Q2, 2=Q3, and 3=Q4 of the first
word.
If the character offset is supplied in H1 of register A0, then the
PROC call should not be used. Instead, the calling sequence
should be coded directly.
This routine performs the same operation as AEMSG$ except
that the pointer to the input string is taken from the packet.
With these two routines, it is possible to copy a string into the
data area, occasionally interrupting this process to perform
other editing functions at certain selected points in the string.
Edit an octal number (fixed length).
Edits p2 to p1 octal digits. Leading zeros are not suppressed.
P1 must not exceed 12.
Edit an octal number (variable length).
Edits contents of p1 to octal. The number of digits edited
depends on the size of the number. If the number is greater
than seven, a leading zero is added.
Copy and pack a string.
Same as A$ECOPY except that null (000) characters are
ignored. A$QPACK removes the null (000) characters from the
output string while A$ECOPY retains them. Null characters do
not show up in the printed line.
7833 1733–004 4–11