王爽《汇编语言》课程设计2

;关于程序编写过程中一些问题的总结和说明，见文章末尾

ASSUME CS:SETUP

 

;============================================================================================

;安装程序

;将引导所需的程序写入软盘

SETUP SEGMENT

START:

    ;复制装载程序到软盘0面0道1扇区 

    MOV AX,LOAD

    MOV ES,AX

    MOV BX,0        ;ES:BX指向要写的单元

   

    MOV DX,0

    MOV CX,1

    MOV AL,1

    MOV AH,3

    INT 13H

   

    ;复制任务程序到软盘0面0道2~3扇区

    MOV AX,SYS

    MOV ES,AX       ;BX没变

   

    MOV CX,2        ;DX没变

    MOV AL,2 

    MOV AH,3

    INT 13H

   

    MOV AX,4C00H

    INT 21H

SETUP ENDS

;============================================================================================

 

 

;============================================================================================

;引导程序

LOAD SEGMENT

;装载任务程序到指定内存处(此处2000:0)

;此处程序应该按照0:7C00的观点来看

;注意,这里是用软盘启动计算机,并没有DOS中断可用

    ASSUME CS:LOAD

   

    ;读任务程序到2000:0

    MOV AX,2000H

    MOV ES,AX

    MOV BX,0

    PUSH AX

    PUSH BX

   

    MOV DX,0

    MOV CX,2

    MOV AL,2 

    MOV AH,2

    INT 13H

   

    ;将CS:IP指向任务程序的首地址2000:0

    RETF

LOAD ENDS

;============================================================================================

 

 

;============================================================================================

;任务程序

SYS SEGMENT

    ASSUME CS:SYS

   

    ;隐藏光标

    MOV AH,01H

    MOV CX,3030H 

    INT 10H

    MOV CX,OFFSET ENDSHOW-OFFSET SYS_START

 

    SYS_START:

    JMP SHOW_MENU

    DATE DB "00/00/00 00:00:00",0           ;日期字符串

    DATE_INPUT DB "00/00/0000:00:00",0 ;用户输入的日期字符串,当输入不正确或者退出输入时,

                                            ;可以避免改变原始日期

    DATE_POS DB 0,2,4,7,8,9             ;定位 CMOS RAM   中日期各项的地址

    DATE_CHAR_POS DB 15,12,9,6,3,0          ;定位日期字符串中各项的位置

    DATE_COLOR DB 2

    ;提示字符串

    PRESS_ESC   DB "PRESS ESC TORETURN MENU",0

    PRESS_F1    DB "PRESS F1 TOCHANGE COLOR",0

    INPUT_DATE  DB "INPUT A DATEIN THE FORM OF YY/MM/DD HH:MM:SS,PRESS ENTER TO END INPUT",0

    OPTION1 DB "1) RESET PC",0

    OPTION2 DB "2) START SYSTEM",0

    OPTION3 DB "3) CLOCK",0

    OPTION4 DB "4) SET CLOCK",0

    ;直接定址表

    TABLE DW SUB1,SUB2,SUB3,SUB4

   

    ;列出功能选项

    SHOW_MENU:

    CALL CLS

    PUSH CS

    POP DS

    MOV SI,OFFSET OPTION1 

    MOV DX,0

    MOV CL,2

    CALL SHOW_STR

    INC DH

    MOV SI,OFFSET OPTION2

    CALL SHOW_STR

    INC DH

    MOV SI,OFFSET OPTION3

    CALL SHOW_STR

    INC DH

    MOV SI,OFFSET OPTION4

    CALL SHOW_STR

   

    GET_INPUT:

    MOV AH,0        ;获取键盘输入

    INT 16H

   

    SUB AL,30H

    CMP AL,1

    JB  GET_INPUT

    CMP AL,4

    JA  GET_INPUT

    MOV BL,AL

    DEC BL          ;1~4转化为0~3

    MOV BH,0

    SHL BX,1

    CALL WORD PTR CS:TABLE[BX] ;进入子程序

    JMP SHOW_MENU

   

    ;重新启动计算机

    SUB1:

    MOV AX,0FFFFH

    PUSH AX

    MOV AX,0H

    PUSH AX

    RETF

   

    ;引导硬盘现有的操作系统

    SUB2:

    CALL CLS

   

    MOV AX,0

    MOV ES,AX

    MOV BX,7C00H

    PUSH AX

    PUSH BX

   

    MOV DL,80H

    MOV DH,0

    MOV CH,0

    MOV CL,1

    MOV AL,1

    MOV AH,2

    INT 13H     ;读入硬盘0面0道1扇区的内容到0:7C00H

    RETF            ;CS:IP指向0:7C00H   

   

    ;循环显示时间

    SUB3:

    ;清屏,显示提示字符串,设置读取日期的循环次数及各项的起始地址

    CALL CLS

    PRE_SHOW_DATE:

    ;输出提示信息 

    MOV SI,OFFSET PRESS_ESC

    MOV DX,0

    MOV CL,DATE_COLOR

    CALL SHOW_STR

    MOV SI,OFFSET PRESS_F1

    MOV DX,0100H

    CALL SHOW_STR

   

   

    MOV CX,6            ;循环次数=6

    MOV DI,OFFSET DATE_POS ;DI用来定位需要读取的CMOS ROM的单元

    MOV BX,OFFSET DATE_CHAR_POS  ;BX用来定位日期各项的位置

   

    ;读取字符串

    READ_DATE:

    PUSH CX         ;保存循环次数

    ;读取日期的一项,放置到日期字符串相应的位置

    MOV AL,[DI]     ;CMOS ROM 日期的某单元

    OUT 70H,AL          ;向端口70H写入要访问的单元的地址

    IN AL,71H           ;从端口71H获得要写入AL的数据

    CALL BCD2ASCII;BCD码转化为数字的ASCII码,(AH)=十位的ASCII码,(AL)=个位的ASCII码

    PUSH AX         ;压入(AX),因为后面还要传送到DATE,而紧接着改变了(AX)

    MOV AL,[BX]     ;(AL)=日期某项的位置

    MOV AH,0            ;(AH)置零

    MOV SI,AX           ;SI指向日期字符串某项的位置

    POP AX              ;恢复(AX)

    MOV BYTE PTR DATE[SI],AH    ;传送

    MOV BYTE PTR DATE[SI+1],AL

    INC DI              ;DI+1,定位到下一个单元        

    INC BX              ;BX+1,定位到DATE字符串下一个位置

    POP CX              ;恢复循环次数

    LOOP READ_DATE      ;继续传送日期的下一项到DATE

   

    ;显示日期字符串,DS:SI指向字符串首地址

    MOV DX,0300H  

    MOV CL,DATE_COLOR 

    MOV SI,OFFSET DATE 

    CALL SHOW_STR 

   

    SUB3_INPUT:

    MOV AH,1            ;获取键盘输入,非阻塞 

    INT 16H

    JZ PRE_SHOW_DATE  ;缓冲区无按键

    CMP AL,1BH          ;ESC

    JE SUB3_RET

    CMP AH,3BH          ;F1

    JE  CHG_COLOR

    JMP CLEAR_BUFFER 

    CHG_COLOR:

    INC DATE_COLOR

   

    CLEAR_BUFFER:

    MOV AH,0            ;16H中断的1号功能不会清除键盘缓冲区，下次读取还会读出

    INT 16H             ;调用0号功能清除一次

   

    CALL DELAY

    JMP PRE_SHOW_DATE

   

    SUB3_RET:

    MOV AH,0            ;16H中断的1号功能不会清除键盘缓冲区，下次读取还会读出

    INT 16H             ;调用0号功能清除一次

    MOV CL,2

    MOV DATE_COLOR,CL

    RET

   

    ;修改当前日期、时间

    SUB4:

    CALL CLS

    ;输出提示信息

    MOV SI,OFFSET PRESS_ESC

    MOV DX,0

    MOV CL,2

    CALL SHOW_STR

    MOV SI,OFFSET INPUT_DATE

    MOV DX,0100H

    CALL SHOW_STR

   

    ;设置字符栈的位置,获取日期输入前的准备

    MOV SI,OFFSET DATE_INPUT 

    MOV DX,0300H        ;显示的位置

   

    GET_DATE:

    MOV AH,0

    INT 16H

    CMP AL,20H          ;空格

    JE PUSH_CHAR

    CMP AL,3AH          ;冒号

    JE PUSH_CHAR

    CMP AL,2FH

    JB NO_DATE      ;ASCII码小于2FH,说明不是数字或斜杠'/' 

    CMP AL,39H

    JA NO_DATE          ;ASCII码大于39H,说明不是数字或斜杠'/'

   

    PUSH_CHAR:

    MOV AH,0

    CALL CHARSTACK      ;字符入栈

   

    MOV AH,2

    CALL CHARSTACK      ;字符串显示

    JMP GET_DATE

   

    NO_DATE:

    CMP AH,0EH          ;退格

    JE BACKSPACE

    CMP AH,1CH          ;ENTER

    JE PRESS_ENTER

    CMP AL,1BH          ;ESC

    JE ESC_SUB4 

    JMP GET_DATE

   

    BACKSPACE:

    MOV AH,1

    CALL CHARSTACK      ;字符出栈

    MOV AH,2

    CALL CHARSTACK      ;字符串显示

    JMP GET_DATE

   

    ESC_SUB4:           ;退出SUB4,DATE字符串的内容未被改变

    MOV AH,0

    CALL CHARSTACK

    JMP SUB4_RET

   

    PRESS_ENTER:

    MOV AL,0

    MOV AH,0

    CALL CHARSTACK      ;0入栈

 

    MOV AH,2

    CALL CHARSTACK      ;字符串显示

   

    ;完成输入,复制 DATE_INPUT 的内容到 DATE

    MOV SI,OFFSET DATE_INPUT

    PUSH CS

    POP ES

    MOV DI,OFFSET DATE

    MOV CX,18

    REP MOVSB

   

    MOV CX,6            ;循环次数=6

    MOV DI,OFFSET DATE_POS ;DI用来定位需要读取的CMOS ROM的单元

    MOV BX,OFFSET DATE_CHAR_POS  ;BX用来定位日期各项的位置

   

    SET_DATE:

    PUSH CX         ;保存循环次数

    ;读取日期的一项,放置到日期字符串相应的位置

    MOV AL,[DI]     ;CMOS ROM 日期的某单元

    OUT 70H,AL          ;向端口70H写入要访问的单元的地址

    MOV AL,[BX]

    MOV AH,0

    MOV SI,AX

    MOV AH,DATE[SI] ;传送日期项的内容

    MOV AL,DATE[SI+1]

    CALL ASCII2BCD      ;两位数字的ASCII码转化为BCD码(AH的高4位=十位,AH的低4位=个位)

    OUT 71H,AL      ;将日期项的BCD码写入到CMOS ROM

    INC DI              ;DI+1,定位到下一个单元        

    INC BX              ;BX+1,定位到DATE字符串下一个位置

    POP CX              ;恢复循环次数

    LOOP SET_DATE       ;继续传送日期的下一项到DATE

   

    SUB4_RET:

    RET

   

;--------------------------------------------------------------------------------------------

;功能:在指定的位置，用指定的颜色，显示一个用0结尾的字符串。

;参数:(DH)=行号(0~24),(DL)=列号(0~79),(CL)=颜色,DS:SI指向字符串的首地址。

;返回:无

    SHOW_STR:

    PUSH AX             ;保护现场

    PUSH ES

    PUSH DX

    PUSH DI

    PUSH SI

    MOV AX,0B800H       ;显示缓冲区段地址

    MOV ES,AX           ;(ES)=显示缓冲区段地址

    MOV AL,0A0H         ;以下计算初始字符的偏移地址

    MUL DH              ;行数×0A0H(160个字节)

    MOV DI,AX           ;转移到DI中

    MOV AL,2            ;显示缓冲区中一个字符占两个字节空间

    MUL DL              ;2×列号

    ADD DI,AX           ;获得初始字符的偏移地址

    S:

    MOV AX,DS:[SI]      ;输出字符到显示缓冲区

    MOV ES:[DI],AX

    INC DI              ;准备写入颜色信息

    MOV ES:[DI],CL      ;写入颜色信息

    INC SI              ;准备输出下一个字符

    PUSH CX             ;保存颜色=(CL)

    MOV CX,DS:[SI]      ;(CX)=下一个字符

    MOV CH,0            ;!!!若DS:[SI]的低位字节为零，但其高位字节不为零,

                        ;!!!则程序不能如期望的那样跳转到END_SHOW

    JCXZ END_SHOW       ;不为零则继续输出，为零则结束子程序

    POP CX              ;恢复颜色=(CL)

    INC DI              ;准备写入下一个字符

    JMP S               ;输出下一个字符

    END_SHOW:

    POP CX              ;!!!如果(CX)≠0,就会跳转到这里,此时(CX)在栈中还没有弹出

                        ;!!!如果不弹出就会引发错误

    POP SI              ;恢复现场

    POP DI

    POP DX

    POP ES

    POP AX

    RET

;--------------------------------------------------------------------------------------------

   

;--------------------------------------------------------------------------------------------

;功能:清屏

;参数:无

;返回:无

    CLS:

    PUSH AX

    PUSH CX

    PUSH DI

    PUSH ES

    MOV AX,0B800H

    MOV ES,AX

    MOV DI,0

    MOV CX,2000

   

    CLS_S:

    MOV BYTE PTR ES:[DI],0 ;为什么把BYTE改成WORD会引发崩溃?

    ;然而等我写好了程序再把 BYTE 改成 WORD ，发现并不会崩溃，但

    ;一开始最精简的程序又会崩溃，显示不出来东西，这又是为什么呢？

    ;问题待查

    INC DI

    INC DI

    LOOP CLS_S

   

    ;恢复颜色

    MOV DI,1

    MOV CX,2000

    RESET_COLOR:

    MOV BYTE PTR ES:[DI],7

    INC DI

    INC DI

    LOOP RESET_COLOR

   

    POP ES

    POP DI

    POP CX

    POP AX

    RET

;--------------------------------------------------------------------------------------------

 

;--------------------------------------------------------------------------------------------

;功能:把一个byte、两位数的BCD码转变成2个byte的ASCII码

;参数:(AL)=十进制两位数的BCD码(十位=高4位的BCD码,个位=低4位的BCD码)

;返回:(AH)=十位的ASCII码,(AL)=个位的ASCII码 

    BCD2ASCII:

    PUSH CX     ;保存用到的寄存器

    MOV AH,AL       ;AL中的BCD码复制一份到AH中

    MOV CL,4        ;右移4位,取得月份十位的值

    SHR AH,CL       ;(AH)=月份十位的值

    AND AL,00001111B;(AL)=月份个位的值

    ADD AH,30H      ;(AH)=月份十位的ASCII码

    ADD AL,30H      ;(AL)=月份个位的ASCII码

    POP CX          ;恢复用到的寄存器

    RET         ;返回

;--------------------------------------------------------------------------------------------

 

;--------------------------------------------------------------------------------------------

;功能:把2个byte的ASCII码转变成一个byte、两位数的BCD码

;参数:(AH)=十位的ASCII码,(AL)=个位的ASCII码

;返回:(AL)=十进制两位数的BCD码(十位=高4位的BCD码,个位=低4位的BCD码) 

    ASCII2BCD:

    PUSH CX     ;保存用到的寄存器

    SUB AH,30H      ;(AH的低4位)=月份十位的BCD码

    SUB AL,30H      ;(AL的低4位)=月份个位的BCD码

    MOV CL,4        ;左移4位

    SHL AH,CL       ;(AH的高4位)=月份十位的BCD码

    OR AH,00001111B ;(AH低4位)置1

    OR AL,11110000B ;(AL高4位)置1

    AND AL,AH       ;(AL)=十进制两位数的BCD码

    POP CX          ;恢复用到的寄存器

    RET         ;返回

;--------------------------------------------------------------------------------------------

 

;--------------------------------------------------------------------------------------------

;功能:产生延时

;参数:无

;返回:无

    DELAY:

    PUSH AX

    PUSH DX

    MOV DX,1000

    MOV AX,0   

    DELAY_S: 

    SUB AX,1

    SBB DX,0 

    CMP AX,0

    JNE DELAY_S

    CMP DX,0

    JNE DELAY_S

 

    POP DX

    POP AX

    RET         ;返回

;--------------------------------------------------------------------------------------------

 

;字符栈

;--------------------------------------------------------------------------------------------

;功能:0号:字符入栈 1号:字符出栈 2号:显示栈中的字符

;参数:   (AH)=功能选择,(AL)=入栈的字符,DS:SI指向字符栈空间

;       (DH)=显示的行位置,(DL)=显示的列位置

;返回:(AL)=出栈的字符

    CHARSTACK:

    JMP CHARSTART

   

    CHAR_TABLE  DW CHARPUSH,CHARPOP,CHARSHOW

    TOP         DW  0

       

    CHARSTART:

    PUSH BX

    CMP AH,2

    JA SRET     ;没有对应的功能号,结束子程序

    ;调用相应的子功能 

    MOV BL,AH

    MOV BH,0

    SHL BX,1

    CALL WORD PTR CHAR_TABLE[BX]

   

    ;限制输入的长度,如果超过了日期字符串的长度,将TOP置为0

    CMP TOP,18

    JNE SRET

    MOV TOP,0

   

    SRET:

    POP BX

    RET

   

    ;字符入栈,(AL)=入栈的字符 

    CHARPUSH:

    CMP AL,1BH      ;如果是ESC

    JE ESC_INPUT    ;跳转到ESC_INPUT

    PUSH BX

    MOV BX,TOP

    MOV [BX][SI],AL ;字符入栈

    MOV BYTE PTR 1[BX][SI],0

    INC TOP     ;TOP指向新的栈顶

    POP BX

    JMP CHARPUSH_RET

   

    ESC_INPUT: 

    MOV TOP,0       ;TOP置为0

   

    CHARPUSH_RET:

    RET

   

    ;字符出栈,(AL)=出栈的字符

    CHARPOP:

    PUSH BX

    CMP TOP,0       ;是否已到栈底

    JE CHARPOPRET   ;是则不出栈,结束子功能 

    DEC TOP     ;TOP指向要出栈的字符

    MOV BX,TOP

    MOV AL,[BX][SI] ;字符出栈

    MOV BYTE PTR [BX][SI],' '

    CHARPOPRET:

    POP BX

    RET

   

    ;DS:SI指向字符栈空间,(DH)=显示的行位置,(DL)=显示的列位置

    CHARSHOW:

    PUSH AX

    PUSH BX

    PUSH DX

    PUSH DI

    PUSH ES

    ;使ES:SI指向显示的位置,DS:SI指向字符栈空间

    MOV BX,0B800H

    MOV ES,BX

    MOV AL,160

    MUL DH

    MOV DI,AX

    MOV AL,DL

    SHL AL,1

    MOV AH,0

    ADD DI,AX  

   

    MOV BX,0

   

    CHARSHOWS:

    CMP TOP,0

    JE SET_CURSOR       ;处理删除最后一个字符的事件

    CMP BX,TOP

    JE ENDSHOW

    MOV AL,[BX][SI]

    MOV ES:[DI],AL

    MOV ES:[DI+2],BYTE PTR ' '

    INC BX

    INC DI

    INC DI

    JMP CHARSHOWS

   

    SET_CURSOR:

    MOV BYTE PTR ES:[DI],' '

       

    ENDSHOW:   

    POP ES

    POP DI

    POP DX

    POP BX

    POP AX

    RET

;--------------------------------------------------------------------------------------------

 

SYS ENDS

;============================================================================================

 

   

;安装过程的第一行指令

END START

1.   采用怎样的引导方式？是把所有任务程序复制到0:7C00处，还是把引导程序复制到0:7C00处，再执行引导程序把任务程序复制到别处内存？采用后一种方式。原因：程序的子功能2是从硬盘引导现有的操作系统，这需要把硬盘0面0道1扇区的内容复制到0:7C00处，也就覆盖了原来0:7C00处的内容，谁知道这时0:7C00处是什么内容呢？又怎样来重新定位CS:IP呢？

2.   没有检测用户输入日期的格式（但是只可以输入数字、空格、英文冒号’:’、斜杠’/’和ENTER），日期显示仍有闪烁，其余完美。

3.  其他内容可以参见注释。