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

📄 clock.lst

📁 摩托罗拉的时钟的原代码
💻 LST
📖 第 1 页 / 共 5 页
字号:
NO DEBUG INFORMATION AVAILABLE!
__text_start:
__start:
    8057 45 0240      ldHX	#0x0240
    805A 94           tXS	
    805B CD 808C      jsr	__HC08Setup
    805E 45 004E      ldHX	#0x004E
    8061 65 0080      cpHX	#0x0080
    8064 27 06        beq	0x806C
    8066 6F 00        clr	0,X
    8068 AF 01        aiX	#1
    806A 20 F5        bra	0x8061
    806C 45 004F      ldHX	#0x004F
    806F 94           tXS	
    8070 45 8057      ldHX	#0x8057
    8073 65 8057      cpHX	#0x8057
    8076 27 0B        beq	0x8083
    8078 E6 00        ldA	0,X
    807A 9EE7 00      stA	0,S
    807D AF 01        aiX	#1
    807F A7 01        aiS	#1
    8081 20 F0        bra	0x8073
    8083 45 0240      ldHX	#0x0240
    8086 94           tXS	
    8087 CD 80B1      jsr	_main
_exit:
    808A 20 FE        bra	0x808A
__HC08Setup:
    808C A6 01        ldA	#1
    808E B7 1E        stA	0x1E
    8090 A6 3D        ldA	#61
    8092 B7 1F        stA	0x1F
    8094 3F 36        clr	0x36
    8096 A6 01        ldA	#1
    8098 B7 36        stA	0x36
    809A A6 01        ldA	#1
    809C B7 38        stA	0x38
    809E A6 2C        ldA	#44
    80A0 B7 39        stA	0x39
    80A2 A6 80        ldA	#-128
    80A4 B7 3A        stA	0x3A
    80A6 A6 01        ldA	#1
    80A8 B7 3B        stA	0x3B
    80AA 1A 36        Bset	5,0x36
    80AC 1E 37        Bset	7,0x37
    80AE 18 36        Bset	4,0x36
    80B0 81           rts	
_main:
    80B1 A7 C4        aiS	#-60
    80B3 95           tSX	
    80B4 AF 0D        aiX	#13
    80B6 35 40        stHX	*__r0
    80B8 95           tSX	
    80B9 A6 0C        ldA	#12
    80BB 87           pshA	
    80BC 4F           clrA	
    80BD 87           pshA	
    80BE A6 00        ldA	#0
    80C0 87           pshA	
    80C1 A6 80        ldA	#-128
    80C3 87           pshA	
    80C4 B6 41        ldA	*__r1
    80C6 87           pshA	
    80C7 B6 40        ldA	*__r0
    80C9 87           pshA	
    80CA CD 934A      jsr	__asgnblk
    80CD A7 06        aiS	#6
    80CF 35 40        stHX	*__r0
    80D1 A6 0D        ldA	#13
    80D3 87           pshA	
    80D4 4F           clrA	
    80D5 87           pshA	
    80D6 A6 0C        ldA	#12
    80D8 87           pshA	
    80D9 A6 80        ldA	#-128
    80DB 87           pshA	
    80DC B6 41        ldA	*__r1
    80DE 87           pshA	
    80DF B6 40        ldA	*__r0
    80E1 87           pshA	
    80E2 CD 934A      jsr	__asgnblk
    80E5 A7 06        aiS	#6
    80E7 AF 2C        aiX	#44
    80E9 35 40        stHX	*__r0
    80EB 95           tSX	
    80EC A6 0E        ldA	#14
    80EE 87           pshA	
    80EF 4F           clrA	
    80F0 87           pshA	
    80F1 A6 19        ldA	#25
    80F3 87           pshA	
    80F4 A6 80        ldA	#-128
    80F6 87           pshA	
    80F7 B6 41        ldA	*__r1
    80F9 87           pshA	
    80FA B6 40        ldA	*__r0
    80FC 87           pshA	
    80FD CD 934A      jsr	__asgnblk
    8100 A7 06        aiS	#6
    8102 AF 1D        aiX	#29
    8104 35 40        stHX	*__r0
    8106 A6 0F        ldA	#15
    8108 87           pshA	
    8109 4F           clrA	
    810A 87           pshA	
    810B A6 27        ldA	#39
    810D 87           pshA	
    810E A6 80        ldA	#-128
    8110 87           pshA	
    8111 B6 41        ldA	*__r1
    8113 87           pshA	
    8114 B6 40        ldA	*__r0
    8116 87           pshA	
    8117 CD 934A      jsr	__asgnblk
    811A A7 06        aiS	#6
    811C 9B           seI	
    811D 12 04        Bset	1,0x04
    811F 12 00        Bset	1,0x00
    8121 CD 8730      jsr	_Timer1init
    8124 CD 92A7      jsr	_KB_Init
    8127 13 1A        Bclr	1,0x1A
    8129 9A           clI	
    812A 6E 076C      mov	#7,*_Tdate
    812D 6E D76D      mov	#-41,*_Tdate+1
    8130 6E 006E      mov	#0,*_Tdate+2
    8133 6E 066F      mov	#6,*_Tdate+3
    8136 6E 0070      mov	#0,0x70
    8139 6E 0171      mov	#1,0x71
    813C A6 0C        ldA	#12
    813E B7 69        stA	*_Ttime
    8140 3F 6A        clr	*_Ttime+1
    8142 3F 6B        clr	*_Ttime+2
    8144 6E 0755      mov	#7,*_Tdate2
    8147 6E D756      mov	#-41,*_Tdate2+1
    814A 6E 0057      mov	#0,*_Tdate2+2
    814D 6E 0658      mov	#6,*_Tdate2+3
    8150 6E 0059      mov	#0,0x59
    8153 6E 015A      mov	#1,0x5A
    8156 3F 52        clr	*_Ttime2
    8158 3F 53        clr	*_Ttime2+1
    815A 3F 54        clr	*_Ttime2+2
    815C A6 69        ldA	#105
    815E 87           pshA	
    815F A6 00        ldA	#0
    8161 87           pshA	
    8162 A6 6C        ldA	#108
    8164 87           pshA	
    8165 A6 00        ldA	#0
    8167 87           pshA	
    8168 CD 8C46      jsr	_Changetime
    816B A7 04        aiS	#4
    816D 95           tSX	
    816E 3F 4E        clr	*_o
    8170 B6 6B        ldA	*_Ttime+2
    8172 E7 1A        stA	26,X
    8174 B6 7B        ldA	0x7B
    8176 E7 19        stA	25,X
    8178 CC 84EC      jmp	0x84EC
    817B B6 6B        ldA	*_Ttime+2
    817D E7 1C        stA	28,X
    817F E6 1A        ldA	26,X
    8181 E1 1C        cmp	28,X
    8183 27 34        beq	0x81B9
    8185 A6 72        ldA	#114
    8187 87           pshA	
    8188 A6 00        ldA	#0
    818A 87           pshA	
    818B CD 87B1      jsr	_Lcdshow
    818E A7 02        aiS	#2
    8190 95           tSX	
    8191 B6 4E        ldA	*_o
    8193 A1 01        cmp	#1
    8195 26 0D        bne	0x81A4
    8197 A6 01        ldA	#1
    8199 87           pshA	
    819A 87           pshA	
    819B A6 41        ldA	#65
    819D 87           pshA	
    819E CD 8741      jsr	_LcdshowCharacter
    81A1 A7 03        aiS	#3
    81A3 95           tSX	
    81A4 B6 4E        ldA	*_o
    81A6 26 0D        bne	0x81B5
    81A8 A6 01        ldA	#1
    81AA 87           pshA	
    81AB 87           pshA	
    81AC A6 20        ldA	#32
    81AE 87           pshA	
    81AF CD 8741      jsr	_LcdshowCharacter
    81B2 A7 03        aiS	#3
    81B4 95           tSX	
    81B5 E6 1C        ldA	28,X
    81B7 E7 1A        stA	26,X
    81B9 B6 7B        ldA	0x7B
    81BB E7 1B        stA	27,X
    81BD E6 19        ldA	25,X
    81BF E1 1B        cmp	27,X
    81C1 27 1B        beq	0x81DE
    81C3 6F 3A        clr	58,X
    81C5 20 0D        bra	0x81D4
    81C7 12 00        Bset	1,0x00
    81C9 CD 8C2B      jsr	_Delay
    81CC 13 00        Bclr	1,0x00
    81CE CD 8C2B      jsr	_Delay
    81D1 95           tSX	
    81D2 6C 3A        inc	58,X
    81D4 E6 3A        ldA	58,X
    81D6 A1 03        cmp	#3
    81D8 25 ED        bcs	0x81C7
    81DA E6 1B        ldA	27,X
    81DC E7 19        stA	25,X
    81DE 55 6C        ldHX	*_Tdate
    81E0 75 55        cpHX	*_Tdate2
    81E2 95           tSX	
    81E3 26 37        bne	0x821C
    81E5 55 6E        ldHX	*_Tdate+2
    81E7 75 57        cpHX	*_Tdate2+2
    81E9 95           tSX	
    81EA 26 30        bne	0x821C
    81EC 55 70        ldHX	0x70
    81EE 75 59        cpHX	0x59
    81F0 95           tSX	
    81F1 26 29        bne	0x821C
    81F3 B6 69        ldA	*_Ttime
    81F5 B1 52        cmp	*_Ttime2
    81F7 26 23        bne	0x821C
    81F9 B6 6A        ldA	*_Ttime+1
    81FB B1 53        cmp	*_Ttime2+1
    81FD 26 1D        bne	0x821C
    81FF B6 6B        ldA	*_Ttime+2
    8201 B1 54        cmp	*_Ttime2+2
    8203 26 17        bne	0x821C
    8205 6F 3A        clr	58,X
    8207 20 0D        bra	0x8216
    8209 12 00        Bset	1,0x00
    820B CD 8C2B      jsr	_Delay
    820E 13 00        Bclr	1,0x00
    8210 CD 8C2B      jsr	_Delay
    8213 95           tSX	
    8214 6C 3A        inc	58,X
    8216 E6 3A        ldA	58,X
    8218 A1 0F        cmp	#15
    821A 25 ED        bcs	0x8209
    821C B6 51        ldA	*_Key
    821E A1 41        cmp	#65
    8220 27 03        beq	0x8225
    8222 CC 84EC      jmp	0x84EC
    8225 A6 01        ldA	#1
    8227 87           pshA	
    8228 A6 0B        ldA	#11
    822A 87           pshA	
    822B AF 0D        aiX	#13
    822D 89           pshX	
    822E 8B           pshH	
    822F CD 8780      jsr	_LcdShowString
    8232 A7 04        aiS	#4
    8234 95           tSX	
    8235 A6 02        ldA	#2
    8237 87           pshA	
    8238 A6 0C        ldA	#12
    823A 87           pshA	
    823B 89           pshX	
    823C 8B           pshH	
    823D CD 8780      jsr	_LcdShowString
    8240 A7 04        aiS	#4
    8242 95           tSX	
    8243 3F 51        clr	*_Key
    8245 CC 84E9      jmp	0x84E9
    8248 B6 51        ldA	*_Key
    824A A1 42        cmp	#66
    824C 26 05        bne	0x8253
    824E 3F 51        clr	*_Key
    8250 CC 84EC      jmp	0x84EC
    8253 B6 51        ldA	*_Key
    8255 A1 31        cmp	#49
    8257 27 03        beq	0x825C
    8259 CC 8381      jmp	0x8381
    825C A6 72        ldA	#114
    825E 87           pshA	
    825F A6 00        ldA	#0
    8261 87           pshA	
    8262 CD 87B1      jsr	_Lcdshow
    8265 A7 02        aiS	#2
    8267 A6 04        ldA	#4
    8269 87           pshA	
    826A A6 01        ldA	#1
    826C 87           pshA	
    826D CD 8A0F      jsr	_LcdShowCursor
    8270 A7 02        aiS	#2
    8272 95           tSX	
    8273 A6 01        ldA	#1
    8275 B7 50        stA	*_k
    8277 A6 01        ldA	#1
    8279 B7 4F        stA	*_l
    827B 3F 51        clr	*_Key
    827D CC 837E      jmp	0x837E
    8280 B6 51        ldA	*_Key
    8282 A1 23        cmp	#35
    8284 26 60        bne	0x82E6
    8286 3C 50        inc	*_k
    8288 B6 4F        ldA	*_l
    828A AE 02        ldX	#2
    828C 8C           clrH	
    828D 52           div	
    828E 8B           pshH	
    828F 86           pulA	
    8290 95           tSX	
    8291 4D           tstA	
    8292 26 28        bne	0x82BC
    8294 B6 50        ldA	*_k
    8296 A1 04        cmp	#4
    8298 27 06        beq	0x82A0
    829A B6 50        ldA	*_k
    829C A1 07        cmp	#7
    829E 26 02        bne	0x82A2
    82A0 3C 50        inc	*_k
    82A2 B6 50        ldA	*_k
    82A4 A1 09        cmp	#9
    82A6 23 02        bls	0x82AA
    82A8 3F 50        clr	*_k
    82AA B6 50        ldA	*_k
    82AC AB 04        add	#4
    82AE 87           pshA	
    82AF B6 4F        ldA	*_l
    82B1 AB 01        add	#1
    82B3 87           pshA	
    82B4 CD 8A0F      jsr	_LcdShowCursor
    82B7 A7 02        aiS	#2
    82B9 95           tSX	
    82BA 20 28        bra	0x82E4
    82BC B6 50        ldA	*_k
    82BE A1 03        cmp	#3
    82C0 27 06        beq	0x82C8
    82C2 B6 50        ldA	*_k
    82C4 A1 06        cmp	#6
    82C6 26 02        bne	0x82CA
    82C8 3C 50        inc	*_k
    82CA B6 50        ldA	*_k
    82CC A1 08        cmp	#8
    82CE 23 04        bls	0x82D4
    82D0 A6 01        ldA	#1
    82D2 B7 50        stA	*_k
    82D4 B6 50        ldA	*_k
    82D6 AB 04        add	#4
    82D8 87           pshA	
    82D9 B6 4F        ldA	*_l
    82DB AB 01        add	#1
    82DD 87           pshA	
    82DE CD 8A0F      jsr	_LcdShowCursor
    82E1 A7 02        aiS	#2
    82E3 95           tSX	
    82E4 3F 51        clr	*_Key
    82E6 B6 51        ldA	*_Key
    82E8 A1 2A        cmp	#42
    82EA 26 2A        bne	0x8316
    82EC 3C 4F        inc	*_l
    82EE B6 50        ldA	*_k
    82F0 26 02        bne	0x82F4
    82F2 3C 50        inc	*_k
    82F4 B6 50        ldA	*_k
    82F6 A1 09        cmp	#9
    82F8 26 02        bne	0x82FC
    82FA 3A 50        dec	*_k
    82FC B6 4F        ldA	*_l
    82FE A1 01        cmp	#1
    8300 23 02        bls	0x8304
    8302 3F 4F        clr	*_l
    8304 B6 50        ldA	*_k
    8306 AB 04        add	#4
    8308 87           pshA	
    8309 B6 4F        ldA	*_l
    830B AB 01        add	#1
    830D 87           pshA	
    830E CD 8A0F      jsr	_LcdShowCursor
    8311 A7 02        aiS	#2
    8313 95           tSX	
    8314 3F 51        clr	*_Key
    8316 B6 51        ldA	*_Key
    8318 A1 42        cmp	#66
    831A 26 05        bne	0x8321
    831C 3F 51        clr	*_Key
    831E CC 8225      jmp	0x8225
    8321 B6 51        ldA	*_Key
    8323 A1 44        cmp	#68
    8325 26 05        bne	0x832C
    8327 3F 51        clr	*_Key
    8329 CC 84EC      jmp	0x84EC
    832C B6 51        ldA	*_Key
    832E 27 4E        beq	0x837E
    8330 B6 51        ldA	*_Key
    8332 87           pshA	
    8333 CD 8BFA      jsr	_Discriminant
    8336 A7 01        aiS	#1
    8338 95           tSX	
    8339 B7 41        stA	*__r1
    833B 27 41        beq	0x837E
    833D B6 51        ldA	*_Key
    833F A0 30        sub	#48
    8341 E7 3B        stA	59,X
    8343 B6 50        ldA	*_k
    8345 AB 04        add	#4
    8347 87           pshA	
    8348 B6 4F        ldA	*_l
    834A AB 01        add	#1
    834C 87           pshA	
    834D A6 72        ldA	#114
    834F 87           pshA	
    8350 A6 00        ldA	#0
    8352 87           pshA	
    8353 E6 3B        ldA	59,X
    8355 87           pshA	
    8356 CD 8A38      jsr	_Transmission
    8359 A7 05        aiS	#5

⌨️ 快捷键说明

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