помогите написать программу на асемблере по выводу двух значного числа на экран с помощью процедуры

вот
.data
message db 0,0,"h",0dh,0ah,'$'
.code
movah,0a5h 'число в AH
callinputah

inputah proc
movdi,offset message
moval,ah
andax,0ff0h
shral,1
shral,1
shral,1
shral,1
cmpal,10
sbbal,69h
das
stosb
moval,ah
cmpal,10
sbbal,69h
das
stosb
movah,9
movdx,offset message
int21h
ret
inputah endp