BLOCK NUMBER 2

( Registers Snapshot - 1/1 ) decimal 16 base !                  
                                                                
create regsnap ( -- PC CC DP U S Y X D ) here dup 2- !          
    2006 , 0000 , 0000 , 0000 , FD32 , 021F , 5083 , 0008 ,     
    FD32 , 041F , 30FD , 3206 , FC32 , 0436 , 064F , 1FA9 ,     
    3606 , 1FB9 , 3606 , FC32 , 0636 , 0636 , 4036 , 2036 ,     
    10FC , 3202 , 3606 , AEA1 , 6E91 , decimal                  
                                                                
: regrept ( PC CC DP U S Y X D -- ) cr decimal 16 base !        
    ."  D = " u. ."  X = " u. ."  Y = " u. ."  S = " u.         
    ."  U = " u. cr                                             
    ." DP = " u. ." CC = " u. ." PC = " u. decimal ;            
                                                                
: reportRegistersSnapshot ( -- ) regsnap regrept ;