Assembler program for use with the C/370 example

To use this example you must assemble the following program and linkedit it with the C/370™ program.

SR0T013 CSECT
SR0T013 AMODE 31
SR0T013 RMODE ANY
*
* Assembler assist routine to save contents of registers 0 through 13
* to the area pointed to by register 1.
*
REG0TO13  DS    0H
          ENTRY REG0TO13
* Get address of the save area
          L     15,0(,1)
* Save registers 0 to 13
          STM   0,13,0(15)
* Return to the caller
          BR    14
          END   SR0TO13