;*; Updated on 06-Dec-91 at 8:56 AM by Michele Tonti; edit time: 0:00:13
;*************************** AMUS Program Label ******************************
; Filename: RDATE.M68                                       Date: 12/6/91
; Category: SBR          Hash Code: 776-207-063-616      Version:                
; Initials: KUNI/AM      Name: RENE S. HOLLAN   
; Company: UDISCO LTD.                             Telephone #: 5144818107
; Related Files: 
; Min. Op. Sys.:                               Expertise Level: 
; Special: Replacement for RDATE.SBR that doesn't work with BASIC plus
; Description: Returns date to BASIC program.  It is called by XCALL RDATE,VAR
; where VAR is a floating point variable in decimal format that will accept
; mm/dd/yy input.
;*****************************************************************************
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	;
;									;	
;	DATE:		PROGRAM TO RETURN THE DATE TO A BASIC PROGRAM.	;
;		This is a direct replacement for RDATE which doesn't	;
;		work with BASIC Plus.					;
;									;
;	CALLED BY:	XCALL RDATE,VAR 				;
;									;
;			WHERE:	VAR is a floating point variable to	;
;				accept date in mm/dd/yy (decimal)	;
;				format.					;
;									;
;	AUTHOR:		RENE S. HOLLAN					;
;	DATE WRITTEN:	FEB. 11, 1990					;
;	LAST MODIFIED:	FEB. 11, 1990					;
;									;
;	COPYRIGHT (C) - UDISCO LTD.					;
;									;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Edit History
;
;[100]	11 February 1990
;	Coding starts. /RSH

	SEARCH	SYS			
	SEARCH	SYSSYM

	OBJNAM	RDATE.SBR

VMAJOR=1.
VMINOR=0.
VSUB=0.
VEDIT=100.

DATE:	PHDR	-1,,PH$REU!PH$REE
	GDATES	D1			; Get date in separated format
	MOV	#100.,D3		; D3 = multiplication factor

	MOV	D1,D0			; D0 = dd.mm.day.yy
	AND	#^H0FF,D0		; D0 =   /  /yy

	SWAP	D1			; D1 = day.yy.dd.mm
	MOV	D1,D2			; D2 = day.yy.dd.mm
	AND	#^H0FF,D2		; D2 =   /  /mm
	MUL	D2,D3			; D2 =   /mm/
	MUL	D2,D3			; D@ = mm/  /
	ADD	D2,D0			; D0 = mm/  /yy

	LSR	D1,#8.			; D1 = 00.day.yy.dd
	AND	#^H0FF,D1		; D1 =   /  /dd
	MUL	D1,D3			; D1 =   /dd/
	ADD	D1,D0			; D0 = mm/dd/yy

	MOV	4(A3),A2		; A2 -> destination FP number
	FLTOF	D0,@A2			; convert to floating point
	RTN

	END

.