SAMPLE ASSEMBLER PROGRAM TO TYPE IN

 

Note: replace the KC number below on the first line with your KC number and put an “A” on the end of it

 

Do NOT replace the KC02293 below with your  KC

  

There is a blank before and after  JOB!!

 

 

//KC02321A  JOB  ,’YOUR NAME’,MSGCLASS=H

//STEP1 EXEC PGM=ASSIST,PARM=’MACRO=F’

/ /STEPLIB DD DSN=KC02293.ASSIST.LOADLIB,DISP=SHR

//SYSIN DD  *

MAIN    CSECT      (ßcsect begins in col 8,MAIN in col 1)

              USING MAIN,R15

              L R1,NUM 1               BRING IN NUM 1

              L R2,NUM2             BRING IN NUM 2

              AR  R1,R2                ADD THEM

              XDUMP

              BR R14                      EXIT PGM

***************************************

NUM1   DC  F’8’              FW OF 8

NUM2   DC F’7’                FW OF 7

 R1         EQU   1

R2          EQU   2

R14        EQU  14        

R15        EQU  15

              END

/*

//SYSPRINT DD  SYSOUT=*