; Some functions used only by the startup procedure.

realboldstring:
push es
pusha
mov bl,0Fh
jmp bold_entrance


realmodestring:
push es
pusha
mov bl,07h
bold_entrance:
mov ax,ds
mov bp,si
mov di,si
mov es,ax
xor bh,bh
mov ah,3
int 10h
mov cx,-1
xor al,al
repnz scasb
neg cx
add cx,-2
mov ax,01301h
xor bh,bh
int 10h
popa
pop es
ret

ifdef OLD

push si
push ax
push bx
mov ah,0Eh
xor bx,bx
rms_loop:
lodsb
or al,al
jz rms_end
int 10h
jmp rms_loop
rms_end:
pop bx
pop ax
pop si
ret

endif