source: buchla-68k/alcyon/toupper.s@ 6099cac

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 491 bytes
Line 
1.globl ___atab
2.globl _toupper
3.text
4_toupper:
5~~toupper:
6~c=8
7link R14,#-6
8~x=-2
9*line 22
10*line 22
11move 8(R14),R0
12and #-128,R0
13bne L2
14*line 23
15*line 24
16*line 25
17move.l #___atab,R8
18move 8(R14),R9
19add.l R9,R8
20btst #4,(R8)
21beq L3
22*line 25
23move 8(R14),R0
24add #-32,R0
25move R0,-2(R14)
26*line 26
27bra L4
28L3:
29*line 27
30move 8(R14),-2(R14)
31L4:bra L5
32L2:
33*line 28
34*line 29
35*line 30
36move 8(R14),-2(R14)
37L5:
38*line 33
39move -2(R14),R0
40bra L1
41L1:unlk R14
42rts
43.data
Note: See TracBrowser for help on using the repository browser.