Файл 01-1000035.mkp (КС 18210/170)

  0 1 2 3 4 5 6 7 8 9
00 ИП 8 ИП 7 2 × ÷ /-/ П 5 F x2 ИП 9 ИП 7
10 ÷ - П 4 F x≥0 25 F √ П 6 ИП 5 + П 5
20 F Bx ИП 6 - БП 27 /-/ F √ П 6 ИП 4 С/П
30 0 0 0 0 0          

Исходный текст для кросс-компилятора

Файл 01-1000035.mkl

.CHARSET 1251
; Файл 01-1000035 
.ORG 0 
	RM 8
	RM 7
	2
	*
	/
	+/-
	M 5
	F X^2
	RM 9
	RM 7
	/
	-
	M 4
	F X>=0 A25
	F SQRT
	M 6
	RM 5
	+
	M 5
	F ANS
	RM 6
	-
	GOTO A27

A25:	 ; с адреса 13 
	+/-
	F SQRT

A27:	 ; с адреса 23 
	M 6
	RM 4
	R/S
	00000
.END