************* **************** LIKBEZ
(C) P. Yu Fedin
FULL DESCRIPTION + FULL ROM Disassembler
TR-DOS 5.04T (5.03)
For professionals
And as for those
WHO WANTS TO BE.
continued
Address 5803. Runs the command MOVE. Set
23611.
5803 CALL 7541; if there is a check on the syntactic
system, then return
CALL 5743; reserve space in memory
CALL 1029, setting the disk
LD A, (24089); deleted files on the disk is?
OR A
JP Z, 993, and if not, the message OK
LD HL, 0, 0 sectors until freed
LD (23769), HL
LD C, 255; start with file number 0
5827 INC C; next file
CALL 5715, he erased?
JR NZ, 5827, and if not, then the next file
LD A, C; retention rates erase
File
LD (23764), A
LD HL, (23787) take the address of the file to erase
CD
LD (23765), HL; save it
CALL 5783; increment the counter by releasing
shihsya sectors
5846 INC C; next file
CALL 5715, he erased?
JR Z, 5846, and if so, what next file
CP 0; is the end of the catalog?
JP NZ, 5904, and if not, then change the files Months
Tami
LD A, (23764) take the number erases the
LD C, A
5861 INC C; next file
CALL 5715; is the end of the catalog?
CP 0
JR Z, 5996, and if so, the reorganization described
satel drive
XOR A; the end of the catalog
LD (23773), A
CALL 7744; record of the file descriptor
CALL 5783; increment the counter by releasing
shihsya sectors
JR 5861; repeat
5904 LD A, (23786), we take the size of the roaming fi
la sectors
LD (23763), A; save it
LD (23761), A
LD HL, (23787) take the address of the file to be moved
disk
LD (23765), HL; save it
PUSH BC; retention rates moved
File
CALL 6053; move the file
POP BC; recovery rates moving
emogo file
LD HL, (23796); movement will continue with this
place
LD (23765), HL
LD (23787), HL
XOR A; size of deleted files - 0 sec
tori
LD (23786), A
LD A, (23773), the preservation of the first character has
no file
PUSH AF
LD A, 1; file erased
LD (23773), A
CALL 7744; record descriptor erased files
POP AF; restoration of the first symbol
filename
LD (23773), A
LD A, (23764) take the number of erased files
LD C, A
LD HL, (23771), setting a new address displacements
generalized file
LD (23787), HL; disk
LD A, (23761); restoration size mixing
generalized file
LD (23786), A; disk
CALL 7744; entry descriptor of the displaced
File
LD A, (23764) take the number of the file after the
changes generalized
INC A
LD C, A
CALL 5725; reading its descriptor
LD HL, (23765), installation of his new address on
CD
LD (23787), HL
CALL 7744; its record handle
LD A, (23764) take the number of displaced file
LD C, A
JP 5827; repeat
Address 5996. Reorganization of the descriptor disk. Set 23759,
23769 and 23765. 5996 LD HL, (23759) take the address of the
working space properties
LD BC, 4096; reducing it to 4096 bytes
CALL 7726
CALL 1021; boot sector of the buffer 8 to
Cones 0
LD HL, (24074), an increase in the number of freely
th place on
LD DE, (23769); drive
ADD HL, DE
LD (24074), HL
LD A, (24073), reducing the number of files
drive on
LD HL, 24089; the number of erased
SUB (HL)
LD (24073), A
LD (HL), 0; on the disk is no longer erased
Files
LD HL, (23765), setting a new address freedoms
Nogo space
LD (24070), HL; drive
PUSH AF; preservation of the files on
CD
CALL 7747; track record sector 8 0
POP AF; restoration of fi
fishing on the disk
LD C, A
CALL 5725; reading the file descriptor for the settlement
glacial
XOR A; is the end of the catalog
LD (23773), A
JP 1385; record of the file descriptor, and assured
solution
to be continued ...
