%%HP: T(3)A(D)F(.);
"::
 PTR 4544  @ AlertStatus (for GX only; use PTR 4546 for SX)
 #2/       @ move System Batts bit to lsb
 ONE #AND  @ mask out the Port Batts bits
 UNCOERCE  @ convert bint to real number
;"