.ENABLE SUBSTITUTION

MAC S1D, S1D/-SP = S1D

	.IF <EXSTAT> <> <SUCCES> .GOTO PURGE

TKB @S1DBLD

.PURGE:

PUR S1D.*