Отправлено Sinelogic 11 августа 2004 г. 18:05

Вот исходник на Меге163 (на ней собран программатор).
Читается FF.
Может кто делал? В чём проблема?
В Меге128 сброшены фузы JTAGEN и SPIEN.
Хотелось бы оживить.

.include "m163def.inc"
.equ data= porta
.equ rdy= 1;portc
.equ oe= 2
.equ xtall= 0
.equ wr= 3
.equ bs1= 4
.equ xa0= 5
.equ xa1= 6
.equ pagel= 7
.equ bs2= 5;portd
.equ reset= 2
.equ reset2= 3
.equ power= 4

start:

ldi r16,$10
out portd,r16
ldi r16,$fc
out ddrd,r16

ldi r16,high(RAMEND) ; Main program start
out SPH,r16 ; Set stack pointer to top of RAM
ldi r16,low(RAMEND)
out SPL,r16

ldi r16,$ff
out porta,r16
ldi r16,$0
out ddra,r16
ldi r16,$0
out ucsra,r16
ldi r16,$18
out ucsrb,r16
ldi r16,$0
out ubrrhi,r16
ldi r16,47
out ubrr,r16
ldi r16,$55
out udr,r16
ldi r16,$aa
rcall wait
ldi r16,$fd
out ddrc,r16
ldi r16,$2
out portc,r16

ldi r16,$ff
out porta,r16
ldi r16,$0
out ddra,r16

sbi portc,wr
sbi portc,oe
cbi portd,power
sbi portd,reset2
rcall delay
sbi portc,xtall
cbi portc,xtall
sbi portc,xtall
cbi portc,xtall
sbi portc,xtall
cbi portc,xtall
sbi portc,xtall
cbi portc,xtall
sbi portc,xtall
cbi portc,xtall
sbi portc,xtall
cbi portc,xtall
cbi portd,reset2
sbi portd,reset
ldi r16,$ff
out ddra,r16
sbi portc,xa1
ldi r16,$4
out porta,r16
nop
in r16,pina
rcall wait
sbi portc,xtall
cbi portc,xtall
sbi portc,bs1
sbi portc,bs2
ldi r16,$0
out ddra,r16
cbi portc,oe
nop
in r16,pina
rcall wait
stop2:
rjmp stop2

ldi r16,$40
out porta,r16
nop
in r16,pina
rcall wait
rcall delay
sbi portc,xtall
rcall delay
cbi portc,xtall
rcall delay
ldi r16,$9f
out data,r16
cbi portc,xa1
rcall delay
sbi portc,xtall
rcall delay
cbi portc,xtall
rcall delay
sbi portc,bs1
rcall delay
cbi portc,wr
rcall delay
sbi portc,wr
rcall delay
wait_ready1:
sbic portc,rdy
rjmp wait_ready1
wait_ready:
sbis portc,rdy
rjmp wait_ready
sbi portc,xa1
cbi portc,bs1
ldi r16,$04
out data,r16
rcall delay
sbi portc,xtall
rcall delay
cbi portc,xtall
rcall delay
ldi r16,$0
out ddrb,r16
ldi r16,$ff
out portb,r16
sbi portc,bs1
sbi portc,bs2
rcall delay
cbi portc,oe
rcall delay
in r16,pinb
rcall wait
sbi portc,oe
rcall delay
cbi portd,reset
sbi portd,power
rjmp stop

wait:

cbi ucsra,txc
out udr,r16
wait_1:
sbis ucsra,txc
rjmp wait_1
ret

stop:
rjmp stop

delay:
ldi r18,$ff
del:
dec r18
brne del
ret