Процедуры, прерывания [FASM]

format PE Console 4.0
entry Start
 
include 'win32a.inc'
 
section '.data' data readable writeable
 
Maxlen db 255
Actlen db ?
buffer rb 256
line db 'String $'
eline db 'ardos $',05h
 
section '.text' code readable executable
 
Start:
xor eax,eax
xor edx,edx
xor ebx,ebx  
call input
call head
 
call endline
 
input:
mov ah, 0Ah
lea dx, [Maxlen]
int 21h
ret
 
head:
lea dx, [line]
mov ah,09h
int 21h
ret
 
endline:
lea dx, [eline]
mov ah,09h
int 21h
mov ax, 1003h
mov bl, 1
int 10h
 
Exit:
  invoke  ExitProcess, 0
 
section '.idata' import data readable
 
  library kernel, 'KERNEL32.DLL'
 
  import kernel,\
    ExitProcess, 'ExitProcess'

org 100h

org 100h
start:
 
call input
 
mov ax,3
int 10h
 
xor dx,dx
mov esi,string
movzx cx,[len]
 
@@:
push dx
 
call output
inc [text+6]
inc cx
call parse
 
pop dx
add dh,2
test cx,cx
jnz @b
 
xor ax,ax
int 16h
ret
 
parse:
 
mov edi,esi
mov al,'.'
repnz scasb
mov al,' '
repe scasb
test cx,cx
je @1
dec di
@1:
mov byte [di-1],24h
mov edx,esi
mov esi,edi
 
mov ah,9
int 21h
ret
 
input:
 
mov dx,buffer
mov ah,10
int 21h
 
ret
 
output:
 
push cx
mov ax,1301h
mov bx,0eh
mov cx,len_text
mov bp,text
int 10h
pop cx
 
ret
 
buffer db 254
len db 0
string rb 255 
 
text db 'Offer-1:',0dh,0ah
len_text = $-text

Mov ax, 1234
Push ax
Shl eax, 16
Pop ax
Mov cx, 1000
Rep StoSd

Mov ax, 1234
Mov cx, 2000
Rep StoSw