排序 改进.txt

来自「基于单片机的一些典型应用」· 文本 代码 · 共 55 行

 ORG 0000H
      AJMP START
      ORG 000BH 
      AJMP IT
      ORG 0100H
START: MOV SP, #70H
       MOV DPTR,#TAB
       MOV R2,#00H
       MOV R7,#06H
    L1:MOV A,R2
       ADD A ,R2
       MOV R3,A
       MOVC A,@A+DPTR
       CJNE A,#31H,ABC
       MOV A,R3
       INC A
       MOVC A,@A+DPTR
       CJNE A,#21H,ABC
   ABC:JNC BJ
       INC R2
       DJNZ R7,L1
       JMP L2
    BJ:MOV 30H,R2
       MOV A,R3
       MOVC A,@A+DPTR
       MOV 31H,A
       INC DPTR
       MOV A ,R3
       MOVC A,@A+DPTR
       MOV 32H,A
      MOV R2,#0AH
       CLR F0
      MOV R0, #22H
      MOV R1, #21H
      MOV TMOD, #01H
      MOV TH0, #3CH
      MOV TL0, #0B0H
      SETB TR0
      MOV IE, #82H
 L2: AJMP L2
IT: MOV TH0, #3CH
     MOV TL0, #0B0H
     DJNZ R2, EXIT
     MOV R2, #0AH
     CPL F0
     JB F0, LLI
     MOV A, #0FFH
     JMP L3
LLI: MOV A, #80H
L3: MOVX @R0, A
    MOV A, #01H
    MOVX @R1, A
EXIT: RETI 
TAB:DW 1230H,1450H,2230H,2440H,3121H,3300H
    END