home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / oslib / Hdr / Hourglass < prev    next >
Encoding:
Text File  |  1994-07-01  |  1.6 KB  |  64 lines
  1. ;AAsm header file for Hourglass
  2. ;written by DefMod (Jul  1 1994) on Fri Jul  1 16:24:10 1994
  3.  
  4.         [       :LNOT: :DEF: Get_Types
  5.         GBLS    Get_Types
  6. Get_Types                       SETS    "GET OS:Hdr.Types"
  7.         |
  8. Get_Types                       SETS    ""
  9.         ]
  10.         $Get_Types
  11.  
  12.         [       :LNOT: :DEF: Get_OS
  13.         GBLS    Get_OS
  14. Get_OS                          SETS    "GET OS:Hdr.OS"
  15.         |
  16. Get_OS                          SETS    ""
  17.         ]
  18.         $Get_OS
  19.  
  20.         [       :LNOT: :DEF: Hourglass_Hdr
  21.         GBLS    Hourglass_Hdr
  22.  
  23. ;Symbols for SWI's and SWI reason codes
  24. XHourglass_On                   *       &606C0
  25. Hourglass_On                    *       &406C0
  26.  
  27. XHourglass_Off                  *       &606C1
  28. Hourglass_Off                   *       &406C1
  29.  
  30. XHourglass_Smash                *       &606C2
  31. Hourglass_Smash                 *       &406C2
  32.    ;Entry
  33.    ;  R0 = delay (Int)
  34.  
  35. XHourglass_Start                *       &606C3
  36. Hourglass_Start                 *       &406C3
  37.    ;Entry
  38.    ;  R0 = delay (Int)
  39.  
  40. XHourglass_Percentage           *       &606C4
  41. Hourglass_Percentage            *       &406C4
  42.    ;Entry
  43.    ;  R0 = percent (Int)
  44.  
  45. XHourglass_LEDs                 *       &606C5
  46. Hourglass_LEDs                  *       &406C5
  47.    ;Entry
  48.    ;  R0 = eor_mask (Bits)
  49.    ;  R1 = and_mask (Bits)
  50.    ;Exit
  51.    ;  R0 = old_leds (Bits)
  52.  
  53. XHourglass_Colours              *       &606C6
  54. Hourglass_Colours               *       &406C6
  55.    ;Entry
  56.    ;  R0 = sand (OS_Colour)
  57.    ;  R1 = glass (OS_Colour)
  58.    ;Exit
  59.    ;  R0 = old_sand (OS_Colour)
  60.    ;  R1 = old_glass (OS_Colour)
  61.  
  62.         ]
  63.         END
  64.