LCALL RESET   ;復位
   MOV A,#0CCH   ;跳過ROM
   LCALL WRITE
   MOV A,#0BEH    ;啟動轉(zhuǎn)換
   LCALL WRITE
   LCALL READ
   MOV A,3DH
   MOV 30H,A
   LCALL READ
   MOV A,3DH
   MOV 31H,A
   ;------------------------
   MOV 36H,#00H
   MOV 37H,#00H
   MOV 38H,#00H
   MOV 39H,#00H
   ;------------------
   ANL A,#00000111B
    MOV 36H,A
    MOV A,30H
    SWAP A
    ANL A,#00001111B
    MOV 37H,A
    MOV A,36H
    SWAP A
    MOV 41H,A
    MOV A,37H
    ADD A,41H
    MOV 41H,A
    MOV B,#10
    DIV AB
    MOV 46H,A
    MOV 47H,B
  
  
  
    MOV A,30H
    ANL A,#00001111B
    MOV 39H,A
    JNB ACC.3,JIN
    MOV A,38H
    ADD A,#50H
    MOV 38H,A
JIN:MOV A,39H
    JNB ACC.2,JIN1
     MOV A,38H
    ADD A,#25H
    MOV 38H,A
JIN1:MOV A,39H
     JNB ACC.1,JIN2
      MOV A,38H
    ADD A,#12H
    MOV 38H,A
JIN2: MOV A,39H
     JNB ACC.0,JIN3
      MOV A,38H
    ADD A,#06H
    MOV 38H,A

JIN3:
  MOV A,38H
  SWAP A
  ANL A,#00001111B
  MOV 38H,A
  SJMP $
   ;數(shù)據(jù)處理
RESET:  NOP
L0:     CLR     P1.4

        MOV     R2,#200
L1:     NOP
        DJNZ    R2,L1
        SETB    p1.4
        MOV     R2,#30
L4:     DJNZ    R2,L4
        CLR     C
        ORL     C,p1.4
        JC      L3
        MOV     R6,#80
L5:     ORL     C,p1.4
        JC      L3
        DJNZ    R6,L5
        SJMP    L0
L3:     MOV     R2,#250
L2:     DJNZ    R2,L2
        RET

WRITE:  MOV     R3,#8
WR1:    SETB    p1.4
        MOV     R4,#8
        RRC     A
        CLR     p1.4
WR2:    DJNZ    R4,WR2
        MOV     p1.4,C
        MOV     R4,#20
WR3:    DJNZ    R4,WR3
        DJNZ    R3,WR1
        SETB    p1.4
        RET

READ:   MOV     R6,#8
RE1:    CLR     p1.4
        MOV     R4,#6
        NOP
        SETB    p1.4
RE2:    DJNZ    R4,RE2
        MOV     C,p1.4
        RRC     A
        MOV     R5,#30
RE3:    DJNZ    R5,RE3
        DJNZ    R6,RE1
        MOV     3DH,A
        SETB    p1.4
        RET

END