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
| ideal
model small
extrn temp : far
stack 200h
include "MYmacros.asm"
dataseg
tour db ?
codeseg
debut:
mov ah,0
mov al,4
int 10h ;mode graphique enclanché
mov ah,0Bh
mov bh,1
mov bl,0
int 10h ;choix de la palette de couleur des pixels
mov [tour],1
tantque1:
cmp [tour],20
je fintantque1
faire1:
mov ah,0Ch
mov al,1
mov bh,0
mov bl,[tour]
mov dx,bx
mov bh,0
mov bl,[tour]
mov cx,bx
int 10h ;met le pixel [tour][tour] en couleur vert
inc [tour]
call far temp ;on appelle la temporisation
mov ah,1
int 21h ;on atten ici qu'une touche soie tapée
jmp tantque1
fintantque1:
mov ah,0
mov al,3
int 10h ;mode texte enclanché
exit
end debut |
Partager