万年厉.asm

这是一个基于DS1302时间发生芯片和AT89C51单片机的万年历程序

L110: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
;============================
L111: JC L112
MOV A,R1
MOV R2,A
LJMP L109
;============================
L112: CJNE R3,#00H, L113
LJMP L114
;============================
L113: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L117
;============================
L109: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R6
JB ACC.0, L118
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
L118: JC L119
MOV A,R1
MOV R2,A
AJMP L120
;============================
L119: CJNE R3,#00H, L194
LJMP L195
;============================
L194: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
AJMP L109
;============================
L120: LCALL L71
CJNE A,#06H, L121
L129: MOV A,R4
ANL A,#0FH
JNZ L122
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
AJMP L123
;============================
L122: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
;============================
L123: JC L124
MOV A,R1
MOV R2,A
LJMP L121
;============================
L124: CJNE R3,#00H, L125
LJMP L126
;============================
L125: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L129
;============================
L121: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R5
JB ACC.6, L130
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
L130: JC L131
MOV A,R1
MOV R2,A
AJMP L132
;============================
L131: CJNE R3,#00H, L188
LJMP L189
;============================
L188: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
AJMP L121
;============================
L132: LCALL L71
CJNE A,#07H, L133
L141: MOV A,R4
ANL A,#0FH
JNZ L134
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
LJMP L135
;============================
L134: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
;============================
L135: JC L136
MOV A,R1
MOV R2,A
LJMP L133
;============================
L136: CJNE R3,#00H, L137
LJMP L138
;============================
L137: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L141
;============================
L133: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R5
JB ACC.5, L142
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
L142: JC L143
MOV A,R1
MOV R2,A
LJMP L144
;============================
L143: CJNE R3,#00H, L182
LJMP L183
;============================
L182: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L133
;============================
L144: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R5
JB ACC.4, L145
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
L145: JC L146
MOV A,R1
MOV R2,A
LJMP L147
;============================
L146: CJNE R3,#00H, L178
LJMP L179
;============================
L178: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L144
;============================
L147: LCALL L71
CJNE A,#09H, L148
L156: MOV A,R4
ANL A,#0FH
JNZ L149
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
LJMP L150
;============================
L149: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
;============================
L150: JC L151
MOV A,R1
MOV R2,A
LJMP L148
;============================
L151: CJNE R3,#00H, L152
LJMP L153
;============================
L152: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L156
;============================
L148: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R5
JB ACC.2, L157
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
L157: JC L158
MOV A,R1
MOV R2,A
LJMP L159
;============================
L158: CJNE R3,#00H, L172
LJMP L173
;============================
L172: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L148
;============================
L159: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R5
JB ACC.1, L160
MOV A,R2
CLR C
SUBB A,#1EH
MOV R1,A
L160: JC L161
MOV A,R1
MOV R2,A
LJMP L162
;============================
L161: CJNE R3,#00H, L168
LJMP L169
;============================
L168: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L159
;============================
L162: MOV A,R2
CLR C
SUBB A,#1DH
MOV R1,A
MOV A,R5
JB ACC.0, L163
CLR C
MOV A,R2
SUBB A,#1EH
MOV R1,A
L163: CJNE R3,#00H, L164
LJMP L165
;============================
L164: MOV A,R2
ADD A,R3
MOV R2,A
MOV R3,#00H
LJMP L162
;============================
L222: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#01H
CLR F0
LJMP L63
;============================
L218: CJNE R2,#00H, L219
MOV A,R6
MOV 56H,#29H
JB ACC.6, L220
MOV 56H,#30H
L220: MOV 57H,#01H
CLR F0
LJMP L63
;============================
L219: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#02H
CLR F0
LJMP L63
;============================
L77: CJNE R2,#00H, L78
MOV 56H,#29H
MOV A,R6
JB ACC.5, L79
MOV 56H,#30H
L79: MOV 57H,#02H
CLR F0
LJMP L63
;============================
L78: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#02H
SETB F0
LJMP L63
;============================
L212: CJNE R2,#00H, L213
LCALL L71
CJNE A,#02H, L214
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L215
MOV 56H,#30H
MOV 57H,#02H
SETB F0
LJMP L63
;============================
L215: MOV 57H,#02H
SETB F0
LJMP L63
;============================
L214: MOV 56H,#29H
MOV A,R6
JB ACC.5, L216
MOV 56H,#30H
L216: MOV 57H,#02H
CLR F0
LJMP L63
;============================
L213: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#03H
CLR F0
LJMP L63
;============================
L90: CJNE R2,#00H, L91
MOV 56H,#29H
MOV A,R6
JB ACC.4, L92
MOV 56H,#30H
L92: MOV 57H,#03H
CLR F0
LJMP L63
;============================
L91: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#03H
SETB F0
LJMP L63
;============================
L207: CJNE R2,#00H, L208
LCALL L71
CJNE A,#03H, L209
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L210
MOV 56H,#30H
MOV 57H,#03H
SETB F0
LJMP L63
;============================
L210: MOV 57H,#03H
SETB F0
LJMP L63
;============================
L209: MOV 56H,#29H
MOV A,R6
JB ACC.4, L205
MOV 56H,#30H
;============================
L205: MOV 57H,#03H
CLR F0
LJMP L63
;============================
L208: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#04H
CLR F0
LJMP L63
;============================
L102: CJNE R2,#00H, L103
MOV 56H,#29H
MOV A,R6
JB ACC.2, L104
MOV 56H,#30H
L104: MOV 57H,#04H
CLR F0
LJMP L63
;============================
L103: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#04H
SETB F0
LJMP L63
;============================
L201: CJNE R2,#00H, L202
LCALL L71
CJNE A,#04H, L203
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L204
MOV 56H,#30H
MOV 57H,#04H
SETB F0
LJMP L63
;============================
L204: MOV 57H,#04H
SETB F0
LJMP L63
;============================
L203: MOV 56H,#29H
MOV A,R6
JB ACC.2, L205
MOV 56H,#30H
MOV 57H,#04H
CLR F0
LJMP L63
;============================
L202: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#05H
CLR F0
LJMP L63
;============================
L114: CJNE R2,#00H, L115
MOV 56H,#29H
MOV A,R6
JB ACC.1, L116
MOV 56H,#30H
L116: MOV 57H,#05H
CLR F0
LJMP L63
;============================
L115: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#05H
SETB F0
LJMP L63
;============================
L195: CJNE R2,#00H, L196
LCALL L71
CJNE A,#05H, L197
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L198
MOV 56H,#30H
MOV 57H,#05H
SETB F0
LJMP L63
;============================
L198: MOV 57H,#05H
SETB F0
LJMP L63
;============================
L197: MOV 56H,#29H
MOV A,R6
JB ACC.1, L199
MOV 56H,#30H
L199: MOV 57H,#05H
CLR F0
LJMP L63
;============================
L196: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#06H
CLR F0
LJMP L63
;============================
L126: CJNE R2,#00H, L127
MOV 56H,#29H
MOV A,R6
JB ACC.0, L128
MOV 56H,#30H
L128: MOV 57H,#06H
CLR F0
LJMP L63
;============================
L127: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#06H
SETB F0
LJMP L63
;============================
L189: CJNE R2,#00H, L190
LCALL L71
CJNE A,#06H, L191
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L192
MOV 56H,#30H
MOV 57H,#06H
SETB F0
LJMP L63
;============================
L192: MOV 57H,#06H
SETB F0
LJMP L63
;============================
L191: MOV 56H,#29H
MOV A,R6
JB ACC.0, L193
MOV 56H,#30H
L193: MOV 57H,#06H
CLR F0
LJMP L63
;============================
L190: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#07H
CLR F0
LJMP L63
;============================
L138: CJNE R2,#00H, L139
MOV 56H,#29H
MOV A,R6
JB ACC.6, L140
MOV 56H,#30H
L140: MOV 57H,#07H
CLR F0
LJMP L63
;============================
L139: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#07H
SETB F0
LJMP L63
;============================
L183: CJNE R2,#00H, L184
LCALL L71
CJNE A,#07H, L185
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L186
MOV 56H,#30H
MOV 57H,#07H
SETB F0
LJMP L63
;============================
L186: MOV 57H,#07H
SETB F0
LJMP L63
;============================
L185: MOV 56H,#29H
MOV A,R6
JB ACC.6, L187
MOV 56H,#30H
L187: MOV 57H,#07H
CLR F0
LJMP L63
;============================
L184: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#08H
CLR F0
LJMP L63
;============================
L179: CJNE R2,#00H, L180
MOV 56H,#29H
MOV A,R5
JB ACC.5, L181
MOV 56H,#30H
L181: MOV 57H,#08H
CLR F0
LJMP L63
;============================
L180: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#09H
CLR F0
LJMP L63
;============================
L153: CJNE R2,#00H, L154
MOV 56H,#29H
MOV A,R5
JB ACC.4, L155
MOV 56H,#30H
L155: MOV 57H,#09H
CLR F0
LJMP L63
;============================
L154: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#09H
SETB F0
LJMP L63
;============================
L173: CJNE R2,#00H, L174
LCALL L71
CJNE A,#09H, L175
MOV 56H,#29H
MOV A,R4
ANL A,#0FH
JNZ L176
MOV 56H,#30H
MOV 57H,#09H
SETB F0
LJMP L63
;============================
L176: MOV 57H,#09H
SETB F0
LJMP L63
;============================
L175: MOV 56H,#29H
MOV A,R5
JB ACC.4, L177
MOV 56H,#30H
L177: MOV 57H,#09H
CLR F0
LJMP L63
;============================
L174: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#10H
CLR F0
LJMP L63
;============================
L169: CJNE R2,#00H, L170
MOV 56H,#29H
MOV A,R5
JB ACC.2, L171
MOV 56H,#30H
L171: MOV 57H,#10H
CLR F0
LJMP L63
;============================
L170: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#11H
CLR F0
LJMP L63
;============================
L165: CJNE R2,#00H, L166
MOV 56H,#29H
MOV A,R5
JB ACC.1, L167
MOV 56H,#30H
L167: MOV 57H,#11H
CLR F0
LJMP L63
;============================
L166: MOV A,R2
MOV R0,A
LCALL L80
MOV 56H,A
MOV 57H,#12H
CLR F0
LJMP L63
;============================
L63: MOV R0,57H
LCALL L10
MOV 52H,R1
MOV 53H,R2
MOV R0,56H
LCALL L10
MOV 50H,R1
MOV 51H,R2
RET
;============================
L71: MOV A,R4
SWAP A
ANL A,#0FH
RET
;============================
L80: MOV A,R0
MOV B,#0AH
DIV AB
SWAP A
ORL A,B
RET
;============================
L11: MOV 7EH,#02H
MOV 7DH,#00H
MOV R0,#76H
MOV R1,#70H
MOV R2,79H
MOV R3,#79H
MOV R5,#0FEH
L253: MOV A,#0FFH
MOV P2,A
MOV A,@R0
MOV DPTR,#0C26H
MOVC A,@A+DPTR
MOV SBUF,A
L246: JNB TI, L246
CLR TI
MOV A,@R1
MOV DPTR,#0C26H
MOVC A,@A+DPTR
MOV SBUF,A
L247: JNB TI, L247
CLR TI
MOV A,R2
MOV DPTR,#0C26H
MOVC A,@A+DPTR
MOV SBUF,A
L248: JNB TI, L248
CLR TI
INC R0
INC R1
INC R3
MOV A,R3
SETB RS1
MOV R0,A
MOV A,@R0
CLR RS1
MOV R2,A
MOV A,R0
CJNE A,#78H, L249
MOV R0,#50H
L249: CJNE A,#54H, L250
MOV R0,#78H
L250: MOV A,R5
MOV P2,A
LCALL L251
MOV A,R5
JNB ACC.6, L252
RL A
MOV R5,A
LJMP L253
;============================
L252: SETB P2.6
RET
;============================
L251: MOV R6,#14H
L255: MOV R7,#19H
L254: DJNZ R7,L254
DJNZ R6,L255
RET
;============================
DB 03H, 9FH, 25H, 0DH, 99H, 49H, 41H, 1FH
DB 01H, 09H, 0FFH, 23H, 15H, 51H, 00H, 17H
DB 11H, 52H, 41H, 2AH, 12H, 65H, 00H, 1FH
DB 11H, 32H, 00H, 15H, 42H, 52H, 21H, 27H
DB 52H, 25H, 00H, 1CH, 25H, 04H, 71H, 30H
DB 66H, 42H, 00H, 25H, 33H, 22H, 00H, 19H
DB 15H, 24H, 51H, 2CH, 05H, 52H, 00H, 21H
DB 22H, 65H, 00H, 16H, 21H, 25H, 41H, 28H
DB 24H, 52H, 00H, 1EH, 52H, 42H, 91H, 31H
DB 55H, 05H, 00H, 26H, 26H, 44H, 00H, 1BH
DB 53H, 50H, 60H, 2EH, 53H, 24H, 00H, 23H
DB 25H, 54H, 00H, 18H, 41H, 52H, 41H, 2AH
DB 45H, 25H, 00H, 1FH, 24H, 52H, 00H, 15H
DB 51H, 12H, 21H, 28H, 55H, 11H, 00H, 1CH
DB 26H, 21H, 61H, 2FH, 26H, 61H, 00H, 24H
DB 13H, 31H, 00H, 19H, 05H, 31H, 51H, 2BH
DB 12H, 54H, 00H, 21H, 51H, 25H, 00H, 16H
DB 42H, 25H, 31H, 29H, 32H, 22H, 00H, 1EH
DB 55H, 02H, 71H, 31H, 55H, 22H, 00H, 26H
DB 26H, 62H, 00H, 1BH, 13H, 64H, 60H, 2DH
DB 13H, 32H, 00H, 22H, 12H, 55H, 00H, 17H
DB 10H, 53H, 51H, 2AH, 22H, 45H, 00H, 1FH
DB 52H, 22H, 00H, 15H, 52H, 44H, 21H, 28H
DB 55H, 44H, 00H, 1DH, 26H, 50H, 71H, 2FH
DB 26H, 64H, 00H, 24H, 25H, 32H, 00H, 19H
DB 23H, 32H, 50H, 2CH, 44H, 55H, 00H, 20H
DB 24H, 45H, 00H, 16H, 55H, 11H, 30H
END