Advertisement
Guest User

Untitled

a guest
Jun 9th, 2017
68
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 03H
  7.    
  8.     CPL P2.4
  9.     CPL P2.2
  10.     CALL DELAY
  11.    
  12.     CPL P2.2
  13.     CPL P2.0
  14.     CALL DELAY
  15.    
  16.     CPL P2.7
  17.     CPL P2.6
  18.     SETB F0
  19.     CALL DELAY
  20.     JB F0,BW
  21. BW:
  22.     MOV IEIP2, #0FFH
  23.    
  24.     CPL F0
  25.     CALL DELAY
  26.     CALL DELAY
  27.     CALL DELAY
  28.     JNB F0,BY
  29. BY:
  30.     MOV IEIP2, #00H
  31.    
  32.     CPL P2.7
  33.     CPL P2.6
  34.     CALL DELAY
  35.    
  36.     CPL P2.2
  37.     CPL P2.0
  38.     CALL DELAY
  39.    
  40.     CPL P2.4
  41.     CPL P2.2
  42.     CALL DELAY
  43.     RETI
  44.    
  45. ORG 53H
  46.     CPL P2.6
  47.     RETI
  48.    
  49. START:
  50.     MOV IE,#81h
  51.     MOV INTVAL, #1
  52.     MOV TIMECON, #13H
  53.     MOV SEC, #0
  54.    
  55.     MOV P2,#90H
  56.     CALL DELAY
  57.     JMP START
  58.    
  59.    
  60.  
  61. DELAY:             
  62.         MOV R1,#50h
  63.  DLY0:      MOV R2,#050h   
  64.  DLY1:      MOV R3,#0FFh   
  65.         DJNZ    R3,$       
  66.         DJNZ    R2,DLY1        
  67.         DJNZ    R1,DLY0
  68.         RET        
  69.  
  70. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement