source: buchla-68k/alcyon/delpnts.s@ 0170798

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 7.3 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 _curfunc
38.globl _curvce
39.globl _pntsv
40.globl _subj
41.globl _finival
42.globl _fnoff
43.globl _vbufs
44.globl _delpnts
45.text
46_delpnts:
47~~delpnts:
48link R14,#-18
49movem.l R2-R7/R11-R13,-(sp)
50~pp=R13
51~pp1=R12
52~pp2=R11
53~np=R7
54~pt1=R6
55~i=R5
56~pif=R4
57~cf=R3
58~fp=-4
59~vp=-8
60~fpu=-12
61~pt2=-14
62~nmv=-16
63~oldi=-18
64*line 61
65move _curvce,R0
66muls #3938,R0
67add.l #_vbufs,R0
68move.l R0,-8(R14)
69*line 62
70move _curfunc,R0
71muls #12,R0
72add.l -8(R14),R0
73add.l #86,R0
74move.l R0,-4(R14)
75*line 64
76move.l -4(R14),R8
77move.b 5(R8),R0
78ext.w R0
79move R0,R4
80and #255,R4
81*line 65
82move R4,R7
83sub _subj,R7
84*line 66
85move.l -4(R14),R8
86move.b 6(R8),R0
87ext.w R0
88move R0,R6
89and #255,R6
90add _subj,R6
91*line 79
92*line 80
93tst R7
94bgt L2
95*line 80
96move #-1,R0
97bra L1
98*line 81
99L2:
100*line 82
101*line 83
102cmp _subj,R4
103bgt L3
104*line 83
105move #-1,R0
106bra L1
107*line 84
108L3:
109*line 85
110*line 86
111move R4,R0
112sub R7,R0
113bge L4
114*line 86
115move #-1,R0
116bra L1
117*line 87
118L4:
119*line 88
120*line 89
121move R7,R0
122add _subj,R0
123move R4,R1
124add #1,R1
125cmp R1,R0
126blt L5
127*line 89
128move #-1,R0
129bra L1
130*line 90
131L5:
132*line 91
133move R6,R0
134add R7,R0
135move R0,-14(R14)
136*line 92
137move #128,R0
138sub -14(R14),R0
139move R0,-16(R14)
140*line 112
141move #2,(sp)
142jsr _setipl
143move R0,-18(R14)
144*line 114
145move _curvce,R0
146asl #8,R0
147asl #1,R0
148ext.l R0
149add.l #_io_fpu,R0
150add.l #$4000,R0
151move.l R0,-12(R14)
152*line 116
153clr R5
154bra L8
155L9:
156*line 117
157*line 118
158move R5,R0
159muls #12,R0
160add.l -8(R14),R0
161add.l #86,R0
162move.l R0,-4(R14)
163*line 119
164*line 120
165*line 121
166move.l -4(R14),R8
167move.b 7(R8),R0
168ext.w R0
169and #-4,R0
170or #1,R0
171move.l -4(R14),R9
172move.b R0,7(R9)
173move R5,R9
174add.l R9,R9
175add.l #_fnoff,R9
176move (R9),R1
177asl #4,R1
178move R1,R9
179add.l R9,R9
180add.l -12(R14),R9
181move R0,(R9)
182L7:
183*line 116
184add #1,R5
185L8:
186*line 116
187cmp #13,R5
188blt L9
189L6:
190*line 124
191move _curfunc,R0
192muls #12,R0
193add.l -8(R14),R0
194add.l #86,R0
195move.l R0,-4(R14)
196*line 126
197*line 126
198tst _subj
199beq L10
200*line 127
201*line 128
202*line 129
203*line 130
204move R6,R0
205muls #12,R0
206move.l R0,R12
207add.l -8(R14),R12
208add.l #242,R12
209*line 131
210move -14(R14),R0
211muls #12,R0
212move.l R0,R11
213add.l -8(R14),R11
214add.l #242,R11
215*line 132
216*line 133
217move -16(R14),R5
218muls #12,R5
219bra L13
220L14:
221*line 134
222move.b (R11)+,(R12)+
223L12:
224*line 133
225sub #1,R5
226L13:
227*line 133
228tst R5
229bgt L14
230L11:
231*line 134
232*line 135
233*line 136
234*line 137
235*line 138
236move R7,-(sp)
237move.l -8(R14),R8
238move.b 71(R8),R0
239add (sp)+,R0
240move.b R0,71(R8)
241*line 139
242*line 140
243*line 141
244*line 142
245move R7,-(sp)
246move _curfunc,R0
247muls #12,R0
248add.l -8(R14),R0
249move.l R0,R8
250move.b 91(R8),R0
251sub (sp)+,R0
252move.b R0,91(R8)
253*line 143
254*line 144
255*line 145
256*line 146
257move _curfunc,R3
258add #1,R3
259bra L17
260L18:
261*line 147
262move R7,-(sp)
263move R3,R0
264muls #12,R0
265add.l -8(R14),R0
266move.l R0,R8
267move.b 92(R8),R0
268sub (sp)+,R0
269move.b R0,92(R8)
270L16:
271*line 146
272add #1,R3
273L17:
274*line 146
275cmp #13,R3
276blt L18
277L15:
278*line 147
279*line 148
280*line 149
281move -18(R14),(sp)
282jsr _setipl
283*line 150
284*line 151
285move _curfunc,(sp)
286jsr _edfunc
287*line 152
288sub #1,_subj
289*line 153
290*line 154
291bra L19
292L10:
293*line 155
294*line 156
295*line 157
296*line 158
297*line 159
298move.l -4(R14),R8
299move.b 6(R8),R0
300ext.w R0
301muls #12,R0
302move.l R0,R13
303add.l -8(R14),R13
304add.l #242,R13
305*line 160
306*line 161
307move #-32753,(R13)
308*line 162
309move _curfunc,R8
310add.l R8,R8
311add.l #_finival,R8
312move (R8),2(R13)
313*line 163
314clr 4(R13)
315*line 164
316clr.b 6(R13)
317*line 165
318clr.b 7(R13)
319*line 166
320clr.b 8(R13)
321*line 167
322clr.b 9(R13)
323*line 168
324clr.b 10(R13)
325*line 169
326*line 170
327*line 171
328*line 172
329*line 172
330cmp #1,R7
331ble L20
332*line 173
333*line 174
334sub #1,-16(R14)
335*line 175
336add #1,R6
337*line 176
338*line 177
339*line 178
340*line 179
341move R6,R0
342muls #12,R0
343move.l R0,R12
344add.l -8(R14),R12
345add.l #242,R12
346*line 180
347move -14(R14),R0
348muls #12,R0
349move.l R0,R11
350add.l -8(R14),R11
351add.l #242,R11
352*line 181
353*line 182
354move -16(R14),R5
355muls #12,R5
356bra L23
357L24:
358*line 183
359move.b (R11)+,(R12)+
360L22:
361*line 182
362sub #1,R5
363L23:
364*line 182
365tst R5
366bgt L24
367L21:
368*line 183
369*line 184
370*line 185
371*line 186
372*line 187
373move R7,-(sp)
374sub #1,(sp)
375move.l -8(R14),R8
376move.b 71(R8),R0
377add (sp)+,R0
378move.b R0,71(R8)
379*line 188
380*line 189
381*line 190
382*line 191
383move R7,-(sp)
384sub #1,(sp)
385move _curfunc,R0
386muls #12,R0
387add.l -8(R14),R0
388move.l R0,R8
389move.b 91(R8),R0
390sub (sp)+,R0
391move.b R0,91(R8)
392*line 192
393*line 193
394*line 194
395*line 195
396move _curfunc,R3
397add #1,R3
398bra L27
399L28:
400*line 196
401move R7,-(sp)
402sub #1,(sp)
403move R3,R0
404muls #12,R0
405add.l -8(R14),R0
406move.l R0,R8
407move.b 92(R8),R0
408sub (sp)+,R0
409move.b R0,92(R8)
410L26:
411*line 195
412add #1,R3
413L27:
414*line 195
415cmp #13,R3
416blt L28
417L25:
418*line 196
419*line 197
420*line 198
421L20:
422*line 199
423move -18(R14),(sp)
424jsr _setipl
425*line 200
426*line 201
427move _curfunc,(sp)
428jsr _edfunc
429*line 202
430clr _subj
431L19:
432*line 224
433jsr _pntsel
434*line 225
435clr _pntsv
436*line 226
437move #1,(sp)
438jsr _showpt
439*line 227
440jsr _modinst
441*line 229
442clr R0
443bra L1
444L1:tst.l (sp)+
445movem.l (sp)+,R3-R7/R11-R13
446unlk R14
447rts
448.globl _inspnt
449.text
450_inspnt:
451~~inspnt:
452~ip=R13
453~fn=12
454~inpnt=14
455link R14,#-6
456movem.l R2-R7/R11-R13,-(sp)
457~fp1=R12
458~fp2=R11
459~i=R7
460~j=R6
461~k=R5
462~l=R4
463~npts=R3
464~topnt=-2
465~frompt=-4
466~oldi=-6
467*line 250
468move.l 8(R14),R13
469*line 250
470*line 251
471tst.b 71(R13)
472bne L30
473*line 251
474clr R0
475bra L29
476*line 252
477L30:
478*line 253
479*line 254
480move.l R13,R8
481move 12(R14),R1
482muls #12,R1
483add.l R1,R8
484cmp.b #99,91(R8)
485bne L31
486*line 254
487clr R0
488bra L29
489*line 255
490L31:
491*line 256
492move #128,R0
493move.b 71(R13),R1
494ext.w R1
495sub R1,R0
496move R0,-2(R14)
497*line 257
498move -2(R14),R0
499sub #1,R0
500move R0,-4(R14)
501*line 258
502move -4(R14),R3
503sub 14(R14),R3
504*line 259
505move -2(R14),R7
506*line 260
507move -4(R14),R6
508*line 270
509move #2,(sp)
510jsr _setipl
511move R0,-6(R14)
512*line 274
513clr R5
514bra L34
515L35:
516*line 275
517*line 276
518move.l R13,R12
519move R7,R0
520muls #12,R0
521add.l R0,R12
522add.l #242,R12
523sub #1,R7
524*line 277
525move.l R13,R11
526move R6,R0
527muls #12,R0
528add.l R0,R11
529add.l #242,R11
530sub #1,R6
531*line 278
532*line 279
533clr R4
534bra L38
535L39:
536*line 280
537move.b (R11)+,(R12)+
538L37:
539*line 279
540add #1,R4
541L38:
542*line 279
543cmp #12,R4
544blt L39
545L36:
546*line 280
547L33:
548*line 274
549add #1,R5
550L34:
551*line 274
552cmp R3,R5
553blt L35
554L32:
555*line 283
556move 12(R14),R7
557add #1,R7
558bra L42
559L43:
560*line 284
561*line 285
562move.l R13,R8
563move R7,R1
564muls #12,R1
565add.l R1,R8
566add.b #1,92(R8)
567*line 286
568move.l R13,R8
569move R7,R1
570muls #12,R1
571add.l R1,R8
572add.b #1,94(R8)
573L41:
574*line 283
575add #1,R7
576L42:
577*line 283
578cmp #13,R7
579blt L43
580L40:
581*line 289
582move -6(R14),(sp)
583jsr _setipl
584*line 293
585move.l R13,R8
586move 12(R14),R1
587muls #12,R1
588add.l R1,R8
589add.b #1,91(R8)
590*line 294
591sub.b #1,71(R13)
592*line 302
593move #1,R0
594bra L29
595L29:tst.l (sp)+
596movem.l (sp)+,R3-R7/R11-R13
597unlk R14
598rts
599.data
Note: See TracBrowser for help on using the repository browser.