Файл 48-2289898.mkp (КС 5121/101)

  0 1 2 3 4 5 6 7 8 9
00 Cx П 4 1 0 П 7 1 5 ПП 78 П 9
10 2 F 10x ПП 78 П 8 5 F 10x × ИП 9 +
20 С/П П 5 ИП 7 1 - П 7 F x≠0 91 ИП 9 7
30 5 ÷ ИП 5 F sin ÷ ИП 8 F tg F 1/x + F 1/x
40 F arctg K [x] F x<0 48 1 8 0 + П 8 6
50 0 - F x≥0 74 ИП 8 ИП 5 - K |x| 2 -
60 F x≥0 65 ИП 8 БП 20 K ИП 4 5 0 B↑ 9
70 ÷ С/П БП 05 1 0 БП 68 ИП 0 F π
80 + F x2 F x2 K {x} П 0 2 0 × K [x] +
90 В/О ИП 4 С/П БП 00 0 0 0    

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

Файл 48-2289898.mkl

.CHARSET 1251
; Файл 48-2289898 
.ORG 0 

A0:	 ; с адреса 93 
	CX
	M 4
	10
	M 7

A5:	 ; с адреса 72 
	15
	GSB A78
	M 9
	2
	F 10^X
	GSB A78
	M 8
	5
	F 10^X
	*
	RM 9
	+

A20:	 ; с адреса 63 
	R/S
	M 5
	RM 7
	1
	-
	M 7
	F X!=0 A91
	RM 9
	75
	/
	RM 5
	F SIN
	/
	RM 8
	F TG
	F 1/X
	+
	F 1/X
	F ARCTG
	K INT
	F X<0 A48
	180
	+

A48:	 ; с адреса 42 
	M 8
	60
	-
	F X>=0 A74
	RM 8
	RM 5
	-
	K ABS
	2
	-
	F X>=0 A65
	RM 8
	GOTO A20

A65:	 ; с адреса 60 
	K RM 4
	50

A68:	 ; с адреса 76 
	ENT
	9
	/
	R/S
	GOTO A5

A74:	 ; с адреса 52 
	10
	GOTO A68

A78:	 ; с адреса 7 , 12 
	RM 0
	F PI
	+
	F X^2
	F X^2
	K FRAC
	M 0
	20
	*
	K INT
	+
	RTN

A91:	 ; с адреса 26 
	RM 4
	R/S
	GOTO A0
	000
.END