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

📄 clock.lst

📁 基于HC908GP32的时钟程序
💻 LST
📖 第 1 页 / 共 5 页
字号:
    8B9E 55 40        ldHX	*__r0
    8BA0 F7           stA	0,X
    8BA1 95           tSX	
    8BA2 E6 07        ldA	7,X
    8BA4 A1 02        cmp	#2
    8BA6 27 03        beq	0x8BAB
    8BA8 CC 8D41      jmp	0x8D41
    8BAB 7F           clr	0,X
    8BAC E6 08        ldA	8,X
    8BAE E7 01        stA	1,X
    8BB0 F6           ldA	0,X
    8BB1 26 06        bne	0x8BB9
    8BB3 E6 01        ldA	1,X
    8BB5 A1 05        cmp	#5
    8BB7 27 3F        beq	0x8BF8
    8BB9 F6           ldA	0,X
    8BBA 26 09        bne	0x8BC5
    8BBC E6 01        ldA	1,X
    8BBE A1 06        cmp	#6
    8BC0 26 03        bne	0x8BC5
    8BC2 CC 8C35      jmp	0x8C35
    8BC5 F6           ldA	0,X
    8BC6 26 09        bne	0x8BD1
    8BC8 E6 01        ldA	1,X
    8BCA A1 08        cmp	#8
    8BCC 26 03        bne	0x8BD1
    8BCE CC 8CA9      jmp	0x8CA9
    8BD1 F6           ldA	0,X
    8BD2 26 09        bne	0x8BDD
    8BD4 E6 01        ldA	1,X
    8BD6 A1 09        cmp	#9
    8BD8 26 03        bne	0x8BDD
    8BDA CC 8CE2      jmp	0x8CE2
    8BDD F6           ldA	0,X
    8BDE 26 09        bne	0x8BE9
    8BE0 E6 01        ldA	1,X
    8BE2 A1 0B        cmp	#11
    8BE4 26 03        bne	0x8BE9
    8BE6 CC 8CF6      jmp	0x8CF6
    8BE9 F6           ldA	0,X
    8BEA 26 09        bne	0x8BF5
    8BEC E6 01        ldA	1,X
    8BEE A1 0C        cmp	#12
    8BF0 26 03        bne	0x8BF5
    8BF2 CC 8D2F      jmp	0x8D2F
    8BF5 CC 8D41      jmp	0x8D41
    8BF8 E6 06        ldA	6,X
    8BFA AB 08        add	#8
    8BFC B7 41        stA	*__r1
    8BFE E6 05        ldA	5,X
    8C00 A9 00        adc	#0
    8C02 B7 40        stA	*__r0
    8C04 E6 04        ldA	4,X
    8C06 55 40        ldHX	*__r0
    8C08 F7           stA	0,X
    8C09 95           tSX	
    8C0A E6 06        ldA	6,X
    8C0C AB 08        add	#8
    8C0E B7 41        stA	*__r1
    8C10 E6 05        ldA	5,X
    8C12 A9 00        adc	#0
    8C14 B7 40        stA	*__r0
    8C16 55 40        ldHX	*__r0
    8C18 F6           ldA	0,X
    8C19 95           tSX	
    8C1A A1 02        cmp	#2
    8C1C 22 03        bhi	0x8C21
    8C1E CC 8D41      jmp	0x8D41
    8C21 E6 06        ldA	6,X
    8C23 AB 08        add	#8
    8C25 B7 41        stA	*__r1
    8C27 E6 05        ldA	5,X
    8C29 A9 00        adc	#0
    8C2B B7 40        stA	*__r0
    8C2D 4F           clrA	
    8C2E 55 40        ldHX	*__r0
    8C30 F7           stA	0,X
    8C31 95           tSX	
    8C32 CC 8D41      jmp	0x8D41
    8C35 E6 06        ldA	6,X
    8C37 AB 09        add	#9
    8C39 B7 41        stA	*__r1
    8C3B E6 05        ldA	5,X
    8C3D A9 00        adc	#0
    8C3F B7 40        stA	*__r0
    8C41 E6 04        ldA	4,X
    8C43 55 40        ldHX	*__r0
    8C45 F7           stA	0,X
    8C46 95           tSX	
    8C47 E6 06        ldA	6,X
    8C49 AB 08        add	#8
    8C4B B7 41        stA	*__r1
    8C4D E6 05        ldA	5,X
    8C4F A9 00        adc	#0
    8C51 B7 40        stA	*__r0
    8C53 55 40        ldHX	*__r0
    8C55 F6           ldA	0,X
    8C56 95           tSX	
    8C57 A1 02        cmp	#2
    8C59 26 39        bne	0x8C94
    8C5B E6 06        ldA	6,X
    8C5D AB 09        add	#9
    8C5F B7 41        stA	*__r1
    8C61 E6 05        ldA	5,X
    8C63 A9 00        adc	#0
    8C65 B7 40        stA	*__r0
    8C67 55 40        ldHX	*__r0
    8C69 F6           ldA	0,X
    8C6A 95           tSX	
    8C6B A1 03        cmp	#3
    8C6D 23 25        bls	0x8C94
    8C6F E6 06        ldA	6,X
    8C71 AB 08        add	#8
    8C73 B7 41        stA	*__r1
    8C75 E6 05        ldA	5,X
    8C77 A9 00        adc	#0
    8C79 B7 40        stA	*__r0
    8C7B 4F           clrA	
    8C7C 55 40        ldHX	*__r0
    8C7E F7           stA	0,X
    8C7F 95           tSX	
    8C80 E6 06        ldA	6,X
    8C82 AB 09        add	#9
    8C84 B7 41        stA	*__r1
    8C86 E6 05        ldA	5,X
    8C88 A9 00        adc	#0
    8C8A B7 40        stA	*__r0
    8C8C 4F           clrA	
    8C8D 55 40        ldHX	*__r0
    8C8F F7           stA	0,X
    8C90 95           tSX	
    8C91 CC 8D41      jmp	0x8D41
    8C94 E6 06        ldA	6,X
    8C96 AB 09        add	#9
    8C98 B7 41        stA	*__r1
    8C9A E6 05        ldA	5,X
    8C9C A9 00        adc	#0
    8C9E B7 40        stA	*__r0
    8CA0 E6 04        ldA	4,X
    8CA2 55 40        ldHX	*__r0
    8CA4 F7           stA	0,X
    8CA5 95           tSX	
    8CA6 CC 8D41      jmp	0x8D41
    8CA9 E6 06        ldA	6,X
    8CAB AB 0A        add	#10
    8CAD B7 41        stA	*__r1
    8CAF E6 05        ldA	5,X
    8CB1 A9 00        adc	#0
    8CB3 B7 40        stA	*__r0
    8CB5 E6 04        ldA	4,X
    8CB7 55 40        ldHX	*__r0
    8CB9 F7           stA	0,X
    8CBA 95           tSX	
    8CBB E6 06        ldA	6,X
    8CBD AB 0A        add	#10
    8CBF B7 41        stA	*__r1
    8CC1 E6 05        ldA	5,X
    8CC3 A9 00        adc	#0
    8CC5 B7 40        stA	*__r0
    8CC7 55 40        ldHX	*__r0
    8CC9 F6           ldA	0,X
    8CCA 95           tSX	
    8CCB A1 05        cmp	#5
    8CCD 23 72        bls	0x8D41
    8CCF E6 06        ldA	6,X
    8CD1 AB 0A        add	#10
    8CD3 B7 41        stA	*__r1
    8CD5 E6 05        ldA	5,X
    8CD7 A9 00        adc	#0
    8CD9 B7 40        stA	*__r0
    8CDB 4F           clrA	
    8CDC 55 40        ldHX	*__r0
    8CDE F7           stA	0,X
    8CDF 95           tSX	
    8CE0 20 5F        bra	0x8D41
    8CE2 E6 06        ldA	6,X
    8CE4 AB 0B        add	#11
    8CE6 B7 41        stA	*__r1
    8CE8 E6 05        ldA	5,X
    8CEA A9 00        adc	#0
    8CEC B7 40        stA	*__r0
    8CEE E6 04        ldA	4,X
    8CF0 55 40        ldHX	*__r0
    8CF2 F7           stA	0,X
    8CF3 95           tSX	
    8CF4 20 4B        bra	0x8D41
    8CF6 E6 06        ldA	6,X
    8CF8 AB 0C        add	#12
    8CFA B7 41        stA	*__r1
    8CFC E6 05        ldA	5,X
    8CFE A9 00        adc	#0
    8D00 B7 40        stA	*__r0
    8D02 E6 04        ldA	4,X
    8D04 55 40        ldHX	*__r0
    8D06 F7           stA	0,X
    8D07 95           tSX	
    8D08 E6 06        ldA	6,X
    8D0A AB 0C        add	#12
    8D0C B7 41        stA	*__r1
    8D0E E6 05        ldA	5,X
    8D10 A9 00        adc	#0
    8D12 B7 40        stA	*__r0
    8D14 55 40        ldHX	*__r0
    8D16 F6           ldA	0,X
    8D17 95           tSX	
    8D18 A1 05        cmp	#5
    8D1A 23 25        bls	0x8D41
    8D1C E6 06        ldA	6,X
    8D1E AB 0C        add	#12
    8D20 B7 41        stA	*__r1
    8D22 E6 05        ldA	5,X
    8D24 A9 00        adc	#0
    8D26 B7 40        stA	*__r0
    8D28 4F           clrA	
    8D29 55 40        ldHX	*__r0
    8D2B F7           stA	0,X
    8D2C 95           tSX	
    8D2D 20 12        bra	0x8D41
    8D2F E6 06        ldA	6,X
    8D31 AB 0D        add	#13
    8D33 B7 41        stA	*__r1
    8D35 E6 05        ldA	5,X
    8D37 A9 00        adc	#0
    8D39 B7 40        stA	*__r0
    8D3B E6 04        ldA	4,X
    8D3D 55 40        ldHX	*__r0
    8D3F F7           stA	0,X
    8D40 95           tSX	
    8D41 A7 02        aiS	#2
    8D43 81           rts	
_Discriminant:
    8D44 95           tSX	
    8D45 E6 02        ldA	2,X
    8D47 A1 31        cmp	#49
    8D49 27 24        beq	0x8D6F
    8D4B A1 32        cmp	#50
    8D4D 27 20        beq	0x8D6F
    8D4F A1 33        cmp	#51
    8D51 27 1C        beq	0x8D6F
    8D53 A1 34        cmp	#52
    8D55 27 18        beq	0x8D6F
    8D57 A1 35        cmp	#53
    8D59 27 14        beq	0x8D6F
    8D5B A1 36        cmp	#54
    8D5D 27 10        beq	0x8D6F
    8D5F A1 37        cmp	#55
    8D61 27 0C        beq	0x8D6F
    8D63 A1 38        cmp	#56
    8D65 27 08        beq	0x8D6F
    8D67 A1 39        cmp	#57
    8D69 27 04        beq	0x8D6F
    8D6B A1 30        cmp	#48
    8D6D 26 04        bne	0x8D73
    8D6F A6 01        ldA	#1
    8D71 20 01        bra	0x8D74
    8D73 4F           clrA	
    8D74 81           rts	
_KB_Init:
    8D75 3F 00        clr	0x00
    8D77 A6 0F        ldA	#15
    8D79 B7 04        stA	0x04
    8D7B A6 F0        ldA	#-16
    8D7D B7 0D        stA	0x0D
    8D7F 12 1A        Bset	1,0x1A
    8D81 A6 F0        ldA	#-16
    8D83 B7 1B        stA	0x1B
    8D85 14 1A        Bset	2,0x1A
    8D87 81           rts	
_KB_Scan:
    8D88 A7 FD        aiS	#-3
    8D8A 95           tSX	
    8D8B A6 FE        ldA	#-2
    8D8D F7           stA	0,X
    8D8E A6 01        ldA	#1
    8D90 E7 01        stA	1,X
    8D92 20 26        bra	0x8DBA
    8D94 B6 00        ldA	0x00
    8D96 E7 02        stA	2,X
    8D98 AA 0F        orA	#15
    8D9A E7 02        stA	2,X
    8D9C F4           and	0,X
    8D9D B7 00        stA	0x00
    8D9F 9D           nop	
    8DA0 9D           nop	
    8DA1 B6 00        ldA	0x00
    8DA3 E7 02        stA	2,X
    8DA5 A4 F0        and	#-16
    8DA7 E7 02        stA	2,X
    8DA9 A1 F0        cmp	#-16
    8DAB 27 06        beq	0x8DB3
    8DAD B6 00        ldA	0x00
    8DAF E7 02        stA	2,X
    8DB1 20 0D        bra	0x8DC0
    8DB3 F6           ldA	0,X
    8DB4 48           lslA	
    8DB5 AA 01        orA	#1
    8DB7 F7           stA	0,X
    8DB8 6C 01        inc	1,X
    8DBA E6 01        ldA	1,X
    8DBC A1 04        cmp	#4
    8DBE 23 D4        bls	0x8D94
    8DC0 E6 01        ldA	1,X
    8DC2 A1 05        cmp	#5
    8DC4 26 04        bne	0x8DCA
    8DC6 A6 FF        ldA	#-1
    8DC8 E7 02        stA	2,X
    8DCA E6 02        ldA	2,X
    8DCC A7 03        aiS	#3
    8DCE 81           rts	
_KB_Def:
    8DCF A7 FD        aiS	#-3
    8DD1 95           tSX	
    8DD2 6F 01        clr	1,X
    8DD4 20 3C        bra	0x8E12
    8DD6 3F 40        clr	*__r0
    8DD8 E6 01        ldA	1,X
    8DDA AB 19        add	#25
    8DDC B7 41        stA	*__r1
    8DDE B6 40        ldA	*__r0
    8DE0 A9 80        adc	#-128
    8DE2 B7 40        stA	*__r0
    8DE4 55 40        ldHX	*__r0
    8DE6 F6           ldA	0,X
    8DE7 95           tSX	
    8DE8 E7 02        stA	2,X
    8DEA 26 05        bne	0x8DF1
    8DEC A6 FF        ldA	#-1
    8DEE F7           stA	0,X
    8DEF 20 23        bra	0x8E14
    8DF1 E6 02        ldA	2,X
    8DF3 E1 05        cmp	5,X
    8DF5 26 15        bne	0x8E0C
    8DF7 3F 40        clr	*__r0
    8DF9 E6 01        ldA	1,X
    8DFB AB 1A        add	#26
    8DFD B7 41        stA	*__r1
    8DFF B6 40        ldA	*__r0
    8E01 A9 80        adc	#-128
    8E03 B7 40        stA	*__r0
    8E05 55 40        ldHX	*__r0
    8E07 F6           ldA	0,X
    8E08 95           tSX	
    8E09 F7           stA	0,X
    8E0A 20 08        bra	0x8E14
    8E0C E6 01        ldA	1,X
    8E0E AB 02        add	#2
    8E10 E7 01        stA	1,X
    8E12 20 C2        bra	0x8DD6
    8E14 F6           ldA	0,X
    8E15 A7 03        aiS	#3
    8E17 81           rts	
_GetKey:
    8E18 A7 FF        aiS	#-1
    8E1A 95           tSX	
    8E1B CD 8D88      jsr	_KB_Scan
    8E1E 95           tSX	
    8E1F B7 41        stA	*__r1
    8E21 F7           stA	0,X
    8E22 87           pshA	
    8E23 CD 8DCF      jsr	_KB_Def
    8E26 A7 01        aiS	#1
    8E28 95           tSX	
    8E29 B7 41        stA	*__r1
    8E2B F7           stA	0,X
    8E2C A7 01        aiS	#1
    8E2E 81           rts	
__asgnblk:
    8E2F 35 4C        stHX	*__rhi
    8E31 95           tSX	
    8E32 E6 02        ldA	2,X
    8E34 B7 40        stA	*__r0
    8E36 E6 03        ldA	3,X
    8E38 B7 41        stA	*__r1
    8E3A E6 04        ldA	4,X
    8E3C B7 42        stA	*__r2
    8E3E E6 05        ldA	5,X
    8E40 B7 43        stA	*__r3
    8E42 E6 06        ldA	6,X
    8E44 B7 44        stA	*__r4
    8E46 E6 07        ldA	7,X
    8E48 B7 45        stA	*__r5
    8E4A 3F 46        clr	*__r6
    8E4C 3F 47        clr	*__r7
    8E4E 55 46        ldHX	*__r6
    8E50 75 44        cpHX	*__r4
    8E52 27 16        beq	0x8E6A
    8E54 AF 01        aiX	#1
    8E56 35 46        stHX	*__r6
    8E58 55 42        ldHX	*__r2
    8E5A E6 00        ldA	0,X
    8E5C AF 01        aiX	#1
    8E5E 35 42        stHX	*__r2
    8E60 55 40        ldHX	*__r0
    8E62 E7 00        stA	0,X
    8E64 AF 01        aiX	#1
    8E66 35 40        stHX	*__r0
    8E68 20 E4        bra	0x8E4E
    8E6A 55 4C        ldHX	*__rhi
    8E6C 81           rts	

⌨️ 快捷键说明

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