source: buchla-68k/alcyon/msm.s@ e4a1376

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 32.4 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _ac_code
38.globl _scname
39.globl _se_chg
40.globl _curscor
41.globl _cursect
42.globl _se1_cnt
43.globl _se2_cnt
44.globl _se3_cnt
45.globl _spool
46.globl _pspool
47.globl _spcount
48.globl _frags
49.globl _t_bak
50.globl _t_cur
51.globl _t_ctr
52.globl _t_fwd
53.globl _size1
54.globl _size2
55.globl _size3
56.globl _scores
57.globl _scp
58.globl _seclist
59.globl _hplist
60.globl _p_bak
61.globl _p_cur
62.globl _p_ctr
63.globl _p_fwd
64.globl _ancmsw
65.globl _angroup
66.globl _clkctl
67.globl _ctrsw
68.globl _curasg
69.globl _curvce
70.globl _dsp_ok
71.globl _editsw
72.globl _mascntr
73.globl _mdb1
74.globl _mdb2
75.globl _michan
76.globl _midiclk
77.globl _midigo
78.globl _mistat
79.globl _ndisp
80.globl _recsw
81.globl _prgchan
82.globl _masens
83.globl _mctlval
84.globl _mdbyte
85.globl _mpsust
86.globl _mrstat
87.globl _trgtab
88.globl _grpmode
89.globl _grpstat
90.globl _key2grp
91.globl _vce2grp
92.globl _veltab
93.globl _mctlnum
94.globl _mpbend
95.globl _msmstv
96.globl _prstab
97.globl _src2var
98.globl _tuntab
99.globl _vce2trg
100.globl _grp2prt
101.globl _varmode
102.globl _gdstbc
103.globl _mpmap
104.data
105_mpmap:
106.dc.w $3
107.dc.w $4
108.dc.w $2
109.globl _msmnext
110.data
111_msmnext:
112.dc.w $2
113.dc.w $2
114.dc.w $2
115.dc.w $2
116.dc.w $1
117.dc.w $1
118.dc.w $2
119.dc.w $0
120.globl _msmcnxt
121.data
122_msmcnxt:
123.dc.w $0
124.dc.w $0
125.dc.w $2
126.dc.w $1
127.dc.w $0
128.dc.w $0
129.dc.w $0
130.dc.w $0
131.globl _ctl2src
132.data
133_ctl2src:
134.dc.w $C
135.dc.w $D
136.dc.w $2
137.dc.w $8
138.globl _msm
139.text
140_msm:
141~~msm:
142link R14,#-8
143movem.l R2-R7/R13-R13,-(sp)
144~miport=R7
145~midiin=R6
146~i=R5
147~t1=R4
148~t2=R3
149~ep=R13
150~j=-2
151~nvel=-4
152~where=-8
153*line 107
154clr R7
155bra L4
156L5:
157*line 108
158*line 109
159bra L8
160L7:
161*line 110
162*line 111
163clr _dsp_ok
164*line 112
165*line 113
166move R7,R8
167add.l R8,R8
168move.l #_mpmap,R9
169move 0(R8,R9.l),(sp)
170move #2,-(sp)
171jsr _trap13
172addq.l #2,sp
173and.l #$ff,R0
174move R0,R6
175*line 114
176*line 115
177*line 116
178move.l #_masens,R8
179tst.b 0(R8,R7)
180beq L9
181*line 116
182move R7,R8
183add.l #_masens,R8
184or.b #15,(R8)
185*line 117
186L9:
187*line 118
188move R7,R8
189add.l R8,R8
190move.l #_msmstv,R9
191move 0(R8,R9.l),R0
192bra L11
193*line 119
194*line 120
195L12:
196*line 121
197*line 122
198*line 123
199*line 123
200btst #7,R6
201beq L13
202*line 124
203*line 125
204move R6,R0
205and #15,R0
206move R0,_michan
207*line 126
208move R6,R0
209asr #4,R0
210and #15,R0
211move R0,_mistat
212*line 127
213*line 128
214*line 128
215cmp #240,R6
216bge L14
217*line 129
218*line 130
219move R7,R8
220add.l R8,R8
221add.l #_msmstv,R8
222move _mistat,R1
223and #7,R1
224move R1,R9
225add.l R9,R9
226add.l #_msmnext,R9
227move (R9),(R8)
228*line 131
229move R6,R0
230move R7,R9
231add.l #_mrstat,R9
232move.b R0,(R9)
233*line 132
234bra L15
235L14:
236*line 133
237*line 133
238cmp #248,R6
239bge L16
240*line 134
241*line 135
242move R7,R8
243add.l R8,R8
244add.l #_msmstv,R8
245move _michan,R1
246and #7,R1
247move R1,R9
248add.l R9,R9
249add.l #_msmcnxt,R9
250move (R9),(R8)
251*line 136
252move R6,R0
253move R7,R9
254add.l #_mrstat,R9
255move.b R0,(R9)
256*line 137
257*line 138
258bra L17
259L16:
260*line 139
261*line 140
262*line 141
263move R6,R0
264and #7,R0
265bra L19
266*line 142
267L20:
268*line 143
269*line 144
270*line 145
271*line 146
272tst _midiclk
273beq L21
274tst _midigo
275beq L21
276*line 146
277*line 147
278add.l #$2,_fc_val
279move.l _fc_val,R0
280cmp.l #$ffffff,R0
281ble L22
282*line 147
283move.l #$ffffff,_fc_val
284*line 148
285L22:L21:bra L18
286*line 149
287*line 150
288L23:
289*line 151
290*line 152
291*line 153
292*line 154
293cmp #1,_clkctl
294bne L24
295tst _midigo
296bne L24
297*line 155
298*line 156
299move #1,_midigo
300*line 157
301*line 158
302*line 159
303tst.l _fc_val
304beq L25
305*line 159
306clr.l R0
307move.l R0,_fc_val
308move.l R0,(sp)
309jsr _sc_goto
310*line 160
311L25:
312*line 161
313move #1,(sp)
314jsr _clkset
315*line 162
316jsr _dsclk
317*line 163
318*line 164
319L24:bra L18
320*line 165
321*line 166
322L26:
323*line 167
324*line 168
325*line 169
326*line 170
327cmp #1,_clkctl
328bne L27
329tst _midigo
330bne L27
331*line 171
332*line 172
333move #1,_midigo
334*line 173
335move #1,(sp)
336jsr _clkset
337*line 174
338jsr _dsclk
339*line 175
340*line 176
341L27:bra L18
342*line 177
343*line 178
344*line 179
345L28:
346*line 180
347*line 181
348*line 182
349*line 183
350cmp #1,_clkctl
351bne L29
352tst _midigo
353beq L29
354*line 184
355*line 185
356clr _midigo
357*line 186
358clr (sp)
359jsr _clkset
360*line 187
361jsr _dsclk
362*line 188
363*line 189
364L29:bra L18
365*line 190
366*line 191
367L30:
368*line 192
369*line 193
370*line 194
371move R7,R8
372add.l #_masens,R8
373or.b #255,(R8)
374bra L18
375*line 195
376*line 196
377L31:
378*line 197
379*line 198
380*line 199
381clr R5
382bra L34
383L35:
384*line 200
385*line 201
386move R5,R8
387add.l #_mrstat,R8
388clr.b (R8)
389*line 202
390move R5,R8
391add.l R8,R8
392add.l #_msmstv,R8
393clr (R8)
394*line 203
395move R5,R8
396add.l #_masens,R8
397clr.b (R8)
398L33:
399*line 199
400add #1,R5
401L34:
402*line 199
403cmp #2,R5
404blt L35
405L32:
406*line 204
407*line 205
408bra L18
409*line 206
410bra L18
411L19:cmp #7,R0
412bhi L18
413asl #2,R0
414move R0,R8
415add.l #L36,R8
416move.l (R8),R8
417jmp (R8)
418.data
419L36:.dc.l L20
420.dc.l L18
421.dc.l L23
422.dc.l L26
423.dc.l L28
424.dc.l L18
425.dc.l L30
426.dc.l L31
427.text
428L18:
429*line 207
430L17:L15:
431*line 208
432*line 209
433*line 210
434L13:bra L8
435*line 211
436*line 212
437*line 213
438L37:
439*line 214
440*line 215
441*line 216
442*line 216
443btst #7,R6
444beq L38
445*line 217
446*line 218
447move R6,R0
448and #15,R0
449move R0,_michan
450*line 219
451move R6,R0
452asr #4,R0
453and #15,R0
454move R0,_mistat
455*line 220
456*line 221
457*line 221
458cmp #240,R6
459bge L39
460*line 222
461*line 223
462move R7,R8
463add.l R8,R8
464add.l #_msmstv,R8
465move _mistat,R1
466and #7,R1
467move R1,R9
468add.l R9,R9
469add.l #_msmnext,R9
470move (R9),(R8)
471*line 224
472move R6,R0
473move R7,R9
474add.l #_mrstat,R9
475move.b R0,(R9)
476*line 225
477bra L40
478L39:
479*line 226
480*line 226
481cmp #248,R6
482bge L41
483*line 227
484*line 228
485move R7,R8
486add.l R8,R8
487add.l #_msmstv,R8
488move _michan,R1
489and #7,R1
490move R1,R9
491add.l R9,R9
492add.l #_msmcnxt,R9
493move (R9),(R8)
494*line 229
495move R6,R0
496move R7,R9
497add.l #_mrstat,R9
498move.b R0,(R9)
499*line 230
500*line 231
501bra L42
502L41:
503*line 232
504*line 233
505*line 234
506move R6,R0
507and #7,R0
508bra L44
509*line 235
510L45:
511*line 236
512*line 237
513*line 238
514*line 239
515tst _midiclk
516beq L46
517tst _midigo
518beq L46
519*line 239
520*line 240
521add.l #$2,_fc_val
522move.l _fc_val,R0
523cmp.l #$ffffff,R0
524ble L47
525*line 240
526move.l #$ffffff,_fc_val
527*line 241
528L47:L46:bra L43
529*line 242
530*line 243
531L48:
532*line 244
533*line 245
534*line 246
535*line 247
536cmp #1,_clkctl
537bne L49
538tst _midigo
539bne L49
540*line 248
541*line 249
542move #1,_midigo
543*line 250
544*line 251
545*line 252
546tst.l _fc_val
547beq L50
548*line 252
549clr.l R0
550move.l R0,_fc_val
551move.l R0,(sp)
552jsr _sc_goto
553*line 253
554L50:
555*line 254
556move #1,(sp)
557jsr _clkset
558*line 255
559jsr _dsclk
560*line 256
561*line 257
562L49:bra L43
563*line 258
564*line 259
565L51:
566*line 260
567*line 261
568*line 262
569*line 263
570cmp #1,_clkctl
571bne L52
572tst _midigo
573bne L52
574*line 264
575*line 265
576move #1,_midigo
577*line 266
578move #1,(sp)
579jsr _clkset
580*line 267
581jsr _dsclk
582*line 268
583*line 269
584L52:bra L43
585*line 270
586*line 271
587*line 272
588L53:
589*line 273
590*line 274
591*line 275
592*line 276
593cmp #1,_clkctl
594bne L54
595tst _midigo
596beq L54
597*line 277
598*line 278
599clr _midigo
600*line 279
601clr (sp)
602jsr _clkset
603*line 280
604jsr _dsclk
605*line 281
606*line 282
607L54:bra L43
608*line 283
609*line 284
610L55:
611*line 285
612*line 286
613*line 287
614move R7,R8
615add.l #_masens,R8
616or.b #255,(R8)
617bra L43
618*line 288
619*line 289
620L56:
621*line 290
622*line 291
623*line 292
624clr R5
625bra L59
626L60:
627*line 293
628*line 294
629move R5,R8
630add.l #_mrstat,R8
631clr.b (R8)
632*line 295
633move R5,R8
634add.l R8,R8
635add.l #_msmstv,R8
636clr (R8)
637*line 296
638move R5,R8
639add.l #_masens,R8
640clr.b (R8)
641L58:
642*line 292
643add #1,R5
644L59:
645*line 292
646cmp #2,R5
647blt L60
648L57:
649*line 297
650*line 298
651bra L43
652*line 299
653bra L43
654L44:cmp #7,R0
655bhi L43
656asl #2,R0
657move R0,R8
658add.l #L61,R8
659move.l (R8),R8
660jmp (R8)
661.data
662L61:.dc.l L45
663.dc.l L43
664.dc.l L48
665.dc.l L51
666.dc.l L53
667.dc.l L43
668.dc.l L55
669.dc.l L56
670.text
671L43:
672*line 300
673L42:L40:
674*line 301
675*line 302
676*line 303
677bra L62
678L38:
679*line 304
680*line 305
681*line 306
682move.l #_mrstat,R8
683move.b 0(R8,R7),R0
684ext.w R0
685and #15,R0
686move R0,_michan
687*line 307
688move.l #_mrstat,R8
689move.b 0(R8,R7),R0
690ext.w R0
691asr #4,R0
692and #15,R0
693move R0,_mistat
694*line 308
695*line 309
696*line 309
697cmp #12,_mistat
698bne L63
699*line 310
700*line 311
701*line 312
702*line 313
703*line 314
704*line 315
705tst R7
706bne L64
707move _michan,R0
708add #1,R0
709cmp _prgchan,R0
710bne L64
711cmp #100,R6
712bge L64
713*line 316
714*line 317
715move R6,R0
716move R0,_curasg
717move R0,(sp)
718jsr _getasg
719*line 318
720jsr _mpcupd
721*line 319
722*line 320
723*line 321
724L64:bra L65
725L63:
726*line 322
727*line 322
728cmp #13,_mistat
729bne L66
730*line 323
731*line 324
732*line 325
733*line 326
734move R6,R0
735muls #252,R0
736and #32736,R0
737move R0,_mdb1
738*line 327
739move R7,R4
740move #11,R0
741asl R0,R4
742move _michan,R0
743asl #7,R0
744or R0,R4
745*line 328
746move R4,R3
747add #128,R3
748*line 329
749*line 330
750move R4,R5
751bra L69
752L70:
753*line 331
754move R5,R8
755add.l R8,R8
756add.l #_prstab,R8
757move _mdb1,(R8)
758L68:
759*line 330
760add #1,R5
761L69:
762*line 330
763cmp R3,R5
764blt L70
765L67:
766*line 331
767*line 332
768*line 333
769clr R5
770bra L73
771L74:
772*line 334
773*line 335
774*line 336
775move R5,R8
776add.l R8,R8
777add.l R8,R8
778move.l #_grp2prt,R9
779move 0(R8,R9.l),R0
780move R7,R1
781add #1,R1
782cmp R1,R0
783bne L75
784move R5,R8
785add.l R8,R8
786add.l R8,R8
787move.l #_grp2prt,R9
788move 2(R8,R9.l),R0
789move _michan,R1
790add #1,R1
791cmp R1,R0
792bne L75
793*line 337
794*line 338
795*line 338
796move _mdb1,(sp)
797move #6,-(sp)
798move R5,-(sp)
799jsr _newsv
800addq.l #4,sp
801tst R0
802beq L76
803*line 339
804*line 340
805*line 341
806tst _recsw
807beq L77
808move R5,R8
809add.l R8,R8
810move.l #_grpstat,R9
811tst 0(R8,R9.l)
812beq L77
813tst _ancmsw
814beq L10000
815move R5,R8
816add.l R8,R8
817add.l #_varmode,R8
818move 160(R8),R0
819bra L10002
820L10000:move R5,R8
821add.l R8,R8
822move.l #_grpmode,R9
823move 0(R8,R9.l),R0
824L10002:cmp #2,R0
825bne L77
826*line 342
827*line 343
828*line 343
829move #6,(sp)
830jsr _e_alc
831move.l R0,R13
832move.l R13,R0
833beq L78
834*line 344
835*line 345
836move.l _t_cur,(R13)
837*line 346
838move.b #14,5(R13)
839*line 347
840move R5,R0
841or #80,R0
842move.b R0,6(R13)
843*line 348
844move _mdb1,R0
845ext.l R0
846move.l #$10,R1
847asl.l R1,R0
848move.l R0,16(R13)
849*line 349
850move.l _t_cur,(sp)
851clr -(sp)
852move.l _p_cur,-(sp)
853jsr _ep_adj
854addq.l #6,sp
855move.l R0,(sp)
856move.l R13,-(sp)
857jsr _e_ins
858addq.l #4,sp
859move.l R0,R8
860move.l 12(R8),_p_cur
861*line 350
862move #1,_ctrsw
863*line 351
864move #1,(sp)
865move.l #_gdstbc,-(sp)
866clr -(sp)
867move.l R13,-(sp)
868jsr _se_disp
869adda.l #10,sp
870*line 352
871clr _ctrsw
872*line 353
873*line 354
874L78:bra L79
875L77:
876*line 355
877*line 355
878move _angroup,R0
879sub #1,R0
880cmp R0,R5
881bne L80
882*line 356
883*line 357
884move #5,(sp)
885jsr _dsanval
886*line 358
887L80:L79:
888*line 359
889L76:
890*line 360
891L75:L72:
892*line 333
893add #1,R5
894L73:
895*line 333
896cmp #12,R5
897blt L74
898L71:
899*line 361
900*line 362
901*line 363
902bra L81
903L66:
904*line 364
905*line 365
906*line 366
907cmp #15,_mistat
908bne L82
909cmp #3,_michan
910bne L82
911tst _midigo
912bne L82
913*line 367
914*line 368
915*line 368
916cmp #20,R6
917bge L83
918*line 369
919*line 370
920move R6,(sp)
921jsr _selscor
922*line 371
923*line 372
924*line 373
925cmp #2,_ndisp
926bne L84
927*line 373
928jsr _sdwins
929L84:
930*line 374
931*line 375
932L83:bra L85
933L82:
934*line 376
935*line 377
936*line 378
937move R7,R8
938add.l R8,R8
939add.l #_msmstv,R8
940clr (R8)
941*line 379
942move R7,R8
943add.l #_mrstat,R8
944clr.b (R8)
945L85:L81:L65:
946*line 380
947L62:
948*line 381
949*line 382
950bra L8
951*line 383
952*line 384
953*line 385
954L86:
955*line 386
956*line 387
957*line 388
958*line 388
959btst #7,R6
960beq L87
961*line 389
962*line 390
963move R6,R0
964and #15,R0
965move R0,_michan
966*line 391
967move R6,R0
968asr #4,R0
969and #15,R0
970move R0,_mistat
971*line 392
972*line 393
973*line 393
974cmp #240,R6
975bge L88
976*line 394
977*line 395
978move R7,R8
979add.l R8,R8
980add.l #_msmstv,R8
981move _mistat,R1
982and #7,R1
983move R1,R9
984add.l R9,R9
985add.l #_msmnext,R9
986move (R9),(R8)
987*line 396
988move R6,R0
989move R7,R9
990add.l #_mrstat,R9
991move.b R0,(R9)
992*line 397
993bra L89
994L88:
995*line 398
996*line 398
997cmp #248,R6
998bge L90
999*line 399
1000*line 400
1001move R7,R8
1002add.l R8,R8
1003add.l #_msmstv,R8
1004move _michan,R1
1005and #7,R1
1006move R1,R9
1007add.l R9,R9
1008add.l #_msmcnxt,R9
1009move (R9),(R8)
1010*line 401
1011move R6,R0
1012move R7,R9
1013add.l #_mrstat,R9
1014move.b R0,(R9)
1015*line 402
1016*line 403
1017bra L91
1018L90:
1019*line 404
1020*line 405
1021*line 406
1022move R6,R0
1023and #7,R0
1024bra L93
1025*line 407
1026L94:
1027*line 408
1028*line 409
1029*line 410
1030*line 411
1031tst _midiclk
1032beq L95
1033tst _midigo
1034beq L95
1035*line 411
1036*line 412
1037add.l #$2,_fc_val
1038move.l _fc_val,R0
1039cmp.l #$ffffff,R0
1040ble L96
1041*line 412
1042move.l #$ffffff,_fc_val
1043*line 413
1044L96:L95:bra L92
1045*line 414
1046*line 415
1047L97:
1048*line 416
1049*line 417
1050*line 418
1051*line 419
1052cmp #1,_clkctl
1053bne L98
1054tst _midigo
1055bne L98
1056*line 420
1057*line 421
1058move #1,_midigo
1059*line 422
1060*line 423
1061*line 424
1062tst.l _fc_val
1063beq L99
1064*line 424
1065clr.l R0
1066move.l R0,_fc_val
1067move.l R0,(sp)
1068jsr _sc_goto
1069*line 425
1070L99:
1071*line 426
1072move #1,(sp)
1073jsr _clkset
1074*line 427
1075jsr _dsclk
1076*line 428
1077*line 429
1078L98:bra L92
1079*line 430
1080*line 431
1081L100:
1082*line 432
1083*line 433
1084*line 434
1085*line 435
1086cmp #1,_clkctl
1087bne L101
1088tst _midigo
1089bne L101
1090*line 436
1091*line 437
1092move #1,_midigo
1093*line 438
1094move #1,(sp)
1095jsr _clkset
1096*line 439
1097jsr _dsclk
1098*line 440
1099*line 441
1100L101:bra L92
1101*line 442
1102*line 443
1103*line 444
1104L102:
1105*line 445
1106*line 446
1107*line 447
1108*line 448
1109cmp #1,_clkctl
1110bne L103
1111tst _midigo
1112beq L103
1113*line 449
1114*line 450
1115clr _midigo
1116*line 451
1117clr (sp)
1118jsr _clkset
1119*line 452
1120jsr _dsclk
1121*line 453
1122*line 454
1123L103:bra L92
1124*line 455
1125*line 456
1126L104:
1127*line 457
1128*line 458
1129*line 459
1130move R7,R8
1131add.l #_masens,R8
1132or.b #255,(R8)
1133bra L92
1134*line 460
1135*line 461
1136L105:
1137*line 462
1138*line 463
1139*line 464
1140clr R5
1141bra L108
1142L109:
1143*line 465
1144*line 466
1145move R5,R8
1146add.l #_mrstat,R8
1147clr.b (R8)
1148*line 467
1149move R5,R8
1150add.l R8,R8
1151add.l #_msmstv,R8
1152clr (R8)
1153*line 468
1154move R5,R8
1155add.l #_masens,R8
1156clr.b (R8)
1157L107:
1158*line 464
1159add #1,R5
1160L108:
1161*line 464
1162cmp #2,R5
1163blt L109
1164L106:
1165*line 469
1166*line 470
1167bra L92
1168*line 471
1169bra L92
1170L93:cmp #7,R0
1171bhi L92
1172asl #2,R0
1173move R0,R8
1174add.l #L110,R8
1175move.l (R8),R8
1176jmp (R8)
1177.data
1178L110:.dc.l L94
1179.dc.l L92
1180.dc.l L97
1181.dc.l L100
1182.dc.l L102
1183.dc.l L92
1184.dc.l L104
1185.dc.l L105
1186.text
1187L92:
1188*line 472
1189L91:L89:
1190*line 473
1191*line 474
1192bra L111
1193L87:
1194*line 475
1195*line 476
1196*line 477
1197move R6,R0
1198move R7,R9
1199add.l #_mdbyte,R9
1200move.b R0,(R9)
1201*line 478
1202move R7,R8
1203add.l R8,R8
1204add.l #_msmstv,R8
1205move #3,(R8)
1206L111:
1207*line 479
1208*line 480
1209bra L8
1210*line 481
1211*line 482
1212*line 483
1213L112:
1214*line 484
1215*line 485
1216*line 486
1217*line 486
1218btst #7,R6
1219beq L113
1220*line 487
1221*line 488
1222move R6,R0
1223and #15,R0
1224move R0,_michan
1225*line 489
1226move R6,R0
1227asr #4,R0
1228and #15,R0
1229move R0,_mistat
1230*line 490
1231*line 491
1232*line 491
1233cmp #240,R6
1234bge L114
1235*line 492
1236*line 493
1237move R7,R8
1238add.l R8,R8
1239add.l #_msmstv,R8
1240move _mistat,R1
1241and #7,R1
1242move R1,R9
1243add.l R9,R9
1244add.l #_msmnext,R9
1245move (R9),(R8)
1246*line 494
1247move R6,R0
1248move R7,R9
1249add.l #_mrstat,R9
1250move.b R0,(R9)
1251*line 495
1252bra L115
1253L114:
1254*line 496
1255*line 496
1256cmp #248,R6
1257bge L116
1258*line 497
1259*line 498
1260move R7,R8
1261add.l R8,R8
1262add.l #_msmstv,R8
1263move _michan,R1
1264and #7,R1
1265move R1,R9
1266add.l R9,R9
1267add.l #_msmcnxt,R9
1268move (R9),(R8)
1269*line 499
1270move R6,R0
1271move R7,R9
1272add.l #_mrstat,R9
1273move.b R0,(R9)
1274*line 500
1275*line 501
1276bra L117
1277L116:
1278*line 502
1279*line 503
1280*line 504
1281move R6,R0
1282and #7,R0
1283bra L119
1284*line 505
1285L120:
1286*line 506
1287*line 507
1288*line 508
1289*line 509
1290tst _midiclk
1291beq L121
1292tst _midigo
1293beq L121
1294*line 509
1295*line 510
1296add.l #$2,_fc_val
1297move.l _fc_val,R0
1298cmp.l #$ffffff,R0
1299ble L122
1300*line 510
1301move.l #$ffffff,_fc_val
1302*line 511
1303L122:L121:bra L118
1304*line 512
1305*line 513
1306L123:
1307*line 514
1308*line 515
1309*line 516
1310*line 517
1311cmp #1,_clkctl
1312bne L124
1313tst _midigo
1314bne L124
1315*line 518
1316*line 519
1317move #1,_midigo
1318*line 520
1319*line 521
1320*line 522
1321tst.l _fc_val
1322beq L125
1323*line 522
1324clr.l R0
1325move.l R0,_fc_val
1326move.l R0,(sp)
1327jsr _sc_goto
1328*line 523
1329L125:
1330*line 524
1331move #1,(sp)
1332jsr _clkset
1333*line 525
1334jsr _dsclk
1335*line 526
1336*line 527
1337L124:bra L118
1338*line 528
1339*line 529
1340L126:
1341*line 530
1342*line 531
1343*line 532
1344*line 533
1345cmp #1,_clkctl
1346bne L127
1347tst _midigo
1348bne L127
1349*line 534
1350*line 535
1351move #1,_midigo
1352*line 536
1353move #1,(sp)
1354jsr _clkset
1355*line 537
1356jsr _dsclk
1357*line 538
1358*line 539
1359L127:bra L118
1360*line 540
1361*line 541
1362*line 542
1363L128:
1364*line 543
1365*line 544
1366*line 545
1367*line 546
1368cmp #1,_clkctl
1369bne L129
1370tst _midigo
1371beq L129
1372*line 547
1373*line 548
1374clr _midigo
1375*line 549
1376clr (sp)
1377jsr _clkset
1378*line 550
1379jsr _dsclk
1380*line 551
1381*line 552
1382L129:bra L118
1383*line 553
1384*line 554
1385L130:
1386*line 555
1387*line 556
1388*line 557
1389move R7,R8
1390add.l #_masens,R8
1391or.b #255,(R8)
1392bra L118
1393*line 558
1394*line 559
1395L131:
1396*line 560
1397*line 561
1398*line 562
1399clr R5
1400bra L134
1401L135:
1402*line 563
1403*line 564
1404move R5,R8
1405add.l #_mrstat,R8
1406clr.b (R8)
1407*line 565
1408move R5,R8
1409add.l R8,R8
1410add.l #_msmstv,R8
1411clr (R8)
1412*line 566
1413move R5,R8
1414add.l #_masens,R8
1415clr.b (R8)
1416L133:
1417*line 562
1418add #1,R5
1419L134:
1420*line 562
1421cmp #2,R5
1422blt L135
1423L132:
1424*line 567
1425*line 568
1426bra L118
1427*line 569
1428bra L118
1429L119:cmp #7,R0
1430bhi L118
1431asl #2,R0
1432move R0,R8
1433add.l #L136,R8
1434move.l (R8),R8
1435jmp (R8)
1436.data
1437L136:.dc.l L120
1438.dc.l L118
1439.dc.l L123
1440.dc.l L126
1441.dc.l L128
1442.dc.l L118
1443.dc.l L130
1444.dc.l L131
1445.text
1446L118:
1447*line 570
1448L117:L115:
1449*line 571
1450*line 572
1451*line 573
1452bra L137
1453L113:
1454*line 574
1455*line 575
1456*line 576
1457move.l #_mrstat,R8
1458move.b 0(R8,R7),R0
1459ext.w R0
1460and #15,R0
1461move R0,_michan
1462*line 577
1463move.l #_mrstat,R8
1464move.b 0(R8,R7),R0
1465ext.w R0
1466asr #4,R0
1467and #15,R0
1468move R0,_mistat
1469*line 578
1470move.l #_mdbyte,R8
1471move.b 0(R8,R7),R0
1472ext.w R0
1473move R0,_mdb1
1474*line 579
1475move R6,_mdb2
1476*line 580
1477move R7,R8
1478add.l R8,R8
1479add.l #_msmstv,R8
1480move #2,(R8)
1481*line 581
1482*line 582
1483move _mistat,R0
1484bra L139
1485*line 583
1486L140:
1487*line 584
1488*line 585
1489*line 586
1490*line 586
1491tst _mdb2
1492beq L141
1493*line 587
1494*line 588
1495move R7,R4
1496move #11,R0
1497asl R0,R4
1498move _michan,R0
1499asl #7,R0
1500add R0,R4
1501add _mdb1,R4
1502*line 589
1503move _michan,R8
1504move R7,R1
1505asl #4,R1
1506ext.l R1
1507add.l #_mpsust,R1
1508move.b 0(R8,R1.l),R0
1509ext.w R0
1510move R0,-(sp)
1511or #1,(sp)
1512move R4,R8
1513add.l #_trgtab,R8
1514move.b (R8),R0
1515or (sp)+,R0
1516move.b R0,(R8)
1517*line 590
1518move _mdb2,R0
1519muls #252,R0
1520and #32736,R0
1521move R0,-4(R14)
1522move R4,R9
1523add.l R9,R9
1524add.l #_veltab,R9
1525move R0,(R9)
1526*line 591
1527move R4,R8
1528add.l R8,R8
1529add.l #_prstab,R8
1530clr (R8)
1531*line 592
1532*line 593
1533move R4,(sp)
1534jsr _stmproc
1535*line 594
1536*line 595
1537*line 595
1538tst _editsw
1539beq L142
1540*line 596
1541*line 597
1542clr (sp)
1543move _curvce,-(sp)
1544move _mdb1,R8
1545add.l R8,R8
1546move.l #_tuntab,R9
1547move 0(R8,R9.l),-(sp)
1548move R4,-(sp)
1549jsr _execkey
1550addq.l #6,sp
1551bra L138
1552*line 598
1553*line 599
1554*line 600
1555L142:
1556*line 601
1557*line 601
1558tst R7
1559beq L143
1560*line 602
1561*line 603
1562clr R5
1563bra L146
1564L147:
1565*line 604
1566*line 605
1567move R5,R8
1568add.l R8,R8
1569add.l R8,R8
1570move.l #_grp2prt,R9
1571move 0(R8,R9.l),R0
1572move R7,R1
1573add #1,R1
1574cmp R1,R0
1575bne L148
1576move R5,R8
1577add.l R8,R8
1578add.l R8,R8
1579move.l #_grp2prt,R9
1580move 2(R8,R9.l),R0
1581move _michan,R1
1582add #1,R1
1583cmp R1,R0
1584bne L148
1585*line 606
1586*line 607
1587move -4(R14),(sp)
1588move _mdb1,-(sp)
1589move _michan,-(sp)
1590move R7,-(sp)
1591move R5,-(sp)
1592jsr _asgvce
1593addq.l #8,sp
1594*line 608
1595move -4(R14),(sp)
1596move _mdb1,-(sp)
1597move R5,-(sp)
1598jsr _ne_bgn
1599addq.l #4,sp
1600*line 609
1601*line 610
1602L148:L145:
1603*line 603
1604add #1,R5
1605L146:
1606*line 603
1607cmp #12,R5
1608blt L147
1609L144:bra L149
1610L143:
1611*line 611
1612*line 612
1613*line 613
1614*line 614
1615cmp #21,_mdb1
1616blt L10004
1617cmp #108,_mdb1
1618ble L10003
1619L10004:clr R0
1620bra L10006
1621L10003:move _mdb1,R8
1622add #-21,R8
1623add.l R8,R8
1624move.l #_key2grp,R9
1625move 0(R8,R9.l),R0
1626L10006:move R0,R3
1627*line 615
1628*line 616
1629clr R5
1630bra L152
1631L153:
1632*line 617
1633*line 618
1634move R3,R0
1635move #1,R1
1636move R5,R2
1637asl R2,R1
1638and R1,R0
1639beq L154
1640move R5,R8
1641add.l R8,R8
1642add.l R8,R8
1643move.l #_grp2prt,R9
1644move 2(R8,R9.l),R0
1645move _michan,R1
1646add #1,R1
1647cmp R1,R0
1648bne L154
1649*line 619
1650*line 620
1651move -4(R14),(sp)
1652move _mdb1,-(sp)
1653move _michan,-(sp)
1654move R7,-(sp)
1655move R5,-(sp)
1656jsr _asgvce
1657addq.l #8,sp
1658*line 621
1659move -4(R14),(sp)
1660move _mdb1,-(sp)
1661move R5,-(sp)
1662jsr _ne_bgn
1663addq.l #4,sp
1664*line 622
1665L154:L151:
1666*line 616
1667add #1,R5
1668L152:
1669*line 616
1670cmp #12,R5
1671blt L153
1672L150:L149:
1673*line 623
1674*line 624
1675bra L138
1676*line 625
1677*line 626
1678*line 627
1679*line 628
1680L141:L155:
1681*line 629
1682*line 630
1683*line 631
1684move R7,R4
1685move #11,R0
1686asl R0,R4
1687move _michan,R0
1688asl #7,R0
1689add R0,R4
1690add _mdb1,R4
1691*line 632
1692move R4,R8
1693add.l #_trgtab,R8
1694and.b #-2,(R8)
1695*line 633
1696*line 634
1697*line 634
1698move R4,R8
1699add.l #_trgtab,R8
1700tst.b (R8)
1701bne L156
1702*line 635
1703*line 636
1704clr R5
1705bra L159
1706L160:
1707*line 637
1708*line 638
1709*line 638
1710move R5,R8
1711add.l R8,R8
1712add.l #_vce2trg,R8
1713cmp (R8),R4
1714bne L161
1715*line 639
1716*line 640
1717move R5,R8
1718add.l R8,R8
1719add.l #_vce2trg,R8
1720move #-1,(R8)
1721*line 641
1722move R4,(sp)
1723jsr _procpfl
1724*line 642
1725*line 643
1726L161:
1727*line 644
1728*line 645
1729*line 646
1730move R5,R8
1731add.l R8,R8
1732add.l R8,R8
1733move.l #_grp2prt,R9
1734move 0(R8,R9.l),R0
1735move R7,R1
1736add #1,R1
1737cmp R1,R0
1738bne L162
1739move R5,R8
1740add.l R8,R8
1741add.l R8,R8
1742move.l #_grp2prt,R9
1743move 2(R8,R9.l),R0
1744move _michan,R1
1745add #1,R1
1746cmp R1,R0
1747bne L162
1748*line 646
1749move R5,(sp)
1750move R4,-(sp)
1751jsr _ne_end
1752addq.l #2,sp
1753L162:L158:
1754*line 636
1755add #1,R5
1756L159:
1757*line 636
1758cmp #12,R5
1759blt L160
1760L157:
1761*line 647
1762*line 648
1763*line 649
1764move R4,(sp)
1765or #-32768,(sp)
1766jsr _stmproc
1767*line 650
1768*line 651
1769L156:bra L138
1770*line 652
1771*line 653
1772L163:
1773*line 654
1774*line 655
1775*line 656
1776move R7,R4
1777move #11,R0
1778asl R0,R4
1779move _michan,R0
1780asl #7,R0
1781add R0,R4
1782add _mdb1,R4
1783*line 657
1784move _mdb2,R3
1785muls #252,R3
1786and #32736,R3
1787*line 658
1788move R4,R8
1789add.l R8,R8
1790add.l #_prstab,R8
1791move R3,(R8)
1792*line 659
1793*line 660
1794clr R5
1795bra L166
1796L167:
1797*line 661
1798*line 662
1799*line 663
1800move R5,R8
1801add.l R8,R8
1802add.l R8,R8
1803move.l #_grp2prt,R9
1804move 0(R8,R9.l),R0
1805move R7,R1
1806add #1,R1
1807cmp R1,R0
1808bne L168
1809move R5,R8
1810add.l R8,R8
1811add.l R8,R8
1812move.l #_grp2prt,R9
1813move 2(R8,R9.l),R0
1814move _michan,R1
1815add #1,R1
1816cmp R1,R0
1817bne L168
1818*line 663
1819move R3,(sp)
1820move #6,-(sp)
1821move R5,-(sp)
1822move R4,-(sp)
1823jsr _newpps
1824addq.l #6,sp
1825*line 664
1826L168:L165:
1827*line 660
1828add #1,R5
1829L166:
1830*line 660
1831cmp #12,R5
1832blt L167
1833L164:bra L138
1834*line 665
1835*line 666
1836*line 667
1837L169:
1838*line 668
1839*line 669
1840*line 670
1841move _mdb2,R0
1842move R7,R1
1843move #11,R2
1844asl R2,R1
1845move _michan,R2
1846asl #7,R2
1847add R2,R1
1848ext.l R1
1849add.l #_mctlval,R1
1850move _mdb1,R2
1851ext.l R2
1852add.l R2,R1
1853move.l R1,R9
1854move.b R0,(R9)
1855*line 671
1856*line 672
1857*line 672
1858cmp #64,_mdb1
1859bne L170
1860*line 673
1861*line 674
1862*line 675
1863*line 676
1864move R7,R4
1865move #11,R0
1866asl R0,R4
1867move _michan,R0
1868asl #7,R0
1869or R0,R4
1870*line 677
1871move R4,R3
1872add #128,R3
1873*line 678
1874*line 679
1875*line 679
1876cmp #63,_mdb2
1877ble L171
1878*line 680
1879*line 681
1880move R7,R0
1881asl #4,R0
1882ext.l R0
1883add.l #_mpsust,R0
1884move _michan,R1
1885ext.l R1
1886add.l R1,R0
1887move.l R0,R8
1888move.b #8,(R8)
1889*line 682
1890*line 683
1891move R4,R5
1892bra L174
1893L175:
1894*line 684
1895*line 685
1896move.l #_trgtab,R8
1897tst.b 0(R8,R5)
1898beq L176
1899*line 685
1900move R5,R8
1901add.l #_trgtab,R8
1902or.b #8,(R8)
1903*line 686
1904L176:L173:
1905*line 683
1906add #1,R5
1907L174:
1908*line 683
1909cmp R3,R5
1910blt L175
1911L172:bra L177
1912L171:
1913*line 687
1914*line 687
1915cmp #64,_mdb2
1916bge L178
1917*line 688
1918*line 689
1919move R7,R0
1920asl #4,R0
1921ext.l R0
1922add.l #_mpsust,R0
1923move _michan,R1
1924ext.l R1
1925add.l R1,R0
1926move.l R0,R8
1927clr.b (R8)
1928*line 690
1929*line 691
1930move R4,R5
1931bra L181
1932L182:
1933*line 692
1934*line 693
1935*line 693
1936move.l #_trgtab,R8
1937tst.b 0(R8,R5)
1938beq L183
1939*line 694
1940*line 695
1941move R5,R8
1942add.l #_trgtab,R8
1943and.b #-9,(R8)
1944*line 696
1945*line 697
1946*line 697
1947move R5,R8
1948add.l #_trgtab,R8
1949tst.b (R8)
1950bne L184
1951*line 698
1952*line 699
1953clr R4
1954bra L187
1955L188:
1956*line 700
1957*line 701
1958*line 701
1959move R4,R8
1960add.l R8,R8
1961add.l #_vce2trg,R8
1962cmp (R8),R5
1963bne L189
1964*line 702
1965*line 703
1966move R4,R8
1967add.l R8,R8
1968add.l #_vce2trg,R8
1969move #-1,(R8)
1970*line 704
1971move R5,(sp)
1972jsr _procpfl
1973*line 705
1974*line 706
1975L189:
1976*line 707
1977*line 708
1978*line 709
1979move R4,R8
1980add.l R8,R8
1981add.l R8,R8
1982move.l #_grp2prt,R9
1983move 0(R8,R9.l),R0
1984move R7,R1
1985add #1,R1
1986cmp R1,R0
1987bne L190
1988move R4,R8
1989add.l R8,R8
1990add.l R8,R8
1991move.l #_grp2prt,R9
1992move 2(R8,R9.l),R0
1993move _michan,R1
1994add #1,R1
1995cmp R1,R0
1996bne L190
1997*line 709
1998move R4,(sp)
1999move R5,-(sp)
2000jsr _ne_end
2001addq.l #2,sp
2002L190:L186:
2003*line 699
2004add #1,R4
2005L187:
2006*line 699
2007cmp #12,R4
2008blt L188
2009L185:
2010*line 710
2011*line 711
2012L184:
2013*line 712
2014L183:L180:
2015*line 691
2016add #1,R5
2017L181:
2018*line 691
2019cmp R3,R5
2020blt L182
2021L179:
2022*line 713
2023*line 714
2024*line 715
2025*line 716
2026L178:L177:bra L191
2027L170:
2028*line 717
2029*line 717
2030cmp #66,_mdb1
2031bne L192
2032*line 718
2033*line 719
2034*line 720
2035*line 721
2036move R7,R4
2037move #11,R0
2038asl R0,R4
2039move _michan,R0
2040asl #7,R0
2041or R0,R4
2042*line 722
2043move R4,R3
2044add #128,R3
2045*line 723
2046*line 724
2047*line 724
2048cmp #63,_mdb2
2049ble L193
2050*line 725
2051*line 726
2052move R4,R5
2053bra L196
2054L197:
2055*line 727
2056*line 727
2057move R5,R8
2058add.l #_trgtab,R8
2059btst #0,(R8)
2060beq L198
2061*line 728
2062*line 729
2063clr R4
2064bra L201
2065L202:
2066*line 730
2067*line 731
2068move R4,R8
2069add.l R8,R8
2070move.l #_vce2trg,R9
2071move 0(R8,R9.l),R0
2072and #16383,R0
2073cmp R0,R5
2074bne L203
2075*line 731
2076move R4,R8
2077add.l R8,R8
2078add.l #_vce2trg,R8
2079or #-32768,(R8)
2080L203:L200:
2081*line 729
2082add #1,R4
2083L201:
2084*line 729
2085cmp #12,R4
2086blt L202
2087L199:
2088*line 732
2089*line 733
2090L198:L195:
2091*line 726
2092add #1,R5
2093L196:
2094*line 726
2095cmp R3,R5
2096blt L197
2097L194:bra L204
2098L193:
2099*line 734
2100*line 734
2101cmp #64,_mdb2
2102bge L205
2103*line 735
2104*line 736
2105clr R5
2106bra L208
2107L209:
2108*line 737
2109*line 738
2110*line 738
2111move R5,R8
2112add.l R8,R8
2113add.l #_vce2trg,R8
2114cmp #-1,(R8)
2115beq L210
2116*line 739
2117*line 740
2118move R5,R8
2119add.l R8,R8
2120add.l #_vce2trg,R8
2121and #32767,(R8)
2122*line 741
2123*line 742
2124*line 742
2125move R5,R8
2126add.l R8,R8
2127move.l #_vce2trg,R9
2128move 0(R8,R9.l),R0
2129and #-16384,R0
2130bne L211
2131*line 743
2132*line 744
2133move R5,R8
2134add.l R8,R8
2135add.l #_vce2trg,R8
2136move (R8),R4
2137*line 745
2138*line 746
2139*line 746
2140move R4,R8
2141add.l #_trgtab,R8
2142tst.b (R8)
2143bne L212
2144*line 747
2145*line 748
2146move R5,R8
2147add.l R8,R8
2148add.l #_vce2trg,R8
2149move #-1,(R8)
2150*line 749
2151move R4,(sp)
2152jsr _procpfl
2153*line 750
2154L212:
2155*line 751
2156L211:
2157*line 752
2158L210:L207:
2159*line 736
2160add #1,R5
2161L208:
2162*line 736
2163cmp #12,R5
2164blt L209
2165L206:
2166*line 753
2167*line 754
2168*line 755
2169*line 756
2170L205:L204:bra L213
2171L192:
2172*line 757
2173*line 758
2174*line 759
2175move R7,R4
2176move #11,R0
2177asl R0,R4
2178move _michan,R0
2179asl #7,R0
2180or R0,R4
2181or _mdb1,R4
2182*line 760
2183move _mdb2,R3
2184muls #252,R3
2185and #32736,R3
2186*line 761
2187move R3,R0
2188move R4,R9
2189add.l #_mctlval,R9
2190move.b R0,(R9)
2191*line 762
2192*line 763
2193clr -2(R14)
2194bra L216
2195L217:
2196*line 764
2197*line 765
2198*line 765
2199move -2(R14),R8
2200add.l R8,R8
2201move.l #_mctlnum,R9
2202move 0(R8,R9.l),R0
2203and #255,R0
2204cmp _mdb1,R0
2205bne L218
2206*line 766
2207*line 767
2208move -2(R14),R8
2209add.l R8,R8
2210add.l #_ctl2src,R8
2211move (R8),R5
2212*line 768
2213*line 769
2214clr R4
2215bra L221
2216L222:
2217*line 770
2218*line 771
2219*line 772
2220*line 773
2221move -2(R14),R8
2222add.l R8,R8
2223add.l #_mctlnum,R8
2224btst #0,(R8)
2225bne L10007
2226move R4,R8
2227add.l R8,R8
2228add.l R8,R8
2229move.l #_grp2prt,R9
2230move 0(R8,R9.l),R0
2231move R7,R1
2232add #1,R1
2233cmp R1,R0
2234bne L223
2235move R4,R8
2236add.l R8,R8
2237add.l R8,R8
2238move.l #_grp2prt,R9
2239move 2(R8,R9.l),R0
2240move _michan,R1
2241add #1,R1
2242cmp R1,R0
2243bne L223
2244L10007:*line 774
2245*line 775
2246*line 775
2247move R3,(sp)
2248move R5,-(sp)
2249move R4,-(sp)
2250jsr _newsv
2251addq.l #4,sp
2252tst R0
2253beq L224
2254*line 776
2255*line 777
2256*line 778
2257tst _recsw
2258beq L225
2259move R4,R8
2260add.l R8,R8
2261move.l #_grpstat,R9
2262tst 0(R8,R9.l)
2263beq L225
2264tst _ancmsw
2265beq L10008
2266move R5,R8
2267add.l R8,R8
2268move.l #_src2var,R9
2269move 0(R8,R9.l),R0
2270asl #5,R0
2271ext.l R0
2272move R4,R1
2273asl #1,R1
2274ext.l R1
2275add.l R1,R0
2276move.l R0,R8
2277move.l #_varmode,R9
2278move 0(R8,R9.l),R0
2279bra L10010
2280L10008:move R4,R8
2281add.l R8,R8
2282move.l #_grpmode,R9
2283move 0(R8,R9.l),R0
2284L10010:cmp #2,R0
2285bne L225
2286*line 779
2287*line 780
2288*line 780
2289move #6,(sp)
2290jsr _e_alc
2291move.l R0,R13
2292move.l R13,R0
2293beq L226
2294*line 781
2295*line 782
2296move.l _t_cur,(R13)
2297*line 783
2298move.b #14,5(R13)
2299*line 784
2300move R4,R0
2301move R5,R9
2302add.l R9,R9
2303add.l #_src2var,R9
2304move (R9),R1
2305asl #4,R1
2306or R1,R0
2307move.b R0,6(R13)
2308*line 785
2309move R3,R0
2310ext.l R0
2311move.l #$10,R1
2312asl.l R1,R0
2313move.l R0,16(R13)
2314*line 786
2315move.l _t_cur,(sp)
2316clr -(sp)
2317move.l _p_cur,-(sp)
2318jsr _ep_adj
2319addq.l #6,sp
2320move.l R0,(sp)
2321move.l R13,-(sp)
2322jsr _e_ins
2323addq.l #4,sp
2324move.l R0,R8
2325move.l 12(R8),_p_cur
2326*line 787
2327move #1,_ctrsw
2328*line 788
2329move #1,(sp)
2330move.l #_gdstbc,-(sp)
2331clr -(sp)
2332move.l R13,-(sp)
2333jsr _se_disp
2334adda.l #10,sp
2335*line 789
2336clr _ctrsw
2337*line 790
2338*line 791
2339L226:bra L227
2340L225:
2341*line 792
2342*line 792
2343move _angroup,R0
2344sub #1,R0
2345cmp R0,R4
2346bne L228
2347*line 793
2348*line 794
2349move R5,R8
2350add.l R8,R8
2351move.l #_src2var,R9
2352move 0(R8,R9.l),(sp)
2353jsr _dsanval
2354*line 795
2355L228:L227:
2356*line 796
2357L224:
2358*line 797
2359L223:L220:
2360*line 769
2361add #1,R4
2362L221:
2363*line 769
2364cmp #12,R4
2365blt L222
2366L219:
2367*line 798
2368*line 799
2369L218:L215:
2370*line 763
2371add #1,-2(R14)
2372L216:
2373*line 763
2374cmp #4,-2(R14)
2375blt L217
2376L214:
2377*line 800
2378L213:L191:
2379*line 801
2380*line 802
2381bra L138
2382*line 803
2383*line 804
2384*line 805
2385L229:
2386*line 806
2387*line 807
2388*line 808
2389move R7,R4
2390asl #4,R4
2391or _michan,R4
2392*line 809
2393move _mdb2,R3
2394move #9,R0
2395asl R0,R3
2396move _mdb1,R0
2397asl #2,R0
2398or R0,R3
2399eor #-32768,R3
2400*line 810
2401move R4,R8
2402add.l R8,R8
2403add.l #_mpbend,R8
2404move R3,(R8)
2405*line 811
2406*line 812
2407clr R5
2408bra L232
2409L233:
2410*line 813
2411*line 814
2412*line 815
2413move R5,R8
2414add.l R8,R8
2415add.l R8,R8
2416move.l #_grp2prt,R9
2417move 0(R8,R9.l),R0
2418move R7,R1
2419add #1,R1
2420cmp R1,R0
2421bne L234
2422move R5,R8
2423add.l R8,R8
2424add.l R8,R8
2425move.l #_grp2prt,R9
2426move 2(R8,R9.l),R0
2427move _michan,R1
2428add #1,R1
2429cmp R1,R0
2430bne L234
2431*line 816
2432*line 817
2433*line 817
2434move R3,(sp)
2435move #11,-(sp)
2436move R5,-(sp)
2437jsr _newsv
2438addq.l #4,sp
2439tst R0
2440beq L235
2441*line 818
2442*line 819
2443*line 820
2444tst _recsw
2445beq L236
2446move R5,R8
2447add.l R8,R8
2448move.l #_grpstat,R9
2449tst 0(R8,R9.l)
2450beq L236
2451tst _ancmsw
2452beq L10011
2453move R5,R8
2454add.l R8,R8
2455move.l #_varmode,R9
2456move 0(R8,R9.l),R0
2457bra L10013
2458L10011:move R5,R8
2459add.l R8,R8
2460move.l #_grpmode,R9
2461move 0(R8,R9.l),R0
2462L10013:cmp #2,R0
2463bne L236
2464*line 821
2465*line 822
2466*line 822
2467move #6,(sp)
2468jsr _e_alc
2469move.l R0,R13
2470move.l R13,R0
2471beq L237
2472*line 823
2473*line 824
2474move.l _t_cur,(R13)
2475*line 825
2476move.b #14,5(R13)
2477*line 826
2478move.b R5,6(R13)
2479*line 827
2480move R3,R0
2481ext.l R0
2482move.l #$10,R1
2483asl.l R1,R0
2484move.l R0,16(R13)
2485*line 828
2486move.l _t_cur,(sp)
2487clr -(sp)
2488move.l _p_cur,-(sp)
2489jsr _ep_adj
2490addq.l #6,sp
2491move.l R0,(sp)
2492move.l R13,-(sp)
2493jsr _e_ins
2494addq.l #4,sp
2495move.l R0,R8
2496move.l 12(R8),_p_cur
2497*line 829
2498move #1,_ctrsw
2499*line 830
2500move #1,(sp)
2501move.l #_gdstbc,-(sp)
2502clr -(sp)
2503move.l R13,-(sp)
2504jsr _se_disp
2505adda.l #10,sp
2506*line 831
2507clr _ctrsw
2508*line 832
2509*line 833
2510L237:bra L238
2511L236:
2512*line 834
2513*line 834
2514move _angroup,R0
2515sub #1,R0
2516cmp R0,R5
2517bne L239
2518*line 835
2519*line 836
2520clr (sp)
2521jsr _dsanval
2522*line 837
2523L239:L238:
2524*line 838
2525L235:
2526*line 839
2527L234:L231:
2528*line 812
2529add #1,R5
2530L232:
2531*line 812
2532cmp #12,R5
2533blt L233
2534L230:
2535*line 840
2536*line 841
2537bra L138
2538*line 842
2539*line 843
2540*line 844
2541L240:
2542*line 845
2543*line 846
2544*line 847
2545*line 847
2546cmp #2,_michan
2547bne L241
2548*line 848
2549*line 849
2550*line 850
2551cmp #1,_clkctl
2552bne L242
2553tst _midigo
2554bne L242
2555*line 851
2556*line 852
2557move _mdb1,R0
2558asl #7,R0
2559or _mdb2,R0
2560muls #12,R0
2561move.l R0,-8(R14)
2562*line 853
2563*line 854
2564*line 855
2565move.l _fc_val,R0
2566cmp.l -8(R14),R0
2567beq L243
2568*line 855
2569move.l -8(R14),R0
2570move.l R0,_fc_val
2571move.l R0,(sp)
2572jsr _sc_goto
2573L243:
2574*line 856
2575*line 857
2576L242:bra L138
2577*line 858
2578*line 859
2579bra L244
2580L241:
2581*line 860
2582*line 861
2583*line 862
2584move R7,R8
2585add.l R8,R8
2586add.l #_msmstv,R8
2587clr (R8)
2588*line 863
2589move R7,R8
2590add.l #_mrstat,R8
2591clr.b (R8)
2592bra L138
2593*line 864
2594L244:
2595*line 865
2596*line 866
2597L245:
2598*line 867
2599*line 868
2600*line 869
2601move R7,R8
2602add.l R8,R8
2603add.l #_msmstv,R8
2604clr (R8)
2605*line 870
2606move R7,R8
2607add.l #_mrstat,R8
2608clr.b (R8)
2609bra L138
2610*line 871
2611*line 872
2612bra L138
2613L139:sub #8,R0
2614cmp #7,R0
2615bhi L245
2616asl #2,R0
2617move R0,R8
2618add.l #L246,R8
2619move.l (R8),R8
2620jmp (R8)
2621.data
2622L246:.dc.l L155
2623.dc.l L140
2624.dc.l L163
2625.dc.l L169
2626.dc.l L245
2627.dc.l L245
2628.dc.l L229
2629.dc.l L240
2630.text
2631L138:
2632*line 873
2633*line 874
2634L137:
2635*line 875
2636*line 876
2637bra L8
2638*line 877
2639*line 878
2640L247:
2641*line 879
2642*line 880
2643*line 881
2644move R7,R8
2645add.l R8,R8
2646add.l #_msmstv,R8
2647clr (R8)
2648*line 882
2649move R7,R8
2650add.l #_mrstat,R8
2651clr.b (R8)
2652bra L10
2653*line 883
2654*line 884
2655bra L10
2656L11:tst R0
2657beq L12
2658cmp #1,R0
2659beq L37
2660cmp #2,R0
2661beq L86
2662cmp #3,R0
2663beq L112
2664bra L247
2665L10:
2666*line 885
2667L8:
2668*line 886
2669move R7,R8
2670add.l R8,R8
2671move.l #_mpmap,R9
2672move 0(R8,R9.l),(sp)
2673move #1,-(sp)
2674jsr _trap13
2675addq.l #2,sp
2676tst.l R0
2677bne L7
2678L6:L3:
2679*line 107
2680add #1,R7
2681L4:
2682*line 107
2683cmp #2,R7
2684blt L5
2685L2:L1:tst.l (sp)+
2686movem.l (sp)+,R3-R7/R13-R13
2687unlk R14
2688rts
2689.data
Note: See TracBrowser for help on using the repository browser.