Программа 28

Программа 28.2. Скалярное произведение на Ассемблере (не оптимизировано)

001 i12=_y /*i12 указывает на начало y[]*/
002 i4=_x /*i4 указывает на начало x[]*/
003
004 lcntr=20, do(pc,4) until lce; /*цикл для 20-элементного массива*/
005 f2=dm(i4,m6); /*загрузить значение x[]в регистр f2*/
006 f4=pm(i12,m14); /*загрузить значение y[]в регистр f4*/
007 f8=f2*f4; /*умножить два значения, запомнить в f8*/
008 f12=f8+f12; /*прибавить произведение к аккумулятору f12*/
009
010 dm(_result)=f12 /*записать аккумулятор в память*/