王爽-[汇编语言]课后习题答案补全

一直以来想学汇编语言，但由于它本身晦涩难懂又苦于没有好的教程，多次想学也都中途放弃了。

通过网上了解王爽老师的《汇编语言》是一本学习汇编好的入门教程，于是买来一读果然如此。它使

学习汇编语言成为了一种乐趣。能把汇编语言将得如此通透，看来王爽老师写此书没少费心，只可惜王爽

老师写书太少，只能意犹未尽了。再次向王爽老师表示敬意！

本人初学汇编，水平有限如有错误，欢迎指出。共同提高！

联系方式：email: [email protected]

QQ: 644058221

beijingbeerman

2006-7-18

==============================================================================

第10章 课程设计1

==============================================================================

assume cs:codesg,ds:data

data segment

db '1975','1976','1977','1978','1979','1980','1981','1982','1983'

db '1984','1985','1986','1987','1988','1989','1990','1991','1992'

db '1993','1994','1995'

dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514

dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000

dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226

dw 11542,14430,15257,17800

data ends

table segment

db 16 dup (0)

table ends

codesg segment

start:

mov ax,data

mov ss,ax ;ss指向数据

mov bp,0

mov bx,0

;21行循环年份

mov cx,21

Row1:push cx

push bp

mov si,bp ;把年份首地址存入si中传给show_year

call show_year

inc bx ;当前行数存入bx中，传给show_year

pop bp

add bp,4 ;下一个年份首地址,每个年份占4个字节

pop cx

loop Row1

;21行循环收入

mov si,0 ;当前行计数

mov bp,0

mov di,0

mov cx,21

Row2:push cx ;按顺序压入本段变量

push bp

push di

mov ax,[bp+54h+di] ;循环写入收入。数据启始地址+收入偏移量+每次移动2个字节

mov dx,[bp+54h+di+2]

call dtoc ;转换数字为ascll码

mov dh,4 ;设置显示初始值

mov dl,13

mov cl,2

call show_str ;显示字符串

inc si ;循环到第几行了

pop di

add di,4

pop bp

pop cx

loop Row2

;21行循环雇员数

mov si,0 ;当前行计数

mov bp,0

mov di,0

mov cx,21

Row3:push

cx ;按顺序压入本段变量

push bp

push di

mov ax,[bp+00a8h+di] ;循环写入收入。数据启始地址+收入偏移量+每次移动2个字节

mov dx,0000h

call dtoc ;转换数字为ascll码

mov dh,4 ;设置显示初始值

mov dl,23

mov cl,2

call show_str ;显示字符串

inc si ;循环到第几行了

pop di

add di,2

pop bp

pop cx

loop Row3

;21行循环人均收入

mov si,0 ;当前行计数

mov bp,0

mov di,0

mov cx,21

Row4:push cx ;按顺序压入本段变量

push bp

mov ax,[bp+54h] ;被除数低16位

mov dx,[bp+54h+2] ;被除数高16位

push di

div word ptr ss:[00a8h+di] ;收入/雇员数=人均收入,结果存在ax中

mov dx,0000h

call dtoc ;转换数字为ascll码

mov dh,4 ;设置显示初始值

mov dl,33

mov cl,2

call show_str ;显示字符串

inc si ;循环到第几行了

pop di

add di,2 ;di加2是为了循环雇员数

pop bp

add bp,4

pop cx

loop Row4

mov ax,4c00h

int 21h

;显示年份(当前行数用bx)

show_year: mov dh,4

mov dl,3

mov cl,2

mov ax,0b800h

mov es,ax

mov al,160

mul dh ;每行160*8行

mov bp,ax

mov al,2 ;3列*每列2个字节

mul dl

add bp,ax

;mov bp,160*8+3*2 ;每行160*8行+3列*每列2个字节,160*8+3*2=0506h

mov ax,160

mul bx ;bx是当前行数

mov dl,cl ;保护cl,因为cx要循环

mov di,ax ;乘法的结果ax,得到当前行偏移量存入di中

mov cx,4 ;年份是4个字符

while:mov ax,ss:[si] ;si是年份在data中的首地址

mov es:[bp+di],ax

mov es:[bp+di+1],dl ;是颜色

inc si

add di,2

loop while

ret

;转换数字为ascll码

dtoc:mov cx,0

push cx ;先压入一个0作为是否到结尾的判断。

dtoc2:mov cx,0ah ;16位高位在dx,低位在ax中已经放好了。除数放在cx中

call divdw ;调用防止溢出除法程序。

add cx,30h ;余数加30h变成ascll码

push cx ;把余数压入

mov cx,ax ;配合jmp使用的，判断商是否为0

jcxz return

jmp shor

t dtoc2

return:mov ax,table ;出栈字符串存放的位置

mov ds,ax ;ds指向table段

mov di,0 ;di指向table首地址

chang2:pop ax

mov [di],ax

inc di

mov cx,ax

jcxz ok2

jmp short chang2

ok2:mov di,0 ;ds:si指向字符传首位，下一步为显示做准备

ret

;显示字符串(当前行数用si)

show_str: mov ax,0b800h

mov es,ax

mov al,160

mul dh ;每行160*8行

mov bp,ax

mov al,2 ;3列*每列2个字节

mul dl

add bp,ax

;mov bp,160*8+3*2 ;每行160*8行+3列*每列2个字节,160*8+3*2=0506h

mov ax,160

mul si ;si是当前行数

mov di,0 ;设置指向字符串首地址

add bp,ax ;得到当前行的偏移量

while2:

mov ax,[di] ;段地址还是ds

mov es:[bp+di],ax

mov al,cl ;保存cl颜色，因为下面要用cx判断

mov es:[bp+di+1],cl

mov cl,[di]

mov ch,0

jcxz ok

inc di

add bp,1 ;每一个字符向后挪2个字节，其中一个保存颜色。

mov cl,al ;还原颜色

jmp short while2

ok:ret

;防止除法溢出

divdw:

;对高16位000fh进行除法

mov di,ax ;保存低16位ax中的被除数

mov ax,dx ;设被除数低16位为000fh

mov dx,0000h ;设被除数高16位为0

div cx

mov bp,dx ;保存高16位运算余数到bp中

mov bx,1000h ;把65536拆分成1000和10，对ax进行高16位商的乘法

mul bx

mov bx,0010h

mul bx ;低16位默认保存在ax中；高16位默认保存在dx中。

push ax ;压入高16位商的乘法结果的低16位

push dx ;压入高16位商的乘法结果的高16位

;对低16位进行除法运算

mov ax,bp ;高16位除法的余数,dx中是余数

mov bx,1000h ;把65536拆分成1000和10，进行高16位余数乘法

mul bx

mov bx,0010h

mul bx ;低16位默认保存在ax中；高16位默认保存在dx中。

add ax,di ;把高16位余数的乘法加上低16位

div cx ;相加的结果除以cx,算出低16位结果

mov cx,dx

;合并结果。高16位结果在dx中；低16位结果在ax中；余数在cx中

pop dx;弹出高16位结果dx

pop bx ;弹出低16位结果ax

add ax,bx

ret

codesg ends

end start

==============================================================================

第17章 检测点17.1

=============================================================

=================

答：一定有设置IF=1的指令，这种说法是正确的！请参见262页

===============================================================================

第17章 应用int 13h对软盘进行写cmos 时间

===============================================================================

assume cs:code,ds:data

data segment

dw 0,2,4,7,8,9

data ends

code segment

start:mov si,data

mov ds,si

mov si,0

mov dx,70h

mov cx,6

s:mov al,[si]

out dx,al

in al,71h

push ax

add si,2

loop s

mov ax,0b800h

mov ds,ax

mov dh,0 ;行号

mov dl,0 ;列号

mov cl,2 ;颜色

mov ax,160

mul dh

mov bx,ax

mov ax,2

mul dl

add bx,ax

mov si,0

mov cx,2

s1:pop ax ;写年、月

mov di,cx ;保存循环次数

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

mov byte ptr [bx+4],"/"

mov [bx+5],cl

add bx,6

mov cx,di

loop s1

pop ax ;写日

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

add bx,6 ;空格

s2:pop ax ;写时、分

mov di,cx ;保存循环次数

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

mov byte ptr [bx+4],":"

mov [bx+5],cl

add bx,6

mov cx,di

loop s2

pop ax ;写秒

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

call ReadFloppy

mov ax,4c00h

int 21h

getNum:mov cl,4

mov ah,al

shr ah,cl

and al,00001111b

add ah,30h

add al,30h

ret

ReadFloppy: mov ax,0b800h

mov es,ax

mov bx,0

mov al,1

mov ch,0

mov cl,1

mov dl,0

mov dh,0

mov ah,3

int 13h

ret

code ends

end start

===============================================================================

第17章 应用int 13h对软盘进行读

===============================================================================

assume cs:code

code segment

start: mov ax,0b800h

mov es,ax

mov bx,0

mov al,8

mov ch,0

mov cl,1

mov dl,0

mov dh,0

mov ah,2

int 13h

mov ax,4c00h

int 21h

code ends

end start

===============================================================================

第17章 实验17----用磁道向软盘写操作

===============================================================================

assume cs:code

data segment

db 'welcome to masm!',0

data ends

code segment

start: mov ax,cs

mov ds,ax

mov si,offset show_str

mov ax,0

mov es,ax

mov di,200h

mov cx,offset breakEnd-offset show_str

cld

rep movsb

mov word ptr es:[7ch*4],200h ;es段地址为0

mov word ptr es:[7ch*4+2],0

mov dh,10

mov dl,10

mov cl,2

mov ax,data

mov ds,ax

mov si,0

int 7ch

;call show_str

call ReadFloppy

mov ax,4c00h

int 21h

show_str: mov ax,0b800h

mov es,ax

mov al,160

mul dh ;每行160*8行

mov bp,ax

mov al,2 ;3列*每列2个字节

mul dl

add bp,ax

;mov bp,160*8+3*2 ;每行160*8行+3列*每列2个字节,160*8+3*2=0506h

while:mov ah,0

mov al,2 ;每一个字符向后挪2个字节

mul si ;因为字符串id在bx中的低位记录

mov di,ax

mov ax,[si]

mov es:[bp+di],ax

mov al,cl

mov es:[bp+di+1],cl

mov cl,[si]

mov ch,0

jcxz ok

inc si

mov cl,al

jmp short while

ok:iret

breakEnd:nop

ReadFloppy: mov ax,0b800h

mov es,ax

mov bx,0

mov al,8

mov ch,0

mov cl,1

mov dl,0

mov dh,0

mov ah,3

int 13h

ret

code ends

end start

===============================================================================

第17章 实验17----用磁道向软盘读操作

===============================================================================

assume cs:code

code segment

;安装中断向量7ch处理程

start:mov ax,cs

mov ds,ax

mov si,offset breakoff

mov

ax,0

mov es,ax

mov di,200h

mov cx,offset endOff-offset breakOff

cld

rep movsb

mov word ptr es:[7ch*4],200h ;es段地址为0

mov word ptr es:[7ch*4+2],0

;正式处理程序

mov ax,0b800h

mov es,ax

mov bx,0

mov ah,0 ;ah=0读软驱，ah=1写软驱

mov al,8 ;操作8个扇区

mov bx,2 ;逻辑扇区号

int 7ch ;用中断向量程序7ch代替loop

mov ax,4c00h

int 21h

breakOff:push ax

push bx ;保存写入读取数据地址

;取商

mov ax,bx ;逻辑扇区号给ax，准备除法

mov si,1440

call int0 ;求面号

mov dh,dl ;低位挪高位(得到面号赋给dh)，ax是余数、dx是商。

mov si,18

call int0 ;ax/18求磁道号

mov cl,al ;余数(得到扇区号)

mov ch,al ;商（得到磁道号）

add cl,1 ;扇区号+1

pop bx

pop ax

cmp ah,1 ;检查写操作

je add1

cmp ah,0 ;检查读操作

je add2

ok:mov si,0b800h

mov es,si

mov bx,0

mov dl,0

int 13h ;操作磁盘

iret

;除法(dx,ax用来做被除数)

int0:mov dx,0 ;被除数高位。

div si ;si用来做除数（ax中放结果中的商，dx中放结果中的余数 ）

ret

add1:mov ah,3 ;写软盘

jmp ok

add2:mov ah,2 ;读软盘

jmp ok

endOff:nop ;breakOff结束的标记。

code ends

end start

===============================================================================

第17章 课程设计2---未写入软盘

===============================================================================

课程设计2未能完全达到书上要求，在此抛砖引玉希望广大网友共同完善。

assume cs:code,ds:data

data segment

dw 0,2,4,7,8,9

db 128 dup (0)

data ends

data2 segment

dw 9,8,7,4,2,0

data2 ends

code segment

s0 db '1) reset pc ','$'

s1 db '2) start system ','$'

s2 db '3) clock ','$'

s3 db '4) set clock ','$'

s dw offset s0,offset s1,offset s2,offset s3

start:mov ax,code

mov ds,ax

show0:mov si,offset s ;ds dx显示字符串开始坐标。

mov bh,0 ;第0页

mov dh,2 ;行号

mov dl,6 ;列号

;----------显示4条选项------------------------------------

mov cx,4

show1:mov ah,2

int 10h ;设

置光标

mov di,dx ;保存行号和列号。

mov dx,[si] ;显示字符串位置。

mov ah,9

int 21h ;显示行中第一条字符串

mov dx,di

inc dh

add si,2 ;为下一个循环显示data中字符串作准备。

loop show1

;------------显示4条选项结束--------------------------------

mov ah,0

int 16h

mov bx,data ;保存显示主菜单地址

mov es,bx

mov bx,16

mov word ptr es:[bx],0ffffh

mov word ptr es:[bx+2],0

cmp al,'1'

je reset

mov bx,data ;保存显示主菜单地址

mov es,bx

mov bx,16

mov word ptr es:[bx],7c00h

mov word ptr es:[bx+2],0

cmp al,'2'

je startSystem

cmp al,'4'

je setSystemClock

cmp al,'3'

je clock

mov ax,4c00h

int 21h

;重起

reset:mov ax,data

mov es,ax

jmp dword ptr es:[16]

;进入硬盘操作系统

startSystem:mov ax,0

mov es,ax

mov bx,7c00h ;读到内存中的地址。

mov dl,0080h

mov ah,2 ;读磁盘操作

mov dh,0 ;0盘面

mov ch,0 ;0磁道

mov cl,1 ;1扇区

mov al,1 ;只读一个扇区

int 13h

call reset

;----------显示更改CMOS时间用户输入提示-----------------------------

setSystemClock:jmp short dostart

db "5) Chang CMOS Clock,format si yy/mm/dd hh:nn:ss ",'$'

dostart:call clearscreen ;清屏

mov al,0

mov ah,2 ;设置光标

mov bh,0

mov dh,2

mov dl,2

int 10h

mov si,offset setSystemClock

mov ax,cs

mov ds,ax

add si,2

mov dx,si

mov ah,9

int 21h

call getstr ;调用让用户输入日期

;---显示CMOS时间--------------------------------

clock: mov cx,1000

showstart:push cx

call delay

call showTime

pop cx

loop showstart

ret

showTime:mov si,data

mov ds,si

mov si,0

mov dx,70h

mov cx,6

ss0:mov al,[si]

out dx,al

in al,71h

push ax

add si,2

loop ss0

mov ax,0b800h

mov ds,ax

mov dh,0 ;行号

mov dl,0 ;列号

mov cl,2 ;颜色

mov ax,160

mul dh

mov bx,ax

mov ax,2

mul dl

add bx,ax

mov si,0

mov cx,2

ss1:pop ax ;写年、月

mov di,cx ;保存循环次数

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

mov byte ptr [bx+4],"/"

mov [bx+5],cl

add bx,6

mov cx,di

loop ss1

pop ax ;写日

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

add bx,6 ;空格

ss2:pop ax ;写时、分

mov di,cx ;保存循环次数

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

mov byte ptr [bx+4],":"

mov [bx+5],cl

add bx,6

mov cx,di

loop ss2

pop ax ;写秒

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

ret

getNum:mov cl,4

mov ah,al

shr ah,cl

and al,00001111b

add ah,30h

add al,30h

ret

;延时

delay:push ax

push dx

mov dx,1000h

mov ax,0

sss1:sub ax,1

sbb dx,0

cmp ax,0

jne sss1

cmp dx,0

jne sss1

pop dx

pop ax

ret

;------开始让用户输入日期----------------------------

getstr: push ax

getstrs: mov ah,0

int 16h

cmp al,20h

jb nochar

mov ah,0

call charstack

mov ah,2

call charstack

jmp getstrs

nochar: cmp ah,0eh ;如果是退格键

je backspace

cmp ah,1ch ;如果是回车键

je enter

backspace: mov ah,1

call charstack

mov ah,2

call charstack

jmp getstrs

enter: mov al,0 ;回车时把al中的0压入栈

m

ov ah,0

call charstack

mov ah,2

call charstack

call ChangTime ;调用改变CMOS时间函数

call clearscreen ;清屏

pop ax

jmp far ptr show0

charstack: jmp charstart

table dw charpush,charpop,charshow

top dw 0 ;栈的当前位置的公共变量。

array: db 60 dup (0)

charstart: push bx

push dx

push di

push es

cmp ah,2

ja sret

mov bl,ah ;ah为暗号

mov bh,0

add bx,bx

jmp word ptr table[bx]

charpush: mov bx,top

mov si,offset array

mov cs:[si+bx],al

inc top

jmp sret

charpop: cmp top,0

je sret

dec top

mov bx,top

mov si,offset array

mov al,cs:[si+bx]

jmp sret

charshow: mov dh,6

mov dl,6

mov bx,0b800h

mov es,bx

mov al,160

mov ah,0

mul dh

mov di,ax

add dl,dl

mov dh,0

add di,dx

mov bx,0 ;从头把栈中的数显示一遍。

charshows: cmp bx,top ;查看栈中是否有数据。

jne noempty

mov byte ptr es:[di],' '

jmp sret

noempty: mov si,offset array

mov al,cs:[si+bx]

mov es:[di],al

mov byte ptr es:[di+2],' '

inc bx

add di,2

jmp charshows

sret: pop es

pop di

pop dx

pop bx

ret

;-----用户输入日期结束-------------------------

;-----更改CMOS中的时间-------------------------

ChangTime: push bx

push dx

push di

push es

cmp bp,18 ;如果长度不等于18就退出，不改CMOS

jne EndReturn

changclock: mov si,offset array ;得到栈坐标

mov bp,0

mov bx,data2

mov di,0

mov cx,6

changloop: mov dx,70h

mov al,[bx+di]

out dx,al

mov dx,71h

mov ax,cs:[si+bp] ;得到年在al

push cx ;保护cx

mov cl,4

shl ah,cl ;把年的十位移到高4位

pop cx

and al,00001111b ;把年的个位高4位清0

or al,ah ;把一

个完整的年分合并到al一个字节中

out dx,al ;把年写入CMOS

inc bp

add di,2

loop changloop

EndReturn: pop es

pop di

pop dx

pop bx

ret

;-----更改时间结束-----------------------------

;清空屏幕。

clearscreen: push bx

push cx

push es

mov bx,0b800h

mov es,bx

mov bx,0

mov cx,2000

subls: mov byte ptr es:[bx],' '

add bx,2

loop subls

pop es

pop cx

pop bx

ret

endsetup:nop

code ends

end start

===============================================================================

第17章 课程设计2---写入软盘

===============================================================================

assume cs:code,ds:data

data segment

dw 0,2,4,7,8,9

db 128 dup (0)

data ends

data2 segment

dw 9,8,7,4,2,0

data2 ends

code segment

start:push cs

pop es

mov bx,offset NewStart1

mov al,8

mov ch,0

mov cl,1

mov dl,0

mov dh,0

mov ah,3

int 13h

mov ax,4c00h

int 21h

NewStart1:jmp short NewStart2

s0 db '1) reset pc ','$'

s1 db '2) start system ','$'

s2 db '3) clock ','$'

s3 db '4) set clock ','$'

s dw offset s0,offset s1,offset s2,offset s3

NewStart2:mov ax,code

mov ds,ax

show0:mov si,offset s ;ds dx显示字符串开始坐标。

mov bh,0 ;第0页

mov dh,2 ;行号

mov dl,6 ;列号

;----------显示4条选项------------------------------------

mov cx,4

show1:mov ah,2

int 10h ;设置光标

mov di,dx ;保存行号和列号。

mov dx,[si] ;显示字符串位置。

mov ah,9

int 21h ;显示行中第一条字符串

mov dx,di

inc dh

add si,2 ;为下一个循环显示data中字符串作准备。

loop show1

;------------显示4条选项结束--------------------------------

mov ah,0

int 16h

mov bx,data ;保存显示主菜单地址

mov es,bx

mov bx,16

mov word ptr es:[bx],0ffffh

mov word ptr es:[bx+2],0

cmp al,'1'

je reset

mov bx,data ;保存显示主菜单地址

mov es,bx

mov bx,16

mov word ptr es:[bx],7c00h

mov word ptr es:[bx+2],0

cmp al,'2'

je startSystem

cmp al,'4'

je setSystemClock

cmp al,'3'

je clock

mov ax,4c00h

int 21h

;重起

reset:mov ax,data

mov es,ax

jmp dword ptr es:[16]

;进入硬盘操作系统

startSystem:mov ax,0

mov es,ax

mov bx,7c00h ;读到内存中的地址。

mov dl,0080h

mov ah,2 ;读磁盘操作

mov dh,0 ;0盘面

mov ch,0 ;0磁道

mov cl,1 ;1扇区

mov al,1 ;只读一个扇区

int 13h

call reset

;----------显示更改CMOS时间用户输入提示-----------------------------

setSystemClock:jmp short dostart

db "5) Chang CMOS Clock,format si yy/mm/dd hh:nn:ss ",'$'

dostart:call clearscreen ;清屏

mov al,0

mov ah,2 ;设置光标

mov bh,0

mov dh,2

mov dl,2

int 10h

mov si,offset setSystemClock

mov ax,cs

mov ds,ax

add si,2

mov dx,si

mov ah,9

int 21h

call getstr ;调用让用户输入日期

;---显示CMOS时间--------------------------------

clock: mov cx,1000

showstart:push cx

call delay

call showTime

pop cx

loop showstart

ret

showTime:mov si,data

mov ds,si

mov si,0

mov dx,70h

mov cx,6

ss0:mov al,[si]

out dx,al

in al,71h

push ax

add si,2

loop ss0

mov ax,0b800h

mov ds,ax

mov dh,0 ;行号

mov dl,0 ;列号

mov cl,2 ;颜色

mov ax,160

mul dh

mov bx,ax

mov ax,2

mul dl

add bx,ax

mov si,0

mov cx,2

ss1:pop ax ;写年、月

mov di,cx ;保存循环次数

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

mov byte ptr [bx+4],"/"

mov [bx+5],cl

add bx,6

mov cx,di

loop ss1

pop ax ;写日

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx

+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

add bx,6 ;空格

ss2:pop ax ;写时、分

mov di,cx ;保存循环次数

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

mov byte ptr [bx+4],":"

mov [bx+5],cl

add bx,6

mov cx,di

loop ss2

pop ax ;写秒

call getNum

mov byte ptr [bx],ah

mov cl,2

mov [bx+1],cl

mov byte ptr [bx+2],al

mov [bx+3],cl

ret

getNum:mov cl,4

mov ah,al

shr ah,cl

and al,00001111b

add ah,30h

add al,30h

ret

;延时

delay:push ax

push dx

mov dx,1000h

mov ax,0

sss1:sub ax,1

sbb dx,0

cmp ax,0

jne sss1

cmp dx,0

jne sss1

pop dx

pop ax

ret

;------开始让用户输入日期----------------------------

getstr: push ax

getstrs: mov ah,0

int 16h

cmp al,20h

jb nochar

mov ah,0

call charstack

mov ah,2

call charstack

jmp getstrs

nochar: cmp ah,0eh ;如果是退格键

je backspace

cmp ah,1ch ;如果是回车键

je enter

backspace: mov ah,1

call charstack

mov ah,2

call charstack

jmp getstrs

enter: mov al,0 ;回车时把al中的0压入栈

mov ah,0

call charstack

mov ah,2

call charstack

call ChangTime ;调用改变CMOS时间函数

call clearscreen ;清屏

pop ax

jmp far ptr show0

charstack: jmp charstart

table dw charpush,charpop,charshow

top dw 0 ;栈的当前位置的公共变量。

array: db 60 dup (0)

charstart: push bx

push dx

push di

push es

cmp ah,2

ja sret

mov bl,ah ;ah为暗号

mov bh,0

add bx,bx

jmp word ptr table[bx]

charpush: mov bx,top

mov si,offset array

mov cs:[si+bx],al

inc top

jmp sret

charpop: cmp top,0

je sret

dec top

mov bx,top

mov si,offset array

mov al,cs:[si+bx]

jmp sret

charshow: mov dh,6

mov dl,6

mov bx,0b800h

mov es,bx

mov al,160

mov ah,0

mul dh

mov di,ax

add dl,dl

mov dh,0

add di,dx

mov bx,0 ;从头把栈中的数显示一遍。

charshows: cmp bx,top ;查看栈中是否有数据。

jne noempty

mov byte ptr es:[di],' '

jmp sret

noempty: mov si,offset array

mov al,cs:[si+bx]

mov es:[di],al

mov byte ptr es:[di+2],' '

inc bx

add di,2

jmp charshows

sret: pop es

pop di

pop dx

pop bx

ret

;-----用户输入日期结束-------------------------

;-----更改CMOS中的时间-------------------------

ChangTime: push bx

push dx

push di

push es

cmp bp,18 ;如果长度不等于18就退出，不改CMOS

jne EndReturn

changclock: mov si,offset array ;得到栈坐标

mov bp,0

mov bx,data2

mov di,0

mov cx,6

changloop: mov dx,70h

mov al,[bx+di]

out dx,al

mov dx,71h

mov ax,cs:[si+bp] ;得到年在al

push cx ;保护cx

mov cl,4

shl ah,cl ;把年的十位移到高4位

pop cx

and al,00001111b ;把年的个位高4位清0

or al,ah ;把一个完整的年分合并到al一个字节中

out dx,al ;把年写入CMOS

inc bp

add di,2

loop changloop

EndReturn: pop es

pop di

pop dx

pop bx

ret

;-----更改时间结束-----------------------------

;清空屏幕。

clearscreen: push bx

push cx

push es

mov bx,0b800h

mov es,bx

mov bx,0

mov cx,2000

subls: mov byte ptr es:[bx],' '

add bx,2

loop subls

pop es

pop cx

pop bx

ret

endsetup:nop

code ends

end start