Файл 13-1165242.mkp (КС 17045/37)

  0 1 2 3 4 5 6 7 8 9
00 ИП 2 ИП 3 × П 4 ПП 20 ИП 2 + П 2 ИП 5
10 F x<0 13 /-/ ИП 4 - F x<0 00 ПП 20 F arcsin
20 ИП 2 F sin П 6 ИП 2 × П 5 ИП 2 F cos ИП 2 ×
30 /-/ ИП 6 + П 6 ИП 5 ÷ /-/ П 5 В/О 0
40 0 0                

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

Файл 13-1165242.mkl

.CHARSET 1251
; Файл 13-1165242 
.ORG 0 

A0:	 ; с адреса 15 
	RM 2
	RM 3
	*
	M 4
	GSB A20
	RM 2
	+
	M 2
	RM 5
	F X<0 A13
	+/-

A13:	 ; с адреса 10 
	RM 4
	-
	F X<0 A0
	GSB A20
	F ARCSIN

A20:	 ; с адреса 4 , 17 
	RM 2
	F SIN
	M 6
	RM 2
	*
	M 5
	RM 2
	F COS
	RM 2
	*
	+/-
	RM 6
	+
	M 6
	RM 5
	/
	+/-
	M 5
	RTN
	000
.END