begin 664 DATE
M__\``0$`R-D``!Q`````````````````````````````````````````````
M`````````````````&1A=&4`````J1`@49!,2!"@`*T+W!`'*7_X&&D,V"!V
M$*`#K0K<('80H`:M"=P@=A"M"-RN`A`@79`LBQ!@JDI*2DH8:3"9BQ"**0]I
0,)F,$&`",#`Z,#`Z,#`-````
`
end

--8<--
; $VER: date 0.2 $
; © by Stefan Haubenthal 1997
; date(1) - without date :-7
.header "date"

_init:
	ldy	#0
	lda	56331
	bpl	+
	and	#%01111111
	sed
	clc
	adc	#12
	cld
+	jsr	bcd2asc
	ldy	#3
	lda	56330
	jsr	bcd2asc
	ldy	#6
	lda	56329
	jsr	bcd2asc
	lda	56328
	ldx	_base+2
	jsr	$905d
	bit	time
	rts

bcd2asc:
	tax
	lsr	a
	lsr	a
	lsr	a
	lsr	a
	clc
	adc	#"0"
	sta	time,y
	txa
	and	#$f
	adc	#"0"
	sta	time+1,y
	rts
	.endofcode

time:	.asc	"00:00:00\n\0"
--8<--