SRDSUB.MAC;2/AU=SRDSUB.MAC;1
\
-/.IDENT/,.
	.IDENT	-6.3-		; 01-JUN-83
;
;  MODIFICATIONS:
;
;	CEF001 -- 1-June-83
;		ADD .PSECTS
;		MOVE data to front of code into SRDMON psect
;
%
-9,,/;CEF001/
	.PSECT	SRDMON,RW,D,LCL,REL,CON
	.NLIST	BEX
MONTHS:	.ASCII	\JAN\<-1>\FEB\<-1>\MAR\<-1>\APR\<-1>\MAY\<-1>\JUN\<-1>
	.ASCII	\JUL\<-1>\AUG\<-1>\SEP\<-1>\OCT\<-1>\NOV\<-1>\DEC\<-1>
	.LIST	BEX
	.BYTE	0
BLKPOS:	.BYTE				; POSITION OF FIRST SPACE
COLPOS:	.BYTE				; POSITION OF FIRST COLON
	.EVEN
	.PSECT	SRDCOD,I,RO,LCL,REL,CON
;
-67,74,/;CEF001/
/