📄 oppotriangle_0225.asl
字号:
03D4 587 .AsinQs:
03D4 20 05 70 588 call .DoZMulQs4
03D7 20 05 7E 589 call .DoQs3AddZ
03DA 20 04 74 590 call .DoXMulZ
03DD 20 05 8C 591 call .DoQs2AddZ
03E0 20 04 74 592 call .DoXMulZ
03E3 20 05 9A 593 call .DoQs1AddZ
03E6 20 04 74 594 call .DoXMulZ
03E9 24 595 ret
+ 596 ;------------------------------------------------------
03EA 597 .DoW1:
03EA 20 00 00 598 call .Z_trans_Y
03ED 20 00 00 599 call .S_trans_X
03F0 20 00 00 600 call Division
03F3 24 601 ret
+ 602 ;------------------------------------------------------
03F4 603 .DoP1:
+ 604
03F4 20 03 B2 605 call .AsinPs
03F7 20 00 00 606 call .Z_trans_S
03FA 24 607 ret
+ 608 ;------------------------------------------------------
03FB 609 .DoQ1:
+ 610
03FB 20 03 D4 611 call .AsinQs
03FE 20 00 00 612 call .ClrX
0401 20 00 00 613 call .Put_1_to_OperandX
0404 20 00 00 614 call .Z_trans_Y
0407 20 00 00 615 call Addition
040A 24 616 ret
+ 617 ;-------------------------------------------------------
040B 618 .DoInpX::
040B F3 8C 619 lda #X
040D FD D8 620 sta .M_Data_Offset
040F 20 04 7E 621 call .InpData
0412 24 622 ret
+ 623 ;-------------------------------------------------------
0413 624 .DoT1:
0413 20 00 00 625 call .X_trans_Buf
0416 20 00 00 626 call .X_Squ
0419 20 00 00 627 call Multiplation
041C 20 00 00 628 call .Z_trans_B
041F 24 629 ret
+ 630 ;-------------------------------------------------------
0420 631 .DoZMulPs5:
0420 F3 32 632 lda #pS5
0422 FD D8 633 sta .M_Data_Offset
0424 20 04 7E 634 call .InpData
0427 20 00 00 635 call .B_trans_Y
042A 20 00 00 636 call Multiplation
042D 24 637 ret
+ 638
+ 639 ;-------------------------------------------------------
042E 640 .DoPs4AddZ:
042E F3 28 641 lda #pS4
0430 FD D8 642 sta .M_Data_Offset
0432 20 04 7E 643 call .InpData
0435 20 00 00 644 call .Z_trans_Y
0438 20 00 00 645 call Addition
043B 24 646 ret
+ 647 ;-------------------------------------------------------
043C 648 .DoPs3AddZ:
043C F3 1E 649 lda #pS3
043E FD D8 650 sta .M_Data_Offset
0440 20 04 7E 651 call .InpData
0443 20 00 00 652 call .Z_trans_Y
0446 20 00 00 653 call Addition
0449 24 654 ret
+ 655 ;-------------------------------------------------------
044A 656 .DoPs2AddZ:
044A F3 14 657 lda #pS2
044C FD D8 658 sta .M_Data_Offset
044E 20 04 7E 659 call .InpData
0451 20 00 00 660 call .Z_trans_Y
0454 20 00 00 661 call Addition
0457 24 662 ret
+ 663 ;-------------------------------------------------------
0458 664 .DoPs1AddZ:
0458 F3 0A 665 lda #pS1
045A FD D8 666 sta .M_Data_Offset
045C 20 04 7E 667 call .InpData
045F 20 00 00 668 call .Z_trans_Y
0462 20 00 00 669 call Addition
0465 24 670 ret
+ 671 ;-------------------------------------------------------
0466 672 .DoPs0AddZ:
0466 F3 00 673 lda #pS0
0468 FD D8 674 sta .M_Data_Offset
046A 20 04 7E 675 call .InpData
046D 20 00 00 676 call .Z_trans_Y
0470 20 00 00 677 call Addition
0473 24 678 ret
+ 679 ;-------------------------------------------------------
0474 680 .DoXMulZ:
0474 20 00 00 681 call .B_trans_Y
0477 20 00 00 682 call .Z_trans_X
047A 20 00 00 683 call Multiplation
047D 24 684 ret
+ 685 ;-----------------------------------------------------
047E 686 .InpData::
+ 687 ;lda OP1
+ 688 ;anda #~10h
+ 689 ;sta OP1
047E 20 00 00 690 call .ClrX
0481 F3 00 691 lda #0h
0483 FC 54 692 sta TPP
0485 F3 0A 693 lda #@(SinCos)
0487 FD 01 694 sta TableC+1
0489 F3 7D 695 lda #<(SinCos)
048B 89 D8 696 adda .M_Data_Offset
048D FD 00 697 sta TableC
048F 05 04 97 698 brnc .Tpl_No_Carry
0492 F1 01 699 lda TableC+1
0494 1F 700 inca
0495 FD 01 701 sta TableC+1
0497 702 .Tpl_No_Carry:
+ 703
0497 F3 00 704 lda #0h
0499 FC 54 705 sta TPP
049B F1 01 706 lda TableC+1
049D FC 02 707 sta TPH
049F F1 00 708 lda TableC
04A1 FC 01 709 sta TPL
04A3 F8 710 ldv
04A4 FD 00 711 sta SignX
04A6 F8 712 ldv
04A7 FD 00 713 sta PointX
04A9 F3 00 714 lda #OperandX
04AB FC 21 715 sta DP
04AD 716 .Inp:
04AD F8 717 ldv
04AE A7 FF 718 cmpe #0ffh
04B0 06 04 B8 719 brz .End_Inp
04B3 FE 720 sta i
04B4 18 721 incdp
04B5 02 04 AD 722 br .Inp
+ 723
04B8 724 .End_Inp:
+ 725 ;lda OP1
+ 726 ;ora #10h
+ 727 ;sta OP1
04B8 24 728 ret
+ 729 ;------------------------------------------------
04B9 730 .InpDataToY::
+ 731 ;lda OP1
+ 732 ;anda #~10h
+ 733 ;sta OP1
04B9 20 00 00 734 call .ClrY
04BC F3 00 735 lda #0h
04BE FC 54 736 sta TPP
04C0 F3 0A 737 lda #@(SinCos)
04C2 FD 01 738 sta TableC+1
04C4 F3 7D 739 lda #<(SinCos)
04C6 89 D8 740 adda .M_Data_Offset
04C8 FD 00 741 sta TableC
04CA 05 04 D2 742 brnc .TplNoCarry
04CD F1 01 743 lda TableC+1
04CF 1F 744 inca
04D0 FD 01 745 sta TableC+1
+ 746
04D2 747 .TplNoCarry:
+ 748
04D2 F3 00 749 lda #0h
04D4 FC 54 750 sta TPP
04D6 F1 01 751 lda TableC+1
04D8 FC 02 752 sta TPH
04DA F1 00 753 lda TableC
04DC FC 01 754 sta TPL
04DE F8 755 ldv
04DF FD 00 756 sta SignY
04E1 F8 757 ldv
04E2 FD 00 758 sta PointY
04E4 F3 00 759 lda #OperandY
04E6 FC 21 760 sta DP
04E8 761 .InpY:
04E8 F8 762 ldv
04E9 A7 FF 763 cmpe #0ffh
04EB 06 04 F3 764 brz .End_InpY
04EE FE 765 sta i
04EF 18 766 incdp
04F0 02 04 E8 767 br .InpY
+ 768
04F3 769 .End_InpY:
+ 770 ;lda OP1
+ 771 ;ora #10h
+ 772 ;sta OP1
04F3 24 773 ret
+ 774 ;-------------------------------------------------
04F4 775 .InpDataToT::
+ 776 ;lda OP1
+ 777 ;anda #~10h
+ 778 ;sta OP1
04F4 20 00 00 779 call .ClrY
04F7 F3 00 780 lda #0h
04F9 FC 54 781 sta TPP
04FB F3 0B 782 lda #@(Atan)
04FD FD 01 783 sta TableC+1
04FF F3 8B 784 lda #<(Atan)
0501 89 D8 785 adda .M_Data_Offset
0503 FD 00 786 sta TableC
0505 05 05 0D 787 brnc .TplNoCarryTan
0508 F1 01 788 lda TableC+1
050A 1F 789 inca
050B FD 01 790 sta TableC+1
+ 791
050D 792 .TplNoCarryTan:
+ 793
050D F3 00 794 lda #0h
050F FC 54 795 sta TPP
0511 F1 01 796 lda TableC+1
0513 FC 02 797 sta TPH
0515 F1 00 798 lda TableC
0517 FC 01 799 sta TPL
0519 F8 800 ldv
051A FD 00 801 sta SignY
051C F8 802 ldv
051D FD 00 803 sta PointY
051F F3 00 804 lda #OperandY
0521 FC 21 805 sta DP
0523 806 .InpYTan:
0523 F8 807 ldv
0524 A7 FF 808 cmpe #0ffh
0526 06 05 2E 809 brz .End_InpYTan
0529 FE 810 sta i
052A 18 811 incdp
052B 02 05 23 812 br .InpYTan
+ 813
052E 814 .End_InpYTan:
+ 815 ;lda OP1
+ 816 ;ora #10h
+ 817 ;sta OP1
052E 24 818 ret
+ 819 ;------------------------------------------------------
052F 820 .DoW2:
052F 20 00 00 821 call .X_trans_Buf
0532 20 00 00 822 call .Buf_trans_Y
0535 20 00 00 823 call .ClrX
0538 20 00 00 824 call .Put_1_to_OperandX
053B 20 00 00 825 call Subtration
053E 24 826 ret
+ 827 ;------------------------------------------------------
053F 828 .DoT2:
053F 20 00 00 829 call .Z_trans_Y
0542 F3 78 830 lda #Point5
0544 FD D8 831 sta .M_Data_Offset
0546 20 04 7E 832 call .InpData
0549 20 00 00 833 call Multiplation
054C 20 00 00 834 call .Z_trans_B
054F 24 835 ret
+ 836 ;------------------------------------------------------
0550 837 .DoS:
0550 20 00 00 838 call .ClrX
0553 20 00 00 839 call .Put_1_to_OperandX
0556 20 00 00 840 call .Buf_trans_Y
0559 20 00 00 841 call Subtration
055C 20 00 00 842 call .Z_trans_X
055F 20 00 00 843 call Squ
0562 F3 64 844 lda #c_hsqrt2
0564 FD D8 845 sta .M_Data_Offset
0566 20 04 7E 846 call .InpData
0569 20 00 00 847 call .Z_trans_Y
056C 20 00 00 848 call Multiplation
056F 24 849 ret
+ 850 ;-------------------------------------------------------
0570 851 .DoZMulQs4:
0570 F3 5A 852 lda #qS4
0572 FD D8 853 sta .M_Data_Offset
0574 20 04 7E 854 call .InpData
0577 20 00 00 855 call .B_trans_Y
057A 20 00 00 856 call Multiplation
057D 24 857 ret
+ 858 ;-------------------------------------------------------
057E 859 .DoQs3AddZ:
057E F3 50 860 lda #qS3
0580 FD D8 861 sta .M_Data_Offset
0582 20 04 7E 862 call .InpData
0585 20 00 00 863 call .Z_trans_Y
0588 20 00 00 864 call Addition
058B 24 865 ret
+ 866 ;-------------------------------------------------------
058C 867 .DoQs2AddZ:
058C F3 46 868 lda #qS2
058E FD D8 869 sta .M_Data_Offset
0590 20 04 7E 870 call .InpData
0593 20 00 00 871 call .Z_trans_Y
0596 20 00 00 872 call Addition
0599 24 873 ret
+ 874 ;-------------------------------------------------------
059A 875 .DoQs1AddZ:
059A F3 3C 876 lda #qS1
059C FD D8 877 sta .M_Data_Offset
059E 20 04 7E 878 call .InpData
05A1 20 00 00 879 call .Z_trans_Y
05A4 20 00 00 880 call Addition
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -