■  アセンブル&リンク&GOサンプル


//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名
/*                                                                              
// 

■ステップの説明


BEFORE PAGE

TOP PAGE