Программирование на Ассемблере для персональных компьютеров. Садовой Н.Н - 57 стр.

UptoLike

Составители: 

57
;Занести в стек параметры и вызвать подпрограмму удаления
lea bx, S_INPBUF
mov al, S_FACTLEN ; дополняем до слова
cbw
push ax ; 4-й параметр длина строки
push LENDEL ; 3й параметр число удаляемых симв.
push POSDEL ; 2-й параметр позиция удаления
push bx ; 1й параметр адрес строки
call DELSUB ; вызов подпрограммы
; Вывод результата
lea dx, MESS4
mov ah, 09h
int 21h ; вывод заголовка вывода
lea bx, S_FACTLEN
xor cx, cx
mov cl, S_FACTLEN
LLL3: inc bx
cmp byte ptr [bx], 0
loopne LLL3 ; повторять до конца строки или
первого нуля
LLL4: mov byte ptr [bx], "$"
lea DX, S_INPBUF
mov ah, 09h
int 21h
jmp LOP
QUIT: mov ax, 4c00h
int 21h
; Функция получения числа из его строкового представления
   ;Занести в стек параметры и вызвать подпрограмму удаления
            lea    bx, S_INPBUF
            mov al, S_FACTLEN ; дополняем до слова
            cbw
            push ax              ; 4-й параметр длина строки
            push LENDEL          ; 3й параметр число удаляемых симв.
            push POSDEL          ; 2-й параметр позиция удаления
            push bx              ; 1й параметр адрес строки
            call   DELSUB        ; вызов подпрограммы
   ; Вывод результата
            lea    dx, MESS4
            mov ah, 09h
            int    21h           ; вывод заголовка вывода
            lea    bx, S_FACTLEN
            xor    cx, cx
            mov cl, S_FACTLEN
LLL3:       inc    bx
            cmp byte ptr [bx], 0
            loopne          LLL3 ; повторять до конца строки или первого нуля
LLL4:       mov byte ptr [bx], "$"
            lea    DX, S_INPBUF
            mov ah, 09h
            int    21h
            jmp LOP
QUIT:       mov ax, 4c00h
            int    21h
        ; Функция получения числа из его строкового представления


                                                                                57