City #32 04 октября 1999

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

Likbez - a full disassembler ROM (part 25).

    ************* **************** 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 5554. Checking variable 23781. Accordingly, the content 
will be flagged Z, and self- content will be in the HL.

5554 LD HL, (23781) take the contents of the variable

                    23781

      LD A, H; checking it for 0

      OR L

      RET; Returns

Address 5560. Copy sectors. Set 23769,
23759, 23781, 23841, 23843 and 23771
5560 CALL 5554; all copied?

      RET Z; if so, return

      LD A, (23841), the first pass?

      OR A

      JR NZ, 5595, if so, the drive source is already in

                    drive

      LD HL, 10505; print BACKUP DISC

      CALL 9991

      LD HL, 10154; print INSERT SOURCE DISC

      CALL 9991
5585 CALL 4178; expectation pressing Y

      CP "Y"

      JR NZ, 5585

      CALL 7583; cleaning the bottom of the screen
5595 CALL 5554; all copied?

      RET Z; if so, return

      PUSH BC; preservation of BC and the number of seconds
                    tori

      PUSH HL

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

                    sectors

      LD C, (HL)

      LD B, 0

      POP HL; restoration of seconds
                    tori

      SBC HL, BC; reduction in the number of sectors

      POP BC; restore BC

      JP NC, 5700, if the working space ma
                    Lo, this is not the end

      LD BC, (23,781), take the remaining number of cross
                    Ktorov

      LD HL, 0; all copied

      LD (23781), HL
5624 PUSH BC; preservation of the number of sectors

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

      PUSH HL; save it

      CALL 5336, setting a floppy disk
                    source

      LD DE, (23771) take the address of sectors

                    drive-source

      LD B, C

      CALL 7741; boot sectors

      LD HL, (23796); installation addresses the following

                    group of sectors

      LD (23771), HL; disk source

      CALL 7575; clear screen

      LD HL, 10105; print BACKUP DISC

      CALL 9991

      LD HL, 10117; print INSERT DESTINATION DISC

      CALL 9991
5661 CALL 4178; expectation pressing Y

      CP "Y"

      JR NZ, 5601

      CALL 7583; cleaning the bottom of the screen

      LD A, (23841), the first pass?

      OR A

      CALL NZ, 5360, and if so, then check if

                    Disk Space

      POP HL; recovery addresses working

                    area

      POP BC; and the number of copied sectors
                    ditch

      LD DE, (23779) take the address of sectors

                    CD-Receiver

      LD B, C

      CALL 5348, setting a floppy disk
                    receiver

      CALL 7757; recording sectors

      LD HL, (23796); installation addresses the following

                    group of sectors

      LD (23779), HL; disk-receiver

      JP 5560; repeat
5700 LD (23871), HL; installation of the remaining quantitative
                    va sectors

      PUSH HL; preserving its

      LD HL, (23843) take the length of the working area

      LD C, (HL); many sectors will be copying
                    vat

      LD B, 0

      POP HL; to restore the remaining
                    lichestva sectors

      XOR A; reset battery

      JP 5624; Up


               to be continued ...