Файл 40-2145670.mkp (КС 12600/178)

  0 1 2 3 4 5 6 7 8 9
00 П A 4 5 П B 5 П 0 1 П 1 9 П 2
10 + П 3 П E ПП 55 П 9 ПП 55 ИП C K ИП 3
20 - F x≠0 49 F L1 18 ИП C K П 2 ИП E П 3 ИП 2
30 - П 1 П D F L0 16 С/П ИП 9 С/П ИП 8 С/П
40 ИП 7 С/П ИП 6 С/П ИП 5 С/П ИП 4 С/П K БП 0 ИП E
50 П 3 ИП D П 1 БП 16 ИП A F π + F x2 F x2
60 K {x} П A ИП B × 1 + K [x] П C ИП C В/О

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

Файл 40-2145670.mkl

.CHARSET 1251
; Файл 40-2145670 
.ORG 0 
	M A
	45
	M B
	5
	M 0
	1
	M 1
	9
	M 2
	+
	M 3
	M E
	GSB A55
	M 9

A16:	 ; с адреса 33 , 53 
	GSB A55

A18:	 ; с адреса 23 
	RM C
	K RM 3
	-
	F X!=0 A49
	F L1 A18
	RM C
	K M 2
	RM E
	M 3
	RM 2
	-
	M 1
	M D
	F L0 A16
	R/S
	RM 9
	R/S
	RM 8
	R/S
	RM 7
	R/S
	RM 6
	R/S
	RM 5
	R/S
	RM 4
	R/S
	K GOTO 0

A49:	 ; с адреса 21 
	RM E
	M 3
	RM D
	M 1
	GOTO A16

A55:	 ; с адреса 13 , 16 
	RM A
	F PI
	+
	F X^2
	F X^2
	K FRAC
	M A
	RM B
	*
	1
	+
	K INT
	M C
	RM C
	RTN

.END