Changeset 8325447 in buchla-68k for ram/execkey.s
- Timestamp:
- 08/07/2017 02:04:35 PM (7 years ago)
- Branches:
- master
- Children:
- 27c8d40
- Parents:
- 84c0125
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/execkey.s
r84c0125 r8325447 9 9 LOC_SUB = 1 10 10 11 .xdef _execkey12 13 .xref _xgetran14 15 .xref _rsntab16 .xref _expbit17 .xref _io_fpu18 .xref _legato19 .xref _prstab20 .xref _ptoftab21 .xref _timemlt22 .xref _valents23 .xref _vbufs24 .xref _vce2grp25 .xref _vce2trg26 .xref _veltab27 .xref _vpsms11 .xdef execkey 12 13 .xref xgetran 14 15 .xref rsntab 16 .xref expbit 17 .xref io_fpu 18 .xref legato 19 .xref prstab 20 .xref ptoftab 21 .xref timemlt 22 .xref valents 23 .xref vbufs 24 .xref vce2grp 25 .xref vce2trg 26 .xref veltab 27 .xref vpsms 28 28 29 29 .page … … 81 81 | { 82 82 83 _execkey: link A6,#LASTLOCL83 execkey: link A6,#LASTLOCL 84 84 movem.l D2-R_FPMANT/A_SMP-A_FP,-(sp) 85 85 … … 94 94 95 95 lsr.w #1,D0 96 lea _vce2trg,A096 lea vce2trg,A0 97 97 move.w TRG(A6),0(A0,D0.W) 98 98 … … 101 101 move.w VCE(A6),A0 102 102 add.l A0,A0 103 move.l # _vce2grp,A1103 move.l #vce2grp,A1 104 104 clr.l D0 105 105 move.w 0(A0,A1.l),D0 … … 136 136 ext.l D0 137 137 move.l D0,A_FPU 138 add.l # _io_fpu+0x4000,A_FPU138 add.l #io_fpu+0x4000,A_FPU 139 139 140 140 | fp = &ip->idhfnc[0]; … … 172 172 lsl.l #2,D0 173 173 add.l D1,D0 174 add.l # _valents,D0174 add.l #valents,D0 175 175 move.l D0,VEP(A6) 176 176 … … 180 180 add.l A0,A0 181 181 add.l A0,A0 182 add.l # _vpsms,A0182 add.l #vpsms,A0 183 183 move.l (A0),A_SMP 184 184 … … 261 261 262 262 F00L117: move MLTVAL(A6),(sp) 263 jsr _xgetran263 jsr xgetran 264 264 move D0,TSRCVAL(A6) 265 265 … … 287 287 move.w D0,A0 288 288 add.l A0,A0 289 add.l # _ptoftab,A0289 add.l #ptoftab,A0 290 290 move.w (A0),TSRCVAL(A6) 291 291 … … 299 299 F00L120: move.w TRG(A6),A0 300 300 add.l A0,A0 301 add.l # _veltab,A0301 add.l #veltab,A0 302 302 move.w (A0),TSRCVAL(A6) 303 303 … … 311 311 F00L121: move.w TRG(A6),A0 312 312 add.l A0,A0 313 add.l # _prstab,A0313 add.l #prstab,A0 314 314 move.w (A0),TSRCVAL(A6) 315 315 … … 369 369 F00L139: move.l PT(A6),A0 370 370 move 4(A0),(sp) 371 jsr _xgetran371 jsr xgetran 372 372 ext.l D0 373 373 move.l D0,LTMP(A6) … … 397 397 move D0,A0 398 398 add.l A0,A0 399 move.l # _ptoftab,A1399 move.l #ptoftab,A1 400 400 move 0(A0,A1.l),D0 401 401 ext.l D0 … … 411 411 F00L142: move TRG(A6),A0 412 412 add.l A0,A0 413 move.l # _veltab,A1413 move.l #veltab,A1 414 414 move 0(A0,A1.l),D0 415 415 ext.l D0 … … 427 427 F00L143: move TRG(A6),A0 428 428 add.l A0,A0 429 move.l # _prstab,A1429 move.l #prstab,A1 430 430 move 0(A0,A1.l),D0 431 431 ext.l D0 … … 450 450 add.l D1,D0 451 451 move.l D0,A0 452 move.l # _valents,A1452 move.l #valents,A1 453 453 clr.l D0 454 454 move 8(A0,A1.l),D0 … … 517 517 move.w D0,D2 518 518 andi.w #0xFFF0,D0 519 move.w _timemlt,D1519 move.w timemlt,D1 520 520 muls D1,D0 521 521 move.l #15,D1 … … 528 528 move D2,A0 529 529 add.l A0,A0 530 add.l # _expbit,A0530 add.l #expbit,A0 531 531 move (A0),R_FPEXP 532 532 … … 700 700 | return; 701 701 | } 702 FN01: tst.w _legato702 FN01: tst.w legato 703 703 beq FN01AA 704 704 705 clr.w _legato705 clr.w legato 706 706 bra FNEXIT 707 707 … … 729 729 ext.l D0 730 730 move.l D0,A_FPU 731 add.l # _io_fpu+0x4000,A_FPU731 add.l #io_fpu+0x4000,A_FPU 732 732 733 733 | fp = &ip->idhfnc[1]; … … 766 766 lsl.l #2,D0 767 767 add.l D1,D0 768 add.l # _valents,D0768 add.l #valents,D0 769 769 move.l D0,VEP(A6) 770 770 … … 774 774 add.l A0,A0 775 775 add.l A0,A0 776 add.l # _vpsms,A0776 add.l #vpsms,A0 777 777 move.l (A0),A_SMP 778 778 … … 855 855 856 856 F01L117: move MLTVAL(A6),(sp) 857 jsr _xgetran857 jsr xgetran 858 858 move D0,TSRCVAL(A6) 859 859 … … 881 881 move D0,A0 882 882 add.l A0,A0 883 add.l # _ptoftab,A0883 add.l #ptoftab,A0 884 884 move (A0),TSRCVAL(A6) 885 885 … … 893 893 F01L120: move TRG(A6),A0 894 894 add.l A0,A0 895 add.l # _veltab,A0895 add.l #veltab,A0 896 896 move (A0),TSRCVAL(A6) 897 897 … … 905 905 F01L121: move TRG(A6),A0 906 906 add.l A0,A0 907 add.l # _prstab,A0907 add.l #prstab,A0 908 908 move (A0),TSRCVAL(A6) 909 909 … … 963 963 F01L139: move.l PT(A6),A0 964 964 move 4(A0),(sp) 965 jsr _xgetran965 jsr xgetran 966 966 ext.l D0 967 967 move.l D0,LTMP(A6) … … 991 991 move D0,A0 992 992 add.l A0,A0 993 move.l # _ptoftab,A1993 move.l #ptoftab,A1 994 994 move 0(A0,A1.l),D0 995 995 ext.l D0 … … 1005 1005 F01L142: move TRG(A6),A0 1006 1006 add.l A0,A0 1007 move.l # _veltab,A11007 move.l #veltab,A1 1008 1008 move 0(A0,A1.l),D0 1009 1009 ext.l D0 … … 1021 1021 F01L143: move TRG(A6),A0 1022 1022 add.l A0,A0 1023 move.l # _prstab,A11023 move.l #prstab,A1 1024 1024 move 0(A0,A1.l),D0 1025 1025 ext.l D0 … … 1044 1044 add.l D1,D0 1045 1045 move.l D0,A0 1046 move.l # _valents,A11046 move.l #valents,A1 1047 1047 clr.l D0 1048 1048 move 8(A0,A1.l),D0 … … 1111 1111 move.w D0,D2 1112 1112 andi.w #0xFFF0,D0 1113 move.w _timemlt,D11113 move.w timemlt,D1 1114 1114 muls D1,D0 1115 1115 move.l #15,D1 … … 1122 1122 move D2,A0 1123 1123 add.l A0,A0 1124 add.l # _expbit,A01124 add.l #expbit,A0 1125 1125 move (A0),R_FPEXP 1126 1126 … … 1278 1278 ext.l D0 1279 1279 move.l D0,A_FPU 1280 add.l # _io_fpu+0x4000,A_FPU1280 add.l #io_fpu+0x4000,A_FPU 1281 1281 1282 1282 | fp = &ip->idhfnc[2]; … … 1315 1315 lsl.l #2,D0 1316 1316 add.l D1,D0 1317 add.l # _valents,D01317 add.l #valents,D0 1318 1318 move.l D0,VEP(A6) 1319 1319 … … 1323 1323 add.l A0,A0 1324 1324 add.l A0,A0 1325 add.l # _vpsms,A01325 add.l #vpsms,A0 1326 1326 move.l (A0),A_SMP 1327 1327 … … 1404 1404 1405 1405 F02L117: move MLTVAL(A6),(sp) 1406 jsr _xgetran1406 jsr xgetran 1407 1407 move D0,TSRCVAL(A6) 1408 1408 … … 1430 1430 move D0,A0 1431 1431 add.l A0,A0 1432 add.l # _ptoftab,A01432 add.l #ptoftab,A0 1433 1433 move (A0),TSRCVAL(A6) 1434 1434 … … 1442 1442 F02L120: move TRG(A6),A0 1443 1443 add.l A0,A0 1444 add.l # _veltab,A01444 add.l #veltab,A0 1445 1445 move (A0),TSRCVAL(A6) 1446 1446 … … 1454 1454 F02L121: move TRG(A6),A0 1455 1455 add.l A0,A0 1456 add.l # _prstab,A01456 add.l #prstab,A0 1457 1457 move (A0),TSRCVAL(A6) 1458 1458 … … 1512 1512 F02L139: move.l PT(A6),A0 1513 1513 move 4(A0),(sp) 1514 jsr _xgetran1514 jsr xgetran 1515 1515 ext.l D0 1516 1516 move.l D0,LTMP(A6) … … 1540 1540 move D0,A0 1541 1541 add.l A0,A0 1542 move.l # _ptoftab,A11542 move.l #ptoftab,A1 1543 1543 move 0(A0,A1.l),D0 1544 1544 ext.l D0 … … 1554 1554 F02L142: move TRG(A6),A0 1555 1555 add.l A0,A0 1556 move.l # _veltab,A11556 move.l #veltab,A1 1557 1557 move 0(A0,A1.l),D0 1558 1558 ext.l D0 … … 1570 1570 F02L143: move TRG(A6),A0 1571 1571 add.l A0,A0 1572 move.l # _prstab,A11572 move.l #prstab,A1 1573 1573 move 0(A0,A1.l),D0 1574 1574 ext.l D0 … … 1593 1593 add.l D1,D0 1594 1594 move.l D0,A0 1595 move.l # _valents,A11595 move.l #valents,A1 1596 1596 clr.l D0 1597 1597 move 8(A0,A1.l),D0 … … 1660 1660 move.w D0,D2 1661 1661 andi.w #0xFFF0,D0 1662 move.w _timemlt,D11662 move.w timemlt,D1 1663 1663 muls D1,D0 1664 1664 move.l #15,D1 … … 1671 1671 move D2,A0 1672 1672 add.l A0,A0 1673 add.l # _expbit,A01673 add.l #expbit,A0 1674 1674 move (A0),R_FPEXP 1675 1675 … … 1827 1827 ext.l D0 1828 1828 move.l D0,A_FPU 1829 add.l # _io_fpu+0x4000,A_FPU1829 add.l #io_fpu+0x4000,A_FPU 1830 1830 1831 1831 | fp = &ip->idhfnc[3]; … … 1864 1864 lsl.l #2,D0 1865 1865 add.l D1,D0 1866 add.l # _valents,D01866 add.l #valents,D0 1867 1867 move.l D0,VEP(A6) 1868 1868 … … 1872 1872 add.l A0,A0 1873 1873 add.l A0,A0 1874 add.l # _vpsms,A01874 add.l #vpsms,A0 1875 1875 move.l (A0),A_SMP 1876 1876 … … 1953 1953 1954 1954 F03L117: move MLTVAL(A6),(sp) 1955 jsr _xgetran1955 jsr xgetran 1956 1956 move D0,TSRCVAL(A6) 1957 1957 … … 1979 1979 move D0,A0 1980 1980 add.l A0,A0 1981 add.l # _ptoftab,A01981 add.l #ptoftab,A0 1982 1982 move (A0),TSRCVAL(A6) 1983 1983 … … 1991 1991 F03L120: move TRG(A6),A0 1992 1992 add.l A0,A0 1993 add.l # _veltab,A01993 add.l #veltab,A0 1994 1994 move (A0),TSRCVAL(A6) 1995 1995 … … 2003 2003 F03L121: move TRG(A6),A0 2004 2004 add.l A0,A0 2005 add.l # _prstab,A02005 add.l #prstab,A0 2006 2006 move (A0),TSRCVAL(A6) 2007 2007 … … 2061 2061 F03L139: move.l PT(A6),A0 2062 2062 move 4(A0),(sp) 2063 jsr _xgetran2063 jsr xgetran 2064 2064 ext.l D0 2065 2065 move.l D0,LTMP(A6) … … 2089 2089 move D0,A0 2090 2090 add.l A0,A0 2091 move.l # _ptoftab,A12091 move.l #ptoftab,A1 2092 2092 move 0(A0,A1.l),D0 2093 2093 ext.l D0 … … 2103 2103 F03L142: move TRG(A6),A0 2104 2104 add.l A0,A0 2105 move.l # _veltab,A12105 move.l #veltab,A1 2106 2106 move 0(A0,A1.l),D0 2107 2107 ext.l D0 … … 2119 2119 F03L143: move TRG(A6),A0 2120 2120 add.l A0,A0 2121 move.l # _prstab,A12121 move.l #prstab,A1 2122 2122 move 0(A0,A1.l),D0 2123 2123 ext.l D0 … … 2142 2142 add.l D1,D0 2143 2143 move.l D0,A0 2144 move.l # _valents,A12144 move.l #valents,A1 2145 2145 clr.l D0 2146 2146 move 8(A0,A1.l),D0 … … 2209 2209 move.w D0,D2 2210 2210 andi.w #0xFFF0,D0 2211 move.w _timemlt,D12211 move.w timemlt,D1 2212 2212 muls D1,D0 2213 2213 move.l #15,D1 … … 2220 2220 move D2,A0 2221 2221 add.l A0,A0 2222 add.l # _expbit,A02222 add.l #expbit,A0 2223 2223 move (A0),R_FPEXP 2224 2224 … … 2376 2376 ext.l D0 2377 2377 move.l D0,A_FPU 2378 add.l # _io_fpu+0x4000,A_FPU2378 add.l #io_fpu+0x4000,A_FPU 2379 2379 2380 2380 | fp = &ip->idhfnc[4]; … … 2390 2390 | output resonance via table lookup with FPU interrupts off 2391 2391 2392 lea _rsntab,A02392 lea rsntab,A0 2393 2393 clr.w D0 2394 2394 move.b 9(A_FP),D0 … … 2401 2401 ext.l D0 2402 2402 move.l D0,A0 2403 add.l # _io_fpu+0x4000,A02403 add.l #io_fpu+0x4000,A0 2404 2404 move.w sr,OLDI(A6) 2405 2405 move.w #FPU_DI,sr … … 2440 2440 lsl.l #2,D0 2441 2441 add.l D1,D0 2442 add.l # _valents,D02442 add.l #valents,D0 2443 2443 move.l D0,VEP(A6) 2444 2444 … … 2448 2448 add.l A0,A0 2449 2449 add.l A0,A0 2450 add.l # _vpsms,A02450 add.l #vpsms,A0 2451 2451 move.l (A0),A_SMP 2452 2452 … … 2529 2529 2530 2530 F04L117: move MLTVAL(A6),(sp) 2531 jsr _xgetran2531 jsr xgetran 2532 2532 move D0,TSRCVAL(A6) 2533 2533 … … 2555 2555 move D0,A0 2556 2556 add.l A0,A0 2557 add.l # _ptoftab,A02557 add.l #ptoftab,A0 2558 2558 move (A0),TSRCVAL(A6) 2559 2559 … … 2567 2567 F04L120: move TRG(A6),A0 2568 2568 add.l A0,A0 2569 add.l # _veltab,A02569 add.l #veltab,A0 2570 2570 move (A0),TSRCVAL(A6) 2571 2571 … … 2579 2579 F04L121: move TRG(A6),A0 2580 2580 add.l A0,A0 2581 add.l # _prstab,A02581 add.l #prstab,A0 2582 2582 move (A0),TSRCVAL(A6) 2583 2583 … … 2656 2656 F04L139: move.l PT(A6),A0 2657 2657 move 4(A0),(sp) 2658 jsr _xgetran2658 jsr xgetran 2659 2659 ext.l D0 2660 2660 move.l D0,LTMP(A6) … … 2684 2684 move D0,A0 2685 2685 add.l A0,A0 2686 move.l # _ptoftab,A12686 move.l #ptoftab,A1 2687 2687 move 0(A0,A1.l),D0 2688 2688 ext.l D0 … … 2698 2698 F04L142: move TRG(A6),A0 2699 2699 add.l A0,A0 2700 move.l # _veltab,A12700 move.l #veltab,A1 2701 2701 move 0(A0,A1.l),D0 2702 2702 ext.l D0 … … 2714 2714 F04L143: move TRG(A6),A0 2715 2715 add.l A0,A0 2716 move.l # _prstab,A12716 move.l #prstab,A1 2717 2717 move 0(A0,A1.l),D0 2718 2718 ext.l D0 … … 2737 2737 add.l D1,D0 2738 2738 move.l D0,A0 2739 move.l # _valents,A12739 move.l #valents,A1 2740 2740 clr.l D0 2741 2741 move 8(A0,A1.l),D0 … … 2804 2804 move.w D0,D2 2805 2805 andi.w #0xFFF0,D0 2806 move.w _timemlt,D12806 move.w timemlt,D1 2807 2807 muls D1,D0 2808 2808 move.l #15,D1 … … 2815 2815 move D2,A0 2816 2816 add.l A0,A0 2817 add.l # _expbit,A02817 add.l #expbit,A0 2818 2818 move (A0),R_FPEXP 2819 2819 … … 2990 2990 ext.l D0 2991 2991 move.l D0,A_FPU 2992 add.l # _io_fpu+0x4000,A_FPU2992 add.l #io_fpu+0x4000,A_FPU 2993 2993 2994 2994 | fp = &ip->idhfnc[5]; … … 3027 3027 lsl.l #2,D0 3028 3028 add.l D1,D0 3029 add.l # _valents,D03029 add.l #valents,D0 3030 3030 move.l D0,VEP(A6) 3031 3031 … … 3035 3035 add.l A0,A0 3036 3036 add.l A0,A0 3037 add.l # _vpsms,A03037 add.l #vpsms,A0 3038 3038 move.l (A0),A_SMP 3039 3039 … … 3116 3116 3117 3117 F05L117: move MLTVAL(A6),(sp) 3118 jsr _xgetran3118 jsr xgetran 3119 3119 move D0,TSRCVAL(A6) 3120 3120 … … 3142 3142 move D0,A0 3143 3143 add.l A0,A0 3144 add.l # _ptoftab,A03144 add.l #ptoftab,A0 3145 3145 move (A0),TSRCVAL(A6) 3146 3146 … … 3154 3154 F05L120: move TRG(A6),A0 3155 3155 add.l A0,A0 3156 add.l # _veltab,A03156 add.l #veltab,A0 3157 3157 move (A0),TSRCVAL(A6) 3158 3158 … … 3166 3166 F05L121: move TRG(A6),A0 3167 3167 add.l A0,A0 3168 add.l # _prstab,A03168 add.l #prstab,A0 3169 3169 move (A0),TSRCVAL(A6) 3170 3170 … … 3214 3214 F05L139: move.l PT(A6),A0 3215 3215 move 4(A0),(sp) 3216 jsr _xgetran3216 jsr xgetran 3217 3217 ext.l D0 3218 3218 move.l D0,LTMP(A6) … … 3242 3242 move D0,A0 3243 3243 add.l A0,A0 3244 move.l # _ptoftab,A13244 move.l #ptoftab,A1 3245 3245 move 0(A0,A1.l),D0 3246 3246 ext.l D0 … … 3256 3256 F05L142: move TRG(A6),A0 3257 3257 add.l A0,A0 3258 move.l # _veltab,A13258 move.l #veltab,A1 3259 3259 move 0(A0,A1.l),D0 3260 3260 ext.l D0 … … 3272 3272 F05L143: move TRG(A6),A0 3273 3273 add.l A0,A0 3274 move.l # _prstab,A13274 move.l #prstab,A1 3275 3275 move 0(A0,A1.l),D0 3276 3276 ext.l D0 … … 3295 3295 add.l D1,D0 3296 3296 move.l D0,A0 3297 move.l # _valents,A13297 move.l #valents,A1 3298 3298 clr.l D0 3299 3299 move 8(A0,A1.l),D0 … … 3362 3362 move.w D0,D2 3363 3363 andi.w #0xFFF0,D0 3364 move.w _timemlt,D13364 move.w timemlt,D1 3365 3365 muls D1,D0 3366 3366 move.l #15,D1 … … 3373 3373 move D2,A0 3374 3374 add.l A0,A0 3375 add.l # _expbit,A03375 add.l #expbit,A0 3376 3376 move (A0),R_FPEXP 3377 3377 … … 3549 3549 ext.l D0 3550 3550 move.l D0,A_FPU 3551 add.l # _io_fpu+0x4000,A_FPU3551 add.l #io_fpu+0x4000,A_FPU 3552 3552 3553 3553 | fp = &ip->idhfnc[6]; … … 3586 3586 lsl.l #2,D0 3587 3587 add.l D1,D0 3588 add.l # _valents,D03588 add.l #valents,D0 3589 3589 move.l D0,VEP(A6) 3590 3590 … … 3594 3594 add.l A0,A0 3595 3595 add.l A0,A0 3596 add.l # _vpsms,A03596 add.l #vpsms,A0 3597 3597 move.l (A0),A_SMP 3598 3598 … … 3675 3675 3676 3676 F06L117: move MLTVAL(A6),(sp) 3677 jsr _xgetran3677 jsr xgetran 3678 3678 move D0,TSRCVAL(A6) 3679 3679 … … 3701 3701 move D0,A0 3702 3702 add.l A0,A0 3703 add.l # _ptoftab,A03703 add.l #ptoftab,A0 3704 3704 move (A0),TSRCVAL(A6) 3705 3705 … … 3713 3713 F06L120: move TRG(A6),A0 3714 3714 add.l A0,A0 3715 add.l # _veltab,A03715 add.l #veltab,A0 3716 3716 move (A0),TSRCVAL(A6) 3717 3717 … … 3725 3725 F06L121: move TRG(A6),A0 3726 3726 add.l A0,A0 3727 add.l # _prstab,A03727 add.l #prstab,A0 3728 3728 move (A0),TSRCVAL(A6) 3729 3729 … … 3773 3773 F06L139: move.l PT(A6),A0 3774 3774 move 4(A0),(sp) 3775 jsr _xgetran3775 jsr xgetran 3776 3776 ext.l D0 3777 3777 move.l D0,LTMP(A6) … … 3801 3801 move D0,A0 3802 3802 add.l A0,A0 3803 move.l # _ptoftab,A13803 move.l #ptoftab,A1 3804 3804 move 0(A0,A1.l),D0 3805 3805 ext.l D0 … … 3815 3815 F06L142: move TRG(A6),A0 3816 3816 add.l A0,A0 3817 move.l # _veltab,A13817 move.l #veltab,A1 3818 3818 move 0(A0,A1.l),D0 3819 3819 ext.l D0 … … 3831 3831 F06L143: move TRG(A6),A0 3832 3832 add.l A0,A0 3833 move.l # _prstab,A13833 move.l #prstab,A1 3834 3834 move 0(A0,A1.l),D0 3835 3835 ext.l D0 … … 3854 3854 add.l D1,D0 3855 3855 move.l D0,A0 3856 move.l # _valents,A13856 move.l #valents,A1 3857 3857 clr.l D0 3858 3858 move 8(A0,A1.l),D0 … … 3921 3921 move.w D0,D2 3922 3922 andi.w #0xFFF0,D0 3923 move.w _timemlt,D13923 move.w timemlt,D1 3924 3924 muls D1,D0 3925 3925 move.l #15,D1 … … 3932 3932 move D2,A0 3933 3933 add.l A0,A0 3934 add.l # _expbit,A03934 add.l #expbit,A0 3935 3935 move (A0),R_FPEXP 3936 3936 … … 4074 4074 ext.l D0 4075 4075 move.l D0,A_FPU 4076 add.l # _io_fpu+0x4000,A_FPU4076 add.l #io_fpu+0x4000,A_FPU 4077 4077 4078 4078 | fp = &ip->idhfnc[7]; … … 4111 4111 lsl.l #2,D0 4112 4112 add.l D1,D0 4113 add.l # _valents,D04113 add.l #valents,D0 4114 4114 move.l D0,VEP(A6) 4115 4115 … … 4119 4119 add.l A0,A0 4120 4120 add.l A0,A0 4121 add.l # _vpsms,A04121 add.l #vpsms,A0 4122 4122 move.l (A0),A_SMP 4123 4123 … … 4200 4200 4201 4201 F07L117: move MLTVAL(A6),(sp) 4202 jsr _xgetran4202 jsr xgetran 4203 4203 move D0,TSRCVAL(A6) 4204 4204 … … 4226 4226 move D0,A0 4227 4227 add.l A0,A0 4228 add.l # _ptoftab,A04228 add.l #ptoftab,A0 4229 4229 move (A0),TSRCVAL(A6) 4230 4230 … … 4238 4238 F07L120: move TRG(A6),A0 4239 4239 add.l A0,A0 4240 add.l # _veltab,A04240 add.l #veltab,A0 4241 4241 move (A0),TSRCVAL(A6) 4242 4242 … … 4250 4250 F07L121: move TRG(A6),A0 4251 4251 add.l A0,A0 4252 add.l # _prstab,A04252 add.l #prstab,A0 4253 4253 move (A0),TSRCVAL(A6) 4254 4254 … … 4298 4298 F07L139: move.l PT(A6),A0 4299 4299 move 4(A0),(sp) 4300 jsr _xgetran4300 jsr xgetran 4301 4301 ext.l D0 4302 4302 move.l D0,LTMP(A6) … … 4326 4326 move D0,A0 4327 4327 add.l A0,A0 4328 move.l # _ptoftab,A14328 move.l #ptoftab,A1 4329 4329 move 0(A0,A1.l),D0 4330 4330 ext.l D0 … … 4340 4340 F07L142: move TRG(A6),A0 4341 4341 add.l A0,A0 4342 move.l # _veltab,A14342 move.l #veltab,A1 4343 4343 move 0(A0,A1.l),D0 4344 4344 ext.l D0 … … 4356 4356 F07L143: move TRG(A6),A0 4357 4357 add.l A0,A0 4358 move.l # _prstab,A14358 move.l #prstab,A1 4359 4359 move 0(A0,A1.l),D0 4360 4360 ext.l D0 … … 4379 4379 add.l D1,D0 4380 4380 move.l D0,A0 4381 move.l # _valents,A14381 move.l #valents,A1 4382 4382 clr.l D0 4383 4383 move 8(A0,A1.l),D0 … … 4446 4446 move.w D0,D2 4447 4447 andi.w #0xFFF0,D0 4448 move.w _timemlt,D14448 move.w timemlt,D1 4449 4449 muls D1,D0 4450 4450 move.l #15,D1 … … 4457 4457 move D2,A0 4458 4458 add.l A0,A0 4459 add.l # _expbit,A04459 add.l #expbit,A0 4460 4460 move (A0),R_FPEXP 4461 4461 … … 4599 4599 ext.l D0 4600 4600 move.l D0,A_FPU 4601 add.l # _io_fpu+0x4000,A_FPU4601 add.l #io_fpu+0x4000,A_FPU 4602 4602 4603 4603 | fp = &ip->idhfnc[8]; … … 4636 4636 lsl.l #2,D0 4637 4637 add.l D1,D0 4638 add.l # _valents,D04638 add.l #valents,D0 4639 4639 move.l D0,VEP(A6) 4640 4640 … … 4644 4644 add.l A0,A0 4645 4645 add.l A0,A0 4646 add.l # _vpsms,A04646 add.l #vpsms,A0 4647 4647 move.l (A0),A_SMP 4648 4648 … … 4725 4725 4726 4726 F08L117: move MLTVAL(A6),(sp) 4727 jsr _xgetran4727 jsr xgetran 4728 4728 move D0,TSRCVAL(A6) 4729 4729 … … 4751 4751 move D0,A0 4752 4752 add.l A0,A0 4753 add.l # _ptoftab,A04753 add.l #ptoftab,A0 4754 4754 move (A0),TSRCVAL(A6) 4755 4755 … … 4763 4763 F08L120: move TRG(A6),A0 4764 4764 add.l A0,A0 4765 add.l # _veltab,A04765 add.l #veltab,A0 4766 4766 move (A0),TSRCVAL(A6) 4767 4767 … … 4775 4775 F08L121: move TRG(A6),A0 4776 4776 add.l A0,A0 4777 add.l # _prstab,A04777 add.l #prstab,A0 4778 4778 move (A0),TSRCVAL(A6) 4779 4779 … … 4823 4823 F08L139: move.l PT(A6),A0 4824 4824 move 4(A0),(sp) 4825 jsr _xgetran4825 jsr xgetran 4826 4826 ext.l D0 4827 4827 move.l D0,LTMP(A6) … … 4851 4851 move D0,A0 4852 4852 add.l A0,A0 4853 move.l # _ptoftab,A14853 move.l #ptoftab,A1 4854 4854 move 0(A0,A1.l),D0 4855 4855 ext.l D0 … … 4865 4865 F08L142: move TRG(A6),A0 4866 4866 add.l A0,A0 4867 move.l # _veltab,A14867 move.l #veltab,A1 4868 4868 move 0(A0,A1.l),D0 4869 4869 ext.l D0 … … 4881 4881 F08L143: move TRG(A6),A0 4882 4882 add.l A0,A0 4883 move.l # _prstab,A14883 move.l #prstab,A1 4884 4884 move 0(A0,A1.l),D0 4885 4885 ext.l D0 … … 4904 4904 add.l D1,D0 4905 4905 move.l D0,A0 4906 move.l # _valents,A14906 move.l #valents,A1 4907 4907 clr.l D0 4908 4908 move 8(A0,A1.l),D0 … … 4971 4971 move.w D0,D2 4972 4972 andi.w #0xFFF0,D0 4973 move.w _timemlt,D14973 move.w timemlt,D1 4974 4974 muls D1,D0 4975 4975 move.l #15,D1 … … 4982 4982 move D2,A0 4983 4983 add.l A0,A0 4984 add.l # _expbit,A04984 add.l #expbit,A0 4985 4985 move (A0),R_FPEXP 4986 4986 … … 5124 5124 ext.l D0 5125 5125 move.l D0,A_FPU 5126 add.l # _io_fpu+0x4000,A_FPU5126 add.l #io_fpu+0x4000,A_FPU 5127 5127 5128 5128 | fp = &ip->idhfnc[9]; … … 5161 5161 lsl.l #2,D0 5162 5162 add.l D1,D0 5163 add.l # _valents,D05163 add.l #valents,D0 5164 5164 move.l D0,VEP(A6) 5165 5165 … … 5169 5169 add.l A0,A0 5170 5170 add.l A0,A0 5171 add.l # _vpsms,A05171 add.l #vpsms,A0 5172 5172 move.l (A0),A_SMP 5173 5173 … … 5250 5250 5251 5251 F09L117: move MLTVAL(A6),(sp) 5252 jsr _xgetran5252 jsr xgetran 5253 5253 move D0,TSRCVAL(A6) 5254 5254 … … 5276 5276 move D0,A0 5277 5277 add.l A0,A0 5278 add.l # _ptoftab,A05278 add.l #ptoftab,A0 5279 5279 move (A0),TSRCVAL(A6) 5280 5280 … … 5288 5288 F09L120: move TRG(A6),A0 5289 5289 add.l A0,A0 5290 add.l # _veltab,A05290 add.l #veltab,A0 5291 5291 move (A0),TSRCVAL(A6) 5292 5292 … … 5300 5300 F09L121: move TRG(A6),A0 5301 5301 add.l A0,A0 5302 add.l # _prstab,A05302 add.l #prstab,A0 5303 5303 move (A0),TSRCVAL(A6) 5304 5304 … … 5348 5348 F09L139: move.l PT(A6),A0 5349 5349 move 4(A0),(sp) 5350 jsr _xgetran5350 jsr xgetran 5351 5351 ext.l D0 5352 5352 move.l D0,LTMP(A6) … … 5376 5376 move D0,A0 5377 5377 add.l A0,A0 5378 move.l # _ptoftab,A15378 move.l #ptoftab,A1 5379 5379 move 0(A0,A1.l),D0 5380 5380 ext.l D0 … … 5390 5390 F09L142: move TRG(A6),A0 5391 5391 add.l A0,A0 5392 move.l # _veltab,A15392 move.l #veltab,A1 5393 5393 move 0(A0,A1.l),D0 5394 5394 ext.l D0 … … 5406 5406 F09L143: move TRG(A6),A0 5407 5407 add.l A0,A0 5408 move.l # _prstab,A15408 move.l #prstab,A1 5409 5409 move 0(A0,A1.l),D0 5410 5410 ext.l D0 … … 5429 5429 add.l D1,D0 5430 5430 move.l D0,A0 5431 move.l # _valents,A15431 move.l #valents,A1 5432 5432 clr.l D0 5433 5433 move 8(A0,A1.l),D0 … … 5496 5496 move.w D0,D2 5497 5497 andi.w #0xFFF0,D0 5498 move.w _timemlt,D15498 move.w timemlt,D1 5499 5499 muls D1,D0 5500 5500 move.l #15,D1 … … 5507 5507 move D2,A0 5508 5508 add.l A0,A0 5509 add.l # _expbit,A05509 add.l #expbit,A0 5510 5510 move (A0),R_FPEXP 5511 5511 … … 5649 5649 ext.l D0 5650 5650 move.l D0,A_FPU 5651 add.l # _io_fpu+0x4000,A_FPU5651 add.l #io_fpu+0x4000,A_FPU 5652 5652 5653 5653 | fp = &ip->idhfnc[10]; … … 5686 5686 lsl.l #2,D0 5687 5687 add.l D1,D0 5688 add.l # _valents,D05688 add.l #valents,D0 5689 5689 move.l D0,VEP(A6) 5690 5690 … … 5694 5694 add.l A0,A0 5695 5695 add.l A0,A0 5696 add.l # _vpsms,A05696 add.l #vpsms,A0 5697 5697 move.l (A0),A_SMP 5698 5698 … … 5775 5775 5776 5776 F10L117: move MLTVAL(A6),(sp) 5777 jsr _xgetran5777 jsr xgetran 5778 5778 move D0,TSRCVAL(A6) 5779 5779 … … 5801 5801 move D0,A0 5802 5802 add.l A0,A0 5803 add.l # _ptoftab,A05803 add.l #ptoftab,A0 5804 5804 move (A0),TSRCVAL(A6) 5805 5805 … … 5813 5813 F10L120: move TRG(A6),A0 5814 5814 add.l A0,A0 5815 add.l # _veltab,A05815 add.l #veltab,A0 5816 5816 move (A0),TSRCVAL(A6) 5817 5817 … … 5825 5825 F10L121: move TRG(A6),A0 5826 5826 add.l A0,A0 5827 add.l # _prstab,A05827 add.l #prstab,A0 5828 5828 move (A0),TSRCVAL(A6) 5829 5829 … … 5873 5873 F10L139: move.l PT(A6),A0 5874 5874 move 4(A0),(sp) 5875 jsr _xgetran5875 jsr xgetran 5876 5876 ext.l D0 5877 5877 move.l D0,LTMP(A6) … … 5901 5901 move D0,A0 5902 5902 add.l A0,A0 5903 move.l # _ptoftab,A15903 move.l #ptoftab,A1 5904 5904 move 0(A0,A1.l),D0 5905 5905 ext.l D0 … … 5915 5915 F10L142: move TRG(A6),A0 5916 5916 add.l A0,A0 5917 move.l # _veltab,A15917 move.l #veltab,A1 5918 5918 move 0(A0,A1.l),D0 5919 5919 ext.l D0 … … 5931 5931 F10L143: move TRG(A6),A0 5932 5932 add.l A0,A0 5933 move.l # _prstab,A15933 move.l #prstab,A1 5934 5934 move 0(A0,A1.l),D0 5935 5935 ext.l D0 … … 5954 5954 add.l D1,D0 5955 5955 move.l D0,A0 5956 move.l # _valents,A15956 move.l #valents,A1 5957 5957 clr.l D0 5958 5958 move 8(A0,A1.l),D0 … … 6021 6021 move.w D0,D2 6022 6022 andi.w #0xFFF0,D0 6023 move.w _timemlt,D16023 move.w timemlt,D1 6024 6024 muls D1,D0 6025 6025 move.l #15,D1 … … 6032 6032 move D2,A0 6033 6033 add.l A0,A0 6034 add.l # _expbit,A06034 add.l #expbit,A0 6035 6035 move (A0),R_FPEXP 6036 6036 … … 6174 6174 ext.l D0 6175 6175 move.l D0,A_FPU 6176 add.l # _io_fpu+0x4000,A_FPU6176 add.l #io_fpu+0x4000,A_FPU 6177 6177 6178 6178 | fp = &ip->idhfnc[11]; … … 6211 6211 lsl.l #2,D0 6212 6212 add.l D1,D0 6213 add.l # _valents,D06213 add.l #valents,D0 6214 6214 move.l D0,VEP(A6) 6215 6215 … … 6219 6219 add.l A0,A0 6220 6220 add.l A0,A0 6221 add.l # _vpsms,A06221 add.l #vpsms,A0 6222 6222 move.l (A0),A_SMP 6223 6223 … … 6300 6300 6301 6301 F11L117: move MLTVAL(A6),(sp) 6302 jsr _xgetran6302 jsr xgetran 6303 6303 move D0,TSRCVAL(A6) 6304 6304 … … 6326 6326 move D0,A0 6327 6327 add.l A0,A0 6328 add.l # _ptoftab,A06328 add.l #ptoftab,A0 6329 6329 move (A0),TSRCVAL(A6) 6330 6330 … … 6338 6338 F11L120: move TRG(A6),A0 6339 6339 add.l A0,A0 6340 add.l # _veltab,A06340 add.l #veltab,A0 6341 6341 move (A0),TSRCVAL(A6) 6342 6342 … … 6350 6350 F11L121: move TRG(A6),A0 6351 6351 add.l A0,A0 6352 add.l # _prstab,A06352 add.l #prstab,A0 6353 6353 move (A0),TSRCVAL(A6) 6354 6354 … … 6398 6398 F11L139: move.l PT(A6),A0 6399 6399 move 4(A0),(sp) 6400 jsr _xgetran6400 jsr xgetran 6401 6401 ext.l D0 6402 6402 move.l D0,LTMP(A6) … … 6426 6426 move D0,A0 6427 6427 add.l A0,A0 6428 move.l # _ptoftab,A16428 move.l #ptoftab,A1 6429 6429 move 0(A0,A1.l),D0 6430 6430 ext.l D0 … … 6440 6440 F11L142: move TRG(A6),A0 6441 6441 add.l A0,A0 6442 move.l # _veltab,A16442 move.l #veltab,A1 6443 6443 move 0(A0,A1.l),D0 6444 6444 ext.l D0 … … 6456 6456 F11L143: move TRG(A6),A0 6457 6457 add.l A0,A0 6458 move.l # _prstab,A16458 move.l #prstab,A1 6459 6459 move 0(A0,A1.l),D0 6460 6460 ext.l D0 … … 6479 6479 add.l D1,D0 6480 6480 move.l D0,A0 6481 move.l # _valents,A16481 move.l #valents,A1 6482 6482 clr.l D0 6483 6483 move 8(A0,A1.l),D0 … … 6546 6546 move.w D0,D2 6547 6547 andi.w #0xFFF0,D0 6548 move.w _timemlt,D16548 move.w timemlt,D1 6549 6549 muls D1,D0 6550 6550 move.l #15,D1 … … 6557 6557 move D2,A0 6558 6558 add.l A0,A0 6559 add.l # _expbit,A06559 add.l #expbit,A0 6560 6560 move (A0),R_FPEXP 6561 6561 … … 6699 6699 ext.l D0 6700 6700 move.l D0,A_FPU 6701 add.l # _io_fpu+0x4000,A_FPU6701 add.l #io_fpu+0x4000,A_FPU 6702 6702 6703 6703 | fp = &ip->idhfnc[12]; … … 6736 6736 lsl.l #2,D0 6737 6737 add.l D1,D0 6738 add.l # _valents,D06738 add.l #valents,D0 6739 6739 move.l D0,VEP(A6) 6740 6740 … … 6744 6744 add.l A0,A0 6745 6745 add.l A0,A0 6746 add.l # _vpsms,A06746 add.l #vpsms,A0 6747 6747 move.l (A0),A_SMP 6748 6748 … … 6825 6825 6826 6826 F12L117: move MLTVAL(A6),(sp) 6827 jsr _xgetran6827 jsr xgetran 6828 6828 move D0,TSRCVAL(A6) 6829 6829 … … 6851 6851 move D0,A0 6852 6852 add.l A0,A0 6853 add.l # _ptoftab,A06853 add.l #ptoftab,A0 6854 6854 move (A0),TSRCVAL(A6) 6855 6855 … … 6863 6863 F12L120: move TRG(A6),A0 6864 6864 add.l A0,A0 6865 add.l # _veltab,A06865 add.l #veltab,A0 6866 6866 move (A0),TSRCVAL(A6) 6867 6867 … … 6875 6875 F12L121: move TRG(A6),A0 6876 6876 add.l A0,A0 6877 add.l # _prstab,A06877 add.l #prstab,A0 6878 6878 move (A0),TSRCVAL(A6) 6879 6879 … … 6923 6923 F12L139: move.l PT(A6),A0 6924 6924 move 4(A0),(sp) 6925 jsr _xgetran6925 jsr xgetran 6926 6926 ext.l D0 6927 6927 move.l D0,LTMP(A6) … … 6951 6951 move D0,A0 6952 6952 add.l A0,A0 6953 move.l # _ptoftab,A16953 move.l #ptoftab,A1 6954 6954 move 0(A0,A1.l),D0 6955 6955 ext.l D0 … … 6965 6965 F12L142: move TRG(A6),A0 6966 6966 add.l A0,A0 6967 move.l # _veltab,A16967 move.l #veltab,A1 6968 6968 move 0(A0,A1.l),D0 6969 6969 ext.l D0 … … 6981 6981 F12L143: move TRG(A6),A0 6982 6982 add.l A0,A0 6983 move.l # _prstab,A16983 move.l #prstab,A1 6984 6984 move 0(A0,A1.l),D0 6985 6985 ext.l D0 … … 7004 7004 add.l D1,D0 7005 7005 move.l D0,A0 7006 move.l # _valents,A17006 move.l #valents,A1 7007 7007 clr.l D0 7008 7008 move 8(A0,A1.l),D0 … … 7071 7071 move.w D0,D2 7072 7072 andi.w #0xFFF0,D0 7073 move.w _timemlt,D17073 move.w timemlt,D1 7074 7074 muls D1,D0 7075 7075 move.l #15,D1 … … 7082 7082 move D2,A0 7083 7083 add.l A0,A0 7084 add.l # _expbit,A07084 add.l #expbit,A0 7085 7085 move (A0),R_FPEXP 7086 7086 … … 7518 7518 | vbtab -- vbuf pointer table -- indexed by voice number 7519 7519 | ----- --------------------------------------------- 7520 vbtab: .dc.l _vbufs7521 .dc.l _vbufs+VBLEN7522 .dc.l _vbufs+(2*VBLEN)7523 .dc.l _vbufs+(3*VBLEN)7524 .dc.l _vbufs+(4*VBLEN)7525 .dc.l _vbufs+(5*VBLEN)7526 .dc.l _vbufs+(6*VBLEN)7527 .dc.l _vbufs+(7*VBLEN)7528 .dc.l _vbufs+(8*VBLEN)7529 .dc.l _vbufs+(9*VBLEN)7530 .dc.l _vbufs+(10*VBLEN)7531 .dc.l _vbufs+(11*VBLEN)7520 vbtab: .dc.l vbufs 7521 .dc.l vbufs+VBLEN 7522 .dc.l vbufs+(2*VBLEN) 7523 .dc.l vbufs+(3*VBLEN) 7524 .dc.l vbufs+(4*VBLEN) 7525 .dc.l vbufs+(5*VBLEN) 7526 .dc.l vbufs+(6*VBLEN) 7527 .dc.l vbufs+(7*VBLEN) 7528 .dc.l vbufs+(8*VBLEN) 7529 .dc.l vbufs+(9*VBLEN) 7530 .dc.l vbufs+(10*VBLEN) 7531 .dc.l vbufs+(11*VBLEN) 7532 7532 7533 7533 .end
Note:
See TracChangeset
for help on using the changeset viewer.