Frs = 215 : Fb1(1) = 132 : Frfb = 131 : Wpn = 83 : Rba = 212 : Ff = 255 : K = 77 : Reset Fzb : Reset Fl_rdy : Reset Fl_mem_ww : Fl_try_max = 4
Sub Ready_stat()
Reset Fl_try_w
For Fl_try_w = 1 To Fl_try_max Step 1
Reset Csel
Spiout Frs , 1
Fl_st = Spimove(255)
Waitus 2 : Set Csel : Waitus 10
Fl_st_tmp = Fl_st And 128
If Fl_st_tmp = 128 Then : Set Fl_rdy : Reset Fl_try_w :
Goto Fl_ok : Else : Reset Fl_rdy :
Incr Fl_try_w : End If
If Fl_try_w > Fl_try_max Then : Set Fl_err :
Print "Error" :
Goto End_flash_work : End If
Next Fl_try_w
Fl_ok:
End Sub
Return