|
* Array length 22/02/2017
|
|
ARRAYLEN START
|
|
USING ARRAYLEN,12
|
|
LR 12,15 end of prolog
|
|
LA 1,(AEND-A)/L'A hbound(a)
|
|
XDECO 1,PG+13 edit
|
|
XPRNT PG,L'PG print
|
|
BR 14 exit
|
|
A DC CL6'apple',CL6'orange' array
|
|
AEND DC 0C
|
|
PG DC CL25'Array length=' buffer
|
|
END ARRAYLEN
|