^C12                add di,320         ; XPos eine Zeile erh”hen und prfen
                dec si             ; ob alle Zeilen gefllt wurden.
                jne FB1            ; Wenn nicht, n„chste y-Zeile fllen.
                ret                ; Rcksprung.
   FillBox      endp

^C03Nun máte eigentlich ein Prozedur zum fllen von beliebigen Bildschirmaus-
schnitten folgen. Leider habe ich dazu noch keinen schnellen Algorithmus
gefunden und eingefallen ist mir auch nichts. Aber sobald ich einen habe,
werde ich die Prozedur nachreichen.

Bevor wir nun zu den Linien kommen, schiebe ich noch eine Prozedur da-
zwischen, und zwar das Gegenstck zu "SetPoint", n„mlich "GetPoint".
Mit "GetPoint" kann der Farbwert eines Pixels gelesen werden.
Vor dem Aufruf von "GetPoint" muá AX die x-Position und BX die y-Position
enthalten. Die Prozedur gibt in CL den Farbwert des Pixels zurck.
^C12
        GetPoint proc uses di
                 imul di,bx,320        ; Index berechnen,
                 add di,ax             ; Ergebniss steht in DI.
                 mov cl,screen:[di]    ; Farbwert in CL speichern.
                 ret                   ; Rcksprung.
        GetPoint endp