26 lines
903 B
Plaintext
26 lines
903 B
Plaintext
* String length 06/07/2016
|
|
LEN CSECT
|
|
USING LEN,15 base register
|
|
LA 1,L'C length of C
|
|
XDECO 1,PG
|
|
XPRNT PG,12
|
|
LA 1,L'H length of H
|
|
XDECO 1,PG
|
|
XPRNT PG,12
|
|
LA 1,L'F length of F
|
|
XDECO 1,PG
|
|
XPRNT PG,12
|
|
LA 1,L'D length of D
|
|
XDECO 1,PG
|
|
XPRNT PG,12
|
|
LA 1,L'PG length of PG
|
|
XDECO 1,PG
|
|
XPRNT PG,12
|
|
BR 14 exit length
|
|
C DS C character 1
|
|
H DS H half word 2
|
|
F DS F full word 4
|
|
D DS D double word 8
|
|
PG DS CL12 string 12
|
|
END LEN
|