Файл 75-2294042.mkp (КС 17395/77)

  0 1 2 3 4 5 6 7 8 9
00 ИП A П C ИП B П D + П E П 0 ИП A K {x} F x≠0
10 20 ИП A П D ИП B K {x} F x≠0 20 F π БП 35
20 F Bx П C П 0 ИП D F 1/x БП 35 ИП C ИП 0 -
30 × ИП E ИП 0 - ÷ F L0 27 K |x| С/П 0
40 0 0                

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

Файл 75-2294042.mkl

.CHARSET 1251
; Файл 75-2294042 
.ORG 0 
	RM A
	M C
	RM B
	M D
	+
	M E
	M 0
	RM A
	K FRAC
	F X!=0 A20
	RM A
	M D
	RM B
	K FRAC
	F X!=0 A20
	F PI
	GOTO A35

A20:	 ; с адреса 9 , 15 
	F ANS
	M C
	M 0
	RM D
	F 1/X
	GOTO A35

A27:	 ; с адреса 35 
	RM C
	RM 0
	-
	*
	RM E
	RM 0
	-
	/

A35:	 ; с адреса 18 , 25 
	F L0 A27
	K ABS
	R/S
	000
.END