Программирование обработки, преобразования и ввода-вывода данных на ассемблере ПЭВМ. Домнин Л.Н. - 24 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

23
Продолжение прил.
Основная программа и подпрограммы ascbin, func,binasc
оформлены как самостоятельные файлы с именами
osn_prg.asm,
ascbin.asm,
func.asm, binasc.asm соответственно.
Подпрограммы
outdispl,vvod,asc_bin объединены в один
файл
lib.mac, образующий макробиблиотеку.
Основная программа osn_prg
include lib.mac
extrn binasc:far,func:far,ascbin:far
public des
;-----------------------------------------------------------;
stseg segment para stack 'stack' ; сегмент;
db 16 dup('stack ') ; стека ;
stseg ends ; ;
;-----------------------------------------------------------;
dseg segment para public ; ;
tekst1 db 13,10,'==============================' ; ;
db 13,10,'Программа вычисления функции' ; ;
db 13,10,' y=(a+b)c/d' ; ;
db 13,10,'Значения aргументов вводятся с' ; ;
db 13,10,'клавиатуры в формате: ЗнЦЦЦ. ' ; ;
db 13,10,'------------------------------','$'; с ;
tksta db 13,10,' Введите a = ','$' ; е ;
tkstb db 13,10,' Введите b = ','$' ; г ;
tkstc db 13,10,' Введите c = ','$' ; м ;
tkstd db 13,10,' Введите d = ','$' ; е ;
tekst2 db 13,10,'------------------------------' ; н ;
db 13,10,'Результат: y = ','$' ; т ;
tekst3 db 13,10,'==============================','$'; ;
a dw ? ; ; 
                                                Продолжение прил.
   Основная программа и подпрограммы ascbin, func,binasc
оформлены как самостоятельные файлы с именами osn_prg.asm,
ascbin.asm, func.asm, binasc.asm соответственно.
   Подпрограммы outdispl,vvod,asc_bin объединены в один
файл lib.mac, образующий макробиблиотеку.

                Основная программа osn_prg
        include      lib.mac
        extrn        binasc:far,func:far,ascbin:far
        public       des
;-----------------------------------------------------------;
stseg   segment   para   stack   'stack'           ; сегмент;
        db 16 dup('stack    ')                     ; стека ;
stseg   ends                                       ;        ;
;-----------------------------------------------------------;
dseg    segment   para    public                      ;     ;
tekst1 db 13,10,'=============================='      ;     ;
        db 13,10,'Программа вычисления функции'       ;     ;
        db 13,10,'          y=(a+b)c/d'               ;     ;
        db 13,10,'Значения aргументов вводятся с'     ;     ;
        db 13,10,'клавиатуры в формате: ЗнЦЦЦ. '      ;     ;
        db 13,10,'------------------------------','$'; с ;
tksta   db 13,10,'       Введите a = ','$'            ; е ;
tkstb   db 13,10,'       Введите b = ','$'            ; г ;
tkstc   db 13,10,'       Введите c = ','$'            ; м ;
tkstd   db 13,10,'       Введите d = ','$'            ; е ;
tekst2 db 13,10,'------------------------------'      ; н ;
        db 13,10,'Результат:      y = ','$'           ; т ;
tekst3 db 13,10,'==============================','$';       ;
a       dw ?                                          ;     ;

                               23

Страницы