***************** ************** 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 4960. Runs the command COPY S. Set
23825 and 23611.
4960 CALL 7621; installation CH_ADD
CALL 7722; the next character
CALL 7613, receiving the file name on stack calcium
kulyatora
CALL 7541; if there is a check in syntax
then return
CALL 5743; reserve space in memory
LD HL, 10154; print INSERT SOURCE DISC
CALL 9991
4981 CALL 4178; entered via the keyboard
CP "Y"; is Y?
JR NZ, 4981, and if not, then repeat
CALL 7583; cleaning the bottom of the screen
CALL 4142, receiving a file extension
CALL 7344; installation file name
JP NZ, 985, and if no such file exists, then the error
ka
CALL 5047; copying a file
LD A, (23781) file extension #?
CP "#"
JP NZ, 993, and if not, then O.K.
5011 LD A, 10, a file search to 10 characters
LD (23814), A
LD HL, 23782; the next block
INC (HL)
CALL 7575; clear screen
LD HL, 10154; print INSERT SOURCE DISC
CALL 9991
5029 CALL 4178; input keys
CP "Y"; is Y?
JR NZ, 5029, and if so, repeat
CALL 7347; search unit
JP NZ, 993, and if not found, then O.K.
CALL 5047; copy block
JR 5011; repeat
Address 5047. Copying a file on one drive.
File number put in the register C.
5047 CALL 5725; reading the file descriptor
LD HL, 23782; preserving its parts
LD DE, 23789
LD BC, 7
LDIR
LD A, (23793), setting the file size in sectors
tures
LD (23824), A
CALL 1029, setting the disk
CALL 15889; saving mode drive
LD (23769), A
LD A, 255, the first pass
LD (23841), A
Attention! This variable is already taken. It stores the first
3 letters of the command line.
CALL 5201, file copy
LD HL, (23839) take the address of the file on disk -
receiver
LD (23787), HL; install it
LD HL, (23698) take the new address of the free
Disk Space
LD (24070), HL; install it
LD HL, 24073; recorded 1 file
INC (HL)
LD C, (HL); take the file number
DEC C
LD B, 0, translate it into double-byte
form
PUSH BC; save it
LD DE, 9, burn the track sector 8 0
LD (23796), DE
CALL 7747; record sector
POP BC; restore the file number
CALL 5739; reading and replacement of the descriptor fi
la
CALL 7747; record sector descriptor
RET; Returns
Address 5123. Check availability of free
CD-receiver for the command COPY S. Place the file descriptor
in the 23773 and its part in 23789 and 23824 set. In the drive
to be drive-receiver. Sub-sets 23786, 23787 and 23839.
5123 XOR A; not the first pass
LD (23841), A
CALL 1029, setting the disk
CALL 15889; take the drive mode
LD (23770), A; save it
CALL 7347; file search
JP Z, 7248, and if found, then FILE EXISTS
CALL 1021; boot sector of the buffer 8 to
Cones 0
LD A, (24073) take the number of files on the dis
Ke
CP 128; their 128?
JP Z, 10,019, and if so, what DIRECTORY FULL
LD HL, 23789; restore the file descriptor
LD DE, 23782
LD BC, 7
LDIR
CALL 1021; boot sector of the buffer 8 to
Cones 0
LD A, (23824); restore the file length in
sectors
LD (23786), A
LD DE, (23786); translate it into double-byte form
LD D, 0
OR A; reset flag C
LD HL, (24074), reduces the free space on
CD
SBC HL, DE
JP C, 7237, if it was not enough, then NO SPACE
LD (24074), HL; installation of a new number
free disk space
LD HL, (24070) take the address space on
CD
LD (23787), HL; installation disk file address
- Receiver
LD (23839), HL; preserving its
Oh my God! Well it is! Because this variable -
Flag ways to call TR-DOS. And on such a DOS all work. The
horror of some sort.
RET; Returns
to be continued ...
