bdos     equ 0005h
         org 0100h
start:   mvi c,9
         lxi d,string$
         call bdos
         mvi c,1
         call bdos
         ret
string$: db 1bh,41h,'Ready. $'
end
   lxi d,string$
         call bdos
         mvi c,1