;=============================================================================;
;                                                                             ;
; Plik           : arch1-4c.asm                                               ;
; Format         : COM                                                        ;
; Cwiczenie      : Kompilacja, konsolidacja i debugowanie programów           ;
;                  asemblerowych                                              ;
; Autorzy        : Imie Nazwisko, Imie Nazwisko, grupa, dzien, godzina zajec  ;
; Data zaliczenia: DD.MM.ROK                                                  ;
; Uwagi          : Program obliczajacy srednia arytmetyczna liczb w tablicy   ;
;                                                                             ;
;=============================================================================;

                .MODEL  TINY

Kod            SEGMENT 

                ORG     120h
                ASSUME   CS:Kod, DS:Kod, SS:Kod

Start:
                jmp     Petla

DL_TABLICA      EQU     12
Tablica         DB      01h, 02h, 00h, 10h, 12h, 33h
                DB      15h, 09h, 11h, 08h, 0Ah, 00h
Srednia         DB       ?

Poczatek:
                xor     bl, bl
                mov     bx, OFFSET Tablica
                mov     ch, DL_TABLICA

Petla:
                add     al, bl
                loop     Poczatek
                dec     bx

                mov     ah, Srednia
                div       bh

                mov     ax, 4C76h
                int     21h

Kod             Ends

                END     Start