Index	Manual	Download	Source	Macros	Embedded word Case ins.
	Sitemap	Links	Forum	Tests	Projects

Test t9226: LIBCOF import library for 64bit Windows from DLL library

Source & expected listing t9226.htm.lst

| | EUROASM AUTOSEGMENT=ON,CPU=X64,DUMPWIDTH=28 |7439323236 |%test %SET t9226 | |;; | |;; Create auxilliary DLL library. | |%test PROGRAM FORMAT=DLL,WIDTH=64,MODEL=FLAT,ICONFILE= |[.text] ::::Section changed. |00000000: |Write.W64: PROC ; Write ASCIIZ string RSI in 64bit Windows. | | IMPORT GetStdHandle:,WriteFile: ; Declare imported Windows kernel functions. |00000000:4889E5 | MOV RBP,RSP ; Save (perhaps unaligned) stack pointer. |00000003:4883E4F0 | AND RSP,-16 ; OWORD alignment downwards. |00000007:4883EC30 | SUB RSP,5*8+8 ; Allocate shadow space on stack for max 5 arguments. |0000000B:48C7C1F5FFFFFF | MOV RCX,-11 ; %1 Identifier of standard output STD_OUTPUT_HANDLE. |00000012:E8(00000000) | CALL GetStdHandle: ; Fastcall the imported Windows function with 1 argument. |00000017:4889C3 | MOV RBX,RAX ; Temporary save the returned StdOutput handle to RBX. |0000001A:4889F7 | MOV RDI,RSI ; Use RDI to find the end of input string. |0000001D:31C9 | XOR ECX,ECX ; Clear RCX to keep the size of input string. |0000001F:31C0 | XOR EAX,EAX ; Clear AL, the searched terminating character. |00000021:48F7D1 | NOT RCX ; Assume unlimited possible string size. |00000024:F2AE | REPNE SCASB ; Find the zero terminator. |00000026:48F7D1 | NOT RCX ; Get string size to RCX. |00000029:4889442420 | MOV [RSP+20h],RAX ; %5 Overlapped I/O is not used. |0000002E:4C8D4C2418 | LEA R9,[RSP+18h] ; %4 Local variable for the number of written bytes uses shadowed R9. |00000033:4989C8 | MOV R8,RCX ; %3 String size. |00000036:4889F2 | MOV RDX,RSI ; %2 String address. |00000039:4889D9 | MOV RCX,RBX ; %1 Standard output file handle. |0000003C:E8(00000000) | CALL WriteFile: ; Fastcall the imported function with 5 arguments. |00000041:4889EC | MOV RSP,RBP ; Restore the stack. |00000044:C3 | RET ; Return to caller. |00000045: |ENDPROC Write.W64: | |;; |00000045: |Beep.W64: PROC ; Play a sound in 64bit Windows. |00000045:488D35(00000000) | LEA RSI,[=B"Beeping..."] ; Define a literal string in [.rodata]. |0000004C:E8AFFFFFFF | CALL Write.W64:: ; Display the notification "Beeping...". | | IMPORT Beep: ; Declare imported Windows kernel function. |00000051:4889E5 | MOV RBP,RSP ; Save (perhaps unaligned) stack pointer. |00000054:4883E4F0 | AND RSP,-16 ; OWORD alignment downwards. |00000058:4883EC20 | SUB RSP,4*8 ; Allocate shadow space on stack. |0000005C:BAC8000000 | MOV RDX,200 ; %2 Sound duration [ms]. |00000061:B9B8010000 | MOV RCX,440 ; %1 Sound frequency [Hz]. |00000066:E8(00000000) | CALL Beep: ; Fastcall the imported function with 2 arguments. |0000006B:BA90010000 | MOV RDX,400 ; %2 Sound duration [ms]. |00000070:B94B020000 | MOV RCX,587 ; %1 Sound frequency [Hz]. |00000075:E8(00000000) | CALL Beep: ; Fastcall the imported function with 2 arguments. |0000007A:4889EC | MOV RSP,RBP ; Restore the stack. |0000007D:C3 | RET ; Return to caller. |0000007E: |ENDPROC Beep.W64: | |;; |0000007E: |Exit.W64: PROC ; Terminate program in 64bit Windows. |0000007E:488D35(00000000) | LEA RSI,[.M:] ; Address in segment [.bss] for the message. |00000085:C706456E6400 | MOVD [RSI+0],"End" ; Dynamically define the message "End". |0000008B:C746030D0A0000 | MOVD [RSI+3],0x0A0D ; CR+LF. |00000092:E869FFFFFF | CALL Write.W64:: ; Display the notification "End". | | IMPORT ExitProcess ; Declare imported Windows kernel function. |00000097:4883E4F0 | AND RSP,-16 ; OWORD alignment downwards. |0000009B:4883EC20 | SUB RSP,4*8 ; Allocate shadow space on stack. |0000009F:31C9 | XOR ECX,ECX ; %1 Terminate with errorlevel 0. |000000A1:E9(00000000) | JMP ExitProcess: ; Use imported function with 1 argument. No return. |[.bss] ::::Section changed. |00000000:.............. |.M: DB 7*BYTE ; Reserve space for ASCIIZ string "End" in segment [.bss]. |[.text] ::::Section changed. |000000A6: |ENDPROC Exit.W64: | |;; | | EXPORT Write.W64,Beep.W64,Exit.W64 |[@LT1] ====ListLiterals in section [@LT1]. |00000000:42656570696E672E~=B"Beeping..." | |ENDPROGRAM %test | **** ListMap "t9226.dll",model=FLAT,groups=0,segments=6,entry=,stack= | [.text],FA=00000400h,VA=10001000h,size=000000A6h=166,width=64,align=0010h,purpose=CODE | [.rodata],FA=00000600h,VA=10002000h,size=0000000Bh=11,width=64,align=0010h,purpose=RODATA+LITERAL | [.bss],FA=00000800h,VA=10003000h,size=00000007h=7,width=64,align=0010h,purpose=BSS | [.idata],FA=00000800h,VA=10004000h,size=000000D3h=211,width=64,align=8,purpose=IMPORT+IAT | [.edata],FA=00000A00h,VA=10005000h,size=0000006Ch=108,width=0,align=8,purpose=EXPORT | [.reloc],FA=00000C00h,VA=10006000h,size=00000010h=16,width=32,align=4,purpose=BASERELOC | **** ListGlobals "t9226.dll",Global=0,Public=0,Extern=0,eXport=3,Import=4 | Beep,[.idata]:000000C5h,VA=100040C5h,scope='I',lib="kernel32.dll" | Beep.W64,[.text]:00000045h,VA=10001045h,scope='X' | Exit.W64,[.text]:0000007Eh,VA=1000107Eh,scope='X' | ExitProcess,[.idata]:000000CCh,VA=100040CCh,scope='I',lib="kernel32.dll" | GetStdHandle,[.idata]:000000B7h,VA=100040B7h,scope='I',lib="kernel32.dll" | Write.W64,[.text]:00000000h,VA=10001000h,scope='X' | WriteFile,[.idata]:000000BEh,VA=100040BEh,scope='I',lib="kernel32.dll" | |;; | |;; Create the main LIBCOF import library. | |%test PROGRAM FORMAT=LIBCOF | | GLOBAL Write.W64,Beep.W64,Exit.W64 | | LINK %test.dll | |ENDPROGRAM %test |# I0561 Linking DLL library ".\t9226.dll". | **** ListMap "t9226.lib",model=FLAT,groups=0,segments=0,entry=,stack= | **** ListGlobals "t9226.lib",Global=0,Public=0,Extern=3,eXport=0,Import=0 | Beep.W64,[Beep.W64]:00000000h,scope='E' | Exit.W64,[Exit.W64]:00000000h,scope='E' | Write.W64,[Write.W64]:00000000h,scope='E'

Expected messages t9226.out

I0180 Assembling source file "t9226.htm". I0270 Assembling source "t9226". I0310 Assembling source pass 1. I0330 Assembling source pass 2 - final. I0470 Assembling program "t9226". "t9226.htm"{45} I0510 Assembling program pass 1. "t9226.htm"{45} I0510 Assembling program pass 2. "t9226.htm"{45} I0530 Assembling program pass 3 - final. "t9226.htm"{45} I0660 64bit FLAT DLL file "t9226.dll" created, size=3088. "t9226.htm"{106} I0650 Program "t9226" assembled in 3 passes with errorlevel 0. "t9226.htm"{106} I0470 Assembling program "t9226". "t9226.htm"{124} I0510 Assembling program pass 1. "t9226.htm"{124} I0510 Assembling program pass 2. "t9226.htm"{124} I0530 Assembling program pass 3 - final. "t9226.htm"{124} I0561 Linking DLL library ".\t9226.dll". "t9226.htm"{127} I0660 32bit FLAT LIBCOF file "t9226.lib" created, size=588. "t9226.htm"{127} I0650 Program "t9226" assembled in 3 passes with errorlevel 0. "t9226.htm"{127} I0750 Source "t9226" (200 lines) assembled in 2 passes with errorlevel 0. I0860 Listing file "t9226.htm.lst" created, size=7369. I0990 EuroAssembler terminated with errorlevel 0.

Expected output file t9226. lib

0000: 21 3C 61 72 63 68 3E 0A 2F 20 20 20 20 20 20 20  !<arch>¬/¯¯¯¯¯¯¯
0010: 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20  ¯¯¯¯¯¯¯¯0¯¯¯¯¯¯¯
0020: 20 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20  ¯¯¯¯0¯¯¯¯¯0¯¯¯¯¯
0030: 31 30 30 36 36 36 20 20 34 34 20 20 20 20 20 20  100666¯¯44¯¯¯¯¯¯
0040: 20 20 60 0A 00 00 00 03 00 00 01 20 00 00 01 84  ¯¯`¬°°°·°°·¯°°·¤
0050: 00 00 01 E8 42 65 65 70 2E 57 36 34 00 45 78 69  °°·¤Beep.W64°Exi
0060: 74 2E 57 36 34 00 57 72 69 74 65 2E 57 36 34 00  t.W64°Write.W64°
0070: 2F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  /¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
0080: 30 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20  0¯¯¯¯¯¯¯¯¯¯¯0¯¯¯
0090: 20 20 30 20 20 20 20 20 31 30 30 36 36 36 20 20  ¯¯0¯¯¯¯¯100666¯¯
00A0: 35 34 20 20 20 20 20 20 20 20 60 0A 03 00 00 00  54¯¯¯¯¯¯¯¯`¬·°°°
00B0: 20 01 00 00 84 01 00 00 E8 01 00 00 03 00 00 00  ¯·°°¤·°°¤·°°·°°°
00C0: 01 00 02 00 03 00 42 65 65 70 2E 57 36 34 00 45  ·°·°·°Beep.W64°E
00D0: 78 69 74 2E 57 36 34 00 57 72 69 74 65 2E 57 36  xit.W64°Write.W6
00E0: 34 00 2F 2F 20 20 20 20 20 20 20 20 20 20 20 20  4°//¯¯¯¯¯¯¯¯¯¯¯¯
00F0: 20 20 30 20 20 20 20 20 20 20 20 20 20 20 30 20  ¯¯0¯¯¯¯¯¯¯¯¯¯¯0¯
0100: 20 20 20 20 30 20 20 20 20 20 31 30 30 36 36 36  ¯¯¯¯0¯¯¯¯¯100666
0110: 20 20 32 20 20 20 20 20 20 20 20 20 60 0A 00 0A  ¯¯2¯¯¯¯¯¯¯¯¯`¬°¬
0120: 42 65 65 70 2E 57 36 34 2F 20 20 20 20 20 20 20  Beep.W64/¯¯¯¯¯¯¯
0130: 30 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20  0¯¯¯¯¯¯¯¯¯¯¯0¯¯¯
0140: 20 20 30 20 20 20 20 20 31 30 30 36 36 36 20 20  ¯¯0¯¯¯¯¯100666¯¯
0150: 33 39 20 20 20 20 20 20 20 20 60 0A 00 00 FF FF  39¯¯¯¯¯¯¯¯`¬°°¤¤
0160: 00 00 4C 01 00 00 00 00 13 00 00 00 01 00 04 00  °°L·°°°°·°°°·°·°
0170: 42 65 65 70 2E 57 36 34 00 74 39 32 32 36 2E 64  Beep.W64°t9226.d
0180: 6C 6C 00 10 45 78 69 74 2E 57 36 34 2F 20 20 20  ll°·Exit.W64/¯¯¯
0190: 20 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20  ¯¯¯¯0¯¯¯¯¯¯¯¯¯¯¯
01A0: 30 20 20 20 20 20 30 20 20 20 20 20 31 30 30 36  0¯¯¯¯¯0¯¯¯¯¯1006
01B0: 36 36 20 20 33 39 20 20 20 20 20 20 20 20 60 0A  66¯¯39¯¯¯¯¯¯¯¯`¬
01C0: 00 00 FF FF 00 00 4C 01 00 00 00 00 13 00 00 00  °°¤¤°°L·°°°°·°°°
01D0: 02 00 04 00 45 78 69 74 2E 57 36 34 00 74 39 32  ·°·°Exit.W64°t92
01E0: 32 36 2E 64 6C 6C 00 10 57 72 69 74 65 2E 57 36  26.dll°·Write.W6
01F0: 34 2F 20 20 20 20 20 20 30 20 20 20 20 20 20 20  4/¯¯¯¯¯¯0¯¯¯¯¯¯¯
0200: 20 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20  ¯¯¯¯0¯¯¯¯¯0¯¯¯¯¯
0210: 31 30 30 36 36 36 20 20 34 30 20 20 20 20 20 20  100666¯¯40¯¯¯¯¯¯
0220: 20 20 60 0A 00 00 FF FF 00 00 4C 01 00 00 00 00  ¯¯`¬°°¤¤°°L·°°°°
0230: 14 00 00 00 03 00 04 00 57 72 69 74 65 2E 57 36  ·°°°·°·°Write.W6
0240: 34 00 74 39 32 32 36 2E 64 6C 6C 00              4°t9226.dll°