AFFICHAGE D'UN CARRÉ (ROUGE), CENTRÉ, SUR LA POINTE, QUI SE REMPLIT

;
;  Affichage d'un carré rouge, centré, sur la pointe
;  ce carré a une dimension de 200x200 et sera coloré en vert.
;
;  mode vidéo n°12  : AH=0, AL=12, INT 10h
;  affichage d'un pixel : AH=12, AL=couleur,CX=X,DX=Y, INT 10h
;
.MODEL SMALL
.STACK 100H
.486
.CODE
MAIN    PROC

        MOV     AL,12h          ; mode VGA
        SUB     AH,AH           
        INT     10h

        MOV     AL,12           ; rouge
        MOV     AH,12           ; ecrire pixel
        MOV     BH,0            ; page 0
        MOV     CX,120
        MOV     DX,240          ; centré

        MOV     BL,199          ; cote = 199 pixels
@@1:    INC     CX
        DEC     DX
        INT     10h             ; coté ouest -> nord
        DEC     BL
        JNZ     @@1

        MOV     BL,199          
@@2:    INC     CX
        INC     DX
        INT     10h             ; coté nord -> est
        DEC     BL
        JNZ     @@2

        MOV     BL,199     
@@3:    DEC     CX
        INC     DX
        INT     10h             ; coté est -> sud
        DEC     BL
        JNZ     @@3

        MOV     BL,199 
@@4:    DEC     CX
        DEC     DX
        INT     10h             ; coté sud -> ouest
        DEC     BL
        JNZ     @@4

        MOV     AL,10           ; vert

        MOV     SI,397          ; horizontale
@@5:    PUSH    SI              ; remplir vers le haut
        PUSH    CX
@@6:    INC     CX
        INT     10h
        DEC     SI
        JNZ     @@6
        POP     CX
        INC     CX
        DEC     DX
        POP     SI
        DEC     SI
        DEC     SI
        JNS     @@5

        MOV     CX,121
        MOV     DX,241

        MOV     SI,395          ; ligne la plus longue déjà faite        
@@7:    PUSH    SI              ; remplir vers le bas
        PUSH    CX
@@8:    INC     CX
        INT     10h
        DEC     SI
        JNZ     @@8
        POP     CX
        INC     CX
        INC     DX
        POP     SI
        DEC     SI
        DEC     SI
        JNS     @@7

fin:    MOV     AX,4C00h
        INT     21h
MAIN    ENDP
END     MAIN