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

Test t7202: Compile COFF 16bit Dos linking LIBCOF 16bit Dos

Description: Test creates linkable 16bit COFF file t7202.obj from linkable 16bit LIBCOF module.
See also: LinkerCombinations
Tested procedures: PfcoffCompile PflibcofLoadPgm

Source & expected listing t7202.htm.lst: | | EUROASM DEBUG=OFF,PROFILE=OFF,AUTOSEGMENT=ON,LIST=ON, \ | | DUMP=ON,DUMPWIDTH=25,DUMPALL=OFF,CPU=386 | |;; | |t7202CW PROGRAM FORMAT=COFF,MODEL=FLAT,WIDTH=16, \ | | LISTMAP=ON,LISTGLOBALS=ON | | PUBLIC Write.D16 |[.text] ::::Section changed. |0000: |Write.D16: PROC ; Write ASCIIZ string DS:SI in 16bit DOS. |0000:B402 | MOV AH,02h ; Dos function WRITE CHARACTER FROM DL TO STANDARD OUTPUT. |0002:8A14 |.1:MOV DL,[SI] ; Get one character. |0004:84D2 | TEST DL ; Test if it is the terminating zero. |0006:7405 | JZ .9: ; Go to the end if so. |0008:CD21 | INT 21h ; Call DOS service to write a character. |000A:46 | INC SI ; Let SI point to the next character. |000B:EBF5 | JMP .1: ; Repeat until DL=0. |000D:C3 |.9:RET |000E: | ENDPROC Write.D16: | |ENDPROGRAM t7202CW | **** ListMap "t7202CW.obj",groups=0,segments=1,entry=,stack= | [.text],RVA=00000000h,size=0000000Eh=14,width=16,align=0010h,purpose=CODE | **** ListGlobals "t7202CW.obj",Global=0,Public=1,Extern=0,eXport=0,Import=0 | Write.D16,[.text]:00000000h,scope='P' | |;; | |t7202CB PROGRAM FORMAT=COFF,MODEL=FLAT,WIDTH=16, \ | | LISTMAP=ON,LISTGLOBALS=ON | | PUBLIC Beep.D16 |[.text] ::::Section changed. |0000: |Beep.D16: PROC ; Echo beep sound in 16bit DOS. |0000:B207 | MOV DL,7 ; BEL character, interpreted as beep sound. |0002:B402 | MOV AH,2 ; DOS function WRITE CHARACTER TO STANDARD OUTPUT. |0004:CD21 | INT 0x21 ; Call DOS service to send a BEL. |0006:C3 | RET ; Return to caller. |0007: | ENDPROC Beep.D16: | |ENDPROGRAM t7202CB | **** ListMap "t7202CB.obj",groups=0,segments=1,entry=,stack= | [.text],RVA=00000000h,size=00000007h=7,width=16,align=0010h,purpose=CODE | **** ListGlobals "t7202CB.obj",Global=0,Public=1,Extern=0,eXport=0,Import=0 | Beep.D16,[.text]:00000000h,scope='P' | |;; | |t7202CE PROGRAM FORMAT=COFF,MODEL=FLAT,WIDTH=16, \ | | LISTMAP=ON,LISTGLOBALS=ON | | PUBLIC Exit.D16 |[.text] ::::Section changed. |0000: |Exit.D16: PROC ; Terminate program in 16bit DOS. |0000:B8004C | MOV AX,4C00h ; DOS function TERMINATE WITH RETURN CODE IN AL. |0003:CD21 | INT 21h ; Call DOS service to terminate the program. |0005: | ENDPROC Exit.D16: | |ENDPROGRAM t7202CE | **** ListMap "t7202CE.obj",groups=0,segments=1,entry=,stack= | [.text],RVA=00000000h,size=00000005h=5,width=16,align=0010h,purpose=CODE | **** ListGlobals "t7202CE.obj",Global=0,Public=1,Extern=0,eXport=0,Import=0 | Exit.D16,[.text]:00000000h,scope='P' | |;; | |t7202C PROGRAM FORMAT=LIBCOF,MODEL=FLAT,WIDTH=16, \ | | LISTMAP=OFF,LISTGLOBALS=OFF | | LINK t7202CW.obj, t7202CB.obj, t7202CE.obj | |ENDPROGRAM t7202C |# I0560 Linking COFF module ".\t7202CW.obj". |# I0560 Linking COFF module ".\t7202CB.obj". |# I0560 Linking COFF module ".\t7202CE.obj". | |;; | |t7202 PROGRAM FORMAT=COFF,MODEL=FLAT,WIDTH=16, \ | | LISTMAP=ON,LISTGLOBALS=ON | | GLOBAL Write.D16, Exit.D16 ; Intentionally omitted Beep.D16. | | LINK t7202C.lib | |ENDPROGRAM t7202 |# I0560 Linking LIBCOF module ".\t7202C.lib". | **** ListMap "t7202.obj",groups=0,segments=1,entry=,stack= | [.text],RVA=00000000h,size=00000025h=37,width=16,align=0010h,purpose=CODE | **** ListGlobals "t7202.obj",Global=2,Public=1,Extern=0,eXport=0,Import=0 | Beep.D16,[.text]:00000010h,scope='P' | Exit.D16,[.text]:00000020h,scope='G' | Write.D16,[.text]:00000000h,scope='G'

Expected messages t7202.out: I0180 Assembling source file "t7202.htm". I0270 Assembling source "t7202". I0310 Assembling source pass 1. I0330 Assembling source pass 2 - final. I0470 Assembling program "t7202CW". "t7202.htm"{62} I0510 Assembling program pass 1. "t7202.htm"{62} I0510 Assembling program pass 2. "t7202.htm"{62} I0530 Assembling program pass 3 - final. "t7202.htm"{62} I0660 16bit FLAT COFF file "t7202CW.obj" created, size=238. "t7202.htm"{76} I0650 Program "t7202CW" assembled in 3 passes with errorlevel 0. "t7202.htm"{76} I0470 Assembling program "t7202CB". "t7202.htm"{82} I0510 Assembling program pass 1. "t7202.htm"{82} I0510 Assembling program pass 2. "t7202.htm"{82} I0530 Assembling program pass 3 - final. "t7202.htm"{82} I0660 16bit FLAT COFF file "t7202CB.obj" created, size=162. "t7202.htm"{92} I0650 Program "t7202CB" assembled in 3 passes with errorlevel 0. "t7202.htm"{92} I0470 Assembling program "t7202CE". "t7202.htm"{98} I0510 Assembling program pass 1. "t7202.htm"{98} I0510 Assembling program pass 2. "t7202.htm"{98} I0530 Assembling program pass 3 - final. "t7202.htm"{98} I0660 16bit FLAT COFF file "t7202CE.obj" created, size=160. "t7202.htm"{106} I0650 Program "t7202CE" assembled in 3 passes with errorlevel 0. "t7202.htm"{106} I0470 Assembling program "t7202C". "t7202.htm"{112} I0510 Assembling program pass 1. "t7202.htm"{112} I0530 Assembling program pass 2 - final. "t7202.htm"{112} I0560 Linking COFF module ".\t7202CW.obj". "t7202.htm"{115} I0560 Linking COFF module ".\t7202CB.obj". "t7202.htm"{115} I0560 Linking COFF module ".\t7202CE.obj". "t7202.htm"{115} I0660 16bit FLAT LIBCOF file "t7202C.lib" created, size=968. "t7202.htm"{115} I0650 Program "t7202C" assembled in 2 passes with errorlevel 0. "t7202.htm"{115} I0470 Assembling program "t7202". "t7202.htm"{120} I0510 Assembling program pass 1. "t7202.htm"{120} I0510 Assembling program pass 2. "t7202.htm"{120} I0530 Assembling program pass 3 - final. "t7202.htm"{120} I0560 Linking LIBCOF module ".\t7202C.lib". "t7202.htm"{124} I0660 16bit FLAT COFF file "t7202.obj" created, size=238. "t7202.htm"{124} I0650 Program "t7202" assembled in 3 passes with errorlevel 0. "t7202.htm"{124} I0750 Source "t7202" (196 lines) assembled in 2 passes with errorlevel 0. I0860 Listing file "t7202.htm.lst" created, size=4697. I0990 EuroAssembler terminated with errorlevel 0.

Expected output file t7202. obj

0000: 4C 01 01 00 00 00 00 00 62 00 00 00 07 00 00 00  L··°°°°°b°°°·°°°
0010: 00 00 00 00 2E 74 65 78 74 00 00 00 00 00 00 00  °°°°.text°°°°°°°
0020: 00 00 00 00 25 00 00 00 3C 00 00 00 00 00 00 00  °°°°%°°°<°°°°°°°
0030: 00 00 00 00 00 00 00 00 20 00 50 60 B4 02 8A 14  °°°°°°°°¯°P`¤·¤·
0040: 84 D2 74 05 CD 21 46 EB F5 C3 90 90 B2 07 B4 02  ¤¤t·¤!F¤¤¤¤¤¤·¤·
0050: CD 21 C3 90 90 90 90 90 90 90 90 90 B8 00 4C CD  ¤!¤¤¤¤¤¤¤¤¤¤¤°L¤
0060: 21 00 2E 66 69 6C 65 00 00 00 00 00 00 00 FE FF  !°.file°°°°°°°¤¤
0070: 00 00 67 01 74 37 32 30 32 2E 68 74 6D 00 00 00  °°g·t7202.htm°°°
0080: 00 00 00 00 00 00 2E 74 65 78 74 00 00 00 00 00  °°°°°°.text°°°°°
0090: 00 00 01 00 00 00 03 01 25 00 00 00 00 00 00 00  °°·°°°··%°°°°°°°
00A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 00  °°°°°°°°°°°°°°·°
00B0: 00 00 00 00 00 00 01 00 01 02 02 00 42 65 65 70  °°°°°°·°···°Beep
00C0: 2E 44 31 36 10 00 00 00 01 00 01 02 02 00 45 78  .D16·°°°·°···°Ex
00D0: 69 74 2E 44 31 36 20 00 00 00 01 00 01 02 02 00  it.D16¯°°°·°···°
00E0: 0E 00 00 00 57 72 69 74 65 2E 44 31 36 00        ·°°°Write.D16°

▲Back to the top▲