[org 0x1000]

jmp start
data:
   msg db 'program XPUB',0
start:
   MOV AH, 06h    ; Scroll up function
   XOR AL, AL     ; Clear entire screen
   XOR CX, CX     ; Upper left corner CH=row, CL=column
   MOV DX, 184FH  ; lower right corner DH=row, DL=column 
   MOV BH, 1Eh    ; YellowOnBlue
   INT 10H

   mov si, msg
   call print      ; print is a function, use CALL instead of JMP

   cli
   hlt
   print:
      lodsb
      or al, al
      jz exit
      mov ah,0x0e
      int 10h
      jmp print
  exit:
      ret