source: buchla-68k/alcyon/micons.s@ 58ff1a9

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 1.0 KB
Line 
1.globl _micons
2.text
3_micons:
4~~micons:
5~wi=8
6link R14,#-4
7*line 40
8move 8(R14),R0
9asl #8,R0
10and #-256,R0
11move 8(R14),R1
12asr #8,R1
13and #255,R1
14or R1,R0
15bra L1
16L1:unlk R14
17rts
18.globl _miconi
19.text
20_miconi:
21~~miconi:
22~wi=8
23link R14,#-4
24*line 53
25*line 54
26bra L3
27*line 55
28move 8(R14),R0
29move #24,R1
30asl R1,R0
31clr R0
32move 8(R14),R1
33asl #8,R1
34clr R1
35or R1,R0
36move 8(R14),R1
37asr #8,R1
38and #-256,R1
39or R1,R0
40move 8(R14),R1
41move #24,R2
42asr R2,R1
43and #255,R1
44or R1,R0
45bra L2
46*line 56
47bra L4
48L3:
49*line 57
50move 8(R14),R0
51asl #8,R0
52and #-256,R0
53move 8(R14),R1
54asr #8,R1
55and #255,R1
56or R1,R0
57bra L2
58L4:L2:unlk R14
59rts
60.globl _miconl
61.text
62_miconl:
63~~miconl:
64~wi=8
65link R14,#-4
66*line 70
67*line 71
68move.l 8(R14),R0
69move.l #$18,R1
70asl.l R1,R0
71and.l #$ff000000,R0
72move.l 8(R14),R1
73asl.l #$8,R1
74and.l #$ff0000,R1
75or.l R1,R0
76move.l 8(R14),R1
77asr.l #$8,R1
78and.l #$ff00,R1
79or.l R1,R0
80move.l 8(R14),R1
81move.l #$18,R2
82asr.l R2,R1
83and.l #$ff,R1
84or.l R1,R0
85bra L5
86L5:unlk R14
87rts
88.data
Note: See TracBrowser for help on using the repository browser.