City #23 06 августа 1999

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

Likbez - a full disassembler ROM (part 15).

(C) P. Yu Fedin



    FULL DESCRIPTION + FULL ROM Disassembler


              TR-DOS 5.04T (5.03)


              For professionals


               And as for those


             WHO WANTS TO BE.



                   continued


  Address 1680. Runs the command COPY. Set
23825 and 23611.
1680 LD HL, (23825) take the address of the second symbol to
                    mandnoy line

      INC HL

      LD A, (HL); take this symbol

      AND 223; capital letters

      CP "S"; is "S"?

      JP Z, 4960, and if so, copy a file to

                    A drive

      CP "B"; a "B"?

      JP Z, 5420, and if so, copy the entire

                    disc on one drive

      CALL 7629, receiving the file names

      CALL 7541; if there is a check on the syntactic
                    system, then return

      CALL 5743; allocation of memory space

      CALL 4142, receiving a file extension

      CALL 7344; install the old file name

      LD A, (23798); retention rates drive -

                    source

      LD (23800), A

      JP NZ, 1483; if the file is not found, the verification
                    ka COPY "*","*"

Error! COPY "*","*" should always check, or
if the disk file named "*" is copied
Once this file, but in general there should be as follows:
LD (23800), A
PUSH AF
CALL 1483
POP AF
JP NZ, 985

  A sub-program in 1483 instead of JP NZ, 985 should
be RET NZ.

      CALL 5725; reading the file descriptor

      LD HL, 23782; preserving its parts

      LD DE, 23789

      LD BC, 7

      LDIR

      CALL 7344, installing a new file name

      PUSH AF; preservation of the check result

      PUSH BC; and file number

      LD A, (23798); retention rates drive -

                    Receiver

      LD (23801), A

      LD A, (23800); drive select - the source

      CALL 15819

      CALL 1029, setting the disk

      LD A, (23801); drive select - Receiver

      CALL 15819

      CALL 1029, setting the disk

      POP BC; restore the file number

      POP AF; and the check result of the new

                    filename

      JR NZ, 1779, if the file is not found, then copies
                    tion file

      CALL 1460; check the file extension

                    ""

      JR NZ, 1779, if copied another block, then

                    copy it

      CALL 1409; request OVERWRITE?

      JP NZ, 993; if there was a response to N, then OK
1779 CALL 1596; copying a file

      CALL 7747; overwrite the sector with the descriptor

                    File

      LD A, (23781) take the file extension

      CP "#"; a "#"?

      JP NZ, 993, and if not, then O.K.

      LD A, 10, a file search to 10 bytes

      LD (23814), A

      LD HL, 23782; the next block

      INC (HL)

      LD A, (23800); drive select - the source

      CALL 15819

      CALL 1460; search unit

      JP NZ, 993, and if not found, then O.K.

      CALL 5725; reading its descriptor

      LD HL, 23782; preserving its parts

      LD DE, 23789

      LD BC, 7

      LDIR

      LD A, (23801); drive select - Receiver

      CALL 15819

      CALL 1029, setting the disk

      JR 1779; repeat

 Address 1839. Copying a file with two drives.
Set 23793, 23843, 23800, 23801, 23794, 23759
and 23787.
1839 LD A, (23793), take the number of sectors

      OR A; all copied?

      RET Z; if so, return

      PUSH HL; conservation HL

      LD HL, 23843; address of the variable with the length of 
work                     whose memory areas


      SUB (HL); area enough?

      POP HL; recovery HL

      JR NC, 1909; if the workspace is not enough

                    a copy of the file

      LD A, (23793), copy the rest

      LD B, A

      * OR A; copied all

      LD (23793), A
1860 PUSH BC; preservation of copying
                    Mykh sectors

      LD A, (23800), the choice of drive-source

      CALL 15819

      POP BC; rehabilitation of mines
                    Fix sectors

      PUSH BC; and then save it

      LD HL, (23759) take the address of the workspace 
parameters                     myati


      PUSH HL; save it

      LD DE, (23794) take the address of the file on the dis
                    Re-source

      CALL 7741; boot sectors

      LD HL, (23796); installation addresses the following rough
                    ppy sectors

      LD (23794), HL; disk source

      LD A, (23801), the choice of drive-receiver

      CALL 15819

      POP HL; recovery addresses working

                    memory area

      POP BC; and the number of copied sectors
                    ditch

      LD DE, (23787) take the address of the file on the dis
                    ke-receiver

      CALL 7757; recording sectors

      LD HL, (23796); installation addresses the following rough
                    ppy sectors

      LD (23787), HL; disk-receiver

      JR 1839; repeat
1909 LD (23793), A; installation of the remaining quantitative
                    va sectors

      PUSH HL; conservation HL

      LD HL, 23843; copy as many sectors, the rate
                    lko

      LD B, (HL); fit into your workspace

      POP HL; recovery HL

      * OR A; reset battery

      JR 1860 copy sectors


              to be continued ...