📄 hf0803.lst
字号:
733 00:02A1: AD xx xx LDA PageNum
734 00:02A4: C9 00 CMP #0
735 00:02A6: F0 12 BEQ Page0KeyDonePR
736 00:02A8: C9 01 CMP #1
737 00:02AA: F0 11 BEQ Page1KeyDonePR
738 00:02AC: C9 02 CMP #2
739 00:02AE: F0 10 BEQ Page2KeyDonePR
740 00:02B0: C9 09 CMP #9
741 00:02B2: F0 0F BEQ Page9KeyDonePR
742 KeyDoneEnd:
743 00:02B4: A9 FF LDA #FFH
744 00:02B6: 8D xx xx STA KeyCode
745 00:02B9: 60 RTS
746 Page0KeyDonePR:
747 00:02BA: 4C xx xx JMP Page0KeyDone
748 Page1KeyDonePR:
749 00:02BD: 4C xx xx JMP Page1KeyDone
750 Page2KeyDonePR:
751 00:02C0: 4C xx xx JMP Page2KeyDone
752 Page9KeyDonePR:
753 00:02C3: 4C xx xx JMP Page9KeyDone
754 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
755 ;--<< Initial user RAM for system >>--
756 ;===============================================================
757 SetupPage0:
758 00:02C6: 20 xx xx JSR JugeCardNum
759 00:02C9: 20 xx xx JSR JugePerNum
760 00:02CC: 9C xx xx STZ OldPageNum
761 00:02CF: 9C xx xx STZ LCDY
762 00:02D2: A9 01 LDA #01
763 00:02D4: 8D xx xx STA LCDX
764 00:02D7: A9 xx LDA #<STR02
765 00:02D9: 8D xx xx STA PtrL
766 00:02DC: A9 xx LDA #>STR02
767 00:02DE: 8D xx xx STA PtrH
768 00:02E1: 20 xx xx JSR DRAW_STRING
769 00:02E4: A9 09 LDA #9
770 00:02E6: 8D xx xx STA LCDX
771 00:02E9: 9C xx xx STZ LCDY
772 00:02EC: A9 6C LDA #108
773 00:02EE: 20 xx xx JSR DISP_NUMBER
774 00:02F1: A9 0F LDA #15
775 00:02F3: 8D xx xx STA LCDX
776 00:02F6: 9C xx xx STZ LCDY
777 00:02F9: A9 88 LDA #136
778 00:02FB: 20 xx xx JSR DISP_NUMBER
779 00:02FE: A9 15 LDA #21
780 00:0300: 8D xx xx STA LCDX
781 00:0303: 9C xx xx STZ LCDY
782 00:0306: A9 90 LDA #144
783 00:0308: 20 xx xx JSR DISP_NUMBER
784 00:030B: A9 05 LDA #5
785 00:030D: 8D xx xx STA LCDY
786 00:0310: 20 xx xx JSR CLS_LINE
787 00:0313: A9 01 LDA #1
788 00:0315: 8D xx xx STA LCDX
789 00:0318: A9 xx LDA #<STR07
790 00:031A: 8D xx xx STA PtrL
791 00:031D: A9 xx LDA #>STR07
792 00:031F: 8D xx xx STA PtrH
793 00:0322: 20 xx xx JSR DRAW_STRING
794 00:0325: A9 06 LDA #6
795 00:0327: 8D xx xx STA LCDY
796 00:032A: 20 xx xx JSR CLS_LINE
797 00:032D: A9 06 LDA #6
798 00:032F: 8D xx xx STA LCDY
799 00:0332: A9 01 LDA #1
800 00:0334: 8D xx xx STA LCDX
801 00:0337: A9 xx LDA #<STR08
802 00:0339: 8D xx xx STA PtrL
803 00:033C: A9 xx LDA #>STR08
804 00:033E: 8D xx xx STA PtrH
805 00:0341: 20 xx xx JSR DRAW_STRING
806 00:0344: A9 02 LDA #2
807 00:0346: 20 xx xx JSR JugeProSelec
808 00:0349: 20 xx xx JSR DPFobidSelec
809 00:034C: 20 xx xx JSR JugeBlackPage0
810 00:034F: 60 RTS
811 DrawR:
812 00:0350: A9 xx LDA #<OSTR
813 00:0352: 8D xx xx STA PtrL
814 00:0355: A9 xx LDA #>OSTR
815 00:0357: 8D xx xx STA PtrH
816 00:035A: 20 xx xx JSR DRAW_STRING
817 00:035D: 60 RTS
818 DrawRight:
819 00:035E: A9 xx LDA #<STR
820 00:0360: 8D xx xx STA PtrL
821 00:0363: A9 xx LDA #>STR
822 00:0365: 8D xx xx STA PtrH
823 00:0368: 20 xx xx JSR DRAW_STRING
824 00:036B: 60 RTS
825 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
826 ;页面0的处理过程，pageup,pagedown enter, cancel,up,down,left,right
827 P0PowedownMode:
828 00:036C: 87 xx SMB0 <KeyFlag
829 00:036E: 4C xx xx JMP PowerDown
830 Page0KeyDone:
831 00:0371: AD xx xx LDA KeyCode
832 00:0374: C9 11 CMP #onoffkey
833 00:0376: F0 F4 BEQ P0PowedownMode
834 00:0378: C9 09 CMP #pageupkey
835 00:037A: F0 31 BEQ Page0Add
836 00:037C: C9 10 CMP #pagedownkey
837 00:037E: F0 41 BEQ Page0Sub
838 00:0380: C9 02 CMP #upkey
839 00:0382: F0 42 BEQ Page0upkeydone
840 00:0384: C9 08 CMP #downkey
841 00:0386: F0 6B BEQ Page0downkeydone
842 00:0388: C9 05 CMP #enterkey
843 00:038A: F0 0F BEQ Page0enterdonePR
844 00:038C: C9 03 CMP #cancelkey
845 00:038E: F0 0E BEQ Page0canceldonePR
846 00:0390: C9 04 CMP #leftkey
847 00:0392: F0 0D BEQ Page0leftdone
848 00:0394: C9 06 CMP #rightkey
849 00:0396: F0 0F BEQ Page0rightdone
850 00:0398: 4C xx xx JMP KeyDoneEnd
851 Page0enterdonePR:
852 00:039B: 4C xx xx JMP Page0enterdone
853 Page0canceldonePR:
854 00:039E: 4C xx xx JMP Page0canceldone
855 Page0leftdone:
856 00:03A1: 4C xx xx JMP AddSSubPage0
857 00:03A4: 4C xx xx JMP KeyDoneEnd
858 Page0rightdone:
859 00:03A7: 4C xx xx JMP AddSubPage0
860 00:03AA: 4C xx xx JMP KeyDoneEnd
861 Page0Add:
862 00:03AD: A9 01 LDA #1
863 00:03AF: 8D xx xx STA PageNum
864 00:03B2: A2 00 ldx #000h
865 00:03B4: 20 xx xx JSR FillScreen
866 00:03B7: A9 01 LDA #1
867 00:03B9: 8D xx xx STA Page1Menu
868 00:03BC: 87 xx SMB0 <KeyFlag
869 00:03BE: 4C xx xx JMP KeyDoneEnd
870 Page0Sub:
871 00:03C1: 87 xx SMB0 <KeyFlag
872 00:03C3: 4C xx xx JMP KeyDoneEnd
873
874 Page0upkeydone:
875 00:03C6: 87 xx SMB0 <KeyFlag
876 00:03C8: AD xx xx LDA Page0Menu
877 00:03CB: C9 03 CMP #3
878 00:03CD: F0 12 BEQ Page0upkeydone1
879 00:03CF: 20 xx xx JSR JugeBlackPage0
880 00:03D2: 20 xx xx JSR ClerRow
881 00:03D5: EE xx xx INC Page0Menu
882 00:03D8: 20 xx xx JSR JugeBlackPage0
883 00:03DB: 4C xx xx JMP KeyDoneEnd
884 Page0upkeydoneEnd:
885 00:03DE: 4C xx xx JMP KeyDoneEnd
886 Page0upkeydone1:
887 00:03E1: A9 01 LDA #1
888 00:03E3: 8D xx xx STA PageNum
889 00:03E6: A2 00 LDX #0
890 00:03E8: 20 xx xx JSR FillScreen
891 00:03EB: A9 01 LDA #1
892 00:03ED: 8D xx xx STA Page1Menu
893 00:03F0: 4C xx xx JMP Page0upkeydoneEnd
894 Page0downkeydone:
895 00:03F3: 87 xx SMB0 <KeyFlag
896 00:03F5: AD xx xx LDA Page0Menu
897 00:03F8: C9 01 CMP #1
898 00:03FA: F0 0E BEQ Page0downkeydoneEnd
899 00:03FC: 20 xx xx JSR JugeBlackPage0
900 00:03FF: 20 xx xx JSR ClerRow
901 00:0402: CE xx xx DEC Page0Menu
902 00:0405: 20 xx xx JSR JugeBlackPage0
903 00:0408: 87 xx SMB0 <KeyFlag
904 Page0downkeydoneEnd:
905 00:040A: 4C xx xx JMP KeyDoneEnd
906 AddSubPage0:
907 00:040D: AD xx xx LDA Page0Menu
908 00:0410: C9 01 CMP #1
909 00:0412: F0 68 BEQ AddPlayMeth
910 00:0414: C9 02 CMP #2
911 00:0416: F0 05 BEQ AddProSelecPR
912 00:0418: C9 03 CMP #3
913 00:041A: F0 04 BEQ AddFobidSelecPR
914 00:041C: 60 RTS
915 AddProSelecPR:
916 00:041D: 4C xx xx JMP AddProSelec
917 AddFobidSelecPR:
918 00:0420: 4C xx xx JMP AddFobidSelec
919 AddSSubPage0:
920 00:0423: AD xx xx LDA Page0Menu
921 00:0426: C9 01 CMP #1
922 00:0428: F0 09 BEQ SubPlayMethPR
923 00:042A: C9 02 CMP #2
924 00:042C: F0 08 BEQ SubProSelecPR
925 00:042E: C9 03 CMP #3
926 00:0430: F0 07 BEQ SubFobidSelecPR
927 00:0432: 60 RTS
928 SubPlayMethPR:
929 00:0433: 4C xx xx JMP SubPlayMeth
930 SubProSelecPR:
931 00:0436: 4C xx xx JMP SubProSelec
932 SubFobidSelecPR:
933 00:0439: 4C xx xx JMP SubFobidSelec
934 Page0enterdone:
935 00:043C: 97 xx SMB1 <SystemFlag
936 00:043E: 87 xx SMB0 <KeyFlag
937 00:0440: 4C xx xx JMP KeyDoneEnd
938 Page0canceldone:
939 00:0443: 17 xx RMB1 <SystemFlag
940 00:0445: 87 xx SMB0 <KeyFlag
941 00:0447: 4C xx xx JMP KeyDoneEnd
942 ClerRow:
943 00:044A: AD xx xx LDA Page0Menu
944 00:044D: C9 01 CMP #1
945 00:044F: F0 09 BEQ ClerRow1
946 00:0451: C9 02 CMP #2
947 00:0453: F0 0F BEQ ClerRow2
948 00:0455: C9 03 CMP #3
949 00:0457: F0 17 BEQ ClerRow3
950 00:0459: 60 RTS
951 ClerRow1:
952 00:045A: 9C xx xx STZ LCDX
953 00:045D: 9C xx xx STZ LCDY
954 00:0460: 20 xx xx JSR CLS_CHAR12x12
955 00:0463: 60 RTS
956 ClerRow2:
957 00:0464: 9C xx xx STZ LCDX
958 00:0467: A9 05 LDA #5
959 00:0469: 8D xx xx STA LCDY
960 00:046C: 20 xx xx JSR CLS_CHAR12x12
961 00:046F: 60 RTS
962 ClerRow3:
963 00:0470: 9C xx xx STZ LCDX
964 00:0473: A9 06 LDA #6
965 00:0475: 8D xx xx STA LCDY
966 00:0478: 20 xx xx JSR CLS_CHAR12x12
967 00:047B: 60 RTS
968 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
969 ;增加牌张数
970 ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
971 AddPlayMeth:
972 00:047C: AD xx xx LDA CardNumKind ;牌张数⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -