匯編源代碼之讀寄存器內容

我的環境是WINXP+MASM5.0通過編譯生成可執行文件，雙擊，提示寫入文件成功，按任意鍵推出。

在程序的同一目錄下的TEMP.TXT中已經寫入了：

ABCD

4645

4F5B

FFFF

四行用來測試而顯示送入寄存器的值。

以下是完整的代碼，

MovToVar Macro m_Reg,Asc_AX
　 mov bx,m_Reg
　 call ConvertToAsc
lea si,CAscii
lea di,Asc_AX
mov cx,4d
rep movsb
EndM
data segment
mAX　dw 0
mBX　dw 0
mCX　dw 0
mDX　dw 0
AscAX　db 4 dup(?),0dh,0ah
AscBX　db 4 dup(?),0dh,0ah
AscCX　db 4 dup(?),0dh,0ah
AscDX　db 4 dup(?),0dh,0ah
WriteBytes EQU $-AscAX
CAscii　db 5 dup(?)　;臨時存放轉化結果
filename db 'temp.txt$',0h
filehandle dw ?
ferr_num1 db 'Error occurred when create file!$'
　 ferr_num2 db 'Write file error!$'
　 tssaveok db 'Write register value to file success.$'
　 tsexit　db 'Press any key to exit...$'

data ends
Code segment
assume cs:code,ds:data,es:data
Main proc far
　　 start:
push ds
sub ax,aX
mov ax,data
mov ds,aX
mov es,aX
sub ax,aX
mov ax,0ABCDh ;四個測試數據
mov bx,4645h
mov cx,4F5Bh
mov dx,0FFFFh
　　 call SaveRegToMem
　　 call MovAll
　　 call SaveToFile
call NextLine
lea dx,tsexit
call ShowString
　 waittoexit:
　 mov ah,0h
　 int 16h
　 exitprogram:
　 mov ah,4ch
　 int 21h
Main Endp
MovAll proc near
　 push aX
　 push bX
　 push cX
　 push dX
　 MovToVar mAX,AscAX
　 MovToVar mBX,AscBX
　 MovToVar mCX,AscCX
　 MovToVar mDX,AscDX
　 pop dX
　 pop cX
　 pop bX
　 pop aX
　 ret
MovAll endp
SaveRegToMem proc near
　 mov mAX,aX
　 mov mBX,bX
　 mov mCX,cX
　 mov mDX,dX
　 ret
SaveRegToMem endp
ShowString proc near
;顯示DX所指的字符串
push aX
mov ah,09h
　 int 21h
pop aX
　 ret
ShowString endp
NextLine proc near
;回車換行
　 mov ah,02h
　 mov dl,0dh
　 int 21h

　 mov ah,02h
　 mov dl,0ah
　 int 21h
　 ret
NextLine endp
ConvertToAsc proc near
;參數為BX
;將BX中的二進制數據轉化成相應的ASCII碼，
;並將結果保存到CAscii[]
　 PUSH AX
　 PUSH CX
　 PUSH DX
　 mov bp,0h
　 mov ch,4h
xh:
　 mov cl,4h
　 rol bx,cl
　 mov al,bl
　 and al,0fh
　 add al,30h
　 cmp al,3ah ;whether >'9'(Ascii:49)
　 jl toCascii ;if not then store to CAscii
　 add al,7h ;if yes then convert it to ascii
toCascii:
　 mov CAscii[bp],al
　 inc bp
　 dec ch
　 jnz xh

　 mov CAscii[bp],'$'
　 POP DX
　 POP CX
　 POP AX
　 ret
ConvertToAsc endp
SaveToFile PROC NEAR
;保存內存中的數據到文件中
　 mov ah,3ch
mov cx,0h
lea dx,filename
int 21h　 ;建立文件
jc ferr1　;如果建立出錯,跳轉到顯示相應信息
mov filehandle,ax ;文件代號存放入內存變量

mov ah,40h
mov bx,filehandle
mov cx,WriteBytes ;將要寫入文件的字節數送入CX
lea dx,AscAX
int 21h　 ;向文件寫入以記錄首地址開始的AX個字節
jc ferr1　;如果寫入錯誤,則跳轉到顯示相關信息處
cmp ax,WriteBytes ;如果寫入文件的實際字節數不是要求寫入的字節數
jne ferr2　;則顯示跳轉到顯示出錯信息
mov bx,filehandle
mov ah,3eh
int 21h　 ;關閉文件
lea dx,tssaveok
call showstring
call nextline
ret
　 ferr1:
　　 lea dx,ferr_num1
　　 call showstring
　　 call nextline
　　 ret
　 ferr2:
　　 lea dx,ferr_num2
call showstring
call nextline
ret
SaveToFile ENDp
Code ends
end start