roboforum.ru

Код: Выделить всё • Развернуть

.nolist 
.include "tn2313def.inc" 
.list 
.def   temp =r16 
.def   temp2 =r20 
.def    delay1 =r17 
.def    delay2 =r18 
.def   delay3 =r19 
rjmp Init 
Init: 
   ser temp 
   out DDRA,temp 
   out DDRB,temp 
   out DDRD,temp 
   ldi delay1,0x00 
   ldi delay2,0x35 
   ldi delay3,0x0C    
Start: 
   ldi temp,0b00000001 
   out PinB,temp 
Loop: 
   subi Delay1,1 
   sbci Delay2,0 
   sbci Delay3,0 
   brcc Loop 
   clr temp2 
   out PinB,temp2 
Loop2: 
   subi Delay1,1 
   sbci Delay2,0 
   sbci Delay3,0 
   brcc Loop2 
rjmp Start  

Код: Выделить всё • Развернуть

$regfile = "attiny2313.dat"
$crystal = 4000000
$baud = 9600

Dim I As Integer

Do
  Incr I
  Print "test I = " ; I
  Waitms 1000
Loop

Chip15 писал(а):Я не волшебник. только учусь. Можите расшифровать команды, если не сложно

Код: Выделить всё • Развернуть

$regfile = "attiny2313.dat"
$crystal = 4000000
$baud = 9600

Dim I As Integer

Do
  Incr I
  Print "test I = " ; I
  Waitms 1000
Loop

Код: Выделить всё • Развернуть

$regfile = "attiny2313.dat"    
$crystal = 4000000               ;частота кристала
$baud = 9600                       ;скорость

Dim I As Integer                   ;объявление переменной

Do
  Incr I                                ;инкремеентирование переменной
  Print "test I = " ; I             ; вывод в уарт строки test I = "номер попытки"
  Waitms 1000                    ;ждем 1 сек                
Loop

Код: Выделить всё • Развернуть

.include "tn2313def.inc"
.list
.def   temp =r16
.def   temp2 =r20
.def    delay1 =r17
.def    delay2 =r18
.def   delay3 =r19
rjmp Init
Init:
   ser temp
   out DDRA,temp
   out DDRB,temp
   out DDRD,temp
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C   
Start:
   ldi temp,0b00000001
   out PinB,temp
Loop:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C  
   clr temp2
   out PinB,temp2
Loop2:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop2
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C  
rjmp Start 

Код: Выделить всё • Развернуть

.include "tn2313def.inc"
.list
.def   temp =r16
.def   temp2 =r20
.def    delay1 =r17
.def    delay2 =r18
.def   delay3 =r19
rjmp Init
Init:
   ser temp
   out DDRA,temp
   out DDRB,temp
   out DDRD,temp
Delay:
   ldi delay1,0x00
   ldi delay2,0x35
   ldi delay3,0x0C   
Start:
   ldi temp,0b00000001
   out PinB,temp
Loop:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop
   rcall Delay
   ret 
   clr temp2
   out PinB,temp2
Loop2:
   subi Delay1,1
   sbci Delay2,0
   sbci Delay3,0
   brcc Loop2
   rcall Delay
   ret 
rjmp Start