Есть ЯП, которой называется FastAVR. Его код.oleg110592 писал(а):Used FLASH: 68 bytes out of 1024 bytes (6%)
Спойлер
Код: Выделить всё
$Device= tiny13 ' used device
$Stack = 16 ' stack depth
$Clock = 1 ' adjust for used crystal
DDRB.1 = 1
Do ' place your code in next line
Toggle PORTB.1
WaitMs 1000
LoopСпойлер
Код: Выделить всё
.include "FastAVR\inc\tn13def.inc"
;
.DSEG
.CSEG
.ORG 0
_Reset:
ldi yl,low(RAMEND)
out SPL,yl
sbiw yl,16
;****** USERS BASIC CODE **********************
;-Line--0009----DDRB.1 = 1--
sbi DDRB,1
;-Line--0011----Do ' place your code in next line--
L0000:
;-Line--0012----Toggle PORTB.1--
in zl,PORTB
ldi r23,0x02
eor zl,r23
out portb,zl
;-Line--0013----waitms 1000--
ldi zl,low(1000)
ldi zh,high(1000)
rcall _Wms
;-Line--0014----Loop--
rjmp L0000
L0001:
;****** END OF USER BASIC CODE ****************
;////// _Waitms ///////////////////////////
_Wms: ldi r20,0x14
_Wms1: ldi r21,0x11
_Wms2: dec r21
brne _Wms2
dec r20
brne _Wms1
dec zl
brne _Wms
ret


