home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / fort_lib / rbtpln.asm < prev    next >
Assembly Source File  |  1991-01-17  |  1KB  |  36 lines
  1. ;
  2. ;----------------------------------------------------------------------
  3. ; read the bitplane defined with RColor()
  4. ;----------------------------------------------------------------------
  5. ;
  6. ;FORTRAN calling sequence
  7. ;       INTERFACE TO SUBROUTINE RBtPln(VGASeg,BtPlnD)
  8. ;       INTEGER*4  VGASeg [NEAR,VALUE]
  9. ;       INTEGER*1  BtPlnD(38400)   ! VGA
  10. ;       INTEGER*1  BtPlnD(28000)   ! EGA
  11. ;       END
  12. ;       ...
  13. ;       CALL RbtPln(VGASeg,BtPlnD)
  14. ;
  15.         .286p
  16.         .MODEL large,fortran
  17.         .CODE
  18.  
  19. RbtPln  PROC    USES cx ds es si di, VGASeg: DWORD, BtPlnD: PTR BYTE
  20.  
  21.         lds     si,VGASeg               ; DS = VGABase
  22.  
  23.         les     di,BtPlnD               ; ES = SEGMENT(BtPlnD)
  24.                                         ; DI = OFFSET(BtPlnD)
  25.         cld                             ; clear direction flag
  26.         mov     cx,38400/2              ; number of words in one
  27.                                         ; VGA bitplane
  28. ;       mov     cx,28000/2              ; number of words in one
  29.                                         ; EGA bitplane
  30.         rep     movsw                   ; copy
  31.  
  32.         ret
  33.  
  34. RbtPln  ENDP
  35.         END
  36.