河南理工大学微机原理课设--时钟

include stc10 h define uchar unsigned char define uint unsigned int sbit D1 P2 0 sbit D2 P2 1 sbit D3 P2 2 sbit D4 P2 3 sbit P0 5 P0 5 sbit P0 6 P0 6 sbit P0 7 P0 7 sbit P3 6 P3 6 sbit P3 7 P3 7 unsigned char DSY CODE 0 x3f 0 x06 0 x5b 0 x4f 0 x66 0 x6d 0 x7d 0 x07 0 x7f 0 x6f 0 x00 uchar time 0 0 0 0 uchar flag 0 flag1 flag2 0 num1 baojing 0 char fen scend 0 fen1 0 scend1 0 shi 1 shi1 void delay uchar mm while mm void delay2 unsigned int cnt unsigned char i for cnt 0 cnt for i 0 i 250 i 关闭 IAP 功能 void closeiap IAP CONTR 0 IAP CMD 0 IAP TRIG 0 IAP ADDRH 0 x80 IAP ADDRL 0 x00 IAP 读 unsigned char readiap unsigned int add unsigned char dat IAP CONTR 0 x82 0 x80 SYSCLK 30M 0 x81 SYSCLK 24M 0 x82 SYSCLK 20M 0 x83 SYSCLK 8 IAP ADDRL add 256 IAP TRIG 0 x5a IAP TRIG 0 xa5 IAP 命令生效 delay2 1 dat IAP DATA closeiap return dat IAP 写 void writeiap unsigned int add unsigned char dat IAP CONTR 0 x82 IAP CMD 0 x02 IAP ADDRH add 8 IAP ADDRL add 256 IAP DATA dat IAP TRIG 0 x5a IAP TRIG 0 xa5 IAP 命令生效 delay2 1 closeiap void deliap unsigned int add 擦除扇区 IAP CONTR 0 x82 IAP CMD 0 x03 0 无操作 1 读 2 写 3 删除 IAP ADDRH add 8 IAP ADDRL add 256 IAP TRIG 0 x5a IAP TRIG 0 xa5 delay2 1 closeiap void display uchar i for i 0 i 4 i P0 1 i if flag 0 else P1 DSY CODE time i delay 30 P1 0 x00 void keyscan void P0 0 xe0 P3 6 0 P3 7 1 if P0 5 0 delay 3 if P0 5 0 flag while P0 5 if P0 6 0 delay 3 if P0 6 0 if flag 1 shi if flag 3 shi1 deliap 0 x0000 writeiap 0 x0000 shi deliap 0 x0200 writeiap 0 x0200 shi1 while P0 6 if P0 7 0 delay 3 if P0 7 0 if flag 1 shi if flag 3 shi1 if flag 0 flag2 deliap 0 x0000 writeiap 0 x0000 shi deliap 0 x0200 writeiap 0 x0200 shi1 while P0 7 P0 0 xef P3 7 0 P3 6 1 if P0 5 0 delay 3 if P0 5 0 flag1 while P0 5 if P0 6 0 delay 3 if P0 6 0 if flag 1 fen if flag 2 scend if flag 3 fen1 if flag 4 scend1 deliap 0 x0400 writeiap 0 x0400 fen deliap 0 x0600 writeiap 0 x0600 fen1 deliap 0 x0800 writeiap 0 x0800 scend deliap 0 x0a00 writeiap 0 x0a00 scend1 while P0 6 if P0 7 0 delay 3 if P0 7 0 if flag 1 fen if flag 2 scend if flag 3 fen1 if flag 4 scend1 deliap 0 x0400 writeiap 0 x0400 fen deliap 0 x0600 writeiap 0 x0600 fen1 deliap 0 x0800 writeiap 0 x0800 scend deliap 0 x0a00 writeiap 0 x0a00 scend1 while P0 7 if flag 5 flag 0 if flag1 4 flag1 0 if flag2 2 flag2 0 if scend1 60 scend1 0 if scend1 0 scend1 59 if scend 60 scend 0 if scend 0 scend 59 if fen 60 fen 0 if fen 0 fen 59 if fen1 60 fen1 0 if fen1