📄 sub.lst
字号:
0000004D 180F +0 663 663 ld a,ps_spc
0000004F 1A17 +0 664 664 ld c,24-1
00000051 FC13 +0 665 665 j fill_nb
+0 666 666
00000053 +0 667 667 spc_disp:
00000053 4B0000 R +0 668 668 ld hl,DISP
00000056 183F +0 669 669 ld a,D_SPC
00000058 1A0D +0 670 670 ld c,14-1 ;fill data from address+13
0000005A FC0A +0 671 671 j fill_nb0
+0 672 672
0000005C +0 673 673 clear_2byte:
0000005C 1800 +0 674 674 ld a,0
0000005E 1A01 +0 675 675 ld c,2-1 ;fill data from address+1
00000060 FC04 +0 676 676 j fill_nb0
00000062 +0 677 677 clear_9byte:
00000062 1800 +0 678 678 ld a,0
00000064 +0 679 679 fill_9byte:
00000064 1A08 +0 680 680 ld c,9-1 ;fill data from address+8
00000066 +0 681 681 fill_nb:
00000066 +0 682 682 fill_nb0:
00000066 F778 +0 683 683 ld (hl+c),a
00000068 2A +0 684 684 dec c
00000069 BB +0 685 685 j f,fill_nb0 ;reg.c is not 0xff? yes->
0000006A FA +0 686 686 ret
+0 687 687
+0 688 688 ;===================================================
+0 689 689 ; Data transfer use register: ix, iy, c, a
+0 690 690 ;===================================================
+0 691 691 ;transfer to W1........................
0000006B +0 692 692 sell_to_w1:
0000006B 4C0000 R +0 693 693 ld ix,SELL
0000006E FE0000 R +0 694 694 j move_to_w1
00000071 +0 695 695 cost_to_w1:
00000071 4C0000 R +0 696 696 ld ix,COST
00000074 FE0000 R +0 697 697 j move_to_w1
00000077 +0 698 698 marg_to_w1:
00000077 4C0000 R +0 699 699 ld ix,MARG
0000007A FE0000 R +0 700 700 j move_to_w1
0000007D +0 701 701 tax_to_w1:
0000007D 4C0000 R +0 702 702 ld ix,TAXRT
00000080 FE0000 R +0 703 703 j move_to_w1
00000083 +0 704 704 tax2_to_w1:
00000083 4C0000 R +0 705 705 ld ix,TAX2RT
00000086 FE0000 R +0 706 706 j move_to_w1
00000089 +0 707 707 const_to_w1:
00000089 4C0000 R +0 708 708 ld ix,CONST
0000008C FE0000 R +0 709 709 j move_to_w1
0000008F +0 710 710 mem1_to_w1:
0000008F 4C0000 R +0 711 711 ld ix,MEM1
00000092 FE0000 R +0 712 712 j move_to_w1
00000095 +0 713 713 gt_to_w1:
00000095 4C0000 R +0 714 714 ld ix,MEMGT
00000098 FE0000 R +0 715 715 j move_to_w1
0000009B +0 716 716 w2_to_w1:
0000009B 4C0000 R +0 717 717 ld ix,W2
0000009E FE0000 R +0 718 718 j move_to_w1
000000A1 +0 719 719 w3_to_w1:
000000A1 4C0000 R +0 720 720 ld ix,W3
000000A4 FE0000 R +0 721 721 j move_to_w1
000000A7 +0 722 722 ten_to_w1:
000000A7 4C0000 R +0 723 723 ld ix,TENKEY
000000AA FE0000 R +0 724 724 j move_to_w1
+0 725 725
+0 726 726 ;transfer to W2........................
000000AD +0 727 727 cost_to_w2:
000000AD 4C0000 R +0 728 728 ld ix,COST
000000B0 FE0000 R +0 729 729 j move_to_w2
000000B3 +0 730 730 sell_to_w2:
000000B3 4C0000 R +0 731 731 ld ix,SELL
000000B6 FE0000 R +0 732 732 j move_to_w2
000000B9 +0 733 733 marg_to_w2:
000000B9 4C0000 R +0 734 734 ld ix,MARG
000000BC FC7C +0 735 735 j move_to_w2
000000BE +0 736 736 tax_to_w2:
000000BE 4C0000 R +0 737 737 ld ix,TAXRT
000000C1 FC77 +0 738 738 j move_to_w2
000000C3 +0 739 739 tax2_to_w2:
000000C3 4C0000 R +0 740 740 ld ix,TAX2RT
000000C6 FC72 +0 741 741 j move_to_w2
000000C8 +0 742 742 const_to_w2:
000000C8 4C0000 R +0 743 743 ld ix,CONST
000000CB FC6D +0 744 744 j move_to_w2
000000CD +0 745 745 gt_to_w2:
000000CD 4C0000 R +0 746 746 ld ix,MEMGT
000000D0 FC68 +0 747 747 j move_to_w2
000000D2 +0 748 748 mem1_to_w2:
000000D2 4C0000 R +0 749 749 ld ix,MEM1
000000D5 FC63 +0 750 750 j move_to_w2
000000D7 +0 751 751 acc_to_w2:
000000D7 4C0000 R +0 752 752 ld ix,ACC
000000DA FC5E +0 753 753 j move_to_w2
000000DC +0 754 754 w1_to_w2:
000000DC 4C0000 R +0 755 755 ld ix,W1
000000DF FC59 +0 756 756 j move_to_w2
000000E1 +0 757 757 w3_to_w2:
000000E1 4C0000 R +0 758 758 ld ix,W3
000000E4 FC54 +0 759 759 j move_to_w2
000000E6 +0 760 760 ten_to_w2:
000000E6 4C0000 R +0 761 761 ld ix,TENKEY
000000E9 FC4F +0 762 762 j move_to_w2
000000EB +0 763 763 euro1_to_w2:
000000EB 50 +0 764 764 push wa
000000EC 480000 R +0 765 765 ld wa,F_COUNTRY1
000000EF E10000F2 R +0 766 766 set (F_COUNTRY1>>4).a
000000F3 D0 +0 767 767 pop wa
000000F4 4C0000 R +0 768 768 ld ix,EURO_RATE1
000000F7 FC41 +0 769 769 j move_to_w2
000000F9 +0 770 770 euro2_to_w2:
000000F9 50 +0 771 771 push wa
000000FA 480000 R +0 772 772 ld wa,F_COUNTRY2
000000FD E10000F2 R +0 773 773 set (F_COUNTRY2>>4).a
00000101 D0 +0 774 774 pop wa
00000102 4C0000 R +0 775 775 ld ix,EURO_RATE2
00000105 FC33 +0 776 776 j move_to_w2
+0 777 777 ;transfer to W3........................
00000107 +0 778 778 w1_to_w3:
00000107 4C0000 R +0 779 779 ld ix,W1
0000010A FC34 +0 780 780 j move_to_w3
0000010C +0 781 781 w2_to_w3:
0000010C 4C0000 R +0 782 782 ld ix,W2
0000010F FC2F +0 783 783 j move_to_w3
+0 784 784
+0 785 785 ;transfer to TENKEY....................
00000111 +0 786 786 w1_to_ten:
00000111 4C0000 R +0 787 787 ld ix,W1
00000114 FC30 +0 788 788 j move_to_ten
00000116 +0 789 789 w2_to_ten:
00000116 4C0000 R +0 790 790 ld ix,W2
00000119 FC2B +0 791 791 j move_to_ten
0000011B +0 792 792 acc_to_ten:
0000011B 4C0000 R +0 793 793 ld ix,ACC
0000011E FC26 +0 794 794 j move_to_ten
+0 795 795 ;transfer to CONST........................
00000120 +0 796 796 w1_to_const:
00000120 4C0000 R +0 797 797 ld ix,W1
00000123 FC27 +0 798 798 j move_to_const
00000125 +0 799 799 w2_to_const:
00000125 4C0000 R +0 800 800 ld ix,W2
00000128 FC22 +0 801 801 j move_to_const
+0 802 802 ;-----------------------------------------
0000012A +0 803 803 w2_to_acc: ;V1.26
0000012A 4C0000 R +0 804 804 ld ix,W2 ;V1.26
0000012D FC23 +0 805 805 j move_to_acc ;V1.26
0000012F +0 806 806 w1_to_acc:
0000012F 4C0000 R +0 807 807 ld ix,W1
00000132 FC1E +0 808 808 j move_to_acc
+0 809 809 ;set distination address.........
00000134 +0 810 810 move_to_w1:
00000134 4D0000 R +0 811 811 ld iy,W1
00000137 FE0000 R +0 812 812 j move_9byte
0000013A +0 813 813 move_to_w2:
0000013A 4D0000 R +0 814 814 ld iy,W2
0000013D FE0000 R +0 815 815 j move_9byte
00000140 +0 816 816 move_to_w3:
00000140 4D0000 R +0 817 817 ld iy,W3
00000143 FE0000 R +0 818 818 j move_9byte
00000146 +0 819 819 move_to_ten:
00000146 4D0000 R +0 820 820 ld iy,TENKEY
00000149 FE0000 R +0 821 821 j move_9byte
0000014C +0 822 822 move_to_const:
0000014C 4D0000 R +0 823 823 ld iy,CONST
0000014F FE0000 R +0 824 824 j move_9byte
00000152 +0 825 825 move_to_acc:
00000152 4D0000 R +0 826 826 ld iy,ACC
00000155 FE0000 R +0 827 827 j move_9byte
+0 828 828 ;others..........................
00000158 +0 829 829 ten_to_euro1:
00000158 4C0000 R +0 830 830 ld ix,TENKEY
0000015B 4D0000 R +0 831 831 ld iy,EURO_RATE1
0000015E FE0000 R +0 832 832 j move_9byte
00000161 +0 833 833 ten_to_euro2:
00000161 4C0000 R +0 834 834 ld ix,TENKEY
00000164 4D0000 R +0 835 835 ld iy,EURO_RATE2
00000167 FC7E +0 836 836 j move_9byte
00000169 +0 837 837 euro1_to_ten:
00000169 50 +0 838 838 push wa
0000016A 480000 R +0 839 839 ld wa,F_COUNTRY1
0000016D E10000F2 R +0 840 840 set (F_COUNTRY1>>4).a
00000171 D0 +0 841 841 pop wa
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -