ORG      $8000
NUMBERS   DS.B     5               ;room for 5 input values
BUCKETS   DS.B     11              ;room for 11 buckets

          ORG      $8100

BKTSORT   LEA	BUCKETS,A0         ;init array pointer
                 MOVE.W   #10,D0          ;init loop counter
CLRBKT     CLR.B    (A0)+               ;clear bucket
                 DBRA     D0,CLRBKT       ;do this 11 times
                 LEA	    NUMBERS,A1     ;init pointer to input data
                 LEA	    BUCKETS,A0     ;init pointer to buckets
                 MOVE.W   #4,D0             ;init loop counter
SETBKT      MOVE.B   (A1)+,D1         ;read input value
                 MOVE.B   #1,(A0,D1)      ;set bucket to 1
                 DBRA     D0,SETBKT       ;do this 5 times
                 LEA	    NUMBERS,A1    ;init pointer to input array
                 LEA	    BUCKETS,A0    ;init pointer to buckets
                 CLR.L    D1                   ;clear index pointer
                 MOVE.W   #10,D0          ;init loop counter
READBKT   CMPI.B   #1,(A0,D1)      ;read bucket value
                 BNE      NOSAVE            ;branch if bucket = 0
                 MOVE.B   D1,(A1)+        ;save index value
NOSAVE     ADDI.B   #1,D1             ;advance index value
                 DBRA     D0,READBKT    ;do this 11 times
                 RTS