home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / c / bts314b4 / bink_asm.s < prev    next >
Text File  |  1991-08-03  |  4KB  |  118 lines
  1. ; bink_asm.s
  2. ;
  3. ; ST version of bink_asm.asm
  4. ; (C) 1990 STeVeN W Green
  5. ;
  6. ;--------------------------------------------------------------------------;
  7. ;                                                                          ;
  8. ;                                                                          ;
  9. ;      ------------         Bit-Bucket Software, Co.                       ;
  10. ;      \ 10001101 /         Writers and Distributors of                    ;
  11. ;       \ 011110 /          Freely Available<tm> Software.                 ;
  12. ;        \ 1011 /                                                          ;
  13. ;         ------                                                           ;
  14. ;                                                                          ;
  15. ;  (C) Copyright 1987-90, Bit Bucket Software Co., a Delaware Corporation. ;
  16. ;                                                                          ;
  17. ;                                                                          ;
  18. ;                   Assembly routines for BinkleyTerm                      ;
  19. ;                                                                          ;
  20. ;                                                                          ;
  21. ;    For complete  details  of the licensing restrictions, please refer    ;
  22. ;    to the License  agreement,  which  is published in its entirety in    ;
  23. ;    the MAKEFILE and BT.C, and also contained in the file LICENSE.240.    ;
  24. ;                                                                          ;
  25. ;    USE  OF THIS FILE IS SUBJECT TO THE  RESTRICTIONS CONTAINED IN THE    ;
  26. ;    BINKLEYTERM  LICENSING  AGREEMENT.  IF YOU DO NOT FIND THE TEXT OF    ;
  27. ;    THIS  AGREEMENT IN ANY OF THE  AFOREMENTIONED FILES,  OR IF YOU DO    ;
  28. ;    NOT HAVE THESE FILES,  YOU  SHOULD  IMMEDIATELY CONTACT BIT BUCKET    ;
  29. ;    SOFTWARE CO.  AT ONE OF THE  ADDRESSES  LISTED BELOW.  IN NO EVENT    ;
  30. ;    SHOULD YOU  PROCEED TO USE THIS FILE  WITHOUT HAVING  ACCEPTED THE    ;
  31. ;    TERMS  OF  THE  BINKLEYTERM  LICENSING  AGREEMENT,  OR  SUCH OTHER    ;
  32. ;    AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO.      ;
  33. ;                                                                          ;
  34. ;                                                                          ;
  35. ; You can contact Bit Bucket Software Co. at any one of the following      ;
  36. ; addresses:                                                               ;
  37. ;                                                                          ;
  38. ; Bit Bucket Software Co.        FidoNet  1:104/501, 1:132/491, 1:141/491  ;
  39. ; P.O. Box 460398                AlterNet 7:491/0                          ;
  40. ; Aurora, CO 80046               BBS-Net  86:2030/1                        ;
  41. ;                                Internet f491.n132.z1.fidonet.org         ;
  42. ;                                                                          ;
  43. ; Please feel free to contact us at any time to share your comments about  ;
  44. ; our software and/or licensing policies.                                  ;
  45. ;--------------------------------------------------------------------------;
  46.  
  47.   ifd LATTICE
  48.     csect text,0
  49.   else
  50.     text 0
  51.   endc    
  52.  
  53. ;--------------------
  54. ; BOOL get_dcd()
  55. ;
  56. ; Returns TRUE if carrier is present
  57. ;        FALSE if no carrier
  58. ;
  59. ; Must be called in Superviser mode, e.g. with status = Supexec(get_dcd);
  60.  
  61.   ifd REGARGS
  62.     xdef @get_dcd
  63. @get_dcd:
  64.   else
  65.     xdef get_dcd
  66. get_dcd:
  67.   endc
  68.     moveq.l #0,d0                ; Clear all of D0
  69.     move.l d0,a0                ; Offset address as 8 bit from 0
  70.     move.b $fffffa01(a0),d0        ; read the mfp port
  71.     andi.b #2,d0                ; Mask off the dcd bit
  72.     eori.b #2,d0                ; Invert it
  73.     rts
  74.  
  75.  
  76. ;---------------------
  77. ; BOOL get_cts()
  78. ;
  79. ; Returns TRUE if CTS is high (data can be sent)
  80. ;
  81. ; This was written by Iian Paton (2:295/5)
  82.  
  83.   ifd REGARGS
  84.     xdef @get_cts
  85. @get_cts:
  86.   else
  87.       xdef get_cts
  88. get_cts:
  89.   endc
  90.       moveq.l #0,d0
  91.       move.l d0,a0
  92.       move.b $fffffa01(a0),d0
  93.       andi.b #4,d0
  94.       eori.b #4,d0
  95.       rts
  96.  
  97. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  98.  
  99. ;cProc   real_flush,<xdef>
  100. ;        parmW fhandle
  101. ;
  102. ;cBegin
  103.  
  104.   ifd REGARGS
  105.     xdef @real_flush
  106. @real_flush:
  107.   else
  108.     xdef real_flush
  109. real_flush:
  110.   endc
  111.     moveq #0,d0
  112.     rts
  113.  
  114.  
  115.  
  116.          end
  117.  
  118.