ADR0 .EQU 05H
ADR1 .EQU 06H
ADR2 .EQU 07H
ADR3 .EQU 08H
CNTR0 .EQU 10H
ORG 0000H
VECTOR 00H, INT_9454
ORG 003CH
DB 00H
DB 00H
DB 0E7H ;允许低电平复位LVR=2.3V
DB 00H ;选用外部晶振4M
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ORG 0040H
;CODE_TABLE:DB 44H,46H,48H,4AH,4DH ;0-4度
; DB 4FH,51H,54H,56H,58H ;5-9度
; DB 5BH,5DH,60H,62H,64H ;10-14度
;
; LD R4, #00H
; LD R5, #3FH
;AD_FIND: INC R5
; LDC R10, @RR4
; CP R10, A_DATA
; JR ULT, AD_FIND
; SUB R10, #40H
; LD LED_D,R10
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ORG 0044H
CODE_TABLE:DB 0,0 ;44H-45H
DB 1,1 ;46H-47H
DB 2,2 ;48H-49H
DB 3,3,3 ;4AH-4BH-4CH
DB 4,4 ;4DH-4EH
DB 5,5 ;4FH-50H
DB 6,6,6 ;51H-52H-53H
DB 7,7 ;54H-55H
DB 8,8 ;56H-57H
DB 9,9,9 ;58H-59H-5AH
DB 10,10 ;5BH-5CH
DB 11,11,11 ;5DH-5EH-5FH
DB 12,12 ;60H-61H
DB 13,13,13 ;62H-63H-64H
DB 14,14 ;65H-66H
DB 15,15,15 ;67H-68H-69H
DB 16,16 ;6AH-6BH
DB 17,17 ;6CH-6DH
DB 18,18 ;6EH-6FH-70H
DB 19,19 ;71H-72H
ORG 0100H
RESET: DI
LD SP, #00C0H
LD BTCON, #10100010B
LD CLKCON,#00001000B ;允许外部晶振CPU分频 FOSC/8
CLR P0
CLR P1
CLR P2
LD P0CONL,#10101011B ;P0.0 AD输入转换
LD P0CONH,#10100000B ;P0.6 P0.7 推拉式输出,数码管1选通、数码管2选通
LD P1CON, #00001010B ;p0.0 p0.1输出
LD P2CONL,#00001010B ;p2.0 p2.1 P2.2 P2.3 推拉式输出 a b c d
LD P2CONH,#01001010B ;P2.4 P2.5 P2.6 推拉式输出 e f g
CLR R10
CLR R11
CLR R12
LD ADR0, #10 ;10*400us=4ms
LD T0DATA,#200
LD T0CON, #10001010B ;8/4*200=400us
LD R0, #0A0H
CLRRAM: CLR @R0
DEC R0
JR NZ, CLRRAM
CLR @R0
LD ADCON, #00000101B
AD_WAIT: TM ADCON, #00001000B
JR Z, AD_WAIT
LD A_DATA, ADDATAH
MAIN: EI
OR BTCON, #02H
CP A_DATA, #44H ;超出范围，报错
JR ULT, LED_W
CP A_DATA, #72H ;未定义
JR UGT, LED_W
LD R4, #00H
LD R5, A_DATA
LDC R10, @RR4
ADR10: LD CNTR0, @R10
XOR CRTL_R0, #04H
TM CRTL_R0, #04H
JR NZ, AD_H ;屏蔽低4位
AD_L: AND CNTR0, #0FH
LD ADR1, CNTR0
JR LED_
AD_H: AND CNTR0, #0F0H
LD ADR2, CNTR0
RCF
RL ADR2
RL ADR2
RL ADR2
RL ADR2
RCF
JR ADR10
LED_W: LD ADR1, #10
LD ADR2, #10
LED_: AND P0, #80H ;P0.7高电平，个位数码管停止
OR P0, 0BFH ;P0.6低电平，十位数码管选通
LD LED_D, ADR2
LED_0: LD R2, #0AH
LD R3, #LED_D
LDC R12, @RR2
LD P2, R12 ;十位数送给p2口
CALL T0_WAIT
XOR CRTL_R0, #02H
TM CRTL_R0, #02H
JR Z, LED_
AND P0, #7FH ; P0.7低电平，个位数码管选通
OR P0, #40H ; P0.6高电平，十位数码管停止
LD LED_D, ADR1
JR LED_0
T0_WAIT: TM CRTL_R0, #01H
JR Z, T0_WAIT
DEC ADR0
JR NZ, T0_WAIT
RET
ORG 0A00H
CODE_LED: DB 40H,7CH,24H,30H,19H,12H,02H,78H,00H,10H,06H
;"0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "E"
INT_9454: OR BTCON, #02H
TM T0CON, #01H
JR Z, INTRET
OR CRTL_R0,#01H
INTRET: IRET
.END
