Sinon Fosco255 a teste PedroM 0.81 RC5 sur sa vrai V200. Ca marche.
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.