Файл 38-2110698.mkp (КС 7274/104)

  0 1 2 3 4 5 6 7 8 9
00 Cx П 9 ИП 7 ИП 4 - 1 + П 0 ИП 4 1
10 0 П 1 B↑ F x2 П 2 × П 3 ÷ K [x] П A
20 ПП 69 П B ИП 4 ИП 3 ИП A × - ПП 69
30 ИП B ПП 86 - F x=0 43 ИП 9 1 + П 9
40 ИП 4 K БП 8 С/П F L0 47 ИП 9 С/П K ИП 4 K ИП 6 ИП 6
50 ПП 92 П 6 K ИП 5 ИП 5 ПП 92 П 5 ИП C 1
60 + П C ПП 92 ИП A 1 + БП 19 B↑
70 ИП 2 ÷ K [x] П C ИП 2 × - B↑ ИП 1 ÷
80 K [x] П 5 ИП 1 × - П 6 ИП C ИП 5 + ИП 6
90 + В/О ИП 1 - F x≥0 30 Cx В/О    

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

Файл 38-2110698.mkl

.CHARSET 1251
; Файл 38-2110698 
.ORG 0 
	CX
	M 9
	RM 7
	RM 4
	-
	1
	+
	M 0
	RM 4
	10
	M 1
	ENT
	F X^2
	M 2
	*
	M 3
	/
	K INT

A19:	 ; с адреса 67 
	M A
	GSB A69
	M B
	RM 4
	RM 3
	RM A
	*
	-
	GSB A69

A30:	 ; с адреса 94 
	RM B
	GSB A86
	-
	F X=0 A43
	RM 9
	1
	+
	M 9
	RM 4
	K GOTO 8
	R/S

A43:	 ; с адреса 34 
	F L0 A47
	RM 9
	R/S

A47:	 ; с адреса 43 
	K RM 4
	K RM 6
	RM 6
	GSB A92
	M 6
	K RM 5
	RM 5
	GSB A92
	M 5
	RM C
	1
	+
	M C
	GSB A92
	RM A
	1
	+
	GOTO A19

A69:	 ; с адреса 20 , 28 
	ENT
	RM 2
	/
	K INT
	M C
	RM 2
	*
	-
	ENT
	RM 1
	/
	K INT
	M 5
	RM 1
	*
	-
	M 6

A86:	 ; с адреса 31 
	RM C
	RM 5
	+
	RM 6
	+
	RTN

A92:	 ; с адреса 50 , 55 , 62 
	RM 1
	-
	F X>=0 A30
	CX
	RTN

.END