Аналог System('cls') в fasm

[_PROGRAMM_]

Добрый день. Столкнулся со следующей проблемой. Мне нужно в определенный момент очистить консоль. В c++ это делается следующим образом.

System('cls')

В asm под DOS

mov ax, 03
int 10h

В ОСx64 шестнадцати битные приложения не работают, следовательно, прерывания тоже. Как ни извращался, используя WinApi, не получается очистить консоль. Вот следующим образом

invoke System, 'cls'

не работает, т.к. fasm не знает этого System(регистр символов исключаем). Может какой-нибудь .inc ее содержит? В Win32ax.inc нет.

[rpy3uH]

27 раз вывести пустую строку пробовал?

[_PROGRAMM_]

27 раз вывести пустую строку пробовал?

А как же. Только курсор внизу находиться, а нужно, чтобы вверху. У меня будет как бы схема. В ней должны отображаться включенные и выключенные эл. приборы, например, лампочки. Т.е. по какому-нибудь событию все содержимое консоли стирается и перерисовывается заново. Только почему 27 раз? Обычно консоль 80 на 25, или что-то путаю. Можно, конечно, Scroll двигать, но это уже тяжеловато.
Есть вероятность того, что

invoke System,'cls'

существует?

[rpy3uH]

Только курсор внизу находиться, а нужно, чтобы вверху

попробуй SetConsoleCursorPosition

invoke System,'cls'

сам-то понял что сказал? нету конечно

[rpy3uH]

section '.data' data readable writeable
inputa db 'Input a ',0
empty_str db 80 dup (' '),13,10

InputHandle dd 0
OutputHandle dd 0

Writed dd 0
Readed dd 0

MAX_VALUE_LENGTH equ 30

message  db 'govno', 13, 10
a_str  db MAX_VALUE_LENGTH dup (0)

section '.code' code executable readable writeable

start:

    invoke GetStdHandle, STD_INPUT_HANDLE
    ;invoke CreateFile, cons, GENERIC_READ, 0,0, OPEN_EXISTING,0,0
    mov [InputHandle], eax

    invoke GetStdHandle, STD_OUTPUT_HANDLE
    ;invoke CreateFile, cons, GENERIC_WRITE, 0,0, OPEN_EXISTING,0,0
    mov [OutputHandle], eax

    invoke WriteConsole, [OutputHandle], message, 7,Writed,0
    invoke WriteConsole, [OutputHandle], message, 7,Writed,0
    invoke WriteConsole, [OutputHandle], message, 7,Writed,0
    invoke WriteConsole, [OutputHandle], message, 7,Writed,0
    invoke WriteConsole, [OutputHandle], message, 7,Writed,0
    invoke WriteConsole, [OutputHandle], message, 7,Writed,0
    invoke WriteConsole, [OutputHandle], inputa, 8,Writed,0
    invoke ReadConsole, [InputHandle], a_str, MAX_VALUE_LENGTH, Readed,0

    invoke SetConsoleCursorPosition, [OutputHandle], 0 ;ставим курсор в начало
    mov ebx, 24
   @@:                                                                ;24 пустные строки
    invoke WriteConsole, [OutputHandle], empty_str, 80, Writed,0
    dec ebx
    jnz @b

    invoke SetConsoleCursorPosition, [OutputHandle], 0 ;ставим курсор в начало

    invoke WriteConsole, [OutputHandle], inputa, 8,Writed,0
    invoke ReadConsole, [InputHandle], a_str, MAX_VALUE_LENGTH, Readed,0
    invoke WriteConsole, [OutputHandle], message, 7, Writed,0
    invoke ReadConsole, [InputHandle], a_str, 1,0,0


    invoke ExitProcess, 0

"спасибо" не надо

[_PROGRAMM_]

"спасибо" не надо

Надо и еще как.

попробуй SetConsoleCursorPosition

Спасибо огромное. Вот это то, что мне нужно.

сам-то понял что сказал? нету конечно

Ну а почему бы и нет? Реализация на WinApi была бы как нельзя к стати. Что вообще в языках высокого уровня представляет из себя этот system()? Мне всегда казалось, что это WinAPI функция.

[Ulex]

Есть ещё:
FillConsoleOutputCharacter
можно за один вызов очистить весь буфер экрана консоли одним символом.
Кстати, буфер экрана не всегда равен размеру окна консоли и уж совсем не обязан быть равен 80*25.

[vadimych]

FreeConsole, и следом- AllocConsole.

[Stilet]

сам-то понял что сказал? нету конечно

Че это так категорично?
Вотъ:

format PE console
entry start
 
include 'D:\fasmw16726\INCLUDE\win32a.inc'
 
section '.data' data readable writeable
message db 'Привет мир',0
member dw ?
r db 'Russian',0
cls db 'cls',0
section '.code' code readable executable

start:

 cinvoke setlocale,1,r

; CINVOKE макрос в составе FASM.
; Позволяет вызывать CDECL-функции. 
  cinvoke system,cls
  cinvoke printf,message
  cinvoke getch
; INVOKE аналогичный макрос для STDCALL-функций. 
  invoke ExitProcess,0
section '.idata' import data readable
library kernel,'kernel32.dll',\
        msvcrt,'msvcrt.dll'
 
import kernel,\
       ExitProcess,'ExitProcess'
 
import msvcrt,\
       setlocale,'setlocale',\
       system,'system',\
       printf,'printf',\
       getch,'_getch'

Подумаешь зависимость от СИсястых библиотек... Когда это их цурались?

Мне всегда казалось, что это WinAPI функция.

Не совсем ВИН

[yuran666666]

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

FreeConsole, и следом- AllocConsole.

изыди, сотона!