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

📄 clock.lst

📁 摩托罗拉的时钟的原代码
💻 LST
📖 第 1 页 / 共 5 页
字号:
    8912 87           pshA	
    8913 A6 02        ldA	#2
    8915 87           pshA	
    8916 B6 41        ldA	*__r1
    8918 87           pshA	
    8919 CD 8741      jsr	_LcdshowCharacter
    891C A7 03        aiS	#3
    891E 95           tSX	
    891F E6 04        ldA	4,X
    8921 AB 0B        add	#11
    8923 B7 41        stA	*__r1
    8925 E6 03        ldA	3,X
    8927 A9 00        adc	#0
    8929 B7 40        stA	*__r0
    892B 55 40        ldHX	*__r0
    892D F6           ldA	0,X
    892E 87           pshA	
    892F CD 876E      jsr	_ChangeASCII
    8932 A7 01        aiS	#1
    8934 B7 41        stA	*__r1
    8936 A6 09        ldA	#9
    8938 87           pshA	
    8939 A6 02        ldA	#2
    893B 87           pshA	
    893C B6 41        ldA	*__r1
    893E 87           pshA	
    893F CD 8741      jsr	_LcdshowCharacter
    8942 A7 03        aiS	#3
    8944 A6 0A        ldA	#10
    8946 87           pshA	
    8947 A6 02        ldA	#2
    8949 87           pshA	
    894A A6 3A        ldA	#58
    894C 87           pshA	
    894D CD 8741      jsr	_LcdshowCharacter
    8950 A7 03        aiS	#3
    8952 95           tSX	
    8953 E6 04        ldA	4,X
    8955 AB 0C        add	#12
    8957 B7 41        stA	*__r1
    8959 E6 03        ldA	3,X
    895B A9 00        adc	#0
    895D B7 40        stA	*__r0
    895F 55 40        ldHX	*__r0
    8961 F6           ldA	0,X
    8962 87           pshA	
    8963 CD 876E      jsr	_ChangeASCII
    8966 A7 01        aiS	#1
    8968 B7 41        stA	*__r1
    896A A6 0B        ldA	#11
    896C 87           pshA	
    896D A6 02        ldA	#2
    896F 87           pshA	
    8970 B6 41        ldA	*__r1
    8972 87           pshA	
    8973 CD 8741      jsr	_LcdshowCharacter
    8976 A7 03        aiS	#3
    8978 95           tSX	
    8979 E6 04        ldA	4,X
    897B AB 0D        add	#13
    897D B7 41        stA	*__r1
    897F E6 03        ldA	3,X
    8981 A9 00        adc	#0
    8983 B7 40        stA	*__r0
    8985 55 40        ldHX	*__r0
    8987 F6           ldA	0,X
    8988 87           pshA	
    8989 CD 876E      jsr	_ChangeASCII
    898C A7 01        aiS	#1
    898E B7 41        stA	*__r1
    8990 A6 0C        ldA	#12
    8992 87           pshA	
    8993 A6 02        ldA	#2
    8995 87           pshA	
    8996 B6 41        ldA	*__r1
    8998 87           pshA	
    8999 CD 8741      jsr	_LcdshowCharacter
    899C A7 03        aiS	#3
    899E 95           tSX	
    899F A7 01        aiS	#1
    89A1 81           rts	
_LcdInit:
    89A2 A7 FF        aiS	#-1
    89A4 95           tSX	
    89A5 A6 FF        ldA	#-1
    89A7 B7 05        stA	0x05
    89A9 14 06        Bset	2,0x06
    89AB 10 06        Bset	0,0x06
    89AD 12 06        Bset	1,0x06
    89AF 14 02        Bset	2,0x02
    89B1 11 02        Bclr	0,0x02
    89B3 13 02        Bclr	1,0x02
    89B5 A6 38        ldA	#56
    89B7 87           pshA	
    89B8 CD 89EC      jsr	_Lcd_Command
    89BB A7 01        aiS	#1
    89BD A6 08        ldA	#8
    89BF 87           pshA	
    89C0 CD 89EC      jsr	_Lcd_Command
    89C3 A7 01        aiS	#1
    89C5 A6 01        ldA	#1
    89C7 87           pshA	
    89C8 CD 89EC      jsr	_Lcd_Command
    89CB A7 01        aiS	#1
    89CD 95           tSX	
    89CE 7F           clr	0,X
    89CF 20 01        bra	0x89D2
    89D1 7C           inc	0,X
    89D2 F6           ldA	0,X
    89D3 A1 FA        cmp	#-6
    89D5 25 FA        bcs	0x89D1
    89D7 7F           clr	0,X
    89D8 20 01        bra	0x89DB
    89DA 7C           inc	0,X
    89DB F6           ldA	0,X
    89DC A1 FA        cmp	#-6
    89DE 25 FA        bcs	0x89DA
    89E0 A6 0C        ldA	#12
    89E2 87           pshA	
    89E3 CD 89EC      jsr	_Lcd_Command
    89E6 A7 01        aiS	#1
    89E8 95           tSX	
    89E9 A7 01        aiS	#1
    89EB 81           rts	
_Lcd_Command:
    89EC A7 FF        aiS	#-1
    89EE 95           tSX	
    89EF 7F           clr	0,X
    89F0 20 01        bra	0x89F3
    89F2 7C           inc	0,X
    89F3 F6           ldA	0,X
    89F4 A1 14        cmp	#20
    89F6 25 FA        bcs	0x89F2
    89F8 E6 03        ldA	3,X
    89FA B7 01        stA	0x01
    89FC 14 02        Bset	2,0x02
    89FE 9D           nop	
    89FF 9D           nop	
    8A00 9D           nop	
    8A01 15 02        Bclr	2,0x02
    8A03 7F           clr	0,X
    8A04 20 01        bra	0x8A07
    8A06 7C           inc	0,X
    8A07 F6           ldA	0,X
    8A08 A1 14        cmp	#20
    8A0A 25 FA        bcs	0x8A06
    8A0C A7 01        aiS	#1
    8A0E 81           rts	
_LcdShowCursor:
    8A0F 95           tSX	
    8A10 11 02        Bclr	0,0x02
    8A12 13 02        Bclr	1,0x02
    8A14 A6 0F        ldA	#15
    8A16 87           pshA	
    8A17 CD 89EC      jsr	_Lcd_Command
    8A1A A7 01        aiS	#1
    8A1C 95           tSX	
    8A1D E6 03        ldA	3,X
    8A1F A0 01        sub	#1
    8A21 B7 40        stA	*__r0
    8A23 E6 02        ldA	2,X
    8A25 A0 01        sub	#1
    8A27 62           nsa	
    8A28 A4 F0        and	#-16
    8A2A 48           lslA	
    8A2B 48           lslA	
    8A2C BB 40        add	*__r0
    8A2E AA 80        orA	#-128
    8A30 87           pshA	
    8A31 CD 89EC      jsr	_Lcd_Command
    8A34 A7 01        aiS	#1
    8A36 95           tSX	
    8A37 81           rts	
_Transmission:
    8A38 A7 FE        aiS	#-2
    8A3A 95           tSX	
    8A3B E6 07        ldA	7,X
    8A3D A1 01        cmp	#1
    8A3F 27 03        beq	0x8A44
    8A41 CC 8B3B      jmp	0x8B3B
    8A44 7F           clr	0,X
    8A45 E6 08        ldA	8,X
    8A47 E7 01        stA	1,X
    8A49 F6           ldA	0,X
    8A4A 26 06        bne	0x8A52
    8A4C E6 01        ldA	1,X
    8A4E A1 04        cmp	#4
    8A50 27 4E        beq	0x8AA0
    8A52 F6           ldA	0,X
    8A53 26 06        bne	0x8A5B
    8A55 E6 01        ldA	1,X
    8A57 A1 05        cmp	#5
    8A59 27 56        beq	0x8AB1
    8A5B F6           ldA	0,X
    8A5C 26 06        bne	0x8A64
    8A5E E6 01        ldA	1,X
    8A60 A1 06        cmp	#6
    8A62 27 61        beq	0x8AC5
    8A64 F6           ldA	0,X
    8A65 26 06        bne	0x8A6D
    8A67 E6 01        ldA	1,X
    8A69 A1 07        cmp	#7
    8A6B 27 6C        beq	0x8AD9
    8A6D F6           ldA	0,X
    8A6E 26 09        bne	0x8A79
    8A70 E6 01        ldA	1,X
    8A72 A1 09        cmp	#9
    8A74 26 03        bne	0x8A79
    8A76 CC 8AED      jmp	0x8AED
    8A79 F6           ldA	0,X
    8A7A 26 09        bne	0x8A85
    8A7C E6 01        ldA	1,X
    8A7E A1 0A        cmp	#10
    8A80 26 03        bne	0x8A85
    8A82 CC 8B01      jmp	0x8B01
    8A85 F6           ldA	0,X
    8A86 26 09        bne	0x8A91
    8A88 E6 01        ldA	1,X
    8A8A A1 0C        cmp	#12
    8A8C 26 03        bne	0x8A91
    8A8E CC 8B15      jmp	0x8B15
    8A91 F6           ldA	0,X
    8A92 26 09        bne	0x8A9D
    8A94 E6 01        ldA	1,X
    8A96 A1 0D        cmp	#13
    8A98 26 03        bne	0x8A9D
    8A9A CC 8B29      jmp	0x8B29
    8A9D CC 8B3B      jmp	0x8B3B
    8AA0 E6 06        ldA	6,X
    8AA2 B7 41        stA	*__r1
    8AA4 E6 05        ldA	5,X
    8AA6 B7 40        stA	*__r0
    8AA8 E6 04        ldA	4,X
    8AAA 55 40        ldHX	*__r0
    8AAC F7           stA	0,X
    8AAD 95           tSX	
    8AAE CC 8B3B      jmp	0x8B3B
    8AB1 E6 06        ldA	6,X
    8AB3 AB 01        add	#1
    8AB5 B7 41        stA	*__r1
    8AB7 E6 05        ldA	5,X
    8AB9 A9 00        adc	#0
    8ABB B7 40        stA	*__r0
    8ABD E6 04        ldA	4,X
    8ABF 55 40        ldHX	*__r0
    8AC1 F7           stA	0,X
    8AC2 95           tSX	
    8AC3 20 76        bra	0x8B3B
    8AC5 E6 06        ldA	6,X
    8AC7 AB 02        add	#2
    8AC9 B7 41        stA	*__r1
    8ACB E6 05        ldA	5,X
    8ACD A9 00        adc	#0
    8ACF B7 40        stA	*__r0
    8AD1 E6 04        ldA	4,X
    8AD3 55 40        ldHX	*__r0
    8AD5 F7           stA	0,X
    8AD6 95           tSX	
    8AD7 20 62        bra	0x8B3B
    8AD9 E6 06        ldA	6,X
    8ADB AB 03        add	#3
    8ADD B7 41        stA	*__r1
    8ADF E6 05        ldA	5,X
    8AE1 A9 00        adc	#0
    8AE3 B7 40        stA	*__r0
    8AE5 E6 04        ldA	4,X
    8AE7 55 40        ldHX	*__r0
    8AE9 F7           stA	0,X
    8AEA 95           tSX	
    8AEB 20 4E        bra	0x8B3B
    8AED E6 06        ldA	6,X
    8AEF AB 04        add	#4
    8AF1 B7 41        stA	*__r1
    8AF3 E6 05        ldA	5,X
    8AF5 A9 00        adc	#0
    8AF7 B7 40        stA	*__r0
    8AF9 E6 04        ldA	4,X
    8AFB 55 40        ldHX	*__r0
    8AFD F7           stA	0,X
    8AFE 95           tSX	
    8AFF 20 3A        bra	0x8B3B
    8B01 E6 06        ldA	6,X
    8B03 AB 05        add	#5
    8B05 B7 41        stA	*__r1
    8B07 E6 05        ldA	5,X
    8B09 A9 00        adc	#0
    8B0B B7 40        stA	*__r0
    8B0D E6 04        ldA	4,X
    8B0F 55 40        ldHX	*__r0
    8B11 F7           stA	0,X
    8B12 95           tSX	
    8B13 20 26        bra	0x8B3B
    8B15 E6 06        ldA	6,X
    8B17 AB 06        add	#6
    8B19 B7 41        stA	*__r1
    8B1B E6 05        ldA	5,X
    8B1D A9 00        adc	#0
    8B1F B7 40        stA	*__r0
    8B21 E6 04        ldA	4,X
    8B23 55 40        ldHX	*__r0
    8B25 F7           stA	0,X
    8B26 95           tSX	
    8B27 20 12        bra	0x8B3B
    8B29 E6 06        ldA	6,X
    8B2B AB 07        add	#7
    8B2D B7 41        stA	*__r1
    8B2F E6 05        ldA	5,X
    8B31 A9 00        adc	#0
    8B33 B7 40        stA	*__r0
    8B35 E6 04        ldA	4,X
    8B37 55 40        ldHX	*__r0
    8B39 F7           stA	0,X
    8B3A 95           tSX	
    8B3B E6 07        ldA	7,X
    8B3D A1 02        cmp	#2
    8B3F 27 03        beq	0x8B44
    8B41 CC 8BF7      jmp	0x8BF7
    8B44 7F           clr	0,X
    8B45 E6 08        ldA	8,X
    8B47 E7 01        stA	1,X
    8B49 F6           ldA	0,X
    8B4A 26 06        bne	0x8B52
    8B4C E6 01        ldA	1,X
    8B4E A1 05        cmp	#5
    8B50 27 2F        beq	0x8B81
    8B52 F6           ldA	0,X
    8B53 26 06        bne	0x8B5B
    8B55 E6 01        ldA	1,X
    8B57 A1 06        cmp	#6
    8B59 27 3A        beq	0x8B95
    8B5B F6           ldA	0,X
    8B5C 26 06        bne	0x8B64
    8B5E E6 01        ldA	1,X
    8B60 A1 08        cmp	#8
    8B62 27 45        beq	0x8BA9
    8B64 F6           ldA	0,X
    8B65 26 06        bne	0x8B6D
    8B67 E6 01        ldA	1,X
    8B69 A1 09        cmp	#9
    8B6B 27 50        beq	0x8BBD
    8B6D F6           ldA	0,X
    8B6E 26 06        bne	0x8B76
    8B70 E6 01        ldA	1,X
    8B72 A1 0B        cmp	#11
    8B74 27 5B        beq	0x8BD1
    8B76 F6           ldA	0,X
    8B77 26 06        bne	0x8B7F
    8B79 E6 01        ldA	1,X
    8B7B A1 0C        cmp	#12
    8B7D 27 66        beq	0x8BE5
    8B7F 20 76        bra	0x8BF7
    8B81 E6 06        ldA	6,X
    8B83 AB 08        add	#8
    8B85 B7 41        stA	*__r1
    8B87 E6 05        ldA	5,X
    8B89 A9 00        adc	#0
    8B8B B7 40        stA	*__r0
    8B8D E6 04        ldA	4,X
    8B8F 55 40        ldHX	*__r0
    8B91 F7           stA	0,X
    8B92 95           tSX	
    8B93 20 62        bra	0x8BF7
    8B95 E6 06        ldA	6,X
    8B97 AB 09        add	#9
    8B99 B7 41        stA	*__r1
    8B9B E6 05        ldA	5,X
    8B9D A9 00        adc	#0
    8B9F B7 40        stA	*__r0
    8BA1 E6 04        ldA	4,X
    8BA3 55 40        ldHX	*__r0
    8BA5 F7           stA	0,X
    8BA6 95           tSX	
    8BA7 20 4E        bra	0x8BF7
    8BA9 E6 06        ldA	6,X
    8BAB AB 0A        add	#10
    8BAD B7 41        stA	*__r1
    8BAF E6 05        ldA	5,X
    8BB1 A9 00        adc	#0
    8BB3 B7 40        stA	*__r0
    8BB5 E6 04        ldA	4,X
    8BB7 55 40        ldHX	*__r0
    8BB9 F7           stA	0,X
    8BBA 95           tSX	
    8BBB 20 3A        bra	0x8BF7
    8BBD E6 06        ldA	6,X
    8BBF AB 0B        add	#11
    8BC1 B7 41        stA	*__r1
    8BC3 E6 05        ldA	5,X
    8BC5 A9 00        adc	#0
    8BC7 B7 40        stA	*__r0
    8BC9 E6 04        ldA	4,X
    8BCB 55 40        ldHX	*__r0
    8BCD F7           stA	0,X
    8BCE 95           tSX	
    8BCF 20 26        bra	0x8BF7
    8BD1 E6 06        ldA	6,X
    8BD3 AB 0C        add	#12
    8BD5 B7 41        stA	*__r1
    8BD7 E6 05        ldA	5,X
    8BD9 A9 00        adc	#0
    8BDB B7 40        stA	*__r0
    8BDD E6 04        ldA	4,X
    8BDF 55 40        ldHX	*__r0
    8BE1 F7           stA	0,X
    8BE2 95           tSX	
    8BE3 20 12        bra	0x8BF7
    8BE5 E6 06        ldA	6,X
    8BE7 AB 0D        add	#13
    8BE9 B7 41        stA	*__r1
    8BEB E6 05        ldA	5,X
    8BED A9 00        adc	#0
    8BEF B7 40        stA	*__r0
    8BF1 E6 04        ldA	4,X

⌨️ 快捷键说明

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