Download stanf~rdlinearacceleratorcenter stanf~rduniversi~,stanford

Function
Function
Packages .,.
Packages ,..
‘“SERF”REXX function
Peceege Clue Code
tlltf
ICLC rPrt~O~.rCn(l).rf”“(I)
. . . . . . ..~f~.l”~...~~~~~...~...~~.....................~....““....”.”
.
.
Describe your function paceage here
a
.
.
.
l
. _I”PB”FF
EO”t”PLIY.e.3
tvttll E$” T”PLI”1I4.2
MSGI
C’CHSRUFBMEInvelid
*
““CXLOM OS
::8~““CXtOM’
cIn’ar!xP*cK’
f$t’“““”
,,
Cl*‘S”SltH’
ctn’SER”tCE’
CLB’PUSH’
BX’FF’
,
2
;:
i:
::
me
.
I
ARCI
~LL.“..~.l~.“~~“....*.....~~.....*.....~”*.~.”.*..~.*~.....”.,.~*~~
Literal
first
&“s*e
END
Newnfmmthe
”
tmll
”
‘FUN I
‘F”” 2
‘F”” II,
WC
3ElC
’ ’
eee9eeee
eeleeeee
ee11eaee
eelzeeee
eeI3eeee
eel4eeeo
eelseeee
“me of the pe.crege
‘“SERF”’
Cosright
..
notice
YLI of function
Name of function
Yeme of function
SflC ‘USER1
SETC ‘“SERP’
SETC ‘USER,’
l
System bttribute
Service attribute
Push dam existing
trcm
05194 KH
eeeeeeee
‘PACKAOE
“me to load as
“a@ of wdule to load
pool
argument
REXXCompiler-
9ek6eeee
EJECT
*m**S*ar* of Sp~cificstions.*,.““*..“..“.....,*...,,”””~..~.~.~“..~
.
.
.
I
This code Is provided on an as-is basis.
”
.
.~l*~“~.l*.“*““.~~“.~~...“.....,.......................““””.”~”~““~
I
” HDdule name:
“SERF”
I
* Oescriptive name: Clue code for REXX function pockage
*
* function:
”
.
the follouing
code resides in free storege and is copabte
.
to LOM end RESET.
of replyin
*
A LOAO ccl 9 results in identifying
the function (whose name
.
is passed es pareneter follouing
LOMI es entry point.
.
*. LOM call wthout function specified will identify
all
*
functions in the function paceage es entry points.
*
A RESET call free WUCXOROP
will turn the functions off.
” A PURGf service cell is ignored.
.
.
to generate
*
WSH “SfRFN
I
IOAO “SCCW
*
crnn “SERF” ( Yww
I
I
Note: lo get a FOOD”Lfwhich can execute on CnS release 5 end
”
1.1.1. --a enerate the eodule on e CM3 releese a S.
I
vote: When user 9 uacttons are cowiled PJXX with the OLIWI(
”
specify
coprpiler option, then ou wst explicitely
*
on the LOM
the functions to be OLI wed explicitrly
”
co*uuand. and you ust use the RLOSAVEoption for the
”
LOAOcoamsad.
I
fxawle:
I
USERI. “SfP.2. end USER3 ere functions in the pacuge.
extension
4
Supplement
eee6eeee
ewe888
.
Qaremeter’
99918888
88828888
9ee3eeee
eeeweee
neeseeee
Nom
OS/S4 KH
from the REXX Compiler
ee*
jeeee
eeweeee
ee19eeee
ee2eeeee
88218888
(8228888
88238888
88248808
ee25eeee
ee26eeee
sezleeee
ee2neeee
98298888
ee3eaeee
88318888
ee32eeee
88338888
eenee1e
88338828
ee34eeee
ee3seeee
9meeee
eeneeee
eueeeee
9839eeee
sueeeee
89418888
9e42eeee
88438868
88448888
88458888
8046enee
ee4leeee
ee4eeeee
884999ee
98588888
- Supplement
b
/
Function
”
Packages
.
”
”
.
”
”
.
.
f
A Entry/exit
conditions:
.
I
Standard SVC conventions.
.
R1 points to e torenized PLIST.
*
This code can run with MOOE 24 or AWOE 31
.
”
Exit:
I
tm = e - Function successfully
loaded or exists
I
- functions unloaded
I
- Service call. Cndced cell. . . .
”
RIS-* 0 - Return code fmm unsuccesful YUCEXTLOAO
I
- I LOM or RESET. but no second argwent
I
or function not in peckage
.
- 4 no first srgumnt
.
* Meclibs:
*
MSP or OHSOP,
.
” Macros and c~ntml blocks:
.
RiCEP”
*
.
i%:“’
”
l
Change Activity:
*
91-11-21 m Added WOOE 31 capability
.
9396-22
IN Mded missing brench for service call with
I
AWOE 24 (thanks to Roderic A. Osvis for pointing
I
out the problem end providing the solution).
.
9386-28
I(H toad ell functions in resQonse to a ~06.0 request
.
without function name specified.
I
****End of Specificrtionr.“..L..,.,,.,““.“.”,,,””~*””*”””*..~...~~.
SW&E 1
DPACUGl PJioOL ANI
‘PACKAGELHOOE3,
SPACEL
IPACKACEcstct
“SIN0 ituc0a.e
Establish Addressability
tsfablish
Mdressability
II”“” ‘STARICOO
.R12
Brsnch around bender
OC
CL*‘&PACUGE’
Pactcage 10
WRX
SETA ““CR
05194 KH
2
News from
Function Packages
&1
SETA ,
,..
USER1contains a call to USER1 and a cell to “SUU.
- compile “SERl uith the OLIHI: coaQiler option
- LOAD ustftw “SERX ( RLOSAYE
- CEhY4“SERF” ( “WP
If you do this on CM rel ) I you will get e wdule
runnable on CWSrel S and later. which will reside
above the I6 P&3line if Qossible.
USERI. “SERZ. and USER3 are the r.noyn functions.
Calls in “SLRl to USER3 and “SE&LXwill use 01111.
News from the REXX Compiler
the REXX Compiler
_ Supplement
eesleeee
w52eee6
ees3eeee
ees4eene
eessoene
eomee8
eesleeee
9esnee9e
emwee
ee6eeeee
ee61eoee
88628988
ee639e9e
88648888
eesseeee
ee66eeee
eeueeee
enmeeee
eweew
ee)eeeee
ne?1eeee
ee?2eee9
eeneeee
ee74eeee
9emeee
88768888
88778888
eemeeee
emenee
eeeoeeee
nweeee
eeezeeee
eee3eeee
eea4eeee
eeeseeee
9eeseele
88858828
ee*seue
eeesee4e
ee*seese
88868888
eeweeee
eeeeeeee
eee9eeee
ee9eem
eeaeeee
eweeea
ee93eeee
e994eeee
ewseeee
88968888
eeweeee
.,.
.CR,OOP ANOP
$f
(iI 61 LIUY).CRLOOPE
c’scaw)
LI
SETA &I+1
.CRLOOP
MO
.CRLOOPfAliOP
”
l
List of functions included in this pacx. with their offsets
.
F”“LWrr EO” 4.e
Offset L length of “Me
Offset to the routine
yw;s
EO” $4
Length of a single entry
EO”
~UYLIST 0s
ef
List of functions
LW
2:;;
yf””
*t
.F”LOOP ANOP
@I 01 alwl.F”LOOPE
Alf
rogrs.
Yaw of coqiled
EXTR” 8F”NUI)
~~W4!fl)-IPACLAGE)
Offset pf cow, .f ed prog
is
cL6~rF”“(nl)’
oc
:::
pref’x
‘1
SETA ut,
&CO .F”LOOP
.F”LOOPf AWOP
A(.-.)
End fence
y”LlST
DC
.
S1AR1C00f0”
::
::c
::C
SR
:A
LTR
::I
”
Save return address
Save return address once mre
Is this a load?
“es. check for eny .rg’s
.W~O,Rl’,*CtO’RESET’
Reset?
Yes. turn off functions
R,S.RIS
In case of service call
fl~.,‘I’~geeeee’
Set NOB of register
*A will clear no0 in m00C 2e
R2k2
Br if MOE 24
Pt2e21
96(Rl,).X’fE’
h-L at CIll type (XA)
Ki:
m~~n~),=cte*LOAO’
Pt2e2,
CONTN
f;
%Yeee*.=x*rE~
*
BNLR RI4
R15.4
::
RI4
CHK4ARCS
EO”
”
6
- Supplement
93
05194
KH
rype
e1428eee
ei43eeee
l
RIS.l
:t,
Of
too* *t cell
Return Service. Endcmd. . . .
Oed;;i::;,s;t
error code
..
ee9neeee
eeorleeee
eteeeeee
eleleeee
8182ggBg
umeee
eleueee
slesneee
91868898
eie7eeee
cleseeee
elegeeee
01188888
9Itleeee
et*2enne
91 I 38888
et 148898
e115888e
81168888
ellleeee
91,*99ee
mt9eeee
912eeeee
e1219eeE
et22eeee
et238888
e124eeee
9*2seem
eIz6eeee
el27eeee
e1215eee
ei2eeeee
el29wee
913eeeee
et 3teeee
slmeee
tdneeee
ei34eeee
e135eeee
n*xseee
eixe~ee
a378888
e138eeee
e*39eeee
eI4eeeen
olueeee
y;w~;‘,X’FF’
Set Qossible return code
hy arguwnts passed?
No. load ell functions
News from the REXX Compiler
- Supplement
et44eeee
81458888
eL46eene
e14reeee
7