source: buchla-68k/alcyon/strltrm.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: 608 bytes
RevLine 
[7bf3856]1.globl _strltrm
2.text
3_strltrm:
4~~strltrm:
5~s=R13
6link R14,#0
7movem.l R6-R7/R11-R13,-(sp)
8~c=R7
9~lp=R12
10~rp=R11
11*line 19
12move.l 8(R14),R13
13*line 19
14*line 20
15cmp.b #32,(R13)
16beq L2
17*line 20
18move.l R13,R0
19bra L1
20*line 21
21L2:
22*line 22
23move.l R13,R12
24*line 23
25move.l R13,R11
26*line 25
27bra L5
28L4:
29*line 26
30add.l #1,R11
31L5:
32*line 26
33cmp.b #32,(R11)
34beq L4
35L3:
36*line 28
37bra L8
38L7:
39*line 29
40move.b R7,(R12)+
41L8:
42*line 29
43move.b (R11)+,R7
44bne L7
45L6:
46*line 31
47clr.b (R12)
48*line 33
49move.l R13,R0
50bra L1
51L1:tst.l (sp)+
52movem.l (sp)+,R7-R7/R11-R13
53unlk R14
54rts
55.data
Note: See TracBrowser for help on using the repository browser.