Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Ребят нужна помощ знатаков асма -.-
Нужно написать процедуры для ввода с клавиатуры, аналоги подпрограмм ввода/вывода с Паскаля Read(ln) Write(ln)

когда то писал ввиде макросов, вот держи:

Код:

puts MACRO src         ; print string to STDOUT
 IFB <src>	                                     
  display "Use macro: puts <string>"
  EXITM								
 ELSE
  push ax
  push dx
  lea dx,src 						
  mov ah,09h						
  int 21h							
  pop dx
  pop ax
 ENDIF 								
ENDM

Код:

gets MACRO dst         ; read string from STDIN
local _read, _done                

 IFB <dst>                          
  display "Use macro: gets <dst>"   
  EXITM								
 ELSE 
   push ax
   push bx
   lea bx, dst            
    _read:     
      getc
      cmp al, 13
      je _done        
      mov [bx], al
      inc bx
      jmp _read
    _done:
      putc 0Ah
   pop bx
   pop ax   
 ENDIF   
ENDM