ORG  0000H
      SJMP MAIN
      ORG  0003H
      LJMP INTER
      ORG 0030H
MAIN: SETB EA
      SETB IT0
      SETB EX0
      MOV 47H,#00H
      MOV 48H,#00H
      MOV 49H,#00H
QUDONGAD:MOV A,49H     
      MOV DPTR,#00H
      MOVX @DPTR,A
      MOV A,47H
      CJNE A,48H,NEXT1
NEXT1:JC NEXT2
      ACALL ZUO
      ACALL ZUO
      ACALL ZUO
      ACALL ZUO
      ACALL ZUO
      SJMP QUDONGAD
      
NEXT2:ACALL YOU
      ACALL YOU
      ACALL YOU
      ACALL YOU
      ACALL YOU
      SJMP QUDONGAD

   
YOU:  SETB P1.3
      CLR P1.4
      CLR P1.1
      SETB P1.2
      ACALL DELAY
      ACALL DELAY
      ACALL DELAY
      SETB P1.4
      ACALL DELAY
      CLR P1.4
      CLR P1.2
      ACALL DELAY
      ACALL DELAY
      ACALL DELAY
      SETB P1.4
      ACALL  DELAY
      CLR P1.4
      ACALL DELAY
      ACALL DELAY
      ACALL DELAY
      SETB P1.4
      ACALL  DELAY
        RET


 ZUO: SETB P1.4
      CLR P1.3
      CLR P1.1
      SETB P1.2
      ACALL DELAY
      ACALL DELAY
      ACALL DELAY
      SETB P1.3
      ACALL DELAY
      CLR P1.3
      CLR P1.2
      ACALL DELAY
      ACALL DELAY
      ACALL DELAY
      SETB P1.3
      ACALL  DELAY
      CLR P1.3
      ACALL DELAY
      ACALL DELAY
      ACALL DELAY
      SETB P1.3
      ACALL  DELAY
      RET




DELAY:MOV 45H,#01H
LOOP4:MOV 46H,#0FFH
LOOP5:DJNZ 46H,LOOP5
      DJNZ 45H,LOOP4
      RET     
      AJMP MAIN


 ;;;;;;轉換后數據處理 ;;;;
INTER:  MOV DPTR,#00H
        MOVX A,@DPTR
        JB 20H.2,NEXT
        MOV 47H,A
        SETB 20H.2
        MOV 49H,#01H
        SJMP NEX
 NEXT:MOV 48H,A
      CLR 20H.2
      MOV 49H,#00H    
 NEX:RETI   
     END