|
A program: |
... és a
MAP-file: |
|
Program PrimiProgi;
Uses Crt;
Type TPont=Record x,y:Real End;
Var p,q,r:TPont;
Procedure Beolvas(r:TPont[SzP1] );
Begin Write('K‚rem a pont x-, y-
Readln(r.x,r.y)
End;
Procedure Osszead(p1,p2:TPont;
Begin osszeg.x:=p1.x+p2.x; osszeg.y:=p1.y+p2.y;
End;
Procedure Kiir(r:TPont);
Begin Write('A pont x-, y- koordinátáit:(',
r.x,',',r.y,')')
End; Begin
ClrScr;
Beolvas(p); Beolvas(p);
Kiir(r); End. |
Start Stop Length Name Class 00000H 001FAH 001FBH PrimiProgi
CODE 00200H 0081EH 0061FH Crt
CODE 00820H 01879H 0105AH System
CODE 01880H 01B55H 002D6H DATA
DATA 01B60H 05B5FH 04000H STACK
STACK 05B60H 05B60H 00000H HEAP
HEAP Address Publics
by Value 0000:0021 Beolvas 0000:0090 Osszead 0000:012A Kiir 0000:01B0 @ 0020:000D @ 0020:0177 TextMode 0020:018C Window 0020:01CC ClrScr 0020:01E6 ClrEol 0020:01FA InsLine 0020:01FF DelLine 0020:021F GotoXY 0020:024B WhereX 0020:0257 WhereY 0020:0263 TextColor 0020:027D
TextBackground 0020:0295 LowVideo 0020:029B HighVideo 0020:02A1 NormVideo 0020:02A8 Delay 0020:02D4 Sound 0020:0301 NoSound 0020:0308 KeyPressed 0020:031A ReadKey 0020:033C AssignCrt 0188:0002
OvrCodeList 0188:0004
OvrHeapSize 0188:0006
OvrDebugPtr 0188:000A
OvrHeapOrg 0188:000C
OvrHeapPtr 0188:000E
OvrHeapEnd 0188:0010
OvrLoadList 0188:0012
OvrDosHandle 0188:0014
OvrEmsHandle 0188:0016 HeapOrg 0188:001A HeapPtr 0188:001E HeapEnd 0188:0022 FreeList 0188:0026 FreeZero 0188:002A HeapError 0188:002E ExitProc 0188:0032 ExitCode 0188:0034 ErrorAddr 0188:0038 PrefixSeg 0188:003A
StackLimit 0188:003C InOutRes 0188:003E RandSeed 0188:0042
SelectorInc 0188:0044 Seg0040 0188:0046 SegA000 0188:0048 SegB000 0188:004A SegB800 0188:004C Test8086 0188:004D Test8087 0188:004E FileMode 0188:0052 p 0188:005E q 0188:006A r 0188:0076
CheckBreak 0188:0077 CheckEOF 0188:0078
DirectVideo 0188:0079 CheckSnow 0188:007A LastMode 0188:007C TextAttr 0188:007E WindMin 0188:0080 WindMax 0188:008A Input 0188:018A Output 0188:028A SaveInt00 0188:028E SaveInt02 0188:0292 SaveInt1B 0188:0296 SaveInt21 0188:029A SaveInt23 0188:029E SaveInt24 0188:02A2 SaveInt34 0188:02A6 SaveInt35 0188:02AA SaveInt36 0188:02AE SaveInt37 0188:02B2 SaveInt38 0188:02B6 SaveInt39 0188:02BA SaveInt3A 0188:02BE SaveInt3B 0188:02C2 SaveInt3C 0188:02C6 SaveInt3D 0188:02CA SaveInt3E 0188:02CE SaveInt3F 0188:02D2 SaveInt75 Line numbers for
PrimiProgi(PRIMI.PAS) segment PrimiProgi 7 0000:0021 8
0000:0043 9 0000:005F 10 0000:008A 13 0000:0090 14
0000:00BD 15 0000:0108 18 0000:012A 19
0000:014C 20 0000:01AA 22 0000:01B0 23
0000:01C4 24 0000:01C9 25 0000:01D9 26
0000:01EB 27 0000:01F3 Program entry point at 0000:01B0 |
… és egy másik példa:
|
Program
Primi2; Const MaxN=99; Var
a:Integer; Const b:Boolean=True; Function Ea(p1,p2:Word):Boolean; Var a:Boolean; Begin a:=p1>p2; Ea:=a End; Begin b:=Ea(a,a); Writeln(a,b) End. |
Start Stop Length Name Class 00000H 00092H 00093H Primi2
CODE 000A0H 009CCH 0092DH System
CODE 009D0H 00C7DH 002AEH DATA
DATA 00C80H 04C7FH 04000H STACK
STACK 04C80H 04C80H 00000H HEAP
HEAP Address Publics
by Value 0000:0000 Ea 0000:0033 @ 009D:0002 b 009D:0004
OvrCodeList 009D:0006
OvrHeapSize 009D:0008
OvrDebugPtr 009D:000C
OvrHeapOrg 009D:000E
OvrHeapPtr 009D:0010
OvrHeapEnd 009D:0012
OvrLoadList 009D:0014
OvrDosHandle 009D:0016
OvrEmsHandle 009D:0018 HeapOrg 009D:001C HeapPtr 009D:0020 HeapEnd 009D:0024 FreeList 009D:0028 FreeZero 009D:002C HeapError 009D:0030 ExitProc 009D:0034 ExitCode 009D:0036 ErrorAddr 009D:003A PrefixSeg 009D:003C
StackLimit 009D:003E InOutRes 009D:0040 RandSeed 009D:0044 SelectorInc 009D:0046 Seg0040 009D:0048 SegA000 009D:004A SegB000 009D:004C SegB800 009D:004E Test8086 009D:004F Test8087 009D:0050 FileMode 009D:0060 a 009D:0062 Input 009D:0162 Output 009D:0262 SaveInt00 009D:0266 SaveInt02 009D:026A SaveInt1B 009D:026E SaveInt21 009D:0272 SaveInt23 009D:0276 SaveInt24 009D:027A SaveInt34 009D:027E SaveInt35 009D:0282 SaveInt36 009D:0286 SaveInt37 009D:028A SaveInt38 009D:028E SaveInt39 009D:0292 SaveInt3A 009D:0296 SaveInt3B 009D:029A SaveInt3C 009D:029E SaveInt3D 009D:02A2 SaveInt3E 009D:02A6 SaveInt3F 009D:02AA SaveInt75 Line numbers for Primi2(PRIMI2.PAS)
segment Primi2 8 0000:0000 9 0000:000E 10
0000:001C 11 0000:0022 13 0000:0033 14
0000:0042 15 0000:0062 16 0000:008B Program entry point at 0000:0033 |