Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- include "m8535def.inc"
- LDI R16,low(RAMEND) //inicjalizacja stosu
- OUT SPL, R16
- LDI R16,high(RAMEND)
- OUT SPH, R16
- ldi R16 , 255
- out DDRB , R16
- ldi r16 , 255
- out DDRA, r16
- ldi R16 , 0
- out PORTA, R16
- out PORTB, R16
- INICJALIZACJA:
- ldi R20, 0b00110000
- out PORTA, R20
- sbi PORTB,0
- nop
- cbi portb, 0
- rcall delay
- sbi PORTB,0
- nop
- cbi portb, 0
- rcall delay
- sbi PORTB,0
- nop
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r20, 0b00110000
- out porta, r20
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r20, 0b00001111
- out porta, r20
- cbi portb, 0
- rcall delay
- sbi portb, 0
- Utery:
- ldi r20, 0b00000001
- out porta, r20
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r18, 0b00000101
- out portb, r18
- ldi r25, 0b01000101
- out porta, r25
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r18, 0b00000101
- out portb, r18
- ldi r25, 0b01001111
- out porta, r25
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r18, 0b00000101
- out portb, r18
- ldi r25, 0b01001111
- out porta, r25
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r18, 0b00000101
- out portb, r18
- ldi r25, 0b01001111
- out porta, r25
- cbi portb, 0
- rcall delay
- sbi portb, 0
- ldi r18, 0b00000101
- out portb, r18
- ldi r25, 0b01001111
- out porta, r25
- cbi portb, 0
- rcall delay
- sbi portb, 0
- petla:
- rjmp petla
- delay:
- ldi R19, 255
- delay2:
- ldi R20 , 255
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement