source: buchla-68k/alcyon/sqfield.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: 6.4 KB
RevLine 
[7bf3856]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 _stmptr
43.globl _defptr
44.globl _patches
45.globl _defents
46.globl _seqtab
47.globl _seqflag
48.globl _seqline
49.globl _seqstim
50.globl _seqtime
51.globl _sregval
52.globl _trstate
53.globl _xy_up
54.globl _xy_dn
55.globl _premove
56.globl _pstmove
57.globl _curtype
58.globl _astat
59.globl _cmfirst
60.globl _cmtype
61.globl _curhold
62.globl _curslin
63.globl _cvtime
64.globl _cvwait
65.globl _ncvwait
66.globl _sqdeflg
67.globl _stccol
68.globl _ss_ptsw
69.globl _ss_sqsw
70.globl _syrate
71.globl _tvcwval
72.globl _vcwval
73.globl _crate1
74.globl _csbp
75.globl _sqboxes
76.globl _seqbuf
77.globl _seqtab
78.globl _sqdebuf
79.globl _sq_flds
80.data
81_sq_flds:
82*line 72
83.dc.l _stdctp5
84*line 73
85.dc.l _nokey
86*line 74
87.dc.l _postcm
88*line 75
89.dc.l _cxkstd
90*line 76
91.dc.l _cykstd
92*line 77
93.dc.l _smxupd
94*line 78
95.dc.l _sqyupd
96*line 79
97.dc.l _stopsm
98*line 80
99.dc.l _nokey
100*line 81
101.dc.l _sqxkey
102*line 82
103.dc.l _sqekey
104*line 83
105.dc.l _sqmkey
106*line 84
107.dc.l _sqdkey
108*line 85
109.dc.l _nokey
110.dc.l $0
111*line 87
112.dc.l _sqboxes
113*line 88
114.dc.l _crate1
115*line 89
116.dc.l _crate1
117.dc.w $4
118.dc.w $10
119.dc.w $7E
120.globl _sqmkey
121.text
122_sqmkey:
123~~sqmkey:
124link R14,#0
125movem.l R6-R7,-(sp)
126~nc=R7
127*line 108
128*line 108
129tst _astat
130beq L2
131*line 109
132*line 110
133*line 110
134cmp #48,_stccol
135bne L3
136*line 111
137*line 112
138*line 112
139tst _ss_ptsw
140bne L4
141*line 113
142*line 114
143move.l _xy_dn,R8
144jsr (R8)
145*line 115
146*line 116
147move.l _premove,R8
148jsr (R8)
149*line 117
150*line 118
151move.l _curtype,R8
152jsr (R8)
153move R0,R7
154*line 119
155*line 120
156move _syrate,_cvtime
157*line 121
158move _curhold,_ncvwait
159*line 122
160*line 123
161move #-1,_ss_sqsw
162*line 124
163move R7,_cmtype
164*line 125
165move #1,_cvwait
166*line 126
167*line 127
168L4:
169*line 128
170bra L5
171L3:
172*line 129
173jsr _stdmkey
174L5:
175*line 130
176bra L6
177L2:
178*line 131
179*line 132
180*line 133
181*line 133
182cmp #48,_stccol
183bne L7
184*line 134
185*line 135
186clr _ss_sqsw
187*line 136
188move #1,_cvwait
189*line 137
190move _cvtime,_ncvwait
191*line 138
192move #1,_cmfirst
193*line 139
194*line 140
195*line 141
196tst _ss_ptsw
197bne L8
198*line 141
199move.l _xy_up,R8
200jsr (R8)
201*line 142
202L8:
203*line 143
204move.l _pstmove,R8
205jsr (R8)
206*line 144
207*line 145
208bra L9
209L7:
210*line 146
211jsr _stdmkey
212L9:L6:L1:tst.l (sp)+
213movem.l (sp)+,R7-R7
214unlk R14
215rts
216.globl _sqekey
217.text
218_sqekey:
219~~sqekey:
220link R14,#0
221movem.l R6-R7,-(sp)
222~nc=R7
223*line 163
224*line 163
225tst _astat
226beq L11
227*line 164
228*line 165
229*line 165
230cmp #48,_stccol
231bne L12
232*line 166
233*line 167
234*line 167
235tst _ss_ptsw
236bne L13
237*line 168
238*line 169
239move.l _xy_dn,R8
240jsr (R8)
241*line 170
242*line 171
243move.l _premove,R8
244jsr (R8)
245*line 172
246*line 173
247move.l _curtype,R8
248jsr (R8)
249move R0,R7
250*line 174
251*line 175
252move _syrate,_cvtime
253*line 176
254move _curhold,_ncvwait
255*line 177
256*line 178
257move #1,_ss_sqsw
258*line 179
259move R7,_cmtype
260*line 180
261move #1,_cvwait
262*line 181
263*line 182
264L13:
265*line 183
266bra L14
267L12:
268*line 184
269jsr _select
270L14:
271*line 185
272bra L15
273L11:
274*line 186
275*line 187
276*line 188
277*line 188
278cmp #48,_stccol
279bne L16
280*line 189
281*line 190
282clr _ss_sqsw
283*line 191
284move #1,_cvwait
285*line 192
286move _cvtime,_ncvwait
287*line 193
288move #1,_cmfirst
289*line 194
290*line 195
291*line 196
292tst _ss_ptsw
293bne L17
294*line 196
295move.l _xy_up,R8
296jsr (R8)
297*line 197
298L17:
299*line 198
300move.l _pstmove,R8
301jsr (R8)
302*line 199
303*line 200
304bra L18
305L16:
306*line 201
307jsr _select
308L18:L15:L10:tst.l (sp)+
309movem.l (sp)+,R7-R7
310unlk R14
311rts
312.globl _sqxkey
313.text
314_sqxkey:
315~~sqxkey:
316link R14,#-4
317*line 216
318*line 217
319tst _astat
320beq L19
321*line 218
322*line 219
323*line 219
324cmp #2,_stccol
325blt L20
326cmp #4,_stccol
327bgt L20
328*line 220
329*line 221
330move #7,(sp)
331clr -(sp)
332move.l #_seqbuf,-(sp)
333jsr _memsetw
334addq.l #6,sp
335*line 222
336move #7,(sp)
337clr -(sp)
338move _curslin,R0
339muls #14,R0
340add.l #_seqtab,R0
341move.l R0,-(sp)
342jsr _memsetw
343addq.l #6,sp
344*line 223
345move _curslin,(sp)
346move.l #_sqdebuf,-(sp)
347jsr _dsqlin
348addq.l #4,sp
349*line 224
350move #1,_sqdeflg
351*line 225
352jsr _dcursq
353*line 226
354bra L21
355L20:
356*line 227
357*line 227
358cmp #12,_stccol
359blt L22
360cmp #22,_stccol
361bgt L22
362*line 228
363*line 229
364move _curslin,R0
365muls #14,R0
366add.l #_seqtab,R0
367move.l R0,R8
368clr 2(R8)
369*line 230
370move _curslin,R0
371muls #14,R0
372add.l #_seqtab,R0
373move.l R0,R8
374clr 4(R8)
375*line 231
376move #7,(sp)
377move _curslin,R0
378muls #14,R0
379add.l #_seqtab,R0
380move.l R0,-(sp)
381move.l #_seqbuf,-(sp)
382jsr _memcpyw
383addq.l #8,sp
384*line 232
385move _curslin,(sp)
386move.l #_sqdebuf,-(sp)
387jsr _dsqlin
388addq.l #4,sp
389*line 233
390move #1,_sqdeflg
391*line 234
392jsr _dcursq
393*line 235
394bra L23
395L22:
396*line 236
397*line 236
398cmp #24,_stccol
399blt L24
400cmp #34,_stccol
401bgt L24
402*line 237
403*line 238
404move _curslin,R0
405muls #14,R0
406add.l #_seqtab,R0
407move.l R0,R8
408clr 6(R8)
409*line 239
410move _curslin,R0
411muls #14,R0
412add.l #_seqtab,R0
413move.l R0,R8
414clr 8(R8)
415*line 240
416move #7,(sp)
417move _curslin,R0
418muls #14,R0
419add.l #_seqtab,R0
420move.l R0,-(sp)
421move.l #_seqbuf,-(sp)
422jsr _memcpyw
423addq.l #8,sp
424*line 241
425move _curslin,(sp)
426move.l #_sqdebuf,-(sp)
427jsr _dsqlin
428addq.l #4,sp
429*line 242
430move #1,_sqdeflg
431*line 243
432jsr _dcursq
433*line 244
434bra L25
435L24:
436*line 245
437*line 245
438cmp #36,_stccol
439blt L26
440cmp #46,_stccol
441bgt L26
442*line 246
443*line 247
444move _curslin,R0
445muls #14,R0
446add.l #_seqtab,R0
447move.l R0,R8
448clr 10(R8)
449*line 248
450move _curslin,R0
451muls #14,R0
452add.l #_seqtab,R0
453move.l R0,R8
454clr 12(R8)
455*line 249
456move #7,(sp)
457move _curslin,R0
458muls #14,R0
459add.l #_seqtab,R0
460move.l R0,-(sp)
461move.l #_seqbuf,-(sp)
462jsr _memcpyw
463addq.l #8,sp
464*line 250
465move _curslin,(sp)
466move.l #_sqdebuf,-(sp)
467jsr _dsqlin
468addq.l #4,sp
469*line 251
470move #1,_sqdeflg
471*line 252
472jsr _dcursq
473*line 253
474L26:L25:L23:L21:L19:unlk R14
475rts
476.globl _sqfield
477.text
478_sqfield:
479~~sqfield:
480link R14,#-4
481*line 273
482move.l #_sq_flds,(sp)
483jsr _curset
484L27:unlk R14
485rts
486.data
Note: See TracBrowser for help on using the repository browser.