.


:




:

































 

 

 

 





() , , . , . . , . .

2- : .

, :

l ( IP) ;

l ( );

l : , ; , .

.

.

(. 18.2), n .

TITLE SQR.ASM;

stacksg segment para stack 'Stack'

;

dw 32 dup(32)

stacksg ends

datasg segment para 'Data'

;

vv db ' n ( 64 .) $'

viv db 10,13,' = $'

sr db 3 dup(0)

db 13,10,'$'

buf db 5,0,0,0,0,0,0,0

n dw?

e dw 1

a dw?

b dw?

val dw?

two dw 2

datasg ends

codesg segment para 'Code'

;

assume cs:codesg,ds:datasg,ss:stacksg

begin proc far

push ds

sub ax,ax

push ax

mov ax,datasg

mov ds,ax

mov ah, 9

mov dx,offset vv

int 21h

mov ah, 0ah

mov dx,offset buf

int 21h

call str2bin

mov dx,0

mov ax,n

inc ax

div two

sub dx,dx

mov a,ax

iter: mov ax,n

div a

add ax,a

mov dx,0

div two

sub dx,dx

mov b,ax

sub ax,a

cmp ax,e

jbe met

mov ax,b

mov a,ax

jmp iter

met: mov ah,9

mov dx,offset viv

int 21h

call bin2str

mov ah,9

mov dx,si

int 21h

ret

bin2str proc near

mov cx,10

mov si,offset sr+2

mov ax,b

m1: sub dx,dx

div cx

or dl,30h

mov [si],dl

dec si

cmp ax,0

jne m1

ret

bin2str endp

str2bin proc near

mov di,1

mov cx,0ah

mov si,offset buf+1

sub bh,bh

mov bl,[buf+1]

m2: mov al,[si+bx]

and ax,0fh

mul di

add n,ax

mov ax,di

mul cx

mov di,ax

dec bx

jnz m2

ret

str2bin endp

begin endp

codesg ends

end begin

. 18.2 n

 

SQR.ASM.

Microsoft (R) Macro Assembler Version 5.10 3/19/04 23:44:19

SQR.ASM;

TITLE SQR.asm;

0000 stacksg segment para stack 'Stack'

;

0000 0020[ dw 32 dup(32)

]

0040 stacksg ends

0000 datasg segment para 'Data'

;

0000 A2 A2 A5 A4 A8 E2 vv db ' n ( 64 .)$'

A5 20 A0 E0 A3 E3

AC A5 AD E2 20 6E

20 28 A4 AE 20 36

34 20 E2 EB E1 2E

29 20 24

0021 0A 0D A7 AD A0 E7 viv db 10,13,' = $'

A5 AD A8 A5 20 AA

AE E0 AD EF 20 20

3D 20 24

0036 0003[ sr db 3 dup(0)

]

003A 0D 0A 24 db 13,10,'$'

003D 05 00 00 00 00 00 buf db 5,0,0,0,0,0,0,0

00 00

0045 0000 n dw?

0047 0001 e dw 1

0049 0000 a dw?

004B 0000 b dw?

004D 0000 val dw?

004F 0002 two dw 2

0051 datasg ends

0000 codesg segment para 'Code'

;

assume cs:codesg,ds:datasg,ss:stacksg

0000 begin proc far

0000 1E push ds

0001 2B C0 sub ax,ax

0003 50 push ax

0004 B8 ---- R mov ax,datasg

0007 8E D8 mov ds,ax

0009 B4 09 mov ah, 9

000B BA 0000 R mov dx,offset vv

000E CD 21 int 21h

0010 B4 0A mov ah, 0ah

0012 BA 003D R mov dx,offset buf

0015 CD 21 int 21h

0017 E8 007D R call str2bin

001A BA 0000 mov dx,0

001D A1 0045 R mov ax,n

0020 40 inc ax

0021 F7 36 004F R div two

0025 2B D2 sub dx,dx

0027 A3 0049 R mov a,ax

002A A1 0045 R iter: mov ax,n

002D F7 36 0049 R div a

0031 03 06 0049 R add ax,a

0035 BA 0000 mov dx,0

0038 F7 36 004F R div two

003C 2B D2 sub dx,dx

003E A3 004B R mov b,ax

0041 2B 06 0049 R sub ax,a

0045 3B 06 0047 R cmp ax,e

0049 76 08 jbe met

004B A1 004B R mov ax,b

004E A3 0049 R mov a,ax

0051 EB D7 jmp iter

0053 B4 09 met: mov ah,9

0055 BA 0021 R mov dx,offset viv

0058 CD 21 int 21h

005A E8 0064 R call bin2str

005D B4 09 mov ah,9

005F 8B D6 mov dx,si

0061 CD 21 int 21h

0063 CB ret

0064 bin2str proc near

0064 B9 000A mov cx,10

0067 BE 003A R mov si,offset sr+2

006A A1 004B R mov ax,b

006D 2B D2 m1: sub dx,dx

006F F7 F1 div cx

0071 80 CA 30 or dl,30h

0074 88 14 mov [si],dl

0076 4E dec si

0077 3D 0000 cmp ax,0

007A 75 F1 jne m1

007C C3 ret

007D bin2str endp

007D str2bin proc near

007D BF 0001 mov di,1

0080 B9 000A mov cx,0ah

0083 BE 003E R mov si,offset buf+1

0086 2A FF sub bh,bh

0088 8A 1E 003E R mov bl,[buf+1]

008C 8A 00 m2: mov al,[si+bx]

008E 25 000F and ax,0fh

0091 F7 E7 mul di

0093 01 06 0045 R add n,ax

0097 8B C7 mov ax,di

0099 F7 E1 mul cx

009B 8B F8 mov di,ax

009D 4B dec bx

009E 75 EC jnz m2

00A0 C3 ret

00A1 str2bin endp

00A1 begin endp

00A1 codesg ends

end begin

Segments and Groups:

N a m e Length Align Combine Class

CODESG......... 00A1 PARA NONE 'CODE'

DATASG......... 0051 PARA NONE 'DATA'

STACKSG........ 0040 PARA STACK 'STACK'

Symbols:

N a m e Type Value Attr

A........... L WORD 0049 DATASG

B........... L WORD 004B DATASG

BEGIN......... F PROC 0000 CODESG Length = 00A1

BIN2STR........ N PROC 0064 CODESG Length = 0019

BUF.......... L BYTE 003D DATASG

E........... L WORD 0047 DATASG

ITER.......... L NEAR 002A CODESG

M1........... L NEAR 006D CODESG

M2........... L NEAR 008C CODESG

MET.......... L NEAR 0053 CODESG

N........... L WORD 0045 DATASG

SR........... L BYTE 0036 DATASG Length = 0004

STR2BIN........ N PROC 007D CODESG Length = 0024

TWO.......... L WORD 004F DATASG

VAL.......... L WORD 004D DATASG

VIV.......... L BYTE 0021 DATASG

VV........... L BYTE 0000 DATASG

@CPU.......... TEXT 0101h

@FILENAME....... TEXT sqr3

@VERSION........ TEXT 510

95 Source Lines

95 Total Lines

28 Symbols

47690 + 382785 Bytes symbol space free

0 Warning Errors

0 Severe Errors

 

:

l , , , ( , (Cross references) prog ( Nul.CRF ), );

l , LINK ( prog.map).





:


: 2015-10-01; !; : 368 |


:

:

: , , , , .
==> ...

761 - | 699 -


© 2015-2024 lektsii.org - -

: 0.023 .