万年历.asm

proteus仿真实例大全

TEMPER_L EQU 40H;用于保存读出温度的高8位
TEMPER_H EQU 41H;用于保存读出温度的低8位
FLAG1 EQU 42H;是否检测到DS18B20标志位
a_bit equ 43h ;数码管个位数存放内存位置
b_bit equ 44h ;数码管十位数存放内存位置
T_RST Bit P3.6 ;实时时钟复位线引脚
T_CLK Bit P3.4 ;实时时钟时钟线引脚
T_IO Bit P3.5 ;实时时钟数据线引脚
SECOND EQU 45H
MINUTE EQU 46H
HOUR EQU 47H
DAY EQU 48H
MONTH EQU 49H
WEEK EQU 4AH
YEARL EQU 4BH
CSA EQU p2.4
CSB EQU p2.3
rs  EQU P2.2
rw  EQU P2.1
E   EQU P2.0
COM     EQU 21H
DAT     EQU 22H
column  EQU 23H
pagef   EQU 24h
cpage   EQU 25H
ccolumn EQU 26H
codes   EQU 27h
column2 EQU 28H
pagef2  equ 29h
cpage2  EQU 2aH
ccolumn2 EQU 2bH
column3 EQU 2eH
pagef3  equ 2fh
cpage3  EQU 30H
ccolumn3 EQU 31H
column4 EQU 32H
pagef4  equ 33h
cpage4  EQU 34H
ccolumn4 EQU 35H
column5 EQU 36H
pagef5  equ 37h
cpage5  EQU 38H
ccolumn5 EQU 39H
      ORG 0
      LJMP START
      ORG 3
      LJMP XX0
      ORG 13H
      LJMP XX1
;*********************************************主程序开始
START:  MOV TMOD,#01H
        MOV TH0,#03CH   ;置定时器初值(定时50ms)
        MOV TL0,#0B0H
        SETB TR0        ;启动定时器0
        MOV SP,#60H     ;修改堆栈
        LCALL INT       ;调用初始化子程序
        LCALL CLEAR     ;调用清屏子程序

;*********************************************固定显示字符
mov column3,#48
mov pagef3,#0
mov codes,#8           ;年
lcall writeleft2
mov column4,#16
mov pagef4,#0
mov codes,#9          ;;;;;月
lcall writeright2
mov column4,#48
mov pagef4,#0             ;;;;;;日
mov codes,#10
lcall writeright2
mov column3,#0
mov pagef3,#2          ;;;星
mov codes,#11
lcall writeleft2
mov column3,#16
mov pagef3,#2        ;;;;;;期
mov codes,#12
lcall writeleft2
mov column4,#0
mov pagef4,#2     ;;;;;;  :
mov codes,#13
lcall writeright2
mov column4,#32
mov pagef4,#2
mov codes,#13      ;;;;;;  :
lcall writeright2
mov column4,#48
mov pagef4,#4
mov codes,#15     ;;;;;;;度
lcall writeright2
mov column,#16
mov pagef,#0
mov codes,#2           ;;;;;;;2
lcall writeleft
mov column,#24
mov pagef,#0
mov codes,#0        ;;;;;0
lcall writeleft
mov column4,#0
mov pagef4,#4
mov codes,#17       ;;;;;;;; 日
lcall writeright2
;************************** 笨小孩制作，860822
lcall a26
lcall a27
lcall a28
lcall a29
lcall a30
lcall a31
lcall a32
lcall a33
lcall a34
lcall a35
lcall a36
;*************************************************固定显示字符结束
        MOV DAY,#01H                ;初始日期设为08年1月1日星期一
        MOV MONTH,#01H
        MOV YEARL,#08H
        LCALL SETDS1302    ;设置DS1302初始时间
        LCALL GET1302      ;从DS1302读取时间
        LCALL DISPLAY     ;数码显示子程序
        MOV R3,#4        ;循环20次到一秒
        SETB EA
        SETB EX0
        setb IT0
        SETB EX1
        SETB IT1
LP1:    JNB P3.1 ,QQ0     ;当p3.1口为低电平时跳过读取时间子程序
        lJMP QQ2
QQ0:    MOV TH0,#03CH
        MOV TL0,#0B0H
        SETB TR0
        MOV 93H,#0
        LCALL NIU ;将调整后的时间放入时 分 秒 星期 年 月 日寄存器中
        LCALL SETDS1302    ;设置DS1302初始时间
        LCALL GET1302      ;从DS1302读取时间
        LCALL DISPLAY     ;用12864显示
QQ2:    JBC TF0,QQ1
        lJMP LP1
QQ1:    MOV TH0,#03CH
        MOV TL0,#0B0H
        LCALL GET1302                 ;每过50Ms从DS1302读取一次时间
        LCALL DISPLAY
;************************************节日控制程序开始，所有公历节日都能显示
MOV A,49H
CJNE A,#01H,ZZ0
MOV A,48H
CJNE A,#01H,VV0
MOV 71H,#19
LCALL A8
MOV 70H,#18
LCALL A7
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV0:CJNE A,#15H,SS0
MOV 70H,#20
LCALL A7
MOV 71H,#21
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
SS0:LCALL HAHA
LJMP QQQ
ZZ0:CJNE A,#02H,ZZ1
MOV A,48H
CJNE A,#14H,vv4
MOV 70H,#22
LCALL A7
MOV 71H,#23
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
vv4:CJNE A,#02H,vv5
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#55
LCALL A40
MOV 91H,#56
LCALL A41
LJMP QQQ
vv5:CJNE A,#10H,SS99
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#58
LCALL A40
MOV 91H,#59
LCALL A41
LJMP QQQ
SS99:LCALL HAHA
LJMP QQQ
YOU0:LJMP ZZ2
ZZ1:CJNE A,#03H,YOU0
MOV A,48H
CJNE A,#08H,VV6
MOV 70H,#24
LCALL A7
MOV 71H,#25
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV6:CJNE A,#01H,VV7
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#60
LCALL A40
MOV 91H,#61
LCALL A41
LJMP QQQ
VV7:CJNE A,#03H,VV8
MOV 70H,#62
LCALL A7
MOV 71H,#41
LCALL A8
MOV 92H,#63
LCALL A40
MOV 91H,#64
LCALL A41
LJMP QQQ
VV8:CJNE A,#05H,VV9
MOV 70H,#65
LCALL A7
MOV 71H,#66
LCALL A8
MOV 92H,#67
LCALL A40
MOV 91H,#68
LCALL A41
LJMP QQQ
VV9:CJNE A,#12H,VV10
MOV 70H,#69
LCALL A7
MOV 71H,#70
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV10:CJNE A,#14H,VV11
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#71
LCALL A40
MOV 91H,#72
LCALL A41
LJMP QQQ
VV11:CJNE A,#15H,VV12
MOV 70H,#73
LCALL A7
MOV 71H,#74
LCALL A8
MOV 92H,#75
LCALL A40
MOV 91H,#76
LCALL A41
LJMP QQQ
VV12:CJNE A,#17H,VV13
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#77
LCALL A40
MOV 91H,#60
LCALL A41
LJMP QQQ
VV13:CJNE A,#21H,VV14
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#78
LCALL A40
MOV 91H,#79
LCALL A41
LJMP QQQ
VV14:CJNE A,#22H,VV15
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#80
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV15:CJNE A,#23H,VV16
MOV 70H,#81
LCALL A7
MOV 71H,#82
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV16:CJNE A,#24H,VV17
MOV 70H,#83
LCALL A7
MOV 71H,#84
LCALL A8
MOV 92H,#85
LCALL A40
MOV 91H,#86
LCALL A41
LJMP QQQ
VV17:CJNE A,#25H,SS1
MOV 70H,#87
LCALL A7
MOV 71H,#62
LCALL A8
MOV 92H,#39
LCALL A40
MOV 91H,#88
LCALL A41
LJMP QQQ
SS1:LCALL HAHA
LJMP QQQ
YOU1:LJMP ZZ3
ZZ2:CJNE A,#04H,YOU1
MOV A,48H
CJNE A,#01H,VV1
MOV 70H,#26
LCALL A7
MOV 71H,#27
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV1:CJNE A,#04H,VV18
MOV 70H,#28
LCALL A7
MOV 71H,#29
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV18:CJNE A,#07H,VV19
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#89
LCALL A40
MOV 91H,#90
LCALL A41
LJMP QQQ
VV19:CJNE A,#22H,VV20
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#56
LCALL A40
MOV 91H,#91
LCALL A41
LJMP QQQ
VV20:CJNE A,#23H,SS2
MOV 70H,#92
LCALL A7
MOV 71H,#93
LCALL A8
MOV 92H,#94
LCALL A40
MOV 91H,#75
LCALL A41
LJMP QQQ
SS2:LCALL HAHA
LJMP QQQ
YOU2:LJMP ZZ4
ZZ3:CJNE A,#05H,YOU2
MOV A,48H
CJNE A,#01H,VV2
MOV 70H,#30
LCALL A7
MOV 71H,#31
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV2:CJNE A,#04H,VV3
MOV 70H,#32
LCALL A7
MOV 71H,#33
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV3:CJNE A,#11H,VV21
MOV 70H,#34
LCALL A7
MOV 71H,#35
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV21:CJNE A,#05H,VV22
MOV 70H,#95
LCALL A7
MOV 71H,#96
LCALL A8
MOV 92H,#83
LCALL A40
MOV 91H,#204
LCALL A41
LJMP QQQ
VV22:CJNE A,#08H,VV23
MOV 70H,#97
LCALL A7
MOV 71H,#98
LCALL A8
MOV 92H,#99
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV23:CJNE A,#12H,VV24
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#100
LCALL A40
MOV 91H,#101
LCALL A41
LJMP QQQ
VV24:CJNE A,#15H,VV25
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#102
LCALL A40
MOV 91H,#103
LCALL A41
LJMP QQQ
VV25:CJNE A,#17H,VV26
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#119
LCALL A40
MOV 91H,#120
LCALL A41
LJMP QQQ
VV26:CJNE A,#18H,VV27
MOV 70H,#62
LCALL A7
MOV 71H,#41
LCALL A8
MOV 92H,#121
LCALL A40
MOV 91H,#122
LCALL A41
LJMP QQQ
VV27:CJNE A,#20H,VV28
MOV 70H,#123
LCALL A7
MOV 71H,#90
LCALL A8
MOV 92H,#124
LCALL A40
MOV 91H,#125
LCALL A41
LJMP QQQ
VV28:CJNE A,#23H,VV29
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#126
LCALL A40
MOV 91H,#127
LCALL A41
LJMP QQQ
VV29:CJNE A,#31H,ss3
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#128
LCALL A40
MOV 91H,#129
LCALL A41
LJMP QQQ
SS3:LCALL HAHA
LJMP QQQ
YOU3:LJMP ZZ10
ZZ4:CJNE A,#06H,YOU3
MOV A,48H
CJNE A,#15H,VV30
MOV 70H,#36
LCALL A7
MOV 71H,#35
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV30:CJNE A,#01H,VV31
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#131
LCALL A40
MOV 91H,#132
LCALL A41
LJMP QQQ
VV31:CJNE A,#17H,VV32
MOV 70H,#83
LCALL A7
MOV 71H,#204
LCALL A8
MOV 92H,#133
LCALL A40
MOV 91H,#134
LCALL A41
LJMP QQQ
VV32:CJNE A,#23H,VV33
MOV 70H,#135
LCALL A7
MOV 71H,#79
LCALL A8
MOV 92H,#136
LCALL A40
MOV 91H,#137
LCALL A41
LJMP QQQ
VV33:CJNE A,#25H,VV34
MOV 70H,#62
LCALL A7
MOV 71H,#41
LCALL A8
MOV 92H,#138
LCALL A40
MOV 91H,#56
LCALL A41
LJMP QQQ
VV34:CJNE A,#26H,SS4
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#139
LCALL A40
MOV 91H,#140
LCALL A41
LJMP QQQ
SS4:LCALL HAHA
LJMP QQQ
YOU4:LJMP ZZ5
ZZ10:CJNE A,#07H,YOU4
MOV A,48H
CJNE A,#01H,VV35
MOV 70H,#141
LCALL A7
MOV 71H,#142
LCALL A8
MOV 92H,#106
LCALL A40
MOV 91H,#107
LCALL A41
LJMP QQQ
VV35:CJNE A,#02H,VV36
MOV 70H,#143
LCALL A7
MOV 71H,#88
LCALL A8
MOV 92H,#144
LCALL A40
MOV 91H,#145
LCALL A41
LJMP QQQ
VV36:CJNE A,#07H,VV37
MOV 70H,#146
LCALL A7
MOV 71H,#147
LCALL A8
MOV 92H,#67
LCALL A40
MOV 91H,#68
LCALL A41
LJMP QQQ
VV37:CJNE A,#11H,VV38
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#23
LCALL A40
MOV 91H,#148
LCALL A41
LJMP QQQ
VV38:CJNE A,#30H,SS10
MOV 70H,#149
LCALL A7
MOV 71H,#150
LCALL A8
MOV 92H,#24
LCALL A40
MOV 91H,#25
LCALL A41
LJMP QQQ
SS10:LCALL HAHA
LJMP QQQ
YOU5:LJMP ZZ6
ZZ5:CJNE A,#08H,YOU5
MOV A,48H
CJNE A,#01H,VV39
MOV 70H,#37
LCALL A7
MOV 71H,#38
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV39:CJNE A,#08H,VV40
MOV 70H,#153
LCALL A7
MOV 71H,#153
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV40:CJNE A,#15H,SS5
MOV 70H,#146
LCALL A7
MOV 71H,#147
LCALL A8
MOV 92H,#154
LCALL A40
MOV 91H,#155
LCALL A41
LJMP QQQ
SS5:LCALL HAHA
LJMP QQQ
YOU6:LJMP ZZ7
ZZ6:CJNE A,#09H,YOU6
MOV A,48H
CJNE A,#10H,VV41
MOV 70H,#39
LCALL A7
MOV 71H,#40
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV41:CJNE A,#08H,VV42
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#109
LCALL A40
MOV 91H,#110
LCALL A41
LJMP QQQ
VV42:CJNE A,#16H,VV43
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#111
LCALL A40
MOV 91H,#112
LCALL A41
LJMP QQQ
VV43:CJNE A,#20H,VV44
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#63
LCALL A40
MOV 91H,#113
LCALL A41
LJMP QQQ
VV44:CJNE A,#27H,VV45
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#114
LCALL A40
MOV 91H,#115
LCALL A41
LJMP QQQ
VV45:CJNE A,#28H,vv75
MOV 70H,#116
LCALL A7
MOV 71H,#117
LCALL A8
MOV 92H,#46
LCALL A40
MOV 91H,#90
LCALL A41
LJMP QQQ
VV75:CJNE A,#18H,ss6
LCALL A42
LCALL A43
LCALL A44
LCALL A45
MOV 92H,#205
LCALL A40
MOV 91H,#199
LCALL A41
LJMP QQQ
SS6:LCALL HAHA
LJMP QQQ
YOU7:LJMP ZZ8
ZZ7:CJNE A,#10H,YOU7
MOV A,48H
CJNE A,#01H,VV46
MOV 70H,#41
LCALL A7
MOV 71H,#42
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV46:CJNE A,#04H,VV47
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#31
LCALL A40
MOV 91H,#118
LCALL A41
LJMP QQQ
VV47:CJNE A,#06H,VV48
MOV 70H,#156
LCALL A7
MOV 71H,#23
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV48:CJNE A,#08H,VV49
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#157
LCALL A40
MOV 91H,#158
LCALL A41
LJMP QQQ
VV49:CJNE A,#09H,VV50
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#159
LCALL A40
MOV 91H,#160
LCALL A41
LJMP QQQ
VV50:CJNE A,#10H,VV51
MOV 70H,#161
LCALL A7
MOV 71H,#162
LCALL A8
MOV 92H,#163
LCALL A40
MOV 91H,#164
LCALL A41
LJMP QQQ
VV51:CJNE A,#13H,VV52
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#165
LCALL A40
MOV 91H,#166
LCALL A41
LJMP QQQ
VV52:CJNE A,#14H,VV53
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#167
LCALL A40
MOV 91H,#168
LCALL A41
LJMP QQQ
VV53:CJNE A,#15H,VV54
MOV 70H,#41
LCALL A7
MOV 71H,#57
LCALL A8
MOV 92H,#110
LCALL A40
MOV 91H,#23
LCALL A41
LJMP QQQ
VV54:CJNE A,#16H,VV55
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#169
LCALL A40
MOV 91H,#170
LCALL A41
LJMP QQQ
VV55:CJNE A,#17H,VV56
MOV 70H,#73
LCALL A7
MOV 71H,#171
LCALL A8
MOV 92H,#172
LCALL A40
MOV 91H,#173
LCALL A41
LJMP QQQ
VV56:CJNE A,#22H,VV57
MOV 70H,#174
LCALL A7
MOV 71H,#175
LCALL A8
MOV 92H,#176
LCALL A40
MOV 91H,#177
LCALL A41
LJMP QQQ
VV57:CJNE A,#24H,VV58
MOV 70H,#178
LCALL A7
MOV 71H,#179
LCALL A8
MOV 92H,#41
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV58:CJNE A,#31H,SS7
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#180
LCALL A40
MOV 91H,#181
LCALL A41
LJMP QQQ
SS7:LCALL HAHA
LJMP QQQ
YOU8:LJMP ZZ9
ZZ8:CJNE A,#11H,YOU8
MOV A,48H
CJNE A,#27H,VV59
MOV 70H,#43
LCALL A7
MOV 71H,#44
LCALL A8
MOV 92H,#210
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV59:CJNE A,#08H,VV60
MOV 70H,#182
LCALL A7
MOV 71H,#41
LCALL A8
MOV 92H,#144
LCALL A40
MOV 91H,#145
LCALL A41
LJMP QQQ
VV60:CJNE A,#09H,VV61
MOV 70H,#73
LCALL A7
MOV 71H,#83
LCALL A8
MOV 92H,#87
LCALL A40
MOV 91H,#62
LCALL A41
LJMP QQQ
VV61:CJNE A,#10H,VV62
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#32
LCALL A40
MOV 91H,#8
LCALL A41
LJMP QQQ
VV62:CJNE A,#14H,VV63
MOV 70H,#183
LCALL A7
MOV 71H,#184
LCALL A8
MOV 92H,#86
LCALL A40
MOV 91H,#210
LCALL A41
LJMP QQQ
VV63:CJNE A,#17H,VV64
MOV 70H,#53
LCALL A7
MOV 71H,#54
LCALL A8
MOV 92H,#123
LCALL A40
MOV 91H,#90
LCALL A41
LJMP QQQ
VV64:CJNE A,#20H,SS8
MOV 70H,#185