Anonymous user
Continued fraction: Difference between revisions
m
→{{header|Action!}}
(Added solution for Action!) |
|||
Line 38:
<lang Action!>INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit
DEFINE PTR="CARD"
DEFINE JSR="$20"
DEFINE RTS="$60"
Line 45 ⟶ 46:
RTS]
[JSR $00 $00 ;JSR to address set by SetCoeffB
RTS]
PROC SetCoeffA(
addr=CoeffA+1 ;location of address of JSR
PokeC(addr,
RETURN
PROC SetCoeffB(
addr=CoeffB+1 ;location of address of JSR
PokeC(addr,
RETURN
PROC Calc(
INT i
REAL a,b,tmp
| |||