Listing 6

             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