source: buchla-68k/alcyon/etires.s@ ca867c1

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

Added Alcyon C reference output.

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