home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / OPL.TXT < prev    next >
Text File  |  1993-05-10  |  2KB  |  79 lines

  1.  
  2. Ä Area: [FIDO] PSION echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3.   Msg#: 6987                                         Date: 05-08-93  15:18
  4.   From: Bj“rn Felten                                 Read: Yes    Replied: No 
  5.     To: Derek O'Harrow                               Mark:                     
  6.   Subj: Battery Check/AC Adapter
  7. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  8. I know that many of you are interested in how to use OPL's OS function on the
  9. S3, so here's an attempt to achieve what you want.
  10.  
  11.     *WARNING* This has not been tested on an S3; I write it down manually here
  12. and now. If smoke is coming out of the machine while testing this program --
  13. don't panic, just put the machine in the kitchen sink or anything similar... :)
  14.  
  15.    Here we go...
  16.  
  17.                            - = * = -
  18.  
  19. proc osdemo:
  20. global ax%, bx%, cx%, dx%, si%, di%
  21. global regs%
  22. global mbatt%, lbatt%, mains%
  23. global supply%
  24.  
  25. regs%=addr(ax%)
  26. supply%=addr(mbatt%)
  27.  
  28. supply:
  29. get
  30.  
  31. swoff:(-1)     :REM Setting swoff time to -1 means no auto swoff
  32. print "Auto switch-off disabled"
  33. get
  34.  
  35. swoff:(300)    :REM Restore to default value
  36. print "Auto switch-off ensabled"
  37. get
  38.  
  39. endp
  40.  
  41.  
  42. proc supply:
  43.  
  44. ax%=$1100      :REM os$get_supply is os-call $8e sub $11
  45. bx%=supply%    :REM supply struct
  46. os($8e, regs%)
  47.  
  48. print "Main battery:",mbatt%;"mV"
  49. print "Lithium battery:",lbatt%;"mV"
  50. print "Mains supply:",
  51. if mains%<0
  52.  print "Unknown. SSD door open?"
  53. elseif mains%=0
  54.  print "No mains adapter present."
  55. elseif mains%=1
  56.  print "Mains adapter present."
  57. else
  58.  print "Ouch! How did you get here?!?"
  59. endif
  60. endp
  61.  
  62. proc swoff:(t%)
  63.  
  64. ax%=$1800      :REM os$set_swoff is os-call $8b sub $18
  65. bx%=t%         :REM new swoff time
  66. os($8b, regs%)
  67.  
  68. ax%=$1700      :REM os$get_swoff is os-call $8b sub $17
  69. os($8b, regs%)
  70. print "Switch off time now is:",ax%;"s"
  71.  
  72. endp
  73.  
  74.  
  75.  
  76. -!-
  77.  ! Origin: -=P=I=X=- / Psion Info Xchange (+46-31-960447) (2:203/208)
  78.  
  79.