4.3BSD - /usr/src/ucb/lisp/franz/68k/dmlad.s

   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

Defined functions