Файл 30-2000070.mkp (КС 11250/54)

  0 1 2 3 4 5 6 7 8 9
00 ИП 9 ИП 8 - П 6 ИП 9 ИП 8 ИП 7 × ИП 9 -
10 ИП 7 1 - ÷ - 8 0 0 ÷ 2
20 F 1/x П 0 + ИП 4 × ИП 5 П 5 - 1
30 0 × K [x] ИП 9 + П 9 ИП 1 F x≠0 65 ИП 9
40 5 ÷ K {x} F x≠0 52 F Bx K [x] 5 × 5
50 + П 9 ИП 5 K [x] П 5 F Bx K {x} ИП 0 - F x≥0
60 65 ИП 5 ИП 0 + П 5 ИП 9 С/П БП 00 0

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

Файл 30-2000070.mkl

.CHARSET 1251
; Файл 30-2000070 
.ORG 0 

A0:	 ; с адреса 67 
	RM 9
	RM 8
	-
	M 6
	RM 9
	RM 8
	RM 7
	*
	RM 9
	-
	RM 7
	1
	-
	/
	-
	800
	/
	2
	F 1/X
	M 0
	+
	RM 4
	*
	RM 5
	<->
	M 5
	-
	10
	*
	K INT
	RM 9
	+
	M 9
	RM 1
	F X!=0 A65
	RM 9
	5
	/
	K FRAC
	F X!=0 A52
	F ANS
	K INT
	5
	*
	5
	+
	M 9

A52:	 ; с адреса 43 
	RM 5
	K INT
	M 5
	F ANS
	K FRAC
	RM 0
	-
	F X>=0 A65
	RM 5
	RM 0
	+
	M 5

A65:	 ; с адреса 37 , 59 
	RM 9
	R/S
	GOTO A0
	0
.END