/ SUBROUTINE DATUM IN SABR
/ SPEICHERT DIE DATUM-ZAHLEN IN IYR(I4), IDAY(I2) UND IMO(I2)
/ WIRD GERUFEN : CALL DATUM(IYR,IDAY,IMO)
	ENTRY DATUM
	DUMMY DA
	DUMMY DB
	DUMMY IYR
	DUMMY IDAY
	DUMMY IMO
IYR,	BLOCK 2
IDAY,	BLOCK 2
IMO,	BLOCK 2
	CPAGE 4
DA,	6211		/ CDF : CHANGE TO DATA FIELD 1
	7666
DB,	6201		/ CDF : CHANGE TO DATA FIELD 0
	7777
ENPT,	IYR
PNTR,	0
CNTR,	0
TEMP,	0
DATUM,	BLOCK 2
	TAD ENPT
	DCA PNTR
	TAD (-6
	DCA CNTR
A1,	TAD I DATUM
	INC DATUM#
	DCA I PNTR
	INC PNTR
	ISZ CNTR
	JMP A1
	TAD I DA
	DCA TEMP
	TAD TEMP
	AND (7
	DCA I IYR
	TAD TEMP
	RAR
	RTR
	AND (37
	DCA I IDAY
	TAD TEMP
	CLL RAL
	RTL
	RTL
	AND (17
	DCA I IMO
	TAD I DB
	RTR
	RTR
	AND (30
	TAD I IYR
	TAD (D1970
	DCA I IYR
	RETRN DATUM
	END