Файл 52-2018298.mkp (КС 5975/91)

  0 1 2 3 4 5 6 7 8 9
00 Cx 5 F √ П 5 1 + 2 ÷ П 6 1
10 - П 3 ИП 7 3 0 - F x<0 53 ИП 7 ИП 6
20 F xy П 8 ИП 7 ИП 3 F xy П 9 ИП 7 2 ÷ K {x}
30 F x=0 37 ИП 8 ИП 9 - БП 40 ИП 8 ИП 9 +
40 ИП 5 ÷ K [x] 1 + П 4 С/П ИП 7 1 +
50 П 7 БП 12 ИП 7 2 ÷ K [x] П 1 1 -
60 ПП 89 П 9 ИП 7 ИП 1 - П 2 ПП 89 ИП 9
70 × П 9 ИП 1 ПП 89 П 8 ИП 2 1 + ПП
80 89 ИП 8 × ИП 9 + 5 ÷ БП 45 ИП 6
90 F xy K [x] 1 + В/О 0 0 0    

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

Файл 52-2018298.mkl

.CHARSET 1251
; Файл 52-2018298 
.ORG 0 
	CX
	5
	F SQRT
	M 5
	1
	+
	2
	/
	M 6
	1
	-
	M 3

A12:	 ; с адреса 51 
	RM 7
	30
	-
	F X<0 A53
	RM 7
	RM 6
	F X^Y
	M 8
	RM 7
	RM 3
	F X^Y
	M 9
	RM 7
	2
	/
	K FRAC
	F X=0 A37
	RM 8
	RM 9
	-
	GOTO A40

A37:	 ; с адреса 30 
	RM 8
	RM 9
	+

A40:	 ; с адреса 35 
	RM 5
	/
	K INT
	1
	+

A45:	 ; с адреса 87 
	M 4
	R/S
	RM 7
	1
	+
	M 7
	GOTO A12

A53:	 ; с адреса 16 
	RM 7
	2
	/
	K INT
	M 1
	1
	-
	GSB A89
	M 9
	RM 7
	RM 1
	-
	M 2

A67:	 ; с адреса 17 
	GSB A89
	RM 9
	*
	M 9
	RM 1
	GSB A89
	M 8
	RM 2
	1
	+
	GSB A89
	RM 8
	*
	RM 9
	+
	5
	/
	GOTO A45

A89:	 ; с адреса 60 , 67 , 73 , 79 
	RM 6
	F X^Y
	K INT
	1
	+
	RTN
	000
.END