,
:
ASSEMBLER
:
-201
:
. .
Assembler:
title prog.asm ;
stacksg segment stack;
db 64 dup (?); word 64
stacksg ends ;
datasg segment ;
m1 db 'Vvedite X $' ; Xn
db 10,13,'$' 10 ,13
m2 db 10,13,'Vvedite X konech $' Xk , byte
db 10,13,'$'; 10 ,13
m22 db 10,13,'Vvedite delta X $' Xm , byte
db 10,13,'$''; 10 ,13
m3 db ' X Y $'
db 10,13,'$'''; 10 ,13
D dw? , word,
yn dw 1 , word,
N dw? , word,
y dw? , word,
t dw? , word,
Xd dw?
Xk dw?
Ft10 dw 1
ten dw 10
sr db 6 dup(0),'$'
srk db 10,13,'$'
srb db 10 dup (0), '$'
buf db 5,0,0,0,0,0,0,0 byte 5
datasg ends ;
codesg segment ;
assume cs:codesg, ds:datasg, ss:stacksg
main proc far , far ( )
push ds ; DS
sub ax,ax ;
push ax ; AX
mov ax,datasg; datasg AX
mov ds,ax ; (PSP)
mov ah,9; xn
mov dx,offset m1 Xn DX
int 21h ; 21
mov AH,0AH xn, 0
mov dx,offset buf ; DX
int 21h ; 21
call str2bin ; str2bin
mov d,di ; DI xn
mov ah,9 ; xk
mov dx,offset m2 ; Xk DX
int 21h ; 21
mov AH,0AH ; xk, 0
mov dx,offset buf ; DX
int 21h ; 21
call str2bin ; str2bin
mov xk,di; DI xk
|
|
mov ah,9 ; xm
mov dx,offset m22 ; Xm DX
int 21h ; 21
mov AH,0AH ; xm, 0
mov dx,offset buf; DX
int 21h ; 21
call str2bin ; str2bin
mov xd,di ; DI xm