Advertisement
Guest User

Untitled

a guest
Jun 9th, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $MOD842
  2.  
  3. ORG 00H
  4.     JMP START
  5.  
  6. ORG 33H
  7.     MOV A, ADCDATAH
  8.     ANL A, #0Fh
  9.     RL A
  10.     RL A
  11.     RL A
  12.     RL A
  13.     MOV B, A
  14.     MOV A, ADCDATAL
  15.     ANL A, #0F0h
  16.     RR A
  17.     RR A
  18.     RR A
  19.     RR A
  20.     ORL A,B
  21.    
  22.     MOV B, #10
  23.     DIV AB
  24.     ANL B, #0Fh
  25.     MOV R0,B
  26.    
  27.     MOV B, #10
  28.     DIV AB
  29.     ANL B, #0Fh
  30.     ORL B, #10h
  31.     MOV R1, B
  32.    
  33.     ANL A, #0Fh
  34.     ORL A, #20h
  35.     MOV R2, A
  36.     RETI
  37.    
  38. START:
  39.     MOV IE,#0C0h
  40.     MOV ADCCON1,#82h
  41.     SETB TR2
  42.    
  43. PETLA:
  44.     MOV P2, R0
  45.     CALL DELAY
  46.     MOV P2, R1
  47.     CALL DELAY
  48.     MOV P2, R2
  49.     CALL DELAY
  50.     JMP PETLA      
  51.  
  52. DELAY:             
  53.         MOV R4,#10h
  54.  DLY0:      MOV R5,#10h
  55.  DLY1:      MOV R6,#10h
  56.         DJNZ    R6,$       
  57.         DJNZ    R5,DLY1        
  58.         DJNZ    R4,DLY0
  59.         RET
  60.        
  61. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement