                TITLE   cswitch.asm - interface for Zortech C++ (Small Model)
                DOSSEG
                .MODEL SMALL
                .CODE

                EXTRN     _addrRunningTcbSp:WORD
                EXTRN     _running:WORD

                PUBLIC    _ContextSwitch__Nv
_ContextSwitch__Nv  PROC    NEAR
          push  bp
          mov   bp, word ptr _addrRunningTcbSp
          mov   [bp], sp
          mov   bp, word ptr _running    ; sp = running->sp
          mov   sp, [bp + 4]             ; WARNING 4 depends of LINK 
          pop   bp                       ; 2 ptrs(4)
          ret   
_ContextSwitch__Nv  ENDP

                PUBLIC    _RunNext__Nv
_RunNext__Nv  PROC    NEAR
          push  bp
          mov   bp, word ptr _running    ; sp = running->sp
          mov   sp, [bp + 4]             ; WARNING 4 depends of LINK 
          pop   bp                       ; 2 ptrs(4)
          ret   
_RunNext__Nv  ENDP
                END
