请先仔细地阅读下面的程序,实在看不懂,再看最后的分析
//COMCOB JOB 'XXXXXX',CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A,
// NOTIFY=&SYSUID
//A EXEC PGM=ASMA90,PARM='OBJECT,NODECK,XREF(SHORT)'
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
//SYSLIN DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,DSORG=PS)
//SYSIN DD *
MINILINK CSECT DEFINE PROGRAM CSECT
SAVE (14,12),,* SAVE REGISTERS
CNOP 0,4
BAS 15,INITSAVE-MINILINK(,15) BR AROUND SAVE AREA AND ->
STORE NEW SAVE AREA ADDR ->
IN REG 15
USING *,13 ESTABLISH PROGRAM ADDRESSABILITY
DC 18F'0' NEW SAVE AREA
INITSAVE ST 13,4(,15) ADD NEW SAVE AREA TO THE
ST 15