汇编语言课程设计 数字电子表

汇编语言课程设计 数字电子表

我上星期才做过一个同样的给人，```难道你们是同一间学校的！？Data SEGMENT wResult dw 0 decimal db 3 dup (0) result db ':', ' $' key db 00hData ENDS Code SEGMENT assume cs:code,ds:datastart: 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 21hload_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],0FFhkey_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