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

📄 dzq.lst

📁 基于HC908GP32的电子琴程序
💻 LST
📖 第 1 页 / 共 4 页
字号:
    82D5 A7 02        aiS	#2
    82D7 95           tSX	
    82D8 20 02        bra	0x82DC
    82DA 1A 20        Bset	5,0x20
    82DC CC 8060      jmp	0x8060
    82DF A7 02        aiS	#2
    82E1 81           rts	
_Delay_ms:
    82E2 A7 FE        aiS	#-2
    82E4 95           tSX	
    82E5 7F           clr	0,X
    82E6 20 0D        bra	0x82F5
    82E8 6F 01        clr	1,X
    82EA 20 02        bra	0x82EE
    82EC 6C 01        inc	1,X
    82EE E6 01        ldA	1,X
    82F0 A1 FA        cmp	#-6
    82F2 23 F8        bls	0x82EC
    82F4 7C           inc	0,X
    82F5 F6           ldA	0,X
    82F6 E1 04        cmp	4,X
    82F8 25 EE        bcs	0x82E8
    82FA A7 02        aiS	#2
    82FC 81           rts	
_PWMconf:
    82FD A7 FA        aiS	#-6
    82FF 95           tSX	
    8300 3F 41        clr	*__r1
    8302 3F 40        clr	*__r0
    8304 E6 09        ldA	9,X
    8306 B7 43        stA	*__r3
    8308 E6 08        ldA	8,X
    830A B7 42        stA	*__r2
    830C 4F           clrA	
    830D 87           pshA	
    830E A6 96        ldA	#-106
    8310 87           pshA	
    8311 4F           clrA	
    8312 87           pshA	
    8313 87           pshA	
    8314 B6 43        ldA	*__r3
    8316 87           pshA	
    8317 B6 42        ldA	*__r2
    8319 87           pshA	
    831A B6 41        ldA	*__r1
    831C 87           pshA	
    831D B6 40        ldA	*__r0
    831F 87           pshA	
    8320 CD 89C7      jsr	__divmods_32X32_32
    8323 A7 04        aiS	#4
    8325 86           pulA	
    8326 86           pulA	
    8327 86           pulA	
    8328 B7 42        stA	*__r2
    832A 86           pulA	
    832B B7 41        stA	*__r1
    832D B6 42        ldA	*__r2
    832F E7 04        stA	4,X
    8331 B6 41        ldA	*__r1
    8333 E7 05        stA	5,X
    8335 87           pshA	
    8336 E6 04        ldA	4,X
    8338 87           pshA	
    8339 CD 8447      jsr	_PWMInit
    833C A7 02        aiS	#2
    833E 95           tSX	
    833F E6 05        ldA	5,X
    8341 A4 01        and	#1
    8343 B7 41        stA	*__r1
    8345 4F           clrA	
    8346 B7 40        stA	*__r0
    8348 B6 41        ldA	*__r1
    834A 87           pshA	
    834B B6 40        ldA	*__r0
    834D 87           pshA	
    834E 4F           clrA	
    834F 87           pshA	
    8350 87           pshA	
    8351 9E6D 03      tst	3,S
    8354 2A 06        bpl	0x835C
    8356 9E63 02      com	2,S
    8359 9E63 01      com	1,S
    835C CD 879A      jsr	__long_to_SPfloat
    835F 86           pulA	
    8360 B7 40        stA	*__r0
    8362 86           pulA	
    8363 B7 41        stA	*__r1
    8365 86           pulA	
    8366 B7 42        stA	*__r2
    8368 86           pulA	
    8369 B7 43        stA	*__r3
    836B E6 05        ldA	5,X
    836D B7 45        stA	*__r5
    836F E6 04        ldA	4,X
    8371 B7 44        stA	*__r4
    8373 34 44        lsr	*__r4
    8375 36 45        ror	*__r5
    8377 B6 45        ldA	*__r5
    8379 87           pshA	
    837A B6 44        ldA	*__r4
    837C 87           pshA	
    837D 4F           clrA	
    837E 87           pshA	
    837F 87           pshA	
    8380 9E6D 03      tst	3,S
    8383 2A 06        bpl	0x838B
    8385 9E63 02      com	2,S
    8388 9E63 01      com	1,S
    838B CD 879A      jsr	__long_to_SPfloat
    838E 4F           clrA	
    838F 87           pshA	
    8390 87           pshA	
    8391 87           pshA	
    8392 A6 40        ldA	#64
    8394 87           pshA	
    8395 CD 8802      jsr	__SPFloat_mul
    8398 A7 04        aiS	#4
    839A B6 43        ldA	*__r3
    839C 87           pshA	
    839D B6 42        ldA	*__r2
    839F 87           pshA	
    83A0 B6 41        ldA	*__r1
    83A2 87           pshA	
    83A3 B6 40        ldA	*__r0
    83A5 87           pshA	
    83A6 CD 8599      jsr	__SPFloat_add
    83A9 A7 04        aiS	#4
    83AB A6 9A        ldA	#-102
    83AD 87           pshA	
    83AE A6 99        ldA	#-103
    83B0 87           pshA	
    83B1 87           pshA	
    83B2 A6 3F        ldA	#63
    83B4 87           pshA	
    83B5 CD 8691      jsr	__SPFloat_div
    83B8 A7 04        aiS	#4
    83BA 86           pulA	
    83BB B7 40        stA	*__r0
    83BD 86           pulA	
    83BE B7 41        stA	*__r1
    83C0 86           pulA	
    83C1 B7 42        stA	*__r2
    83C3 86           pulA	
    83C4 B7 43        stA	*__r3
    83C6 87           pshA	
    83C7 B6 42        ldA	*__r2
    83C9 87           pshA	
    83CA B6 41        ldA	*__r1
    83CC 87           pshA	
    83CD B6 40        ldA	*__r0
    83CF 87           pshA	
    83D0 4F           clrA	
    83D1 87           pshA	
    83D2 87           pshA	
    83D3 87           pshA	
    83D4 A6 47        ldA	#71
    83D6 87           pshA	
    83D7 CD 8630      jsr	__SPFloat_cmp_s
    83DA A7 08        aiS	#8
    83DC 91 2C        blt	0x840A
    83DE B6 43        ldA	*__r3
    83E0 87           pshA	
    83E1 B6 42        ldA	*__r2
    83E3 87           pshA	
    83E4 B6 41        ldA	*__r1
    83E6 87           pshA	
    83E7 B6 40        ldA	*__r0
    83E9 87           pshA	
    83EA 4F           clrA	
    83EB 87           pshA	
    83EC 87           pshA	
    83ED 87           pshA	
    83EE A6 47        ldA	#71
    83F0 87           pshA	
    83F1 CD 8587      jsr	__SPFloat_sub
    83F4 A7 04        aiS	#4
    83F6 CD 8509      jsr	__SPFloat_to_long
    83F9 A7 02        aiS	#2
    83FB 86           pulA	
    83FC B7 44        stA	*__r4
    83FE 86           pulA	
    83FF AB 00        add	#0
    8401 E7 01        stA	1,X
    8403 B6 44        ldA	*__r4
    8405 A9 80        adc	#-128
    8407 F7           stA	0,X
    8408 20 1E        bra	0x8428
    840A B6 43        ldA	*__r3
    840C 87           pshA	
    840D B6 42        ldA	*__r2
    840F 87           pshA	
    8410 B6 41        ldA	*__r1
    8412 87           pshA	
    8413 B6 40        ldA	*__r0
    8415 87           pshA	
    8416 CD 8509      jsr	__SPFloat_to_long
    8419 A7 02        aiS	#2
    841B 86           pulA	
    841C B7 40        stA	*__r0
    841E 86           pulA	
    841F B7 41        stA	*__r1
    8421 B6 40        ldA	*__r0
    8423 F7           stA	0,X
    8424 B6 41        ldA	*__r1
    8426 E7 01        stA	1,X
    8428 F6           ldA	0,X
    8429 E7 02        stA	2,X
    842B E6 01        ldA	1,X
    842D E7 03        stA	3,X
    842F 1A 20        Bset	5,0x20
    8431 E6 02        ldA	2,X
    8433 B7 26        stA	0x26
    8435 E6 03        ldA	3,X
    8437 B7 27        stA	0x27
    8439 1B 20        Bclr	5,0x20
    843B A6 BE        ldA	#-66
    843D 87           pshA	
    843E CD 82E2      jsr	_Delay_ms
    8441 A7 01        aiS	#1
    8443 95           tSX	
    8444 A7 06        aiS	#6
    8446 81           rts	
_PWMInit:
    8447 A7 FE        aiS	#-2
    8449 95           tSX	
    844A E6 04        ldA	4,X
    844C F7           stA	0,X
    844D E6 05        ldA	5,X
    844F E7 01        stA	1,X
    8451 A6 36        ldA	#54
    8453 B7 20        stA	0x20
    8455 F6           ldA	0,X
    8456 B7 23        stA	0x23
    8458 E6 05        ldA	5,X
    845A B7 24        stA	0x24
    845C 3F 26        clr	0x26
    845E 3F 27        clr	0x27
    8460 A6 1E        ldA	#30
    8462 B7 25        stA	0x25
    8464 B6 20        ldA	0x20
    8466 A4 DF        and	#-33
    8468 B7 20        stA	0x20
    846A A7 02        aiS	#2
    846C 81           rts	
_isrDummy:
    846D 8B           pshH	
    846E 8A           pulH	
    846F 80           rti	
_KB_Init:
    8470 3F 00        clr	0x00
    8472 A6 F0        ldA	#-16
    8474 B7 04        stA	0x04
    8476 A6 0F        ldA	#15
    8478 B7 0D        stA	0x0D
    847A 81           rts	
_KB_Scan1:
    847B A7 FD        aiS	#-3
    847D 95           tSX	
    847E A6 EF        ldA	#-17
    8480 F7           stA	0,X
    8481 A6 01        ldA	#1
    8483 E7 01        stA	1,X
    8485 20 26        bra	0x84AD
    8487 B6 00        ldA	0x00
    8489 E7 02        stA	2,X
    848B AA F0        orA	#-16
    848D E7 02        stA	2,X
    848F F4           and	0,X
    8490 B7 00        stA	0x00
    8492 9D           nop	
    8493 9D           nop	
    8494 B6 00        ldA	0x00
    8496 E7 02        stA	2,X
    8498 A4 0F        and	#15
    849A E7 02        stA	2,X
    849C A1 0F        cmp	#15
    849E 27 06        beq	0x84A6
    84A0 B6 00        ldA	0x00
    84A2 E7 02        stA	2,X
    84A4 20 0D        bra	0x84B3
    84A6 F6           ldA	0,X
    84A7 48           lslA	
    84A8 AA 01        orA	#1
    84AA F7           stA	0,X
    84AB 6C 01        inc	1,X
    84AD E6 01        ldA	1,X
    84AF A1 04        cmp	#4
    84B1 23 D4        bls	0x8487
    84B3 E6 01        ldA	1,X
    84B5 A1 05        cmp	#5
    84B7 26 04        bne	0x84BD
    84B9 A6 FF        ldA	#-1
    84BB E7 02        stA	2,X
    84BD E6 02        ldA	2,X
    84BF A7 03        aiS	#3
    84C1 81           rts	
_KB_Scan2:
    84C2 A7 FD        aiS	#-3
    84C4 95           tSX	
    84C5 A6 7F        ldA	#127
    84C7 F7           stA	0,X
    84C8 A6 01        ldA	#1
    84CA E7 01        stA	1,X
    84CC 20 26        bra	0x84F4
    84CE B6 00        ldA	0x00
    84D0 E7 02        stA	2,X
    84D2 AA F0        orA	#-16
    84D4 E7 02        stA	2,X
    84D6 F4           and	0,X
    84D7 B7 00        stA	0x00
    84D9 9D           nop	
    84DA 9D           nop	
    84DB B6 00        ldA	0x00
    84DD E7 02        stA	2,X
    84DF A4 0F        and	#15
    84E1 E7 02        stA	2,X
    84E3 A1 0F        cmp	#15
    84E5 27 06        beq	0x84ED
    84E7 B6 00        ldA	0x00
    84E9 E7 02        stA	2,X
    84EB 20 0D        bra	0x84FA
    84ED F6           ldA	0,X
    84EE 44           lsrA	
    84EF AB 80        add	#-128
    84F1 F7           stA	0,X
    84F2 6C 01        inc	1,X
    84F4 E6 01        ldA	1,X
    84F6 A1 04        cmp	#4
    84F8 23 D4        bls	0x84CE
    84FA E6 01        ldA	1,X
    84FC A1 05        cmp	#5
    84FE 26 04        bne	0x8504
    8500 A6 FF        ldA	#-1
    8502 E7 02        stA	2,X
    8504 E6 02        ldA	2,X
    8506 A7 03        aiS	#3
    8508 81           rts	
__SPFloat_to_long:
    8509 89           pshX	
    850A 8B           pshH	
    850B 95           tSX	
    850C AF 04        aiX	#4
    850E CD 8921      jsr	__tst_s32
    8511 27 71        beq	0x8584
    8513 E6 00        ldA	0,X
    8515 87           pshA	
    8516 68 01        lsl	1,X
    8518 69 00        rol	0,X
    851A E6 00        ldA	0,X
    851C A0 7F        sub	#127
    851E 87           pshA	
    851F 6F 00        clr	0,X
    8521 64 01        lsr	1,X
    8523 E6 01        ldA	1,X
    8525 AA 80        orA	#-128
    8527 E7 01        stA	1,X
    8529 86           pulA	
    852A 4D           tstA	
    852B 2B 17        bmi	0x8544
    852D A1 17        cmp	#23
    852F 25 1B        bcs	0x854C
    8531 27 36        beq	0x8569
    8533 A1 20        cmp	#32
    8535 25 25        bcs	0x855C
    8537 A6 FF        ldA	#-1
    8539 E7 01        stA	1,X
    853B E7 02        stA	2,X
    853D E7 03        stA	3,X
    853F 44           lsrA	
    8540 E7 00        stA	0,X
    8542 20 25        bra	0x8569
    8544 6F 01        clr	1,X

⌨️ 快捷键说明

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