Compilation listing of file >2.1spec>online>mib083074>runoff_dim.bcpl. Compilation performed for Martinson.SysMaint.a at 01/24/75 0703.1 mst Fri. Compiled by BCPL version 3.4, August 1973. Compiler updated at 09/25/73 0959.1 mst Tue. Options applied: source xref alist optimize 6180. 1 // This module implements the defined I/O system calls for the runoff_ dim. 2 // Last modified on 05/30/74 at 18:42:47 by R F Mabee. 3 // 4 // Routines defined in this module: 5 // SetModes Fetch mode string and set modes. 6 // GetModeArg Scan mode string for next field. 7 // OldModes Store settable modes in PL/I arg string. 8 // StNum Store numeric mode. 9 // StSwitch Store on/off mode. 10 // Save Stuff globals into SDB. 11 // Unsave Retrieve globals from SDB. 12 // DimAttach Set up runoff_ attachment. 13 // DimDetach Remove runoff_ attachment. 14 // DimWrite Process some text through runoff_. 15 // DimOrder Execute control line from outside. 16 // DimChangemode Alter internal modes and get old modes. 17 // Only the last five routines are external. 18 19 // Copyright (c) 1974 by Massachusetts Institute of Technology and Honeywell Information Systems, Inc. 20 21 // General permission is granted to copy and use this program, but not to sell it, provided that the above 22 // copyright statement is given. Contact Information Processing Services, MIT, for further information. 23 // Please contact R F Mabee at MIT for information on this program and versions for other machines. 24 25 get "head" 1 // Declarations for common BCPL library routines for Multics. 2 // Last modified on 09/05/73 at 03:57:35 by R F Mabee. 3 // Largely rewritten for 6180 Multics; installed in June 1973 by R F Mabee. 4 // First version installed in September 1971 by R F Mabee. 5 6 external // Functions to perform mathematical operations not provided by the language. 7 $( MaxI = "bcpl_arithmetic_$MaxI" // i := MaxI (j, k) 8 MaxR = "bcpl_arithmetic_$MaxR" // x := MaxR (y, z) 9 MinI = "bcpl_arithmetic_$MinI" // i := MinI (j, k) 10 MinR = "bcpl_arithmetic_$MinR" // x := MinR (y, z) 11 AbsI = "bcpl_arithmetic_$AbsI" // i := AbsI (j) 12 AbsR = "bcpl_arithmetic_$AbsR" // x := AbsR (y) 13 SquareRoot = "bcpl_arithmetic_$SquareRoot" // x := SquareRoot (y) 14 IpowerI = "bcpl_arithmetic_$IpowerI" // i := IpowerI (j, k) 15 RpowerI = "bcpl_arithmetic_$RpowerI" // x := RpowerI (y, k) 16 RpowerR = "bcpl_arithmetic_$RpowerR" // x := RpowerR (y, z) 17 RandomI = "bcpl_arithmetic_$RandomI" // i := RandomI () 18 RandomR = "bcpl_arithmetic_$RandomR" // x := RandomR () 19 Logarithm = "bcpl_arithmetic_$Logarithm" // x := Logarithm (y) 20 Exponential = "bcpl_arithmetic_$Exponential" // x := Exponential (y) 21 $) 22 external // Routines to manipulate strings. Caller must supply space to hold string results. 23 $( Packstring = "bcpl_machine_code_$Packstring" // Packstring (Unpacked, Space) 24 Unpackstring = "bcpl_machine_code_$Unpackstring" // Unpackstring (String, Space) 25 CopyString = "bcpl_strings_$CopyString" // CopyString (String, Space) 26 EqualString = "bcpl_strings_$EqualString" // if EqualString (StringA, StringB) do ... 27 CompareStrings = "bcpl_strings_$CompareStrings" // CollatingOrder := CompareStrings (StringA, StringB) 28 Concatenate = "bcpl_strings_$Concatenate" // s := Concatenate (Space, Maxlen, StrA, StrB, ...) 29 Substr = "bcpl_strings_$Substr" // s := Substr (Space, String, Index, [Length]) 30 Subch = "bcpl_machine_code_$Subch" // Ch := Subch (String, Index) 31 Length = "bcpl_strings_$Length" // Len := Length (String) 32 SetLength = "bcpl_strings_$SetLength" // SetLength (String, Len) 33 LengthInWords = "bcpl_strings_$LengthInWords" // Len := LengthInWords (String) 34 Index = "bcpl_strings_$Index" // i := Index (StringA, StringB) 35 IndexCh = "bcpl_strings_$IndexCh" // i := IndexCh (String, Ch) 36 StringToChar = "bcpl_strings_$StringToChar" // Char := StringToChar (String) 37 CharToString = "bcpl_strings_$CharToString" // String := CharToString (Char, Space) 38 MakePl1String = "bcpl_strings_$MakePl1String" // Pl1String := MakePl1String (BcplString, Space, Len) 39 MakeBcplString = "bcpl_strings_$MakeBcplString" // s := MakeBcplString (Pl1String, Len, Space) 40 $) 41 external // Functions to convert values from one representation to another. 42 $( RtoI = "bcpl_machine_code_$RtoI" // i := RtoI (x) 43 ItoR = "bcpl_machine_code_$ItoR" // x := ItoR (i) 44 ConvertStoN = "bcpl_conversions_$ConvertStoN" // r := ConvertStoN (String, [Base]) 45 ConvertNtoS = "bcpl_conversions_$ConvertNtoS" // String := ConvertNtoS (i, Space, [Base, [Digits]]) 46 ConvertFtoS = "bcpl_conversions_$ConvertFtoS" // String := ConvertFtoS (x, Space, [Digits]) 47 RemoveEscapes = "bcpl_conversions_$RemoveEscapes" // s := RemoveEscapes (String, Space) 48 InsertEscapes = "bcpl_conversions_$InsertEscapes" // s := InsertEscapes (String, Space) 49 FormDate = "bcpl_conversions_$FormDate" // FormDate (Seconds, Space10, GMTsw) 50 $) 51 external // Miscellaneous routines to extend the power of the language. 52 $( Longjump = "bcpl_machine_code_$Longjump" // Longjump (Label, Psaved) 53 Level = "bcpl_machine_code_$Level" // Psaved := Level () 54 Bcall = "bcpl_machine_code_$Bcall" // r := Bcall (F, n, (list A1, A2, .. An)) 55 Pl1Call = "bcpl_machine_code_$Pl1Call" // Pl1Call (Routine, ArglistAddress) 56 Move = "bcpl_machine_code_$Move" // Move (ToPtr, FromPtr, WordCount) 57 MoveBits = "bcpl_machine_code_$MoveBits" // MoveBits (ToPtr, ToBit, FromPtr, FromBit, BitCount) 58 ScanChar = "bcpl_machine_code_$ScanChar" // Offset := ScanChar (Ptr, Offset, Length, Ch) 59 NumbArgs = "bcpl_machine_code_$NumbArgs" // Nargs := NumbArgs () 60 NewvecInit = "bcpl_filesys_lib_$NewvecInit" // NewvecInit (Space, Size) 61 NewvecCleanup = "bcpl_filesys_lib_$NewvecCleanup" // NewvecCleanup () 62 Newvec = "bcpl_filesys_lib_$Newvec" // v := Newvec (Size - 1) 63 Freevec = "bcpl_filesys_lib_$Freevec" // Freevec (v) 64 Allocate = "bcpl_filesys_lib_$Allocate" // v := Allocate (Size) 65 Findadr = "bcpl_filesys_lib_$Findadr" // Ptr := Findadr (Name) 66 $) 67 external // BCPL stream I/O routines. 68 $( Open = "bcpl_stream_io_$Open" // Stream := Open (Options, Name, [Length, Delimiter]) 69 Close = "bcpl_stream_io_$Close" // Close (StreamA, StreamB, ...) 70 Readch = "bcpl_machine_code_$Readch" // Readch (Stream, lv Ch) 71 Writech = "bcpl_machine_code_$Writech" // Writech (Stream, Ch) 72 WriteS = "bcpl_stream_io_$WriteS" // WriteS (Stream, String) 73 WriteN = "bcpl_stream_io_$WriteN" // WriteN (Stream, i) 74 Format = "bcpl_stream_io_$Format" // Format (Stream, ControlString, A1, A2, ...) 75 FormatString = "bcpl_stream_io_$FormatString" // FormatString (Space, MaxLen, ControlString, A1, A2, ...) 76 Writeout = "bcpl_stream_io_$Writeout" // Writeout (Stream) 77 Flushinput = "bcpl_stream_io_$Flushinput" // Flushinput (Stream) 78 ResetStream = "bcpl_stream_io_$ResetStream" // ResetStream (Stream, Offset) 79 StreamOffset = "bcpl_stream_io_$StreamOffset" // Offset := StreamOffset (Stream) 80 StreamLength = "bcpl_stream_io_$StreamLength" // Length := StreamLength (Stream) 81 StreamPointer = "bcpl_stream_io_$StreamPointer" // Ptr := StreamPointer (Stream) 82 $) 83 external // Interface to Multics file system. Note: Dirname and Entryname are PL/I strings. 84 $( ExpandPathname = "bcpl_filesys_lib_$ExpandPathname" // s := ExpandPathname (RelativePath, Space) 85 JoinPathname = "bcpl_filesys_lib_$JoinPathname" // s := JoinPathname (Dirname, Entryname, Space) 86 SplitPathname = "bcpl_filesys_lib_$SplitPathname" // SplitPathname (AbsolutePath, Dirname, Entryname) 87 FindSegment = "bcpl_filesys_lib_$FindSegment" // Ptr := FindSegment (Pathname, lv BitCount) 88 MakeSegment = "bcpl_filesys_lib_$MakeSegment" // Ptr := MakeSegment (Pathname) 89 GetPathname = "bcpl_filesys_lib_$GetPathname" // s := GetPathname (Pointer, Space) 90 MakeTempSeg = "bcpl_filesys_lib_$MakeTempSeg" // Ptr := MakeTempSeg (Number, Purpose) 91 DeleteTempSeg = "bcpl_filesys_lib_$DeleteTempSeg" // DeleteTempSeg (Number, Purpose) 92 Terminate = "bcpl_filesys_lib_$Terminate" // Terminate (Pointer) 93 SetBitCount = "bcpl_filesys_lib_$SetBitCount" // SetBitCount (Pointer, BitCount) 94 RawClockTime = "bcpl_machine_code_$RawClockTime" // RawTime := RawClockTime (Space2) 95 TimeToSeconds = "bcpl_machine_code_$TimeToSeconds" // TimeNow := TimeToSeconds (RawTime) 96 GetCpuUsage = "bcpl_filesys_lib_$GetCpuUsage" // MicrosecondsUsed := GetCpuUsage () 97 $) 98 external // Interface to Multics command level features. 99 $( Pl1NumbArgs = "bcpl_command_lib_$Pl1NumbArgs" // Nargs := Pl1NumbArgs () 100 Pl1ArgPtr = "bcpl_command_lib_$Pl1ArgPtr" // Ptr := Pl1ArgPtr (ArgIndex) 101 Pl1Descriptor = "bcpl_command_lib_$Pl1Descriptor" // D := Pl1Descriptor (ArgIndex) 102 Pl1ArgString = "bcpl_command_lib_$Pl1ArgString" // s := Pl1ArgString (ArgIndex, Space, [MaxLen]) 103 Pl1ReturnString = "bcpl_command_lib_$Pl1ReturnString" // Pl1ReturnString (String) 104 ConcatenateArgs = "bcpl_command_lib_$ConcatenateArgs" // s := ConcatenateArgs (FirstIndex, Space, MaxLen) 105 OptionParse = "bcpl_command_lib_$OptionParse" // OptionParse (GetNextCommandArg, Nopts, OptionsList, 106 GetNextCommandArg = "bcpl_command_lib_$GetNextCommandArg" // PointersList, FlagsList, PutName) 107 Complain = "bcpl_command_lib_$Complain" // Complain (ControlString, [A1, A2, A3]) 108 BCPLaddr = "bcpl_machine_code_$BCPLaddr" // Pointer := BCPLaddr (ITSaddress) 109 ITS = "bcpl_machine_code_$ITS" // ITSaddress := ITS (Pointer, Space, [BitOffset]) 110 SetOverflowMask = "bcpl_machine_code_$SetOverflowMask" // SetOverflowMask (true -> Inhibit, Enable) 111 SetHandler = "bcpl_command_lib_$SetHandler" // SetHandler (Name, Handler, Space16) 112 RevertHandler = "bcpl_command_lib_$RevertHandler" // RevertHandler (Name) 113 $) 114 115 global // Library currently reserves all cells below 60 and may expand up to 99. 116 $( OUTPUT : 32; INPUT : 33 117 MONITOR : 34; CONSOLE : 35 118 Ch : 36 119 ProgramID : 37 // Must be set to name of program before calling Complain or MakeTempSeg. 120 Errcode : 38; IOstatus : 39 // Used by Complain; set by some library routines. 121 ArgIndex : 40 // Used by GetNextCommandArg. 122 $) 123 124 manifest // Description of object machine, etc. 125 $( Machine = 6180 126 WordSize = 36 127 ByteSize = 9 // Bits per character in strings. 128 CountSize = 18 // Bits for string length field. 129 Left = 18; Right = $8777777 130 Endofstreamch = $87777 131 Null = $8007777000001 // Multics uses this for empty pointer. 132 $) 133 manifest // These are the options referred to in the declaration of Open. 134 $( Pointer = 1; Console = 2; StreamName = 3 // Type. Specify exactly one. 135 PathName = 4; EntryName = 5; SearchName = 6 136 Read = 16; Write = 32; Append = 48 // Direction. Logor into Type. 137 MultiSegmentFile = 128 // May be logor'ed into above. 138 $) 139 manifest // These are the flags that appear in the list given to OptionParse. 140 $( OptNegatable = 1 // Logor any combination of these values. 141 OptNegate = 2 142 OptGetNext = 4 143 OptConvert = 8 144 OptCallOut = 16 145 $) 26 get "runoff_head" 1 // External, global, and manifest declarations for RUNOFF on Multics. 2 // Last modified on 06/21/73 at 23:30:13 by R F Mabee. 3 4 // Copyright (c) 1973 by the author, Robert F. Mabee. 5 // This program may be reproduced or modified only with explicit written 6 // permission of the author. Permission is hereby extended to those 7 // persons responsible for operating the Multics system to make such 8 // copies as are normally required to ensure the integrity of the Multics 9 // file system. Permission is also hereby extended to those persons 10 // responsible for maintaining the Multics program libraries to make such 11 // copies as are normally required for online installations. 12 13 external // BCPL library routines used by RUNOFF. 14 $( Packstring = "bcpl_machine_code_$Packstring" 15 Unpackstring = "bcpl_machine_code_$Unpackstring" 16 Writech = "bcpl_machine_code_$Writech" 17 WriteS = "bcpl_stream_io_$WriteS" 18 WriteN = "bcpl_stream_io_$WriteN" 19 ConvertNtoS = "bcpl_conversions_$ConvertNtoS" 20 Newvec = "bcpl_filesys_lib_$Newvec" 21 Freevec = "bcpl_filesys_lib_$Freevec" 22 MinI = "bcpl_arithmetic_$MinI" 23 MaxI = "bcpl_arithmetic_$MaxI" 24 FormDate = "bcpl_conversions_$FormDate" 25 $) 26 27 28 external 29 { 30 31 // All routines that form RUNOFF are listed below, even those that are 32 // not external. This listing is thus a table of contents of RUNOFF. 33 34 // Adjust = "runoff_mr3$Adjust" // Print a line, with right-adjustment. 35 Blank = "runoff_mr4$Blank" // Print n blanks. 36 Break = "runoff_mr3$Break" // Break text, printing buffers. 37 // Center = "runoff_mr3$Center" // Print the current line, centered. 38 Check_ref = "runoff_mr9$Check_ref" // Handle reference to symbol in control line. 39 // Cleanup = "runoff_driver$Cleanup" // Close files, etc. Invoked by unwinder. 40 ConsoleReadline = "runoff_mr0$ConsoleReadline" // Accept next line from user_input. 41 Control = "runoff_mr2$Control" // Process a control line. 42 // DimAttach = "runoff_dim$runoff_attach" // IOSIM attach entry point. 43 // DimChangemode = "runoff_dim$runoff_changemode" // Change internal modes. 44 // DimDetach = "runoff_dim$runoff_detach" // Disconnect runoff DIM. 45 // DimOrder = "runoff_dim$runoff_order" // Execute runoff command line for dim. 46 // DimWrite = "runoff_dim$DimWrite" // Process chunk of text as runoff input. 47 Eject = "runoff_mr3$Eject" // Eject paper, printing footer. 48 // Equation = "runoff_mr3$Equation" // Print an equation. 49 ExecuteCommand = "runoff_mr0$ExecuteCommand" // Pass control line to command processor. 50 FillTrTable = "runoff_mr1$FillTrTable" // Set up a conversion table. 51 FindInput = "runoff_driver$FindInput" // Open new input stream for given name. 52 // FixTab = "runoff_mr0$FixTab" // Calculate tab position and insert blanks. 53 Foot_begin = "runoff_mr6$Foot_begin" // Start processing footnote 54 Foot_end = "runoff_mr6$Foot_end" // Finish processing footnote. 55 Freeheads = "runoff_mr5$Freeheads" // Release a set of headers or footers. 56 // GetArg = "runoff_driver$GetArg" // Arg fetching routine for Option. 57 Gethead = "runoff_mr5$Gethead" // Package header up in new vector. 58 // GetModeArg = "runoff_dim$GetArgMode" // Arg fetching routine for Option for DIM. 59 GetString = "runoff_mr8$GetString" // Read and store string expression. 60 // GetSymbol = "runoff_mr9$GetSymbol" // Find value and type of named symbol. 61 InitializeSymbolTree = "runoff_mr9$InitializeSymbolTree" // Load up symbol table at start-up. 62 InsertFile = "runoff_mr4$InsertFile" // Process .if line. 63 // MakeN = "runoff_mr8$MakeN" // Convert string to character constant (number). 64 Need = "runoff_mr4$Need" // Eject if not enough lines remain. 65 NeedSS = "runoff_mr4$NeedSS" // Need regardless of double-spacing. 66 Newline = "runoff_mr4$Newline" // Print n newline characters. 67 // Number = "runoff_mr2$Number" // Scan a number from a control line. 68 Nx_close = "runoff_mr0$Nx_close" // Close current input stream. 69 Nx_open = "runoff_mr0$Nx_open" // Open a new stacked input stream. 70 Nx_reset = "runoff_mr0$Nx_reset" // Set read pointer back to beginning of current file. 71 // OldModes = "runoff_dim$OldModes" // Create return mode string for changemode (dim). 72 // PrintErrorFile = "runoff_driver$PrintErrorFile" // Dump buffered error messages on console. 73 PrinterIndent = "runoff_mr4$PrinterIndent" // Indent an extra twenty spaces for printer. 74 PrintFootnotes = "runoff_mr6$PrintFootnotes" // To output the accumulated footnotes. 75 Readline = "runoff_mr0$Readline" // Read a line of input. 76 Readhead = "runoff_mr5$Readhead" // Read header into vector provided. 77 ReadExp = "runoff_mr8$ReadExp" // Evaluate an expression. 78 ReadName = "runoff_mr4$ReadName" // Scan name from control line, pack in vector. 79 ReadNumber = "runoff_mr8$ReadNumber" // Convert number from control line. 80 ReadParam = "runoff_mr8$ReadParam" // Evaluate a parameter expression. 81 ReadString = "runoff_mr8$ReadString" // Read a string. 82 Report = "runoff_mr0$Report" // Report an error in usage, etc. 83 Roff = "runoff_mr1$Roff" // The main program for RUNOFF. 84 RoffProcess = "runoff_mr0$RoffProcess" // Called for each input file. 85 // runoff_module = "runoff_$runoff_module_" // Outer module transfer vector for dim. 86 // RunoffCommand = "runoff_driver$runoff" // Command interface. 87 // Save = "runoff_dim$Save" // Store global vector in SDB for dim. 88 SetCharsw = "runoff_mr0$SetCharsw" // Turn chars feature on or off. 89 // SetCtable = "runoff_mr9$SetCtable" // Update translation table from .sr command. 90 SetDevice = "runoff_mr1$SetDevice" // Change tables for a new device. 91 Sethead = "runoff_mr5$Sethead" // Set up header or footer. 92 SetLinesLeft = "runoff_mr4$SetLinesLeft" // Repeat calculation of LinesLeft. 93 // SetModes = "runoff_dim$SetModes" // Mode changing subroutine for DIM. 94 SetPaging = "runoff_mr1$SetPaging" // Turn no pagination feature on or off. 95 SetSwitches = "runoff_mr1$SetSwitches" // Initialize most of runoff. 96 // SetSymbol = "runoff_mr9$SetSymbol" // Assign new value and type to named symbol. 97 // Set_param = "runoff_mr2$Set_param" // Update variable, absolute or relatve. 98 Set_ref = "runoff_mr9$Set_ref" // Define or update symbol. 99 // Skip = "runoff_mr8$Skip" // Skip over blanks in control line. 100 Skiptolabel = "runoff_mr4$Skiptolabel" // For .gb and .gf. 101 Spacing = "runoff_mr3$Spacing" // Process vertical spacing. 102 // StNum = "runoff_dim$StNum" // Store number into mode string for OldModes. 103 // Store = "runoff_mr7$Store" // Save character until line is complete (for "chars"). 104 StoreArabic = "runoff_mr4$StoreArabic" // Convert number to string. 105 // StoreCtable = "runoff_mr9$StoreCtable" // Convert translation table to string form. 106 StoreDate = "runoff_mr4$StoreDate" // Store current date in vector. 107 StoreRoman = "runoff_mr4$StoreRoman" // Store number as roman numeral. 108 StoreString = "runoff_mr0$StoreString" // Make copy of string in free storage. 109 // StSwitch = "runoff_dim$StSwitch" // Store switch mode into mode string. 110 // SubscriptString = "runoff_mr8$SubscriptString" // Evaluate substring expression. 111 Text = "runoff_mr3$Text" // Process 1 line of input text. 112 Title = "runoff_mr5$Title" // Print a header or a footer. 113 // Tree_search = "runoff_mr9$Tree_search" // Look named symbol up in symbol table. 114 // TryToHyphenate = "runoff_mr3$TryToHyphenate" // Last word won't fit on line, break it if possible. 115 Typeout = "runoff_mr0$Typeout" // Type rest of input line on console. 116 // Unsave = "runoff_dim$Unsave" // Restore globals from SDB for dim. 117 UpdateSymbol = "runoff_mr9$UpdateSymbol" // Set named symbol to value from control line. 118 Use_ref = "runoff_mr9$Use_ref" // Insert symbol value in place of symbol 119 Wait = "runoff_mr0$Wait" // Wait for an interaction from the console. 120 Width = "runoff_mr3$Width" // Return width of a character. 121 WrCh = "runoff_mr7$WrCh" // "Chars" routine 122 WrChInit = "runoff_mr7$WrChInit" // Initialize "chars" routine 123 WriteChar = "runoff_mr4$WriteChar" // Write a character of output. 124 // Wrline = "runoff_ms7$Wrline" // Write stored line into chars file. 125 126 } 127 128 global // Scalars, switches, common vectors, etc. ... 129 { 130 Ad : 100 // Adjust 131 Again : 101 // Input line in Rawchar must be reprocessed. 132 Ce : 102 // Number of lines to center. 133 Char : 103 // Buffer for output characters. 134 CharsTable : 104 // Table of special characters for .chars output. 135 Charsw : 105 // Indication of unprintable characters. 136 ChStream : 106 // Output stream for "chars" option output 137 Conv : 107 // Character conversion. 138 139 Device : 110 // Type of device output is to be formatted for. 140 DeviceTable : 111 // Conversions for this device. 141 Ef : 112 // Even foot 142 Eh : 113 // Even head. 143 Eq : 114 // Equation line counter. 144 Eqcnt : 115 // Equation reference counter 145 ErrorfilePointer : 116 // Pointer to the temporary error file if any. 146 Errorstream : 117 // Output stream for diagnostics. 147 148 ErrorTempID : 120 // ID number for temporary error message segment. 149 ExpError : 121 // Indicates badly formed expression. 150 ExtraMargin : 122 // Indent entire text this many spaces. 151 Fc : 123 // No. of characters in Footbuf 152 Fd : 124 // Remember if text is double spaced 153 Fi : 125 // Fill switch. 154 FileName : 126 // Name of first input file. 155 Filesw : 127 // True if output is going to a file. 156 157 Findent : 130 // Indenting in use before entering footnote. 158 Fl : 131 // No. of lines in FootList 159 Flp : 132 // Print line although page appears full 160 Foot : 133 // Footnote counter 161 Footbuf : 134 // Buffer to hold current footnote. 162 FootList : 135 // Working pointer into list of footnote lines. 163 FootListBase : 136 // Base of footnote list. 164 FootRef : 137 // Footnote reference string in footnote body. 165 166 Fp : 140 // First page to print. 167 Fr : 141 // Footnote counter reset switch 168 From : 142 // -from argument. 169 Ft : 143 // Footnote processing switch 170 Fth : 144 // Vector for user-defined demarcation line 171 Fundent : 145 // Undenting in use before entering footnote. 172 Hyphenating : 146 // True if an attempt to break a word should be made. 173 In : 147 // Indent to here. 174 175 InputFileName : 150 // Name of current input file. 176 InputLines : 151 // Current line number in current source file. 177 InputStack : 152 // Stack of saved input streams. 178 JumpLine : 153 // Line number of .gb or .gf command during skip. 179 LinesLeft : 154 // Number of usable text lines left on this page. 180 LIno : 155 // Number of literal lines following. 181 Ll : 156 // Line length. 182 Lp : 157 // Last page to print. 183 184 Ma1 : 160 // Space above header. 185 Ma2 : 161 // Space below header. 186 Ma3 : 162 // Space above foot. 187 Ma4 : 163 // Space below foot. 188 Ms : 164 // Spacing between lines (ss = 1, ds = 2, etc.) 189 MultiplePagecount : 165 // Form feeds between pages to printer. 190 Nc : 166 // Number of characters in Char. 191 NestingDepth : 167 // Index into stack of input files. 192 193 Nl : 170 // Last used line number. 194 NNp : 171 // Next page number. 195 NoControl : 172 // True if control lines are to be ignored. 196 NoFill : 173 // True if fill mode is always off. 197 NoFtNo : 174 // True to suppress number on next footnote reference. 198 NoPaging : 175 // True if no pagination is desired. 199 Np : 176 // Current page number. 200 Nr : 177 // Number of characters in Rawchar. 201 202 Nrx : 180 // Count through input buffer. 203 OddPage : 181 // True if current page number is odd. 204 Of : 182 // Odd foot. 205 Oh : 183 // Odd head. 206 Output : 184 // Runoff's main text output stream. 207 PadLeft : 185 // True if padding is to start from left of line. 208 Parameter : 186 // Initial value of built-in symbol. 209 Passes : 187 // Number of passes left to make. 210 211 Pi : 190 // Space needed for a picture. 212 Pl : 191 // Paper length. 213 Print : 192 // Whether or not to print. 214 Printersw : 193 // Output is intended for online printer. 215 PrintLineNumbers : 194 // True if source line numbers are to be printed in output. 216 Rawchar : 195 // Buffer for input line. 217 Roman : 196 // Roman numeral pagination. 218 SavedCc : 197 // Temporary used by WriteChar. 219 220 Selsw : 200 // for selectric ball option 221 Spec_char : 201 // For symbol references. 222 Start : 202 // -start argument. 223 Stopsw : 203 // Stop between pages of output. 224 Temp : 204 // Vector to hold unprinted character 225 Tempc : 205 // No. of characters in Temp 226 TextRef : 206 // Footnote reference string in main text. 227 TimeNow : 207 // Clock reading when runoff is entered. 228 229 To : 210 // -to argument. 230 TrTable : 211 // Translation table for .tr. 231 TreeRoot : 212 // Base of symbol tree. 232 Un : 213 // Undent to here. 233 Waitsw : 214 // From -wait option. 234 235 // 300 to 309 are reserved for runoff_driver. 236 // 310 to 319 are reserved for runoff_dim. 237 // 320 to 329 are reserved for runoff_mr0. 238 // 330 to 339 are reserved for runoff_mr7. 239 } 240 241 manifest 242 { 243 ByteBits = 9 // Bits per character, as packed by compiler. 244 Skip = $8177 // A character that will be ignored on output. 245 Maxline = 400 // Buffer lengths for input and output 246 Maxheads = 20 // No of header or footer lines. 247 MaxDepth = 90 // Nesting times 3 for .if. 248 249 LL_ = 65 // Default line length. 250 PL_ = 66 // Default page length -- 11 inches, 6 lines/in. 251 MA1_ = 4 // Default top margin above header 252 MA2_ = 2 // Default top margin below header 253 MA3_ = 2 // Default bottom margin above footer 254 MA4_ = 4 // Default bottom margin below footer 255 } 27 28 29 external 30 $( DimAttach = "runoff_dim$runoff_attach" 31 DimDetach = "runoff_dim$runoff_detach" 32 DimWrite = "runoff_dim$runoff_write" 33 DimOrder = "runoff_dim$runoff_order" 34 DimChangemode = "runoff_dim$runoff_changemode" 35 36 Ionmat = "error_table_$ionmat" 37 BadMode = "error_table_$undefined_order_request" 38 $) 39 40 static $( FreeSDBlist = 0 $) 41 42 global 43 $( SDB : 70 44 StatPtr : 71 45 SdbLV : 72 46 ModeArg : 73 47 48 Global : 0 49 $) 50 manifest 51 $( SdbIoname2 = 10 52 SdbSave = 20 53 SaveLen = 250 54 SdbLength = 250 + 20 55 $) 56 57 let SetModes (n) be 58 $( let OldChars, OldDevice, OldPaging, OldControl, OldFill = Charsw, Device, NoPaging, NoControl, NoFill 59 ModeArg := vec 128 60 Pl1ArgString (n, ModeArg) 61 ArgIndex := 1 62 let Names = list "device", "margin", "chars", "pagination", "control", 63 "fill", "hyphenate", "number" 64 and Pointers = list lv Device, lv ExtraMargin, lv Charsw, lv NoPaging, lv NoControl, 65 lv NoFill, lv Hyphenating, lv PrintLineNumbers 66 and Flags = table OptConvert, OptConvert, OptNegatable, OptNegatable | OptNegate, OptNegatable | OptNegate, 67 OptNegatable | OptNegate, OptNegatable, OptNegatable 68 69 OptionParse (GetModeArg, 8, Names, Pointers, Flags, 0) 70 71 if OldChars neqv Charsw do SetCharsw (Charsw) 72 if OldDevice ne Device do SetDevice (Device) 73 if OldPaging neqv NoPaging do SetPaging (NoPaging) 74 if OldControl neqv NoControl do LIno := NoControl -> 1000000, 0 75 if OldFill neqv NoFill do Fi := not NoFill 76 $) 77 and GetModeArg (v) = valof 78 $( let Len = Length (ModeArg) 79 while ArgIndex le Len & Subch (ModeArg, ArgIndex) = '*s' do ArgIndex := ArgIndex + 1 80 if ArgIndex > Len resultis false 81 let First = ArgIndex 82 while ArgIndex le Len & Subch (ModeArg, ArgIndex) ne '*s' do ArgIndex := ArgIndex + 1 83 Substr (v, ModeArg, First, ArgIndex - First) 84 resultis true 85 $) 86 and OldModes (n) be 87 $( let v = vec 128 88 SetLength (v, 0) 89 StNum (v, "device", Device) 90 StNum (v, "margin", ExtraMargin) 91 StSwitch (v, "chars", Charsw) 92 StSwitch (v, "pagination", not NoPaging) 93 StSwitch (v, "control", not NoControl) 94 StSwitch (v, "fill", not NoFill) 95 StSwitch (v, "hyphenate", Hyphenating) 96 StSwitch (v, "number", PrintLineNumbers) 97 let Sp, Desc = Pl1ArgPtr (n), Pl1Descriptor (n) 98 MakePl1String (v, Sp, Desc & Right) 99 $) 100 and StNum (Space, Name, Value) be 101 $( let v = vec 20 102 Concatenate (Space, 511, Space, "-", Name, "*s", ConvertNtoS (Value, v), "*s") 103 $) 104 and StSwitch (Space, Name, Value) be 105 $( let b = Value -> "-", "-no_" 106 Concatenate (Space, 511, Space, b, Name, "*s") 107 $) 108 109 and Save () be for i = 0 to SaveLen do SDB!(SdbSave + i) := (lv Global)!i 110 and Unsave (n) be 111 $( let Sptr = Pl1ArgPtr (1) 112 let s = BCPLaddr (Sptr) 113 for i = 32 to SaveLen do (lv Global)!i := s!(SdbSave + i) 114 StatPtr := Pl1ArgPtr (n) 115 StatPtr!0, StatPtr!1 := 0, 0 116 SdbLV := Sptr 117 $) 118 119 let DimAttach () be main // call attach (ioname1, dimname, ioname2, mode, status, sdbptr) 120 $( Errcode, ProgramID := 0, "runoff_dim" 121 StatPtr := Pl1ArgPtr (5) 122 StatPtr!0, StatPtr!1 := 0, 0 123 SdbLV := Pl1ArgPtr (6) 124 unless BCPLaddr (SdbLV) = Null do 125 $( StatPtr!0 := rv Ionmat 126 return 127 $) 128 129 SDB := FreeSDBlist 130 test SDB = 0 131 then SDB := Allocate (SdbLength + 10000) 132 or FreeSDBlist := SDB!0 133 134 NewvecInit (SDB + SdbLength, 10000 - 2) 135 136 let Arg = vec 200 137 MakePl1String (Pl1ArgString (2, Arg), SDB, 32) 138 ITS (ITS (Null, SDB + SdbIoname2), SDB + 8) 139 MakePl1String (Pl1ArgString (3, Arg), SDB + SdbIoname2 + 3, 32) 140 SDB!(SdbIoname2+2) := Length (Arg) 141 142 MONITOR, OUTPUT := Open (StreamName + Write, "error_output"), Open (StreamName + Write, Arg, 1000, 0) 143 Output := OUTPUT 144 CONSOLE := 0 145 Errorstream, ChStream := MONITOR, 0 146 Waitsw, Stopsw, Filesw := false, false, false 147 FileName := "<stream>" 148 From, To, Start := 1, 999999, 1 149 Charsw, Selsw, Device := false, false, 37 150 NoPaging, Hyphenating := false, false 151 ExtraMargin, PrintLineNumbers := 0, false 152 NoControl, NoFill := false, false 153 Passes := 1 154 Parameter := "" 155 ErrorTempID, TimeNow := 0, 0 156 157 InitializeSymbolTree () 158 InputStack := Newvec (MaxDepth) 159 let w = vec 2 160 TimeNow := TimeToSeconds (RawClockTime (w)) 161 162 Char := Newvec (Maxline * 2) 163 Rawchar := Newvec (Maxline + 20) 164 Rawchar!0 := 0 165 166 Eh, Oh, Ef, Of := Newvec (Maxheads), Newvec (Maxheads), Newvec (Maxheads), Newvec (Maxheads) 167 for i = 0 to Maxheads do Eh!i, Oh!i, Ef!i, Of!i := 0, 0, 0, 0 168 169 Conv, TrTable, DeviceTable, CharsTable := Newvec (128), Newvec (128), Newvec (128), Newvec (128) 170 for i = 0 to 127 do CharsTable!i := '*s' 171 FillTrTable () 172 SetDevice (Device) 173 174 Footbuf := Newvec (Maxline + 20) 175 Temp := Newvec (Maxline * 2) 176 177 SetSwitches () 178 SetModes (4) 179 180 Save () 181 ITS (SDB, SdbLV) 182 $) 183 and DimDetach () be main // call detach (sdbptr, ioname2, disp, status) 184 $( Unsave (4) 185 Break () 186 Eject () 187 unless OUTPUT = 0 do Close (OUTPUT) 188 unless ChStream = 0 do Close (ChStream) 189 Close (MONITOR) 190 SDB!0 := FreeSDBlist 191 FreeSDBlist := SDB 192 NewvecCleanup () 193 ITS (Null, SdbLV) 194 StatPtr!0, StatPtr!1 := 0, $84000000 195 $) 196 let DimWrite () be main // call write (sdbptr, workspace, offset, nelem, nelemt, status) 197 $( Unsave (6) 198 let Workspace, Offset, Nelem = BCPLaddr (Pl1ArgPtr (2)), rv Pl1ArgPtr (3), rv Pl1ArgPtr (4) 199 Workspace := Workspace + Offset / 4 200 Offset := Offset rem 4 201 INPUT := Open (Pointer + Read, Workspace, Nelem + Offset) 202 for i = 1 to Offset do Readch (INPUT, lv Ch) 203 RoffProcess (INPUT) 204 Writeout (Output) 205 Save () 206 rv Pl1ArgPtr (5) := Nelem 207 $) 208 209 let DimOrder () be main // call order (sdbptr, request, pointer, status) 210 $( Unsave (4) 211 let Arg = vec 200 212 Pl1ArgString (2, Arg) 213 Unpackstring (Arg, Rawchar) 214 Nr := Rawchar!0 215 Rawchar!0 := 0 216 Rawchar!(Nr + 1) := '*s' 217 while Rawchar!Nr = '*s' do Nr := Nr - 1 218 test Rawchar!1 = '.' 219 then Control () 220 or if Rawchar!1 = '%' do 221 $( let Retptr = BCPLaddr (Pl1ArgPtr (3)) 222 Nrx, Nr := 1, Nr + 1 223 Check_ref () 224 rv Retptr := ReadParam (0) 225 $) 226 Nr := 0 227 Save () 228 $) 229 and DimChangemode () be main // call changemode (sdbptr, newmode, oldmode, status) 230 $( Unsave (4) 231 OldModes (3) 232 SetModes (2) 233 Save () 234 $) CAE time 6.1, 102 source lines per second. cross reference table AbsI head: 11 AbsR head: 12 Ad runoff_head: 130 Again runoff_head: 131 Allocate head: 64, runoff_dim: 131 Append head: 136 Arg runoff_dim: 136, 137, 139, 140, 142, 211, 212, 213 ArgIndex head: 121, runoff_dim: 61, 79, 79, 79, 79, 80, 81, 82, 82, 82, 82, 83 b runoff_dim: 105, 106 BadMode runoff_dim: 37 Bcall head: 54 BCPLaddr head: 108, runoff_dim: 112, 124, 198, 221 Blank runoff_head: 35 Break runoff_head: 36, runoff_dim: 185 ByteBits runoff_head: 243 ByteSize head: 127 Ce runoff_head: 132 Ch head: 118, runoff_dim: 202 Char runoff_head: 133, runoff_dim: 162 CharsTable runoff_head: 134, runoff_dim: 169, 170 Charsw runoff_head: 135, runoff_dim: 58, 64, 71, 71, 91, 149 CharToString head: 37 Check_ref runoff_head: 38, runoff_dim: 223 ChStream runoff_head: 136, runoff_dim: 145, 188, 188 Close head: 69, runoff_dim: 187, 188, 189 CompareStrings head: 27 Complain head: 107 Concatenate head: 28, runoff_dim: 102, 106 ConcatenateArgs head: 104 CONSOLE head: 117, runoff_dim: 144 Console head: 134 ConsoleReadline runoff_head: 40 Control runoff_head: 41, runoff_dim: 219 Conv runoff_head: 137, runoff_dim: 169 ConvertFtoS head: 46 ConvertNtoS head: 45, runoff_head: 19, runoff_dim: 102 ConvertStoN head: 44 CopyString head: 25 CountSize head: 128 DeleteTempSeg head: 91 Desc runoff_dim: 97, 98 Device runoff_head: 139, runoff_dim: 58, 64, 72, 72, 89, 149, 172 DeviceTable runoff_head: 140, runoff_dim: 169 DimAttach runoff_dim: 30, 119 DimChangemode runoff_dim: 34, 229 DimDetach runoff_dim: 31, 183 DimOrder runoff_dim: 33, 209 DimWrite runoff_dim: 32, 196 Ef runoff_head: 141, runoff_dim: 166, 167 Eh runoff_head: 142, runoff_dim: 166, 167 Eject runoff_head: 47, runoff_dim: 186 Endofstreamch head: 130 EntryName head: 135 Eq runoff_head: 143 Eqcnt runoff_head: 144 EqualString head: 26 Errcode head: 120, runoff_dim: 120 ErrorfilePointer runoff_head: 145 Errorstream runoff_head: 146, runoff_dim: 145 ErrorTempID runoff_head: 148, runoff_dim: 155 ExecuteCommand runoff_head: 49 ExpandPathname head: 84 ExpError runoff_head: 149 Exponential head: 20 ExtraMargin runoff_head: 150, runoff_dim: 64, 90, 151 Fc runoff_head: 151 Fd runoff_head: 152 Fi runoff_head: 153, runoff_dim: 75 FileName runoff_head: 154, runoff_dim: 147 Filesw runoff_head: 155, runoff_dim: 146 FillTrTable runoff_head: 50, runoff_dim: 171 Findadr head: 65 Findent runoff_head: 157 FindInput runoff_head: 51 FindSegment head: 87 First runoff_dim: 81, 83, 83 Fl runoff_head: 158 Flags runoff_dim: 66, 69 Flp runoff_head: 159 Flushinput head: 77 Foot runoff_head: 160 Footbuf runoff_head: 161, runoff_dim: 174 FootList runoff_head: 162 FootListBase runoff_head: 163 FootRef runoff_head: 164 Foot_begin runoff_head: 53 Foot_end runoff_head: 54 Format head: 74 FormatString head: 75 FormDate head: 49, runoff_head: 24 Fp runoff_head: 166 Fr runoff_head: 167 Freeheads runoff_head: 55 FreeSDBlist runoff_dim: 40, 129, 132, 190, 191 Freevec head: 63, runoff_head: 21 From runoff_head: 168, runoff_dim: 148 Ft runoff_head: 169 Fth runoff_head: 170 Fundent runoff_head: 171 GetCpuUsage head: 96 Gethead runoff_head: 57 GetModeArg runoff_dim: 69, 77 GetNextCommandArg head: 106 GetPathname head: 89 GetString runoff_head: 59 Global runoff_dim: 48, 109, 113 Hyphenating runoff_head: 172, runoff_dim: 65, 95, 150 i runoff_dim: 109, 109, 109, 113, 113, 113, 167, 167, 167, 167, 167, 170, 170, 202 In runoff_head: 173 Index head: 34 IndexCh head: 35 InitializeSymbolTree runoff_head: 61, runoff_dim: 157 INPUT head: 116, runoff_dim: 201, 202, 203 InputFileName runoff_head: 175 InputLines runoff_head: 176 InputStack runoff_head: 177, runoff_dim: 158 InsertEscapes head: 48 InsertFile runoff_head: 62 Ionmat runoff_dim: 36, 125 IOstatus head: 120 IpowerI head: 14 ItoR head: 43 ITS head: 109, runoff_dim: 138, 138, 181, 193 JoinPathname head: 85 JumpLine runoff_head: 178 Left head: 129 Len runoff_dim: 78, 79, 80, 82 Length head: 31, runoff_dim: 78, 140 LengthInWords head: 33 Level head: 53 LinesLeft runoff_head: 179 LIno runoff_head: 180, runoff_dim: 74 Ll runoff_head: 181 LL_ runoff_head: 249 Logarithm head: 19 Longjump head: 52 Lp runoff_head: 182 Ma1 runoff_head: 184 MA1_ runoff_head: 251 Ma2 runoff_head: 185 MA2_ runoff_head: 252 Ma3 runoff_head: 186 MA3_ runoff_head: 253 Ma4 runoff_head: 187 MA4_ runoff_head: 254 Machine head: 125 MakeBcplString head: 39 MakePl1String head: 38, runoff_dim: 98, 137, 139 MakeSegment head: 88 MakeTempSeg head: 90 MaxDepth runoff_head: 247, runoff_dim: 158 Maxheads runoff_head: 246, runoff_dim: 166, 166, 166, 166, 167 MaxI head: 7, runoff_head: 23 Maxline runoff_head: 245, runoff_dim: 162, 163, 174, 175 MaxR head: 8 MinI head: 9, runoff_head: 22 MinR head: 10 ModeArg runoff_dim: 46, 59, 60, 78, 79, 82, 83 MONITOR head: 117, runoff_dim: 142, 145, 189 Move head: 56 MoveBits head: 57 Ms runoff_head: 188 MultiplePagecount runoff_head: 189 MultiSegmentFile head: 137 n runoff_dim: 57, 60, 86, 97, 97, 110, 114 Name runoff_dim: 100, 102, 104, 106 NamesJPò!‚d!  P PFôXJ€Dì°Ò@ Âû"wa€Ï u€€€@€ FôÿÿÿÖKGee Multics €Ÿ-¾©‹ESžhVp&- ”óöÿÿÿÖpSwanson Multics €£E€ÑôTêi2TÜHÄ ¢ óÚ ˜F óÎÿÿÿÖLFlegel Multics °€£EÝ€ÑþTêvuº, Ì Ìó²ÿÿÿÖnD'Souza Office €Ž2™[€L—Q¦¥oJ®Êx&ó–ÿÿÿÖMFudge SysAdmin €¢’gÀdðT³èu¤‹Òój &ózQ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúÿýþÿÿûÿÿÿÿûsÿ÷ÿþ&óTÿÿÿÖNBuker HFED LÛ¯g6k *Òî X X.ó8NÒH0ˆ€€€€.ó ÿÿÿÖODevelnet Develnet LÌšz¿× tf j ¦ ¦2óîOf€! @2ó¼ÿÿÿÖPEhrlenholtz Operator M4g‰d3 Â9 ¸ ì ì*ó P90ˆ€€€€*óvÿÿÿÖQEichele Multics €Œ[·€$ëQø×éü è \ $ $óZÿÿÿÖyTesan Multics €¢‡߉€b.T²³åCN§jó>ÿÿÿÖRElhard Multics °€¢’lÀeQT´@gM,ÜF \ó"ÿÿÿÖ~MacDonald SysMaint €£E²@ÒÆTëÊ8M!„Ê,óÿÿÿÖSEhrman Office K¹)*G x4 ¸@òêS4à@ @ À @@@òªÿÿÿÖTDurand Multics €¡³=IíATwbgïh Êt  FòŽš<FòHÿÿÿÖUEHo Develcon L$bSú‰ 6´ j4ò,U´$D@@@@4òøÿÿÿÖVDFreedman UOFC K !ÒNÖ— †¦@  Â<òÜV¦H0ˆ€€€€<ò ÿÿÿÖWDGHowe Multics €£”Ä€åàTóÀRÜ.,X‹ ú úò„ÿÿÿÖhPeplow EngAdmin €@aôsõ/ Q±@¼ÜÄ«„´æòhÿÿÿÖXDRobinson t runoff_head: 92 SetModes runoff_dim: 57, 178, 232 SetOverflowMask head: 110 SetPaging runoff_head: 94, runoff_dim: 73 SetSwitches runoff_head: 95, runoff_dim: 177 Set_ref runoff_head: 98 Skip runoff_head: 244 Skiptolabel runoff_head: 100 Sp runoff_dim: 97, 98 Space runoff_dim: 100, 102, 102, 104, 106, 106 Spacing runoff_head: 101 Spec_char runoff_head: 221 SplitPathname head: 86 Sptr runoff_dim: 111, 112, 116 SquareRoot head: 13 Start runoff_head: 222, runoff_dim: 148 StatPtr runoff_dim: 44, 114, 115, 115, 121, 122, 122, 125, 194, 194 StNum runoff_dim: 89, 90, 100 Stopsw runoff_head: 223, runoff_dim: 146 StoreArabic runoff_head: 104 StoreDate runoff_head: 106 StoreRoman runoff_head: 107 StoreString runoff_head: 108 StreamLength head: 80 StreamName head: 134, runoff_dim: 142, 142 StreamOffset head: 79 StreamPointer head: 81 StringToChar head: 36 StSwitch runoff_dim: 91, 92, 93, 94, 95, 96, 104 Subch head: 30, runoff_dim: 79, 82 Substr head: 29, runoff_dim: 83 Temp runoff_head: 224, runoff_dim: 175 Tempc runoff_head: 225 Terminate head: 92 Text runoff_head: 111 TextRef runoff_head: 226 TimeNow runoff_head: 227, runoff_dim: 155, 160 TimeToSeconds head: 95, runoff_dim: 160 Title runoff_head: 112 To runoff_head: 229, runoff_dim: 148 TreeRoot runoff_head: 231 TrTable runoff_head: 230, runoff_dim: 169 Typeout runoff_head: 115 Un runoff_head: 232 Unpackstring head: 24, runoff_head: 15, runoff_dim: 213 Unsave runoff_dim: 110, 184, 197, 210, 230 UpdateSymbol runoff_head: 117 Use_ref runoff_head: 118 v runoff_dim: 77, 83, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 98, 101, 102 Value runoff_dim: 100, 102, 104, 105 w runoff_dim: 159, 160 Wait runoff_head: 119 Waitsw runoff_head: 233, runoff_dim: 146 Width runoff_head: 120 WordSize head: 126 Workspace runoff_dim: 198, 199, 199, 201 WrCh runoff_head: 121 WrChInit runoff_head: 122 Write head: 136, runoff_dim: 142, 142 Writech head: 71, runoff_head: 16 WriteChar runoff_head: 123 WriteN head: 73, runoff_head: 18 Writeout head: 76, runoff_dim: 204 WriteS head: 72, runoff_head: 17 Trans time 2.0, 789 object words per second. " Begin text of SetModes aa 000000 000010 123145 zero 8,42597 " SetModes aa 000001 164115 157144 zero 59469,56932 aa 000002 145163 000000 zero 51827 L1: aa 000003 000000 213000 57 epaq 0 " set lp to linkage section aa 000004 700026 764161 lprplp sb|22,*au aa 000005 200000 021100 adlx1 bp|0 " BCPL save aa 000006 700000 542111 sprpbp sb|0,x1 aa 000007 700001 544111 sprplp sb|1,x1 aa 000010 700427 620111 eax0 sb|279,x1 aa 000011 777760 360003 anx0 -16,du aa 000012 700025 740100 stx0 sb|21 " end of save sequence aa 000013 600254 236100 58 ldq sp|172 " NoControl aa 000014 700004 756111 stq sb|4,x1 " OldControl aa 000015 600257 236100 ldq sp|175 " NoPaging aa 000016 700007 756111 stq sb|7,x1 " OldPaging aa 000017 600151 236100 ldq sp|105 " Charsw aa 000020 700006 756111 stq sb|6,x1 " OldChars aa 000021 600156 236100 ldq sp|110 " Device aa 000022 700003 756111 stq sb|3,x1 " OldDevice aa 000023 600255 236100 ldq sp|173 " NoFill aa 000024 700005 756111 stq sb|5,x1 " OldFill aa 000025 700010 350111 59 eapap sb|8,x1 " a vector aa 000026 600111 540100 sprpap sp|73 " ModeArg aa 000027 700002 236111 60 ldq sb|2,x1 " n aa 000030 700240 756111 stq sb|160,x1 aa 000031 600111 236100 ldq sp|73 " ModeArg aa 000032 700241 756111 stq sb|161,x1 4a 000033 400122 272120 tsbbp lp|L11,* " Pl1ArgString aa 000034 000236 000002 zero 158,2 aa 000035 000001 236007 61 ldq 1,dl " 1 aa 000036 600050 756100 stq sp|40 " ArgIndex aa 000037 000166 350004 62 eapap L12 " "control" aa 000040 700220 540111 sprpap sb|144,x1 aa 000041 000162 350004 eapap L13 " "number" aa 000042 700223 540111 sprpap sb|147,x1 aa 000043 000156 350004 eapap L14 " "chars" aa 000044 700216 540111 sprpap sb|142,x1 aa 000045 000151 350004 eapap L15 " "hyphenate" aa 000046 700222 540111 sprpap sb|146,x1 aa 000047 000145 350004 eapap L16 " "device" aa 000050 700214 540111 sprpap sb|140,x1 aa 000051 000141 350004 eapap L17 " "margin" aa 000052 700215 540111 sprpap sb|141,x1 aa 000053 000134 350004 eapap L18 " "pagination" aa 000054 700217 540111 sprpap sb|143,x1 aa 000055 000130 350004 eapap L19 " "fill" aa 000056 700221 540111 sprpap sb|145,x1 aa 000057 700214 350111 eapap sb|140,x1 " a list aa 000060 700211 540111 sprpap sb|137,x1 " Names aa 000061 000113 350004 66 eapap L20 " a table aa 000062 700213 540111 sprpap sb|139,x1 " Flags aa 000063 600151 350100 64 eapap sp|105 " Charsw aa 000064 700226 540111 sprpap sb|150,x1 aa 000065 600172 350100 eapap sp|122 " ExtraMargin aa 000066 700225 540111 sprpap sb|149,x1 aa 000067 600255 350100 eapap sp|173 " NoFill aa 000070 700231 540111 sprpap sb|153,x1 aa 000071 600302 350100 eapap sp|194 " PrintLineNumbers aa 000072 700233 540111 sprpap sb|155,x1 aa 000073 600156 350100 eapap sp|110 " Device aa 000074 700224 540111 sprpap sb|148,x1 aa 000075 600222 350100 eapap sp|146 " Hyphenating aa 000076 700232 540111 sprpap sb|154,x1 aa 000077 600257 350100 eapap sp|175 " NoPaging aa 000100 700227 540111 sprpap sb|151,x1 aa 000101 600254 350100 eapap sp|172 " NoControl aa 000102 700230 540111 sprpap sb|152,x1 aa 000103 700224 350111 eapap sb|148,x1 " a list aa 000104 700212 540111 sprpap sb|138,x1 " Pointers aa 000105 000536 350004 69 eapap L2 " GetModeArg aa 000106 700240 540111 sprpap sb|160,x1 aa 000107 000010 236007 ldq 8,dl " 8 aa 000110 700241 756111 stq sb|161,x1 aa 000111 700211 236111 ldq sb|137,x1 " Names aa 000112 700242 756111 stq sb|162,x1 aa 000113 700212 236111 ldq sb|138,x1 " Pointers aa 000114 700243 756111 stq sb|163,x1 aa 000115 700213 236111 ldq sb|139,x1 " Flags aa 000116 700244 756111 stq sb|164,x1 aa 000117 700245 450111 stz sb|165,x1 4a 000120 400120 272120 tsbbp lp|L21,* " OptionParse aa 000121 000236 000006 zero 158,6 aa 000122 700006 236111 71 ldq sb|6,x1 " OldChars aa 000123 600151 676100 erq sp|105 " Charsw aa 000124 000005 600004 tze L22 aa 000125 600151 236100 ldq sp|105 " Charsw aa 000126 700240 756111 stq sb|160,x1 4a 000127 400116 272120 tsbbp lp|L23,* " SetCharsw aa 000130 000236 000001 zero 158,1 L22: aa 000131 700003 236111 72 ldq sb|3,x1 " OldDevice aa 000132 600156 116100 cmpq sp|110 " Device aa 000133 000005 600004 tze L24 aa 000134 600156 235100 lda sp|110 " Device aa 000135 700240 755111 sta sb|160,x1 4a 000136 400114 272120 tsbbp lp|L25,* " SetDevice aa 000137 000236 000001 zero 158,1 L24: aa 000140 700007 235111 73 lda sb|7,x1 " OldPaging aa 000141 600257 675100 era sp|175 " NoPaging aa 000142 000005 600004 tze L26 aa 000143 600257 235100 lda sp|175 " NoPaging aa 000144 700240 755111 sta sb|160,x1 4a 000145 400112 272120 tsbbp lp|L27,* " SetPaging aa 000146 000236 000001 zero 158,1 L26: aa 000147 700004 235111 74 lda sb|4,x1 " OldControl aa 000150 600254 675100 era sp|172 " NoControl aa 000151 000011 600004 tze L28 aa 000152 600254 234100 szn sp|172 " NoControl aa 000153 000003 600004 tze L29 aa 000154 000030 235004 lda L31 " 1000000 aa 000155 000002 710004 tra L30 L29: aa 000156 000000 235007 lda 0,dl " 0 L30: aa 000157 700234 755111 sta sb|156,x1 aa 000160 700234 235111 lda sb|156,x1 aa 000161 600233 755100 sta sp|155 " LIno L28: aa 000162 700005 235111 75 lda sb|5,x1 " OldFill aa 000163 600255 675100 era sp|173 " NoFill aa 000164 000004 600004 tze L32 aa 000165 000001 335007 lca 1,dl " true aa 000166 600255 675100 era sp|173 " NoFill aa 000167 600175 755100 sta sp|125 " Fi L32: L10: aa 000170 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000171 200000 121100 sblx1 bp|0 aa 000172 700001 764111 lprplp sb|1,x1 aa 000173 200001 710100 tra bp|1 " end of return sequence " Literal pool L20: aa 000174 000000 000010 zero 0,8 " a table aa 000175 000000 000010 zero 0,8 aa 000176 000000 000001 zero 0,1 aa 000177 000000 000003 zero 0,3 aa 000200 000000 000003 zero 0,3 aa 000201 000000 000003 zero 0,3 aa 000202 000000 000001 zero 0,1 aa 000203 000000 000001 zero 0,1 L31: aa 000204 000003 641100 zero 3,-48576 " 1000000 L19: aa 000205 000004 146151 zero 4,52329 " "fill" aa 000206 154154 000000 zero 55404 L18: aa 000207 000012 160141 zero 10,57441 " "pagination" aa 000210 147151 156141 zero 52841,56417 aa 000211 164151 157156 zero 59497,56942 L17: aa 000212 000006 155141 zero 6,55905 " "margin" aa 000213 162147 151156 zero 58471,53870 L16: aa 000214 000006 144145 zero 6,51301 " "device" aa 000215 166151 143145 zero 60521,50789 L15: aa 000216 000011 150171 zero 9,53369 " "hyphenate" aa 000217 160150 145156 zero 57448,51822 aa 000220 141164 145000 zero 49780,51712 L14: aa 000221 000005 143150 zero 5,50792 " "chars" aa 000222 141162 163000 zero 49778,58880 L13: aa 000223 000006 156165 zero 6,56437 " "number" aa 000224 155142 145162 zero 55906,51826 L12: aa 000225 000007 143157 zero 7,50799 " "control" aa 000226 156164 162157 zero 56436,58479 aa 000227 154000 000000 zero 55296 " Begin text of OldModes aa 000230 000010 117154 zero 8,40556 " OldModes aa 000231 144115 157144 zero 51277,56932 aa 000232 145163 000000 zero 51827 L3: aa 000233 000000 213000 86 epaq 0 " set lp to linkage section aa 000234 700026 764161 lprplp sb|22,*au aa 000235 200000 021100 adlx1 bp|0 " BCPL save aa 000236 700000 542111 sprpbp sb|0,x1 aa 000237 700001 544111 sprplp sb|1,x1 aa 000240 700424 620111 eax0 sb|276,x1 aa 000241 777760 360003 anx0 -16,du aa 000242 700025 740100 stx0 sb|21 " end of save sequence aa 000243 700004 350111 87 eapap sb|4,x1 " a vector aa 000244 700003 540111 sprpap sb|3,x1 " v aa 000245 700003 235111 88 lda sb|3,x1 " v aa 000246 700212 755111 sta sb|138,x1 aa 000247 700213 450111 stz sb|139,x1 4a 000250 400110 272120 tsbbp lp|L36,* " SetLength aa 000251 000210 000002 zero 136,2 aa 000252 700003 235111 89 lda sb|3,x1 " v aa 000253 700212 755111 sta sb|138,x1 aa 000254 777740 350004 eapap L16 " "device" aa 000255 700213 540111 sprpap sb|139,x1 aa 000256 600156 235100 lda sp|110 " Device aa 000257 700214 755111 sta sb|140,x1 aa 000260 000130 272004 tsbbp L4+2 " StNum aa 000261 000210 000003 zero 136,3 aa 000262 700003 235111 90 lda sb|3,x1 " v aa 000263 700212 755111 sta sb|138,x1 aa 000264 777726 350004 eapap L17 " "margin" aa 000265 700213 540111 sprpap sb|139,x1 aa 000266 600172 235100 lda sp|122 " ExtraMargin aa 000267 700214 755111 sta sb|140,x1 aa 000270 000120 272004 tsbbp L4+2 " StNum aa 000271 000210 000003 zero 136,3 aa 000272 700003 235111 91 lda sb|3,x1 " v aa 000273 700212 755111 sta sb|138,x1 aa 000274 777725 350004 eapap L14 " "chars" aa 000275 700213 540111 sprpap sb|139,x1 aa 000276 600151 235100 lda sp|105 " Charsw aa 000277 700214 755111 sta sb|140,x1 aa 000300 000164 272004 tsbbp L5+2 " StSwitch aa 000301 000210 000003 zero 136,3 aa 000302 700003 235111 92 lda sb|3,x1 " v aa 000303 700212 755111 sta sb|138,x1 aa 000304 777703 350004 eapap L18 " "pagination" aa 000305 700213 540111 sprpap sb|139,x1 aa 000306 000001 335007 lca 1,dl " true aa 000307 600257 675100 era sp|175 " NoPaging aa 000310 700214 755111 sta sb|140,x1 aa 000311 000153 272004 tsbbp L5+2 " StSwitch aa 000312 000210 000003 zero 136,3 aa 000313 700003 235111 93 lda sb|3,x1 " v aa 000314 700212 755111 sta sb|138,x1 aa 000315 777710 350004 eapap L12 " "control" aa 000316 700213 540111 sprpap sb|139,x1 aa 000317 000001 335007 lca 1,dl " true aa 000320 600254 675100 era sp|172 " NoControl aa 000321 700214 755111 sta sb|140,x1 aa 000322 000142 272004 tsbbp L5+2 " StSwitch aa 000323 000210 000003 zero 136,3 aa 000324 700003 235111 94 lda sb|3,x1 " v aa 000325 700212 755111 sta sb|138,x1 aa 000326 777657 350004 eapap L19 " "fill" aa 000327 700213 540111 sprpap sb|139,x1 aa 000330 000001 335007 lca 1,dl " true aa 000331 600255 675100 era sp|173 " NoFill aa 000332 700214 755111 sta sb|140,x1 aa 000333 000131 272004 tsbbp L5+2 " StSwitch aa 000334 000210 000003 zero 136,3 aa 000335 700003 235111 95 lda sb|3,x1 " v aa 000336 700212 755111 sta sb|138,x1 aa 000337 777657 350004 eapap L15 " "hyphenate" aa 000340 700213 540111 sprpap sb|139,x1 aa 000341 600222 235100 lda sp|146 " Hyphenating aa 000342 700214 755111 sta sb|140,x1 aa 000343 000121 272004 tsbbp L5+2 " StSwitch aa 000344 000210 000003 zero 136,3 aa 000345 700003 235111 96 lda sb|3,x1 " v aa 000346 700212 755111 sta sb|138,x1 aa 000347 777654 350004 eapap L13 " "number" aa 000350 700213 540111 sprpap sb|139,x1 aa 000351 600302 235100 lda sp|194 " PrintLineNumbers aa 000352 700214 755111 sta sb|140,x1 aa 000353 000111 272004 tsbbp L5+2 " StSwitch aa 000354 000210 000003 zero 136,3 aa 000355 700002 235111 97 lda sb|2,x1 " n aa 000356 700212 755111 sta sb|138,x1 4a 000357 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 000360 000210 000001 zero 136,1 aa 000361 700205 756111 stq sb|133,x1 " Sp aa 000362 700002 236111 ldq sb|2,x1 " n aa 000363 700212 756111 stq sb|138,x1 4a 000364 400104 272120 tsbbp lp|L38,* " Pl1Descriptor aa 000365 000210 000001 zero 136,1 aa 000366 700206 756111 stq sb|134,x1 " Desc aa 000367 700003 236111 98 ldq sb|3,x1 " v aa 000370 700212 756111 stq sb|138,x1 aa 000371 700205 236111 ldq sb|133,x1 " Sp aa 000372 700213 756111 stq sb|139,x1 aa 000373 700206 236111 ldq sb|134,x1 " Desc aa 000374 777777 376007 anq -1,dl " Right aa 000375 700214 756111 stq sb|140,x1 4a 000376 400102 272120 tsbbp lp|L39,* " MakePl1String aa 000377 000210 000003 zero 136,3 L35: aa 000400 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000401 200000 121100 sblx1 bp|0 aa 000402 700001 764111 lprplp sb|1,x1 aa 000403 200001 710100 tra bp|1 " end of return sequence " Begin text of StNum aa 000404 000005 123164 zero 5,42612 " StNum aa 000405 116165 155000 zero 40053,55808 L4: aa 000406 000000 213000 100 epaq 0 " set lp to linkage section aa 000407 700026 764161 lprplp sb|22,*au aa 000410 200000 021100 adlx1 bp|0 " BCPL save aa 000411 700000 542111 sprpbp sb|0,x1 aa 000412 700001 544111 sprplp sb|1,x1 aa 000413 700431 620111 eax0 sb|281,x1 aa 000414 777760 360003 anx0 -16,du aa 000415 700025 740100 stx0 sb|21 " end of save sequence aa 000416 700006 350111 101 eapap sb|6,x1 " a vector aa 000417 700005 540111 sprpap sb|5,x1 " v aa 000420 700004 236111 102 ldq sb|4,x1 " Value aa 000421 700040 756111 stq sb|32,x1 aa 000422 700005 236111 ldq sb|5,x1 " v aa 000423 700041 756111 stq sb|33,x1 4a 000424 400100 272120 tsbbp lp|L43,* " ConvertNtoS aa 000425 000036 000002 zero 30,2 aa 000426 700033 756111 stq sb|27,x1 aa 000427 700002 236111 ldq sb|2,x1 " Space aa 000430 700040 756111 stq sb|32,x1 aa 000431 000777 236007 ldq 511,dl " 511 aa 000432 700041 756111 stq sb|33,x1 aa 000433 700002 236111 ldq sb|2,x1 " Space aa 000434 700042 756111 stq sb|34,x1 aa 000435 000021 350004 eapap L44 " "-" aa 000436 700043 540111 sprpap sb|35,x1 aa 000437 700003 236111 ldq sb|3,x1 " Name aa 000440 700044 756111 stq sb|36,x1 aa 000441 000014 350004 eapap L45 " "*s" aa 000442 700045 540111 sprpap sb|37,x1 aa 000443 700033 236111 ldq sb|27,x1 aa 000444 700046 756111 stq sb|38,x1 aa 000445 000010 350004 eapap L45 " "*s" aa 000446 700047 540111 sprpap sb|39,x1 4a 000447 400076 272120 tsbbp lp|L46,* " Concatenate aa 000450 000036 000010 zero 30,8 L42: aa 000451 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000452 200000 121100 sblx1 bp|0 aa 000453 700001 764111 lprplp sb|1,x1 aa 000454 200001 710100 tra bp|1 " end of return sequence " Literal pool L45: aa 000455 000001 040000 zero 1,16384 " "*s" L44: aa 000456 000001 055000 zero 1,23040 " "-" " Begin text of StSwitch aa 000457 000010 123164 zero 8,42612 " StSwitch aa 000460 123167 151164 zero 42615,53876 aa 000461 143150 000000 zero 50792 L5: aa 000462 000000 213000 104 epaq 0 " set lp to linkage section aa 000463 700026 764161 lprplp sb|22,*au aa 000464 200000 021100 adlx1 bp|0 " BCPL save aa 000465 700000 542111 sprpbp sb|0,x1 aa 000466 700001 544111 sprplp sb|1,x1 aa 000467 700427 620111 eax0 sb|279,x1 aa 000470 777760 360003 anx0 -16,du aa 000471 700025 740100 stx0 sb|21 " end of save sequence aa 000472 700004 234111 105 szn sb|4,x1 " Value aa 000473 000003 600004 tze L50 aa 000474 777762 350004 eapap L44 " "-" aa 000475 000002 710004 tra L51 L50: aa 000476 000026 350004 eapap L52 " "-no_" L51: aa 000477 700006 540111 sprpap sb|6,x1 aa 000500 700006 236111 ldq sb|6,x1 aa 000501 700005 756111 stq sb|5,x1 " b aa 000502 700002 236111 106 ldq sb|2,x1 " Space aa 000503 700012 756111 stq sb|10,x1 aa 000504 000777 236007 ldq 511,dl " 511 aa 000505 700013 756111 stq sb|11,x1 aa 000506 700002 236111 ldq sb|2,x1 " Space aa 000507 700014 756111 stq sb|12,x1 aa 000510 700005 236111 ldq sb|5,x1 " b aa 000511 700015 756111 stq sb|13,x1 aa 000512 700003 236111 ldq sb|3,x1 " Name aa 000513 700016 756111 stq sb|14,x1 aa 000514 777741 350004 eapap L45 " "*s" aa 000515 700017 540111 sprpap sb|15,x1 4a 000516 400076 272120 tsbbp lp|L46,* " Concatenate aa 000517 000010 000006 zero 8,6 L49: aa 000520 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000521 200000 121100 sblx1 bp|0 aa 000522 700001 764111 lprplp sb|1,x1 aa 000523 200001 710100 tra bp|1 " end of return sequence " Literal pool L52: aa 000524 000004 055156 zero 4,23150 " "-no_" aa 000525 157137 000000 zero 56927 " Begin text of Unsave aa 000526 000006 125156 zero 6,43630 " Unsave aa 000527 163141 166145 zero 58977,60517 L7: aa 000530 000000 213000 110 epaq 0 " set lp to linkage section aa 000531 700026 764161 lprplp sb|22,*au aa 000532 200000 021100 adlx1 bp|0 " BCPL save aa 000533 700000 542111 sprpbp sb|0,x1 aa 000534 700001 544111 sprplp sb|1,x1 aa 000535 700422 620111 eax0 sb|274,x1 aa 000536 777760 360003 anx0 -16,du aa 000537 700025 740100 stx0 sb|21 " end of save sequence aa 000540 000001 236007 111 ldq 1,dl " 1 aa 000541 700012 756111 stq sb|10,x1 4a 000542 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 000543 000010 000001 zero 8,1 aa 000544 700003 756111 stq sb|3,x1 " Sptr aa 000545 700003 236111 112 ldq sb|3,x1 " Sptr aa 000546 700012 756111 stq sb|10,x1 4a 000547 400074 272120 tsbbp lp|L56,* " BCPLaddr aa 000550 000010 000001 zero 8,1 aa 000551 700004 756111 stq sb|4,x1 " s aa 000552 000040 236007 113 ldq 32,dl " 32 aa 000553 700005 756111 stq sb|5,x1 " i aa 000554 000010 710004 tra L57 L58: aa 000555 000024 236007 ldq 20,dl " SdbSave aa 000556 700005 076111 adq sb|5,x1 " i aa 000557 700004 760111 lprpap sb|4,x1 " s aa 000560 000000 235106 lda ap|0,ql aa 000561 700005 722111 lxl2 sb|5,x1 " i aa 000562 600000 755112 sta sp|0,x2 aa 000563 700005 054111 aos sb|5,x1 " i L57: aa 000564 700005 236111 ldq sb|5,x1 " i aa 000565 000372 116007 cmpq 250,dl " SaveLen aa 000566 777767 604404 tmoz L58 aa 000567 700002 235111 114 lda sb|2,x1 " n aa 000570 700012 755111 sta sb|10,x1 4a 000571 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 000572 000010 000001 zero 8,1 aa 000573 600107 756100 stq sp|71 " StatPtr aa 000574 600107 762100 115 lprpbp sp|71 " StatPtr aa 000575 200001 450100 stz bp|1 aa 000576 600107 761100 lprpab sp|71 " StatPtr aa 000577 100000 450100 stz ab|0 aa 000600 700003 236111 116 ldq sb|3,x1 " Sptr aa 000601 600110 756100 stq sp|72 " SdbLV L55: aa 000602 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000603 200000 121100 sblx1 bp|0 aa 000604 700001 764111 lprplp sb|1,x1 aa 000605 200001 710100 tra bp|1 " end of return sequence " Begin text of Save aa 000606 000004 123141 zero 4,42593 " Save aa 000607 166145 000000 zero 60517 L6: aa 000610 000000 213000 109 epaq 0 " set lp to linkage section aa 000611 700026 764161 lprplp sb|22,*au aa 000612 200000 021100 adlx1 bp|0 " BCPL save aa 000613 700000 542111 sprpbp sb|0,x1 aa 000614 700001 544111 sprplp sb|1,x1 aa 000615 700417 620111 eax0 sb|271,x1 aa 000616 777760 360003 anx0 -16,du aa 000617 700025 740100 stx0 sb|21 " end of save sequence aa 000620 700002 450111 stz sb|2,x1 " i aa 000621 000010 710004 tra L62 L63: aa 000622 000024 236007 ldq 20,dl " SdbSave aa 000623 700002 076111 adq sb|2,x1 " i aa 000624 700002 723111 lxl3 sb|2,x1 " i aa 000625 600000 235113 lda sp|0,x3 aa 000626 600106 763100 lprpbb sp|70 " SDB aa 000627 300000 755106 sta bb|0,ql aa 000630 700002 054111 aos sb|2,x1 " i L62: aa 000631 700002 236111 ldq sb|2,x1 " i aa 000632 000372 116007 cmpq 250,dl " SaveLen aa 000633 777767 604404 tmoz L63 L61: aa 000634 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000635 200000 121100 sblx1 bp|0 aa 000636 700001 764111 lprplp sb|1,x1 aa 000637 200001 710100 tra bp|1 " end of return sequence " Begin text of GetModeArg aa 000640 000012 107145 zero 10,36453 " GetModeArg aa 000641 164115 157144 zero 59469,56932 aa 000642 145101 162147 zero 51777,58471 L2: aa 000643 000000 213000 77 epaq 0 " set lp to linkage section aa 000644 700026 764161 lprplp sb|22,*au aa 000645 200000 021100 adlx1 bp|0 " BCPL save aa 000646 700000 542111 sprpbp sb|0,x1 aa 000647 700001 544111 sprplp sb|1,x1 aa 000650 700425 620111 eax0 sb|277,x1 aa 000651 777760 360003 anx0 -16,du aa 000652 700025 740100 stx0 sb|21 " end of save sequence aa 000653 600111 235100 78 lda sp|73 " ModeArg aa 000654 700012 755111 sta sb|10,x1 4a 000655 400072 272120 tsbbp lp|L67,* " Length aa 000656 000010 000001 zero 8,1 aa 000657 700004 756111 stq sb|4,x1 " Len aa 000660 000002 710004 79 tra L68 L69: aa 000661 600050 054100 aos sp|40 " ArgIndex L68: aa 000662 600050 236100 ldq sp|40 " ArgIndex aa 000663 700004 116111 cmpq sb|4,x1 " Len aa 000664 000011 605404 tpnz L70 aa 000665 600111 235100 lda sp|73 " ModeArg aa 000666 700012 755111 sta sb|10,x1 aa 000667 600050 235100 lda sp|40 " ArgIndex aa 000670 700013 755111 sta sb|11,x1 4a 000671 400070 272120 tsbbp lp|L71,* " Subch aa 000672 000010 000002 zero 8,2 aa 000673 000040 116007 cmpq 32,dl " '*s' aa 000674 777765 600004 tze L69 L70: aa 000675 600050 236100 80 ldq sp|40 " ArgIndex aa 000676 700004 116111 cmpq sb|4,x1 " Len aa 000677 000003 604404 tmoz L72 aa 000700 000000 235007 lda 0,dl " false aa 000701 000034 710004 tra L66 L72: aa 000702 600050 236100 81 ldq sp|40 " ArgIndex aa 000703 700005 756111 stq sb|5,x1 " First aa 000704 000002 710004 82 tra L73 L74: aa 000705 600050 054100 aos sp|40 " ArgIndex L73: aa 000706 600050 236100 ldq sp|40 " ArgIndex aa 000707 700004 116111 cmpq sb|4,x1 " Len aa 000710 000011 605404 tpnz L75 aa 000711 600111 235100 lda sp|73 " ModeArg aa 000712 700012 755111 sta sb|10,x1 aa 000713 600050 235100 lda sp|40 " ArgIndex aa 000714 700013 755111 sta sb|11,x1 4a 000715 400070 272120 tsbbp lp|L71,* " Subch aa 000716 000010 000002 zero 8,2 aa 000717 000040 116007 cmpq 32,dl " '*s' aa 000720 777765 601004 tnz L74 L75: aa 000721 700002 236111 83 ldq sb|2,x1 " v aa 000722 700012 756111 stq sb|10,x1 aa 000723 600111 236100 ldq sp|73 " ModeArg aa 000724 700013 756111 stq sb|11,x1 aa 000725 700005 236111 ldq sb|5,x1 " First aa 000726 700014 756111 stq sb|12,x1 aa 000727 600050 236100 ldq sp|40 " ArgIndex aa 000730 700005 176111 sbq sb|5,x1 " First aa 000731 700015 756111 stq sb|13,x1 4a 000732 400066 272120 tsbbp lp|L76,* " Substr aa 000733 000010 000004 zero 8,4 aa 000734 000001 335007 84 lca 1,dl " true L66: aa 000735 700004 755111 sta sb|4,x1 aa 000736 700004 236111 ldq sb|4,x1 aa 000737 700000 762111 lprpbp sb|0,x1 " bcpl return aa 000740 200000 121100 sblx1 bp|0 aa 000741 700001 764111 lprplp sb|1,x1 aa 000742 200001 710100 tra bp|1 " end of return sequence " Begin text of DimDetach aa 000743 000011 104151 zero 9,34921 " DimDetach aa 000744 155104 145164 zero 55876,51828 aa 000745 141143 150000 zero 49763,53248 5a 000746 000053 000000 zero 43 " relative pointer to definition for entry aa 000747 700003 756111 183 stq sb|3,x1 " temporary L78: aa 000750 000000 213000 epaq 0 " set lp to linkage section aa 000751 700026 764161 lprplp sb|22,*au aa 000752 001103 700004 tsx0 L82 " execute Multics save aa 000753 200000 021100 adlx1 bp|0 " BCPL save aa 000754 700000 542111 sprpbp sb|0,x1 aa 000755 700001 544111 sprplp sb|1,x1 aa 000756 700423 620111 eax0 sb|275,x1 aa 000757 777760 360003 anx0 -16,du aa 000760 700025 740100 stx0 sb|21 " end of save sequence aa 000761 000004 236007 184 ldq 4,dl " 4 aa 000762 700006 756111 stq sb|6,x1 aa 000763 777547 272004 tsbbp L7+2 " Unsave aa 000764 000004 000001 zero 4,1 4a 000765 400064 272120 185 tsbbp lp|L84,* " Break aa 000766 000004 000000 zero 4 4a 000767 400062 272120 186 tsbbp lp|L85,* " Eject aa 000770 000004 000000 zero 4 aa 000771 600040 234100 187 szn sp|32 " OUTPUT aa 000772 000005 600004 tze L86 aa 000773 600040 236100 ldq sp|32 " OUTPUT aa 000774 700006 756111 stq sb|6,x1 4a 000775 400060 272120 tsbbp lp|L87,* " Close aa 000776 000004 000001 zero 4,1 L86: aa 000777 600152 234100 188 szn sp|106 " ChStream aa 001000 000005 600004 tze L88 aa 001001 600152 236100 ldq sp|106 " ChStream aa 001002 700006 756111 stq sb|6,x1 4a 001003 400060 272120 tsbbp lp|L87,* " Close aa 001004 000004 000001 zero 4,1 L88: aa 001005 600042 236100 189 ldq sp|34 " MONITOR aa 001006 700006 756111 stq sb|6,x1 4a 001007 400060 272120 tsbbp lp|L87,* " Close aa 001010 000004 000001 zero 4,1 9a 001011 400010 236100 190 ldq lp|8 " FreeSDBlist aa 001012 600106 765100 lprplb sp|70 " SDB aa 001013 500000 756100 stq lb|0 aa 001014 600106 236100 191 ldq sp|70 " SDB 9a 001015 400010 756100 stq lp|8 " FreeSDBlist 4a 001016 400056 272120 192 tsbbp lp|L89,* " NewvecCleanup aa 001017 000004 000000 zero 4 aa 001020 000017 236004 193 ldq L90 " Null aa 001021 700006 756111 stq sb|6,x1 aa 001022 600110 236100 ldq sp|72 " SdbLV aa 001023 700007 756111 stq sb|7,x1 4a 001024 400054 272120 tsbbp lp|L91,* " ITS aa 001025 000004 000002 zero 4,2 aa 001026 000004 236003 194 ldq 4,du " $84000000 aa 001027 600107 760100 lprpap sp|71 " StatPtr aa 001030 000001 756100 stq ap|1 aa 001031 600107 762100 lprpbp sp|71 " StatPtr aa 001032 200000 450100 stz bp|0 L83: aa 001033 700000 762111 lprpbp sb|0,x1 " bcpl return aa 001034 200000 121100 sblx1 bp|0 aa 001035 700001 764111 lprplp sb|1,x1 aa 001036 200001 710100 tra bp|1 " end of return sequence " Literal pool L90: aa 001037 007777 000001 zero 4095,1 " Null " Begin text of DimAttach aa 001040 000011 104151 zero 9,34921 " DimAttach aa 001041 155101 164164 zero 55873,59508 aa 001042 141143 150000 zero 49763,53248 5a 001043 000056 000000 zero 46 " relative pointer to definition for entry L77: aa 001044 000000 213000 119 epaq 0 " set lp to linkage section aa 001045 700026 764161 lprplp sb|22,*au aa 001046 001007 700004 tsx0 L82 " execute Multics save aa 001047 200000 021100 adlx1 bp|0 " BCPL save aa 001050 700000 542111 sprpbp sb|0,x1 aa 001051 700001 544111 sprplp sb|1,x1 aa 001052 700425 620111 eax0 sb|277,x1 aa 001053 777760 360003 anx0 -16,du aa 001054 700025 740100 stx0 sb|21 " end of save sequence aa 001055 000446 351404 120 eapab L96 " "runoff_dim" aa 001056 600045 541100 sprpab sp|37 " ProgramID aa 001057 600046 450100 stz sp|38 " Errcode aa 001060 000005 236007 121 ldq 5,dl " 5 aa 001061 700330 756111 stq sb|216,x1 4a 001062 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001063 000326 000001 zero 214,1 aa 001064 600107 756100 stq sp|71 " StatPtr aa 001065 600107 761100 122 lprpab sp|71 " StatPtr aa 001066 100000 450100 stz ab|0 aa 001067 600107 763100 lprpbb sp|71 " StatPtr aa 001070 300001 450100 stz bb|1 aa 001071 000006 236007 123 ldq 6,dl " 6 aa 001072 700330 756111 stq sb|216,x1 4a 001073 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001074 000326 000001 zero 214,1 aa 001075 600110 756100 stq sp|72 " SdbLV aa 001076 600110 236100 124 ldq sp|72 " SdbLV aa 001077 700330 756111 stq sb|216,x1 4a 001100 400074 272120 tsbbp lp|L56,* " BCPLaddr aa 001101 000326 000001 zero 214,1 aa 001102 777735 116004 cmpq L90 " Null aa 001103 000005 600004 tze L97 4a 001104 400052 236120 125 ldq lp|L98,* aa 001105 600107 765100 lprplb sp|71 " StatPtr aa 001106 500000 756100 stq lb|0 aa 001107 000377 710004 126 tra L95 L97: 9a 001110 400010 236100 129 ldq lp|8 " FreeSDBlist aa 001111 600106 756100 stq sp|70 " SDB aa 001112 600106 234100 130 szn sp|70 " SDB aa 001113 000007 601004 tnz L99 aa 001114 024036 236007 131 ldq 10270,dl aa 001115 700330 756111 stq sb|216,x1 4a 001116 400050 272120 tsbbp lp|L101,* " Allocate aa 001117 000326 000001 zero 214,1 aa 001120 600106 756100 stq sp|70 " SDB aa 001121 000004 710004 tra L100 L99: aa 001122 600106 760100 132 lprpap sp|70 " SDB aa 001123 000000 236100 ldq ap|0 9a 001124 400010 756100 stq lp|8 " FreeSDBlist L100: aa 001125 600106 236100 134 ldq sp|70 " SDB aa 001126 000416 076007 adq 270,dl " SdbLength aa 001127 700330 756111 stq sb|216,x1 aa 001130 023416 236007 ldq 9998,dl aa 001131 700331 756111 stq sb|217,x1 4a 001132 400046 272120 tsbbp lp|L102,* " NewvecInit aa 001133 000326 000002 zero 214,2 aa 001134 700004 352111 136 eapbp sb|4,x1 " a vector aa 001135 700002 542111 sprpbp sb|2,x1 " Arg aa 001136 000002 236007 137 ldq 2,dl " 2 aa 001137 700330 756111 stq sb|216,x1 aa 001140 700002 236111 ldq sb|2,x1 " Arg aa 001141 700331 756111 stq sb|217,x1 4a 001142 400122 272120 tsbbp lp|L11,* " Pl1ArgString aa 001143 000326 000002 zero 214,2 aa 001144 700003 756111 stq sb|3,x1 aa 001145 700003 236111 ldq sb|3,x1 aa 001146 700330 756111 stq sb|216,x1 aa 001147 600106 236100 ldq sp|70 " SDB aa 001150 700331 756111 stq sb|217,x1 aa 001151 000040 236007 ldq 32,dl " 32 aa 001152 700332 756111 stq sb|218,x1 4a 001153 400102 272120 tsbbp lp|L39,* " MakePl1String aa 001154 000326 000003 zero 214,3 aa 001155 777662 236004 138 ldq L90 " Null aa 001156 700330 756111 stq sb|216,x1 aa 001157 600106 236100 ldq sp|70 " SDB aa 001160 000012 076007 adq 10,dl " SdbIoname2 aa 001161 700331 756111 stq sb|217,x1 4a 001162 400054 272120 tsbbp lp|L91,* " ITS aa 001163 000326 000002 zero 214,2 aa 001164 700003 756111 stq sb|3,x1 aa 001165 700003 236111 ldq sb|3,x1 aa 001166 700330 756111 stq sb|216,x1 aa 001167 600106 236100 ldq sp|70 " SDB aa 001170 000010 076007 adq 8,dl " 8 aa 001171 700331 756111 stq sb|217,x1 4a 001172 400054 272120 tsbbp lp|L91,* " ITS aa 001173 000326 000002 zero 214,2 aa 001174 000003 236007 139 ldq 3,dl " 3 aa 001175 700330 756111 stq sb|216,x1 aa 001176 700002 236111 ldq sb|2,x1 " Arg aa 001177 700331 756111 stq sb|217,x1 4a 001200 400122 272120 tsbbp lp|L11,* " Pl1ArgString aa 001201 000326 000002 zero 214,2 aa 001202 700003 756111 stq sb|3,x1 aa 001203 700003 236111 ldq sb|3,x1 aa 001204 700330 756111 stq sb|216,x1 aa 001205 600106 236100 ldq sp|70 " SDB aa 001206 000012 076007 adq 10,dl " SdbIoname2 aa 001207 000003 076007 adq 3,dl " 3 aa 001210 700331 756111 stq sb|217,x1 aa 001211 000040 236007 ldq 32,dl " 32 aa 001212 700332 756111 stq sb|218,x1 4a 001213 400102 272120 tsbbp lp|L39,* " MakePl1String aa 001214 000326 000003 zero 214,3 aa 001215 700002 236111 140 ldq sb|2,x1 " Arg aa 001216 700330 756111 stq sb|216,x1 4a 001217 400072 272120 tsbbp lp|L67,* " Length aa 001220 000326 000001 zero 214,1 aa 001221 600106 762100 lprpbp sp|70 " SDB aa 001222 200014 756100 stq bp|12 aa 001223 000043 236007 142 ldq 35,dl aa 001224 700330 756111 stq sb|216,x1 aa 001225 700002 236111 ldq sb|2,x1 " Arg aa 001226 700331 756111 stq sb|217,x1 aa 001227 001750 236007 ldq 1000,dl " 1000 aa 001230 700332 756111 stq sb|218,x1 aa 001231 700333 450111 stz sb|219,x1 4a 001232 400044 272120 tsbbp lp|L103,* " Open aa 001233 000326 000004 zero 214,4 aa 001234 600040 756100 stq sp|32 " OUTPUT aa 001235 000043 236007 ldq 35,dl aa 001236 700330 756111 stq sb|216,x1 aa 001237 000260 351404 eapab L104 " "error_output" aa 001240 700331 541111 sprpab sb|217,x1 4a 001241 400044 272120 tsbbp lp|L103,* " Open aa 001242 000326 000002 zero 214,2 aa 001243 600042 756100 stq sp|34 " MONITOR aa 001244 600040 236100 143 ldq sp|32 " OUTPUT aa 001245 600270 756100 stq sp|184 " Output aa 001246 600043 450100 144 stz sp|35 " CONSOLE aa 001247 600042 236100 145 ldq sp|34 " MONITOR aa 001250 600165 756100 stq sp|117 " Errorstream aa 001251 600152 450100 stz sp|106 " ChStream aa 001252 600177 450100 146 stz sp|127 " Filesw aa 001253 600313 450100 stz sp|203 " Stopsw aa 001254 600326 450100 stz sp|214 " Waitsw aa 001255 000237 351404 147 eapab L105 " "<stream>" aa 001256 600176 541100 sprpab sp|126 " FileName aa 001257 000234 236004 148 ldq L106 " 999999 aa 001260 600322 756100 stq sp|210 " To aa 001261 000001 236007 ldq 1,dl " 1 aa 001262 600312 756100 stq sp|202 " Start aa 001263 000001 236007 ldq 1,dl " 1 aa 001264 600216 756100 stq sp|142 " From aa 001265 600151 450100 149 stz sp|105 " Charsw aa 001266 600310 450100 stz sp|200 " Selsw aa 001267 000045 236007 ldq 37,dl " 37 aa 001270 600156 756100 stq sp|110 " Device aa 001271 600257 450100 150 stz sp|175 " NoPaging aa 001272 600222 450100 stz sp|146 " Hyphenating aa 001273 600302 450100 151 stz sp|194 " PrintLineNumbers aa 001274 600172 450100 stz sp|122 " ExtraMargin aa 001275 600254 450100 152 stz sp|172 " NoControl aa 001276 600255 450100 stz sp|173 " NoFill aa 001277 000001 236007 153 ldq 1,dl " 1 aa 001300 600273 756100 stq sp|187 " Passes aa 001301 000211 351404 154 eapab L107 " "" aa 001302 600272 541100 sprpab sp|186 " Parameter aa 001303 600317 450100 155 stz sp|207 " TimeNow aa 001304 600170 450100 stz sp|120 " ErrorTempID 4a 001305 400042 272120 157 tsbbp lp|L108,* " InitializeSymbolTree aa 001306 000326 000000 zero 214 aa 001307 000132 236007 158 ldq 90,dl " MaxDepth aa 001310 700330 756111 stq sb|216,x1 4a 001311 400040 272120 tsbbp lp|L109,* " Newvec aa 001312 000326 000001 zero 214,1 aa 001313 600230 756100 stq sp|152 " InputStack aa 001314 700320 351511 159 eapab sb|208,x1 " a vector aa 001315 700003 541111 sprpab sb|3,x1 " w aa 001316 700003 236111 160 ldq sb|3,x1 " w aa 001317 700330 756111 stq sb|216,x1 4a 001320 400036 272120 tsbbp lp|L110,* " RawClockTime aa 001321 000326 000001 zero 214,1 aa 001322 700315 756111 stq sb|205,x1 aa 001323 700315 236111 ldq sb|205,x1 aa 001324 700330 756111 stq sb|216,x1 4a 001325 400034 272120 tsbbp lp|L111,* " TimeToSeconds aa 001326 000326 000001 zero 214,1 aa 001327 600317 756100 stq sp|207 " TimeNow aa 001330 001440 236007 162 ldq 800,dl aa 001331 700330 756111 stq sb|216,x1 4a 001332 400040 272120 tsbbp lp|L109,* " Newvec aa 001333 000326 000001 zero 214,1 aa 001334 600147 756100 stq sp|103 " Char aa 001335 000644 236007 163 ldq 420,dl aa 001336 700330 756111 stq sb|216,x1 4a 001337 400040 272120 tsbbp lp|L109,* " Newvec aa 001340 000326 000001 zero 214,1 aa 001341 600303 756100 stq sp|195 " Rawchar aa 001342 600303 761100 164 lprpab sp|195 " Rawchar aa 001343 100000 450100 stz ab|0 aa 001344 000024 236007 166 ldq 20,dl " Maxheads aa 001345 700330 756111 stq sb|216,x1 4a 001346 400040 272120 tsbbp lp|L109,* " Newvec aa 001347 000326 000001 zero 214,1 aa 001350 600161 756100 stq sp|113 " Eh aa 001351 000024 236007 ldq 20,dl " Maxheads aa 001352 700330 756111 stq sb|216,x1 4a 001353 400040 272120 tsbbp lp|L109,* " Newvec aa 001354 000326 000001 zero 214,1 aa 001355 600267 756100 stq sp|183 " Oh aa 001356 000024 236007 ldq 20,dl " Maxheads aa 001357 700330 756111 stq sb|216,x1 4a 001360 400040 272120 tsbbp lp|L109,* " Newvec aa 001361 000326 000001 zero 214,1 aa 001362 600266 756100 stq sp|182 " Of aa 001363 000024 236007 ldq 20,dl " Maxheads aa 001364 700330 756111 stq sb|216,x1 4a 001365 400040 272120 tsbbp lp|L109,* " Newvec aa 001366 000326 000001 zero 214,1 aa 001367 600160 756100 stq sp|112 " Ef aa 001370 700315 450111 167 stz sb|205,x1 " i aa 001371 000016 710004 tra L112 L113: aa 001372 700315 724111 lxl4 sb|205,x1 " i aa 001373 600266 763100 lprpbb sp|182 " Of aa 001374 300000 450114 stz bb|0,x4 aa 001375 700315 725111 lxl5 sb|205,x1 " i aa 001376 600160 765100 lprplb sp|112 " Ef aa 001377 500000 450115 stz lb|0,x5 aa 001400 700315 726111 lxl6 sb|205,x1 " i aa 001401 600161 760100 lprpap sp|113 " Eh aa 001402 000000 450116 stz ap|0,x6 aa 001403 700315 722111 lxl2 sb|205,x1 " i aa 001404 600267 762100 lprpbp sp|183 " Oh aa 001405 200000 450112 stz bp|0,x2 aa 001406 700315 054111 aos sb|205,x1 " i L112: aa 001407 700315 236111 ldq sb|205,x1 " i aa 001410 000024 116007 cmpq 20,dl " Maxheads aa 001411 777761 604404 tmoz L113 aa 001412 000200 235007 169 lda 128,dl " 128 aa 001413 700330 755111 sta sb|216,x1 4a 001414 400040 272120 tsbbp lp|L109,* " Newvec aa 001415 000326 000001 zero 214,1 aa 001416 600150 756100 stq sp|104 " CharsTable aa 001417 000200 236007 ldq 128,dl " 128 aa 001420 700330 756111 stq sb|216,x1 4a 001421 400040 272120 tsbbp lp|L109,* " Newvec aa 001422 000326 000001 zero 214,1 aa 001423 600157 756100 stq sp|111 " DeviceTable aa 001424 000200 236007 ldq 128,dl " 128 aa 001425 700330 756111 stq sb|216,x1 4a 001426 400040 272120 tsbbp lp|L109,* " Newvec aa 001427 000326 000001 zero 214,1 aa 001430 600153 756100 stq sp|107 " Conv aa 001431 000200 236007 ldq 128,dl " 128 aa 001432 700330 756111 stq sb|216,x1 4a 001433 400040 272120 tsbbp lp|L109,* " Newvec aa 001434 000326 000001 zero 214,1 aa 001435 600323 756100 stq sp|211 " TrTable aa 001436 700315 450111 170 stz sb|205,x1 " i aa 001437 000006 710004 tra L114 L115: aa 001440 000040 236007 ldq 32,dl " '*s' aa 001441 700315 723111 lxl3 sb|205,x1 " i aa 001442 600150 761100 lprpab sp|104 " CharsTable aa 001443 100000 756113 stq ab|0,x3 aa 001444 700315 054111 aos sb|205,x1 " i L114: aa 001445 700315 236111 ldq sb|205,x1 " i aa 001446 000177 116007 cmpq 127,dl " 127 aa 001447 777771 604404 tmoz L115 4a 001450 400032 272120 171 tsbbp lp|L116,* " FillTrTable aa 001451 000326 000000 zero 214 aa 001452 600156 235100 172 lda sp|110 " Device aa 001453 700330 755111 sta sb|216,x1 4a 001454 400114 272120 tsbbp lp|L25,* " SetDevice aa 001455 000326 000001 zero 214,1 aa 001456 000644 235007 174 lda 420,dl aa 001457 700330 755111 sta sb|216,x1 4a 001460 400040 272120 tsbbp lp|L109,* " Newvec aa 001461 000326 000001 zero 214,1 aa 001462 600206 756100 stq sp|134 " Footbuf aa 001463 001440 236007 175 ldq 800,dl aa 001464 700330 756111 stq sb|216,x1 4a 001465 400040 272120 tsbbp lp|L109,* " Newvec aa 001466 000326 000001 zero 214,1 aa 001467 600314 756100 stq sp|204 " Temp 4a 001470 400030 272120 177 tsbbp lp|L117,* " SetSwitches aa 001471 000326 000000 zero 214 aa 001472 000004 236007 178 ldq 4,dl " 4 aa 001473 700330 756111 stq sb|216,x1 aa 001474 776311 272004 tsbbp L1+2 " SetModes aa 001475 000326 000001 zero 214,1 aa 001476 777114 272004 180 tsbbp L6+2 " Save aa 001477 000326 000000 zero 214 aa 001500 600106 236100 181 ldq sp|70 " SDB aa 001501 700330 756111 stq sb|216,x1 aa 001502 600110 236100 ldq sp|72 " SdbLV aa 001503 700331 756111 stq sb|217,x1 4a 001504 400054 272120 tsbbp lp|L91,* " ITS aa 001505 000326 000002 zero 214,2 L95: aa 001506 700000 762111 lprpbp sb|0,x1 " bcpl return aa 001507 200000 121100 sblx1 bp|0 aa 001510 700001 764111 lprplp sb|1,x1 aa 001511 200001 710100 tra bp|1 " end of return sequence " Literal pool L107: aa 001512 000000 000000 zero 0 " "" L106: aa 001513 000003 641077 zero 3,-48577 " 999999 L105: aa 001514 000010 074163 zero 8,30835 " "<stream>" aa 001515 164162 145141 zero 59506,51809 aa 001516 155076 000000 zero 55870 L104: aa 001517 000014 145162 zero 12,51826 " "error_output" aa 001520 162157 162137 zero 58479,58463 aa 001521 157165 164160 zero 56949,59504 aa 001522 165164 000000 zero 60020 L96: aa 001523 000012 162165 zero 10,58485 " "runoff_dim" aa 001524 156157 146146 zero 56431,52326 aa 001525 137144 151155 zero 48740,53869 " Begin text of DimWrite aa 001526 000010 104151 zero 8,34921 " DimWrite aa 001527 155127 162151 zero 55895,58473 aa 001530 164145 000000 zero 59493 5a 001531 000050 000000 zero 40 " relative pointer to definition for entry L118: aa 001532 000000 213000 196 epaq 0 " set lp to linkage section aa 001533 700026 764161 lprplp sb|22,*au aa 001534 000321 700004 tsx0 L82 " execute Multics save aa 001535 200000 021100 adlx1 bp|0 " BCPL save aa 001536 700000 542111 sprpbp sb|0,x1 aa 001537 700001 544111 sprplp sb|1,x1 aa 001540 700424 620111 eax0 sb|276,x1 aa 001541 777760 360003 anx0 -16,du aa 001542 700025 740100 stx0 sb|21 " end of save sequence aa 001543 000006 236007 197 ldq 6,dl " 6 aa 001544 700014 756111 stq sb|12,x1 aa 001545 776765 272004 tsbbp L7+2 " Unsave aa 001546 000012 000001 zero 10,1 aa 001547 000002 236007 198 ldq 2,dl " 2 aa 001550 700014 756111 stq sb|12,x1 4a 001551 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001552 000012 000001 zero 10,1 aa 001553 700005 756111 stq sb|5,x1 aa 001554 700005 236111 ldq sb|5,x1 aa 001555 700014 756111 stq sb|12,x1 4a 001556 400074 272120 tsbbp lp|L56,* " BCPLaddr aa 001557 000012 000001 zero 10,1 aa 001560 700003 756111 stq sb|3,x1 " Workspace aa 001561 000003 236007 ldq 3,dl " 3 aa 001562 700014 756111 stq sb|12,x1 4a 001563 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001564 000012 000001 zero 10,1 aa 001565 600000 756100 stq sp|0 aa 001566 600000 763100 lprpbb sp|0 aa 001567 300000 235100 lda bb|0 aa 001570 700002 755111 sta sb|2,x1 " Offset aa 001571 000004 236007 ldq 4,dl " 4 aa 001572 700014 756111 stq sb|12,x1 4a 001573 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001574 000012 000001 zero 10,1 aa 001575 600000 756100 stq sp|0 aa 001576 600000 765100 lprplb sp|0 aa 001577 500000 235100 lda lb|0 aa 001600 700004 755111 sta sb|4,x1 " Nelem aa 001601 700002 236111 199 ldq sb|2,x1 " Offset aa 001602 000004 506007 div 4,dl " 4 aa 001603 700003 056111 asq sb|3,x1 " Workspace aa 001604 700002 236111 200 ldq sb|2,x1 " Offset aa 001605 000004 506007 div 4,dl " 4 aa 001606 700002 755111 sta sb|2,x1 " Offset aa 001607 000021 235007 201 lda 17,dl aa 001610 700014 755111 sta sb|12,x1 aa 001611 700003 235111 lda sb|3,x1 " Workspace aa 001612 700015 755111 sta sb|13,x1 aa 001613 700004 235111 lda sb|4,x1 " Nelem aa 001614 700002 075111 ada sb|2,x1 " Offset aa 001615 700016 755111 sta sb|14,x1 4a 001616 400044 272120 tsbbp lp|L103,* " Open aa 001617 000012 000003 zero 10,3 aa 001620 600041 756100 stq sp|33 " INPUT aa 001621 000001 236007 202 ldq 1,dl " 1 aa 001622 700005 756111 stq sb|5,x1 " i aa 001623 700002 236111 ldq sb|2,x1 " Offset aa 001624 700006 756111 stq sb|6,x1 aa 001625 000010 710004 tra L123 L124: aa 001626 600041 236100 ldq sp|33 " INPUT aa 001627 700014 756111 stq sb|12,x1 aa 001630 600044 350100 eapap sp|36 " Ch aa 001631 700015 540111 sprpap sb|13,x1 4a 001632 400026 272120 tsbbp lp|L125,* " Readch aa 001633 000012 000002 zero 10,2 aa 001634 700005 054111 aos sb|5,x1 " i L123: aa 001635 700005 236111 ldq sb|5,x1 " i aa 001636 700006 116111 cmpq sb|6,x1 aa 001637 777767 604404 tmoz L124 aa 001640 600041 235100 203 lda sp|33 " INPUT aa 001641 700014 755111 sta sb|12,x1 4a 001642 400024 272120 tsbbp lp|L126,* " RoffProcess aa 001643 000012 000001 zero 10,1 aa 001644 600270 235100 204 lda sp|184 " Output aa 001645 700014 755111 sta sb|12,x1 4a 001646 400022 272120 tsbbp lp|L127,* " Writeout aa 001647 000012 000001 zero 10,1 aa 001650 776742 272004 205 tsbbp L6+2 " Save aa 001651 000012 000000 zero 10 aa 001652 000005 235007 206 lda 5,dl " 5 aa 001653 700014 755111 sta sb|12,x1 4a 001654 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001655 000012 000001 zero 10,1 aa 001656 700004 235111 lda sb|4,x1 " Nelem aa 001657 600000 756100 stq sp|0 aa 001660 600000 760100 lprpap sp|0 aa 001661 000000 755100 sta ap|0 L122: aa 001662 700000 762111 lprpbp sb|0,x1 " bcpl return aa 001663 200000 121100 sblx1 bp|0 aa 001664 700001 764111 lprplp sb|1,x1 aa 001665 200001 710100 tra bp|1 " end of return sequence " Begin text of DimOrder aa 001666 000010 104151 zero 8,34921 " DimOrder aa 001667 155117 162144 zero 55887,58468 aa 001670 145162 000000 zero 51826 5a 001671 000045 000000 zero 37 " relative pointer to definition for entry L128: aa 001672 000000 213000 209 epaq 0 " set lp to linkage section aa 001673 700026 764161 lprplp sb|22,*au aa 001674 000161 700004 tsx0 L82 " execute Multics save aa 001675 200000 021100 adlx1 bp|0 " BCPL save aa 001676 700000 542111 sprpbp sb|0,x1 aa 001677 700001 544111 sprplp sb|1,x1 aa 001700 700423 620111 eax0 sb|275,x1 aa 001701 777760 360003 anx0 -16,du aa 001702 700025 740100 stx0 sb|21 " end of save sequence aa 001703 000004 236007 210 ldq 4,dl " 4 aa 001704 700322 756111 stq sb|210,x1 aa 001705 776625 272004 tsbbp L7+2 " Unsave aa 001706 000320 000001 zero 208,1 aa 001707 700004 352111 211 eapbp sb|4,x1 " a vector aa 001710 700002 542111 sprpbp sb|2,x1 " Arg aa 001711 000002 236007 212 ldq 2,dl " 2 aa 001712 700322 756111 stq sb|210,x1 aa 001713 700002 236111 ldq sb|2,x1 " Arg aa 001714 700323 756111 stq sb|211,x1 4a 001715 400122 272120 tsbbp lp|L11,* " Pl1ArgString aa 001716 000320 000002 zero 208,2 aa 001717 700002 236111 213 ldq sb|2,x1 " Arg aa 001720 700322 756111 stq sb|210,x1 aa 001721 600303 236100 ldq sp|195 " Rawchar aa 001722 700323 756111 stq sb|211,x1 4a 001723 400020 272120 tsbbp lp|L134,* " Unpackstring aa 001724 000320 000002 zero 208,2 aa 001725 600303 762100 214 lprpbp sp|195 " Rawchar aa 001726 200000 236100 ldq bp|0 aa 001727 600261 756100 stq sp|177 " Nr aa 001730 600303 761100 215 lprpab sp|195 " Rawchar aa 001731 100000 450100 stz ab|0 aa 001732 600261 236100 216 ldq sp|177 " Nr aa 001733 000001 076007 adq 1,dl " 1 aa 001734 000040 235007 lda 32,dl " '*s' aa 001735 600303 763100 lprpbb sp|195 " Rawchar aa 001736 300000 755106 sta bb|0,ql aa 001737 000003 710004 217 tra L135 L136: aa 001740 000001 336007 lcq 1,dl " 1 aa 001741 600261 056100 asq sp|177 " Nr L135: aa 001742 600261 724100 lxl4 sp|177 " Nr aa 001743 600303 765100 lprplb sp|195 " Rawchar aa 001744 500000 236114 ldq lb|0,x4 aa 001745 000040 116007 cmpq 32,dl " '*s' aa 001746 777772 600004 tze L136 aa 001747 600303 760100 218 lprpap sp|195 " Rawchar aa 001750 000001 235100 lda ap|1 aa 001751 000056 115007 cmpa 46,dl " '.' aa 001752 000004 601004 tnz L137 4a 001753 400016 272120 219 tsbbp lp|L139,* " Control aa 001754 000320 000000 zero 208 aa 001755 000031 710004 tra L138 L137: aa 001756 600303 762100 220 lprpbp sp|195 " Rawchar aa 001757 200001 236100 ldq bp|1 aa 001760 000045 116007 cmpq 37,dl " '%' aa 001761 000025 601004 tnz L140 aa 001762 000003 235007 221 lda 3,dl " 3 aa 001763 700322 755111 sta sb|210,x1 4a 001764 400106 272120 tsbbp lp|L37,* " Pl1ArgPtr aa 001765 000320 000001 zero 208,1 aa 001766 700315 756111 stq sb|205,x1 aa 001767 700315 236111 ldq sb|205,x1 aa 001770 700322 756111 stq sb|210,x1 4a 001771 400074 272120 tsbbp lp|L56,* " BCPLaddr aa 001772 000320 000001 zero 208,1 aa 001773 700003 756111 stq sb|3,x1 " Retptr aa 001774 000001 236007 222 ldq 1,dl " 1 aa 001775 600264 756100 stq sp|180 " Nrx aa 001776 600261 054100 aos sp|177 " Nr 4a 001777 400014 272120 223 tsbbp lp|L141,* " Check_ref aa 002000 000320 000000 zero 208 aa 002001 700322 450111 224 stz sb|210,x1 4a 002002 400012 272120 tsbbp lp|L142,* " ReadParam aa 002003 000320 000001 zero 208,1 aa 002004 700003 761111 lprpab sb|3,x1 " Retptr aa 002005 100000 756100 stq ab|0 " Retptr L140: L138: aa 002006 600261 450100 226 stz sp|177 " Nr aa 002007 776603 272004 227 tsbbp L6+2 " Save aa 002010 000320 000000 zero 208 L133: aa 002011 700000 762111 lprpbp sb|0,x1 " bcpl return aa 002012 200000 121100 sblx1 bp|0 aa 002013 700001 764111 lprplp sb|1,x1 aa 002014 200001 710100 tra bp|1 " end of return sequence " Begin text of DimChangemode aa 002015 000015 104151 zero 13,34921 " DimChangemode aa 002016 155103 150141 zero 55875,53345 aa 002017 156147 145155 zero 56423,51821 aa 002020 157144 145000 zero 56932,51712 5a 002021 000042 000000 zero 34 " relative pointer to definition for entry L129: aa 002022 000000 213000 229 epaq 0 " set lp to linkage section aa 002023 700026 764161 lprplp sb|22,*au aa 002024 000031 700004 tsx0 L82 " execute Multics save aa 002025 200000 021100 adlx1 bp|0 " BCPL save aa 002026 700000 542111 sprpbp sb|0,x1 aa 002027 700001 544111 sprplp sb|1,x1 aa 002030 700422 620111 eax0 sb|274,x1 aa 002031 777760 360003 anx0 -16,du aa 002032 700025 740100 stx0 sb|21 " end of save sequence aa 002033 000004 236007 230 ldq 4,dl " 4 aa 002034 700004 756111 stq sb|4,x1 aa 002035 776475 272004 tsbbp L7+2 " Unsave aa 002036 000002 000001 zero 2,1 aa 002037 000003 236007 231 ldq 3,dl " 3 aa 002040 700004 756111 stq sb|4,x1 aa 002041 776174 272004 tsbbp L3+2 " OldModes aa 002042 000002 000001 zero 2,1 aa 002043 000002 236007 232 ldq 2,dl " 2 aa 002044 700004 756111 stq sb|4,x1 aa 002045 775740 272004 tsbbp L1+2 " SetModes aa 002046 000002 000001 zero 2,1 aa 002047 776543 272004 233 tsbbp L6+2 " Save aa 002050 000002 000000 zero 2 L146: aa 002051 700000 762111 lprpbp sb|0,x1 " bcpl return aa 002052 200000 121100 sblx1 bp|0 aa 002053 700001 764111 lprplp sb|1,x1 aa 002054 200001 710100 tra bp|1 " end of return sequence " Local subroutine to help enter BCPL environment L82: aa 002055 004000 627000 eax7 2048 " Multics save sequence aa 002056 700040 272120 tsbbp sb|32,* aa 002057 600620 621100 eax1 sp|400 aa 002060 600030 650100 stplp sp|24 aa 002061 777775 350010 eapap -3,x0 aa 002062 600026 250100 stpap sp|22 aa 002063 000000 272010 tsbbp 0,x0 " simulate standard BCPL call aa 002064 000000 000000 zero 0 aa 002065 700042 710120 tra sb|34,* " Multics return " Definition section part one - external entry points 5a 000000 000037 000000 " pointer to first definition aa 000001 000000 600000 " flags: new format, ignore header aa 000002 000000 000000 " list terminator aa 000003 012162 165156 " "runoff_dim" aa 000004 157146 146137 aa 000005 144151 155000 aa 000006 021162 165156 " "runoff_changemode" aa 000007 157146 146137 aa 000010 143150 141156 aa 000011 147145 155157 aa 000012 144145 000000 aa 000013 014162 165156 " "runoff_order" aa 000014 157146 146137 aa 000015 157162 144145 aa 000016 162000 000000 aa 000017 014162 165156 " "runoff_write" aa 000020 157146 146137 aa 000021 167162 151164 aa 000022 145000 000000 aa 000023 015162 165156 " "runoff_detach" aa 000024 157146 146137 aa 000025 144145 164141 aa 000026 143150 000000 aa 000027 015162 165156 " "runoff_attach" aa 000030 157146 146137 aa 000031 141164 164141 aa 000032 143150 000000 aa 000033 014163 171155 " "symbol_table" aa 000034 142157 154137 aa 000035 164141 142154 aa 000036 145000 000000 " Segname definition for runoff_dim 55 000037 000042 000002 " forward, backward threads 5a 000040 000002 400003 " value defined, class flags 55 000041 000003 000042 " name pointer, first entry def " Definition for runoff_changemode 55 000042 000045 000037 " forward, backward threads 0a 000043 002022 500000 " value defined, class flags 55 000044 000006 000037 " name pointer, segname def pointer " Definition for runoff_order 55 000045 000050 000042 " forward, backward threads 0a 000046 001672 500000 " value defined, class flags 55 000047 000013 000037 " name pointer, segname def pointer " Definition for runoff_write 55 000050 000053 000045 " forward, backward threads 0a 000051 001532 500000 " value defined, class flags 55 000052 000017 000037 " name pointer, segname def pointer " Definition for runoff_detach 55 000053 000056 000050 " forward, backward threads 0a 000054 000750 500000 " value defined, class flags 55 000055 000023 000037 " name pointer, segname def pointer " Definition for runoff_attach 55 000056 000061 000053 " forward, backward threads 0a 000057 001044 500000 " value defined, class flags 55 000060 000027 000037 " name pointer, segname def pointer " Definition for symbol_table 55 000061 000002 000056 " forward, backward threads 6a 000062 000000 400002 " value defined, class flags 55 000063 000033 000037 " name pointer, segname def pointer " Definition section part two - symbolic info for external references aa 000064 012162 165156 " "runoff_mr8" aa 000065 157146 146137 aa 000066 155162 070000 aa 000067 011122 145141 " "ReadParam" aa 000070 144120 141162 aa 000071 141155 000000 5a 000072 000073 000000 aa 000073 000004 000000 55 000074 000064 000067 aa 000075 012162 165156 " "runoff_mr9" aa 000076 157146 146137 aa 000077 155162 071000 aa 000100 011103 150145 " "Check_ref" aa 000101 143153 137162 aa 000102 145146 000000 5a 000103 000104 000000 aa 000104 000004 000000 55 000105 000075 000100 aa 000106 012162 165156 " "runoff_mr2" aa 000107 157146 146137 aa 000110 155162 062000 aa 000111 007103 157156 " "Control" aa 000112 164162 157154 5a 000113 000114 000000 aa 000114 000004 000000 55 000115 000106 000111 aa 000116 022142 143160 " "bcpl_machine_code_" aa 000117 154137 155141 aa 000120 143150 151156 aa 000121 145137 143157 aa 000122 144145 137000 aa 000123 014125 156160 " "Unpackstring" aa 000124 141143 153163 aa 000125 164162 151156 aa 000126 147000 000000 5a 000127 000130 000000 aa 000130 000004 000000 55 000131 000116 000123 aa 000132 017142 143160 " "bcpl_stream_io_" aa 000133 154137 163164 aa 000134 162145 141155 aa 000135 137151 157137 aa 000136 010127 162151 " "Writeout" aa 000137 164145 157165 aa 000140 164000 000000 5a 000141 000142 000000 aa 000142 000004 000000 55 000143 000132 000136 aa 000144 012162 165156 " "runoff_mr0" aa 000145 157146 146137 aa 000146 155162 060000 aa 000147 013122 157146 " "RoffProcess" aa 000150 146120 162157 aa 000151 143145 163163 5a 000152 000153 000000 aa 000153 000004 000000 55 000154 000144 000147 aa 000155 006122 145141 " "Readch" aa 000156 144143 150000 5a 000157 000160 000000 aa 000160 000004 000000 55 000161 000116 000155 aa 000162 012162 165156 " "runoff_mr1" aa 000163 157146 146137 aa 000164 155162 061000 aa 000165 013123 145164 " "SetSwitches" aa 000166 123167 151164 aa 000167 143150 145163 5a 000170 000171 000000 aa 000171 000004 000000 55 000172 000162 000165 aa 000173 013106 151154 " "FillTrTable" aa 000174 154124 162124 aa 000175 141142 154145 5a 000176 000177 000000 aa 000177 000004 000000 55 000200 000162 000173 aa 000201 015124 151155 " "TimeToSeconds" aa 000202 145124 157123 aa 000203 145143 157156 aa 000204 144163 000000 5a 000205 000206 000000 aa 000206 000004 000000 55 000207 000116 000201 aa 000210 014122 141167 " "RawClockTime" aa 000211 103154 157143 aa 000212 153124 151155 aa 000213 145000 000000 5a 000214 000215 000000 aa 000215 000004 000000 55 000216 000116 000210 aa 000217 021142 143160 " "bcpl_filesys_lib_" aa 000220 154137 146151 aa 000221 154145 163171 aa 000222 163137 154151 aa 000223 142137 000000 aa 000224 006116 145167 " "Newvec" aa 000225 166145 143000 5a 000226 000227 000000 aa 000227 000004 000000 55 000230 000217 000224 aa 000231 024111 156151 " "InitializeSymbolTree" aa 000232 164151 141154 aa 000233 151172 145123 aa 000234 171155 142157 aa 000235 154124 162145 aa 000236 145000 000000 5a 000237 000240 000000 aa 000240 000004 000000 55 000241 000075 000231 aa 000242 004117 160145 " "Open" aa 000243 156000 000000 5a 000244 000245 000000 aa 000245 000004 000000 55 000246 000132 000242 aa 000247 012116 145167 " "NewvecInit" aa 000250 166145 143111 aa 000251 156151 164000 5a 000252 000253 000000 aa 000253 000004 000000 55 000254 000217 000247 aa 000255 010101 154154 " "Allocate" aa 000256 157143 141164 aa 000257 145000 000000 5a 000260 000261 000000 aa 000261 000004 000000 55 000262 000217 000255 aa 000263 014145 162162 " "error_table_" aa 000264 157162 137164 aa 000265 141142 154145 aa 000266 137000 000000 aa 000267 006151 157156 " "ionmat" aa 000270 155141 164000 5a 000271 000272 000000 aa 000272 000004 000000 55 000273 000263 000267 aa 000274 003111 124123 " "ITS" 5a 000275 000276 000000 aa 000276 000004 000000 55 000277 000116 000274 aa 000300 015116 145167 " "NewvecCleanup" aa 000301 166145 143103 aa 000302 154145 141156 aa 000303 165160 000000 5a 000304 000305 000000 aa 000305 000004 000000 55 000306 000217 000300 aa 000307 005103 154157 " "Close" aa 000310 163145 000000 5a 000311 000312 000000 aa 000312 000004 000000 55 000313 000132 000307 aa 000314 012162 165156 " "runoff_mr3" aa 000315 157146 146137 aa 000316 155162 063000 aa 000317 005105 152145 " "Eject" aa 000320 143164 000000 5a 000321 000322 000000 aa 000322 000004 000000 55 000323 000314 000317 aa 000324 005102 162145 " "Break" aa 000325 141153 000000 5a 000326 000327 000000 aa 000327 000004 000000 55 000330 000314 000324 aa 000331 015142 143160 " "bcpl_strings_" aa 000332 154137 163164 aa 000333 162151 156147 aa 000334 163137 000000 aa 000335 006123 165142 " "Substr" aa 000336 163164 162000 5a 000337 000340 000000 aa 000340 000004 000000 55 000341 000331 000335 aa 000342 005123 165142 " "Subch" aa 000343 143150 000000 5a 000344 000345 000000 aa 000345 000004 000000 55 000346 000116 000342 aa 000347 006114 145156 " "Length" aa 000350 147164 150000 5a 000351 000352 000000 aa 000352 000004 000000 55 000353 000331 000347 aa 000354 010102 103120 " "BCPLaddr" aa 000355 114141 144144 aa 000356 162000 000000 5a 000357 000360 000000 aa 000360 000004 000000 55 000361 000116 000354 aa 000362 013103 157156 " "Concatenate" aa 000363 143141 164145 aa 000364 156141 164145 5a 000365 000366 000000 aa 000366 000004 000000 55 000367 000331 000362 aa 000370 021142 143160 " "bcpl_conversions_" aa 000371 154137 143157 aa 000372 156166 145162 aa 000373 163151 157156 aa 000374 163137 000000 aa 000375 013103 157156 " "ConvertNtoS" aa 000376 166145 162164 aa 000377 116164 157123 5a 000400 000401 000000 aa 000401 000004 000000 55 000402 000370 000375 aa 000403 015115 141153 " "MakePl1String" aa 000404 145120 154061 aa 000405 123164 162151 aa 000406 156147 000000 5a 000407 000410 000000 aa 000410 000004 000000 55 000411 000331 000403 aa 000412 021142 143160 " "bcpl_command_lib_" aa 000413 154137 143157 aa 000414 155155 141156 aa 000415 144137 154151 aa 000416 142137 000000 aa 000417 015120 154061 " "Pl1Descriptor" aa 000420 104145 163143 aa 000421 162151 160164 aa 000422 157162 000000 5a 000423 000424 000000 aa 000424 000004 000000 55 000425 000412 000417 aa 000426 011120 154061 " "Pl1ArgPtr" aa 000427 101162 147120 aa 000430 164162 000000 5a 000431 000432 000000 aa 000432 000004 000000 55 000433 000412 000426 aa 000434 011123 145164 " "SetLength" aa 000435 114145 156147 aa 000436 164150 000000 5a 000437 000440 000000 aa 000440 000004 000000 55 000441 000331 000434 aa 000442 011123 145164 " "SetPaging" aa 000443 120141 147151 aa 000444 156147 000000 5a 000445 000446 000000 aa 000446 000004 000000 55 000447 000162 000442 aa 000450 011123 145164 " "SetDevice" aa 000451 104145 166151 aa 000452 143145 000000 5a 000453 000454 000000 aa 000454 000004 000000 55 000455 000162 000450 aa 000456 011123 145164 " "SetCharsw" aa 000457 103150 141162 aa 000460 163167 000000 5a 000461 000462 000000 aa 000462 000004 000000 55 000463 000144 000456 aa 000464 013117 160164 " "OptionParse" aa 000465 151157 156120 aa 000466 141162 163145 5a 000467 000470 000000 aa 000470 000004 000000 55 000471 000412 000464 aa 000472 014120 154061 " "Pl1ArgString" aa 000473 101162 147123 aa 000474 164162 151156 aa 000475 147000 000000 5a 000476 000477 000000 aa 000477 000004 000000 55 000500 000412 000472 aa 000501 000000 000000 " padding " Linkage section - static variables and external links aa 000000 000000 000000 " linkage header 0a 000001 002066 000000 " address of defs aa 000002 000000 000000 aa 000003 000000 000000 aa 000004 000000 000000 aa 000005 000000 000000 2a 000006 000012 000124 " offset to links, total length aa 000007 000000 000124 " obsolete length " Static variables aa 000010 000000 000000 zero 0 " FreeSDBlist aa 000011 000000 000000 " External link pairs L142: 3a 000012 777766 000046 " "runoff_mr8$ReadParam" 5a 000013 000072 000000 L141: 3a 000014 777764 000046 " "runoff_mr9$Check_ref" 5a 000015 000103 000000 L139: 3a 000016 777762 000046 " "runoff_mr2$Control" 5a 000017 000113 000000 L134: 3a 000020 777760 000046 " "bcpl_machine_code_$Unpackstring" 5a 000021 000127 000000 L127: 3a 000022 777756 000046 " "bcpl_stream_io_$Writeout" 5a 000023 000141 000000 L126: 3a 000024 777754 000046 " "runoff_mr0$RoffProcess" 5a 000025 000152 000000 L125: 3a 000026 777752 000046 " "bcpl_machine_code_$Readch" 5a 000027 000157 000000 L117: 3a 000030 777750 000046 " "runoff_mr1$SetSwitches" 5a 000031 000170 000000 L116: 3a 000032 777746 000046 " "runoff_mr1$FillTrTable" 5a 000033 000176 000000 L111: 3a 000034 777744 000046 " "bcpl_machine_code_$TimeToSeconds" 5a 000035 000205 000000 L110: 3a 000036 777742 000046 " "bcpl_machine_code_$RawClockTime" 5a 000037 000214 000000 L109: 3a 000040 777740 000046 " "bcpl_filesys_lib_$Newvec" 5a 000041 000226 000000 L108: 3a 000042 777736 000046 " "runoff_mr9$InitializeSymbolTree" 5a 000043 000237 000000 L103: 3a 000044 777734 000046 " "bcpl_stream_io_$Open" 5a 000045 000244 000000 L102: 3a 000046 777732 000046 " "bcpl_filesys_lib_$NewvecInit" 5a 000047 000252 000000 L101: 3a 000050 777730 000046 " "bcpl_filesys_lib_$Allocate" 5a 000051 000260 000000 L98: 3a 000052 777726 000046 " "error_table_$ionmat" 5a 000053 000271 000000 L91: 3a 000054 777724 000046 " "bcpl_machine_code_$ITS" 5a 000055 000275 000000 L89: 3a 000056 777722 000046 " "bcpl_filesys_lib_$NewvecCleanup" 5a 000057 000304 000000 L87: 3a 000060 777720 000046 " "bcpl_stream_io_$Close" 5a 000061 000311 000000 L85: 3a 000062 777716 000046 " "runoff_mr3$Eject" 5a 000063 000321 000000 L84: 3a 000064 777714 000046 " "runoff_mr3$Break" 5a 000065 000326 000000 L76: 3a 000066 777712 000046 " "bcpl_strings_$Substr" 5a 000067 000337 000000 L71: 3a 000070 777710 000046 " "bcpl_machine_code_$Subch" 5a 000071 000344 000000 L67: 3a 000072 777706 000046 " "bcpl_strings_$Length" 5a 000073 000351 000000 L56: 3a 000074 777704 000046 " "bcpl_machine_code_$BCPLaddr" 5a 000075 000357 000000 L46: 3a 000076 777702 000046 " "bcpl_strings_$Concatenate" 5a 000077 000365 000000 L43: 3a 000100 777700 000046 " "bcpl_conversions_$ConvertNtoS" 5a 000101 000400 000000 L39: 3a 000102 777676 000046 " "bcpl_strings_$MakePl1String" 5a 000103 000407 000000 L38: 3a 000104 777674 000046 " "bcpl_command_lib_$Pl1Descriptor" 5a 000105 000423 000000 L37: 3a 000106 777672 000046 " "bcpl_command_lib_$Pl1ArgPtr" 5a 000107 000431 000000 L36: 3a 000110 777670 000046 " "bcpl_strings_$SetLength" 5a 000111 000437 000000 L27: 3a 000112 777666 000046 " "runoff_mr1$SetPaging" 5a 000113 000445 000000 L25: 3a 000114 777664 000046 " "runoff_mr1$SetDevice" 5a 000115 000453 000000 L23: 3a 000116 777662 000046 " "runoff_mr0$SetCharsw" 5a 000117 000461 000000 L21: 3a 000120 777660 000046 " "bcpl_command_lib_$OptionParse" 5a 000121 000467 000000 L11: 3a 000122 777656 000046 " "bcpl_command_lib_$Pl1ArgString" 5a 000123 000476 000000 " Symbol section header aa 000000 000000 000001 " version number of header structure aa 000001 163171 155142 " "symbtree" aa 000002 164162 145145 aa 000003 000000 000003 " compiler version number aa 000004 000000 101170 " date/time compiler modified aa 000005 533311 032072 " 09/25/73 0959.1 mst Tue aa 000006 000000 102333 " time of this compilation aa 000007 441457 653164 " 01/24/75 0703.1 mst Fri aa 000010 142143 160154 " "bcpl " aa 000011 040040 040040 aa 000012 000042 000035 " compiler version name - pointer, length aa 000013 000052 000024 " user id - pointer, length aa 000014 000057 000043 " comment string - pointer, length aa 000015 000002 000002 " text and linkage boundaries aa 000016 000024 000000 " source map, symbol tree root 7a 000017 000000 000123 " section header pointer, block size aa 000020 000000 000123 " next block pointer, rel_text aa 000021 000000 000176 " rel_def, rel_link aa 000022 000216 000123 " rel_symbol, default truncate aa 000023 000024 000000 " optional truncate, unused aa 000024 000000 000001 " source files map: version number aa 000025 000000 000003 " number of files aa 000026 000070 000051 " runoff_dim aa 000027 023333 611444 " last modified on aa 000030 000000 102333 " 01/24/75 0647.2 mst Fri aa 000031 432367 000000 aa 000032 000103 000033 " head aa 000033 021607 540547 " last modified on aa 000034 000000 101621 " 05/06/74 1742.4 mst Mon aa 000035 352261 400000 aa 000036 000112 000042 " runoff_head aa 000037 021607 541104 " last modified on aa 000040 000000 101621 " 05/06/74 1743.2 mst Mon aa 000041 352532 200000 aa 000042 102103 120114 " "BCPL version 3.4, August 1973" aa 000043 040166 145162 aa 000044 163151 157156 aa 000045 040063 056064 aa 000046 054040 101165 aa 000047 147165 163164 aa 000050 040061 071067 aa 000051 063040 040040 aa 000052 115141 162164 " "Martinson.SysMaint.a" aa 000053 151156 163157 aa 000054 156056 123171 aa 000055 163115 141151 aa 000056 156164 056141 aa 000057 163157 165162 " "source xref alist optimize 6180" aa 000060 143145 040040 aa 000061 170162 145146 aa 000062 040040 141154 aa 000063 151163 164040 aa 000064 040157 160164 aa 000065 151155 151172 aa 000066 145040 040066 aa 000067 061070 060040 aa 000070 076062 056061 " ">2.1spec>online>mib083074>runoff_dim.bcpl" aa 000071 163160 145143 aa 000072 076157 156154 aa 000073 151156 145076 aa 000074 155151 142060 aa 000075 070063 060067 aa 000076 064076 162165 aa 000077 156157 146146 aa 000100 137144 151155 aa 000101 056142 143160 aa 000102 154040 040040 aa 000103 076154 144144 " ">ldd>include>head.incl.bcpl" aa 000104 076151 156143 aa 000105 154165 144145 aa 000106 076150 145141 aa 000107 144056 151156 aa 000110 143154 056142 aa 000111 143160 154040 aa 000112 076154 144144 " ">ldd>include>runoff_head.incl.bcpl" aa 000113 076151 156143 aa 000114 154165 144145 aa 000115 076162 165156 aa 000116 157146 146137 aa 000117 150145 141144 aa 000120 056151 156143 aa 000121 154056 142143 aa 000122 160154 040040 " Relocation information " text section relocation bits aa 000123 000000 000002 " version number of rel-bits structure aa 000124 000000 002657 " length in bits aa 000125 740665 170323 aa 000126 200001 200001 aa 000127 200001 236102 aa 000130 647421 550001 aa 000131 236011 647405 aa 000132 351701 132360 aa 000133 466474 047500 aa 000134 012360 216474 aa 000135 147517 005723 aa 000136 602364 740315 aa 000137 170057 276016 aa 000140 640500 002400 aa 000141 012001 203100 aa 000142 312400 012360 aa 000143 166574 035517 aa 000144 004320 002400 aa 000145 240031 000120 aa 000146 000620 002400 aa 000147 000517 004320 aa 000150 000120 000024 aa 000151 000123 601264 aa 000152 002474 025500 aa 000153 000517 021720 aa 000154 012000 012000 aa 000155 240005 000120 aa 000156 000120 002400 aa 000157 050001 236026 aa 000160 640005 000120 aa 000161 002474 031500 aa 000162 050005 000120 aa 000163 051700 572360 aa 000164 246574 037500 aa 000165 012000 240000 aa 000166 051701 132360 aa 000167 136400 000500 aa 000170 050000 247403 aa 000171 153701 172000 aa 000172 051701 372360 aa 000173 106400 050000 aa 000174 240123 601665 aa 000175 741110 000000 l " inkage relocation bits aa 000176 000000 000002 " version number of rel-bits structure aa 000177 000000 000730 " length in bits aa 000200 100002 200232 aa 000201 523252 325232 aa 000202 523252 325232 aa 000203 523252 325232 aa 000204 523252 325232 aa 000205 523252 325232 aa 000206 523252 325232 aa 000207 523252 325232 aa 000210 523252 325232 aa 000211 523252 325232 aa 000212 523252 325232 aa 000213 523252 325232 aa 000214 523252 325232 aa 000215 500000 000000 s " ymbol relocation bits aa 000216 000000 000002 " version number of rel-bits structure aa 000217 000000 000043 " length in bits aa 000220 740365 770416 " Object map aa 003135 000000 000001 " version number of object_map structure aa 003136 157142 152137 " "obj_map " aa 003137 155141 160040 aa 003140 000000 002066 " text offset, length aa 003141 002066 000501 " def offset, length aa 003142 002570 000124 " link offset, length aa 003143 002714 000221 " symbol offset, length aa 003144 000000 000000 " break map offset, length aa 003145 340000 000000 " flags: ^bound, relocatable, procedure, standard aa 003146 003135 000000 " object map pointer, unused