;編程：實現(xiàn)一個子程序setscreen，為顯示輸出提供如下功能：
;(1) 清屏。
;(2) 設(shè)置前景色。
;(3) 設(shè)置背景色。
;(4) 向上滾動一行。
;
;入口參數(shù)說明：
;(1) 用 ah 寄存器傳遞功能號：0 表示清屏，1表示設(shè)置前景色，2 表示設(shè)置背景色，3 表示向上滾動一行；
;(2) 對于2、3號功能，用 al 傳送顏色值，(al) ∈{0,1,2,3,4,5,6,7}

setscreen: jmp short set

    table  dw sub1,sub2,sub3,sub4

set:	push bx
	
	cmp ah,3		;判斷傳遞的是否大于 3
	ja sret
	mov bl,ah
	mov bh,0
	add bx,bx		;根據(jù)ah中的功能號計算對應(yīng)子程序的地址在table表中的偏移
	
	call word ptr table[bx]	;調(diào)用對應(yīng)的功能子程序

sret:	pop bx	
	iret

;功能子程序1：清屏
sub1:   push bx
	push cx
        push es
        mov bx,0b800h
        mov es,bx
        mov bx,0
        mov cx,2000
sub1s:  mov byte ptr es:[bx],' '
        add bx,2
        loop sub1s
        pop es
        pop cx
        pop bx
	ret ;sub1 ends

;功能子程序2：設(shè)置前景色
sub2:	push bx
	push cx
	push es
	mov bx,0b800h
	mov es,bx
	mov bx,1
	mov cx,2000
sub2s:	and byte ptr es:[bx],11111000b	
	or es:[bx],al 
	add bx,2
	loop sub2s

	pop es
	pop cx
	pop bx
	ret ;sub2 ends

;功能子程序3：設(shè)置背景色
sub3:	push bx
	push cx
	push es
	mov cl,4
	shl al,cl
	mov bx,0b800h
	mov es,bx
	mov bx,1
	mov cx,2000
sub3s:	and byte ptr es:[bx],10001111b
	or es:[bx],al 
	add bx,2
	loop sub2s

	pop es
	pop cx
	pop bx
	ret ; sub3 ends

;功能子程序4：向上滾動一行
sub4:	push cx
	push si
	push di
	push es
	push ds

	mov si,0b800h
	mov es,si
	mov ds,si
	mov si,160			;ds:si指向第n+1行
	mov di,0			;es:di指向第n行
	cld
	mov cx,24;共復(fù)制24行

sub4s:	push cx
	mov cx,160
	rep movsb 			;復(fù)制
  	pop cx
	loop sub4s

	mov cx,80	
	mov si,0
sub4s1: mov byte ptr es:[160*24+si],' '		;最后一行清空
	add si,2
	loop sub4s1

	pop ds
	pop es
	pop di
	pop si
	pop cx
	ret ;sub4 ends