📄 电子琴.lst
字号:
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 + -