home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30A / DISKINFO.ASM < prev    next >
Assembly Source File  |  1994-12-03  |  14KB  |  722 lines
  1. ;**************************** DISKINFO.ASM **********************************
  2. PAGE  70,132
  3.  
  4. ;Purpose:  Display information about DOS and BIOS fixed disk setup
  5. ;Usage:  DISKINFO <seg>
  6. ;        where: <seg> is optional memory area to dump
  7.         
  8.     include    mac.inc
  9.     include    common.inc
  10. ;-----------------------------------------------------------------------------
  11.     extrn    library_setup:far
  12.     extrn    clear_screen:far
  13.     extrn    library_terminate:far
  14.     extrn    byte_to_hex_str:far
  15.     extrn    word_to_hex_str:far
  16.  
  17. ;------------------------------- STRUCTURES -----------------------------------
  18.  
  19. lists struc
  20. dpb_ptr    dd    ?        ;ptr to dpb for A:
  21.            dd    ?        ;ptr to system file table
  22.     dd    ?        ;ptr to clock dev
  23.     dd    ?        ;ptr to CON device
  24. bps_    dw    ?        ;max bytes per sector
  25.     dd    ?        ;ptr to disk buffer rec
  26.     dd    ?        ;ptr to array of current dir struc's
  27.     dd    ?        ;ptr to system FCB tables
  28.     dw    ?        ;number of FCB's
  29.     db    ?        ;number of block devices
  30. nulld    db    ?        ;start of null device header
  31. lists    ends
  32.  
  33. ; location 40:75 has number of fixed disks
  34. ; location 0:4c  (int 13) disk bios entry
  35. ; location 0:100 (int 40) grabber by fixed disk
  36. ; location 0:104 (int 41) has fixed disk 0 parameters
  37. ; location 0:118 (int 46) has fixed disk 1 parameters
  38. ;
  39.  
  40. fparm    struc
  41. f_num_cyl    dw    ?        ;number of cyl
  42. f_num_hd    db    ?        ;number of heads
  43. f_writec    dw    ?        ;write current
  44. f_precom    dw    ?        ;write precomp
  45. f_burst     db    ?        ;burst
  46. f_ctrl        db    ?        ;ctrl
  47.     db    ?
  48.     db    ?
  49.     db    ?
  50. f_landing    dw    ?        ;landing cyl
  51. f_sec_trk    db    ?        ;sect/track
  52. fparm    ends
  53.     
  54.     
  55. ;------------------------------------------------------------------------------
  56. code        segment para public 'CODE'
  57.         assume    cs:code, ds:code
  58. ;-----------------------------------------------------------------------------
  59. ; 
  60. pspseg        dw    0
  61. lib_info_ptr    dw    0
  62. lib_info_seg    dw    0
  63.  
  64.  
  65. file_asciiz        db    40 dup (0)
  66.  
  67. stacksize    equ    1024
  68.     db    stacksize dup (0)
  69. stack_    label    word
  70. ;
  71. signon_msg    label    byte
  72.  db 'diskinfo execution started --------------------------',0dh,0ah,0
  73.  
  74. app_text_color        db    07h,'background color',0
  75.  
  76.  
  77. ;-----------------------------------------------------------------------------
  78. start:
  79.     cli
  80.     mov    cs:pspseg,es    ;save PSP segment
  81.     mov    ax,cs        ;get CODE segment
  82.     mov    ss,ax
  83.     mov    ds,ax
  84.     mov    es,ax
  85.     mov    sp,offset stack_
  86.     sti
  87.     
  88. ; next, release memory beyond the end of the program
  89. ; The  definition for ZSEG marks the
  90. ; end of the program's code, data and stack area.
  91. ; When linking be sure ZSEG is at the end of the program.
  92.  
  93.     mov    ax,zseg
  94.  
  95.     mov    bx,cs:pspseg        ;
  96.     mov    es,bx
  97.     sub    bx,ax
  98.     neg    bx            ; size of program in paragraphs
  99.     mov    ah,4Ah            ; resize memory block
  100.     int    21h
  101.  
  102.     mov    ax,cs
  103.     mov    es,ax
  104. ;
  105. ; check if enough memory free to run program
  106. ;
  107.     mov    ax,pspseg        ;pass psp segment to setup
  108.     mov    bx,0            ;number of floating point variables
  109.     call    library_setup
  110.     mov    lib_info_ptr,si        ;save ptr to library info block
  111.     mov    lib_info_seg,es         ; see COMMON.INC or LIBRARY_SETUP
  112.     cmp    ax,128
  113.     jae    got_enough_mem        ;jmp if 128k of memory avail
  114.     jmp    exitx
  115.     
  116. got_enough_mem:
  117. ;
  118. ; display signon message
  119. ;
  120.     mov    si,offset signon_msg
  121.     call    display
  122.     call    crlf
  123.  
  124.     call    show_vectors
  125.  
  126.     call    show_bios_data
  127.  
  128.     call    show_devices
  129.  
  130.     call    show_dpb
  131.  
  132.     call    show_memory
  133.  
  134.     
  135. exit:
  136.  
  137. ; normal program exit
  138.  
  139. exitx:    mov    ax,1
  140.     call    library_terminate
  141.     mov    ax,4C00h
  142.     int    21h
  143.  
  144.  
  145. ;------------------------------------------------------------------------
  146.  
  147. probe_msg1    label    byte
  148.  db 'int13 reset returns       '
  149. stuff_0    db '   (drive 0)       '
  150. stuff_1 db '   (drive 1)',0
  151.  
  152. probe_msg2    label    byte
  153.  db ' vectors  int13 [0000:004c] = '
  154. stuff_a1 db '    :         int40 [0000:0100] = '
  155. stuff_a2 db '    :     ',0
  156.  
  157. probe_msg3    label    byte
  158.  db ' BIOS fixed disk count [0000:0075] = '
  159. stuff_c db '    ',0
  160.  
  161. ;--------------------------------------- 
  162. show_vectors:
  163. ;
  164. ; issue reset to both possible fixed disks
  165. ;
  166.     mov    ah,0dh
  167.     mov    dl,80h
  168.     int    13h
  169.     jc    sv_ok1
  170.     mov    ah,0
  171. sv_ok1:    mov    al,ah
  172.     mov    si,offset stuff_0
  173.     call    byte_to_hex_str
  174. ;
  175.     mov    ah,0dh
  176.     mov    dl,81h
  177.     int    13h
  178.     jc    sv_ok2
  179.     mov    ah,0
  180. sv_ok2:    mov    al,ah
  181.     mov    si,offset stuff_1
  182.     call    byte_to_hex_str
  183. ;
  184.     mov    si,offset probe_msg1
  185.     call    display
  186. ;
  187. ; display int13 vector
  188. ;
  189.     sub    ax,ax
  190.     mov    es,ax
  191.     mov    ax,es:4ch
  192.     mov    dx,es:4eh
  193.     push    ds
  194.     pop    es
  195.     mov    si,offset stuff_a1
  196.     call    store_address
  197. ;
  198. ; display int40 vector
  199. ;
  200.     sub    ax,ax
  201.     mov    es,ax
  202.     mov    ax,es:100h
  203.     mov    dx,es:102h
  204.     push    ds
  205.     pop    es
  206.     mov    si,offset stuff_a2
  207.     call    store_address
  208.  
  209.     mov    si,offset probe_msg2
  210.     call    display
  211. ;
  212. ; display BIOS fixed disk count
  213. ;
  214.     sub    ax,ax
  215.     mov    es,ax
  216.     mov    al,es:[475h]
  217.     push    ds
  218.     pop    es
  219.     mov    si,offset stuff_c
  220.     call    byte_to_hex_str
  221.  
  222.     mov    si,offset probe_msg3
  223.     call    display
  224.     call    crlf        
  225.         
  226.     ret
  227. ;------------------------------------------------------------------------
  228. sb_msg1 db 'BIOS fixed disk vector at int41 [0000:0104] points to '
  229. stuff_b1 db '    :    ',0
  230. sb_msg2 db 'BIOS fixed disk vector at int46 [0000:0118] points to '
  231. stuff_b2 db '    :    ',0
  232. ;----------------------------------
  233. show_bios_data:
  234.     push    es
  235.     mov    ax,0
  236.     mov    es,ax
  237.     les    di,es:[104h]
  238.  
  239.     mov    ax,di
  240.     mov    dx,es
  241.     mov    si,offset stuff_b1
  242.     call    store_address
  243.     
  244.     mov    si,offset sb_msg1
  245.     call    display
  246.     call    show_bios_sub
  247.     call    crlf
  248. ;
  249. ; show drive 1
  250. ;
  251.     mov    ax,0
  252.     mov    es,ax
  253.     les    di,es:[118h]
  254.  
  255.     mov    ax,di
  256.     mov    dx,es
  257.     mov    si,offset stuff_b2
  258.     call    store_address
  259.     
  260.     mov    si,offset sb_msg2
  261.     call    display
  262.     call    show_bios_sub
  263.     call    crlf
  264.     
  265.     pop    es    
  266.     ret
  267. ;-----------------------------------
  268. ; inputs:  es:di = ptr to block
  269. ;
  270. show_bios_sub:
  271.  
  272.     mov    ax,es:[di.f_num_cyl]
  273.     mov    si,offset stuff_s1
  274.     call    word_to_hex_str
  275.     mov    si,offset sbd_msg1
  276.     call    display
  277.     
  278.     mov    al,es:[di.f_num_hd]
  279.     mov    si,offset stuff_s2
  280.     call    byte_to_hex_str
  281.     mov    si,offset sbd_msg2
  282.     call    display
  283.     
  284.     mov    ax,es:[di.f_writec]
  285.     mov    si,offset stuff_s3
  286.     call    word_to_hex_str
  287.     mov    si,offset sbd_msg3
  288.     call    display
  289.     
  290.     mov    ax,es:[di.f_precom]
  291.     mov    si,offset stuff_s4
  292.     call    word_to_hex_str
  293.     mov    si,offset sbd_msg4
  294.     call    display
  295.     
  296.     mov    al,es:[di.f_burst]
  297.     mov    si,offset stuff_s5
  298.     call    byte_to_hex_str
  299.     mov    si,offset sbd_msg5
  300.     call    display
  301.     
  302.     mov    ax,es:[di.f_landing]
  303.     mov    si,offset stuff_s6
  304.     call    word_to_hex_str
  305.     mov    si,offset sbd_msg6
  306.     call    display
  307.     ret    
  308.  
  309. sbd_msg1 db '  number of cylinders = '
  310. stuff_s1 db '    ',0
  311. sbd_msg2 db '  number of heads = '
  312. stuff_s2 db '    ',0
  313. sbd_msg3 db '  write current = '
  314. stuff_s3 db '    ',0
  315. sbd_msg4 db '  pre compensation = '
  316. stuff_s4 db '    ',0
  317. sbd_msg5 db '  burst rate = '
  318. stuff_s5 db '    ',0
  319. sbd_msg6 db '  landing cylinder = '
  320. stuff_s6 db '    ',0    
  321. ;------------------------------------------------------------------------
  322. ; displayl device chain
  323. ;
  324.  
  325. ddhead    struc
  326. next_dd        dd    0    ;
  327. attrib        dw    0    ;
  328. strat_ptr    dw    0    ;
  329. int_ptr        dw    0    ;
  330. dev_name    db    8 dup (0);
  331. ddhead    ends
  332.  
  333.  
  334.  
  335. show_devices:
  336.     push    es
  337. ;
  338.     mov    ah,52h        ;get dos variables
  339.     int    21h
  340.                 ;es:bx -> vars
  341.     add    bx,22h        ;get to nul device
  342.  
  343.     call    crlf
  344.     mov    dx,offset head0
  345.     call    string_out
  346.  
  347. loop1:
  348.     call    prt_dd        ;print device driver info
  349.     cmp    word ptr es:[bx],0FFFFh    ;check if last driver in chain
  350.     je    done        ;yes - so exit
  351.     les    bx,es:[bx]    ;get address of next driver
  352.     jmp    short loop1        
  353.  
  354. done:    pop    es
  355.     ret
  356. ;-----------------------------
  357.  
  358. prt_dd    proc    near        
  359. ;Print pertinent field of device driver header
  360. ;Input: ES:BX points to device driver header
  361. ;Output: None
  362.  
  363.     push    ax        ;save registers
  364.     push    bx
  365.     push    cx
  366.     push    dx
  367.     push    si
  368.  
  369.     mov    dx,es        ;segment of device driver
  370.     call    hex_to_ascii
  371.     mov    al,':'
  372.     call    char_out
  373.  
  374.     mov    dx,bx        ;offset of device driver
  375.     call    hex_to_ascii
  376.     mov    al,' '
  377.     call    char_out
  378.     mov    al,' '
  379.     call    char_out
  380.  
  381.     mov    dx,es:[bx.attrib]    ;attribute
  382.     call    hex_to_ascii
  383.     mov    al,' '
  384.     call    char_out
  385.     mov    al,' '
  386.     call    char_out
  387.  
  388.     mov    dx,es        ;Print SEG:OFS of Strategy
  389.     call    hex_to_ascii
  390.     mov    al,':'
  391.     call    char_out
  392.     mov    dx,es:[bx.strat_ptr]
  393.     call    hex_to_ascii
  394.     mov    al,' '
  395.     call    char_out
  396.  
  397.     mov    dx,es        ;Print SEG:OFS of Interrupt
  398.     call    hex_to_ascii
  399.     mov    al,':'
  400.     call    char_out
  401.     mov    dx,es:[bx.int_ptr]
  402.     call    hex_to_ascii
  403.  
  404.     mov    al,' '
  405.     call    char_out
  406.     mov    al,' '
  407.     call    char_out
  408.  
  409.     mov    ax,es:[bx.attrib];Print BLOCK or CHAR
  410.     and    ax,0f000h
  411.     test    ax,8000h
  412.     jnz    is_char        ;Has Character Attribute
  413.  
  414.     mov    dx,offset block    ;Print Out Block Info
  415.     call    string_out    
  416.     mov    al,' '
  417.     call    char_out
  418.  
  419.     mov    al,es:[bx+10]
  420.     add    al,48
  421.     call    char_out
  422.     jmp    prt_dd1
  423.  
  424. is_char:mov    dx,offset char    ;Print Out Character Info
  425.     call    string_out
  426.     mov    al,' '
  427.     call    char_out
  428.     mov    si,bx
  429.     add    si,10
  430.     mov    cx,8
  431.  
  432. is_char_loop:            ;Print Out Character Device Name
  433.     mov    al,es:[si]
  434.     inc    si    
  435.     call    char_out
  436.     loopnz    is_char_loop
  437.  
  438. prt_dd1:
  439.     call    crlf
  440.  
  441.     pop    si        ;restore registers
  442.     pop    dx
  443.     pop    cx
  444.     pop    bx
  445.     pop    ax
  446.     ret    
  447. prt_dd    endp
  448. ;-----------------------------------
  449. char_out proc near  ;output character in al
  450.     push    dx
  451.     mov    dl,al
  452.     mov    ah,2
  453.     int    21h
  454.     pop    dx
  455.     ret
  456. char_out    endp
  457.  
  458.  
  459. hex_to_ascii    proc    near    ;output hex word in dx 
  460.     push    cx
  461.     push    ax
  462.     mov    cx,4
  463. hex1:
  464.     push    cx
  465.     mov    cl,4
  466.     rol    dx,cl
  467.     mov    al,dl
  468.     and    al,0fh
  469.     daa
  470.     add    al,0f0h
  471.     adc    al,040h
  472.     call    char_out
  473.     pop    cx
  474.     loop    hex1
  475.     
  476.     pop    ax
  477.     pop    cx    
  478.     ret
  479. hex_to_ascii    endp
  480.  
  481. string_out    proc    near    ;print a string pointed to by DS:DX
  482.                 ;first byte of string is length
  483.  
  484.     push    ax
  485.     push    bx
  486.     push    cx
  487.     push    dx
  488.     mov    ah,40h
  489.     mov    bx,dx
  490.     inc    dx    ;point to string
  491.     mov    cl,[bx]    ;get length
  492.     mov    ch,0
  493.     mov    bx,1    ;standard output
  494.     int    21h
  495.     pop    dx
  496.     pop    cx
  497.     pop    bx
  498.     pop    ax
  499.     ret
  500. string_out    endp
  501.  
  502. ;
  503. ;data
  504. ;
  505.  
  506. head0    db    162,'     D E V I C E    D R I V E R    C H A I N      ',13,10
  507.         db        'Drv Addrs  Atrb  Strategy  Interrupt  Type  Name/Unit',13,10
  508.     db        '---------  ----  --------- ---------  ----- ---------',13,10
  509. block    db    5,'Block'
  510. char    db    5,'Char '
  511. ;
  512.  
  513.  
  514.     ret
  515. ;------------------------------------------------------------------------
  516.     
  517. dpb    struc
  518. dpb_dr    db    ?        ;drive number 0=a:
  519. dpb_u    db    ?        ;unit
  520. dpb_bs    dw    ?        ;bytes per sector
  521. dpb_sc    db    ?        ;sectors/cluster
  522.     db    ?
  523. dpb_r    dw    ?        ;reserved sectors at start
  524. dpb_f    db    ?        ;number of fats
  525. dpb_rn    dw    ?        ;max entries in root
  526. dpb_d1    dw    ?        ;first data sector
  527. dpb_cl    dw    ?        ;clusters
  528. dpb_sf    dw    ?        ;sectors per fat
  529. dpb_dir    dw    ?        ;first dir sector
  530. dpb_dev    dd    ?        ;ptr to device drvr
  531. dpb_m    db    ?        ;media byte
  532. dpb_a    db    ?        ;disk accessed yet, ff=no
  533. dpb_nex    dd    ?        ;ptr to next dpb
  534. dpb    ends
  535.  
  536.  
  537. show_dpb:
  538.     call    crlf
  539.     
  540.     push    es
  541.     push    ds
  542.     mov    ah,32h
  543.     mov    dl,03        ;get DPB for drive c:
  544.     int    21h
  545.     mov    di,bx        ;offset to -di-
  546.     mov    bx,ds
  547.     mov    es,bx        ;set to -es-
  548.     pop    ds
  549. sh_loop:
  550.     mov    ax,es
  551.     cmp    ax,-1
  552.     je    sh_done        ;jmp if last dpb
  553.     call    show_dpb_sub
  554.     les    di,dword ptr es:[di.dpb_nex]
  555.     jmp    sh_loop    
  556. sh_done:
  557.     pop    es
  558.     ret
  559.  
  560. dpb_msg1 db 'DPB (Disk paramter block) for fixed disk, stored at ['
  561. stuff_dp1 db '    :    ]',0
  562. ;---------------------------
  563. ; inputs:  es:di point at DPB
  564. ;
  565. show_dpb_sub:
  566.     mov    ax,di
  567.     mov    dx,es
  568.     mov    si,offset stuff_dp1
  569.     call    store_address
  570.     mov    si,offset dpb_msg1
  571.     call    display
  572. ;
  573. ; drive number
  574. ;
  575.     mov    al,es:[di.dpb_dr]
  576.     mov    si,offset stuff_dr
  577.     call    byte_to_hex_str
  578.     mov    si,offset dpb_dr_msg
  579.     call    display
  580.             
  581. ;
  582. ; unit number
  583. ;
  584.     mov    al,es:[di.dpb_u]
  585.     mov    si,offset stuff_u
  586.     call    byte_to_hex_str
  587.     mov    si,offset dpb_u_msg
  588.     call    display
  589. ;
  590. ; bytes per sector
  591. ;
  592.     mov    ax,es:[di.dpb_bs]
  593.     mov    si,offset stuff_bs
  594.     call    word_to_hex_str
  595.     mov    si,offset dpb_bs_msg
  596.     call    display
  597. ;
  598. ; sectors per cluster
  599. ;
  600.     mov    al,es:[di.dpb_sc]
  601.     mov    si,offset stuff_sc
  602.     call    byte_to_hex_str
  603.     mov    si,offset dpb_sc_msg
  604.     call    display
  605. ;
  606. ; reserved sectors
  607. ;
  608.     mov    ax,es:[di.dpb_r]
  609.     mov    si,offset stuff_r
  610.     call    word_to_hex_str
  611.     mov    si,offset dpb_r_msg
  612.     call    display
  613. ;
  614. ; number of fats
  615. ;
  616.     mov    al,es:[di.dpb_f]
  617.     mov    si,offset stuff_f
  618.     call    byte_to_hex_str
  619.     mov    si,offset dpb_f_msg
  620.     call    display
  621. ;
  622. ; skip forward
  623. ; device driver
  624. ;
  625.     mov    ax,word ptr es:[di.dpb_dev]
  626.     mov    dx,word ptr es:[di.dpb_dev+2]
  627.     mov    si,offset stuff_dev
  628.     call    store_address
  629.     mov    si,offset dpb_dev_msg
  630.     call    display
  631. ;
  632. ; accessed yet flag
  633. ;
  634.     mov    al,es:[di.dpb_a]
  635.     mov    si,offset stuff_a
  636.     call    byte_to_hex_str
  637.     mov    si,offset dpb_a_msg
  638.     call    display
  639.             
  640.     ret
  641.     
  642. dpb_dr_msg    db '  drive# (0=A:) '
  643. stuff_dr    db '  ',0
  644. dpb_u_msg    db '  unit# '
  645. stuff_u        db '  ',0
  646. dpb_bs_msg    db '  bytes per sector = '
  647. stuff_bs    db '    ',0
  648. dpb_sc_msg    db '  sectors per cluster = '
  649. stuff_sc    db '  ',0    
  650. dpb_r_msg    db '  reserved sectors = '
  651. stuff_r        db '    ',0
  652. dpb_f_msg    db '  number of fats = '
  653. stuff_f        db '    ',0
  654. dpb_dev_msg    db '  device driver at '
  655. stuff_dev    db '    :    ',0
  656. dpb_a_msg    db '  disk accessed yet, ff=no - '
  657. stuff_a        db '  ',0
  658. ;------------------------------------------------------------------------
  659. show_memory:
  660.     ret
  661. ;------------------------------------------------------------------------
  662.  
  663. ;------------------------------------------------------------------------
  664. ;------------------------------------------------------------------------
  665. ; display - display one line to stdout
  666. ;  inputs:  ds:si = msg
  667. ;
  668. display:
  669.     lodsb
  670.     or    al,al
  671.     jz    crlf
  672.     mov    dl,al
  673.     mov    ah,2
  674.     int    21h
  675.     jmp    display
  676. ;------------------------------------------------------------------------
  677. crlf:    mov    dl,0dh
  678.     mov    ah,02h
  679.     int    21h
  680.     mov    dl,0ah
  681.     mov    ah,02h
  682.     int    21h
  683.     ret
  684. ;------------------------------------------------------------------------
  685. ; store_address - display segment:offset
  686. ;  ax = offset
  687. ;  dx = segment
  688. ;  ds:si = storage point
  689. ;
  690. store_address:
  691.     apush    ax,dx,di,si
  692.     xchg    ax,dx
  693.     call    word_to_hex_str
  694.     mov    byte ptr ds:[si],':'
  695.     inc    si
  696.     xchg    ax,dx
  697.     call    word_to_hex_str
  698.     apop    si,di,dx,ax
  699.     ret
  700. ;------------------------------------------------------------------------
  701.  
  702.     
  703. code        ends
  704.  
  705. ;-------------------------------------------------------------------------
  706. ;
  707. ; This segment definition is needed so linker will put the LIBSEG here
  708. ; before the ZSEG.  We want ZSEG to be last so memory allocation will
  709. ; work correctly.
  710. ;
  711. LIBSEG           segment byte public 'LIB'
  712. LIBSEG    ENDS
  713. ;-------------------------------------------------------------------------
  714. ; zseg must be at the end of the program for memory allocation from
  715. ; DOS.
  716. ;
  717. zseg    segment    para public 'ZZ'
  718.  
  719. zseg    ends
  720.  
  721.         end    start
  722.