Return to dmlad.s CVS log

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

Annotation of 43BSDTahoe/ucb/lisp/franz/68k/dmlad.s, revision 1.1

1.1     ! root        1: | /* Copyright (c) 1982, Regents, University of California */
        !             2:        .data
        !             3:        .text
        !             4:        .globl  _dmlad
        !             5: _dmlad:
        !             6:        link    a6,#-.F1
        !             7:        tstb    sp@(-132)
        !             8:        moveml  #.S1,a6@(-.F1)
        !             9:        movl    a6@(12),d7
        !            10:        movl    a6@(16),d6
        !            11: |l 8
        !            12:        movl    a6@(8),a5
        !            13: |e 8
        !            14: .L15:
        !            15: |l 12
        !            16:        pea     a6@(0xfffffff8)
        !            17:        movl    d6,sp@-
        !            18:        movl    d7,sp@-
        !            19:        movl    a5@,sp@-
        !            20:        jsr     _emul
        !            21:        addl    #16,sp
        !            22: |e 12
        !            23: |l 13
        !            24:        movl    a6@(0xfffffff8),d6
        !            25: |e 13
        !            26: |l 14
        !            27:        asll    #2,d6
        !            28: |e 14
        !            29: |l 15
        !            30:        tstl    a6@(0xfffffffc)
        !            31:        bge     .L17
        !            32: |e 15
        !            33: |l 15
        !            34:        addql   #2,d6
        !            35: |e 15
        !            36: .L17:
        !            37: |l 16
        !            38:        movl    a6@(0xfffffffc),d0
        !            39:        asll    #1,d0
        !            40:        tstl    d0
        !            41:        bge     .L18
        !            42: |e 16
        !            43: |l 16
        !            44:        addql   #1,d6
        !            45: |e 16
        !            46: .L18:
        !            47: |l 17
        !            48:        movl    a6@(0xfffffffc),d0
        !            49:        andl    #0x3fffffff,d0
        !            50:        movl    d0,a5@
        !            51: |e 17
        !            52: |l 18
        !            53:        tstl    a5@(4)
        !            54:        bne     .L19
        !            55: |e 18
        !            56:        bra     .L14
        !            57: .L19:
        !            58: |l 19
        !            59:        movl    a5@(4),a5
        !            60: |e 19
        !            61: .L13:
        !            62:        bra     .L15
        !            63: .L14:
        !            64: |l 21
        !            65:        tstl    d6
        !            66:        beq     .L20
        !            67: |e 21
        !            68: |l 24
        !            69:        cmpl    #0xffffffff,d6
        !            70:        bne     .L22
        !            71: |e 24
        !            72: |l 25
        !            73:        orl     #0xc0000000,a5@
        !            74: |e 25
        !            75:        bra     .L23
        !            76: .L22:
        !            77: |l 27
        !            78:        jsr     _newdot
        !            79:        movl    d0,a5@(4)
        !            80:        movl    a5@(4),a5
        !            81: |e 27
        !            82: |l 28
        !            83:        movl    d6,a5@
        !            84: |e 28
        !            85: |l 29
        !            86:        clrl    a5@(4)
        !            87: |e 29
        !            88: .L23:
        !            89: .L20:
        !            90: |l 32
        !            91:        movl    a6@(8),d0
        !            92: |e 32
        !            93:        bra     .L12
        !            94:        bra     .L12
        !            95: .L12:  moveml  a6@(-.F1),#0x20c0
        !            96:        unlk    a6
        !            97:        rts
        !            98: .F1 = 20
        !            99: .S1 = 0x20c0
        !           100: | end
        !           101:        .data

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