code wiki / _hdl_build / nx_gate_gn.nx
nx_gate_gn.nx source
↩ module page · 3 lines · 464 B
1import "nx_gate_base.nx"
2// consolidated gn (dominant variant); behaviorally-verified adopters only (DEC020, rule 15).
3func gn(v: i64) -> i64 { if v==0 { sys_write(1,"0" as *u8,1); return 0 } var m: i64=v; if m<0 { sys_write(1,"-" as *u8,1); m=0-m } let t: *u8=sys_mmap(24); var k: i64=0; while m>0 { t[k]=(48+(m%10)) as u8; m=m/10; k=k+1 } let o: *u8=sys_mmap(24); var w: i64=0; var q: i64=k-1; while q>=0 { o[w]=t[q]; w=w+1; q=q-1 } sys_write(1,o,w); return 0 }