API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 9th, 2017
74
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
6502 ACME Cross Assembler 0.74 KB | None | 0 0
raw download clone embed print report
  1. $MOD842
  2.  
  3. ORG 00H
  4.     JMP RED
  5.  
  6. ORG 03H
  7.  
  8.     CPL P2.7
  9.     CPL P2.6
  10.     CALL DELAY
  11.    
  12.     CPL P2.6
  13.     CPL P2.4
  14.     CALL DELAY
  15.    
  16.     CPL P2.2
  17.     CALL DELAY
  18.    
  19.    
  20.     CPL F0
  21.     CALL DELAY
  22.     CALL DELAY
  23.     CALL DELAY
  24.     CALL DELAY
  25.     CALL DELAY
  26.     CALL DELAY
  27.     CALL DELAY
  28.     CALL DELAY
  29.     CPL F0
  30.     CPL P2.0
  31.    
  32.     CPL P2.2
  33.     CALL DELAY
  34.    
  35.    
  36.    
  37.    
  38.     CPL P2.6
  39.     CPL P2.4
  40.     CALL DELAY
  41.    
  42.     CPL P2.7
  43.     CPL P2.6
  44.     CALL DELAY
  45.    
  46. RETI
  47.  
  48. ORG 53H
  49.     JB F0,TEST1
  50.     RETI
  51.  
  52.    
  53. RED:
  54.     MOV IE, #81H
  55.    
  56.     MOV IEIP2, #0FFH
  57.     MOV INTVAL, #1
  58.     MOV TIMECON, #13H
  59.     MOV SEC, #0
  60.    
  61.     MOV P2, #10000100B
  62.     CALL DELAY
  63.    
  64.     JMP RED
  65.    
  66.    
  67. TEST1:
  68.     CPL P2.0
  69.     RETI
  70.    
  71.    
  72. DELAY:
  73.         MOV R1,#007h
  74.        
  75.     DLY0: MOV R2, #0FFh
  76.     DLY1: MOV R3, #0FFh
  77.         DJNZ R3,$
  78.         DJNZ R2,DLY1
  79.         DJNZ R1,DLY0
  80.         RET
  81.        
  82.    
  83.    
  84.    
  85. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!