/*************************************************** * TKB Map file stuff for PL/I symbolic debugger * ***************************************************/ dcl mapfile file input sequential /**PL/I wont let us: static external*/ env(varying, recsize(132), device(sy), ctlimp), /*text file*/ 1 mapdef external static, 2 current_segment, /* current state in scanning map */ 3 name char(6) varying initial(''), 3 descriptor fixed bin(15) initial(-1), /*address in user task of overlay descriptor*/ 3 fileaddr fixed bin(23) initial(-1), /*file addr in workfile of overlay segment hash record*/ 3 globalsrec_fileaddr fixed bin(23) initial(-1), /*file addr in workfile of segment_record following it*/ 2 external_address_first_call fixed bin(1) initial(1/*true*/), 2 FTB_map fixed bin(1) initial(0/*false*/); /*in case FTB maps & SET MOD/ALL implemented (can only do SET MOD/ALL with TKB map, since need to distinguish external data from procedures)*/