home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / fort_lib / rcolor.asm < prev    next >
Assembly Source File  |  1991-01-17  |  673b  |  29 lines
  1. ;
  2. ;----------------------------------------------------------------------
  3. ; set the read-map-register to the bitplane to be read (NBtPln=0,1,2,3)
  4. ;----------------------------------------------------------------------
  5. ;
  6. ;FORTRAN calling sequnce
  7. ;       INTERFACE TO SUBROUTINE RColor [PASCAL] (NBtPln)
  8. ;       INTEGER*2 NBtPln [NEAR,VALUE]
  9. ;       END
  10. ;       ...
  11. ;       CALL RColor(NBtPln)
  12. ;
  13.         .286p
  14.         .MODEL large,pascal
  15.         .CODE
  16.  
  17. RColor  PROC    USES dx, NBtPln: WORD
  18.  
  19.         mov     dx,03ceh
  20.         mov     ax,NBtPln
  21.         mov     ah,al
  22.         mov     al,4
  23.         out     dx,ax
  24.  
  25.         ret
  26.  
  27. RColor  ENDP
  28.         END
  29.