TITLE 'IEAVTMTR MEMORY TERMINATION REQUESTOR ' 00001000 IEAVTMTR CSECT , 0001 00002000 @MAINENT DS 0H 0001 00003000 USING *,@15 0001 00004000 B @PROLOG 0001 00005000 DC AL1(16) 0001 00006000 DC C'IEAVTMTR 73.201' 0001 00007000 DROP @15 00008000 @PROLOG STM @14,@12,12(@13) 0001 00009000 BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * REG0=REG1; /* PUT ASCB ADDRESS IN REG0 */ 00013000 LR REG0,REG1 0007 00014000 * REG1=MEMFLAGS; /* INDICATE MEMORY TERMINATION */ 00015000 L REG1,@CF00037 0008 00016000 * SVC(SVCABEND); /* INVOKE RTM2 */ 00017000 SVC 13 0009 00018000 * RETURN; 0010 00019000 @EL00001 DS 0H 0010 00020000 @EF00001 DS 0H 0010 00021000 @ER00001 LM @14,@12,12(@13) 0010 00022000 BR @14 0010 00023000 * END 0011 00024000 * 0011 00025000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00026000 */*%INCLUDE SYSLIB (MTRSPEC ) */ 00027000 */*%INCLUDE SYSLIB (MTRPATCH) */ 00028000 * 0011 00029000 * ; 0011 00030000 @DATA DS 0H 00031000 @DATD DSECT 00032000 DS 0F 00033000 IEAVTMTR CSECT 00034000 DS 0F 00035000 @CF00037 DC XL4'30000000' 00036000 @DATD DSECT 00037000 DS 0D 00038000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00039000 @ENDDATD EQU * 00040000 IEAVTMTR CSECT 00041000 DS 0F 00042000 @SIZDATD DC AL1(0) 00043000 DC AL3(@ENDDATD-@DATD) 00044000 DS 0D 00045000 MTRPATCH DS 5F 00046000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00047000 @01 EQU 01 00048000 @02 EQU 02 00049000 @03 EQU 03 00050000 @04 EQU 04 00051000 @05 EQU 05 00052000 @06 EQU 06 00053000 @07 EQU 07 00054000 @08 EQU 08 00055000 @09 EQU 09 00056000 @10 EQU 10 00057000 @11 EQU 11 00058000 @12 EQU 12 00059000 @13 EQU 13 00060000 @14 EQU 14 00061000 @15 EQU 15 00062000 REG0 EQU @00 00063000 REG1 EQU @01 00064000 @ENDDATA EQU * 00065000 END IEAVTMTR 00066000