;*; 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
