home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
emulate
/
systems
/
pc370
/
mac
/
link.mac
< prev
next >
Wrap
Text File
|
1987-08-17
|
513b
|
28 lines
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