LEX 'PPEEKLEX' PEEK$ PRIVATE files in HP71. * Tapani Tarvainen 85/09/27, id & token changed 86/02/13 ID #01 token 63 (hex 3F) * Takes over built-in PEEK$: * with this in memory, any old program using PEEK$ will ignore private MSG 0 POLL 0 POPNUM EQU #1C4EE unsupported ADDRCK EQU #1C5A5 unsupported SAVD1 EQU #1C578 unsupported - middle of PEEK$ InvArg EQU #1929E Invalid Arg ADRDN1 EQU #1C709 unsupported - middle of ADRPRT ENTRY PPEEK CHAR #F KEY 'PEEK$' TOKEN #3F same as built-in! ENDTXT NIBHEX 8422 PPEEK GOSBVL POPNUM C=A A C=C+C A GONC ok GOVLNG InvArg ok R0=A GOSBVL ADDRCK GOSBVL SAVD1 A=R0 C=A A D=C A A=A+B A R1=A A=B A R0=A GOVLNG #1C52D middle of PEEK$ END