; 感觉双休就想睡觉，这鬼天气，一直下雨。设置时间未完成，只是加了一个所谓的主界面
;
display system time. press f1 to change the color displayed, press esc to return
main list. f3 exit
; clear_screen 清空屏幕
assume
cs:codesg
stacksg segment
dw 128 dup(0)
stacksg
ends
codesg segment
line db
12
csip dw 0,0
exitflag db
0 ; f3-2, esc-1. 只有在主界面才能退出，所以每次从时钟返回都会重置此值
color db 2
list dw display,
setclock
setclock db ‘2) set clock‘, 0
display db ‘1) clock‘, 0
start:
mov ax, stacksg
mov ss, ax
mov sp, 128
mov ax, cs
mov ds, ax
mov ax, 0
mov es, ax
push es:[9*4]
pop
csip[0]
push es:[9*4 +
2]
pop csip[2]
cli
mov word ptr es:[9*4], offset
int9
mov es:[9*4 + 2],
cs
sti
; 主菜单
main_screen:
call clear_screen
mov cx, 2
mov al,
1
dis_main:
mov
bx, cx
dec bl
add bx,bx
mov
si,list[bx]
call printf
dec al
loop
dis_main
;
获取输入
getinput:
cmp exitflag, 2
je
exit
; 1,2为有效输入，其它忽略(暂时只实现1)
mov ah,
0
int 16h
cmp ah,
02h ; 通码 1-9:02-0a
je
main_print_clock
cmp ah, 03h
je
main_set_clock
;
其它情况,对比是否有功能键触发事件
jmp getinput
main_print_clock:
; 显示时钟，若返回，则显示主界面
mov ah, 0
call
clock
mov exitflag, 0
mov color,
2
jmp main_screen
main_set_clock:
mov ah, 1
call clock
mov
exitflag, 0
mov color, 2
jmp
main_screen
exit:
;
恢复向量表
push csip[0]
pop es:[9*4]
push csip[2]
pop es:[9*4 +
2]
mov ax, 4c00h
int 21h
; clock子函数,ah 传递功能号, 0- 显示时钟，1-
设置时钟
clock:
jmp short
do_clock
clocktable dw dis_clock,
set_clock
clock_str
db ‘20yy/mm/dd hh:mm:ss‘,0
row db 9,8,7,4,2,0
; 秒： 0 分：2 时： 4 日 ： 7 月：8 年：9
do_clock:
push bx
push ax
push
si
push di
push cx
push
ds
cmp ah, 1
ja
clock_ret
cmp ah, 0
jb clock_ret
mov bl, ah
mov bh,
0
add bx,bx
jmp word ptr clocktable[bx]
;
每1s显示一次时钟
dis_clock:
call
clear_screen
s_second:
mov di, 2
mov si,
0
mov cx, 6
; 设置时钟字符串
s:
mov al, row[si]
out 70h,
al
in al, 71h
mov ah, al
push cx
mov cl, 4
shr ah, cl
pop
cx
add ah, 30h
and al, 00001111b
add al, 30h
mov clock_str[di],
ah
mov clock_str[di + 1],
al
add di, 3
inc si
loop
s
mov si, offset
clock_str
mov al, 1
call printf
call delay
cmp exitflag,
1 ; only esc can return from clock screen
je clock_ret
jmp short s_second
set_clock:
clock_ret:
pop ds
pop cx
pop
di
pop si
pop ax
pop
bx
ret
delay:
push ax
push
dx
mov dx, 0BFFh
mov ax, 0
s_delay:
sub ax,
1
sbb dx, 0
cmp ax, 0
jne
s_delay
cmp dx, 0
jne s_delay
pop dx
pop ax
ret
clear_screen:
blank db
‘
‘, 0
push si
push cx
push
ax
mov si, offset
blank
mov cx, 4
mov al, 0
s_clear:
call
printf
inc al
loop s_clear
pop ax
pop cx
pop
si
ret
printf:
push ax
push
es
push si
push di
push
bx
; 显示函数，
行号在line变量中，从第8列开始。al-表示第X(X>=1)次调用。字符串地址-ds:[si],碰到0结束返回
mov bl, al
mov
ax, 0b800h
mov es, ax
mov bh, 160
add bl, line[0]
mov al,
bl
mul bh
mov di, ax
add
di, 2*8
s_print:
mov bl, ds:[si]
cmp
bl,0
je s_print_out
mov bh,
color
;
无论哪行，从第8列开始显示
mov es:[di],
bx
inc si
add di, 2
jmp
s_print
s_print_out:
pop bx
pop di
pop si
pop
es
pop ax
ret
int9:
push ax
in al, 60h
pushf
call dword ptr csip
; check if equal esc:01, f1:3b, f1 change color. esc
exit function
cmp al, 01h
;esc
je sesc
cmp al,
3bh
je f1
cmp al, 3dh
;
F3 退出
je f3
mov exitflag,
0
jmp int9ret
f1: inc
color
jmp int9ret
f3:
mov
exitflag, 2
jmp int9ret
sesc:
mov
exitflag, 1
int9ret:
pop
ax
iret
codesg ends
end
start
汇编实验课程设计1之设置时间半成品,布布扣,bubuko.com
原文地址：http://www.cnblogs.com/boota/p/3735643.html
