source: buchla-68k/alcyon/index.s@ 0170798

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 443 bytes
Line 
1.globl _index
2.text
3_index:
4~~index:
5~str=R13
6~c=R7
7link R14,#0
8movem.l R6-R7/R13-R13,-(sp)
9*line 13
10move.l 8(R14),R13
11*line 13
12move.b 13(R14),R7
13*line 13
14bra L4
15L3:
16*line 14
17*line 15
18*line 16
19cmp.b (R13),R7
20bne L5
21*line 16
22move.l R13,R0
23bra L1
24*line 17
25L5:
26*line 18
27add.l #1,R13
28L4:
29*line 19
30tst.b (R13)
31bne L3
32L2:
33*line 21
34clr.l R0
35bra L1
36L1:tst.l (sp)+
37movem.l (sp)+,R7-R7/R13-R13
38unlk R14
39rts
40.data
Note: See TracBrowser for help on using the repository browser.