Перевести прогу с intel 8080 на 51 и 48

[Юрич]

сам начал недавно, только-только 8080 примерно узнал, да и то на уровне "познакомился с мнемоникой", а тут еще потребовалось задачку одну и туже на 48 и 51 написать. помогите пожалуйсто.

задание - 10 1б. чисел отсортировать в порядке убывания. числа с 0040 ячейки. результат на место исходных, старт с 0000.

прога для 8080:

0001 0000 0E 0A mvi c,10 ; c = 10
0002 0002 21 40 00 next: lxi h,0040h ; помещаем адрес на массив в пару HL
0003 0005 51 mov d,c ; d = c
0004 0006 7E move: mov a,m ; помещаем первый элемент массива в аккумулятор a = arr[d]
0005 0007 23 inx h ; переходим к следующему элементу массива, arr[d+1]
0006 0008 BE cmp m ; как бы a - m, arr[d] - arr[d+1]
0007 0009 D2 11 00 jnc endif ; если получилось положительное число значит a › m , arr[d] › arr[d+1], заканчиваем итерацию
0008 000C ; иначе меняем местами
0009 000C 46 mov b,m ; b = m , b = arr[d+1]
0010 000D 77 mov m,a ; m = a , arr[d+1] = arr[d]
0011 000E 2B dcx h ; переходим к предыдущему элементу, arr[d]
0012 000F 70 mov m,b ; m = b, arr[d] = b
0013 0010 23 inx h ; возвращаемся на текущий элемент, arr[d+1] на следующей итерации просто arr[d]
0014 0011 15 endif: dcr d ; d--
0015 0012 C2 06 00 jnz move ; если d ‹› 0 , то продолжаем цикл перемещения move
0016 0015 0D dcr c ; c--
0017 0016 C2 02 00 jnz next ; если c ‹› 0 то продолжаем цикл next
0018 0019 76 hlt ; выходим из программы
Number of errors = 0

[lsa]

Юрич, Очередная жертва Бездетко и Палыча?

[Юрич]

Юрич, Очередная жертва Бездетко и Палыча?

как то неловко, когда при обращении к тебе употребляют слова, имеющие неизвестный тебе смысл) вот и думаю теперь, подколол ты меня, оскорбил или еще чего ? ))

[Easyrider83]

Подкололи, не сомневайтесь ))))

[jump]

lsa,
это он?

[omercury]

а тут еще потребовалось задачку одну и туже на 48 и 51 написать.

Испугало, что сразу под 2 семейства?

[ut1wpr]

потребовалось задачку одну и туже на 48 и 51 написать. помогите пожалуйсто.

Написать за вас? И этим помочь? Кому потребовалось?

задание - 10 1б. чисел отсортировать в порядке убывания. числа с 0040 ячейки. результат на место исходных, старт с 0000.

Сортируйте. Располагайте.

[lsa]

Юрич, это не подкол. Раз вы их не знаете - значит мое сообщение не по теме.

jump, да, это он.

[jump]

Юрич,
гуглите bubble sort - алгоритмов, примеров море