home *** CD-ROM | disk | FTP | other *** search
- module coru57
-
- title' CORRELATER PAL4 '
-
- U57 device 'P20R4';
-
- P34,P29,P28,P27,P26,P25,P24 pin 21,22, 2, 3, 4, 5, 6;
- P23,P22,P21,P20,P19,P18,P17 pin 7, 8, 9,10,11,14,23;
- S3,S2,S1,S0 pin 20,19,18,17;
- CLK pin 1;
- C=.C.;
-
- truth_table in U57
- ([P34,P29,P28,P27,P26,P25,P24,P23,P22]:>[S2,S1,S0])
- [ 0, 1,.X.,.X.,.X.,.X.,.X.,.X.,.X.]:>[ 0, 0, 0];
- [ 1, 0,.X.,.X.,.X.,.X.,.X.,.X.,.X.]:>[ 0, 0, 0];
- [ 0, 0, 1,.X.,.X.,.X.,.X.,.X.,.X.]:>[ 0, 0, 1];
- [ 1, 1, 0,.X.,.X.,.X.,.X.,.X.,.X.]:>[ 0, 0, 1];
- [ 0, 0, 0, 1,.X.,.X.,.X.,.X.,.X.]:>[ 0, 1, 0];
- [ 1, 1, 1, 0,.X.,.X.,.X.,.X.,.X.]:>[ 0, 1, 0];
- [ 0, 0, 0, 0, 1,.X.,.X.,.X.,.X.]:>[ 0, 1, 1];
- [ 1, 1, 1, 1, 0,.X.,.X.,.X.,.X.]:>[ 0, 1, 1];
- [ 0, 0, 0, 0, 0, 1,.X.,.X.,.X.]:>[ 1, 0, 0];
- [ 1, 1, 1, 1, 1, 0,.X.,.X.,.X.]:>[ 1, 0, 0];
- [ 0, 0, 0, 0, 0, 0, 1,.X.,.X.]:>[ 1, 0, 1];
- [ 1, 1, 1, 1, 1, 1, 0,.X.,.X.]:>[ 1, 0, 1];
- [ 0, 0, 0, 0, 0, 0, 0, 1,.X.]:>[ 1, 1, 0];
- [ 1, 1, 1, 1, 1, 1, 1, 0,.X.]:>[ 1, 1, 0];
- [ 0, 0, 0, 0, 0, 0, 0, 0,.X.]:>[ 1, 1, 1];
- [ 1, 1, 1, 1, 1, 1, 1, 1,.X.]:>[ 1, 1, 1];
-
- test_vectors
- ([P34,P29,P28,P27,P26,P25,P24,P23,P22,CLK]->[S2,S1,S0])
- [ 0, 1, 1, 0, 0, 0, 0, 0, 0, C]->[ 0, 0, 0];
- [ 1, 1, 1, 1, 1, 1, 1, 1, 1, C]->[ 1, 1, 1];
- [ 1, 0, 1, 0, 0, 0, 1, 0, 1, C]->[ 0, 0, 0];
-
- end coru57
-
-
-
-
-