adfinish.asm

AD转换程序

        ORG 0000H
        AJMP MAIN
        ORG 0013H
        AJMP  SERVE
        ORG 0030H
MAIN:   NOP
KEY:    MOV P1,#0FFH
        MOV A,P1
        CPL A
        JZ KEY
        LCALL DEL
        MOV A,P1
        CPL A
        JZ KEY
         MOV B,A
        MOV A,P1
        CPL A
        JB ACC.0,PKEY1
        JB ACC.1,PKEY2
        LJMP KEY
PKEY1:  MOV R3,#0      
        MOV P2,#01H
        MOV R1,#50H
        MOV R0,#00H
        SETB IT1
        SETB EA
        MOV DPTR,#7FFFH
        MOV A,R3
        MOVX @DPTR,A
        SETB EX1
        SJMP $
PKEY2:  MOV DPTR,#2FFFH ;设置入口地址
BB:     MOV P2,#01H
        MOV R1,#50H
        MOV R0,#00H
        MOVX A,@R0
        MOVX @DPTR,A
        INC R0
        DJNZ R1,BB
        AJMP MAIN
SERVE:  MOVX A,@DPTR
        MOVX @R0,A
        INC R0
        MOV DPTR,#7FFFH
        MOV A,R3
        MOVX @DPTR,A
        DJNZ R1,AA
        ;SJMP DONE
        SJMP MAIN
AA:     RETI
;DONE:   DEC R0
        ;MOV DPTR,#TAB
        ;MOVX A,@R0
        ;MOV B,A
        ;ANL A,#0FH
        ;MOVC A,@A+DPTR
        ;MOV SBUF,A
       ; JNB TI,$
        ;CLR TI
        ;MOV A,B
        ;SWAP A
        ;ANL A,#0FH
        ;MOVC A,@A+DPTR
       ; MOV SBUF,A
        ;JNB TI,$
        ;CLR TI
        ;MOV A,#0
        ;MOV SBUF,A
       ; JNB TI,$
        ;CLR TI
        ;MOV A,#0
        ;MOV SBUF,A
        ;JNB TI,$
        ;CLR TI
        ;SJMP $
DEL:    MOV R7,#10H
DS1:    MOV R6,#0FFH
DS2:    DJNZ R6,DS2
        DJNZ R7,DS1
        RET
;TAB:    DB 0BBH,09H,0EAH,6BH
        ;DB 59H,73H,0F3H,0BH
        ;DB 0FBH,7BH,0DBH,0F1H
        ;DB 0B2H,0E9H,0F2H,0D2H