home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / CNEWS005.ZIP / USR-BIN.ARC / F_API.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-03-04  |  4.7 KB  |  162 lines
  1.     PAGE    55,132
  2.     NAME    f_api
  3.     TITLE    FOSSIL Interface Routines for Microsoft C and Turbo C
  4.     SUBTTL    Copyright 1988 Marshall Presnell; All Rights Reserved
  5.  
  6. ;************************************************************************; 
  7. ;*                                    *; 
  8. ;*        Assembled with Microsoft Macro Assembler version 5        *; 
  9. ;*           using MIXED.MAC mixed language macro package.        *; 
  10. ;*                                    *; 
  11. ;************************************************************************; 
  12.  
  13. ; NOTE: These functions act... well.... strange. They DO load the proper
  14. ;    registers and execute the INT 14 call, but somehow I haven't 
  15. ;    figured out why the code doesn't hook the timer tick.....
  16. ;
  17. ;    Will examine it closer and make a later version available when I
  18. ;    figure the problem out. Or if YOU figure it out, send me a copy
  19. ;    (and an explanation!)
  20.  
  21. ;========================================================================; 
  22. ;=----------------------------------------------------------------------=; 
  23. ;=-                                                                    -=; 
  24. ;=-          THIS MODULE HAS BEEN RELEASED FOR USE IN C NEWS           -=; 
  25. ;=-                                             -=; 
  26. ;=-        ANY QUESTIONS, COMMENTS, OR PROBLEMS SHOULD BE ADDRESSED TO    -=; 
  27. ;=-                                             -=; 
  28. ;=-                 MARSHALL PRESNELL                   -=; 
  29. ;=-                 13652 LYNN STREET                   -=; 
  30. ;=-               WOODBRIDGE, VA  22191               -=; 
  31. ;=-                                             -=; 
  32. ;=-            FIDONET ADDRESS 109/639.106               -=; 
  33. ;=-                                       -=; 
  34. ;=----------------------------------------------------------------------=; 
  35. ;========================================================================; 
  36.  
  37.     .8086
  38.     INCLUDE    MIXED.MAC
  39.     SETMODEL
  40.  
  41.     .CODE
  42.  
  43. ;==========================================================================;
  44. ;                                       ;
  45. ;        SYSTEM EQUATES FOR FOSSIL VERSION 5 INTERFACE           ;
  46. ;                                       ;
  47. ;==========================================================================;
  48.  
  49. SETBAUD        EQU    00H
  50. TXCHAR        EQU    01H
  51. RXCHAR        EQU    02H
  52. STATUS        EQU    03H
  53. INIT        EQU    04H
  54. DEINIT        EQU    05H
  55. DTR        EQU    06H
  56. TTICK        EQU    07H
  57. OUTFLUSH    EQU    08H
  58. OUTPURGE    EQU    09H
  59. INPURGE        EQU    0AH
  60. TXNOWAIT    EQU    0BH
  61. PEEK        EQU    0CH
  62. KEYREADNOWAIT    EQU    0DH
  63. KEYREAD        EQU    0EH
  64. FLOWCONTROL    EQU    0FH
  65. CONTROL_C_CHECK    EQU    10H
  66. SETCURS        EQU    11H
  67. GETCURS        EQU    12H
  68. WRANSI        EQU    13H
  69. WATCHDOG    EQU    14H
  70. WRBIOS        EQU    15H
  71. TTICK_FUNCTION    EQU    16H
  72. REBOOT        EQU    17H
  73. READBLOCK    EQU    18H
  74. WRITEBLOCK    EQU    19H
  75. BREAK        EQU    1AH
  76. DATASTRUCTURE    EQU    1BH
  77. INSTALLAPI    EQU    7EH
  78. REMOVEAPI    EQU    7FH
  79.  
  80. ;===========================================================================
  81. ;
  82. ;    int f_installapi(int api_byte, void (far * api)());
  83. ;
  84.  
  85. HPROC    <f_installapi>,<USES BX, DX>,APICODE:WORD, APIENTRY:PTR
  86.  
  87.     PUSH    ES            ;Save ES
  88.     PUSH    DS            ; ... and DS
  89.  
  90.     MOV    AX, CS            ;Load ES and DS with
  91.     MOV    ES, AX            ;the current code segment.
  92.     MOV    DS, AX            ;Assuming small model
  93.  
  94.     MOV    AX, APICODE        ;Load AX with the API code value
  95.     PLES    DX, APIENTRY        ;Load ES:DX with entry point
  96.     PUSH    ES            ;Also make it addressable through
  97.     POP    DS            ; DS:DX
  98.  
  99.     MOV    AH, INSTALLAPI        ;Load function code
  100.     INT    14H            ;Call FOSSIL
  101.                     ;Check for successful install
  102.     CMP    AX, 1954H        ;Check for the magic number
  103.     JZ    OK1            ;Found it, OK so far
  104.     MOV    AX, 1            ;Didn't find it - exit with a 1 in AX
  105.     JMP    COMXIT            ;Go to common exit
  106.  
  107. OK1:    CMP    BH, 1            ;Check return status code in BH
  108.     JZ    OK2            ;It's ok too !
  109.     MOV    AX, 1            ;No it's not - exit with 1 in AX
  110.     JMP    COMXIT            ;Go to common exit
  111.  
  112. OK2:    MOV    AX, 0            ;Everything's FINE. Exit with a 0
  113.  
  114. COMXIT:    POP    DS            ;Restore DS
  115.     POP    ES            ;Restore ES
  116.     HRET                ;Return AX errorcode to caller
  117.  
  118. HENDP    f_installapi
  119.  
  120. ;===========================================================================
  121. ;
  122. ;    int f_removeapi(int api_byte, void (far * api)());
  123. ;
  124.  
  125. HPROC    <f_removeapi>,<USES BX, DX>,APICODE:WORD, APIENTRY:PTR
  126.  
  127.     PUSH    ES            ;Save ES
  128.     PUSH    DS            ; ... and DS
  129.  
  130.     MOV    AX, CS            ;Load ES and DS with
  131.     MOV    ES, AX            ;the current code segment.
  132.     MOV    DS, AX            ;Assuming small model
  133.  
  134.     MOV    AX, APICODE        ;Load AX with the API code value
  135.     PLES    DX, APIENTRY        ;Load ES:DX with entry point
  136.     PUSH    ES            ;Also make it addressable through
  137.     POP    DS            ; DS:DX
  138.  
  139.     MOV    AH, REMOVEAPI        ;Load function code
  140.     INT    14H            ;Call FOSSIL
  141.                     ;Check for successful deinstall
  142.     CMP    AX, 1954H        ;Check for the magic number
  143.     JZ    OK10            ;Found it, OK so far
  144.     MOV    AX, 1            ;Didn't find it - exit with a 1 in AX
  145.     JMP    COMEXT            ;Go to common exit
  146.  
  147. OK10:    CMP    BH, 1            ;Check return status code in BH
  148.     JZ    OK20            ;It's ok too !
  149.     MOV    AX, 1            ;No it's not - exit with 1 in AX
  150.     JMP    COMEXT            ;Go to common exit
  151.  
  152. OK20:    MOV    AX, 0            ;Everything's FINE. Exit with a 0
  153.  
  154. COMEXT:    POP    DS            ;Restore DS
  155.     POP    ES            ;Restore ES
  156.     HRET                ;Return AX errorcode to caller
  157.  
  158. HENDP    f_removeapi
  159.  
  160.     END
  161.  
  162.