⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 scan.lst

📁 实验室连线监控原代码,一台主机采用485总线方式与从机通讯,可以检测学生的连线是否正常,那些线没有连好,非常好的教学实验检测.
💻 LST
📖 第 1 页 / 共 4 页
字号:
1013   3                 {
1014   4                   if(fb[j]==fb[i])
1015   4                     {
1016   5                       g|=gb[j];
1017   5                     }
1018   4                 }
1019   3                XBYTE[P8255IB+fb[i]]=g;
1020   3                exit6: ;
1021   3              }
1022   2             for(i=0;i<m/2;i++)
1023   2              {
1024   3                f=fc[i];
1025   3                g=gc[i];
1026   3                if(i>=1)
1027   3                  {
1028   4                    for(k=0;k<=i-1;k++)
1029   4                     {
1030   5                       if(f==fc[k])
1031   5                         {
1032   6                           goto exit7;
1033   6                         }
1034   5                     }
1035   4                  }
1036   3                for(j=i+1;j<=m/2;j++)
1037   3                 {
1038   4                   if(fc[j]==fc[i])
1039   4                     {
1040   5                       g|=gc[j];
1041   5                     }
1042   4                 }
1043   3                XBYTE[P8255IC+fc[i]]=g;
1044   3                exit7: ;
1045   3              }
1046   2             for(k=0;k<18;k++)
1047   2              {
C51 COMPILER V7.06   SCAN                                                                  01/19/2007 08:32:20 PAGE 18  

1048   3                a[k]=XBYTE[P8255IA+k];
1049   3                b[k]=XBYTE[P8255IB+k];
1050   3                c[k]=XBYTE[P8255IC+k];
1051   3              }
1052   2             for(k=0;k<18;k++)
1053   2               {
1054   3                 for(l=0;l<8;l++)
1055   3                   {
1056   4                     pa[k][l]=_cror_(a[k],l)&0x01;
1057   4                     pb[k][l]=_cror_(b[k],l)&0x01;
1058   4                     pc[k][l]=_cror_(c[k],l)&0x01;
1059   4                   }
1060   3               }
1061   2             for(k=0;k<18;k++)
1062   2               {
1063   3                 for(l=0;l<8;l++)
1064   3                   {
1065   4                     if(pa[k][l]==1)
1066   4                       {
1067   5                        *u++=8*k+l+1;
1068   5                         n++;
1069   5                       }
1070   4                   }
1071   3               }
1072   2             for(k=0;k<18;k++)
1073   2               {
1074   3                 for(l=0;l<8;l++)
1075   3                   {
1076   4                     if(pb[k][l]==1)
1077   4                       {
1078   5                        *u++=8*k+l+145;
1079   5                         n++;
1080   5                       }
1081   4                   }
1082   3               }
1083   2             for(k=0;k<18;k++)
1084   2               {
1085   3                 for(l=0;l<8;l++)
1086   3                   {
1087   4                     if(pc[k][l]==1)
1088   4                       {
1089   5                        *u++=8*k+l+289;
1090   5                         n++;
1091   5                       }
1092   4                   }
1093   3               }
1094   2             u=0x0600;
1095   2             r=0x0680;
1096   2             for(i=0;i<m;i++)
1097   2              {
1098   3                for(j=0;j<n;j++)
1099   3                 {
1100   4                   if(*(r+i)==*(u+j))
1101   4                   goto exit8;
1102   4                 }
1103   3                *v++=*(r+i);
1104   3                 q++;
1105   3                 exit8: ;
1106   3              }
1107   2             u=0x0600;
1108   2             v=0x0640;
1109   2             if(n>=q)
C51 COMPILER V7.06   SCAN                                                                  01/19/2007 08:32:20 PAGE 19  

1110   2               {
1111   3                 s+=d;
1112   3                 for(i=0;i<q;i++)
1113   3                  {
1114   4                    *s++=*v;
1115   4                    *v=0;
1116   4                     v++;
1117   4                     d++;
1118   4                  }
1119   3                 q=0;
1120   3               }
1121   2             else if(n<=q)
1122   2               {
1123   3                 s+=d;
1124   3                 for(i=0;i<n;i++)
1125   3                  {
1126   4                    *s++=*u;
1127   4                    *u=0;
1128   4                     u++;
1129   4                     d++;
1130   4                  }
1131   3                 n=0;
1132   3               }
1133   2             d++;
1134   2           }
1135   1         s=0x01b0;
1136   1         u=0x0600;
1137   1         v=0x0640;
1138   1         if((n+q)<10)
1139   1           {
1140   2             s+=d;
1141   2             for(i=0;i<(n+q);i++)
1142   2              {
1143   3                *s++=(*u++)+(*v++);
1144   3              }
1145   2           }
1146   1         else if((n+q)>=10)
1147   1           {
1148   2             for(k=0;k<18;k++)
1149   2              {
1150   3                XBYTE[P8255CW+k]=0x80;
1151   3              }
1152   2             for(k=0;k<10;k++)
1153   2              {
1154   3                fa[k]=0;
1155   3                fb[k]=0;
1156   3                fc[k]=0;
1157   3                ga[k]=0;
1158   3                gb[k]=0;
1159   3                gc[k]=0;
1160   3              }
1161   2             for(i=0;i<(n+q)/2;i++)
1162   2              {
1163   3                e=(*u++)+(*v++);
1164   3                if(e<=144)
1165   3                  {
1166   4                    f=(e-1)/8;
1167   4                    g=(e-1)%8;
1168   4                    fa[i]=f;
1169   4                    ga[i]=_crol_(0x01,g);
1170   4                  }
1171   3                else if((e>144)&&(e<=288))
C51 COMPILER V7.06   SCAN                                                                  01/19/2007 08:32:20 PAGE 20  

1172   3                  {
1173   4                    f=(e-145)/8;
1174   4                    g=(e-145)%8;
1175   4                    fb[i]=f;
1176   4                    gb[i]=_crol_(0x01,g);
1177   4                  }
1178   3                else if((e>144)&&(e<=288))
1179   3                  {
1180   4                    f=(e-289)/8;
1181   4                    g=(e-289)%8;
1182   4                    fc[i]=f;
1183   4                    gc[i]=_crol_(0x01,g);
1184   4                  }
1185   3              }
1186   2             for(i=0;i<(n+q)/2;i++)
1187   2              {
1188   3                f=fa[i];
1189   3                g=ga[i];
1190   3                if(i>=1)
1191   3                  {
1192   4                    for(k=0;k<=i-1;k++)
1193   4                     {
1194   5                       if(f==fa[k])
1195   5                         {
1196   6                           goto exit9;
1197   6                         }
1198   5                     }
1199   4                  }
1200   3                for(j=i+1;j<=(n+q)/2;j++)
1201   3                 {
1202   4                   if(fa[j]==fa[i])
1203   4                     {
1204   5                       g|=ga[j];
1205   5                     }
1206   4                 }
1207   3                XBYTE[P8255IA+fa[i]]=g;
1208   3                exit9: ;
1209   3              }
1210   2             for(i=0;i<(n+q)/2;i++)
1211   2              {
1212   3                f=fb[i];
1213   3                g=gb[i];
1214   3                if(i>=1)
1215   3                  {
1216   4                    for(k=0;k<=i-1;k++)
1217   4                     {
1218   5                       if(f==fb[k])
1219   5                         {
1220   6                           goto exit10;
1221   6                         }
1222   5                     }
1223   4                  }
1224   3                for(j=i+1;j<=(n+q)/2;j++)
1225   3                 {
1226   4                   if(fb[j]==fb[i])
1227   4                     {
1228   5                       g|=gb[j];
1229   5                     }
1230   4                 }
1231   3                XBYTE[P8255IB+fb[i]]=g;
1232   3                exit10: ;
1233   3              }
C51 COMPILER V7.06   SCAN                                                                  01/19/2007 08:32:20 PAGE 21  

1234   2             for(i=0;i<(n+q)/2;i++)
1235   2              {
1236   3                f=fc[i];
1237   3                g=gc[i];
1238   3                if(i>=1)
1239   3                  {
1240   4                    for(k=0;k<=i-1;k++)
1241   4                     {
1242   5                       if(f==fc[k])
1243   5                         {
1244   6                           goto exit11;
1245   6                         }
1246   5                     }
1247   4                  }
1248   3                for(j=i+1;j<=(n+q)/2;j++)
1249   3                 {
1250   4                   if(fc[j]==fc[i])
1251   4                     {
1252   5                       g|=gc[j];
1253   5                     }
1254   4                 }
1255   3                XBYTE[P8255IC+fc[i]]=g;
1256   3                exit11: ;
1257   3              }
1258   2             for(k=0;k<18;k++)
1259   2              {
1260   3                a[k]=XBYTE[P8255IA+k];
1261   3                b[k]=XBYTE[P8255IB+k];
1262   3                c[k]=XBYTE[P8255IC+k];
1263   3              }
1264   2             for(k=0;k<18;k++)
1265   2               {
1266   3                 for(l=0;l<8;l++)
1267   3                   {
1268   4                     pa[k][l]=_cror_(a[k],l)&0x01;
1269   4                     pb[k][l]=_cror_(b[k],l)&0x01;
1270   4                     pc[k][l]=_cror_(c[k],l)&0x01;
1271   4                   }
1272   3               }
1273   2             for(k=0;k<18;k++)
1274   2               {
1275   3                 for(l=0;l<8;l++)
1276   3                   {
1277   4                     if(pa[k][l]==1)
1278   4                       {
1279   5                        *w++=8*k+l+1;
1280   5                         h++;
1281   5                       }
1282   4                   }
1283   3               }
1284   2             for(k=0;k<18;k++)
1285   2               {
1286   3                 for(l=0;l<8;l++)
1287   3                   {
1288   4                     if(pb[k][l]==1)
1289   4                       {
1290   5                        *w++=8*k+l+145;
1291   5                         h++;
1292   5                       }
1293   4                   }
1294   3               }
1295   2             for(k=0;k<18;k++)
C51 COMPILER V7.06   SCAN                                                                  01/19/2007 08:32:20 PAGE 22  

1296   2               {
1297   3                 for(l=0;l<8;l++)
1298   3                   {
1299   4                     if(pc[k][l]==1)
1300   4                       {
1301   5                        *w++=8*k+l+289;
1302   5                         h++;
1303   5                       }
1304   4                   }
1305   3               }
1306   2             w=0x0580;
1307   2             u=0x0600;
1308   2             v=0x0640;
1309   2             for(i=0;i<n+q;i++)
1310   2              {
1311   3                for(j=0;j<h;j++)
1312   3                 {
1313   4                   if(*(u+i)+*(v+i)==*(w+j))
1314   4                   goto exit12;
1315   4                 }
1316   3                *z++=*(u+i)+*(v+i);
1317   3                 p++;
1318   3                 exit12: ;
1319   3              }
1320   2             s=0x01b0;
1321   2             w=0x0580;
1322   2             z=0x05c0;
1323   2             s+=d;
1324   2             for(i=0;i<h;i++)
1325   2              {
1326   3                *s++=*w++;
1327   3              }
1328   2             s++;
1329   2             for(i=0;i<p;i++)
1330   2              {
1331   3                *s++=*z++;
1332   3              }
1333   2           }
1334   1         while(1);
1335   1      }


MODULE INFORMATION:   STATIC OVERLAYABLE
   CODE SIZE        =  10591    ----
   CONSTANT SIZE    =   ----    ----
   XDATA SIZE       =    432    ----
   PDATA SIZE       =   ----    ----
   DATA SIZE        =     59      32
   IDATA SIZE       =   ----      60
   BIT SIZE         =   ----    ----
END OF MODULE INFORMATION.


C51 COMPILATION COMPLETE.  0 WARNING(S),  0 ERROR(S)

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -