INCLUDE PCMAC.INC
	.MODEL SMALL
	.586
	.STACK 100h

	.DATA
Msg1	DB	"Today is $"
day	DB	?
month	DB	?
wkday	DB	?
sun	DB	"Sunday, $"
mon	DB	"Monday, $"
tue	DB	"Tuesday, $"
wed	DB	"Wednesday, $"
thu	DB	"Thursday, $"
fri	DB	"Friday, $"
sat	DB	"Saturday, $"
	.CODE
	EXTERN PutDec:NEAR
jour	PROC
	_Begin
	_PutStr Msg1
	_GetDate
	mov day,dl
	mov month,dh
	mov wkday,al
	cmp wkday,0
	je sunday
	cmp wkday,1
	je monday
	cmp wkday,2
	je tuesday
	cmp wkday,3
	je wednesday
	cmp wkday,4
	je thursday
	cmp wkday,5
	je friday
	cmp wkday,6
	je saturday
back:	mov al, day
	mov ah,0
	call PutDec
	_PutCh '/'
	mov al, month
	mov ah, 0
	call PutDec
	_putCh '/'
	mov ax, cx
	call PutDec
	jmp finito
sunday: _PutStr sun
	jmp back
monday: _PutStr mon
	jmp back
tuesday: _PutStr tue
	jmp back
wednesday: _PutStr wed
	jmp back
thursday: _PutStr thu
	jmp back
friday: _PutStr fri
	jmp back
saturday: _PutStr sat
	jmp back	
finito:	_Exit    0
jour	ENDP
	END   jour