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