simple1.il

< Microsoft .NET IL汇编语言程序设计>>书上的源程序

.assembly extern mscorlib { }
.assembly OddOrEven { }
.module OddOrEven.exe
.module extern msvcrt.dll
.namespace Odd.or {
	.class public auto ansi Even extends [mscorlib]System.Object {
		.field public static int32 val
		.method public static void check( ) cil managed {
			.locals init (int32 Retval)
			.entrypoint
		AskForNumber:
			ldstr "Enter a number"
			call void [mscorlib]System.Console::WriteLine(string)
			call string [mscorlib]System.Console::ReadLine()
			ldstr "%d"
			ldsflda int32 Odd.or.Even::val
			call vararg int32 sscanf(string,string,...,int32*)
			stloc.0
			ldloc.0
			brfalse.s Error
			ldsfld int32 Odd.or.Even::val
			ldc.i4.1
			and
			brfalse.s ItsEven
			ldstr "odd!"
			br.s PrintAndReturn
		ItsEven:
			ldstr "even!"
			br.s PrintAndReturn
		Error:
			ldstr "How rude!"
		PrintAndReturn:
			call void [mscorlib]System.Console::WriteLine(string)
			ldloc.0
			brtrue.s AskForNumber
			ret
		} // end of method
	} // end of class
} // end of namespace
.method public static pinvokeimpl("msvcrt.dll") vararg int32 sscanf(string,string) cil managed { }