Return to rswitch.s CVS log

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

Annotation of researchv10dc/cmd/icon/setup/pc_pcix/rswitch.s, revision 1.1.1.1

1.1       root        1: .globl _reflag
                      2: .globl _coswitch
                      3: .globl _boundary
                      4: .globl _sp
                      5: .globl __brkend
                      6: .globl csv
                      7: .globl cret
                      8: 
                      9:                        | coswitch(oldstate, newstate, first)
                     10:                        | int *oldstate, *newstate;
                     11:                        | int first;
                     12: _coswitch:
                     13:                        | save machine state on stack
                     14:        push bp
                     15:        mov bp,sp
                     16:        push di
                     17:        push si
                     18:        push _boundary
                     19:        mov bx,*4(bp)
                     20:        mov (bx),sp
                     21:        mov bx,*6(bp)
                     22:        mov ax,*8(bp)
                     23:        or ax,ax
                     24:        jnz not_first
                     25:                        | if (first == 0) set up new stack
                     26:        lea di,_sp
                     27:        mov _boundary,di
                     28:        mov ax,(bx)
                     29:        mov sp,ax
                     30:        sub ax,ax
                     31:        push ax
                     32:        push ax
                     33:        call _interp
                     34:        pop ax          | clear args from stack
                     35:        pop ax
                     36:        mov ax,#badret
                     37:        call _syserr
                     38: 
                     39: not_first:
                     40:        mov ax,(bx)     | switch to new stack
                     41:        mov sp,ax
                     42: 
                     43:        pop _boundary   | and restore machine state from stack
                     44:        pop si
                     45:        pop di
                     46:        pop bp
                     47:        ret
                     48: 
                     49: .data
                     50: badret:
                     51:        .asciz "interp() returned in coswitch"
                     52: 
                     53:        .text
                     54:        .globl _xruner
                     55:        .globl _runerr
                     56:        .globl _reflag
                     57:        .globl _sp
                     58:        .globl _abort
                     59: 
                     60:                        | runerr turns off stack probes and calls xrunerr
                     61:                        |  without this, calls to runerr might recurse
                     62:                        |  infinitely 
                     63: _runerr:
                     64:        mov _reflag,#1          | disable stack probes
                     65:        jmp _xruner
                     66: 
                     67: _reflag:       .word *0        | setting reflag disables stack probes
                     68: _boundary:     .word __brkend  | address of var representing limit on stack
                     69:                                |  growth
                     70: 
                     71:        .text
                     72: 
                     73:                | csv - save registers and set up procedure frame
                     74:                |  verify that stack space is sufficient for interrupt
                     75:                |  handlers and routine arithmetic      
                     76: csv:
                     77: ~csv=.
                     78:        pop     bx              | bx gets return address
                     79:        push    bp
                     80:        mov     bp,sp
                     81:        push    di
                     82:        push    si
                     83: 
                     84:        sub sp,ax               
                     85:        cmp _reflag,#1
                     86:        je csv_ok               | stack probes disabled
                     87:        mov ax,sp
                     88:        mov di,_boundary
                     89:        sub ax,(di)
                     90:        sub ax,#128
                     91:        ja csv_ok
                     92:        
                     93:        mov ax,#0
                     94:        push ax
                     95:        mov ax,#302
                     96:        push ax
                     97:        call _runerr
                     98:        call _abort             | runerr shouldn't return
                     99: 
                    100: csv_ok:
                    101:        jmp @bx
                    102: 
                    103:                        | cret - restore saved registers and remove 
                    104:                        |  procedure frame
                    105: cret:
                    106: ~cret=.
                    107:        lea     sp,*-4(bp)
                    108:        pop     si
                    109:        pop     di
                    110:        pop     bp
                    111:        ret
                    112: 
                    113: 
                    114:        .data
                    115: 

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