📄 ice_259a.lst
字号:
1255 002F5 16FB JMP P70_P64_OUT
1256
1257 002F6 18FF MOV A,@0XFF
1258 002F7 0046 MOV PORT6,A
1259 002F8 13A1 CALL DELAY
1260
1261 002F9 0C07 JBC R7,0
1262 002FA 0ADB BS R6_STATE,3
1263
1264
1265 002FB P70_P64_OUT:
1266 002FB 18EF MOV A,@0XEF
1267 002FC 0006 IOW 0X06
1268 002FD 0046 MOV PORT6,A
1269 002FE 13A1 CALL DELAY
1270
1271 002FF 0C07 JBC R7,0
1272 00300 1706 JMP P70_P65_OUT
1273
1274 00301 18FF MOV A,@0XFF
1275 00302 0046 MOV PORT6,A
1276 00303 13A1 CALL DELAY
1277
1278 00304 0C07 JBC R7,0
1279 00305 0B1B BS R6_STATE,4
1280
1281 00306 P70_P65_OUT:
1282 00306 18DF MOV A,@0XDF
1283 00307 0006 IOW 0X06
1284 00308 0046 MOV PORT6,A
1285 00309 13A1 CALL DELAY
1286
1287 0030A 0C07 JBC R7,0
1288 0030B 1711 JMP P70_P66_OUT
1289
1290 0030C 18FF MOV A,@0XFF
1291 0030D 0046 MOV PORT6,A
1292 0030E 13A1 CALL DELAY
1293
1294 0030F 0C07 JBC R7,0
1295 00310 0B5B BS R6_STATE,5
1296
1297 00311 P70_P66_OUT:
1298 00311 18BF MOV A,@0XBF
1299 00312 0006 IOW 0X06
1300 00313 0046 MOV PORT6,A
1301 00314 13A1 CALL DELAY
1302
1303 00315 0C07 JBC R7,0
1304 00316 171C JMP P70_P67_OUT
1305
1306 00317 18FF MOV A,@0XFF
1307 00318 0046 MOV PORT6,A
1308 00319 13A1 CALL DELAY
1309
1310 0031A 0C07 JBC R7,0
1311 0031B 0B9B BS R6_STATE,6
1312
1313 0031C P70_P67_OUT:
1314 0031C 187F MOV A,@0X7F
1315 0031D 0006 IOW 0X06
1316 0031E 0046 MOV PORT6,A
1317 0031F 13A1 CALL DELAY
1318
1319 00320 0C07 JBC R7,0
1320 00321 172A JMP TEST_PULL_HIGH
1321
1322 00322 18FF MOV A,@0XFF
1323 00323 0046 MOV PORT6,A
1324 00324 13A1 CALL DELAY
1325
1326 00325 0C07 JBC R7,0
1327 00326 0BDB BS R6_STATE,7
1328
1329
1330 00327 187F MOV A,@0X7F
1331 00328 0046 MOV PORT6,A
1332 00329 13A1 CALL DELAY
1333
1334 ;**************************************************************************
1335 0032A TEST_PULL_HIGH:
1336 0032A 18FF MOV A,@0XFF
1337 0032B 0005 IOW 0X05
1338 0032C 0006 IOW 0X06
1339 0032D 0007 IOW 0X07
1340
1341 0032E P50_PULL:
1342 0032E 18FE MOV A,@0XFE
1343 ; IOW 0X05
1344 0032F 000D IOW 0X0D
1345 00330 13A1 CALL DELAY
1346 00331 0C07 JBC R7,0
1347 00332 0A1C BS R5_HIGH,0
1348
1349 00333 18FF MOV A,@0XFF
1350 00334 000D IOW 0X0D
1351 00335 18FE MOV A,@0XFE
1352 ; IOW 0X05
1353 00336 000B IOW 0X0B
1354 00337 13A1 CALL DELAY
1355 00338 0E07 JBS R7,0
1356 00339 0A1D BS R5_DOWN,0
1357
1358 0033A P51_PULL:
1359 0033A 18FF MOV A,@0XFF
1360 0033B 000B IOW 0X0B
1361
1362 0033C 18FD MOV A,@0XFD
1363 0033D 000D IOW 0X0D
1364 0033E 13A1 CALL DELAY
1365 0033F 0C07 JBC R7,0
1366 00340 0A5C BS R5_HIGH,1
1367
1368 00341 18FF MOV A,@0XFF
1369 00342 000D IOW 0X0D
1370 00343 18FD MOV A,@0XFD
1371 00344 000B IOW 0X0B
1372 00345 13A1 CALL DELAY
1373 00346 0E07 JBS R7,0
1374 00347 0A5D BS R5_DOWN,1
1375
1376 00348 P52_PULL:
1377 00348 18FF MOV A,@0XFF
1378 00349 000B IOW 0X0B
1379
1380 0034A 18FB MOV A,@0XFB
1381 0034B 000D IOW 0X0D
1382 0034C 13A1 CALL DELAY
1383 0034D 0C07 JBC R7,0
1384 0034E 0A9C BS R5_HIGH,2
1385
1386 0034F 18FF MOV A,@0XFF
1387 00350 000D IOW 0X0D
1388 00351 18FB MOV A,@0XFB
1389 00352 000B IOW 0X0B
1390 00353 13A1 CALL DELAY
1391 00354 0E07 JBS R7,0
1392 00355 0A9D BS R5_DOWN,2
1393
1394 00356 P53_PULL:
1395 00356 18FF MOV A,@0XFF
1396 00357 000B IOW 0X0B
1397
1398 00358 18F7 MOV A,@0XF7
1399 00359 000D IOW 0X0D
1400 0035A 13A1 CALL DELAY
1401 0035B 0C07 JBC R7,0
1402 0035C 0ADC BS R5_HIGH,3
1403
1404 0035D 18FF MOV A,@0XFF
1405 0035E 000D IOW 0X0D
1406 0035F 18F7 MOV A,@0XF7
1407 00360 000B IOW 0X0B
1408 00361 13A1 CALL DELAY
1409 00362 0E07 JBS R7,0
1410 00363 0ADD BS R5_DOWN,3
1411
1412 00364 P54_PULL:
1413 00364 18FF MOV A,@0XFF
1414 00365 000B IOW 0X0B
1415
1416 00366 18EF MOV A,@0XEF
1417 00367 000D IOW 0X0D
1418 00368 13A1 CALL DELAY
1419 00369 0C07 JBC R7,0
1420 0036A 0B1C BS R5_HIGH,4
1421
1422 0036B 18FF MOV A,@0XFF
1423 0036C 000D IOW 0X0D
1424 0036D 18EF MOV A,@0XEF
1425 0036E 000B IOW 0X0B
1426 0036F 13A1 CALL DELAY
1427 00370 0E07 JBS R7,0
1428 00371 0B1D BS R5_DOWN,4
1429
1430 00372 P55_PULL:
1431 00372 18FF MOV A,@0XFF
1432 00373 000B IOW 0X0B
1433
1434 00374 18DF MOV A,@0XDF
1435 00375 000D IOW 0X0D
1436 00376 13A1 CALL DELAY
1437 00377 0C07 JBC R7,0
1438 00378 0B5C BS R5_HIGH,5
1439
1440 00379 18FF MOV A,@0XFF
1441 0037A 000D IOW 0X0D
1442 0037B 18DF MOV A,@0XDF
1443 0037C 000B IOW 0X0B
1444 0037D 13A1 CALL DELAY
1445 0037E 0E07 JBS R7,0
1446 0037F 0B5D BS R5_DOWN,5
1447
1448 00380 P56_PULL:
1449 00380 18FF MOV A,@0XFF
1450 00381 000B IOW 0X0B
1451
1452 00382 18BF MOV A,@0XBF
1453 00383 000D IOW 0X0D
1454 00384 13A1 CALL DELAY
1455 00385 0C07 JBC R7,0
1456 00386 0B9C BS R5_HIGH,6
1457
1458 00387 18FF MOV A,@0XFF
1459 00388 000D IOW 0X0D
1460 00389 18BF MOV A,@0XBF
1461 0038A 000B IOW 0X0B
1462 0038B 13A1 CALL DELAY
1463 0038C 0E07 JBS R7,0
1464 0038D 0B9D BS R5_DOWN,6
1465
1466 0038E P57_PULL:
1467 0038E 18FF MOV A,@0XFF
1468 0038F 000B IOW 0X0B
1469
1470 00390 187F MOV A,@0X7F
1471 00391 000D IOW 0X0D
1472 00392 13A1 CALL DELAY
1473 00393 0C07 JBC R7,0
1474 00394 0BDC BS R5_HIGH,7
1475
1476 00395 18FF MOV A,@0XFF
1477 00396 000D IOW 0X0D
1478 00397 187F MOV A,@0X7F
1479 00398 000B IOW 0X0B
1480 00399 13A1 CALL DELAY
1481 0039A 0E07 JBS R7,0
1482 0039B 0BDD BS R5_DOWN,7
1483
1484 0039C 18FF MOV A,@0XFF
1485 0039D 000B IOW 0X0B
1486 0039E 000D IOW 0X0D
1487
1488 M PAGE1
0039F 0B43 1 BS R3 , 5
1489 003A0 1400 JMP SECOND
1490
1491 ;************************************************************************
1492 003A1 DELAY:
1493 003A1 1830 MOV A,@0X30
1494 003A2 0062 MOV DELAYTEMP,A
1495
1496 003A3 05E2 DJZ DELAYTEMP
1497 003A4 17A3 JMP $-1
1498
1499 003A5 0012 RET
1500
1501
1502 EOP
1503
1504
1505 ;###########################################################################
1506 00400 SECOND:
1507 ORG 400H
1508 00400 0B43 BS R3,5
1509 00401 0983 BC R3,6 ;select i/o page0
1510 00402 00D9 CLR RF_FLAG
1511 00403 1810 MOV A,@0X10
1512 00404 0063 MOV COUNT,A
1513 00405 00E7 CLR DATA_1
1514 00406 00E8 CLR DATA_2
1515 00407 00E9 CLR DATA_3
1516
1517 00408 ADC_START:
1518 00408 0011 DISI
1519 00409 0000 NOP
1520 0040A 0000 NOP
1521 0040B 0983 BC R3,6
1522 0040C 18FF MOV A,@0XFF
1523 0040D 0005 IOW 0X05
1524 0040E 000B IOW 0X0B
1525 0040F 180F MOV A,@0X0F
1526 00410 000D IOW 0X0D ;p50 pull high
1527
1528 00411 1801 MOV A,@0X01
1529 00412 0048 MOV AISR,A
1530
1531 00413 1808 MOV A,@0X08 ;select p50
1532 00414 0049 MOV ADCON,A
1533
1534
1535 00415 11A9 CALL DELAY1
1536 00416 0B09 BS ADCON,ADRUN ;start A/D conversion
1537
1538 00417 WAIT_AD:
1539 00417 0D09 JBC ADCON,ADRUN
1540 00418 1417 JMP WAIT_AD
1541
1542 00419 1800 MOV A,@0X00
1543 0041A 004E MOV RE,A ;clean A/D interrupter flag
1544
1545 0041B 040D MOV A,RD
1546 0041C 006A MOV DATA_A,A
1547 0041D 040C MOV A,RC
1548 0041E 006B MOV DATA_B,A
1549
1550 0041F 11AE CALL ADDDATA
1551
1552 00420 05E3 DJZ COUNT
1553 00421 1408 JMP ADC_START
1554
1555 00422 1810 MOV A,@0X10
1556 00423 0063 MOV COUNT,A
1557
1558 00424 18E0 MOV A,@0XE0 ;test the A/D result
1559 00425 0128 SUB A,DATA_2
1560 00426 0E03 JBS STATUS,C
1561 00427 1447 JMP P51_AD_HIGH
1562
1563 00428 00E7 CLR DATA_1
1564 00429 00E8 CLR DATA_2
1565 0042A 00E9 CLR DATA_3
1566
1567 0042B P50_AD_LOW:
1568 0042B 0983 BC R3,6
1569 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -