*********************************************************
* Heure : Affichage d'une horloge géante sur l'écran de *
*         la pile                                       *
* Compatible HP48S(X)/HP48G(X)                          *
*********************************************************
	include	entries.i
AddEcran = $131f8

	con(5)	DOCOL

	con(5)	CLEARLCD
	con(5)	$04189		<41d>
	con(5)	SetSysFlag
	con(5)	$0CED9		ACTIVE INTERR
	con(5)	BEGIN
	con(5)	TOD		TIME
	con(5)	TOD>t$		TIME->STR

********************************
	con(5)	DOCODE
Code1	con(5)	Code2-Code1

	gosbvl	PopASavptr	recupere dans A l'adresse de la chaine

	a=a+12	a
	d1=a

	d0=(5)	AddEcran
	a=dat0	a
	d0=a
	a=dat0	a
	lc(5)	34*18
	a=a+c	a
	d0=a

	gosub	Aff
	d0=d0+	1
	d1=d1+	2
	gosub	Aff
	d0=d0+	1
	d1=d1+	2
	gosub	Aff

* affichage des : entre les chiffres

	ad0ex
	lc(5)	5*34+12
	a=a+c	a
	d0=a

	lc(2)	16
	la	$7777700000777777

Loop	dat0=a	1
	d0=d0+	11

	dat0=a	1
	d0=d0+	16
	d0=d0+	7

	asrc
	c=c-1	b
	gonc	Loop

	govlng	GETPTRLOOP

*************************************************************
* affichage des deux chiffres pointee par d1 a l'adresse d0 *

Aff	gosub	Aff1
Aff1	lc(5)	Graph0-Offset
	a=pc
Offset	a=a+c	a

	c=0	a
	c=dat1	b
	d1=d1+	2
	cbit=0	4
	cbit=0	5

	c=c+c	a	)
	c=c+c	a	)
	a=a+c	a	)
	c=c+c	a	) a=a+140*c
	a=a+c	a	)
	csl	a	)
	a=a+c	a	)

	ad1ex

	lc(2)	27
	b=c	b
Aff2	c=dat1	a
	dat0=c	a
	d1=d1+	5
	d0=d0+	16
	d0=d0+	16
	d0=d0+	2
	b=b-1	b
	gonc	Aff2

	ad1ex

	ad0ex
	lc(5)	34*28-5
	a=a-c	a
	d0=a

	rtn

* donnees pour les dessins des chiffres (20*28)
Graph0	hex	$08F000EF300FF708FFF0CFFF1CFFF1EFFF3
	hex	$EF8F3F70F7F30E7F30E7F10C7F10C7F10C7
	hex	$F10C7F10C7F10C7F10C7F30E7F30E7F70F3
	hex	$EF8F3EFFF1CFFF18FFF00FF700EF3008F00
Graph1	hex	$008700087000C7000C7000E7008F700FF70
	hex	$0FF700FF700FF700FF7000C7000C7000C70
	hex	$00C7000C7000C7000C7000C7000C7000C70
	hex	$00C7000C7000C7000C7000C7000C7000C70
Graph2	hex	$08F000EF308FF70CFFF0CFFF1EFFF1EF8F3
	hex	$E70F3E30F3E30F3E30F3E38F300CF100EF1
	hex	$00FF008F700CF300EF100FF008F700CF300
	hex	$EF100EFFF3EFFF3EFFF3EFFF3EFFF3EFFF3
Graph3	hex	$00F000CF300FF708FFF08FFF1CFFF3CF9F3
	hex	$CF0F3C70F3C70F3000F1008F100FF000F70
	hex	$00FF100FF3008F3000F7E70F7E70F7E70F7
	hex	$CF8F7CFFF3CFFF38FFF18FFF00FF700CF10
Graph4	hex	$00CF000EF000FF000FF008FF008FF00CFF0
	hex	$0EFF00EFF00FFF08FDF0CFCF0CFCF0E7CF0
	hex	$F3CF0F3CF0FFFF7FFFF7FFFF7FFFF7FFFF7
	hex	$00CF000CF000CF000CF000CF000CF000CF0
Graph5	hex	$CFFF3CFFF3CFFF3CFFF3CFFF3CFFF3CF100
	hex	$CF100CF100CFD30CFFF0CFFF1CFFF3CFFF3
	hex	$CF1F7CF0E7000E7000E7000E7000E7E70E7
	hex	$EF0F7EFFF7CFFF3CFFF38FFF10FFF00EF70
Graph6	hex	$08F300CFF00EFF10FFF30FFF38FFF78F1E7
	hex	$CF0C7CF000EFC30EFFF0EFFF1EFFF1EFFF3
	hex	$EF1F3EF0E7E70E7E70C7E70C7C70E7CF0E7
	hex	$CF1F78FFF38FFF30FFF10FFF10CFF000F30
Graph7	hex	$CFFF3CFFF3CFFF3CFFF3CFFF3CFFF3CFFF3
	hex	$008F3008F100CF100CF000EF000E7000E70
	hex	$00F3000F3008F1008F1008F100CF000CF00
	hex	$0EF000EF000EF000EF000EF000EF000EF00
Graph8	hex	$08F100EF700FFF08FFF1CFFF1EF0F3E70E3
	hex	$E70E3E70E3E70E3CF0F1CF9F18FFF08FFF0
	hex	$CFFF1EF8F3E70F3F30E7F30E7F30E7F30E7
	hex	$F70F7EFFF3EFFF3CFFF18FFF00FF700CF10
Graph9	hex	$08F100EF700FFF08FFF18FFF1CFFF3CF0F3
	hex	$E70E3E70E3E70E7E70E7E70E7EF0F7CF9F7
	hex	$CFFF78FFF78FFF70FFF70C7E3000E3C70E3
	hex	$C70F3CFCF1CFFF18FFF00FFF00EF7008F10
Code2
********************************
	con(5)	$04912		WAIT INTERR
	con(5)	GETTOUCH
	con(5)	UNTIL
	con(5)	DROP

	con(5)	SEMI