Локальные переменные в TASM

@yurakir20 · Регистрация: 01.04.2016

Author24 — интернет-сервис помощи студентам

Доброго времени!

У меня вообще никак не получается сделать локальные переменные в tasm.
Уже всё испробовал, место в стеке не резервирует. Самому резервировать не
хочется.

Вот пример кода в функции:

Assembler

    PROC    @Func$qusus FAR    
    ARG x:WORD, y:WORD
 
LOCALS
LOCAL @@cY:WORD
 
    push bp
    mov bp, sp
 
    push    ds
        ...
        mov [WORD @@cY],0FFF1h
        ...
    pop ds
 
    pop     bp
    ret
 
    ENDP

Если после PROC добавить C/PASCAL то появляется ENTRE с нулями почему-то

@Constantin Cat · 16.08.2018, 11:04

так пробуйте:

Assembler

model   small,pascal
.code
begin:  call    myproc,ax,bx
    mov ax,4c00h
    int 21h
myproc  proc    a:word,b:word
local   c:word
;
    mov ax,c
    mov bx,a
    mov cx,b
;
    ret
myproc  endp
.data
.stack
    end begin

листинг получается такой

Assembler

      1 0000                 model   small,pascal
      2 0000                 .code
      3 0000                 begin:  call    myproc,ax,bx
1     4 0000  50                 PUSH    AX
1     5 0001  53                 PUSH    BX
1     6 0002  E8 0005                CALL    MYPROC
      7 0005  B8 4C00                mov     ax,4c00h
      8 0008  CD 21              int     21h
      9 000A                 myproc  proc    a:word,b:word
     10                  local   c:word
     11                  ;
1    12 000A  55                 PUSH    BP
1    13 000B  8B EC              MOV     BP,SP
1    14 000D  83 EC 02               SUB     SP,00002h
1    15 0010  8B 46 FE               mov     ax,c
     16 0013  8B 5E 06               mov     bx,a
     17 0016  8B 4E 04               mov     cx,b
     18                  ;
1    19 0019  8B E5              MOV     SP,BP
1    20 001B  5D                 POP     BP
1    21 001C  C2 0004                RET     00004h
     22 001F                 myproc  endp
     23 001F                 .data
     24 0000                 .stack
     25                      end     begin

и такой код

Assembler

seg000:0000 start           proc near
seg000:0000                 push    ax
seg000:0001                 push    bx
seg000:0002                 call    sub_1000A
seg000:0005                 mov     ax, 4C00h
seg000:0008                 int     21h
seg000:0008 start           endp
seg000:000A sub_1000A       proc near
seg000:000A var_2           = word ptr -2
seg000:000A arg_0           = word ptr  4
seg000:000A arg_2           = word ptr  6
seg000:000A                 push    bp
seg000:000B                 mov     bp, sp
seg000:000D                 sub     sp, 2
seg000:0010                 mov     ax, [bp+var_2]
seg000:0013                 mov     bx, [bp+arg_2]
seg000:0016                 mov     cx, [bp+arg_0]
seg000:0019                 mov     sp, bp
seg000:001B                 pop     bp
seg000:001C                 retn    4
seg000:001C sub_1000A       endp

@liv · 16.08.2018, 11:13

yurakir20, чтобы работали локальные переменные, необходимо задавать в модели язык, например C
push bp,mov bp, sp/pop bp добавятся автоматически

Assembler

.model     small, C
 
;...
 
    PROC    @Func$qusus FAR    
    ARG x:WORD, y:WORD
 
LOCALS
LOCAL @@cY:WORD
 
;    push bp
;    mov bp, sp
 
     push    ds
;   ...
     mov [WORD @@cY],0FFF1h
;   ...
    pop ds
 
;    pop     bp
    ret
 
    ENDP

Добавлено через 1 минуту
Constantin Cat, у-у-у... обогнал...

@Constantin Cat · 16.08.2018, 11:40

Сообщение от liv

у-у-у... обогнал..

у меня велосипед быстрее

@yurakir20 · 16.08.2018, 12:36 **[ТС]**

Хорошо вроде заработало, но если указать C (MODEL LARGE, C) то ошибка линкера вылазит что не видит
функцию, а вот если у каждой функции прописать в виде PROC @Func$qusus C FAR то работает!

И ещё я увидел что в листинге выше у вас

Assembler

push    bp
mov     bp, sp
sub     sp, 2
...
pop     bp
retn          4

у меня же вместо этого ENTER/LEAVE которые вроде не рекомендуются к использованию.
директивы у меня: IDEAL, JUMPS, LOCALS, SMART, P286N, MODEL LARGE

Добавлено через 16 минут
P.S. забыл написать что вызов осуществляется из Turbo C
прототип в виде:
void far Test(uint16,uint16);

@politoto · 16.08.2018, 13:58

Так уж ли важны в наше вреям рекомендации по использованию инструкций в коде, вызываемом из Turbo C?

@liv · 16.08.2018, 14:59

yurakir20, тем более, что сами сказали их использовать, указав P286N

@yurakir20 · 17.08.2018, 10:43 **[ТС]**

А что насчёт того, почему не работает MODEL LARGE, C
ошибка undefined reference, если указывать у каждой функции отдельно
то работает

Добавлено через 9 часов 55 минут
Всё сам разобрался, оказывается есть разница между указанием MODEL LARGE,C и
указанием в функции языка.
Теперь в прототипе .h функции выглядят в виде:

C++

1	extern "C" void far Func(uint16);

а в ASM файле:

Assembler

...
MODEL LARGE, C
...
PUBLIC Func
...
PROC Func FAR
...
ENDP

@Constantin Cat 3406 / 1825 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	16.08.2018, 11:40	4
	Сообщение от liv у-у-у... обогнал.. у меня велосипед быстрее 2

@politoto Модератор 2121 / 991 / 169 Регистрация: 23.07.2018 Сообщений: 3,328 Записей в блоге: 3
	16.08.2018, 13:58	6
	Так уж ли важны в наше вреям рекомендации по использованию инструкций в коде, вызываемом из Turbo C? 1

@liv 5113 / 4552 / 854 Регистрация: 07.10.2015 Сообщений: 9,462
	16.08.2018, 14:59	7
	yurakir20, тем более, что сами сказали их использовать, указав P286N 1

	17.08.2018, 10:43