mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 18:30:18 +02:00
a19c506b46
assembler .obj module. Note that TASM modules aren't fully supported yet, because our OMF internal linker doesn't support all features of the OMF object format. This test works, because it's really simple. As more OMF features are supported, this test will be extended. git-svn-id: trunk@32353 -
17 lines
498 B
NASM
17 lines
498 B
NASM
; test for linking a TASM external object module for the i8086-msdos platform
|
|
; assemble with TASM version 3.2 - it is the most commonly used version for
|
|
; linking with 16-bit pascal code, since it comes bundled with Borland Pascal 7
|
|
|
|
.MODEL large,PASCAL
|
|
.DATA
|
|
.CODE
|
|
IncDWord PROC FAR a: DWORD
|
|
PUBLIC IncDWord
|
|
mov ax, word ptr a
|
|
mov dx, word ptr [a+2]
|
|
add ax, 1
|
|
adc dx, 0
|
|
ret
|
|
IncDWord ENDP
|
|
END
|