home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Asm / 86LIB3.ZIP / ATRB_RD.8 next >
Encoding:
Text File  |  1989-01-12  |  377 b   |  24 lines
  1. _saver150 dw 0
  2. _atrb_rd:
  3.   mov ds,cs
  4.   pop _saver150
  5.  
  6.   Mov ds,cs              ;setup workarea.
  7.  
  8.   Call  _SCRN_TYP      ;determine video memory
  9.   pop ds               ;location.
  10.   mov dx,160
  11.   pop ax
  12.   mov bx,ax
  13.   xchg ah,al
  14.   mov ah,0      ;first the row
  15.   mul dl
  16.   mov bh,0
  17.   shl bx,1
  18.   add ax,bx
  19.   mov si,ax
  20.   lodsw
  21.   mov ds,cs
  22.   push _saver150
  23.   ret
  24.