home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / MACHINE / IBMPC / DJGCC / GCCFIX.ASM next >
Encoding:
Assembly Source File  |  1995-11-25  |  2.6 KB  |  97 lines
  1. ;   File To Fix DJGCC V1.09 bug that doesn't allow IOCTL read/writes
  2. ;
  3. ;   Written 2/9/93 by Aaron A. Collins
  4. ;   This file is hereby placed in the public domain.
  5. ;
  6. ;   Version 1.1 - minor entry/exit fixes 6/1/93 - AAC
  7. ;
  8. ;   Things that need IOCTL read/write operations simply need to be
  9. ;   recoded to use 0x440A and 0x440B (which DJGCC's go32 passes).
  10. ;   This converts them to the proper 0x4402 or 0x4403 as required,
  11. ;   then executes the DOS interrupt.
  12. ;        
  13.     .RADIX    16
  14. ; 
  15. CSEG    segment para public 'CODE'
  16.     assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG
  17. ;
  18. main    proc    near
  19. ;
  20.     org    100
  21. ;
  22. begin:    jmp    start            ; entry point according to 'end' statement
  23. ;
  24. olddv:    dw    0000
  25. oldds:    dw    0000
  26. ;
  27. ;
  28. start:    push    es
  29.     push    ds
  30.     push    cs            ; litter seg registers with our CS
  31.     pop    ds
  32.     cli
  33.     mov    ah,35            ; get vector, save and effect mine.
  34.     mov    al,21            ; get vector of DOS fn. interrupt
  35.     int    21
  36.     mov    word ptr [olddv],bx    ; store vector offset of old...
  37.     mov    ax,es
  38.     mov    word ptr [oldds],ax    ; store vector segment of old...
  39.     lea    dx,dosint        ; get effective address of int srvr.
  40.     mov    ah,25            ; set new interrupt vector
  41.     mov    al,21            ; set vector of DOS fn. interrupt
  42.     int    21
  43.     sti
  44.     pop    ds
  45.     pop    es
  46.     mov    dx,((finish-begin+115) SHR 4) ; add file length to PSP >> para
  47.     mov    ax,3100            ; DOS TSR with retcd = 00.
  48.     int    21
  49.     mov    ax,4c01            ; DOS Program Terminate, retcd = 01
  50.     int    21            ; we should never get here...
  51.     ret
  52. ;
  53. main    endp
  54. ;
  55.     even
  56. ;
  57. ;dosint    proc    far            ; DOS function int. service routine
  58. ;
  59. ;    pushf                ; simulate building Int stack structure
  60. ;    pushf                ; save flags we are about to trash
  61. ;    cmp    cx,1E            ; make sure this is a Targa read/write?
  62. ;    jnz    around
  63. ;    cmp    ax,440A            ; bogus IOCTL read call?
  64. ;    jz    yup            ; Yes - modify it, else do DOS call
  65. ;    cmp    ax,440BH        ; bogus IOCTL write call?
  66. ;    jnz    around            ; No - do DOS call straight away...
  67. ;yup:    sub    al,8
  68. ;    jmp    around
  69. ;wierd:    iret                ; this is really strange but it works!
  70. ;around: popf                ; restore saved flags
  71. ;    push    cs            ; simulate building Int stack structure
  72. ;    call    wierd
  73. ;    jmp    dword ptr cs:[olddv]     ; simulated far call to prev. INT 21 vector
  74. ;
  75. ;dosint    endp
  76. ;
  77. dosint    proc    far            ; DOS function int. service routine
  78. ;
  79.     pushf                ; save flags we are about to trash
  80.     cmp    cx,1E            ; make sure this is a Targa read/write?
  81.     jnz    around
  82.     cmp    ax,440A            ; bogus IOCTL read call?
  83.     jz    yup            ; Yes - modify it, else do DOS call
  84.     cmp    ax,440BH        ; bogus IOCTL write call?
  85.     jnz    around            ; No - do DOS call straight away...
  86. yup:    sub    al,8
  87. around: popf                ; restore saved flags
  88.     jmp    dword ptr cs:[olddv]     ; simulated far call to prev. INT 21 vector
  89. ;
  90. dosint    endp
  91. ;
  92. finish:    db    0
  93. ;
  94. CSEG    ends
  95. ;
  96.     end    begin
  97.