.................................................
..... .................. ..............
.... @ @ @ ................ @ @ @ @ ..............
... @ @ ............... @ ................
.. @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @
........................................ @ @
........................................ @ @ @ @
.................................................
(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 7112. Set the length of the program in BASIC
without variables. With variable length program puts in 23,782,
length without variables - in 23784. 7112 LD HL, (23641)
computing the length of the program with
Variables
LD DE, (23635)
SCF
SBC HL, DE
LD (23782), HL; install it
LD HL, (23627), the calculation of length only prog
FRAMEWORK
SBC HL, DE
LD (23784), HL; install it
RET; Returns
Address 7134. Setting the start and length of the file for
writing programs in BASIC. 7134 LD HL, (23627) computing the
length of the program with
Variables
LD DE, (23635)
SBC HL, DE
LD (23771), HL; installation file length for ka
Taloga
LD HL, (23635); installation beginning of the file
LD (23767), HL
LD HL, (23641) computing the length of the file with a
pair of auto meter
INC HL
INC HL
INC HL
SBC HL, DE
LD (23769), HL; setting actual length
File
RET; Returns
Address 7164. Receiving the name of the array for the command
LOAD ... DATA. Entry: 23645 set on the file extension and
Set 23801.Vyhod: Sets 23762, 23767,
23769 and 23771. It is also used to address 7183 (ie
Same as 7195, but with error handling).
7164 CALL 7195; search array
RET NC; if the array is found, then return
LD HL, 0; the old array no
LD (23769), HL
LD A, (23801) loading?
CP 255
RET NZ; if so, return
JP 7781, error
7183 CALL 7195; search array
RET NC; if the array is found, then return
7187 LD A, 14; error code - 14
LD HL, 10205; mail messages ARRAY NOT FOUND
JP 7242; error handling
Address 7195. Searching an array without error handling. Will
be installed 23762, 23767, 23769 and 23771. When error flag C
is set, otherwise cleared. 7195 CALL 7722; take the next
character
CALL 7579; search array
SET 7, C; setting bit 7 in its name
LD A, C; set its name
LD (23762), A
JR NC, 7211, if the array is found, we established
ka its parameters
7209 SCF; was a mistake
RET; Returns
7211 JR NZ, 7209, if the Z flag is cleared, then the error
INC HL; take the length of the array
LD E, (HL); setting the array length
INC HL
LD D, (HL)
INC HL
LD (23767), HL; installation address an array of body
LD (23771), DE; setting the array length
LD (23769), DE
CALL 7722; the next character
CP ")"; it ")?
JR NZ, 7211, and if not, then the error
RET; Returns
Address 7237. Handling errors NO SPACE. Used
also from the address 7242 (processing errors in the A - Code
errors in the HL - address of the message).
7237 LD HL, 10683; mail message NO SPACE
LD A, 3; error code - 3
7242 CALL 963, if necessary, then print a message
JP 467; completion
to be continued ...
