jun88888 

 那位大虾帮我看看我的AD，这样写行不行
那位大虾帮我看看我的AD，这样写行不行
那位大虾帮我看看我的AD，这样写行不行
 ORG 0000H
 LJMP INT00
        ORG 0030H
INT00:  MOV P1,#00H
        MOV 50H,#10          ;TIMER 0
        MOV 51H,#10          ;TIMER 1
        MOV 52H,#10          ;TIMER 2
        MOV 53H,#10          ;TIMER 3
        MOV 54H,#10          ;TIMER 4
        MOV 55H,#10          ;TIMER 5
        MOV 56H,#10          ;TIMER 6
        MOV 57H,#10          ;TIMER 7
   NEW: MOV R1,#50H          ;RSEULT START ADDRESS
        MOV R2,#08           ;RESULT  CONTOR
        MOV DPTR,#0FEF8H

MAIN  :MOV P1,#00000001B
       LCALL D4
       MOV P1,#00000011B
       LCALL D4
       MOV P1,#00000111B
       LCALL D4
       MOV P1,#00000110B
       LCALL D4
       MOV P1,#00000100B
       LCALL D4
       MOV P1,#00001000B
       LCALL D4
       MOV P1,#00010000B
       LCALL D1
       MOV P1,#00110000B
       LCALL D1
       MOV P1,#01110000B
       LCALL D1
       MOV P1,#00000000B
       LCALL D1

        MOV DPTR,#0FEF8H
     AD:MOVX @DPTR,A         ; START A/D
        ACALL D20MS
        MOVX A,@DPTR       ;REAE RESULT
        MOV @R1,A          ;SAVE RESULT
        INC R1            ;modfiy R1 ADRESS
        INC DPTR            ;NEXT CHANNEL
        DJNZ R2,AD      ;8 CHANNEL OVER?
        AJMP NEW

D1: MOV    30H, 57H
AA: MOV    31H, #100
BA: MOV    32H, #24
CA: DJNZ   32H, CA
    DJNZ   31H, BA
    DJNZ   30H, AA
    RET
   D2: MOV    33H, 52H
L000F: MOV    34H, #100
L000G: MOV    35H, #24
L000H: DJNZ   35H, L000H
       DJNZ   34H, L000G
       DJNZ   33H, L000F
           RET
   D3: MOV    38H, 51H
   L1: MOV    39H, #100
   L2: MOV    40H, #24
   L3: DJNZ   40H, L3
       DJNZ   39H, L2
       DJNZ   38H, L1
           RET
   D4: MOV    41H, 50H
   L4: MOV    42H, #100
   L5: MOV    43H, #24
   L6: DJNZ   43H, L6
       DJNZ   42H, L5
       DJNZ   41H, L4
          RET
 D20MS:MOV    36H, #5
  DL1: MOV    37H, #250
  DL2: DJNZ   37H, DL2
       DJNZ   36H, DL1
       RET

 


发表时间:2003年6月18日22:27:12