Тред №569209

Цитата: Densoider
От прямо щас изучаю-
почтиAVRASM
;***************************************************************
;* Autor: Densoider, E-mail:     bill.gates@microsoft.ru
;* 16.05.13
;* chip: Grau
;* Frequency - 1 per week (may be).))
;***************************************************************
.device  Grau
.nolist
.include
.list                             

;--    Назначаем имена выводам микроконтроллера (их функции) и регистрам

.equ  Liberalizm =0 ;Регистр Либерализьма
.equ  Avantura =1 ;Регистр Источника Правды
.equ  Plan_Putina =2 ;Регистр Указаний Главного

.def  Mozg         =r16 ;temporary register 
.def  Ohranitel         =r17 ;Регистр Охранителя

;***************************************************************
;Начало программы
        rjmp Init
;-------------------  инициализация  ---------------------------

Init: ldi       Mozg, 0x55 ;Забиваем Mozg хламом, чтоб отвлечь

;***************************************************************
;               Главный программный цикл
;***************************************************************
Start:
  sbiс    Mozg, Liberalizm  ;Проверяем остатки либерализма.
  rjmp    Ohranitelstvo  ;Если есть - переходим к подпрограмме лечения.
  sbi    Ohranitel,1  ;Если нет - присваиваем звание Охранителя
  rjmp    Start  ;переход к началу программы - а то вдруг рецидив

Ohranitelstvo:
    ldi    Mozg, 0x00 ;Стираем Mozg
    ldi    Mozg, (Avantura + Plan_Putina) ;Загружаем правильные мысли
  rjmp    Start ;переход к началу программы 
;***************************************************************

ЗЫ. Эта прога по переводу GRAU в охранители. 

Цитата: AVer
MessageBox(Handle,'Вы с кем это сейчас разговариваете?','Вопрос',mb_Ok);   :D