Файл 39-2130277.mkp (КС 11205/123)

  0 1 2 3 4 5 6 7 8 9
00 П A 3 6 П B 4 П 0 ÷ П 2 1 П 1
10 + П 3 П E ПП 53 П 9 ПП 53 ИП C K ИП 3
20 - F x≠0 47 F L1 18 ИП C K П 2 ИП E П 3 ИП 2
30 - П 1 П D F L0 16 С/П ИП 9 С/П ИП 8 С/П
40 ИП 7 С/П ИП 6 С/П ИП 5 С/П K БП 0 ИП E П 3 ИП D
50 П 1 БП 16 ИП A F π + F x2 F x2 П A K ИП A
60 F O ИП A - П A ИП B × 1 + П C K ИП C
70 ИП C В/О 0 0 0 0 0      

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

Файл 39-2130277.mkl

.CHARSET 1251
; Файл 39-2130277 
.ORG 0 
	M A
	36
	M B
	4
	M 0
	/
	M 2
	1
	M 1
	+
	M 3
	M E
	GSB A53
	M 9

A16:	 ; с адреса 33 , 51 
	GSB A53

A18:	 ; с адреса 23 
	RM C
	K RM 3
	-
	F X!=0 A47
	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
	K GOTO 0

A47:	 ; с адреса 21 
	RM E
	M 3

A49:	 ; с адреса 14 
	RM D
	M 1
	GOTO A16

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

A72:	 ; с адреса 17 
	00000
.END