home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / fort_lib / wcolor.asm < prev    next >
Encoding:
Assembly Source File  |  1991-01-17  |  1.0 KB  |  36 lines
  1. ;
  2. ;----------------------------------------------------------------------
  3. ; Setzen des Set/Reset- und des Set/Reset-Registers auf die zu
  4. ; schreibende Bit-Plane (NBtPln=0,1,2,3)
  5. ;----------------------------------------------------------------------
  6. ;
  7. ;FORTRAN Aufruf:
  8. ;       INTERFACE TO SUBROUTINE WColor [PASCAL] (NBtPln)
  9. ;       INTEGER*2 NBtPln [NEAR,VALUE]
  10. ;       END
  11. ;       ...
  12. ;       CALL WColor(NBtPln)
  13. ;
  14.         .286p
  15.         .MODEL large,pascal
  16.         .CODE
  17.  
  18. WColor  PROC    USES cx dx, NBtPln: WORD
  19.  
  20.         mov     dx,03c4h
  21.         mov     cx,NBtPln
  22.         mov     ah,1
  23.         shl     ah,cl                   ; AH = 2^NBtPln
  24.         mov     al,2
  25.         out     dx,ax                   ; Map Mask Register = 2^NBtPln
  26.         mov     dx,03ceh
  27.         mov     ax,0001h
  28.         out     dx,ax                   ; Enable Set/Reset Register = 0
  29.         mov     ax,0ff08h
  30.         out     dx,ax                   ; Bit Mask Register = FF
  31.  
  32.         ret
  33.  
  34. WColor  ENDP
  35.         END
  36.