![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dmlad.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / 68k|
Return to dmlad.s CVS log | Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / 68k |
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.