.................................................
..... .................. ..............
.... @ @ @ ................ @ @ @ @ ..............
... @ @ ............... @ ................
.. @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @
........................................ @ @
........................................ @ @ @ @
.................................................
(C) VP Fedin
FULL DESCRIPTION + FULL ROM Disassembler TR-DOS
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
5.04T (5.03) for professionals, as well as for those
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
WHO WANTS TO BE A
~~~~~~~~~~~~~~~~~~~
continued
Address 7248. Handling errors FILE EXISTS.
7248 LD HL, 10693; mail messages FILE EXISTS
LD A, 2; error code - 2
JR 7242, error handling
Address 7255. Setting the file name. Set 23645
on the file name. Will be selected by the drive and installed
variable is 23773.
7255 LD HL, 23773; address of a variable with a file name
LD B, 8; its length - 8 bytes
7260 LD (HL), ""; cleaning her
INC HL
DJNZ 7620
CALL 1329; withdrawal line from the stack Calculator
torus
EX DE, HL
CALL 7297; installation drive
LD A, C; filename - the empty string?
OR A
Error in the program! There must be OR B.
JP Z, 7450, if so, the error
CP 9; in the file name longer than 8 characters
JR Z, 7283, and if so, cut off his
LD C, 8
Attention! It will not work correctly with file name length
longer than 255 characters. 7283 LD A, (HL); take the first
character filename
CP ""; its code is less than 32?
JP C, 7450, if so, the error
LD DE, 23773, and the address of the variable with the
file name
PUSH BC; conservation name length
LDIR; set name
POP BC; recovery length name
RET; Returns
Address 7297. Installing the drive for file operations. In HL
put the beginning of the file name in ASCII representation, but
in BC - its length. HL installed on beginning of the name
without a floppy drive, and BC will be its length. 7297 INC HL;
take the address of the next character
Name
LD A, (HL); take this symbol
CP ":"; a colon?
JR NZ, 7230, and if not, then activate the disco
Water default
DEC HL; take the address of the name of the drive
LD A, (HL); take the name of the drive
CALL 1316; transformation in the name of the drive
its number
PUSH BC; saving file name length
PUSH HL; name and address of the drive
CALL 15819; drive select
POP HL; recovery addresses behalf Thesis
kovoda
POP BC; and file name length
DEC BC; cut off 2 characters
DEC BC
INC HL; take the address of the file name without
dispersion kovoda
INC HL
RET; Returns
7320 DEC HL; take the address of the file name
LD A, (23833), take the drive by default
PUSH BC; preserving the length and address named
File
PUSH HL
CALL 15819; drive select
POP HL; restoration of length and addresses
filename
POP BC
RET; Returns
to be continued ...
