City #42 25 марта 2000

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

Likbez - a full disassembler ROM (part 32).

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

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

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

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


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