home *** CD-ROM | disk | FTP | other *** search
- ideal ; Set up in ideal mode
- model tiny ; This is done in tiny model
-
- ;******************* dispatch_fillstyle **********************************
- ; Interfaces BGI driver code to the calling interface. Save old DS and
- ; sets up a new one for the driver to use. Restores the old DS and
- ; does a far return on exit. It passes and returns the parameters in
- ; the conventional 'C' fashion. This makes it much easier to write
- ; the main driver in C and let the compiler optimize to its hearts
- ; content.
- ;
- ; INPUT: al -- Fill number.
- ; bx -- Pattern offset.
- ; es -- Pattern segment.
- ;
- ; OUTPUT: none
- ;
- ; V 1.00 26/06/89 Robert Adsett.
- ; V 1.01 15/06/90 Robert Adsett. Eliminate DOSSEG ordering.
- ;
- ; (C) Robert Adsett 1989,1990
- ;*************************************************************************
-
- codeseg ; Start of the code segment
-
- ;*************************************************************************
- ; Declare publics and externals.
- ;*************************************************************************
-
- extrn _fillstyle : near ;external function, does actual
- ; work.
- public dispatch_fillstyle ;make this routine public so it
- ; can be hooked.
-
-
- proc dispatch_fillstyle near
-
- push es ;Pattern segment.
- push bx ;Pattern offset.
- xor ah,ah
- push ax ;Fill pattern number.
- call _fillstyle ;call 'C' driver
- add sp,6 ;restore stack
- ret ;return to caller
-
- endp
-
- ends
- end
-
-