home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / BSRC_250.LZH / BINK_ASM.ASM < prev    next >
Assembly Source File  |  1991-09-15  |  10KB  |  468 lines
  1. ;--------------------------------------------------------------------------;
  2. ;                                                                          ;
  3. ;                                                                          ;
  4. ;      ------------         Bit-Bucket Software, Co.                       ;
  5. ;      \ 10001101 /         Writers and Distributors of                    ;
  6. ;       \ 011110 /          Freely Available<tm> Software.                 ;
  7. ;        \ 1011 /                                                          ;
  8. ;         ------                                                           ;
  9. ;                                                                          ;
  10. ;  (C) Copyright 1987-91, Bit Bucket Software Co., a Delaware Corporation. ;
  11. ;                                                                          ;
  12. ;                                                                          ;
  13. ;                   Assembly routines for BinkleyTerm                      ;
  14. ;                                                                          ;
  15. ;                                                                          ;
  16. ;    For complete  details  of the licensing restrictions, please refer    ;
  17. ;    to the License  agreement,  which  is published in its entirety in    ;
  18. ;    the MAKEFILE and BT.C, and also contained in the file LICENSE.250.    ;
  19. ;                                                                          ;
  20. ;    USE  OF THIS FILE IS SUBJECT TO THE  RESTRICTIONS CONTAINED IN THE    ;
  21. ;    BINKLEYTERM  LICENSING  AGREEMENT.  IF YOU DO NOT FIND THE TEXT OF    ;
  22. ;    THIS  AGREEMENT IN ANY OF THE  AFOREMENTIONED FILES,  OR IF YOU DO    ;
  23. ;    NOT HAVE THESE FILES,  YOU  SHOULD  IMMEDIATELY CONTACT BIT BUCKET    ;
  24. ;    SOFTWARE CO.  AT ONE OF THE  ADDRESSES  LISTED BELOW.  IN NO EVENT    ;
  25. ;    SHOULD YOU  PROCEED TO USE THIS FILE  WITHOUT HAVING  ACCEPTED THE    ;
  26. ;    TERMS  OF  THE  BINKLEYTERM  LICENSING  AGREEMENT,  OR  SUCH OTHER    ;
  27. ;    AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO.      ;
  28. ;                                                                          ;
  29. ;                                                                          ;
  30. ; You can contact Bit Bucket Software Co. at any one of the following      ;
  31. ; addresses:                                                               ;
  32. ;                                                                          ;
  33. ; Bit Bucket Software Co.        FidoNet  1:104/501, 1:343/491             ;
  34. ; P.O. Box 460398                AlterNet 7:491/0                          ;
  35. ; Aurora, CO 80046               BBS-Net  86:2030/1                        ;
  36. ;                                Internet f491.n343.z1.fidonet.org         ;
  37. ;                                                                          ;
  38. ; Please feel free to contact us at any time to share your comments about  ;
  39. ; our software and/or licensing policies.                                  ;
  40. ;--------------------------------------------------------------------------;
  41.  
  42. .xlist
  43.         page    64,132
  44.         
  45.         title   Bink_Asm
  46.         subttl  by Bob Hartman
  47.         
  48.         .sall
  49. .list
  50.  
  51. ;
  52. ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  53. ;;                       ;;  
  54. ;;     DATA SEGMENT      ;;
  55. ;;                       ;;
  56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57. ;
  58. ;
  59. _DATA    SEGMENT  WORD PUBLIC 'DATA'
  60. _DATA    ENDS
  61. ;CONST    SEGMENT  WORD PUBLIC 'CONST'
  62. ;CONST    ENDS
  63. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  64. _BSS    ENDS
  65. ;DGROUP    GROUP    CONST, _BSS, _DATA
  66. DGROUP    GROUP    _BSS, _DATA
  67. ;
  68. ;
  69. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  70. ;
  71. ;
  72. ;
  73. ;
  74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  75. ;;                       ;;  
  76. ;;     CODE SEGMENT      ;;
  77. ;;                       ;;
  78. ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  79. ;
  80. ;
  81. BINK_ASM_TEXT    SEGMENT  WORD PUBLIC 'CODE'
  82.  
  83.     ASSUME  CS: BINK_ASM_TEXT, DS: DGROUP, SS: DGROUP
  84.  
  85.                                 
  86. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  87.  
  88. ;cProc   real_flush,<PUBLIC>
  89. ;        parmW fhandle
  90. ;
  91. ;cBegin
  92.  
  93.     public    _real_flush
  94. _real_flush proc far
  95.     push    bp
  96.     mov    bp,sp
  97.  
  98.         mov     ah,45h
  99. ;       mov     bx,fhandle
  100.     mov    bx, word ptr [bp+6]
  101.  
  102.         int     21h
  103.         jc      rferr
  104.         mov     bx,ax
  105.         mov     ah,3eh
  106.         int     21h
  107.         xor     ax,ax
  108.         jmp     rfout
  109.  
  110. rferr:
  111.         mov     ax,1
  112.  
  113. rfout:
  114.  
  115. ;cEnd
  116.     pop    bp
  117.     ret
  118. _real_flush endp
  119.  
  120.  
  121.  
  122. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  123.  
  124. ;cProc   dv_get_version,<PUBLIC>
  125. ;
  126. ;cBegin
  127.  
  128.     public    _dv_get_version
  129. _dv_get_version proc far
  130.     push    bp
  131.  
  132.         mov     cx,4445h
  133.         mov     dx,5351h
  134.         mov     ax,2b01h
  135.         int     21h
  136.         cmp     al,0ffh
  137.         je      no_dv
  138.         mov     ax,bx
  139.         jmp     short got_dv
  140.  
  141. no_dv:
  142.         xor     ax,ax
  143.  
  144. got_dv:
  145.  
  146. ;cEnd
  147.     pop    bp
  148.     ret
  149. _dv_get_version endp
  150.  
  151.  
  152.  
  153. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  154.  
  155. ;cProc   windows_active,<PUBLIC>
  156. ;
  157. ;cBegin
  158.  
  159.     public    _windows_active
  160. _windows_active proc far
  161.     push    bp
  162.  
  163.     push    es            ; Save old ES
  164.     push    bx            ; Save old BX
  165.     mov    ax,352Fh        ; We are about to clobber them
  166.     int    21h            ; DOS get vector for 2Fh
  167.  
  168.     mov    ax,es            ; ES:BX = vector
  169.     or    ax,bx            ; So let's see if there is one
  170.  
  171.     jz    got_windows        ; Nope, so return the zero
  172.  
  173. ; Int 2f will work. So let's do it.
  174.  
  175.     mov    ax, 1600h         ; test for Windows
  176.     int    2fh            ; Go do the test
  177.     and    ax, 007fh        ; Mask off bit so 80 is same as 0
  178.  
  179. ; Result is now zero if not windows and nonzero if windows. Good enough.
  180.  
  181. got_windows:
  182.  
  183.     pop    bx            ; Restore old bx and es
  184.     pop    es
  185.  
  186. ;cEnd
  187.     pop    bp
  188.     ret
  189. _windows_active endp
  190.  
  191.  
  192. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  193.  
  194. ;cProc   mos_active,<PUBLIC>
  195. ;
  196. ;cBegin
  197.  
  198.     public    _mos_active
  199. _mos_active proc far
  200.     push    bp
  201.  
  202.         mov     ah,30h
  203.         int     21h
  204.         push    ax       ;save it
  205.         mov     ax,3000h
  206.         mov     bx,ax
  207.         mov     cx,ax
  208.         mov     dx,ax
  209.         int     21h
  210.         pop     bx
  211.         cmp     ax,bx
  212.         jne     got_mos
  213.         xor     ax,ax
  214.  
  215. got_mos:
  216.  
  217. ;cEnd
  218.     pop    bp
  219.     ret
  220. _mos_active endp
  221.  
  222.  
  223. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  224.  
  225. ;cProc   ddos_active,<PUBLIC>
  226. ;
  227. ;cBegin
  228.     public    _ddos_active
  229. _ddos_active proc far
  230.     push    bp
  231.  
  232.         mov     ah,0e4h
  233.         int     21h
  234.         cmp     al,1
  235.         je      got_ddos
  236.         cmp     al,2
  237.         je      got_ddos
  238.         xor     ax,ax
  239.  
  240. got_ddos:
  241.  
  242. ;cEnd
  243.     pop    bp
  244.     ret
  245. _ddos_active endp
  246.  
  247.  
  248. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  249.  
  250. ;cProc   tv_get_version,<PUBLIC>
  251. ;
  252. ;cBegin
  253.  
  254.     public    _tv_get_version
  255. _tv_get_version proc far
  256.     push    bp
  257.  
  258.         mov     ax,1022h
  259.         mov     bx,0
  260.         int     15h
  261.         cmp     bx,0
  262.         je      no_tv
  263.         mov     ax,bx
  264.         jmp     short got_tv
  265.  
  266. no_tv:
  267.         xor     ax,ax
  268.  
  269. got_tv:
  270.  
  271. ;cEnd
  272.     pop    bp
  273.     ret
  274. _tv_get_version endp
  275.  
  276.  
  277.  
  278. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  279.  
  280. ;cProc   ml_active,<PUBLIC>,<ds>
  281. ; 
  282. ;cBegin 
  283.  
  284.     public    _ml_active
  285. _ml_active proc far
  286.     push    bp
  287.     push    ds
  288.  
  289.         sub     ax,ax
  290.         mov     ds,ax 
  291.         mov     ax,ds:[01feh] 
  292.         cmp     ax,0000 
  293.         je      no_ml 
  294.         jmp     short got_ml 
  295.  
  296. no_ml: 
  297.         xor     ax,ax 
  298.  
  299. got_ml: 
  300.  
  301. ;cEnd 
  302.     pop    ds
  303.     pop    bp
  304.     ret
  305. _ml_active endp
  306.  
  307.  
  308.  
  309. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  310.  
  311. ;cProc   ml_pause,<PUBLIC> 
  312. ; 
  313. ;cBegin 
  314.  
  315.     public    _ml_pause
  316. _ml_pause proc far
  317.     push    bp
  318.  
  319.         mov     ah,02h 
  320.         mov     al,00h 
  321.         int     7fh 
  322.  
  323. ;cEnd 
  324.     pop    bp
  325.     ret
  326. _ml_pause endp
  327.  
  328.  
  329.  
  330. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  331.  
  332. ;cProc   dv_pause,<PUBLIC>
  333. ;
  334. ;cBegin
  335.  
  336.     public    _dv_pause
  337. _dv_pause proc far
  338.     push    bp
  339.  
  340.         mov     ax,101ah
  341.         int     15h
  342.         mov     ax,1000h
  343.         int     15h
  344.         mov     ax,1025h
  345.         int     15h
  346.  
  347. ;cEnd
  348.     pop    bp
  349.     ret
  350. _dv_pause endp
  351.  
  352.  
  353.  
  354. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  355.  
  356. ;cProc   tv_pause,<PUBLIC>
  357. ;
  358. ;cBegin
  359.  
  360.     public    _tv_pause
  361. _tv_pause proc far
  362.     push     bp
  363.  
  364.         mov     ax,1000h
  365.         int     15h
  366.  
  367. ;cEnd
  368.     pop    bp
  369.     ret
  370. _tv_pause endp
  371.  
  372.  
  373.  
  374. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  375.  
  376. ;cProc   ddos_pause,<PUBLIC>
  377. ;
  378. ;cBegin
  379.  
  380.     public    _ddos_pause
  381. _ddos_pause proc far
  382.     push    bp
  383.  
  384.         int     0f4h
  385.  
  386. ;cEnd
  387.     pop    bp
  388.     ret
  389. _ddos_pause endp
  390.  
  391.  
  392. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  393.  
  394. ;cProc   windows_pause,<PUBLIC>
  395. ;
  396. ;cBegin
  397.  
  398.     public _windows_pause
  399. _windows_pause proc far
  400.     push    bp
  401.  
  402. ; The good news is that this code works. The bad news is that we can not
  403. ; use it. This is because we will lose interrupts like crazy if we tell
  404. ; Windows that we are idle. Incoming 'RING's will be lost. Yoohoo's. You
  405. ; name it, it would be messed up. I can't think of any way to only do this
  406. ; some of the time -- since 'RING' is asynchronous.
  407. ;
  408. ; If you have a thirst for danger, just use this stuff.
  409. ;
  410.     mov    ax, 1680h    ; Tell Windows
  411.     int    2fh        ; we're idle
  412.  
  413. ;cEnd
  414.     pop    bp
  415.     ret
  416. _windows_pause endp
  417.  
  418.  
  419. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  420.  
  421. ;cProc   mos_pause,<PUBLIC>
  422. ;
  423. ;cBegin
  424.  
  425.     public _mos_pause
  426. _mos_pause proc far
  427.     push    bp
  428.  
  429.         mov     ax,703h
  430.         mov     bx,3          ; Give up three ticks
  431.         xor     cx,cx         ; Clear wait on IRQ mask
  432.         mov     dx,cx         ; Clear ports to wait on
  433.         int     38h
  434.  
  435. ;cEnd
  436.     pop    bp
  437.     ret
  438. _mos_pause endp
  439.  
  440.  
  441. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  442.  
  443. ; The idea for this code came from Holger Schurig
  444.  
  445. ;cProc   msdos_pause,<PUBLIC>
  446. ;
  447. ;cBegin
  448.  
  449.     public    _msdos_pause
  450. _msdos_pause proc far
  451.     push    bp
  452.  
  453.         int     028h
  454.  
  455. ;cEnd
  456.     pop    bp
  457.     ret
  458. _msdos_pause endp
  459.  
  460.  
  461.  
  462. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  463.  
  464. BINK_ASM_TEXT    ENDS
  465.          end
  466.  
  467.  
  468.