1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| data segment
msg db 'Bonjour$'
s db 0
c db 70
data ends
code segment
main proc
assume ds:data,cs:code
mov ax,data
mov ds,ax
repeat:
mov ah,2ch
int 21h
cmp dh,60
je x
add dh,1
mov byte ptr[s],dh
jmp time
x:
mov byte ptr[s],1 ; toujour ici le problem
time:
mov ah,2ch
int 21h
cmp dh,s
jl time
mov ah,06h
mov al,01h
mov bh,0eh
mov ch,13
mov cl,10
mov dh,13
mov dl,c
add dl,7
int 10h
mov bh,0 ; LE NUMERO DE LA PAGE
mov dh,13 ;le numero de la ligne
mov dl,c ;le numero de la colonne
mov ah,02
int 10h
lea dx,msg
mov ah,9
int 21h
dec byte ptr[c]
cmp byte ptr[c],10
jg repeat
mov ah,4ch
int 21h
main endp
code ends
end main |
Partager