home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / MM1 / GRAPHICS / ssaver.lzh / SRC / calls.c next >
Text File  |  1995-11-04  |  2KB  |  103 lines
  1. /* Screen Saver calls for the MM/1 & K-Windows */
  2. /* 4/13/95 - bgp */
  3.  
  4. #if 0
  5.  
  6. #include <types.h>
  7. #include <machine/reg.h>
  8.  
  9. #define I_SetStt 0x8e
  10. #define I_GetStt 0x8d
  11.  
  12. #define    DS_CurrScr    0xAF
  13.  
  14. /* Get current interactive device's window number
  15.  * - path = path to currently active window */
  16. _gs_currscr(path,num)
  17. int path, *num;
  18. {
  19.     REGISTERS reg;
  20.  
  21.     reg.d[0] = path;
  22.     reg.d[1] = DS_CurrScr;
  23.  
  24.     if ((_osk(I_GetStt,®)) == -1)
  25.        return(-1);
  26.  
  27.     *num = reg.d[2];
  28.  
  29.     return(0);
  30. }
  31. #endif
  32.  
  33. #if 0
  34. /* Get key sense bitmask */
  35. #asm
  36. _ss_select:
  37.     link    a5,#0
  38.     movem.l d1-d2/a0,-(sp)      this is for _sysret
  39.     move.l  d1,d2                move x to d2
  40.     move.w  #$8A,d1             DS_Select 0x8A
  41.     os9     I$SetStt            do the call
  42.     bra     _sysret
  43. #endasm
  44. #endif
  45.  
  46. #if 0
  47. #asm
  48. _gs_currscr:
  49.     link    a5,#0
  50.     movem.l d1-d2/a0,-(sp)      this is for _sysret
  51.     moveq.l #0,d2                zero out d2
  52.     move.w  #$AF,d1             DS_CurScr 0xAF
  53.     os9     I$GetStt            do the call
  54.     bcs.b   deverr                if error
  55.     move.l  (sp),a0                get address of int off stack
  56.     move.l  d2,(a0)                stuff ret value into address
  57. deverr
  58.     bra     _sysret
  59. #endasm
  60. #endif
  61.  
  62. /* _gs_active() */
  63. /* 4/13/95 - bgp */
  64.  
  65. #if 0
  66. #include <machine/reg.h>
  67.  
  68. #define I_SetStt 0x8e
  69. #define I_GetStt 0x8d
  70.  
  71. #define    DS_Active    0xB0
  72.  
  73. /* Get active flag
  74.  * - path = path to currently active window */
  75. _gs_active(path)
  76. int path;
  77. {
  78.     REGISTERS reg;
  79.  
  80.     reg.d[0] = path;
  81.     reg.d[1] = DS_Active;
  82.  
  83.     if ((_osk(I_GetStt,®)) == -1)
  84.        return(-1);
  85.  
  86.     return(reg.d[2]);
  87. }
  88. #endif
  89.  
  90. #if 0
  91. #asm
  92. _gs_active:
  93.     link    a5,#0
  94.     movem.l d1-d2/a0,-(sp)      this is for _sysret
  95.     moveq.l #0,d2                zero out d2
  96.     move.w  #$B0,d1             DS_CurScr 0xAF
  97.     os9     I$GetStt            do the call
  98.     bra     _sysret
  99. #endasm
  100. #endif
  101.  
  102.  
  103.