include macro.bib Stack_ SEGMENT STACK dw 100h DUP(?) ; Stack mit 256 words initialisiert Stack_ ENDS ASSUME CS:Code,SS:Stack_ Code SEGMENT Start: SHOW_TIME ; Anzeige der Zeit und Zeilenvorschub mov al,10 mov dl,al SHOW_DL mov al,13 mov dl,al SHOW_DL xor ax,ax mov cx,ax I1: xor ax,ax mov dx,ax I2: inc al inc dx cmp dx,04fffh jne I2 inc cx cmp cx,04fffh jne I1 SHOW_TIME MSDOS SHOW_AL PROC NEAR push ax push bx push cx push dx push ax mov cl,4 shr al,cl mov bh,al pop ax mov cl,0fh and al,cl mov bl,al mov ax,bx add ax,3030h cmp ah,3ah jl M1 add ah,07h M1: cmp al,3ah jl M2 add al,07h M2: mov dl,ah SHOW_DL mov dl,al SHOW_DL pop dx pop cx pop bx pop ax RET SHOW_AL ENDP Code ENDS END Start