; Affiche un pixel en mode OR ou XOR ; d0.w=x d1.w=y d2.w=mode a0.l=dest PutPix: lea.l \Instr(pc),a1 add.w d1,d1 move.w d1,d3 lsl.w #4,d1 sub.w d3,d1 move.w d0,d3 lsr.w #3,d3 add.w d3,d1 not.w d0 tst.w d2 beq.s \ModeXOR bset d0,(a1,d1.w) bra.s \ModeOK: \ModeXOR: bchg d0,(a1,d1.w) \ModeOK: rts