📄 电子琴.lst
字号:
NO DEBUG INFORMATION AVAILABLE!
__start:
__text_start:
8038 45 0240 ldHX #0x0240
803B 94 tXS
803C CD 806D jsr __HC08Setup
803F 45 0044 ldHX #0x0044
8042 65 0044 cpHX #0x0044
8045 27 06 beq 0x804D
8047 6F 00 clr 0,X
8049 AF 01 aiX #1
804B 20 F5 bra 0x8042
804D 45 0045 ldHX #0x0045
8050 94 tXS
8051 45 8038 ldHX #0x8038
8054 65 8038 cpHX #0x8038
8057 27 0B beq 0x8064
8059 E6 00 ldA 0,X
805B 9EE7 00 stA 0,S
805E AF 01 aiX #1
8060 A7 01 aiS #1
8062 20 F0 bra 0x8054
8064 45 0240 ldHX #0x0240
8067 94 tXS
8068 CD 8092 jsr _main
_exit:
806B 20 FE bra 0x806B
__HC08Setup:
806D A6 01 ldA #1
806F B7 1E stA 0x1E
8071 A6 3D ldA #61
8073 B7 1F stA 0x1F
8075 3F 36 clr 0x36
8077 A6 01 ldA #1
8079 B7 36 stA 0x36
807B A6 01 ldA #1
807D B7 38 stA 0x38
807F A6 2C ldA #44
8081 B7 39 stA 0x39
8083 A6 80 ldA #-128
8085 B7 3A stA 0x3A
8087 A6 01 ldA #1
8089 B7 3B stA 0x3B
808B 1A 36 Bset 5,0x36
808D 1E 37 Bset 7,0x37
808F 18 36 Bset 4,0x36
8091 81 rts
_main:
8092 A7 FF aiS #-1
8094 95 tSX
8095 A6 FF ldA #-1
8097 B7 07 stA 0x07
8099 A6 FF ldA #-1
809B B7 05 stA 0x05
809D A6 0F ldA #15
809F B7 01 stA 0x01
80A1 9A clI
80A2 20 24 bra 0x80C8
80A4 CD 81B4 jsr _KB_Scan
80A7 95 tSX
80A8 B7 41 stA *__r1
80AA F7 stA 0,X
80AB A1 FF cmp #-1
80AD 26 07 bne 0x80B6
80AF CD 827B jsr _KB_ScanD
80B2 95 tSX
80B3 B7 41 stA *__r1
80B5 F7 stA 0,X
80B6 F6 ldA 0,X
80B7 43 comA
80B8 B7 01 stA 0x01
80BA 3F 03 clr 0x03
80BC F6 ldA 0,X
80BD A1 FF cmp #-1
80BF 26 07 bne 0x80C8
80C1 87 pshA
80C2 CD 80E8 jsr _operate
80C5 A7 01 aiS #1
80C7 95 tSX
80C8 20 DA bra 0x80A4
80CA A7 01 aiS #1
80CC 81 rts
_Delay_ms:
80CD A7 FE aiS #-2
80CF 95 tSX
80D0 7F clr 0,X
80D1 20 0D bra 0x80E0
80D3 6F 01 clr 1,X
80D5 20 02 bra 0x80D9
80D7 6C 01 inc 1,X
80D9 E6 01 ldA 1,X
80DB A1 FA cmp #-6
80DD 23 F8 bls 0x80D7
80DF 7C inc 0,X
80E0 F6 ldA 0,X
80E1 E1 04 cmp 4,X
80E3 25 EE bcs 0x80D3
80E5 A7 02 aiS #2
80E7 81 rts
_operate:
80E8 A7 FE aiS #-2
80EA 95 tSX
80EB 3F 40 clr *__r0
80ED E6 04 ldA 4,X
80EF B7 41 stA *__r1
80F1 38 41 lsl *__r1
80F3 39 40 rol *__r0
80F5 B6 41 ldA *__r1
80F7 AB 00 add #0
80F9 B7 41 stA *__r1
80FB B6 40 ldA *__r0
80FD A9 80 adc #-128
80FF B7 40 stA *__r0
8101 55 40 ldHX *__r0
8103 E6 01 ldA 1,X
8105 9EE7 02 stA 2,S
8108 F6 ldA 0,X
8109 95 tSX
810A F7 stA 0,X
810B E6 01 ldA 1,X
810D 87 pshA
810E F6 ldA 0,X
810F 87 pshA
8110 CD 8125 jsr _PWMconf
8113 A7 02 aiS #2
8115 1B 20 Bclr 5,0x20
8117 A6 14 ldA #20
8119 87 pshA
811A CD 80CD jsr _Delay_ms
811D A7 01 aiS #1
811F 95 tSX
8120 1A 20 Bset 5,0x20
8122 A7 02 aiS #2
8124 81 rts
_PWMconf:
8125 A7 FE aiS #-2
8127 95 tSX
8128 3F 41 clr *__r1
812A 3F 40 clr *__r0
812C E6 05 ldA 5,X
812E B7 43 stA *__r3
8130 E6 04 ldA 4,X
8132 B7 42 stA *__r2
8134 4F clrA
8135 87 pshA
8136 A6 80 ldA #-128
8138 87 pshA
8139 A6 25 ldA #37
813B 87 pshA
813C 4F clrA
813D 87 pshA
813E B6 43 ldA *__r3
8140 87 pshA
8141 B6 42 ldA *__r2
8143 87 pshA
8144 B6 41 ldA *__r1
8146 87 pshA
8147 B6 40 ldA *__r0
8149 87 pshA
814A CD 833B jsr __divmod32s
814D A7 04 aiS #4
814F 86 pulA
8150 86 pulA
8151 86 pulA
8152 B7 42 stA *__r2
8154 86 pulA
8155 B7 41 stA *__r1
8157 B6 42 ldA *__r2
8159 F7 stA 0,X
815A B6 41 ldA *__r1
815C E7 01 stA 1,X
815E 87 pshA
815F F6 ldA 0,X
8160 87 pshA
8161 CD 8181 jsr _PWMInit
8164 A7 02 aiS #2
8166 95 tSX
8167 74 lsr 0,X
8168 66 01 ror 1,X
816A 1A 20 Bset 5,0x20
816C F6 ldA 0,X
816D B7 26 stA 0x26
816F E6 01 ldA 1,X
8171 B7 27 stA 0x27
8173 1A 20 Bset 5,0x20
8175 A6 0A ldA #10
8177 87 pshA
8178 CD 80CD jsr _Delay_ms
817B A7 01 aiS #1
817D 95 tSX
817E A7 02 aiS #2
8180 81 rts
_PWMInit:
8181 A7 FE aiS #-2
8183 95 tSX
8184 E6 04 ldA 4,X
8186 F7 stA 0,X
8187 E6 05 ldA 5,X
8189 E7 01 stA 1,X
818B A6 60 ldA #96
818D B7 20 stA 0x20
818F F6 ldA 0,X
8190 B7 23 stA 0x23
8192 E6 05 ldA 5,X
8194 B7 24 stA 0x24
8196 3F 26 clr 0x26
8198 3F 27 clr 0x27
819A A6 1E ldA #30
819C B7 25 stA 0x25
819E A7 02 aiS #2
81A0 81 rts
_KB_Init:
81A1 3F 00 clr 0x00
81A3 A6 0F ldA #15
81A5 B7 04 stA 0x04
81A7 A6 F0 ldA #-16
81A9 B7 0D stA 0x0D
81AB 12 1A Bset 1,0x1A
81AD A6 F0 ldA #-16
81AF B7 1B stA 0x1B
81B1 14 1A Bset 2,0x1A
81B3 81 rts
_KB_Scan:
81B4 A7 F9 aiS #-7
81B6 95 tSX
81B7 6F 03 clr 3,X
81B9 6F 02 clr 2,X
81BB 6F 01 clr 1,X
81BD CD 81A1 jsr _KB_Init
81C0 95 tSX
81C1 A6 F7 ldA #-9
81C3 E7 04 stA 4,X
81C5 B6 00 ldA 0x00
81C7 E7 06 stA 6,X
81C9 AA 0F orA #15
81CB E7 06 stA 6,X
81CD E4 04 and 4,X
81CF B7 00 stA 0x00
81D1 9D nop
81D2 9D nop
81D3 B6 00 ldA 0x00
81D5 E7 06 stA 6,X
81D7 A4 F0 and #-16
81D9 E7 06 stA 6,X
81DB A1 F0 cmp #-16
81DD 27 12 beq 0x81F1
81DF A5 10 bit #16
81E1 26 04 bne 0x81E7
81E3 A6 0A ldA #10
81E5 E7 01 stA 1,X
81E7 E6 06 ldA 6,X
81E9 A5 20 bit #32
81EB 26 04 bne 0x81F1
81ED A6 0A ldA #10
81EF E7 02 stA 2,X
81F1 A6 FE ldA #-2
81F3 E7 04 stA 4,X
81F5 6F 05 clr 5,X
81F7 20 5F bra 0x8258
81F9 B6 00 ldA 0x00
81FB E7 06 stA 6,X
81FD AA 0F orA #15
81FF E7 06 stA 6,X
8201 E4 04 and 4,X
8203 B7 00 stA 0x00
8205 9D nop
8206 9D nop
8207 B6 00 ldA 0x00
8209 E7 06 stA 6,X
820B A4 F0 and #-16
820D E7 06 stA 6,X
820F A1 F0 cmp #-16
8211 27 3C beq 0x824F
8213 A1 E0 cmp #-32
8215 26 0C bne 0x8223
8217 E6 05 ldA 5,X
8219 AE 03 ldX #3
821B 42 mul
821C 95 tSX
821D AB 01 add #1
821F E7 03 stA 3,X
8221 20 3B bra 0x825E
8223 E6 05 ldA 5,X
8225 A1 02 cmp #2
8227 26 02 bne 0x822B
8229 20 33 bra 0x825E
822B E6 06 ldA 6,X
822D A1 D0 cmp #-48
822F 26 0C bne 0x823D
8231 E6 05 ldA 5,X
8233 AE 03 ldX #3
8235 42 mul
8236 95 tSX
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -