source:
buchla-68k/alcyon/im700.s@
0580615
Last change on this file since 0580615 was 7bf3856, checked in by , 7 years ago | |
---|---|
|
|
File size: 28.4 KB |
Line | |
---|---|
1 | .globl _QQsw |
2 | .globl _QQanch |
3 | .globl _QQin |
4 | .globl _QQip |
5 | .globl _QQop |
6 | .globl _QQnum |
7 | .globl _QQlnum |
8 | .globl _QQchr |
9 | .globl _QQdig |
10 | .globl _QQstr |
11 | .globl _lcdx |
12 | .globl _lcdy |
13 | .globl _lcdbit |
14 | .globl _lcdrow |
15 | .globl _lcdcol |
16 | .globl _lcdbase |
17 | .globl _lcdctl1 |
18 | .globl _lcdctl2 |
19 | .globl _io_time |
20 | .globl _io_lcd |
21 | .globl _io_ser |
22 | .globl _io_midi |
23 | .globl _io_disk |
24 | .globl _io_tone |
25 | .globl _io_leds |
26 | .globl _io_kbrd |
27 | .globl _lcd_a0 |
28 | .globl _lcd_a1 |
29 | .globl _io_vreg |
30 | .globl _io_vraw |
31 | .globl _io_vram |
32 | .globl _io_fpu |
33 | .globl _v_regs |
34 | .globl _v_odtab |
35 | .globl _v_actab |
36 | .globl _v_ct0 |
37 | .globl _v_gt1 |
38 | .globl _v_score |
39 | .globl _v_cgtab |
40 | .globl _v_curs0 |
41 | .globl _v_curs1 |
42 | .globl _v_curs2 |
43 | .globl _v_curs3 |
44 | .globl _v_curs4 |
45 | .globl _v_curs5 |
46 | .globl _v_curs6 |
47 | .globl _v_curs7 |
48 | .globl _v_tcur |
49 | .globl _v_kbobj |
50 | .globl _v_lnobj |
51 | .globl _v_win0 |
52 | .globl _v_cur |
53 | .globl _fc_sw |
54 | .globl _fc_val |
55 | .globl _timers |
56 | .globl _v_obtab |
57 | .globl _v_curob |
58 | .globl _v_nobj |
59 | .globl _v_obpri |
60 | .globl _ac_code |
61 | .globl _scname |
62 | .globl _se_chg |
63 | .globl _curscor |
64 | .globl _cursect |
65 | .globl _se1_cnt |
66 | .globl _se2_cnt |
67 | .globl _se3_cnt |
68 | .globl _spool |
69 | .globl _pspool |
70 | .globl _spcount |
71 | .globl _frags |
72 | .globl _t_bak |
73 | .globl _t_cur |
74 | .globl _t_ctr |
75 | .globl _t_fwd |
76 | .globl _size1 |
77 | .globl _size2 |
78 | .globl _size3 |
79 | .globl _scores |
80 | .globl _scp |
81 | .globl _seclist |
82 | .globl _hplist |
83 | .globl _p_bak |
84 | .globl _p_cur |
85 | .globl _p_ctr |
86 | .globl _p_fwd |
87 | .globl _blakpal |
88 | .globl _t_prmtr |
89 | .globl _funcndx |
90 | .globl _keystat |
91 | .globl _ldcmnt |
92 | .globl _ldfile |
93 | .globl _loadedc |
94 | .globl _loadedf |
95 | .globl _masens |
96 | .globl _mctlval |
97 | .globl _mdbyte |
98 | .globl _mpsust |
99 | .globl _mrstat |
100 | .globl _trgtab |
101 | .globl _fnoff |
102 | .globl _articen |
103 | .globl _grpmode |
104 | .globl _grpsel |
105 | .globl _grpstat |
106 | .globl _gtctab |
107 | .globl _lastvce |
108 | .globl _lastvel |
109 | .globl _mpbend |
110 | .globl _msmstv |
111 | .globl _prstab |
112 | .globl _vce2trg |
113 | .globl _veltab |
114 | .globl _oldsw |
115 | .globl _swpt |
116 | .globl _curmove |
117 | .globl _curtype |
118 | .globl _cx_key |
119 | .globl _cx_upd |
120 | .globl _cy_key |
121 | .globl _cy_upd |
122 | .globl _d_key |
123 | .globl _e_key |
124 | .globl _m_key |
125 | .globl _not_fld |
126 | .globl _premove |
127 | .globl _pstmove |
128 | .globl _x_key |
129 | .globl _xy_dn |
130 | .globl _xy_up |
131 | .globl _cratex |
132 | .globl _cratey |
133 | .globl _admctl |
134 | .comm _admctl,2 |
135 | .globl _adnamsw |
136 | .comm _adnamsw,2 |
137 | .globl _aflag |
138 | .comm _aflag,2 |
139 | .globl _aform |
140 | .comm _aform,2 |
141 | .globl _amplval |
142 | .comm _amplval,2 |
143 | .globl _ancmsw |
144 | .comm _ancmsw,2 |
145 | .globl _angroup |
146 | .comm _angroup,2 |
147 | .globl _asgfks |
148 | .comm _asgfks,2 |
149 | .globl _asghit |
150 | .comm _asghit,2 |
151 | .globl _asgmod |
152 | .comm _asgmod,2 |
153 | .globl _asig |
154 | .comm _asig,2 |
155 | .globl _asmode |
156 | .comm _asmode,2 |
157 | .globl _astat |
158 | .comm _astat,2 |
159 | .globl _auxctl |
160 | .comm _auxctl,2 |
161 | .globl _aval |
162 | .comm _aval,2 |
163 | .globl _bform |
164 | .comm _bform,2 |
165 | .globl _catin |
166 | .comm _catin,2 |
167 | .globl _cents |
168 | .comm _cents,2 |
169 | .globl _chtime |
170 | .comm _chtime,2 |
171 | .globl _chwait |
172 | .comm _chwait,2 |
173 | .globl _cflag |
174 | .comm _cflag,2 |
175 | .globl _clkctl |
176 | .comm _clkctl,2 |
177 | .globl _clkrun |
178 | .comm _clkrun,2 |
179 | .globl _clksrc |
180 | .comm _clksrc,2 |
181 | .globl _cmfirst |
182 | .comm _cmfirst,2 |
183 | .globl _cmtype |
184 | .comm _cmtype,2 |
185 | .globl _cnote |
186 | .comm _cnote,2 |
187 | .globl _ctrsw |
188 | .comm _ctrsw,2 |
189 | .globl _curasg |
190 | .comm _curasg,2 |
191 | .globl _curfunc |
192 | .comm _curfunc,2 |
193 | .globl _curgrp |
194 | .comm _curgrp,2 |
195 | .globl _curinst |
196 | .comm _curinst,2 |
197 | .globl _curmop |
198 | .comm _curmop,2 |
199 | .globl _curpnt |
200 | .comm _curpnt,2 |
201 | .globl _curpos |
202 | .comm _curpos,2 |
203 | .globl _cursbox |
204 | .comm _cursbox,2 |
205 | .globl _curscor |
206 | .comm _curscor,2 |
207 | .globl _cursect |
208 | .comm _cursect,2 |
209 | .globl _curslim |
210 | .comm _curslim,2 |
211 | .globl _curtun |
212 | .comm _curtun,2 |
213 | .globl _curvce |
214 | .comm _curvce,2 |
215 | .globl _curwave |
216 | .comm _curwave,2 |
217 | .globl _curwdth |
218 | .comm _curwdth,2 |
219 | .globl _curwfnl |
220 | .comm _curwfnl,2 |
221 | .globl _curwhrm |
222 | .comm _curwhrm,2 |
223 | .globl _curwhrv |
224 | .comm _curwhrv,2 |
225 | .globl _curwoff |
226 | .comm _curwoff,2 |
227 | .globl _curwpnt |
228 | .comm _curwpnt,2 |
229 | .globl _curwslt |
230 | .comm _curwslt,2 |
231 | .globl _cvtime |
232 | .comm _cvtime,2 |
233 | .globl _cvwait |
234 | .comm _cvwait,2 |
235 | .globl _cxrate |
236 | .comm _cxrate,2 |
237 | .globl _cxval |
238 | .comm _cxval,2 |
239 | .globl _cyrate |
240 | .comm _cyrate,2 |
241 | .globl _cyval |
242 | .comm _cyval,2 |
243 | .globl _debugne |
244 | .comm _debugne,2 |
245 | .globl _defect |
246 | .comm _defect,2 |
247 | .globl _dferror |
248 | .comm _dferror,2 |
249 | .globl _dfsides |
250 | .comm _dfsides,2 |
251 | .globl _dftype |
252 | .comm _dftype,2 |
253 | .globl _dsp_ok |
254 | .comm _dsp_ok,2 |
255 | .globl _dubsw |
256 | .comm _dubsw,2 |
257 | .globl _ebflag |
258 | .comm _ebflag,2 |
259 | .globl _editss |
260 | .comm _editss,2 |
261 | .globl _editsw |
262 | .comm _editsw,2 |
263 | .globl _endflg |
264 | .comm _endflg,2 |
265 | .globl _ext_cv1 |
266 | .comm _ext_cv1,2 |
267 | .globl _ext_cv2 |
268 | .comm _ext_cv2,2 |
269 | .globl _ext_cv3 |
270 | .comm _ext_cv3,2 |
271 | .globl _ext_cv4 |
272 | .comm _ext_cv4,2 |
273 | .globl _ext_mod |
274 | .comm _ext_mod,2 |
275 | .globl _gomode |
276 | .comm _gomode,2 |
277 | .globl _grptran |
278 | .comm _grptran,2 |
279 | .globl _gtmsel |
280 | .comm _gtmsel,2 |
281 | .globl _hitbox |
282 | .comm _hitbox,2 |
283 | .globl _hitcx |
284 | .comm _hitcx,2 |
285 | .globl _hitcy |
286 | .comm _hitcy,2 |
287 | .globl _idcfsw |
288 | .comm _idcfsw,2 |
289 | .globl _idimsw |
290 | .comm _idimsw,2 |
291 | .globl _idintmp |
292 | .comm _idintmp,2 |
293 | .globl _idnamsw |
294 | .comm _idnamsw,2 |
295 | .globl _idsrcsw |
296 | .comm _idsrcsw,2 |
297 | .globl _idtdat |
298 | .comm _idtdat,2 |
299 | .globl _imflag |
300 | .comm _imflag,2 |
301 | .globl _initcfg |
302 | .comm _initcfg,2 |
303 | .globl _insmode |
304 | .comm _insmode,2 |
305 | .globl _ismode |
306 | .comm _ismode,2 |
307 | .globl _lampio |
308 | .comm _lampio,2 |
309 | .globl _lampsw |
310 | .comm _lampsw,2 |
311 | .globl _lasgsw |
312 | .comm _lasgsw,2 |
313 | .globl _lastam |
314 | .comm _lastam,2 |
315 | .globl _ldelsw |
316 | .comm _ldelsw,2 |
317 | .globl _lderrsw |
318 | .comm _lderrsw,2 |
319 | .globl _ldidsiz |
320 | .comm _ldidsiz,2 |
321 | .globl _ldkind |
322 | .comm _ldkind,2 |
323 | .globl _ldpass |
324 | .comm _ldpass,2 |
325 | .globl _ldrow |
326 | .comm _ldrow,2 |
327 | .globl _ldslot |
328 | .comm _ldslot,2 |
329 | .globl _legato |
330 | .comm _legato,2 |
331 | .globl _lksel |
332 | .comm _lksel,2 |
333 | .globl _lmwtype |
334 | .comm _lmwtype,2 |
335 | .globl _loadrow |
336 | .comm _loadrow,2 |
337 | .globl _loadsw |
338 | .comm _loadsw,2 |
339 | .globl _lorchl |
340 | .comm _lorchl,2 |
341 | .globl _lorchsw |
342 | .comm _lorchsw,2 |
343 | .globl _lorclsw |
344 | .comm _lorclsw,2 |
345 | .globl _lpatsw |
346 | .comm _lpatsw,2 |
347 | .globl _lrasw |
348 | .comm _lrasw,2 |
349 | .globl _lscrsw |
350 | .comm _lscrsw,2 |
351 | .globl _lselsw |
352 | .comm _lselsw,2 |
353 | .globl _lseqsw |
354 | .comm _lseqsw,2 |
355 | .globl _lstbgnc |
356 | .comm _lstbgnc,2 |
357 | .globl _lstendc |
358 | .comm _lstendc,2 |
359 | .globl _lstflag |
360 | .comm _lstflag,2 |
361 | .globl _lstrsw |
362 | .comm _lstrsw,2 |
363 | .globl _lstwoff |
364 | .comm _lstwoff,2 |
365 | .globl _lstwpnt |
366 | .comm _lstwpnt,2 |
367 | .globl _ltagged |
368 | .comm _ltagged,2 |
369 | .globl _ltunsw |
370 | .comm _ltunsw,2 |
371 | .globl _lwavsw |
372 | .comm _lwavsw,2 |
373 | .globl _mascntr |
374 | .comm _mascntr,2 |
375 | .globl _mdb1 |
376 | .comm _mdb1,2 |
377 | .globl _mdb2 |
378 | .comm _mdb2,2 |
379 | .globl _michan |
380 | .comm _michan,2 |
381 | .globl _midiclk |
382 | .comm _midiclk,2 |
383 | .globl _midigo |
384 | .comm _midigo,2 |
385 | .globl _mistat |
386 | .comm _mistat,2 |
387 | .globl _nchwait |
388 | .comm _nchwait,2 |
389 | .globl _ncvwait |
390 | .comm _ncvwait,2 |
391 | .globl _ndisp |
392 | .comm _ndisp,2 |
393 | .globl _newflag |
394 | .comm _newflag,2 |
395 | .globl _nkdown |
396 | .comm _nkdown,2 |
397 | .globl _notenum |
398 | .comm _notenum,2 |
399 | .globl _noteop |
400 | .comm _noteop,2 |
401 | .globl _notepit |
402 | .comm _notepit,2 |
403 | .globl _notesel |
404 | .comm _notesel,2 |
405 | .globl _npts |
406 | .comm _npts,2 |
407 | .globl _nxtflag |
408 | .comm _nxtflag,2 |
409 | .globl _oldltag |
410 | .comm _oldltag,2 |
411 | .globl _oldpk |
412 | .comm _oldpk,2 |
413 | .globl _oldsl |
414 | .comm _oldsl,2 |
415 | .globl _pchsw |
416 | .comm _pchsw,2 |
417 | .globl _pecase |
418 | .comm _pecase,2 |
419 | .globl _pkctrl |
420 | .comm _pkctrl,2 |
421 | .globl _pntsv |
422 | .comm _pntsv,2 |
423 | .globl _prgchan |
424 | .comm _prgchan,2 |
425 | .globl _ps_dpth |
426 | .comm _ps_dpth,2 |
427 | .globl _ps_intn |
428 | .comm _ps_intn,2 |
429 | .globl _ps_rate |
430 | .comm _ps_rate,2 |
431 | .globl _pulsclk |
432 | .comm _pulsclk,2 |
433 | .globl _recsw |
434 | .comm _recsw,2 |
435 | .globl _runit |
436 | .comm _runit,2 |
437 | .globl _sbase |
438 | .comm _sbase,2 |
439 | .globl _scmctl |
440 | .comm _scmctl,2 |
441 | .globl _scrlpot |
442 | .comm _scrlpot,2 |
443 | .globl _sd |
444 | .comm _sd,2 |
445 | .globl _se |
446 | .comm _se,2 |
447 | .globl _sdmcol |
448 | .comm _sdmcol,2 |
449 | .globl _sdmctl |
450 | .comm _sdmctl,2 |
451 | .globl _sdmrow |
452 | .comm _sdmrow,2 |
453 | .globl _secop |
454 | .comm _secop,2 |
455 | .globl _secopok |
456 | .comm _secopok,2 |
457 | .globl _sgcsw |
458 | .comm _sgcsw,2 |
459 | .globl _sgoflag |
460 | .comm _sgoflag,2 |
461 | .globl _sharp |
462 | .comm _sharp,2 |
463 | .globl _sliders |
464 | .comm _sliders,2 |
465 | .globl _soffset |
466 | .comm _soffset,2 |
467 | .globl _ss_ptsw |
468 | .comm _ss_ptsw,2 |
469 | .globl _ss_sqsw |
470 | .comm _ss_sqsw,2 |
471 | .globl _stccol |
472 | .comm _stccol,2 |
473 | .globl _stcrow |
474 | .comm _stcrow,2 |
475 | .globl _stepclk |
476 | .comm _stepclk,2 |
477 | .globl _stepenb |
478 | .comm _stepenb,2 |
479 | .globl _stepint |
480 | .comm _stepint,2 |
481 | .globl _stepwgt |
482 | .comm _stepwgt,2 |
483 | .globl _subj |
484 | .comm _subj,2 |
485 | .globl _submenu |
486 | .comm _submenu,2 |
487 | .globl _swctrl |
488 | .comm _swctrl,2 |
489 | .globl _swdelta |
490 | .comm _swdelta,2 |
491 | .globl _swdir |
492 | .comm _swdir,2 |
493 | .globl _swfiin |
494 | .comm _swfiin,2 |
495 | .globl _swflag |
496 | .comm _swflag,2 |
497 | .globl _swlast |
498 | .comm _swlast,2 |
499 | .globl _swstop |
500 | .comm _swstop,2 |
501 | .globl _swndx |
502 | .comm _swndx,2 |
503 | .globl _tagslot |
504 | .comm _tagslot,2 |
505 | .globl _tdnamsw |
506 | .comm _tdnamsw,2 |
507 | .globl _temax |
508 | .comm _temax,2 |
509 | .globl _temin |
510 | .comm _temin,2 |
511 | .globl _testing |
512 | .comm _testing,2 |
513 | .globl _tglclk |
514 | .comm _tglclk,2 |
515 | .globl _tglpch |
516 | .comm _tglpch,2 |
517 | .globl _thescore |
518 | .comm _thescore,2 |
519 | .globl _timemlt |
520 | .comm _timemlt,2 |
521 | .globl _tkctrl |
522 | .comm _tkctrl,2 |
523 | .globl _tmpomlt |
524 | .comm _tmpomlt,2 |
525 | .globl _tmpoval |
526 | .comm _tmpoval,2 |
527 | .globl _trkball |
528 | .comm _trkball,2 |
529 | .globl _ttcmdsv |
530 | .comm _ttcmdsv,2 |
531 | .globl _ttsel1 |
532 | .comm _ttsel1,2 |
533 | .globl _ttsel2 |
534 | .comm _ttsel2,2 |
535 | .globl _ttsel3 |
536 | .comm _ttsel3,2 |
537 | .globl _tuneval |
538 | .comm _tuneval,2 |
539 | .globl _tunmod |
540 | .comm _tunmod,2 |
541 | .globl _tunval |
542 | .comm _tunval,2 |
543 | .globl _txfiin |
544 | .comm _txfiin,2 |
545 | .globl _txflag |
546 | .comm _txflag,2 |
547 | .globl _txlast |
548 | .comm _txlast,2 |
549 | .globl _txstop |
550 | .comm _txstop,2 |
551 | .globl _tyfiin |
552 | .comm _tyfiin,2 |
553 | .globl _tyflag |
554 | .comm _tyflag,2 |
555 | .globl _tylast |
556 | .comm _tylast,2 |
557 | .globl _tystop |
558 | .comm _tystop,2 |
559 | .globl _velflag |
560 | .comm _velflag,2 |
561 | .globl _verbose |
562 | .comm _verbose,2 |
563 | .globl _vlbtype |
564 | .comm _vlbtype,2 |
565 | .globl _vrbw08 |
566 | .comm _vrbw08,2 |
567 | .globl _vrbw09 |
568 | .comm _vrbw09,2 |
569 | .globl _vrbw10 |
570 | .comm _vrbw10,2 |
571 | .globl _vrbw11 |
572 | .comm _vrbw11,2 |
573 | .globl _vrbw12 |
574 | .comm _vrbw12,2 |
575 | .globl _vrbw13 |
576 | .comm _vrbw13,2 |
577 | .globl _vrbw14 |
578 | .comm _vrbw14,2 |
579 | .globl _vrbw15 |
580 | .comm _vrbw15,2 |
581 | .globl _vrcw |
582 | .comm _vrcw,2 |
583 | .globl _vtccol |
584 | .comm _vtccol,2 |
585 | .globl _vtcrow |
586 | .comm _vtcrow,2 |
587 | .globl _vtdechr |
588 | .comm _vtdechr,2 |
589 | .globl _vtdecol |
590 | .comm _vtdecol,2 |
591 | .globl _vtpcol |
592 | .comm _vtpcol,2 |
593 | .globl _vtprow |
594 | .comm _vtprow,2 |
595 | .globl _vtwcol |
596 | .comm _vtwcol,2 |
597 | .globl _vtwrow |
598 | .comm _vtwrow,2 |
599 | .globl _vtxval |
600 | .comm _vtxval,2 |
601 | .globl _vtyval |
602 | .comm _vtyval,2 |
603 | .globl _wcflag |
604 | .comm _wcflag,2 |
605 | .globl _wcmcol |
606 | .comm _wcmcol,2 |
607 | .globl _wcmrow |
608 | .comm _wcmrow,2 |
609 | .globl _wcpage |
610 | .comm _wcpage,2 |
611 | .globl _wdupdfl |
612 | .comm _wdupdfl,2 |
613 | .globl _wmcsel |
614 | .comm _wmcsel,2 |
615 | .globl _wmctag |
616 | .comm _wmctag,2 |
617 | .globl _wplast |
618 | .comm _wplast,2 |
619 | .globl _wpntsv |
620 | .comm _wpntsv,2 |
621 | .globl _wshmax |
622 | .comm _wshmax,2 |
623 | .globl _wvlast |
624 | .comm _wvlast,2 |
625 | .globl _xkcount |
626 | .comm _xkcount,2 |
627 | .globl _xkstat |
628 | .comm _xkstat,2 |
629 | .globl _xycntr |
630 | .comm _xycntr,2 |
631 | .globl _ykcount |
632 | .comm _ykcount,2 |
633 | .globl _ykstat |
634 | .comm _ykstat,2 |
635 | .globl _anrs |
636 | .comm _anrs,256 |
637 | .globl _grp2prt |
638 | .comm _grp2prt,48 |
639 | .globl _sctctab |
640 | .comm _sctctab,1280 |
641 | .globl _sigtab |
642 | .comm _sigtab,512 |
643 | .globl _tunlib |
644 | .comm _tunlib,2560 |
645 | .globl _varmode |
646 | .comm _varmode,256 |
647 | .globl _wsnmod |
648 | .comm _wsnmod,48 |
649 | .globl _mphead |
650 | .comm _mphead,28 |
651 | .globl _cfetp |
652 | .comm _cfetp,4 |
653 | .globl _curfet |
654 | .comm _curfet,4 |
655 | .globl _infetp |
656 | .comm _infetp,4 |
657 | .globl _gdfsep |
658 | .comm _gdfsep,4 |
659 | .globl _pntptr |
660 | .comm _pntptr,4 |
661 | .globl _ldhead |
662 | .comm _ldhead,56 |
663 | .globl _nefree |
664 | .comm _nefree,4 |
665 | .globl _nelist |
666 | .comm _nelist,4 |
667 | .globl _adoct |
668 | .comm _adoct,4 |
669 | .globl _ldoct |
670 | .comm _ldoct,4 |
671 | .globl _mdoct |
672 | .comm _mdoct,4 |
673 | .globl _tdoct |
674 | .comm _tdoct,4 |
675 | .globl _wdoct |
676 | .comm _wdoct,4 |
677 | .globl _idoct |
678 | .comm _idoct,4 |
679 | .globl _pflist |
680 | .comm _pflist,4 |
681 | .globl _pfqhdr |
682 | .comm _pfqhdr,4 |
683 | .globl _libsp |
684 | .comm _libsp,4 |
685 | .globl _peg |
686 | .comm _peg,4 |
687 | .globl _size1 |
688 | .comm _size1,4 |
689 | .globl _size2 |
690 | .comm _size2,4 |
691 | .globl _size3 |
692 | .comm _size3,4 |
693 | .globl _csbp |
694 | .comm _csbp,4 |
695 | .globl _curboxp |
696 | .comm _curboxp,4 |
697 | .globl _p_bak |
698 | .comm _p_bak,4 |
699 | .globl _p_cbgn |
700 | .comm _p_cbgn,4 |
701 | .globl _p_cend |
702 | .comm _p_cend,4 |
703 | .globl _p_cur |
704 | .comm _p_cur,4 |
705 | .globl _p_ctr |
706 | .comm _p_ctr,4 |
707 | .globl _p_fwd |
708 | .comm _p_fwd,4 |
709 | .globl _p_nbeg |
710 | .comm _p_nbeg,4 |
711 | .globl _p_nend |
712 | .comm _p_nend,4 |
713 | .globl _p_sbgn |
714 | .comm _p_sbgn,4 |
715 | .globl _p_sec1 |
716 | .comm _p_sec1,4 |
717 | .globl _p_sec2 |
718 | .comm _p_sec2,4 |
719 | .globl _p_send |
720 | .comm _p_send,4 |
721 | .globl _scp |
722 | .comm _scp,4 |
723 | .globl _asgtab |
724 | .comm _asgtab,33200 |
725 | .globl _filecat |
726 | .comm _filecat,1120 |
727 | .globl _gdstbc |
728 | .comm _gdstbc,68 |
729 | .globl _gdstbn |
730 | .comm _gdstbn,68 |
731 | .globl _gdstbp |
732 | .comm _gdstbp,68 |
733 | .globl _gdfsl |
734 | .comm _gdfsl,2048 |
735 | .globl _idefs |
736 | .comm _idefs,161458 |
737 | .globl _lstbgns |
738 | .comm _lstbgns,192 |
739 | .globl _lstends |
740 | .comm _lstends,192 |
741 | .globl _vbufs |
742 | .comm _vbufs,47256 |
743 | .globl _nevents |
744 | .comm _nevents,256 |
745 | .globl _pfents |
746 | .comm _pfents,10752 |
747 | .globl _sindex |
748 | .comm _sindex,400 |
749 | .globl _vpsms |
750 | .comm _vpsms,768 |
751 | .globl _sments |
752 | .comm _sments,2304 |
753 | .globl _valents |
754 | .comm _valents,1920 |
755 | .globl _wslib |
756 | .comm _wslib,21600 |
757 | .globl _scores |
758 | .comm _scores,80 |
759 | .globl _stimes |
760 | .comm _stimes,4800 |
761 | .globl _hplist |
762 | .comm _hplist,960 |
763 | .globl _seclist |
764 | .comm _seclist,1600 |
765 | .globl _asgob |
766 | .comm _asgob,4 |
767 | .globl _consl |
768 | .comm _consl,4 |
769 | .globl _cursl |
770 | .comm _cursl,4 |
771 | .globl _instob |
772 | .comm _instob,4 |
773 | .globl _librob |
774 | .comm _librob,4 |
775 | .globl _menuob |
776 | .comm _menuob,4 |
777 | .globl _nxtsl |
778 | .comm _nxtsl,4 |
779 | .globl _obj0 |
780 | .comm _obj0,4 |
781 | .globl _obj1 |
782 | .comm _obj1,4 |
783 | .globl _obj2 |
784 | .comm _obj2,4 |
785 | .globl _obj3 |
786 | .comm _obj3,4 |
787 | .globl _obj4 |
788 | .comm _obj4,4 |
789 | .globl _obj5 |
790 | .comm _obj5,4 |
791 | .globl _obj6 |
792 | .comm _obj6,4 |
793 | .globl _obj7 |
794 | .comm _obj7,4 |
795 | .globl _obj8 |
796 | .comm _obj8,4 |
797 | .globl _obj9 |
798 | .comm _obj9,4 |
799 | .globl _obj10 |
800 | .comm _obj10,4 |
801 | .globl _obj11 |
802 | .comm _obj11,4 |
803 | .globl _obj12 |
804 | .comm _obj12,4 |
805 | .globl _obj13 |
806 | .comm _obj13,4 |
807 | .globl _obj14 |
808 | .comm _obj14,4 |
809 | .globl _obj15 |
810 | .comm _obj15,4 |
811 | .globl _prvsl |
812 | .comm _prvsl,4 |
813 | .globl _saddr |
814 | .comm _saddr,4 |
815 | .globl _tunob |
816 | .comm _tunob,4 |
817 | .globl _vtobj |
818 | .comm _vtobj,4 |
819 | .globl _waveob |
820 | .comm _waveob,4 |
821 | .globl _curintp |
822 | .comm _curintp,2 |
823 | .globl _scrl |
824 | .comm _scrl,2 |
825 | .globl _vtbgval |
826 | .comm _vtbgval,2 |
827 | .globl _vtfgval |
828 | .comm _vtfgval,2 |
829 | .globl _dfbuf |
830 | .comm _dfbuf,8192 |
831 | .globl _slices |
832 | .comm _slices,1792 |
833 | .globl _debugsw |
834 | .data |
835 | _debugsw: |
836 | .dc.w $0 |
837 | .globl _swback |
838 | .data |
839 | _swback: |
840 | .dc.w $A |
841 | .globl _swthr |
842 | .data |
843 | _swthr: |
844 | .dc.w $4 |
845 | .globl _swtime |
846 | .data |
847 | _swtime: |
848 | .dc.w $A |
849 | .globl _swwait |
850 | .data |
851 | _swwait: |
852 | .dc.w $2 |
853 | .globl _tkback |
854 | .data |
855 | _tkback: |
856 | .dc.w $8 |
857 | .globl _tkrmin |
858 | .data |
859 | _tkrmin: |
860 | .dc.w $6 |
861 | .globl _tkthr |
862 | .data |
863 | _tkthr: |
864 | .dc.w $3 |
865 | .globl _tktime |
866 | .data |
867 | _tktime: |
868 | .dc.w $A |
869 | .globl _tkwait |
870 | .data |
871 | _tkwait: |
872 | .dc.w $2 |
873 | .globl _curhold |
874 | .data |
875 | _curhold: |
876 | .dc.w $12C |
877 | .globl _hcwval |
878 | .data |
879 | _hcwval: |
880 | .dc.w $1E |
881 | .globl _thcwval |
882 | .data |
883 | _thcwval: |
884 | .dc.w $3C |
885 | .globl _tvcwval |
886 | .data |
887 | _tvcwval: |
888 | .dc.w $78 |
889 | .globl _vcwval |
890 | .data |
891 | _vcwval: |
892 | .dc.w $1E |
893 | .globl _tmultab |
894 | .data |
895 | _tmultab: |
896 | .dc.w $FFFF |
897 | .dc.w $FAFA |
898 | .dc.w $F627 |
899 | .dc.w $F182 |
900 | .dc.w $ED09 |
901 | .dc.w $E8BA |
902 | .dc.w $E492 |
903 | .dc.w $E08F |
904 | .dc.w $DCB0 |
905 | .dc.w $D8F2 |
906 | .dc.w $D555 |
907 | .dc.w $D1D6 |
908 | .dc.w $CE73 |
909 | .dc.w $CB2C |
910 | .dc.w $C800 |
911 | .dc.w $C4EC |
912 | .dc.w $C1F0 |
913 | .dc.w $BF0B |
914 | .dc.w $BC3C |
915 | .dc.w $B981 |
916 | .dc.w $B6DB |
917 | .dc.w $B448 |
918 | .dc.w $B1C7 |
919 | .dc.w $AF57 |
920 | .dc.w $ACF9 |
921 | .dc.w $AAAA |
922 | .dc.w $A86B |
923 | .dc.w $A63B |
924 | .dc.w $A41A |
925 | .dc.w $A206 |
926 | .dc.w $A000 |
927 | .dc.w $9E06 |
928 | .dc.w $9C18 |
929 | .dc.w $9A37 |
930 | .dc.w $9861 |
931 | .dc.w $9696 |
932 | .dc.w $94D6 |
933 | .dc.w $9320 |
934 | .dc.w $9174 |
935 | .dc.w $8FD1 |
936 | .dc.w $8E38 |
937 | .dc.w $8CA8 |
938 | .dc.w $8B21 |
939 | .dc.w $89A2 |
940 | .dc.w $882B |
941 | .dc.w $86BC |
942 | .dc.w $8555 |
943 | .dc.w $83F5 |
944 | .dc.w $829C |
945 | .dc.w $814A |
946 | .dc.w $8000 |
947 | .dc.w $7EBB |
948 | .dc.w $7D7D |
949 | .dc.w $7C45 |
950 | .dc.w $7B13 |
951 | .dc.w $79E7 |
952 | .dc.w $78C1 |
953 | .dc.w $77A0 |
954 | .dc.w $7684 |
955 | .dc.w $756E |
956 | .dc.w $745D |
957 | .dc.w $7350 |
958 | .dc.w $7249 |
959 | .dc.w $7146 |
960 | .dc.w $7047 |
961 | .dc.w $6F4D |
962 | .dc.w $6E58 |
963 | .dc.w $6D66 |
964 | .dc.w $6C79 |
965 | .dc.w $6B90 |
966 | .dc.w $6AAA |
967 | .dc.w $69C8 |
968 | .dc.w $68EB |
969 | .dc.w $6810 |
970 | .dc.w $6739 |
971 | .dc.w $6666 |
972 | .dc.w $6596 |
973 | .dc.w $64C9 |
974 | .dc.w $6400 |
975 | .dc.w $6339 |
976 | .dc.w $6276 |
977 | .dc.w $61B5 |
978 | .dc.w $60F8 |
979 | .dc.w $603D |
980 | .dc.w $5F85 |
981 | .dc.w $5ED0 |
982 | .dc.w $5E1E |
983 | .dc.w $5D6E |
984 | .dc.w $5CC0 |
985 | .dc.w $5C16 |
986 | .dc.w $5B6D |
987 | .dc.w $5AC7 |
988 | .dc.w $5A24 |
989 | .dc.w $5982 |
990 | .dc.w $58E3 |
991 | .dc.w $5846 |
992 | .dc.w $57AB |
993 | .dc.w $5713 |
994 | .dc.w $567C |
995 | .dc.w $55E7 |
996 | .dc.w $5555 |
997 | .globl _crate0 |
998 | .data |
999 | _crate0: |
1000 | .dc.w $0 |
1001 | .dc.w $0 |
1002 | .dc.w $0 |
1003 | .dc.w $0 |
1004 | .dc.w $0 |
1005 | .dc.w $0 |
1006 | .dc.w $0 |
1007 | .dc.w $0 |
1008 | .dc.w $0 |
1009 | .dc.w $0 |
1010 | .dc.w $0 |
1011 | .dc.w $0 |
1012 | .dc.w $1 |
1013 | .dc.w $1 |
1014 | .dc.w $1 |
1015 | .dc.w $1 |
1016 | .dc.w $1 |
1017 | .dc.w $1 |
1018 | .dc.w $1 |
1019 | .dc.w $1 |
1020 | .dc.w $1 |
1021 | .dc.w $1 |
1022 | .dc.w $1 |
1023 | .dc.w $1 |
1024 | .dc.w $1 |
1025 | .dc.w $1 |
1026 | .dc.w $1 |
1027 | .dc.w $1 |
1028 | .dc.w $1 |
1029 | .dc.w $1 |
1030 | .dc.w $1 |
1031 | .dc.w $1 |
1032 | .dc.w $1 |
1033 | .dc.w $1 |
1034 | .dc.w $1 |
1035 | .dc.w $1 |
1036 | .dc.w $1 |
1037 | .dc.w $1 |
1038 | .dc.w $1 |
1039 | .dc.w $1 |
1040 | .dc.w $1 |
1041 | .dc.w $1 |
1042 | .dc.w $1 |
1043 | .dc.w $1 |
1044 | .dc.w $1 |
1045 | .dc.w $1 |
1046 | .dc.w $1 |
1047 | .dc.w $1 |
1048 | .dc.w $1 |
1049 | .dc.w $1 |
1050 | .dc.w $1 |
1051 | .dc.w $1 |
1052 | .dc.w $1 |
1053 | .dc.w $1 |
1054 | .dc.w $1 |
1055 | .dc.w $1 |
1056 | .dc.w $1 |
1057 | .dc.w $1 |
1058 | .dc.w $1 |
1059 | .dc.w $1 |
1060 | .dc.w $1 |
1061 | .dc.w $1 |
1062 | .dc.w $1 |
1063 | .dc.w $1 |
1064 | .globl _crate1 |
1065 | .data |
1066 | _crate1: |
1067 | .dc.w $0 |
1068 | .dc.w $0 |
1069 | .dc.w $0 |
1070 | .dc.w $0 |
1071 | .dc.w $0 |
1072 | .dc.w $0 |
1073 | .dc.w $0 |
1074 | .dc.w $0 |
1075 | .dc.w $1 |
1076 | .dc.w $1 |
1077 | .dc.w $1 |
1078 | .dc.w $1 |
1079 | .dc.w $1 |
1080 | .dc.w $1 |
1081 | .dc.w $1 |
1082 | .dc.w $1 |
1083 | .dc.w $3 |
1084 | .dc.w $3 |
1085 | .dc.w $3 |
1086 | .dc.w $3 |
1087 | .dc.w $3 |
1088 | .dc.w $3 |
1089 | .dc.w $3 |
1090 | .dc.w $3 |
1091 | .dc.w $5 |
1092 | .dc.w $5 |
1093 | .dc.w $5 |
1094 | .dc.w $5 |
1095 | .dc.w $5 |
1096 | .dc.w $5 |
1097 | .dc.w $5 |
1098 | .dc.w $5 |
1099 | .dc.w $7 |
1100 | .dc.w $7 |
1101 | .dc.w $7 |
1102 | .dc.w $7 |
1103 | .dc.w $7 |
1104 | .dc.w $7 |
1105 | .dc.w $7 |
1106 | .dc.w $7 |
1107 | .dc.w $9 |
1108 | .dc.w $9 |
1109 | .dc.w $9 |
1110 | .dc.w $9 |
1111 | .dc.w $9 |
1112 | .dc.w $9 |
1113 | .dc.w $9 |
1114 | .dc.w $9 |
1115 | .dc.w $B |
1116 | .dc.w $B |
1117 | .dc.w $B |
1118 | .dc.w $B |
1119 | .dc.w $B |
1120 | .dc.w $B |
1121 | .dc.w $B |
1122 | .dc.w $B |
1123 | .dc.w $D |
1124 | .dc.w $D |
1125 | .dc.w $D |
1126 | .dc.w $D |
1127 | .dc.w $D |
1128 | .dc.w $D |
1129 | .dc.w $D |
1130 | .dc.w $D |
1131 | .globl _crate2 |
1132 | .data |
1133 | _crate2: |
1134 | .dc.w $0 |
1135 | .dc.w $0 |
1136 | .dc.w $0 |
1137 | .dc.w $0 |
1138 | .dc.w $0 |
1139 | .dc.w $0 |
1140 | .dc.w $0 |
1141 | .dc.w $0 |
1142 | .dc.w $1 |
1143 | .dc.w $1 |
1144 | .dc.w $1 |
1145 | .dc.w $1 |
1146 | .dc.w $1 |
1147 | .dc.w $1 |
1148 | .dc.w $1 |
1149 | .dc.w $1 |
1150 | .dc.w $2 |
1151 | .dc.w $2 |
1152 | .dc.w $2 |
1153 | .dc.w $2 |
1154 | .dc.w $2 |
1155 | .dc.w $2 |
1156 | .dc.w $2 |
1157 | .dc.w $2 |
1158 | .dc.w $4 |
1159 | .dc.w $4 |
1160 | .dc.w $4 |
1161 | .dc.w $4 |
1162 | .dc.w $8 |
1163 | .dc.w $8 |
1164 | .dc.w $8 |
1165 | .dc.w $8 |
1166 | .dc.w $10 |
1167 | .dc.w $10 |
1168 | .dc.w $10 |
1169 | .dc.w $10 |
1170 | .dc.w $20 |
1171 | .dc.w $20 |
1172 | .dc.w $20 |
1173 | .dc.w $20 |
1174 | .dc.w $40 |
1175 | .dc.w $40 |
1176 | .dc.w $40 |
1177 | .dc.w $40 |
1178 | .dc.w $80 |
1179 | .dc.w $80 |
1180 | .dc.w $80 |
1181 | .dc.w $80 |
1182 | .dc.w $60 |
1183 | .dc.w $60 |
1184 | .dc.w $60 |
1185 | .dc.w $60 |
1186 | .dc.w $100 |
1187 | .dc.w $100 |
1188 | .dc.w $100 |
1189 | .dc.w $100 |
1190 | .dc.w $100 |
1191 | .dc.w $100 |
1192 | .dc.w $100 |
1193 | .dc.w $100 |
1194 | .dc.w $100 |
1195 | .dc.w $100 |
1196 | .dc.w $100 |
1197 | .dc.w $100 |
1198 | .globl _loctab |
1199 | .data |
1200 | _loctab: |
1201 | .dc.w $0 |
1202 | .dc.w $FA0 |
1203 | .dc.w $1F40 |
1204 | .dc.w $2EE0 |
1205 | .dc.w $3E80 |
1206 | .dc.w $4E20 |
1207 | .dc.w $5DC0 |
1208 | .dc.w $6D60 |
1209 | .dc.w $7D00 |
1210 | .globl _valof |
1211 | .text |
1212 | _valof: |
1213 | ~~valof: |
1214 | ~srcv=8 |
1215 | link R14,#-4 |
1216 | *line 591 |
1217 | move 8(R14),R0 |
1218 | bra L3 |
1219 | *line 592 |
1220 | L4: |
1221 | *line 593 |
1222 | *line 594 |
1223 | clr R0 |
1224 | bra L1 |
1225 | *line 595 |
1226 | L5: |
1227 | *line 596 |
1228 | *line 597 |
1229 | clr (sp) |
1230 | jsr _xgetran |
1231 | bra L1 |
1232 | *line 598 |
1233 | L6: |
1234 | *line 599 |
1235 | *line 600 |
1236 | move 316+_sigtab,R0 |
1237 | muls #252,R0 |
1238 | and #32736,R0 |
1239 | bra L1 |
1240 | *line 601 |
1241 | L7: |
1242 | *line 602 |
1243 | L8: |
1244 | *line 603 |
1245 | L9: |
1246 | *line 604 |
1247 | *line 605 |
1248 | clr R0 |
1249 | bra L1 |
1250 | *line 606 |
1251 | L10: |
1252 | *line 607 |
1253 | *line 608 |
1254 | move 308+_sigtab,R0 |
1255 | muls #252,R0 |
1256 | and #32736,R0 |
1257 | bra L1 |
1258 | *line 609 |
1259 | L11: |
1260 | *line 610 |
1261 | *line 611 |
1262 | clr R0 |
1263 | bra L1 |
1264 | *line 612 |
1265 | L12: |
1266 | *line 613 |
1267 | *line 614 |
1268 | move 216+_sigtab,R0 |
1269 | muls #252,R0 |
1270 | and #32736,R0 |
1271 | bra L1 |
1272 | *line 615 |
1273 | L13: |
1274 | *line 616 |
1275 | *line 617 |
1276 | move 228+_sigtab,R0 |
1277 | muls #252,R0 |
1278 | and #32736,R0 |
1279 | bra L1 |
1280 | *line 618 |
1281 | L14: |
1282 | *line 619 |
1283 | *line 620 |
1284 | clr R0 |
1285 | bra L1 |
1286 | bra L2 |
1287 | L3:cmp #13,R0 |
1288 | bhi L14 |
1289 | asl #2,R0 |
1290 | move R0,R8 |
1291 | add.l #L15,R8 |
1292 | move.l (R8),R8 |
1293 | jmp (R8) |
1294 | .data |
1295 | L15:.dc.l L4 |
1296 | .dc.l L5 |
1297 | .dc.l L6 |
1298 | .dc.l L14 |
1299 | .dc.l L14 |
1300 | .dc.l L7 |
1301 | .dc.l L8 |
1302 | .dc.l L9 |
1303 | .dc.l L10 |
1304 | .dc.l L14 |
1305 | .dc.l L14 |
1306 | .dc.l L11 |
1307 | .dc.l L12 |
1308 | .dc.l L13 |
1309 | .text |
1310 | L2:L1:unlk R14 |
1311 | rts |
1312 | .globl _inismtb |
1313 | .text |
1314 | _inismtb: |
1315 | ~~inismtb: |
1316 | link R14,#0 |
1317 | movem.l R5-R7,-(sp) |
1318 | ~i=R7 |
1319 | ~oldi=R6 |
1320 | *line 637 |
1321 | move #2,(sp) |
1322 | jsr _setipl |
1323 | move R0,R6 |
1324 | *line 641 |
1325 | clr R7 |
1326 | bra L19 |
1327 | L20: |
1328 | *line 642 |
1329 | *line 643 |
1330 | move R7,R0 |
1331 | muls #10,R0 |
1332 | add.l #_valents,R0 |
1333 | move R7,R1 |
1334 | muls #10,R1 |
1335 | add.l #_valents,R1 |
1336 | move.l R1,R9 |
1337 | move.l R0,(R9) |
1338 | *line 644 |
1339 | move R7,R0 |
1340 | muls #10,R0 |
1341 | add.l #_valents,R0 |
1342 | move R7,R1 |
1343 | muls #10,R1 |
1344 | add.l #_valents,R1 |
1345 | move.l R1,R9 |
1346 | move.l R0,4(R9) |
1347 | *line 645 |
1348 | move R7,(sp) |
1349 | and #15,(sp) |
1350 | jsr _valof |
1351 | move R0,-(sp) |
1352 | move R7,R0 |
1353 | muls #10,R0 |
1354 | add.l #_valents,R0 |
1355 | move.l R0,R8 |
1356 | move (sp)+,8(R8) |
1357 | L18: |
1358 | *line 641 |
1359 | add #1,R7 |
1360 | L19: |
1361 | *line 641 |
1362 | cmp #192,R7 |
1363 | blt L20 |
1364 | L17: |
1365 | *line 648 |
1366 | clr R7 |
1367 | bra L23 |
1368 | L24: |
1369 | *line 649 |
1370 | *line 650 |
1371 | move R7,R0 |
1372 | muls #12,R0 |
1373 | add.l #_sments,R0 |
1374 | move R7,R9 |
1375 | add.l R9,R9 |
1376 | add.l R9,R9 |
1377 | add.l #_vpsms,R9 |
1378 | move.l R0,(R9) |
1379 | *line 651 |
1380 | *line 652 |
1381 | move R7,R0 |
1382 | muls #12,R0 |
1383 | add.l #_sments,R0 |
1384 | move.l R0,R8 |
1385 | move.l #_valents,4(R8) |
1386 | *line 653 |
1387 | move R7,R0 |
1388 | muls #12,R0 |
1389 | add.l #_sments,R0 |
1390 | move.l R0,R8 |
1391 | move.l _valents,(R8) |
1392 | *line 654 |
1393 | *line 655 |
1394 | move R7,R0 |
1395 | muls #12,R0 |
1396 | add.l #_sments,R0 |
1397 | move.l _valents,R9 |
1398 | move.l R0,4(R9) |
1399 | *line 656 |
1400 | move R7,R0 |
1401 | muls #12,R0 |
1402 | add.l #_sments,R0 |
1403 | move.l R0,_valents |
1404 | *line 657 |
1405 | *line 658 |
1406 | move R7,R0 |
1407 | muls #12,R0 |
1408 | add.l #_sments,R0 |
1409 | move.l R0,R8 |
1410 | move R7,8(R8) |
1411 | *line 659 |
1412 | move R7,R0 |
1413 | muls #12,R0 |
1414 | add.l #_sments,R0 |
1415 | move.l R0,R8 |
1416 | clr 10(R8) |
1417 | L22: |
1418 | *line 648 |
1419 | add #1,R7 |
1420 | L23: |
1421 | *line 648 |
1422 | cmp #192,R7 |
1423 | blt L24 |
1424 | L21: |
1425 | *line 662 |
1426 | move R6,(sp) |
1427 | jsr _setipl |
1428 | L16:tst.l (sp)+ |
1429 | movem.l (sp)+,R6-R7 |
1430 | unlk R14 |
1431 | rts |
1432 | .globl _clrpfl |
1433 | .text |
1434 | _clrpfl: |
1435 | ~~clrpfl: |
1436 | link R14,#0 |
1437 | movem.l R6-R7,-(sp) |
1438 | ~i=R7 |
1439 | *line 681 |
1440 | move #5376,(sp) |
1441 | clr -(sp) |
1442 | move.l #_pfents,-(sp) |
1443 | jsr _memsetw |
1444 | addq.l #6,sp |
1445 | *line 683 |
1446 | clr R7 |
1447 | bra L28 |
1448 | L29: |
1449 | *line 684 |
1450 | move R7,R0 |
1451 | add #1,R0 |
1452 | asl #5,R0 |
1453 | ext.l R0 |
1454 | add.l #_pfents,R0 |
1455 | move R7,R1 |
1456 | asl #5,R1 |
1457 | ext.l R1 |
1458 | add.l #_pfents,R1 |
1459 | move.l R1,R9 |
1460 | move.l R0,(R9) |
1461 | L27: |
1462 | *line 683 |
1463 | add #1,R7 |
1464 | L28: |
1465 | *line 683 |
1466 | cmp #335,R7 |
1467 | blt L29 |
1468 | L26: |
1469 | *line 686 |
1470 | move.l #_pfents,_pfqhdr |
1471 | *line 687 |
1472 | clr.l _pflist |
1473 | L25:tst.l (sp)+ |
1474 | movem.l (sp)+,R7-R7 |
1475 | unlk R14 |
1476 | rts |
1477 | .globl _im700 |
1478 | .text |
1479 | _im700: |
1480 | ~~im700: |
1481 | link R14,#0 |
1482 | movem.l R4-R7/R12-R13,-(sp) |
1483 | ~i=R7 |
1484 | ~j=R6 |
1485 | ~k=R5 |
1486 | ~ioadr=R13 |
1487 | ~ip=R12 |
1488 | *line 705 |
1489 | clr _debugsw |
1490 | *line 707 |
1491 | jsr _GLCinit |
1492 | *line 708 |
1493 | move #1,(sp) |
1494 | jsr _GLCcurs |
1495 | *line 709 |
1496 | move.l #L31,(sp) |
1497 | move #1,-(sp) |
1498 | move #2,-(sp) |
1499 | jsr _GLCtext |
1500 | addq.l #4,sp |
1501 | *line 710 |
1502 | clr (sp) |
1503 | jsr _GLCcurs |
1504 | *line 712 |
1505 | move.l #_blakpal,(sp) |
1506 | jsr _vsndpal |
1507 | *line 714 |
1508 | jsr _VHinit |
1509 | *line 715 |
1510 | jsr _VSinit |
1511 | *line 717 |
1512 | move #24,(sp) |
1513 | clr -(sp) |
1514 | move.l #_keystat,-(sp) |
1515 | jsr _memset |
1516 | addq.l #6,sp |
1517 | *line 718 |
1518 | move #6144,(sp) |
1519 | clr -(sp) |
1520 | move.l #_trgtab,-(sp) |
1521 | jsr _memset |
1522 | addq.l #6,sp |
1523 | *line 719 |
1524 | move #6144,(sp) |
1525 | clr -(sp) |
1526 | move.l #_mctlval,-(sp) |
1527 | jsr _memset |
1528 | addq.l #6,sp |
1529 | *line 721 |
1530 | move #12,(sp) |
1531 | clr -(sp) |
1532 | move.l #_grpmode,-(sp) |
1533 | jsr _memsetw |
1534 | addq.l #6,sp |
1535 | *line 722 |
1536 | move #12,(sp) |
1537 | move #1,-(sp) |
1538 | move.l #_grpstat,-(sp) |
1539 | jsr _memsetw |
1540 | addq.l #6,sp |
1541 | *line 723 |
1542 | move #12,(sp) |
1543 | move #1,-(sp) |
1544 | move.l #_grpsel,-(sp) |
1545 | jsr _memsetw |
1546 | addq.l #6,sp |
1547 | *line 724 |
1548 | move #256,(sp) |
1549 | clr -(sp) |
1550 | move.l #_sigtab,-(sp) |
1551 | jsr _memsetw |
1552 | addq.l #6,sp |
1553 | *line 726 |
1554 | move #6144,(sp) |
1555 | move #16128,-(sp) |
1556 | move.l #_veltab,-(sp) |
1557 | jsr _memsetw |
1558 | addq.l #6,sp |
1559 | *line 727 |
1560 | move #12,(sp) |
1561 | move #16128,-(sp) |
1562 | move.l #_lastvel,-(sp) |
1563 | jsr _memsetw |
1564 | addq.l #6,sp |
1565 | *line 728 |
1566 | move #6144,(sp) |
1567 | clr -(sp) |
1568 | move.l #_prstab,-(sp) |
1569 | jsr _memsetw |
1570 | addq.l #6,sp |
1571 | *line 730 |
1572 | move #100,(sp) |
1573 | jsr _tofpu |
1574 | move R0,_curintp |
1575 | *line 732 |
1576 | move #-1,_angroup |
1577 | *line 733 |
1578 | clr _ancmsw |
1579 | *line 734 |
1580 | clr _velflag |
1581 | *line 736 |
1582 | move #1,_dubsw |
1583 | *line 738 |
1584 | clr _sd |
1585 | *line 739 |
1586 | clr _se |
1587 | *line 741 |
1588 | jsr _swinit |
1589 | *line 743 |
1590 | jsr _inismtb |
1591 | *line 744 |
1592 | jsr _clrnl |
1593 | *line 745 |
1594 | jsr _clrpfl |
1595 | *line 747 |
1596 | clr _lstbgnc |
1597 | *line 748 |
1598 | clr _lstendc |
1599 | *line 749 |
1600 | move #1,_lstflag |
1601 | *line 751 |
1602 | move #96,(sp) |
1603 | clr -(sp) |
1604 | move.l #_lstbgns,-(sp) |
1605 | jsr _memsetw |
1606 | addq.l #6,sp |
1607 | *line 752 |
1608 | move #96,(sp) |
1609 | clr -(sp) |
1610 | move.l #_lstends,-(sp) |
1611 | jsr _memsetw |
1612 | addq.l #6,sp |
1613 | *line 756 |
1614 | clr R7 |
1615 | bra L34 |
1616 | L35: |
1617 | *line 757 |
1618 | *line 758 |
1619 | move R7,R0 |
1620 | muls #3938,R0 |
1621 | move.l R0,R12 |
1622 | add.l #_vbufs,R12 |
1623 | *line 759 |
1624 | *line 760 |
1625 | clr R6 |
1626 | bra L38 |
1627 | L39: |
1628 | *line 761 |
1629 | *line 762 |
1630 | move R7,R5 |
1631 | asl #4,R5 |
1632 | move R6,R8 |
1633 | add.l R8,R8 |
1634 | add.l #_fnoff,R8 |
1635 | move (R8),R0 |
1636 | add R0,R5 |
1637 | *line 763 |
1638 | *line 764 |
1639 | move.l R12,R0 |
1640 | move R6,R1 |
1641 | muls #12,R1 |
1642 | add.l R1,R0 |
1643 | add.l #86,R0 |
1644 | move R5,R1 |
1645 | asl #3,R1 |
1646 | ext.l R1 |
1647 | add.l #_funcndx,R1 |
1648 | move.l R1,R9 |
1649 | move.l R0,(R9) |
1650 | *line 765 |
1651 | move R5,R1 |
1652 | asl #3,R1 |
1653 | ext.l R1 |
1654 | add.l #_funcndx,R1 |
1655 | move.l R1,R9 |
1656 | lea 242(R12),R8 |
1657 | move.l R8,4(R9) |
1658 | L37: |
1659 | *line 760 |
1660 | add #1,R6 |
1661 | L38: |
1662 | *line 760 |
1663 | cmp #13,R6 |
1664 | blt L39 |
1665 | L36: |
1666 | *line 766 |
1667 | L33: |
1668 | *line 756 |
1669 | add #1,R7 |
1670 | L34: |
1671 | *line 756 |
1672 | cmp #12,R7 |
1673 | blt L35 |
1674 | L32: |
1675 | *line 771 |
1676 | clr R7 |
1677 | bra L42 |
1678 | L43: |
1679 | *line 772 |
1680 | *line 773 |
1681 | move R7,R8 |
1682 | add.l R8,R8 |
1683 | add.l #_msmstv,R8 |
1684 | clr (R8) |
1685 | *line 774 |
1686 | move R7,R8 |
1687 | add.l #_mrstat,R8 |
1688 | clr.b (R8) |
1689 | *line 775 |
1690 | move R7,R8 |
1691 | add.l #_mdbyte,R8 |
1692 | clr.b (R8) |
1693 | *line 776 |
1694 | move R7,R8 |
1695 | add.l #_masens,R8 |
1696 | clr.b (R8) |
1697 | L41: |
1698 | *line 771 |
1699 | add #1,R7 |
1700 | L42: |
1701 | *line 771 |
1702 | cmp #3,R7 |
1703 | blt L43 |
1704 | L40: |
1705 | *line 779 |
1706 | clr R7 |
1707 | bra L46 |
1708 | L47: |
1709 | *line 780 |
1710 | *line 781 |
1711 | move R7,R8 |
1712 | add.l R8,R8 |
1713 | add.l #_mpbend,R8 |
1714 | clr (R8) |
1715 | *line 782 |
1716 | move R7,R8 |
1717 | add.l #_mpsust,R8 |
1718 | clr.b (R8) |
1719 | L45: |
1720 | *line 779 |
1721 | add #1,R7 |
1722 | L46: |
1723 | *line 779 |
1724 | cmp #48,R7 |
1725 | blt L47 |
1726 | L44: |
1727 | *line 785 |
1728 | clr R7 |
1729 | bra L50 |
1730 | L51: |
1731 | *line 786 |
1732 | *line 787 |
1733 | clr R6 |
1734 | bra L54 |
1735 | L55: |
1736 | *line 788 |
1737 | *line 789 |
1738 | move R6,R0 |
1739 | asl #5,R0 |
1740 | ext.l R0 |
1741 | move R7,R1 |
1742 | asl #1,R1 |
1743 | ext.l R1 |
1744 | add.l R1,R0 |
1745 | add.l #_varmode,R0 |
1746 | move.l R0,R8 |
1747 | clr (R8) |
1748 | *line 790 |
1749 | move R6,R0 |
1750 | asl #5,R0 |
1751 | ext.l R0 |
1752 | move R7,R1 |
1753 | asl #1,R1 |
1754 | ext.l R1 |
1755 | add.l R1,R0 |
1756 | add.l #_anrs,R0 |
1757 | move.l R0,R8 |
1758 | move #4,(R8) |
1759 | L53: |
1760 | *line 787 |
1761 | add #1,R6 |
1762 | L54: |
1763 | *line 787 |
1764 | cmp #6,R6 |
1765 | blt L55 |
1766 | L52: |
1767 | *line 791 |
1768 | *line 792 |
1769 | *line 793 |
1770 | move #6,(sp) |
1771 | move R7,-(sp) |
1772 | jsr _setdyn |
1773 | addq.l #2,sp |
1774 | *line 794 |
1775 | move #4,(sp) |
1776 | move R7,-(sp) |
1777 | jsr _setloc |
1778 | addq.l #2,sp |
1779 | *line 795 |
1780 | move R7,R8 |
1781 | add.l R8,R8 |
1782 | add.l #_lastvce,R8 |
1783 | clr (R8) |
1784 | *line 796 |
1785 | move R7,R8 |
1786 | add.l R8,R8 |
1787 | add.l #_vce2trg,R8 |
1788 | move #-1,(R8) |
1789 | L49: |
1790 | *line 785 |
1791 | add #1,R7 |
1792 | L50: |
1793 | *line 785 |
1794 | cmp #12,R7 |
1795 | blt L51 |
1796 | L48: |
1797 | *line 799 |
1798 | clr R7 |
1799 | bra L58 |
1800 | L59: |
1801 | *line 800 |
1802 | *line 801 |
1803 | move #37,(sp) |
1804 | move #32,-(sp) |
1805 | move R7,R0 |
1806 | muls #37,R0 |
1807 | add.l #_loadedc,R0 |
1808 | move.l R0,-(sp) |
1809 | jsr _memset |
1810 | addq.l #6,sp |
1811 | *line 802 |
1812 | move #8,(sp) |
1813 | move #32,-(sp) |
1814 | move R7,R0 |
1815 | asl #3,R0 |
1816 | ext.l R0 |
1817 | add.l #_loadedf,R0 |
1818 | move.l R0,-(sp) |
1819 | jsr _memset |
1820 | addq.l #6,sp |
1821 | L57: |
1822 | *line 799 |
1823 | add #1,R7 |
1824 | L58: |
1825 | *line 799 |
1826 | cmp #8,R7 |
1827 | blt L59 |
1828 | L56: |
1829 | *line 805 |
1830 | move #8,(sp) |
1831 | move #32,-(sp) |
1832 | move.l #_ldfile,-(sp) |
1833 | jsr _memset |
1834 | addq.l #6,sp |
1835 | *line 806 |
1836 | clr.b 8+_ldfile |
1837 | *line 808 |
1838 | move #37,(sp) |
1839 | move #32,-(sp) |
1840 | move.l #_ldcmnt,-(sp) |
1841 | jsr _memset |
1842 | addq.l #6,sp |
1843 | *line 809 |
1844 | clr.b 37+_ldcmnt |
1845 | *line 813 |
1846 | move #1,_xkcount |
1847 | *line 814 |
1848 | move #1,_ykcount |
1849 | *line 815 |
1850 | move #50,_xycntr |
1851 | *line 817 |
1852 | clr _clksrc |
1853 | *line 818 |
1854 | clr _clkctl |
1855 | *line 819 |
1856 | clr _clkrun |
1857 | *line 820 |
1858 | clr _midiclk |
1859 | *line 821 |
1860 | clr _pulsclk |
1861 | *line 822 |
1862 | clr _stepclk |
1863 | *line 823 |
1864 | clr _fc_sw |
1865 | *line 824 |
1866 | clr.l _fc_val |
1867 | *line 825 |
1868 | clr _scrlpot |
1869 | *line 826 |
1870 | move #50,_tmpomlt |
1871 | *line 827 |
1872 | move.b #24,_io_leds |
1873 | *line 828 |
1874 | move.b #25,_io_leds |
1875 | *line 829 |
1876 | move #60,(sp) |
1877 | jsr _settmpo |
1878 | *line 831 |
1879 | move 100+_tmultab,_timemlt |
1880 | *line 832 |
1881 | move.b #26,_io_leds |
1882 | *line 833 |
1883 | move.b #27,_io_leds |
1884 | *line 835 |
1885 | clr _tuneval |
1886 | *line 836 |
1887 | move.b #28,_io_leds |
1888 | *line 837 |
1889 | move.b #29,_io_leds |
1890 | *line 839 |
1891 | clr R7 |
1892 | bra L62 |
1893 | L63: |
1894 | *line 840 |
1895 | move R7,R0 |
1896 | add #3,R0 |
1897 | move #12,R1 |
1898 | asl R1,R0 |
1899 | move R7,R1 |
1900 | add #3,R1 |
1901 | asl #8,R1 |
1902 | or R1,R0 |
1903 | move R7,R1 |
1904 | add #3,R1 |
1905 | asl #4,R1 |
1906 | or R1,R0 |
1907 | move R7,R1 |
1908 | add #3,R1 |
1909 | or R1,R0 |
1910 | move R7,R9 |
1911 | add.l R9,R9 |
1912 | add.l #_gtctab,R9 |
1913 | move R0,(R9) |
1914 | L61: |
1915 | *line 839 |
1916 | add #1,R7 |
1917 | L62: |
1918 | *line 839 |
1919 | cmp #12,R7 |
1920 | blt L63 |
1921 | L60: |
1922 | *line 842 |
1923 | clr _editsw |
1924 | *line 843 |
1925 | move.b #30,_io_leds |
1926 | *line 844 |
1927 | move.l #2+_io_ser,R13 |
1928 | *line 845 |
1929 | move.b (R13),R0 |
1930 | ext.w R0 |
1931 | and #8,R0 |
1932 | move R0,_editss |
1933 | *line 847 |
1934 | move.b #4,_ac_code |
1935 | *line 849 |
1936 | move #12,(sp) |
1937 | move #1,-(sp) |
1938 | move.l #_articen,-(sp) |
1939 | jsr _memsetw |
1940 | addq.l #6,sp |
1941 | *line 852 |
1942 | move.l #_cmvgen,_curmove |
1943 | *line 853 |
1944 | move.l #_nokey,_premove |
1945 | *line 854 |
1946 | move.l #_nokey,_pstmove |
1947 | *line 855 |
1948 | move.l #_stdctp2,_curtype |
1949 | *line 857 |
1950 | move.l #_nokey,_x_key |
1951 | *line 858 |
1952 | move.l #_nokey,_e_key |
1953 | *line 859 |
1954 | move.l #_stdmkey,_m_key |
1955 | *line 860 |
1956 | move.l #_nokey,_d_key |
1957 | *line 862 |
1958 | move.l #_nokey,_not_fld |
1959 | *line 864 |
1960 | move.l #_cxkstd,_cx_key |
1961 | *line 865 |
1962 | move.l #_cykstd,_cy_key |
1963 | *line 866 |
1964 | move.l #_cxgen,_cx_upd |
1965 | *line 867 |
1966 | move.l #_cygen,_cy_upd |
1967 | *line 868 |
1968 | move.l #_nokey,_xy_up |
1969 | *line 869 |
1970 | move.l #_nokey,_xy_dn |
1971 | *line 871 |
1972 | move #349,_curslim |
1973 | *line 873 |
1974 | move _hcwval,_chtime |
1975 | *line 874 |
1976 | move _vcwval,_cvtime |
1977 | *line 875 |
1978 | move _curhold,_nchwait |
1979 | *line 876 |
1980 | move _curhold,_ncvwait |
1981 | *line 877 |
1982 | move #1,_chwait |
1983 | *line 878 |
1984 | move #1,_cvwait |
1985 | *line 880 |
1986 | move.l #_crate1,_cratex |
1987 | *line 881 |
1988 | move.l #_crate1,_cratey |
1989 | *line 883 |
1990 | move #1,_cmfirst |
1991 | *line 884 |
1992 | clr _cmtype |
1993 | *line 886 |
1994 | move #256,_cxval |
1995 | *line 887 |
1996 | move #175,_cyval |
1997 | *line 889 |
1998 | move _cyval,R0 |
1999 | ext.l R0 |
2000 | divs #14,R0 |
2001 | move R0,_stcrow |
2002 | *line 890 |
2003 | move _cxval,R0 |
2004 | ext.l R0 |
2005 | divs #8,R0 |
2006 | move R0,_stccol |
2007 | *line 892 |
2008 | clr _submenu |
2009 | *line 895 |
2010 | clr _curinst |
2011 | *line 896 |
2012 | move #12,_curfunc |
2013 | *line 897 |
2014 | clr _curvce |
2015 | *line 899 |
2016 | clr _asmode |
2017 | *line 900 |
2018 | clr _gomode |
2019 | *line 901 |
2020 | clr _ismode |
2021 | *line 902 |
2022 | clr _pkctrl |
2023 | *line 903 |
2024 | move _pkctrl,_oldpk |
2025 | *line 904 |
2026 | clr _sliders |
2027 | *line 905 |
2028 | move _sliders,_oldsl |
2029 | *line 906 |
2030 | move.l #_t_prmtr,_swpt |
2031 | *line 907 |
2032 | move.l _swpt,_oldsw |
2033 | *line 908 |
2034 | jsr _setleds |
2035 | *line 910 |
2036 | jsr _initpt |
2037 | *line 911 |
2038 | jsr _initsq |
2039 | *line 912 |
2040 | jsr _initil |
2041 | *line 913 |
2042 | jsr _iniwslb |
2043 | *line 914 |
2044 | jsr _inital |
2045 | *line 915 |
2046 | jsr _inittl |
2047 | *line 916 |
2048 | jsr _scinit |
2049 | *line 918 |
2050 | clr (sp) |
2051 | move #1,-(sp) |
2052 | jsr _clearer |
2053 | addq.l #2,sp |
2054 | *line 919 |
2055 | clr R0 |
2056 | move R0,_curasg |
2057 | move R0,(sp) |
2058 | jsr _getasg |
2059 | *line 921 |
2060 | jsr _lcdlbls |
2061 | *line 922 |
2062 | clr _lampsw |
2063 | L30:tst.l (sp)+ |
2064 | movem.l (sp)+,R5-R7/R12-R13 |
2065 | unlk R14 |
2066 | rts |
2067 | .data |
2068 | L31:.dc.b $4D,$49,$44,$41,$53,$20,$37,$20,$2D,$2D,$20,$49,$6E,$69,$74,$69,$61,$6C,$69,$7A,$61,$74,$69,$6F,$6E,$20,$69,$6E,$20,$70 |
2069 | .dc.b $72,$6F,$67,$72,$65,$73,$73,$20,$2D,$2D,$20,$50,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0 |
Note:
See TracBrowser
for help on using the repository browser.