**************************************
* ПЗ №8 (9 семестр) ЗАДАЧА №1        *
* Изменение знака элементов массива  *
* на противоположный                 *
* Входные данные: память данных      *
* Выходные данные: Посл. порт McDSP0 * 
**************************************
;  .def _c_int00
;  .mmregs
;McDXR0 .set 23h
;  .data
;CNT .word  10  
;MAS .align 80h 
;  .loop CNT
;  .word 0
;  .endloop
;  .text
;_c_int00:
;  STM  #4000h,SP
;  MVDM CNT,AR2
;  STM  #MAS,AR1
;  CALL  SIGN
;  NOP
;
;SIGN
;  LD   *AR1+,A
;  XOR  #8000h,A
;  STLM  A,McDXR0
;  BANZ    SIGN,*AR2-
;  RET
;  .end
**************************************
* ПЗ №8 (9 семестр) ЗАДАЧА №2   *
* Подсчет суммы элементов массива    *
* Входные данные: Паралл. порт РА25  *
* Выходные данные: ячейка памяти SUM *
* Числа без знака                    * 
**************************************
;  .def _c_int00
;  .mmregs
;PA25 .set 25
;CNT .set  10  
;  .data
;SUM .word 0
;  .text
;_c_int00:
;  STM  #4000h,SP
;  LD   #SUM,DP
;  STM  #SUM,AR4
;  STM  #CNT-1,BRC
;  CALL  MSUM
;  NOP
;
;MSUM
;  RPTB loop-1
;  PORTR  PA25,*AR4
;  ADDS *AR4,A
;loop STL  A,*AR4
;  ret
;  .end  
  
  
  
  
   .def _c_int00
   .mmregs
CNT   .set 5
   .data
MAS   .word 0x1,0x2,0x9,0x4,0x5

   .text
_c_int00: SSBX SXM
   LD  #0,DP   
   STM  #MAS, AR1
DCR:  STM  #CNT-1, BRC  ; Задание счётчика повторений блока
   RPTB block    
   LD   *AR1+,16, A
   MAX  B 
block:   NOP
   .end