Return to rswitch.s CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / setup / pc_xenix_smm

Annotation of researchv10dc/cmd/icon/setup/pc_xenix_smm/rswitch.s, revision 1.1

1.1     ! root        1: 
        !             2: ;      Static Name Aliases
        !             3: ;
        !             4: 
        !             5: ; code copied from assembler output generated by cc -- as doesn't like it
        !             6: ;
        !             7: ; DGROUP       GROUP   CONST,  _BSS,   _DATA
        !             8: ;      ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
        !             9: 
        !            10: ASSUME CS: _TEXT, DS: _DATA, SS: _DATA, ES: _DATA
        !            11: 
        !            12: PUBLIC _coswitch
        !            13: EXTRN  _syserr:NEAR
        !            14: EXTRN   _interp:NEAR
        !            15: 
        !            16: _DATA  SEGMENT WORD PUBLIC     'DATA'
        !            17: $1     DB      'interp() returned in coswitch', 00H
        !            18:        EVEN
        !            19: _DATA  ENDS
        !            20: 
        !            21: _TEXT  SEGMENT WORD PUBLIC     'CODE'
        !            22: 
        !            23:        PUBLIC  _coswitch
        !            24: _coswitch      PROC NEAR
        !            25:                        ; coswitch(old_cs, new_cs, first)
        !            26:                        ; int *old_cs, *new_cs;
        !            27:                        ; int first;
        !            28:        push bp
        !            29:        mov bp,sp
        !            30:        push di
        !            31:        push si
        !            32: 
        !            33:        push bp
        !            34:        mov bx, 4[bp]
        !            35:        mov [bx], sp
        !            36:        mov bx, 6[bp]
        !            37: 
        !            38:                        ; if (first == 0) set up a new stack
        !            39:        mov ax, 8[bp]
        !            40:        or ax,ax
        !            41:        jnz not_first
        !            42: 
        !            43:        mov sp, [bx]
        !            44:        sub ax,ax
        !            45:        push ax
        !            46:        push ax
        !            47:        call _interp
        !            48:        pop ax          ; clear args from stack
        !            49:        pop ax
        !            50:        mov ax, offset $1
        !            51:        push ax
        !            52: ;      push "interp() returned in costart"
        !            53:        call _syserr
        !            54: 
        !            55: not_first:
        !            56:        mov sp, [bx]
        !            57:        pop bp
        !            58: 
        !            59:        pop si
        !            60:        pop di
        !            61:        pop bp
        !            62:        ret
        !            63: _coswitch      ENDP
        !            64: 
        !            65: _TEXT  ENDS
        !            66: END
        !            67: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.