Файл 50-2000042.mkp (КС 17419/141)

  0 1 2 3 4 5 6 7 8 9
00 Cx П 4 ИП 7 F √ П 2 1 П 3 ИП 2 ИП 3 2
10 + П 3 - F x≥0 23 ИП 7 ИП 3 ÷ K {x} F x=0
20 07 БП 29 K ИП 4 ИП 9 F x=0 29 ИП 7 С/П ИП 8
30 ИП 7 2 + П 7 - F x<0 02 ИП 4 С/П БП
40 37 0                

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

Файл 50-2000042.mkl

.CHARSET 1251
; Файл 50-2000042 
.ORG 0 
	CX
	M 4

A2:	 ; с адреса 35 
	RM 7
	F SQRT
	M 2
	1
	M 3

A7:	 ; с адреса 19 
	RM 2
	RM 3
	2
	+
	M 3
	-
	F X>=0 A23
	RM 7
	RM 3
	/
	K FRAC
	F X=0 A7
	GOTO A29

A23:	 ; с адреса 13 
	K RM 4
	RM 9
	F X=0 A29
	RM 7
	R/S

A29:	 ; с адреса 21 , 25 
	RM 8
	RM 7
	2
	+
	M 7
	-
	F X<0 A2

A37:	 ; с адреса 39 
	RM 4
	R/S
	GOTO A37
	0
.END