source: buchla-68k/alcyon/str2uc.s@ 4810254

Last change on this file since 4810254 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
Line 
1.globl _str2uc
2.text
3_str2uc:
4~~str2uc:
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 _toupper
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.