[org 0x1000]

        mov ah, 0x00
        mov al, 0x13
        int 0x10


jmp start

data:
   msg db ' POETIC SOFTWARE',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
      mov bh, 0x00
	mov bl, 0x07
	int 10h
      jmp print
  exit:
      ret