|
ASM proger
Гость
|
 |
« : 29-09-2003 18:15 » |
|
Помогите.... объявляю функцию через extrn а потом ее вызываю (call), но транслятор пишет, мол нету такой...
.model small
.stack 100h
WhiteOnBlue = 1Fh
GreetingLoc = 0400h
.data
greeting db "Link Library Demo"
db 0dh, 0ah, 0dh, 0ah
db "What's your name?", 0
numberPrompt db 0dh, 0ah, "please enter a 16-bit integer: ", 0
userName db 50 dup(0)
pressAnyKey db 0dh, 0ah,0dh,0ah
db "Press any key...", 0
.code
extrn Clrscr:proc, Crlf:proc, Gotoxy:proc, \
Readint:proc, Readstring:proc, Scroll:proc, \
Readkey:proc, Writeint:proc, Writestring:proc
main proc
mov ax, @data
mov ds, ax
;очистка экрана, заполнение синим цветом
call Clrscr
mov cx, 0400h ;верхний левый угол
mov dx, 0B28h ;нижний правый угол
mov bh, WhiteOnBlue
call Scroll
;отобразить приветствие и спросить имя пользователя
mov dx, GreetingLoc
call Gotoxy
mov dx, offset greeting
call Writestring
mov dx, offset userName
call Readstring
;попросить ввести целое число со знаком
;отобразить число в 16-ричном и двоичном виде
mov dx, offset numberPrompt
call Writestring
call Readint ;ввод числа
call Crlf
mov dx, 16 ;отображение в 16-ричном виде
call Writeint
call Crlf
mov bx, 2 ;отображение в двоичном виде
call Writestring
mov dx, offset pressAnyKey
call Writestring
call Readkey
call Clrscr
mov ax, 4c00h ;конец программы
int 21h
main endp
end main
|
