匯編語言課程設計 數字電子表


1． 在屏幕左上角或右下角顯示數字電子表，格式為：時：分：秒；
2． 整點報時

1. 功能設計（功能模塊及模塊圖）
2. 要用文字說明各主模塊的功能。
3． 詳細設計
3.1設計方法：各功能模塊主要關鍵技術的運用，計算公式，實現方法（文字表述）
3.2各功能模塊程序的流程圖；
3.3本設計的重點、難點及解決方法。
4． 總結（體會）
5． 參考文獻
6． 附：源程序。




Data SEGMENT
wResult dw 0
decimal db 3 dup (0)
result db ':', ' $'
key db 00h
Data ENDS 

Code SEGMENT
assume cs:code,ds:data

start:
mov ax,data
mov ds,ax

push ds

mov ah,0h
mov al,00h
int 10h
mov al,1ch
mov ah,35h
int 21h

push es 
push bx 
push ds

mov dx,offset load_from_clock
mov ax,seg load_from_clock
mov ds,ax
mov al,1ch 
mov ah,25h 
int 21h

pop ds 
in al, 21h
and al, 11111100b
out 21h,al
sti

circle:
cmp ds:[key],0FFh
je @1
jmp circle

@1:
pop dx
pop ds 
mov al, 1ch 
mov ah, 25h 
int 21h

pop ds 

mov ax,4c00h
int 21h


load_from_clock proc
push ds
push ax
push bx
push cx
push dx

mov ax,data
mov ds,ax
sti

push ds
push ax
push bx
push cx
push dx

mov ah,2h
mov bh,0
mov dx,1039h 
int 10h

mov ah, 0bh
int 21h
inc al
jnz key_nothing

mov ds:[key],0FFh

key_nothing:

pop dx
pop cx
pop bx
pop ax
pop ds

mov ah,2ch
int 21h

mov byte ptr[wResult],ch
call hex2dec
mov byte ptr[wResult],cl
call hex2dec
mov byte ptr[wResult],dh
mov result,' '
call hex2dec
mov result,':'

exit: 
cli
mov al,20h
out 20h,al

pop dx
pop cx
pop bx
pop ax
pop ds

iret

load_from_clock endp 


hex2dec PROC 
push cx
push dx

lea bx,decimal
mov ax,word ptr [wResult]
xor cx,cx
@3: xor dx,dx
push cx
mov cx,0ah
div cx
add dx,48
pop cx

push dx
inc cx
test ax,ax
jnz @3

@4: pop [bx]
inc bx
loop @4

lea dx,decimal
mov ah,09h
int 21h 

pop dx
pop cx 
ret 
hex2dec endp

Code ENDS
end start