home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / microcrn / issue_32.arc / DISK.FIG < prev    next >
Text File  |  1979-12-31  |  5KB  |  196 lines
  1.  
  2. ((Disk Figs 1,2, and A printouts go with this article))
  3.  
  4. ((Disk Figure 1 - Program PC-DU))
  5.  
  6. ; PC-DU, a program to read and write disk sectors
  7. ; Illustrates disk I/O using ROM-BIOS interrupt 13h
  8. ;
  9. ;
  10. STACK    SEGMENT    PARA STACK 'STACK'
  11.     DB    256 DUP (0) ; 256 bytes for the stack
  12. STACK    ENDS
  13. ;
  14. ;
  15. DATA    SEGMENT    PARA PUBLIC 'DATA'
  16. BUFFER    DB    2048 DUP (0); Enough buffer space for 4 sectors
  17. ERRMSG    DB    'Something isn't working ! '
  18. SUCCES  DB    'Something is    working ! '          
  19. DATA    ENDS
  20. ;
  21. ;
  22. CODE    SEGMENT    PARA PUBLIC 'CODE'
  23. START    PROC    FAR
  24. ;
  25. ;
  26. ; Program prologue
  27. ;
  28.     ASSUME    CS:CODE
  29.     PUSH    DS    ; Save PSP Seg Addr
  30.     MOV    AX,0
  31.     PUSH    AX    ; Save Ret Addr offset (PSP + 0)
  32.     MOV    AX,DATA
  33.     MOV    DS,AX    ; Setup Data Seg 
  34.     ASSUME    DS:DATA
  35.     MOV    ES,AX    ; Setup Extra Seg
  36.     ASSUME    ES:DATA
  37. ;
  38. ;
  39. ; Read sectors from disk into memory
  40. ; In this example we'll read the 4 directory tracks --
  41. ; Side 0, Track 0, Sectors 4,5,6,7
  42. ;
  43. ;
  44.     MOV    CX,3    ; Retry 3 times if necessary
  45. RETRY:    PUSH    CX    ; Save retry count
  46.     MOV    BX,OFFSET BUFFER; We'll read the sectors into 
  47.             ; a buffer
  48.     MOV    DL,0    ; DL gets the drive (0=A;1=B)
  49.     MOV    DH,0    ; DH gets the side(0 or 1)
  50.     MOV    CH,0    ; CH gets the track(0-39)
  51.     MOV    CL,4    ; CL gets the sector(1-8)
  52.     MOV    AL,4    ; No. of sectors to read
  53.     MOV    AH,2    ; Service call 2 = read
  54.     INT    13h    ; BIOS disk I/O routine
  55.     POP    CX    ; Restore retry count
  56.     JNC    WRITSEC    ; Branch to write, if read ok
  57.     MOV    AH,0    ; Otherwise, reset
  58.     INT    13h
  59.     LOOP    RETRY    ; Try again (up to 3 times)
  60. ERROR:    MOV    BX,OFFSET ERRMSG
  61.     CALL    DISPLAY ; Display the error message 
  62.     RET        ; Return control to DOS
  63. ;
  64. ;
  65. ; Write sectors back out to disk
  66. ;
  67. WRITSEC:MOV    BX,OFFSET BUFFER; Here's the buffer where the 
  68.             ; read sectors are
  69.     MOV    DL,0    ; DL gets the drive (0=A;1=B)
  70.             ; Change this to 1 for a copy (see text)
  71.     MOV    DH,0    ; DH gets the side(0 or 1)
  72.     MOV    CH,0    ; CH gets the track(0-39)
  73.     MOV    CL,4    ; CL gets the sector(1-8)
  74.     MOV    AL,4    ; No. of sectors to write
  75.     MOV    AH,3    ; Service call 3 = write
  76.     INT    13h    ; BIOS disk I/O routine
  77.     JNC    SUCCESS ; Branch to ok message, if ok
  78.     JNC    ERROR    ; Else branch to error message
  79. ;
  80. ; Go get the message we want and display it
  81. ; 
  82. SUCCESS:MOV    BX,OFFSET SUCCES; Here's where the good message 
  83.             ; is
  84.     CALL    DISPLAY    ; Display the good message
  85.     RET        ; Return control to DOS
  86. ;
  87. ; Subroutine (or procedure) to set up display 
  88. ;
  89. DISPLAY    PROC    NEAR
  90.     MOV    CX,26    ; Display 26 characters
  91. DISP:    MOV    AL,[BX] ; Get next char to display
  92.     CALL    DISPCHAR; Display char
  93.     INC    BX    ; Point to next char
  94.     LOOP    DISP    ; Loop 26 times (value of CX reg)
  95.     MOV    AL,0DH    ; carriage return
  96.     CALL    DISPCHAR;
  97.     MOV    AL,0AH    ; line feed
  98.     CALL    DISPCHAR
  99.     RET        ; Return control to caller of DISPLAY
  100. DISPLAY    ENDP
  101. ;
  102. ; Subroutine to actually display messages
  103. ;
  104. DISPCHAR PROC    NEAR
  105.     PUSH    BX      ; Save BX
  106.     MOV    BX,0    ; Select display page 0
  107.     MOV    AH,14    ; Function code for write
  108.     INT    10H    ; Video interrupt
  109.     POP    BX    ; Restore BX
  110.     RET        ; Return control to caller of DISPCHAR
  111. DISPCHAR ENDP
  112. ;
  113. ;
  114. START    ENDP
  115. CODE    ENDS
  116.     END    START
  117.     
  118.  
  119.  
  120. ((Disk Figure 2 - Turbo Pascal & external assembler shell))
  121.  
  122. program PC_DU;       {  Turbo Pascal & assembler shell:
  123.                          for interactive PC-DU;
  124.                          does not include retries for reads
  125.                          or interactive details  }
  126.                                            
  127. TYPE
  128.     Size_of_Sector = ARRAY[0..511] of BYTE; { set up buffer 
  129.                                                to hold 1 sector }
  130.     
  131. VAR
  132.     Buffer : Size_of_Sector;
  133.         Drive, Track, Side, Sector : integer;
  134.  
  135. function SECREAD(
  136.     VAR    B : Size_of_Sector;
  137.         Drive : integer;
  138.         Track : integer;
  139.         Side : integer;
  140.         Sector : integer)
  141.     : BYTE;
  142.     
  143.     external 'secread.com';  { Secread is an external assembly 
  144.                                   language subroutine  }
  145.  
  146. function SECWRIT(
  147.     VAR    B : Size_of_Sector;
  148.         Drive : integer;
  149.         Track : integer;
  150.         Side : integer;
  151.         Sector : integer)
  152.     : BYTE;
  153.     
  154.     external 'secwrit.com';  { Secwrite is an external assembly
  155.                   language subroutine }
  156.  
  157. BEGIN
  158.   IF SECREAD(Buffer,Drive,Track,Side,Sector)= 0 {If no error}
  159.      THEN 
  160.         IF SECWRIT(Buffer,Drive,Track,Side,Sector)=0 {If no error}
  161.             THEN  Writeln('success is ours!')
  162.            ELSE write('Unable to read Track', Track,
  163.                             'Side',Side, 'Sector',Sector);
  164. END.
  165.  
  166. SECWRIT.ASM             ;subroutine to write 1 disk sector
  167.  
  168. code    segment    'code'
  169.     assume    cs:code
  170. ;
  171. SECWRIT    proc    near
  172.     push    BP
  173.     MOV    BP,SP
  174.     PUSH    DS
  175.     POP    ES
  176.     MOV    BX,[BP+12]
  177.     MOV    BL,[BP+10]
  178.     MOV    CH,[BP+8]
  179.     MOV    DH,[BP+6]
  180.     MOV    CL,[BP+4]
  181.     MOV    AL,1
  182.     MOV    AH,3
  183.     INT    19
  184.     MOV    AL,AH
  185.     POP    BP
  186.     RET    10
  187. SECREAD ENDP
  188. code    ends
  189.     end
  190.  
  191.  
  192. ((this is Disk Fig. A))
  193.  
  194. MOV    AH,0
  195. INT    13H
  196.