source: buchla-68k/alcyon/eticnf.s@ 9519422

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

Added Alcyon C reference output.

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