冒泡法.asm

来自「MC68HC08908GP32微控制器IO实验」· 汇编 代码 · 共 55 行

address1 EQU $40      
address2 EQU $42
n1       EQU $44
temp     equ $45
flag     equ $46
         org $0060
                 
  ORG $8000
Main: 
  db 20,30,55,42,33,10,80,60,40,57,77,12,23,56,41,18
  ldhx #$6f
  sthx address1
  ldhx #$6f
  sthx address2
  mov #$10,n1
BCD_ADD1:
  ldhx address1
  lda ,x
  aix #-!1
  sthx address1
  ldhx address2
  sta ,x
  aix #-!1
  sthx address2
  dbnz n1,BCD_ADD1
ORDER2:  
  ldhx #$70
  mov #$0f,n1
  bclr 0,flag
ORDER3:
  aix #1
  lda ,x
  aix #-1
  cmp ,x
  aix #1
  bhs ORDER4
  bset 0,flag
  aix #-1
  lda ,x
  sta temp
  aix #1
  lda ,x
  aix #-1
  sta ,x
  aix #1
  lda temp
  sta ,x
ORDER4:
  dbnz n1,ORDER3
  brset 0,flag,ORDER2
  BRA $            
    
     ORG  $FFFE           
     DW   Main