Файл 51-2008449.mkp (КС 15680/76)

  0 1 2 3 4 5 6 7 8 9
00 Cx П 4 1 П 9 2 П 8 K ИП 4 ИП 8 ИП 9 +
10 П 9 F √ П 6 1 П 1 ИП 6 ИП 1 2 + П 1
20 - F x≥0 31 ИП 9 ИП 1 ÷ K {x} F x=0 15 БП
30 42 ИП 4 2 × 1 + П 5 ИП 8 ИП 9 ×
40 П 7 С/П ИП 8 2 × БП 05 0 0  

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

Файл 51-2008449.mkl

.CHARSET 1251
; Файл 51-2008449 
.ORG 0 
	CX
	M 4
	1
	M 9
	2

A5:	 ; с адреса 45 
	M 8
	K RM 4
	RM 8
	RM 9
	+
	M 9
	F SQRT
	M 6
	1
	M 1

A15:	 ; с адреса 27 
	RM 6
	RM 1
	2
	+
	M 1
	-
	F X>=0 A31
	RM 9
	RM 1
	/
	K FRAC
	F X=0 A15
	GOTO A42

A31:	 ; с адреса 21 
	RM 4
	2
	*
	1
	+
	M 5
	RM 8
	RM 9
	*
	M 7
	R/S

A42:	 ; с адреса 29 
	RM 8
	2
	*
	GOTO A5
	00
.END