DIRECTORY Convert, FS, IFUPublic, IO, Rope;ListVectors: CEDAR PROGRAMIMPORTS Convert, FS, IO, Rope =BEGINII: TYPE = IFUPublic.II;ListVector: PROC[file: IO.ROPE] = {root:	IO.ROPE		_ file.Substr[0, file.Index[0, "."]];in:		IO.STREAM	_ FS.StreamOpen[file];out:	IO.STREAM	_ FS.StreamOpen[root.Cat[".list"], $create];FOR line: INT _ 1, line+1 DOIF (line-1) MOD 4 = 0 THEN out.PutF["--%12g\n", IO.int[(line-1)/4]];out.PutF["%4g ", IO.int[line]];FOR ii: II IN II DOitem: IO.ROPE _ in.GetTokenRope[! IO.EndOfStream => GOTO Exit].token;IF ~ item.Equal["agg"] THEN ERROR;item _ in.GetTokenRope[].token;SELECT item.Fetch[] FROM 'f, 'e, 'n => out.PutRope[item]; ENDCASE => ERROR;item _ in.GetTokenRope[].token;SELECT item.Fetch[] FROM'F, 'T		=> out.PutF["%g ", IO.rope[item]];IN ['0..'9]	=> out.PutF[ format[ii], IO.card[Convert.CardFromRope[item]]];ENDCASE	=> ERROR;REPEAT Exit => EXIT ENDLOOP;out.PutChar[IO.CR];ENDLOOP;out.PutChar[IO.CR];in.Close[];out.Close[]};format: ARRAY II OF Rope.ROPE _ ALL[NIL];format[IPData			] _ "%8x ";format[KBus				] _ "%8x ";format[DPCmd			] _ "%2x ";format[DPFault			] _ "%1x ";format[EUAluOp		] _ "%1x ";format[EUCondSel		] _ "%1x ";END.    t  ListVectors.mesaDon Curry April 2, 1987 10:31:12 am PSTListVectors.ListVector["DDQuickTest.ifuVectorsPre"];Э╩v  Ш ЪЬЩJЪЬ'Щ'ЧJШ JЪ╧k	Ь
ЭЬЭЬШ+JШ Ъ╧nЬЭЬЭШJЪЭЬ
ЭЬЭЬШЧJЪЭШJХStartOfExpansionУ[fileName: ROPE, accessOptions: FS.AccessOptions _ read, streamOptions: FS.StreamOptions _ (5)[TRUE, TRUE, TRUE, TRUE, TRUE], keep: CARDINAL _ 1B (1), createByteCount: FS.ByteCount _ 2560, streamBufferParms: FS.StreamBufferParms _ [vmPagesPerBuffer: 8, nBuffers: 2], extendFileProc: FS.ExtendFileProc, wantedCreatedTime: GMT _ nullGMT, remoteCheck: BOOL _ TRUE, wDir: ROPE _ NIL]Ш JЪЭЬЭЬЭЬШJШ JЪЬ4Щ4JЦУ[fileName: ROPE, accessOptions: FS.AccessOptions _ read, streamOptions: FS.StreamOptions _ (5)[TRUE, TRUE, TRUE, TRUE, TRUE], keep: CARDINAL _ 1B (1), createByteCount: FS.ByteCount _ 2560, streamBufferParms: FS.StreamBufferParms _ [vmPagesPerBuffer: 8, nBuffers: 2], extendFileProc: FS.ExtendFileProc, wantedCreatedTime: GMT _ nullGMT, remoteCheck: BOOL _ TRUE, wDir: ROPE _ NIL]Ш ЪЮ
ЬЭЬЭЬЭЬШ#JЪЬЭЬЭЬ'Ш4JЪЬЭЬЭЬЭЬШ%JЪЬЭЬЭЬЭЬ(Ш;ЪЭЬЭЬЭШJЪЭЬ
ЭЬЭЬЭЬШDJЪЬЭЬШЪ	ЭЬЭЬЭЬЭЬЭШJЪ	ЬЭЬЭЬЭЬЭЬШEJЪЭЬЭЬЭЬШ"JЪЬШJЪЭЬЭЬ"ЭЬЭЬШKJЪЬШЪЭЬЭШJЪЬЭЬШ*JЪЭЬ#ЭЬ#ШJJЪЭЬЭЬШЧJЪЭЬ	ЭЬЭЬШЧJЪЬЭЬЭЬШJЪЭЬШЧJЪЬЭЬЭЬШJЪЬШJЪЬШЧJШ ЪЬЭЬЭЬЭЬЭЬЭЬЭЬШ)JЪЬШJЪЬШJЪЬШJЪЬШJЪЬШJЪЬШЧJШ JЪЭЬШЧ ЕЧ    ╢  
а  