City #43 09 апреля 2000

Программирование

Likbez - a full disassembler ROM (part 33).

.................................................
..... .................. ..............
.... @ @ @ ................ @ @ @ @ ..............
... @ @ ............... @ ................
.. @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @
.. @ @ @ @ @ @ @ @ @ @ @ @ @ @

    @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @

                                           @ @ @ @
........................................ @ @
........................................ @ @ @ @
.................................................


(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 ...