|
|
|
@ -387,7 +387,6 @@ MD_CALBAS: |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
PUSH HL |
|
|
|
PUSH BC |
|
|
|
LD A,E ; BOTTOM PORTION OF SECTOR |
|
|
|
AND $0F ; ADDRESS THAT GETS WRITTEN |
|
|
|
RLC H ; WITH ERASE COMMAND BYTE |
|
|
|
@ -408,7 +407,6 @@ MD_CALBAS: |
|
|
|
CALL PC_SPACE ; SECTOR RESULT |
|
|
|
#ENDIF |
|
|
|
; |
|
|
|
POP BC |
|
|
|
RET |
|
|
|
; |
|
|
|
; WRITE FLASH |
|
|
|
@ -436,9 +434,6 @@ MD_SECM1: ; DESIRED SECTOR IS IN BUFFER |
|
|
|
CALL MD_FNCALL ; EXECUTE: ERASE 4K SECTOR |
|
|
|
OR A |
|
|
|
RET NZ ; RETURN IF ERROR |
|
|
|
; |
|
|
|
PUSH HL |
|
|
|
PUSH DE |
|
|
|
; |
|
|
|
; COPY 512B SECTOR INTO 4K SECTOR |
|
|
|
; |
|
|
|
@ -455,9 +450,6 @@ MD_SECM1: ; DESIRED SECTOR IS IN BUFFER |
|
|
|
LD HL,(MD_DSKBUF) |
|
|
|
LD BC,512 ; COPY ONE 512B SECTOR FROM THE |
|
|
|
LDIR ; THE DISK BUFFER TO 4K SECTOR |
|
|
|
; |
|
|
|
POP DE |
|
|
|
POP HL |
|
|
|
; |
|
|
|
LD IX,MD_F4KBUF ; SET SOURCE ADDRESS |
|
|
|
LD BC,MD_FWRIT_R ; PUT ROUTINE TO CALL |
|
|
|
|