Отправлено Радик 04 июля 2003 г. 16:03

Помогите чайнику !
Осваиваю работу с прерываниями для AT89C51.
Налабал прогу, но что-то не фурычит.
Посмотирте кому не в лом. Где грабли.
Или киньте какой-нибудь рабочий примерчик пжлст !
Компилятор Franklin.
Заранее спасибо.
$INCLUDE (REG51.INC)
CSEG
ORG 0000h
AJMP MAIN
ORG 000BH
reti;AJMP INDY
ORG 0023H
AJMP SERIAL

WREN EQU P1.7 ;выход управления напрвлением передачи для MAX485
svdiod EQU P1.6 ;Управление светодиодом

MAIN:
clr ea
MOV SP,#078H ; установка вершины стека 78Н-7FH

CLR TR1 ;остановка таймера 1
mov PCON,#80H ;удвоение частоты =on
MOV SCON,#07Ch ;
MOV TMOD,#021H ;установка режима работы таймеров

MOV TH0,#0FCH ;период 10 мс
MOV TL0,#06CH ;младший байт

MOV TH1,#0FDh ;константа для скорости 9600

SETB ES ;ВКЛЮЧЕНИЕ ПРЕРЫВАНИЯ от СОМ порта
SETB PS ;Установка приоритета на СОМ
CLR PT0
SETB ET0 ;прерывание по таймеру вкл

SETB TR0 ;Запуск таймера
SETB TR1 ;запуск таймера СОМ порта

SETB EA ;Разрешение прерываний

clr wren
lop:
nop
ajmp lop

SERIAL:
jnb ri,nori
clr svdiod
CLR EA
PUSH PSW
SETB PSW.4 ;
CLR PSW.3 ;Банк регистров 2 , для ПОРТА
PUSH ACC
CLR RI
MOV A,SBUF

setb wren
MOV SBUF,A ;TRANSMIT SYMBOL
L1: JNB TI,L1 ;WAIT FOR END OF TRANS. SYMBOL
CLR TI
MOV R0,#255
MOV R1,#255
MAIN1:
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DJNZ R0,MAIN1
DJNZ R1,MAIN1
clr wren
setb svdiod
SER1: POP ACC
POP PSW
SETB EA
nori:
RETI
END

• Граблей нет. Работает. — aleksei   (04.07.2003 16:50, 43 байт)
  • Да такой кварц и такая скорость, но не работает :( — Радик   (04.07.2003 17:17, пустое)
    • Другой попробуй. Может этот сдох. — пмсм   (04.07.2003 18:17, пустое)
• а лучше так (компилятор AD2500 :)))) — ES   (04.07.2003 16:19, 395 байт)
  • Ответ: а где взять доку ? На атмел.сом не нашел — Радик   (04.07.2003 16:40, пустое)
    • Лучше погуглить с запросом типа "i51 programming", можно исчё к этому добвить типа samples а исче есть сайт с учебниками, называется www.8052.com? там полно всяких семплов и есть ВебРинг, можно по нему походить :) Все в Ваших руках :) — ES   (04.07.2003 16:49, пустое)
  • компилятор ? — DASM   (04.07.2003 16:29, пустое)
    • Ага, легендарный... с середины 70х — ES   (04.07.2003 16:34, пустое)
      • а прога переводящая асм в объектник или прям в бинарник разве компилятором зовется ? — DASM   (04.07.2003 16:36, пустое)
        • В нонешних книгах так и пишут: КОМПИЛЯТОР АССЕМБЛЕРА, сам видел:))) — Осторожный велосипедист   (04.07.2003 17:40, пустое)
• Начните (+) — ES   (04.07.2003 16:11, 362 байт)