stksg segment stack
db 32 dup("stack")
stksg ends
datasg segmant para 'data'
msg1 db 'enter student name:',"$"
msg2 db 'you entered this name:',"$"
strlist lable byte ;start of parameter list
max db 20
len db ?
buffer db 20dub('')
dolar db '$'
datasg ends
codesg segment para 'code'
main proc far
assume ds:datasg, cs:codesg , ss:stksg
mov ax,datasg
mov ds,ax
mov ah,6h
mov al,25 ;number of rows
mov ch,0
mov cl,0
mov dh,24 ;row
mov dl,79 ;column
mov bh,7 ;attribute
int 10h
mov ah,2h ;cursor move
mov dh,10 ;row
mov dl,30 ;column
mov bh,0 ;page number
int 10h
lea sx,msg1
mov ah,9h
int 21h
mov ah,0ah
lea dx,strlist
int 21h
mov ah,2h ;cursor move
mov dh,12 ;row
mov dl,30 ;column
mov bh,0 ;page number
int 10h
mov dx,offset msg2
mov ah,9h
int 21h
lea dx,buffer;print
mov ah,9h
int 21h
mov ax,4c00h
int 21h
main endp
codesg ends
end main