В конце строки удалить все цифры 0 и символы с кодом меньше пробела (раздельная компиляция Turbo Pascal и TASM)

@imprives · Регистрация: 13.04.2018

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, с ассемблером проблемы, не могу никак понять, как все работает. С высоким уровнем более менее все понятно, а тут гг, помогите, буду очень признателен, заранее спасибо большое.

Составить внешнюю подпрограмму. Подпрограмму оформить в отдельном модуле. Для проведения отладки подпрограммы необходимо так же составить две основные программы: на языке ассемблера и на языке высокого уровня, вызывающие составленную подпрограмму как внешнюю. Тип вызова выбирается самостоятельно.
function TrimTrail(S: string): string. Возвращает строку, в конце которой удалены все цифры 0 и символы с кодом меньше пробела.

ФедосеевПавел · 13.04.2018, 19:47

Тестовый код на ассемблере для вызова TrimTrail выполните самостоятельно.

Pascal

program test;
 
uses
  crt;
 
  function TrimTrail(S: string): string; far; external;
  {$L Trim.obj}
 
var
  S: string;
 
begin
  clrscr;
  S := '123400000'#1#5;
  writeln(S);
  writeln(TrimTrail(S));
  writeln(S);
end.

Trim.asm

Assembler

code    segment byte public
        assume  cs:code
        public  TrimTrail
 
;function TrimTrail(S: string): string;
;при сопряжении с Turbo Pascal фактически имеет
;два параметра:
;@Result - адрес результирующей строки
;S       - адрес исходной строки
;но параметр @Result - не учитывается в списке при очистке стека
TrimTrail       proc    far
 
        push    bp
        mov     bp,     sp
        push    ds
        lds     si,     [bp+6]  ;адрес строки источника
        les     di,     [bp+10] ;адрес строки результата
        xor     cx,     cx
        or      cl,     [si]
        jz      @@Copy
 
        mov     bx,     cx
        mov     dx,     si
        ;вычисление длины усечённой строки
        add     si,     cx
        std
        @@StrLen:
                lodsb
                cmp     al,     ' '
                jb      @@Next
                cmp     al,     '0'
                jnz     @@Break
        @@Next:
        loop    @@StrLen
@@Break:
@@Copy:
        ;копирование усечённой строки
        mov     al,     cl
        cld
        stosb
        jcxz    @@Exit
        mov     si,     dx
        inc     si
        rep     movsb
@@Exit:
        pop     ds
        pop     bp
        ret     4       ;т.к. @Result не входит в список параметров
TrimTrail       endp
code    ends
        end

@imprives 0 / 0 / 0 Регистрация: 13.04.2018 Сообщений: 3
		1
	TASM В конце строки удалить все цифры 0 и символы с кодом меньше пробела (раздельная компиляция Turbo Pascal и TASM) 13.04.2018, 13:40. Показов 1810. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста, с ассемблером проблемы, не могу никак понять, как все работает. С высоким уровнем более менее все понятно, а тут гг, помогите, буду очень признателен, заранее спасибо большое. Составить внешнюю подпрограмму. Подпрограмму оформить в отдельном модуле. Для проведения отладки подпрограммы необходимо так же составить две основные программы: на языке ассемблера и на языке высокого уровня, вызывающие составленную подпрограмму как внешнюю. Тип вызова выбирается самостоятельно. function TrimTrail(S: string): string. Возвращает строку, в конце которой удалены все цифры 0 и символы с кодом меньше пробела. 0

Опции темы