Файл 15-1186270.mkp (КС 11367/79)

  0 1 2 3 4 5 6 7 8 9
00 ПП 56 С/П ИП 8 F x2 ИП 9 F x2 - П 5 ИП 8
10 ИП 9 × 2 × П 6 С/П ПП 56 F x2 ИП 8
20 ÷ П 5 ИП 9 F Bx ÷ /-/ П 6 С/П ИП 9
30 F x=0 41 ИП 8 F x<0 41 /-/ F √ П 6 0 П 5
40 С/П ПП 56 ИП 8 + 2 ÷ F √ П 5 2
50 × ИП 9 ÷ П 6 С/П ИП 8 F x2 ИП 9 F x2
60 + F √ П 7 В/О 0 0 0 0 0 0

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

Файл 15-1186270.mkl

.CHARSET 1251
; Файл 15-1186270 
.ORG 0 
	GSB A56
	R/S
	RM 8
	F X^2
	RM 9
	F X^2
	-
	M 5
	RM 8
	RM 9
	*
	2
	*
	M 6
	R/S
	GSB A56
	F X^2
	RM 8
	<->
	/
	M 5
	RM 9
	F ANS
	/
	+/-
	M 6
	R/S
	RM 9
	F X=0 A41
	RM 8
	F X<0 A41
	+/-
	F SQRT
	M 6
	0
	M 5
	R/S

A41:	 ; с адреса 30 , 33 
	GSB A56
	RM 8
	+
	2
	/
	F SQRT
	M 5
	2
	*
	RM 9
	<->
	/
	M 6
	R/S

A56:	 ; с адреса 0 , 16 , 41 
	RM 8
	F X^2
	RM 9
	F X^2
	+
	F SQRT
	M 7
	RTN
	000000
.END