source: buchla-68k/alcyon/strrtrm.s@ 9519422

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

Added Alcyon C reference output.

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