|
|
******************************************************
* FUNCTION DEF : _mean
******************************************************
_mean:LF1 .set 1
SAR AR0,*+
SAR AR1,*
LARK AR0,4
LAR AR0,*0+
; save register vars
SAR AR6,*+,AR2.sym _ap,-3+LF1,20,9,16
.sym _count,-4+LF1,14,9,16
*
* AR6 assigned to parameter ap
*
.sym _sum,1,5,1,32
.sym __cnt,3,14,1,16
.line 2
LARK AR2,-3+LF1
MAR *0+
LAR AR6,*-
.line 3
LAC *
ADRK 7-LF1
SACL *
LAC * ,AR0
SUBK 1
SACL *
LAR AR5,* ,AR2
.line 4
LACK 0
SBRK 2
SACL *+
SACH *-,AR6
SSXM ;;;
L4:
.line 6
LAC *+,AR2
ADDS *+
ADDH *-
SACL *+
SACH *-,AR5
.line 7
BANZ L4,*-,AR6
.line 8
MAR * ,AR2
ADRK 2
ZALS * ,AR1
SACL *+
SACH *+,AR2
SBRK 2
ZALS *+
ADDH * ,AR1
CALL L$$DIVS
EPI0_1:
.line 9
; restore register vars
MAR *-
LAR AR6,*
SBRK 5
LAR AR0,*
RET
E-mail: 
info@telesys.ru
