.PROC,TRM180*I
.
.HELP
 The TRM180 procedure sequences NOS/VE termination processing.
.ENDHELP

.* *DSMTRM* SETS *R1G* TO 12B WHEN DUMPING.  IF A FAILURE OCCURS
.* WHILE DUMPING AND IT IS NOT A CPU ABORT IT IS ASSUMED TO BE A
.* FAILURE WRITING THE DUMP TAPE.  CONTROL IS RETURNED TO *DSMTRM*
.* UNTIL SUCCESSFULLY DUMPED, CPU ERROR OR THE OPERATOR DECIDES
.* TO BYPASS THE DUMP.

SET,R2=12B.
SET,EF=0.
WHILE,R2.EQ.12B.AND.EF.NE.CPE,RETRYDMP.
TERMNVE.
SET,R2=R1G.
ENDW,RETRYDMP.
TRMDUMP(TIME+)
REVERT.
EXIT.
REVERT,ABORT.
/EOR
