Считать строку

[XATAB]

Всем здрасте, ассемблер изучаю недавно. Необходимо считать с клавиатуры строку, а потом вывести ее на экран.
Пишу следующее:

.model small
.stack 100h

.code

start:
	mov ax, dgroup
	mov ds, ax

	mov ah, 0ah
	mov dx, offset stroka
	int 21h

	mov ah, 09h
	mov dx, offset stroka
	int 21h

	mov ax, 4c00h
	int 21h

.data
	stroka db ""

end start

он мне выдает какие-то непонятные символы(много) и вот такую строчку DOS SETBLOCK (4Ah) error.
Заранее всем спасибо

[alexBlack]

Читаем внимательно описание int 21,0A

До вызова должен быть подготовлен буфер
max ??????
после вызова буфер содержит строку. Формат буфера
max, len, text, 0Dh

объяви строку хотя-бы так

stroka db 10,'$','$','$','$','$','$','$','$', '$','$','$','$'

Читаем дальше. Int 21,09 требует смещения на начало строки, заканчивающейся символом '$'. Символ окончания уже есть, т.к. мы сами объявили буфер. При указании смещения нужно пропустить 2 байта.

[XATAB]

Попробовал объявить строку как ты предложил - все отлично. Ток перед строкой выдает ромбик. А вот если мне нужно будет ввести строку больше чем 10 байт например 100, я так понял это надо писать так

stroka db 100, "$"

.
А вообще как-нить можно объявить сроку ну типо как в паскале чтоб длина была 255

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

При указании смещения нужно пропустить 2 байта.

Как это сделать, чет я не догоняю.

[alexBlack]

Первый байт - max количество вводимых символов.
После вызова функции второй байт - количество введенных символов.
С третьего символа - сама строка

Первые два байта пропускаем:

    mov ah, 09h   
    mov dx, offset stroka   
    add dx, 2
    int 21h

[XATAB]

сделал я так, токо теперь он у меня ваще ничего не выводит

[alexBlack]

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

сделал я так, токо теперь он у меня ваще ничего не выводит

Это кажется. После того как нажимаем <enter> курсор не перемещается на следующую строку и вывод идет по введенному тексту.

объяви еще одну строку

stroka1 db 'gfhjksghjfdhgjfkdlshgjfldhgjkfdhgj l','$'

и измени

mov ah, 09h
mov dx, offset stroka1
;add dx, 2
int 21h

увидишь.

Вывод - после ввода нужно перемещать курсор.

Перед выводом введенной строки сначала выведи db 0Dh, 0Ah, '$'

[XATAB]

Спасиб, понял. Буду пробовать

[ёжик]

вот программа написана на masm32

.386
.model flat,stdcall
option casemap:none
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib

.data
ClassName db "SimpleWinClass",0
AppName  db "vivod",0
MenuName db "FirstMenu",0
ButtonClassName db "button",0
ButtonText db "start programm",0
EditClassName db "edit",0
TestString db "Wow! I'm in an edit box now",0
caption  db "vivod",0

.data?
hInstance HINSTANCE ?
CommandLine LPSTR ?
hwndButton HWND ?
hwndEdit HWND ?
buffer db 512 dup(?)

.const
ButtonID equ 1
EditID equ 2
IDM_HELLO equ 1
IDM_CLEAR equ 2
IDM_GETTEXT equ 3
IDM_EXIT equ 4

.code
start:
invoke GetModuleHandle, NULL
mov    hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess,eax
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
mov   wc.cbSize,SIZEOF WNDCLASSEX
mov   wc.style, CS_HREDRAW or CS_VREDRAW
mov   wc.lpfnWndProc, OFFSET WndProc
mov   wc.cbClsExtra,NULL
mov   wc.cbWndExtra,NULL
push  hInst
pop   wc.hInstance
mov   wc.hbrBackground,COLOR_BTNFACE+1
mov   wc.lpszMenuName,OFFSET MenuName
mov   wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov   wc.hIcon,eax
mov   wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov   wc.hCursor,eax
invoke RegisterClassEx, addr wc
INVOKE CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,\
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
CW_USEDEFAULT,300,200,NULL,NULL,\
hInst,NULL
mov   hwnd,eax
INVOKE ShowWindow, hwnd,SW_SHOWNORMAL
INVOKE UpdateWindow, hwnd
.WHILE TRUE
INVOKE GetMessage, ADDR msg,NULL,0,0
.BREAK .IF (!eax)
INVOKE TranslateMessage, ADDR msg
INVOKE DispatchMessage, ADDR msg
.ENDW
mov     eax,msg.wParam
ret
WinMain endp
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
.IF uMsg==WM_DESTROY
invoke PostQuitMessage,NULL
.ELSEIF uMsg==WM_CREATE
invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR EditClassName,NULL,\
WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or\
ES_AUTOHSCROLL,\
50,35,200,25,hWnd,EditID,hInstance,NULL
mov  hwndEdit,eax
invoke SetFocus, hwndEdit
invoke CreateWindowEx,NULL, ADDR ButtonClassName,ADDR ButtonText,\
WS_CHILD or WS_VISIBLE or BS_DEFPUSHBUTTON,\
75,70,140,25,hWnd,ButtonID,hInstance,NULL
mov  hwndButton,eax
.ELSEIF uMsg==WM_COMMAND
mov eax,wParam
.IF lParam==0
.IF ax==IDM_HELLO
invoke SetWindowText,hwndEdit,ADDR TestString
invoke SendMessage,hwndEdit,WM_KEYDOWN,VK_END,NULL
.ELSEIF ax==IDM_CLEAR
invoke SetWindowText,hwndEdit,NULL
.ELSEIF  ax==IDM_GETTEXT
invoke GetWindowText,hwndEdit,ADDR buffer,512
invoke     MessageBox,0,addr buffer,addr caption ,MB_OK

.ELSE
invoke DestroyWindow,hWnd
.ENDIF
.ELSE
.IF ax==ButtonID
shr eax,16
.IF ax==BN_CLICKED
invoke SendMessage,hWnd,WM_COMMAND,IDM_GETTEXT,0
.ENDIF
.ENDIF
.ENDIF
.ELSE
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.ENDIF
xor    eax,eax
ret
WndProc endp
end start

[XATAB]

за masm32 спс, но мне пока до него далеко. хочу понять простое

[Stilet]

ёжик

А где тут считывание с клавиатуры?