;Copyright 2000 - Mark McDonald All rights reserved
; MOUSEWINDOW routine for PowerBASIC
; DECLARE: SUB MOUSEWINDOW(BYVAL ingteger, BYVAL integer, BYVAL integer, BYVAL integer)
; DESC:    Set Mouse horizontal and vertical limits.
; EXAMP:   MOUSEWINDOW Row, Col, Rows, Cols

extrn   MCOLS : Far
extrn   MROWS : Far

MCODE Segment Byte
        Assume  CS: MCODE

        Public  MOUSEWINDOW

MOUSEWINDOW PROC FAR

ARG     Cols:   WORD, Rows: Word, Col: WORD, Row: WORD = Retbytes
        push    BP                      ;
        mov     BP,SP                   ;
        push    DS                      ;

        push    Word Ptr Row            ;
        push    Word Ptr Rows           ;
        call    MROWS                   ;

        push    Word Ptr Col            ;
        push    Word Ptr Cols           ;
        call    MCOLS                   ;

        pop     DS                      ;
        pop     BP                      ;
        retf    Retbytes                ;

MOUSEWINDOW EndP
MCODE EndS
        End