;bubble sort N words starting at 1006
;N at 1004
; for (i=0; i<N; i++)
;   for (j=0; j<N-1-i; j++)
;   if (A[j] > A[j+1])
;     swap(A[j],A[j+1])

	JMP	Start
	DB	0		;dummy byte for word alignment

	DW	6		;size of data "array" that follows

	DW	44
	DW	12
	DW	22
	DW	4
	DW	41
	DW	6
		
Start:	MOV	BX,[1004]	;get N

;i loop N-1 times
NextI:
	MOV	SI,1006	;first word of array
	MOV	CX,BX	;j=i ?
		
  NextJ:		;bubble largest to end
    	MOV	DX,[SI]
      	CMP	DX,[SI+2]	;compare A[j] with A[j+1]
      	JS	Else	;if DX<next data word, jump
      	MOV	AX,DX	;swap [SI],[SI+2] words.  AX is temp
      	MOV	DX,[SI+2]	
      	MOV	[SI+2],AX
      	MOV	[SI],DX
    Else: 
  	ADD	SI,2	;j++
  	DEC	CX
  	JNZ	NextJ
  	
  	DEC	BX	;started at N
  	JNZ	NextI
	
	HLT


MICRO-86 KIT v1.2,   Sep 18, 2004 ,2:57  PM 
--------------------------------------------------
ADDR                  CODE   LABEL      MNEMONICS 
--------------------------------------------------
1000:             E9 0F 00              JMP	START
1003:                   00              
1004:                06 00              
1006:                44 00              
1008:                12 00              
100A:                22 00              
100C:                04 00              
100E:                41 00              
1010:                06 00              
1012:          8B 1E 04 10   START      MOV	BX,[1004]
1016:                        NEXTI      
1016:             BE 06 10              MOV	SI,1006
1019:                8B CB              MOV	CX,BX
101B:                        NEXTJ      
101B:                8B 14              MOV	DX,[SI]
101D:             3B 54 02              CMP	DX,[SI+2]
1020:                78 0A              JS	ELSE
1022:                8B C2              MOV	AX,DX
1024:             8B 54 02              MOV	DX,[SI+2]
1027:             89 44 02              MOV	[SI+2],AX
102A:                89 14              MOV	[SI],DX
102C:                        ELSE       
102C:             83 C6 02              ADD	SI,2
102F:                   49              DEC	CX
1030:                75 E9              JNZ	NEXTJ
1032:                   4B              DEC	BX
1033:                75 E1              JNZ	NEXTI
1035:                   F4              HLT
1036: