^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 ge-
funden 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 dazwisch-
en, 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