source: buchla-68k/alcyon/str2lc.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: 413 bytes
RevLine 
[7bf3856]1.globl _str2lc
2.text
3_str2lc:
4~~str2lc:
5~s=R13
6link R14,#0
7movem.l R6-R7/R12-R13,-(sp)
8~c=R7
9~r=R12
10*line 13
11move.l R13,R12
12*line 15
13move.l 8(R14),R13
14*line 15
15bra L4
16L3:
17*line 16
18move.b R7,R0
19ext.w R0
20move R0,(sp)
21jsr _tolower
22move.b R0,(R13)+
23L4:
24*line 16
25move.b (R13),R7
26bne L3
27L2:
28*line 18
29move.l R12,R0
30bra L1
31L1:tst.l (sp)+
32movem.l (sp)+,R7-R7/R12-R13
33unlk R14
34rts
35.data
Note: See TracBrowser for help on using the repository browser.