4 # handy rune for grepping net orders etc:
5 # <reversers.net perl -ne 'next unless m/\bPOINTS-(\d+)\b/; printf "%02d\t%s",$1,$_' | sort
10 $ARGV[0] =~ m,\b(reversers|detectors)(?:\.net-spec)?$, or die;
36 print "INDIV1 26 @indiv\n"; # 25-way D
63 @sensel= qw(18 15 12 9 6 0 3 19 16 13 10 7 1 4 20 17 14 11 8 2 5);
64 $val{'m'}.= "sensei{";
65 for ($j=0; $j<16; $j+=8) {
66 for ($i=0;$i<4;$i++) {
67 $val{'m'} .= sprintf " %d %d", $i+$j, $i+$j+4;
70 $val{'m'}.= " sensei19..16 20 }{ @sensel }";
72 $val{'M'} =~ s/sensei/sense/g;
73 @senser= @sensel[0..12];
74 push @senser, qw(20 2 - 4 17 - 8 11 14 5 -);
75 @senser= map { s/^\d/sense$&/; $_ } @senser;
76 print "RAS0 9 l_vcc @senser[0..7]\n";
77 print "RAS1 9 l_vcc @senser[8..15]\n";
78 print "RAS2 9 l_vcc @senser[16..23]\n";
81 print "INDIV0 25 :13-%12/2 @indiv\n"; # 26-way ribbon
87 if (m/^\^\=(reversers|detectors)\:\s*$/) {
92 s/\^(\w)/ die $1 unless exists $val{$1}; $val{$1}; /ge;
96 die $! if STDOUT->error;
109 14 RA6 RC0..3 RD0 RD1
110 21 RD2 RD3 RC4..7 RD4..7
114 !type Fat q0..^q qmid0..^q
115 !type Power ptdrain0..^p
124 l_gnd i2c_clock led_reflow i2c_data led_refhigh
129 0-1/1 CPIC= 2 l_gnd l_vcc
141 icsp_pdrall icsp_pdrall_mid icsp_pdrall_mid icsp_pd
146 icsp_pdw_mid icsp_pdw
150 RPDR 2 icsp_pdrall_mid l_vcc
151 RPDWU 2 icsp_pdw_mid l_vcc
152 RPDWI 2 icsp_pdw_mid icsp_pd
153 RPT0U 2 ptgate0 l_vcc
155 RPCI 2 icsp_pc icsp_pcq
156 RPCL 2 icsp_pcq l_gnd
157 RPCPT 2 icsp_pc ptgate1
159 0-^p/1 PTFET= 3 ptgate= ptdrain= cdu_gnd
160 0-^p/1 PTD= 2 cdu_out ptdrain=
161 2-^p/8 RAP= 16 :1 pt<..> :-0- ptgate<..>
167 :1 ledmid_red perpicled led_reflow
168 :7- ledmid_green led_refhigh perpicled
172 RLG 2 ledmid_green led_green
173 RLR 2 ledmid_red led_red
174 RLL 2 perpicled l_gnd
176 0-^q/4 OC= 16==^o ^m ^M
206 pt8,booster_shutdown,
229 :8- reverse5..0 rly_gnd rly_gnd
233 CULN 2 rly_gnd rly_v12
237 :2 sense3..0 sense5..4
241 : 13-1 13 25-1 : ptdrain1..17
258 # :2 line{ line0..20 - - }{ ^r } line&