Если Вы напишите PUSH Я1, то компилятор выдаст ошибку, а если ENTER Я1, то компилятор это проглотит и регистр не будет сохранен. Так что тут проще вляпаться, чем перечислять ПушиПопы.[/uquote][uquote="ARV",url="/forum/viewtopic.php?p=2899099#p2899099"]при наличии таких мощных макросов слабО сделать так, чтобы эта ситуация обрабатывалась? 
[/uquote]
модифицированный вариант.
Код: Выделить всё
; -----------------------------------------------
; Авторы: ARV, Z_h_e, Kavka с форума radiokot.ru
; -----------------------------------------------
#include <avr/io.h>
.macro ENTER arg:vararg ; макрос имеет переменное число параметров
.set selector, 0 ; в этой переменной будем отмечать нужные регистры
.set sel_sreg, 0 ; в этой переменной будем отмечать сохранение SREG
; перебераем аргументы и проверяем на допустимость
.irp reg,\arg
.set ch, 1
.irp p, r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30,r31
.if (\p == \reg) ; если аргументом макроса совпадает с элементов из списка
.set ch, 0
.endif
.endr
.irp p, R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R20,R21,R22,R23,R24,R25,R26,R27,R28,R29,R30,R31
.if (\p == \reg)
.set ch, 0
.endif
.endr
.irp p, xl,xh,yl,yh,zl,zh,sreg,XL,XH,YL,YH,ZL,ZH,SREG
.if (\p == \reg)
.set ch, 0
.endif
.endr
.if ( ch )
; ругаемся если аргумент не опознан... :-)
.print "Error: macro ENTER - unkown register"
.err
.endif
.endr
; перебрать аргументы и отметить их битами в selector
.irp reg,\arg
.set i, 0
; надо перечислить все регистры по порядку!!!
.irp p, r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30,r31
.if (\p == \reg) ; если аргументом макроса совпадает с элементов из списка
.set selector ,(selector | (1 << i)) ; сделаем отметку в нужном бите
.endif
.set i, i+1 ; и продолжим счет
.endr
.endr
.irp reg,\arg
.set i, 0
.irp p, R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,R16,R17,R18,R19,R20,R21,R22,R23,R24,R25,R26,R27,R28,R29,R30,R31
.if (\p == \reg)
.set selector ,(selector | (1 << i))
.endif
.set i, i+1
.endr
.endr
; альтернативные названия регистров
.irp reg,\arg
.set i, 26
; надо перечислить все регистры в соответствии с номерами
.irp p, XL,XH,YL,YH,ZL,ZH
.if (\p == \reg)
.set selector ,(selector | (1 << i))
.endif
.set i, i+1
.endr
.endr
.irp reg,\arg
.set i, 26
.irp p, xl,xh,yl,yh,zl,zh
.if (\p == \reg)
.set selector ,(selector | (1 << i))
.endif
.set i, i+1
.endr
.endr
; проверяем список аргументов на SREG
.irp reg,\arg
.irp p, SREG, sreg
.if (\p == \reg)
.set selector ,(selector | 1) ; сделаем отметку для r0
.set sel_sreg ,1 ; сделаем отметку для SREG
.endif
.endr
.endr
; сохраняем регистры
; сначала r0
.if (selector & (1))
push r0
.endif
; потом SREG
.if (sel_sreg)
in r0, _SFR_IO_ADDR(SREG) ; _SFR_IO_ADDR(SREG) - извлекаем адрес порта
push r0
.endif
; наконец все остальные, перебрать биты selector от МЛАДШЕГО к старшему и сохранить нужные регистры
.set i, 1
.irp p, r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30,r31
.if (selector & (1<< i))
push \p
.endif
.set i, i+1
.endr
.endm
;----------------------------------------
.macro LEAVE
.set i, 31
; регистры до r1
.irp p, r31,r30,r29,r28,r27,r26,r25,r24,r23,r22,r21,r20,r19,r18,r17,r16,r15,r14,r13,r12,r11,r10,r9,r8,r7,r6,r5,r4,r3,r2,r1
.if selector &(1<< i)
; если бит в маске установлен - регистр извлекается из стека
pop \p
.endif
; перебор битов ведется в обратном порядке!!!
.set i, i - 1
.endr
.if (sel_sreg)
pop r0
out _SFR_IO_ADDR(SREG), r0
.endif
.if (selector & (1))
pop r0
.endif
.endm
; Например, вот такой исходник
;.global main
;main:
;ENTER r2,r3,SREG,ZH,ZL
;nop
;LEAVE
; Тут нужен препроцесор, т.к. avr-as его не умеет,
; а определения регистров ввода-вывода прописаны
; в Си-шных заголовочных файлах (привет SREG :-) ).
; С помощью вот таких командочек
; avr-gcc -E -mmcu=atmega48 gnu-as_macros.S | avr-as -mmcu=atmega48 -
; avr-objdump -d a.out
; Получим вот такой код
;00000000 <main>:
; 0: 0f 92 push r0
; 2: 0f b6 in r0, 0x3f ; 63
; 4: 0f 92 push r0
; 6: 2f 92 push r2
; 8: 3f 92 push r3
; a: ef 93 push r30
; c: ff 93 push r31
; e: 00 00 nop
; 10: ff 91 pop r31
; 12: ef 91 pop r30
; 14: 3f 90 pop r3
; 16: 2f 90 pop r2
; 18: 0f 90 pop r0
; 1a: 0f be out 0x3f, r0 ; 63
; 1c: 0f 90 pop r0
По коду. Херь какая-то.BOTTOM Signalize that TCNTn has reached minimum value (zero).
Код: Выделить всё
;
.include "m8def.inc"
.cseg
.org 0
;ВЕКТОР ПРЕРЫВАНИЙ
RESET:
rjmp initial
.org 0x0E
ADC_COMPLETE:
in XL, ADCL
in XH, ADCH
RET
;*************************************************
initial:
CLI
ldi R16,low(RAMEND)
out SPL,R16
ldi R16,high(RAMEND)
out SPH,R16
GO:
LDI R16,1<<SE|1<<SM2 ; ADC NOISE
OUT MCUCR,R16
ldi R16, 0b00000000
out ADMUX, R16
main:
LDI R16,1<<ADEN|1<<ADSC|1<<ADIE|1<<ADIF|1<<ADPS2 ;/16
OUT ADCSRA, R16
SEI
sleep ; здесь надо заснуть, что-бы работе АЦП ничего не мешало
; NOP
;ldi R16, 0b00000000
;out ADMUX, R16
;ldi R16, 0b11001100
;out ADCSRA, R16
; здесь надо проснуться
; in XL, ADCL
; in XH, ADCH
mov R17, XL
mov R18, XH
SBI ADCSRA,ADSC
SEI
sleep ; здесь надо опять заснуть, что-бы работе АЦП ничего не мешало
; NOP
m7:
; ldi R16, 0b00000000
;out ADMUX, R16
;ldi R16, 0b11001100
;out ADCSRA, R16
; здесь надо опять проснуться
;in XL, ADCL
;in XH, ADCH
cp XL, R17
cpc XH, R18
brne GO
cp XL, YL
cpc XH, YH
breq GO
brlo m3
rcall vpravo
rjmp GO
m3:
rcall vlevo
rjmp GO
VPRAVO:
RET
VLEVO:
RET
.EXIT
±2 LSB Absolute Accuracy
если "мсек" это МИЛЛИсекунды, то 10 - это очень много! это очень большая задержка по МК-шным меркам. и тут явно что-то не так в схемотехнике, раз нестабильность показаний лечится таким способом...shonty писал(а):Помогла установка после некоторых команд небольших (10мсек) задержек или просто nop-ов
, когда тактирование ядра, портов ввода-вывода останавливается и обслуживаются только разрешенные прерывания.ADC Noise Reduction