Программа 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             /*записать аккумулятор в память*/