完整的单片机驱动TFT彩屏的程序设计

单片机驱动TFT彩屏的程序设计

一种完整的复杂的单片机驱动TFT彩屏的程序设计。 同步显示有星期；温度；时间；遥控指示；以及强大的定时功能… 废话不多说，自已向下看吧… 显示效果图：

说明图：

电路图：

彩屏部分数据：（网上有资料，陶宝网上有买）

以下是汇编程序：

（本程序可直接复制使用，但请指明出处。）

本程序本人用时2. 5个月制作（当然是工作闲余的时候），本程序是本人为学习汇编而编写（为做到“入森而不迷”）。其已经做过实物测试，除时间不是十分精确外，其它都没有问题（因为问题已经解决了~~）。

遥控码数请参照程序中的以下两个子程序：

子程序1：遥控按键处理（码数这里面，很容易找的）

子程序2：遥控外部中断处理程序（遥控器不同码数长度也不一样，这里要注意）

;制作：王永宾

;QQ:794576441

;Email:wyb20090311@163.com

;---------------------------------------复制以下------------------------ ---------------------------------

;TFT彩屏程序(STC89C52) ;制作：王永宾

;QQ:794576441

;Email:wyb20090311@163.com LCDRS EQU P2.0 LCDRW EQU P2.1

LCDCS EQU P2.3

LCDRST EQU P2.4 ;------------------

SU00 EQU 30H ;时间字符的地址 2440（0-9） SU01 EQU 31H SU10 EQU 32H SU11 EQU 33H SU20 EQU 34H SU21 EQU 35H SU30 EQU 36H SU31 EQU 37H SU40 EQU 38H SU41 EQU 39H SU50 EQU 3AH SU51 EQU 3BH SU60 EQU 3CH SU61 EQU 3DH SU70 EQU 3EH SU71 EQU 3FH SU80 EQU 40H

SU81 EQU 41H SU90 EQU 42H SU91 EQU 43H

;--------时间寄存器定义---------- RR0 EQU 44H RR1 EQU 45H RR2 EQU 46H RR3 EQU 47H RR4 EQU 48H RR5 EQU 49H

RR6 EQU 4AH RR7 EQU 4BH

SUZR0 EQU 4DH ;星期?字符的地址（日-六） SUZR1 EQU 4EH SUZ10 EQU 4FH SUZ11 EQU 50H SUZ20 EQU 51H

SUZ21 EQU 52H SUZ30 EQU 53H SUZ31 EQU 54H SUZ40 EQU 55H SUZ41 EQU 56H SUZ50 EQU 57H SUZ51 EQU 58H SUZ60 EQU 59H SUZ61 EQU 5AH

WD1 EQU 5BH WD2 EQU 5CH WD3 EQU 5DH WD4 EQU 5EH

;-------星期?寄存器定义

------------

RR8 EQU 4CH

;定时字符的地址 1616（六-日） GUAN0 EQU 60H GUAN1 EQU 61H SL10 EQU 62H SL11 EQU 63H SL20 EQU 64H SL21 EQU 65H SL30 EQU 66H SL31 EQU 67H SL40 EQU 68H SL41 EQU 69H SL50 EQU 6AH SL51 EQU 6BH

SL60 EQU 6CH SL61 EQU 6DH SL70 EQU 6EH SL71 EQU 6FH

;--------定时寄存器定义---第一组-------

RA EQU 70H ;组

RAL0 EQU 71H ;时间

RAL1 EQU 72H RAL2 EQU 73H RAL3 EQU 74H RAR0 EQU 75H RAR1 EQU 76H RAR2 EQU 77H RAR3 EQU 78H

RA1 EQU 79H ;星期? RA2 EQU 7AH RA3 EQU 7BH

RA4 EQU 7CH RA5 EQU 7DH RA6 EQU 7EH RA7 EQU 7FH

;TFT彩屏程序(STC89C52) ;制作：王永宾

;QQ:794576441

;Email:wyb20090311@163.com

;=================================== ;===============开始00\\========== ORG 0000H

LJMP MAIN0 ORG 03H

LJMP ITT00 ;外部中断 ORG 0BH

RETI ;计时中断如果溢出直接

ORG 1BH

LJMP TI1 ;走时中断

;============主程序开始=================; ORG 20H MAIN0:

LCALL KAIJI

;开机初始化

LCALL CSH0 QINGPINGHAI0:

JB P3.7,$

MOV 24H,#00H ;R4 MOV 25H,#03FH ;R4 MOV 26H,#00H MOV 27H,#03FH MOV R3,#00H MOV R4,#00H

LCALL QINGPING QINGPINGHAI1:

JNB P3.7,QINGPINGRED0 JNB P3.6,QINGPINGEND AJMP QINGPINGHAI1

QINGPINGRED0: JB P3.7,$

MOV 24H,#0E0H ;R4 MOV 25H,#0FFH ;R4 MOV 26H,#0E0H MOV 27H,#0FFH MOV R3,#00H MOV R4,#0E0H LCALL QINGPING QINGPINGRED1:

JNB P3.7,QINGPINGLV0 JNB P3.6,QINGPINGEND AJMP QINGPINGRED1

QINGPINGLV0: JB P3.7,$

MOV R1,#00H MOV R2,#03H MOV R3,#10H MOV R4,#0B0H LCALL XML ;写命令 LCALL XSJ ;写数据

MOV R1,#00H MOV R2,#22H LCALL XML ;写命令 MOV 24H,#0C3H ;底 MOV 25H,#3FH ;字 MOV 26H,#0C3H ;底 MOV 27H,#3FH ;字 MOV R3,#00H MOV R4,#0C3H LCALL QINGPING

QINGPINGLV1:

JNB P3.7,QINGPINGHAI0 JNB P3.6,QINGPINGEND AJMP QINGPINGLV1

;========================= QINGPINGEND: MOV R1,#00H MOV R2,#22H LCALL XML ;写命令 LCALL GUDING ;固定字符 LCALL WINDU ;温度 LCALL YAOKONG ;遥控 LJMP XSU MAIN:

LCALL DINGSHISHU ;定时数 LCALL DINGSHIZU ;定时组 LCALL XPX ;星期几 LCALL SHIJIAN ;时间 LCALL WENDUCHULI LCALL WINDU ;温度 LCALL TIR0

SETB P2.5 ;-----完全相等---关闹 CLR P2.6 ;-----完全相等---关闹 MAIN1: CLR P2.7

LCALL SHIJIAN ;时间

;底

LCALL JP0 ;键盘

;遥控处理

LCALL POWER

;----------------------

MOV A,2CH

CJNE A,RR3,MAIN2 ;RR3为分计 LJMP MAIN3 ;定义十秒锺扫一次温度 MAIN2:

MOV 2CH,RR3

LCALL WENDUCHULI ;温度处理 LCALL WINDU ;温度

MAIN3:

MOV A,RR0 ;分有变动就扫描定时 CJNE A,RR4,MAIN4 ;RR4为分 LJMP MAIN1 MAIN4:

MOV RR0,RR4

LCALL BIJIAO ;定时比较

LJMP MAIN1

;=============温度处理====================== WENDUCHULI: LCALL WENDUXS MOV A,21H MOV R0,#20H XCHD A,@R0 ANL A,#0FH

;读写子程序

MOV 21H,A

MOV A,20H SWAP A

;21H小数处理

;20整数处理

MOV 20H,A

JB 07H,WENDUCHULI1;是负数转 MOV WD4,26H ;清除负数标示

LCALL WENDUCHULI0 ;写整数个位 MOV WD2,A

LCALL WENDUCHULI0 ;写整数十位 MOV WD1,A

MOV A,21H ;写小数位 MOV B,#02 DIV AB MOV B,A ADD A,B ADD A,#30H

MOV WD3,A ;写小数位 RET

WENDUCHULI1:;负数处理..... MOV WD4,27H ;负数标示 MOV A,20H ;20整数处理 CPL A ;取反 ANL A,#7FH ;清负数位 INC A ;加一

MOV 20H,A ;20整数处理

MOV A,21H ;21H小数处理 CPL A ;取反 ANL A,#0FH ;清除高位 INC A ;加一

MOV 21H,A ;21H小数处理

LCALL WENDUCHULI0 ;写整数个位 MOV WD2,A

LCALL WENDUCHULI0 ;写整数十位 MOV WD1,A MOV A,21H

;写小数位

MOV B,#02 DIV AB MOV B,A ADD A,B ADD A,#30H

MOV WD3,A ;写小数位 RET

;------------整数写子程序-------- WENDUCHULI0:

MOV A,20H ;整数写子程序 MOV B,#10 DIV AB

MOV 20H,A MOV A,B ADD A,B

ADD A,#30H ;整数写子程序 RET

;======写数据=========

WENDUXS:

LCALL WENDURST

JB 70H,WENDUXS1 ;检复位成功了转 RET

WENDUXS1:

MOV A,#0CCH ;跳过ROM LCALL WENDUXS_B

MOV A,#44H

LCALL WENDUXS_B ;RAM温度转换 MOV R4,#50 D1: ;等待750uS转换完成 MOV R5,#13 DJNZ R5,$ DJNZ R6,D1

;======读数据============== LCALL WENDURST

JB 70H,WENDUDS1 ;检复位成功了转 RET

WENDUDS1:

MOV A,#0CCH ;跳过ROM LCALL WENDUXS_B

MOV A,#0BEH ;读RAM LCALL WENDUXS_B LCALL WENDUDX_B RET

;-----读数子程序----------- WENDUDX_B: MOV R0,#20H MOV R4,#02 WENDUDX_B0: MOV R5,#08H WENDUDX_B1: CLR C SETB P3.3 NOP NOP NOP NOP

CLR P3.3 NOP NOP NOP NOP NOP

NOP

SETB P3.3 MOV R6,#18

DJNZ R6,$ ;13uS MOV C,P3.3 MOV R6,#46 DJNZ R6,$ RRC A

;调读子程序

DJNZ R5,WENDUDX_B1 MOV @R0,A INC R0

DJNZ R4,WENDUDX_B0 RET

;====写数据子程序====== WENDUXS_B: MOV R5,#08H CLR C

WENDUXS_B0: CLR P3.3 MOV R6,#12 DJNZ R6,$ RRC A

MOV P3.3,C MOV R6,#49 DJNZ R6,$ SETB P3.3 NOP NOP

DJNZ R5,WENDUXS_B0 SETB P3.3 RET

;===========18B20初始化子程序=============== WENDURST: SETB P3.3 NOP NOP

CLR P3.3 MOV R5,#255 WENDURST1:

;复位低电时间510uS

NOP NOP

DJNZ R5,WENDURST1;复位低电时间510uS SETB P3.3

MOV R5,#60 ;等待检测存在脉冲15uS DJNZ R5,$ ;等待检测存在脉冲15uS

JNB P3.3,WENDURSTOK ;有存在脉冲转

CLR 70H ;无存在脉冲清除标号

RET WENDURSTOK: MOV R5,#180 ;测存在脉冲240uS DJNZ R5,$

SETB 70H ;有存在脉冲打上标号 SETB P3.3 RET

;============遥控按键处理========================== POWER: MOV A,5FH

CJNE A,#0B7H,POWER1 LCALL YAOKONG1 MOV 5FH,#00H RET

POWER1:

MOV A,5FH

CJNE A,#0A7H,POWER2 LCALL YAOKONG2 MOV 5FH,#00H RET

POWER2: MOV A,5FH

CJNE A,#97H,POWER3 LCALL YAOKONG3 MOV 5FH,#00H RET

POWER3: MOV A,5FH

CJNE A,#0FH,POWER4 LCALL YAOKONG4 MOV 5FH,#00H RET

POWER4:

MOV A,5FH

CJNE A,#0C7H,POWER5 LCALL YAOKONG5 MOV 5FH,#00H RET

POWER5: MOV A,5FH

CJNE A,#4FH,POWER6 LCALL YAOKONG6 MOV 5FH,#00H RET

POWER6: MOV A,5FH

CJNE A,#0E7H,POWER7 LCALL YAOKONG7 MOV 5FH,#00H RET

POWER7: MOV A,5FH

CJNE A,#27H,POWER8 LCALL YAOKONG8 MOV 5FH,#00H RET

POWER8: MOV A,5FH

CJNE A,#0D7H,POWER9 LCALL YAOKONG9 MOV 5FH,#00H RET

POWER9:

MOV A,5FH

CJNE A,#47H,POWER0 LCALL YAOKONG0 MOV 5FH,#00H POWER0: RET

;====================================== ;=========定时比较==================== BIJIAO: BJ0:

MOV A,RR8

CJNE A,#4DH,BJ1 MOV R1,#1EH MOV R0,#10H LCALL BJ00 RET

BJ1:

CJNE A,#4FH,BJ2 MOV R1,#18H MOV R0,#10H LCALL BJ00 RET BJ2:

CJNE A,#51H,BJ3 MOV R1,#19H MOV R0,#10H LCALL BJ00 RET BJ3:

CJNE A,#53H,BJ4 MOV R1,#1AH MOV R0,#10H LCALL BJ00 RET BJ4:

CJNE A,#55H,BJ5 MOV R1,#1BH MOV R0,#10H LCALL BJ00 RET

;今天星期一吗?

BJ5:

CJNE A,#57H,BJ6 MOV R1,#1CH MOV R0,#10H LCALL BJ00 RET BJ6:

CJNE A,#59H,BJ7 MOV R1,#1DH

MOV R0,#10H LCALL BJ00 RET BJ7:

LJMP BIJIAO

;========================= BJ00: ;是的 MOV R5,#08H BJ001:

MOVX A,@R1 CJNE A,#60H,BJ01 BJ003: MOV A,R1 ADD A,#10H MOV R1,A MOV A,R0 ADD A,#10H MOV R0,A DJNZ R5,BJ001 RET

BJ01:

LCALL BJBRAL INC R0 INC R0 INC R0

;第一组的星期一\\开了吗?

;调比较程序

INC R0

LCALL BJBRAR ;调比较程序 DEC R0 DEC R0 DEC R0 DEC R0 LJMP BJ003

;----------子程序------------- BJBRAL:

PUSH 00H MOVX A,@R0

CJNE A,RR7,BJRALRET ;RAL0=RR7?,不等返回 INC R0

MOVX A,@R0

CJNE A,RR6,BJRALRET ;RAL1=RR6?,不等返回 INC R0

MOVX A,@R0

CJNE A,RR5,BJRALRET

;RAL2=RR5?,不等返回

INC R0

MOVX A,@R0

CJNE A,RR4,BJRALRET ;RAL3=RR4?,不等返回 CLR P2.5 ;-----完全相等---开闹 SETB P2.6 ;-----完全相等---开闹

LJMP BJRALRET BJBRAR: PUSH 00H MOVX A,@R0

CJNE A,RR7,BJRALRET ;RAL0=RR7?,不等返回 INC R0

MOVX A,@R0

CJNE A,RR6,BJRALRET ;RAL1=RR6?,不等返回 INC R0

MOVX A,@R0

CJNE A,RR5,BJRALRET ;RAL2=RR5?,不等返回 INC R0

MOVX A,@R0

CJNE A,RR4,BJRALRET ;RAL3=RR4?,不等返回 SETB P2.5 CLR P2.6

;-----完全相等---关闹 ;-----完全相等---关闹

BJRALRET: POP 00H RET

;======================================== ;=======键盘======================== JP0:

SETB P3.4 SETB P3.5 SETB P3.6 SETB P3.7 JP:

JNB P3.4,JP1 ;TEST第一次检查 JNB P3.5,JP2 ;ALTEST第一次检查 JNB P3.6,SNOOZE RET ;返回MAIN JP1: ;TEST第二次检查 LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.4,JP1 LJMP TESET JP2: ;ALTEST第二次检查 LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.5,JP2 LJMP ALSET

SNOOZE: ;ALTEST第二次检查 LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.5,SNOOZE SETB P2.5 CLR P2.6 RET

;-------TEST处理地址--------------- TESET: ;TEST处理地址 LCALL SHIJIAN ;显示时间

JNB P3.4,TESET TESET1:

MOV R3,#70H ;选定 LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.5,XQ0 ;转星期? JNB P3.6,HR0 ;转时 JNB P3.7,MIN0 ;转分 JNB P3.4,TESETO ;转返回 LJMP TESET1 ;重复检查 XQ0: ;星期?二次检查 LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.5,XQ0 LJMP XQ HR0: ;时二次检查 LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.6,HR LJMP TESET1 MIN0: ;分二次检查

LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.7,MIN LJMP TESET1 TESETO:

;返回二次检查

MOV R3,#00H

LCALL SHIJIAN ;显示时间 LCALL XPX ;显示星期几 JNB P3.4,TESETO LJMP RES XQ: ;星期?处理程序 INC RR8 INC RR8

LCALL XQCJM

LJMP TESET1 HR: ;时处理程序 INC RR6 INC RR6

LCALL HRCJM LJMP TESET1 MIN: ;分处理程序 INC RR4 INC RR4

LCALL MINCJM LJMP TESET1

RES:

MOV R3,#00H ;取消选定 RET ;返回MAIN

;------ALTEST处理地址--------------- ALSET: ;ALTEST处理地址 LCALL SHIJIAN LCALL XPX

JNB P3.5,ALSET ALSET1:

MOV R3,#00H LCALL SHIJIAN LCALL XPX MOV R3,#70H MOV 05H,#70H LCALL XRXS

LCALL DINGSHISHU LCALL DINGSHIZU

JNB P3.5,ALSETO

JNB P3.4,ALSETRRLL00 JNB P3.6,XQZURRLL LJMP ALSET1 XQZURRLL:

LJMP XQZURRLL00

ALSETO: ;返回二次检查

MOV RA,#62H

LJMP XQZURRLL01

;---------------------- 一 -------------

XQZURRLL10: LCALL SS50mS

JNB P3.6,XQZURRLL10;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定

XQZURRLL11:

JNB P3.7,XQZUADD10;按加键加

JNB P3.6,XQZURRLL20 ;按RRLL换下一个或返回；================= MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU2 ;选定要调的颜色 LJMP XQZURRLL11 ;循环

XQZUADD10:

JNB P3.7,XQZUADD10 ;加键有用吗? XQZUADD11: ;有用加一次 LCALL DINGSHIZU2 MOV A,#62H

CJNE A,RA1,FG10 MOV RA1,#60H

LJMP XQZURRLL11 FG10:

MOV RA1,#62H

LJMP XQZURRLL11 ;--------------- 二 XQZURRLL20:

LCALL SS50mS

JNB P3.6,XQZURRLL20;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定

XQZURRLL21:

JNB P3.7,XQZUADD20;按加键加

JNB P3.6,XQZURRLL30 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色

LCALL DINGSHIZU3 ;选定要调的颜色 LJMP XQZURRLL21 ;循环

;--------

XQZUADD20:

JNB P3.7,XQZUADD20 ;加键有用吗? XQZUADD21: ;有用加一次 LCALL DINGSHIZU3 MOV A,#64H

CJNE A,RA2,XQZURRLL210 MOV RA2,#60H

LJMP XQZURRLL21 XQZURRLL210: MOV RA2,#64H

LJMP XQZURRLL21 ;--------------- 三

XQZURRLL30: LCALL SS50mS

JNB P3.6,XQZURRLL30;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定

XQZURRLL31:

JNB P3.7,XQZUADD30;按加键加

JNB P3.6,XQZURRLL40 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU4 ;选定要调的颜色 LJMP XQZURRLL31 ;循环

XQZUADD30:

JNB P3.7,XQZUADD30 ;加键有用吗? XQZUADD31: ;有用加一次 LCALL DINGSHIZU4 MOV A,#66H

CJNE A,RA3,XQZURRLL310 MOV RA3,#60H

LJMP XQZURRLL31 XQZURRLL310: MOV RA3,#66H

LJMP XQZURRLL31 ;--------------- 四

XQZURRLL40:

LCALL SS50mS

JNB P3.6,XQZURRLL40;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定

XQZURRLL41:

JNB P3.7,XQZUADD40;按加键加

JNB P3.6,XQZURRLL50 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU5 ;选定要调的颜色 LJMP XQZURRLL41 ;循环

XQZUADD40:

JNB P3.7,XQZUADD40 ;加键有用吗? XQZUADD41: ;有用加一次 LCALL DINGSHIZU5 MOV A,#68H

CJNE A,RA4,XQZURRLL410 MOV RA4,#60H

LJMP XQZURRLL41 XQZURRLL410: MOV RA4,#68H

LJMP XQZURRLL41 ;--------------- 五

XQZURRLL50: LCALL SS50mS

JNB P3.6,XQZURRLL50;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定 XQZURRLL51:

JNB P3.7,XQZUADD50;按加键加

JNB P3.6,XQZURRLL60 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU6 ;选定要调的颜色 LJMP XQZURRLL51 ;循环

XQZUADD50:

JNB P3.7,XQZUADD50 ;加键有用吗? XQZUADD51: ;有用加一次 LCALL DINGSHIZU6

MOV A,#6AH

CJNE A,RA5,XQZURRLL510 MOV RA5,#60H

LJMP XQZURRLL51 XQZURRLL510: MOV RA5,#6AH

LJMP XQZURRLL51 ;--------------- 六

XQZURRLL60: LCALL SS50mS

JNB P3.6,XQZURRLL60;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定

XQZURRLL61:

JNB P3.7,XQZUADD60;按加键加

JNB P3.6,XQZURRLL70 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU7 ;选定要调的颜色 LJMP XQZURRLL61 ;循环 XQZUADD60:

JNB P3.7,XQZUADD60 XQZUADD61:

;加键有用吗?

;有用加一次

LCALL DINGSHIZU7 MOV A,#6CH

CJNE A,RA6,XQZURRLL610 MOV RA6,#60H

LJMP XQZURRLL61 XQZURRLL610: MOV RA6,#6CH

LJMP XQZURRLL61 ;--------------- 日

XQZURRLL70: LCALL SS50mS

JNB P3.6,XQZURRLL70;如果为0(不放键)等待 MOV 05H,#00H

LCALL DINGSHIZU;清除全部颜色选定 XQZURRLL71:

JNB P3.7,XQZUADD70;按加键加

JNB P3.6,XQZURRLL80 ;按RRLL换下一个或返回；== MOV 05H,#70H ;选定要调的颜色 LCALL DINGSHIZU8 ;选定要调的颜色 LJMP XQZURRLL71 ;循环

XQZURRLL80: LCALL BCXH LJMP ALSET1 XQZUADD70:

JNB P3.7,XQZUADD70 ;加键有用吗? XQZUADD71: ;有用加一次 LCALL DINGSHIZU8

MOV A,#6EH

CJNE A,RA7,XQZURRLL710 MOV RA7,#60H

LJMP XQZURRLL71 XQZURRLL710: MOV RA7,#6EH

LJMP XQZURRLL71

;++++++++++++写入显示++++++++++++ XRXS:

MOV A,#62H

CJNE A,RA,XRXS1 MOV DPTR,#10H LCALL XRXSB RET

XRXS1:

MOV A,#64H

CJNE A,RA,XRXS2 MOV DPTR,#20H LCALL XRXSB RET

XRXS2:

MOV A,#66H

CJNE A,RA,XRXS3 MOV DPTR,#30H LCALL XRXSB

本文来源：https://www.bwwdw.com/article/2wig.html