City #27 09 сентября 1999

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

Likbez - a full disassembler ROM (part 20).

    ************* **************** 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 4558. Runs the command LIST. Set
23825 and 23611.
4558 CALL 1067; check the second character string

      LD BC, 2; default print in stream 2

      LD (23771), BC

      JR Z, 4163, if the second character string ENTER

                   , The output directory

      CP "#"; if the second character string "?

      JR NZ, 4600, and if not, then set disk
                    yes

      LD (23645), HL; installation CH_ADD

      CALL 7691; reception rooms flow

      CALL 7564; take the current character

      CP 13; it ENTER?

      JR Z, 4163, if so, then the output directory

      CP ","; it "?

      JP NZ, 7450, and if not, then the error

      CALL 7722; the next character

      CALL 7613, receiving the name of the drive onto the stack

                    Calculator

      JR 4603; installation drive
4600 CALL 7647; CH_ADD installation and reception of the name

                    drive on a stack calculator
4603 CALL 7541; if there is a check in syntax

                   Then return

      CALL 7605; removing the name of the drive from the stack

                    Calculator

      EX DE, HL; redeployment of its address in HL

      CALL 7297; installation drive
4613 CALL 7541; if there is a check in syntax

                   Then return

      LD A, (23798) loading drive name v23801

      LD (23801), A

      CALL 1029, setting the disk

      LD A, (23771) take the number of flow

      CP 2, a 2?

      PUSH AF; save it

      CALL Z, 7555, and if so, clear the screen

      POP AF; restoration of flow rates

      CP 17, he is more than 16?

      JP NC, 7450, if so, the error

      CALL 7556; opening flow

      LD A, 255, the buffer is not clear, the memory of
                    change

      LD (23800), A

      CALL 4433; allocation of labor on
                    region

      LD HL, 24070; beginning of the disk into the buffer 
descriptor 

      LD DE, (23759) take the address WORKSP

      LD BC, 32; the length of the descriptor disk

      LDIR; saving disk descriptor

      CALL 1000; loaded into the buffer sector 0
                    Cones 0

      LD HL, 23845; buffer address

      PUSH HL; preserving its
4670 LD HL, 4275; address messages TITLE:

      PUSH BC; preservation of BC

      RST 24; print TITLE:

      LD HL, (23759) take the address WORKSP

      LD BC, 20, 20-byte

      ADD HL, BC

      RST 24; print the drive name

      LD HL, 4282; print DISC DRIVE:

      RST 1924

      LD A, (23798) take the number of drive

      ADD A, "A"; calculation of the drive name

      CALL 15746; print it

      CALL 15744; newline

      LD HL, (23759), the third byte of the descriptor disk

      LD BC, 3

      ADD HL, BC

      LD A, (HL); take a number of files on the dis
                    Ke

      LD HL, (23759), 19-byte

      LD BC, 19

      ADD HL, BC

      SUB (HL); calculation of the amount nestertyh

                    Files

      PUSH HL; save an 19-th byte

                    descriptor disk

      CALL 7587; print number nestertyh

                    Files

      LD HL, 4266; print FILE (S)

      RST 1924

      LD HL, (23759), 2-byte disk descriptor

      LD BC, Feb.

      ADD HL, BC

      LD A, (HL); take the disc type

      LD HL, 4302; address message 40 TRACKS, S. SI
                    DE

      CP 25, is 25?

      JR Z, 4754, and if so, print a message

      LD HL, 4322, addressed to the 80 TRACKS, S. SI
                    DE

      CP 24, is 24?

      JR Z, 4754, and if so, print a message

      LD HL, 4342; address message 40 TRACKS, D. SI
                    DE

      CP 23, is 23?

      JR Z, 4754, and if so, print a message

      LD HL, 4362, addressed to the 80 TRACKS, D. SI
                    DE


            to be continued ...