; ; gr-v4-04.x68 ; ; Odredite broj negativnih 16 bitnih vrijednosti niza ; zadanog sa: ; - varijablom LENGTH s adrese 6000 (duljina niza) ; - varijablom START s adrese 6002 (pocetak niza) ; ; Spremite rezultat na adresu 6006 ; DATA: EQU $6000 PROGRAM: EQU $6100 ORG DATA LENGTH: DS.W 1 START: DS.L 1 TOTAL: DS.W 1 ORG PROGRAM POCETAK: MOVEA.L START, A0 MOVEQ #0, D0 MOVE.W LENGTH, D1 BEQ.S GOTOVO LOOP: TST.W (A0)+ BPL.S LOOPTEST ADDQ.W #1, D0 LOOPTEST: SUBQ.W #1, D1 BNE LOOP GOTOVO: MOVE.W D0, TOTAL MOVE.B #9,D0 TRAP #15 ; halt simulator END POCETAK