1 /* BEGINNING OF INCLUDE FILE ... et_setup_data.incl.pl1 2 * 3 * Created Jan, 73 by Bill Silver. 4 * 5 * 6 * This include file defines the data that is needed to set up a test of an eis 7 * instruction. The area where this data actually resides is in "et". 8 */ 9 10 11 dcl et_data_ptr ptr; /* Pointer to the et_data area. */ 12 13 14 dcl 1 et_setup_data based (et_data_ptr) aligned, 15 16 2 next_instruction_x fixed bin, /* Index in script file of where the next 17 * instruction test begins. */ 18 19 2 name char (6), /* Mnemonic name of the instruction 20 * being tested. */ 21 22 2 test_count fixed bin, /* The number of the current test. */ 23 24 2 note char (64), /* A NOTE containing a description of the test. */ 25 26 2 loop_count fixed bin, /* Number of times to execute the same 27 * variation of an instruction. */ 28 29 2 instr_offset fixed bin, /* Indicates the position of the eis 30 * instruction within the instruction 31 * area in etx. */ 32 33 2 instr_num fixed bin, /* The index of the current instruction's 34 * entry in the et_instr_data$instruction 35 * array. */ 36 37 2 instr_type fixed bin, /* 1 = alphanumeric 2 = numeric 38 * 3 = bit string 4 = conversion */ 39 40 2 instr_word bit (36), /* The instruction word of the eis 41 * instruction to be tested. */ 42 43 2 descriptors (3) bit (36), /* The three possible descriptor words 44 * of the eis instruction. */ 45 46 2 ind_words (3) bit (36), /* The three possible indirect words that 47 * may follow the eis instruction. */ 48 49 2 desc_ptrs (3) ptr, /* An array of pointers to where any 50 * indirect descriptors must be placed. */ 51 52 2 mf_ptrs (3) ptr, /* Pointers to the mf fields for each descriptor. 53 * If an entry is null then there is no descriptor 54 * associated with this entry. */ 55 56 2 num_chars (3) fixed bin, /* For each descriptor a code indicating what 57 * type of "ta" or "tn" field it may have. It 58 * implies the number of characters in a word. 59 * 1 - descriptor must reference word boundary. 60 * 4 - any legal "ta" or "tn" field. 61 * Implies 9 bit characters as default. 62 * 36 - descriptor may reference bits. 63 * -1 - must use "ta" field of descriptor 1 64 * 0 - no descriptor. */ 65 66 2 data_ptrs (5) ptr, /* An array of pointers to where 67 * the data for the corresponding 68 * descriptor will go. It points to 69 * the first word of the data. 70 * Entry (4) is for the test data. 71 * Entry (5) is for the result data. */ 72 73 2 data_lens (5) fixed bin, /* An array of lengths of the data fields. 74 * They will always be in units of chars. */ 75 76 2 data_offsets (5) fixed bin, /* An array of character offsets. They specify 77 * the character position of the string in 78 * the first word of the string. */ 79 80 2 page_faults (14) bit (1) unal, /* A table of flags which indicate pages 81 * which should take a page fault during 82 * execution of the eis instruction. */ 83 84 2 page_ptrs (14) ptr, /* A pointer to each page that is used 85 * by the instruction. Pages not used will 86 * have null entries. */ 87 88 2 truncation_flag fixed bin, /* Indicates whether or not the instruction is 89 * going to take a truncation fault. 90 * 1 => yes, 0 => no. */ 91 92 2 pointers (0:7) ptr, /* The values of the pointer registers 93 * before the execution of the eis instr. */ 94 95 2 regs, /* Index, A, and Q registers. */ 96 3 x (0:7) fixed bin (17) unaligned, 97 3 A fixed bin (35), 98 3 Q fixed bin (35), 99 3 pad (2) bit (36), 100 101 2 ir_word bit (36); /* The settings of the indicator 102 * registers after the eis instruction 103 * has been executed. */ 104 105 106 107 /* END of INCLUDE FILE ... et_setup_data.incl.pl1 */