Файл 36-2077091.mkp (КС 7455/247)

  0 1 2 3 4 5 6 7 8 9
00 ИП 7 F π + F x2 F x2 K {x} П 7 1 0 П 8
10 F 1/x - F x<0 15 ИП 7 F Bx + ИП 8 F x2 П 6
20 × K [x] П 5 Cx П 4 9 9 П 9 ИП 8 ИП 6
30 × ИП 9 + С/П F x≠0 77 П 1 K ИП 4 ИП 5
40 - F x≠0 52 F x<0 49 ИП 1 П 8 БП 28 ИП 1
50 БП 27 3 П 0 5 П 1 ИП 4 - F x≥0 67
60 ИП 1 1 0 × 9 ÷ С/П K ИП 1 1
70 + F x≠0 60 F L0 67 БП 60 ИП 9 ИП 8 -
80 2 , 6 ÷ K [x] ИП 8 + БП 33 0
90 0                  

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

Файл 36-2077091.mkl

.CHARSET 1251
; Файл 36-2077091 
.ORG 0 
	RM 7
	F PI
	+
	F X^2
	F X^2
	K FRAC
	M 7
	10
	M 8
	F 1/X
	-
	F X<0 A15
	RM 7

A15:	 ; с адреса 12 
	F ANS
	+
	RM 8
	F X^2
	M 6
	*
	K INT
	M 5
	CX
	M 4
	99

A27:	 ; с адреса 50 
	M 9

A28:	 ; с адреса 47 
	RM 8
	RM 6
	*
	RM 9
	+

A33:	 ; с адреса 87 
	R/S
	F X!=0 A77
	M 1
	K RM 4
	<->
	RM 5
	-
	F X!=0 A52
	F X<0 A49
	RM 1
	M 8
	GOTO A28

A49:	 ; с адреса 43 
	RM 1
	GOTO A27

A52:	 ; с адреса 41 
	3
	M 0
	5
	M 1
	RM 4
	-
	F X>=0 A67

A60:	 ; с адреса 71 , 75 
	RM 1
	10
	*
	9
	/
	R/S

A67:	 ; с адреса 58 , 73 
	K RM 1
	<->
	1
	+
	F X!=0 A60
	F L0 A67
	GOTO A60

A77:	 ; с адреса 34 
	RM 9
	RM 8
	-
	2,6
	/
	K INT
	RM 8
	+
	GOTO A33
	00
.END