#hws
fvar(dt)
dt = 1234 && "test"
event(onEvent,dt)

#hws
func Init
  nop1 = nop1 + 1 // прерывание по любому из событий(только поменять номер'nop')
  block.select('BLK_MAIN')
  println('sei')
end
// передающий поток компонент
func doInt
  fvar(dt)
  dt = 'break' && 255
  block.select('BLK_INTERRUPT')
  println('INT',Select,': ; Обработчик прерывания INT0')
  event(onInt,dt)  
  println('reti')
end 

#hws
func Init               
 
end
// принимающий поток компонент
func doMyMethod(dt)
  trace(dt[0]) // проверяем, есть ли в потоке данные,
  trace(dt[1]) // то-же самое, и в обоих случаях данные из потока пришли.
  if(dt[0] = 'break')    
  block.select('BLK_INTERRUPT') 
  else                         
  block.select('BLK_MAIN')
  end 
  dt[1] = 'fff'  // если попытаться изменить значение в элементе массива - 
  println('xxx') // ошибка: Error[12]: Undeclared identifier: dt
  // если же закомментировать строку с присвоением dt[1] = 'fff' - прежнее значение элемента нормально передается дальше в поток    
  event(onMyEvent,dt)       
end                         
                           

func Result()       
  return(MyProp)
end

#hws
;program MainTest 

;.device AT90S2313 
.include "C:\VMLAB\include\2313def.inc" 
.def temp = R16 

rjmp RESET       ; Обработка сброса 
rjmp INT0 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 


.cseg 
reset:             ; начало основной программы 
ldi temp,low(RAMEND) 
out spl,temp 
clr R16 
sei 

Loop:  ; пустой цикл. нужен для имитации работы основной программы в ожидании 
nop    ; каких-то событий, например внешних прерываний или событий от таймеров, 
nop    ; ну и т.д. 
nop 
rjmp Loop 

; ниже, находится блок - ('BLK_INTERRUPT') и все последующие в этой цепочке 
; компоненты при получении управляющего сигнала dt[0] = 'break' обязаны будут 
; писать свой код именно сюда. Элемент с индексом [0] до последнего компонента 
; в этой цепочке не должен изменяться, а вот элемент с индексом [1] попав например 
; в линейный счетчик, на выходе в поток должен поменятся и нести в себе   
; уже значение счетчика.  

INT0:   ; Обработчик прерывания INT0 - ОТСЮДА НАЧИНАЕТСЯ ПАРОВОЗИК!!! 
xxx     ; здесь выводиться тестовая строка println('xxx') 
xxx     ; строка со второго тестового компонента 
reti    ; команда возврата из прерывания 

Font   Шрифт
 |-- name  Arial
 |-- color clBlack
 |-- size  8
  + Style
   |-- Bold True
   |-- Italic False
   |-- Underline False