home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
emulate
/
systems
/
pc370
/
mac
/
load.mac
< prev
next >
Wrap
Text File
|
1987-08-12
|
420b
|
22 lines
LOAD 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 *+26
SVC 9
DC C'BUG MODULE NOT FOUND'
LR 15,0
LA 0,X'0210'(0,15)