home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / heimwerk / maus.bib next >
Encoding:
Text File  |  1990-01-11  |  5.0 KB  |  173 lines
  1. DECLARE SUB penemulan ()
  2. DECLARE SUB penemulaus ()
  3. DECLARE SUB schwelle (schritte!)
  4. DECLARE SUB mcurs (bildm!, cursorm!)
  5. DECLARE SUB tcurs (unten!, oben!)
  6. DECLARE SUB init ()
  7. DECLARE SUB gcurs (horiz!, vertik!, offset!, segm!)
  8. DECLARE SUB cursan ()
  9. DECLARE SUB cursaus ()
  10. DECLARE SUB setzmaus (horiz!, vertik!)
  11. DECLARE SUB grenzen (links!, oben!, rechts!, unten!)
  12. DECLARE SUB geschwindigkeit (horiz!, vertik!)
  13. DECLARE FUNCTION xschritte! ()
  14. DECLARE FUNCTION yschritte! ()
  15. DECLARE FUNCTION xpos! ()
  16. DECLARE FUNCTION ypos! ()
  17. DECLARE FUNCTION knopf! ()
  18. '* ------------------------------------------------------- *
  19. '*                      MAUS.BIB                           *
  20. '*           Bibliothek zur Mausunterstützung              *
  21. '*            (c) 1990 Kay Glahn  &  TOOLBOX               *
  22. '* ------------------------------------------------------- *
  23.  
  24. '$INCLUDE: 'REGISTER.INC'
  25.  
  26. '* ------------------------------------------------------- *
  27. '* Mauscursor aktivieren                                   *
  28. SUB cursan
  29.   regs.ax = 1
  30.   CALL interruptx(51, regs, regs)
  31. END SUB
  32.  
  33. '* ------------------------------------------------------- *
  34. '* Mauscursor abschalten                                   *
  35. SUB cursaus
  36.   regs.ax = 2
  37.   CALL interruptx(51, regs, regs)
  38. END SUB
  39.  
  40. '* ------------------------------------------------------- *
  41. '* Grafikcursor definieren                                 *
  42. SUB gcurs (horiz, vertik, offset, segm)
  43.   regs.ax = 9
  44.   regs.bx = horiz
  45.   regs.cx = vertik
  46.   regs.dx = offset
  47.   regs.es = segm
  48.   CALL interruptx(51, regs, regs)
  49. END SUB
  50.  
  51. '* ------------------------------------------------------- *
  52. '* Mickey-Einheit definieren                               *
  53. SUB geschwindigkeit (horiz, vertik)
  54.   regs.ax = 15
  55.   regs.cx = horiz
  56.   regs.dx = vertik
  57.   CALL interruptx(51, regs, regs)
  58. END SUB
  59.  
  60. '* ------------------------------------------------------- *
  61. '* Fenster für Mauscursor definieren                       *
  62. SUB grenzen (links, oben, rechts, unten)
  63.   regs.ax = 7
  64.   regs.cx = links
  65.   regs.dx = rechts
  66.   CALL interruptx(51, regs, regs)
  67.   regs.ax = 8
  68.   regs.cx = oben
  69.   regs.dx = unten
  70.   CALL interruptx(51, regs, regs)
  71. END SUB
  72.  
  73. '* ------------------------------------------------------- *
  74. '* Maustreiber initialisieren                              *
  75. SUB init
  76.   regs.ax = 0
  77.   CALL interruptx(51, regs, regs)
  78. END SUB
  79.  
  80. '* ------------------------------------------------------- *
  81. '* Maustastenstatus lesen                                  *
  82. FUNCTION knopf
  83.   regs.ax = 3
  84.   CALL interruptx(51, regs, regs)
  85.   knopf = regs.bx
  86. END FUNCTION
  87.  
  88. '* ------------------------------------------------------- *
  89. '* Softwaretextcursor definieren                           *
  90. SUB mcurs (bildm, cursorm)
  91.   regs.ax = 10
  92.   regs.bx = 0
  93.   regs.cx = bildm
  94.   regs.dx = cursorm
  95.   CALL interruptx(51, regs, regs)
  96. END SUB
  97.  
  98. '* ------------------------------------------------------- *
  99. '* Lichtgriffel-Emulation aktivieren                       *
  100. SUB penemulan
  101.   regs.ax = 13
  102.   CALL interruptx(51, regs, regs)
  103. END SUB
  104.  
  105. '* ------------------------------------------------------- *
  106. '* Lichtgriffel-Emulation abschalten                       *
  107. SUB penemulaus
  108. reg.ax = 14
  109. CALL interruptx(51, reg, reg)
  110. END SUB
  111.  
  112. '* ------------------------------------------------------- *
  113. '* Schwellenwert für doppelte Cursorgeschwindigkeit        *
  114. SUB schwelle (schritte)
  115.   regs.ax = 19
  116.   regs.dx = schritte
  117.   CALL interruptx(51, regs, regs)
  118. END SUB
  119.  
  120. '* ------------------------------------------------------- *
  121. '* Mauscursor neu positionieren                            *
  122. SUB setzmaus (horiz, vertik)
  123.   regs.ax = 4
  124.   regs.cx = horiz
  125.   regs.dx = vertik
  126.   CALL interruptx(51, regs, regs)
  127. END SUB
  128.  
  129. '* ------------------------------------------------------- *
  130. '* Hardwaretextcursor definieren                           *
  131. SUB tcurs (unten, oben)
  132.   regs.ax = 10
  133.   regs.bx = 1
  134.   regs.cx = unten
  135.   regs.dx = oben
  136.   CALL interruptx(51, regs, regs)
  137. END SUB
  138.  
  139. '* ------------------------------------------------------- *
  140. '* horizontale Cursorposition ermitteln                    *
  141. FUNCTION xpos
  142.   regs.ax = 3
  143.   CALL interruptx(51, regs, regs)
  144.   xpos = regs.cx
  145. END FUNCTION
  146.  
  147. '* ------------------------------------------------------- *
  148. '* horizontalen Bewegungszähler lesen                      *
  149. FUNCTION xschritte
  150.   regs.ax = 11
  151.   CALL interruptx(51, regs, regs)
  152.   xschritte = regs.cx
  153. END FUNCTION
  154.  
  155. '* ------------------------------------------------------- *
  156. '* vertikale Cursorposition ermitteln                      *
  157. FUNCTION ypos
  158.   regs.ax = 3
  159.   CALL interruptx(51, regs, regs)
  160.   ypos = regs.dx
  161. END FUNCTION
  162.  
  163. '* ------------------------------------------------------- *
  164. '* vertikalen Bewegungszähler lesen                        *
  165. FUNCTION yschritte
  166.   regs.ax = 11
  167.   CALL interruptx(51, regs, regs)
  168.   yschritte = regs.dx
  169. END FUNCTION
  170.  
  171. '* ------------------------------------------------------- *
  172. '*                  Ende von MAUS.BIB                      *
  173.