[an error occurred while processing this directive]
|
write_cycle:
ori #$0700,SR ; Disable Interrupts
move.b #$AA,D0 ;
move.w #$5555,A0 ;
move.b D0,(A0) ;
;
move.b #$55,D0 ;
move.w #$2AAA,A0 ; Write Sequence
move.b D0,(A0) ;
;
move.b #$A0,D0 ;
move.w #$5555,A0 ;
move.b D0,(A0) ;
move.l D2,D0 ;
move.w D2,A0 ;
adda D3,A0 ; Calculate Adress
move.b D0,(A0) ; Write Data
andi #$F1FF,SR ; Enasble Interrupts
; move.w #$FFFF,D4
;check:
; move.b #$F,D1
;wait: subi #1,D1
; tst D1
; bne wait
; cmp.b (A0),D0
; bne check
subi #1,D2
tst D2
bne write_cycle ; loop
E-mail: info@telesys.ru