Файл 73-2270291.mkp (КС 7440/132)

  0 1 2 3 4 5 6 7 8 9
00 Cx П 5 6 0 П A ИП 6 П 3 ИП 7 П 4 ПП
10 76 П B 6 П 0 Cx П 1 ПП 45 ПП 76
20 ИП B - F x<0 29 F Bx П B ИП 0 П 1 F L0
30 16 ИП 1 F x≠0 67 П 0 ПП 45 П 7 ИП 3 П 6
40 ИП 2 П 5 3 БП 13 ИП 0 2 - ИП A ×
50 ИП 5 + П 2 F cos ИП 8 × ИП 6 + П 3 ИП 2
60 F sin ИП 8 × ИП 7 + П 4 В/О ИП 8 4 ÷
70 П 8 ИП 9 - F x<0 12 С/П ИП 3 5 - F x2
80 ИП 4 9 - F x2 + /-/ В/О 0 0 0
90 0                  

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

Файл 73-2270291.mkl

.CHARSET 1251
; Файл 73-2270291 
.ORG 0 
	CX
	M 5
	60
	M A
	RM 6
	M 3
	RM 7
	M 4
	GSB A76
	M B

A12:	 ; с адреса 73 
	6

A13:	 ; с адреса 43 
	M 0
	CX
	M 1

A16:	 ; с адреса 29 
	GSB A45
	GSB A76
	RM B
	<->
	-
	F X<0 A29
	F ANS
	M B
	RM 0
	M 1

A29:	 ; с адреса 23 
	F L0 A16
	RM 1
	F X!=0 A67
	M 0
	GSB A45
	M 7
	RM 3
	M 6
	RM 2
	M 5
	3
	GOTO A13

A45:	 ; с адреса 16 , 35 
	RM 0
	2
	-
	RM A
	*
	RM 5
	+
	M 2
	F COS
	RM 8
	*
	RM 6
	+
	M 3
	RM 2
	F SIN
	RM 8
	*
	RM 7
	+
	M 4
	RTN

A67:	 ; с адреса 32 
	RM 8
	4
	/
	M 8
	RM 9
	-
	F X<0 A12
	R/S

A76:	 ; с адреса 9 , 18 
	RM 3
	5
	-
	F X^2
	RM 4
	9
	-
	F X^2
	+
	+/-
	RTN
	0000
.END