|
|
----------------------------------------
Program : box Procedure
FileName : box.asm
I/P : Nill
O/P : Displays a box
By : Murugan AD
----------------------------------------
box proc near ; Requires rowup rowdn collt colrt attrf attrb
push ax bx cx dx si di ; shadow fillbox
mov ah,rowup
mov al,collt
mov bh,rowdn
mov bl,colrt
mov dh,attrf
push ax
push bx
push dx
cmp shadow,1
jne shadowbox_loop12
push ax bx cx dx
mov ah,06h
mov al,rowdn
sub al,rowup
inc al
mov bh,attrb
mov ch,rowup
inc ch
mov cl,collt
inc cl
mov dh,rowdn
mov dl,colrt
int 10h
pop dx cx bx ax
shadowbox_loop12:
cmp fillbox,1
jne fillbox_loop12
push ax bx cx dx
mov ah,06h
mov al,rowdn
sub al,rowup
dec al
mov bh,attrf
mov ch,rowup
mov cl,collt
mov dh,rowdn
dec dh
mov dl,colrt
dec dl
int 10h
pop dx cx bx ax
fillbox_loop12:
dec rowdn
dec colrt
xor cx,cx
mov cl,rowup
mov row,cx
mov cl,collt
mov coloumn,cx
mov si,offset rowup_collt_12
call typestring
mov cl,rowdn
mov row,cx
mov cl,collt
mov coloumn,cx
mov si,offset rowdn_collt_12
call typestring
mov cl,rowup
mov row,cx
mov cl,colrt
mov coloumn,cx
mov si,offset rowup_colrt_12
call typestring
mov cl,rowdn
mov row,cx
mov cl,colrt
mov coloumn,cx
mov si,offset rowdn_colrt_12
call typestring
mov cl,collt
mov coloumn,cx
mov cl,rowup
inc cl
mov si,offset line_up_12
loop_line_ltup_12:
push cx
mov row,cx
call typestring
pop cx
inc cx
cmp cl,rowdn
jne loop_line_ltup_12
mov cl,colrt
mov coloumn,cx
mov cl,rowup
inc cl
mov si,offset line_up_12
loop_line_uprt_12:
push cx
mov row,cx
call typestring
pop cx
inc cx
cmp cl,rowdn
jne loop_line_uprt_12
mov cl,rowup
mov row,cx
mov cl,collt
inc cl
mov si,offset line_st_12
loop_line_stlt_12:
push cx
mov coloumn,cx
call typestring
pop cx
inc cx
cmp cl,colrt
jne loop_line_stlt_12
mov cl,rowdn
mov row,cx
mov cl,collt
inc cl
mov si,offset line_st_12
loop_line_strt_12:
push cx
mov coloumn,cx
call typestring
pop cx
inc cx
cmp cl,colrt
jne loop_line_strt_12
pop dx
pop bx
pop ax
mov rowup,ah
mov collt,al
mov rowdn,bh
mov colrt,bl
mov attrf,dh
pop di si dx cx bx ax
ret
line_st_12 db "ÃâÃÃÆâÃƆ|