DATA1 segment
txt1 db "   0000",10,13,'$';deklaracja stałych txt1 nazwa zmiennej, db typ,10 - nowa linia, 13 powrot kursora?, '$' koniec ciagu?
txt2 db "1111", 10,13,'$'
DATA1 ends
CODE1 segment
ASSUME cs:CODE1, ds:DATA1, ss:STOS1
START:
;inicjalizacja stosu
mov ax,seg STOS1
mov ss,ax
mov sp,offset top
mov cx,5 ;licznik pętli
petla: push cx
call napis ;wywołanie podprogramu
call napis2
pop cx
loop petla ;zmniejsza CX i jeśli CX <> 0 skacze do "petla"
mov ax,4c00h
int 21h ; Przerwanie DOS - koniec programu
;podprogram napis
napis: mov ax,seg txt1
mov ds,ax
mov dx,offset txt1
mov ah,9
int 21h
ret
;podprogram napis2
napis2: mov ax, seg txt2
mov ds,ax
mov dx,offset txt2
mov ah,9
int 21h ; powrot do dosa
ret
CODE1 ends
STOS1 segment STACK
dw 256 dup(?)
top dw ? ; wierzchołek stosu
STOS1 ends
END START