Return to qfuncl.s CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / lisp

Annotation of 3BSD/cmd/lisp/qfuncl.s, revision 1.1

1.1     ! root        1: #  opus 30 compiler call to ??? interface routines
        !             2:        .globl  __qf0
        !             3: __qf0:
        !             4:        subl3   $4,r6,r7
        !             5:        jbr     __qfuncl
        !             6: 
        !             7:        .globl  __qf1
        !             8: __qf1:
        !             9:        subl3   $8,r6,r7
        !            10:        jbr     __qfuncl
        !            11: 
        !            12:        .globl  __qf2
        !            13: __qf2:
        !            14:        subl3   $12,r6,r7
        !            15:        jbr     __qfuncl
        !            16: 
        !            17:        .globl  __qf3
        !            18: __qf3:
        !            19:        subl3   $16,r6,r7
        !            20:        jbr     __qfuncl
        !            21: 
        !            22:        .globl  __qf4
        !            23: __qf4:
        !            24:        subl3   $20,r6,r7
        !            25:        jbr     __qfuncl
        !            26: 
        !            27:        .globl  __qfuncl
        !            28: __qfuncl:                              # quick function call
        !            29:        cmpl    r6,_nplim               # make sure stack ok
        !            30:        blss    on1
        !            31:        calls   $0,_namerr
        !            32: on1:   movl    (r7),r0                 # bring in addr of atom
        !            33:        pushl   r0                      # stack addr of atom of fcn to call
        !            34:        movl    8(r0),r0                # bring in fcn binding addr
        !            35:        jleq    nonexf                  # jump if fcn non existant
        !            36:        ashl    $-9,r0,r1               # see if bcd
        !            37:        cmpb    $5,_typetable+1[r1]     # we are calling
        !            38:        jeql    gotbcd
        !            39: hackit:
        !            40:        calls   $1,_Lfuncal             # call lisp stuff
        !            41:        movl    r7,r6                   # restore np to top
        !            42:        rsb                             # return to callee
        !            43: gotbcd:
        !            44:        addl2   $4,r7                   # inc lbot by one nament
        !            45:        calls   $1,*(r0)                # call code
        !            46:        movab   -4(r7),r6               # restore np to top
        !            47:        rsb                             # return
        !            48: 
        !            49: nonexf: # non existant function, call c function to take care of it,
        !            50:        # we could process it here but wish to minimize assembly language
        !            51:        # code.
        !            52:        # we should never return from this call
        !            53:        # the addr of the atom is already stacked
        !            54: 
        !            55:        calls   $1,_Undeff              # call handler
        !            56:        clrl    r0                      # return nil to compiled code
        !            57:        rsb                             # if ever should return here
        !            58: 
        !            59:        .globl  __erthrow               # errmessage for uncaught throws
        !            60: __erthrow: 
        !            61:        .byte   'U,'n,'c,'a,'u,'g,'h,'t,' ,'t,'h,'r,'o,'w
        !            62:        .byte   ' ,'f,'r,'o,'m,' ,'c,'o,'m,'p,'i,'l,'e,'d
        !            63:        .byte   ' ,'c,'o,'d,'e,0
        !            64: 
        !            65:        .globl _tynames
        !            66: _tynames:
        !            67:        .long   0                               # nothing here
        !            68:        .long   _lispsys+20*4   # str_name
        !            69:        .long   _lispsys+21*4   # atom_name
        !            70:        .long   _lispsys+19*4   # int_name
        !            71:        .long   _lispsys+23*4   # dtpr_name
        !            72:        .long   _lispsys+22*4   # doub_name
        !            73:        .long   _lispsys+58*4   # funct_name
        !            74:        .long   _lispsys+83*4   # port_name
        !            75:        .long   _lispsys+47*4   # array_name
        !            76:        .long   0                               # nothing here
        !            77:        .long   _lispsys+50*4   # sdot_name
        !            78:        .long   _lispsys+53*4   # val_nam
        !            79: 
        !            80: 
        !            81: 
        !            82: 
        !            83: 
        !            84: 

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