source: buchla-68k/alcyon/scgoto.s@ 4810254

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 5.0 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 _recsw
65.globl _ndisp
66.globl _sd
67.globl _swctrl
68.globl _swflag
69.globl _gdfsep
70.globl _gdstbc
71.globl _gdstbn
72.globl _sc_goto
73.text
74_sc_goto:
75~~sc_goto:
76~tval=R7
77link R14,#0
78movem.l R3-R7/R12-R13,-(sp)
79~gdsp=R13
80~rp=R12
81~tf=R6
82~rt=R5
83~mod48=R4
84*line 54
85move #48,R4
86*line 65
87move.l 8(R14),R7
88*line 65
89*line 66
90*line 67
91tst.l _p_fwd
92beq L10000
93tst.l _p_cur
94beq L10000
95tst.l _p_bak
96beq L10000
97tst.l _p_ctr
98bne L2
99L10000:*line 67
100move #-1,R0
101bra L1
102*line 68
103L2:
104*line 69
105*line 70
106clr R0
107move 10+_v_regs,R0
108and #384,R0
109beq L3
110*line 70
111clr (sp)
112jsr _vbank
113*line 71
114L3:
115*line 72
116clr _sd
117*line 73
118clr _swctrl
119*line 74
120clr _swflag
121*line 76
122clr _recsw
123*line 77
124jsr _dsrpmod
125*line 79
126*line 80
127cmp #2,_ndisp
128bne L4
129*line 80
130jsr _sreset
131*line 81
132L4:
133*line 82
134jsr _quiet
135*line 83
136jsr _clrnl
137*line 84
138jsr _clrsctl
139*line 86
140move.l R7,R0
141add.l #$ffffff10,R0
142move.l R0,_t_bak
143*line 87
144move.l _t_bak,_t_fwd
145*line 88
146move.l R7,_t_ctr
147*line 89
148move.l R7,_t_cur
149*line 91
150clr (sp)
151move.l _t_bak,-(sp)
152jsr _frfind
153addq.l #4,sp
154move.l R0,_p_bak
155*line 92
156move #1,(sp)
157move.l _t_cur,-(sp)
158jsr _frfind
159addq.l #4,sp
160move.l R0,_p_cur
161*line 93
162move #1,(sp)
163move.l _t_fwd,-(sp)
164jsr _frfind
165addq.l #4,sp
166move.l R0,_p_fwd
167*line 99
168*line 100
169tst.l _t_fwd
170bgt L5
171move.l _p_fwd,R8
172cmp.b #1,5(R8)
173bne L5
174*line 100
175move.l _p_fwd,R8
176move.l 12(R8),_p_fwd
177*line 101
178L5:
179*line 102
180move.l _p_fwd,R12
181*line 103
182move.l _t_fwd,R5
183*line 104
184move.l R7,R6
185add.l #$102,R6
186*line 122
187bra L8
188L7:
189*line 123
190*line 124
191*line 124
192cmp.b #21,5(R12)
193beq L9
194*line 125
195*line 126
196bra L12
197L11:
198*line 127
199*line 128
200*line 129
201cmp #2,_ndisp
202bne L13
203*line 129
204clr (sp)
205move.l #_gdstbn,-(sp)
206clr -(sp)
207move.l R12,-(sp)
208jsr _se_disp
209adda.l #10,sp
210*line 130
211L13:
212*line 131
213move.l 12(R12),R12
214*line 132
215*line 133
216*line 134
217cmp.b #21,5(R12)
218beq L10
219L12:
220*line 135
221cmp.l (R12),R5
222bge L11
223L10:
224*line 136
225*line 137
226L9:
227*line 138
228*line 138
229cmp #2,_ndisp
230bne L14
231*line 139
232*line 140
233*line 140
234move.l R5,R0
235divs R4,R0
236swap R0
237ext.l R0
238tst.l R0
239bne L15
240*line 141
241*line 142
242*line 142
243move.l _gdfsep,R13
244move.l R13,R0
245beq L16
246*line 143
247*line 144
248move.l (R13),_gdfsep
249*line 145
250*line 146
251move.l 48+_gdstbn,(R13)
252*line 147
253move #4369,4(R13)
254*line 148
255move #1,6(R13)
256*line 149
257*line 150
258move.l R13,48+_gdstbn
259*line 151
260L16:
261*line 152
262*line 153
263L15:
264*line 154
265jsr _sc_adv
266*line 155
267L14:L8:
268*line 156
269cmp.l R5,R6
270move sr,R0
271add.l #$1,R5
272move R0,ccr
273bgt L7
274L6:
275*line 158
276move.l R12,_p_fwd
277*line 159
278move.l R6,_t_fwd
279*line 165
280*line 166
281cmp #2,_ndisp
282bne L17
283*line 166
284jsr _dssect
285*line 167
286L17:
287*line 168
288move.l _p_cur,R12
289*line 169
290move.l _t_cur,R5
291*line 171
292*line 172
293tst.l R5
294bgt L18
295cmp.b #1,5(R12)
296bne L18
297*line 172
298move.l 12(R12),R12
299*line 173
300L18:
301*line 174
302*line 174
303cmp.b #21,5(R12)
304beq L19
305*line 175
306*line 176
307bra L22
308L21:
309*line 177
310*line 178
311clr (sp)
312move.l R12,-(sp)
313jsr _se_exec
314addq.l #4,sp
315*line 179
316*line 180
317*line 181
318cmp #2,_ndisp
319bne L23
320*line 181
321move #1,(sp)
322move.l #_gdstbc,-(sp)
323clr -(sp)
324move.l R12,-(sp)
325jsr _se_disp
326adda.l #10,sp
327*line 182
328L23:
329*line 183
330move.l 12(R12),R12
331*line 184
332*line 185
333*line 186
334cmp.b #21,5(R12)
335beq L20
336L22:
337*line 187
338cmp.l (R12),R5
339beq L21
340L20:
341*line 188
342*line 189
343L19:
344*line 190
345move.l R12,_p_cur
346*line 191
347move.l R12,_p_ctr
348*line 193
349*line 193
350cmp #2,_ndisp
351bne L24
352*line 194
353*line 195
354jsr _scupd
355*line 196
356jsr _sdwins
357*line 197
358*line 198
359*line 199
360*line 200
361*line 201
362*line 213
363*line 214
364*line 220
365*line 221
366L24:
367*line 222
368clr R0
369bra L1
370L1:tst.l (sp)+
371movem.l (sp)+,R4-R7/R12-R13
372unlk R14
373rts
374.globl _sc_refr
375.text
376_sc_refr:
377~~sc_refr:
378~t=8
379link R14,#-8
380~oldrs=-2
381~rc=-4
382*line 240
383move _recsw,-2(R14)
384*line 241
385move.l 8(R14),(sp)
386jsr _sc_goto
387move R0,-4(R14)
388*line 242
389move -2(R14),_recsw
390*line 243
391jsr _dsrpmod
392*line 244
393move -4(R14),R0
394bra L25
395L25:unlk R14
396rts
397.data
Note: See TracBrowser for help on using the repository browser.