[an error occurred while processing this directive]
|
SPLK #4000h,TEMP1
SPLK #0,_SCGN
LAR AR1,#13
MAR *,AR1
L_SQRT1: LACC TEMP1
ADD _SCGN
SACL TEMP
SQRA TEMP
LACC TEMP4,16
SPAC
BCND N_REZ1,LT
LACL TEMP
SACL _SCGN
N_REZ1: LACC TEMP1,15
SACH TEMP1
BANZ L_SQRT1
E-mail: info@telesys.ru