Return to emul.s CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / 68k

Annotation of 42BSD/ucb/lisp/franz/68k/emul.s, revision 1.1.1.1

1.1       root        1: | /* Copyright (c) 1982, Regents, University of California */
                      2:        .data
                      3:        .text
                      4:        .globl  _emul
                      5: _emul:
                      6:        link    a6,#-_F1
                      7:        moveml  #_S1,a6@(-_F1)
                      8:        movl    a6@(20),a5
                      9: | A1 = 24
                     10:        clrb    a6@(-9)
                     11:        clrb    a6@(-13)
                     12:        clrl    d7
                     13:        tstl    a6@(8)
                     14:        bge     .L13
                     15:        eorb    #1,a6@(-9)
                     16:        negl    a6@(8)
                     17: .L13:
                     18:        tstl    a6@(12)
                     19:        bge     .L14
                     20:        eorb    #1,a6@(-9)
                     21:        negl    a6@(12)
                     22: .L14:
                     23:        movw    a6@(10),d1
                     24:        mulu    a6@(14),d1
                     25:        movl    d1,a6@(-4)
                     26:        movw    a6@(8),d1
                     27:        mulu    a6@(12),d1
                     28:        movl    d1,a6@(-8)
                     29:        movw    a6@(8),d1
                     30:        mulu    a6@(14),d1
                     31:        addl    d1,a6@(-6)
                     32:        bcc     .L16
                     33:        addqw   #1,a6@(-8)
                     34: .L16:
                     35:        movw    a6@(10),d1
                     36:        mulu    a6@(12),d1
                     37:        addl    d1,a6@(-6)
                     38:        bcc     .L17
                     39:        addqw   #1,a6@(-8)
                     40: .L17:
                     41:        tstb    a6@(-9)
                     42:        beq     .L18
                     43:        negl    a6@(-4)
                     44:        negxl   a6@(-8)
                     45: .L18:
                     46:        tstl    a6@(16)
                     47:        bge     .L20
                     48:        moveq   #-1,d7
                     49: .L20:
                     50:        movl    a6@(-8),d1
                     51:        movl    a6@(16),d0
                     52:        addl    a6@(-4),d0
                     53:        addxl   d1,d7
                     54:        movl    d0,a5@(4)
                     55:        movl    d7,a5@
                     56: .L12:  moveml  a6@(-_F1),#8320
                     57:        unlk    a6
                     58:        rts
                     59: _F1 = 24
                     60: _S1 = 8320
                     61: | M1 = 0
                     62:        .globl  _vlsub
                     63: _vlsub:
                     64:        movl    sp@(4),a0
                     65:        addql   #8,a0
                     66:        movl    sp@(8),a1
                     67:        addql   #8,a1   | this should clear the carry bit.
                     68:        subxl   a1@-,a0@-
                     69:        subxl   a1@-,a0@-
                     70:        rts

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