home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / patches / fortran / dll16c.a < prev    next >
Unknown  |  1993-08-27  |  2.7 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert System V 64-bit library (executable/systemV64BitLibrary) ext Unsupported
1% dexvert COFF Library (other/coffLibrary) ext Unsupported
100% file data default
100% gt2 Kopftext: 'WATCOM binary patch file format' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 57 41 54 43 4f 4d 20 62 | 69 6e 61 72 79 20 70 61 |WATCOM b|inary pa|
|00000010| 74 63 68 20 66 69 6c 65 | 20 66 6f 72 6d 61 74 0d |tch file| format.|
|00000020| 0a 0d 0a 1a 64 6c 6c 31 | 36 2e 63 00 ea 03 00 00 |....dll1|6.c.....|
|00000030| 0b 0a 00 00 3c ab 02 00 | 01 00 00 00 00 00 00 00 |....<...|........|
|00000040| 00 00 00 00 00 01 e5 09 | 00 00 c4 03 00 00 26 00 |........|......&.|
|00000050| 00 00 01 0c 0a 00 00 eb | 03 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 e5 09 00 00 | 2f 2a 0d 0a 20 2a 20 20 |........|/*.. * |
|00000070| 44 4c 4c 31 36 2e 43 0d | 0a 20 2a 0d 0a 20 2a 20 |DLL16.C.|. *.. * |
|00000080| 20 43 6f 6d 70 69 6c 65 | 3a 09 20 20 20 20 77 63 | Compile|:. wc|
|00000090| 63 20 64 6c 6c 31 36 20 | 2f 6d 63 20 2f 7a 75 20 |c dll16 |/mc /zu |
|000000a0| 2f 7a 63 20 2f 62 64 20 | 2f 62 74 3d 77 69 6e 64 |/zc /bd |/bt=wind|
|000000b0| 6f 77 73 20 2f 64 32 0d | 0a 20 2a 20 20 43 2b 2b |ows /d2.|. * C++|
|000000c0| 20 43 6f 6d 70 69 6c 65 | 3a 20 20 20 20 77 70 70 | Compile|: wpp|
|000000d0| 20 64 6c 6c 31 36 20 2f | 6d 63 20 2f 7a 75 20 2f | dll16 /|mc /zu /|
|000000e0| 7a 63 20 2f 62 64 20 2f | 62 74 3d 77 69 6e 64 6f |zc /bd /|bt=windo|
|000000f0| 77 73 20 2f 64 32 0d 0a | 20 2a 20 20 4c 69 6e 6b |ws /d2..| * Link|
|00000100| 3a 09 20 20 20 20 77 6c | 69 6e 6b 20 40 64 6c 6c |:. wl|ink @dll|
|00000110| 31 36 0d 0a 20 2a 20 20 | 44 4c 4c 31 36 2e 4c 4e |16.. * |DLL16.LN|
|00000120| 4b 3a 09 20 20 20 20 64 | 65 62 75 67 20 61 6c 6c |K:. d|ebug all|
|00000130| 0d 0a 20 2a 09 09 20 20 | 20 20 73 79 73 74 65 6d |.. *.. | system|
|00000140| 20 77 69 6e 64 6f 77 73 | 20 64 6c 6c 20 69 6e 69 | windows| dll ini|
|00000150| 74 69 6e 73 74 61 6e 63 | 65 20 6d 65 6d 6f 72 79 |tinstanc|e memory|
|00000160| 0d 0a 20 2a 09 09 20 20 | 20 20 66 69 6c 65 20 64 |.. *.. | file d|
|00000170| 6c 6c 31 36 0d 0a 20 2a | 09 09 20 20 20 20 6f 70 |ll16.. *|.. op|
|00000180| 74 69 6f 6e 20 6f 6e 65 | 61 75 74 6f 64 61 74 61 |tion one|autodata|
|00000190| 0d 0a 20 2a 09 09 20 20 | 20 20 6f 70 74 69 6f 6e |.. *.. | option|
|000001a0| 20 6d 61 70 0d 0a 20 2a | 09 09 20 20 20 20 6f 70 | map.. *|.. op|
|000001b0| 74 69 6f 6e 20 68 65 61 | 70 73 69 7a 65 3d 33 32 |tion hea|psize=32|
|000001c0| 4b 0d 0a 20 2a 09 09 20 | 20 20 20 6c 69 62 66 69 |K.. *.. | libfi|
|000001d0| 6c 65 20 6c 69 62 65 6e | 74 72 79 0d 0a 20 2a 2f |le liben|try.. */|
|000001e0| 0d 0a 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 64 |..#inclu|de <stdd|
|000001f0| 65 66 2e 68 3e 0d 0a 23 | 69 66 64 65 66 20 5f 5f |ef.h>..#|ifdef __|
|00000200| 63 70 6c 75 73 70 6c 75 | 73 0d 0a 20 20 23 69 6e |cplusplu|s.. #in|
|00000210| 63 6c 75 64 65 20 3c 69 | 6f 73 74 72 65 61 6d 2e |clude <i|ostream.|
|00000220| 68 3e 0d 0a 20 20 23 69 | 6e 63 6c 75 64 65 20 3c |h>.. #i|nclude <|
|00000230| 73 74 72 73 74 72 65 61 | 2e 68 3e 0d 0a 23 65 6c |strstrea|.h>..#el|
|00000240| 73 65 0d 0a 20 20 23 69 | 6e 63 6c 75 64 65 20 3c |se.. #i|nclude <|
|00000250| 73 74 64 69 6f 2e 68 3e | 0d 0a 23 65 6e 64 69 66 |stdio.h>|..#endif|
|00000260| 0d 0a 23 69 6e 63 6c 75 | 64 65 20 3c 77 69 6e 64 |..#inclu|de <wind|
|00000270| 6f 77 73 2e 68 3e 0d 0a | 0d 0a 65 78 74 65 72 6e |ows.h>..|..extern|
|00000280| 20 76 6f 69 64 20 42 72 | 65 61 6b 50 6f 69 6e 74 | void Br|eakPoint|
|00000290| 28 20 76 6f 69 64 20 29 | 3b 0d 0a 23 70 72 61 67 |( void )|;..#prag|
|000002a0| 6d 61 20 61 75 78 20 42 | 72 65 61 6b 50 6f 69 6e |ma aux B|reakPoin|
|000002b0| 74 20 3d 20 30 78 63 63 | 3b 0d 0a 0d 0a 65 78 74 |t = 0xcc|;....ext|
|000002c0| 65 72 6e 20 73 68 6f 72 | 74 20 47 65 74 53 53 28 |ern shor|t GetSS(|
|000002d0| 20 76 6f 69 64 20 29 3b | 0d 0a 23 70 72 61 67 6d | void );|..#pragm|
|000002e0| 61 20 61 75 78 20 47 65 | 74 53 53 20 3d 20 30 78 |a aux Ge|tSS = 0x|
|000002f0| 38 43 20 30 78 44 30 20 | 76 61 6c 75 65 5b 61 78 |8C 0xD0 |value[ax|
|00000300| 5d 3b 0d 0a 0d 0a 69 6e | 74 20 50 41 53 43 41 4c |];....in|t PASCAL|
|00000310| 20 4c 69 62 4d 61 69 6e | 28 20 48 41 4e 44 4c 45 | LibMain|( HANDLE|
|00000320| 20 68 6d 6f 64 2c 20 57 | 4f 52 44 20 64 61 74 61 | hmod, W|ORD data|
|00000330| 73 65 67 2c 20 57 4f 52 | 44 20 68 65 61 70 2c 20 |seg, WOR|D heap, |
|00000340| 4c 50 53 54 52 20 63 6d | 64 6c 69 6e 65 20 29 0d |LPSTR cm|dline ).|
|00000350| 0a 7b 0d 0a 20 20 73 68 | 6f 72 74 20 69 3b 0d 0a |.{.. sh|ort i;..|
|00000360| 20 20 63 68 61 72 20 62 | 75 66 5b 31 32 38 5d 3b | char b|uf[128];|
|00000370| 0d 0a 0d 0a 20 20 2f 2f | 42 72 65 61 6b 50 6f 69 |.... //|BreakPoi|
|00000380| 6e 74 28 29 3b 0d 0a 20 | 20 69 20 3d 20 47 65 74 |nt();.. | i = Get|
|00000390| 53 53 28 29 3b 0d 0a 20 | 20 23 69 66 64 65 66 20 |SS();.. | #ifdef |
|000003a0| 5f 5f 63 70 6c 75 73 70 | 6c 75 73 0d 0a 20 20 7b |__cplusp|lus.. {|
|000003b0| 0d 0a 20 20 20 20 6f 73 | 74 72 73 74 72 65 61 6d |.. os|trstream|
|000003c0| 20 73 6f 75 74 28 20 62 | 75 66 2c 20 73 69 7a 65 | sout( b|uf, size|
|000003d0| 6f 66 28 20 62 75 66 20 | 29 20 29 3b 0d 0a 20 20 |of( buf |) );.. |
|000003e0| 20 20 73 6f 75 74 20 3c | 3c 20 22 44 4c 4c 31 36 | sout <|< "DLL16|
|000003f0| 20 53 74 61 72 74 65 64 | 2c 20 53 53 3d 22 20 3c | Started|, SS=" <|
|00000400| 3c 20 68 65 78 20 3c 3c | 20 69 20 3c 3c 20 65 6e |< hex <<| i << en|
|00000410| 64 73 3b 0d 0a 20 20 20 | 20 4d 65 73 73 61 67 65 |ds;.. | Message|
|00000420| 42 6f 78 28 20 4e 55 4c | 4c 2c 20 73 6f 75 74 2e |Box( NUL|L, sout.|
|00000430| 73 74 72 28 29 2c 20 22 | 44 4c 4c 31 36 22 2c 20 |str(), "|DLL16", |
|00000440| 4d 42 5f 4f 4b 20 7c 20 | 4d 42 5f 54 41 53 4b 4d |MB_OK | |MB_TASKM|
|00000450| 4f 44 41 4c 20 29 3b 0d | 0a 20 20 7d 0d 0a 20 20 |ODAL );.|. }.. |
|00000460| 23 65 6c 73 65 0d 0a 20 | 20 20 20 73 70 72 69 6e |#else.. | sprin|
|00000470| 74 66 28 20 62 75 66 2c | 20 22 44 4c 4c 31 36 20 |tf( buf,| "DLL16 |
|00000480| 53 74 61 72 74 65 64 2c | 20 53 53 3d 25 68 78 22 |Started,| SS=%hx"|
|00000490| 2c 20 69 20 29 3b 0d 0a | 20 20 20 20 4d 65 73 73 |, i );..| Mess|
|000004a0| 61 67 65 42 6f 78 28 20 | 4e 55 4c 4c 2c 20 62 75 |ageBox( |NULL, bu|
|000004b0| 66 2c 20 22 44 4c 4c 31 | 36 22 2c 20 4d 42 5f 4f |f, "DLL1|6", MB_O|
|000004c0| 4b 20 7c 20 4d 42 5f 54 | 41 53 4b 4d 4f 44 41 4c |K | MB_T|ASKMODAL|
|000004d0| 20 29 3b 0d 0a 20 20 23 | 65 6e 64 69 66 0d 0a 20 | );.. #|endif.. |
|000004e0| 20 72 65 74 75 72 6e 28 | 20 31 20 29 3b 0d 0a 7d | return(| 1 );..}|
|000004f0| 0d 0a 0d 0a 23 69 66 64 | 65 66 20 5f 5f 63 70 6c |....#ifd|ef __cpl|
|00000500| 75 73 70 6c 75 73 0d 0a | 65 78 74 65 72 6e 20 22 |usplus..|extern "|
|00000510| 43 22 0d 0a 23 65 6e 64 | 69 66 0d 0a 6c 6f 6e 67 |C"..#end|if..long|
|00000520| 20 5f 5f 65 78 70 6f 72 | 74 20 46 41 52 20 50 41 | __expor|t FAR PA|
|00000530| 53 43 41 4c 20 4c 69 62 | 31 28 20 57 4f 52 44 20 |SCAL Lib|1( WORD |
|00000540| 61 2c 20 4c 4f 4e 47 20 | 62 2c 20 57 4f 52 44 20 |a, LONG |b, WORD |
|00000550| 63 2c 20 57 4f 52 44 20 | 64 2c 20 4c 4f 4e 47 20 |c, WORD |d, LONG |
|00000560| 65 20 29 0d 0a 7b 0d 0a | 20 20 63 68 61 72 20 62 |e )..{..| char b|
|00000570| 75 66 5b 31 32 38 5d 3b | 0d 0a 0d 0a 20 20 2f 2f |uf[128];|.... //|
|00000580| 42 72 65 61 6b 50 6f 69 | 6e 74 28 29 3b 0d 0a 20 |BreakPoi|nt();.. |
|00000590| 20 23 69 66 64 65 66 20 | 5f 5f 63 70 6c 75 73 70 | #ifdef |__cplusp|
|000005a0| 6c 75 73 0d 0a 20 20 7b | 0d 0a 20 20 20 20 6f 73 |lus.. {|.. os|
|000005b0| 74 72 73 74 72 65 61 6d | 20 73 6f 75 74 28 20 62 |trstream| sout( b|
|000005c0| 75 66 2c 20 73 69 7a 65 | 6f 66 28 20 62 75 66 20 |uf, size|of( buf |
|000005d0| 29 20 29 3b 0d 0a 20 20 | 20 20 73 6f 75 74 20 3c |) );.. | sout <|
|000005e0| 3c 20 68 65 78 20 3c 3c | 20 22 4c 69 62 31 3a 20 |< hex <<| "Lib1: |
|000005f0| 61 3d 22 20 3c 3c 20 61 | 20 3c 3c 0d 0a 09 09 20 |a=" << a| <<.... |
|00000600| 20 20 20 20 20 20 22 2c | 20 62 3d 22 20 3c 3c 20 | ",| b=" << |
|00000610| 62 20 3c 3c 0d 0a 09 09 | 20 20 20 20 20 20 20 22 |b <<....| "|
|00000620| 2c 20 63 3d 22 20 3c 3c | 20 63 20 3c 3c 0d 0a 09 |, c=" <<| c <<...|
|00000630| 09 20 20 20 20 20 20 20 | 22 2c 20 64 3d 22 20 3c |. |", d=" <|
|00000640| 3c 20 64 20 3c 3c 0d 0a | 09 09 20 20 20 20 20 20 |< d <<..|.. |
|00000650| 20 22 2c 20 65 3d 22 20 | 3c 3c 20 65 20 3c 3c 20 | ", e=" |<< e << |
|00000660| 65 6e 64 73 3b 0d 0a 20 | 20 20 20 4d 65 73 73 61 |ends;.. | Messa|
|00000670| 67 65 42 6f 78 28 20 4e | 55 4c 4c 2c 20 73 6f 75 |geBox( N|ULL, sou|
|00000680| 74 2e 73 74 72 28 29 2c | 20 22 44 4c 4c 31 36 22 |t.str(),| "DLL16"|
|00000690| 2c 20 4d 42 5f 4f 4b 20 | 7c 20 4d 42 5f 54 41 53 |, MB_OK || MB_TAS|
|000006a0| 4b 4d 4f 44 41 4c 20 29 | 3b 0d 0a 20 20 7d 0d 0a |KMODAL )|;.. }..|
|000006b0| 20 20 23 65 6c 73 65 0d | 0a 20 20 20 20 73 70 72 | #else.|. spr|
|000006c0| 69 6e 74 66 28 20 62 75 | 66 2c 20 22 4c 69 62 31 |intf( bu|f, "Lib1|
|000006d0| 3a 20 61 3d 25 68 78 2c | 20 62 3d 25 6c 78 2c 20 |: a=%hx,| b=%lx, |
|000006e0| 63 3d 25 68 78 2c 20 64 | 3d 25 68 78 2c 20 65 3d |c=%hx, d|=%hx, e=|
|000006f0| 25 6c 78 22 2c 0d 0a 09 | 09 20 20 61 2c 20 62 2c |%lx",...|. a, b,|
|00000700| 20 63 2c 20 64 2c 20 65 | 20 29 3b 0d 0a 20 20 20 | c, d, e| );.. |
|00000710| 20 4d 65 73 73 61 67 65 | 42 6f 78 28 20 4e 55 4c | Message|Box( NUL|
|00000720| 4c 2c 20 62 75 66 2c 20 | 22 44 4c 4c 31 36 22 2c |L, buf, |"DLL16",|
|00000730| 20 4d 42 5f 4f 4b 20 7c | 20 4d 42 5f 54 41 53 4b | MB_OK || MB_TASK|
|00000740| 4d 4f 44 41 4c 20 29 3b | 0d 0a 20 20 23 65 6e 64 |MODAL );|.. #end|
|00000750| 69 66 0d 0a 20 20 72 65 | 74 75 72 6e 28 20 61 20 |if.. re|turn( a |
|00000760| 2b 20 62 20 2b 20 63 20 | 2b 20 64 20 2b 20 65 20 |+ b + c |+ d + e |
|00000770| 29 3b 0d 0a 7d 0d 0a 0d | 0a 23 69 66 64 65 66 20 |);..}...|.#ifdef |
|00000780| 5f 5f 63 70 6c 75 73 70 | 6c 75 73 0d 0a 65 78 74 |__cplusp|lus..ext|
|00000790| 65 72 6e 20 22 43 22 0d | 0a 23 65 6e 64 69 66 0d |ern "C".|.#endif.|
|000007a0| 0a 6c 6f 6e 67 20 5f 5f | 65 78 70 6f 72 74 20 46 |.long __|export F|
|000007b0| 41 52 20 43 44 45 43 4c | 20 4c 69 62 32 28 20 57 |AR CDECL| Lib2( W|
|000007c0| 4f 52 44 20 61 2c 20 4c | 4f 4e 47 20 62 2c 20 57 |ORD a, L|ONG b, W|
|000007d0| 4f 52 44 20 63 2c 20 57 | 4f 52 44 20 64 2c 20 4c |ORD c, W|ORD d, L|
|000007e0| 4f 4e 47 20 65 20 29 0d | 0a 7b 0d 0a 20 20 63 68 |ONG e ).|.{.. ch|
|000007f0| 61 72 20 62 75 66 5b 31 | 32 38 5d 3b 0d 0a 0d 0a |ar buf[1|28];....|
|00000800| 20 20 2f 2f 42 72 65 61 | 6b 50 6f 69 6e 74 28 29 | //Brea|kPoint()|
|00000810| 3b 0d 0a 20 20 23 69 66 | 64 65 66 20 5f 5f 63 70 |;.. #if|def __cp|
|00000820| 6c 75 73 70 6c 75 73 0d | 0a 20 20 7b 0d 0a 20 20 |lusplus.|. {.. |
|00000830| 20 20 6f 73 74 72 73 74 | 72 65 61 6d 20 73 6f 75 | ostrst|ream sou|
|00000840| 74 28 20 62 75 66 2c 20 | 73 69 7a 65 6f 66 28 20 |t( buf, |sizeof( |
|00000850| 62 75 66 20 29 20 29 3b | 0d 0a 20 20 20 20 73 6f |buf ) );|.. so|
|00000860| 75 74 20 3c 3c 20 68 65 | 78 20 3c 3c 20 22 4c 69 |ut << he|x << "Li|
|00000870| 62 32 3a 20 61 3d 22 20 | 3c 3c 20 61 20 3c 3c 0d |b2: a=" |<< a <<.|
|00000880| 0a 09 09 20 20 20 20 20 | 20 20 22 2c 20 62 3d 22 |... | ", b="|
|00000890| 20 3c 3c 20 62 20 3c 3c | 0d 0a 09 09 20 20 20 20 | << b <<|.... |
|000008a0| 20 20 20 22 2c 20 63 3d | 22 20 3c 3c 20 63 20 3c | ", c=|" << c <|
|000008b0| 3c 0d 0a 09 09 20 20 20 | 20 20 20 20 22 2c 20 64 |<.... | ", d|
|000008c0| 3d 22 20 3c 3c 20 64 20 | 3c 3c 0d 0a 09 09 20 20 |=" << d |<<.... |
|000008d0| 20 20 20 20 20 22 2c 20 | 65 3d 22 20 3c 3c 20 65 | ", |e=" << e|
|000008e0| 20 3c 3c 20 65 6e 64 73 | 3b 0d 0a 20 20 20 20 4d | << ends|;.. M|
|000008f0| 65 73 73 61 67 65 42 6f | 78 28 20 4e 55 4c 4c 2c |essageBo|x( NULL,|
|00000900| 20 73 6f 75 74 2e 73 74 | 72 28 29 2c 20 22 44 4c | sout.st|r(), "DL|
|00000910| 4c 31 36 22 2c 20 4d 42 | 5f 4f 4b 20 7c 20 4d 42 |L16", MB|_OK | MB|
|00000920| 5f 54 41 53 4b 4d 4f 44 | 41 4c 20 29 3b 0d 0a 20 |_TASKMOD|AL );.. |
|00000930| 20 7d 0d 0a 20 20 23 65 | 6c 73 65 0d 0a 20 20 20 | }.. #e|lse.. |
|00000940| 20 73 70 72 69 6e 74 66 | 28 20 62 75 66 2c 20 22 | sprintf|( buf, "|
|00000950| 4c 69 62 32 3a 20 61 3d | 25 68 78 2c 20 62 3d 25 |Lib2: a=|%hx, b=%|
|00000960| 6c 78 2c 20 63 3d 25 68 | 78 2c 20 64 3d 25 68 78 |lx, c=%h|x, d=%hx|
|00000970| 2c 20 65 3d 25 6c 78 22 | 2c 0d 0a 09 09 20 20 61 |, e=%lx"|,.... a|
|00000980| 2c 20 62 2c 20 63 2c 20 | 64 2c 20 65 20 29 3b 0d |, b, c, |d, e );.|
|00000990| 0a 20 20 20 20 4d 65 73 | 73 61 67 65 42 6f 78 28 |. Mes|sageBox(|
|000009a0| 20 4e 55 4c 4c 2c 20 62 | 75 66 2c 20 22 44 4c 4c | NULL, b|uf, "DLL|
|000009b0| 31 36 22 2c 20 4d 42 5f | 4f 4b 20 7c 20 4d 42 5f |16", MB_|OK | MB_|
|000009c0| 54 41 53 4b 4d 4f 44 41 | 4c 20 29 3b 0d 0a 20 20 |TASKMODA|L );.. |
|000009d0| 23 65 6e 64 69 66 0d 0a | 20 20 72 65 74 75 72 6e |#endif..| return|
|000009e0| 28 20 61 20 2b 20 62 20 | 2b 20 63 20 2b 20 64 20 |( a + b |+ c + d |
|000009f0| 2b 20 65 20 29 3b 0d 0a | 7d 0d 0a 0d 0a 69 6e 74 |+ e );..|}....int|
|00000a00| 20 5f 5f 65 78 70 6f 72 | 74 20 46 41 52 20 50 41 | __expor|t FAR PA|
|00000a10| 53 43 41 4c 20 57 45 50 | 28 20 69 6e 74 20 6e 50 |SCAL WEP|( int nP|
|00000a20| 61 72 61 6d 65 74 65 72 | 20 29 0d 0a 7b 0d 0a 20 |arameter| )..{.. |
|00000a30| 20 6e 50 61 72 61 6d 65 | 74 65 72 20 3d 20 6e 50 | nParame|ter = nP|
|00000a40| 61 72 61 6d 65 74 65 72 | 3b 0d 0a 20 20 03 fd 09 |arameter|;.. ...|
|00000a50| 00 00 4e c4 ff 05 00 03 | f5 09 00 00 ea bd ff 46 |..N.....|.......F|
|00000a60| 00 03 f9 09 00 00 45 11 | 55 47 00 03 ed 09 00 00 |......E.|UG......|
|00000a70| fa f6 ff 4b 00 03 e5 09 | 00 00 f4 21 38 52 00 03 |...K....|...!8R..|
|00000a80| 05 0a 00 00 cf 6f 03 8d | 00 03 e9 09 00 00 45 ef |.....o..|......E.|
|00000a90| 05 dc 00 03 f1 09 00 00 | 08 c8 1a e2 00 03 01 0a |........|........|
|00000aa0| 00 00 00 c4 1a e4 00 02 | |........| |
+--------+-------------------------+-------------------------+--------+--------+