;Sortowanie przez prosta zamiane.
         .OPT NO LIST,OBJ
ILE      =   25
MAXELEM  =   $C0     °
ADRELEM  =   $C1     °
PHA      =   $C2     °
         *=  $6000
         LDY #ILE-1
JESZCZERAZ
         STY MAXELEM
NEWMAX
         LDA TABLICA,Y
         STY ADRELEM
BEZZMIAN
         DEY 
         BMI NASTCYKL
         CMP TABLICA,Y
         BCS BEZZMIAN
         BCC NEWMAX
NASTCYKL
         LDX ADRELEM
         LDY MAXELEM
         LDA TABLICA,X
         STA PHA
         LDA TABLICA,Y
         STA TABLICA,X
         LDA PHA
         STA TABLICA,Y
         DEY 
         BNE JESZCZERAZ
         RTS 
TABLICA
         .BYTE 2,6,7,1,2,4,3,225,255,0,0,0,1,1,1,2,65,45,78,98,121,23,65,78,99
         .OPT LIST