code wiki / _hdl_build / _gprobe.nx
_gprobe.nx source
↩ module page · 18 lines · 700 B
1// _gprobe.nx -- one-shot: print bf_gamma_f64(0.5) bits (R2 rail diagnosis)
2import "nx_syscalls.nx"
3import "nx_bigfloat120.nx"
4import "nx_bigfloat120_div.nx"
5import "nx_bigfloat120_ln.nx"
6import "nx_bigfloat120_trig.nx"
7import "nx_bigfloat120_gamma.nx"
8func gp_n(v: i64) -> i64 { let bb: *u8=sys_mmap(28); var m: i64=v; let t: *u8=sys_mmap(28); var k: i64=0; if m==0{t[0]=48 as u8;k=1}; while m>0{t[k]=(48+(m%10)) as u8;m=m/10;k=k+1}; var i: i64=0; while i<k{bb[i]=t[k-1-i];i=i+1}; sys_write(1,bb,k); return 0 }
9func main() -> i64 {
10 gp_n(bf_gamma_f64(0x3FE0000000000000))
11 sys_write(1, "
12" as *u8, 1)
13 gp_n(0x3FFC5BF891B4EF6A)
14 sys_write(1, "
15" as *u8, 1)
16 sys_exit(0)
17 return 0
18}