; BL - Blank the screen to REAL top line ; Programmed by Richard Gillmann (Gillmann@ISIB) rbda segment at 40h ; rom bios data area org 50h curpos dw ? ; cursor posn rbda ends cseg segment public 'code' assume cs:cseg,ds:cseg org 100h start proc far mov ax,6*256+0 ; scroll up mov bh,7 ; normal attribute mov cx,0 ; upper left corner mov dx,24*256+79 ; last row int 10h ; bios video function mov ax,rbda ; rom bios data area mov es,ax ; to extra seg assume es:rbda mov curpos,-256 ; set fake posn int 20h ; done start endp cseg ends end start