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

📄 jianpan.lis

📁 可以显示年月日,时间等,也可以设置闹钟,设定时间
💻 LIS
📖 第 1 页 / 共 5 页
字号:
 0668 B700              sta *__r1
 066A B600              lda *__r2
 066C B900              adc *__r0
 066E B700              sta *_data
 0670 4E0001            mov *__r1,*_data+1
 0673           ;     time[2]=time_array[8]*10+time_array[9];
 0673 E603              lda 3,X
 0675 AB09              add #9
 0677 B700              sta *__r1
 0679 E602              lda 2,X
 067B A900              adc #0
 067D B700              sta *__r0
 067F 5500              ldhx *__r0
 0681 F6                lda ,x
 0682 95                tsx
 0683 B700              sta *__r1
 0685 E603              lda 3,X
 0687 AB08              add #8
 0689 B700              sta *__r3
 068B E602              lda 2,X
 068D A900              adc #0
 068F B700              sta *__r2
 0691 5500              ldhx *__r2
 0693 F6                lda ,x
 0694 AE0A              ldx #10
 0696 42                mul
 0697 95                tsx
 0698 BB00              add *__r1
 069A B702              sta *_time+2
 069C           ;     time[1]=time_array[10]*10+time_array[11];
 069C E603              lda 3,X
 069E AB0B              add #11
 06A0 B700              sta *__r1
 06A2 E602              lda 2,X
 06A4 A900              adc #0
 06A6 B700              sta *__r0
 06A8 5500              ldhx *__r0
 06AA F6                lda ,x
 06AB 95                tsx
 06AC B700              sta *__r1
 06AE E603              lda 3,X
 06B0 AB0A              add #10
 06B2 B700              sta *__r3
 06B4 E602              lda 2,X
 06B6 A900              adc #0
 06B8 B700              sta *__r2
 06BA 5500              ldhx *__r2
 06BC F6                lda ,x
 06BD AE0A              ldx #10
 06BF 42                mul
 06C0 95                tsx
 06C1 BB00              add *__r1
 06C3 B701              sta *_time+1
 06C5           ;     time[0]=time_array[12]*10+time_array[13];      
 06C5 E603              lda 3,X
 06C7 AB0D              add #13
 06C9 B700              sta *__r1
 06CB E602              lda 2,X
 06CD A900              adc #0
 06CF B700              sta *__r0
 06D1 5500              ldhx *__r0
 06D3 F6                lda ,x
 06D4 95                tsx
 06D5 B700              sta *__r1
 06D7 E603              lda 3,X
 06D9 AB0C              add #12
 06DB B700              sta *__r3
 06DD E602              lda 2,X
 06DF A900              adc #0
 06E1 B700              sta *__r2
 06E3 5500              ldhx *__r2
 06E5 F6                lda ,x
 06E6 AE0A              ldx #10
 06E8 42                mul
 06E9 95                tsx
 06EA BB00              add *__r1
 06EC B700              sta *_time
 06EE           L55:
 06EE                   .dbline 0 ; func end
 06EE 81                rts
 06EF           ;              n -> 4,X
 06EF           ;     time_array -> 2,X
 06EF           _change_str::
 06EF 95                tsx
 06F0           ; }
 06F0           ; 
 06F0           ; void change_str(unsigned char time_array[],unsigned char n)
 06F0           ; {
 06F0           ;       time_array[0]=data[2]/1000;
 06F0 B605              lda *_data+4+1
 06F2 B700              sta *__rlo
 06F4 B604              lda *_data+4
 06F6 B700              sta *__rhi
 06F8 A6E8              lda #-24
 06FA 87                psha
 06FB A603              lda #3
 06FD 87                psha
 06FE CD0000            jsr __divmod16u
 0701 A702              ais #2
 0703 4E0000            mov *__rlo,*__r1
 0706 E603              lda 3,X
 0708 B700              sta *__r3
 070A E602              lda 2,X
 070C B700              sta *__r2
 070E B600              lda *__r1
 0710 5500              ldhx *__r2
 0712 F7                sta ,x
 0713 95                tsx
 0714           ;           time_array[1]=data[2]%1000/100;
 0714 B605              lda *_data+4+1
 0716 B700              sta *__rlo
 0718 B604              lda *_data+4
 071A B700              sta *__rhi
 071C A6E8              lda #-24
 071E 87                psha
 071F A603              lda #3
 0721 87                psha
 0722 CD0000            jsr __divmod16u
 0725 86                pula
 0726 B700              sta *__r0
 0728 86                pula
 0729 B700              sta *__rlo
 072B 4E0000            mov *__r0,*__rhi
 072E A664              lda #100
 0730 87                psha
 0731 4F                clra
 0732 87                psha
 0733 CD0000            jsr __divmod16u
 0736 A702              ais #2
 0738 4E0000            mov *__rlo,*__r1
 073B E603              lda 3,X
 073D AB01              add #1
 073F B700              sta *__r3
 0741 E602              lda 2,X
 0743 A900              adc #0
 0745 B700              sta *__r2
 0747 B600              lda *__r1
 0749 5500              ldhx *__r2
 074B F7                sta ,x
 074C 95                tsx
 074D           ;           time_array[2]=data[2]%100/10;
 074D B605              lda *_data+4+1
 074F B700              sta *__rlo
 0751 B604              lda *_data+4
 0753 B700              sta *__rhi
 0755 A664              lda #100
 0757 87                psha
 0758 4F                clra
 0759 87                psha
 075A CD0000            jsr __divmod16u
 075D 86                pula
 075E B700              sta *__r0
 0760 86                pula
 0761 B700              sta *__rlo
 0763 4E0000            mov *__r0,*__rhi
 0766 A60A              lda #10
 0768 87                psha
 0769 4F                clra
 076A 87                psha
 076B CD0000            jsr __divmod16u
 076E A702              ais #2
 0770 4E0000            mov *__rlo,*__r1
 0773 E603              lda 3,X
 0775 AB02              add #2
 0777 B700              sta *__r3
 0779 E602              lda 2,X
 077B A900              adc #0
 077D B700              sta *__r2
 077F B600              lda *__r1
 0781 5500              ldhx *__r2
 0783 F7                sta ,x
 0784 95                tsx
 0785           ;           time_array[3]=data[2]%10;
 0785 B605              lda *_data+4+1
 0787 B700              sta *__rlo
 0789 B604              lda *_data+4
 078B B700              sta *__rhi
 078D A60A              lda #10
 078F 87                psha
 0790 4F                clra
 0791 87                psha
 0792 CD0000            jsr __divmod16u
 0795 86                pula
 0796 86                pula
 0797 B700              sta *__r1
 0799 E603              lda 3,X
 079B AB03              add #3
 079D B700              sta *__r3
 079F E602              lda 2,X
 07A1 A900              adc #0
 07A3 B700              sta *__r2
 07A5 B600              lda *__r1
 07A7 5500              ldhx *__r2
 07A9 F7                sta ,x
 07AA 95                tsx
 07AB           ;           time_array[4]=data[1]/10;
 07AB B603              lda *_data+2+1
 07AD B700              sta *__rlo
 07AF B602              lda *_data+2
 07B1 B700              sta *__rhi
 07B3 A60A              lda #10
 07B5 87                psha
 07B6 4F                clra
 07B7 87                psha
 07B8 CD0000            jsr __divmod16u
 07BB A702              ais #2
 07BD 4E0000            mov *__rlo,*__r1
 07C0 E603              lda 3,X
 07C2 AB04              add #4
 07C4 B700              sta *__r3
 07C6 E602              lda 2,X
 07C8 A900              adc #0
 07CA B700              sta *__r2
 07CC B600              lda *__r1
 07CE 5500              ldhx *__r2
 07D0 F7                sta ,x
 07D1 95                tsx
 07D2           ;           time_array[5]=data[1]%10;
 07D2 B603              lda *_data+2+1
 07D4 B700              sta *__rlo
 07D6 B602              lda *_data+2
 07D8 B700              sta *__rhi
 07DA A60A              lda #10
 07DC 87                psha
 07DD 4F                clra
 07DE 87                psha
 07DF CD0000            jsr __divmod16u
 07E2 86                pula
 07E3 86                pula
 07E4 B700              sta *__r1
 07E6 E603              lda 3,X
 07E8 AB05              add #5
 07EA B700              sta *__r3
 07EC E602              lda 2,X
 07EE A900              adc #0
 07F0 B700              sta *__r2
 07F2 B600              lda *__r1
 07F4 5500              ldhx *__r2
 07F6 F7                sta ,x
 07F7 95                tsx
 07F8           ;           time_array[6]=data[0]/10;
 07F8 B601              lda *_data+1
 07FA B700              sta *__rlo
 07FC B600              lda *_data
 07FE B700              sta *__rhi
 0800 A60A              lda #10
 0802 87                psha
 0803 4F                clra
 0804 87                psha
 0805 CD0000            jsr __divmod16u
 0808 A702              ais #2
 080A 4E0000            mov *__rlo,*__r1
 080D E603              lda 3,X
 080F AB06              add #6
 0811 B700              sta *__r3
 0813 E602              lda 2,X
 0815 A900              adc #0
 0817 B700              sta *__r2
 0819 B600              lda *__r1
 081B 5500              ldhx *__r2
 081D F7                sta ,x
 081E 95                tsx
 081F           ;           time_array[7]=data[0]%10;
 081F B601              lda *_data+1
 0821 B700              sta *__rlo
 0823 B600              lda *_data
 0825 B700              sta *__rhi
 0827 A60A              lda #10
 0829 87                psha
 082A 4F                clra
 082B 87                psha
 082C CD0000            jsr __divmod16u
 082F 86                pula
 0830 86                pula
 0831 B700              sta *__r1
 0833 E603              lda 3,X
 0835 AB07              add #7
 0837 B700              sta *__r3
 0839 E602              lda 2,X
 083B A900              adc #0
 083D B700              sta *__r2
 083F B600              lda *__r1
 0841 5500              ldhx *__r2
 0843 F7                sta ,x
 0844           ;           time_array[8]=time[2]/10;
 0844 B602              lda *_time+2
 0846 AE0A              ldx #10
 0848 8C                clrh
 0849 52                div
 084A 95                tsx
 084B B700              sta *__r1
 084D E603              lda 3,X
 084F AB08              add #8
 0851 B700              sta *__r3
 0853 E602              lda 2,X
 0855 A900              adc #0
 0857 B700              sta *__r2
 0859 B600              lda *__r1
 085B 5500              ldhx *__r2
 085D F7                sta ,x
 085E           ;           time_array[9]=time[2]%10;
 085E B602              lda *_time+2
 0860 AE0A              ldx #10
 0862 8C                clrh
 0863 52                div
 0864 8B                pshh
 0865 86                pula
 0866 95                tsx
 0867 B700              sta *__r1
 0869 E603              lda 3,X
 086B AB09              add #9
 086D B700              sta *__r3
 086F E602              lda 2,X
 0871 A900              adc #0
 0873 B700              sta *__r2
 0875 B600              lda *__r1
 0877 5500              ldhx *__r2
 0879 F7                sta ,x
 087A           ;           time_array[10]=time[1]/10;
 087A B601              lda *_time+1
 087C AE0A              ldx #10
 087E 8C                clrh
 087F 52                div
 0880 95                tsx
 0881 B700              sta *__r1
 0883 E603              lda 3,X
 0885 AB0A              add #10
 0887 B700              sta *__r3
 0889 E602              lda 2,X
 088B A900              adc #0
 088D B700              sta *__r2
 088F B600              lda *__r1
 0891 5500              ldhx *__r2
 0893 F7                sta ,x
 0894           ;           time_array[11]=time[1]%10;
 0894 B601              lda *_time+1
 0896 AE0A              ldx #10
 0898 8C                clrh
 0899 52                div
 089A 8B                pshh
 089B 86                pula
 089C 95                tsx
 089D B700              sta *__r1
 089F E603              lda 3,X
 08A1 AB0B              add #11
 08A3 B700              sta *__r3
 08A5 E602              lda 2,X
 08A7 A900              adc #0
 08A9 B700              sta *__r2
 08AB B600              lda *__r1
 08AD 5500              ldhx *__r2
 08AF F7                sta ,x
 08B0           ;           time_array[12]=time[0]/10;
 08B0 B600              lda *_time
 08B2 AE0A              ldx #10
 08B4 8C                clrh
 08B5 52                div
 08B6 95                tsx
 08B7 B700              sta *__r1
 08B9 E603              lda 3,X
 08BB AB0C              add #12
 08BD B700              sta *__r3
 08BF E602              lda 2,X
 08C1 A900              adc #0
 08C3 B700              sta *__r2
 08C5 B600              lda *__r1

⌨️ 快捷键说明

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