source: buchla-68k/alcyon/nedacc.s@ 58ff1a9

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 16.3 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 _noteop
65.globl _notesel
66.globl _t_note
67.globl _p_nbeg
68.globl _p_nend
69.globl _cflag
70.globl _cnote
71.globl _cyval
72.globl _cxval
73.globl _recsw
74.globl _scmctl
75.globl _grpmode
76.globl _grpstat
77.globl _ctime
78.globl _accnote
79.text
80_accnote:
81~~accnote:
82link R14,#0
83movem.l R6-R7,-(sp)
84~rc=R7
85*line 78
86move #-1,R7
87*line 80
88*line 80
89cmp.b #4,_ac_code
90bne L2
91tst _cflag
92beq L2
93*line 81
94*line 82
95*line 83
96move _cnote,R7
97add #1,R7
98*line 84
99bra L3
100L2:
101*line 85
102*line 85
103cmp.b #1,_ac_code
104bne L4
105tst _cflag
106beq L4
107*line 86
108*line 87
109*line 88
110move _cnote,R7
111sub #1,R7
112*line 89
113bra L5
114L4:
115*line 90
116*line 91
117*line 92
118L5:L3:
119*line 101
120move R7,R0
121bra L1
122L1:tst.l (sp)+
123movem.l (sp)+,R7-R7
124unlk R14
125rts
126.globl _ned_acc
127.text
128_ned_acc:
129~~ned_acc:
130~grp=8
131link R14,#0
132movem.l R6-R7/R13-R13,-(sp)
133~nn=R7
134~ep=R13
135*line 122
136*line 122
137jsr _accnote
138move R0,R7
139cmp #-1,R7
140bne L7
141*line 123
142*line 124
143*line 125
144move #-1,R0
145bra L6
146*line 126
147*line 127
148L7:
149*line 128
150*line 128
151move #5,(sp)
152jsr _e_alc
153move.l R0,R13
154move.l R13,R0
155beq L8
156*line 129
157*line 134
158*line 135
159*line 136
160move.l _ctime,(R13)
161*line 137
162move.b #5,5(R13)
163*line 138
164move.b R7,6(R13)
165*line 139
166move 8(R14),R0
167move.b R0,7(R13)
168*line 140
169move #16128,16(R13)
170*line 141
171move.l _ctime,(sp)
172clr -(sp)
173move.l _p_cur,-(sp)
174jsr _ep_adj
175addq.l #6,sp
176move.l R0,(sp)
177move.l R13,-(sp)
178jsr _e_ins
179addq.l #4,sp
180*line 142
181move #3,_noteop
182*line 143
183*line 144
184clr R0
185bra L6
186*line 145
187*line 146
188L8:
189*line 147
190clr _noteop
191*line 149
192move #-1,R0
193bra L6
194L6:tst.l (sp)+
195movem.l (sp)+,R7-R7/R13-R13
196unlk R14
197rts
198.globl _ned_nat
199.text
200_ned_nat:
201~~ned_nat:
202~grp=8
203link R14,#0
204movem.l R7-R7/R13-R13,-(sp)
205~ep=R13
206*line 169
207*line 169
208move #5,(sp)
209jsr _e_alc
210move.l R0,R13
211move.l R13,R0
212beq L10
213*line 170
214*line 175
215*line 176
216*line 177
217move.l _ctime,(R13)
218*line 178
219move.b #5,5(R13)
220*line 179
221move _cnote,R0
222move.b R0,6(R13)
223*line 180
224move 8(R14),R0
225move.b R0,7(R13)
226*line 181
227move #16128,16(R13)
228*line 182
229move.l _ctime,(sp)
230clr -(sp)
231move.l _p_cur,-(sp)
232jsr _ep_adj
233addq.l #6,sp
234move.l R0,(sp)
235move.l R13,-(sp)
236jsr _e_ins
237addq.l #4,sp
238*line 183
239move #3,_noteop
240*line 184
241*line 185
242clr R0
243bra L9
244*line 186
245*line 187
246L10:
247*line 188
248clr _noteop
249*line 190
250move #-1,R0
251bra L9
252L9:tst.l (sp)+
253movem.l (sp)+,R13-R13
254unlk R14
255rts
256.globl _nedesub
257.text
258_nedesub:
259~~nedesub:
260~grp=R7
261~note=R6
262link R14,#0
263movem.l R4-R7/R12-R13,-(sp)
264~ep=R13
265~np=R12
266~et=R5
267*line 215
268move 8(R14),R7
269*line 215
270move 10(R14),R6
271*line 217
272move.l _ctime,(sp)
273clr -(sp)
274move.l _p_cur,-(sp)
275jsr _ep_adj
276addq.l #6,sp
277move.l R0,R13
278L14:
279*line 229
280*line 230
281*line 231
282move.b 5(R13),R5
283ext.w R5
284and #127,R5
285*line 232
286*line 233
287move R5,R0
288bra L16
289*line 234
290L17:
291*line 235
292*line 236
293*line 237
294*line 238
295move.b 6(R13),R0
296ext.w R0
297cmp R0,R6
298bne L18
299move.b 7(R13),R0
300ext.w R0
301cmp R0,R7
302bne L18
303*line 239
304*line 240
305*line 241
306move #1,R0
307bra L11
308*line 242
309bra L19
310L18:bra L15
311L19:
312*line 243
313*line 244
314L20:
315*line 245
316*line 246
317*line 247
318*line 248
319move #1,R0
320bra L11
321*line 249
322L21:
323*line 250
324*line 251
325*line 252
326*line 253
327move.b 6(R13),R0
328ext.w R0
329cmp R0,R6
330bne L22
331move.b 7(R13),R0
332ext.w R0
333cmp R0,R7
334bne L22
335*line 254
336*line 255
337move.l 12(R13),R13
338*line 256
339*line 257
340*line 258
341L25:
342*line 259
343*line 260
344*line 261
345move.b 5(R13),R5
346ext.w R5
347and #127,R5
348*line 262
349*line 263
350move R5,R0
351bra L27
352*line 264
353L28:
354*line 265
355*line 266
356*line 267
357*line 268
358move.b 6(R13),R0
359ext.w R0
360cmp R0,R6
361bne L29
362move.b 7(R13),R0
363ext.w R0
364cmp R0,R7
365bne L29
366*line 269
367*line 270
368*line 271
369move #1,R0
370bra L11
371*line 272
372*line 273
373bra L30
374L29:bra L26
375L30:
376*line 274
377*line 275
378*line 276
379L31:
380*line 277
381*line 278
382*line 279
383*line 280
384move.b 6(R13),R0
385ext.w R0
386cmp R0,R6
387bne L32
388move.b 7(R13),R0
389ext.w R0
390cmp R0,R7
391bne L32
392*line 281
393L33:
394*line 282
395*line 283
396*line 284
397*line 285
398*line 286
399*line 286
400move #5,(sp)
401jsr _e_alc
402move.l R0,R12
403move.l R12,R0
404beq L34
405*line 287
406*line 292
407*line 293
408*line 294
409move.l _ctime,(R12)
410*line 295
411move.b #6,5(R12)
412*line 296
413move.b R6,6(R12)
414*line 297
415move.b R7,7(R12)
416*line 298
417move #16128,16(R12)
418*line 299
419move.l _ctime,(sp)
420clr -(sp)
421move.l _p_cur,-(sp)
422jsr _ep_adj
423addq.l #6,sp
424move.l R0,(sp)
425move.l R12,-(sp)
426jsr _e_ins
427addq.l #4,sp
428*line 300
429*line 301
430clr R0
431bra L11
432*line 302
433bra L35
434L34:
435*line 303
436*line 304
437*line 305
438*line 306
439move #-1,R0
440bra L11
441L35:
442*line 307
443*line 308
444*line 309
445*line 310
446L32:bra L26
447L27:cmp #5,R0
448beq L31
449cmp #6,R0
450beq L28
451cmp #21,R0
452beq L33
453bra L26
454L26:
455*line 311
456*line 312
457*line 313
458move.l 12(R13),R13
459*line 314
460L24:bra L25
461L23:
462*line 315
463*line 316
464*line 317
465*line 318
466L22:bra L15
467L16:cmp #1,R0
468beq L20
469cmp #5,R0
470beq L21
471cmp #6,R0
472beq L17
473bra L15
474L15:
475*line 319
476*line 320
477*line 321
478move.l 8(R13),R13
479*line 322
480L13:bra L14
481L12:L11:tst.l (sp)+
482movem.l (sp)+,R5-R7/R12-R13
483unlk R14
484rts
485.globl _ned_end
486.text
487_ned_end:
488~~ned_end:
489~grp=8
490link R14,#0
491movem.l R6-R7,-(sp)
492~rc=R7
493*line 350
494*line 350
495move _cnote,(sp)
496move 8(R14),-(sp)
497jsr _nedesub
498addq.l #2,sp
499move R0,R7
500cmp #-1,R7
501bne L37
502*line 351
503*line 352
504clr _noteop
505*line 353
506*line 354
507move #-1,R0
508bra L36
509*line 355
510bra L38
511L37:
512*line 356
513*line 356
514tst R7
515bne L39
516*line 357
517*line 358
518clr _noteop
519*line 359
520*line 360
521clr R0
522bra L36
523*line 361
524bra L40
525L39:
526*line 362
527*line 362
528cmp #1,R7
529beq L41
530*line 363
531*line 368
532*line 369
533*line 370
534clr _noteop
535*line 371
536*line 372
537move #-1,R0
538bra L36
539*line 373
540*line 374
541*line 375
542*line 380
543*line 381
544L41:L40:L38:
545*line 384
546*line 384
547move _cnote,(sp)
548add #1,(sp)
549move 8(R14),-(sp)
550jsr _nedesub
551addq.l #2,sp
552move R0,R7
553cmp #-1,R7
554bne L42
555*line 385
556*line 386
557clr _noteop
558*line 387
559*line 388
560move #-1,R0
561bra L36
562*line 389
563bra L43
564L42:
565*line 390
566*line 390
567cmp #1,R7
568bne L44
569*line 391
570*line 392
571clr _noteop
572*line 393
573*line 394
574move #-1,R0
575bra L36
576*line 395
577bra L45
578L44:
579*line 396
580*line 396
581tst R7
582beq L46
583*line 397
584*line 402
585*line 403
586*line 404
587clr _noteop
588*line 405
589*line 406
590move #-1,R0
591bra L36
592*line 407
593*line 408
594L46:L45:L43:
595*line 409
596clr _noteop
597*line 411
598clr R0
599bra L36
600L36:tst.l (sp)+
601movem.l (sp)+,R7-R7
602unlk R14
603rts
604.globl _ned_mvn
605.text
606_ned_mvn:
607~~ned_mvn:
608~grp=8
609link R14,#0
610movem.l R6-R7/R12-R13,-(sp)
611~bp=R13
612~ep=R12
613~note=R7
614*line 432
615*line 432
616tst _notesel
617beq L48
618*line 433
619*line 434
620move.l _p_nbeg,R13
621*line 435
622move.l _p_nend,R12
623*line 436
624*line 437
625*line 438
626*line 439
627*line 440
628*line 441
629*line 442
630cmp.l _p_bak,R13
631bne L49
632*line 442
633move.l 12(R13),_p_bak
634*line 443
635L49:
636*line 444
637*line 445
638cmp.l _p_ctr,R13
639bne L50
640*line 445
641move.l 12(R13),_p_ctr
642*line 446
643L50:
644*line 447
645*line 448
646cmp.l _p_cur,R13
647bne L51
648*line 448
649move.l 12(R13),_p_cur
650*line 449
651L51:
652*line 450
653*line 451
654cmp.l _p_fwd,R13
655bne L52
656*line 451
657move.l 12(R13),_p_fwd
658*line 452
659L52:
660*line 453
661move.l R13,(sp)
662jsr _e_rmv
663*line 454
664*line 455
665*line 456
666*line 457
667*line 458
668*line 459
669*line 460
670*line 461
671cmp.l _p_bak,R12
672bne L53
673*line 461
674move.l 12(R12),_p_bak
675*line 462
676L53:
677*line 463
678*line 464
679cmp.l _p_ctr,R12
680bne L54
681*line 464
682move.l 12(R12),_p_ctr
683*line 465
684L54:
685*line 466
686*line 467
687cmp.l _p_cur,R12
688bne L55
689*line 467
690move.l 12(R12),_p_cur
691*line 468
692L55:
693*line 469
694*line 470
695cmp.l _p_fwd,R12
696bne L56
697*line 470
698move.l 12(R12),_p_fwd
699*line 471
700L56:
701*line 472
702move.l R12,(sp)
703jsr _e_rmv
704*line 473
705*line 474
706move.l _ctime,(R13)
707*line 475
708move.l _ctime,R0
709add.l _t_note,R0
710move.l R0,(R12)
711*line 476
712*line 477
713*line 478
714*line 479
715*line 480
716*line 481
717move.l _ctime,(sp)
718clr -(sp)
719move.l _p_cur,-(sp)
720jsr _ep_adj
721addq.l #6,sp
722move.l R0,(sp)
723move.l R13,-(sp)
724jsr _e_ins
725addq.l #4,sp
726*line 482
727move.l _ctime,R0
728add.l _t_note,R0
729move.l R0,(sp)
730clr -(sp)
731move.l _p_cur,-(sp)
732jsr _ep_adj
733addq.l #6,sp
734move.l R0,(sp)
735move.l R12,-(sp)
736jsr _e_ins
737addq.l #4,sp
738*line 483
739*line 484
740clr _notesel
741*line 485
742clr _noteop
743*line 486
744*line 487
745clr R0
746bra L47
747*line 488
748bra L57
749L48:
750*line 489
751*line 490
752*line 491
753*line 491
754move _cnote,(sp)
755move 8(R14),-(sp)
756jsr _fcnote
757addq.l #2,sp
758tst.l R0
759beq L58
760*line 492
761*line 493
762move #1,_notesel
763*line 494
764*line 495
765move #-1,R0
766bra L47
767*line 496
768bra L59
769L58:
770*line 497
771*line 497
772jsr _accnote
773move R0,R7
774cmp #-1,R7
775beq L60
776*line 498
777*line 499
778*line 499
779move R7,(sp)
780move 8(R14),-(sp)
781jsr _fcnote
782addq.l #2,sp
783move.l R0,R13
784move.l R13,R0
785beq L61
786*line 500
787*line 501
788move #1,_notesel
789*line 502
790*line 503
791move #-1,R0
792bra L47
793*line 504
794L61:
795*line 505
796*line 506
797L60:L59:
798*line 507
799clr _notesel
800*line 508
801clr _noteop
802*line 509
803*line 510
804move #-1,R0
805bra L47
806L57:L47:tst.l (sp)+
807movem.l (sp)+,R7-R7/R12-R13
808unlk R14
809rts
810.globl _ned_mvb
811.text
812_ned_mvb:
813~~ned_mvb:
814~grp=8
815link R14,#0
816movem.l R6-R7/R12-R13,-(sp)
817~bp=R13
818~ep=R12
819~note=R7
820*line 532
821*line 532
822tst _notesel
823beq L63
824*line 533
825*line 534
826move.l _p_nbeg,R13
827*line 535
828move.l _p_nend,R12
829*line 536
830*line 537
831*line 537
832move.l (R12),R0
833cmp.l _ctime,R0
834bgt L64
835*line 538
836*line 539
837clr _noteop
838*line 540
839clr _notesel
840*line 541
841*line 542
842move #-1,R0
843bra L62
844*line 543
845*line 544
846*line 545
847*line 546
848L64:
849*line 547
850*line 548
851*line 549
852*line 550
853cmp.l _p_bak,R13
854bne L65
855*line 550
856move.l 12(R13),_p_bak
857*line 551
858L65:
859*line 552
860*line 553
861cmp.l _p_ctr,R13
862bne L66
863*line 553
864move.l 12(R13),_p_ctr
865*line 554
866L66:
867*line 555
868*line 556
869cmp.l _p_cur,R13
870bne L67
871*line 556
872move.l 12(R13),_p_cur
873*line 557
874L67:
875*line 558
876*line 559
877cmp.l _p_fwd,R13
878bne L68
879*line 559
880move.l 12(R13),_p_fwd
881*line 560
882L68:
883*line 561
884move.l R13,(sp)
885jsr _e_rmv
886*line 562
887*line 563
888move.l _ctime,(R13)
889*line 564
890*line 565
891*line 566
892*line 567
893move.l _ctime,(sp)
894clr -(sp)
895move.l _p_cur,-(sp)
896jsr _ep_adj
897addq.l #6,sp
898move.l R0,(sp)
899move.l R13,-(sp)
900jsr _e_ins
901addq.l #4,sp
902*line 568
903*line 569
904clr _noteop
905*line 570
906clr _notesel
907*line 571
908*line 572
909clr R0
910bra L62
911*line 573
912*line 574
913bra L69
914L63:
915*line 575
916*line 576
917*line 577
918*line 577
919move _cnote,(sp)
920move 8(R14),-(sp)
921jsr _fcnote
922addq.l #2,sp
923tst.l R0
924beq L70
925*line 578
926*line 579
927move #1,_notesel
928*line 580
929*line 581
930move #-1,R0
931bra L62
932*line 582
933bra L71
934L70:
935*line 583
936*line 583
937jsr _accnote
938move R0,R7
939cmp #-1,R7
940beq L72
941*line 584
942*line 585
943*line 585
944move R7,(sp)
945move 8(R14),-(sp)
946jsr _fcnote
947addq.l #2,sp
948move.l R0,R13
949move.l R13,R0
950beq L73
951*line 586
952*line 587
953move #1,_notesel
954*line 588
955*line 589
956move #-1,R0
957bra L62
958*line 590
959L73:
960*line 591
961*line 592
962L72:L71:
963*line 593
964clr _notesel
965*line 594
966clr _noteop
967*line 595
968*line 596
969move #-1,R0
970bra L62
971L69:L62:tst.l (sp)+
972movem.l (sp)+,R7-R7/R12-R13
973unlk R14
974rts
975.globl _ned_mve
976.text
977_ned_mve:
978~~ned_mve:
979~grp=8
980link R14,#0
981movem.l R6-R7/R12-R13,-(sp)
982~bp=R13
983~ep=R12
984~note=R7
985*line 618
986*line 618
987tst _notesel
988beq L75
989*line 619
990*line 620
991move.l _p_nbeg,R13
992*line 621
993move.l _p_nend,R12
994*line 622
995*line 623
996*line 623
997move.l (R13),R0
998cmp.l _ctime,R0
999blt L76
1000*line 624
1001*line 625
1002clr _noteop
1003*line 626
1004clr _notesel
1005*line 627
1006*line 628
1007move #-1,R0
1008bra L74
1009*line 629
1010*line 630
1011*line 631
1012*line 632
1013L76:
1014*line 633
1015*line 634
1016*line 635
1017*line 636
1018cmp.l _p_bak,R12
1019bne L77
1020*line 636
1021move.l 12(R12),_p_bak
1022*line 637
1023L77:
1024*line 638
1025*line 639
1026cmp.l _p_ctr,R12
1027bne L78
1028*line 639
1029move.l 12(R12),_p_ctr
1030*line 640
1031L78:
1032*line 641
1033*line 642
1034cmp.l _p_cur,R12
1035bne L79
1036*line 642
1037move.l 12(R12),_p_cur
1038*line 643
1039L79:
1040*line 644
1041*line 645
1042cmp.l _p_fwd,R12
1043bne L80
1044*line 645
1045move.l 12(R12),_p_fwd
1046*line 646
1047L80:
1048*line 647
1049move.l R12,(sp)
1050jsr _e_rmv
1051*line 648
1052*line 649
1053move.l _ctime,(R12)
1054*line 650
1055*line 651
1056*line 652
1057*line 653
1058move.l _ctime,(sp)
1059clr -(sp)
1060move.l _p_cur,-(sp)
1061jsr _ep_adj
1062addq.l #6,sp
1063move.l R0,(sp)
1064move.l R12,-(sp)
1065jsr _e_ins
1066addq.l #4,sp
1067*line 654
1068*line 655
1069clr _noteop
1070*line 656
1071clr _notesel
1072*line 657
1073*line 658
1074clr R0
1075bra L74
1076*line 659
1077bra L81
1078L75:
1079*line 660
1080*line 661
1081*line 662
1082*line 662
1083move _cnote,(sp)
1084move 8(R14),-(sp)
1085jsr _fcnote
1086addq.l #2,sp
1087tst.l R0
1088beq L82
1089*line 663
1090*line 664
1091move #1,_notesel
1092*line 665
1093*line 666
1094move #-1,R0
1095bra L74
1096*line 667
1097bra L83
1098L82:
1099*line 668
1100*line 668
1101jsr _accnote
1102move R0,R7
1103cmp #-1,R7
1104beq L84
1105*line 669
1106*line 670
1107*line 670
1108move R7,(sp)
1109move 8(R14),-(sp)
1110jsr _fcnote
1111addq.l #2,sp
1112move.l R0,R13
1113move.l R13,R0
1114beq L85
1115*line 671
1116*line 672
1117move #1,_notesel
1118*line 673
1119*line 674
1120move #-1,R0
1121bra L74
1122*line 675
1123L85:
1124*line 676
1125*line 677
1126L84:L83:
1127*line 678
1128clr _notesel
1129*line 679
1130clr _noteop
1131*line 680
1132*line 681
1133move #-1,R0
1134bra L74
1135L81:L74:tst.l (sp)+
1136movem.l (sp)+,R7-R7/R12-R13
1137unlk R14
1138rts
1139.globl _donote
1140.text
1141_donote:
1142~~donote:
1143link R14,#0
1144movem.l R4-R7,-(sp)
1145~grp=R7
1146~i=R6
1147~gs=R5
1148*line 700
1149*line 700
1150cmp #-1,_scmctl
1151beq L87
1152*line 701
1153*line 702
1154bra L86
1155*line 703
1156*line 704
1157*line 705
1158L87:
1159*line 706
1160*line 706
1161tst _recsw
1162bne L88
1163*line 707
1164*line 708
1165bra L86
1166*line 709
1167*line 710
1168*line 711
1169*line 712
1170*line 713
1171L88:
1172*line 714
1173clr R5
1174*line 715
1175move #-1,R7
1176*line 717
1177clr R6
1178bra L91
1179L92:
1180*line 718
1181*line 719
1182*line 719
1183move R6,R8
1184add.l R8,R8
1185add.l #_grpmode,R8
1186cmp #2,(R8)
1187bne L93
1188move R6,R8
1189add.l R8,R8
1190move.l #_grpstat,R9
1191tst 0(R8,R9.l)
1192beq L93
1193*line 720
1194*line 721
1195move R6,R7
1196*line 722
1197add #1,R5
1198*line 726
1199*line 727
1200L93:L90:
1201*line 717
1202add #1,R6
1203L91:
1204*line 717
1205cmp #12,R6
1206blt L92
1207L89:
1208*line 737
1209*line 737
1210cmp #1,R5
1211beq L94
1212*line 738
1213*line 739
1214bra L86
1215*line 740
1216*line 741
1217*line 742
1218L94:
1219*line 743
1220*line 743
1221move _cyval,(sp)
1222move _cxval,-(sp)
1223jsr _pix2mid
1224addq.l #2,sp
1225tst R0
1226beq L95
1227*line 744
1228*line 749
1229*line 750
1230bra L86
1231*line 751
1232*line 752
1233*line 753
1234*line 754
1235*line 759
1236*line 760
1237L95:
1238*line 763
1239move _noteop,R0
1240bra L97
1241*line 764
1242L98:
1243*line 765
1244*line 766
1245*line 767
1246*line 768
1247move R7,(sp)
1248jsr _ned_acc
1249tst R0
1250bne L96
1251*line 769
1252*line 770
1253move.l _fc_val,(sp)
1254jsr _sc_refr
1255bra L96
1256*line 771
1257*line 772
1258L99:
1259*line 773
1260*line 774
1261*line 775
1262*line 776
1263move R7,(sp)
1264jsr _ned_nat
1265tst R0
1266bne L96
1267*line 777
1268*line 778
1269move.l _fc_val,(sp)
1270jsr _sc_refr
1271bra L96
1272*line 779
1273*line 780
1274L100:
1275*line 781
1276*line 782
1277*line 783
1278*line 784
1279move R7,(sp)
1280jsr _ned_end
1281tst R0
1282bne L96
1283*line 785
1284*line 786
1285move.l _fc_val,(sp)
1286jsr _sc_refr
1287bra L96
1288*line 787
1289*line 788
1290*line 789
1291L101:
1292*line 790
1293*line 791
1294*line 792
1295*line 793
1296move R7,(sp)
1297jsr _ned_mvn
1298tst R0
1299bne L96
1300*line 794
1301*line 795
1302move.l _fc_val,(sp)
1303jsr _sc_refr
1304bra L96
1305*line 796
1306*line 797
1307L102:
1308*line 798
1309*line 799
1310*line 800
1311*line 801
1312move R7,(sp)
1313jsr _ned_mvb
1314tst R0
1315bne L96
1316*line 802
1317*line 803
1318move.l _fc_val,(sp)
1319jsr _sc_refr
1320bra L96
1321*line 804
1322*line 805
1323L103:
1324*line 806
1325*line 807
1326*line 808
1327*line 809
1328move R7,(sp)
1329jsr _ned_mve
1330tst R0
1331bne L96
1332*line 810
1333*line 811
1334move.l _fc_val,(sp)
1335jsr _sc_refr
1336bra L96
1337*line 812
1338*line 813
1339L104:
1340*line 814
1341*line 815
1342*line 816
1343*line 817
1344clr _noteop
1345bra L96
1346L97:sub #1,R0
1347cmp #5,R0
1348bhi L104
1349asl #2,R0
1350move R0,R8
1351add.l #L105,R8
1352move.l (R8),R8
1353jmp (R8)
1354.data
1355L105:.dc.l L98
1356.dc.l L99
1357.dc.l L100
1358.dc.l L101
1359.dc.l L102
1360.dc.l L103
1361.text
1362L96:
1363*line 820
1364jsr _dnedmod
1365bra L86
1366L86:tst.l (sp)+
1367movem.l (sp)+,R5-R7
1368unlk R14
1369rts
1370.data
Note: See TracBrowser for help on using the repository browser.