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

📄 电子琴.lst

📁 飞思卡尔的电子钟和电子琴的课程设计,包括源代码
💻 LST
📖 第 1 页 / 共 2 页
字号:
    8237 AB 02        add	#2
    8239 E7 03        stA	3,X
    823B 20 21        bra	0x825E
    823D E6 06        ldA	6,X
    823F A1 B0        cmp	#-80
    8241 26 13        bne	0x8256
    8243 E6 05        ldA	5,X
    8245 AE 03        ldX	#3
    8247 42           mul	
    8248 95           tSX	
    8249 AB 03        add	#3
    824B E7 03        stA	3,X
    824D 20 0F        bra	0x825E
    824F E6 04        ldA	4,X
    8251 48           lslA	
    8252 AA 01        orA	#1
    8254 E7 04        stA	4,X
    8256 6C 05        inc	5,X
    8258 E6 05        ldA	5,X
    825A A1 03        cmp	#3
    825C 25 9B        bcs	0x81F9
    825E E6 03        ldA	3,X
    8260 AB 0A        add	#10
    8262 EB 02        add	2,X
    8264 E0 01        sub	1,X
    8266 E7 03        stA	3,X
    8268 AE 0A        ldX	#10
    826A 8C           clrH	
    826B 52           div	
    826C 8B           pshH	
    826D 86           pulA	
    826E 95           tSX	
    826F 4D           tstA	
    8270 26 04        bne	0x8276
    8272 A6 FF        ldA	#-1
    8274 E7 03        stA	3,X
    8276 E6 03        ldA	3,X
    8278 A7 07        aiS	#7
    827A 81           rts	
_KB_ScanD:
    827B A7 FA        aiS	#-6
    827D 95           tSX	
    827E A6 FF        ldA	#-1
    8280 F7           stA	0,X
    8281 A6 FE        ldA	#-2
    8283 E7 02        stA	2,X
    8285 6F 03        clr	3,X
    8287 CC 8319      jmp	0x8319
    828A B6 00        ldA	0x00
    828C E7 05        stA	5,X
    828E AA 0F        orA	#15
    8290 E7 05        stA	5,X
    8292 E4 02        and	2,X
    8294 E7 05        stA	5,X
    8296 A4 F7        and	#-9
    8298 B7 00        stA	0x00
    829A 9D           nop	
    829B 9D           nop	
    829C B6 00        ldA	0x00
    829E E7 04        stA	4,X
    82A0 A4 F0        and	#-16
    82A2 E7 04        stA	4,X
    82A4 A1 F0        cmp	#-16
    82A6 26 03        bne	0x82AB
    82A8 CC 8310      jmp	0x8310
    82AB E6 05        ldA	5,X
    82AD B7 00        stA	0x00
    82AF 9D           nop	
    82B0 9D           nop	
    82B1 B6 00        ldA	0x00
    82B3 E7 01        stA	1,X
    82B5 A4 F0        and	#-16
    82B7 E7 01        stA	1,X
    82B9 A1 F0        cmp	#-16
    82BB 26 5A        bne	0x8317
    82BD E6 05        ldA	5,X
    82BF A4 F7        and	#-9
    82C1 E7 05        stA	5,X
    82C3 6E 0140      mov	#1,*__r0
    82C6 E6 03        ldA	3,X
    82C8 A4 07        and	#7
    82CA 27 04        beq	0x82D0
    82CC 38 40        lsl	*__r0
    82CE 4B FC        dbnzA	0x8310
    82D0 E6 05        ldA	5,X
    82D2 BA 40        orA	*__r0
    82D4 E7 05        stA	5,X
    82D6 B7 00        stA	0x00
    82D8 9D           nop	
    82D9 9D           nop	
    82DA B6 00        ldA	0x00
    82DC E7 05        stA	5,X
    82DE A4 F0        and	#-16
    82E0 E7 05        stA	5,X
    82E2 A1 FF        cmp	#-1
    82E4 26 31        bne	0x8317
    82E6 E6 04        ldA	4,X
    82E8 A1 E0        cmp	#-32
    82EA 26 0B        bne	0x82F7
    82EC E6 03        ldA	3,X
    82EE AE 03        ldX	#3
    82F0 42           mul	
    82F1 95           tSX	
    82F2 AB 01        add	#1
    82F4 F7           stA	0,X
    82F5 20 2B        bra	0x8322
    82F7 E6 03        ldA	3,X
    82F9 A1 02        cmp	#2
    82FB 26 02        bne	0x82FF
    82FD 20 23        bra	0x8322
    82FF E6 04        ldA	4,X
    8301 A1 D0        cmp	#-48
    8303 26 12        bne	0x8317
    8305 E6 03        ldA	3,X
    8307 AE 03        ldX	#3
    8309 42           mul	
    830A 95           tSX	
    830B AB 16        add	#22
    830D F7           stA	0,X
    830E 20 12        bra	0x8322
    8310 E6 02        ldA	2,X
    8312 48           lslA	
    8313 AA 01        orA	#1
    8315 E7 02        stA	2,X
    8317 6C 03        inc	3,X
    8319 E6 03        ldA	3,X
    831B A1 03        cmp	#3
    831D 24 03        bcc	0x8322
    831F CC 828A      jmp	0x828A
    8322 F6           ldA	0,X
    8323 A7 06        aiS	#6
    8325 81           rts	
chng_sign:
    8326 4F           clrA	
    8327 E0 03        sub	3,X
    8329 E7 03        stA	3,X
    832B 4F           clrA	
    832C E2 02        sbc	2,X
    832E E7 02        stA	2,X
    8330 4F           clrA	
    8331 E2 01        sbc	1,X
    8333 E7 01        stA	1,X
    8335 4F           clrA	
    8336 E2 00        sbc	0,X
    8338 E7 00        stA	0,X
    833A 81           rts	
__divmod32s:
__divmods_32X32_32:
    833B 89           pshX	
    833C 8B           pshH	
    833D A7 F7        aiS	#-9
    833F 95           tSX	
    8340 6F 08        clr	8,X
    8342 E6 14        ldA	20,X
    8344 E7 07        stA	7,X
    8346 E6 13        ldA	19,X
    8348 E7 06        stA	6,X
    834A E6 12        ldA	18,X
    834C E7 05        stA	5,X
    834E E6 11        ldA	17,X
    8350 E7 04        stA	4,X
    8352 2A 09        bpl	0x835D
    8354 A6 03        ldA	#3
    8356 E7 08        stA	8,X
    8358 AF 04        aiX	#4
    835A AD CA        bsr	0x8326
    835C 95           tSX	
    835D E6 10        ldA	16,X
    835F E7 03        stA	3,X
    8361 E6 0F        ldA	15,X
    8363 E7 02        stA	2,X
    8365 E6 0E        ldA	14,X
    8367 E7 01        stA	1,X
    8369 E6 0D        ldA	13,X
    836B E7 00        stA	0,X
    836D 2A 0A        bpl	0x8379
    836F A6 02        ldA	#2
    8371 E8 08        eor	8,X
    8373 E7 08        stA	8,X
    8375 AF 00        aiX	#0
    8377 AD AD        bsr	0x8326
    8379 AD 3D        bsr	0x83B8
    837B 95           tSX	
    837C E6 07        ldA	7,X
    837E E7 14        stA	20,X
    8380 E6 06        ldA	6,X
    8382 E7 13        stA	19,X
    8384 E6 05        ldA	5,X
    8386 E7 12        stA	18,X
    8388 E6 04        ldA	4,X
    838A E7 11        stA	17,X
    838C E6 03        ldA	3,X
    838E E7 10        stA	16,X
    8390 E6 02        ldA	2,X
    8392 E7 0F        stA	15,X
    8394 E6 01        ldA	1,X
    8396 E7 0E        stA	14,X
    8398 E6 00        ldA	0,X
    839A E7 0D        stA	13,X
    839C E6 08        ldA	8,X
    839E A5 02        bit	#2
    83A0 27 06        beq	0x83A8
    83A2 AF 11        aiX	#17
    83A4 CD 8326      jsr	chng_sign
    83A7 95           tSX	
    83A8 E6 08        ldA	8,X
    83AA A5 01        bit	#1
    83AC 27 05        beq	0x83B3
    83AE AF 0D        aiX	#13
    83B0 CD 8326      jsr	chng_sign
    83B3 A7 09        aiS	#9
    83B5 8A           pulH	
    83B6 88           pulX	
    83B7 81           rts	
__divmodu_32X32_32:
__divmod32u:
    83B8 89           pshX	
    83B9 8B           pshH	
    83BA A7 FB        aiS	#-5
    83BC 95           tSX	
    83BD 6F 01        clr	1,X
    83BF 6F 02        clr	2,X
    83C1 6F 03        clr	3,X
    83C3 6F 04        clr	4,X
    83C5 A6 20        ldA	#32
    83C7 E7 00        stA	0,X
    83C9 68 10        lsl	16,X
    83CB 69 0F        rol	15,X
    83CD 69 0E        rol	14,X
    83CF 69 0D        rol	13,X
    83D1 69 04        rol	4,X
    83D3 69 03        rol	3,X
    83D5 69 02        rol	2,X
    83D7 69 01        rol	1,X
    83D9 24 1A        bcc	0x83F5
    83DB E6 04        ldA	4,X
    83DD EB 0C        add	12,X
    83DF E7 04        stA	4,X
    83E1 E6 03        ldA	3,X
    83E3 E9 0B        adc	11,X
    83E5 E7 03        stA	3,X
    83E7 E6 02        ldA	2,X
    83E9 E9 0A        adc	10,X
    83EB E7 02        stA	2,X
    83ED E6 01        ldA	1,X
    83EF E9 09        adc	9,X
    83F1 E7 01        stA	1,X
    83F3 20 18        bra	0x840D
    83F5 E6 04        ldA	4,X
    83F7 E0 0C        sub	12,X
    83F9 E7 04        stA	4,X
    83FB E6 03        ldA	3,X
    83FD E2 0B        sbc	11,X
    83FF E7 03        stA	3,X
    8401 E6 02        ldA	2,X
    8403 E2 0A        sbc	10,X
    8405 E7 02        stA	2,X
    8407 E6 01        ldA	1,X
    8409 E2 09        sbc	9,X
    840B E7 01        stA	1,X
    840D 2B 06        bmi	0x8415
    840F A6 01        ldA	#1
    8411 EA 10        orA	16,X
    8413 E7 10        stA	16,X
    8415 6A 00        dec	0,X
    8417 26 B0        bne	0x83C9
    8419 6D 01        tst	1,X
    841B 2A 18        bpl	0x8435
    841D E6 04        ldA	4,X
    841F EB 0C        add	12,X
    8421 E7 04        stA	4,X
    8423 E6 03        ldA	3,X
    8425 E9 0B        adc	11,X
    8427 E7 03        stA	3,X
    8429 E6 02        ldA	2,X
    842B E9 0A        adc	10,X
    842D E7 02        stA	2,X
    842F E6 01        ldA	1,X
    8431 E9 09        adc	9,X
    8433 E7 01        stA	1,X
    8435 E6 01        ldA	1,X
    8437 E7 09        stA	9,X
    8439 E6 02        ldA	2,X
    843B E7 0A        stA	10,X
    843D E6 03        ldA	3,X
    843F E7 0B        stA	11,X
    8441 E6 04        ldA	4,X
    8443 E7 0C        stA	12,X
    8445 A7 05        aiS	#5
    8447 8A           pulH	
    8448 88           pulX	
    8449 81           rts	

⌨️ 快捷键说明

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