source: buchla-68k/alcyon/etimlt.s@ 3f2d518

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

Added Alcyon C reference output.

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