source: buchla-68k/alcyon/strpbrk.s@ 33b5477

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 624 bytes
Line 
1.globl _strpbrk
2.text
3_strpbrk:
4~~strpbrk:
5~string=R13
6~brkset=R12
7link R14,#0
8movem.l R7-R7/R11-R13,-(sp)
9~p=R11
10*line 17
11move.l 8(R14),R13
12*line 17
13move.l 12(R14),R12
14*line 17
15L4:
16*line 18
17*line 19
18move.l R12,R11
19bra L7
20L8:L6:
21*line 19
22add.l #1,R11
23L7:
24*line 19
25tst.b (R11)
26beq L10000
27move.b (R11),R0
28ext.w R0
29cmp.b (R13),R0
30bne L8
31L10000:L5:
32*line 20
33*line 21
34*line 22
35*line 23
36tst.b (R11)
37beq L9
38*line 23
39move.l R13,R0
40bra L1
41L9:L3:
42*line 24
43*line 25
44*line 26
45tst.b (R13)+
46bne L4
47L2:
48*line 29
49clr.l R0
50bra L1
51L1:tst.l (sp)+
52movem.l (sp)+,R11-R13
53unlk R14
54rts
55.data
Note: See TracBrowser for help on using the repository browser.