| [2] | 1 | ; $Id: kLdrExeStub-os2.asm 29 2009-07-01 20:30:29Z bird $ | 
|---|
|  | 2 | ;; @file | 
|---|
|  | 3 | ; kLdr - OS/2 Loader Stub. | 
|---|
|  | 4 | ; | 
|---|
|  | 5 | ; This file contains a 64kb code/data/stack segment which is used to kick off | 
|---|
|  | 6 | ; the loader dll that loads the process. | 
|---|
|  | 7 | ; | 
|---|
|  | 8 |  | 
|---|
|  | 9 | ; | 
|---|
| [29] | 10 | ; Copyright (c) 2006-2007 Knut St. Osmundsen <bird-kStuff-spamix@anduin.net> | 
|---|
| [2] | 11 | ; | 
|---|
| [29] | 12 | ; Permission is hereby granted, free of charge, to any person | 
|---|
|  | 13 | ; obtaining a copy of this software and associated documentation | 
|---|
|  | 14 | ; files (the "Software"), to deal in the Software without | 
|---|
|  | 15 | ; restriction, including without limitation the rights to use, | 
|---|
|  | 16 | ; copy, modify, merge, publish, distribute, sublicense, and/or sell | 
|---|
|  | 17 | ; copies of the Software, and to permit persons to whom the | 
|---|
|  | 18 | ; Software is furnished to do so, subject to the following | 
|---|
|  | 19 | ; conditions: | 
|---|
| [2] | 20 | ; | 
|---|
| [29] | 21 | ; The above copyright notice and this permission notice shall be | 
|---|
|  | 22 | ; included in all copies or substantial portions of the Software. | 
|---|
| [2] | 23 | ; | 
|---|
| [29] | 24 | ; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, | 
|---|
|  | 25 | ; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES | 
|---|
|  | 26 | ; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND | 
|---|
|  | 27 | ; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT | 
|---|
|  | 28 | ; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, | 
|---|
|  | 29 | ; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING | 
|---|
|  | 30 | ; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR | 
|---|
|  | 31 | ; OTHER DEALINGS IN THE SOFTWARE. | 
|---|
| [2] | 32 | ; | 
|---|
|  | 33 |  | 
|---|
|  | 34 | struc KLDRARGS | 
|---|
|  | 35 | .fFlags         resd 1 | 
|---|
|  | 36 | .enmSearch      resd 1 | 
|---|
|  | 37 | .szExecutable   resb 260 | 
|---|
|  | 38 | .szDefPrefix    resb 16 | 
|---|
|  | 39 | .szDefSuffix    resb 16 | 
|---|
|  | 40 | .szLibPath      resb (4096 - (4 + 4 + 16 + 16 + 260)) | 
|---|
|  | 41 | endstruc | 
|---|
|  | 42 |  | 
|---|
|  | 43 | extern _kLdrDyldLoadExe | 
|---|
|  | 44 |  | 
|---|
|  | 45 |  | 
|---|
|  | 46 | segment DATA32 stack CLASS=DATA align=16 use32 | 
|---|
|  | 47 | ..start: | 
|---|
|  | 48 | push    args | 
|---|
|  | 49 | jmp     _kLdrDyldLoadExe | 
|---|
|  | 50 |  | 
|---|
|  | 51 | ; | 
|---|
|  | 52 | ; Argument structure. | 
|---|
|  | 53 | ; | 
|---|
|  | 54 | align 4 | 
|---|
|  | 55 | args: | 
|---|
|  | 56 | istruc KLDRARGS | 
|---|
|  | 57 | at KLDRARGS.fFlags,         dd 0 | 
|---|
|  | 58 | at KLDRARGS.enmSearch,      dd 2 ;KLDRDYLD_SEARCH_HOST | 
|---|
|  | 59 | at KLDRARGS.szDefPrefix,    db '' | 
|---|
|  | 60 | at KLDRARGS.szDefSuffix,    db '.dll' | 
|---|
|  | 61 | ;    at KLDRARGS.szExecutable,   db 'tst-0.exe' | 
|---|
|  | 62 | at KLDRARGS.szLibPath,      db '' | 
|---|
|  | 63 | iend | 
|---|
|  | 64 |  | 
|---|
|  | 65 | segment STACK32 stack CLASS=STACK align=16 use32 | 
|---|
|  | 66 | ; pad up to 64KB. | 
|---|
|  | 67 | resb 60*1024 | 
|---|
|  | 68 |  | 
|---|
|  | 69 | global WEAK$ZERO | 
|---|
|  | 70 | WEAK$ZERO EQU 0 | 
|---|
|  | 71 | group DGROUP, DATA32  STACK32 | 
|---|
|  | 72 |  | 
|---|