📄 postfixvalume.asl
字号:
09E3 A7 01 1331 cmpe #01h
09E5 07 08 CA 1332 brnz .Num2OPC
09E8 F5 00 1333 lda0 PointZ
09EA 1F 1334 inca
09EB F9 00 1335 sta0 PointZ
09ED 02 08 CA 1336 br .Num2OPC
+ 1337 ;-------------------------------------------
09F0 1338 .SetOPdata:
09F0 F5 7B 1339 lda0 .PsValDP
09F2 1F 1340 inca
09F3 F9 7B 1341 sta0 .PsValDP
09F5 F3 00 1342 lda #0h
09F7 FC 28 1343 sta PP
09F9 F5 00 1344 lda0 .NumCnt
09FB A9 00 1345 suba PointZ
09FD A7 0E 1346 cmpe #0eh
09FF 05 0A 13 1347 brnc .NormalSus
0A02 F3 00 1348 lda #0h
0A04 FC 28 1349 sta PP
0A06 F3 00 1350 lda #0h
0A08 89 00 1351 adda PointZ
0A0A A9 00 1352 suba .NumCnt
0A0C 8B 0E 1353 adda #0eh
0A0E F9 00 1354 sta0 PointZ ;PointZ = 0ff-allnum-PointZ-14
0A10 02 0A 1F 1355 br .EndSaveToZ
0A13 1356 .NormalSus:
0A13 F3 00 1357 lda #0h
0A15 FC 28 1358 sta PP
0A17 F3 0E 1359 lda #0eh
0A19 A9 00 1360 suba .NumCnt
0A1B 89 00 1361 adda PointZ
0A1D F9 00 1362 sta0 PointZ
+ 1363
0A1F 1364 .EndSaveToZ:
0A1F F3 00 1365 lda #0h
0A21 F9 05 1366 sta0 OperandZ+5 ;get 10 bytes
0A23 F9 06 1367 sta0 OperandZ+6 ;
0A25 F9 07 1368 sta0 OperandZ+7
0A27 20 00 00 1369 call CheckOutData
0A2A 24 1370 ret
0A2B 1371 .PointError:
0A2B F3 02 1372 lda #02h
0A2D F9 00 1373 sta0 ErrorFlag
0A2F 02 0A 1F 1374 br .EndSaveToZ
+ 1375 ;-------------------------------------------
0A32 1376 .ClrSK:
+ 1377
0A32 F3 02 1378 lda #02h
0A34 FC 28 1379 sta PP
0A36 F3 F0 1380 lda #0f0h
0A38 FC 21 1381 sta DP
0A3A 1382 .ClrSKC:
0A3A F0 21 1383 lda DP
0A3C A7 FF 1384 cmpe #0ffh
0A3E 06 0A 48 1385 brz .ClrP3SK
0A41 F3 00 1386 lda #0h
0A43 FE 1387 sta i
0A44 18 1388 incdp
0A45 02 0A 3A 1389 br .ClrSKC
0A48 1390 .ClrP3SK:
0A48 F3 03 1391 lda #03h
0A4A FC 28 1392 sta PP
0A4C F3 00 1393 lda #0h
0A4E FC 21 1394 sta DP
0A50 1395 .ClrP3SKC:
0A50 F0 21 1396 lda DP
0A52 A7 4F 1397 cmpe #4fh
0A54 06 0A 5E 1398 brz .EndClrSKC
0A57 F3 00 1399 lda #0h
0A59 FE 1400 sta i
0A5A 18 1401 incdp
0A5B 02 0A 50 1402 br .ClrP3SKC
0A5E 1403 .EndClrSKC:
+ 1404
0A5E 24 1405 ret
+ 1406 ;===========================================
0A5F 1407 .MoveP3DP:
0A5F F3 03 1408 lda #03h
0A61 FC 28 1409 sta PP
0A63 F3 00 1410 lda #0h
0A65 F9 00 1411 sta0 .Buf2
0A67 F9 00 1412 sta0 .Buf1
0A69 1413 .StartMove:
0A69 F5 00 1414 lda0 .Buf2
0A6B FC 21 1415 sta DP
0A6D F2 1416 lda i
0A6E F9 00 1417 sta0 .DataBuf
0A70 A7 00 1418 cmpe #0h
0A72 06 0A AA 1419 brz .EndMoveP3DP
0A75 A7 FF 1420 cmpe #0ffh
0A77 06 0A 9F 1421 brz .IncDP
0A7A 1422 .IncDP3:
0A7A F3 00 1423 lda #0h
0A7C FE 1424 sta i
0A7D F5 00 1425 lda0 .Buf1
0A7F FC 21 1426 sta DP
0A81 F2 1427 lda i
0A82 A7 00 1428 cmpe #0h
0A84 06 0A 8F 1429 brz .AddrNull
0A87 F5 00 1430 lda0 .Buf1
0A89 1F 1431 inca
0A8A F9 00 1432 sta0 .Buf1
0A8C 02 0A 7A 1433 br .IncDP3
0A8F 1434 .AddrNull:
0A8F F5 00 1435 lda0 .DataBuf
0A91 FE 1436 sta i
0A92 F5 00 1437 lda0 .Buf2
0A94 1F 1438 inca
0A95 F9 00 1439 sta0 .Buf2
0A97 F5 00 1440 lda0 .Buf1
0A99 1F 1441 inca
0A9A F9 00 1442 sta0 .Buf1
0A9C 02 0A 69 1443 br .StartMove
+ 1444
0A9F 1445 .IncDP:
0A9F F3 00 1446 lda #0h
0AA1 FE 1447 sta i
0AA2 F5 00 1448 lda0 .Buf2
0AA4 1F 1449 inca
0AA5 F9 00 1450 sta0 .Buf2
0AA7 02 0A 69 1451 br .StartMove
+ 1452
0AAA 1453 .EndMoveP3DP:
0AAA 24 1454 ret
+ 1455 ;===========================================
0AAB 1456 .ReSetP3ST:
+ 1457
0AAB F3 50 1458 lda #50h
0AAD F9 7D 1459 sta0 .P3DP
0AAF F3 00 1460 lda #0h
0AB1 F9 00 1461 sta0 .Buf2
0AB3 F3 F0 1462 lda #0f0h
0AB5 F9 7E 1463 sta0 .P2DP
0AB7 1464 .StartChang:
0AB7 F3 03 1465 lda #03h
0AB9 FC 28 1466 sta PP
0ABB F5 00 1467 lda0 .Buf2
0ABD FC 21 1468 sta DP
0ABF F2 1469 lda i
0AC0 FC 21 1470 sta DP
0AC2 A7 00 1471 cmpe #0h
0AC4 06 0A FD 1472 brz .EndReSetP3STK
0AC7 A7 F0 1473 cmpe #0f0h
0AC9 05 0A F5 1474 brnc .Nextcmpe
0ACC F3 02 1475 lda #02h
0ACE FC 28 1476 sta PP
0AD0 F2 1477 lda i
0AD1 FC 21 1478 sta DP
0AD3 20 07 C6 1479 call .GetP3ToZ
0AD6 F3 02 1480 lda #02h
0AD8 FC 28 1481 sta PP
0ADA F5 7E 1482 lda0 .P2DP
0ADC FC 21 1483 sta DP
0ADE F5 7D 1484 lda0 .P3DP
0AE0 FE 1485 sta i
0AE1 18 1486 incdp
0AE2 F0 21 1487 lda DP
0AE4 F9 7E 1488 sta0 .P2DP
0AE6 20 08 0D 1489 call .StoResult
0AE9 F3 03 1490 lda #03h
0AEB FC 28 1491 sta PP
0AED F5 00 1492 lda0 .Buf2
0AEF FC 21 1493 sta DP
0AF1 F5 7E 1494 lda0 .P2DP
0AF3 3F 1495 deca
0AF4 FE 1496 sta i
0AF5 1497 .Nextcmpe:
0AF5 F5 00 1498 lda0 .Buf2
0AF7 1F 1499 inca
0AF8 F9 00 1500 sta0 .Buf2
0AFA 02 0A B7 1501 br .StartChang
+ 1502
0AFD 1503 .EndReSetP3STK:
+ 1504
0AFD 24 1505 ret
+ 1506
+ 1507 ;===========================================
0AFE 1508 .ChoiceFunc:
0AFE F3 00 1509 lda #0h
0B00 F9 07 1510 sta0 OperandX+7
0B02 F3 00 1511 lda #0h
0B04 FC 28 1512 sta PP
0B06 F5 00 1513 lda0 .Buf1
0B08 A7 B0 1514 cmpe #0b0h
0B0A 06 0E 0F 1515 brz .DoSimeFunct
0B0D A7 A1 1516 cmpe #0a1h
0B0F 06 0C BE 1517 brz .ExpD
0B12 A7 D4 1518 cmpe #0D4h
0B14 06 0B BA 1519 brz .FactD
0B17 A7 C8 1520 cmpe #0C8h
0B19 06 0B C8 1521 brz .ReciXD
0B1C A7 D1 1522 cmpe #0d1h
0B1E 06 0B D6 1523 brz .Pow_3_invyD ;-------------no
0B21 A7 D2 1524 cmpe #0d2h
0B23 06 0B DF 1525 brz .XCubeD
0B26 A7 D3 1526 cmpe #0d3h
0B28 06 04 D8 1527 brz .Pow_x_yD
0B2B A7 D7 1528 cmpe #0d7h
0B2D 06 04 E5 1529 brz .Pow_x_invyD
0B30 A7 C4 1530 cmpe #0c4h
0B32 06 0B ED 1531 brz .SquD
0B35 A7 C5 1532 cmpe #0c5h
0B37 06 0B FC 1533 brz .XSquD
0B3A A7 C6 1534 cmpe #0c6h
0B3C 06 0C 0A 1535 brz .LogD
0B3F A7 D8 1536 cmpe #0d8h ;-----------no
0B41 06 0C 19 1537 brz .TenXD
0B44 A7 C7 1538 cmpe #0c7h
0B46 06 0C 22 1539 brz .LnD
0B49 A7 D9 1540 cmpe #0d9h
0B4B 06 0C 31 1541 brz .ExD
0B4E A7 B9 1542 cmpe #0b9h
0B50 06 0C 3A 1543 brz .SinD
0B53 A7 E0 1544 cmpe #0e0h
0B55 06 0C 49 1545 brz .AsinD
0B58 A7 C0 1546 cmpe #0c0h
0B5A 06 0C 55 1547 brz .CosD
0B5D A7 E1 1548 cmpe #0e1h
0B5F 06 0C 61 1549 brz .AcosD
0B62 A7 C1 1550 cmpe #0c1h
0B64 06 0C 6D 1551 brz .TanD
0B67 A7 E2 1552 cmpe #0e2h
0B69 06 0C 7C 1553 brz .AtanD
0B6C A7 E9 1554 cmpe #0e9h
0B6E 06 0C 88 1555 brz .SinHD
0B71 A7 F2 1556 cmpe #0f2h
0B73 06 0C 91 1557 brz .AsinHD
0B76 A7 F0 1558 cmpe #0f0h
0B78 06 0C 9A 1559 brz .CosHD
0B7B A7 F3 1560 cmpe #0f3h
0B7D 06 0C A3 1561 brz .AcosHD
0B80 A7 F1 1562 cmpe #0f1h
0B82 06 0C AC 1563 brz .TanHD
0B85 A7 F4 1564 cmpe #0f4h
0B87 06 0C B5 1565 brz .AtanHD
0B8A A7 BE 1566 cmpe #0beh
0B8C 06 0D 2D 1567 brz .LR10
0B8F A7 BD 1568 cmpe #0bDh
0B91 06 0D A6 1569 brz .LR11
0B94 A7 A8 1570 cmpe #0a8h
0B96 06 0C C4 1571 brz .DecSignD
0B99 A7 24 1572 cmpe #024h
0B9B 06 0D 1B 1573 brz .Donot
0B9E A7 25 1574 cmpe #025h
0BA0 06 0D 24 1575 brz .Doneg
0BA3 A7 26 1576 cmpe #026h
0BA5 06 0C E2 1577 brz .TrnsDec
0BA8 A7 27 1578 cmpe #027h
0BAA 06 0C EE 1579 brz .TrnsHex
0BAD A7 28 1580 cmpe #028h
0BAF 06 0C FD 1581 brz .TrnsBin
0BB2 A7 29 1582 cmpe #029h
0BB4 06 0D 0C 1583 brz .TrnsOct
0BB7 02 0E 28 1584 br .EndChoiceFunc
0BBA 1585 .FactD:
0BBA 20 00 00 1586 call .Factorial
0BBD 20 00 00 1587 call .Z_trans_X
0BC0 F5 00 1588 lda0 .DPBuf
0BC2 3F 1589 deca
0BC3 F9 00 1590 sta0 .DPBuf
0BC5 02 0E 28 1591 br .EndChoiceFunc
0BC8 1592 .ReciXD:
0BC8 20 00 00 1593 call .ReciX
0BCB 20 00 00 1594 call .Z_trans_X
0BCE F5 00 1595 lda0 .DPBuf
0BD0 3F 1596 deca
0BD1 F9 00 1597 sta0 .DPBuf
0BD3 02 0E 28 1598 br .EndChoiceFunc
0BD6 1599 .Pow_3_invyD:
0BD6 20 00 00 1600 call .Pow_x_inv3
0BD9 20 00 00 1601 call .Z_trans_X
0BDC 02 0E 28 1602 br .EndChoiceFunc
0BDF 1603 .XCubeD:
0BDF 20 00 00 1604 call .XCube
0BE2 20 00 00 1605 call .Z_trans_X
0BE5 F5 00 1606 lda0 .DPBuf
0BE7 3F 1607 deca
0BE8 F9 00 1608 sta0 .DPBuf
0BEA 02 0E 28 1609 br .EndChoiceFunc
+ 1610
0BED 1611 .SquD:
0BED 20 00 00 1612 call .CKNear_1
0BF0 20 00 00 1613 call Squ
0BF3 20 00 00 1614 call .CKNear_1
0BF6 20 00 00 1615 call .Z_trans_X
0BF9 02 0E 28 1616 br .EndChoiceFunc
0BFC 1617 .XSquD:
0BFC 20 00 00 1618 call .XSqu
0BFF 20 00 00 1619 call .Z_trans_X
0C02 F5 00 1620 lda0 .DPBuf
0C04 3F 1621 deca
0C05 F9 00 1622 sta0 .DPBuf
0C07 02 0E 28 1623 br .EndChoiceFunc
0C0A 1624 .LogD:
0C0A 20 00 00 1625 call .CKNear_1
0C0D 20 00 00 1626 call .Log
0C10 20 00 00 1627 call .CKNear_1
0C13 20 00 00 1628 call .Z_trans_X
0C16 02 0E 28 1629 br .EndChoiceFunc
0C19 1630 .TenXD:
0C19 20 00 00 1631 call .Pow_10_X
0C1C 20 00 00 1632 call .Z_trans_X
0C1F 02 0E 28 1633 br .EndChoiceFunc
0C22 1634 .LnD:
0C22 20 00 00 1635 call .CKNear_1
0C25 20 00 00 1636 call Ln
0C28 20 00 00 1637 call .CKNear_1
0C2B 20 00 00 1638 call .Z_trans_X
0C2E 02 0E 28 1639 br .EndChoiceFunc
0C31 1640 .ExD:
0C31 20 00 00 1641 call Ex
0C34 20 00 00 1642 call .Z_trans_X
0C37 02 0E 28 1643 br .EndChoiceFunc
0C3A 1644 .SinD:
+ 1645
0C3A 20 0E 45 1646 call .CheckRrdDegre
0C3D 20 0E 29 1647 call .RadCheck
0C40 20 00 00 1648 call Sin
0C43 20 00 00 1649 call .Z_trans_X
0C46 02 0E 28 1650 br .EndChoiceFunc
0C49 1651 .AsinD:
+ 1652
0C49 20 00 00 1653 call .Asin
0C4C 20 0F 67 1654 call .CheckAsinRrdDegre
0C4F 20 00 00 1655 call .Z_trans_X
0C52 02 0E 28 1656 br .EndChoiceFunc
0C55 1657 .CosD:
+ 1658
0C55 20 0E 45 1659 call .CheckRrdDegre
0C58 20 00 00 1660 call Cos⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -