ad.asm

本程序采用AT89C51单片机

        ORG 0000H
        LJMP SE11
        ORG 05A0H
SE11:   MOV SP,#53H                                                                  
        MOV P2,0FFH
        MOV A,#81H
        MOV DPTR,#0FF23H
        MOVX @DPTR,A
        MOV 7EH,#00H
        MOV 7DH,#08H
        MOV 7CH,#00H
        MOV 7BH,#09H
        MOV 7AH,#10H
        MOV 79H,#10H//     ；显示缓冲区初值
LO18:   LCALL SSEE//       ；显示
        MOV A,#00H
        MOV DPTR,#0FF80H
        MOVX @DPTR,A//     ；0809的0通道采样
        MOV R7,#0FFH//     ；延时
LO17:   DJNZ R7,LO17
        MOVX A,@DPTR//     ；取出采样值
        MOV R0,#79H
        LCALL PTDS 
        SJMP LO18//        ；采样值送显示缓冲区
        ORG 05D0H
PTDS:   MOV R1,A//         ；拆送显示缓冲区
        ACALL PTDS1
        MOV A,R1 
        SWAP A
PTDS1:  ANL A,#0FH
        MOV @R0,A
        INC R0
        RET
        ORG 0D50H
SSEE:   SETB RS1//         ；换工作区
        MOV R5,#05H
SSE2:   MOV 30H,#20H
        MOV 31H,#7EH
        MOV R7,#06H
SSE1:   MOV R1,#20H
        MOV A,30H
        CPL A
        MOVX @R1,A//       ；字位送入
        MOV R0,31H
        MOV A,@R0
        MOV DPTR,#DDFF
        MOVC A,@A+DPTR//   ；取字形代码
        MOV R1,#21H
        MOVX @R1,A//       ；字形送入
        MOV A,30H 
        RR A//             ；右移
        MOV 30H,A
        DEC 31H
        MOV A,#0FFH
        MOVX @R1,A//       ；关显示
        DJNZ R7,SSE1//     ；六位显示完了吗？
        DJNZ R5,SSE2//     ；5次显示完了吗？
        CLR RS1
        RET
DDFF:   DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
        DB 88H,83H,0C6H,0A1H,86H,8EH,0FFH,0CH,89H,0DEH
        END