source: buchla-68k/alcyon/strcspn.s@ 6099cac

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

Added Alcyon C reference output.

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