;菜單顯示：A)press 1,clear screen
; B)press 2,set foreground color
; C)press 3,set background color
; D)press 4,roll up one line
; E)press F1,back to menu
;功能號： 0清屏，1置前景色，2置背景色，3向上翻動一行，F1返回菜單
;對應掃描碼: 0bh 2 3 4 3bh
;尋table值： 0 1 2 3 4
assume cs:code
stack segment
db128 dup (0)
stack ends
code segment
s1: db 'A)press 0,clear screen','$'
s2: db 'B)press 1,set foreground color','$'
s3: db 'C)press 2,set background color','$'
s4: db 'D)press 4,roll up one line','$'
s5: db 'E)press F1,back to menu','$'
s : dw offset s1,offset s2,offset s3,offsets4,offset s5
row:db 10,12,14,16
start:call show
;**********************************************
mov ax,stack
mov ss,ax
mov sp,128
push cs
pop ds
mov ax,0
mov es,ax
mov si,offset int9
mov di,204h
mov cx,offset int9end-offset int9
cld
rep movsb
push es:[9*4]
pop es:[200h]
push es:[9*4+2]
pop es:[202h]
cli
mov word ptr es:[9*4],204h
mov word ptr es:[9*4+2],0
sti
mov ax,4c00h
int 21h
int9:push ax
push bx
push cx
push es
jmp short set
;利用功能號查找地址表的方法，便於擴充，
;如果加入一個新功能子程序，只需要在地址表中加入它的入口地址即可
table dwsub1-int9+204h,sub2-int9+204h,sub3-int9+204h,sub4-int9+204h,show2-int9+204h
set:in al,60h ;從60H號端口讀出鍵盤輸入
pushf
call dword ptr cs:[200h] ;調用原來的int9
mov ah,al ;讀入的掃描碼送入ah
cmp ah,3bh ;F1的掃描碼
jnenext1
sub ah,37h
jmpshort next3
next1:cmp ah,0bh ;0的掃描碼
jne next2
sub ah,0bh ;0的掃描碼-0bh=0
jmpshort next3
next2:sub ah,1 ;功能號爲1,2，3,則將掃描碼減去1即可
next3:mov al,02h ;顏色屬性
cmp ah,4
jasret
movbl,ah
movbh,0
addbx,bx
callword ptr cs:[20ah+bx]
sret:pop es
pop cx
pop bx
pop ax
iret
;*****************************************************************************************
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],' '
mov byte ptr es:[bx+1],0
add bx,2
loop sub1s
pop es
pop cx
pop bx
ret
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
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 sub3s
pop es
pop cx
pop bx
ret
sub4: push cx ;向上滾動一行
push si
push di
push es
push ds
mov si,0b800h
mov es,si
mov ds,si
mov si,160
mov di,0
cld
mov cx,24
sub4s:push cx
mov cx,160
rep movsb
pop cx
loop sub4s
mov cx,80
mov si,0
sub4s1:mov byte ptr [160*24+si],' '
add si,2
loop sub4s1
pop ds
pop es
pop di
pop si
pop cx
ret
;******************************************************************************************
show2:push ax ;返回，先清屏，再顯示菜單
push es
push bx
push cx
push ds
push si
push di
jmp show2s
db'A)press 0,clear screen '
db'B)press 1,set foreground color'
db'C)press 2,set background color' ;30個字符一行
db'D)press 4,roll up one line '
db'E)press F1,back to menu '
show2s: mov ax,0b800h ;清屏
mov es,ax
mov bx,0
mov cx,2000
clear_s: mov byte ptr es:[bx],' '
mov byte ptr es:[bx+1],0
add bx,2
loop clear_s
mov ax,0b800h ;顯示菜單
mov es,ax
mov bx,160*10
mov di,20*2
movax,cs
mov ds,ax
movsi,offset show2-int9+204h+0ah
mov cx,5
show2s0:push cx
movcx,30
show2s1:mov al,ds:[si]
mov es:[bx+di],al
mov byte ptr es:[bx+di+1],02h ;菜單置爲綠色
incsi
adddi,2
loopshow2s1
popcx
movdi,20*2
addbx,160*2
loopshow2s0
pop di
pop si
pop ds
pop cx
pop bx
pop es
pop ax
ret
;******************************************************************************************
int9end:nop
;名稱：show
;功能：菜單顯示
;參數：
show:push ax
push bx
push cx
push dx
mov ax,cs
mov ds,ax
mov bx,offset s
mov si,offset row
mov cx,5
ok:mov bh,0
mov dh,[si] ;行號
mov dl,20 ;列號
mov ah,2 ;10號中斷例程的2號子程序：功能爲置光標
int 10h
mov dx,[bx]
mov ah,9 ;21號中斷例程的9號子程序：功能爲在光標位置顯示字符串，不含顏色參數
int 21h
inc si
add bx,2
loop ok
pop dx
pop cx
pop bx
pop ax
ret
code ends
end start