Index: ram/execins.s =================================================================== --- ram/execins.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/execins.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -10,14 +10,14 @@ DOUBLED = 1 | double output to WS table - .xdef _execins - - .xref _clrvce - .xref _execkey - - .xref _io_fpu - .xref _instmod - .xref _s_inst - .xref _idefs - .xref _vbufs + .xdef execins + + .xref clrvce + .xref execkey + + .xref io_fpu + .xref instmod + .xref s_inst + .xref idefs + .xref vbufs | register equates @@ -42,5 +42,5 @@ .page -_execins: link A6,#0 | link stack frames +execins: link A6,#0 | link stack frames movem.l D3-VCE/P2-IP,-(sp) | preserve registers move.w VOICE(A6),VCE | get voice number @@ -50,7 +50,7 @@ lea vibtabl,A0 | ... movea.l 0(A0,D0.W),IP | ... - add.l #_vbufs,IP | ... + add.l #vbufs,IP | ... move.w VCE,(sp) | clrvce(vce) - jsr _clrvce | ... + jsr clrvce | ... tst.w TAG(A6) | if (tag) { beq L2 | ... @@ -62,5 +62,5 @@ lea vibtabl,A0 | ... movea.l 0(A0,D0.W),P2 | ... - add.l #_idefs,P2 | ... + add.l #idefs,P2 | ... move.w #1968,D0 | set move count @@ -77,8 +77,8 @@ move.l D0,P1 | ... move.l D0,P3 | ... - add.l #_io_fpu,P1 | point P1 at FPU WS A + add.l #io_fpu,P1 | point P1 at FPU WS A add.l #0x202,P1 | ... lea 1778(IP),P2 | point P2 at instdef WS A - add.l #_io_fpu,P3 | point P3 at FPU WS B + add.l #io_fpu,P3 | point P3 at FPU WS B add.l #2,P3 | ... lea 2858(IP),P4 | point P4 at instdef WS B @@ -129,9 +129,9 @@ move.w VCE,A0 | instmod[vce] = FALSE add.l A0,A0 | ... - add.l #_instmod,A0 | ... + add.l #instmod,A0 | ... clr.w (A0) | ... move.w VCE,A0 | s_inst[vce] = ins add.l A0,A0 | ... - add.l #_s_inst,A0 | ... + add.l #s_inst,A0 | ... move.w INS(A6),(A0) | ... move.b 70(IP),SYNC | get config bits @@ -155,5 +155,5 @@ L17: move.w VCE,A0 | send sync to FPU add.l A0,A0 | ... - add.l #_io_fpu,A0 | ... + add.l #io_fpu,A0 | ... add.l #0x5FE0,A0 | ... move.w SYNC,(A0) | ... @@ -163,5 +163,5 @@ clr.w -(sp) | ... move.w #-1,-(sp) | ... - jsr _execkey | ... + jsr execkey | ... addq.l #6,sp | ... tst.l (sp)+ | clean up stack Index: ram/execkey.s =================================================================== --- ram/execkey.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/execkey.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -9,21 +9,21 @@ LOC_SUB = 1 - .xdef _execkey - - .xref _xgetran - - .xref _rsntab - .xref _expbit - .xref _io_fpu - .xref _legato - .xref _prstab - .xref _ptoftab - .xref _timemlt - .xref _valents - .xref _vbufs - .xref _vce2grp - .xref _vce2trg - .xref _veltab - .xref _vpsms + .xdef execkey + + .xref xgetran + + .xref rsntab + .xref expbit + .xref io_fpu + .xref legato + .xref prstab + .xref ptoftab + .xref timemlt + .xref valents + .xref vbufs + .xref vce2grp + .xref vce2trg + .xref veltab + .xref vpsms .page @@ -81,5 +81,5 @@ | { -_execkey: link A6,#LASTLOCL +execkey: link A6,#LASTLOCL movem.l D2-R_FPMANT/A_SMP-A_FP,-(sp) @@ -94,5 +94,5 @@ lsr.w #1,D0 - lea _vce2trg,A0 + lea vce2trg,A0 move.w TRG(A6),0(A0,D0.W) @@ -101,5 +101,5 @@ move.w VCE(A6),A0 add.l A0,A0 - move.l #_vce2grp,A1 + move.l #vce2grp,A1 clr.l D0 move.w 0(A0,A1.l),D0 @@ -136,5 +136,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[0]; @@ -172,5 +172,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -180,5 +180,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -261,5 +261,5 @@ F00L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -287,5 +287,5 @@ move.w D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move.w (A0),TSRCVAL(A6) @@ -299,5 +299,5 @@ F00L120: move.w TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move.w (A0),TSRCVAL(A6) @@ -311,5 +311,5 @@ F00L121: move.w TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move.w (A0),TSRCVAL(A6) @@ -369,5 +369,5 @@ F00L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -397,5 +397,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -411,5 +411,5 @@ F00L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -427,5 +427,5 @@ F00L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -450,5 +450,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -517,5 +517,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -528,5 +528,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -700,8 +700,8 @@ | return; | } -FN01: tst.w _legato +FN01: tst.w legato beq FN01AA - clr.w _legato + clr.w legato bra FNEXIT @@ -729,5 +729,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[1]; @@ -766,5 +766,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -774,5 +774,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -855,5 +855,5 @@ F01L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -881,5 +881,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -893,5 +893,5 @@ F01L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -905,5 +905,5 @@ F01L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -963,5 +963,5 @@ F01L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -991,5 +991,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -1005,5 +1005,5 @@ F01L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -1021,5 +1021,5 @@ F01L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -1044,5 +1044,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -1111,5 +1111,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -1122,5 +1122,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -1278,5 +1278,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[2]; @@ -1315,5 +1315,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -1323,5 +1323,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -1404,5 +1404,5 @@ F02L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -1430,5 +1430,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -1442,5 +1442,5 @@ F02L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -1454,5 +1454,5 @@ F02L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -1512,5 +1512,5 @@ F02L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -1540,5 +1540,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -1554,5 +1554,5 @@ F02L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -1570,5 +1570,5 @@ F02L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -1593,5 +1593,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -1660,5 +1660,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -1671,5 +1671,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -1827,5 +1827,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[3]; @@ -1864,5 +1864,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -1872,5 +1872,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -1953,5 +1953,5 @@ F03L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -1979,5 +1979,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -1991,5 +1991,5 @@ F03L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -2003,5 +2003,5 @@ F03L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -2061,5 +2061,5 @@ F03L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -2089,5 +2089,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -2103,5 +2103,5 @@ F03L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -2119,5 +2119,5 @@ F03L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -2142,5 +2142,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -2209,5 +2209,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -2220,5 +2220,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -2376,5 +2376,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[4]; @@ -2390,5 +2390,5 @@ | output resonance via table lookup with FPU interrupts off - lea _rsntab,A0 + lea rsntab,A0 clr.w D0 move.b 9(A_FP),D0 @@ -2401,5 +2401,5 @@ ext.l D0 move.l D0,A0 - add.l #_io_fpu+0x4000,A0 + add.l #io_fpu+0x4000,A0 move.w sr,OLDI(A6) move.w #FPU_DI,sr @@ -2440,5 +2440,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -2448,5 +2448,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -2529,5 +2529,5 @@ F04L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -2555,5 +2555,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -2567,5 +2567,5 @@ F04L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -2579,5 +2579,5 @@ F04L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -2656,5 +2656,5 @@ F04L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -2684,5 +2684,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -2698,5 +2698,5 @@ F04L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -2714,5 +2714,5 @@ F04L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -2737,5 +2737,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -2804,5 +2804,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -2815,5 +2815,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -2990,5 +2990,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[5]; @@ -3027,5 +3027,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -3035,5 +3035,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -3116,5 +3116,5 @@ F05L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -3142,5 +3142,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -3154,5 +3154,5 @@ F05L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -3166,5 +3166,5 @@ F05L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -3214,5 +3214,5 @@ F05L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -3242,5 +3242,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -3256,5 +3256,5 @@ F05L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -3272,5 +3272,5 @@ F05L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -3295,5 +3295,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -3362,5 +3362,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -3373,5 +3373,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -3549,5 +3549,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[6]; @@ -3586,5 +3586,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -3594,5 +3594,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -3675,5 +3675,5 @@ F06L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -3701,5 +3701,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -3713,5 +3713,5 @@ F06L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -3725,5 +3725,5 @@ F06L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -3773,5 +3773,5 @@ F06L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -3801,5 +3801,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -3815,5 +3815,5 @@ F06L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -3831,5 +3831,5 @@ F06L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -3854,5 +3854,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -3921,5 +3921,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -3932,5 +3932,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -4074,5 +4074,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[7]; @@ -4111,5 +4111,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -4119,5 +4119,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -4200,5 +4200,5 @@ F07L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -4226,5 +4226,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -4238,5 +4238,5 @@ F07L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -4250,5 +4250,5 @@ F07L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -4298,5 +4298,5 @@ F07L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -4326,5 +4326,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -4340,5 +4340,5 @@ F07L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -4356,5 +4356,5 @@ F07L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -4379,5 +4379,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -4446,5 +4446,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -4457,5 +4457,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -4599,5 +4599,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[8]; @@ -4636,5 +4636,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -4644,5 +4644,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -4725,5 +4725,5 @@ F08L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -4751,5 +4751,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -4763,5 +4763,5 @@ F08L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -4775,5 +4775,5 @@ F08L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -4823,5 +4823,5 @@ F08L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -4851,5 +4851,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -4865,5 +4865,5 @@ F08L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -4881,5 +4881,5 @@ F08L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -4904,5 +4904,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -4971,5 +4971,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -4982,5 +4982,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -5124,5 +5124,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[9]; @@ -5161,5 +5161,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -5169,5 +5169,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -5250,5 +5250,5 @@ F09L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -5276,5 +5276,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -5288,5 +5288,5 @@ F09L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -5300,5 +5300,5 @@ F09L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -5348,5 +5348,5 @@ F09L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -5376,5 +5376,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -5390,5 +5390,5 @@ F09L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -5406,5 +5406,5 @@ F09L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -5429,5 +5429,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -5496,5 +5496,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -5507,5 +5507,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -5649,5 +5649,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[10]; @@ -5686,5 +5686,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -5694,5 +5694,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -5775,5 +5775,5 @@ F10L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -5801,5 +5801,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -5813,5 +5813,5 @@ F10L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -5825,5 +5825,5 @@ F10L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -5873,5 +5873,5 @@ F10L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -5901,5 +5901,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -5915,5 +5915,5 @@ F10L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -5931,5 +5931,5 @@ F10L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -5954,5 +5954,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -6021,5 +6021,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -6032,5 +6032,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -6174,5 +6174,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[11]; @@ -6211,5 +6211,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -6219,5 +6219,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -6300,5 +6300,5 @@ F11L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -6326,5 +6326,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -6338,5 +6338,5 @@ F11L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -6350,5 +6350,5 @@ F11L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -6398,5 +6398,5 @@ F11L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -6426,5 +6426,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -6440,5 +6440,5 @@ F11L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -6456,5 +6456,5 @@ F11L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -6479,5 +6479,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -6546,5 +6546,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -6557,5 +6557,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -6699,5 +6699,5 @@ ext.l D0 move.l D0,A_FPU - add.l #_io_fpu+0x4000,A_FPU + add.l #io_fpu+0x4000,A_FPU | fp = &ip->idhfnc[12]; @@ -6736,5 +6736,5 @@ lsl.l #2,D0 add.l D1,D0 - add.l #_valents,D0 + add.l #valents,D0 move.l D0,VEP(A6) @@ -6744,5 +6744,5 @@ add.l A0,A0 add.l A0,A0 - add.l #_vpsms,A0 + add.l #vpsms,A0 move.l (A0),A_SMP @@ -6825,5 +6825,5 @@ F12L117: move MLTVAL(A6),(sp) - jsr _xgetran + jsr xgetran move D0,TSRCVAL(A6) @@ -6851,5 +6851,5 @@ move D0,A0 add.l A0,A0 - add.l #_ptoftab,A0 + add.l #ptoftab,A0 move (A0),TSRCVAL(A6) @@ -6863,5 +6863,5 @@ F12L120: move TRG(A6),A0 add.l A0,A0 - add.l #_veltab,A0 + add.l #veltab,A0 move (A0),TSRCVAL(A6) @@ -6875,5 +6875,5 @@ F12L121: move TRG(A6),A0 add.l A0,A0 - add.l #_prstab,A0 + add.l #prstab,A0 move (A0),TSRCVAL(A6) @@ -6923,5 +6923,5 @@ F12L139: move.l PT(A6),A0 move 4(A0),(sp) - jsr _xgetran + jsr xgetran ext.l D0 move.l D0,LTMP(A6) @@ -6951,5 +6951,5 @@ move D0,A0 add.l A0,A0 - move.l #_ptoftab,A1 + move.l #ptoftab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -6965,5 +6965,5 @@ F12L142: move TRG(A6),A0 add.l A0,A0 - move.l #_veltab,A1 + move.l #veltab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -6981,5 +6981,5 @@ F12L143: move TRG(A6),A0 add.l A0,A0 - move.l #_prstab,A1 + move.l #prstab,A1 move 0(A0,A1.l),D0 ext.l D0 @@ -7004,5 +7004,5 @@ add.l D1,D0 move.l D0,A0 - move.l #_valents,A1 + move.l #valents,A1 clr.l D0 move 8(A0,A1.l),D0 @@ -7071,5 +7071,5 @@ move.w D0,D2 andi.w #0xFFF0,D0 - move.w _timemlt,D1 + move.w timemlt,D1 muls D1,D0 move.l #15,D1 @@ -7082,5 +7082,5 @@ move D2,A0 add.l A0,A0 - add.l #_expbit,A0 + add.l #expbit,A0 move (A0),R_FPEXP @@ -7518,16 +7518,16 @@ | vbtab -- vbuf pointer table -- indexed by voice number | ----- --------------------------------------------- -vbtab: .dc.l _vbufs - .dc.l _vbufs+VBLEN - .dc.l _vbufs+(2*VBLEN) - .dc.l _vbufs+(3*VBLEN) - .dc.l _vbufs+(4*VBLEN) - .dc.l _vbufs+(5*VBLEN) - .dc.l _vbufs+(6*VBLEN) - .dc.l _vbufs+(7*VBLEN) - .dc.l _vbufs+(8*VBLEN) - .dc.l _vbufs+(9*VBLEN) - .dc.l _vbufs+(10*VBLEN) - .dc.l _vbufs+(11*VBLEN) +vbtab: .dc.l vbufs + .dc.l vbufs+VBLEN + .dc.l vbufs+(2*VBLEN) + .dc.l vbufs+(3*VBLEN) + .dc.l vbufs+(4*VBLEN) + .dc.l vbufs+(5*VBLEN) + .dc.l vbufs+(6*VBLEN) + .dc.l vbufs+(7*VBLEN) + .dc.l vbufs+(8*VBLEN) + .dc.l vbufs+(9*VBLEN) + .dc.l vbufs+(10*VBLEN) + .dc.l vbufs+(11*VBLEN) .end Index: ram/fpuint.s =================================================================== --- ram/fpuint.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/fpuint.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -5,32 +5,32 @@ .text - .xdef _fpuint | process an FPU interrupt - .xdef _fpuclr | reset the FPU - .xdef _clrvce | quiet a voice - - .xdef _fputrap | a very good debug trap point - - .xdef _fp_resv | 'spare' function reset value table - .xdef _fpuifnc | FPU interrupt code (voice / function) - - .xref _irand | ranged random number function - .xref _scope | diagnostic scope function - .xref _xgetran | random number function - - .xref _expbit - .xref _funcndx - .xref _initcfg - .xref _ndisp - .xref _pflist - .xref _pfqhdr - .xref _prstab - .xref _ptoftab - .xref _scopef - .xref _timemlt - .xref _trgtab - .xref _valents - .xref _vce2grp - .xref _vce2trg - .xref _veltab + .xdef fpuint | process an FPU interrupt + .xdef fpuclr | reset the FPU + .xdef clrvce | quiet a voice + + .xdef fputrap | a very good debug trap point + + .xdef fp_resv | 'spare' function reset value table + .xdef fpuifnc | FPU interrupt code (voice / function) + + .xref irand | ranged random number function + .xref scope | diagnostic scope function + .xref xgetran | random number function + + .xref expbit + .xref funcndx + .xref initcfg + .xref ndisp + .xref pflist + .xref pfqhdr + .xref prstab + .xref ptoftab + .xref scopef + .xref timemlt + .xref trgtab + .xref valents + .xref vce2grp + .xref vce2trg + .xref veltab .page @@ -194,5 +194,5 @@ .page | ------------------------------------------------------------------------------ -| _fpuint() -- process FPU interrupts +| fpuint() -- process FPU interrupts | void @@ -204,20 +204,20 @@ | ------------------------------------------------------------------------------ -_fpuint: movem.l d0-d5/a0-a3,-(a7) | preserve registers we use +fpuint: movem.l d0-d5/a0-a3,-(a7) | preserve registers we use move.w FPUINT1,d0 | read FPU interrupt status andi.w #0x00FF,d0 | mask out garbage in MS bits - move.w d0,_fpuifnc | save for later use - move.w _ndisp,d1 | get display number + move.w d0,fpuifnc | save for later use + move.w ndisp,d1 | get display number cmpi.w #11,d1 | see if we display bne nodisp | jump if not - tst.w _scopef | ... + tst.w scopef | ... beq nodisp | ... move.w d0,-(a7) | display value - jsr _scope | ... + jsr scope | ... tst.w (a7)+ | ... - move.w _fpuifnc,d0 | get FPU status + move.w fpuifnc,d0 | get FPU status nodisp: move.w d0,d1 | save in d1 (becomes function offset) @@ -227,5 +227,5 @@ lsl.w #3,d0 | develop funcndx[] index - lea _funcndx,a0 | setup funcndx[] base address + lea funcndx,a0 | setup funcndx[] base address tst.l 0(a0,d0.W) | see if function is defined @@ -299,5 +299,5 @@ | ------------------------------------------------------------------------------ -_fputrap: jmp (a0) | dispatch to action handler +fputrap: jmp (a0) | dispatch to action handler .page @@ -320,5 +320,5 @@ move.w d3,d0 | extract mantissa andi.w #MSK_MNT,d0 | ... - mulu _timemlt,d0 | multiply by panel time pot value + mulu timemlt,d0 | multiply by panel time pot value lsr.l #8,d0 | ... and scale it lsr.l #7,d0 | ... @@ -326,5 +326,5 @@ andi.w #MSK_EXP,d3 | extract exponent code add.w d3,d3 | look up decoded exponent - lea _expbit,a0 | ... in expbit + lea expbit,a0 | ... in expbit move.w 0(a0,d3.W),F_EXP(a3,d1.W) | send exponent to FPU move.w PT_VAL(a2,d2.W),d3 | get the function value @@ -348,5 +348,5 @@ movem.l d1-d2/a0-a2,-(a7) | preserve registers around call move.w PT_VMLT(a2,d2.W),-(a7) | pass multiplier to xgetran() - jsr _xgetran | call for a random number + jsr xgetran | call for a random number tst.w (a7)+ | clean up stack movem.l (a7)+,d1-d2/a0-a2 | restore registers @@ -364,5 +364,5 @@ lsr.w #6,d0 | shift to a word index andi.w #0x01FE,d0 | mask out extraneous bits - lea _ptoftab,a0 | get entry from ptoftab[] + lea ptoftab,a0 | get entry from ptoftab[] move.w 0(a0,d0.W),d5 | ... bra applym | go apply the multiplier @@ -385,5 +385,5 @@ move.w FH_TRG(a1),d0 | get the trigger number add.w d0,d0 | ... as a word index - lea _veltab,a0 | ... into veltab[] + lea veltab,a0 | ... into veltab[] move.w 0(a0,d0.W),d5 | get the velocity from veltab[trg] bra applym | go apply the multiplier @@ -397,5 +397,5 @@ move.w FH_TRG(a1),d0 | get the trigger number add.w d0,d0 | ... as a word index - lea _prstab,a0 | ... into prstab[] + lea prstab,a0 | ... into prstab[] move.w 0(a0,d0.W),d5 | get the pressure from prstab[trg] bra applym | go apply the multiplier @@ -405,6 +405,6 @@ | all other sources come out of the valents[] array | ------------------------------------------------------------------------------ -srctyp4: lea _vce2grp,a0 | point at vce2grp[] - move.w _fpuifnc,d5 | get voice number in d5 +srctyp4: lea vce2grp,a0 | point at vce2grp[] + move.w fpuifnc,d5 | get voice number in d5 lsr.w #3,d5 | ... andi.w #0x001E,d5 | ... as a word index @@ -417,5 +417,5 @@ lsl.w #2,d0 | ... via shift and add) add.w d5,d0 | ... - lea _valents,a0 | get base of valents[] + lea valents,a0 | get base of valents[] move.w VT_VAL(a0,d0.W),d5 | get value @@ -556,8 +556,8 @@ | act1 -- AC_SUST -- pause if key is down (sustain) | ---- ------------------------------------------ -act1: move.w _fpuifnc,d0 | get voice as a word index +act1: move.w fpuifnc,d0 | get voice as a word index lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | point at voice to trigger table + lea vce2trg,a0 | point at voice to trigger table move.w 0(a0,d0.W),d0 | get trigger table entry into d0 cmpi.w #-1,d0 | see if voice is free @@ -570,9 +570,9 @@ bne act1a | sustain if so - lea _trgtab,a0 | point at trigger table + lea trgtab,a0 | point at trigger table tst.b 0(a0,d0.W) | check trigger status beq act0 | continue function if not active -act1a: move.l _pfqhdr,d3 | see if any pflist entries remain +act1a: move.l pfqhdr,d3 | see if any pflist entries remain beq act0 | continue if not (shouldn't happen!) @@ -586,9 +586,9 @@ addi.w #PT_LEN,d2 | advance the point index movea.l d3,a0 | acquire a new pflist entry - move.l (a0),_pfqhdr | ... - move.l _pflist,(a0) | chain it to pflist - move.l a0,_pflist | ... + move.l (a0),pfqhdr | ... + move.l pflist,(a0) | chain it to pflist + move.l a0,pflist | ... move.w FH_TRG(a1),PF_TRIG(a0) | set trigger number in entry - move.w _fpuifnc,PF_FUNC(a0) | set v/p word in entry + move.w fpuifnc,PF_FUNC(a0) | set v/p word in entry movem.l d1-d2/d4/a1-a3,PF_D1(a0) | set registers in entry move.b FH_TMD(a1),d0 | stop the function @@ -606,8 +606,8 @@ | act2 -- AC_ENBL -- stop if key is up | ---- ---------------------------- -act2: move.w _fpuifnc,d0 | get voice as a word index +act2: move.w fpuifnc,d0 | get voice as a word index lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | check to see if voice is free + lea vce2trg,a0 | check to see if voice is free move.w 0(a0,d0.W),d0 | ... cmpi.w #-1,d0 | ... @@ -620,5 +620,5 @@ bne act0 | ... - lea _trgtab,a0 | check trigger table entry + lea trgtab,a0 | check trigger table entry tst.b 0(a0,d0.W) | ... bne act0 | if trigger is active, continue @@ -656,5 +656,5 @@ movem.l d1-d2/a0-a2,-(a7) | get ranged random number move.w d0,-(a7) | ... - jsr _irand | ... + jsr irand | ... tst.w (a7)+ | ... movem.l (a7)+,d1-d2/a0-a2 | ... @@ -677,8 +677,8 @@ | act5 -- AC_KYUP -- jump if key is up | ---- ---------------------------- -act5: move.w _fpuifnc,d0 | get voice as a word index +act5: move.w fpuifnc,d0 | get voice as a word index lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | check to see if voice is free + lea vce2trg,a0 | check to see if voice is free move.w 0(a0,d0.W),d0 | ... cmpi.w #-1,d0 | ... @@ -691,5 +691,5 @@ bne act0 | ... - lea _trgtab,a0 | check trigger table entry + lea trgtab,a0 | check trigger table entry tst.b 0(a0,d0.W) | see if the trigger is active beq act3 | if not, do the jump @@ -702,8 +702,8 @@ | act6 -- AC_KYDN -- jump if key is down | ---- ------------------------------ -act6: move.w _fpuifnc,d0 | get voice as a word index +act6: move.w fpuifnc,d0 | get voice as a word index lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | check to see if voice is free + lea vce2trg,a0 | check to see if voice is free move.w 0(a0,d0.W),d0 | ... cmpi.w #-1,d0 | ... @@ -716,5 +716,5 @@ bne act3 | ... - lea _trgtab,a0 | check trigger table entry + lea trgtab,a0 | check trigger table entry tst.b 0(a0,d0.W) | see if the trigger is active bne act3 | if so, do the jump @@ -730,6 +730,6 @@ | ------------------------------------------------------------------------------ -| _fpuclr -- clear the FPU -| ------- ------------- +| fpuclr -- clear the FPU +| ------ ------------- | void @@ -740,10 +740,10 @@ | ------------------------------------------------------------------------------ -_fpuclr: link a6,#0 | link stack frames +fpuclr: link a6,#0 | link stack frames move.w sr,-(a7) | save the interrupt level ori.w #0x0700,sr | turn off interrupts lea FPUFUNC,a0 | point at the first function - lea _fp_resv,a2 | point at reset value table + lea fp_resv,a2 | point at reset value table move.w #11,d1 | set the outer loop count @@ -854,6 +854,6 @@ .page -| _clrvce -- quiet a voice -| ------- ------------- +| clrvce -- quiet a voice +| ------ ------------- | void @@ -863,5 +863,5 @@ | Quiet the voice by resetting the FPU functions it uses. -_clrvce: link a6,#0 | link stack frames +clrvce: link a6,#0 | link stack frames move.w sr,-(a7) | save the interrupt level ori.w #0x0700,sr | turn off interrupts @@ -964,6 +964,6 @@ | ------------------------------------------------------------------------------ -_fp_resv: .ds.w 12 | fpu spare function reset values -_fpuifnc: .ds.w 1 | interrupting function number from FPU +fp_resv: .ds.w 12 | fpu spare function reset values +fpuifnc: .ds.w 1 | interrupting function number from FPU .end Index: ram/procpfl.s =================================================================== --- ram/procpfl.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/procpfl.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -5,5 +5,5 @@ .text - .xdef _procpfl + .xdef procpfl .xdef _curpf_f | current function (v/p) @@ -11,19 +11,19 @@ .xdef _curpf_t | current trigger - .xref _irand - .xref _xgetran - - .xref _expbit - .xref _funcndx - .xref _pflist - .xref _pfqhdr - .xref _prstab - .xref _ptoftab - .xref _timemlt - .xref _trgtab - .xref _valents - .xref _vce2grp - .xref _vce2trg - .xref _veltab + .xref irand + .xref xgetran + + .xref expbit + .xref funcndx + .xref pflist + .xref pfqhdr + .xref prstab + .xref ptoftab + .xref timemlt + .xref trgtab + .xref valents + .xref vce2grp + .xref vce2trg + .xref veltab .page @@ -196,5 +196,5 @@ .page | ------------------------------------------------------------------------------ -| _procpfl() -- process pendant functions +| procpfl() -- process pendant functions | void @@ -208,5 +208,5 @@ | ------------------------------------------------------------------------------ -_procpfl: nop | FOR DEBUGGING PATCH +procpfl: nop | FOR DEBUGGING PATCH link a6,#0 | allocate stack frame @@ -218,5 +218,5 @@ move.w TRIG(a6),d6 | get trigger we're processing move.w d6,_curpf_t | ... - movea.l #_pflist,RPRV | point at 'previous' pflist entry + movea.l #pflist,RPRV | point at 'previous' pflist entry bra pfscan | go scan the chain @@ -241,6 +241,6 @@ pfnext: move.l (RCUR),(RPRV) | remove entry from pflist - move.l _pfqhdr,(RCUR) | chain entry to free list - move.l RCUR,_pfqhdr | ... + move.l pfqhdr,(RCUR) | chain entry to free list + move.l RCUR,pfqhdr | ... bra pfscan | go look at next entry @@ -319,5 +319,5 @@ move.w d3,d0 | extract mantissa andi.w #MSK_MNT,d0 | ... - mulu _timemlt,d0 | multiply by panel time pot value + mulu timemlt,d0 | multiply by panel time pot value lsr.l #8,d0 | ... and scale it lsr.l #7,d0 | ... @@ -325,5 +325,5 @@ andi.w #MSK_EXP,d3 | extract exponent code add.w d3,d3 | look up decoded exponent - lea _expbit,a0 | ... in expbit + lea expbit,a0 | ... in expbit move.w 0(a0,d3.W),F_EXP(a3,d1.W) | send exponent to FPU move.w PT_VAL(a2,d2.W),d3 | get the function value @@ -348,5 +348,5 @@ movem.l d1-d2/a0-a2,-(a7) | preserve registers around call move.w PT_VMLT(a2,d2.W),-(a7) | pass multiplier to xgetran() - jsr _xgetran | call for a random number + jsr xgetran | call for a random number tst.w (a7)+ | clean up stack movem.l (a7)+,d1-d2/a0-a2 | restore registers @@ -364,5 +364,5 @@ lsr.w #6,d0 | shift to a word index andi.w #0x01FE,d0 | mask out extraneous bits - lea _ptoftab,a0 | get entry from ptoftab[] + lea ptoftab,a0 | get entry from ptoftab[] move.w 0(a0,d0.W),d5 | ... bra applym | go apply the multiplier @@ -385,5 +385,5 @@ move.w FH_TRG(a1),d0 | get the trigger number add.w d0,d0 | ... as a word index - lea _veltab,a0 | ... into veltab[] + lea veltab,a0 | ... into veltab[] move.w 0(a0,d0.W),d5 | get the velocity from veltab[trg] bra applym | go apply the multiplier @@ -397,5 +397,5 @@ move.w FH_TRG(a1),d0 | get the trigger number add.w d0,d0 | ... as a word index - lea _prstab,a0 | ... into prstab[] + lea prstab,a0 | ... into prstab[] move.w 0(a0,d0.W),d5 | get the pressure from prstab[trg] bra applym | go apply the multiplier @@ -405,5 +405,5 @@ | all other sources come out of the valents[] array | ------------------------------------------------------------------------------ -srctyp4: lea _vce2grp,a0 | point at vce2grp[] +srctyp4: lea vce2grp,a0 | point at vce2grp[] move.w _curpf_f,d5 | get voice number in d5 lsr.w #3,d5 | ... @@ -417,5 +417,5 @@ lsl.w #2,d0 | ... via shift and add) add.w d5,d0 | ... - lea _valents,a0 | get base of valents[] + lea valents,a0 | get base of valents[] move.w VT_VAL(a0,d0.W),d5 | get value @@ -559,5 +559,5 @@ lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | check to see if voice is free + lea vce2trg,a0 | check to see if voice is free move.w 0(a0,d0.W),d0 | ... cmpi.w #-1,d0 | ... @@ -570,5 +570,5 @@ bne act0 | ... - lea _trgtab,a0 | check trigger table entry + lea trgtab,a0 | check trigger table entry tst.b 0(a0,d0.W) | ... bne act0 | if trigger is active, continue @@ -606,5 +606,5 @@ movem.l d1-d2/a0-a2,-(a7) | get ranged random number move.w d0,-(a7) | ... - jsr _irand | ... + jsr irand | ... tst.w (a7)+ | ... movem.l (a7)+,d1-d2/a0-a2 | ... @@ -630,5 +630,5 @@ lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | check to see if voice is free + lea vce2trg,a0 | check to see if voice is free move.w 0(a0,d0.W),d0 | ... cmpi.w #-1,d0 | ... @@ -641,5 +641,5 @@ bne act0 | ... - lea _trgtab,a0 | check trigger table entry + lea trgtab,a0 | check trigger table entry tst.b 0(a0,d0.W) | see if the trigger is active beq act3 | if not, do the jump @@ -655,5 +655,5 @@ lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | check to see if voice is free + lea vce2trg,a0 | check to see if voice is free move.w 0(a0,d0.W),d0 | ... cmpi.w #-1,d0 | ... @@ -666,5 +666,5 @@ bne act3 | ... - lea _trgtab,a0 | check trigger table entry + lea trgtab,a0 | check trigger table entry tst.b 0(a0,d0.W) | see if the trigger is active bne act3 | if so, do the jump @@ -682,5 +682,5 @@ lsr.w #3,d0 | ... andi.w #0x001E,d0 | ... - lea _vce2trg,a0 | point at voice to trigger table + lea vce2trg,a0 | point at voice to trigger table move.w 0(a0,d0.W),d0 | get trigger table entry cmpi.w #-1,d0 | see if voice is free @@ -693,9 +693,9 @@ bne act1a | sustain if so - lea _trgtab,a0 | point at trigger table + lea trgtab,a0 | point at trigger table tst.b 0(a0,d0.W) | check trigger status beq act0 | continue if not active -act1a: move.l _pfqhdr,d3 | see if any pflist entries remain +act1a: move.l pfqhdr,d3 | see if any pflist entries remain beq act0 | no-op if not (shouldn't happen ...) @@ -709,7 +709,7 @@ addi.w #PT_LEN,d2 | update point index movea.l d3,a0 | acquire a new pflist entry - move.l (a0),_pfqhdr | ... - move.l _pflist,(a0) | ... - move.l a0,_pflist | ... + move.l (a0),pfqhdr | ... + move.l pflist,(a0) | ... + move.l a0,pflist | ... move.w FH_TRG(a1),PF_TRIG(a0) | set trigger number in entry move.w _curpf_f,PF_FUNC(a0) | set v/p word in entry Index: ram/sedisp.s =================================================================== --- ram/sedisp.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/sedisp.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -17,36 +17,36 @@ .text - .xdef _se_disp - - .xdef _ac_code + .xdef se_disp + + .xdef ac_code .xdef numstr - .xref _dclkmd - .xref _dsgmodz - .xref _fromfpu - .xref _mpcupd - .xref _vputa - .xref _vputc - .xref _vputs - - .xref _angroup - .xref _ctrsw - .xref _grpstat - .xref _ins2grp - .xref _ndisp - .xref _obj8 - .xref _gdfsep - .xref _lastvel - .xref _nsvtab - .xref _velflag - .xref _vrbw08 - .xref _vrbw09 - .xref _vrbw10 - .xref _vrbw11 - .xref _vrbw12 - .xref _vrbw13 - .xref _vrbw14 - .xref _vrbw15 - .xref _vrcw + .xref dclkmd + .xref dsgmodz + .xref fromfpu + .xref mpcupd + .xref vputa + .xref vputc + .xref vputs + + .xref angroup + .xref ctrsw + .xref grpstat + .xref ins2grp + .xref ndisp + .xref obj8 + .xref gdfsep + .xref lastvel + .xref nsvtab + .xref velflag + .xref vrbw08 + .xref vrbw09 + .xref vrbw10 + .xref vrbw11 + .xref vrbw12 + .xref vrbw13 + .xref vrbw14 + .xref vrbw15 + .xref vrcw .page @@ -132,5 +132,5 @@ | hardware limited by the maximum rate of the timer, and the VSDD update rate. -_se_disp: link a6,#0 | allocate and link stack frame +se_disp: link a6,#0 | allocate and link stack frame movea.l P_EP(a6),a0 | get event pointer 'ep' into a0 move.b E_TYPE(a0),d1 | get event type into d1.W @@ -170,5 +170,5 @@ move.w d0,d1 | save group in d1 add.w d0,d0 | make d0 a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -177,5 +177,5 @@ beq dsnb0 | jump if not center slice - tst.w _velflag | see if we display velocity + tst.w velflag | see if we display velocity beq dsnvx | jump if not @@ -185,5 +185,5 @@ move.w d1,d2 | point into lastvel[] add.w d2,d2 | ... - lea _lastvel,a1 | ... + lea lastvel,a1 | ... move.w d0,0(a1,d2.W) | update lastvel[group] ext.l d0 | scale @@ -214,6 +214,6 @@ move.w d0,-(a7) | put column on stack move.w #5,-(a7) | put row on stack - move.l _obj8,-(a7) | put VSDD address on stack - jsr _vputs | update the screen + move.l obj8,-(a7) | put VSDD address on stack + jsr vputs | update the screen add.l #14,a7 | clean up stack movea.l (a7)+,a0 | restore event pointer @@ -225,10 +225,10 @@ bcc dsnv2 | jump if in MS byte - bset d0,_vrbw12+1 | set group bit in LS byte + bset d0,vrbw12+1 | set group bit in LS byte bra dsnv3 | ... -dsnv2: bset d0,_vrbw12 | set group bit in MS byte - -dsnv3: bset #4,_vrcw | set video reset type bit +dsnv2: bset d0,vrbw12 | set group bit in MS byte + +dsnv3: bset #4,vrcw | set video reset type bit move.w (a7)+,d2 | get new-note flag from stack @@ -244,9 +244,9 @@ bgt dsexit | done if not displayable - move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next clr.w d2 | d2 = ep->group move.b E_GROUP(a0),d2 | ... @@ -256,9 +256,9 @@ move.l a1,0(a2,d2.W) | gdstb[ep->group] = gdsp move.w d1,G_NOTE(a1) | gdsp->note = nn - lea _nsvtab,a2 | a2 points at nsvtab + lea nsvtab,a2 | a2 points at nsvtab tst.b 0(a2,d1.W) | check nsvtab[nn] beq dsnb1 | jump if natural note - move.b _ac_code,d1 | setup for an accidental note + move.b ac_code,d1 | setup for an accidental note bra dsnb2 | ... @@ -284,5 +284,5 @@ move.b E_GROUP(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -341,16 +341,16 @@ move.w #6,-(a7) | put column on stack move.w #0,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputs | update the screen + move.l obj8,-(a7) | put sbase on stack + jsr vputs | update the screen add.l #14,a7 | clean up stack - bset #4,_vrcw+1 | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsbgn0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #4,vrcw+1 | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsbgn0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #48,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -368,12 +368,12 @@ beq dssend0 | jump if not - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dssend0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dssend0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #48,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -389,9 +389,9 @@ bne dsexit | done if so - move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #48,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -416,16 +416,16 @@ move.w #19,-(a7) | put column on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputc | display character + move.l obj8,-(a7) | put sbase on stack + jsr vputc | display character add.l #12,a7 | clean up stack - bset #1,_vrcw+1 | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dstune0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #1,vrcw+1 | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dstune0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #52,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -443,5 +443,5 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -497,6 +497,6 @@ move.w d1,-(a7) | ... move.w #3,-(a7) | ... - move.l _obj8,-(a7) | ... - jsr _vputs | ... + move.l obj8,-(a7) | ... + jsr vputs | ... add.l #14,a7 | ... move.w (a7)+,d0 | get group number @@ -504,19 +504,19 @@ bcc dstrns5 | jump if in MS byte - bset d0,_vrbw09+1 | set group bit in LS byte + bset d0,vrbw09+1 | set group bit in LS byte bra dstrns6 | ... dstrns5: sub.w #8,d0 | adjust for byte - bset d0,_vrbw09 | set group bit in MS byte - -dstrns6: bset #1,_vrcw | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dstrns0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset d0,vrbw09 | set group bit in MS byte + +dstrns6: bset #1,vrcw | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dstrns0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #52,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -534,5 +534,5 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -560,6 +560,6 @@ move.w d0,-(a7) | put column on stack move.w #4,-(a7) | put row on stack - move.l _obj8,-(a7) | put object address on stack - jsr _vputc | update the screen + move.l obj8,-(a7) | put object address on stack + jsr vputc | update the screen add.l #12,a7 | clean up stack move.w (a7)+,d0 | get group number @@ -567,20 +567,20 @@ bcc dsdyn1 | jump if in MS word - bset d0,_vrbw10+1 | set group bit in LS byte + bset d0,vrbw10+1 | set group bit in LS byte bra dsdyn2 | ... dsdyn1: sub.w #8,d0 | adjust for for byte - bset d0,_vrbw10 | set group bit in MS byte - -dsdyn2: bset #2,_vrcw | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - - .page -dsdyn00: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset d0,vrbw10 | set group bit in MS byte + +dsdyn2: bset #2,vrcw | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + + .page +dsdyn00: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #52,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -598,5 +598,5 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -624,6 +624,6 @@ move.w d0,-(a7) | put column on stack move.w #4,-(a7) | put row on stack - move.l _obj8,-(a7) | put object address on stack - jsr _vputc | update the screen + move.l obj8,-(a7) | put object address on stack + jsr vputc | update the screen add.l #12,a7 | clean up stack move.w (a7)+,d0 | get group number @@ -631,20 +631,20 @@ bcc dslocn1 | jump if in MS word - bset d0,_vrbw11+1 | set group bit in LS byte + bset d0,vrbw11+1 | set group bit in LS byte bra dslocn2 | ... dslocn1: sub.w #8,d0 | adjust for for byte - bset d0,_vrbw11 | set group bit in MS byte - -dslocn2: bset #3,_vrcw | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - - .page -dsloc00: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset d0,vrbw11 | set group bit in MS byte + +dslocn2: bset #3,vrcw | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + + .page +dsloc00: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #52,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -663,5 +663,5 @@ andi.w #0x000F,d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -670,5 +670,5 @@ beq dsanrs0 | jump if not - move.w _angroup,d2 | see if we display + move.w angroup,d2 | see if we display bmi dsexit | jump if not @@ -692,19 +692,19 @@ move.w d1,-(a7) | put column on stack move.w #7,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputc | update the screen + move.l obj8,-(a7) | put sbase on stack + jsr vputc | update the screen add.l #12,a7 | clean up stack move.w (a7)+,d0 | get variable number - bset d0,_vrbw13+1 | set variable bit - bset #5,_vrcw | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - - .page -dsanrs0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset d0,vrbw13+1 | set variable bit + bset #5,vrcw | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + + .page +dsanrs0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #52,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -719,5 +719,5 @@ | dsanvl -- display analog value | ------ -------------------- -dsanvl: move.w _angroup,d2 | see if we display +dsanvl: move.w angroup,d2 | see if we display bmi dsexit | jump if not @@ -726,5 +726,5 @@ andi.w #0x000F,d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -777,18 +777,18 @@ move.w d1,-(a7) | put column on stack move.w #7,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputs | update the screen + move.l obj8,-(a7) | put sbase on stack + jsr vputs | update the screen add.l #14,a7 | clean up stack move.w (a7)+,d0 | get variable number - bset d0,_vrbw14+1 | set variable bit - bset #6,_vrcw | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsanvl0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset d0,vrbw14+1 | set variable bit + bset #6,vrcw | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsanvl0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #52,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -807,5 +807,5 @@ move.l a0,-(a7) | stash a0 - jsr _mpcupd | update changed stuff + jsr mpcupd | update changed stuff movea.l (a7)+,a0 | restore a0 clr.w d1 | get assignment @@ -822,16 +822,16 @@ move.w #11,-(a7) | put column on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputs | update the screen + move.l obj8,-(a7) | put sbase on stack + jsr vputs | update the screen add.l #14,a7 | clean up stack - bset #0,_vrcw+1 | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsasgn0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #0,vrcw+1 | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsasgn0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #56,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -868,16 +868,16 @@ move.w #27,-(a7) | put column on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputs | display tempo + move.l obj8,-(a7) | put sbase on stack + jsr vputs | display tempo add.l #14,a7 | clean up stack - bset #2,_vrcw+1 | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dstmpo0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #2,vrcw+1 | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dstmpo0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #56,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -895,27 +895,27 @@ beq dsstop0 | jump if not - jsr _dclkmd | show that clock is stopped + jsr dclkmd | show that clock is stopped move.w #AT08,-(a7) | put attribute on stack move.w #40,-(a7) | put 1st column on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputa | hilite first column + move.l obj8,-(a7) | put sbase on stack + jsr vputa | hilite first column move.w #41,COL(a7) | put 2nd column on stack - jsr _vputa | hilite second column + jsr vputa | hilite second column move.w #42,COL(a7) | put 3rd column on stack - jsr _vputa | hilite third column + jsr vputa | hilite third column move.w #43,COL(a7) | put 4th column on stack - jsr _vputa | hilite fourth column + jsr vputa | hilite fourth column add.l #10,a7 | clean up stack - bset #7,_vrcw | set video reset type bits - bset #0,_vrbw15 | ... - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsstop0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #7,vrcw | set video reset type bits + bset #0,vrbw15 | ... + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsstop0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #56,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -936,23 +936,23 @@ move.w #45,-(a7) | put 1st column on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put sbase on stack - jsr _vputa | hilite first column + move.l obj8,-(a7) | put sbase on stack + jsr vputa | hilite first column move.w #46,COL(a7) | put 2nd column on stack - jsr _vputa | hilite second column + jsr vputa | hilite second column move.w #47,COL(a7) | put 3rd column on stack - jsr _vputa | hilite third column + jsr vputa | hilite third column move.w #48,COL(a7) | put 4th column on stack - jsr _vputa | hilite fourth column + jsr vputa | hilite fourth column add.l #10,a7 | clean up stack - bset #7,_vrcw | set video reset type bits - bset #1,_vrbw15 | ... - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsnext0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #7,vrcw | set video reset type bits + bset #1,vrbw15 | ... + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsnext0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #56,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -970,12 +970,12 @@ beq dsgrp0 | jump if not - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsgrp0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsgrp0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #60,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -993,5 +993,5 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq dsexit | done if not enabled @@ -1000,5 +1000,5 @@ beq dsins00 | jump if not - lea _ins2grp,a1 | point at ins2grp[] + lea ins2grp,a1 | point at ins2grp[] clr.w d0 | get instrument number move.b E_DATA2(a0),d0 | ... in d0 @@ -1026,6 +1026,6 @@ move.w d0,-(a7) | put column on stack move.w #2,-(a7) | put row on stack - move.l _obj8,-(a7) | put object address on stack - jsr _vputs | update the screen + move.l obj8,-(a7) | put object address on stack + jsr vputs | update the screen add.l #14,a7 | clean up stack @@ -1035,19 +1035,19 @@ bcc dsinst1 | jump if in MS word - bset d0,_vrbw08+1 | set group bit in LS byte + bset d0,vrbw08+1 | set group bit in LS byte bra dsinst2 | ... dsinst1: sub.w #8,d0 | adjust for for byte - bset d0,_vrbw08 | set group bit in MS byte - -dsinst2: bset #0,_vrcw | set video reset type bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsins00: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset d0,vrbw08 | set group bit in MS byte + +dsinst2: bset #0,vrcw | set video reset type bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsins00: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #60,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -1066,5 +1066,5 @@ move.w E_DATA1(a0),-(a7) | get interpolate value - jsr _fromfpu | convert to milliseconds + jsr fromfpu | convert to milliseconds tst.w (a7)+ | ... andi.l #0x0000FFFF,d0 | clear high bits @@ -1088,16 +1088,16 @@ move.w #35,-(a7) | ... move.w #1,-(a7) | ... - move.l _obj8,-(a7) | ... - jsr _vputs | ... + move.l obj8,-(a7) | ... + jsr vputs | ... add.l #14,a7 | ... - bset #3,_vrcw+1 | set video reset bit - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dsintp0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #3,vrcw+1 | set video reset bit + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dsintp0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #60,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -1121,10 +1121,10 @@ move.w #50,-(a7) | put 1st col on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put object address on stack - jsr _vputa | highlight 1st column + move.l obj8,-(a7) | put object address on stack + jsr vputa | highlight 1st column move.w #51,COL(a7) | put 2nd col on stack - jsr _vputa | highlight 2nd col + jsr vputa | highlight 2nd col add.l #10,a7 | clean up stack - bset #5,_vrcw+1 | set video reset bit + bset #5,vrcw+1 | set video reset bit bra dspnch2 | go do maker update @@ -1132,22 +1132,22 @@ move.w #53,-(a7) | put 1st col on stack move.w #1,-(a7) | put row on stack - move.l _obj8,-(a7) | put object address on stack - jsr _vputa | highlight 1st column + move.l obj8,-(a7) | put object address on stack + jsr vputa | highlight 1st column move.w #54,COL(a7) | put 2nd col on stack - jsr _vputa | highlight 2nd column + jsr vputa | highlight 2nd column move.w #55,COL(a7) | put 3rd col on stack - jsr _vputa | highlight 3rd column + jsr vputa | highlight 3rd column add.l #10,a7 | clean up stack - bset #6,_vrcw+1 | set video reset bit - -dspnch2: jsr _dsgmodz | display updated modes - tst.w _ctrsw | update center for scupd ? - beq dsexit | done if not - -dspnch0: move.l _gdfsep,d0 | quit if no elements left - beq dsexit | ... - - movea.l d0,a1 | a1 = gdsp - move.l G_NEXT(a1),_gdfsep | gdfsep = gdsp->next + bset #6,vrcw+1 | set video reset bit + +dspnch2: jsr dsgmodz | display updated modes + tst.w ctrsw | update center for scupd ? + beq dsexit | done if not + +dspnch0: move.l gdfsep,d0 | quit if no elements left + beq dsexit | ... + + movea.l d0,a1 | a1 = gdsp + move.l G_NEXT(a1),gdfsep | gdfsep = gdsp->next move.w #60,d2 | d2 = event PRIORITY * 4 movea.l P_SL(a6),a2 | a2 points at gdstb @@ -1172,5 +1172,5 @@ beq dsbar0 | jump if not - tst.w _ctrsw | update center for scupd ? + tst.w ctrsw | update center for scupd ? beq dsexit | done if not @@ -1219,5 +1219,5 @@ | globals: | -------- -_ac_code: .ds.b 1 | accidental code +ac_code: .ds.b 1 | accidental code | locals: Index: ram/seexec.s =================================================================== --- ram/seexec.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/seexec.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -13,39 +13,39 @@ .text - .xdef _se_exec + .xdef se_exec .xdef BadEvnt - .xdef _xevent - - .xref _asgvce - .xref _clkset - .xref _getasg - .xref _gettun - .xref _procpfl - .xref _selscor - .xref _setdyn - .xref _setloc - .xref _setsv - .xref _settmpo - .xref _settune - .xref _setv2gi - - .xref _anrs - .xref _var2src - .xref _curasg - .xref _curintp - .xref _cursect - .xref _grpmode - .xref _grpstat - .xref _ins2grp - .xref _nxtflag - .xref _recsw - .xref _s_trns - .xref _trgtab - .xref _varmode - .xref _vce2grp - .xref _vce2trg - .xref _veltab + .xdef xevent + + .xref asgvce + .xref clkset + .xref getasg + .xref gettun + .xref procpfl + .xref selscor + .xref setdyn + .xref setloc + .xref setsv + .xref settmpo + .xref settune + .xref setv2gi + + .xref anrs + .xref var2src + .xref curasg + .xref curintp + .xref cursect + .xref grpmode + .xref grpstat + .xref ins2grp + .xref nxtflag + .xref recsw + .xref s_trns + .xref trgtab + .xref varmode + .xref vce2grp + .xref vce2trg + .xref veltab .page @@ -98,5 +98,5 @@ | hardware limited by the timer. -_se_exec: link a6,#0 | link stack frames +se_exec: link a6,#0 | link stack frames movea.l P_EP(a6),a0 | get event pointer 'ep' into a0 move.l a0,_xevent | save in xevent @@ -144,5 +144,5 @@ move.b E_GROUP(a0),d1 | get group number add.w d1,d1 | ... * 2 - lea _grpstat,a1 | point at grpstat + lea grpstat,a1 | point at grpstat tst.w 0(a1,d1.W) | see if group is enabled beq exexit | done if not @@ -151,9 +151,9 @@ move.w #LCL_PCH,d2 | put port and channel in d2 add.w d1,d2 | d2 = trg - lea _trgtab,a1 | point at trgtab[trg] + lea trgtab,a1 | point at trgtab[trg] move.b 0(a1,d2.W),d0 | ... or.b #M_KSTATE,d0 | set trigger table entry on move.b d0,0(a1,d2.W) | ... - lea _veltab,a1 | point at veltab + lea veltab,a1 | point at veltab add.w d2,d2 | ... move.w E_VEL(a0),0(a1,d2.W) | put velocity in veltab @@ -164,5 +164,5 @@ move.b E_GROUP(a0),d1 | d1 = group number (0..11) move.w d1,-(a7) | put group number on the stack - jsr _asgvce | start the note + jsr asgvce | start the note add.l #10,a7 | clean up the stack bra exexit | done @@ -182,5 +182,5 @@ move.b E_GROUP(a0),d1 | get group number add.w d1,d1 | ... * 2 - lea _grpstat,a1 | point at grpstat + lea grpstat,a1 | point at grpstat tst.w 0(a1,d1.W) | check group status beq exexit | done if disabled @@ -190,5 +190,5 @@ add.w d1,d2 | d2 = trg * 2 add.w d2,d2 | ... - lea _trgtab,a1 | set trigger table entry off + lea trgtab,a1 | set trigger table entry off move.b 0(a1,d2.W),d0 | ... and.b #N_KSTATE,d0 | ... @@ -200,5 +200,5 @@ lsr.w #1,d2 | adjust d2 clr.w d1 | set loop index - lea _vce2trg,a2 | point at vce2trg table + lea vce2trg,a2 | point at vce2trg table exnend1: cmp.w (a2),d2 | see if this voice uses trg @@ -209,10 +209,10 @@ move.w d1,-(a7) | save d1 on stack move.w d2,-(a7) | save d2 on stack - lea _vce2grp,a1 | put group on stack + lea vce2grp,a1 | put group on stack move.w d1,d0 | ... add.w d0,d0 | ... move.w 0(a1,d0.W),-(a7) | ... move.w d2,-(a7) | put trg on stack - jsr _procpfl | process sustained voices + jsr procpfl | process sustained voices addq.l #4,a7 | clean up stack move.w (a7)+,d2 | restore d2 @@ -233,5 +233,5 @@ exsbgn: clr.w d0 | get section number move.b E_DATA1(a0),d0 | ... - move.w d0,_cursect | set section number + move.w d0,cursect | set section number bra exexit | done @@ -241,6 +241,6 @@ move.b E_DATA1(a0),d0 | ... move.w d0,-(a7) | getasg(curasg = asgn) - move.w d0,_curasg | ... - jsr _getasg | ... + move.w d0,curasg | ... + jsr getasg | ... tst.w (a7)+ | ... bra exexit | done @@ -251,5 +251,5 @@ move.b E_DATA1(a0),d0 | ... move.w d0,-(a7) | gettun(tuning) - jsr _gettun | ... + jsr gettun | ... tst.w (a7)+ | ... bra exexit | done @@ -260,11 +260,11 @@ move.b E_DATA1(a0),d0 | ... add.w d0,d0 | ... as an index in d0 - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq exexit | done if disabled - lea _s_trns,a1 | set group transposition + lea s_trns,a1 | set group transposition move.w E_LFT(a0),0(a1,d0.W) | ... - jsr _settune | ... + jsr settune | ... bra exexit | done @@ -276,5 +276,5 @@ move.b E_DATA1(a0),d0 | ... move.w d0,-(a7) | settmpo(tempo) - jsr _settmpo | ... + jsr settmpo | ... tst.w (a7)+ | ... bra exexit | done @@ -283,5 +283,5 @@ | ------ ------------------ exstop: clr.w -(a7) | stop the clock - jsr _clkset | ... + jsr clkset | ... tst.w (a7)+ | ... bra exexit | that's all, folks @@ -289,5 +289,5 @@ | exintp -- execute interpolate event | ------ ------------------------- -exintp: move.w E_DATA1(a0),_curintp | set interpolate value +exintp: move.w E_DATA1(a0),curintp | set interpolate value bra exexit | done @@ -299,9 +299,9 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq exexit | done if not enabled - lea _ins2grp,a1 | point at ins2grp[] + lea ins2grp,a1 | point at ins2grp[] clr.w d0 | get instrument number move.b E_DATA2(a0),d0 | ... in d0 @@ -314,5 +314,5 @@ or.w d0,d2 | OR in new instrument number move.w d2,0(a1,d1.W) | set ins2grp[group] - jsr _setv2gi | setv2gi(group) + jsr setv2gi | setv2gi(group) tst.w (a7)+ | clean up stack bra exexit | done @@ -325,5 +325,5 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq exexit | done if not enabled @@ -335,5 +335,5 @@ move.w d0,-(a7) | setdyn(group, dyn) move.w d1,-(a7) | ... - jsr _setdyn | ... + jsr setdyn | ... adda.l #4,a7 | clean up stack bra exexit | done @@ -344,5 +344,5 @@ move.b E_DATA1(a0),d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq exexit | done if not enabled @@ -354,5 +354,5 @@ move.w d0,-(a7) | setloc(group, loc) move.w d1,-(a7) | ... - jsr _setloc | ... + jsr setloc | ... adda.l #4,a7 | clean up stack bra exexit | done @@ -365,5 +365,5 @@ andi.w #0x000F,d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq exexit | done if not enabled @@ -374,5 +374,5 @@ clr.w d0 | get resolution move.b E_DATA2(a0),d0 | ... in d0 - lea _anrs,a1 | point at resolution table base + lea anrs,a1 | point at resolution table base move.w d0,0(a1,d1.W) | save resolution in table bra exexit | done @@ -383,5 +383,5 @@ andi.w #0x000F,d0 | ... in d0 add.w d0,d0 | ... as a word offset - lea _grpstat,a1 | check grpstat[grp] + lea grpstat,a1 | check grpstat[grp] tst.w 0(a1,d0.W) | ... beq exexit | done if not enabled @@ -394,8 +394,8 @@ lsr.w #3,d2 | extract variable number andi.w #0x001E,d2 | ... as a word index in d2 - lea _var2src,a1 | point at variable map + lea var2src,a1 | point at variable map move.w 0(a1,d2.W),-(a7) | put source number on stack move.w d1,-(a7) | put group number on stack - jsr _setsv | setsv(group, src, val) + jsr setsv | setsv(group, src, val) adda.l #6,a7 | clean up stack bra exexit | done @@ -403,5 +403,5 @@ | exnext -- next score | ------ ---------- -exnext: move.w #1,_nxtflag | set next score flag +exnext: move.w #1,nxtflag | set next score flag bra exexit | done @@ -410,5 +410,5 @@ | expnch -- execute punch in/out | ------ -------------------- -expnch: tst.w _recsw | recording ? +expnch: tst.w recsw | recording ? beq exexit | ignore if not @@ -418,5 +418,5 @@ | punch out - lea _grpmode,a1 | setup for group modes + lea grpmode,a1 | setup for group modes move.w #11,d0 | ... @@ -429,5 +429,5 @@ dbra d0,expnch0 | loop through all groups - lea _varmode,a1 | setup for variable modes + lea varmode,a1 | setup for variable modes move.w #5,d1 | set variable count @@ -452,5 +452,5 @@ | punch in -expnch5: lea _grpmode,a1 | setup for group modes +expnch5: lea grpmode,a1 | setup for group modes move.w #11,d0 | ... @@ -463,5 +463,5 @@ dbra d0,expnch6 | loop through all groups - lea _varmode,a1 | setup for variable modes + lea varmode,a1 | setup for variable modes move.w #5,d1 | set variable count Index: ram/serintr.s =================================================================== --- ram/serintr.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/serintr.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -13,10 +13,10 @@ .text - .xdef _setsio - - .xdef _foot1 - .xdef _foot2 - .xdef _pulse1 - .xdef _pulse2 + .xdef setsio + + .xdef foot1 + .xdef foot2 + .xdef pulse1 + .xdef pulse2 .xdef serintr @@ -108,20 +108,20 @@ lea SR1IOREC,a0 | Point at Serial-1 iorec lea SR1ACIA,a1 | Point at Serial-1 ACIA - movea.l _foot1,a2 | Point at foot sw. 1 processor + movea.l foot1,a2 | Point at foot sw. 1 processor bsr serint | Go process (possible) int. lea SR2IOREC,a0 | Point at Serial-2 iorec lea SR2ACIA,a1 | Point at Serial-2 ACIA - movea.l _foot2,a2 | Point at foot sw. 2 processor + movea.l foot2,a2 | Point at foot sw. 2 processor bsr serint | Go process (possible) int. lea MC1IOREC,a0 | Point at MIDI-1 iorec lea MC1ACIA,a1 | Point at MIDI-1 ACIA - movea.l _pulse1,a2 | Point at pulse 1 processor + movea.l pulse1,a2 | Point at pulse 1 processor bsr midint | Go process (possible) int. lea MC2IOREC,a0 | Point at MIDI-2 iorec lea MC2ACIA,a1 | Point at MIDI-2 ACIA - movea.l _pulse2,a2 | Point at pulse 2 processor + movea.l pulse2,a2 | Point at pulse 2 processor bsr midint | Go process (possible) int. @@ -490,14 +490,14 @@ .page -| _setsio -- setsio() -- initialize serial I/O vectors and DCD interrupts -| ------- ------------------------------------------------------------ -_setsio: move.w sr,-(a7) | Preserve status register +| setsio -- setsio() -- initialize serial I/O vectors and DCD interrupts +| ------ ------------------------------------------------------------ +setsio: move.w sr,-(a7) | Preserve status register ori.w #IPL7,sr | DISABLE INTERRUPTS lea nulsiox,a0 | Get null return address - move.l a0,_foot1 | Initialize foot1 vector - move.l a0,_foot2 | Initialize foot2 vector - move.l a0,_pulse1 | Initialize pulse1 vector - move.l a0,_pulse2 | Initialize pulse2 vector + move.l a0,foot1 | Initialize foot1 vector + move.l a0,foot2 | Initialize foot2 vector + move.l a0,pulse1 | Initialize pulse1 vector + move.l a0,pulse2 | Initialize pulse2 vector lea SR1ACIA,a1 | Point at Serial-1 ACIA @@ -524,8 +524,8 @@ | DCD interrupt processor vectors | ------------------------------- -_foot1: .ds.l 1 | short (*foot1)(); -_foot2: .ds.l 1 | short (*foot2)(); -_pulse1: .ds.l 1 | short (*pulse1)(); -_pulse2: .ds.l 1 | short (*pulse2)(); +foot1: .ds.l 1 | short (*foot1)(); +foot2: .ds.l 1 | short (*foot2)(); +pulse1: .ds.l 1 | short (*pulse1)(); +pulse2: .ds.l 1 | short (*pulse2)(); .end Index: ram/sreset.s =================================================================== --- ram/sreset.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/sreset.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -5,19 +5,19 @@ .text - .xdef _sreset | sreset() - - .xref _vputa | vputa(sbase, row, col, attrib) - - .xref _ndisp | WORD - display number - .xref _obj8 | LONG - object base address - .xref _vrbw08 | WORD - detail word for bit 8 - .xref _vrbw09 | WORD - detail word for bit 9 - .xref _vrbw10 | WORD - detail word for bit 10 - .xref _vrbw11 | WORD - detail word for bit 11 - .xref _vrbw12 | WORD - detail word for bit 12 - .xref _vrbw13 | WORD - detail word for bit 13 - .xref _vrbw14 | WORD - detail word for bit 14 - .xref _vrbw15 | WORD - detail word for bit 15 - .xref _vrcw | WORD - video reset control word + .xdef sreset | sreset() + + .xref vputa | vputa(sbase, row, col, attrib) + + .xref ndisp | WORD - display number + .xref obj8 | LONG - object base address + .xref vrbw08 | WORD - detail word for bit 8 + .xref vrbw09 | WORD - detail word for bit 9 + .xref vrbw10 | WORD - detail word for bit 10 + .xref vrbw11 | WORD - detail word for bit 11 + .xref vrbw12 | WORD - detail word for bit 12 + .xref vrbw13 | WORD - detail word for bit 13 + .xref vrbw14 | WORD - detail word for bit 14 + .xref vrbw15 | WORD - detail word for bit 15 + .xref vrcw | WORD - video reset control word ROW = 4 @@ -40,9 +40,9 @@ | sreset() -- reset highlighting | -------- ------------------ -_sreset: link a6,#0 | link stack frame - cmp.w #2,_ndisp | see if we should update display +sreset: link a6,#0 | link stack frame + cmp.w #2,ndisp | see if we should update display bne srsexit | jump if not - move.w _vrcw,d0 | get and check vrcw + move.w vrcw,d0 | get and check vrcw bne srs0 | jump if something to do @@ -53,22 +53,22 @@ ori.w #0x0700,sr | ... - move.w _vrcw,vrcw | make local copies of control variables - clr.w _vrcw | ... and clear them for the next pass - move.w _vrbw08,vrbw08 | ... - clr.w _vrbw08 | ... - move.w _vrbw09,vrbw09 | ... - clr.w _vrbw09 | ... - move.w _vrbw10,vrbw10 | ... - clr.w _vrbw10 | ... - move.w _vrbw11,vrbw11 | ... - clr.w _vrbw11 | ... - move.w _vrbw12,vrbw12 | ... - clr.w _vrbw12 | ... - move.w _vrbw13,vrbw13 | ... - clr.w _vrbw13 | ... - move.w _vrbw14,vrbw14 | ... - clr.w _vrbw14 | ... - move.w _vrbw15,vrbw15 | ... - clr.w _vrbw15 | ... + move.w vrcw,vrcw | make local copies of control variables + clr.w vrcw | ... and clear them for the next pass + move.w vrbw08,vrbw08 | ... + clr.w vrbw08 | ... + move.w vrbw09,vrbw09 | ... + clr.w vrbw09 | ... + move.w vrbw10,vrbw10 | ... + clr.w vrbw10 | ... + move.w vrbw11,vrbw11 | ... + clr.w vrbw11 | ... + move.w vrbw12,vrbw12 | ... + clr.w vrbw12 | ... + move.w vrbw13,vrbw13 | ... + clr.w vrbw13 | ... + move.w vrbw14,vrbw14 | ... + clr.w vrbw14 | ... + move.w vrbw15,vrbw15 | ... + clr.w vrbw15 | ... move.w d1,sr | <<<<< restore interrupts >>>>> @@ -85,5 +85,5 @@ clr.w -(a7) | put dummy column on stack clr.w -(a7) | put dummy row on stack - move.l _obj8,-(a7) | put sbase on stack + move.l obj8,-(a7) | put sbase on stack .page @@ -97,7 +97,7 @@ move.w #1,ROW(a7) | put row on stack move.w #11,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #12,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w vrcw,d0 | restore vrcw to d0 @@ -110,5 +110,5 @@ move.w #1,ROW(a7) | put row on stack move.w #19,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column move.w vrcw,d0 | restore vrcw to d0 @@ -121,9 +121,9 @@ move.w #1,ROW(a7) | put row on stack move.w #27,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #28,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #29,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w vrcw,d0 | restore vrcw to d0 @@ -138,11 +138,11 @@ move.w #1,ROW(a7) | put row on stack move.w #35,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #36,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #37,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #38,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w vrcw,d0 | restore vrcw to d0 @@ -155,7 +155,7 @@ move.w #0,ROW(a7) | put row on stack move.w #6,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #7,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column .page @@ -169,7 +169,7 @@ move.w #1,ROW(a7) | put row on stack move.w #50,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #51,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w vrcw,d0 | restore vrcw to d0 @@ -182,9 +182,9 @@ move.w #1,ROW(a7) | put row on stack move.w #53,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #54,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #55,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w vrcw,d0 | restore vrcw to d0 @@ -197,15 +197,15 @@ move.w #1,ROW(a7) | put row on stack move.w #57,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #58,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #59,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #60,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #61,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column move.w #62,COL(a7) | put 6th column on stack - jsr _vputa | reset sixth column + jsr vputa | reset sixth column move.w vrcw,d0 | restore vrcw to d0 @@ -223,7 +223,7 @@ move.w #7,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #8,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column srs8a: btst #1,vrbw08+1 | group 2 ? @@ -231,7 +231,7 @@ move.w #12,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #13,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8b: btst #2,vrbw08+1 | group 3 ? @@ -239,7 +239,7 @@ move.w #17,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #18,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8c: btst #3,vrbw08+1 | group 4 ? @@ -247,7 +247,7 @@ move.w #22,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #23,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character .page @@ -257,7 +257,7 @@ move.w #27,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #28,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8e: btst #5,vrbw08+1 | group 6 ? @@ -265,7 +265,7 @@ move.w #32,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #33,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8f: btst #6,vrbw08+1 | group 7 ? @@ -273,7 +273,7 @@ move.w #37,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #38,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8g: btst #7,vrbw08+1 | group 8 ? @@ -281,7 +281,7 @@ move.w #42,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #43,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character .page @@ -291,7 +291,7 @@ move.w #47,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #48,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8j: btst #1,vrbw08 | group 10 @@ -299,7 +299,7 @@ move.w #52,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #53,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8k: btst #2,vrbw08 | group 11 @@ -307,7 +307,7 @@ move.w #57,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #58,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8m: btst #3,vrbw08 | group 12 @@ -315,7 +315,7 @@ move.w #62,COL(a7) | put 1st column on stack - jsr _vputa | reset first character + jsr vputa | reset first character move.w #63,COL(a7) | put 2nd column on stack - jsr _vputa | reset second character + jsr vputa | reset second character srs8x: move.w vrcw,d0 | restore vrcw to d0 @@ -334,11 +334,11 @@ move.w #5,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #6,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #7,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #8,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9a: btst #1,vrbw09+1 | group 2 ? @@ -346,11 +346,11 @@ move.w #10,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #11,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #12,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #13,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9b: btst #2,vrbw09+1 | group 3 ? @@ -358,11 +358,11 @@ move.w #15,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #16,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #17,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #18,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column .page @@ -372,11 +372,11 @@ move.w #20,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #21,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #22,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #23,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9d: btst #4,vrbw09+1 | group 5 ? @@ -384,11 +384,11 @@ move.w #25,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #26,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #27,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #28,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9e: btst #5,vrbw09+1 | group 6 ? @@ -396,11 +396,11 @@ move.w #30,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #31,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #32,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #33,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column .page @@ -410,11 +410,11 @@ move.w #35,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #36,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #37,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #38,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9g: btst #7,vrbw09+1 | group 8 ? @@ -422,11 +422,11 @@ move.w #40,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #41,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #42,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #43,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9h: btst #0,vrbw09 | group 9 @@ -434,11 +434,11 @@ move.w #45,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #46,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #47,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #48,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column .page @@ -448,11 +448,11 @@ move.w #50,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #51,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #52,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #53,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9k: btst #2,vrbw09 | group 11 @@ -460,11 +460,11 @@ move.w #55,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #56,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #57,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #58,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9m: btst #3,vrbw09 | group 12 @@ -472,11 +472,11 @@ move.w #60,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #61,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #62,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #63,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs9x: move.w vrcw,d0 | restore vrcw to d0 @@ -495,5 +495,5 @@ move.w #6,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10a: btst #1,vrbw10+1 | group 2 ? @@ -501,5 +501,5 @@ move.w #11,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10b: btst #2,vrbw10+1 | group 3 ? @@ -507,5 +507,5 @@ move.w #16,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10c: btst #3,vrbw10+1 | group 4 ? @@ -513,5 +513,5 @@ move.w #21,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column .page @@ -521,5 +521,5 @@ move.w #26,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10e: btst #5,vrbw10+1 | group 6 ? @@ -527,5 +527,5 @@ move.w #31,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10f: btst #6,vrbw10+1 | group 7 ? @@ -533,5 +533,5 @@ move.w #36,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10g: btst #7,vrbw10+1 | group 8 ? @@ -539,5 +539,5 @@ move.w #41,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column .page @@ -547,5 +547,5 @@ move.w #46,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10j: btst #1,vrbw10 | group 10 @@ -553,5 +553,5 @@ move.w #51,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10k: btst #2,vrbw10 | group 11 @@ -559,5 +559,5 @@ move.w #56,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10m: btst #3,vrbw10 | group 12 @@ -565,5 +565,5 @@ move.w #61,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs10x: move.w vrcw,d0 | restore vrcw to d0 @@ -582,5 +582,5 @@ move.w #8,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11a: btst #1,vrbw11+1 | group 2 ? @@ -588,5 +588,5 @@ move.w #13,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11b: btst #2,vrbw11+1 | group 3 ? @@ -594,5 +594,5 @@ move.w #18,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11c: btst #3,vrbw11+1 | group 4 ? @@ -600,5 +600,5 @@ move.w #23,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column .page @@ -608,5 +608,5 @@ move.w #28,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11e: btst #5,vrbw11+1 | group 6 ? @@ -614,5 +614,5 @@ move.w #33,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11f: btst #6,vrbw11+1 | group 7 ? @@ -620,5 +620,5 @@ move.w #38,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11g: btst #7,vrbw11+1 | group 8 ? @@ -626,5 +626,5 @@ move.w #43,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column .page @@ -634,5 +634,5 @@ move.w #48,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11j: btst #1,vrbw11 | group 10 @@ -640,5 +640,5 @@ move.w #53,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11k: btst #2,vrbw11 | group 11 @@ -646,5 +646,5 @@ move.w #58,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11m: btst #3,vrbw11 | group 12 @@ -652,5 +652,5 @@ move.w #63,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs11x: move.w vrcw,d0 | restore vrcw to d0 @@ -669,9 +669,9 @@ move.w #6,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #7,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #8,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12a: btst #1,vrbw12+1 | group 2 ? @@ -679,9 +679,9 @@ move.w #11,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #12,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #13,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12b: btst #2,vrbw12+1 | group 3 ? @@ -689,9 +689,9 @@ move.w #16,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #17,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #18,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column .page @@ -701,9 +701,9 @@ move.w #21,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #22,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #23,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12d: btst #4,vrbw12+1 | group 5 ? @@ -711,9 +711,9 @@ move.w #26,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #27,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #28,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12e: btst #5,vrbw12+1 | group 6 ? @@ -721,9 +721,9 @@ move.w #31,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #32,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #33,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column .page @@ -733,9 +733,9 @@ move.w #36,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #37,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #38,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12g: btst #7,vrbw12+1 | group 8 ? @@ -743,9 +743,9 @@ move.w #41,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #42,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #43,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12h: btst #0,vrbw12 | group 9 @@ -753,9 +753,9 @@ move.w #46,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #47,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #48,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column .page @@ -765,9 +765,9 @@ move.w #51,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #52,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #53,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12k: btst #2,vrbw12 | group 11 @@ -775,9 +775,9 @@ move.w #56,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #57,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #58,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12m: btst #3,vrbw12 | group 12 @@ -785,9 +785,9 @@ move.w #61,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #62,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #63,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column srs12x: move.w vrcw,d0 | restore vrcw to d0 @@ -806,5 +806,5 @@ move.w #6,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs13a: btst #1,vrbw13+1 | variable 2 ? @@ -812,5 +812,5 @@ move.w #15,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs13b: btst #2,vrbw13+1 | variable 3 ? @@ -818,5 +818,5 @@ move.w #24,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs13c: btst #3,vrbw13+1 | variable 4 ? @@ -824,5 +824,5 @@ move.w #33,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs13d: btst #4,vrbw13+1 | variable 5 ? @@ -830,5 +830,5 @@ move.w #42,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs13e: btst #5,vrbw13+1 | variable 6 ? @@ -836,5 +836,5 @@ move.w #51,COL(a7) | put column on stack - jsr _vputa | reset column + jsr vputa | reset column srs13x: move.w vrcw,d0 | restore vrcw to d0 @@ -853,13 +853,13 @@ move.w #8,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #9,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #10,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #11,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #12,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column srs14a: btst #1,vrbw14+1 | variable 2 ? @@ -867,13 +867,13 @@ move.w #17,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #18,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #19,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #20,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #21,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column .page @@ -883,13 +883,13 @@ move.w #26,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #27,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #28,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #29,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #30,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column srs14c: btst #3,vrbw14+1 | variable 4 ? @@ -897,13 +897,13 @@ move.w #35,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #36,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #37,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #38,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #39,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column .page @@ -913,13 +913,13 @@ move.w #44,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #45,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #46,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #47,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #48,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column srs14e: btst #5,vrbw14+1 | variable 6 ? @@ -927,13 +927,13 @@ move.w #53,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #54,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #55,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #56,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column move.w #57,COL(a7) | put 5th column on stack - jsr _vputa | reset fifth column + jsr vputa | reset fifth column srs14x: move.w vrcw,d0 | restore vrcw to d0 @@ -952,11 +952,11 @@ move.w #1,ROW(a7) | put row on stack move.w #40,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #41,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #42,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #43,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs15a: btst #1,vrbw15 | next ? @@ -966,11 +966,11 @@ move.w #1,ROW(a7) | put row on stack move.w #45,COL(a7) | put 1st column on stack - jsr _vputa | reset first column + jsr vputa | reset first column move.w #46,COL(a7) | put 2nd column on stack - jsr _vputa | reset second column + jsr vputa | reset second column move.w #47,COL(a7) | put 3rd column on stack - jsr _vputa | reset third column + jsr vputa | reset third column move.w #48,COL(a7) | put 4th column on stack - jsr _vputa | reset fourth column + jsr vputa | reset fourth column srs16: add.l #10,a7 | clean up stack @@ -981,5 +981,5 @@ .bss -| local copies of _vrcw, _vrbw08.._vrbw15 +| local copies of vrcw, vrbw08..vrbw15 vrcw: .ds.w 1 Index: ram/timeint.s =================================================================== --- ram/timeint.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/timeint.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -26,18 +26,18 @@ .text - .xdef _tsetup | tsetup() -- timer setup function + .xdef tsetup | tsetup() -- timer setup function .xdef timeint | timer interrupt handler - .xdef _M1IoRec | MIDI channel 1 IoRec - .xdef _M2IoRec | MIDI channel 2 IoRec - .xdef _S1IoRec | RS232 channel 1 IoRec - .xdef _S2IoRec | RS232 channel 2 IoRec - .xdef _timers | timer array -- short timers[NTIMERS] - .xdef _vi_clk | VSDD scroll delay timer - .xdef _vi_tag | VSDD VI tag + .xdef M1IoRec | MIDI channel 1 IoRec + .xdef M2IoRec | MIDI channel 2 IoRec + .xdef S1IoRec | RS232 channel 1 IoRec + .xdef S2IoRec | RS232 channel 2 IoRec + .xdef timers | timer array -- short timers[NTIMERS] + .xdef vi_clk | VSDD scroll delay timer + .xdef vi_tag | VSDD VI tag .xref lclsadr | score object base address .xref lclscrl | score object scroll offset - .xref _v_odtab | VSDD object descriptor table + .xref v_odtab | VSDD object descriptor table .page @@ -130,8 +130,8 @@ .page | ============================================================================== -| _tsetup -- tsetup() -- timer setup function -| ============================================================================== - -_tsetup: move.w sr,-(a7) | Save old interrupt mask +| tsetup -- tsetup() -- timer setup function +| ============================================================================== + +tsetup: move.w sr,-(a7) | Save old interrupt mask ori.w #IPL7,sr | Disable interrupts @@ -140,5 +140,5 @@ trap #XBIOS | ... add.l #4,a7 | ... - move.l d0,_S1IoRec | ... + move.l d0,S1IoRec | ... move.w #SR2_DEV,-(a7) | Establish S2IoRec @@ -146,5 +146,5 @@ trap #XBIOS | ... add.l #4,a7 | ... - move.l d0,_S2IoRec | ... + move.l d0,S2IoRec | ... move.w #MC1_DEV,-(a7) | Establish M1IoRec @@ -152,5 +152,5 @@ trap #XBIOS | ... add.l #4,a7 | ... - move.l d0,_M1IoRec | ... + move.l d0,M1IoRec | ... move.w #MC2_DEV,-(a7) | Establish M2IoRec @@ -158,5 +158,5 @@ trap #XBIOS | ... add.l #4,a7 | ... - move.l d0,_M2IoRec | ... + move.l d0,M2IoRec | ... .page @@ -164,10 +164,10 @@ clr.w FC_SW | Stop the frame clock clr.l FC_VAL | ... and reset it - clr.w _vi_tag | Clear VSDD VI tag - clr.w _vi_clk | Clear VSDD delay timer + clr.w vi_tag | Clear VSDD VI tag + clr.w vi_clk | Clear VSDD delay timer clr.w lclsadr | Clear score scroll address clr.w lclscrl | Clear score scroll offset - lea _timers,a0 | Point at timer array + lea timers,a0 | Point at timer array move.w #NTIMERS-1,d0 | Setup to clear timer array @@ -217,15 +217,15 @@ | process VSDD timer | ------------------------------------------------------------------------------ - tst.w _vi_tag | Does the VSDD need service ? + tst.w vi_tag | Does the VSDD need service ? beq updtime | Jump if not - move.w _vi_clk,d0 | Get VSDD scroll delay timer + move.w vi_clk,d0 | Get VSDD scroll delay timer subq.w #1,d0 | Decrement timer - move.w d0,_vi_clk | Update timer + move.w d0,vi_clk | Update timer bne updtime | Jump if it's not zero yet - move.w lclsadr,_v_odtab+12 | Update scroll address - move.w lclscrl,_v_odtab+10 | Update scroll offset - clr.w _vi_tag | Reset the tag + move.w lclsadr,v_odtab+12 | Update scroll address + move.w lclscrl,v_odtab+10 | Update scroll offset + clr.w vi_tag | Reset the tag .page @@ -236,5 +236,5 @@ updtime: move.w #NTIMERS-1,d0 | Setup timer array counter - lea _timers,a0 | Point at timer array + lea timers,a0 | Point at timer array tdcr: move.w (a0),d1 | Get timer array entry @@ -325,5 +325,5 @@ ori.w #0x0700,sr | Disable interrupts - movea.l _M1IoRec,a0 | Point at M1IoRec + movea.l M1IoRec,a0 | Point at M1IoRec move.b IO_CFR1(a0),d0 | Get MIDI-1 CFR1 value or.b #0x80,d0 | Force MSB = 1 for CFR1 output @@ -372,13 +372,13 @@ | ------------------------------------------------------------------------------ -_timers: .ds.w NTIMERS | Timer array -- short timers[NTIMERS]; - -_vi_clk: .ds.w 1 | VSDD scroll delay timer -_vi_tag: .ds.w 1 | VSDD VI 'needs service' tag - -_S1IoRec: .ds.l 1 | address of RS232 channel 1 IoRec -_S2IoRec: .ds.l 1 | address of RS232 channel 2 IoRec -_M1IoRec: .ds.l 1 | address of MIDI channel 1 IoRec -_M2IoRec: .ds.l 1 | address of MIDI channel 2 IoRec +timers: .ds.w NTIMERS | Timer array -- short timers[NTIMERS]; + +vi_clk: .ds.w 1 | VSDD scroll delay timer +vi_tag: .ds.w 1 | VSDD VI 'needs service' tag + +S1IoRec: .ds.l 1 | address of RS232 channel 1 IoRec +S2IoRec: .ds.l 1 | address of RS232 channel 2 IoRec +M1IoRec: .ds.l 1 | address of MIDI channel 1 IoRec +M2IoRec: .ds.l 1 | address of MIDI channel 2 IoRec | ============================================================================== Index: ram/tofpu.s =================================================================== --- ram/tofpu.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/tofpu.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -17,6 +17,6 @@ .text - .xdef _tofpu - .xdef _fromfpu + .xdef tofpu + .xdef fromfpu TIME = 8 | WORD - time argument (either format) @@ -25,5 +25,5 @@ .page -_tofpu: link a6,#0 | link stack frames +tofpu: link a6,#0 | link stack frames move.w TIME(a6),d1 | get time interval beq notime | jump if zero time @@ -51,5 +51,5 @@ .page -_fromfpu: link a6,#0 | link stack frames +fromfpu: link a6,#0 | link stack frames move.w TIME(a6),d1 | get FPU formatted time beq zerotime | done if it's zero Index: ram/verdate.s =================================================================== --- ram/verdate.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ ram/verdate.s (revision 27c8d4002e04fa5beee2de6454fd13922f10e079) @@ -21,7 +21,7 @@ .data - .xdef _VerDate + .xdef VerDate -_VerDate: .asciz "19881027.01" | Date and version number +VerDate: .asciz "19881027.01" | Date and version number .end