;------------------------------------------------------------------------
;     Split Screen fr Turbo Pascal 4.0/5.x                   release 1.0
;     Copyright (c) Ingo Eickmann, 1989                          06/14/89
;------------------------------------------------------------------------
code  segment word public 'CODE'      ; MS-C: Segmentname code in _TEXT „ndern
      assume cs:code                  ; MS-C: Segmentname code in _TEXT „ndern
if1
      include split.mac
endif

public _Split_Screen
_Split_Screen proc far

   Lines equ [bp+6]                   ; die Parameter liegen in umgekehrter
   Start equ [bp+8]                   ; Reihenfolge auf dem Stack

      push  bp
      mov   bp,sp
      push  es
      Split_Screen Start,Lines        ; Einbindung des Macros
      pop   es
      pop   bp
      ret   4                         ; 2 Integer-Parameter belegten 4 Bytes
                                      ; zus„tzlich auf dem Stack
_Split_Screen endp

code ends                             ; MS-C: Segmentname code in _TEXT „ndern
end
