************* **************** 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 5554. Checking variable 23781. Accordingly, the content
will be flagged Z, and self- content will be in the HL.
5554 LD HL, (23781) take the contents of the variable
23781
LD A, H; checking it for 0
OR L
RET; Returns
Address 5560. Copy sectors. Set 23769,
23759, 23781, 23841, 23843 and 23771
5560 CALL 5554; all copied?
RET Z; if so, return
LD A, (23841), the first pass?
OR A
JR NZ, 5595, if so, the drive source is already in
drive
LD HL, 10505; print BACKUP DISC
CALL 9991
LD HL, 10154; print INSERT SOURCE DISC
CALL 9991
5585 CALL 4178; expectation pressing Y
CP "Y"
JR NZ, 5585
CALL 7583; cleaning the bottom of the screen
5595 CALL 5554; all copied?
RET Z; if so, return
PUSH BC; preservation of BC and the number of seconds
tori
PUSH HL
LD HL, 23843; take the length of the workspace in
sectors
LD C, (HL)
LD B, 0
POP HL; restoration of seconds
tori
SBC HL, BC; reduction in the number of sectors
POP BC; restore BC
JP NC, 5700, if the working space ma
Lo, this is not the end
LD BC, (23,781), take the remaining number of cross
Ktorov
LD HL, 0; all copied
LD (23781), HL
5624 PUSH BC; preservation of the number of sectors
LD HL, (23759) take the address of the workspace
PUSH HL; save it
CALL 5336, setting a floppy disk
source
LD DE, (23771) take the address of sectors
drive-source
LD B, C
CALL 7741; boot sectors
LD HL, (23796); installation addresses the following
group of sectors
LD (23771), HL; disk source
CALL 7575; clear screen
LD HL, 10105; print BACKUP DISC
CALL 9991
LD HL, 10117; print INSERT DESTINATION DISC
CALL 9991
5661 CALL 4178; expectation pressing Y
CP "Y"
JR NZ, 5601
CALL 7583; cleaning the bottom of the screen
LD A, (23841), the first pass?
OR A
CALL NZ, 5360, and if so, then check if
Disk Space
POP HL; recovery addresses working
area
POP BC; and the number of copied sectors
ditch
LD DE, (23779) take the address of sectors
CD-Receiver
LD B, C
CALL 5348, setting a floppy disk
receiver
CALL 7757; recording sectors
LD HL, (23796); installation addresses the following
group of sectors
LD (23779), HL; disk-receiver
JP 5560; repeat
5700 LD (23871), HL; installation of the remaining quantitative
va sectors
PUSH HL; preserving its
LD HL, (23843) take the length of the working area
LD C, (HL); many sectors will be copying
vat
LD B, 0
POP HL; to restore the remaining
lichestva sectors
XOR A; reset battery
JP 5624; Up
to be continued ...
