home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / FLOPPIES / SWFLOP.ZIP / SWFLOP.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-09-15  |  1.3 KB  |  68 lines
  1. ;========================================================================
  2. ;
  3. CODE_SEG        SEGMENT     PARA    'CODE'
  4. ;
  5.         ASSUME  CS:CODE_SEG
  6.     ASSUME    DS:CODE_SEG
  7. ;
  8.         ORG     100H            ;TO PACIFY EXE2BIN
  9. ;
  10. SWFLOP: JMP    INIT
  11. ;
  12. INT13H    DD    0    ;PLACE TO STORE THE ORIGINAL INT13H ADDR.
  13. JUNK      DW      0       ;PLACE TO POP JUNK FLAGS INTO
  14. RET_13     LABEL   DWORD   ;PLACE TO KEEP RETURN ADDR FOR INT13H 
  15. RET_13W DW    2 DUP(0)            
  16. ; 
  17. ;    
  18. INT13:    CMP    DL,00H        ;CHECK IF REQUEST FOR DRIVE A:
  19.     JNE    NOTA
  20. ;
  21.     MOV    DL,01H
  22.     JMP    ONWARD
  23. ;
  24. NOTA:    CMP    DL,01H
  25.     JNE    ONWARD
  26. ;
  27.     MOV    DL,00H
  28. ;
  29. ONWARD:    PUSHF
  30.     CALL     CS:INT13H
  31.     POP     CS:RET_13W     
  32.     POP     CS:RET_13W[2]      
  33.     POP     CS:JUNK       
  34.         JMP     CS:RET_13    
  35. ;
  36.     NOP            ;PAD FOR INT 27h
  37. ;
  38. INIT:    PUSH    DS
  39.     PUSH    ES
  40. ;
  41.     MOV    AH,35H        ;FIND WHERE INT 13H NOW POINTS
  42.     MOV    AL,13H
  43.     INT    21H
  44.     MOV    word ptr INT13H,BX    ;STASH OLD ADDR
  45.     MOV    BX,ES
  46.     MOV    word ptr INT13H[2],BX
  47. ;
  48.     LEA    DX,INT13    ;TAKE OVER INT13 
  49.     MOV    AH,25H
  50.     MOV    AL,13H
  51.     INT    21H    
  52. ;
  53.     POP    ES
  54.     POP    DS
  55.         LEA     DX,INIT         ;GET NUMBER OF BYTES 
  56.         INT     27H             ;THEN EXIT BUT STAY RESIDENT
  57. ;
  58. CODE_SEG    ENDS
  59. ;
  60. END    SWFLOP
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.