RapunzelClientDoc.tioga
Copyright © 1986 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) September 21, 1986 8:09:33 pm PDT
Willie-Sue, January 9, 1987 12:11:51 pm PST
Rapunzel
CEDAR 6.1 — FOR INTERNAL XEROX USE ONLY
Rapunzel
The Dragon Softcard remote debugging transport software
Bill Jackson, Alan Demers, Carl Hauser, Willie-Sue Orr
© Copyright 1986 Xerox Corporation. All rights reserved.
Abstract: The abstract goes here.
Created by: Package creator(s)
Maintained by: Willie-Sue Orr <Willie-Sue.pa>
Keywords: keyword1, keyword2, ...
XEROX Xerox Corporation
Palo Alto Research Center
3333 Coyote Hill Road
Palo Alto, California 94304
For Internal Xerox Use Only
i. Notes for using the interpreter to test the XDE service.
To run a test server (on this or another cedar machine)
Install RapunzelServer
To run a client (creates an Interpreter window)
Install RapunzelClient
Talking to an Interpreter
If server is running on the same machine
&myHandle ← RapunzelSimpleClientImpl.GetHandleForMe[]
RapunzelP2200V2ClientImpl.PeekShort[&myHandle, 4]
RapunzelP2200V2ClientImpl.PokeShort[&myHandle, 4, 37]
RapunzelP2200V2ClientImpl.PeekShort[&myHandle, 4]
&c ← RapunzelSimpleClientImpl.PeekPokePeek[addr, value]
RapunzelP2200V2ClientImpl.DoCmds[&myHandle, &c]
etc
or if the server in on other machine
&crHandle ← RapunzelSimpleClientImpl.GetOtherHandle["LoneShark"]
RapunzelP2200V2.PeekShort[&crHandle, 4]
RapunzelP2200V2.PokeShort[&crHandle, 4, 37]
RapunzelP2200V2.PeekShort[&crHandle, 4]
&peekseq ← RapunzelP2200V2.PeekSeqShort[&crHandle, 0, 10]
&pokeSeq ← RapunzelSimpleClientImpl.PokeSeq[3]
&pokeSeq[0] ← 5
&pokeSeq[1] ← 8
&pokeSeq[2] ← 81
RapunzelP2200V2.PokeSeqShort[&crHandle, 4, &pokeSeq]
&cmdSeq ← RapunzelSimpleClientImpl.PeekPokePeek[addr, value]
RapunzelP2200V2.DoCmds[&crHandle, &cmdSeq]
&cmdSeq2 ← RapunzelSimpleClientImpl.PokePeek[addr, value]
RapunzelP2200V2.DoCmds[&crHandle, &cmdSeq2]
&cmdSeq3 ← RapunzelSimpleClientImpl.PeekPoke[addr, value]
RapunzelP2200V2.DoCmds[&crHandle, &cmdSeq3]
&cmdSeq4 ← RapunzelSimpleClientImpl.PokePoke[addr, value]
RapunzelP2200V2.DoCmds[&crHandle, &cmdSeq4]
&cmdSeq5 ← RapunzelSimpleClientImpl.PokePeekPeek[addr1, addr2, value]
RapunzelP2200V2.DoCmds[&crHandle, &cmdSeq5]
CrRPC.DestroyClientHandle[&crHandle]