Bubble sort 6502 asm

:BasicUpstart2(main)

.var brkFile = createFile("breakpoints.txt")

.macro break() {
  .eval brkFile.writeln("break " + toHexString(*))
}


main:


    ldx #$00
tam:
    ldy #$00

tutaj:

        lda numery,y
        cmp numery+1,y
        beq noswap
        bcc noswap

        lda numery+1,y
        sta tmp
        lda numery,y
        sta numery+1,y
        lda tmp
        sta numery,y

noswap:

        iny
        cpy #$fe
        bne tutaj
        inx
        cpx #$fe
        bne tam
        rts




.pc = $c000 "Tablica"

numery:
.byte $7F,$7C,$79,$76,$72,$6F,$6C,$69,$66,$63,$60,$5D,$5A,$57,$54,$51
.byte $4E,$4B,$48,$45,$42,$3F,$3D,$3A,$37,$35,$32,$30,$2D,$2B,$29,$26
.byte $24,$22,$20,$1E,$1C,$1A,$18,$16,$14,$12,$11,$F,$E,$C,$B,$A
.byte $9,$7,$6,$5,$4,$4,$3,$2,$2,$1,$1,$0,$0,$0,$0,$0
.byte $0,$0,$0,$0,$0,$1,$1,$2,$2,$3,$4,$5,$6,$7,$8,$9
.byte $A,$C,$D,$F,$10,$12,$13,$15,$17,$19,$1B,$1D,$1F,$21,$23,$25
.byte $27,$2A,$2C,$2F,$31,$34,$36,$39,$3B,$3E,$41,$44,$46,$49,$4C,$4F
.byte $52,$55,$58,$5B,$5E,$61,$64,$67,$6B,$6E,$71,$74,$77,$7A,$7D,$81
.byte $84,$87,$8A,$8D,$90,$93,$97,$9A,$9D,$A0,$A3,$A6,$A9,$AC,$AF,$B2
.byte $B5,$B8,$BA,$BD,$C0,$C3,$C5,$C8,$CA,$CD,$CF,$D2,$D4,$D7,$D9,$DB
.byte $DD,$DF,$E1,$E3,$E5,$E7,$E9,$EB,$EC,$EE,$EF,$F1,$F2,$F4,$F5,$F6
.byte $F7,$F8,$F9,$FA,$FB,$FC,$FC,$FD,$FD,$FE,$FE,$FE,$FE,$FE,$FE,$FE
.byte $FE,$FE,$FE,$FD,$FD,$FC,$FC,$FB,$FA,$FA,$F9,$F8,$F7,$F5,$F4,$F3
.byte $F2,$F0,$EF,$ED,$EC,$EA,$E8,$E6,$E4,$E2,$E0,$DE,$DC,$DA,$D8,$D5
.byte $D3,$D1,$CE,$CC,$C9,$C7,$C4,$C1,$BF,$BC,$B9,$B6,$B3,$B0,$AD,$AA
.byte $A7,$A4,$A1,$9E,$9B,$98,$95,$92,$8F,$8C,$88,$85,$82,$7F



tmp:
    .byte $00