City #35 04 декабря 1999

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

Likbez - a full disassembler ROM (part 27).

   ************* ****************** 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 6053. Move the file. Set 23763,
23843, 23759, 23765 and 23767.
6053 LD A, (23763) moved the whole file?

      OR A

      RET Z; if so, return

      PUSH HL; conservation HL

      LD HL, 23843; buffer enough to balance?

      SUB (HL)

      POP HL; recovery HL

      JR NC, 6109, if the buffer is not enough, then the 
transition                     burghers of the file


      LD A, (23763) take the remaining number of cross
                    Ktorov

      LD B, A

      XOR A; moved all

      LD (23763), A
6074 PUSH BC; preservation of moving
                    emyh sectors

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

      PUSH HL; preserving its

      LD DE, (23765) take the address of the relocatable

                    file in the old place

      CALL 7741; boot sectors

      LD HL, (23796); installation addresses the next hour
                    Tu file

      LD (23765), HL

      POP HL; recovery addresses working

                    area

      POP BC; and the number of transported sec
                    tori

      LD DE, (23767) take the address of the relocatable

                    file to a new location

      CALL 7757; recording sectors

      LD HL, (23796); installation addresses the next hour
                    Tu file

      LD (23767), HL

      JR 6053; repeat
6109 LD (23763), A; installation of the remaining

                    Sectors

      PUSH HL; conservation HL

      LD HL, 23843; take the length of the workspace in

                    sectors

      LD B, (HL)

      POP HL; recovery HL

      XOR A; reset battery

      JR 6074, moving sectors



Address 6121. Loading the sector buffer descriptor
file transfer descriptor. In case C-file number in the 
A-direction of movement (0 - in the variables otherwise - to 
read the sector). 6121 PUSH AF; conservation direction 
displacement                   of


      LD HL, 23756; the first sector of the catalog - 0

      LD (HL), 0

      LD A, C; number identification sector is described
                  satellite file
6128 SUB 1916

      JR C, 6135

      INC (HL)

      JR 6128
6135 ADD A, 16, take the number of descriptor in the sector

      LD C, A

      PUSH BC; save it

      CALL 1004; loaded into the buffer sector description
                  Telem

      POP BC; recovery rates of the descriptor in

                  sector

      POP AF; and direction of movement

      CALL 7332, the definition address of the descriptor fi
                  la in the buffer

      LD DE, 23773, take a second address for LDIR

      LD BC, 16; take the length of the descriptor

      OR A; setting the direction of movement

      JR Z, 6157

      EX DE, HL
6157 LDIR; transfer the file descriptor

      RET; Returns



Address 6160. Runs the command VERIFY. Set
23825 and 23611. It is also used to address:
6165 - the command LOAD. Set 23825 and
23611;
6168 - the command LOAD, PEEK and POKE. Set 23825, 23611 and 
23824. 6160 LD A, 255; verification file


      LD (23801), A
6165 CALL 6226; zeroing 23824
6168 CALL 6198; processing parameters and load

                   File

      CALL 7541; if there is a check in syntax

                   then return

      LD A, 255, the command LOAD

      LD (23824), A

      LD A, (23801) holds VERIFY?

      CP 255

      JP Z, 993, and if so, O.K.

      LD A, (23781) file extension B?

      CP "B"
Attention! If the operation was one sector file, then we must 
go, regardless of extension. 

      JP Z, 298; if so, the processing line AB
                   tostarta

      JP 993; otherwise O.K.


               to be continued ...