Исправно компилируется в DLL, но нет соглашения о вызовах

includes/chll.inc

@@ -0,0 +1,162 @@
+start proc <4> uses rdi rsi rbx
+LOCAL CmdLine:LPSTR
+	call GetCommandLine
+	mov rbx,rax
+	invoke ArgCount,rbx
+	.if eax
+		mov esi,eax
+		lea rdi,[8*rax+8]
+		.if rdi&0Fh
+			add rdi,8
+		.endif
+		invoke strlen,rbx
+		inc rax
+		mov CmdLine,fn(malloc,rax)
+		invoke strcpy,CmdLine,rbx
+		sub rsp,rdi
+		sub rsp,4*8
+		invoke FillArgv,CmdLine,&[rsp+4*8+8]
+		invoke EraseArgvDQuotes,esi,&[rsp+4*8+8]
+		add rsp,4*8
+		mov qptr [rsp+8][8*rsi],0
+		invoke main,esi,rspArg2,rspArg3,rspArg4
+		add rsp,rdi
+		mov rdi,rax
+		invoke free,CmdLine
+		mov rax,rdi
+	.else
+		invoke main,eax,0
+	.endif
+	ret
+start endp
+FillArgv proc <0> CommandLine:LPSTR,pargv:LPPSTR
+	xor eax,eax
+	mov r8,rdx
+	.if bptr [rcx]
+		mov dl,' '
+		mov r11b,TAB_CHAR
+		.if bptr [rcx]=='"'
+			mov dl,'"'
+			mov r11b,'"'
+			inc rcx
+		.endif
+		mov [r8],rcx
+		add r8,8
+		.repeat
+			mov r10b,[rcx]
+			.goto EndCount .if ~r10b
+			inc rcx
+		.until r10b==dl || r10b==r11b
+		mov bptr [rcx-1],0
+		.while TRUE
+			.while TRUE
+				mov dl,[rcx]
+				.goto EndCount .if ~dl
+				.break .if dl~=SPACE_CHAR && dl~=TAB_CHAR
+				inc rcx
+			.endw
+			mov [r8],rcx
+			add r8,8
+			mov dh,0
+			inc eax
+			.while TRUE
+				mov dl,[rcx]
+				.goto EndCount .if ~dl
+				.if ~dh
+					.if dl==SPACE_CHAR || dl==TAB_CHAR
+						mov bptr [rcx],0
+						inc rcx
+						.break
+					.endif
+					.if dl=='"'
+						mov dh,1
+					.endif
+				.elseif dh==1
+					.if dl=='"'
+						mov dh,0
+					.endif
+				.endif
+				inc rcx
+			.endw
+		.endw
+	EndCount:
+	.endif
+	.if eax
+		inc eax
+	.endif
+	ret
+FillArgv endp
+ArgCount proc <0> CommandLine:LPSTR
+	xor eax,eax
+	.if bptr [rcx]
+		mov dl,' '
+		mov r11b,TAB_CHAR
+		.if bptr [rcx]=='"'
+			mov dl,'"'
+			mov r11b,'"'
+			inc rcx
+		.endif
+		.repeat
+			mov r10b,[rcx]
+			.goto EndCount .if ~r10b
+			inc rcx
+		.until r10b==dl || r10b==r11b
+		.while TRUE
+			.while TRUE
+				mov dl,[rcx]
+				.goto EndCount .if ~dl
+				.break .if dl~=SPACE_CHAR && dl~=TAB_CHAR
+				inc rcx
+			.endw
+			mov dh,0
+			inc eax
+			.while TRUE
+				mov dl,[rcx]
+				.goto EndCount .if ~dl
+				.if ~dh
+					.break .if dl==SPACE_CHAR || dl==TAB_CHAR
+					.if dl=='"'
+						mov dh,1
+					.endif
+				.elseif dh==1
+					.if dl=='"'
+						mov dh,0
+					.endif
+				.endif
+				inc rcx
+			.endw
+		.endw
+	EndCount:
+	.endif
+	.if eax
+		inc eax
+	.endif
+	ret
+ArgCount endp
+EraseArgvDQuotes proc <0> uses rbx rsi argc:DWORD,argv:LPPSTR
+	mov esi,ecx
+	mov rbx,rdx
+	.if esi
+		.repeat
+			invoke EraseDQuotes,LPSTR ptr [rbx]
+			add rbx,sizeof LPSTR
+			dec esi
+		.until ZERO?
+	.endif
+	ret
+EraseArgvDQuotes endp
+EraseDQuotes proc ;<0> QuotedString:LPSTR
+	.if bptr [rcx]=='"'
+		lea rax,[rcx+1]
+		.repeat
+			mov dl,[rax]
+			mov [rcx],dl
+			inc rax
+			inc rcx
+		.until ~dl
+		.if bptr [rcx-2]=='"'
+			mov bptr [rcx-2],0
+		.endif
+	.endif
+	ret
+EraseDQuotes endp