/**************************************************/ /*** NAME SERVER OPCODES AND RESPONSE CODES ***/ /**************************************************/ /* Name Server Opcodes */ DECLARE add_name LITERALLY '0', delete_name LITERALLY '1', get_value LITERALLY '2', change_value literally '3', delete_property literally '4', get_name literally '5', get_spokesman literally '6', list_table literally '7'; /* Name Server Response Codes */ DECLARE ns_min_exception LITERALLY '2', ns_max_exception LITERALLY '1EH'; DECLARE e_ok LITERALLY '1', e_name_exist LITERALLY '2', e_name_nexist LITERALLY '4', e_bad_name LITERALLY '6', e_pt_exist LITERALLY '8', e_pt_nexist LITERALLY '0AH', e_bad_pvt LITERALLY '0CH', e_bad_pv LITERALLY '0EH', e_space LITERALLY '10H', e_buff_space LITERALLY '12H', e_illegal_opcode LITERALLY '14H', e_max_resp LITERALLY '16H', e_bad_buf_ptr LITERALLY '18H', e_no_memory LITERALLY '1AH', e_no_deletion LITERALLY '1CH', e_rb_format_bad LITERALLY '1EH'; /* * The structure for name server RB. */ DECLARE standard_ina_header LITERALLY ' link WORD, unused WORD, length BYTE, user_id WORD, resp_port BYTE, resp_mbx TOKEN, resp_seg TOKEN, layer BYTE, op_code BYTE, response WORD'; DECLARE name_rb_struc LITERALLY ' standard_ina_header, reserved (6) BYTE, name_buff_ptr POINTER, unique BYTE, property WORD, pv_type BYTE, pv_buff_ptr POINTER, buf_ptr POINTER, buf_len WORD'; DECLARE ns_subsys LITERALLY '50h'; /* * Assigned Property Types. */ declare pt_server_tsap literally '0000h', pt_consumer_tsap literally '0001h', pt_my_name literally '0002h', pt_server_ta literally '0003h', pt_myconfig literally '0004h', pt_server_name literally '0005h', pt_vtser_ta literally '0008h';