;-----------------------------------------------------------------------------
.equ    inline    = portd2;(INT0) вход с цифровой линии(_/~~\______/~~~~\______)
;-----------------------------------------------------------------------------
.equ    DTR        = portd4; Готовность компьютера
.equ    portDTR    = portd
.equ    pinDTR    = pind
.equ    ddrDTR    = ddrd
.equ    RTS        = portd3; Запрос передачи компьютера
.equ    portRTS    = portd
.equ    pinRTS    = pind
.equ    ddrRTS    = ddrd

.def    flg2    = r17;регистр битовых признаков No 2
.equ    bline    = 0    ; новая команда от MODEMLN
.equ    ctrll    = 1    ; команда (не данные) от MODEMLN
.equ    ctrlh    = 2    ; команда (не данные) от MODEMH
.equ    bnocar    = 3    ; Пропала несущая
.equ    blast    = 4    ; Выполняется комманда ComL (offline)
.equ    bonline    = 5    ; Бит признака режима (1-online)
.equ    blnint    = 6    ; наличие импульса в телефонной линии (1)
.equ    bautob    = 7    ; запретить AUTOBOD (0-запретить)

.def    outdata    = r18;текущий байт данных в телефонную линию

..equ    lBuf    = $1cf; Длина буферов 463 байта


.dseg
.if chip == 88
    .org    $0100; для ATMEGA88
.else
    .org    $060; для ATMEGA8
.endif

digit:    .byte    1;регистр данных текущей набираемой цифры номера

s0:    .byte    1; число звонков необходимых для автоответа
s1:    .byte    1; счётчик звонков
s2:    .byte    1; +
s3:    .byte    1; cr
s4:    .byte    1; lf
s5:    .byte    1; забой
s6:    .byte    1; число сек. ожидания при "слепом наборе" без dial tone
s7:    .byte    1; ожидание несущей
s8:    .byte    1; время в 0.1 сек на ","
s9:    .byte    1; время в десят. долях сек. установки соед.
s10:    .byte    1; ячейка пользователя

.equ    SRAM_START        = 0x0000;
.equ    SRAM_NEXT_1          = SRAM_START + 1;
.equ    SRAM_NEXT_2          = SRAM_NEXT_1 + 10;
.equ    SRAM_NEXT_3          = SRAM_NEXT_2 + 100;

.dseg

.org ... (если очень хочется, но мне не разу не понадобилось. Опять потом искать и менять)

dRcvdBuf:;начало буфера (например, приема)
  dRcvdLen:    .byte    1
  dRcvdAdr:    .byte    2
  dRcvdTime:    .byte    4
  dRcvdName:    .byte    20
  dRcvdErrors:    .byte    1
  dRcvdVolts:    .byte    2
dRcvdBufEnd:;это что бы следить за концом буфера

.equ shRcvdLen=dRcvdLen-dRcvdBuf
.equ shRcvdAdr=dRcvdAdr-dRcvdBuf
;....................................................
.equ cRcvdBufLen=dRcvdBufE-dRcvdBuf;длина буфера

   ldd   rTmp,z+shRcvdLen

.macro mac_BufSet
    @0: .byte @2
    .equ @1=@0-BufStart
.endm
;-------------------------------
.dseg
dRcvdBuf:    
.set BufStart=dRcvdBuf

  mac_BufSet dRcvdLen,shRcvdLen,1
  mac_BufSet dRcvdAdr,shRcvdAdr,2
  mac_BufSet dRcvdTime,shRcvdTime,4
  mac_BufSet dRcvdName,shRcvdName,20
...................
dRcvdBufEnd:

macro mac_BufSet
    d@0: .byte @1
    .equ sh@0=d@0-BufStart
.endm

  mac_BufSet RcvdLen,1
  mac_BufSet RcvdAdr,2

.MACRO TAB_Z
    subi    ZL,low(-low(@0)); получение
    sbc    ZH,ZH    ; адреса в
    subi    ZH,low(-high((@0)-1))-1; таблице
.ENDMACRO

;задает: dX-мл. адр. блока ячеек, shX-смещение от начала буфера, cX- длина данного блока ячеек
;Y - число выделяемых ячеек
.macro mac_BufSet;X,Y
    .equ d@0=BufNext
    .equ sh@0=d@0-BufStart
    .equ c@0=@1
    .set BufNext=BufNext+@1
.endm
;-------------------------------
.dseg

.equ cRcvdNameLen=20

dRcvdBuf:    
   .set BufStart=dRcvdBuf;задаем начало определяемого буфера
   .set BufNext=dRcvdBuf

    mac_BufSet RcvdLen,1
    mac_BufSet RcvdAdr,2
    mac_BufSet RcvdTime,4
    mac_BufSet RcvdName, cRcvdNameLen

.equ dRcvdBufEnd=BufNext        ;задаем конец определяемого буфера
.byte dRcvdBufEnd-dRcvdBuf;резервируем ОЗУ под определяемый буфер

.cseg

    .equ c@0Long=@1;добавляет к базовой метке "с" и "Long"
    .equ @0@2=@1;собирает в одну метку 0-й и 2-й параметр макроса

.equ    SRAM_NEXT_1          = SRAM_START + 1;
.equ    SRAM_NEXT_2          = SRAM_NEXT_1 + 10;
.equ    SRAM_NEXT_3          = SRAM_NEXT_2 + 100;

            .dseg
    .org    SRAM_START_ADR
SRAM_START:     .byte     1
SRAM_NEXT_1:   .byte     10
SRAM_NEXT_2:   .byte     100
SRAM_NEXT_2:

; Структура X(i-1), Y(i-1)*2, Y(i-2)*2, Z(i-1)*2, Z(i-2)*2
MADC:        .byte    6*9    ; Измерения по каналам
MADC_SR:                ; Усреднённое значение измерения по каналам
MADC_0:        .byte    1    ; Усреднённое значение измерения канала 0
MADC_1:        .byte    1    ; Усреднённое значение измерения канала 1
MADC_2:        .byte    1    ; Усреднённое значение измерения канала 2
MADC_3:        .byte    1    ; Усреднённое значение измерения канала 3
MADC_4:        .byte    1    ; Усреднённое значение измерения канала 4
MADC_5:        .byte    1    ; Усреднённое значение измерения канала 5
MADC_SRx2:    .byte    6    ; Усреднённое значение измерения по каналам после второго усреднения
MStrel:        .byte    12    ; Значение для стрелки в шагах
MTStrel:                ; Текущее значение для стрелки в шагах
MTStr0:        .byte    2
MTStr1:        .byte    2
MTStr2:        .byte    2
MTStr3:        .byte    2
MTStr4:        .byte    2
MTStr5:        .byte    2

struct
{
uint8_t    OutBuf[32];                                    // 0
uint8_t    *HeadOutBuf,*EndOutBuf;                        // +32 +34
uint8_t    AddrWake;                                    // +36
uint8_t    ComAnswerWake,                                // +37
            ParComAnswer,                                // +38
            Com485;                                        // +39
uint16_t    LenPack485;                                    // +40  RS232. Длина    передаваемого пакета данных
uint8_t    *EndInBuf;                                    // +42  RS232. Указатель на конец принятых данных
struct
{
   uint8_t    Answ485     : 1,                            // Выдать ответ по rs485
            Esc485      : 1,                            // Пришёл код FESC с RS485
            RcvCompl    : 1,                            // Разрешить исполнение    команд
            Ldr            : 1,                            // Разрешить загрузку ПО
            NoEndPacket    : 1;                            // Пакет незавершён
} Flag;                                                // +44
}  volatile Out485;

EXTERN    Out485

#define        HeadOutBuf        32                            // +32
#define        EndOutBuf        34                            // +34
#define        AddrWake        36                            // +36
#define        ComAnswerWake    37                            // +37
#define        ParComAnswer    38                            // +38
#define        Com485            39                            // +39
#define        LenPack485        40                            // +40  RS232. Длина    передаваемого пакета данных 16
#define        EndInBuf        42                            // смещение +41  RS232. Указатель на конец принятых данных
#define        FlagS            44                            // +43 Признаки
#define        Answ485            0                            // Бит 0 Выдать ответ по rs485
#define        Esc485            1                            // Бит 1 Пришёл код FESC с RS485
#define        RcvCompl        2                            // Бит 2 Разрешить исполнение команд
#define        Ldr                3                            // Бит 3 Разрешить загрузку ПО
#define        NoEndPacket        4                            // Бит 4 Пакет незавершён

        ldd        crc485,Z+AddrWake            // AddrWake
        std        Z+HeadOutBuf,ZL                // HeadOutBuf
        std        Z+HeadOutBuf+1,ZH            // HeadOutBuf+1
        ldi        data485,FEND

OutBuf:           byte 32;                     // 0
HeadOutBuf:    byte 2
EndOutBuf:      byte 2                        // +32 +34
AddrWake:       byte 2                        // +36
ComAnswerWake:     byte 1                 // +37
ParComAnswer:    byte 1                     // +38
Com485:          byte 1                        // +39
и т.д.

               LD2      Z,OutBuf        // LD2 макрос 2-байтовой загрузки
               std      Z+  AddrWake-OutBuf

#ifndef __ASSEMBLER__
typedef struct
{
 uint8_t field1;
 unsigned flag1:1;
unsigned flag2:1;
unsigned enu:6;
} packet_t

volatile packet_t pack;

#else

#define packet_field1 0
#define packet_flag1 0x01
#define packet_flag2 0x02
#define packet_enu_msk 0xfc
#define packet_enu_offset 0x02
#define flags 0x01
#define sz_packet 2
.extern pack

#endif

        "subi    %A[queue],-lo8(%[heap])"        "\n\t" /*получение*/
        "sbc    %B[queue],%B[queue]"            "\n\t" /*адреса в*/
        "subi    %B[queue],lo8(-hi8(%[heap]-1)-1)"     "\n\t" /*таблице*/

        "subi    %A[queue],lo8(%[heap])"        "\n\t" /*получение*/
        "subi    %B[queue],hi8(%[heap])"     "\n\t" /*таблице*/
или
        "subi    %A[queue],%A[heap]"        "\n\t" /*получение*/
        "subi    %B[queue],%B[heap]"     "\n\t" /*таблице*/

struct {
uint8_t Put;
uint8_t Get;
MPACKET* Container[CONST_FREEMEM_QUEUE_SIZE];
}QueueFreePacket;

исходный код на С
void QueuePut(TQUEUE* Queue,MPACKET* Packet){
if (Packet){
if(Queue){
//uint8_t tmp=Queue->Put + 1;
//if(tmp==CONST_QUEUE_SIZE)tmp=0;

uint8_t tmp=Queue->Put - (CONST_QUEUE_SIZE-1);
if(tmp)tmp+=CONST_QUEUE_SIZE;

if (tmp!=Queue->Get){
Queue->Container[Queue->Put]=Packet;
Queue->Put=tmp;
return;
}
}
QueueFreePacket.Container[QueueFreePacket.Put++]=Packet;
if (QueueFreePacket.Put==CONST_FREEMEM_QUEUE_SIZE) QueueFreePacket.Put=0;
}
}

часть асемблерной вставки для помещения пакета в очередь свободных пакетов
__asm__ __volatile__(
.....
"pkt_move_to_heap%=:" "\n\t"
"lds %A[queue],%[heap]" "\n\t"
"mov %[tmp],%A[queue]" "\n\t"
"subi %A[queue],-lo8(%[heap])" "\n\t" /*получение*/
"sbc %B[queue],%B[queue]" "\n\t" /*адреса в*/
"subi %B[queue],lo8(-hi8(%[heap]-1)-1)" "\n\t" /*таблице*/
"st %a[queue]+,%A[pkt]" "\n\t"
"st %a[queue],%B[pkt]" "\n\t"
"subi %[tmp],(%[heap_size]-1)<<1" "\n\t"
"cpse %[tmp],__zero_reg__" "\n\t"
"subi %[tmp],-(%[size]<<1)" "\n\t"
"sts %[heap],%[tmp]" "\n\t"


"exit%=:" "\n\t"
: "=&d"(tmp)
: [queue]"b"(Queue),[pkt]"w"(Packet),[tmp]"r"(tmp),[size]"M"(CONST_QUEUE_SIZE),[heap]"m"(QueueFreePacket),[heap_size]"M"(CONST_FREEMEM_QUEUE_SIZE)
: "1","memory"
);

        "subi    %A[queue],(0xFF&(0-(0xFF&(%[heap]))))"        "\n\t" /*получение*/
        "sbc    %B[queue],%B[queue]"            "\n\t" /*адреса в*/
        "subi    %B[queue],(0xFF&(0-(0xFF&((%[heap]-1)>>8))-1))"     "\n\t" /*таблице*/

        "subi    %A[queue],lo8(%[heap])"        "\n\t" /*получение*/
        "subi    %B[queue],hi8(%[heap])"     "\n\t" /*таблице*/
или
        "subi    %A[queue],%A[heap]"        "\n\t" /*получение*/
        "subi    %B[queue],%B[heap]"     "\n\t" /*таблице*/

.MACRO TAB_Z
    clr    ZH
    subi    ZL, low( -@0 )
    sbci    ZH, high( -@0 )
.ENDMACRO

uint8_t table[8];

uint8_t rd(uint8_t index)
{
    return table[index];
}


uint8_t rda(uint8_t index)
{
    uint8_t result;
    __asm__ __volatile__ (
        "clr    %B[ptr]"        "\n\t"    
        "subi    %A[ptr], lo8(-%[tbl])"    "\n\t"    
        "subi    %B[ptr], hi8(-%[tbl])"    "\n\t"    
        "ld    %[result], %a[ptr]"
        : [result]"=r"(result)
        : [ptr]"e"(index), [tbl]"m"(table[0])
    );
    return result;
}

rd:
    ldi r30,lo8(table)
    ldi r31,hi8(table)
    add r30,r24
    adc r31,__zero_reg__
    ld r24,Z
    clr r25
    ret


rda:
    mov r30,r24
/* #APP */
    clr    r31
    subi    r30, lo8(-table)
    subi    r31, hi8(-table)
    ld    r24, Z
/* #NOAPP */
    clr r25
    ret

.MACRO TAB2_Z
    subi    ZL,low(-low(@0)); получение
    sbc    ZH,ZH        ; адреса
    sub    ZL,@1           ; в
    sbci    ZH,low(-high((@0)-1))-1; таблице
.ENDMACRO