City #29 19 сентября 1999

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

Likbez - a full disassembler ROM (part 22).

   ***************** ************** LIKBEZ


(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 4960. Runs the command COPY S. Set
23825 and 23611.
4960 CALL 7621; installation CH_ADD

      CALL 7722; the next character

      CALL 7613, receiving the file name on stack calcium
                   kulyatora

      CALL 7541; if there is a check in syntax

                   then return

      CALL 5743; reserve space in memory

      LD HL, 10154; print INSERT SOURCE DISC

      CALL 9991
4981 CALL 4178; entered via the keyboard

      CP "Y"; is Y?

      JR NZ, 4981, and if not, then repeat

      CALL 7583; cleaning the bottom of the screen

      CALL 4142, receiving a file extension

      CALL 7344; installation file name

      JP NZ, 985, and if no such file exists, then the error
                   ka

      CALL 5047; copying a file

      LD A, (23781) file extension #?

      CP "#"

      JP NZ, 993, and if not, then O.K.
5011 LD A, 10, a file search to 10 characters

      LD (23814), A

      LD HL, 23782; the next block

      INC (HL)

      CALL 7575; clear screen

      LD HL, 10154; print INSERT SOURCE DISC

      CALL 9991
5029 CALL 4178; input keys

      CP "Y"; is Y?

      JR NZ, 5029, and if so, repeat

      CALL 7347; search unit

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

      CALL 5047; copy block

      JR 5011; repeat

Address 5047. Copying a file on one drive.
File number put in the register C.
5047 CALL 5725; reading the file descriptor

      LD HL, 23782; preserving its parts

      LD DE, 23789

      LD BC, 7

      LDIR

      LD A, (23793), setting the file size in sectors
                    tures

      LD (23824), A

      CALL 1029, setting the disk

      CALL 15889; saving mode drive

      LD (23769), A

      LD A, 255, the first pass

      LD (23841), A
Attention! This variable is already taken. It stores the first 
3 letters of the command line. 

      CALL 5201, file copy

      LD HL, (23839) take the address of the file on disk -

                     receiver

      LD (23787), HL; install it

      LD HL, (23698) take the new address of the free

                     Disk Space

      LD (24070), HL; install it

      LD HL, 24073; recorded 1 file

      INC (HL)

      LD C, (HL); take the file number

      DEC C

      LD B, 0, translate it into double-byte

                     form

      PUSH BC; save it

      LD DE, 9, burn the track sector 8 0

      LD (23796), DE

      CALL 7747; record sector

      POP BC; restore the file number

      CALL 5739; reading and replacement of the descriptor fi
                     la

      CALL 7747; record sector descriptor

      RET; Returns

Address 5123. Check availability of free
CD-receiver for the command COPY S. Place the file descriptor 
in the 23773 and its part in 23789 and 23824 set. In the drive 
to be drive-receiver. Sub-sets 23786, 23787 and 23839.

5123 XOR A; not the first pass

      LD (23841), A

      CALL 1029, setting the disk

      CALL 15889; take the drive mode

      LD (23770), A; save it

      CALL 7347; file search

      JP Z, 7248, and if found, then FILE EXISTS

      CALL 1021; boot sector of the buffer 8 to
                    Cones 0

      LD A, (24073) take the number of files on the dis
                    Ke

      CP 128; their 128?

      JP Z, 10,019, and if so, what DIRECTORY FULL

      LD HL, 23789; restore the file descriptor

      LD DE, 23782

      LD BC, 7

      LDIR

      CALL 1021; boot sector of the buffer 8 to
                    Cones 0

      LD A, (23824); restore the file length in

                    sectors

      LD (23786), A

      LD DE, (23786); translate it into double-byte form

      LD D, 0

      OR A; reset flag C

      LD HL, (24074), reduces the free space on

                    CD

      SBC HL, DE

      JP C, 7237, if it was not enough, then NO SPACE

      LD (24074), HL; installation of a new number

                    free disk space

      LD HL, (24070) take the address space on

                    CD

      LD (23787), HL; installation disk file address

                    - Receiver

      LD (23839), HL; preserving its

Oh my God! Well it is! Because this variable -
Flag ways to call TR-DOS. And on such a DOS all work. The 
horror of some sort. 

      RET; Returns


                to be continued ...