:t
It looks a little bit DOSish, though:; Author: A.I.Sopin, Voronezh University, 16/03/93 1993
;
; Using from assembler programs:
;
; Call BSORT
;
; Modified bubblesort algorithm is used
;
...
.model large
public bsort
MaxLen equ 48 ; maximum record length
.code
BSORT PROC FAR pascal uses bx cx dx es si di bp
;----------------------------------------------------------
; Check parameters passed
cmp cx,MaxLen ; array length valid?
jng ChkN ; less than maximum - continue
mov ax,1 ; indicate "elements too long"
jmp Exit ; return
ChkN: cmp dx,0 ; number of elements = 0?
jg Work ; if not continue