//MYASM JOB MSGCLASS=x,MSGLEVEL=(1,1)
//ASM EXEC PGM=IEV90,
// PARM='XREF(SHORT),STMT,OBJECT,NODECK',REGION=1024K
//SYSUT1 DD UNIT=DISK,SPACE=(CYL,(10,5)),DSN=&&SYSUT1
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DISP=(,PASS),UNIT=DISK,SPACE=(CYL,(5,4,0)),
// DCB=(BLKSIZE=400),DSN=&&LOADSET ←オブジェクトモジュール
//SYSIN DD * ←ここからアセンブルソース
TESTTEST CSECT
R0 EQU 0
R1 EQU 1
R2 EQU 2
R3 EQU 3
R4 EQU 4
R5 EQU 5
R6 EQU 6
R7 EQU 7
R8 EQU 8
R9 EQU 9
R10 EQU 10
R11 EQU 11
R12 EQU 12
R13 EQU 13
R14 EQU 14
R15 EQU 15
STM R14,R12,12(R13) --+
LR R11,R15 |
USING TESTTEST,R11 |
ST R13,SAVEAREA+4 +---ここはお決まりの部分
LR R12,R13 |
LA R13,SAVEAREA |
ST R13,8(R12) --+
*
* LOGIC NONE
*
L R13,SAVEAREA+4 --+
LM R14,R12,R12(R13) |
XR R15,R15 RETURN CODE CLEAR +---ここはお決まりの部分
BR R14 |
SAVEAREA DS 18F --+
END ←ここまでアセンブルソース
/*
//LINK EXEC PGM=IEWL,PARM='AC=1,LET,LIST,MAP,NCAL'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&SYSUT1,UNIT=DISK,SPACE=(CYL,(3,3))
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) ←オブジェクトモジュール
//SYSLMOD DD DSN=&TMP(GO),UNIT=DISK,DISP=(,PASS,DELETE), ←実行モジュール
// SPACE=(1024,(2000,300,1))
/*
//RUN EXEC PGM=*.LINK.SYSLMOD ←実行モジュールDD名
/*
//
|