(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$ECHAR p1 LA,XU A0,p1
LMJ X11,AECHAR$
Description
Insert the character in p1 into the next position of the data
area.
The character contained in Q4 of A0 is inserted into the data
area.
A$ECLEAR LMJ X11,AECLEAR$ Clear the data area for the ASCII image.
The data area is set to blanks and the column pointer is set to
the start of the data area (column zero).
A$ECOLN LMJ X11,AECOLN Compute the current column number.
A$ECOL p1 LA,XU A0,p1
A$ECOPY
p1,p2
A$EDCFZ
p1,p2
A$EDECF
p1,p2
LMJ X11,AECOL$
LA,U A0,p2
LA,U A1,p1
LMJ X11,AECOPY$
LA A0,p2
LA,U A1,p1
LMJ X11,AEDCFZ$
LA A0,p2
LA,U A1,p1
LMJ X11,AEDECF$
A$EDECV p1 LA A0,p1
LMJ X11,AEDECV$
Returns with the column number in A0.
Position to the column specified in p1.
The column pointer is changed to the number specified in p1.
The first character position of the image is column 0.
Copy a string into the data area.
p2 is expected to contain the address of a string of characters.
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. The number of characters in p1 is
copied from this area into the data area.
Edit a decimal number (fixed length with leading zeros).
Edit p2 to a decimal number right-justified in a field of p1
characters. A leading "-" is added if p2 is negative. The result
overflows the field to the right if it does not fit into the
specified field size.
Leading zeros are produced where AEDECF$ would produce
leading spaces. This routine is convenient for editing decimal
fractions.
Edit a decimal number (fixed length).
Edits p2 to a decimal number right-justified in a field of p1
characters. A leading "--" is added if p2 is negative. The result
overflows the field to the right if it does not fit into the
specified field size.
Edit a decimal number (variable length).
Edits p1 to a decimal number. A leading "-" is added if p1 is
negative. The number of characters generated is a function of
the sign and magnitude of p1.
4–10 7833 1733–004