fx MOVEM.L D0-D7/a0-A6,-(A7) L_272 LEA $00DFF000.L,A0 lea L_1e(pc),a1 ; voc_temp MOVE.W $1C(a0),d3 ; intena MOVE.W $1E(A0),D2 ; intreq moveq #7,d4 ; bit moveq #3,d5 fx_lp BTST d4,D2 BEQ.s fx_lpc * btst d4,d3 * beq.s fx_lpc MOVEA.L 8(A1),A2 SUBQ.W #1,$000E(A1) TST.W $0024(A1) BPL.s L_330 MOVEQ #0,D0 MOVE.W $0026(A1),D0 MOVE.W D0,D1 ADD.L $001C(A1),D0 MOVE.L D0,(A2) MOVE.W $0028(A1),D0 LSR.W #1,D1 SUB.W D1,D0 MOVE.W D0,4(A2) * MOVE.W 6(A1),$009A(A0) bra.s L_350 L_330 TST.W $000E(A1) bne.s L_344 * MOVE.W 6(A1),$009A(A0) MOVE.W 2(A1),$0096(A0) bra.s L_350 L_344 MOVE.L #$00036DD2,(A2) ; inmod MOVE.W #1,4(A2) L_350 MOVE.W 6(A1),$009C(A0) fx_lpc addq.w #1,d4 ; next bit lea 148(a1),a1 ; auf naechste voc_temp setzen dbf d5,fx_lp MOVEM.L (A7)+,D0-D7/A0-A6 RTS