begin:
 mov ax, cs  
 mov ds, ax  
 cli   
 mov ss, ax  
 mov sp, 0xfffe
 sti   
 mov si, msg  
 call putstr  
hang:
 jmp hang  

msg db 'Hello, World!', 0

putstr:
 lodsb  
 or al, al
 jz putstrd
 mov ah, 0x0e
 mov bx, 0x0007
 int 0x10
 jmp putstr
putstrd:
 retn