شàéë 44-2212898.mkp (تر 8765/87)

  0 1 2 3 4 5 6 7 8 9
00 Cx د C 1 0 د D 7 3 د B بد 7 بد 8
10 بد 9 دد 74 بد A بد 8 + بد 6 K دد B بد A بد 9
20 + بد 7 K دد B بد A بد 8 + بد 4 K دد B بد 9 بد 3
30 K دد B بد 7 بد 8 + بد 9 + بد 1 + بد 2 +
40 بد 3 + بد 4 بد 6 دد 74 بد 7 بد 1 K دد B بد 0
50 بد 2 + بد 6 K دد B بد 0 بد 3 + بد 1 K دد B بد 0
60 بد 2 + بد 4 K دد B بد 1 بد 2 بد 3 دد 74 بد C
70 ر/د ءد 00 بد 5 + + F x≠0 88 2 -
80 F x≥0 89 F x=0 87 1 ءد 88 Cx K د D بد C
90 K بد D + د C بد D 1 - د D آ/خ    

بٌُîنيûé ٍهêٌٍ نëے êًîٌٌ-êîىïèëےٍîًà

شàéë 44-2212898.mkl

.CHARSET 1251
; شàéë 44-2212898 
.ORG 0 

A0:	 ; ٌ àنًهٌà 71 
	CX
	M C
	10
	M D
	73
	M B
	RM 7
	RM 8
	RM 9
	GSB A74
	RM A
	RM 8
	+
	RM 6
	K GSB B
	RM A
	RM 9
	+
	RM 7
	K GSB B
	RM A
	RM 8
	+
	RM 4
	K GSB B
	RM 9
	RM 3
	K GSB B
	RM 7
	RM 8
	+
	RM 9
	+
	RM 1
	+
	RM 2
	+
	RM 3
	+
	RM 4
	RM 6
	GSB A74
	RM 7
	RM 1
	K GSB B
	RM 0
	RM 2
	+
	RM 6
	K GSB B
	RM 0
	RM 3
	+
	RM 1
	K GSB B
	RM 0
	RM 2
	+
	RM 4
	K GSB B
	RM 1
	RM 2
	RM 3
	GSB A74
	RM C
	R/S
	GOTO A0
	RM 5

A74:	 ; ٌ àنًهٌà 11 , 44 , 67 
	+
	+
	F X!=0 A88
	2
	-
	F X>=0 A89
	F X=0 A87
	1
	GOTO A88

A87:	 ; ٌ àنًهٌà 82 
	CX

A88:	 ; ٌ àنًهٌà 76 , 85 
	K M D

A89:	 ; ٌ àنًهٌà 80 
	RM C
	K RM D
	+
	M C
	RM D
	1
	-
	M D
	RTN

.END