API tools faq
paste
Guest User

Untitled

a guest
Apr 8th, 2018
85
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 0.31 KB | None | 0 0
raw download clone embed print report
  1.     ORG 0000H
  2.     LD  SP,0FFFFH
  3.  
  4. PPI1    EQU 37H
  5. PORTB1  EQU 35H
  6.  
  7.     LD  A,90H
  8.     OUT (PPI1),A
  9.  
  10. LOOP:   LD  A,0
  11.     OUT (PORTB1),A
  12.     CALL    TIMER1
  13.     LD  A,0FFH
  14.     OUT (PORTB1),A
  15.     CALL    TIMER1
  16.     JP  LOOP
  17.  
  18. TIMER1: LD  E,0AH  
  19. J50:    LD  B,0FFH
  20. J51:    LD  D,0FFH
  21. J52:    DEC D
  22.     JP  NZ,J52
  23.     DEC B
  24.     JP  NZ,J51
  25.     DEC E
  26.     JP  NZ,J50
  27.     RET
  28.  
  29.     END
Add Comment
Please, Sign In to add comment
Public Pastes
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!