; LGPL3+ ;*********************************************** ; Color BASIC 1.2 floating point routines ;*********************************************** CB.FSUBx equ $B9B9 ; FP0 = X - FP0 CB.FSUB equ $B9BC ; FP0 = FP1 - FP0 CB.FADDx equ $B9C2 ; FP0 = X + FP0 CB.FADD equ $B9C5 ; FP0 = FP1 + FP0 CB.FMULx equ $BACA ; FP0 = X * FP0 CB.FMUL equ $BAD0 ; FP0 = FP1 * FP0 CB.FDIVx equ $BB8F ; FP0 = X / FP0 CB.FDIV equ $BB91 ; FP0 = FP1 / FP0 CB.FABS equ $BC93 ; FP0 = |FP0| CB.FSIN equ $BF78 ; FP0 = sin(FP0) CB.FP0fx equ $BC14 ; FP0 = X CB.xfFP0 equ $BC35 ; X = FP0 CB.FP1f0 equ $BC5F ; FP1 = FP0 CB.FP0txt equ $BDD9 ; result in X, NUL terminated CB.POLY equ $BEFF ; X - table (byte#,entries) ;*********************************************** ; Extended Color BASIC 1.1 floating point routines ;*********************************************** ECB.FATN equ $83B0 ; FP0 = atan(FP0) ECB.FCOS equ $8378 ; FP0 = cos(FP0) ECB.FTAN equ $8381 ; FP0 = tan(FP0) ECB.FLOG equ $8446 ; FP0 = log(FP0) ECB.FSQR equ $8480 ; FP0 = sqrt(FP0)