source: buchla-68k/alcyon/mdump.s@ ca867c1

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 2.7 KB
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl ___atab
5.text
6_pipc:
7~~pipc:
8~chars=8
9~length=12
10link R14,#-6
11~i=-2
12*line 47
13clr -2(R14)
14bra L5
15L6:
16*line 48
17*line 49
18move.l 8(R14),R8
19move -2(R14),R9
20add.l R9,R8
21btst #7,(R8)
22bne L7
23move -2(R14),R8
24move.l 8(R14),R9
25move.b 0(R8,R9.l),R0
26ext.w R0
27and #255,R0
28move R0,R8
29move.l #___atab,R9
30move.b 0(R8,R9.l),R0
31ext.w R0
32and #94,R0
33beq L7
34*line 49
35move -2(R14),R8
36move.l 8(R14),R9
37move.b 0(R8,R9.l),R0
38ext.w R0
39move R0,(sp)
40move.l #L8,-(sp)
41jsr _printf
42addq.l #4,sp
43*line 50
44bra L9
45L7:
46*line 51
47move.l #L10,(sp)
48jsr _printf
49L9:L4:
50*line 47
51add #1,-2(R14)
52L5:
53*line 47
54move -2(R14),R0
55cmp 12(R14),R0
56blt L6
57L3:L2:unlk R14
58rts
59.globl _mdump
60.text
61_mdump:
62~~mdump:
63~begin=8
64~end=12
65~start=16
66link R14,#-36
67~i=-4
68~ii=-8
69~j=-10
70~jj=-12
71~k=-14
72~c=-16
73~chars=-32
74*line 71
75clr.l -4(R14)
76*line 72
77move.l 16(R14),-8(R14)
78*line 73
79clr -10(R14)
80*line 75
81*line 76
82move.l 8(R14),R0
83cmp.l 12(R14),R0
84bhi L11
85*line 77
86*line 78
87bra L14
88L13:
89*line 79
90*line 80
91move.l 8(R14),R8
92move.b (R8),-16(R14)
93add.l #1,8(R14)
94*line 81
95*line 82
96*line 82
97move.l #$10,-(sp)
98move.l -4(R14),-(sp)
99jsr lrem
100addq.l #8,sp
101tst.l R0
102bne L15
103*line 83
104*line 84
105*line 84
106tst.l -4(R14)
107beq L16
108*line 85
109*line 86
110clr -10(R14)
111*line 87
112move.l #L17,(sp)
113jsr _printf
114*line 88
115move #16,(sp)
116move.l R14,-(sp)
117add.l #-32,(sp)
118jsr _pipc
119addq.l #4,sp
120*line 89
121*line 90
122L16:
123*line 91
124move.l -8(R14),(sp)
125move.l #L18,-(sp)
126jsr _printf
127addq.l #4,sp
128*line 92
129*line 93
130L15:
131*line 94
132add.l #$1,-8(R14)
133*line 95
134add.l #$1,-4(R14)
135*line 96
136*line 97
137move.b -16(R14),R0
138ext.w R0
139move R0,(sp)
140and #255,(sp)
141move.l #L19,-(sp)
142jsr _printf
143addq.l #4,sp
144*line 98
145move.l R14,R8
146move -10(R14),R9
147add.l R9,R8
148move.b -16(R14),-32(R8)
149add #1,-10(R14)
150L14:
151*line 99
152move.l 8(R14),R0
153cmp.l 12(R14),R0
154bls L13
155L12:
156*line 101
157*line 101
158move.l #$10,-(sp)
159move.l -4(R14),-(sp)
160jsr lrem
161addq.l #8,sp
162move R0,-14(R14)
163beq L20
164*line 102
165*line 103
166move #16,R0
167sub -14(R14),R0
168move R0,-14(R14)
169*line 104
170*line 105
171clr -12(R14)
172bra L23
173L24:
174*line 106
175move.l #L25,(sp)
176jsr _printf
177L22:
178*line 105
179add #1,-12(R14)
180L23:
181*line 105
182move -14(R14),R0
183muls #3,R0
184cmp -12(R14),R0
185bgt L24
186L21:
187*line 106
188*line 107
189*line 108
190L20:
191*line 109
192move.l #L26,(sp)
193jsr _printf
194*line 110
195move #16,(sp)
196move.l R14,-(sp)
197add.l #-32,(sp)
198jsr _pipc
199addq.l #4,sp
200*line 111
201move.l #L27,(sp)
202jsr _printf
203L11:unlk R14
204rts
205.data
206L8:.dc.b $25,$63,$0
207L10:.dc.b $2E,$0
208L17:.dc.b $20,$20,$0
209L18:.dc.b $A,$25,$30,$38,$6C,$58,$3A,$0
210L19:.dc.b $20,$25,$30,$32,$2E,$32,$58,$0
211L25:.dc.b $20,$0
212L26:.dc.b $20,$20,$0
213L27:.dc.b $A,$0
Note: See TracBrowser for help on using the repository browser.