source: buchla-68k/alcyon/etsnbt.s@ 526a993

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 3.5 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 _obj8
43.globl _clkrun
44.globl _insmode
45.globl _stccol
46.globl _t_cur
47.globl _et_snbt
48.text
49_et_snbt:
50~~et_snbt:
51~n=8
52link R14,#0
53movem.l R5-R7,-(sp)
54~curfr=R7
55~beat=R6
56*line 42
57*line 42
58tst _clkrun
59beq L2
60*line 43
61*line 44
62clr _ebflag
63*line 45
64move #-1,R0
65bra L1
66*line 46
67*line 47
68L2:
69*line 48
70move.l _t_cur,R7
71*line 49
72move.l #$30,-(sp)
73move.l R7,-(sp)
74jsr ldiv
75addq.l #8,sp
76move.l R0,R6
77*line 51
78move.l R6,(sp)
79move.l #L3,-(sp)
80move.l #_ebuf,-(sp)
81jsr _sprintf
82addq.l #8,sp
83*line 52
84move #1,_ebflag
85*line 54
86clr R0
87bra L1
88L1:tst.l (sp)+
89movem.l (sp)+,R6-R7
90unlk R14
91rts
92.globl _ef_snbt
93.text
94_ef_snbt:
95~~ef_snbt:
96~n=8
97link R14,#0
98movem.l R5-R7,-(sp)
99~ival=R7
100~i=R6
101*line 70
102*line 71
103tst _clkrun
104beq L5
105*line 71
106move #-1,R0
107bra L4
108*line 72
109L5:
110*line 73
111clr.l R7
112*line 75
113clr R6
114bra L8
115L9:
116*line 76
117move.l #$a,-(sp)
118move.l R7,-(sp)
119jsr lmul
120addq.l #8,sp
121move.l R0,R7
122move.l #_ebuf,R8
123move.b 0(R8,R6),R0
124ext.w R0
125add #-48,R0
126ext.l R0
127add.l R0,R7
128L7:
129*line 75
130add #1,R6
131L8:
132*line 75
133cmp #5,R6
134blt L9
135L6:
136*line 78
137clr _ebflag
138*line 80
139*line 80
140tst _insmode
141beq L10
142*line 81
143*line 82
144jsr _icancel
145*line 83
146jsr _dsimode
147*line 84
148*line 85
149L10:
150*line 86
151move.l #$30,-(sp)
152move.l R7,-(sp)
153jsr lmul
154addq.l #8,sp
155move.l R0,_fc_val
156move.l R0,(sp)
157jsr _sc_goto
158*line 87
159clr R0
160bra L4
161L4:tst.l (sp)+
162movem.l (sp)+,R6-R7
163unlk R14
164rts
165.globl _rd_snbt
166.text
167_rd_snbt:
168~~rd_snbt:
169~n=8
170link R14,#-8
171movem.l R5-R7,-(sp)
172~curfr=R7
173~beat=R6
174~buf=-8
175*line 106
176move.l _t_cur,R7
177*line 107
178move.l #$30,-(sp)
179move.l R7,-(sp)
180jsr ldiv
181addq.l #8,sp
182move.l R0,R6
183*line 108
184move.l R6,(sp)
185move.l #L12,-(sp)
186move.l R14,-(sp)
187sub.l #8,(sp)
188jsr _sprintf
189addq.l #8,sp
190*line 110
191*line 111
192clr R0
193move 10+_v_regs,R0
194and #384,R0
195beq L13
196*line 111
197clr (sp)
198jsr _vbank
199*line 112
200L13:
201*line 113
202move #19,(sp)
203move.l R14,-(sp)
204sub.l #8,(sp)
205move #11,-(sp)
206clr -(sp)
207move.l _obj8,-(sp)
208jsr _vputs
209adda.l #12,sp
210*line 115
211clr R0
212bra L11
213L11:tst.l (sp)+
214movem.l (sp)+,R6-R7
215unlk R14
216rts
217.globl _nd_snbt
218.text
219_nd_snbt:
220~~nd_snbt:
221~n=R7
222~k=R6
223link R14,#0
224movem.l R4-R7,-(sp)
225~ec=R5
226*line 133
227move 8(R14),R7
228*line 133
229move 10(R14),R6
230*line 133
231*line 134
232tst _clkrun
233beq L15
234*line 134
235move #-1,R0
236bra L14
237*line 135
238L15:
239*line 136
240move _stccol,R5
241move.l _cfetp,R8
242move 2(R8),R0
243sub R0,R5
244*line 137
245move R6,R0
246add #48,R0
247move R5,R9
248add.l #_ebuf,R9
249move.b R0,(R9)
250*line 139
251*line 140
252clr R0
253move 10+_v_regs,R0
254and #384,R0
255beq L16
256*line 140
257clr (sp)
258jsr _vbank
259*line 141
260L16:
261*line 142
262move #99,(sp)
263move R6,-(sp)
264add #48,(sp)
265move _stccol,-(sp)
266clr -(sp)
267move.l _obj8,-(sp)
268jsr _vputc
269adda.l #10,sp
270*line 143
271jsr _advscur
272*line 145
273clr R0
274bra L14
275L14:tst.l (sp)+
276movem.l (sp)+,R5-R7
277unlk R14
278rts
279.data
280L3:.dc.b $25,$30,$35,$6C,$64,$0
281L12:.dc.b $25,$30,$35,$6C,$64,$0
Note: See TracBrowser for help on using the repository browser.