home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 1B
/
DATAFILE_PDCD1B.iso
/
_pocketbk
/
pocketbook
/
004
/
oplexamp_z
/
OPL.TXT
< prev
next >
Wrap
Text File
|
1993-05-10
|
2KB
|
79 lines
Ä Area: [FIDO] PSION echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Msg#: 6987 Date: 05-08-93 15:18
From: Bj“rn Felten Read: Yes Replied: No
To: Derek O'Harrow Mark:
Subj: Battery Check/AC Adapter
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
I know that many of you are interested in how to use OPL's OS function on the
S3, so here's an attempt to achieve what you want.
*WARNING* This has not been tested on an S3; I write it down manually here
and now. If smoke is coming out of the machine while testing this program --
don't panic, just put the machine in the kitchen sink or anything similar... :)
Here we go...
- = * = -
proc osdemo:
global ax%, bx%, cx%, dx%, si%, di%
global regs%
global mbatt%, lbatt%, mains%
global supply%
regs%=addr(ax%)
supply%=addr(mbatt%)
supply:
get
swoff:(-1) :REM Setting swoff time to -1 means no auto swoff
print "Auto switch-off disabled"
get
swoff:(300) :REM Restore to default value
print "Auto switch-off ensabled"
get
endp
proc supply:
ax%=$1100 :REM os$get_supply is os-call $8e sub $11
bx%=supply% :REM supply struct
os($8e, regs%)
print "Main battery:",mbatt%;"mV"
print "Lithium battery:",lbatt%;"mV"
print "Mains supply:",
if mains%<0
print "Unknown. SSD door open?"
elseif mains%=0
print "No mains adapter present."
elseif mains%=1
print "Mains adapter present."
else
print "Ouch! How did you get here?!?"
endif
endp
proc swoff:(t%)
ax%=$1800 :REM os$set_swoff is os-call $8b sub $18
bx%=t% :REM new swoff time
os($8b, regs%)
ax%=$1700 :REM os$get_swoff is os-call $8b sub $17
os($8b, regs%)
print "Switch off time now is:",ax%;"s"
endp
-!-
! Origin: -=P=I=X=- / Psion Info Xchange (+46-31-960447) (2:203/208)