Borland Pascal , ( Single, Double, Extended Coinp). , , . . .
19.2.1. - -
, , . , , Borland Pascal , .
- (Boolean, Char, Shortint, Byte, Integer, Word, Longint ) . 1 , , , , . 2 4 . , 8086, .
- Real - . (Single, Double, Extended C-onip) Borland .
- - , , , . , Intel, . LDS LES.
, , . Borland Basca) , FAR. , , .
, , 1, 2 4 , . ( 3 ) , .
, , , , 32- . """ "
- .
19.2.2.
, Borland Pascal, .
|
|
. RET n, n - . POP. POP , , .
.MODEL, PROC ARG Turbo Assembler RET .
19.2.3.
( , ) .
Turbo Assembler :
;
;
POP.
Borland Pascal . , .
:
CODE SEGMENT
ASSUME cs:CODE AsmProc PROC FAR;procedure AsmProc(i,j:word);
PUBLIC AsmProc j EQU WORD PTR [BP+6] i EQU WORD PTR [BP+8]
push bp
mov bp,sp
mov ax,i
' , . EQU, ; =, , . .
ARG. ARG, Turbo Assembler , RET. -. .
ARG :
CODE SEGMENT
ASSUME cs:CODE I AsmProc PROC FAR;procedure AsmProc (i;j:word);
PUBLIC AsmProc
ARG j:WORD, i:WORD = RetBytes
push bp
mov bp,sp
mov ax,i
Turbo Assembler ARG i / .
ARG j:WORD, i:WORD=RetBytes
i WORD PTR [BP + ], ^ WORD PTR [+8], RetByres - 4 ( ) . , BP . NEAR, [BP + 4], / [BP + G).
|
|
ARG , , Borland Pascal. , Pascal ARG . .
ARG , Borland Pascal, . , Borland Pascal
function AsmProc (i,j:Char):string; external;
ARG :
ARJ j:byte:.2, i:byte:2 = RetBytes RETURNS ResStr: DWORD
":2" Turbo Assembler , .
, String ( ), RETURNS ARG, , . , RETURNS, ARG.
, Borland Pascal, .MODEL. Borland Pascal LAR-GE.
, ' .MODEL:
.MODEL LARGE.PASCAL CODE
AsmProc PROC FAR i:byte,j:byte RETURNS result:DWORD PUBLIC AsmProc mov ax,i
ret
, .MODEL PROC, , Pascal- . , PASCAL .
, SI DI. , . DS, SS. , SJ DI -
SS .
:
CODE SEGMENT
ASSUME cs:CODE AsmProc PROC FAR
iprocedure AsmProc (i,j: integer);
PUBLIC AsmProc j EQU WORD PTR ss:[bx+4] i EQU WORD PTR ss:[bx+6]
mov bp.sp
mov ax,i
,
, .