355

;Procedures for writing directly to screen memory


scrmem dd 0B800:00000
xwidth db 160

write_str:
        push dx
        push si
        push es
        les bp,scrmem
      
        sub ax,ax
        mov al,dh

        mul xwidth

        shl dl,1                   ;Take attribute bytes in account                
        add al,dl
        mov di,ax 
 
 
lp:
        movsb                      ;First the character...
        es mov [bp+di],bl          ;then the attribute byte
        inc di
        loop lp

        pop es
        pop si
        pop dx
        ret


clrscr:
        push es
        les bp,scrmem
        mov di,0
        mov cx,2000
clr:    es mov b[bp+di],0
        inc di
        es mov b[bp+di],07H
        inc di
        loop clr        
        pop es
        ret
        
.

0