mirror of
https://github.com/moshix/mvs.git
synced 2026-02-07 00:07:19 +00:00
27 lines
528 B
Plaintext
27 lines
528 B
Plaintext
BEGIN MACRO SAVE=YES,BASES=1
|
||
&LABEL$$ CSECT
|
||
USING *,15
|
||
AIF /&LABEL$$=/ .NOIDENT
|
||
B KZHQX&N$
|
||
DC AL1(11)
|
||
DC CL11'&LABEL$$'
|
||
.NOIDENT AIF &SAVE=NO.NOSAVE
|
||
HZQKX&N$ DC 18F'0'
|
||
KZHQX&N$ STM 14,12,12(13)
|
||
ST 13,HZQKX&N$+4
|
||
LR 14,13
|
||
LA 13,HZQKX&N$
|
||
ST 13,8(0,14)
|
||
DROP 15
|
||
USING HZQKX&N$,13
|
||
AIF &BASES<2.END
|
||
LA 12,4094(0,13)
|
||
USING HZQKX&N$+4094,12
|
||
AGO .END
|
||
.NOSAVE ANOP
|
||
KZHQX&N$ STM 14,12,12(13)
|
||
DROP 15
|
||
BALR 12,0
|
||
USING *,12
|
||
.END ANOP
|
||
|