王爽《汇编语言》实验14——访问CMOS RAM

代码1：

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

;编程,以"年/月/日 时:分:秒"的格式,显示当前的日期、时间.

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

ASSUME CS:CODE

 

DATA SEGMENT

    ;定义日期的字符串,以"$"结尾

    DATE DB "  / /     :  : ",'$'

   

DATA ENDS

 

CODE SEGMENT

START:

    MOV AX,DATA         ;初始化DS

    MOV DS,AX

   

    ;读取秒,放置到日期字符串秒的位置

    MOV AL,0H           ;CMOS ROM 0号单元

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

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

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

    MOV SI,15           ;SI指向日期字符串秒的位置

    MOV BYTE PTR [SI],AH    ;传送

    MOV BYTE PTR [SI+1],AL

   

    ;读取分,放置到日期字符串分的位置

    MOV AL,2H

    OUT 70H,AL

    IN AL,71H

    CALL BCD2ASCII

    MOV SI,12 

    MOV BYTE PTR [SI],AH

    MOV BYTE PTR [SI+1],AL

   

    ;读取时,放置到日期字符串时的位置

    MOV AL,4H

    OUT 70H,AL

    IN AL,71H

    CALL BCD2ASCII

    MOV SI,9 

    MOV BYTE PTR [SI],AH

    MOV BYTE PTR [SI+1],AL

   

    ;读取日,放置到日期字符串日的位置

    MOV AL,7H

    OUT 70H,AL

    IN AL,71H

    CALL BCD2ASCII

    MOV SI,6 

    MOV BYTE PTR [SI],AH

    MOV BYTE PTR [SI+1],AL 

 

    ;读取月,放置到日期字符串月的位置

    MOV AL,8H 

    OUT 70H,AL

    IN AL,71H

    CALL BCD2ASCII

    MOV SI,3 

    MOV BYTE PTR [SI],AH

    MOV BYTE PTR [SI+1],AL 

   

    ;读取年,放置到日期字符串年的位置

    MOV AL,9H

    OUT 70H,AL

    IN AL,71H

    CALL BCD2ASCII

    MOV SI,0 

    MOV BYTE PTR [SI],AH

    MOV BYTE PTR [SI+1],AL

   

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

    MOV DX,0

    MOV AH,9

    INT 21H

 

    MOV AX,4C00H

    INT 21H

 

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

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

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

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

BCD2ASCII PROC NEAR

    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         ;返回

BCD2ASCII ENDP

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

   

CODE ENDS

END START

代码2：

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

;编程,以"年/月/日 时:分:秒"的格式,显示当前的日期、时间.

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

ASSUME CS:CODE

 

DATA SEGMENT

    ;定义日期的字符串,以"$"结尾

    DATE DB "  / /     :  : ",'$'

    DATE_POS DB 0,2,4,7,8,9

    DATE_CHAR_POS DB 15,12,9,6,3,0

DATA ENDS

 

CODE SEGMENT

START:

    MOV AX,DATA         ;初始化DS

    MOV DS,AX

   

    MOV CX,6            ;循环次数=6

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

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

    SHOW_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 AX,[BX]     ;(AX)=日期某项的位置

    MOV AH,0            ;(AH)置零

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

    POP AX              ;恢复(AX)

    MOV BYTE PTR [SI],AH    ;传送

    MOV BYTE PTR [SI+1],AL

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

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

    POP CX              ;恢复循环次数

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

   

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

    MOV DX,0

    MOV AH,9

    INT 21H

 

    MOV AX,4C00H

    INT 21H

 

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

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

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

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

BCD2ASCII PROC NEAR

    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         ;返回

BCD2ASCII ENDP

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

   

CODE ENDS

END START