source: buchla-68k/alcyon/lcdlbls.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: 59.4 KB
Line 
1.globl _lcdx
2.globl _lcdy
3.globl _lcdbit
4.globl _lcdrow
5.globl _lcdcol
6.globl _lcdbase
7.globl _lcdctl1
8.globl _lcdctl2
9.globl _v_obtab
10.globl _v_curob
11.globl _v_nobj
12.globl _v_obpri
13.globl _io_time
14.globl _io_lcd
15.globl _io_ser
16.globl _io_midi
17.globl _io_disk
18.globl _io_tone
19.globl _io_leds
20.globl _io_kbrd
21.globl _lcd_a0
22.globl _lcd_a1
23.globl _io_vreg
24.globl _io_vraw
25.globl _io_vram
26.globl _io_fpu
27.globl _v_regs
28.globl _v_odtab
29.globl _v_actab
30.globl _v_ct0
31.globl _v_gt1
32.globl _v_score
33.globl _v_cgtab
34.globl _v_curs0
35.globl _v_curs1
36.globl _v_curs2
37.globl _v_curs3
38.globl _v_curs4
39.globl _v_curs5
40.globl _v_curs6
41.globl _v_curs7
42.globl _v_tcur
43.globl _v_kbobj
44.globl _v_lnobj
45.globl _v_win0
46.globl _v_cur
47.globl _fc_sw
48.globl _fc_val
49.globl _QQsw
50.globl _QQanch
51.globl _QQin
52.globl _QQip
53.globl _QQop
54.globl _QQnum
55.globl _QQlnum
56.globl _QQchr
57.globl _QQdig
58.globl _QQstr
59.globl _ebflag
60.globl _ebuf
61.globl _curfet
62.globl _cfetp
63.globl _infetp
64.globl _stmptr
65.globl _defptr
66.globl _patches
67.globl _defents
68.globl _seqtab
69.globl _seqflag
70.globl _seqline
71.globl _seqstim
72.globl _seqtime
73.globl _sregval
74.globl _trstate
75.globl _filecat
76.globl _ac_code
77.globl _scname
78.globl _se_chg
79.globl _curscor
80.globl _cursect
81.globl _se1_cnt
82.globl _se2_cnt
83.globl _se3_cnt
84.globl _spool
85.globl _pspool
86.globl _spcount
87.globl _frags
88.globl _t_bak
89.globl _t_cur
90.globl _t_ctr
91.globl _t_fwd
92.globl _size1
93.globl _size2
94.globl _size3
95.globl _scores
96.globl _scp
97.globl _seclist
98.globl _hplist
99.globl _p_bak
100.globl _p_cur
101.globl _p_ctr
102.globl _p_fwd
103.globl _d_key
104.globl _e_key
105.globl _m_key
106.globl _x_key
107.globl _olddkey
108.globl _oldekey
109.globl _oldmkey
110.globl _oldxkey
111.globl _point
112.globl _oldsw
113.globl _swpt
114.globl _aswtbl
115.globl _asig
116.globl _asmode
117.globl _astat
118.globl _aval
119.globl _clkrun
120.globl _ctrsw
121.globl _curasg
122.globl _gomode
123.globl _ismode
124.globl _lampio
125.globl _lampsw
126.globl _loadrow
127.globl _loadsw
128.globl _ltagged
129.globl _ndisp
130.globl _oldpk
131.globl _oldsl
132.globl _pkctrl
133.globl _recsw
134.globl _sliders
135.globl _tagslot
136.globl _tmpomlt
137.globl _tmpoval
138.globl _tuneval
139.globl _seqdupd
140.globl _BGeq
141.globl _BGother
142.globl _BGprmtr
143.globl _articen
144.globl _grpmode
145.globl _grpsel
146.globl _grpstat
147.globl _ins2grp
148.globl _lastart
149.globl _s_trns
150.globl _vce2grp
151.globl _vce2trg
152.globl _anrs
153.globl _iotime
154.globl _lcdontm
155.globl _lcdtime
156.globl _gdstbc
157.globl _valents
158.globl _BarType
159.data
160_BarType:
161.dc.w $1
162.dc.w $0
163.dc.w $0
164.dc.w $0
165.dc.w $0
166.dc.w $1
167.dc.w $1
168.dc.w $1
169.dc.w $1
170.dc.w $0
171.dc.w $0
172.dc.w $0
173.dc.w $1
174.dc.w $0
175.globl _artitab
176.data
177_artitab:
178.dc.w $3E80
179.dc.w $0
180.dc.w $0
181.dc.w $0
182.dc.w $0
183.dc.w $3E80
184.dc.w $3E80
185.dc.w $3E80
186.dc.w $3E80
187.dc.w $0
188.dc.w $0
189.dc.w $0
190.dc.w $3E80
191.dc.w $0
192.globl _arpar
193.data
194_arpar:
195.dc.w $4
196.dc.w $2
197.dc.w $9
198.dc.w $B
199.dc.w $C
200.dc.w $1
201.dc.w $3
202.dc.w $5
203.dc.w $7
204.dc.w $D
205.dc.w $E
206.dc.w $F
207.dc.w $A
208.dc.w $6
209.globl _sl2gain
210.data
211_sl2gain:
212.dc.w $FFF4
213.dc.w $FFF4
214.dc.w $FFF4
215.dc.w $FFF4
216.dc.w $FFF4
217.dc.w $FFF5
218.dc.w $FFF6
219.dc.w $FFF7
220.dc.w $FFF8
221.dc.w $FFF9
222.dc.w $FFFA
223.dc.w $FFFB
224.dc.w $FFFC
225.dc.w $FFFD
226.dc.w $FFFE
227.dc.w $FFFF
228.dc.w $0
229.dc.w $1
230.dc.w $2
231.dc.w $3
232.dc.w $4
233.dc.w $5
234.dc.w $6
235.dc.w $7
236.dc.w $8
237.dc.w $9
238.dc.w $A
239.dc.w $B
240.dc.w $C
241.dc.w $C
242.dc.w $C
243.dc.w $C
244.globl _vmasks
245.data
246_vmasks:
247.dc.w $8000
248.dc.w $C000
249.dc.w $E000
250.dc.w $F000
251.dc.w $F800
252.dc.w $FC00
253.dc.w $FE00
254.dc.w $FF00
255.dc.w $FF80
256.dc.w $FFC0
257.dc.w $FFE0
258.dc.w $FFF0
259.dc.w $FFF8
260.dc.w $FFFC
261.dc.w $FFFE
262.dc.w $FFFF
263.globl _src2var
264.data
265_src2var:
266.dc.w $FFFF
267.dc.w $FFFF
268.dc.w $3
269.dc.w $FFFF
270.dc.w $FFFF
271.dc.w $FFFF
272.dc.w $5
273.dc.w $FFFF
274.dc.w $4
275.dc.w $FFFF
276.dc.w $FFFF
277.dc.w $0
278.dc.w $1
279.dc.w $2
280.globl _potlbls
281.data
282_potlbls:
283*line 183
284.dc.l L1
285*line 184
286.dc.l L2
287*line 185
288.dc.l L3
289*line 186
290.dc.l L4
291*line 187
292.dc.l L5
293*line 188
294.dc.l L6
295*line 189
296.dc.l L7
297*line 191
298.dc.l L8
299.globl _swtlbls
300.data
301_swtlbls:
302*line 196
303.dc.l L9
304*line 197
305.dc.l L10
306*line 198
307.dc.l L11
308*line 199
309.dc.l L12
310*line 200
311.dc.l L13
312*line 201
313.dc.l L14
314*line 202
315.dc.l L15
316*line 204
317.dc.l L16
318.globl _aslbls
319.data
320_aslbls:
321*line 221
322.dc.l L17
323*line 222
324.dc.l L18
325*line 223
326.dc.l L19
327*line 224
328.dc.l L20
329*line 225
330.dc.l L21
331*line 227
332.dc.l L22
333.globl _t_prmtr
334.data
335_t_prmtr:
336*line 234
337.dc.l _quiet
338*line 235
339.dc.l _trapper
340*line 237
341.dc.l _setlamp
342*line 238
343.dc.l _l_clock
344*line 239
345.dc.l _rpctl
346*line 241
347.dc.l _l_goto
348*line 242
349.dc.l _l_inst
350*line 243
351.dc.l _l_asgn
352*line 244
353.dc.l _l_load
354*line 246
355.dc.l _nokey
356*line 247
357.dc.l _nokey
358*line 248
359.dc.l _l_other
360*line 250
361.dc.l _l_prmtr
362*line 252
363.dc.l _l_init
364.globl _t_voice
365.data
366_t_voice:
367*line 256
368.dc.l _l_voice
369*line 257
370.dc.l _l_voice
371*line 259
372.dc.l _l_voice
373*line 260
374.dc.l _l_voice
375*line 261
376.dc.l _l_voice
377*line 263
378.dc.l _l_voice
379*line 264
380.dc.l _l_voice
381*line 265
382.dc.l _l_voice
383*line 266
384.dc.l _l_voice
385*line 268
386.dc.l _l_voice
387*line 269
388.dc.l _l_voice
389*line 270
390.dc.l _l_voice
391*line 272
392.dc.l _l_prmtr
393*line 274
394.dc.l _l_init
395.globl _t_other
396.data
397_t_other:
398*line 281
399.dc.l _quiet
400*line 282
401.dc.l _trapper
402*line 284
403.dc.l _setlamp
404*line 285
405.dc.l _l_clock
406*line 286
407.dc.l _rpctl
408*line 288
409.dc.l _l_goto
410*line 289
411.dc.l _l_inst
412*line 290
413.dc.l _l_asgn
414*line 291
415.dc.l _l_load
416*line 293
417.dc.l _nokey
418*line 294
419.dc.l _nokey
420*line 295
421.dc.l _l_eq
422*line 297
423.dc.l _l_prmtr
424*line 299
425.dc.l _l_init
426.globl _t_eq
427.data
428_t_eq:
429*line 303
430.dc.l _quiet
431*line 304
432.dc.l _trapper
433*line 306
434.dc.l _setlamp
435*line 307
436.dc.l _l_clock
437*line 308
438.dc.l _rpctl
439*line 310
440.dc.l _l_goto
441*line 311
442.dc.l _l_inst
443*line 312
444.dc.l _l_asgn
445*line 313
446.dc.l _l_load
447*line 315
448.dc.l _nokey
449*line 316
450.dc.l _nokey
451*line 317
452.dc.l _l_eq
453*line 319
454.dc.l _l_prmtr
455*line 321
456.dc.l _l_init
457.globl _t_inst
458.data
459_t_inst:
460*line 328
461.dc.l _l_group
462*line 329
463.dc.l _l_group
464*line 331
465.dc.l _l_group
466*line 332
467.dc.l _l_group
468*line 333
469.dc.l _l_group
470*line 335
471.dc.l _l_group
472*line 336
473.dc.l _l_group
474*line 337
475.dc.l _l_group
476*line 338
477.dc.l _l_group
478*line 340
479.dc.l _l_group
480*line 341
481.dc.l _l_group
482*line 342
483.dc.l _l_group
484*line 344
485.dc.l _l_inst
486*line 346
487.dc.l _l_dflt
488.globl _t_libr
489.data
490_t_libr:
491*line 350
492.dc.l _quiet
493*line 351
494.dc.l _trapper
495*line 353
496.dc.l _setlamp
497*line 354
498.dc.l _l_clock
499*line 355
500.dc.l _rpctl
501*line 357
502.dc.l _nokey
503*line 358
504.dc.l _nokey
505*line 359
506.dc.l _nokey
507*line 360
508.dc.l _nokey
509*line 362
510.dc.l _nokey
511*line 363
512.dc.l _nokey
513*line 364
514.dc.l _nokey
515*line 366
516.dc.l _nokey
517*line 368
518.dc.l _nokey
519.globl _t_ngrp
520.data
521_t_ngrp:
522*line 375
523.dc.l _quiet
524*line 376
525.dc.l _trapper
526*line 378
527.dc.l _setlamp
528*line 379
529.dc.l _l_clock
530*line 380
531.dc.l _rpctl
532*line 382
533.dc.l _nokey
534*line 383
535.dc.l _nokey
536*line 384
537.dc.l _nokey
538*line 385
539.dc.l _nokey
540*line 387
541.dc.l _nokey
542*line 388
543.dc.l _nokey
544*line 389
545.dc.l _nokey
546*line 391
547.dc.l _nokey
548*line 393
549.dc.l _nokey
550.globl _t_load
551.data
552_t_load:
553*line 397
554.dc.l _quiet
555*line 398
556.dc.l _trapper
557*line 400
558.dc.l _setlamp
559*line 401
560.dc.l _nokey
561*line 402
562.dc.l _nokey
563*line 404
564.dc.l _nokey
565*line 405
566.dc.l _nokey
567*line 406
568.dc.l _nokey
569*line 407
570.dc.l _l_load
571*line 409
572.dc.l _nokey
573*line 410
574.dc.l _nokey
575*line 411
576.dc.l _nokey
577*line 413
578.dc.l _nokey
579*line 415
580.dc.l _nokey
581.globl _quiet
582.text
583_quiet:
584~~quiet:
585link R14,#0
586movem.l R6-R7,-(sp)
587~vce=R7
588*line 430
589clr R7
590bra L26
591L27:
592*line 431
593clr (sp)
594move #2,-(sp)
595move R7,-(sp)
596jsr _sendval
597addq.l #4,sp
598L25:
599*line 430
600add #1,R7
601L26:
602*line 430
603cmp #12,R7
604blt L27
605L24:
606*line 433
607move #16,(sp)
608clr -(sp)
609move.l #_seqflag,-(sp)
610jsr _memsetw
611addq.l #6,sp
612*line 434
613move #16,(sp)
614clr -(sp)
615move.l #_seqtime,-(sp)
616jsr _memsetw
617addq.l #6,sp
618*line 436
619move #16,(sp)
620clr -(sp)
621move.l #_trstate,-(sp)
622jsr _memsetw
623addq.l #6,sp
624*line 438
625move #-1,_seqdupd
626*line 440
627move #4608,(sp)
628jsr _stmproc
629L23:tst.l (sp)+
630movem.l (sp)+,R7-R7
631unlk R14
632rts
633.globl _rpctl
634.text
635_rpctl:
636~~rpctl:
637~stat=8
638link R14,#-4
639*line 452
640*line 453
641tst 8(R14)
642beq L28
643*line 454
644*line 455
645tst _recsw
646beq L10000
647clr R0
648bra L10001
649L10000:move #1,R0
650L10001:move R0,_recsw
651*line 456
652jsr _dsrpmod
653L28:unlk R14
654rts
655.globl _trapper
656.text
657_trapper:
658~~trapper:
659~stat=8
660link R14,#-4
661*line 471
662*line 472
663tst 8(R14)
664beq L30
665*line 472
666jsr _xtrap15
667L30:L29:unlk R14
668rts
669.globl _l_clock
670.text
671_l_clock:
672~~l_clock:
673~stat=8
674link R14,#-4
675*line 484
676*line 485
677tst 8(R14)
678beq L31
679*line 486
680*line 487
681tst _clkrun
682beq L10002
683clr (sp)
684bra L10003
685L10002:move #1,(sp)
686L10003:jsr _clkset
687*line 488
688jsr _dclkmd
689L31:unlk R14
690rts
691.globl _ulamp
692.text
693_ulamp:
694~~ulamp:
695link R14,#-4
696*line 499
697*line 500
698cmp #1,_sliders
699beq L32
700cmp #4,_sliders
701beq L32
702*line 501
703*line 502
704move.l #_GLCplot,_point
705*line 503
706move #1,(sp)
707jsr _GLCcurs
708*line 505
709*line 506
710tst _lampsw
711beq L33
712*line 506
713move #1,(sp)
714move #54,-(sp)
715move #101,-(sp)
716move #54,-(sp)
717move #78,-(sp)
718jsr _lseg
719addq.l #8,sp
720*line 507
721bra L34
722L33:
723*line 508
724clr (sp)
725move #54,-(sp)
726move #101,-(sp)
727move #54,-(sp)
728move #78,-(sp)
729jsr _lseg
730addq.l #8,sp
731L34:
732*line 510
733clr (sp)
734jsr _GLCcurs
735L32:unlk R14
736rts
737.globl _preio
738.text
739_preio:
740~~preio:
741link R14,#-6
742~oldipl=-2
743*line 526
744move #4,(sp)
745jsr _setipl
746move R0,-2(R14)
747*line 528
748move _lampsw,_lampio
749*line 529
750move.l _lcdtime,_iotime
751*line 530
752clr _lampsw
753*line 531
754move.b #31,_io_leds
755*line 533
756move -2(R14),(sp)
757jsr _setipl
758L35:unlk R14
759rts
760.globl _postio
761.text
762_postio:
763~~postio:
764link R14,#-6
765~oldipl=-2
766*line 546
767move #4,(sp)
768jsr _setipl
769move R0,-2(R14)
770*line 548
771move _lampio,_lampsw
772*line 550
773*line 550
774tst.l _iotime
775bne L10004
776tst _lampsw
777beq L37
778L10004:*line 551
779*line 552
780move.l _lcdontm,_lcdtime
781*line 553
782move.b #159,_io_leds
783*line 554
784*line 555
785L37:
786*line 556
787move -2(R14),(sp)
788jsr _setipl
789L36:unlk R14
790rts
791.globl _setlamp
792.text
793_setlamp:
794~~setlamp:
795~stat=8
796link R14,#0
797movem.l R6-R7,-(sp)
798~oldi=R7
799*line 572
800*line 573
801tst 8(R14)
802beq L38
803*line 574
804*line 575
805move #4,(sp)
806jsr _setipl
807move R0,R7
808*line 577
809move.l _lcdontm,_lcdtime
810*line 579
811*line 579
812tst _lampsw
813beq L39
814*line 580
815*line 581
816clr _lampsw
817*line 582
818move.b #31,_io_leds
819*line 583
820bra L40
821L39:
822*line 584
823*line 585
824*line 586
825move #1,_lampsw
826*line 587
827move.b #159,_io_leds
828L40:
829*line 590
830move R7,(sp)
831jsr _setipl
832*line 592
833jsr _ulamp
834L38:tst.l (sp)+
835movem.l (sp)+,R7-R7
836unlk R14
837rts
838.globl _lcd_on
839.text
840_lcd_on:
841~~lcd_on:
842link R14,#0
843movem.l R6-R7,-(sp)
844~oldi=R7
845*line 605
846move #4,(sp)
847jsr _setipl
848move R0,R7
849*line 607
850move.l _lcdontm,_lcdtime
851*line 608
852move.b #159,_io_leds
853*line 610
854move R7,(sp)
855jsr _setipl
856L41:tst.l (sp)+
857movem.l (sp)+,R7-R7
858unlk R14
859rts
860.globl _loadkey
861.text
862_loadkey:
863~~loadkey:
864~key=8
865link R14,#-4
866*line 625
867*line 626
868tst _astat
869beq L42
870*line 627
871*line 628
872*line 628
873tst _loadsw
874beq L43
875*line 629
876*line 630
877*line 630
878cmp #7,8(R14)
879bge L44
880*line 631
881*line 632
882move 8(R14),(sp)
883add #65,(sp)
884jsr _loadem
885*line 633
886*line 634
887clr _loadsw
888*line 635
889clr _ltagged
890*line 636
891move.l _olddkey,_d_key
892*line 637
893move.l _oldxkey,_x_key
894*line 638
895move.l _oldekey,_e_key
896*line 639
897move.l _oldmkey,_m_key
898*line 640
899move _oldpk,_pkctrl
900*line 641
901move _oldsl,_sliders
902*line 642
903move.l _oldsw,_swpt
904*line 643
905jsr _lcdlbls
906*line 644
907*line 645
908L44:bra L42
909*line 646
910*line 647
911L43:L42:unlk R14
912rts
913.globl _pcancel
914.text
915_pcancel:
916~~pcancel:
917~pm=8
918link R14,#-4
919*line 662
920move.l #_GLCplot,_point
921*line 663
922move #1,(sp)
923jsr _GLCcurs
924*line 665
925*line 665
926tst 8(R14)
927beq L46
928tst _asmode
929beq L46
930*line 666
931*line 667
932*line 668
933*line 669
934clr _asmode
935*line 670
936move _oldpk,_pkctrl
937*line 671
938move.l _oldsw,_swpt
939*line 672
940clr (sp)
941move #54,-(sp)
942move #287,-(sp)
943move #54,-(sp)
944move #258,-(sp)
945jsr _lseg
946addq.l #8,sp
947*line 673
948*line 674
949L46:
950*line 675
951*line 675
952cmp #1,8(R14)
953beq L47
954tst _gomode
955beq L47
956*line 676
957*line 677
958*line 678
959*line 679
960clr _gomode
961*line 680
962move _oldpk,_pkctrl
963*line 681
964clr (sp)
965move #54,-(sp)
966move #215,-(sp)
967move #54,-(sp)
968move #186,-(sp)
969jsr _lseg
970addq.l #8,sp
971*line 682
972*line 683
973L47:
974*line 684
975*line 684
976cmp #2,8(R14)
977beq L48
978tst _ismode
979beq L48
980*line 685
981*line 686
982*line 687
983*line 688
984clr _ismode
985*line 689
986move _oldpk,_pkctrl
987*line 690
988move _oldsl,_sliders
989*line 691
990move.l _oldsw,_swpt
991*line 692
992jsr _lcdlbls
993*line 693
994*line 694
995L48:
996*line 695
997clr (sp)
998jsr _GLCcurs
999*line 696
1000jsr _setleds
1001L45:unlk R14
1002rts
1003.globl _l_load
1004.text
1005_l_load:
1006~~l_load:
1007~stat=8
1008link R14,#-4
1009*line 711
1010*line 712
1011tst 8(R14)
1012beq L49
1013*line 713
1014*line 714
1015move #3,(sp)
1016jsr _pcancel
1017*line 715
1018move #3,(sp)
1019jsr _lcancel
1020*line 717
1021move.l #_GLCplot,_point
1022*line 718
1023move #1,(sp)
1024jsr _GLCcurs
1025*line 720
1026*line 720
1027tst _loadsw
1028beq L50
1029*line 721
1030*line 722
1031move.l _olddkey,_d_key
1032*line 723
1033move.l _oldekey,_e_key
1034*line 724
1035move.l _oldmkey,_m_key
1036*line 725
1037move.l _oldxkey,_x_key
1038*line 726
1039*line 727
1040move _oldpk,_pkctrl
1041*line 728
1042move _oldsl,_sliders
1043*line 729
1044move.l _oldsw,_swpt
1045*line 730
1046*line 731
1047clr _loadsw
1048*line 732
1049*line 733
1050jsr _lcdlbls
1051*line 734
1052*line 735
1053bra L51
1054L50:
1055*line 736
1056*line 737
1057*line 738
1058clr (sp)
1059jsr _clkset
1060*line 739
1061*line 740
1062*line 740
1063tst _ltagged
1064beq L52
1065*line 741
1066*line 742
1067move _loadrow,(sp)
1068move #12,-(sp)
1069jsr _exp_c
1070addq.l #2,sp
1071move R0,-(sp)
1072move _tagslot,-(sp)
1073jsr _dslslot
1074addq.l #4,sp
1075*line 743
1076clr _ltagged
1077*line 744
1078*line 745
1079L52:
1080*line 746
1081*line 747
1082tst _pkctrl
1083beq L10005
1084cmp #1,_pkctrl
1085bne L53
1086L10005:*line 747
1087move _pkctrl,_oldpk
1088*line 748
1089L53:
1090*line 749
1091*line 750
1092cmp #7,_sliders
1093beq L54
1094*line 750
1095move _sliders,_oldsl
1096*line 751
1097L54:
1098*line 752
1099move #7,_pkctrl
1100*line 753
1101move #7,_sliders
1102*line 754
1103move.l _swpt,_oldsw
1104*line 755
1105move.l #_t_load,_swpt
1106*line 756
1107*line 757
1108move.l _d_key,_olddkey
1109*line 758
1110move.l _x_key,_oldxkey
1111*line 759
1112move.l _e_key,_oldekey
1113*line 760
1114move.l _m_key,_oldmkey
1115*line 761
1116move.l #_loadkey,_d_key
1117*line 762
1118move.l #_l_load,_x_key
1119*line 763
1120move.l #_l_load,_e_key
1121*line 764
1122move.l #_l_load,_m_key
1123*line 765
1124*line 766
1125move #1,_loadsw
1126*line 767
1127*line 768
1128jsr _lcdlbls
1129*line 769
1130move #1,(sp)
1131move #54,-(sp)
1132move #317,-(sp)
1133move #54,-(sp)
1134move #294,-(sp)
1135jsr _lseg
1136addq.l #8,sp
1137L51:
1138*line 772
1139clr (sp)
1140jsr _GLCcurs
1141*line 773
1142jsr _setleds
1143L49:unlk R14
1144rts
1145.globl _lcdlbls
1146.text
1147_lcdlbls:
1148~~lcdlbls:
1149link R14,#-94
1150movem.l R5-R7,-(sp)
1151~i=R7
1152~barval=R6
1153~buf=-8
1154~dsp=-94
1155*line 791
1156move.l #_GLCplot,_point
1157*line 793
1158jsr _GLCinit
1159*line 794
1160move #1,(sp)
1161jsr _GLCcurs
1162*line 798
1163move _sliders,R0
1164bra L57
1165*line 799
1166L58:
1167*line 800
1168L59:
1169*line 801
1170L60:
1171*line 802
1172*line 803
1173*line 804
1174move _sliders,R8
1175add.l R8,R8
1176add.l R8,R8
1177move.l #_swtlbls,R9
1178move.l 0(R8,R9.l),(sp)
1179move #1,-(sp)
1180clr -(sp)
1181jsr _GLCtext
1182addq.l #4,sp
1183*line 805
1184*line 806
1185move _gomode,R0
1186bra L62
1187*line 807
1188L63:
1189*line 808
1190*line 809
1191*line 810
1192move.l #L64,(sp)
1193move #31,-(sp)
1194clr -(sp)
1195jsr _GLCtext
1196addq.l #4,sp
1197*line 811
1198move #1,(sp)
1199move #54,-(sp)
1200move #215,-(sp)
1201move #54,-(sp)
1202move #186,-(sp)
1203jsr _lseg
1204addq.l #8,sp
1205bra L61
1206*line 812
1207*line 813
1208L65:
1209*line 814
1210*line 815
1211*line 816
1212move.l #L66,(sp)
1213move #31,-(sp)
1214clr -(sp)
1215jsr _GLCtext
1216addq.l #4,sp
1217*line 817
1218move #1,(sp)
1219move #54,-(sp)
1220move #215,-(sp)
1221move #54,-(sp)
1222move #186,-(sp)
1223jsr _lseg
1224addq.l #8,sp
1225bra L61
1226*line 818
1227*line 819
1228L67:
1229*line 820
1230*line 821
1231*line 822
1232move.l #L68,(sp)
1233move #31,-(sp)
1234clr -(sp)
1235jsr _GLCtext
1236addq.l #4,sp
1237*line 823
1238clr (sp)
1239move #54,-(sp)
1240move #215,-(sp)
1241move #54,-(sp)
1242move #186,-(sp)
1243jsr _lseg
1244addq.l #8,sp
1245bra L61
1246*line 824
1247bra L61
1248L62:cmp #1,R0
1249beq L63
1250cmp #2,R0
1251beq L65
1252bra L67
1253L61:
1254*line 825
1255*line 826
1256bra L56
1257*line 827
1258*line 828
1259*line 829
1260L69:
1261*line 830
1262*line 831
1263*line 832
1264clr.b -94(R14)
1265*line 833
1266*line 834
1267clr R7
1268bra L72
1269L73:
1270*line 835
1271*line 836
1272*line 837
1273*line 838
1274move R7,R8
1275add.l R8,R8
1276move.l #_articen,R9
1277tst 0(R8,R9.l)
1278beq L10006
1279move #127,(sp)
1280bra L10008
1281L10006:move #32,(sp)
1282L10008:move R7,-(sp)
1283add #1,(sp)
1284move R7,R8
1285add.l R8,R8
1286move.l #_articen,R9
1287tst 0(R8,R9.l)
1288beq L10009
1289move #126,-(sp)
1290bra L10011
1291L10009:move #32,-(sp)
1292L10011:move.l #L74,-(sp)
1293move.l R14,-(sp)
1294sub.l #8,(sp)
1295jsr _sprintf
1296adda.l #12,sp
1297*line 839
1298*line 840
1299move.l R14,(sp)
1300sub.l #8,(sp)
1301move.l R14,-(sp)
1302add.l #-94,(sp)
1303jsr _strcat
1304addq.l #4,sp
1305L71:
1306*line 834
1307add #1,R7
1308L72:
1309*line 834
1310cmp #12,R7
1311blt L73
1312L70:
1313*line 841
1314*line 842
1315*line 843
1316move.l #L75,(sp)
1317move.l R14,-(sp)
1318add.l #-94,(sp)
1319jsr _strcat
1320addq.l #4,sp
1321*line 844
1322*line 845
1323move.l R14,(sp)
1324add.l #-94,(sp)
1325move #1,-(sp)
1326clr -(sp)
1327jsr _GLCtext
1328addq.l #4,sp
1329bra L56
1330*line 846
1331*line 847
1332L76:
1333*line 848
1334*line 849
1335*line 850
1336clr.b -94(R14)
1337*line 851
1338*line 852
1339clr R7
1340bra L79
1341L80:
1342*line 853
1343*line 854
1344*line 855
1345*line 856
1346move R7,R8
1347add.l R8,R8
1348move.l #_grpsel,R9
1349tst 0(R8,R9.l)
1350beq L10012
1351move #127,(sp)
1352bra L10014
1353L10012:move #32,(sp)
1354L10014:move R7,-(sp)
1355add #1,(sp)
1356move R7,R8
1357add.l R8,R8
1358move.l #_grpsel,R9
1359tst 0(R8,R9.l)
1360beq L10015
1361move #126,-(sp)
1362bra L10017
1363L10015:move #32,-(sp)
1364L10017:move.l #L81,-(sp)
1365move.l R14,-(sp)
1366sub.l #8,(sp)
1367jsr _sprintf
1368adda.l #12,sp
1369*line 857
1370*line 858
1371move.l R14,(sp)
1372sub.l #8,(sp)
1373move.l R14,-(sp)
1374add.l #-94,(sp)
1375jsr _strcat
1376addq.l #4,sp
1377L78:
1378*line 852
1379add #1,R7
1380L79:
1381*line 852
1382cmp #12,R7
1383blt L80
1384L77:
1385*line 859
1386*line 860
1387*line 861
1388*line 862
1389cmp #2,_ismode
1390bne L82
1391*line 862
1392move.l #L83,(sp)
1393move.l R14,-(sp)
1394add.l #-94,(sp)
1395jsr _strcat
1396addq.l #4,sp
1397*line 863
1398bra L84
1399L82:
1400*line 864
1401move.l #L85,(sp)
1402move.l R14,-(sp)
1403add.l #-94,(sp)
1404jsr _strcat
1405addq.l #4,sp
1406L84:
1407*line 865
1408*line 866
1409move.l #L86,(sp)
1410move.l R14,-(sp)
1411add.l #-94,(sp)
1412jsr _strcat
1413addq.l #4,sp
1414*line 867
1415*line 868
1416move.l R14,(sp)
1417add.l #-94,(sp)
1418move #1,-(sp)
1419clr -(sp)
1420jsr _GLCtext
1421addq.l #4,sp
1422bra L56
1423*line 869
1424*line 870
1425L87:
1426*line 871
1427L88:
1428*line 872
1429L89:
1430*line 873
1431*line 874
1432*line 875
1433move _sliders,R8
1434add.l R8,R8
1435add.l R8,R8
1436move.l #_swtlbls,R9
1437move.l 0(R8,R9.l),(sp)
1438move #1,-(sp)
1439clr -(sp)
1440jsr _GLCtext
1441addq.l #4,sp
1442bra L56
1443*line 876
1444bra L56
1445L57:cmp #7,R0
1446bhi L56
1447asl #2,R0
1448move R0,R8
1449add.l #L90,R8
1450move.l (R8),R8
1451jmp (R8)
1452.data
1453L90:.dc.l L58
1454.dc.l L69
1455.dc.l L59
1456.dc.l L60
1457.dc.l L76
1458.dc.l L87
1459.dc.l L88
1460.dc.l L89
1461.text
1462L56:
1463*line 881
1464move _sliders,R8
1465add.l R8,R8
1466add.l R8,R8
1467move.l #_potlbls,R9
1468move.l 0(R8,R9.l),(sp)
1469move #1,-(sp)
1470move #7,-(sp)
1471jsr _GLCtext
1472addq.l #4,sp
1473*line 883
1474clr R7
1475bra L93
1476L94:
1477*line 884
1478move #1,(sp)
1479move #63,-(sp)
1480move R7,R0
1481muls #36,R0
1482move R0,-(sp)
1483add #39,(sp)
1484clr -(sp)
1485move R7,R0
1486muls #36,R0
1487move R0,-(sp)
1488add #39,(sp)
1489jsr _lseg
1490addq.l #8,sp
1491L92:
1492*line 883
1493add #1,R7
1494L93:
1495*line 883
1496cmp #13,R7
1497blt L94
1498L91:
1499*line 886
1500move _sliders,R0
1501bra L96
1502*line 887
1503L97:
1504*line 888
1505L98:
1506*line 889
1507L99:
1508*line 890
1509L100:
1510*line 891
1511L101:
1512*line 892
1513L102:
1514*line 893
1515*line 894
1516*line 895
1517clr R7
1518bra L105
1519L106:
1520*line 896
1521*line 897
1522*line 897
1523move R7,R8
1524add.l R8,R8
1525move.l #_BarType,R9
1526tst 0(R8,R9.l)
1527beq L107
1528*line 898
1529*line 899
1530move R7,R8
1531add.l R8,R8
1532add.l #_BGprmtr,R8
1533move (R8),R6
1534asr #5,R6
1535add #-500,R6
1536asl #6,R6
1537ext.l R6
1538divs #252,R6
1539*line 900
1540move R6,(sp)
1541move R7,-(sp)
1542jsr _BarCset
1543addq.l #2,sp
1544*line 901
1545bra L108
1546L107:
1547*line 902
1548*line 903
1549*line 904
1550move R7,R8
1551add.l R8,R8
1552add.l #_BGprmtr,R8
1553move (R8),R6
1554ext.l R6
1555divs #252,R6
1556*line 905
1557move R6,(sp)
1558move R7,-(sp)
1559jsr _BarBset
1560addq.l #2,sp
1561L108:
1562*line 906
1563L104:
1564*line 895
1565add #1,R7
1566L105:
1567*line 895
1568cmp #14,R7
1569blt L106
1570L103:
1571*line 907
1572*line 908
1573bra L95
1574*line 909
1575*line 910
1576L109:
1577*line 911
1578*line 912
1579*line 913
1580clr R7
1581bra L112
1582L113:
1583*line 914
1584move R7,R8
1585add.l R8,R8
1586move.l #_BGother,R9
1587move 0(R8,R9.l),R0
1588ext.l R0
1589divs #252,R0
1590move R0,(sp)
1591move R7,-(sp)
1592jsr _BarBset
1593addq.l #2,sp
1594L111:
1595*line 913
1596add #1,R7
1597L112:
1598*line 913
1599cmp #14,R7
1600blt L113
1601L110:
1602*line 914
1603*line 915
1604bra L95
1605*line 916
1606*line 917
1607L114:
1608*line 918
1609*line 919
1610*line 920
1611clr R7
1612bra L117
1613L118:
1614*line 921
1615move R7,R8
1616add.l R8,R8
1617move.l #_BGeq,R9
1618move 0(R8,R9.l),(sp)
1619move R7,-(sp)
1620jsr _BarCset
1621addq.l #2,sp
1622L116:
1623*line 920
1624add #1,R7
1625L117:
1626*line 920
1627cmp #14,R7
1628blt L118
1629L115:
1630*line 921
1631*line 922
1632bra L95
1633*line 923
1634*line 924
1635L119:
1636*line 925
1637*line 926
1638bra L95
1639*line 927
1640bra L95
1641L96:cmp #7,R0
1642bhi L119
1643asl #2,R0
1644move R0,R8
1645add.l #L120,R8
1646move.l (R8),R8
1647jmp (R8)
1648.data
1649L120:.dc.l L97
1650.dc.l L98
1651.dc.l L109
1652.dc.l L114
1653.dc.l L99
1654.dc.l L100
1655.dc.l L101
1656.dc.l L102
1657.text
1658L95:
1659*line 930
1660clr (sp)
1661jsr _GLCcurs
1662*line 931
1663jsr _dsrpmod
1664*line 932
1665jsr _dclkmd
1666*line 933
1667jsr _ulamp
1668L55:tst.l (sp)+
1669movem.l (sp)+,R6-R7
1670unlk R14
1671rts
1672.globl _selasg
1673.text
1674_selasg:
1675~~selasg:
1676~n=8
1677link R14,#0
1678movem.l R7-R7/R13-R13,-(sp)
1679~ep=R13
1680*line 950
1681move 8(R14),R0
1682move R0,_curasg
1683move R0,(sp)
1684jsr _getasg
1685*line 952
1686*line 952
1687tst _recsw
1688beq L122
1689*line 953
1690*line 954
1691*line 954
1692move #-1,(sp)
1693move #-1,-(sp)
1694move #16,-(sp)
1695move.l _t_cur,-(sp)
1696move.l _p_cur,-(sp)
1697jsr _findev
1698adda.l #12,sp
1699move.l R0,R13
1700move.l R13,R0
1701beq L123
1702*line 955
1703*line 956
1704move 8(R14),R0
1705move.b R0,6(R13)
1706*line 957
1707bra L124
1708L123:
1709*line 958
1710*line 958
1711move #6,(sp)
1712jsr _e_alc
1713move.l R0,R13
1714move.l R13,R0
1715beq L125
1716*line 959
1717*line 960
1718move.b #16,5(R13)
1719*line 961
1720move 8(R14),R0
1721move.b R0,6(R13)
1722*line 962
1723move.l _t_cur,(R13)
1724*line 963
1725move.l _t_cur,(sp)
1726clr -(sp)
1727move.l _p_cur,-(sp)
1728jsr _ep_adj
1729addq.l #6,sp
1730move.l R0,(sp)
1731move.l R13,-(sp)
1732jsr _e_ins
1733addq.l #4,sp
1734move.l R0,R8
1735move.l 12(R8),_p_cur
1736*line 964
1737move #9,(sp)
1738move.l R13,-(sp)
1739jsr _eh_ins
1740addq.l #4,sp
1741*line 965
1742*line 966
1743*line 966
1744cmp #2,_ndisp
1745bne L126
1746*line 967
1747*line 968
1748move #1,_ctrsw
1749*line 969
1750move #1,(sp)
1751move.l #_gdstbc,-(sp)
1752clr -(sp)
1753move.l R13,-(sp)
1754jsr _se_disp
1755adda.l #10,sp
1756*line 970
1757jsr _scupd
1758*line 971
1759L126:
1760*line 972
1761L125:L124:
1762*line 973
1763*line 974
1764L122:
1765*line 975
1766clr _asmode
1767*line 976
1768move _oldpk,_pkctrl
1769*line 977
1770move.l _oldsw,_swpt
1771*line 979
1772move.l #_GLCplot,_point
1773*line 980
1774move #1,(sp)
1775jsr _GLCcurs
1776*line 981
1777clr (sp)
1778move #54,-(sp)
1779move #287,-(sp)
1780move #54,-(sp)
1781move #258,-(sp)
1782jsr _lseg
1783addq.l #8,sp
1784*line 982
1785move _sliders,R8
1786add.l R8,R8
1787add.l R8,R8
1788move.l #_swtlbls,R9
1789move.l 0(R8,R9.l),(sp)
1790move #1,-(sp)
1791clr -(sp)
1792jsr _GLCtext
1793addq.l #4,sp
1794*line 983
1795clr (sp)
1796jsr _GLCcurs
1797*line 985
1798jsr _mpcupd
1799*line 986
1800jsr _setleds
1801L121:tst.l (sp)+
1802movem.l (sp)+,R13-R13
1803unlk R14
1804rts
1805.globl _l_adfl
1806.text
1807_l_adfl:
1808~~l_adfl:
1809~stat=8
1810link R14,#-4
1811*line 1001
1812*line 1002
1813tst 8(R14)
1814beq L127
1815*line 1003
1816*line 1004
1817clr (sp)
1818jsr _selasg
1819L127:unlk R14
1820rts
1821.globl _l_asgn
1822.text
1823_l_asgn:
1824~~l_asgn:
1825~stat=8
1826link R14,#-4
1827*line 1019
1828*line 1020
1829tst 8(R14)
1830beq L128
1831*line 1021
1832*line 1022
1833move.l #_GLCplot,_point
1834*line 1023
1835move #1,(sp)
1836jsr _GLCcurs
1837*line 1025
1838*line 1025
1839tst _ismode
1840beq L129
1841*line 1026
1842*line 1027
1843clr _ismode
1844*line 1028
1845move _oldpk,_pkctrl
1846*line 1029
1847move _oldsl,_sliders
1848*line 1030
1849move.l _oldsw,_swpt
1850*line 1031
1851jsr _lcdlbls
1852*line 1032
1853*line 1033
1854L129:
1855*line 1034
1856*line 1034
1857tst _gomode
1858beq L130
1859*line 1035
1860*line 1036
1861clr _gomode
1862*line 1037
1863move _oldpk,_pkctrl
1864*line 1038
1865clr (sp)
1866move #54,-(sp)
1867move #215,-(sp)
1868move #54,-(sp)
1869move #186,-(sp)
1870jsr _lseg
1871addq.l #8,sp
1872*line 1039
1873*line 1040
1874*line 1041
1875L130:
1876*line 1042
1877move _asmode,R0
1878bra L132
1879*line 1043
1880L133:
1881*line 1044
1882*line 1045
1883*line 1046
1884*line 1047
1885tst _pkctrl
1886beq L10018
1887cmp #1,_pkctrl
1888bne L134
1889L10018:*line 1047
1890move _pkctrl,_oldpk
1891*line 1048
1892L134:
1893*line 1049
1894tst _curasg
1895beq L10019
1896move _curasg,R0
1897sub #1,R0
1898ext.l R0
1899divs #20,R0
1900bra L10021
1901L10019:clr R0
1902L10021:add #1,R0
1903move R0,_asmode
1904*line 1050
1905move #4,_pkctrl
1906*line 1051
1907move #56,(sp)
1908move.l _swpt,-(sp)
1909move.l #_aswtbl,-(sp)
1910jsr _memcpy
1911addq.l #8,sp
1912*line 1052
1913move.l _swpt,_oldsw
1914*line 1053
1915move.l #_aswtbl,_swpt
1916*line 1054
1917move.l #_l_adfl,52+_aswtbl
1918*line 1055
1919move #1,(sp)
1920move #54,-(sp)
1921move #287,-(sp)
1922move #54,-(sp)
1923move #258,-(sp)
1924jsr _lseg
1925addq.l #8,sp
1926*line 1056
1927move.l #L135,(sp)
1928move #79,-(sp)
1929clr -(sp)
1930jsr _GLCtext
1931addq.l #4,sp
1932bra L131
1933*line 1057
1934*line 1058
1935L136:
1936*line 1059
1937L137:
1938*line 1060
1939L138:
1940*line 1061
1941L139:
1942*line 1062
1943*line 1063
1944*line 1064
1945add #1,_asmode
1946bra L131
1947*line 1065
1948*line 1066
1949L140:
1950*line 1067
1951*line 1068
1952*line 1069
1953move #1,_asmode
1954bra L131
1955*line 1070
1956*line 1071
1957bra L131
1958L132:cmp #5,R0
1959bhi L131
1960asl #2,R0
1961move R0,R8
1962add.l #L141,R8
1963move.l (R8),R8
1964jmp (R8)
1965.data
1966L141:.dc.l L133
1967.dc.l L136
1968.dc.l L137
1969.dc.l L138
1970.dc.l L139
1971.dc.l L140
1972.text
1973L131:
1974*line 1074
1975move _asmode,R8
1976add.l R8,R8
1977add.l R8,R8
1978move.l #_aslbls,R9
1979move.l 0(R8,R9.l),(sp)
1980move #43,-(sp)
1981clr -(sp)
1982jsr _GLCtext
1983addq.l #4,sp
1984*line 1075
1985clr (sp)
1986jsr _GLCcurs
1987*line 1076
1988jsr _setleds
1989L128:unlk R14
1990rts
1991.globl _l_inst
1992.text
1993_l_inst:
1994~~l_inst:
1995~stat=8
1996link R14,#-4
1997*line 1091
1998*line 1092
1999tst 8(R14)
2000beq L142
2001*line 1093
2002*line 1094
2003move.l #_GLCplot,_point
2004*line 1095
2005move #1,(sp)
2006jsr _GLCcurs
2007*line 1097
2008*line 1097
2009tst _asmode
2010beq L143
2011*line 1098
2012*line 1099
2013clr _asmode
2014*line 1100
2015move _oldpk,_pkctrl
2016*line 1101
2017move.l _oldsw,_swpt
2018*line 1102
2019clr (sp)
2020move #54,-(sp)
2021move #287,-(sp)
2022move #54,-(sp)
2023move #258,-(sp)
2024jsr _lseg
2025addq.l #8,sp
2026*line 1103
2027*line 1104
2028L143:
2029*line 1105
2030*line 1105
2031tst _gomode
2032beq L144
2033*line 1106
2034*line 1107
2035clr _gomode
2036*line 1108
2037move _oldpk,_pkctrl
2038*line 1109
2039clr (sp)
2040move #54,-(sp)
2041move #215,-(sp)
2042move #54,-(sp)
2043move #186,-(sp)
2044jsr _lseg
2045addq.l #8,sp
2046*line 1110
2047*line 1111
2048L144:
2049*line 1112
2050clr (sp)
2051jsr _GLCcurs
2052*line 1115
2053move _ismode,R0
2054bra L146
2055*line 1116
2056L147:
2057*line 1117
2058*line 1118
2059*line 1119
2060*line 1120
2061tst _pkctrl
2062beq L10022
2063cmp #1,_pkctrl
2064bne L148
2065L10022:*line 1120
2066move _pkctrl,_oldpk
2067*line 1121
2068L148:
2069*line 1122
2070*line 1123
2071cmp #4,_sliders
2072beq L149
2073*line 1123
2074move _sliders,_oldsl
2075*line 1124
2076L149:
2077*line 1125
2078move.l _swpt,_oldsw
2079*line 1126
2080move.l #_t_inst,_swpt
2081*line 1127
2082move #3,_pkctrl
2083*line 1128
2084move #1,_ismode
2085*line 1129
2086move #4,_sliders
2087*line 1130
2088jsr _lcdlbls
2089bra L145
2090*line 1131
2091*line 1132
2092L150:
2093*line 1133
2094*line 1134
2095*line 1135
2096move #2,_ismode
2097*line 1136
2098move #1,(sp)
2099jsr _GLCcurs
2100*line 1137
2101move.l #L151,(sp)
2102move #73,-(sp)
2103clr -(sp)
2104jsr _GLCtext
2105addq.l #4,sp
2106*line 1138
2107clr (sp)
2108jsr _GLCcurs
2109bra L145
2110*line 1139
2111*line 1140
2112L152:
2113*line 1141
2114L153:
2115*line 1142
2116*line 1143
2117*line 1144
2118clr _ismode
2119*line 1145
2120move _oldpk,_pkctrl
2121*line 1146
2122move _oldsl,_sliders
2123*line 1147
2124move.l _oldsw,_swpt
2125*line 1148
2126jsr _lcdlbls
2127bra L145
2128*line 1149
2129bra L145
2130L146:tst R0
2131beq L147
2132cmp #1,R0
2133beq L150
2134cmp #2,R0
2135beq L152
2136bra L153
2137L145:
2138*line 1152
2139jsr _setleds
2140L142:unlk R14
2141rts
2142.globl _selins
2143.text
2144_selins:
2145~~selins:
2146~ival=R7
2147link R14,#0
2148movem.l R5-R7/R13-R13,-(sp)
2149~n=R6
2150~ep=R13
2151*line 1170
2152move 8(R14),R7
2153*line 1170
2154clr R6
2155bra L157
2156L158:
2157*line 1171
2158*line 1172
2159*line 1173
2160move R6,R8
2161add.l R8,R8
2162add.l #_grpsel,R8
2163tst (R8)
2164beq L156
2165*line 1174
2166*line 1175
2167move R7,R0
2168move R6,R9
2169add.l R9,R9
2170add.l #_ins2grp,R9
2171move (R9),R1
2172and #-256,R1
2173or R1,R0
2174move R6,R9
2175add.l R9,R9
2176add.l #_ins2grp,R9
2177move R0,(R9)
2178*line 1176
2179move R6,(sp)
2180jsr _setv2gi
2181*line 1177
2182*line 1178
2183*line 1178
2184tst _recsw
2185beq L159
2186move R6,R8
2187add.l R8,R8
2188move.l #_grpstat,R9
2189tst 0(R8,R9.l)
2190beq L159
2191move R6,R8
2192add.l R8,R8
2193add.l #_grpmode,R8
2194cmp #2,(R8)
2195bne L159
2196*line 1179
2197*line 1180
2198*line 1180
2199move #-1,(sp)
2200move R6,-(sp)
2201move #4,-(sp)
2202move.l _t_cur,-(sp)
2203move.l _p_cur,-(sp)
2204jsr _findev
2205adda.l #12,sp
2206move.l R0,R13
2207move.l R13,R0
2208beq L160
2209*line 1181
2210*line 1182
2211move.b R7,7(R13)
2212*line 1183
2213bra L161
2214L160:
2215*line 1184
2216*line 1184
2217move #6,(sp)
2218jsr _e_alc
2219move.l R0,R13
2220move.l R13,R0
2221beq L162
2222*line 1185
2223*line 1186
2224move.b #4,5(R13)
2225*line 1187
2226move.b R6,6(R13)
2227*line 1188
2228move.b R7,7(R13)
2229*line 1189
2230move.l _t_cur,(R13)
2231*line 1190
2232move.l _t_cur,(sp)
2233clr -(sp)
2234move.l _p_cur,-(sp)
2235jsr _ep_adj
2236addq.l #6,sp
2237move.l R0,(sp)
2238move.l R13,-(sp)
2239jsr _e_ins
2240addq.l #4,sp
2241move.l R0,R8
2242move.l 12(R8),_p_cur
2243*line 1191
2244clr (sp)
2245move.l R13,-(sp)
2246jsr _eh_ins
2247addq.l #4,sp
2248*line 1192
2249*line 1193
2250*line 1193
2251cmp #2,_ndisp
2252bne L163
2253*line 1194
2254*line 1195
2255move #1,_ctrsw
2256*line 1196
2257move #1,(sp)
2258move.l #_gdstbc,-(sp)
2259clr -(sp)
2260move.l R13,-(sp)
2261jsr _se_disp
2262adda.l #10,sp
2263*line 1197
2264jsr _scupd
2265*line 1198
2266L163:
2267*line 1199
2268L162:L161:
2269*line 1200
2270L159:L156:
2271*line 1170
2272add #1,R6
2273L157:
2274*line 1170
2275cmp #12,R6
2276blt L158
2277L155:
2278*line 1203
2279jsr _setinst
2280*line 1207
2281clr _ismode
2282*line 1208
2283move _oldpk,_pkctrl
2284*line 1209
2285move _oldsl,_sliders
2286*line 1210
2287move.l _oldsw,_swpt
2288*line 1211
2289jsr _lcdlbls
2290*line 1212
2291jsr _setleds
2292*line 1213
2293jsr _mpcupd
2294L154:tst.l (sp)+
2295movem.l (sp)+,R6-R7/R13-R13
2296unlk R14
2297rts
2298.globl _l_dflt
2299.text
2300_l_dflt:
2301~~l_dflt:
2302~stat=8
2303link R14,#-4
2304*line 1228
2305*line 1229
2306tst 8(R14)
2307beq L164
2308*line 1230
2309*line 1231
2310clr (sp)
2311jsr _selins
2312L164:unlk R14
2313rts
2314.globl _l_goto
2315.text
2316_l_goto:
2317~~l_goto:
2318~stat=8
2319link R14,#-4
2320*line 1246
2321*line 1247
2322tst 8(R14)
2323beq L165
2324*line 1248
2325*line 1249
2326move.l #_GLCplot,_point
2327*line 1250
2328move #1,(sp)
2329jsr _GLCcurs
2330*line 1252
2331*line 1252
2332tst _asmode
2333beq L166
2334*line 1253
2335*line 1254
2336clr _asmode
2337*line 1255
2338move _oldpk,_pkctrl
2339*line 1256
2340move.l _oldsw,_swpt
2341*line 1257
2342clr (sp)
2343move #54,-(sp)
2344move #287,-(sp)
2345move #54,-(sp)
2346move #258,-(sp)
2347jsr _lseg
2348addq.l #8,sp
2349*line 1258
2350*line 1259
2351L166:
2352*line 1260
2353*line 1260
2354tst _ismode
2355beq L167
2356*line 1261
2357*line 1262
2358clr _ismode
2359*line 1263
2360move _oldsl,_sliders
2361*line 1264
2362move _oldpk,_pkctrl
2363*line 1265
2364move.l _oldsw,_swpt
2365*line 1266
2366jsr _lcdlbls
2367*line 1267
2368*line 1268
2369L167:
2370*line 1269
2371clr _recsw
2372*line 1270
2373jsr _dsrpmod
2374*line 1273
2375move _gomode,R0
2376bra L169
2377*line 1274
2378L170:
2379*line 1275
2380*line 1276
2381*line 1277
2382*line 1278
2383tst _pkctrl
2384beq L10023
2385cmp #1,_pkctrl
2386bne L171
2387L10023:*line 1278
2388move _pkctrl,_oldpk
2389*line 1279
2390L171:
2391*line 1280
2392move #2,_pkctrl
2393*line 1281
2394move #1,_gomode
2395*line 1282
2396move.l #L172,(sp)
2397move #31,-(sp)
2398clr -(sp)
2399jsr _GLCtext
2400addq.l #4,sp
2401*line 1283
2402move #1,(sp)
2403move #54,-(sp)
2404move #215,-(sp)
2405move #54,-(sp)
2406move #186,-(sp)
2407jsr _lseg
2408addq.l #8,sp
2409bra L168
2410*line 1284
2411*line 1285
2412L173:
2413*line 1286
2414*line 1287
2415*line 1288
2416move #2,_gomode
2417*line 1289
2418move.l #L174,(sp)
2419move #31,-(sp)
2420clr -(sp)
2421jsr _GLCtext
2422addq.l #4,sp
2423*line 1290
2424move #1,(sp)
2425move #54,-(sp)
2426move #215,-(sp)
2427move #54,-(sp)
2428move #186,-(sp)
2429jsr _lseg
2430addq.l #8,sp
2431bra L168
2432*line 1291
2433*line 1292
2434L175:
2435*line 1293
2436L176:
2437*line 1294
2438*line 1295
2439*line 1296
2440move _oldpk,_pkctrl
2441*line 1297
2442clr _gomode
2443*line 1298
2444move.l #L177,(sp)
2445move #31,-(sp)
2446clr -(sp)
2447jsr _GLCtext
2448addq.l #4,sp
2449*line 1299
2450clr (sp)
2451move #54,-(sp)
2452move #215,-(sp)
2453move #54,-(sp)
2454move #186,-(sp)
2455jsr _lseg
2456addq.l #8,sp
2457bra L168
2458*line 1300
2459bra L168
2460L169:tst R0
2461beq L170
2462cmp #1,R0
2463beq L173
2464cmp #2,R0
2465beq L175
2466bra L176
2467L168:
2468*line 1303
2469clr (sp)
2470jsr _GLCcurs
2471*line 1304
2472jsr _setleds
2473L165:unlk R14
2474rts
2475.globl _newpps
2476.text
2477_newpps:
2478~~newpps:
2479~trg=R7
2480~ival=R6
2481~grp=10
2482~src=12
2483link R14,#-4
2484movem.l R2-R7/R11-R13,-(sp)
2485~smf=R13
2486~smp=R12
2487~fpu=R11
2488~ltmp=R5
2489~val=R4
2490~vce=R3
2491~gs=-2
2492~oldi=-4
2493*line 1328
2494move 8(R14),R7
2495*line 1328
2496move 14(R14),R6
2497*line 1328
2498move 10(R14),R0
2499asl #4,R0
2500or 12(R14),R0
2501move R0,-2(R14)
2502*line 1329
2503move.l #16384+_io_fpu,R11
2504*line 1330
2505move -2(R14),R0
2506muls #10,R0
2507add.l #_valents,R0
2508move.l R0,R8
2509move R6,8(R8)
2510*line 1331
2511move -2(R14),R0
2512muls #10,R0
2513move.l R0,R13
2514add.l #_valents,R13
2515move.l R13,R12
2516*line 1335
2517bra L181
2518L180:
2519*line 1336
2520*line 1337
2521move 8(R12),R3
2522asr #4,R3
2523and #15,R3
2524*line 1338
2525*line 1339
2526*line 1339
2527move R3,R8
2528add.l R8,R8
2529add.l #_vce2trg,R8
2530cmp (R8),R7
2531bne L182
2532*line 1340
2533*line 1341
2534clr R0
2535move 8(R12),R0
2536and #15,R0
2537bra L184
2538*line 1342
2539L185:
2540*line 1343
2541L186:
2542*line 1344
2543L187:
2544*line 1345
2545L188:
2546*line 1346
2547*line 1347
2548*line 1348
2549move R6,R4
2550asr #3,R4
2551bra L183
2552*line 1349
2553*line 1350
2554L189:
2555*line 1351
2556*line 1352
2557*line 1353
2558move R6,R5
2559ext.l R5
2560asr.l #$1,R5
2561move R6,R0
2562ext.l R0
2563asr.l #$2,R0
2564add.l R0,R5
2565*line 1354
2566*line 1355
2567*line 1356
2568cmp.l #$7d00,R5
2569ble L190
2570*line 1356
2571move.l #$7d00,R5
2572bra L191
2573L190:
2574*line 1357
2575*line 1358
2576cmp.l #$ffff8300,R5
2577bge L192
2578*line 1358
2579move.l #$ffff8300,R5
2580*line 1359
2581L192:L191:
2582*line 1360
2583move R5,R4
2584bra L183
2585*line 1361
2586*line 1362
2587L193:
2588*line 1363
2589*line 1364
2590*line 1365
2591move R6,R4
2592bra L183
2593L184:sub #1,R0
2594cmp #9,R0
2595bhi L193
2596asl #2,R0
2597move R0,R8
2598add.l #L194,R8
2599move.l (R8),R8
2600jmp (R8)
2601.data
2602L194:.dc.l L185
2603.dc.l L193
2604.dc.l L186
2605.dc.l L193
2606.dc.l L187
2607.dc.l L193
2608.dc.l L188
2609.dc.l L193
2610.dc.l L193
2611.dc.l L189
2612.text
2613L183:
2614*line 1366
2615*line 1367
2616*line 1368
2617move #2,(sp)
2618jsr _setipl
2619move R0,-4(R14)
2620*line 1369
2621*line 1370
2622*line 1371
2623*line 1372
2624move.l R11,R8
2625clr R1
2626move 8(R12),R1
2627lsl #4,R1
2628lsl #1,R1
2629swap R1
2630clr R1
2631swap R1
2632add.l R1,R8
2633move R4,8(R8)
2634*line 1373
2635*line 1374
2636move -4(R14),(sp)
2637jsr _setipl
2638*line 1375
2639*line 1376
2640*line 1377
2641*line 1378
2642L182:L181:
2643*line 1379
2644move.l (R12),R12
2645cmp.l R12,R13
2646bne L180
2647L179:L178:tst.l (sp)+
2648movem.l (sp)+,R3-R7/R11-R13
2649unlk R14
2650rts
2651.globl _newsv
2652.text
2653_newsv:
2654~~newsv:
2655~ival=R7
2656~grp=8
2657~src=10
2658link R14,#-4
2659movem.l R2-R7/R11-R13,-(sp)
2660~smf=R13
2661~smp=R12
2662~fpu=R11
2663~ltmp=R6
2664~val=R5
2665~gs=R4
2666~oldi=R3
2667~vmask=-2
2668~var=-4
2669*line 1404
2670move 12(R14),R7
2671*line 1404
2672move 8(R14),R4
2673asl #4,R4
2674or 10(R14),R4
2675*line 1406
2676*line 1406
2677move 10(R14),R8
2678add.l R8,R8
2679move.l #_src2var,R9
2680move 0(R8,R9.l),R0
2681move R0,-4(R14)
2682cmp #-1,R0
2683beq L196
2684*line 1407
2685*line 1408
2686move -4(R14),R0
2687asl #5,R0
2688ext.l R0
2689move 8(R14),R1
2690asl #1,R1
2691ext.l R1
2692add.l R1,R0
2693move.l R0,R8
2694move.l #_anrs,R9
2695move 0(R8,R9.l),R8
2696add.l R8,R8
2697add.l #_vmasks,R8
2698move (R8),-2(R14)
2699*line 1409
2700*line 1410
2701*line 1411
2702*line 1412
2703*line 1412
2704move R4,R0
2705muls #10,R0
2706add.l #_valents,R0
2707move.l R0,R8
2708move 8(R8),R5
2709move R5,R0
2710and -2(R14),R0
2711move R7,R1
2712and -2(R14),R1
2713cmp R1,R0
2714bne L197
2715*line 1413
2716*line 1414
2717*line 1415
2718*line 1416
2719*line 1417
2720tst R7
2721bne L10024
2722tst R5
2723bne L198
2724L10024:*line 1417
2725clr R0
2726bra L195
2727L198:
2728*line 1418
2729L197:
2730*line 1419
2731*line 1420
2732L196:
2733*line 1421
2734move.l #16384+_io_fpu,R11
2735*line 1423
2736move R4,R0
2737muls #10,R0
2738add.l #_valents,R0
2739move.l R0,R8
2740move R7,8(R8)
2741*line 1425
2742move R4,R0
2743muls #10,R0
2744move.l R0,R13
2745add.l #_valents,R13
2746*line 1426
2747move.l R13,R12
2748*line 1430
2749bra L201
2750L200:
2751*line 1431
2752*line 1432
2753clr R0
2754move 8(R12),R0
2755and #15,R0
2756bra L203
2757*line 1433
2758L204:
2759*line 1434
2760L205:
2761*line 1435
2762L206:
2763*line 1436
2764L207:
2765*line 1437
2766*line 1438
2767*line 1439
2768move R7,R5
2769asr #3,R5
2770bra L202
2771*line 1440
2772*line 1441
2773L208:
2774*line 1442
2775*line 1443
2776*line 1444
2777move R7,R6
2778ext.l R6
2779asr.l #$1,R6
2780move R7,R0
2781ext.l R0
2782asr.l #$2,R0
2783add.l R0,R6
2784*line 1445
2785*line 1446
2786*line 1447
2787cmp.l #$7d00,R6
2788ble L209
2789*line 1447
2790move.l #$7d00,R6
2791bra L210
2792L209:
2793*line 1448
2794*line 1449
2795cmp.l #$ffff8300,R6
2796bge L211
2797*line 1449
2798move.l #$ffff8300,R6
2799*line 1450
2800L211:L210:
2801*line 1451
2802move R6,R5
2803bra L202
2804*line 1452
2805*line 1453
2806L212:
2807*line 1454
2808*line 1455
2809*line 1456
2810move R7,R5
2811bra L202
2812L203:sub #1,R0
2813cmp #9,R0
2814bhi L212
2815asl #2,R0
2816move R0,R8
2817add.l #L213,R8
2818move.l (R8),R8
2819jmp (R8)
2820.data
2821L213:.dc.l L204
2822.dc.l L212
2823.dc.l L205
2824.dc.l L212
2825.dc.l L206
2826.dc.l L212
2827.dc.l L207
2828.dc.l L212
2829.dc.l L212
2830.dc.l L208
2831.text
2832L202:
2833*line 1457
2834*line 1458
2835*line 1459
2836move #2,(sp)
2837jsr _setipl
2838move R0,R3
2839*line 1460
2840*line 1461
2841*line 1462
2842*line 1463
2843move.l R11,R8
2844clr R1
2845move 8(R12),R1
2846lsl #4,R1
2847lsl #1,R1
2848swap R1
2849clr R1
2850swap R1
2851add.l R1,R8
2852move R5,8(R8)
2853*line 1464
2854*line 1465
2855move R3,(sp)
2856jsr _setipl
2857*line 1466
2858*line 1467
2859*line 1468
2860L201:
2861*line 1469
2862move.l (R12),R12
2863cmp.l R12,R13
2864bne L200
2865L199:
2866*line 1471
2867move #1,R0
2868bra L195
2869L195:tst.l (sp)+
2870movem.l (sp)+,R3-R7/R11-R13
2871unlk R14
2872rts
2873.globl _setsv
2874.text
2875_setsv:
2876~~setsv:
2877~ival=R7
2878~grp=8
2879~src=10
2880link R14,#0
2881movem.l R2-R7/R11-R13,-(sp)
2882~smf=R13
2883~smp=R12
2884~fpu=R11
2885~ltmp=R6
2886~val=R5
2887~gs=R4
2888~oldi=R3
2889*line 1494
2890move 12(R14),R7
2891*line 1494
2892move 8(R14),R4
2893asl #4,R4
2894or 10(R14),R4
2895*line 1495
2896move.l #16384+_io_fpu,R11
2897*line 1497
2898move R4,R0
2899muls #10,R0
2900add.l #_valents,R0
2901move.l R0,R8
2902move R7,8(R8)
2903*line 1499
2904move R4,R0
2905muls #10,R0
2906move.l R0,R13
2907add.l #_valents,R13
2908*line 1500
2909move.l R13,R12
2910*line 1504
2911bra L217
2912L216:
2913*line 1505
2914*line 1506
2915clr R0
2916move 8(R12),R0
2917and #15,R0
2918bra L219
2919*line 1507
2920L220:
2921*line 1508
2922L221:
2923*line 1509
2924L222:
2925*line 1510
2926L223:
2927*line 1511
2928*line 1512
2929*line 1513
2930move R7,R5
2931asr #3,R5
2932bra L218
2933*line 1514
2934*line 1515
2935L224:
2936*line 1516
2937*line 1517
2938*line 1518
2939move R7,R6
2940ext.l R6
2941asr.l #$1,R6
2942move R7,R0
2943ext.l R0
2944asr.l #$2,R0
2945add.l R0,R6
2946*line 1519
2947*line 1520
2948*line 1521
2949cmp.l #$7d00,R6
2950ble L225
2951*line 1521
2952move.l #$7d00,R6
2953bra L226
2954L225:
2955*line 1522
2956*line 1523
2957cmp.l #$ffff8300,R6
2958bge L227
2959*line 1523
2960move.l #$ffff8300,R6
2961*line 1524
2962L227:L226:
2963*line 1525
2964move R6,R5
2965bra L218
2966*line 1526
2967*line 1527
2968L228:
2969*line 1528
2970*line 1529
2971*line 1530
2972move R7,R5
2973bra L218
2974L219:sub #1,R0
2975cmp #9,R0
2976bhi L228
2977asl #2,R0
2978move R0,R8
2979add.l #L229,R8
2980move.l (R8),R8
2981jmp (R8)
2982.data
2983L229:.dc.l L220
2984.dc.l L228
2985.dc.l L221
2986.dc.l L228
2987.dc.l L222
2988.dc.l L228
2989.dc.l L223
2990.dc.l L228
2991.dc.l L228
2992.dc.l L224
2993.text
2994L218:
2995*line 1531
2996*line 1532
2997*line 1533
2998move #2,(sp)
2999jsr _setipl
3000move R0,R3
3001*line 1534
3002*line 1535
3003*line 1536
3004*line 1537
3005move.l R11,R8
3006clr R1
3007move 8(R12),R1
3008lsl #4,R1
3009lsl #1,R1
3010swap R1
3011clr R1
3012swap R1
3013add.l R1,R8
3014move R5,8(R8)
3015*line 1538
3016*line 1539
3017move R3,(sp)
3018jsr _setipl
3019*line 1540
3020*line 1541
3021*line 1542
3022L217:
3023*line 1543
3024move.l (R12),R12
3025cmp.l R12,R13
3026bne L216
3027L215:L214:tst.l (sp)+
3028movem.l (sp)+,R3-R7/R11-R13
3029unlk R14
3030rts
3031.globl _l_prmtr
3032.text
3033_l_prmtr:
3034~~l_prmtr:
3035~stat=8
3036~sig=10
3037link R14,#-4
3038*line 1558
3039*line 1559
3040tst 8(R14)
3041beq L230
3042*line 1560
3043*line 1561
3044move _sliders,R0
3045bra L232
3046*line 1562
3047L233:
3048*line 1563
3049L234:
3050*line 1564
3051L235:
3052*line 1565
3053*line 1566
3054*line 1567
3055move #1,_sliders
3056*line 1568
3057move.l #_t_voice,_swpt
3058bra L231
3059*line 1569
3060*line 1570
3061L236:
3062*line 1571
3063L237:
3064*line 1572
3065*line 1573
3066*line 1574
3067clr _sliders
3068*line 1575
3069move.l #_t_prmtr,_swpt
3070bra L231
3071*line 1576
3072bra L231
3073L232:tst R0
3074beq L233
3075cmp #1,R0
3076beq L236
3077cmp #2,R0
3078beq L234
3079cmp #3,R0
3080beq L235
3081bra L237
3082L231:
3083*line 1579
3084jsr _lcdlbls
3085*line 1580
3086jsr _setleds
3087L230:unlk R14
3088rts
3089.globl _l_voice
3090.text
3091_l_voice:
3092~~l_voice:
3093~stat=8
3094~vce=10
3095link R14,#-8
3096movem.l R4-R7/R13-R13,-(sp)
3097~ap=R7
3098~j=R6
3099~par=R5
3100~fpu=R13
3101~buf=-8
3102*line 1600
3103*line 1601
3104tst 8(R14)
3105beq L238
3106*line 1602
3107*line 1603
3108move 10(R14),R8
3109add.l R8,R8
3110move.l #_articen,R9
3111tst 0(R8,R9.l)
3112beq L10025
3113clr R0
3114bra L10026
3115L10025:move #1,R0
3116L10026:move 10(R14),R9
3117add.l R9,R9
3118add.l #_articen,R9
3119move R0,(R9)
3120*line 1605
3121*line 1606
3122move 10(R14),R8
3123add.l R8,R8
3124move.l #_articen,R9
3125tst 0(R8,R9.l)
3126beq L10027
3127move #127,(sp)
3128bra L10029
3129L10027:move #32,(sp)
3130L10029:move 10(R14),-(sp)
3131add #1,(sp)
3132move 10(R14),R8
3133add.l R8,R8
3134move.l #_articen,R9
3135tst 0(R8,R9.l)
3136beq L10030
3137move #126,-(sp)
3138bra L10032
3139L10030:move #32,-(sp)
3140L10032:move.l #L239,-(sp)
3141move.l R14,-(sp)
3142sub.l #8,(sp)
3143jsr _sprintf
3144adda.l #12,sp
3145*line 1608
3146move #1,(sp)
3147jsr _GLCcurs
3148*line 1609
3149move.l R14,(sp)
3150sub.l #8,(sp)
3151move 10(R14),R0
3152muls #6,R0
3153move R0,-(sp)
3154add #1,(sp)
3155clr -(sp)
3156jsr _GLCtext
3157addq.l #4,sp
3158*line 1610
3159clr (sp)
3160jsr _GLCcurs
3161*line 1612
3162*line 1612
3163move 10(R14),R8
3164add.l R8,R8
3165move.l #_articen,R9
3166tst 0(R8,R9.l)
3167beq L240
3168*line 1613
3169*line 1614
3170clr R7
3171bra L243
3172L244:
3173*line 1615
3174*line 1616
3175move R7,R8
3176add.l R8,R8
3177add.l #_arpar,R8
3178move (R8),R5
3179*line 1617
3180move R5,R8
3181add.l R8,R8
3182move.l #_lastart,R9
3183move 0(R8,R9.l),(sp)
3184move R5,-(sp)
3185move 10(R14),-(sp)
3186jsr _sendart
3187addq.l #4,sp
3188L242:
3189*line 1614
3190add #1,R7
3191L243:
3192*line 1614
3193cmp #14,R7
3194blt L244
3195L241:
3196*line 1618
3197*line 1619
3198bra L245
3199L240:
3200*line 1620
3201*line 1621
3202*line 1622
3203move 10(R14),R0
3204asl #8,R0
3205asl #1,R0
3206ext.l R0
3207move.l R0,R13
3208add.l #_io_fpu,R13
3209add.l #$4000,R13
3210*line 1623
3211*line 1624
3212move #1,R6
3213bra L248
3214L249:
3215*line 1625
3216move.l R13,R8
3217move R6,R1
3218asl #4,R1
3219move R1,R9
3220add.l R9,R9
3221add.l R9,R8
3222clr 14(R8)
3223L247:
3224*line 1624
3225add #1,R6
3226L248:
3227*line 1624
3228cmp #16,R6
3229blt L249
3230L246:
3231*line 1625
3232L245:L238:tst.l (sp)+
3233movem.l (sp)+,R5-R7/R13-R13
3234unlk R14
3235rts
3236.globl _l_group
3237.text
3238_l_group:
3239~~l_group:
3240~stat=8
3241~grp=10
3242link R14,#-12
3243~buf=-8
3244*line 1643
3245*line 1644
3246tst 8(R14)
3247beq L250
3248*line 1645
3249*line 1646
3250move 10(R14),R8
3251add.l R8,R8
3252move.l #_grpsel,R9
3253tst 0(R8,R9.l)
3254beq L10033
3255clr R0
3256bra L10034
3257L10033:move #1,R0
3258L10034:move 10(R14),R9
3259add.l R9,R9
3260add.l #_grpsel,R9
3261move R0,(R9)
3262*line 1648
3263*line 1649
3264move 10(R14),R8
3265add.l R8,R8
3266move.l #_grpsel,R9
3267tst 0(R8,R9.l)
3268beq L10035
3269move #127,(sp)
3270bra L10037
3271L10035:move #32,(sp)
3272L10037:move 10(R14),-(sp)
3273add #1,(sp)
3274move 10(R14),R8
3275add.l R8,R8
3276move.l #_grpsel,R9
3277tst 0(R8,R9.l)
3278beq L10038
3279move #126,-(sp)
3280bra L10040
3281L10038:move #32,-(sp)
3282L10040:move.l #L251,-(sp)
3283move.l R14,-(sp)
3284sub.l #8,(sp)
3285jsr _sprintf
3286adda.l #12,sp
3287*line 1651
3288move #1,(sp)
3289jsr _GLCcurs
3290*line 1652
3291move.l R14,(sp)
3292sub.l #8,(sp)
3293move 10(R14),R0
3294muls #6,R0
3295move R0,-(sp)
3296add #1,(sp)
3297clr -(sp)
3298jsr _GLCtext
3299addq.l #4,sp
3300*line 1653
3301clr (sp)
3302jsr _GLCcurs
3303L250:unlk R14
3304rts
3305.globl _l_other
3306.text
3307_l_other:
3308~~l_other:
3309~stat=8
3310~sig=10
3311link R14,#-4
3312*line 1665
3313*line 1666
3314tst 8(R14)
3315beq L252
3316*line 1667
3317*line 1668
3318move #2,_sliders
3319*line 1669
3320move.l #_t_other,_swpt
3321*line 1671
3322jsr _lcdlbls
3323L252:unlk R14
3324rts
3325.globl _l_eq
3326.text
3327_l_eq:
3328~~l_eq:
3329~stat=8
3330~sig=10
3331link R14,#-4
3332*line 1686
3333*line 1687
3334tst 8(R14)
3335beq L253
3336*line 1688
3337*line 1689
3338*line 1689
3339cmp #3,_sliders
3340bne L254
3341*line 1690
3342*line 1691
3343clr _sliders
3344*line 1692
3345move.l #_t_prmtr,_swpt
3346*line 1693
3347bra L255
3348L254:
3349*line 1694
3350*line 1695
3351*line 1696
3352move #3,_sliders
3353*line 1697
3354move.l #_t_eq,_swpt
3355L255:
3356*line 1700
3357jsr _lcdlbls
3358L253:unlk R14
3359rts
3360.globl _artclr
3361.text
3362_artclr:
3363~~artclr:
3364link R14,#0
3365movem.l R6-R7,-(sp)
3366~i=R7
3367*line 1713
3368clr R7
3369bra L259
3370L260:
3371*line 1714
3372move R7,R8
3373add.l R8,R8
3374move.l #_arpar,R9
3375move 0(R8,R9.l),R8
3376add.l R8,R8
3377add.l #_lastart,R8
3378move R7,R9
3379add.l R9,R9
3380add.l #_artitab,R9
3381move (R9),(R8)
3382L258:
3383*line 1713
3384add #1,R7
3385L259:
3386*line 1713
3387cmp #14,R7
3388blt L260
3389L257:L256:tst.l (sp)+
3390movem.l (sp)+,R7-R7
3391unlk R14
3392rts
3393.globl _l_init
3394.text
3395_l_init:
3396~~l_init:
3397~stat=8
3398~sig=10
3399link R14,#-16
3400movem.l R4-R7/R13-R13,-(sp)
3401~fpu=R13
3402~barval=R7
3403~i=R6
3404~j=R5
3405~buf=-16
3406*line 1733
3407*line 1734
3408tst 8(R14)
3409beq L261
3410*line 1735
3411*line 1736
3412move.l #16384+_io_fpu,R13
3413*line 1738
3414move _sliders,R0
3415bra L263
3416*line 1739
3417L264:
3418*line 1740
3419L265:
3420*line 1741
3421L266:
3422*line 1742
3423L267:
3424*line 1743
3425L268:
3426*line 1744
3427L269:
3428*line 1745
3429*line 1746
3430*line 1747
3431*line 1748
3432*line 1749
3433clr R6
3434bra L272
3435L273:
3436*line 1750
3437move #1,R5
3438bra L276
3439L277:
3440*line 1751
3441move.l R13,R8
3442move R6,R1
3443asl #8,R1
3444move R1,R9
3445add.l R9,R9
3446add.l R9,R8
3447move R5,R1
3448asl #4,R1
3449move R1,R9
3450add.l R9,R9
3451add.l R9,R8
3452clr 14(R8)
3453L275:
3454*line 1750
3455add #1,R5
3456L276:
3457*line 1750
3458cmp #16,R5
3459blt L277
3460L274:L271:
3461*line 1749
3462add #1,R6
3463L272:
3464*line 1749
3465cmp #12,R6
3466blt L273
3467L270:
3468*line 1751
3469*line 1752
3470*line 1753
3471jsr _artclr
3472*line 1754
3473*line 1755
3474clr R6
3475bra L280
3476L281:
3477*line 1756
3478*line 1757
3479move R6,R8
3480add.l R8,R8
3481add.l #_BGprmtr,R8
3482move R6,R9
3483add.l R9,R9
3484add.l #_artitab,R9
3485move (R9),(R8)
3486*line 1758
3487*line 1759
3488*line 1759
3489move R6,R8
3490add.l R8,R8
3491move.l #_BarType,R9
3492tst 0(R8,R9.l)
3493beq L282
3494*line 1760
3495*line 1761
3496move R6,R8
3497add.l R8,R8
3498add.l #_artitab,R8
3499move (R8),R7
3500asr #5,R7
3501add #-500,R7
3502asl #6,R7
3503ext.l R7
3504divs #252,R7
3505*line 1762
3506move R7,(sp)
3507move R6,-(sp)
3508jsr _BarCset
3509addq.l #2,sp
3510*line 1763
3511bra L283
3512L282:
3513*line 1764
3514*line 1765
3515*line 1766
3516move R6,R8
3517add.l R8,R8
3518add.l #_artitab,R8
3519move (R8),R7
3520ext.l R7
3521divs #252,R7
3522*line 1767
3523move R7,(sp)
3524move R6,-(sp)
3525jsr _BarBset
3526addq.l #2,sp
3527L283:
3528*line 1768
3529L279:
3530*line 1755
3531add #1,R6
3532L280:
3533*line 1755
3534cmp #14,R6
3535blt L281
3536L278:
3537*line 1769
3538*line 1770
3539bra L262
3540*line 1771
3541*line 1772
3542L284:
3543*line 1773
3544*line 1774
3545*line 1775
3546*line 1776
3547*line 1777
3548move #1,R6
3549bra L287
3550L288:
3551*line 1778
3552move.l R13,R8
3553move R6,R1
3554asl #8,R1
3555move R1,R9
3556add.l R9,R9
3557add.l R9,R8
3558clr 14(R8)
3559L286:
3560*line 1777
3561add #1,R6
3562L287:
3563*line 1777
3564cmp #12,R6
3565blt L288
3566L285:
3567*line 1778
3568*line 1779
3569*line 1780
3570clr R6
3571bra L291
3572L292:
3573*line 1781
3574move R6,R8
3575add.l R8,R8
3576add.l #_BGother,R8
3577move #0,R0
3578move R0,(R8)
3579move R0,(sp)
3580move R6,-(sp)
3581jsr _BarBset
3582addq.l #2,sp
3583L290:
3584*line 1780
3585add #1,R6
3586L291:
3587*line 1780
3588cmp #14,R6
3589blt L292
3590L289:
3591*line 1781
3592*line 1782
3593bra L262
3594*line 1783
3595*line 1784
3596L293:
3597*line 1785
3598*line 1786
3599*line 1787
3600clr R6
3601bra L296
3602L297:
3603*line 1788
3604*line 1789
3605clr (sp)
3606jsr _gain2eq
3607move R0,(sp)
3608move R6,-(sp)
3609jsr _sendeq
3610addq.l #2,sp
3611*line 1790
3612move R6,R8
3613add.l R8,R8
3614add.l #_BGeq,R8
3615move #0,R0
3616move R0,(R8)
3617move R0,(sp)
3618move R6,-(sp)
3619jsr _BarCset
3620addq.l #2,sp
3621L295:
3622*line 1787
3623add #1,R6
3624L296:
3625*line 1787
3626cmp #14,R6
3627blt L297
3628L294:
3629*line 1791
3630*line 1792
3631bra L262
3632*line 1793
3633bra L262
3634L263:cmp #7,R0
3635bhi L262
3636asl #2,R0
3637move R0,R8
3638add.l #L298,R8
3639move.l (R8),R8
3640jmp (R8)
3641.data
3642L298:.dc.l L264
3643.dc.l L265
3644.dc.l L284
3645.dc.l L293
3646.dc.l L266
3647.dc.l L267
3648.dc.l L268
3649.dc.l L269
3650.text
3651L262:L261:tst.l (sp)+
3652movem.l (sp)+,R5-R7/R13-R13
3653unlk R14
3654rts
3655.globl _sendart
3656.text
3657_sendart:
3658~~sendart:
3659~vce=8
3660~par=10
3661~ival=12
3662link R14,#-2
3663movem.l R4-R7/R13-R13,-(sp)
3664~fpu=R13
3665~val=R7
3666~oldi=R6
3667~mult=R5
3668~nop=-2
3669*line 1813
3670move 10(R14),R8
3671add.l R8,R8
3672add.l #_lastart,R8
3673move 12(R14),(R8)
3674*line 1815
3675move 8(R14),R0
3676asl #8,R0
3677asl #1,R0
3678ext.l R0
3679move.l R0,R13
3680move 10(R14),R0
3681asl #4,R0
3682asl #1,R0
3683ext.l R0
3684add.l R0,R13
3685add.l #_io_fpu,R13
3686add.l #$4000,R13
3687*line 1816
3688move #32767,R5
3689*line 1818
3690move 10(R14),R0
3691bra L301
3692*line 1819
3693L302:
3694*line 1820
3695L303:
3696*line 1821
3697L304:
3698*line 1822
3699L305:
3700*line 1823
3701*line 1824
3702*line 1825
3703clr (sp)
3704move 12(R14),-(sp)
3705jsr _addpch
3706addq.l #2,sp
3707move R0,R7
3708bra L300
3709*line 1826
3710*line 1827
3711L306:
3712*line 1828
3713*line 1829
3714*line 1830
3715move 12(R14),R7
3716asr #5,R7
3717add #-500,R7
3718asl #5,R7
3719bra L300
3720*line 1831
3721*line 1832
3722*line 1833
3723*line 1834
3724*line 1835
3725L307:
3726*line 1836
3727*line 1837
3728*line 1838
3729move 12(R14),R7
3730*line 1839
3731move #-1,R5
3732bra L300
3733*line 1840
3734*line 1841
3735L308:
3736*line 1842
3737*line 1843
3738*line 1844
3739move 12(R14),R7
3740asr #5,R7
3741add #-500,R7
3742asl #5,R7
3743*line 1845
3744move #-1,R5
3745bra L300
3746*line 1846
3747*line 1847
3748L309:
3749*line 1848
3750*line 1849
3751*line 1850
3752move 12(R14),R7
3753bra L300
3754L301:sub #1,R0
3755cmp #9,R0
3756bhi L309
3757asl #2,R0
3758move R0,R8
3759add.l #L310,R8
3760move.l (R8),R8
3761jmp (R8)
3762.data
3763L310:.dc.l L302
3764.dc.l L307
3765.dc.l L303
3766.dc.l L308
3767.dc.l L304
3768.dc.l L309
3769.dc.l L305
3770.dc.l L309
3771.dc.l L309
3772.dc.l L306
3773.text
3774L300:
3775*line 1853
3776move #2,(sp)
3777jsr _setipl
3778move R0,R6
3779*line 1857
3780move R7,12(R13)
3781*line 1858
3782add #1,-2(R14)
3783*line 1858
3784add #1,-2(R14)
3785*line 1858
3786add #1,-2(R14)
3787*line 1859
3788move R5,14(R13)
3789*line 1861
3790move R6,(sp)
3791jsr _setipl
3792L299:tst.l (sp)+
3793movem.l (sp)+,R5-R7/R13-R13
3794unlk R14
3795rts
3796.globl _doslide
3797.text
3798_doslide:
3799~~doslide:
3800link R14,#0
3801movem.l R2-R7,-(sp)
3802~arp=R7
3803~bar=R6
3804~barval=R5
3805~i=R4
3806~slval=R3
3807*line 1880
3808move _aval,R0
3809sub #5,R0
3810cmp #100,R0
3811ble L10041
3812move #100,R0
3813bra L10043
3814L10041:move _aval,R0
3815sub #5,R0
3816bge L10044
3817clr R0
3818bra L10046
3819L10044:move _aval,R0
3820sub #5,R0
3821L10046:L10043:move R0,R3
3822muls #320,R3
3823*line 1881
3824move _asig,R6
3825add #-25,R6
3826*line 1883
3827move _sliders,R0
3828bra L313
3829*line 1884
3830L314:
3831*line 1885
3832L315:
3833*line 1886
3834L316:
3835*line 1887
3836L317:
3837*line 1888
3838L318:
3839*line 1889
3840L319:
3841*line 1890
3842*line 1891
3843*line 1892
3844move R6,R8
3845add.l R8,R8
3846add.l #_BGprmtr,R8
3847move R3,(R8)
3848*line 1893
3849move R6,R8
3850add.l R8,R8
3851add.l #_arpar,R8
3852move (R8),R7
3853*line 1894
3854*line 1895
3855clr R4
3856bra L322
3857L323:
3858*line 1896
3859*line 1897
3860move R4,R8
3861add.l R8,R8
3862move.l #_articen,R9
3863tst 0(R8,R9.l)
3864beq L324
3865*line 1897
3866move R3,(sp)
3867move R7,-(sp)
3868move R4,-(sp)
3869jsr _sendart
3870addq.l #4,sp
3871*line 1898
3872L324:L321:
3873*line 1895
3874add #1,R4
3875L322:
3876*line 1895
3877cmp #12,R4
3878blt L323
3879L320:
3880*line 1899
3881*line 1899
3882move R6,R8
3883add.l R8,R8
3884move.l #_BarType,R9
3885tst 0(R8,R9.l)
3886beq L325
3887*line 1900
3888*line 1901
3889move R3,R5
3890asr #5,R5
3891add #-500,R5
3892asl #6,R5
3893ext.l R5
3894divs #252,R5
3895*line 1902
3896move R5,(sp)
3897move R6,-(sp)
3898jsr _BarCadj
3899addq.l #2,sp
3900*line 1903
3901bra L326
3902L325:
3903*line 1904
3904*line 1905
3905*line 1906
3906move R3,R5
3907ext.l R5
3908divs #252,R5
3909*line 1907
3910move R5,(sp)
3911move R6,-(sp)
3912jsr _BarBadj
3913addq.l #2,sp
3914L326:
3915*line 1908
3916*line 1909
3917bra L311
3918*line 1910
3919*line 1911
3920*line 1912
3921L327:
3922*line 1913
3923*line 1914
3924*line 1915
3925move _asig,R0
3926bra L329
3927*line 1916
3928L330:
3929*line 1917
3930*line 1918
3931move R3,(sp)
3932clr -(sp)
3933move #9,-(sp)
3934jsr _sendart
3935addq.l #4,sp
3936bra L328
3937*line 1919
3938*line 1920
3939L331:
3940*line 1921
3941*line 1922
3942move R3,(sp)
3943clr -(sp)
3944move #3,-(sp)
3945jsr _sendart
3946addq.l #4,sp
3947bra L328
3948*line 1923
3949*line 1924
3950L332:
3951*line 1925
3952*line 1926
3953move R3,(sp)
3954clr -(sp)
3955move #2,-(sp)
3956jsr _sendart
3957addq.l #4,sp
3958bra L328
3959*line 1927
3960*line 1928
3961L333:
3962*line 1929
3963*line 1930
3964move R3,(sp)
3965clr -(sp)
3966move #1,-(sp)
3967jsr _sendart
3968addq.l #4,sp
3969bra L328
3970*line 1931
3971*line 1932
3972L334:
3973*line 1933
3974*line 1934
3975move R3,(sp)
3976clr -(sp)
3977move #11,-(sp)
3978jsr _sendart
3979addq.l #4,sp
3980bra L328
3981*line 1935
3982*line 1936
3983L335:
3984*line 1937
3985*line 1938
3986move R3,(sp)
3987clr -(sp)
3988move #10,-(sp)
3989jsr _sendart
3990addq.l #4,sp
3991bra L328
3992*line 1939
3993*line 1940
3994L336:
3995*line 1941
3996*line 1942
3997move R3,(sp)
3998clr -(sp)
3999move #6,-(sp)
4000jsr _sendart
4001addq.l #4,sp
4002bra L328
4003*line 1943
4004*line 1944
4005L337:
4006*line 1945
4007*line 1946
4008move R3,(sp)
4009clr -(sp)
4010move #8,-(sp)
4011jsr _sendart
4012addq.l #4,sp
4013bra L328
4014*line 1947
4015*line 1948
4016L338:
4017*line 1949
4018*line 1950
4019clr R3
4020bra L328
4021*line 1951
4022bra L328
4023L329:sub #26,R0
4024cmp #7,R0
4025bhi L338
4026asl #2,R0
4027move R0,R8
4028add.l #L339,R8
4029move.l (R8),R8
4030jmp (R8)
4031.data
4032L339:.dc.l L330
4033.dc.l L331
4034.dc.l L332
4035.dc.l L333
4036.dc.l L334
4037.dc.l L335
4038.dc.l L336
4039.dc.l L337
4040.text
4041L328:
4042*line 1952
4043*line 1953
4044*line 1954
4045move R6,R8
4046add.l R8,R8
4047add.l #_BGother,R8
4048move R3,(R8)
4049*line 1955
4050move R3,R5
4051ext.l R5
4052divs #252,R5
4053*line 1956
4054move R5,(sp)
4055move R6,-(sp)
4056jsr _BarBadj
4057addq.l #2,sp
4058*line 1957
4059bra L311
4060*line 1958
4061*line 1959
4062*line 1960
4063*line 1961
4064L340:
4065*line 1962
4066*line 1963
4067*line 1964
4068move R3,R5
4069asr #5,R5
4070add #-500,R5
4071asl #6,R5
4072ext.l R5
4073divs #252,R5
4074*line 1965
4075move R6,R8
4076add.l R8,R8
4077add.l #_BGeq,R8
4078move R5,(R8)
4079*line 1966
4080move R3,R0
4081move #11,R1
4082asr R1,R0
4083add #16,R0
4084move R0,R8
4085add.l R8,R8
4086move.l #_sl2gain,R9
4087move 0(R8,R9.l),(sp)
4088jsr _gain2eq
4089move R0,(sp)
4090move R6,-(sp)
4091jsr _sendeq
4092addq.l #2,sp
4093*line 1967
4094move R5,(sp)
4095move R6,-(sp)
4096jsr _BarCadj
4097addq.l #2,sp
4098*line 1968
4099bra L311
4100*line 1969
4101*line 1970
4102L341:
4103*line 1971
4104bra L311
4105*line 1972
4106bra L312
4107L313:cmp #7,R0
4108bhi L341
4109asl #2,R0
4110move R0,R8
4111add.l #L342,R8
4112move.l (R8),R8
4113jmp (R8)
4114.data
4115L342:.dc.l L314
4116.dc.l L315
4117.dc.l L327
4118.dc.l L340
4119.dc.l L316
4120.dc.l L317
4121.dc.l L318
4122.dc.l L319
4123.text
4124L312:L311:tst.l (sp)+
4125movem.l (sp)+,R3-R7
4126unlk R14
4127rts
4128.globl _settmpo
4129.text
4130_settmpo:
4131~~settmpo:
4132~val=8
4133link R14,#0
4134movem.l R6-R7,-(sp)
4135~timeval=R7
4136*line 1990
4137move 8(R14),_tmpoval
4138*line 1991
4139move _tmpomlt,R7
4140add #50,R7
4141muls _tmpoval,R7
4142ext.l R7
4143divs #100,R7
4144*line 1992
4145move R7,R0
4146ext.l R0
4147move.l R0,-(sp)
4148move.l #$2ee00,-(sp)
4149jsr ldiv
4150addq.l #8,sp
4151sub.l #$1,R0
4152move R0,R7
4153*line 1993
4154move R7,R0
4155asr #8,R0
4156move.b R0,8+_io_time
4157*line 1994
4158move R7,R0
4159and #255,R0
4160move.b R0,10+_io_time
4161L343:tst.l (sp)+
4162movem.l (sp)+,R7-R7
4163unlk R14
4164rts
4165.globl _settune
4166.text
4167_settune:
4168~~settune:
4169link R14,#-2
4170movem.l R2-R7/R13-R13,-(sp)
4171~oldi=R7
4172~i=R6
4173~grp=R5
4174~fpu=R13
4175~trval=R4
4176~trmax=R3
4177~nop=-2
4178*line 2013
4179move.l #$55a0,R3
4180*line 2015
4181move #8704,(sp)
4182jsr _setsr
4183move R0,R7
4184*line 2019
4185clr R6
4186bra L347
4187L348:
4188*line 2020
4189*line 2021
4190*line 2021
4191move R6,R8
4192add.l R8,R8
4193add.l #_vce2grp,R8
4194move (R8),R5
4195cmp #-1,R5
4196beq L349
4197*line 2022
4198*line 2023
4199move _tuneval,R4
4200ext.l R4
4201move R5,R8
4202sub #1,R8
4203add.l R8,R8
4204move.l #_s_trns,R9
4205move 0(R8,R9.l),R0
4206ext.l R0
4207asl.l #$1,R0
4208add.l R0,R4
4209*line 2024
4210*line 2025
4211*line 2026
4212cmp.l R3,R4
4213ble L350
4214*line 2026
4215move.l R3,R4
4216*line 2027
4217L350:bra L351
4218L349:
4219*line 2028
4220*line 2029
4221*line 2030
4222move _tuneval,R4
4223ext.l R4
4224L351:
4225*line 2031
4226*line 2032
4227*line 2033
4228move R6,R0
4229asl #8,R0
4230asl #1,R0
4231ext.l R0
4232move.l R0,R13
4233add.l #_io_fpu,R13
4234add.l #$4020,R13
4235*line 2034
4236*line 2035
4237move.l R4,R0
4238and.l #$ffff,R0
4239move R0,16(R13)
4240*line 2036
4241add #1,-2(R14)
4242*line 2036
4243add #1,-2(R14)
4244*line 2036
4245add #1,-2(R14)
4246*line 2037
4247move #32767,18(R13)
4248L346:
4249*line 2019
4250add #1,R6
4251L347:
4252*line 2019
4253cmp #12,R6
4254blt L348
4255L345:
4256*line 2040
4257move R7,(sp)
4258jsr _setsr
4259L344:tst.l (sp)+
4260movem.l (sp)+,R3-R7/R13-R13
4261unlk R14
4262rts
4263.data
4264L1:.dc.b $4C,$6F,$63,$6E,$20,$20,$4C,$65,$76,$65,$6C,$20,$49,$6E,$64,$20,$31,$20,$49,$6E,$64,$20,$32,$20,$49,$6E,$64,$20,$33,$20
4265.dc.b $46,$72,$71,$20,$31,$20,$46,$72,$71,$20,$32,$20,$46,$72,$71,$20,$33,$20,$46,$72,$71,$20,$34,$20,$49,$6E,$64,$20,$34,$20
4266.dc.b $49,$6E,$64,$20,$35,$20,$49,$6E,$64,$20,$36,$20,$46,$69,$6C,$74,$72,$20,$52,$65,$73,$6F,$6E,$0
4267L2:.dc.b $4C,$6F,$63,$6E,$20,$20,$4C,$65,$76,$65,$6C,$20,$49,$6E,$64,$20,$31,$20,$49,$6E,$64,$20,$32,$20,$49,$6E,$64,$20,$33,$20
4268.dc.b $46,$72,$71,$20,$31,$20,$46,$72,$71,$20,$32,$20,$46,$72,$71,$20,$33,$20,$46,$72,$71,$20,$34,$20,$49,$6E,$64,$20,$34,$20
4269.dc.b $49,$6E,$64,$20,$35,$20,$49,$6E,$64,$20,$36,$20,$46,$69,$6C,$74,$72,$20,$52,$65,$73,$6F,$6E,$0
4270L3:.dc.b $20,$20,$20,$20,$20,$20,$41,$75,$78,$20,$20,$20,$44,$65,$70,$74,$68,$20,$52,$61,$74,$65,$20,$20,$49,$6E,$74,$65,$6E,$20
4271.dc.b $43,$56,$20,$31,$20,$20,$43,$56,$20,$32,$20,$20,$43,$56,$20,$33,$20,$20,$43,$56,$20,$34,$20,$20,$20,$20,$20,$20,$20,$20
4272.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
4273L4:.dc.b $20,$35,$30,$20,$20,$20,$20,$31,$35,$30,$20,$20,$20,$34,$30,$30,$20,$20,$20,$20,$31,$6B,$20,$20,$32,$2E,$35,$6B,$20,$20
4274.dc.b $20,$20,$36,$6B,$20,$20,$20,$31,$35,$6B,$20,$20,$20,$35,$30,$20,$20,$20,$20,$31,$35,$30,$20,$20,$20,$34,$30,$30,$20,$20
4275.dc.b $20,$20,$31,$6B,$20,$20,$32,$2E,$35,$6B,$20,$20,$20,$20,$36,$6B,$20,$20,$20,$31,$35,$6B,$20,$0
4276L5:.dc.b $4C,$6F,$63,$6E,$20,$20,$4C,$65,$76,$65,$6C,$20,$49,$6E,$64,$20,$31,$20,$49,$6E,$64,$20,$32,$20,$49,$6E,$64,$20,$33,$20
4277.dc.b $46,$72,$71,$20,$31,$20,$46,$72,$71,$20,$32,$20,$46,$72,$71,$20,$33,$20,$46,$72,$71,$20,$34,$20,$49,$6E,$64,$20,$34,$20
4278.dc.b $49,$6E,$64,$20,$35,$20,$49,$6E,$64,$20,$36,$20,$46,$69,$6C,$74,$72,$20,$52,$65,$73,$6F,$6E,$0
4279L6:.dc.b $4C,$6F,$63,$6E,$20,$20,$4C,$65,$76,$65,$6C,$20,$49,$6E,$64,$20,$31,$20,$49,$6E,$64,$20,$32,$20,$49,$6E,$64,$20,$33,$20
4280.dc.b $46,$72,$71,$20,$31,$20,$46,$72,$71,$20,$32,$20,$46,$72,$71,$20,$33,$20,$46,$72,$71,$20,$34,$20,$49,$6E,$64,$20,$34,$20
4281.dc.b $49,$6E,$64,$20,$35,$20,$49,$6E,$64,$20,$36,$20,$46,$69,$6C,$74,$72,$20,$52,$65,$73,$6F,$6E,$0
4282L7:.dc.b $4C,$6F,$63,$6E,$20,$20,$4C,$65,$76,$65,$6C,$20,$49,$6E,$64,$20,$31,$20,$49,$6E,$64,$20,$32,$20,$49,$6E,$64,$20,$33,$20
4283.dc.b $46,$72,$71,$20,$31,$20,$46,$72,$71,$20,$32,$20,$46,$72,$71,$20,$33,$20,$46,$72,$71,$20,$34,$20,$49,$6E,$64,$20,$34,$20
4284.dc.b $49,$6E,$64,$20,$35,$20,$49,$6E,$64,$20,$36,$20,$46,$69,$6C,$74,$72,$20,$52,$65,$73,$6F,$6E,$0
4285L8:.dc.b $4C,$6F,$63,$6E,$20,$20,$4C,$65,$76,$65,$6C,$20,$49,$6E,$64,$20,$31,$20,$49,$6E,$64,$20,$32,$20,$49,$6E,$64,$20,$33,$20
4286.dc.b $46,$72,$71,$20,$31,$20,$46,$72,$71,$20,$32,$20,$46,$72,$71,$20,$33,$20,$46,$72,$71,$20,$34,$20,$49,$6E,$64,$20,$34,$20
4287.dc.b $49,$6E,$64,$20,$35,$20,$49,$6E,$64,$20,$36,$20,$46,$69,$6C,$74,$72,$20,$52,$65,$73,$6F,$6E,$0
4288L9:.dc.b $51,$75,$69,$65,$74,$20,$52,$4F,$4D,$50,$20,$20,$4C,$61,$6D,$70,$20,$20,$43,$6C,$6F,$63,$6B,$20,$20,$50,$2F,$52,$20,$20
4289.dc.b $47,$6F,$20,$54,$6F,$20,$49,$6E,$73,$74,$72,$20,$41,$73,$67,$6D,$74,$20,$4C,$6F,$61,$64,$20,$20,$20,$20,$20,$20,$20,$20
4290.dc.b $20,$20,$20,$20,$20,$20,$4F,$74,$68,$65,$72,$20,$56,$6F,$69,$63,$65,$20,$49,$6E,$69,$74,$20,$0
4291L10:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4292.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4293.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$56,$6F,$69,$63,$65,$20,$49,$6E,$69,$74,$20,$0
4294L11:.dc.b $51,$75,$69,$65,$74,$20,$52,$4F,$4D,$50,$20,$20,$4C,$61,$6D,$70,$20,$20,$43,$6C,$6F,$63,$6B,$20,$20,$50,$2F,$52,$20,$20
4295.dc.b $47,$6F,$20,$54,$6F,$20,$49,$6E,$73,$74,$72,$20,$41,$73,$67,$6D,$74,$20,$4C,$6F,$61,$64,$20,$20,$20,$20,$20,$20,$20,$20
4296.dc.b $20,$20,$20,$20,$20,$20,$20,$45,$51,$20,$20,$20,$56,$6F,$69,$63,$65,$20,$49,$6E,$69,$74,$20,$0
4297L12:.dc.b $51,$75,$69,$65,$74,$20,$52,$4F,$4D,$50,$20,$20,$4C,$61,$6D,$70,$20,$20,$43,$6C,$6F,$63,$6B,$20,$20,$50,$2F,$52,$20,$20
4298.dc.b $47,$6F,$20,$54,$6F,$20,$49,$6E,$73,$74,$72,$20,$41,$73,$67,$6D,$74,$20,$4C,$6F,$61,$64,$20,$20,$20,$20,$20,$20,$20,$20
4299.dc.b $20,$20,$20,$20,$20,$20,$50,$72,$6D,$74,$72,$20,$56,$6F,$69,$63,$65,$20,$49,$6E,$69,$74,$20,$0
4300L13:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4301.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4302.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$2B,$30,$30,$20,$20,$44,$65,$66,$6C,$74,$0
4303L14:.dc.b $51,$75,$69,$65,$74,$20,$52,$4F,$4D,$50,$20,$20,$4C,$61,$6D,$70,$20,$20,$43,$6C,$6F,$63,$6B,$20,$20,$50,$2F,$52,$20,$20
4304.dc.b $47,$6F,$20,$54,$6F,$20,$49,$6E,$73,$74,$72,$20,$41,$73,$67,$6D,$74,$20,$4C,$6F,$61,$64,$20,$20,$20,$20,$20,$20,$20,$20
4305.dc.b $20,$20,$20,$20,$20,$20,$4F,$74,$68,$65,$72,$20,$56,$6F,$69,$63,$65,$20,$44,$65,$66,$6C,$74,$0
4306L15:.dc.b $51,$75,$69,$65,$74,$20,$52,$4F,$4D,$50,$20,$20,$4C,$61,$6D,$70,$20,$20,$43,$6C,$6F,$63,$6B,$20,$20,$50,$2F,$52,$20,$20
4307.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4308.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
4309L16:.dc.b $51,$75,$69,$65,$74,$20,$52,$4F,$4D,$50,$20,$20,$4C,$61,$6D,$70,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4310.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$4C,$6F,$61,$64,$20,$20,$20,$20,$20,$20,$20,$20
4311.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
4312L17:.dc.b $41,$73,$67,$6D,$74,$0
4313L18:.dc.b $20,$2B,$30,$30,$20,$0
4314L19:.dc.b $20,$2B,$32,$30,$20,$0
4315L20:.dc.b $20,$2B,$34,$30,$20,$0
4316L21:.dc.b $20,$2B,$36,$30,$20,$0
4317L22:.dc.b $20,$2B,$38,$30,$20,$0
4318L64:.dc.b $53,$65,$63,$74,$6E,$0
4319L66:.dc.b $53,$63,$6F,$72,$65,$0
4320L68:.dc.b $47,$6F,$20,$54,$6F,$0
4321L74:.dc.b $25,$63,$25,$32,$64,$20,$25,$63,$20,$0
4322L75:.dc.b $56,$6F,$69,$63,$65,$20,$49,$6E,$69,$74,$20,$0
4323L81:.dc.b $25,$63,$25,$32,$64,$20,$25,$63,$20,$0
4324L83:.dc.b $20,$2B,$32,$30,$20,$0
4325L85:.dc.b $20,$2B,$30,$30,$20,$0
4326L86:.dc.b $20,$44,$65,$66,$6C,$74,$0
4327L135:.dc.b $44,$65,$66,$6C,$74,$0
4328L151:.dc.b $20,$2B,$32,$30,$20,$0
4329L172:.dc.b $53,$65,$63,$74,$6E,$0
4330L174:.dc.b $53,$63,$6F,$72,$65,$0
4331L177:.dc.b $47,$6F,$20,$54,$6F,$0
4332L239:.dc.b $25,$63,$25,$32,$64,$20,$25,$63,$0
4333L251:.dc.b $25,$63,$25,$32,$64,$20,$25,$63,$0
Note: See TracBrowser for help on using the repository browser.