source: buchla-68k/alcyon/mangle.s@ 9519422

Last change on this file since 9519422 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 672 bytes
RevLine 
[7bf3856]1.globl _mangle
2.text
3_mangle:
4~~mangle:
5~bitmap=R13
6~nb=R7
7~ib=R6
8link R14,#0
9movem.l R2-R7/R13-R13,-(sp)
10~bm=R5
11~rv=R4
12~bn=R3
13*line 32
14move.l 8(R14),R13
15*line 32
16move 12(R14),R7
17*line 32
18move.l 14(R14),R6
19*line 32
20move.l #$1,R5
21*line 33
22clr.l R4
23*line 35
24clr R3
25bra L4
26L5:
27*line 36
28*line 37
29*line 38
30move.l R6,R0
31and.l R5,R0
32beq L6
33*line 38
34move.l R13,R8
35move R3,R9
36add.l R9,R9
37add.l R9,R9
38add.l R9,R8
39move.l (R8),R0
40or.l R0,R4
41*line 39
42L6:
43*line 40
44asl.l #$1,R5
45L3:
46*line 35
47add #1,R3
48L4:
49*line 35
50cmp R7,R3
51blt L5
52L2:
53*line 43
54move.l R4,R0
55bra L1
56L1:tst.l (sp)+
57movem.l (sp)+,R3-R7/R13-R13
58unlk R14
59rts
60.data
Note: See TracBrowser for help on using the repository browser.