Создание консольных приложений в 64-разрядной Windows Seven - Assembler - Ответ 8825355

include win64a.inc
BLACK   equ 0
BLUE    equ 1
GREEN   equ 2
CYAN    equ 3
RED equ 4
PURPLE  equ 5
YELLOW  equ 6
SYSTEM  equ 7
GREY    equ 8
BRIGHTBLUE equ 9
BRIGHTGREEN equ 10
BRIGHTCYAN equ 11
BRIGHTRED equ 12 
BRIGHTPURPLE equ 13
BRIGHTYELLOW equ 14
WHITE   equ 15
MAXSCREENX = 80
MAXSCREENY = 25
buffersize = 200
X = 0
Y = 10
.code
WinMain proc
local LENS:qword
local hOut:qword
local BUFF[buffersize]:byte
local ConsoleWindow:SMALL_RECT
 
        push rbp
    mov ebp,esp
    sub esp,(28h+2*8+buffersize+sizeof SMALL_RECT+15)and(-16)
 
    call    FreeConsole;release the existing console
        call    AllocConsole;create the console
        mov ecx,STD_OUTPUT_HANDLE
        call    GetStdHandle;receive the handle for a conclusion
        mov     hOut,rax
        mov rcx,rax     ; hConsoleOutput
    call    GetLargestConsoleWindowSize     
;   rax return in 31-16 bits: dwCoord.y
;                 15-00 bits: dwCoord.x
 
        lea r8d,ConsoleWindow
    mov [r8+SMALL_RECT.Left],0
    mov [r8+SMALL_RECT.Top],0
 
    sub ax, MAXSCREENX
    sbb edx, edx
    and ax, dx
    add ax, MAXSCREENX-1
    mov [r8+SMALL_RECT.Right],ax
 
    shr eax, 16
    sub eax, MAXSCREENY
    sbb edx, edx
    and eax, edx
    add eax, MAXSCREENY-1
    mov [r8+SMALL_RECT.Bottom],ax
 
    mov edx,TRUE        ; bAbsolute
    mov rcx,hOut        ; hConsoleOutput
    call    SetConsoleWindowInfo
 
    mov edx,MAXSCREENY*10000h+MAXSCREENX;dwCoord
    mov rcx,hOut        ; hConsoleOutput
    call    SetConsoleScreenBufferSize;establish the new size of a window of the console
    mov     ecx,offset STR2
    call    SetConsoleTitle     ;definition of a title bar
        mov     edx,Y*10000h+X
        mov     rcx,hOut
        call    SetConsoleCursorPosition;establish a cursor position
        mov     edx,BRIGHTGREEN     ;color of the output text
        mov     rcx,hOut
        call    SetConsoleTextAttribute ;set color attributes of the output text
        mov     qword ptr [rsp+20h],0
    lea     r9d,BUFF
        mov     r8d,sizeof STR1
    mov     edx,offset STR1
    mov     rcx,hOut
        call    WriteConsole        ;display a line of symbols
        mov     ecx,STD_INPUT_HANDLE
        call    GetStdHandle        ;receive HANDLE for input
        mov     qword ptr [rsp+20h],0
    lea     r9d,LENS
        mov     r8d,buffersize
    lea     edx,BUFF
        mov     rcx,rax
        call    ReadConsole     ;wait for input of a line of symbols
        mov     edx,BRIGHTCYAN      ;color of the input text
        mov     rcx,hOut
        call    SetConsoleTextAttribute ;set color attributes of the output text
        mov     qword ptr [rsp+20h],0
    lea     r9d,LENS
        mov     r8d,[r9]        ;length of the removed line
    lea edx,BUFF
        mov rcx,hOut
        call    WriteConsole
        mov     ecx,3000        ;small delay
    call    Sleep
        call    FreeConsole     ;close the console
    mov ecx,ecx
        call    ExitProcess
WinMain endp
STR1 db 'Enter line of any symbols and press "Enter":',13,10
STR2 db 'Iczelion''s tutorial #38a',0
end