source: buchla-68k/alcyon/ettrns.s@ 23e1597

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 7.4 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 _ac_code
43.globl _scname
44.globl _se_chg
45.globl _curscor
46.globl _cursect
47.globl _se1_cnt
48.globl _se2_cnt
49.globl _se3_cnt
50.globl _spool
51.globl _pspool
52.globl _spcount
53.globl _frags
54.globl _t_bak
55.globl _t_cur
56.globl _t_ctr
57.globl _t_fwd
58.globl _size1
59.globl _size2
60.globl _size3
61.globl _scores
62.globl _scp
63.globl _seclist
64.globl _hplist
65.globl _p_bak
66.globl _p_cur
67.globl _p_ctr
68.globl _p_fwd
69.globl _obj8
70.globl _ctrsw
71.globl _recsw
72.globl _stccol
73.globl _stcrow
74.globl _s_trns
75.globl _dspbuf
76.globl _grpdyn
77.globl _grpmode
78.globl _grpstat
79.globl _gdstbc
80.globl _et_trns
81.text
82_et_trns:
83~~et_trns:
84~n=8
85link R14,#0
86movem.l R5-R7,-(sp)
87~trval=R7
88~trsign=R6
89*line 52
90move 8(R14),R8
91add.l R8,R8
92add.l #_s_trns,R8
93move (R8),R7
94*line 54
95*line 54
96tst R7
97bge L2
98*line 55
99*line 56
100move R7,R0
101neg R0
102move R0,R7
103*line 57
104move.b #45,R6
105*line 58
106bra L3
107L2:
108*line 59
109*line 60
110*line 61
111move.b #43,R6
112L3:
113*line 64
114move.b R6,R0
115ext.w R0
116move R0,(sp)
117move R7,-(sp)
118move.l #L4,-(sp)
119move.l #_ebuf,-(sp)
120jsr _sprintf
121adda.l #10,sp
122*line 66
123move #1,_ebflag
124*line 72
125clr R0
126bra L1
127L1:tst.l (sp)+
128movem.l (sp)+,R6-R7
129unlk R14
130rts
131.globl _ef_trns
132.text
133_ef_trns:
134~~ef_trns:
135~n=8
136link R14,#0
137movem.l R5-R7/R12-R13,-(sp)
138~i=R7
139~trval=R6
140~ep=R13
141~trnval=R12
142*line 91
143clr.b 5+_ebuf
144*line 97
145clr _ebflag
146*line 98
147clr R6
148*line 100
149clr R7
150bra L8
151L9:
152*line 101
153muls #10,R6
154move.l #_ebuf,R8
155move.b 0(R8,R7),R0
156ext.w R0
157add R0,R6
158add #-48,R6
159L7:
160*line 100
161add #1,R7
162L8:
163*line 100
164cmp #4,R7
165blt L9
166L6:
167*line 103
168*line 104
169cmp #1200,R6
170ble L10
171*line 104
172move #-1,R0
173bra L5
174*line 105
175L10:
176*line 106
177*line 107
178cmp.b #45,4+_ebuf
179bne L11
180*line 107
181move R6,R0
182neg R0
183move R0,R6
184*line 108
185L11:
186*line 109
187move 8(R14),R8
188add.l R8,R8
189add.l #_s_trns,R8
190move R6,(R8)
191*line 110
192jsr _settune
193*line 112
194*line 112
195tst _recsw
196beq L12
197move 8(R14),R8
198add.l R8,R8
199move.l #_grpmode,R9
200tst 0(R8,R9.l)
201beq L12
202move 8(R14),R8
203add.l R8,R8
204add.l #_grpmode,R8
205cmp #2,(R8)
206bne L12
207*line 113
208*line 114
209move R6,R0
210ext.l R0
211move.l #$10,R1
212asl.l R1,R0
213move.l R0,R12
214*line 115
215*line 116
216*line 116
217move #-1,(sp)
218move 8(R14),-(sp)
219move #17,-(sp)
220move.l _t_cur,-(sp)
221move.l _p_cur,-(sp)
222jsr _findev
223adda.l #12,sp
224move.l R0,R13
225move.l R13,R0
226beq L13
227*line 117
228*line 118
229move.l R12,24(R13)
230*line 119
231bra L14
232L13:
233*line 120
234*line 120
235move #8,(sp)
236jsr _e_alc
237move.l R0,R13
238move.l R13,R0
239beq L15
240*line 121
241*line 122
242move.b #17,5(R13)
243*line 123
244move.l _t_cur,(R13)
245*line 124
246move 8(R14),R0
247move.b R0,6(R13)
248*line 125
249move.l R12,24(R13)
250*line 126
251move.l _t_cur,(sp)
252clr -(sp)
253move.l _p_cur,-(sp)
254jsr _ep_adj
255addq.l #6,sp
256move.l R0,(sp)
257move.l R13,-(sp)
258jsr _e_ins
259addq.l #4,sp
260move.l R0,R8
261move.l 12(R8),_p_cur
262*line 127
263move #5,(sp)
264move.l R13,-(sp)
265jsr _eh_ins
266addq.l #4,sp
267*line 128
268move #1,_ctrsw
269*line 129
270move #1,(sp)
271move.l #_gdstbc,-(sp)
272clr -(sp)
273move.l R13,-(sp)
274jsr _se_disp
275adda.l #10,sp
276*line 130
277jsr _scupd
278*line 131
279L15:L14:
280*line 132
281*line 133
282*line 136
283L12:
284*line 137
285clr R0
286bra L5
287L5:tst.l (sp)+
288movem.l (sp)+,R6-R7/R12-R13
289unlk R14
290rts
291.globl _rd_trns
292.text
293_rd_trns:
294~~rd_trns:
295~n=8
296link R14,#0
297movem.l R4-R7,-(sp)
298~trval=R7
299~i=R6
300~trsign=R5
301*line 156
302move 8(R14),R8
303add.l R8,R8
304add.l #_s_trns,R8
305move (R8),R7
306*line 158
307*line 158
308tst R7
309bge L17
310*line 159
311*line 160
312move.b #45,R5
313*line 161
314move R7,R0
315neg R0
316move R0,R7
317*line 162
318bra L18
319L17:
320*line 163
321*line 164
322*line 165
323move.b #43,R5
324L18:
325*line 168
326move R7,(sp)
327move.l #L19,-(sp)
328move.l #_dspbuf,-(sp)
329jsr _sprintf
330addq.l #8,sp
331*line 174
332*line 174
333cmp.b #45,R5
334bne L20
335*line 175
336*line 176
337*line 177
338cmp.b #49,_dspbuf
339bne L21
340*line 177
341move.b #161,_dspbuf
342*line 178
343bra L22
344L21:
345*line 179
346move.b #45,_dspbuf
347L22:
348*line 180
349bra L23
350L20:
351*line 181
352*line 182
353*line 183
354*line 184
355cmp.b #49,_dspbuf
356bne L24
357*line 184
358move.b #160,_dspbuf
359*line 185
360bra L25
361L24:
362*line 186
363move.b #43,_dspbuf
364L25:L23:
365*line 194
366*line 195
367clr R0
368move 10+_v_regs,R0
369and #384,R0
370beq L26
371*line 195
372clr (sp)
373jsr _vbank
374*line 196
375L26:
376*line 197
377move #18,(sp)
378move.l #_dspbuf,-(sp)
379move 8(R14),R0
380add #1,R0
381muls #5,R0
382move R0,-(sp)
383move #3,-(sp)
384move.l _obj8,-(sp)
385jsr _vputs
386adda.l #12,sp
387*line 199
388clr R0
389bra L16
390L16:tst.l (sp)+
391movem.l (sp)+,R5-R7
392unlk R14
393rts
394.globl _ds_trns
395.text
396_ds_trns:
397~~ds_trns:
398link R14,#0
399movem.l R6-R7,-(sp)
400~i=R7
401*line 215
402clr R7
403bra L30
404L31:
405*line 216
406move R7,(sp)
407jsr _rd_trns
408L29:
409*line 215
410add #1,R7
411L30:
412*line 215
413cmp #12,R7
414blt L31
415L28:L27:tst.l (sp)+
416movem.l (sp)+,R7-R7
417unlk R14
418rts
419.globl _nd_trns
420.text
421_nd_trns:
422~~nd_trns:
423~k=R7
424~n=8
425link R14,#0
426movem.l R3-R7,-(sp)
427~ec=R6
428~c=R5
429~advsw=R4
430*line 235
431move 10(R14),R7
432*line 235
433move _stccol,R6
434move.l _cfetp,R8
435move 2(R8),R0
436sub R0,R6
437*line 242
438move #1,R4
439*line 244
440*line 244
441tst R6
442bne L33
443*line 245
444*line 246
445move R7,R0
446bra L35
447*line 247
448L36:
449*line 248
450*line 249
451*line 250
452move.b #48,_ebuf
453*line 251
454move.b 4+_ebuf,R7
455ext.w R7
456bra L34
457*line 252
458*line 253
459L37:
460*line 254
461*line 255
462*line 256
463*line 257
464cmp.b #43,4+_ebuf
465bne L38
466*line 257
467move #160,R7
468*line 258
469bra L39
470L38:
471*line 259
472move #161,R7
473L39:
474*line 260
475*line 261
476move.b #49,_ebuf
477bra L34
478*line 262
479*line 263
480L40:
481*line 264
482*line 265
483*line 266
484*line 267
485cmp.b #48,_ebuf
486bne L41
487*line 267
488move #45,R7
489*line 268
490bra L42
491L41:
492*line 269
493move #161,R7
494L42:
495*line 270
496*line 271
497move.b #45,4+_ebuf
498*line 272
499clr R4
500bra L34
501*line 273
502*line 274
503*line 275
504L43:
505*line 276
506*line 277
507*line 278
508*line 279
509cmp.b #48,_ebuf
510bne L44
511*line 279
512move #43,R7
513*line 280
514bra L45
515L44:
516*line 281
517move #160,R7
518L45:
519*line 282
520*line 283
521move.b #43,4+_ebuf
522*line 284
523clr R4
524bra L34
525*line 285
526*line 286
527L46:
528*line 287
529*line 288
530*line 289
531move #-1,R0
532bra L32
533bra L34
534L35:tst R0
535beq L36
536cmp #1,R0
537beq L37
538cmp #8,R0
539beq L40
540cmp #9,R0
541beq L43
542bra L46
543L34:
544*line 290
545*line 291
546bra L47
547L33:
548*line 292
549*line 293
550*line 294
551move R7,R0
552add #48,R0
553move R6,R9
554add.l #_ebuf,R9
555move.b R0,(R9)
556L47:
557*line 297
558cmp #9,R7
559ble L10000
560move R7,R0
561bra L10002
562L10000:move R7,R0
563add #48,R0
564L10002:move.b R0,_dspbuf
565*line 298
566clr.b 1+_dspbuf
567*line 300
568*line 301
569clr R0
570move 10+_v_regs,R0
571and #384,R0
572beq L48
573*line 301
574clr (sp)
575jsr _vbank
576*line 302
577L48:
578*line 303
579move #98,(sp)
580move.l #_dspbuf,-(sp)
581move _stccol,-(sp)
582move #3,-(sp)
583move.l _obj8,-(sp)
584jsr _vputs
585adda.l #12,sp
586*line 309
587*line 310
588tst R4
589beq L49
590*line 310
591jsr _advscur
592*line 311
593L49:
594*line 312
595clr R0
596bra L32
597L32:tst.l (sp)+
598movem.l (sp)+,R4-R7
599unlk R14
600rts
601.data
602L4:.dc.b $25,$30,$34,$2E,$34,$64,$25,$63,$0
603L19:.dc.b $25,$30,$34,$2E,$34,$64,$0
Note: See TracBrowser for help on using the repository browser.