DataMuseum.dk

top - metrics - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »t2903init«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »t2903init« 

TextFile

  <* def. of micro types *>
  alu_function_type := 11;
  jump_addrs_type := 12;
  <*not def. type := 13 *>
  jump_sekvens_type := 14;
  load_counter_type :=15;
  special_type :=16;
  special_min:=0;
  special_max:=32;

  reg_op_type := 30;
  condition_type := 40;
  condition_type_min :=40;
  condition_type_max:=45;
<* init of format to be printed *>

format(0) := 0;
format(1) := 1 shift 12 + 4;
format(2) := 5 shift 12 + 5;
format(3) := 6 shift 12 + 6;
format(4) := 7 shift 12 + 10;
format(5) := 11 shift 12 + 15;
format(6) := 16 shift 12 + 20;
format(7) := 21 shift 12 + 22;
format(8) := 23 shift 12 + 27;
format(9) := 28 shift 12 + 31;
format(10) := 32 shift 12 + 35;
format(11) := 36 shift 12 + 39;
format(12) := 40 shift 12 + 41;
format(13) := 42 shift 12 + 43;
format(14) := 44 shift 12 + 47;

<* initialiasing standard mask *>
condition_enable_mask := init_mask(extend 0,0,0);
sekvens_mask := init_mask(extend 0,1,4);
cond_my_reg_enable_mask := init_mask(extend 0,5,5);
cond_m_reg_enable_mask := init_mask(extend 0,6,6);
condition_select_mask := init_mask(extend 0,7,10);
condition_full_mask := init_mask(extend 0,6,10);
alu_full_length_mask := init_mask(extend 0,11,20); 
alu_dest_mask := init_mask(extend 0,11,15); <*alubiti8tobothi5*>
alu_short_dest_mask := init_mask(extend 0,11,13); <* alu bit 8 to 6
                                              not i5 *>
alu_i5_left_mask := init_mask(extend 0,14,14); 
alu_i5_rigth_mask := init_mask(extend 0,15,15); 
alu_both_i5_mask := init_mask(extend 0,14,15); 
alu_function_mask := init_mask(extend 0,16,19); <*alubiti4toi1*>
alu_full_function_mask := init_mask(extend 0,16,20); <*alubiti4toi0*>
alu_special_control_mask := init_mask(extend 0,20,20); <*alubiti0*>
carry_control_mask := init_mask(extend 0,21,22);
set_2904_shift_mask := init_mask(extend 0,23,23); 
not_ea_mask := init_mask(extend 0,24,24);
w_reg_enable_mask := init_mask(extend 0,25,25);
w_reg_enable_sel_mask := init_mask(init_mask(extend 0,25,25),35,35);
not_oeb_mask := init_mask(extend 0,26,26);
read_2901_reg_mask := init_mask(extend 0,26,26);
write_2901_reg_mask := init_mask(extend 0,27,27);
alu_full_source_mask := init_mask(init_mask(extend 0,20,20),25,27);
                            <*noteaandnotoebandalubiti0*>
source_extern_mask := init_mask(extend 0,26,26); 
dest_extern_mask := init_mask(extend 0,27,27); 
short_source_mask := init_mask(extend 0,28,31); 
short_dest_mask := init_mask(extend 0,32,35); 
source_mask := init_mask(extend 0,28,31); 
dest_mask := init_mask(extend 0,32,35); 
addrs_and_imm_mask := init_mask(extend 0,36,47); 
addrs_mask := init_mask(extend 0,36,47);
       <* addrs and immidiate operand  m*>
cond_kind_set_mask := init_mask( init_mask(extend 0,23,23),40,41);
not_half_w_move_enable_mask := init_mask(extend 0,42,42);
half_w_move_dir_mask := init_mask(extend 0,43,43);
half_word_move_mask := init_mask(init_mask(extend 0,23,23),42,43);
shift_control_2904_mask := init_mask(init_mask(extend 0,23,23),44,47); <*controlsthe2904instrbiti6toi9*>
all_m_reg_enable_mask := init_mask(init_mask(extend 0,6,6),45,47);
select_m_reg_enable_mask := init_mask(extend 0,45,47);
select_interupt_bit_mask := init_mask(extend 0,46,46);
instr_full_length:= init_mask(extend 0,0,47);
<*allbitsininstr*>

q_regs_value := -1;
w_pre_index_value := -3;
w_index_value := -2;
code_kind := 31;
start_addrs := 0;

nop_code := mask_in(extend 0,extend 14,sekvens_mask);
nop_code := mask_in(nop_code,extend 1,cond_m_reg_enable_mask);
nop_code := mask_in(nop_code,extend 6,alu_short_dest_mask);
nop_code := mask_in(nop_code,extend 0,alu_both_i5_mask);
nop_code := mask_in(nop_code,extend 1,alu_special_control_mask);
nop_code := mask_in(nop_code,extend 1,set_2904_shift_mask);
nop_code := mask_in(nop_code,extend 0,not_ea_mask);
nop_code := mask_in(nop_code,extend 0,w_reg_enable_mask);
nop_code := mask_in(nop_code,extend 0,not_oeb_mask);
nop_code := mask_in(nop_code,extend 0,write_2901_reg_mask);
nop_code := mask_in(nop_code,extend 1,cond_kind_set_mask);
nop_code := mask_in(nop_code,extend 3,half_word_move_mask);
nop_code := mask_in(nop_code,extend 0,shift_control_2904_mask);
nop_code := mask_in(nop_code,extend 1,set_2904_shift_mask);
▶EOF◀