360 Assembly macros

360 Assembly structured macros

IF ... THEN
ELSE
ENDIF
DO WHILE=(...)
ENDDO
DO UNTIL=(...)
ENDDO

The classic macro REGEQU for referencing the registers is found in all MACLIBs.

         MACRO
&N       PROLOG          
&N       CSECT  
         USING &N,13
@SAVEAR  B     @STM-@SAVEAR(15)
         DC    17F'0'
         DC    CL8'&N'
@STM     STM   14,12,12(13)
         ST    13,4(15)
         ST    15,8(13)
         LR    13,15
         MEND

         MACRO
&N       EPILOG          
&N       CNOP  0,4
         L     13,4(0,13)
         LM    14,12,12(13)
         XR    15,15
         BR    14
         MEND

360 Assembly macros

360 Assembly structured macros

See also