📄 self_test.lst
字号:
00000166 0228 +0 701 701 db 2,0y00101000 ;
00000168 0220 +0 702 702 db 2,0y00100000 ;
0000016A 0224 +0 703 703 db 2,0y00100100 ;
0000016C 0304 +0 704 704 db 3,0y00000100 ;
0000016E 0300 +0 705 705 db 3,0y000000000 ;
00000170 +0 706 706 slid_position_tbl_end:
+0 707 707
00000170 +0 708 708 mode_prn:
00000170 FD0000 R +0 709 709 call spc_prnbuf
00000173 1829 +0 710 710 ld a,0x29
00000175 1A07 +0 711 711 ld c,7
00000177 FD0000 R +0 712 712 call set_disp_test_1
0000017A FD0000 R +0 713 713 call disp_to_dbr
0000017D 4C0000 R +0 714 714 ld ix,slid_position_tbl
00000180 F10000F900 R +0 715 715 ld (BLK_CT),0
00000185 +0 716 716 mode_prn_1:
00000185 FD0000 R +0 717 717 call wait_100ms
00000188 FD0000 R +0 718 718 call wait_100ms
0000018B ECD8 +0 719 719 push ix
0000018D FD0000 R +0 720 720 call update_md
00000190 ECD9 +0 721 721 pop ix
00000192 E442 +0 722 722 ld c,(ix)
00000194 34 +0 723 723 inc ix
00000195 E443 +0 724 724 ld b,(ix)
00000197 4B0000 R +0 725 725 ld hl,MDFLG_0
0000019A E740 +0 726 726 ld a,(hl+c)
0000019C EB07 +0 727 727 cmp a,b
0000019E D941 +0 728 728 j ne,mode_prn_2
000001A0 4B0000 R +0 729 729 ld hl,DISP+2
000001A3 E1000042 R +0 730 730 ld c,(BLK_CT)
000001A7 182A +0 731 731 ld a,0x2a
000001A9 F778 +0 732 732 ld (hl+c),a
000001AB E10000F0 R +0 733 733 inc (BLK_CT)
000001AF ECD8 +0 734 734 push ix
000001B1 FD0000 R +0 735 735 call disp_to_dbr
000001B4 FD0000 R +0 736 736 call wait_100ms
000001B7 FD0000 R +0 737 737 call wait_100ms
000001BA ECD9 +0 738 738 pop ix
000001BC 34 +0 739 739 inc ix
000001BD EC6F0000 R +0 740 740 cmp ix,slid_position_tbl_mid
000001C1 D915 +0 741 741 j ne,mode_prn_10
000001C3 1829 +0 742 742 ld a,0x29
000001C5 1A07 +0 743 743 ld c,7
000001C7 FD0000 R +0 744 744 call set_disp_test_1
000001CA FD0000 R +0 745 745 call disp_to_dbr
000001CD 4C0000 R +0 746 746 ld ix,slid_position_tbl_mid
000001D0 F10000F900 R +0 747 747 ld (BLK_CT),0
000001D5 FE0000 R +0 748 748 jp mode_prn_1
000001D8 +0 749 749 mode_prn_10:
000001D8 EC6F0000 R +0 750 750 cmp ix,slid_position_tbl_end
000001DC DB26 +0 751 751 j ge,mode_prn_ok
000001DE FE0000 R +0 752 752 jp mode_prn_1
000001E1 +0 753 753 mode_prn_2:
000001E1 ECD8 +0 754 754 push ix
000001E3 E1000040 R +0 755 755 ld a,(KEY_CT)
000001E7 D80F +0 756 756 j eq,mode_prn_3
000001E9 FD0000 R +0 757 757 call key_get
000001EC E10000670E R +0 758 758 cmp (KEYIN),K_CEC
000001F1 D905 +0 759 759 j ne,mode_prn_3
000001F3 ECD9 +0 760 760 pop ix
000001F5 FE0000 R +0 761 761 jp mode_prn_error
+0 762 762
000001F8 +0 763 763 mode_prn_3:
000001F8 ECD9 +0 764 764 pop ix
000001FA 3C +0 765 765 dec ix
000001FB FE0000 R +0 766 766 jp mode_prn_1
+0 767 767
000001FE +0 768 768 mode_prn_error:
000001FE 4B0000 R +0 769 769 ld hl,MD_NG
00000201 FE0000 R +0 770 770 jp mode_prn_exit
00000204 +0 771 771 mode_prn_ok:
00000204 4B0000 R +0 772 772 ld hl,MD_OK
00000207 FE0000 R +0 773 773 jp mode_prn_exit
0000020A +0 774 774 mode_prn_exit:
0000020A FD0000 R +0 775 775 call set_1line
0000020D FD0000 R +0 776 776 call print
00000210 FD0000 R +0 777 777 call wait_100ms
00000213 FD0000 R +0 778 778 call wait_100ms
00000216 FA +0 779 779 ret
+0 780 780 ;----------------------------------------------------------
00000217 +0 781 781 key_test:
00000217 FD0000 R +0 782 782 call spc_disp
0000021A F10000F900 R +0 783 783 ld (DISP_LSD-1),D_0
0000021F F10000F90F R +0 784 784 ld (DISP_LSD-0),D_F
00000224 FD0000 R +0 785 785 call disp_to_dbr
00000227 4C0000 R +0 786 786 ld ix,key_test_tbl
+0 787 787
0000022A +0 788 788 key_test_0:
0000022A E1000040 R +0 789 789 ld a,(KEY_CT)
0000022E D8FA +0 790 790 j eq,key_test_0
00000230 FD0000 R +0 791 791 call key_get
00000233 E440 +0 792 792 ld a,(ix)
00000235 E1000007 R +0 793 793 cmp a,(KEYIN)
00000239 D80D +0 794 794 j eq,key_test_1
0000023B E10000670E R +0 795 795 cmp (KEYIN),K_CEC
00000240 D9E8 +0 796 796 j ne,key_test_0
00000242 4B0000 R +0 797 797 ld hl,KEY_NG
00000245 FE0000 R +0 798 798 jp key_test_exit
00000248 +0 799 799 key_test_1:
00000248 34 +0 800 800 inc ix
00000249 E440 +0 801 801 ld a,(ix)
0000024B F1000078 R +0 802 802 ld (DISP_LSD-0),a
0000024F ECD8 +0 803 803 push ix
00000251 FD0000 R +0 804 804 call disp_to_dbr
00000254 ECD9 +0 805 805 pop ix
00000256 34 +0 806 806 inc ix
00000257 EC6F0000 R +0 807 807 cmp ix,key_test_tbl_end
0000025B DACD +0 808 808 j lt,key_test_0
0000025D 4B0000 R +0 809 809 ld hl,KEY_OK
00000260 +0 810 810 key_test_exit:
00000260 FD0000 R +0 811 811 call set_1line
00000263 FD0000 R +0 812 812 call print
00000266 FD0000 R +0 813 813 call wait_100ms
00000269 FD0000 R +0 814 814 call wait_100ms
0000026C FA +0 815 815 ret
+0 816 816
0000026D +0 817 817 key_test_tbl:
0000026D 0D01 +0 818 818 db 0x0d,1
0000026F 2B02 +0 819 819 db 0x2b,2
00000271 0703 +0 820 820 db 0x07,3
00000273 0504 +0 821 821 db 0x05,4
00000275 0305 +0 822 822 db 0x03,5
00000277 0C06 +0 823 823 db 0x0c,6
00000279 1107 +0 824 824 db 0x11,7
0000027B 1708 +0 825 825 db 0x17,8
0000027D 1609 +0 826 826 db 0x16,9
0000027F +0 827 827 key_test_tbl_end:
+0 828 828 ;--------------------------------------------------------------------------
0000027F +0 829 829 chara_prn:
0000027F 1B00 +0 830 830 ld b,0
00000281 +0 831 831 chara_prn0:
00000281 4B0000 R +0 832 832 ld hl,chara
00000284 13 +0 833 833 ld a,b
00000285 1912 +0 834 834 ld w,18
00000287 E8F2 +0 835 835 mul w,a
00000289 E899 +0 836 836 add hl,wa
0000028B F67B +0 837 837 push b
0000028D FD0000 R +0 838 838 call set_1line
00000290 FD0000 R +0 839 839 call print
00000293 480000 R +0 840 840 ld wa,P_RED
00000296 E10000FA R +0 841 841 clr (P_RED>>4).a
0000029A E643 +0 842 842 pop b
0000029C EB58 +0 843 843 test b.0
0000029E A6 +0 844 844 j f,chara_prn1
0000029F 480000 R +0 845 845 ld wa,P_RED
000002A2 E10000F2 R +0 846 846 set (P_RED>>4).a
000002A6 +0 847 847 chara_prn1:
000002A6 23 +0 848 848 inc b
000002A7 EB6718 +0 849 849 cmp b,24
000002AA DAD5 +0 850 850 j lt,chara_prn0
000002AC FA +0 851 851 ret
+0 852 852
000002AD +0 853 853 chara:
000002AD 31323334353637383930 +0 854 854 db "1234567890+-x!#$%^" ;1
2B2D78212324255E
000002BF 262A2829 +0 855 855 db "&*()" ;2
000002C3 4083848586 +0 856 856 db 0x40,0x83,0x84,0x85,0x86
000002C8 414243444546474849 +0 857 857 db "ABCDEFGHI"
000002D1 4A4B4C4D4E4F50515253 +0 858 858 db "JKLMNOPQRSTUVWXYZa" ;3
5455565758595A61
000002E3 62636465666768696A6B +0 859 859 db "bcdefghijklmnopqrs" ;4
6C6D6E6F70717273
000002F5 7475767778797A303938 +0 860 860 db "tuvwxyz09876543210" ;5
3736353433323130
00000307 31313131313131313131 +0 861 861 db "111111111111111111" ;6
3131313131313131
00000319 32323232323232323232 +0 862 862 db "222222222222222222" ;7
3232323232323232
0000032B 33333333333333333333 +0 863 863 db "333333333333333333" ;8
3333333333333333
0000033D 34343434343434343434 +0 864 864 db "444444444444444444" ;9
3434343434343434
0000034F 35353535353535353535 +0 865 865 db "555555555555555555" ;10
3535353535353535
00000361 36363636363636363636 +0 866 866 db "666666666666666666" ;11
3636363636363636
00000373 37373737373737373737 +0 867 867 db "777777777777777777" ;12
3737373737373737
00000385 38383838383838383838 +0 868 868 db "888888888888888888" ;13
3838383838383838
00000397 39393939393939393939 +0 869 869 db "999999999999999999" ;14
3939393939393939
000003A9 30303030303030303030 +0 870 870 db "000000000000000000" ;15
3030303030303030
000003BB 31323334353637383931 +0 871 871 db "123456789123456789" ;16
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -