jisuanqi.asm

课程设计计算器

      ORG 00H
      LJMP MAIN
      ORG 30H
MAIN:LCALL DEL
mov p0,#0 
LCALL DEL
STA: 
      MOV P3,#0FEH
      MOV R2,#3
      MOV A,#0
L2:   JNB P3.7 ,L1
      INC A
      JNB P3.6, L1
      INC A
      JNB P3.5, L1
      INC A
      JNB P3.4, L1
      DJNZ R2,L3
      LJMP STA
L3:   INC A
      MOV R7,A
      MOV A,P3
      RL A
      MOV P3,A
      MOV A,R7
      LJMP L2
L1:   CJNE A,#10,JUST
JUST: JNC FUHAO
      MOV DPTR,#TAB
      MOVC A,@A+DPTR
      MOV P0,A
      LJMP STA 
FUHAO:MOV DPTR,#TAB
      MOV A,@DPTR+A
TAB :DB 06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,3FH
     LCALL ADDITION,LCALL SUBI,LCALL ERROR
     LCALL ERROR,LCALL CLEAR,LCALL EQUAL
DEL :MOV R7,#02H
 KKK:MOV R6,#0FFH
     DJNZ R6,$
     DJNZ R7,KKK
     RET 
ADDITION:MOV A,P0
         MOV 20H,A
         SETB P2.7
         LJMP MAIN
SUBI:    MOV A,P0
         MOV 20H,A
         CLR P2.7
         LJMP MAIN
ERROR:   LJMP MAIN
CLEAR:   MOV P0,#0
         LJMP MAIN
END