.TITLE	TDUMP
;
; MODIFICATION:
;
;	0115A -- OUTPUT PRE-AST STATUS CORRECTLY (MONSANTO PATCH)
;
	.IDENT	/0115A/

	.PSECT

.BLK.	= .

.	= .BLK.+176
	.RAD50	/STP/
.	= .BLK.+202
	.RAD50	/SPN/
.	= .BLK.+206
	.RAD50	/WFR/
	.WORD	0

.	= .BLK.+4414

	CALL	.GTSTS			;CALL CONVERSION ROUTINE (RAD50)

	.END