⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dzq.lst

📁 基于HC908GP32的电子琴程序
💻 LST
📖 第 1 页 / 共 4 页
字号:
    8802 89           pshX	
    8803 8B           pshH	
    8804 A7 F9        aiS	#-7
    8806 95           tSX	
    8807 AF 0B        aiX	#11
    8809 CD 8921      jsr	__tst_s32
    880C 27 0B        beq	0x8819
    880E 95           tSX	
    880F AF 0F        aiX	#15
    8811 CD 8921      jsr	__tst_s32
    8814 26 12        bne	0x8828
    8816 CC 891C      jmp	0x891C
    8819 9E6F 10      clr	16,S
    881C 9E6F 11      clr	17,S
    881F 9E6F 12      clr	18,S
    8822 9E6F 13      clr	19,S
    8825 CC 891C      jmp	0x891C
    8828 9EE6 0C      ldA	12,S
    882B 9EE8 10      eor	16,S
    882E 9EE7 06      stA	6,S
    8831 95           tSX	
    8832 AF 0B        aiX	#11
    8834 CD 8956      jsr	unpack_u
    8837 9EE7 07      stA	7,S
    883A 95           tSX	
    883B AF 0F        aiX	#15
    883D CD 8956      jsr	unpack_u
    8840 9EE7 05      stA	5,S
    8843 9EE6 11      ldA	17,S
    8846 9EEE 0D      ldX	13,S
    8849 42           mul	
    884A 9EEF 01      stX	1,S
    884D 9EE7 02      stA	2,S
    8850 9EE6 13      ldA	19,S
    8853 9EEE 0D      ldX	13,S
    8856 42           mul	
    8857 9EEF 03      stX	3,S
    885A 9EE7 04      stA	4,S
    885D 9EE6 11      ldA	17,S
    8860 9EEE 0F      ldX	15,S
    8863 42           mul	
    8864 9EEB 04      add	4,S
    8867 9EE7 04      stA	4,S
    886A 9F           tXA	
    886B 9EE9 03      adc	3,S
    886E 9EE7 03      stA	3,S
    8871 4F           clrA	
    8872 9EE9 02      adc	2,S
    8875 9EE7 02      stA	2,S
    8878 4F           clrA	
    8879 9EE9 01      adc	1,S
    887C 9EE7 01      stA	1,S
    887F 9EE6 11      ldA	17,S
    8882 9EEE 0E      ldX	14,S
    8885 42           mul	
    8886 9EEB 03      add	3,S
    8889 9EE7 03      stA	3,S
    888C 9F           tXA	
    888D 9EE9 02      adc	2,S
    8890 9EE7 02      stA	2,S
    8893 4F           clrA	
    8894 9EE9 01      adc	1,S
    8897 9EE7 01      stA	1,S
    889A 9EE6 12      ldA	18,S
    889D 9EEE 0D      ldX	13,S
    88A0 42           mul	
    88A1 9EEB 03      add	3,S
    88A4 9EE7 03      stA	3,S
    88A7 9F           tXA	
    88A8 9EE9 02      adc	2,S
    88AB 9EE7 02      stA	2,S
    88AE 4F           clrA	
    88AF 9EE9 01      adc	1,S
    88B2 9EE7 01      stA	1,S
    88B5 9EE6 12      ldA	18,S
    88B8 9EEE 0E      ldX	14,S
    88BB 42           mul	
    88BC 9EEB 04      add	4,S
    88BF 9EE7 04      stA	4,S
    88C2 9F           tXA	
    88C3 9EE9 03      adc	3,S
    88C6 9EE7 03      stA	3,S
    88C9 4F           clrA	
    88CA 9EE9 02      adc	2,S
    88CD 9EE7 02      stA	2,S
    88D0 4F           clrA	
    88D1 9EE9 01      adc	1,S
    88D4 9EE7 01      stA	1,S
    88D7 9EE6 05      ldA	5,S
    88DA A0 7F        sub	#127
    88DC 9EEB 07      add	7,S
    88DF 9EE7 05      stA	5,S
    88E2 9E6D 01      tst	1,S
    88E5 2A 05        bpl	0x88EC
    88E7 9E6C 05      inc	5,S
    88EA 20 0C        bra	0x88F8
    88EC 9E68 04      lsl	4,S
    88EF 9E69 03      rol	3,S
    88F2 9E69 02      rol	2,S
    88F5 9E69 01      rol	1,S
    88F8 9E6F 10      clr	16,S
    88FB 9EE6 01      ldA	1,S
    88FE 9EE7 11      stA	17,S
    8901 9EE6 02      ldA	2,S
    8904 9EE7 12      stA	18,S
    8907 9EE6 03      ldA	3,S
    890A 9EE7 13      stA	19,S
    890D 95           tSX	
    890E 9EE6 06      ldA	6,S
    8911 87           pshA	
    8912 9EE6 06      ldA	6,S
    8915 AF 0F        aiX	#15
    8917 CD 896B      jsr	pack
    891A A7 01        aiS	#1
    891C A7 07        aiS	#7
    891E 8A           pulH	
    891F 88           pulX	
    8920 81           rts	
__tst_s32:
    8921 7D           tst	0,X
    8922 26 0A        bne	0x892E
    8924 6D 01        tst	1,X
    8926 26 06        bne	0x892E
    8928 6D 02        tst	2,X
    892A 26 02        bne	0x892E
    892C 6D 03        tst	3,X
    892E 81           rts	
unpack_s:
    892F F6           ldA	0,X
    8930 87           pshA	
    8931 AD 23        bsr	0x8956
    8933 87           pshA	
    8934 41 0019      cbeqA	#0,0x8950
    8937 9E6D 02      tst	2,S
    893A 2A 14        bpl	0x8950
    893C 4F           clrA	
    893D E0 03        sub	3,X
    893F E7 03        stA	3,X
    8941 4F           clrA	
    8942 E2 02        sbc	2,X
    8944 E7 02        stA	2,X
    8946 4F           clrA	
    8947 E2 01        sbc	1,X
    8949 E7 01        stA	1,X
    894B 4F           clrA	
    894C E2 00        sbc	0,X
    894E E7 00        stA	0,X
    8950 9EE6 01      ldA	1,S
    8953 A7 02        aiS	#2
    8955 81           rts	
unpack_u:
    8956 68 01        lsl	1,X
    8958 79           rol	0,X
    8959 F6           ldA	0,X
    895A 87           pshA	
    895B 7F           clr	0,X
    895C 64 01        lsr	1,X
    895E 9E6D 01      tst	1,S
    8961 27 06        beq	0x8969
    8963 E6 01        ldA	1,X
    8965 AA 80        orA	#-128
    8967 E7 01        stA	1,X
    8969 86           pulA	
    896A 81           rts	
pack:
    896B F7           stA	0,X
    896C 68 01        lsl	1,X
    896E 74           lsr	0,X
    896F 66 01        ror	1,X
    8971 9E6D 03      tst	3,S
    8974 2A 04        bpl	0x897A
    8976 F6           ldA	0,X
    8977 AA 80        orA	#-128
    8979 F7           stA	0,X
    897A 81           rts	
normalize:
    897B 87           pshA	
    897C CD 8921      jsr	__tst_s32
    897F 26 04        bne	0x8985
    8981 86           pulA	
    8982 4F           clrA	
    8983 20 2C        bra	0x89B1
    8985 86           pulA	
    8986 7D           tst	0,X
    8987 27 0A        beq	0x8993
    8989 74           lsr	0,X
    898A 66 01        ror	1,X
    898C 66 02        ror	2,X
    898E 66 03        ror	3,X
    8990 4C           incA	
    8991 20 F3        bra	0x8986
    8993 6D 01        tst	1,X
    8995 2B 09        bmi	0x89A0
    8997 68 03        lsl	3,X
    8999 69 02        rol	2,X
    899B 69 01        rol	1,X
    899D 4A           decA	
    899E 20 F3        bra	0x8993
    89A0 F7           stA	0,X
    89A1 69 01        rol	1,X
    89A3 74           lsr	0,X
    89A4 66 01        ror	1,X
    89A6 9E6D 03      tst	3,S
    89A9 2A 04        bpl	0x89AF
    89AB A6 80        ldA	#-128
    89AD FA           orA	0,X
    89AE F7           stA	0,X
    89AF A6 01        ldA	#1
    89B1 81           rts	
chng_sign:
    89B2 4F           clrA	
    89B3 E0 03        sub	3,X
    89B5 E7 03        stA	3,X
    89B7 4F           clrA	
    89B8 E2 02        sbc	2,X
    89BA E7 02        stA	2,X
    89BC 4F           clrA	
    89BD E2 01        sbc	1,X
    89BF E7 01        stA	1,X
    89C1 4F           clrA	
    89C2 E2 00        sbc	0,X
    89C4 E7 00        stA	0,X
    89C6 81           rts	
__divmods_32X32_32:
__divmod32s:
    89C7 89           pshX	
    89C8 8B           pshH	
    89C9 A7 F7        aiS	#-9
    89CB 95           tSX	
    89CC 6F 08        clr	8,X
    89CE E6 14        ldA	20,X
    89D0 E7 07        stA	7,X
    89D2 E6 13        ldA	19,X
    89D4 E7 06        stA	6,X
    89D6 E6 12        ldA	18,X
    89D8 E7 05        stA	5,X
    89DA E6 11        ldA	17,X
    89DC E7 04        stA	4,X
    89DE 2A 09        bpl	0x89E9
    89E0 A6 03        ldA	#3
    89E2 E7 08        stA	8,X
    89E4 AF 04        aiX	#4
    89E6 AD CA        bsr	0x89B2
    89E8 95           tSX	
    89E9 E6 10        ldA	16,X
    89EB E7 03        stA	3,X
    89ED E6 0F        ldA	15,X
    89EF E7 02        stA	2,X
    89F1 E6 0E        ldA	14,X
    89F3 E7 01        stA	1,X
    89F5 E6 0D        ldA	13,X
    89F7 E7 00        stA	0,X
    89F9 2A 0A        bpl	0x8A05
    89FB A6 02        ldA	#2
    89FD E8 08        eor	8,X
    89FF E7 08        stA	8,X
    8A01 AF 00        aiX	#0
    8A03 AD AD        bsr	0x89B2
    8A05 AD 3D        bsr	0x8A44
    8A07 95           tSX	
    8A08 E6 07        ldA	7,X
    8A0A E7 14        stA	20,X
    8A0C E6 06        ldA	6,X
    8A0E E7 13        stA	19,X
    8A10 E6 05        ldA	5,X
    8A12 E7 12        stA	18,X
    8A14 E6 04        ldA	4,X
    8A16 E7 11        stA	17,X
    8A18 E6 03        ldA	3,X
    8A1A E7 10        stA	16,X
    8A1C E6 02        ldA	2,X
    8A1E E7 0F        stA	15,X
    8A20 E6 01        ldA	1,X
    8A22 E7 0E        stA	14,X
    8A24 E6 00        ldA	0,X
    8A26 E7 0D        stA	13,X
    8A28 E6 08        ldA	8,X
    8A2A A5 02        bit	#2
    8A2C 27 06        beq	0x8A34
    8A2E AF 11        aiX	#17
    8A30 CD 89B2      jsr	chng_sign
    8A33 95           tSX	
    8A34 E6 08        ldA	8,X
    8A36 A5 01        bit	#1
    8A38 27 05        beq	0x8A3F
    8A3A AF 0D        aiX	#13
    8A3C CD 89B2      jsr	chng_sign
    8A3F A7 09        aiS	#9
    8A41 8A           pulH	
    8A42 88           pulX	
    8A43 81           rts	
__divmodu_32X32_32:
__divmod32u:
    8A44 89           pshX	
    8A45 8B           pshH	
    8A46 A7 FB        aiS	#-5
    8A48 95           tSX	
    8A49 6F 01        clr	1,X
    8A4B 6F 02        clr	2,X
    8A4D 6F 03        clr	3,X
    8A4F 6F 04        clr	4,X
    8A51 A6 20        ldA	#32
    8A53 E7 00        stA	0,X
    8A55 68 10        lsl	16,X
    8A57 69 0F        rol	15,X
    8A59 69 0E        rol	14,X
    8A5B 69 0D        rol	13,X
    8A5D 69 04        rol	4,X
    8A5F 69 03        rol	3,X
    8A61 69 02        rol	2,X
    8A63 69 01        rol	1,X
    8A65 24 1A        bcc	0x8A81
    8A67 E6 04        ldA	4,X
    8A69 EB 0C        add	12,X
    8A6B E7 04        stA	4,X
    8A6D E6 03        ldA	3,X
    8A6F E9 0B        adc	11,X
    8A71 E7 03        stA	3,X
    8A73 E6 02        ldA	2,X
    8A75 E9 0A        adc	10,X
    8A77 E7 02        stA	2,X
    8A79 E6 01        ldA	1,X
    8A7B E9 09        adc	9,X
    8A7D E7 01        stA	1,X
    8A7F 20 18        bra	0x8A99
    8A81 E6 04        ldA	4,X
    8A83 E0 0C        sub	12,X
    8A85 E7 04        stA	4,X
    8A87 E6 03        ldA	3,X
    8A89 E2 0B        sbc	11,X
    8A8B E7 03        stA	3,X
    8A8D E6 02        ldA	2,X
    8A8F E2 0A        sbc	10,X
    8A91 E7 02        stA	2,X
    8A93 E6 01        ldA	1,X
    8A95 E2 09        sbc	9,X
    8A97 E7 01        stA	1,X
    8A99 2B 06        bmi	0x8AA1
    8A9B A6 01        ldA	#1
    8A9D EA 10        orA	16,X
    8A9F E7 10        stA	16,X
    8AA1 6A 00        dec	0,X
    8AA3 26 B0        bne	0x8A55
    8AA5 6D 01        tst	1,X
    8AA7 2A 18        bpl	0x8AC1
    8AA9 E6 04        ldA	4,X
    8AAB EB 0C        add	12,X
    8AAD E7 04        stA	4,X
    8AAF E6 03        ldA	3,X
    8AB1 E9 0B        adc	11,X
    8AB3 E7 03        stA	3,X
    8AB5 E6 02        ldA	2,X
    8AB7 E9 0A        adc	10,X
    8AB9 E7 02        stA	2,X
    8ABB E6 01        ldA	1,X
    8ABD E9 09        adc	9,X
    8ABF E7 01        stA	1,X
    8AC1 E6 01        ldA	1,X
    8AC3 E7 09        stA	9,X
    8AC5 E6 02        ldA	2,X
    8AC7 E7 0A        stA	10,X
    8AC9 E6 03        ldA	3,X
    8ACB E7 0B        stA	11,X
    8ACD E6 04        ldA	4,X
    8ACF E7 0C        stA	12,X
    8AD1 A7 05        aiS	#5
    8AD3 8A           pulH	
    8AD4 88           pulX	
    8AD5 81           rts	

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -