Из текста надо убрать часть между символами /* и */ - Assembler
Формулировка задачи:
Короче так,из текста надо убрать часть между символами /* и*/,не мог решать,помогите до завтра надо!
и сказали что нужно через процедуру и макрокомандами на ЕМУляторе,я не мог решать
Решение задачи: «Из текста надо убрать часть между символами /* и */»
textual
Листинг программы
; FASM code
org 100h
jmp start
mes0 db 13,10,'String: $'
mes1 db 13,10,'Result: $'
buff db 80 dup('$')
start:
mov dx,mes0
call message
mov di,buff
mov ah,1 ; dos echo
call prog1 ; save on
@@: int 21h ; save off
cmp al,13
je print
cmp al,'*'
je @4
jmp @b
@4: int 21h
cmp al,'/'
je @f
jmp @b
@@: int 21h ; save on
cmp al,13
je print
stosb
jmp @b
print:
mov dx,mes1
call message
mov dx,buff
call message
exit:
xor ax,ax
int 16h
int 20h
;нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн
message: ;
mov ah,9 ;
int 21h ;
ret ;
;---------------------------------------------------------
prog1:
@@: int 21h
cmp al,13
je @3
cmp al,'/' ; find char
je @1
stosb
jmp @b
@1: int 21h
cmp al,'*'
je @2
stosb
jmp @b
@2:
ret
@3: pop ax ; return addr
jmp print