.main
.var
a
b
c
.end-var
Start:
	IN
	DUP
	BIPUSH 0x0
	IF_ICMPEQ Start
	DUP

	DUP
	BIPUSH 0x30
	INVOKEVIRTUAL ar-daugiau
	IFEQ veiksmai
	// 0x31 0x31

	DUP
	DUP
	BIPUSH 0x3A
	INVOKEVIRTUAL ar-daugiau
	IFLT skaicius

	veiksmai:

	BIPUSH 0x2b
	IF_ICMPEQ Pridet
	DUP

	BIPUSH 0x2D
	IF_ICMPEQ Atimti
	DUP

	BIPUSH 0x2A
	IF_ICMPEQ Daugyba
	DUP
	BIPUSH 0x3D
	IF_ICMPEQ Halt
	GOTO Start

	skaicius:
	BIPUSH 0x30
	ISUB

Pridet:	POP
		BIPUSH 0x30
		IADD
		ISUB

Atimti: POP
		ISUB
		OUT

Daugyba:
		ILOAD a
		ILOAD b

Halt: HALT


Output:
		OUT
.end-main
.method ar-daugiau (a,b)
	ILOAD a
	ILOAD b
	ISUB
	IFLT maziau
		BIPUSH 0x01
		IRETURN
	maziau:
		BIPUSH 0xFF
		IRETURN
.end-method