Routines |
Prev: 3783 | Up: Map | Next: 37B5 |
The address of this routine is found in the table of addresses. It is called via the calculator literal +20 by the routines at DRAW and tan. It is also called indirectly via fp_calc_2.
This subroutine handles the function COS X and returns a 'last value' 'that is an approximation to COS X.
The subroutine uses the expression COS X=SIN (πW/2), where -1<=W<=1.
|
||||
cos | 37AA | RST $28 | X | |
37AB | DEFB $39 | get_argt: V | ||
37AC | DEFB $2A | abs: ABS V | ||
37AD | DEFB $A1 | stk_one: ABS V, 1 | ||
37AE | DEFB $03 | subtract: ABS V-1 | ||
37AF | DEFB $E0 | get_mem_0: ABS V-1, (1/0) | ||
37B0 | DEFB $00 | jump_true to C_ENT: ABS V-1=W | ||
37B1 | DEFB $06 | |||
If the jump was not made then continue.
|
||||
37B2 | DEFB $1B | negate: 1-ABS V | ||
37B3 | DEFB $33 | jump to C_ENT: 1-ABS V=W | ||
37B4 | DEFB $03 |
Prev: 3783 | Up: Map | Next: 37B5 |