ACOSX: ORB 2FH,#8 SCALL ASIX JBC 2FH,3,ACSRT LCALL GHPI AS3: LCALL FPSUB ACSRT: ANDB 2FH,#0F7H RET ATANX: CMPB 2CH,#9DH JNH AT2 LDB 27H,2BH LDB 2CH,#81H LD 2AH,#490FH LD 28H,#0DAA2H JBC 27H,7,AT1 ORB 2BH,#80H AT1: RET AT2: CMPB 2CH,#76H JNH AT1 LCALL LD2 LCALL LD0 LCALL FPMUL LCALL G1 LCALL FPADD;1+x2 LCALL FSQ0;√1+x2 LCALL GET2 LCALL FPDIV SJMP ASINX