如何在 TASM 的程序中使用本地标签?
How to use local labels in procedures in TASM?
我写的简单
.MODEL small
.STACK 100h
.DATA
liczba dw 0h
licznik dw 0
potega dw 1
liczbaString dw ?
buff db 26
.CODE
Program:
mov ax, @DATA
mov ds, ax
call PobierzString
call PetlaIteracjiZnaku
;zwraca do ax pobraną liczbę
PetlaIteracjiZnaku PROC
mov si, liczbaString
call ZnajdzDlugoscString
mov si, liczbaString
add si, 2
mov bl, 1
petla:
xor ax, ax
mov al, [si]
cmp al, 24h; sprawdza czy nie jest koniec wprowadzanej liczby '$'
je return
sub al, 30h ; odejmuję 30 żeby zamienić znak na liczbę
mul bx
add [liczba], ax
mov ax, bx
mov bx, 0Ah
mul bx
mov bx, ax
inc si
jmp petla
return:
ret
PetlaIteracjiZnaku ENDP
; ! si - caly string
; - ax - dlugosc stringu
ZnajdzDlugoscString PROC
mov al, 0h
petla:
mov dl, [si]
cmp dl, 24h
je return
inc al
jmp petla
return:
ret
ZnajdzDlugoscString ENDP
PobierzString PROC
xor ax,ax
mov ah, 0Ah
mov dx, offset buff
int 21h
mov liczbaString, dx
ret
PobierzString ENDP
Koniec:
mov ah, 4ch
int 21h
end Program
但我无法用 tasm 编译它,因为出现错误:
Symbol already defined elswere: PETLA
Symbol already defined elswere: RETURN
程序如何使用本地标签?我尝试像 Use procedure scope to avoid local labels? 那样添加 .PETLA
和 %%PETLA
,但它仍然不起作用。
我不知道如何实现这个...
要在 TASM 的过程中使用本地标签,您需要:
- 为您的标签名称使用
@@
前缀;和
- 将
LOCALS @@
放在文件的开头。
您可以使用不同的前缀代替 @@
,但 @@
是常用前缀。
参见 TASM User's Guide 的第 130 页。
我写的简单
.MODEL small
.STACK 100h
.DATA
liczba dw 0h
licznik dw 0
potega dw 1
liczbaString dw ?
buff db 26
.CODE
Program:
mov ax, @DATA
mov ds, ax
call PobierzString
call PetlaIteracjiZnaku
;zwraca do ax pobraną liczbę
PetlaIteracjiZnaku PROC
mov si, liczbaString
call ZnajdzDlugoscString
mov si, liczbaString
add si, 2
mov bl, 1
petla:
xor ax, ax
mov al, [si]
cmp al, 24h; sprawdza czy nie jest koniec wprowadzanej liczby '$'
je return
sub al, 30h ; odejmuję 30 żeby zamienić znak na liczbę
mul bx
add [liczba], ax
mov ax, bx
mov bx, 0Ah
mul bx
mov bx, ax
inc si
jmp petla
return:
ret
PetlaIteracjiZnaku ENDP
; ! si - caly string
; - ax - dlugosc stringu
ZnajdzDlugoscString PROC
mov al, 0h
petla:
mov dl, [si]
cmp dl, 24h
je return
inc al
jmp petla
return:
ret
ZnajdzDlugoscString ENDP
PobierzString PROC
xor ax,ax
mov ah, 0Ah
mov dx, offset buff
int 21h
mov liczbaString, dx
ret
PobierzString ENDP
Koniec:
mov ah, 4ch
int 21h
end Program
但我无法用 tasm 编译它,因为出现错误:
Symbol already defined elswere: PETLA
Symbol already defined elswere: RETURN
程序如何使用本地标签?我尝试像 Use procedure scope to avoid local labels? 那样添加 .PETLA
和 %%PETLA
,但它仍然不起作用。
我不知道如何实现这个...
要在 TASM 的过程中使用本地标签,您需要:
- 为您的标签名称使用
@@
前缀;和 - 将
LOCALS @@
放在文件的开头。
您可以使用不同的前缀代替 @@
,但 @@
是常用前缀。
参见 TASM User's Guide 的第 130 页。