roboforum.ru

;*******************************************************************
;мега пупер генератор
;проц: atmega48-20
;чтоб меньше паять использую внутр. генератор (а он там есть? а хз)
;*******************************************************************
.include "2313def.inc"      ;забей :)
.def   temp      =r21   ;

   .cseg
   .org $0000
   jmp   start      ;переход на основную программу после сброса
   .org   INT0addr   ;внешнее прерывание INT0
   reti         ;ну рыба это


start:   cli             ;запретить прерывания
   ldi   temp,low(RAMEND)   ;инициализация стека
   out   SPL,temp      ;

;настройка портов, выключить все устройства
   ldi   temp,1<<B_PDI_CODEC | 1<<B_ENB_DTMF  | 1<<B_CS_Flash         ;выходы
   out   DDRB,temp
   ldi   temp,1<<B_CS_Flash                     ;выходы в "1"
   out   PORTB,temp
   ldi   temp,1<<D_BCLK_CODEC | 1<<D_FS_CODEC | 1<<D_DR_CODEC | 1<<D_OUT_LAN   ;выходы
   out   DDRD,temp
   ldi   temp,0<<D_IN_LAN                     ;вход без резистора "0"
   out   PORTD,temp

main:                ;не, я конечно тупой, но не настолько чтоб метки обзывать "начало"
   включить   PinLed      ;включить светодиод на время одного полупериода 36 кгц.
   call      Pause36kHz   ;
   выключить   pinled         ;выключить светодиод на время одного полупериода 36 кгц.
   call      Pause10Hz      ;
   jmp      main          ;переход на начало, программа зациклена на формировании
                   ;прямоугольных импульсое с частотой 36 кгц.