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

FDASC$–Fieldata/ASCII Data Conversion
Auto Switch Common Bank or Relocatable Relocatable
L,U A0,input-buffer-word- count
L,U A1,input-buffer-address
L,U A2,output-buffer-address
LMJ X11,CBFDASC$-1
normal return
L,U A0,input-buffer-word- count
L,U A1,input-buffer-address
L,U A2,output-buffer-address
I$BJ X11,CBFDASC$
normal return
L,U A0,input-buffer-word- count
L,U A1,input-buffer-address
L,U A2,output-buffer-address
LMJ X11,FDASC$
normal return
FDASC$ converts the Fieldata characters in the input buffer (six characters per word) to
ASCII and places them into the output buffer (four characters per word, with trailing
space-fill if necessary). The length of the output buffer in words must be at least 1-1/2
times the length of the input buffer. The input buffer and the output buffer may specify
the same buffer, since the string is converted tail-to-head to prevent overwriting.
FDASC$ returns the word length of the converted ASCII image in register A0.
Example
The following example demonstrates a call to the relocatable version of FDASC$ to
convert a Fieldata character string to ASCII:
$FDATA
$INCLUDE ‘MAXR$’
$(2)
INBUF ‘SOME FIELDATA CHARACTERS.’ . Fieldata character string
INLEN $EQU $-INBUF . Word length
OUTBUF $RES INLEN*3//2 . Output buffer
PCW $GFORM 12,1, 6,0, 18,OUTBUF . Print Control Word
$(1)
START
L,U A0,INLEN . Input string word length
L,U A1,INBUF . Input string address
L,U A2,OUTBUF . Output buffer address
LMJ X11,FDASC$ . Convert FD to ASCII
.
S,S3 A0,PCW . Put word length of
L A0,PCW . converted image in PCW
ER APRINT$ . Print ASCII image
.
ER EXIT$ .
$END START .
This MASM routine calls the relocatable version of FDASC$ to convert the Fieldata string
at INBUF to ASCII. The word length of the converted image is returned from FDASC$ in
A0. An ER APRINT$ prints the converted image.
9–2 7833 1733–004