DAC0832转换程序
扫描二维码
随时随地手机看文章
程序框图
程序
ORG 05E0H
05E0 758153 SE13: MOV SP,#53H
05E3 757E00 MOV 7EH,#00H
05E6 757D08 MOV 7DH,#08H
05E9 757C03 MOV 7CH,#03H
05EC 757B02 MOV 7BH,#02H ;显示缓冲区初值
05EF 7E00 LO20: MOV R6,#00H
05F1 90FFE0 LO21: MOV DPTR,#0FFE0H
05F4 EE MOV A,R6
05F5 F0 MOVX @DPTR,A; ;送0382转换
05F6 7879 MOV R0,#79H
05F8 120077 LCALL PTDS
05FB 7A10 MOV R2,#10H
05FD 120425 LO23: LCALL DIS ;显示
0600 DAFB DJNZ R2,LO23
0602 0E INC R6 ;加1
0603 BEFFEB CJNE R6, #0FFH,LO21 ;不到FF继续加
0606 90FFE0 LO22: MOV DPTR,#0FFE0H
0609 1E DEC R6
060A EE MOV A,R6
060B F0 MOVX @DPTR,A ;减1送0832转换
060C 7879 MOV R0,#79H
060E 120077 LCALL PTDS
0611 7A10 MOV R2,#10H
0613 120425 LO24: LCALL DIS ;显示
0616 DAFB DJNZ R2,LO24
0618 BE00EB CJNE R6,#00H,LO22 ;不为 0继续减
061B 80D2 SJMP LO20 ;循环
ORG 0077H
0077 F9 PTDS: MOV R1,A ;拆送缓冲区
0078 117C ACALL PTDS1
007A E9 MOV A,R1
007B C4 SWAP A
007C 540F PTDS1: ANL A,#0FH
007E F6 MOV @R0,A
007F 08 INC R0
0080 22 RET
ORG 0D59H
0D59 D2D4 SSEE: SETB RS1 ;换工作区
0D5B 7D05 MOV R5,#05H
0D5D 753020 SSE2: MOV 30H,#20H
0D60 75317E MOV 31H,#7EH
0D63 7F06 MOV R7,#06H
0D65 79DD SSE1: MOV R1,#0DDH
0D67 E530 MOV A,30H
0D69 F3 MOVX @R1,A ;字位送入
0D6A A831 MOV R0，31H
0D6C E6 MOV A，@R0
0D6D 900D85 MOV DPTR,#0DDFFH
0D70 93 MOVC A,@A+DPTR ;取字形代码
0D71 79DC MOV R1，#0DCH
0D73 F3 MOVX @R1,A ;字形送入
0D74 E530 MOV A，30H ;右移
0D76 03 RR A
0D77 F530 MOV 30H，A
0D79 1531 DEC 31H
0D7B 74FF MOV A，#0FFH
0D7D F3 MOVX @R1,A ;关显示
0D7E DFE5 DJNZ R7，SSE1 ;6位显示完了吗?
0D80 DDDB DJNZ R5，SSE2 ;5次显示完了吗?
0D82 C2D4 CLR RS1
0D84 22 RET
ORG 044FH
044F C0F9A4 LS0： DB 0C0H，0F9H，0A4H，0B0H，99H，92H
0452 B09992
0455 82F880 DB 82H，0F8H，80H，90H，88H，83H，0C6H
0458 908883
045B C6
045C A1868E DB 0A1H，86H，8EH，0FFH，0CH，
045F FF0C89 DB 89H，7FH，0BFH
0462 7FBF
ORG 0E2AH
0E2A C002 DELYA： PUSH 02H
0E2C C002 DELYB： PUSH 02H
0E2E C002 DELYC： PUSH 02H
0E30 DAFE DELYD： DJNZ R2，DELYD
0E32 120D59 LCALL，SSEE ;调显示子程序
0E35 D002 POP 02H
0E37 DAF5 DJNZ R2，DELYC
0E39 D002 POP 02H
0E3B DAEF DJNZ R2，DELYB
0E3D D002 POP 02H
0E3F DAE9 DJNZ R2，DELYA ;延时
0E41 22 RET
END
下载文档
