Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .def temp=R16
- .def rab=r20
- .equ kdel=780
- .dseg
- .org 0x60
- buf: .byte 1
- .cseg;
- .org 0
- start: rjmp init
- reti
- reti
- reti
- rjmp prtim1
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- reti
- init:
- ldi temp, ramend
- out spl, temp
- ldi temp, 0
- out ddrd, temp
- ldi temp, 0xFF
- out ddrb, temp
- out portb, temp
- out portd, temp
- ldi temp, 0x0d
- out tccr1b, temp
- ldi temp, high(kdel)
- out ocr1ah, temp
- ldi temp, low(kdel)
- out ocr1al, temp
- ldi temp, 0b1000000
- out timsk, temp
- ldi temp, 0x80
- out acsr, temp
- main: ldi rab, 0b00010000
- sts buf, rab
- sei
- m1: rjmp m1
- prtim1: push temp
- push rab
- lds rab, buf
- in temp, pind
- sbrs temp, 0
- rjmp p2
- p1: lsr rab
- brcc p3
- ldi rab, 0b10000000
- rjmp p3
- p2: lsl rab
- brcc p3
- ldi rab, 0b00000001
- p3: ldi temp, 0xFF
- eor temp, rab
- out portb, temp
- sts buf, rab
- pop rab
- pop temp
- reti
Advertisement
Add Comment
Please, Sign In to add comment
