home *** CD-ROM | disk | FTP | other *** search
- ; 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
-