УЦВМ, проверьте правильность программы

[sig_GB]

Проверьте пожалуйста на ошибки всевозможные.
До этого работал в Паскале и др. языках. Теперь ассемблер изучаем и изучаю.
Сделан скрин с экрана на котором код программы на паскале, записаны команды, составлена таблица вспомогательная и сосбственно результат выполнения её на уцвм.
ПОЧЕМУ здесь разместил? просто проверить не кому.
=================================== =======================
ЗАДАНИЕ:Вычислить n-ю степень числа, где n >= 1.

Входные данные брал: число а=10, степень n=2, final_a=1, final_n=1.
Ответ по идее 100, а вышло в аккумуляторе 000001. Это как?
=================================== =======================
И ещё: помогите написать её на настоящем ассемблере пжл. Я разумеется сверю потом со своей.
=================================== =======================

[sig_GB]

Если не совсем с той веткой форума связался - прошу прощения. Там оказывается есть для студентов. Проше прощения.

[p51x]

Вы про циклы слышали? И про не "кошерность" гоуту во многих задачах?

Платформа? ОС? Компилятор? Использование сопроцессора?..

[sig_GB]

слышал, но не знаю как их реализовывать в УЦВМ. Безусловный переход использовал поэтому.
накиньте пару строк пжл по циклам.

[p51x]

Кто такой УЦВМ?

[Stilet]

написать её на настоящем ассемблере пжл

Если без ввода данных то это может выглядеть вот так на МАСМе:

	.386
	.model flat,stdcall
	option casemap:none
		include d:\masm32\include\masm32.inc
			include d:\masm32\include\user32.inc
			includelib d:\masm32\lib\masm32.lib
			  includelib d:\masm32\lib\user32.lib
.data
a				dw 4
n	dw 5
fa dw 1
fn dw 2
capt db 0 dup(100)
;_______________
.code
start:
 xor eax,eax
 xor ecx,ecx
 mov ax,[a]
 mov cx,1
 .WHILE (cx<word ptr [n])
    mul word ptr [a]
    inc cx
 .ENDW
 invoke dwtoa, eax, addr capt
 invoke MessageBoxA,0,addr capt,0,0
 ret
end start

[sig_GB]

Учебная Цифровая Вычислительная Машина. Мол пока до настоящего ассемблера надо помучать её, там всего три регистра (аккумулятор,индексный регистр и регистр связи) используется и можно следить по сетке куда данные и команды помещать.
=================================== =============
Так кто-нибудь с ней знаком? просто судя по входным данным в аккумуляторе должен быть ответ 000 064 (оно же 10^2=100 в 16СС). Откуда там 000 001 взялся не понимаю.

[Stilet]

Так кто-нибудь с ней знаком?

Ой-ей-ей... Соболезную.

[p51x]

sig_GB,я так понял lda - загрузка аккума. А его сохранение? А то получается, что у вас финал_н не меняется. указатель команд стоит у вас на его загрузке....

П.С. Раз у вас есть рабочая УЦВМ, поделитеь. Может кто и поковыряется в ней.

[sig_GB]

Хорошо. Тогда прикрепил внизу саму программу (папка TCom) и чуть чуть теории (то, что нам дали).
Думал думал, вроде ошибок нет. Единственное, вы правильно указали на сохранение аккумулятора, мне так кажется. Вот только его нужно ли сохранять? я думал это как переменная: что записал, то и осталось до след записи.