TI-86 Assembly


OP Math


What you'll learn:

_CKOP1CPLX equ $41C3 ; check if OP1 is CPLX _CKCPLX equ $41C7 ; expects type in A _CKOP1REAL equ $41CB ; check if OP1 is REAL _ANGLE equ $41CF _IMAG equ $41D3 ; OP1 = imag (OP1,OP2) _SETOP1REAL equ $41D7 ; set OP1 type real _REALX equ $41DB _SETREAL equ $41DF ; set HL type real _COP1SET0 equ $41E3 ; OP1,OP2 = CPLX (0,0) _OP2SET0CPLX equ $41E7 ; real OP1 to complex OP1,OP2 _SETOP1CPLX equ $41EB ; set OP1 cplx _CPOP4OP3 equ $41EF ; cp OP4,OP3; OP1=OP4 and OP2=OP3 _MOV10OP2CP equ $41F3 ; cp OP1,(HL); OP2=(HL) _ABSO1O2CP equ $41F7 ; abs(OP1,OP2) and cp OP1,OP2 _CPOP1OP2 equ $41FB ; cp OP1,OP2 _CP6 equ $41FF _OP3TOOP4 equ $4203 ;op3 to op4 _OP1TOOP4 equ $4207 ;op1 to op4 _OP2TOOP4 equ $420B ;op2 to op4 _MOVTOOP4 equ $420F ;(hl) to OP4 _OP4TOOP2 equ $4213 ;op4 to op2 _OP4TOOP3 equ $4217 ;op4 to op3 _OP3TOOP2 equ $421B ;op3 to op2 _OP1TOOP3 equ $421F ;op1 to op3 _MOVOP1TO equ $4223 ;OP1 to (de) _OP5TOOP2 equ $4227 ;op5 to op2 _OP5TOOP6 equ $422B ;op5 to op6 _OP5TOOP4 equ $422F ;op5 to op4 _OP1TOOP2 equ $4233 ;op1 to op2 _MOVTOOP2 equ $4237 ;(hl) to OP2 _OP6TOOP2 equ $423B ;op6 to op2 _OP6TOOP1 equ $423F ;op6 to op1 _OP4TOOP1 equ $4243 ;op4 to op1 _OP5TOOP1 equ $4247 ;op5 to op1 _OP3TOOP1 equ $424B ;op3 to op1 _OP4TOOP5 equ $424F ;op4 to op5 _OP3TOOP5 equ $4253 ;op3 to op5 _OP2TOOP5 equ $4257 ;op2 to op5 _MOVTOOP5 equ $425B ;(hl) to op5 _OP2TOOP6 equ $425F ;op2 to op6 _OP1TOOP6 equ $4263 ;op1 to op6 _MOVTOOP6 equ $4267 ;(hl) to op6 _OP1TOOP5 equ $426B ;op1 to op5 _OP2TOOP1 equ $426F ;op2 to op1 _MOVTOOP1 equ $4273 ;(hl) to op1 _op4toop2m equ $42A7 _O2TOO4D16 equ $42A7 _O1TOO4D16 equ $42AB _O4TOO1D16 equ $42AF _O2TOO1D16 equ $42B3 _O3TOO2D14 equ $42B7 _O5TOO1D14 equ $42BB _O3TOO1D14 equ $42BF _O3TOO1D16 equ $42C3 _TOOP3D14 equ $42C7 _OP2TOOP3 equ $42CB ; move 11 bytes at op2 to op3 _op2toop3 equ $42CB ; move 11 bytes at op2 to op3 _movtoop3 equ $42CF ; move 11 bytes at (hl) to op3 _MOVTOOP3 equ $42CF ; move 11 bytes at (hl) to op3 _OP4TOOP6 equ $42D3 ; move 11 bytes at op4 to op6 _op4toop6 equ $42D3 ; move 11 bytes at op4 to op6 _mov10toop1 equ $42D7 ; move 10 bytes at (hl) to op1 _MOV10TOOP1 equ $42D7 ; move 10 bytes at (hl) to op1 _MOV10OP1OP2 equ $42DB ; move 10 to op1, 10 to op2 _mov10toop1op2 equ $42DB ; move 10 to op1, 10 to op2 _mov10toop2 equ $42DF ; move 10 bytes at (hl) to op2 _MOV10TOOP2 equ $42DF ; move 10 bytes at (hl) to op2 _MOVFROP1 equ $42E3 ; move 10 bytes at op1 to (de) _movfroop1 equ $42E3 ; move 10 bytes at op1 to (de) _op4set1 equ $42E7 ; op4 = floating point 1 _OP4SET1 equ $42E7 ; op4 = floating point 1 _OP3SET1 equ $42EB ; op3 = floating point 1 _op3set1 equ $42EB ; op3 = floating point 1 _op2set8 equ $42EF ; op2 = floating point 8 _OP2SET8 equ $42EF ; op2 = floating point 8 _SETNUM8 equ $42F3 _OP2SET5 equ $42F7 ; op2 = floating point 5 _op2set5 equ $42F7 ; op2 = floating point 5 _op2set4 equ $42FB ; op2 = floating point 4 _OP2SET4 equ $42FB ; op2 = floating point 4 _SETNUM4 equ $42FF _OP2SET3 equ $4303 ; op2 = floating point 3 _op2set3 equ $4303 ; op2 = floating point 3 _SETNUM3 equ $4307 _OP1SET1A equ $430B _op1set1 equ $430F ; op1 = floating point 1 _op1set1 equ $430F ; op1 = floating point 1 _op1set4 equ $4313 ; op1 = floating point 4 _OP1SET4 equ $4313 ; op1 = floating point 4 _OP1SET3 equ $4317 ; op1 = floating point 3 _op1set3 equ $4317 ; op1 = floating point 3 _op3set2 equ $431B ; op3 = floating point 2 _OP3SET2 equ $431B ; op3 = floating point 2 _OP1SET2 equ $431F ; op1 = floating point 2 _op1set2 equ $431F ; op1 = floating point 2 _op2set2 equ $4323 ; op2 = floating point 2 _OP2SET2 equ $4323 ; op2 = floating point 2 _SETNUM2 equ $4327 _SETMANT1 equ $432B _OP2SET1 equ $432F ; op2 = floating point 1 _op2set1 equ $432F ; op2 = floating point 1 _SETNUM1 equ $4333 _SETNUM equ $4337 _SETNUMA equ $433B _SETMANT equ $433F _ZERO16D equ $4343 ; Sets 8 bytes at HL to zero. _ld_hl_8z equ $4343 ; Sets 8 bytes at HL to zero. _SET16A equ $4347 ; 8 a to (hl) _ld_hl_8a equ $4347 ; 8 a to (hl) _SET14A equ $434B ; 7 a to (hl+1) _ld_hlplus1_7a equ $434B ; 7 a to (hl+1) _SET14D equ $434F ; 7 a to (hl) _ld_hl_7a equ $434F ; 7 a to (hl) _OP4SET0 equ $4353 ; op4 = floating point 0 _op4set0 equ $4353 ; op4 = floating point 0 _op3set0 equ $4357 ; op3 = floating point 0 _OP3SET0 equ $4357 ; op3 = floating point 0 _OP2SET0 equ $435B ; op2 = floating point 0 _op2set0 equ $435B ; op2 = floating point 0 _op1set0 equ $435F ; op1 = floating point 0 _OP1SET0 equ $435F ; op1 = floating point 0 _SETNUM0 equ $4363 ; (hl)= fp0 _ld_hl_fp0 equ $4363 ; (hl)= fp0 _zeroop1m equ $4367 ; mantissa op1 = 0 _ZEROOP1M equ $4367 ; mantissa op1 = 0 _ZEROOP1 equ $436B ; 11 bytes op1 = 0 _zeroop1 equ $436B ; 11 bytes op1 = 0 _zeroop2 equ $436F ; 11 bytes op2 = 0 _ZEROOP2 equ $436F ; 11 bytes op2 = 0 _ZEROOP3 equ $4373 ; 11 bytes op3 = 0 _zeroop3 equ $4373 ; 11 bytes op3 = 0 _SHROP1D14 equ $438F ; (op1+3...op1+9)>>4 _SHRO1D18 equ $4393 ; (op1+1...op1+9)>>4 _SHROP1D18 equ $4397 ; (op1+2...op1+10)>>4 _SHR18 equ $439B ; (hl...hl+8)>>4 _SHR18A equ $439F ; a(hl...hl+8)>>4 _SHROP1D16 equ $43A3 _SHR16 equ $43A7 ; (hl...hl+7)>>4 _SHRATOOPM16 equ $43AB ; a(hl...hl+7)>>4 _SHR14 equ $43AF ; a(hl...hl+6)>>4 _SHLOP3D14 equ $43B3 _SHLOP1D14 equ $43B7 _SHR1TOOP1M equ $43BB _SHR1TOOPM equ $43BF _SHLOP3D16 equ $43C3 _SHLOP1D16 equ $43C7 _SHL16 equ $43CB _SHL14 equ $43CF _SHRSIN equ $43D3 _SRDRO4D16 equ $43D7 _SRDO1ONCE equ $43DB _SRDO1 equ $43DF _SHRCCON equ $43E3 _SRDRO2D16 equ $43E7 _SHRDRND equ $43EB _MANTP1 equ $43EF _MANTPA equ $43F3 _ADDPROP equ $43F7 _ADDPROPLP equ $43FB _APROPOE equ $43FF _APROP10 equ $4403 _OP2POP4D16 equ $4407 _OP2POP1D16 equ $440B _OP1POP2D16 equ $440F _OP2POP2D14 equ $4413 _OP1POP2D14 equ $4417 _OP1POP3D16 equ $441B _ADD16D equ $441F _ADD14D equ $4423 _ADD2D equ $4427 _CSVAS equ $442B _CSVAS1 equ $442F _CSVASH equ $4433 _OP1POP3D14 equ $4437 _OP2MOP1D16 equ $443B _OP1MOP2D16 equ $443F _OP3MOP1D16 equ $4443 _OP1MOP3D16 equ $4447 _SUB16D equ $444B _SUB14D equ $444F _SUB10D equ $4453 _SUB8D equ $4457 _SUB6D equ $445B _OP4MD14 equ $445F _OP4MD16 equ $4463 _OP3MOP1D14 equ $4467 _OP1MOP3D14 equ $446B _OP2EXOP6 equ $446F ; swap OP2,OP6 _ex_op2_op6 equ $446F ; swap op2,op6 _ex_op5_op6 equ $4473 ; swap op5,op6 _OP5EXOP6 equ $4473 ; swap OP5,OP6 _OP1EXOP5 equ $4477 ; swap OP1,OP5 _ex_op1_op5 equ $4477 ; swap op1,op5 _ex_op1_op6 equ $447B ; swap op1,op6 _OP1EXOP6 equ $447B ; swap OP1,OP6 _OP2EXOP4 equ $447F ; swap OP2,OP4 _ex_op2_op4 equ $447F ; swap op2,op4 _ex_op2_op5 equ $4483 ; swap op2,op5 _OP2EXOP5 equ $4483 ; swap OP2,OP5 _OP1EXOP3 equ $4487 ; swap OP1,OP3 _ex_op1_op3 equ $4487 ; swap op1,op3 _ex_op1_op4 equ $448B ; swap op1,op4 _OP1EXOP4 equ $448B ; swap OP1,OP4 _OP1EXOP2 equ $448F ; swap OP1,OP2 _ex_op1_op2 equ $448F ; swap op1,op2 _CKOP1C0 equ $4497 ; cp (OP1,OP2) to 0 _CKOP1FP0 equ $449B ; cp OP1,0 _ckop1fp0 equ $449B ; set Z if op1 = fp 0 _CKFP0 equ $449F _CKOP2FP0 equ $44A3 ; cp OP2,0 _ckop2fp0 equ $44A3 ; set Z if op2 = fp 0 _POSRNO0INT equ $44A7 _POSNO0INT equ $44AB _CKPOSINT equ $44AF ; set ZF if OP1 is positive fp int _CKOP1INT equ $44B3 ; set ZF if OP1 is fp int _ckop1int equ $44B3 ; set Z if op1 = fp integer _CKOP1ODD equ $44BB ; set ZF if OP1 is even _ckop1odd equ $44BB ; set Z if op1 is even _ckodd equ $44BF ; set Z if (hl) is even _CKODD equ $44BF ; set ZF if (HL) is even _CKOP1M1 equ $44C3 _CKOP1M0 equ $44C7 _CKOP1M equ $44CB _CK15ZERO equ $44CF _CKZERO equ $44D3 _CK0Sequ $44D7 _LDCCONB equ $44DB _GETCONB equ $44DF _GETCON1 equ $44E3 _GETCON equ $44E7 _PIDIV2 equ $44EB _PIDIV4 equ $44EF _TWOPI equ $44F3 _PICON equ $44F7 _PIDIV4A equ $44FB _PIDIV2A equ $44FF _OP1EXPTODEC equ $4503 _DECTOHEX equ $4507 ; BCD (HL) to word A=DE _CKOP2POS equ $450B ; test if OP2 positive _ckop2pos equ $450B ; set Z if op2 is positive _ckop1pos equ $450F ; set Z if op1 is positive _CKOP1POS equ $450F ; test if OP1 positive _CLROP2S equ $4513 ; OP2=abs(OP2) _absop2 equ $4513 ; op2 = abs(op2) _CLROP1S equ $4517 ; OP1=abs(OP1) _FDIV100 equ $451B ; OP1=OP1/100 if OP1 is not 0 _FDIV10 equ $451F ; OP1=OP1/10 if OP1 is not 0 _DECO1EXP equ $4523 ; OP1=OP1/10 _INCO1EXP equ $4527 ; OP1=OP1*10 _inco1exp equ $4527 ; op1 = op1 x 10 _INCEXP equ $452B ; OP(HL)=OP(HL)*10 _CKVALIDNUM equ $452F _GETEXP equ $4533 _GETEXP1 equ $4537 _ISDOLLARPO1 equ $453B ; cp (_OP1+2),$24; result in HL _ISATEMPO1 equ $453F _ISATEMP equ $4543 _OP1PREGC equ $454F ; load "PRegC" var name to OP1 _EOP1NOTRC equ $4553 ; error 10 DATA TYPE if OP1 isn't real or cplx _EOP1NOTREAL equ $4557 ; error 10 DATA TYPE if OP1 isn't real _THETANAME equ $456B ; load theta var name to OP1 _RNAME equ $456F ; load 'r' var name to OP1 _XNAME equ $4573 ; load 'x' var name to OP1 _YNAME equ $4577 ; load 'y' var name to OP1 _TNAME equ $457B ; load 't' var name to OP1 _CHKTEMPDIRT equ $4583 _ISO1XYFSTAT equ $4587 _ISO2XYFSTAT equ $458B _OP1MOP2EXP equ $459F _OP1EXPMEXP1 equ $45A3 _OP1EXPMDE equ $45A7 _OP1EXPMDE1 equ $45AB _OP1EXPMEXPM1 equ $45AF _CKEXP12 equ $45B3 _ERRD_OP1NOTPOS equ $45C7 ; error 4 DOMAIN if OP1<0 _ERRD_OP1NOT_R equ $45CB ; error 4 DOMAIN if OP1 not real _ERRD_OP1NOTPOSINT equ $45CF ; error 4 DOMAIN if OP1 is not positive int _ERRD_OP1_LE_0 equ $45D3 ; error 4 DOMAIN if OP1<=0 _ERRD_OP1_0 equ $45D7 ; error 4 DOMAIN if OP1=0 _EQU_or_NEWequ equ $45DB _SMARTER_ACTIVE equ $45DF _INVSUB equ $45E3 _invsub equ $45E3 _TIMES2 equ $45E7 ; OP1=OP1*2, OP2=old OP1 _PLUS1 equ $45EB ; OP1=OP1+1 _SetXXOP1 equ $4613 ; convert hex # in A to fp in OP1 (max 99) _setXXop1 equ $4613 ; convert hex # in A to flt point in op1 _setXXop2 equ $4617 ; convert hex # in A to flt point in op2 _SetXXOP2 equ $4617 ; convert hex # in A to fp in OP2 (max 99) _SetXXXXOP2 equ $461B ; convert hex # in HL to fp in OP2 _round_OP1 equ $4657 _CREATEREAL equ $46EB ; create real var OP1 _createreal equ $46EB ; create real var op1 _createrconst equ $46EF ; create real constant var op1 _CREATERCONST equ $46EF ; create real constant var op1 _CREATECCONST equ $46F3 ; create cplx constant var op1 _createcconst equ $46F3 ; create cplx constant var op1 _createcplx equ $46F7 ; create cplx var op1 _CREATECPLX equ $46F7 ; create cplx var OP1 _CREATETRVECT equ $46FB _creatervect_temp equ $46FB _creatervect equ $46FF ; create real vector op1, L = # elements _CREATERVECT equ $46FF ; create real vector op1, L = # elements _CREATETCVECT equ $4703 _createcvect_temp equ $4703 _createcvect equ $4707 ; create cplx vector op1, L = # elements _CREATECVECT equ $4707 ; create cplx vector op1, L = # elements _CREATETRLIST equ $470B _createrlist_temp equ $470B _createrlist equ $470F ; create real list op1, HL = # elements _CREATERLIST equ $470F ; create real list op1, HL = # elements _CREATETCLIST equ $4713 _createclist_temp equ $4713 _createclist equ $4717 ; create cplx list op1, HL = # elements _CREATECLIST equ $4717 ; create cplx list op1, HL = # elements _CREATETRMAT equ $471B _creatermat_temp equ $471B _creatermat equ $471F ; create real matrix op1, HL = row,col _CREATERMAT equ $471F ; create real matrix op1, HL = row,col _CREATETCMAT equ $4723 _createcmat_temp equ $4723 _createcmat equ $4727 ; create cplx matrix op1, HL = row,col _CREATECMAT equ $4727 ; create cplx matrix op1, HL = row,col _CREATETSTRNG equ $472B _createstrng_temp equ $472B _createstrng equ $472F ; create string op1, HL = # bytes _CREATESTRNG equ $472F ; create string op1, HL = # bytes _CREATETequ equ $4733 _createequ_temp equ $4733 _createequ equ $4737 ; create equation op1, HL = # bytes _CREATEequ equ $4737 ; create equation op1, HL = # bytes _CREATEPICT equ $473B ; create picture var op1 _createpict equ $473B ; create picture var op1 _CREATESTDB equ $473F _CREATEPODB equ $4743 _CREATEPADB equ $4747 _CREATEDEDB equ $474B _CREATEPROG equ $474F ; create program var op1, HL = # bytes _createprog equ $474F ; create program var op1, HL = # bytes _POPOP5 equ $4797 _POPOP3 equ $479B _POPOP1 equ $479F ; pop real or complex to op1/op2 _popop1 equ $479F ; pop real or complex to op1/op2 _POPREALO6 equ $47A3 ; pop 10 bytes off FP stack to OP6 _poprealo6 equ $47A3 ; pop real num op6 from fp stack _poprealo5 equ $47A7 ; pop real num op5 from fp stack _POPREALO5 equ $47A7 ; pop 10 bytes off FP stack to OP5 _POPREALO4 equ $47AB ; pop 10 bytes off FP stack to OP4 _poprealo4 equ $47AB ; pop real num op4 from fp stack _poprealo3 equ $47AF ; pop real num op3 from fp stack _POPREALO3 equ $47AF ; pop 10 bytes off FP stack to OP3 _POPREALO2 equ $47B3 ; pop 10 bytes off FP stack to OP2 _poprealo2 equ $47B3 ; pop real num op2 from fp stack _poprealo1 equ $47B7 ; pop real num op1 from fp stack _POPREALO1 equ $47B7 ; pop 10 bytes off FP stack to OP1 _POPREAL equ $47BB ; pop 10 bytes off FP stack to (de) _POPMCPLXO1 equ $47BF _POPMCPLX equ $47C3 _MOVCPLX equ $47C7 _FPOPCPLX equ $47CB _FPOPREAL equ $47CF _FPOPFPS equ $47D3 _PUSHREALO6 equ $47FF ; push 10 bytes OP6 onto FP stack _PUSHREALO5 equ $4803 ; push 10 bytes OP5 onto FP stack _PUSHREALO4 equ $4807 ; push 10 bytes OP4 onto FP stack _PUSHREALO3 equ $480B ; push 10 bytes OP3 onto FP stack _PUSHREALO2 equ $480F ; push 10 bytes OP2 onto FP stack _PUSHREALO1 equ $4813 ; push 10 bytes OP1 onto FP stack _pushrealo1 equ $4813 ; push real num op1 to fp stack _PUSHREAL equ $4817 ; push 10 bytes (HL) onto FP stack _PUSHOP5 equ $481B _PUSHOP3 equ $481F _PUSHMCPLXO3 equ $4823 _PUSHOP1 equ $4827 _PUSHMCPLXO1 equ $482B _PUSHMCPLX equ $482F _EXMCPLXO1 equ $4833 _EXREALO1 equ $4837 _CPYTO1FPS11 equ $483B _CPYTO1FPS6 equ $483F _CPYFPS6 equ $4843 _CPYTO1FPS8 equ $4847 _CPYCTO1FPS5 equ $484B _CPYTO1FPS5 equ $484F _CPYFPS5 equ $4853 _CPYTO2FPS4 equ $4857 _CPYTO2FPS5 equ $485B _CPYTO6FPS3 equ $485F _CPYTO6FPS2 equ $4863 _CPYTO2FPS3 equ $4867 _CPYCTO1FPS3 equ $486B _CPYTO1FPS3 equ $486F _CPYFPS3 equ $4873 _CPYS3 equ $4877 _CPYTO1FPS4 equ $487B _CPYTO3FPS2 equ $487F _CPYTO5FPST equ $4883 _CPYTO6FPST equ $4887 _CPYTO4FPST equ $488B _CPYTO3FPST equ $488F _CPYTO2FPST equ $4893 _cpyto2fpst equ $4893 _cpyto1fpst equ $4897 _CPYTO1FPST equ $4897 _CPYFPST equ $489B _CPYSTOP equ $489F _CPYSTACK equ $48A3 _CPYCTO3FPS1 equ $48A7 _CPYTO3FPS1 equ $48AB _CPYTO2FPS1 equ $48AF _cpyto2fps1 equ $48AF _CPYCTO1FPS1 equ $48B3 _CPYTO1FPS1 equ $48B7 _CPYFPS1 equ $48BB _CPYS1 equ $48BF _CPYTO2FPS2 equ $48C3 _cpyto2fps2 equ $48C3 _CPYTO1FPS2 equ $48C7 _CPYFPS2 equ $48CB _CPYS2 equ $48CF _CPYO3TOFPST equ $48D3 _CPYO2TOFPST equ $48D7 _cpyo2tofpst equ $48D7 _cpyo6tofpst equ $48DB _CPYO6TOFPST equ $48DB _CPYO1TOFPST equ $48DF _cpyo1tofpst equ $48DF _cpydetofpst equ $48E3 _CPYTOFPST equ $48E3 _CPYTOSTOP equ $48E7 _cpydetohlt equ $48E7 _cpydetohlc equ $48EB _CPYTOSTACK equ $48EB _CPYO5TOFPS1 equ $48EF _cpyo5tofps2 equ $48EF _cpyo2tofpsto1tofps1 equ $48F3 _CPYCO1TOFPS1 equ $48F3 _CPYO1TOFPS1 equ $48F7 _cpyo1tofps1 equ $48F7 _cpydetofps1 equ $48FB _CPYTOFPS1 equ $48FB _CPYTOS1 equ $48FF _cpydetohl1 equ $48FF _CPYO2TOFPS2 equ $4903 _cpyo2tofps2 equ $4903 _cpyo3tofps2 equ $4907 _CPYO3TOFPS2 equ $4907 _CPYO6TOFPS2 equ $490B _cpyo6tofps2 equ $490B _cpyo1tofps2 equ $490F _CPYO1TOFPS2 equ $490F _CPYTOFPS2 equ $4913 _cpydetofps2 equ $4913 _cpydetohl2 equ $4917 _CPYTOS2 equ $4917 _CPYO5TOFPS3 equ $491B _cpyo5tofps3 equ $491B _cpyo2tofps2o1tofps3 equ $491F _CPYCO1TOFPS3 equ $491F _CPYO1TOFPS3 equ $4923 _cpyo1tofps3 equ $4923 _cpydetofps3 equ $4927 _CPYTOFPS3 equ $4927 _CPYTOS3 equ $492B _cpydetohl3 equ $492B _cpyo1tofps4 equ $492F _CPYO1TOFPS4 equ $492F _CPYTOFPS4 equ $4933 _cpydetofps4 equ $4933 _cpydetohl4 equ $4937 _CPYTOS4 equ $4937 _CPYO1TOFPS6 equ $493B _cpyo1tofps6 equ $493B _cpyo1tofps7 equ $493F _CPYO1TOFPS7 equ $493F _CPYO1TOFPS8 equ $4943 _cpyo1tofps8 equ $4943 _CSUB equ $4ADF ; cplx SUB _CADD equ $4AE3 ; cplx ADD _CSQUARE equ $4AE7 ; cplx SQUARE _CMULT equ $4AEB ; cplx MULT _CDIV equ $4AEF ; cplx DIV _CABS equ $4AF3 ; cplx ABS _CABS1 equ $4AF7 _CSQROOT equ $4AFB ; cplx SQROOT _CACOSH equ $4AFF ; cplx ACOSH _CACOS equ $4B03 ; cplx ACOS _CASIN equ $4B07 ; cplx ASIN _CATANH equ $4B0B ; cplx ATANH _CONJ equ $4B0F _CMLTBYREAL equ $4B13 _CDIVBYREAL equ $4B17 _BINOPEXEC equ $4B1B _exec_pg2 equ $4B1B _binopexec1 equ $4B1F _BINOPEXEC1 equ $4B1F _SET2MVLPTRS equ $4B23 _SETMAT1 equ $4B27 _SETUNOPMAT2 equ $4B2B _CREATETLIST equ $4B2F _LIST_CONVERT equ $4B33 _UNOPEXEC equ $4B37 _MARKTEMPS equ $4B3B _THREEEXEC equ $4B3F _FOUREXEC equ $4B43 _FIVEEXEC equ $4B47 _EXMEAN1 equ $4B4B _fofx3A equ $4B4F _ADRLELE equ $4B53 _GETL1TOOP1 equ $4B57 _GETL1TOP1A equ $4B5B _GETLTOOP1 equ $4B5F _GETL1TOOP2 equ $4B63 _GETL1TOP2A equ $4B67 _GETL2TOOP1 equ $4B6B _GETL2TOP1A equ $4B6F _PUTTOLA equ $4B73 _PUTTOLA1 equ $4B77 _PUTTOL equ $4B7B _LLOW equ $4B7F _LHIGH equ $4B83 _LSUM equ $4B87 _LISTCONST equ $4B8B _CLR_ALL_LST equ $4B8F _TOFRAC equ $4B93 ; convert OP1 to fraction OP1/OP2 _tofrac equ $4B93 ; convert op1 to op1/op2 _INTERPOLATE equ $4B97 _ARC equ $4B9B _GFUDYDX equ $4B9F ; op1 = dy/dx _gfudydx equ $4B9F ; op1 = dy/dx _GPODRDo equ $4BA3 _GPAD?DT equ $4BA7 _GPODYDX equ $4BAB _GPADYDX equ $4BAF _ADRMROW equ $4BB3 _ADRMELE equ $4BB7 _GETMATOP1A equ $4BBB _GETM1TOOP1 equ $4BBF _GETM1TOP1A equ $4BC3 _GETMTOOP1 equ $4BC7 _GETM1TOP2A equ $4BCB _GETMTOOP2 equ $4BCF _PUTTOM1A equ $4BD3 _PUTTOMA equ $4BD7 _PUTTOMA1 equ $4BDB _PUTTOMAT equ $4BDF _STOSETNEXT equ $4BE3 _MOP1SET0 equ $4BE7 _IDNMAT equ $4BEB _MINVOP1S equ $4BEF _CYLTOREC equ $4BF3 _POLTOREC equ $4BF7 _SPHTOREC equ $4BFB _MATCONST equ $4BFF _MCKOP1FP0 equ $4C03 _INTOP1 equ $4C2F _RCLSTAT equ $4C8F _RCLCONST equ $4C93 _VARSYSADR equ $4C97 _stosystok equ $4C9B _STOANS equ $4C9F ; store OP1 to 'Ans' var _stoAns equ $4C9F ; store op1 to 'Ans' var _STOQA equ $4CA3 _STOOTHER_form equ $4CA7 _STOTHETA equ $4CAB ; store OP1 to theta var _STOR equ $4CAF ; store OP1 to 'r' var _STOY equ $4CB3 ; store OP1 to 'y' var _stoY equ $4CB3 ; store op1 to 'y' var _STOT equ $4CB7 ; store OP1 to 't' var _STOX equ $4CBB ; store OP1 to 'x' var _stoX equ $4CBB ; store op1 to 'x' var _STOOTHER equ $4CBF ; store pushed op to op1 var _stoOther equ $4CBF ; store pushed op to op1 var _VAR12A equ $4CC3 _STOTYPE equ $4CC7 _STOTYPEC equ $4CCB _SYSEQSEL equ $4CCF _RCLQIA equ $4CD3 _RCLQA equ $4CD7 _RCLANS equ $4CDB ; rcl 'Ans' to OP1 _RCLY equ $4CDF ; rcl 'y' to OP1 _rclY equ $4CDF ; rcl 'y' var to op1 _rclX equ $4CE3 ; rcl 'x' var to op1 _RCLX equ $4CE3 ; rcl 'x' to OP1 _RCLVARSYM equ $4CE7 ; rcl op1 var to op1 _rclVarSym equ $4CE7 ; rcl op1 var to op1 _RCLSYSTOK equ $4CEB _XYRNDBOTH equ $4D47 _XYRND equ $4D4B _CheckTOP equ $4D4F _CheckXY equ $4D53 _DARKPNT equ $4D57 _CPointS equ $4D5B _WtoV equ $4D5F _XItoF equ $4D63 _YFtoI equ $4D67 _XFtoI equ $4D6B _PDspGrph equ $4D6F _HORIZCMD equ $4D73 ; draw horiz line at OP1=y _horizCmd equ $4D73 ; op1 = y value _vertCmd equ $4D77 ; op1 = x value _VERTCMD equ $4D77 ; draw vert line at OP1=x _LINECMD equ $4D7B _POINTCMD equ $4D7F _PIXELTEST equ $4D83 _PIXELCMD equ $4D87 _TANLNF equ $4D8B _DRAWCMD equ $4D8F _SHADECMD equ $4D93 _INVCMD equ $4D97 _CIRCCMD equ $4D9B _LOAD_XOUTDAT_GR equ $4D9F _LOAD_YOUTDAT_GR equ $4DA3 _LOAD_INPUTDAT_GR equ $4DA7 _dispOP1 _MOV10OP2ADD equ $5464 _mov10op2add equ $5464 _INTGR equ $5468 ; op1 = intgr(op1) _MOV10TO2SUB equ $546C _MINUS1 equ $5470 ; op1 = op1 - 1 _FPSUB equ $5474 ; op1 = op1 - op2 _FPADD equ $5478 ; op1 = op1 + op2 _DTOR equ $547C _RTOD equ $5480 _TIMESPT5 equ $5484 ; op1 = .5 x op1 _FPSQUARE equ $5488 ; op1 = op1^2 _FPMULT equ $548C ; op1 = op1 x op2 _INVOP1SC equ $5490 _invop1op2 equ $5490 _invop1s equ $5494 ; op1 = -op1 _INVOP1S equ $5494 ; op1 = -op1 _INVOP2S equ $5498 ; op2 = -op2 _invop2s equ $5498 ; op2 = -op2 _FRAC equ $549C ; op1 = frac(op1) _MLTDIV0 equ $54A0 _FPRECIP equ $54A4 ; op1 = 1/op1 _FPDIV equ $54A8 ; op1 = op1/op2 _SQROOT equ $54AC ; op1 = sqrt(op1), neg# -> error _SQROOTP equ $54B0 ; op1 = sqrt(op1), neg# -> complex _CRNDGUARD equ $54B4 _CROUND equ $54B8 _RNDGUARD equ $54BC ; round op1 to 12 digits _ROUND equ $54C0 _LNX equ $54C4 ; op1 = ln(op1), neg# -> error _LNXP equ $54C8 ; op1 = ln(op1), neg# -> complex _LOGXP equ $54CC ; op1 = log(op1), neg# -> error _LOGX equ $54D0 ; op1 = log(op1), neg# -> complex _ETOX equ $54D4 ; op1 = e^op1 _TENX equ $54D8 ; op1 = 10^op1 _SINCOSRAD equ $54DC _SIN equ $54E0 ; op1 = sin(op1) _COS equ $54E4 ; op1 = cos(op1) _TAN equ $54E8 ; op1 = tan(op1) _TANH equ $54F0 ; op1 = hyp tan(op1) _COSH equ $54F4 ; op1 = hyp cos(op1) _SINH equ $54F8 ; op1 = hyp sin(op1) _ACOSRAD equ $54FC _ATAN2RAD equ $5500 _ASINRAD equ $5504 _ACOS equ $5508 ; op1 = inv cos(op1), no complex _ACOSP equ $550C ; op1 = inv cos(op1), complex ok _ATAN equ $5510 ; op1 = inv tan(op1) _ASIN equ $5514 ; op1 = inv sin(op1) _ATAN2 equ $5518 _ATANH equ $551C ; op1 = inv hyp tan(op1) _OnePlusMinusX equ $5520 _ASINH equ $5524 ; op1 = inv hyp sin(op1) _ACOSH equ $5528 ; op1 = inv hyp cos(op1) _PTOR equ $552C _RTOP equ $5530 _XROOTY equ $5534 _YTOX equ $5538 ; op1 = op1^op2 _RANDNRM equ $553C _RANDBIN equ $5540 _RANDINT equ $5544 _randint equ $5544 ; op1 = random int between op1 and fps _DECTOBASE equ $55AE _BASETODEC equ $55B2 _EXBINMATH1 equ $55B6 _FAND equ $55BA _FOR equ $55BE _FXOR equ $55C2 _FNOT equ $55C6 _ROTATER equ $55CA _SHIFTR equ $55CE _ROTATEL equ $55D2 _SHIFTL equ $55D6 _RANDOM equ $55DA ; op1 = random number (0-1) _random equ $55DA ; op1 = random number (0-1) _STORAND equ $55DE _RANDINIT equ $55E2 _OP1 equ $C089 ; OP1 register _OP1EXPM equ $C08A ; OP1+1 _OP1EXPL equ $C08B ; OP1+2 _OP1M equ $C08C ; OP1+3 _OP1EXT equ $C093 ; OP1+10 _LOGKP equ $C094 ; OP2 _OP2 equ $C094 ; OP2 register _OP2EXPM equ $C095 ; OP2+1 _OP2EXPL equ $C096 ; OP2+2 _OP2M equ $C097 ; OP2+3 _OP2EXT equ $C09E ; OP2+10 _OP3 equ $C09F ; OP3 register _LOGKM equ $C09F ; OP3 _OP3EXPM equ $C0A0 ; OP3+1 _OP3EXPL equ $C0A1 ; OP3+2 _OP3M equ $C0A2 ; OP3+3 _OP3EXT equ $C0A9 ; OP3+10 _CORDFLG1 equ $C0AA ; OP4 _OP4 equ $C0AA ; OP4 register _OP4EXPM equ $C0AB ; OP4+1 _OP4EXPL equ $C0AC ; OP4+2 _OP4M equ $C0AD ; OP4+3 _OP4EXT equ $C0B4 ; OP4+10 _EK equ $C0B5 ; OP5 _CORDFLG equ $C0B5 ; OP5 _OP5 equ $C0B5 ; OP5 register _OP5EXPM equ $C0B6 ; OP5+1 _SF equ $C0B6 ; OP5+1 _EL equ $C0B6 ; OP5+1 _OP5EXPL equ $C0B7 ; OP5+2 _EM equ $C0B7 ; OP5+2 _OP5M equ $C0B8 ; OP5+3 _EMM1 equ $C0B8 ; OP5+3 _EITS equ $C0B9 ; OP5+4 _ENM2 equ $C0BA ; OP5+5 _ENA equ $C0BB ; OP5+6 _EEN equ $C0BC ; OP5+7 _OP5EXT equ $C0BF ; OP5+10 _EN equ $C0C0 ; OP6 _OP6 equ $C0C0 ; OP6 register _EJ equ $C0C1 ; OP6+1 _OP6EXPM equ $C0C1 ; OP6+1 _OP6EXPL equ $C0C2 ; OP6+2 _EEI equ $C0C2 ; OP6+2 _OP6M equ $C0C3 ; OP6+3 _ELOW equ $C0C5 ; OP6+5 _EIGH equ $C0C6 ; OP6+6 _OP6EXT equ $C0CA ; OP6+10 _OP7 equ $C0CC ; OP7 register _CPLXTRG equ $C0D7 _IOFLAG equ $C0D7 ; I/O flag