;ilk degerler
MOV byte ptr [1000h], 12h
MOV byte ptr [1001h], 34h
MOV byte ptr [1002h], 56h
MOV byte ptr [1003h], 78h
MOV byte ptr [1004h], 9Ah
MOV byte ptr [1005h], 0BCh
MOV byte ptr [1006h], 0DEh
MOV byte ptr [1007h], 0F0h
MOV byte ptr [1008h], 00h   

;program
DIZI EQU 1000h
MOV BX, 1000h
MOV DI, 0000h     

dongu:
MOV AL, DIZI[DI]

CMP AL, 00h
JE bitis

MOV DIZI[BX+DI], AL
INC DI
JMP dongu

bitis:

;isletim sistemine donus
MOV AH, 4Ch
INT 21h