;Jonah Cohen (ComAsYuAre@aol.com) ;Kirk Meyer (KirkMeyer@bigfoot.com) ;53 bytes ;====== BucketSort: xor a exx BucketBig: ld hl,TEMP+10002 ld bc,5001 BucketDump: dec hl ld d,(hl) ld (hl),a cpd ld e,(hl) ld (hl),a jr nc,BucketSkip .db $3E BucketLoop: push bc dec de ld a,d rlca jr nc,BucketLoop BucketSkip: jp pe,BucketDump sbc hl,hl add hl,sp exx ld sp,hl ret c ld sp,ARRAY ld de,TEMP BucketFill: dec bc ld a,b rlca jr c,BucketBig pop hl add hl,hl add hl,de BucketInc: inc (hl) inc hl jr z,BucketInc jr BucketFill