source: buchla-68k/alcyon/chgsef.s@ 050d522

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 5.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 _ac_code
38.globl _scname
39.globl _se_chg
40.globl _curscor
41.globl _cursect
42.globl _se1_cnt
43.globl _se2_cnt
44.globl _se3_cnt
45.globl _spool
46.globl _pspool
47.globl _spcount
48.globl _frags
49.globl _t_bak
50.globl _t_cur
51.globl _t_ctr
52.globl _t_fwd
53.globl _size1
54.globl _size2
55.globl _size3
56.globl _scores
57.globl _scp
58.globl _seclist
59.globl _hplist
60.globl _p_bak
61.globl _p_cur
62.globl _p_ctr
63.globl _p_fwd
64.globl _sd
65.globl _se
66.globl _gdstbc
67.globl _gdstbn
68.globl _gdstbp
69.globl _chgsef
70.text
71_chgsef:
72~~chgsef:
73link R14,#0
74movem.l R6-R7/R13-R13,-(sp)
75~ep=R13
76~rt=R7
77*line 41
78clr _se
79*line 43
80move.l _p_cur,R13
81*line 44
82move.l _t_cur,R7
83*line 46
84*line 46
85cmp.b #21,5(R13)
86beq L2
87*line 47
88*line 48
89move.l 12(R13),R13
90*line 49
91*line 50
92bra L5
93L4:
94*line 51
95*line 52
96*line 53
97cmp.b #21,5(R13)
98beq L3
99*line 54
100*line 55
101move _se,(sp)
102move.l R13,-(sp)
103jsr _se_exec
104addq.l #4,sp
105*line 56
106move.l 12(R13),R13
107L5:
108*line 57
109cmp.l (R13),R7
110beq L4
111L3:
112*line 58
113*line 59
114move.l R13,_p_cur
115*line 60
116L2:L1:tst.l (sp)+
117movem.l (sp)+,R7-R7/R13-R13
118unlk R14
119rts
120.globl _chgseb
121.text
122_chgseb:
123~~chgseb:
124link R14,#0
125movem.l R6-R7/R13-R13,-(sp)
126~ep=R13
127~rt=R7
128*line 74
129move #1,_se
130*line 76
131move.l _p_cur,R13
132*line 77
133move.l _t_cur,R7
134*line 79
135*line 79
136cmp.b #1,5(R13)
137beq L7
138*line 80
139*line 81
140move.l 8(R13),R13
141*line 82
142*line 83
143bra L10
144L9:
145*line 84
146*line 85
147*line 86
148cmp.b #1,5(R13)
149beq L8
150*line 87
151*line 88
152move _se,(sp)
153move.l R13,-(sp)
154jsr _se_exec
155addq.l #4,sp
156*line 89
157move.l 8(R13),R13
158L10:
159*line 90
160cmp.l (R13),R7
161beq L9
162L8:
163*line 91
164*line 92
165move.l R13,_p_cur
166*line 93
167L7:L6:tst.l (sp)+
168movem.l (sp)+,R7-R7/R13-R13
169unlk R14
170rts
171.globl _chgsdf
172.text
173_chgsdf:
174~~chgsdf:
175link R14,#0
176movem.l R6-R7/R13-R13,-(sp)
177~ep=R13
178~rt=R7
179*line 107
180clr _sd
181*line 109
182move.l #_gdstbc,(sp)
183jsr _rslice
184*line 110
185move.l #_gdstbn,(sp)
186jsr _rslice
187*line 111
188move.l #_gdstbp,(sp)
189jsr _rslice
190*line 113
191move.l _p_ctr,R13
192*line 114
193move.l _t_ctr,R7
194*line 116
195*line 116
196cmp.b #21,5(R13)
197beq L12
198*line 117
199*line 118
200move.l 12(R13),R13
201*line 119
202*line 120
203bra L15
204L14:
205*line 121
206*line 122
207*line 123
208cmp.b #21,5(R13)
209beq L13
210*line 124
211*line 125
212move #1,(sp)
213move.l #_gdstbc,-(sp)
214clr -(sp)
215move.l R13,-(sp)
216jsr _se_disp
217adda.l #10,sp
218*line 126
219move.l 12(R13),R13
220L15:
221*line 127
222cmp.l (R13),R7
223beq L14
224L13:
225*line 128
226*line 129
227move.l R13,_p_ctr
228*line 130
229*line 131
230L12:
231*line 132
232move.l _p_bak,R13
233*line 133
234move.l _t_bak,R7
235*line 135
236*line 135
237cmp.b #21,5(R13)
238beq L16
239*line 136
240*line 137
241move.l 12(R13),R13
242*line 138
243*line 139
244bra L19
245L18:
246*line 140
247*line 141
248*line 142
249cmp.b #21,5(R13)
250beq L17
251*line 143
252*line 144
253clr (sp)
254move.l #_gdstbp,-(sp)
255clr -(sp)
256move.l R13,-(sp)
257jsr _se_disp
258adda.l #10,sp
259*line 145
260move.l 12(R13),R13
261L19:
262*line 146
263cmp.l (R13),R7
264beq L18
265L17:
266*line 147
267*line 148
268move.l R13,_p_bak
269*line 149
270*line 150
271L16:
272*line 151
273move.l _p_fwd,R13
274*line 152
275move.l _t_fwd,R7
276*line 154
277*line 154
278cmp.b #21,5(R13)
279beq L20
280*line 155
281*line 156
282move.l 12(R13),R13
283*line 157
284*line 158
285bra L23
286L22:
287*line 159
288*line 160
289*line 161
290cmp.b #21,5(R13)
291beq L21
292*line 162
293*line 163
294clr (sp)
295move.l #_gdstbn,-(sp)
296clr -(sp)
297move.l R13,-(sp)
298jsr _se_disp
299adda.l #10,sp
300*line 164
301move.l 12(R13),R13
302L23:
303*line 165
304cmp.l (R13),R7
305beq L22
306L21:
307*line 166
308*line 167
309move.l R13,_p_fwd
310*line 168
311L20:L11:tst.l (sp)+
312movem.l (sp)+,R7-R7/R13-R13
313unlk R14
314rts
315.globl _chgsdb
316.text
317_chgsdb:
318~~chgsdb:
319link R14,#0
320movem.l R6-R7/R13-R13,-(sp)
321~ep=R13
322~rt=R7
323*line 182
324move #1,_sd
325*line 184
326move.l #_gdstbc,(sp)
327jsr _rslice
328*line 185
329move.l #_gdstbn,(sp)
330jsr _rslice
331*line 186
332move.l #_gdstbp,(sp)
333jsr _rslice
334*line 188
335move.l _p_ctr,R13
336*line 189
337move.l _t_ctr,R7
338*line 191
339*line 191
340cmp.b #1,5(R13)
341beq L25
342*line 192
343*line 193
344move.l 8(R13),R13
345*line 194
346*line 195
347bra L28
348L27:
349*line 196
350*line 197
351*line 198
352cmp.b #1,5(R13)
353beq L26
354*line 199
355*line 200
356move #1,(sp)
357move.l #_gdstbc,-(sp)
358move #1,-(sp)
359move.l R13,-(sp)
360jsr _se_disp
361adda.l #10,sp
362*line 201
363move.l 8(R13),R13
364L28:
365*line 202
366cmp.l (R13),R7
367beq L27
368L26:
369*line 203
370*line 204
371move.l R13,_p_ctr
372*line 205
373*line 206
374L25:
375*line 207
376move.l _p_bak,R13
377*line 208
378move.l _t_bak,R7
379*line 210
380*line 210
381cmp.b #1,5(R13)
382beq L29
383*line 211
384*line 212
385move.l 8(R13),R13
386*line 213
387*line 214
388bra L32
389L31:
390*line 215
391*line 216
392*line 217
393cmp.b #1,5(R13)
394beq L30
395*line 218
396*line 219
397clr (sp)
398move.l #_gdstbp,-(sp)
399move #1,-(sp)
400move.l R13,-(sp)
401jsr _se_disp
402adda.l #10,sp
403*line 220
404move.l 8(R13),R13
405L32:
406*line 221
407cmp.l (R13),R7
408beq L31
409L30:
410*line 222
411*line 223
412move.l R13,_p_bak
413*line 224
414*line 225
415L29:
416*line 226
417move.l _p_fwd,R13
418*line 227
419move.l _t_fwd,R7
420*line 229
421*line 229
422cmp.b #1,5(R13)
423beq L33
424*line 230
425*line 231
426move.l 8(R13),R13
427*line 232
428*line 233
429bra L36
430L35:
431*line 234
432*line 235
433*line 236
434cmp.b #1,5(R13)
435beq L34
436*line 237
437*line 238
438clr (sp)
439move.l #_gdstbn,-(sp)
440move #1,-(sp)
441move.l R13,-(sp)
442jsr _se_disp
443adda.l #10,sp
444*line 239
445move.l 8(R13),R13
446L36:
447*line 240
448cmp.l (R13),R7
449beq L35
450L34:
451*line 241
452*line 242
453move.l R13,_p_fwd
454*line 243
455L33:L24:tst.l (sp)+
456movem.l (sp)+,R7-R7/R13-R13
457unlk R14
458rts
459.data
Note: See TracBrowser for help on using the repository browser.