mirror of
https://github.com/moshix/mvs.git
synced 2026-04-30 21:58:42 +00:00
28 lines
513 B
Plaintext
28 lines
513 B
Plaintext
LINK MACRO EP=?
|
||
AIF /&LABEL$$=/ .GO
|
||
&LABEL$$ EQU *
|
||
.GO AIF &EP=?.EPLOC
|
||
AIF &EP='.EPLIT
|
||
LA 1,=C'&EP..COM'
|
||
AGO .SVC
|
||
.EPLIT LA 1,=C&EP
|
||
AGO .SVC
|
||
.EPLOC AIF &EPLOC=(.EPREG
|
||
LA 1,&EPLOC
|
||
AGO .SVC
|
||
.EPREG AIF &EPLOC=(1).SVC
|
||
LR 1,&EPLOC
|
||
.SVC SVC 25
|
||
LTR 15,15
|
||
BZ *+34
|
||
SVC 9
|
||
DC C'BUG MODULE NOT FOUND'
|
||
DC 8X'00'
|
||
STM 0,1,*-8
|
||
LR 15,0
|
||
LA 15,X'0210'(0,15)
|
||
BALR 14,15
|
||
L 2,*-20
|
||
L 1,*-20
|
||
SVC 11
|
||
|