0000 Stacksg segment para stack 'Stack'

0000 40 [????] DW 64 DUP(?)

0080 STACKSD ENDS

;-------------------------------------------------

0000 DATASG SEGMENT PARA PUBLIC 'Data'

0000 0140 QTY DW 0140H

0002 2500 PRICE DW 2500H

0004 DATASG ENDS

;-------------------------------------------------

0000 CODESG SEGMENT PARA PUBLIC 'Code'

0000 BEGIN PROC FAR

ASSUME CS:CODESG,DS:DATASG,SS:STACKSG

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 9A 0000 ---- E CALL SUBMUL ;Вызвать подпрограмму

000E CB RET

000F BEGIN ENDP

000F CODESG ENDS

END BEGIN

_____________________________________________________________________

Segments and Groups:

N a m e Size Align Combine Class

CODESG . . . . . . . . . . . . 000F PARA PUBLIC 'CODE'

DATASG . . . . . . . . . . . . 0004 PARA PUBLIC 'DATA'

STACKSG. . . . . . . . . . . . 0080 PARA STACK 'STACK'

Symbols:

N a m e Type Value Attr

BEGIN. . . . . . . . . . . . . F PROC 0000 CODESG Length=000F

PRICE. . . . . . . . . . . . . L WORD 0002 DATASG Global

QTY. . . . . . . . . . . . . . L WORD 0000 DATASG Global

SUBMUL . . . . . . . . . . . . L FAR 0000 External

page 60,132

TITLE SUBMUL Подпрограмма для умножения

EXTRN QTY:WORD,PRICE:WORD

;-------------------------------------------------

0000 Codesg segment para public 'code'

0000 SUBMUL PROC FAR

ASSUME CS:CODESG

PUBLIC SUBMUL

0000 A1 0000 E MOV AX,PRICE

0003 8B 1E 0000 E MOV BX,QTY

0007 F7 E3 MUL BX ;Произведение в DX:AX

0009 CB RET

000A SUBMUL ENDP

000A CODESG ENDS

END SUBMUL

_____________________________________________________________________

Segments and Groups:

N a m e Size Align Combine Class

CODESG . . . . . . . . . . . . 000A PARA PUBLIC 'CODE'

Symbols:

N a m e Type Value Attr

PRICE. . . . . . . . . . . . . V WORD 0000 External

QTY. . . . . . . . . . . . . . V WORD 0000 External

SUBMUL . . . . . . . . . . . . F PROC 0000 CODESG Global Length=000A

_____________________________________________________________________

LINK