کشیدن پرچم کشور

کد HTML:

page 100,100
title 'soroush.sam'

sseg segment stack 'stack'
    dw 32 dup(0)
    sseg ends

dseg segment 'data'
    message db 'IRAN','$'
    dseg ends

cseg segment 'code'
    assume ss:sseg,ds:dseg,ss:sseg
    main proc far
       mov ax,dseg
       mov ds,ax
       
mov ah,00h
mov al,03h
int 10h

mov ah,06h
mov al,08h
mov cx,0000h
mov dx,184fh
mov bh,22h
int 10h

mov ah,06h
mov al,08h
mov cx,0000h
mov dx,184fh
mov bh,70h
int 10h

mov ah,06h
mov al,09h
mov cx,0000h
mov dx,184fh
mov bh,44h
int 10h                 

mov ah,02h
mov dx,0c24h 
mov bh,00h
int 10h

mov ah,09h
lea dx,message
int 21h

mov ax,4c00h
int 21h

main endp
    cseg ends
end main