nx_supplychain_case_gate.nx source

1// nx_supplychain_case_gate.nx -- GATE: the domestic supply-chain security + good-jobs business case (for gov presentation). 2// Components (origin 0 dom / 1 allied / 2 adversary, energy-risk, single-source, value): 0 Chips/CPU(adversary,80,SS), 3// 1 Steppers(allied), 2 Steel(domestic), 3 Rare-earth-Magnets(adversary,SS), 4 Energy(imported), 5 Tools(domestic). 4// T1 DOMESTIC NOW -- only 183 permil domestic by value (chips/magnets/energy are foreign). 5// T2 RISK NOW -- value-weighted supply-chain risk = 44 (dominated by adversary chips, single-source). 6// T3 RESHORED -- domesticate chips + magnets + energy -> domestic 929 permil, risk drops 44 -> 2 (security). 7// T4 GOOD JOBS -- 600 jobs at a $70k living wage + 40% benefits (healthcare + 6-week PTO); homes affordable at 4x income (European-exceeding). 8// T5 GOV CASE -- the rolled-up pitch: jobs, payroll, domestic %, risk reduction. 9// T6 NEVER-BRICK -- deterministic. 10// GREEN iff all. Sovereign nx_cc->nxasm. Feeds the Nishi analyst + business-case builder. expect_exit: 0 license_tier: ORIGINAL 11import "nx_supplychain_case.nx" 12import "nx_syscalls.nx" 13 14func w(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 } 15func wn(v: i64) -> i64 { var m: i64=v; if m<0{w("-" as *u8);m=0-m} 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; let o:*u8=sys_mmap(28); while i<k{o[i]=t[k-1-i];i=i+1} sys_write(1,o,k); return 0 } 16 17func main() -> i64 { 18 w("=== nx_supplychain_case_gate: DOMESTIC supply-chain security + good-jobs business case (for gov) ===\n" as *u8) 19 var pass: i64 = 0; var total: i64 = 0 20 let n: i64 = 6 21 let origin: *i64=sys_mmap(8*8) as *i64 22 let er: *i64=sys_mmap(8*8) as *i64 23 let ss: *i64=sys_mmap(8*8) as *i64 24 let val: *i64=sys_mmap(8*8) as *i64 25 origin[0]=2; er[0]=80; ss[0]=1; val[0]=50000 26 origin[1]=1; er[1]=40; ss[1]=0; val[1]=5000 27 origin[2]=0; er[2]=20; ss[2]=0; val[2]=3000 28 origin[3]=2; er[3]=30; ss[3]=1; val[3]=2000 29 origin[4]=2; er[4]=50; ss[4]=0; val[4]=1000 30 origin[5]=0; er[5]=20; ss[5]=0; val[5]=10000 31 32 let dom_now: i64 = sc_domestic_permil(origin, val, n) 33 let risk_now: i64 = sc_weighted_risk(origin, er, ss, val, n) 34 35 total=total+1; if dom_now==183 { pass=pass+1; w(" [PASS] " as *u8) } else { w(" [FAIL] " as *u8) } 36 w("T1 domestic NOW = " as *u8); wn(dom_now); w(" permil (chips/magnets/energy foreign)\n" as *u8) 37 38 total=total+1; if risk_now==44 { pass=pass+1; w(" [PASS] " as *u8) } else { w(" [FAIL] " as *u8) } 39 w("T2 supply-chain RISK now = " as *u8); wn(risk_now); w(" (value-weighted; adversary chips dominate)\n" as *u8) 40 41 // reshore chips(0) + magnets(3) + energy(4) to domestic (multi-source, clean energy) 42 origin[0]=0; ss[0]=0; er[0]=20 43 origin[3]=0; ss[3]=0; er[3]=20 44 origin[4]=0; er[4]=20 45 let dom_after: i64 = sc_domestic_permil(origin, val, n) 46 let risk_after: i64 = sc_weighted_risk(origin, er, ss, val, n) 47 total=total+1; if dom_after==929 { if risk_after==2 { pass=pass+1; w(" [PASS] " as *u8) } else { w(" [FAIL] " as *u8) } } else { w(" [FAIL] " as *u8) } 48 w("T3 RESHORED: domestic " as *u8); wn(dom_now); w(" -> " as *u8); wn(dom_after); w(" permil ; risk " as *u8); wn(risk_now); w(" -> " as *u8); wn(risk_after); w(" (security win)\n" as *u8) 49 50 // good jobs 51 let jobs: i64 = 600 52 let wage: i64 = 7000000 // $70,000/yr living wage 53 let payroll: i64 = sc_payroll(jobs, wage) 54 let benefits: i64 = sc_benefits(payroll, 40) // healthcare + 6wk PTO + retirement 55 let afford: i64 = sc_home_afford(28000000, wage) // $280k median home / $70k = 4x income 56 let pto_weeks: i64 = 6 57 total=total+1; if payroll==4200000000 { if afford==4 { if benefits==1680000000 { pass=pass+1; w(" [PASS] " as *u8) } else { w(" [FAIL] " as *u8) } } else { w(" [FAIL] " as *u8) } } else { w(" [FAIL] " as *u8) } 58 w("T4 GOOD JOBS: " as *u8); wn(jobs); w(" jobs @ $70k + 40% benefits; payroll=" as *u8); wn(payroll); w("c; home affordability " as *u8); wn(afford); w("x income; PTO " as *u8); wn(pto_weeks); w(" weeks (European-exceeding)\n" as *u8) 59 60 // gov case rollup 61 w(" --- BUSINESS CASE FOR GOV ---\n" as *u8) 62 w(" domestic content " as *u8); wn(dom_now); w(" -> " as *u8); wn(dom_after); w(" permil ; risk " as *u8); wn(risk_now); w(" -> " as *u8); wn(risk_after) 63 w(" ; " as *u8); wn(jobs); w(" middle-class jobs ; $" as *u8); wn(payroll/100); w("/yr payroll\n" as *u8) 64 total=total+1; if dom_after > dom_now { if risk_after < risk_now { pass=pass+1; w(" [PASS] " as *u8) } else { w(" [FAIL] " as *u8) } } else { w(" [FAIL] " as *u8) } 65 w("T5 GOV CASE: domestic up + risk down + good jobs created (a fundable security + prosperity plan)\n" as *u8) 66 67 // never-brick 68 let d2: i64 = sc_domestic_permil(origin, val, n) 69 total=total+1; if d2==dom_after { pass=pass+1; w(" [PASS] " as *u8) } else { w(" [FAIL] " as *u8) } 70 w("T6 never-brick: deterministic (" as *u8); wn(d2); w("==" as *u8); wn(dom_after); w(")\n" as *u8) 71 72 w("\n=== nx_supplychain_case_gate " as *u8); wn(pass); w("/" as *u8); wn(total) 73 if pass == total { w(" GREEN (domestic supply-chain security + good-jobs business case: origin/geopolitics/energy risk, reshoring, living wages; for city/state/federal)\n" as *u8); sys_exit(0); return 0 } 74 w(" RED\n" as *u8); sys_exit(1); return 1 75}