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

📄 lcdshow.lis

📁 摩托罗拉的时钟的原代码
💻 LIS
📖 第 1 页 / 共 5 页
字号:
 0557 87                psha
 0558 4F                clra
 0559 87                psha
 055A CD0000            jsr __divmod16s
 055D 86                pula
 055E 86                pula
 055F B701              sta *_time+1
 0561           ;    time[2]=temp1[0]/10%10;
 0561 E602              lda 2,X
 0563 EE03              ldx 3,X
 0565 87                psha
 0566 8A                pulh
 0567 E601              lda 1,x
 0569 B700              sta *__r1
 056B F6                lda ,x
 056C 95                tsx
 056D B700              sta *__r0
 056F 4E0000            mov *__r1,*__rlo
 0572 4E0000            mov *__r0,*__rhi
 0575 A60A              lda #10
 0577 87                psha
 0578 4F                clra
 0579 87                psha
 057A CD0000            jsr __divmod16s
 057D A702              ais #2
 057F 4E0000            mov *__rhi,*__r0
 0582 4E0000            mov *__rlo,*__r1
 0585 4E0000            mov *__r1,*__rlo
 0588 4E0000            mov *__r0,*__rhi
 058B A60A              lda #10
 058D 87                psha
 058E 4F                clra
 058F 87                psha
 0590 CD0000            jsr __divmod16s
 0593 86                pula
 0594 86                pula
 0595 B702              sta *_time+2
 0597           ;    time[3]=temp1[0]%10;
 0597 E602              lda 2,X
 0599 EE03              ldx 3,X
 059B 87                psha
 059C 8A                pulh
 059D E601              lda 1,x
 059F B700              sta *__r1
 05A1 F6                lda ,x
 05A2 95                tsx
 05A3 B700              sta *__r0
 05A5 4E0000            mov *__r1,*__rlo
 05A8 4E0000            mov *__r0,*__rhi
 05AB A60A              lda #10
 05AD 87                psha
 05AE 4F                clra
 05AF 87                psha
 05B0 CD0000            jsr __divmod16s
 05B3 86                pula
 05B4 86                pula
 05B5 B703              sta *_time+3
 05B7           ;    time[4]=temp1[1]/10;
 05B7 E603              lda 3,X
 05B9 AB02              add #2
 05BB B700              sta *__r1
 05BD E602              lda 2,X
 05BF A900              adc #0
 05C1 B700              sta *__r0
 05C3 5500              ldhx *__r0
 05C5 E601              lda 1,x
 05C7 B700              sta *__r1
 05C9 F6                lda ,x
 05CA 95                tsx
 05CB B700              sta *__r0
 05CD 4E0000            mov *__r1,*__rlo
 05D0 4E0000            mov *__r0,*__rhi
 05D3 A60A              lda #10
 05D5 87                psha
 05D6 4F                clra
 05D7 87                psha
 05D8 CD0000            jsr __divmod16s
 05DB A702              ais #2
 05DD 4E0000            mov *__rlo,*__r1
 05E0 4E0004            mov *__r1,*_time+4
 05E3           ;    time[5]=temp1[1]%10;
 05E3 E603              lda 3,X
 05E5 AB02              add #2
 05E7 B700              sta *__r1
 05E9 E602              lda 2,X
 05EB A900              adc #0
 05ED B700              sta *__r0
 05EF 5500              ldhx *__r0
 05F1 E601              lda 1,x
 05F3 B700              sta *__r1
 05F5 F6                lda ,x
 05F6 95                tsx
 05F7 B700              sta *__r0
 05F9 4E0000            mov *__r1,*__rlo
 05FC 4E0000            mov *__r0,*__rhi
 05FF A60A              lda #10
 0601 87                psha
 0602 4F                clra
 0603 87                psha
 0604 CD0000            jsr __divmod16s
 0607 86                pula
 0608 86                pula
 0609 B705              sta *_time+5
 060B           ;    time[6]=temp1[2]/10;
 060B E603              lda 3,X
 060D AB04              add #4
 060F B700              sta *__r1
 0611 E602              lda 2,X
 0613 A900              adc #0
 0615 B700              sta *__r0
 0617 5500              ldhx *__r0
 0619 E601              lda 1,x
 061B B700              sta *__r1
 061D F6                lda ,x
 061E 95                tsx
 061F B700              sta *__r0
 0621 4E0000            mov *__r1,*__rlo
 0624 4E0000            mov *__r0,*__rhi
 0627 A60A              lda #10
 0629 87                psha
 062A 4F                clra
 062B 87                psha
 062C CD0000            jsr __divmod16s
 062F A702              ais #2
 0631 4E0000            mov *__rlo,*__r1
 0634 4E0006            mov *__r1,*_time+6
 0637           ;    time[7]=temp1[2]%10;
 0637 E603              lda 3,X
 0639 AB04              add #4
 063B B700              sta *__r1
 063D E602              lda 2,X
 063F A900              adc #0
 0641 B700              sta *__r0
 0643 5500              ldhx *__r0
 0645 E601              lda 1,x
 0647 B700              sta *__r1
 0649 F6                lda ,x
 064A 95                tsx
 064B B700              sta *__r0
 064D 4E0000            mov *__r1,*__rlo
 0650 4E0000            mov *__r0,*__rhi
 0653 A60A              lda #10
 0655 87                psha
 0656 4F                clra
 0657 87                psha
 0658 CD0000            jsr __divmod16s
 065B 86                pula
 065C 86                pula
 065D B707              sta *_time+7
 065F           ;    time[8]=temp2[0]/10;
 065F E604              lda 4,X
 0661 EE05              ldx 5,X
 0663 87                psha
 0664 8A                pulh
 0665 F6                lda ,x
 0666 AE0A              ldx #10
 0668 8C                clrh
 0669 52                div
 066A 95                tsx
 066B B708              sta *_time+8
 066D           ;    time[9]=temp2[0]%10;
 066D E604              lda 4,X
 066F EE05              ldx 5,X
 0671 87                psha
 0672 8A                pulh
 0673 F6                lda ,x
 0674 AE0A              ldx #10
 0676 8C                clrh
 0677 52                div
 0678 8B                pshh
 0679 86                pula
 067A 95                tsx
 067B B709              sta *_time+9
 067D           ;    time[10]=temp2[1]/10;
 067D E605              lda 5,X
 067F AB01              add #1
 0681 B700              sta *__r1
 0683 E604              lda 4,X
 0685 A900              adc #0
 0687 B700              sta *__r0
 0689 5500              ldhx *__r0
 068B F6                lda ,x
 068C AE0A              ldx #10
 068E 8C                clrh
 068F 52                div
 0690 95                tsx
 0691 B70A              sta *_time+10
 0693           ;    time[11]=temp2[1]%10;
 0693 E605              lda 5,X
 0695 AB01              add #1
 0697 B700              sta *__r1
 0699 E604              lda 4,X
 069B A900              adc #0
 069D B700              sta *__r0
 069F 5500              ldhx *__r0
 06A1 F6                lda ,x
 06A2 AE0A              ldx #10
 06A4 8C                clrh
 06A5 52                div
 06A6 8B                pshh
 06A7 86                pula
 06A8 95                tsx
 06A9 B70B              sta *_time+11
 06AB           ;    time[12]=temp2[2]/10;
 06AB E605              lda 5,X
 06AD AB02              add #2
 06AF B700              sta *__r1
 06B1 E604              lda 4,X
 06B3 A900              adc #0
 06B5 B700              sta *__r0
 06B7 5500              ldhx *__r0
 06B9 F6                lda ,x
 06BA AE0A              ldx #10
 06BC 8C                clrh
 06BD 52                div
 06BE 95                tsx
 06BF B70C              sta *_time+12
 06C1           ;    time[13]=temp2[2]%10;
 06C1 E605              lda 5,X
 06C3 AB02              add #2
 06C5 B700              sta *__r1
 06C7 E604              lda 4,X
 06C9 A900              adc #0
 06CB B700              sta *__r0
 06CD 5500              ldhx *__r0
 06CF F6                lda ,x
 06D0 AE0A              ldx #10
 06D2 8C                clrh
 06D3 52                div
 06D4 8B                pshh
 06D5 86                pula
 06D6 95                tsx
 06D7 B70D              sta *_time+13
 06D9           L78:
 06D9                   .dbline 0 ; func end
 06D9 81                rts
 06DA           _Change::
 06DA           ; }
 06DA           ; 
 06DA           ; 
 06DA           ; void Change(void)         //将数组time组合存储到数组Tdate
 06DA           ; {
 06DA           ;    Tdate[0]=time[0]*1000+time[1]*100+time[2]*10+time[3];
 06DA 3F00              clr *__r0
 06DC B601              lda *_time+1
 06DE B700              sta *__r1
 06E0 A664              lda #100
 06E2 87                psha
 06E3 4F                clra
 06E4 87                psha
 06E5 B600              lda *__r1
 06E7 87                psha
 06E8 B600              lda *__r0
 06EA 87                psha
 06EB CD0000            jsr __mul16
 06EE A704              ais #4
 06F0 4E0000            mov *__rlo,*__r1
 06F3 4E0000            mov *__rhi,*__r0
 06F6 3F00              clr *__r2
 06F8 B600              lda *_time
 06FA B700              sta *__r3
 06FC A6E8              lda #-24
 06FE 87                psha
 06FF A603              lda #3
 0701 87                psha
 0702 B600              lda *__r3
 0704 87                psha
 0705 B600              lda *__r2
 0707 87                psha
 0708 CD0000            jsr __mul16
 070B A704              ais #4
 070D 4E0000            mov *__rlo,*__r3
 0710 4E0000            mov *__rhi,*__r2
 0713 B600              lda *__r3
 0715 BB00              add *__r1
 0717 B700              sta *__r1
 0719 B600              lda *__r2
 071B B900              adc *__r0
 071D B700              sta *__r0
 071F 3F00              clr *__r2
 0721 B602              lda *_time+2
 0723 B700              sta *__r3
 0725 A60A              lda #10
 0727 87                psha
 0728 4F                clra
 0729 87                psha
 072A B600              lda *__r3
 072C 87                psha
 072D B600              lda *__r2
 072F 87                psha
 0730 CD0000            jsr __mul16
 0733 A704              ais #4
 0735 4E0000            mov *__rlo,*__r3
 0738 4E0000            mov *__rhi,*__r2
 073B B600              lda *__r1
 073D BB00              add *__r3
 073F B700              sta *__r1
 0741 B600              lda *__r0
 0743 B900              adc *__r2
 0745 B700              sta *__r0
 0747 3F00              clr *__r2
 0749 B603              lda *_time+3
 074B B700              sta *__r3
 074D B600              lda *__r1
 074F BB00              add *__r3
 0751 B701              sta *_Tdate+1
 0753 B600              lda *__r0
 0755 B900              adc *__r2
 0757 B700              sta *_Tdate
 0759           ;    Tdate[1]=time[4]*10+time[5];
 0759 3F00              clr *__r0
 075B B605              lda *_time+5
 075D B700              sta *__r1
 075F 3F00              clr *__r2
 0761 B604              lda *_time+4
 0763 B700              sta *__r3
 0765 A60A              lda #10
 0767 87                psha
 0768 4F                clra
 0769 87                psha
 076A B600              lda *__r3
 076C 87                psha
 076D B600              lda *__r2
 076F 87                psha
 0770 CD0000            jsr __mul16
 0773 A704              ais #4
 0775 4E0000            mov *__rlo,*__r3
 0778 4E0000            mov *__rhi,*__r2
 077B B600              lda *__r3
 077D BB00              add *__r1
 077F B703              sta *_Tdate+2+1
 0781 B600              lda *__r2
 0783 B900              adc *__r0
 0785 B702              sta *_Tdate+2
 0787           ;    Tdate[2]=time[6]*10+time[7];
 0787 3F00              clr *__r0
 0789 B607              lda *_time+7
 078B B700              sta *__r1
 078D 3F00              clr *__r2
 078F B606              lda *_time+6
 0791 B700              sta *__r3
 0793 A60A              lda #10
 0795 87                psha
 0796 4F                clra
 0797 87                psha
 0798 B600              lda *__r3
 079A 87                psha
 079B B600              lda *__r2
 079D 87                psha
 079E CD0000            jsr __mul16
 07A1 A704              ais #4
 07A3 4E0000            mov *__rlo,*__r3
 07A6 4E0000            mov *__rhi,*__r2
 07A9 B600              lda *__r3
 07AB BB00              add *__r1
 07AD B705              sta *_Tdate+4+1
 07AF B600              lda *__r2
 07B1 B900              adc *__r0
 07B3 B704              sta *_Tdate+4
 07B5           ;    Ttime[0]=time[8]*10+time[9];
 07B5 B608              lda *_time+8
 07B7 AE0A              ldx #10
 07B9 42                mul
 07BA BB09              add *_time+9
 07BC B700              sta *_Ttime
 07BE           ;    Ttime[1]=time[10]*10+time[11];
 07BE B60A              lda *_time+10

⌨️ 快捷键说明

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