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_INIT.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-03-03  |  2.9 KB  |  103 lines
  1.     PAGE    55,132
  2.     NAME    f_init
  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. ;========================================================================; 
  14. ;=----------------------------------------------------------------------=; 
  15. ;=-                                                                    -=; 
  16. ;=-          THIS MODULE HAS BEEN RELEASED FOR USE IN C NEWS           -=; 
  17. ;=-                                             -=; 
  18. ;=-        ANY QUESTIONS, COMMENTS, OR PROBLEMS SHOULD BE ADDRESSED TO    -=; 
  19. ;=-                                             -=; 
  20. ;=-                 MARSHALL PRESNELL                   -=; 
  21. ;=-                 13652 LYNN STREET                   -=; 
  22. ;=-               WOODBRIDGE, VA  22191               -=; 
  23. ;=-                                             -=; 
  24. ;=-            FIDONET ADDRESS 109/639.106               -=; 
  25. ;=-                                       -=; 
  26. ;=----------------------------------------------------------------------=; 
  27. ;========================================================================; 
  28.  
  29.     .8086
  30.     INCLUDE    MIXED.MAC
  31.     SETMODEL
  32.  
  33.     .CODE
  34.  
  35. ;==========================================================================;
  36. ;                                       ;
  37. ;        SYSTEM EQUATES FOR FOSSIL VERSION 5 INTERFACE           ;
  38. ;                                       ;
  39. ;==========================================================================;
  40.  
  41. SETBAUD        EQU    00H
  42. TXCHAR        EQU    01H
  43. RXCHAR        EQU    02H
  44. STATUS        EQU    03H
  45. INIT        EQU    04H
  46. DEINIT        EQU    05H
  47. DTR        EQU    06H
  48. TTICK        EQU    07H
  49. OUTFLUSH    EQU    08H
  50. OUTPURGE    EQU    09H
  51. INPURGE        EQU    0AH
  52. TXNOWAIT    EQU    0BH
  53. PEEK        EQU    0CH
  54. KEYREADNOWAIT    EQU    0DH
  55. KEYREAD        EQU    0EH
  56. FLOWCONTROL    EQU    0FH
  57. CONTROL_C_CHECK    EQU    10H
  58. SETCURS        EQU    11H
  59. GETCURS        EQU    12H
  60. WRANSI        EQU    13H
  61. WATCHDOG    EQU    14H
  62. WRBIOS        EQU    15H
  63. TTICK_FUNCTION    EQU    16H
  64. REBOOT        EQU    17H
  65. READBLOCK    EQU    18H
  66. WRITEBLOCK    EQU    19H
  67. BREAK        EQU    1AH
  68. DATASTRUCTURE    EQU    1BH
  69. INSTALLAPI    EQU    7EH
  70. REMOVEAPI    EQU    7FH
  71.  
  72. ;===========================================================================
  73. ;
  74. ;    int f_init(int port, int trigger, int * flag_address)
  75. ;
  76.  
  77. HPROC    <f_init>,<USES BX, CX, DX>,PORT:WORD,TRIGGER:WORD,FLAG_ADR:PTR
  78.  
  79.     PUSH    ES            ;Save ES on stack (SP+2)
  80.     MOV    AX, CS            ;Establish code segment visibility
  81.     MOV    ES, AX            ;in ES register
  82.  
  83.     PLES    CX, FLAG_ADR        ;Flag address to ES:CX
  84.     MOV    BX, 0            ;Clear the "magic" number out of BX
  85.  
  86.     MOV    AX,TRIGGER        ;Check Trigger Word for non-zero
  87.     XOR    AX,AX            ;Set the flags for comparison
  88.     JZ    NOFLAG            ;If zero, no trigger
  89.  
  90.     MOV    BX, 4F50H        ;Otherwise, Load magic number to BX
  91.  
  92. NOFLAG:    MOV    DX, PORT        ;Load Port address to DX
  93.     MOV    AH, INIT        ;Load Function code to AH
  94.     INT    14H            ;Call FOSSIL
  95.  
  96.     POP    ES            ;Restore ES (SP+0)
  97.     HRET                ;Return AX to caller
  98.  
  99. HENDP    f_init
  100.  
  101.     END
  102.  
  103.