source: buchla-68k/alcyon/etmcfn.s@ 4b63bf3

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 8.1 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _io_time
7.globl _io_lcd
8.globl _io_ser
9.globl _io_midi
10.globl _io_disk
11.globl _io_tone
12.globl _io_leds
13.globl _io_kbrd
14.globl _lcd_a0
15.globl _lcd_a1
16.globl _io_vreg
17.globl _io_vraw
18.globl _io_vram
19.globl _io_fpu
20.globl _v_regs
21.globl _v_odtab
22.globl _v_actab
23.globl _v_ct0
24.globl _v_gt1
25.globl _v_score
26.globl _v_cgtab
27.globl _v_curs0
28.globl _v_curs1
29.globl _v_curs2
30.globl _v_curs3
31.globl _v_curs4
32.globl _v_curs5
33.globl _v_curs6
34.globl _v_curs7
35.globl _v_tcur
36.globl _v_kbobj
37.globl _v_lnobj
38.globl _v_win0
39.globl _v_cur
40.globl _fc_sw
41.globl _fc_val
42.globl _instob
43.globl _curvce
44.globl _stccol
45.globl _stcrow
46.globl _wmcsel
47.globl _wmctag
48.globl _dspbuf
49.globl _idbox
50.globl _vbufs
51.globl _wslib
52.globl _et_mcfn
53.text
54_et_mcfn:
55~~et_mcfn:
56~n=8
57link R14,#-4
58*line 49
59move _curvce,R0
60muls #3938,R0
61move.l R0,R8
62move.l #_vbufs,R9
63move.b 70(R8,R9.l),R0
64ext.w R0
65move R0,(sp)
66move.l #L2,-(sp)
67move.l #_ebuf,-(sp)
68jsr _sprintf
69addq.l #8,sp
70*line 50
71move #1,_ebflag
72*line 52
73clr R0
74bra L1
75L1:unlk R14
76rts
77.globl _ef_mcfn
78.text
79_ef_mcfn:
80~~ef_mcfn:
81~n=8
82link R14,#0
83movem.l R6-R7,-(sp)
84~tmpval=R7
85*line 70
86clr _wmctag
87*line 71
88clr.b 2+_ebuf
89*line 72
90clr _ebflag
91*line 74
92move.b _ebuf,R7
93ext.w R7
94add #-48,R7
95muls #10,R7
96move.b 1+_ebuf,R0
97ext.w R0
98add R0,R7
99add #-48,R7
100*line 76
101*line 77
102cmp #12,R7
103blt L4
104*line 77
105move #-1,R0
106bra L3
107*line 78
108L4:
109*line 79
110move R7,R0
111move _curvce,R1
112muls #3938,R1
113add.l #_vbufs,R1
114move.l R1,R9
115move.b R0,70(R9)
116*line 80
117move _curvce,(sp)
118jsr _dosync
119*line 81
120move #1,_wmctag
121*line 82
122clr R0
123bra L3
124L3:tst.l (sp)+
125movem.l (sp)+,R7-R7
126unlk R14
127rts
128.globl _rd_mcfn
129.text
130_rd_mcfn:
131~~rd_mcfn:
132~n=8
133link R14,#-4
134*line 98
135move _curvce,R0
136muls #3938,R0
137move.l R0,R8
138move.l #_vbufs,R9
139move.b 70(R8,R9.l),R0
140ext.w R0
141move R0,(sp)
142move.l #L6,-(sp)
143move.l #_dspbuf,-(sp)
144jsr _sprintf
145addq.l #8,sp
146*line 100
147*line 101
148clr R0
149move 10+_v_regs,R0
150and #384,R0
151beq L7
152*line 101
153clr (sp)
154jsr _vbank
155*line 102
156L7:
157*line 103
158move #14,(sp)
159move.l #_dspbuf,-(sp)
160move #16,-(sp)
161move #24,-(sp)
162move #5,-(sp)
163move #11,-(sp)
164move #64,-(sp)
165move.l _instob,-(sp)
166jsr _vcputsv
167adda.l #18,sp
168*line 105
169clr R0
170bra L5
171L5:unlk R14
172rts
173.globl _nd_mcfn
174.text
175_nd_mcfn:
176~~nd_mcfn:
177~k=R7
178~n=8
179link R14,#0
180movem.l R4-R7,-(sp)
181~ec=R6
182~c=R5
183*line 124
184move 10(R14),R7
185*line 124
186move _stccol,R6
187move.l _cfetp,R8
188move 2(R8),R0
189sub R0,R6
190*line 125
191move R7,R0
192add #48,R0
193move R6,R9
194add.l #_ebuf,R9
195move.b R0,(R9)
196*line 126
197clr.b 2+_ebuf
198*line 128
199move R7,R0
200add #48,R0
201move.b R0,_dspbuf
202*line 129
203clr.b 1+_dspbuf
204*line 131
205*line 132
206clr R0
207move 10+_v_regs,R0
208and #384,R0
209beq L9
210*line 132
211clr (sp)
212jsr _vbank
213*line 133
214*line 134
215*line 135
216L9:
217*line 136
218move #14,(sp)
219move.l #_dspbuf,-(sp)
220move _stccol,-(sp)
221move _stcrow,-(sp)
222move #5,-(sp)
223move #10,-(sp)
224move #64,-(sp)
225move.l _instob,-(sp)
226jsr _vcputsv
227adda.l #18,sp
228*line 138
229jsr _advicur
230*line 140
231clr R0
232bra L8
233L8:tst.l (sp)+
234movem.l (sp)+,R5-R7
235unlk R14
236rts
237.globl _et_mwsn
238.text
239_et_mwsn:
240~~et_mwsn:
241~nn=8
242link R14,#-4
243*line 156
244move 8(R14),R0
245and #-256,R0
246beq L10000
247move #1,R0
248bra L10002
249L10000:clr R0
250L10002:move R0,_wmcsel
251*line 158
252*line 159
253tst _wmcsel
254beq L10003
255move _curvce,R0
256muls #3938,R0
257move.l R0,R8
258move.l #_vbufs,R9
259move.b 73(R8,R9.l),R0
260ext.w R0
261move R0,(sp)
262bra L10005
263L10003:move _curvce,R0
264muls #3938,R0
265move.l R0,R8
266move.l #_vbufs,R9
267move.b 72(R8,R9.l),R0
268ext.w R0
269move R0,(sp)
270L10005:add #1,(sp)
271move.l #L11,-(sp)
272move.l #_ebuf,-(sp)
273jsr _sprintf
274addq.l #8,sp
275*line 161
276move #1,_ebflag
277*line 163
278clr R0
279bra L10
280L10:unlk R14
281rts
282.globl _ef_mwsn
283.text
284_ef_mwsn:
285~~ef_mwsn:
286~nn=8
287link R14,#0
288movem.l R6-R7/R13-R13,-(sp)
289~tmpval=R7
290~fpuws=R13
291*line 182
292move 8(R14),R0
293and #-256,R0
294beq L10006
295move #1,R0
296bra L10008
297L10006:clr R0
298L10008:move R0,_wmcsel
299*line 184
300clr _wmctag
301*line 185
302clr.b 2+_ebuf
303*line 186
304clr _ebflag
305*line 190
306move.b _ebuf,R7
307ext.w R7
308add #-48,R7
309muls #10,R7
310move.b 1+_ebuf,R0
311ext.w R0
312add R0,R7
313add #-48,R7
314*line 192
315*line 193
316cmp #1,R7
317blt L10009
318cmp #20,R7
319ble L13
320L10009:*line 193
321move #-1,R0
322bra L12
323*line 194
324*line 195
325L13:
326*line 196
327*line 196
328tst _wmcsel
329beq L14
330*line 197
331*line 198
332*line 199
333move R7,R0
334sub #1,R0
335move _curvce,R1
336muls #3938,R1
337add.l #_vbufs,R1
338move.l R1,R9
339move.b R0,73(R9)
340*line 200
341*line 201
342*line 202
343move #540,(sp)
344move R7,R0
345sub #1,R0
346muls #1080,R0
347add.l #_wslib,R0
348move.l R0,-(sp)
349move _curvce,R0
350muls #3938,R0
351add.l #_vbufs,R0
352move.l R0,-(sp)
353add.l #2858,(sp)
354jsr _memcpyw
355addq.l #8,sp
356*line 203
357*line 204
358move _curvce,R0
359move #9,R1
360asl R1,R0
361asl #1,R0
362ext.l R0
363move.l R0,R13
364add.l #_io_fpu,R13
365add.l #$2,R13
366*line 205
367*line 206
368move #254,(sp)
369move _curvce,R0
370muls #3938,R0
371add.l #_vbufs,R0
372move.l R0,-(sp)
373add.l #2858,(sp)
374move.l R13,-(sp)
375jsr _memcpyw
376addq.l #8,sp
377*line 207
378*line 208
379move _curvce,R0
380muls #3938,R0
381add.l #_vbufs,R0
382move.l R0,R8
383move 2858(R8),-2(R13)
384*line 209
385move _curvce,R0
386muls #3938,R0
387add.l #_vbufs,R0
388move.l R0,R8
389move 3364(R8),508(R13)
390*line 210
391bra L15
392L14:
393*line 211
394*line 212
395*line 213
396*line 214
397*line 215
398move R7,R0
399sub #1,R0
400move _curvce,R1
401muls #3938,R1
402add.l #_vbufs,R1
403move.l R1,R9
404move.b R0,72(R9)
405*line 216
406*line 217
407*line 218
408move #540,(sp)
409move R7,R0
410sub #1,R0
411muls #1080,R0
412add.l #_wslib,R0
413move.l R0,-(sp)
414move _curvce,R0
415muls #3938,R0
416add.l #_vbufs,R0
417move.l R0,-(sp)
418add.l #1778,(sp)
419jsr _memcpyw
420addq.l #8,sp
421*line 219
422*line 220
423move _curvce,R0
424move #9,R1
425asl R1,R0
426asl #1,R0
427ext.l R0
428move.l R0,R13
429add.l #_io_fpu,R13
430add.l #$202,R13
431*line 221
432*line 222
433move #254,(sp)
434move _curvce,R0
435muls #3938,R0
436add.l #_vbufs,R0
437move.l R0,-(sp)
438add.l #1778,(sp)
439move.l R13,-(sp)
440jsr _memcpyw
441addq.l #8,sp
442*line 223
443*line 224
444move _curvce,R0
445muls #3938,R0
446add.l #_vbufs,R0
447move.l R0,R8
448move 1778(R8),-2(R13)
449*line 225
450move _curvce,R0
451muls #3938,R0
452add.l #_vbufs,R0
453move.l R0,R8
454move 2284(R8),508(R13)
455L15:
456*line 228
457move #1,_wmctag
458*line 229
459clr R0
460bra L12
461L12:tst.l (sp)+
462movem.l (sp)+,R7-R7/R13-R13
463unlk R14
464rts
465.globl _rd_mwsn
466.text
467_rd_mwsn:
468~~rd_mwsn:
469~nn=8
470link R14,#-4
471*line 245
472move 8(R14),R0
473and #-256,R0
474beq L10010
475move #1,R0
476bra L10012
477L10010:clr R0
478L10012:move R0,_wmcsel
479*line 247
480*line 248
481tst _wmcsel
482beq L10013
483move _curvce,R0
484muls #3938,R0
485move.l R0,R8
486move.l #_vbufs,R9
487move.b 73(R8,R9.l),R0
488ext.w R0
489move R0,(sp)
490bra L10015
491L10013:move _curvce,R0
492muls #3938,R0
493move.l R0,R8
494move.l #_vbufs,R9
495move.b 72(R8,R9.l),R0
496ext.w R0
497move R0,(sp)
498L10015:add #1,(sp)
499move.l #L17,-(sp)
500move.l #_dspbuf,-(sp)
501jsr _sprintf
502addq.l #8,sp
503*line 250
504*line 251
505clr R0
506move 10+_v_regs,R0
507and #384,R0
508beq L18
509*line 251
510clr (sp)
511jsr _vbank
512*line 252
513L18:
514*line 253
515move #14,(sp)
516move.l #_dspbuf,-(sp)
517tst _wmcsel
518beq L10016
519move #16,-(sp)
520bra L10018
521L10016:move #12,-(sp)
522L10018:move #24,-(sp)
523move #6,-(sp)
524move #11,-(sp)
525move #64,-(sp)
526move.l _instob,-(sp)
527jsr _vcputsv
528adda.l #18,sp
529*line 255
530clr R0
531bra L16
532L16:unlk R14
533rts
534.globl _nd_mwsn
535.text
536_nd_mwsn:
537~~nd_mwsn:
538~k=R7
539~nn=8
540link R14,#0
541movem.l R4-R7,-(sp)
542~ec=R6
543~c=R5
544*line 274
545move 10(R14),R7
546*line 274
547move _stccol,R6
548move.l _cfetp,R8
549move 2(R8),R0
550sub R0,R6
551*line 275
552move R7,R0
553add #48,R0
554move R6,R9
555add.l #_ebuf,R9
556move.b R0,(R9)
557*line 276
558clr.b 2+_ebuf
559*line 278
560move R7,R0
561add #48,R0
562move.b R0,_dspbuf
563*line 279
564clr.b 1+_dspbuf
565*line 281
566*line 282
567clr R0
568move 10+_v_regs,R0
569and #384,R0
570beq L20
571*line 282
572clr (sp)
573jsr _vbank
574*line 283
575L20:
576*line 284
577move #14,(sp)
578move.l #_dspbuf,-(sp)
579move _stccol,-(sp)
580move _stcrow,-(sp)
581move #6,-(sp)
582move #10,-(sp)
583move #64,-(sp)
584move.l _instob,-(sp)
585jsr _vcputsv
586adda.l #18,sp
587*line 286
588jsr _advicur
589*line 288
590clr R0
591bra L19
592L19:tst.l (sp)+
593movem.l (sp)+,R5-R7
594unlk R14
595rts
596.data
597L2:.dc.b $25,$30,$32,$64,$0
598L6:.dc.b $25,$30,$32,$64,$0
599L11:.dc.b $25,$30,$32,$64,$0
600L17:.dc.b $25,$30,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.