WRITE.Text

.Page ;++ ; ; Write ; ; Write will write to a Disk/Side/Track/Sector after the sector ; header has been found by RdAddr. Depending on the command, it ; will perform a checksum operation on the data. If it is unable to ; read the address header mark after 100. tries it will recalibrate ; and try once more ; ; REGISTER ; IN ; All = Any value ; OUT ; All = Destroyed ; ;-- Write .Equ * Jsr CreCkSum ; Create a checksum WriteBF .Equ * ; Write data using host supplied checksum Jsr PreNib ; Setup data fro reading across page boundaries Jsr Seek Write3 Jsr RdAddr ; Find sector Bcc Write16 ; Write and if OK return to caller from Write16 Jsr BadAddr Bcc Write3 Lda #SErrWr ; Write error Rts