home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Asm / 86LIB3.ZIP / ATRB_WRT.8 < prev    next >
Encoding:
Text File  |  1989-01-14  |  490 b   |  30 lines
  1. _line db 160
  2. _saver1  dw  ?
  3. ;
  4. _ATRB_WRT:
  5.   mov ds,cs
  6.   pop _saver1
  7.  
  8.   Call _SCRN_TYP         ;determine video memory loc.
  9.   pop es
  10. ;
  11.   pop cx,dx,ax
  12.   mov bx,ax
  13.   xchg ah,al          ; get screen address
  14.   mov ah,0            ; from row
  15.   mul _line           ; and column
  16.   mov bh,0
  17.   shl bx,1
  18.   add ax,bx
  19.   mov si,di,ax           ; set DI to screen offset
  20.   mov ds,es
  21. _atrb_wrt1:
  22.   lodsw
  23.   mov ah,dl
  24.   stosw
  25.   loop _atrb_wrt1
  26. ;
  27.   mov ds,cs
  28.   push _saver1
  29.   ret
  30.