📄 lcdshow.lis
字号:
0625 ;
0625 ; case 13:temp[7]=Keyvalue;
0625 E606 lda 6,X
0627 AB07 add #7
0629 B700 sta *__r1
062B E605 lda 5,X
062D A900 adc #0
062F B700 sta *__r0
0631 E604 lda 4,X
0633 5500 ldhx *__r0
0635 F7 sta ,x
0636 95 tsx
0637 ; if((temp[6]==3)&&(temp[7]>1))
0637 E606 lda 6,X
0639 AB06 add #6
063B B700 sta *__r1
063D E605 lda 5,X
063F A900 adc #0
0641 B700 sta *__r0
0643 5500 ldhx *__r0
0645 F6 lda ,x
0646 95 tsx
0647 A103 cmp #3
0649 2638 bne L87
064B E606 lda 6,X
064D AB07 add #7
064F B700 sta *__r1
0651 E605 lda 5,X
0653 A900 adc #0
0655 B700 sta *__r0
0657 5500 ldhx *__r0
0659 F6 lda ,x
065A 95 tsx
065B A101 cmp #1
065D 2324 bls L87
065F ; {temp[6]=0 ; temp[7]=0 ; }
065F E606 lda 6,X
0661 AB06 add #6
0663 B700 sta *__r1
0665 E605 lda 5,X
0667 A900 adc #0
0669 B700 sta *__r0
066B 4F clra
066C 5500 ldhx *__r0
066E F7 sta ,x
066F 95 tsx
0670 E606 lda 6,X
0672 AB07 add #7
0674 B700 sta *__r1
0676 E605 lda 5,X
0678 A900 adc #0
067A B700 sta *__r0
067C 4F clra
067D 5500 ldhx *__r0
067F F7 sta ,x
0680 95 tsx
0681 2012 bra L68
0683 L87:
0683 ; else temp[7]=Keyvalue; break;
0683 E606 lda 6,X
0685 AB07 add #7
0687 B700 sta *__r1
0689 E605 lda 5,X
068B A900 adc #0
068D B700 sta *__r0
068F E604 lda 4,X
0691 5500 ldhx *__r0
0693 F7 sta ,x
0694 95 tsx
0695 L67:
0695 L68:
0695 ;
0695 ;
0695 ; }
0695 ; }
0695 L65:
0695 ; if(m==2) //在第二行
0695 E607 lda 7,X
0697 A102 cmp #2
0699 2703 beq X27
069B CC0834 jmp L89
069E X27:
069E ; {
069E ; switch(n)
069E 7F clr ,X
069F E608 lda 8,X
06A1 E701 sta 1,X
06A3 F6 lda ,X
06A4 2606 bne X9
06A6 E601 lda 1,X
06A8 A105 cmp #5
06AA 273F beq L94
06AC X9:
06AC F6 lda ,X
06AD 2609 bne X10
06AF E601 lda 1,X
06B1 A106 cmp #6
06B3 2603 bne X28
06B5 CC0728 jmp L97
06B8 X28:
06B8 X10:
06B8 F6 lda ,X
06B9 2609 bne X11
06BB E601 lda 1,X
06BD A108 cmp #8
06BF 2603 bne X29
06C1 CC079C jmp L100
06C4 X29:
06C4 X11:
06C4 F6 lda ,X
06C5 2609 bne X12
06C7 E601 lda 1,X
06C9 A109 cmp #9
06CB 2603 bne X30
06CD CC07D5 jmp L103
06D0 X30:
06D0 X12:
06D0 F6 lda ,X
06D1 2609 bne X13
06D3 E601 lda 1,X
06D5 A10B cmp #11
06D7 2603 bne X31
06D9 CC07E9 jmp L104
06DC X31:
06DC X13:
06DC F6 lda ,X
06DD 2609 bne X14
06DF E601 lda 1,X
06E1 A10C cmp #12
06E3 2603 bne X32
06E5 CC0822 jmp L107
06E8 X32:
06E8 X14:
06E8 CC0834 jmp L91
06EB X15:
06EB ; {
06EB L94:
06EB ; case 5:temp[8]=Keyvalue;
06EB E606 lda 6,X
06ED AB08 add #8
06EF B700 sta *__r1
06F1 E605 lda 5,X
06F3 A900 adc #0
06F5 B700 sta *__r0
06F7 E604 lda 4,X
06F9 5500 ldhx *__r0
06FB F7 sta ,x
06FC 95 tsx
06FD ; if(temp[8]>2)
06FD E606 lda 6,X
06FF AB08 add #8
0701 B700 sta *__r1
0703 E605 lda 5,X
0705 A900 adc #0
0707 B700 sta *__r0
0709 5500 ldhx *__r0
070B F6 lda ,x
070C 95 tsx
070D A102 cmp #2
070F 2203 bhi X33
0711 CC0834 jmp L92
0714 X33:
0714 ; temp[8]=0 ; break;
0714 E606 lda 6,X
0716 AB08 add #8
0718 B700 sta *__r1
071A E605 lda 5,X
071C A900 adc #0
071E B700 sta *__r0
0720 4F clra
0721 5500 ldhx *__r0
0723 F7 sta ,x
0724 95 tsx
0725 CC0834 jmp L92
0728 L97:
0728 ;
0728 ; case 6:temp[9]=Keyvalue;
0728 E606 lda 6,X
072A AB09 add #9
072C B700 sta *__r1
072E E605 lda 5,X
0730 A900 adc #0
0732 B700 sta *__r0
0734 E604 lda 4,X
0736 5500 ldhx *__r0
0738 F7 sta ,x
0739 95 tsx
073A ; if((temp[8]==2)&&(temp[9]>3))
073A E606 lda 6,X
073C AB08 add #8
073E B700 sta *__r1
0740 E605 lda 5,X
0742 A900 adc #0
0744 B700 sta *__r0
0746 5500 ldhx *__r0
0748 F6 lda ,x
0749 95 tsx
074A A102 cmp #2
074C 2639 bne L98
074E E606 lda 6,X
0750 AB09 add #9
0752 B700 sta *__r1
0754 E605 lda 5,X
0756 A900 adc #0
0758 B700 sta *__r0
075A 5500 ldhx *__r0
075C F6 lda ,x
075D 95 tsx
075E A103 cmp #3
0760 2325 bls L98
0762 ; {temp[8]=0;temp[9]=0 ; }
0762 E606 lda 6,X
0764 AB08 add #8
0766 B700 sta *__r1
0768 E605 lda 5,X
076A A900 adc #0
076C B700 sta *__r0
076E 4F clra
076F 5500 ldhx *__r0
0771 F7 sta ,x
0772 95 tsx
0773 E606 lda 6,X
0775 AB09 add #9
0777 B700 sta *__r1
0779 E605 lda 5,X
077B A900 adc #0
077D B700 sta *__r0
077F 4F clra
0780 5500 ldhx *__r0
0782 F7 sta ,x
0783 95 tsx
0784 CC0834 jmp L92
0787 L98:
0787 ; else temp[9]=Keyvalue; break;
0787 E606 lda 6,X
0789 AB09 add #9
078B B700 sta *__r1
078D E605 lda 5,X
078F A900 adc #0
0791 B700 sta *__r0
0793 E604 lda 4,X
0795 5500 ldhx *__r0
0797 F7 sta ,x
0798 95 tsx
0799 CC0834 jmp L92
079C L100:
079C ;
079C ; case 8:temp[10]=Keyvalue;
079C E606 lda 6,X
079E AB0A add #10
07A0 B700 sta *__r1
07A2 E605 lda 5,X
07A4 A900 adc #0
07A6 B700 sta *__r0
07A8 E604 lda 4,X
07AA 5500 ldhx *__r0
07AC F7 sta ,x
07AD 95 tsx
07AE ; if(temp[10]>5) temp[10]=0 ; break;
07AE E606 lda 6,X
07B0 AB0A add #10
07B2 B700 sta *__r1
07B4 E605 lda 5,X
07B6 A900 adc #0
07B8 B700 sta *__r0
07BA 5500 ldhx *__r0
07BC F6 lda ,x
07BD 95 tsx
07BE A105 cmp #5
07C0 2372 bls L92
07C2 E606 lda 6,X
07C4 AB0A add #10
07C6 B700 sta *__r1
07C8 E605 lda 5,X
07CA A900 adc #0
07CC B700 sta *__r0
07CE 4F clra
07CF 5500 ldhx *__r0
07D1 F7 sta ,x
07D2 95 tsx
07D3 205F bra L92
07D5 L103:
07D5 ;
07D5 ; case 9:temp[11]=Keyvalue; break;
07D5 E606 lda 6,X
07D7 AB0B add #11
07D9 B700 sta *__r1
07DB E605 lda 5,X
07DD A900 adc #0
07DF B700 sta *__r0
07E1 E604 lda 4,X
07E3 5500 ldhx *__r0
07E5 F7 sta ,x
07E6 95 tsx
07E7 204B bra L92
07E9 L104:
07E9 ;
07E9 ; case 11:temp[12]=Keyvalue;
07E9 E606 lda 6,X
07EB AB0C add #12
07ED B700 sta *__r1
07EF E605 lda 5,X
07F1 A900 adc #0
07F3 B700 sta *__r0
07F5 E604 lda 4,X
07F7 5500 ldhx *__r0
07F9 F7 sta ,x
07FA 95 tsx
07FB ; if(temp[12]>5) temp[12]=0 ; break;
07FB E606 lda 6,X
07FD AB0C add #12
07FF B700 sta *__r1
0801 E605 lda 5,X
0803 A900 adc #0
0805 B700 sta *__r0
0807 5500 ldhx *__r0
0809 F6 lda ,x
080A 95 tsx
080B A105 cmp #5
080D 2325 bls L92
080F E606 lda 6,X
0811 AB0C add #12
0813 B700 sta *__r1
0815 E605 lda 5,X
0817 A900 adc #0
0819 B700 sta *__r0
081B 4F clra
081C 5500 ldhx *__r0
081E F7 sta ,x
081F 95 tsx
0820 2012 bra L92
0822 L107:
0822 ;
0822 ; case 12:temp[13]=Keyvalue; break;
0822 E606 lda 6,X
0824 AB0D add #13
0826 B700 sta *__r1
0828 E605 lda 5,X
082A A900 adc #0
082C B700 sta *__r0
082E E604 lda 4,X
0830 5500 ldhx *__r0
0832 F7 sta ,x
0833 95 tsx
0834 L91:
0834 L92:
0834 ; }
0834 ; }
0834 L89:
0834 L64:
0834 A702 ais #2
0836 .dbline 0 ; func end
0836 81 rts
0837 ; m -> 2,X
0837 _Discriminant::
0837 95 tsx
0838 ; }
0838 ;
0838 ; //判断按下的键是否数字键
0838 ; unsigned char Discriminant(unsigned char m)
0838 ; {
0838 ; if(m=='1'||m=='2'||m=='3'||m=='4'||m=='5'||m=='6'||m=='7'||m=='8'||m=='9'||m=='0')
0838 E602 lda 2,X
083A A131 cmp #49
083C 2724 beq L119
083E A132 cmp #50
0840 2720 beq L119
0842 A133 cmp #51
0844 271C beq L119
0846 A134 cmp #52
0848 2718 beq L119
084A A135 cmp #53
084C 2714 beq L119
084E A136 cmp #54
0850 2710 beq L119
0852 A137 cmp #55
0854 270C beq L119
0856 A138 cmp #56
0858 2708 beq L119
085A A139 cmp #57
085C 2704 beq L119
085E A130 cmp #48
0860 2604 bne L109
0862 L119:
0862 ; return 1;
0862 A601 lda #1
0864 2001 bra L108
0866 L109:
0866 ; else return 0;
0866 4F clra
0867 L108:
0867 .dbline 0 ; func end
0867 81 rts
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -