.................................................
..... .................. ..............
.... @ @ @ ................ @ @ @ @ ..............
... @ @ ............... @ ..............
.. @ @ ............... @ ................
.. @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @
........................................ @ @
....................................... @ @
........................................ @ @ @ @
..........................................
.................................................
(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
6925 CALL 7541; if checking syntax, then
Returns
CALL 7564; take the current character
LD HL, 23781
CP 228; is DATA?
JR Z, 6956, and if so, then writes the array
CP 13; it ENTER?
JP NZ, 7450, and if not, then the error
LD (HL), "B"; extension B
CALL 6846; to check if the file and
free space in the directory
CALL 7708; removal from the command line
pyatibaytnyh numbers
6951 CALL 7134; setting the start and length of the file
JP 6995; file entry
6956 LD (HL), "D"; extension D
CALL 6846; to check if a file and places
Directory
CALL 7183; setting the start and length of the file
JR NC, 6995, if all goes well, the record
File
JP C, 7450, otherwise an error
6969 CALL 7653; the adoption of the start and length of the file
LD HL, (23769); installation beginning of the file
LD (23767), HL
LD HL, (23771), setting the file length
LD (23769), HL
6984 CALL 7541; if checking syntax, then
Returns
LD A, "C"; extension of C
LD (23871), A
CALL 6846; to check if a file and places
Directory
6995 CALL 7001; file entry
JP 1385; record information about it
Address 7001. Record file. Set 23761, 23767,
23769 and 23771, and in the buffer load sector 8 track 0.
7001 LD HL, (23767); installation beginning of the file
LD (23782), HL
EX DE, HL; transfer it to the DE
LD HL, (23769) take the length of the file
LD A, L; it is equal to 0?
OR H
JP Z, 7450, if so, the error
LD A, L; calculation of file length in the sector
tures
OR A
JR Z, 7021
INC H
7021 LD A, H; setting the file length in the sector
tures
LD (23786), A
LD E, A; calculates a new number
free sectors
LD D, 0
LD HL, (24074)
SBC HL, DE
JP C, 7237, if the disk has no place, then
error
PUSH HL; to save a new number
free sectors
LD HL, (23641), an addendum to the program at Bay
Sica 170 bytes
LD (HL), 170
INC HL
LD DE, (23761) and the line number autostart
LD (HL), E
INC HL
LD (HL), D
LD HL, (23771), setting the file length
LD (23784), HL
LD HL, (24070), setting the address file on the dis
Ke
LD (23787), HL
EX DE, HL; transfer it to the DE
LD HL, (23782) take the beginning of the file
LD A, (23786), take its length in sectors
LD B, A
CALL 7757; file entry
LD HL, (23796) take the address of the free space
the space drive
PUSH HL; save it
CALL 1021; boot sector of the buffer 8 to
Cones 0
POP HL; recovery addresses free
of disk space
LD (24070), HL; install it
POP HL; restoration of freedom
of free sectors
LD (24074), HL; install it
LD HL, (24073) take the file number
LD A, (HL)
LD (23838), A; install it
INC (HL); recorded another 1 file
PUSH HL; saving addresses with number of CMV
files on disk
CALL 7747; sector 8 dub track 0
POP HL; recovery addresses count
PTO Files
LD C, (HL); take the number of recorded file
DEC C
LD A, (23781) file extension B?
CP "B"
CALL Z, 7112, and if so, what length setting
program without variables
RET; Returns
to be continued ...
