************* ****************** 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 6053. Move the file. Set 23763,
23843, 23759, 23765 and 23767.
6053 LD A, (23763) moved the whole file?
OR A
RET Z; if so, return
PUSH HL; conservation HL
LD HL, 23843; buffer enough to balance?
SUB (HL)
POP HL; recovery HL
JR NC, 6109, if the buffer is not enough, then the
transition burghers of the file
LD A, (23763) take the remaining number of cross
Ktorov
LD B, A
XOR A; moved all
LD (23763), A
6074 PUSH BC; preservation of moving
emyh sectors
LD HL, (23759) take the address of the workspace
PUSH HL; preserving its
LD DE, (23765) take the address of the relocatable
file in the old place
CALL 7741; boot sectors
LD HL, (23796); installation addresses the next hour
Tu file
LD (23765), HL
POP HL; recovery addresses working
area
POP BC; and the number of transported sec
tori
LD DE, (23767) take the address of the relocatable
file to a new location
CALL 7757; recording sectors
LD HL, (23796); installation addresses the next hour
Tu file
LD (23767), HL
JR 6053; repeat
6109 LD (23763), A; installation of the remaining
Sectors
PUSH HL; conservation HL
LD HL, 23843; take the length of the workspace in
sectors
LD B, (HL)
POP HL; recovery HL
XOR A; reset battery
JR 6074, moving sectors
Address 6121. Loading the sector buffer descriptor
file transfer descriptor. In case C-file number in the
A-direction of movement (0 - in the variables otherwise - to
read the sector). 6121 PUSH AF; conservation direction
displacement of
LD HL, 23756; the first sector of the catalog - 0
LD (HL), 0
LD A, C; number identification sector is described
satellite file
6128 SUB 1916
JR C, 6135
INC (HL)
JR 6128
6135 ADD A, 16, take the number of descriptor in the sector
LD C, A
PUSH BC; save it
CALL 1004; loaded into the buffer sector description
Telem
POP BC; recovery rates of the descriptor in
sector
POP AF; and direction of movement
CALL 7332, the definition address of the descriptor fi
la in the buffer
LD DE, 23773, take a second address for LDIR
LD BC, 16; take the length of the descriptor
OR A; setting the direction of movement
JR Z, 6157
EX DE, HL
6157 LDIR; transfer the file descriptor
RET; Returns
Address 6160. Runs the command VERIFY. Set
23825 and 23611. It is also used to address:
6165 - the command LOAD. Set 23825 and
23611;
6168 - the command LOAD, PEEK and POKE. Set 23825, 23611 and
23824. 6160 LD A, 255; verification file
LD (23801), A
6165 CALL 6226; zeroing 23824
6168 CALL 6198; processing parameters and load
File
CALL 7541; if there is a check in syntax
then return
LD A, 255, the command LOAD
LD (23824), A
LD A, (23801) holds VERIFY?
CP 255
JP Z, 993, and if so, O.K.
LD A, (23781) file extension B?
CP "B"
Attention! If the operation was one sector file, then we must
go, regardless of extension.
JP Z, 298; if so, the processing line AB
tostarta
JP 993; otherwise O.K.
to be continued ...
