code wiki / _hdl_build / nx_jam_probe.nx
nx_jam_probe.nx source
↩ module page · 22 lines · 1549 B
1// nx_jam_probe.nx -- bisect the jam-check hang: print a marker after each unit so we see WHERE it stops.
2import "nx_jam_check.nx"
3import "nx_syscalls.nx"
4const K_MAGIC_9620: i64 = 9620
5const K_MAGIC_2500000000: i64 = 2500000000
6func jp_puts(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
7func jp_putn(v: i64) -> i64 { let bb: *u8=sys_mmap(28); var m: i64=v; if m<0{m=0-m;sys_write(1,"-" as *u8,1)} 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 }
8func jp_len(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} return n }
9func main() -> i64 {
10 jp_puts("A cap200=" as *u8); jp_putn(jc_capacity_milli(200)); jp_puts("\n" as *u8)
11 jp_puts("B tff9620=" as *u8); jp_putn(jc_temp_for_flow(K_MAGIC_9620)); jp_puts("\n" as *u8)
12 let pb: *i64 = sys_mmap(16) as *i64; let s: *u8 = "2.0 " as *u8; pb[0]=0
13 jp_puts("C parse=" as *u8); jp_putn(jc_parse_milli(s, pb, jp_len(s))); jp_puts("\n" as *u8)
14 jp_puts("D isqrt=" as *u8); jp_putn(jc_isqrt(K_MAGIC_2500000000)); jp_puts("\n" as *u8)
15 let out: *i64 = sys_mmap(64) as *i64
16 let g: *u8 = "M104 S200\nG1 F6000 X50.0 E2.0\n" as *u8
17 jp_puts("E pre-scan\n" as *u8)
18 let r: i64 = jc_scan(g, jp_len(g), out)
19 jp_puts("F scan-done v=" as *u8); jp_putn(r); jp_puts(" line=" as *u8); jp_putn(out[1]); jp_puts(" flow=" as *u8); jp_putn(out[2]); jp_puts("\n" as *u8)
20 sys_exit(0)
21 return 0
22}