Ошибка при многократном вызове макроопределения - Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM

xVxSeRGxVx · 28.02.2010, 01:12

Доброго времени суток, уважаемые програмисты.
пишу програму, що выводит текст в виде геометрических фигур, поскольку я лентяй, то для построения прямоугольника я решил написать 2-a макроопределения, и вызвать их по 2 раза, то есть, для двух вертик. и гориз. сторон. Собственно вот его код программы:

Код:

.model small
.stack 100h

PRINT_STR_R MACRO STR, STRLEN, POS_R, POS_ST
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
POS_PRINT_R:
	; ...текст отстутсвует
LOOP POS_PRINT_R
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

PRINT_STR_S MACRO STR, STRLEN, POS_R, POS_ST
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
POS_PRINT_S:
	; ...текст отстутсвует
LOOP POS_PRINT_S
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

clear_screan	macro
	mov ax, 0600h
	mov bh, 05
	mov cx, 0000
	mov dx, 184fh
	int 10h
	endm
.data
	; ...текст отстутсвует
.code
main proc
	call INIT
	clear_screan

	PRINT_STR_R str1, strlen1, 12, 63
	PRINT_STR_R str1, strlen1, 24, 63
	PRINT_STR_S str2, strlen2, 13, 63
	PRINT_STR_S str2, strlen2, 12, 79

	call CLOSE_PROG 

main endp

INIT proc
	mov ax, @data
	mov ds,ax
	sub ax,ax
ret
INIT endp

CLOSE_PROG proc
	mov ah,4ch
	mov al,0
	int 21h
ret
CLOSE_PROG endp
end main

и вот, обратите внимание на циклы: POS_PRINT_R и POS_PRINT_S при повторном вызове TASM начинает ругаться:

я не знаю что делать, пробывал назвать @@POS_PRINT_R и @@POS_PRINT_S(где-то видел, что так обозначают), хотя не понимаю для чего. В общем всё.

xVxSeRGxVx · 28.02.2010, 20:39

что даже соображений никаких нету?...

alexcoder · 28.02.2010, 22:40

Код:

.model small
.stack 100h

PRINT_STR_R MACRO STR, STRLEN, POS_R, POS_ST
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
@@:
	; ...текст отстутсвует
LOOP @b
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

PRINT_STR_S MACRO STR, STRLEN, POS_R, POS_ST
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
@@:
	; ...текст отстутсвует
LOOP @b
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

clear_screan	macro
	mov ax, 0600h
	mov bh, 05
	mov cx, 0000
	mov dx, 184fh
	int 10h
	endm
.data
	; ...текст отстутсвует
.code
version M510
main proc
	call INIT
	clear_screan

	PRINT_STR_R str1, strlen1, 12, 63
	PRINT_STR_R str1, strlen1, 24, 63
	PRINT_STR_S str2, strlen2, 13, 63
	PRINT_STR_S str2, strlen2, 12, 79

	call CLOSE_PROG

main endp

INIT proc
	mov ax, @data
	mov ds,ax
	sub ax,ax
ret
INIT endp

CLOSE_PROG proc
	mov ah,4ch
	mov al,0
	int 21h
ret
CLOSE_PROG endp
end main

Doholyan · 28.02.2010, 22:45

xVxSeRGxVx
Мне так кажеться....у тебя не полный код

xVxSeRGxVx · 28.02.2010, 22:57

Цитата:

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

xVxSeRGxVx
Мне так кажеться....у тебя не полный код

да, код действительно не полный, наведён токо каркас программы, или Вы не это имели ввиду?

Doholyan · 28.02.2010, 23:56

Да, именно это!

xVxSeRGxVx · 01.03.2010, 01:03

Цитата:

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

Да, именно это!

а что по вашему мнению ещё должно присутсвовать?

alexcoder · 01.03.2010, 08:33

Посмотри внимательней, я исправил, теперь компилируется:

Цитата:

Код:

.model small
.stack 100h

PRINT_STR_R MACRO STR, STRLEN, POS_R, POS_ST
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
@@:
	; ...текст отстутсвует
LOOP @b
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

PRINT_STR_S MACRO STR, STRLEN, POS_R, POS_ST
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
@@:
	; ...текст отстутсвует
LOOP @b
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

clear_screan	macro
	mov ax, 0600h
	mov bh, 05
	mov cx, 0000
	mov dx, 184fh
	int 10h
	endm
.data
	; ...текст отстутсвует
.code
version M510
main proc
	call INIT
	clear_screan

	PRINT_STR_R str1, strlen1, 12, 63
	PRINT_STR_R str1, strlen1, 24, 63
	PRINT_STR_S str2, strlen2, 13, 63
	PRINT_STR_S str2, strlen2, 12, 79

	call CLOSE_PROG

main endp

INIT proc
	mov ax, @data
	mov ds,ax
	sub ax,ax
ret
INIT endp

CLOSE_PROG proc
	mov ah,4ch
	mov al,0
	int 21h
ret
CLOSE_PROG endp
end main

либо так:

Код:

.model small
.stack 100h

PRINT_STR_R MACRO STR, STRLEN, POS_R, POS_ST
local POS_PRINT_R
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
POS_PRINT_R:
	; ...текст отстутсвует
LOOP POS_PRINT_R
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

PRINT_STR_S MACRO STR, STRLEN, POS_R, POS_ST
local POS_PRINT_S
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
POS_PRINT_S:
	; ...текст отстутсвует
LOOP POS_PRINT_S
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

clear_screan	macro
	mov ax, 0600h
	mov bh, 05
	mov cx, 0000
	mov dx, 184fh
	int 10h
	endm
.data
	; ...текст отстутсвует
.code
main proc
	call INIT
	clear_screan

	PRINT_STR_R str1, strlen1, 12, 63
	PRINT_STR_R str1, strlen1, 24, 63
	PRINT_STR_S str2, strlen2, 13, 63
	PRINT_STR_S str2, strlen2, 12, 79

	call CLOSE_PROG 

main endp

INIT proc
	mov ax, @data
	mov ds,ax
	sub ax,ax
ret
INIT endp

CLOSE_PROG proc
	mov ah,4ch
	mov al,0
	int 21h
ret
CLOSE_PROG endp
end main

xVxSeRGxVx · 01.03.2010, 21:37

Цитата:

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

Посмотри внимательней, я исправил, теперь компилируется:

либо так:

Код:

.model small
.stack 100h

PRINT_STR_R MACRO STR, STRLEN, POS_R, POS_ST
local POS_PRINT_R
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
POS_PRINT_R:
	; ...текст отстутсвует
LOOP POS_PRINT_R
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

PRINT_STR_S MACRO STR, STRLEN, POS_R, POS_ST
local POS_PRINT_S
	push ax
	push bx
	push cx
	push dx
	; ...текст отстутсвует
POS_PRINT_S:
	; ...текст отстутсвует
LOOP POS_PRINT_S
	pop dx
	pop cx
	pop bx
	pop ax
	ENDM

clear_screan	macro
	mov ax, 0600h
	mov bh, 05
	mov cx, 0000
	mov dx, 184fh
	int 10h
	endm
.data
	; ...текст отстутсвует
.code
main proc
	call INIT
	clear_screan

	PRINT_STR_R str1, strlen1, 12, 63
	PRINT_STR_R str1, strlen1, 24, 63
	PRINT_STR_S str2, strlen2, 13, 63
	PRINT_STR_S str2, strlen2, 12, 79

	call CLOSE_PROG 

main endp

INIT proc
	mov ax, @data
	mov ds,ax
	sub ax,ax
ret
INIT endp

CLOSE_PROG proc
	mov ah,4ch
	mov al,0
	int 21h
ret
CLOSE_PROG endp
end main

ДА, это именно то, спасибо!!!! я сегодня утречком так и сделал, а только зашёл сюда, что бы ответ написать, а тут исправление уже есть есть, я прописал local перед циклом.
а что значит, если мы @@ или @b , а то я что-то не могу понять принцип работы

alexcoder · 01.03.2010, 22:49

Это фишка масма. @b - ближайшая метка @@, просматриваемая в обратном направлении от перехода(backward). @f - ближайшая метка @@ вперед(forward).

28.02.2010, 01:12	#1
xVxSeRGxVx Пользователь Регистрация: 28.09.2009 Сообщений: 42	Ошибка при многократном вызове макроопределения Доброго времени суток, уважаемые програмисты. пишу програму, що выводит текст в виде геометрических фигур, поскольку я лентяй, то для построения прямоугольника я решил написать 2-a макроопределения, и вызвать их по 2 раза, то есть, для двух вертик. и гориз. сторон. Собственно вот его код программы: Код: .model small .stack 100h PRINT_STR_R MACRO STR, STRLEN, POS_R, POS_ST push ax push bx push cx push dx ; ...текст отстутсвует POS_PRINT_R: ; ...текст отстутсвует LOOP POS_PRINT_R pop dx pop cx pop bx pop ax ENDM PRINT_STR_S MACRO STR, STRLEN, POS_R, POS_ST push ax push bx push cx push dx ; ...текст отстутсвует POS_PRINT_S: ; ...текст отстутсвует LOOP POS_PRINT_S pop dx pop cx pop bx pop ax ENDM clear_screan macro mov ax, 0600h mov bh, 05 mov cx, 0000 mov dx, 184fh int 10h endm .data ; ...текст отстутсвует .code main proc call INIT clear_screan PRINT_STR_R str1, strlen1, 12, 63 PRINT_STR_R str1, strlen1, 24, 63 PRINT_STR_S str2, strlen2, 13, 63 PRINT_STR_S str2, strlen2, 12, 79 call CLOSE_PROG main endp INIT proc mov ax, @data mov ds,ax sub ax,ax ret INIT endp CLOSE_PROG proc mov ah,4ch mov al,0 int 21h ret CLOSE_PROG endp end main и вот, обратите внимание на циклы: POS_PRINT_R и POS_PRINT_S при повторном вызове TASM начинает ругаться: я не знаю что делать, пробывал назвать @@POS_PRINT_R и @@POS_PRINT_S(где-то видел, что так обозначают), хотя не понимаю для чего. В общем всё.

28.02.2010, 22:45	#4
Doholyan Форумчанин Регистрация: 26.04.2009 Сообщений: 270	xVxSeRGxVx Мне так кажеться....у тебя не полный код Последний раз редактировалось Doholyan; 28.02.2010 в 22:48.

01.03.2010, 22:49	#10
alexcoder Форумчанин Регистрация: 31.05.2009 Сообщений: 786	Это фишка масма. @b - ближайшая метка @@, просматриваемая в обратном направлении от перехода(backward). @f - ближайшая метка @@ вперед(forward). Помощь с программами: vk.com/alexcoder1 e-mail: informatik101@mail.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пожирнение текста на StatusBar'е при многократном Repaint'e	TwiX	Общие вопросы Delphi	10	07.02.2010 18:52
выдает ошибку при вызове scanf	Wi1D	Общие вопросы C/C++	6	27.12.2009 19:53
Ошибка сегментации при вызове system("PAUSE")	Lavisa	Общие вопросы C/C++	9	01.08.2009 18:14
Ошибка сегментации при вызове system("PAUSE")	Lavisa	Помощь студентам	0	29.07.2009 17:43

28.02.2010, 20:39	#2
xVxSeRGxVx Пользователь Регистрация: 28.09.2009 Сообщений: 42	что даже соображений никаких нету?...

28.02.2010, 23:56	#6
Doholyan Форумчанин Регистрация: 26.04.2009 Сообщений: 270	Да, именно это!