source: buchla-68k/alcyon/strrevi.s@ ca867c1

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 690 bytes
Line 
1.globl _strrevi
2.text
3_strrevi:
4~~strrevi:
5~s=8
6link R14,#0
7movem.l R5-R7/R12-R13,-(sp)
8~p1=R13
9~p2=R12
10~i=R7
11~c=R6
12*line 22
13move.l 8(R14),R13
14*line 23
15move.l 8(R14),R12
16*line 24
17clr.l R7
18*line 26
19bra L4
20L3:
21*line 27
22*line 28
23add.l #$1,R7
24*line 29
25add.l #1,R12
26L4:
27*line 30
28tst.b (R12)
29bne L3
30L2:
31*line 32
32sub.l #1,R12
33*line 33
34asr.l #$1,R7
35*line 35
36bra L7
37L6:
38*line 36
39*line 37
40move.b (R12),R6
41*line 38
42move.l R12,R8
43move.b (R13),(R8)
44sub.l #1,R12
45*line 39
46move.b R6,(R13)+
47L7:
48*line 40
49move.l R7,R0
50sub.l #$1,R7
51tst.l R0
52bne L6
53L5:
54*line 42
55move.l 8(R14),R0
56bra L1
57L1:tst.l (sp)+
58movem.l (sp)+,R6-R7/R12-R13
59unlk R14
60rts
61.data
Note: See TracBrowser for help on using the repository browser.