n233dk@tamunix (Frederick Grevelle) (05/04/90)
Here is an improved version of the SYSEVAL PEEK routine for the HP28s.
There is no address of which I am aware that will result in a memory
failure when peeked. Some addresses will still return false results.
This can be delt with by adding or subtracting 1 from the address
being peeked and comparing results. This is nearly as fast as the
best of the user written versions available; Alonzo Gariepy's PIG.
I also recommened the use of some sort of keyword command to check
that the stack argument is a binary integer. (i.e. B->R R->B)
PEEK
<< 10 - : 10 nibble truncation adjustment
# 43ADh SYSEVAL : binary->short integer
# 3A64h SYSEVAL : get 5 nibbles past 02911
# 0h : slot result object
# 39103h SYSEVAL >> : add contents of level 2 address to # 0h
Happy hacking-
Rick Grevelle