LJMP START
ORG 0100H
START:
;----------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------
MOV 31H, #06H ;umieszczenie w pamieci ilosci przejsc sortowania
TU: MOV R7, 31H ;tu zaczyna sie pierwsze przejscie sortowania
;bede sortowal od adresu 20 do 26 od najmniejszej do najwiekszej liczby
MOV R0, #20H ;do R0 laduje wartosc 20 (w pratyce R0 bedzie teraz wskazywac na adres 20)
MOV R1, #21H ;do R1 laduje wartosc 21 (w pratyce R1 bedzie teraz wskazywac na adres 21)
POCZ: MOV A, @R0 ;do akumulatora A laduje zawartosc adresu 20
MOV B, @R1 ;do akumulatora B laduje zawartosc adresu 21
;=============POROWNANIE====================
CJNE A, B, SPRAWDZ_C ;jezeli A~=B to skocz do SPRAWDZ_C (gdy ASPRAWDZ_C: JC NIC ;gdy C=1 skocz do NIC
;--------warunek gdy A>B [SWAP]-------------
MOV 30H, @R0 ;pod adres 30 laduje zawartosc adresu 20 (zwalniam miejsce)
MOV @R0, B ;zawartosc adresu 21 laduje do adresu 20
MOV @R1, 30H ;zawartosc adresu 30 laduje do adresu 21
;--------warunek gdy ANIC: INC R0 ;zwiekszam zawartosc R0 (wskazuje nastepny adres)
INC R1 ;zwiekszam zawartosc R1 (wskazuje nastepny adres)
;===========================================
DJNZ R7, POCZ ;zmniejszam zawartosc R7 i jezeli nie jest ona rowna 0 to skacze do POCZ
DJNZ 31H, TU ;zmniejszanie zawartosci adresu 31 (wykonanie powtorzen)
;----------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------
NOP
NOP
NOP
JMP $
END START