BLOCK NUMBER 9

( System Extension Word Set - 1/1 )                             
( Copyright [ c ] 1992 by BDS Software )                        
decimal 16 base !                                               
: <mark ( -- addr ) here ;                                      
: <resolve ( addr -- ) , ;                                      
: >mark ( -- addr ) here 0 , ;                                  
: >resolve ( addr -- ) here swap ! ;                            
create branch ( -- ) here dup 2- ! AEA4 , 1F12 , AEA1 , 6E91 ,  
create ?branch ( flag -- ) here dup 2- ! 3406 , 3706 , 1083 ,   
     0000 , 2606 , AEA4 , 1F12 , 2002 , 3122 , 3506 , AEA1 ,    
     6E91 ,                                                     
: context ( -- addr ) 98B @ ;                                   
: current ( -- addr ) 98D @ ;                                   
decimal                                                         
.( System Extension Word Set LOADED. )