Example 5 (Assembler)

The following is an example of an assembler program calling HFZSNAP.

         TITLE 'HLASM EXAMPLE'
R0       EQU   0
R1       EQU   1
R3       EQU   3
R13      EQU   13
R14      EQU   14
R15      EQU   15
ASMSNAP  CSECT
ASMSNAP  AMODE 31
ASMSNAP  RMODE ANY
         PRINT   GEN
         STM   14,12,12(R13)
         LR    R3,R15
         USING ASMSNAP,R3
         LA    R1,REGSAVE
         ST    R13,4(,R1)
         LR    R13,R1
         WTO   'START OF ASMSNAP'
         LOAD  EP=HFZSNAP
         LTR   R15,R15
         BNZ   ERROR
         LR    R15,R0
         LA    R1,0
         CALL  (15)                CALL HFZSNAP
         WTO   'END OF ASMSNAP'
         SR    R15,R15             RC=0
         B     RETURN
ERROR    WTO   'ERROR LOADING HFZSNAP'
RETURN   L     R13,4(,R13)
         L     14,12(,R13)
         LM    R0,12,20(R13)
         BR    R14                 RETURN TO CALLER
         DROP  ,
REGSAVE  DS    18F
         LTORG
         END   ASMSNAP