
    <<PBusCacheProg0.mesa>>
        <<Copyright Ó 1987, 1988 by Xerox Corporation.  All rights reserved.>>
        <<Created by Jean Gastinel, June 29, 1988 3:37:53 pm PDT>>
        <<Pradeep Sindhu May 10, 1988 9:06:08 pm PDT>>
        <<>>
    <<>>
    <<>>
    DIRECTORY
          Atom;    
          
    PBusCacheProg0: CEDAR PROGRAM
    IMPORTS  Atom
    EXPORTS 
    ~ BEGIN


        C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ c]};


        Atom.PutProp[$PBusEmul, $PKList, LIST[
              LIST[$Wait, C[100]], -- wait for the DBus and the memory controller to be intialized
              LIST[$SetByteSelect,C[0FH]],        -- Word  selection 
              LIST[$IOWrite,C[9H],C[01234567H]],              --AID register 
              LIST[$IOWrite,C[3H],C[98765432H]],              --CWSnew register 
              LIST[$IOReadAndCheck,C[9H],C[01234567H]],      
              LIST[$IOReadAndCheck,C[3H],C[98765432H]],      
              LIST[$Write,C[00112233H],C[09ABCDEFH]],      
              LIST[$ReadAndCheck,C[00112233H],C[09ABCDEFH]],            
              LIST[$Write,C[00045123H],C[000FH]],      
              LIST[$Write,C[00045124H],C[09AFH]],      
              LIST[$Write,C[00045125H],C[0ABCEFH]],           
              LIST[$ReadAndCheck,C[00045123H],C[000FH]],            
              LIST[$ReadAndCheck,C[00045124H],C[09AFH]],            
              LIST[$ReadAndCheck,C[00045125H],C[0ABCEFH]],                       
              LIST[$ReadAndCheck,C[000A1B2DH],C[0543210H]],                       
              LIST[$Write,C[00045128H],C[1111H]],      
              LIST[$Write,C[00045130H],C[2222H]],      
              LIST[$Write,C[00045138H],C[3333H]],      
              LIST[$Write,C[00045140H],C[4444H]],      
              LIST[$Write,C[00045148H],C[5555H]],      
              LIST[$Write,C[00045150H],C[6666H]],      
              LIST[$Write,C[00045158H],C[7777H]],      
              LIST[$Write,C[00045160H],C[8888H]],      
              LIST[$Write,C[00045168H],C[9999H]],      
              LIST[$Write,C[00045170H],C[0AAAAH]],      
              LIST[$ReadAndCheck,C[00045128H],C[1111H]],                       
              LIST[$ReadAndCheck,C[00045130H],C[2222H]],                       
              LIST[$ReadAndCheck,C[00045138H],C[3333H]],                       
              LIST[$ReadAndCheck,C[00045140H],C[4444H]],                       
              LIST[$ReadAndCheck,C[00045148H],C[5555H]],                       
              LIST[$ReadAndCheck,C[00045150H],C[6666H]],                       
              LIST[$ReadAndCheck,C[00045158H],C[7777H]],                       
              LIST[$ReadAndCheck,C[00045160H],C[8888H]],                       
              LIST[$ReadAndCheck,C[00045168H],C[9999H]],                       
              LIST[$ReadAndCheck,C[00045170H],C[0AAAAH]],                       
              $StopSimul,
            $Nop,
              LIST[$Jump, $Nop]
            ]];


    END.