Author: Dylan Language: z80
Description: Not specified Timestamp: 2017-09-18 19:40:37 +0000
View raw paste Reply
  1. .include "m328def.inc"
  2. .org 0x0000
  3.            RJMP begin                                   ; jump to begin  
  4. .org 0x0034
  5.  begin:    CLI
  6.            1/>LDI    R16,low(RAMEND)
  7.          1/>OUT    SPL,R16
  8.            1/>LDI     R16,high(RAMEND)
  9.          1/>OUT    SPH, R16                
  10.          1/>LDI    R16,0xFF
  11.          1/>OUT    DDRD, R16  
  12.  
  13.  mainloop:          1/>LDI     R16,0xFF                 ; tuns the light on
  14.          1/>OUT    PORTD, R16
  15.            RCALL  Delay
  16.            1/>LDI     R16,0x00                          ; turns the light off
  17.          1/>OUT     PORTD, R16
  18.            RCALL  Delay                                 ;Calls on the Loop
  19.            RJMP mainloop                                ;restarts the process
  20. Delay:     1/>LDI     R17, 0x6F                         ;States the first value
  21. loop1:     1/>LDI   R18, 0xDC
  22. loop2:     1/>LDI   R19, 0XDC
  23. loop3:    1/>DEC    R19                                
  24.             BRNE   loop3
  25.             1/>DEC     R18
  26.            BRNE   loop2            
  27.            1/>DEC R17                                   ; decreases fist value
  28.            BRNE loop1
  29.            1/>RET                                       ; End of the loops
  30.  
View raw paste Reply