; 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
