City #44 19 мая 2000

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

Likbez - a full disassembler ROM (part 34).

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

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

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

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


(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 7248. Handling errors FILE EXISTS.
7248 LD HL, 10693; mail messages FILE EXISTS

      LD A, 2; error code - 2

      JR 7242, error handling

Address 7255. Setting the file name. Set 23645
on the file name. Will be selected by the drive and installed
variable is 23773.
7255 LD HL, 23773; address of a variable with a file name

      LD B, 8; its length - 8 bytes
7260 LD (HL), ""; cleaning her

      INC HL

      DJNZ 7620

      CALL 1329; withdrawal line from the stack Calculator
                  torus

      EX DE, HL

      CALL 7297; installation drive

      LD A, C; filename - the empty string?

      OR A
Error in the program! There must be OR B.

      JP Z, 7450, if so, the error

      CP 9; in the file name longer than 8 characters

      JR Z, 7283, and if so, cut off his

      LD C, 8
Attention! It will not work correctly with file name length 
longer than 255 characters. 7283 LD A, (HL); take the first 
character filename 

      CP ""; its code is less than 32?

      JP C, 7450, if so, the error

      LD DE, 23773, and the address of the variable with the 
file name 

      PUSH BC; conservation name length

      LDIR; set name

      POP BC; recovery length name

      RET; Returns

Address 7297. Installing the drive for file operations. In HL 
put the beginning of the file name in ASCII representation, but 
in BC - its length. HL installed on beginning of the name 
without a floppy drive, and BC will be its length. 7297 INC HL; 
take the address of the next character 

                   Name

      LD A, (HL); take this symbol

      CP ":"; a colon?

      JR NZ, 7230, and if not, then activate the disco
                   Water default

      DEC HL; take the address of the name of the drive

      LD A, (HL); take the name of the drive

      CALL 1316; transformation in the name of the drive

                   its number

      PUSH BC; saving file name length

      PUSH HL; name and address of the drive

      CALL 15819; drive select

      POP HL; recovery addresses behalf Thesis
                   kovoda

      POP BC; and file name length

      DEC BC; cut off 2 characters

      DEC BC

      INC HL; take the address of the file name without 
dispersion                    kovoda


      INC HL

      RET; Returns
7320 DEC HL; take the address of the file name

      LD A, (23833), take the drive by default

      PUSH BC; preserving the length and address named

                   File

      PUSH HL

      CALL 15819; drive select

      POP HL; restoration of length and addresses

                   filename

      POP BC

      RET; Returns


              to be continued ...