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