INCLUDE "MODEDEFS.BAS"
RST var PORTA.0
IO var PORTA.2
SCLK var PORTA.1
'**********************************************
AY var byte
GUN var byte
YIL var byte
SAAT var byte
DAKIKA var byte
SANIYE var byte
KONTROL var byte
'***********************************************
LOW RST
LOW SCLK
'***********************************************
BASLA
GOSUB OKU
LCDOUT $fe,1
LCDOUT HEX2 SAAT, ":", HEX2 DAKIKA, ":", HEX2 SANIYE
LCDOUT $fe, $c0
LCDOUT hex2 GUN, "/", hex2 AY, "/", HEX2 YIL
PAUSE 999
GOTO BASLA
'*************************************************
OKU
RST=1
SHIFTOUT IO, SCLK, LSBFIRST, [$bf ]
[COLOR="Blue"]SHIFTIN IO,SCLK,LSBPRE, [SANIYE, DAKIKA, SAAT, GUN, AY, [COLOR="Red"]KONTROL[/COLOR],YIL][/COLOR]
RST=0
RETURN
END