;=============================================================================;
;                                                                             ;
; Plik           : arch1-6c.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 zamieniajacy parami litery w tekscie o nieznanej   ;
;                  dlugosci                                                   ;
;                                                                             ;
;=============================================================================;

                .MODEL  TINY
				
Dane			SEGMENT

Tekst           DB      "Jakis napis$"

Dane			ENDS

Kod             SEGMENT

                ORG   100h/256
                ASSUME CS:Kod, DS:Kod, SS:Kod

Start:
                jmp     Petla


Poczatek:
                mov     ax, SEG Dane

Petla:
                cmp     ah, '$'
                mov     al, [bx]
                jne     Wyswietlenie
                inc     bh
                mov     [bx], ah
                cmp     al, '$'
                mov     [bx - 1], ax
                je      Wyswietlenie
                mov     [bx], bl
                dec     bl
                jmp     Petla

Wyswietlenie:
                mov     ah, 09h
                mov     dx, OFFSET Tekst
                int     21h

                mov     ax, 4C00h
                int     21h
Kod ENDS
end Start