DIRECTORY BcdDefs USING [BcdBase, ModuleIndex], PrincOps USING [GFTIndex]; BasicLoadStateFormat: DEFINITIONS = BEGIN ModuleIndex: TYPE = BcdDefs.ModuleIndex; LoadState: TYPE = LONG POINTER TO LoadStateObject; versionID: CARDINAL = 03302; -- 03302 is compatible with Rubicon Pilot LoadStateObject: TYPE = MACHINE DEPENDENT RECORD [ versionident(0): CARDINAL, nBcds(1): ConfigIndex, gft(2): ModuleTable, bcds(2+SIZE[ModuleTable]): SEQUENCE length(2+SIZE[ModuleTable]): ConfigIndex OF BcdInfo]; ConfigIndex: TYPE = [0..377B]; nullConfig: ConfigIndex = LAST[ConfigIndex]; ModuleTable: TYPE = ARRAY PrincOps.GFTIndex OF ModuleInfo; ModuleInfo: TYPE = MACHINE DEPENDENT RECORD [ fill0: [0..(LAST[CARDINAL]/(LAST[ConfigIndex]-FIRST[ConfigIndex]+1))/2] _ 0, resolved: BOOLEAN, config: ConfigIndex, fill1: [0..LAST[CARDINAL]/(LAST[ModuleIndex]-FIRST[ModuleIndex]+1)] _ 0, module: ModuleIndex]; nullModule: ModuleInfo = [resolved: FALSE, config: nullConfig, module: 0]; BcdInfo: TYPE = MACHINE DEPENDENT RECORD [ SELECT OVERLAID * FROM ptr => [bcd: BcdDefs.BcdBase], flags => [ fill: [0..LAST[CARDINAL]/4] _ 0, exports, typeExported: BOOLEAN] ENDCASE]; Bcd: TYPE = LONG POINTER TO BcdInfo; END. ²BasicLoadStateFormat.mesa Last Modified by McJones, April 18, 1980 1:26 PM Last Modified by Paul Rovner, 4-May-82 9:29:27 Last Edited by: Levin, May 19, 1983 2:05 pm ʘJšœ™Jšœ3™3Jšœ0™0JšÐks+™+J˜šÏk ˜ Jšœžœ˜%Jšœ žœ ˜J˜—Jšœž œ˜#J˜Jšž˜J˜Jšœ žœ˜(J˜Jš œ žœžœžœžœ˜2J˜Jšœ žœ Ïc)˜GJ˜šœžœžœ˜2Jšœžœ˜J˜J˜Jš œžœžœ žœžœ ˜Y—J˜Jšœ žœ ˜J˜šœžœ˜,J˜—Jšœ žœžœžœ ˜:J˜š œ žœžœž œžœ˜-Jš œ žœžœžœžœ˜LJšœ žœ˜J˜Jš œ žœžœžœžœ˜HJ˜J˜—Jšœ$žœ!˜JJ˜š œ žœžœž œžœ˜*šžœžœž˜Jšœ˜šœ ˜ Jšœ žœžœ ˜ Jšœžœ˜—Jšžœ˜ J˜——Jš œžœžœžœžœ ˜$J˜Jšžœ˜J˜—…—´l