Return to csv.s CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Annotation of 43BSD/contrib/icon/rt/csv.s, revision 1.1.1.1

1.1       root        1: #include "../h/config.h"
                      2: #ifdef VAX
                      3: /* No csv type stuff on the VAX; the procedure call mechanism
                      4:  *  handles it all.
                      5:  */
                      6: Global(_csv)   # prevent null object module
                      7: #endif VAX
                      8: 
                      9: #ifdef PORT
                     10: Global(_csv)   # prevent null object module
                     11: #endif PORT
                     12: 
                     13: #ifdef PDP11
                     14: / csv,cret - modified C calling sequence to save registers,
                     15: / restore on return, and clear Icon/C boundary on return
                     16: / to Icon code.  This sequence performs the same function as the
                     17: / sequence in the C library, except for setting and clearing the
                     18: / boundary.  When returning from C to Icon, arguments are popped.
                     19: Global(_boundary)
                     20:  .globl        csv, cret
                     21: csv:
                     22:        tst     _boundary       / is call being made from Icon to C?
                     23:        bne     1f              /   no, branch
                     24:        mov     sp,_boundary    / yes, set boundary
                     25: 1:
                     26:        mov     r5,r0           / make new procedure frame
                     27:        mov     sp,r5
                     28:        mov     r4,-(sp)
                     29:        mov     r3,-(sp)
                     30:        mov     r2,-(sp)
                     31:        jsr     pc,(r0)         / enter procedure
                     32: 
                     33: cret:
                     34:        cmp     r5,_boundary    / is return being made from C to Icon?
                     35:        bne     1f              /   no, branch
                     36:        clr     _boundary       / yes, clear boundary address
                     37:        mov     r5,sp           / restore old procedure frame
                     38:        mov     -(r5),r4
                     39:        mov     -(r5),r3
                     40:        mov     -(r5),r2
                     41:        mov     (sp)+,r5
                     42:        mov     (sp)+,r1        / pop return pc
                     43:        mov     (sp)+,r0        / pop nargs
                     44:        asl     r0
                     45:        asl     r0
                     46:        add     r0,sp           / pop all arguments
                     47:        jmp     (r1)            / return to Icon procedure
                     48: 1:
                     49:        mov     r5,sp           / restore old procedure frame
                     50:        mov     -(r5),r4
                     51:        mov     -(r5),r3
                     52:        mov     -(r5),r2
                     53:        mov     (sp)+,r5
                     54:        rts     pc              / return to C procedure
                     55: #endif PDP11

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