Файл 72-2259056.mkp (КС 14301/1)

  0 1 2 3 4 5 6 7 8 9
00 ИП 1 П 4 ПП 45 П 5 1 П 0 ИП 1 ИП 2 +
10 П 4 ПП 45 ИП 5 - F x<0 24 F Bx П 5
20 ИП 4 П 1 БП 29 F L0 32 ИП 2 /-/ П 2 2
30 БП 06 ИП 3 ИП 2 K |x| - F x<0 44 ИП 2 3
40 ÷ П 2 БП 05 С/П ИП 4 1 2 × ИП 4
50 F x2 - 3 6 - В/О        

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

Файл 72-2259056.mkl

.CHARSET 1251
; Файл 72-2259056 
.ORG 0 
	RM 1
	M 4
	GSB A45
	M 5

A5:	 ; с адреса 42 
	1

A6:	 ; с адреса 30 
	M 0
	RM 1
	RM 2
	+
	M 4
	GSB A45
	RM 5
	<->
	-
	F X<0 A24
	F ANS
	M 5
	RM 4
	M 1
	GOTO A29

A24:	 ; с адреса 16 
	F L0 A32
	RM 2
	+/-
	M 2

A29:	 ; с адреса 22 
	2
	GOTO A6

A32:	 ; с адреса 24 
	RM 3
	RM 2
	K ABS
	-
	F X<0 A44
	RM 2
	3
	/
	M 2
	GOTO A5

A44:	 ; с адреса 36 
	R/S

A45:	 ; с адреса 2 , 11 
	RM 4
	12
	*
	RM 4
	F X^2
	-
	36
	-
	RTN

.END