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