
Je rappelle que je deconseille de tester sur vrai calc, tant que je n'aurais pas teste moi meme sur ma calc.
; In : ; a2 -> Src ; a3 -> Dest ; d3 = Len in words \FlashWrite_ExecuteInRam: subq.w #1,d3 ; Because of Dbf blt.s \End move.l a3,a4 ; A4 = Command register move.w #$5050,(a4) ; Clear Statut Register \loop: move.w (a2)+,d7 ; Read value to write move.w #$1010,(a4) ; Write Setup // V200 AMS 3.01 utilise a3 ici move.w d7,(a3)+ ; Write word \wait: move.w (a4),d0 ; Check it btst #7,d0 beq.s \wait ; and wait that's done dbra d3,\loop move.w #$5050,(a4) move.w #$FFFF,(a4) ; Read Memory \End: jmp (\FlashWrite_Return).l \FlashWrite_ExecuteInRam_End:
; In : ; a2 -> Src ; a3 -> Dest ; d3 = Len in words \FlashWrite_ExecuteInRam: subq.w #1,d3 ; Because of Dbf blt.s \End move.l a3,a4 ; A4 = Command register move.w #$5050,(a4) ; Clear Statut Register \loop: move.w (a2)+,d7 ; Read value to write move.w #$1010,(a3) ; Write Setup -- CHANGE HERE a4 to a3 move.w d7,(a3)+ ; Write word \wait: move.w (a4),d0 ; Check it btst #7,d0 beq.s \wait ; and wait that's done dbra d3,\loop move.w #$5050,(a4) move.w #$FFFF,(a4) ; Read Memory \End: jmp (\FlashWrite_Return).l \FlashWrite_ExecuteInRam_End:
PpHd :
La modification proposee fonctionner sur V200.