Из текста надо убрать часть между символами /* и */ - 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

Оцени полезность:

10   голосов , оценка 4.5 из 5
Похожие ответы