公司项目ok了，抽空写完代码，苦于win2000对磁盘有保护，不能直接用int13h，无法测试。代码虽然完成，还要过几天把dos环境塔好再测试。代码反正放这了。 让博客园帮我云存储下。对磁盘结构了解也不多，不知道这代码跑出来是何种结果。至少在主界面输入f3是要屏蔽的。
代码如下：
; display system time. press f1 to change the color
displayed, press esc to return main list. f3 exit
;
clear_screen 清空屏幕
;
把磁盘上0道0面1扇区内容移动到0:200处，再把本程序的工作部分代码移动到0道0面1扇区。(暂时未实现)
assume
cs:codesg
;stacksg segment
;dw 128 dup(0)
;stacksg
ends
codesg segment
start:
; 备份0道0面1扇区内容到第0道0面5扇区
sub ax,ax
mov
es, ax
mov bx, 200h
mov al, 1
mov
ch, 0
mov cl, 1
mov dl, 80h
mov dh, 0
mov ah,
2
int 13h
cmp ah, 0
jne
start_main_exit
mov cl,
5
mov ah, 3
mov al, 1
int
13h
; 把程序复制到0道0面1-3扇区,理论上用了这个除法，但经过我的计算顶多三个扇区可以存储
mov ax, offset start_end - offset
start_main
sub dx, dx
mov bx, 512
div bx
cmp dx, 0
je
div_al_next
inc al
; 除以512余数不为0则再增加一个扇区
div_al_next:
mov bx, offset start_main
push cs
pop es
; es:bx指向要写入磁盘的数据
mov cl, 1
mov dl,
80h
mov dh, 0
mov ah, 3
int
13h
start_main_exit:
jmp
exit
start_main:
;
程序开始引导系统，则将位于0道0面5扇区内容复制到内存0：200处,将0道0面2-3扇区内容复制到内存0：7c00+512B(0:7e00)
jmp short install_begin
line db 6
csip dw 0,0
exitflag db 0 ; f3-2,
esc-1. 只有在主界面才能退出，所以每次从时钟返回都会重置此值
color
db 2
num dw 0
install_begin:
;mov ax,
stacksg
;mov ss, ax
;mov sp, 128
;
将第5扇区内容写到0:200h
sub
ax,ax
mov es, ax
mov bx, 200h
mov al, 1
mov ch,
0
mov cl, 5
mov dl, 80h
mov dh, 0
mov ah,
2
int 13h
; 将2，3扇区内容写到内存0:(7c00+512)外
mov cl, 2
mov
al, 2
mov bx, 7c00h
add bx, 512
int 13h
push
cs
pop ds
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:
mov exitflag, 0
mov color, 2
call
display_main_list ;主菜单
;
在主菜单获取输入
get_main_input:
cmp
exitflag, 2
je
main_exit
; 1,2,3,4为有效输入,1-clock,2-set
clock,3-restart pc,4-start system
mov
ah, 0
int 16h
mov color, 2
cmp ah, 02h ; 通码 1-9:02-0a
je main_display_clock
cmp ah, 03h
je
main_set_clock
cmp ah, 04h
je
main_restart
cmp ah,
05h
je
main_start_system
;
其它情况,对比是否有功能键触发事件或忽略无效按键
jmp
get_main_input
main_exit:
jmp near
ptr exit ; 程序退出
main_display_clock:
;
显示时钟，返回后，则显示主界面
mov ah,
0
call clock
jmp near ptr main
main_set_clock:
mov ah, 1
call
clock
jmp near ptr
main
main_restart:
mov ax,
0ffffh
sub bx,bx
push ax
push
bx
retf
main_start_system:
sub
ax, ax
mov bx, 200h
push ax
push
bx
retf
exit:
;
恢复向量表
push csip[0]
pop es:[9*4]
push csip[2]
pop es:[9*4 +
2]
mov ax, 4c00h
int 21h
;
主菜单功能
display_main_list:
jmp main_list
mainlist dw
display, setclock, resetpc, startsystem,
f3exit,escfunctiondes,null
display db
‘1) clock‘
setclock db ‘2) set
clock‘
resetpc db ‘3) reset
pc‘
startsystem db ‘4) start
system‘
f3exit
db ‘press f3 to exit this process‘
escfunctiondes db ‘press esc to return superior menu on
any page‘
null db 0
; 显示主菜单
main_list:
push cx
push dx
push bx
push
si
push ax
call clear_screen
mov cx, 6
mov dh,
line ; dh 行号
mov dl,
8 ; 列号主菜单不用变
mov bx, 0
loop_main_list:
mov si, mainlist[bx]
mov di, mainlist[bx + 2]
sub di,
si
mov num, di
call strshow
add bx,2
inc dh
loop loop_main_list
pop
ax
pop si
pop bx
pop
dx
pop cx
ret
; clock子函数,ah 传递功能号, 0- 显示时钟，1-
设置时钟
clock:
jmp short
do_clock
clocktable dw dis_clock,
set_clock
clock_str
db ‘20yy/mm/dd hh:mm:ss‘
row db 9,8,7,4,2,0
prompot dw year, month, day, hour, minite, second,
inputstr
year db
‘(YY):‘
month db
‘(MM):‘
day db ‘(DD):‘
hour db ‘(HH):‘
minite db ‘(mm):‘
second db
‘(ss):‘
inputstr db 3
dup(0)
validnum db 99h, 12h, 31h, 23h,
59h, 59h
; 秒： 0 分：2 时： 4 日 ： 7 月：8
年：9
do_clock:
push
bx
push ax
push si
push
di
push cx
push ds
cmp ah, 1
ja do_clock_exit
cmp ah, 0
jb
do_clock_exit
mov bl,
ah
mov bh, 0
add bx,bx
jmp
word ptr clocktable[bx]
do_clock_exit:
jmp clock_ret
; 每1s显示一次时钟
dis_clock:
call clear_screen
mov dl, 8
mov dh,
line
mov num,
19
dis_per_second:
cmp exitflag,
1 ; only esc can return from clock screen
je dis_clock_ret
mov di, 2
mov si,
0
mov cx, 6
; 设置时钟字符串
_dis_get_clock:
mov al, row[si]
call _sys_readclock
mov
clock_str[di], ah
mov clock_str[di +
1], al
add di, 3
inc si
loop
_dis_get_clock
mov si, offset
clock_str
call strshow
call delay
jmp
short dis_per_second
dis_clock_ret:
jmp clock_ret
;
设置时钟
set_clock:
call
clear_screen
mov cx, 6
sub bx,bx
mov
dh, line
sub
di,di
set_clock_loop:
mov dl,
8
; 打印提示符
mov si,
prompot[bx]
mov num,
5
call strshow
add dl, 5
;
获取两次输入
set_clock_back:
mov
inputstr[0], 0
mov inputstr[1],
0
mov inputstr[2], 0
mov si, offset inputstr
mov num, 2
call strshow
mov num,
0
;
获取输入
set_clock_getnum:
cmp exitflag,
1
je set_clock_exit
mov ah, 0
int
16h
cmp ah, 02h ;
小于字符1
jb
set_clock_getnum
cmp ah,
1ch ; enter
je
set_clock_getnum_enter ; 响应回车
cmp ah, 0eh ; backspace
; 退格符
je
set_clock_getnum_backspace
cmp ah, 0bh
; 0 不符合以上情况下还大于字符0的，则忽略输入
ja set_clock_getnum
;
字符入栈
jmp near ptr
set_clock_getnum_push
set_clock_getnum_out:
call strshow
jmp set_clock_getnum
;
ah为要设置的数据，al为设置的地址
set_clock_getnum_next:
mov al, row[di] ;
call _sys_setclock
add bx, 2
inc dh
inc di
loop
set_clock_loop
jmp short
clock_ret
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
set_clock_getnum_enter:
push cx
mov
ah, inputstr[0]
mov cl,
4
shl ah, cl
mov al, inputstr[1]
and al, 00001111b
or ah,
al
;
校验输入是否合法，否则重新输入
pop cx
cmp ah, validnum[di]
ja set_clock_getnum_back
jmp near ptr
set_clock_getnum_next
set_clock_getnum_push:
cmp num, 2
je
set_clock_getnum_out
push
bx
mov bx, num
mov [si][bx], al
pop bx
inc num
jmp short set_clock_getnum_out
;
要输入字符在inputstr[0],[1]中
set_clock_exit:
jmp
clock_ret
set_clock_getnum_backspace:
; pop al
cmp num,
0
je
getnum_backspace_out
dec
num
push di
mov di, num
mov inputstr[di], 0
pop
di
getnum_backspace_out:
jmp short
set_clock_getnum_out
set_clock_getnum_back:
jmp set_clock_back
clock_ret:
pop ds
pop
cx
pop di
pop si
pop
ax
pop bx
ret
;
al要写入的地址，ah要写入的数据
_sys_setclock:
push
ax
out 70h, al
mov al,
ah
out 71h, al
pop
ax
ret
; input :al
,向70h端口写入的地址
; ouput ah, al,
_sys_readclock:
push cx
out 70h, al
in al, 71h
mov ah,
al
mov cl, 4
shr ah, cl
add
ah, 30h
and al,
00001111b
add al, 30h
pop cx
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:
push
bx
push cx
push es
mov ax, 0b800h
mov es,
ax
mov cx, 2000
mov al, ‘ ‘
mov ah, 0
mov bx,
0
s_clear_screen:
mov es:[bx],
ax
add bx, 2
loop s_clear_screen
pop es
pop cx
pop
bx
ret
; int9
中断程序替代程序，esc置exitflag为1.f1改变颜色，无脑增加color的值，f3设置exitflag为2
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 _int9_esc
cmp al,
3bh
je _int9_f1
cmp al,
3dh ;
F3 退出
je _int9_f3
mov exitflag, 0
jmp int9ret
_int9_f1:
inc color
jmp int9ret
_int9_f3:
mov exitflag, 2
jmp
int9ret
_int9_esc:
mov exitflag,
1
int9ret:
pop ax
iret
; dh,
dl 字符串在屏幕上显示的行与列
;
其中color为颜色
; num
传递要打印的字符数,打印bx个字符后或遇到0停止打印
; charstack:
strshow:
push bx
push
dx
push
di
push
es
push
ax
push
cx
;dh 行号， dl列号,
个数
mov ax,
0b800h
mov es,
ax
mov
al,160 ; 每行160字节
sub ah, ah
mul dh
add dl, dl
sub dh,
dh
add ax,
dx
mov di,
ax
mov ah,
color
sub bx,
bx
mov cx,
num
cmp cx,
0
je
charstack_ret
charshows:
mov al, [si][bx]
cmp al, 0
jne charstack_print
mov al, ‘ ‘
charstack_print:
mov es:[di], ax
add di, 2
inc
bx
loop
charshows
charstack_ret:
mov byte ptr es:[di], ‘
‘
pop
cx
pop
ax
pop
es
pop
di
pop
dx
pop
bx
ret
start_end:
nop
codesg
ends
end start
原文地址：http://www.cnblogs.com/boota/p/3770544.html
