source: buchla-68k/alcyon/ucslice.s

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 7.0 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _ac_code
38.globl _scname
39.globl _se_chg
40.globl _curscor
41.globl _cursect
42.globl _se1_cnt
43.globl _se2_cnt
44.globl _se3_cnt
45.globl _spool
46.globl _pspool
47.globl _spcount
48.globl _frags
49.globl _t_bak
50.globl _t_cur
51.globl _t_ctr
52.globl _t_fwd
53.globl _size1
54.globl _size2
55.globl _size3
56.globl _scores
57.globl _scp
58.globl _seclist
59.globl _hplist
60.globl _p_bak
61.globl _p_cur
62.globl _p_ctr
63.globl _p_fwd
64.globl _saddr
65.globl _ndisp
66.globl _sd
67.globl _soffset
68.globl _gtctab
69.globl _lintab1
70.globl _lintab2
71.globl _nbmasks
72.globl _nttab1
73.globl _nttab2
74.globl _pxtbl
75.globl _epxtbl
76.globl _gdfsep
77.globl _gdstbc
78.globl _ucslice
79.text
80_ucslice:
81~~ucslice:
82link R14,#-24
83movem.l R2-R7/R11-R13,-(sp)
84~pxptr=R13
85~slptr=R12
86~gdsep=R11
87~lc=R7
88~i=R6
89~ncolor=R5
90~mask1=R4
91~mask2=R3
92~ncptr=-4
93~nctabp=-8
94~gdstp=-12
95~gdprv=-16
96~gdnxt=-20
97~lintab=-24
98*line 75
99move.l #$80,R7
100*line 76
101move _soffset,R8
102add.l R8,R8
103add.l #_nbmasks,R8
104move (R8),R4
105*line 77
106clr R0
107move R4,R0
108not R0
109move R0,R3
110*line 81
111move.l #_gdstbc,-12(R14)
112*line 82
113tst _sd
114beq L10000
115move.l #_nttab2,R0
116bra L10002
117L10000:move.l #_nttab1,R0
118L10002:move.l R0,-8(R14)
119*line 83
120move.l #_gtctab,-4(R14)
121*line 85
122cmp.b #4,_ac_code
123bne L10003
124move.l #_lintab1,R0
125bra L10005
126L10003:move.l #_lintab2,R0
127L10005:move.l R0,-24(R14)
128*line 90
129clr R6
130bra L4
131L5:
132*line 91
133*line 92
134move R4,R5
135move.l -4(R14),R8
136move (R8),R0
137and R0,R5
138add.l #2,-4(R14)
139*line 93
140move.l -12(R14),-16(R14)
141*line 94
142move.l -12(R14),R8
143move.l (R8),R11
144add.l #4,-12(R14)
145*line 95
146*line 96
147*line 96
148move.l R11,R0
149beq L6
150*line 97
151*line 98
152L9:
153*line 99
154*line 100
155*line 100
156cmp #2,_ndisp
157bne L10
158*line 101
159*line 102
160*line 103
161*line 104
162*line 105
163move.l -24(R14),R8
164move 4(R11),R9
165add.l R9,R9
166move 0(R8,R9.l),R0
167ext.l R0
168asl.l #$7,R0
169asl.l #1,R0
170move.l R0,R12
171add.l _saddr,R12
172add.l #$80,R12
173*line 106
174*line 107
175move 6(R11),R0
176asl #3,R0
177ext.l R0
178move.l R0,R13
179add.l #_pxtbl,R13
180*line 108
181*line 109
182*line 110
183*line 111
184clr R0
185move R3,R0
186and (R12),R0
187clr R1
188move R5,R1
189and (R13)+,R1
190or R1,R0
191move R0,(R12)
192*line 112
193move.l R7,R0
194asl.l #1,R0
195add.l R0,R12
196*line 113
197*line 114
198clr R0
199move R3,R0
200and (R12),R0
201clr R1
202move R5,R1
203and (R13)+,R1
204or R1,R0
205move R0,(R12)
206*line 115
207move.l R7,R0
208asl.l #1,R0
209add.l R0,R12
210*line 116
211*line 117
212clr R0
213move R3,R0
214and (R12),R0
215clr R1
216move R5,R1
217and (R13)+,R1
218or R1,R0
219move R0,(R12)
220*line 118
221*line 119
222*line 120
223L10:
224*line 121
225move.l (R11),-20(R14)
226*line 122
227*line 123
228*line 124
229*line 125
230*line 125
231move 6(R11),R8
232add.l R8,R8
233add.l -8(R14),R8
234move (R8),6(R11)
235bne L11
236*line 126
237*line 127
238*line 128
239*line 129
240move.l -16(R14),R8
241move.l -20(R14),(R8)
242*line 130
243move.l _gdfsep,(R11)
244*line 131
245move.l R11,_gdfsep
246*line 132
247*line 133
248bra L12
249L11:
250*line 134
251move.l R11,-16(R14)
252L12:
253*line 135
254*line 136
255move.l -20(R14),R11
256*line 137
257L8:
258*line 138
259move.l R11,R0
260bne L9
261L7:
262*line 139
263L6:L3:
264*line 90
265add #1,R6
266L4:
267*line 90
268cmp #12,R6
269blo L5
270L2:bra L15
271L16:
272*line 144
273*line 145
274*line 146
275move.l -12(R14),-16(R14)
276*line 147
277move.l -12(R14),R8
278move.l (R8),R11
279add.l #4,-12(R14)
280*line 148
281*line 149
282*line 149
283move.l R11,R0
284beq L17
285*line 150
286*line 151
287L20:
288*line 152
289*line 153
290*line 153
291cmp #2,_ndisp
292bne L21
293*line 154
294*line 155
295*line 156
296*line 157
297move.l _saddr,R12
298add.l #$d480,R12
299*line 158
300move 6(R11),R0
301asl #5,R0
302ext.l R0
303move.l R0,R13
304add.l #_epxtbl,R13
305*line 159
306*line 160
307*line 161
308*line 162
309move R4,R5
310and 4(R11),R5
311*line 163
312*line 164
313*line 165
314*line 166
315*line 167
316tst (R13)+
317beq L22
318*line 167
319clr R0
320move R5,R0
321clr R1
322move R3,R1
323and (R12),R1
324or R1,R0
325move R0,(R12)
326*line 168
327L22:
328*line 169
329move.l R7,R0
330asl.l #1,R0
331add.l R0,R12
332*line 170
333*line 171
334*line 172
335tst (R13)+
336beq L23
337*line 172
338clr R0
339move R5,R0
340clr R1
341move R3,R1
342and (R12),R1
343or R1,R0
344move R0,(R12)
345*line 173
346L23:
347*line 174
348move.l R7,R0
349asl.l #1,R0
350add.l R0,R12
351*line 175
352*line 176
353*line 177
354tst (R13)+
355beq L24
356*line 177
357clr R0
358move R5,R0
359clr R1
360move R3,R1
361and (R12),R1
362or R1,R0
363move R0,(R12)
364*line 178
365L24:
366*line 179
367move.l R7,R0
368asl.l #1,R0
369add.l R0,R12
370*line 180
371*line 181
372*line 182
373tst (R13)+
374beq L25
375*line 182
376clr R0
377move R5,R0
378clr R1
379move R3,R1
380and (R12),R1
381or R1,R0
382move R0,(R12)
383*line 183
384L25:
385*line 184
386move.l R7,R0
387asl.l #1,R0
388add.l R0,R12
389*line 185
390*line 186
391*line 187
392tst (R13)+
393beq L26
394*line 187
395clr R0
396move R5,R0
397clr R1
398move R3,R1
399and (R12),R1
400or R1,R0
401move R0,(R12)
402*line 188
403L26:
404*line 189
405move.l R7,R0
406asl.l #1,R0
407add.l R0,R12
408*line 190
409*line 191
410*line 192
411tst (R13)+
412beq L27
413*line 192
414clr R0
415move R5,R0
416clr R1
417move R3,R1
418and (R12),R1
419or R1,R0
420move R0,(R12)
421*line 193
422L27:
423*line 194
424move.l R7,R0
425asl.l #1,R0
426add.l R0,R12
427*line 195
428*line 196
429*line 197
430*line 198
431tst (R13)+
432beq L28
433*line 198
434clr R0
435move R5,R0
436clr R1
437move R3,R1
438and (R12),R1
439or R1,R0
440move R0,(R12)
441*line 199
442L28:
443*line 200
444move.l R7,R0
445asl.l #1,R0
446add.l R0,R12
447*line 201
448*line 202
449*line 203
450tst (R13)+
451beq L29
452*line 203
453clr R0
454move R5,R0
455clr R1
456move R3,R1
457and (R12),R1
458or R1,R0
459move R0,(R12)
460*line 204
461L29:
462*line 205
463move.l R7,R0
464asl.l #1,R0
465add.l R0,R12
466*line 206
467*line 207
468*line 208
469tst (R13)+
470beq L30
471*line 208
472clr R0
473move R5,R0
474clr R1
475move R3,R1
476and (R12),R1
477or R1,R0
478move R0,(R12)
479*line 209
480L30:
481*line 210
482move.l R7,R0
483asl.l #1,R0
484add.l R0,R12
485*line 211
486*line 212
487*line 213
488tst (R13)+
489beq L31
490*line 213
491clr R0
492move R5,R0
493clr R1
494move R3,R1
495and (R12),R1
496or R1,R0
497move R0,(R12)
498*line 214
499L31:
500*line 215
501move.l R7,R0
502asl.l #1,R0
503add.l R0,R12
504*line 216
505*line 217
506*line 218
507tst (R13)+
508beq L32
509*line 218
510clr R0
511move R5,R0
512clr R1
513move R3,R1
514and (R12),R1
515or R1,R0
516move R0,(R12)
517*line 219
518L32:
519*line 220
520move.l R7,R0
521asl.l #1,R0
522add.l R0,R12
523*line 221
524*line 222
525*line 223
526tst (R13)
527beq L33
528*line 223
529clr R0
530move R5,R0
531clr R1
532move R3,R1
533and (R12),R1
534or R1,R0
535move R0,(R12)
536L33:
537*line 224
538*line 225
539L21:
540*line 226
541move.l (R11),-20(R14)
542*line 227
543move.l -16(R14),R8
544move.l -20(R14),(R8)
545*line 228
546move.l _gdfsep,(R11)
547*line 229
548move.l R11,_gdfsep
549*line 230
550move.l -20(R14),R11
551*line 231
552L19:
553*line 232
554move.l R11,R0
555bne L20
556L18:
557*line 233
558L17:L14:
559*line 144
560add #1,R6
561L15:
562*line 144
563cmp #17,R6
564blo L16
565L13:L1:tst.l (sp)+
566movem.l (sp)+,R3-R7/R11-R13
567unlk R14
568rts
569.data
Note: See TracBrowser for help on using the repository browser.