source: buchla-68k/alcyon/etatab.s@ 7bf3856

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

Added Alcyon C reference output.

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