source: buchla-68k/alcyon/rindex.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: 498 bytes
Line 
1.globl _rindex
2.text
3_rindex:
4~~rindex:
5~str=R13
6~c=13
7link R14,#0
8movem.l R7-R7/R12-R13,-(sp)
9~cp=R12
10*line 15
11move.l 8(R14),R13
12*line 15
13move.l R13,R12
14bra L4
15L5:L3:L4:
16*line 15
17tst.b (R12)+
18bne L5
19L2:
20*line 18
21bra L8
22L7:
23*line 19
24*line 20
25move.b -(R12),R0
26ext.w R0
27cmp.b 13(R14),R0
28bne L9
29*line 20
30move.l R12,R0
31bra L1
32*line 21
33L9:L8:
34*line 22
35cmp.l R13,R12
36bhi L7
37L6:
38*line 22
39clr.l R0
40bra L1
41L1:tst.l (sp)+
42movem.l (sp)+,R12-R13
43unlk R14
44rts
45.data
Note: See TracBrowser for help on using the repository browser.