Number Sort Algorithm

[Darrel Taylor]

Cool.

And I suppose if someone wanted to test the "Surprise", they might do something like this ...

;Initialize your hardware first

A      VAR WORD
B      VAR WORD
TempA  VAR WORD
TempB  VAR WORD

LCDOUT $FE,1

For A = 0 to 65535
    LCDOUT $FE,2,"A=",DEC A
    For B = 0 to 65535
        TempA = A
        TempB = B
        TempA = TempA ^ TempB
        TempB = TempA ^ TempB
        TempA = TempA ^ TempB
        IF (TempA <> B) OR (TempB <> A) THEN ; Test Failed
            LCDOUT $FE,1,"Test Failed",$FE,$C0,"A=",DEC A,", B =",DEC B
            STOP
        ENDIF
    Next B
Next A

LCDOUT $FE,1,"Test Passed!"
STOP

Then some 40 hours later (@ 20Mhz) [that's over 4 billion combinations],
you would no doubt see the message "Test Passed!" on the LCD.

Only a half hour into it, but it's still passing. Kinda obvious what the result will be.

Update: 43hrs, Test Passed! (obviously)
<br>