Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %TITLE "pr.robota#08;variant05;Kudryavcev"
- IDEAL
- MODEL small
- STACK 256
- k EQU 20
- DATASEG
- a DB -5
- b DB 25
- c DB 53
- d DB -3
- x DB ?
- CODESEG
- Start: mov ax,@data
- mov ds,ax
- xor ax,ax
- mov al,[a]
- imul [a] ;al=a^2
- add al,[b];al=a^2+b
- push ax; ax->стек
- xor ax,ax
- mov al,[a]
- imul al
- mul al;a^4
- mov bl,[d];bl=d
- imul bx ;bx=d^2
- push ax;ax=a^4>стек
- xor ax,ax
- mov al,[a]
- imul al
- mul al;a^4
- mov bl,[a];
- imul bx ;a^2
- pop bx;стек>bx
- sub ax,bx;ax=a^5-d*bx=a^4
- pop bx;ctek->bx
- idiv bl; a^5-d*bx=a^4/bl=a^2*b
- neg ax
- neg ax
- add al,[c]; a^5-d*bx=a^4/bl=a^2*b+al=c
- mov bl,k;bl=k
- sub al,bl; a^5-d*bx=a^4/bl=a^2*b+al=c-k
- mov [x],al
- mov dl,al
- add dl,30h
- mov ah,02h
- int 21h
- Exit: mov ah,4Ch
- mov al,0
- int 21h
- END Start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement