Форум РадиоКот

Код: Выделить всё

$regfile = "m2560def.dat"                                   ' specify the used micro
$crystal = 16000000                                         ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' 
$swstack = 32                                               ' 
$framesize = 40


'Назначение порта и пинов для регистра
Shiftport Alias Porth                                       'Назначаем порт для вывода в регистр
Const Dataclk = 2                                           'Номер пина для тактирования регистра
Const Dataout = 3                                           'Номер пина для данных регистра
Const Dataset = 4                                           'Номер пина для защелки регистра
Config Shiftport = Output
'-----------------------------------------------

'Объявляем функцию для вывода в регистр
Declare Sub Test(byval N As Word)
'-----------------------------------------------
'Объявляем переменную 2-байтовую для вывода в регистр
Dim S As Word
'-----------------------------------------------
'Основное тело программы

S = &B1000000100000001
Nop
Call Test(s)

'Shiftout Shiftport.dataout , Shiftport.dataclk , S , 3
'Set Shiftport.dataset
'Reset Shiftport.dataset

Nop                                                         '

End
'-----------------------------------------------


'Функция вывода в регистр

Sub Test()
$asm
  push r16
  Push r18

  lds r16, {s}                                              ' Загрузка младшего байта переменной S
  rCall Shiftout

  Lds r16, {s+1}                                            'Загрузка старшего байта переменной S
  rCall Shiftout

  sbi  Shiftport,Dataset                                    'Защелка
  cbi  Shiftport,Dataset                                    'Защелка
  pop r18
  pop r16

$end Asm

End Sub

$asm
Shiftout:
 'Sbi Ddrb , 3
  ldi  r18,&h08
So2:
  Ror r16
  brcc So1
  sbi  Shiftport,Dataout
  rjmp So3
So1:
  Cbi Shiftport , Dataout
So3:
  Sbi Shiftport , Dataclk
  dec  r18
  cbi  Shiftport,Dataclk
  brne So2
  cbi  Shiftport,Dataout
  ret
$end Asm
'------------------------------