|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0770 | p | .CONST 0x0770 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0047 | G | .CONST 0x0047 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000e | | .CONST 0x000e ; Number of locals 001b INIT_0018: 001b 0092 05ef | | Action Push_String_Extended,0x5ef ; "!Machine.Initialization.Rational.Design_Facilities" 001d 4800 |H | Short_Literal 0x0 001e 0093 022b | +| push_full_address INIT_0228 0020 02a0 | | Declare_Subprogram Null_Subprogram 0021 038e | | Declare_Type Package,Defined 0022 0387 | | Declare_Variable Package 0023 e001 | | Load 0x0,0x1 0024 e002 | | Load 0x0,0x2 0025 e003 | | Load 0x0,0x3 0026 e004 | | Load 0x0,0x4 0027 e005 | | Load 0x0,0x5 0028 e006 | | Load 0x0,0x6 0029 e007 | | Load 0x0,0x7 002a e008 | | Load 0x0,0x8 002b 4808 |H | Short_Literal 0x8 002c e403 | | Load 0x2,0x3 002d 020e | | Execute Module,Augment_Imports 002e 00d8 | | Load_Top At_Offset_0 002f 020f | | Execute Module,Activate 0030 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0032 00d9 | | Load_Top At_Offset_1 0033 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0034 00c6 | | Action Check_Subprogram_Elaborated 0035 e005 | | Load 0x0,0x5 0036 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0037 e009 | | Load 0x0,0x9 0038 e00a | | Load 0x0,0xa 0039 4808 |H | Short_Literal 0x8 003a 0007 | | Action Break_Optional 003b 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 003d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 003f 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0041 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0043 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0045 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0047 BODY_0018: 0047 e5fd | | Load 0x2,-0x3 0048 840e | | Call 0x2,0xe 0049 e5fe | | Load 0x2,-0x2 004a 840e | | Call 0x2,0xe 004b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0058 | X | .CONST 0x0058 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 e005 | | Load 0x0,0x5 0055 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0056 c7ff | | Store 0x3,-0x1 0057 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0058 TRAP_0050: 0058 0007 | | Action Break_Optional 0059 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0079 | y | .CONST 0x0079 ; Address of begin 0061 00ac | | .CONST 0x00ac ; Address of exception handler 0062 000a | | .CONST 0x000a ; Number of locals 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 e403 | | Load 0x2,0x3 0065 180f | | Execute Package,Field_Execute,Field_Number 0xf 0066 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Input | Output | Error => !MACHINE.DEVICES.NIL" 0068 e00b | | Load 0x0,0xb 0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006a e00b | | Load 0x0,0xb 006b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006c 02c7 | | Declare_Variable Any 006d 00d8 | | Load_Top At_Offset_0 006e 1c00 | | Execute_Immediate Run_Utility,0x0 006f 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0071 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0073 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0075 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 0077 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0079 BODY_0060: 0079 e602 | | Load 0x3,0x2 007a 4805 |H | Short_Literal 0x5 007b 4802 |H | Short_Literal 0x2 007c 0099 | | Action Reference_Dynamic 007d 4806 |H | Short_Literal 0x6 007e 4802 |H | Short_Literal 0x2 007f 0099 | | Action Reference_Dynamic 0080 e403 | | Load 0x2,0x3 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "<PROFILE>" 0084 e602 | | Load 0x3,0x2 0085 4802 |H | Short_Literal 0x2 0086 e403 | | Load 0x2,0x3 0087 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0088 e00c | | Load 0x0,0xc 0089 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008a e605 | | Load 0x3,0x5 008b e00b | | Load 0x0,0xb 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "<PROFILE>" 008f e603 | | Load 0x3,0x3 0090 4800 |H | Short_Literal 0x0 0091 e602 | | Load 0x3,0x2 0092 4805 |H | Short_Literal 0x5 0093 e403 | | Load 0x2,0x3 0094 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0095 4800 |H | Short_Literal 0x0 0096 8608 | | Call 0x3,0x8 0097 860a | | Call 0x3,0xa 0098 c604 | | Store 0x3,0x4 0099 c605 | | Store 0x3,0x5 009a e605 | | Load 0x3,0x5 009b e00b | | Load 0x0,0xb 009c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 009d 700d |p | Jump_Nonzero 0xab 009e e605 | | Load 0x3,0x5 009f e00d | | Load 0x0,0xd 00a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a1 4802 |H | Short_Literal 0x2 00a2 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "Unable_To_Register_Standard_Pdl " 00a4 8607 | | Call 0x3,0x7 00a5 01cc | | Execute Vector,Catenate 00a6 e00e | | Load 0x0,0xe 00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a8 8609 | | Call 0x3,0x9 00a9 e00e | | Load 0x0,0xe 00aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ac TRAP_0060: 00ac 00d8 | | Load_Top At_Offset_0 00ad 0107 | | Execute Exception,Get_Name 00ae 4920 |I | Short_Literal 0x120 00af 492f |I/ | Short_Literal 0x12f 00b0 0262 | b | Execute Discrete,In_Range 00b1 680e |h | Jump_Zero 0xc0 00b2 8607 | | Call 0x3,0x7 00b3 0092 05f3 | | Action Push_String_Extended,0x5f3 ; " cannot be found." 00b5 01cc | | Execute Vector,Catenate 00b6 4802 |H | Short_Literal 0x2 00b7 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "Invalid_Pdl_Name" 00b9 e00e | | Load 0x0,0xe 00ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00bb 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl" 00bd e00e | | Load 0x0,0xe 00be 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c0 4801 |H | Short_Literal 0x1 00c1 4801 |H | Short_Literal 0x1 00c2 e00f | | Load 0x0,0xf 00c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c4 4802 |H | Short_Literal 0x2 00c5 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Unhandled_Exception" 00c7 e00e | | Load 0x0,0xe 00c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c9 8609 | | Call 0x3,0x9 00ca e00e | | Load 0x0,0xe 00cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d5 | | .CONST 0x00d5 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 00e2 | | Load_Encached Integer_Cache 00d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d5 BODY_00d0: 00d5 00cf | | Action Mark_Auxiliary 00d6 e7ff | | Load 0x3,-0x1 00d7 01d9 | | Execute Vector,Reverse_Bounds 00d8 0263 | c | Execute Discrete,Above_Bound 00d9 7013 |p | Jump_Nonzero 0xed 00da 00d8 | | Load_Top At_Offset_0 00db e7ff | | Load 0x3,-0x1 00dc 01d7 | | Execute Vector,Field_Read 00dd 0f28 | ( | Execute_Immediate Equal,0x28 00de 6804 |h | Jump_Zero 0xe3 00df 00db | | Load_Top At_Offset_3 00e0 0a01 | | Execute_Immediate Plus,0x1 00e1 c602 | | Store 0x3,0x2 00e2 7808 |x | Jump 0xeb 00e3 00d8 | | Load_Top At_Offset_0 00e4 e7ff | | Load 0x3,-0x1 00e5 01d7 | | Execute Vector,Field_Read 00e6 0f29 | ) | Execute_Immediate Equal,0x29 00e7 6803 |h | Jump_Zero 0xeb 00e8 00db | | Load_Top At_Offset_3 00e9 0aff | | Execute_Immediate Plus,-0x1 00ea c602 | | Store 0x3,0x2 00eb 00c8 | | Action Pop_Auxiliary_Range 00ec 3fed |? | Loop_Increasing 0xda 00ed 00ce | | Action Pop_Auxiliary 00ee 00d8 | | Load_Top At_Offset_0 00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 840a | | Call 0x2,0xa 00f5 0c01 | | Execute_Immediate Greater_Equal,0x1 00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 840a | | Call 0x2,0xa 00fd 0d00 | | Execute_Immediate Less,0x0 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0109 | | .CONST 0x0109 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 4820 |H | Short_Literal 0x20 0104 00db | | Load_Top At_Offset_3 0105 e005 | | Load 0x0,0x5 0106 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0107 e010 | | Load 0x0,0x10 0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0109 BODY_0100: 0109 e7fe | | Load 0x3,-0x2 010a 01db | | Execute Vector,Length 010b 7012 |p | Jump_Nonzero 0x11e 010c 00d8 | | Load_Top At_Offset_0 010d 840b | | Call 0x2,0xb 010e 6807 |h | Jump_Zero 0x116 010f 4828 |H( | Short_Literal 0x28 0110 00d9 | | Load_Top At_Offset_1 0111 e010 | | Load 0x0,0x10 0112 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0113 e7ff | | Load 0x3,-0x1 0114 840d | | Call 0x2,0xd 0115 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0116 4828 |H( | Short_Literal 0x28 0117 4829 |H) | Short_Literal 0x29 0118 00da | | Load_Top At_Offset_2 0119 e010 | | Load 0x0,0x10 011a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 011b e010 | | Load 0x0,0x10 011c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011e 00d8 | | Load_Top At_Offset_0 011f 840c | | Call 0x2,0xc 0120 680a |h | Jump_Zero 0x12b 0121 e7fe | | Load 0x3,-0x2 0122 4829 |H) | Short_Literal 0x29 0123 482c |H, | Short_Literal 0x2c 0124 00db | | Load_Top At_Offset_3 0125 e010 | | Load 0x0,0x10 0126 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0127 e010 | | Load 0x0,0x10 0128 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0129 01cc | | Execute Vector,Catenate 012a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 012b e7fe | | Load 0x3,-0x2 012c 00d9 | | Load_Top At_Offset_1 012d 01cc | | Execute Vector,Catenate 012e e7ff | | Load 0x3,-0x1 012f 840d | | Call 0x2,0xd 0130 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0142 | B | .CONST 0x0142 ; Address of begin 0139 0152 | R | .CONST 0x0152 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b e005 | | Load 0x0,0x5 013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013d 02c7 | | Declare_Variable Any 013e 00d8 | | Load_Top At_Offset_0 013f 1c00 | | Execute_Immediate Run_Utility,0x0 0140 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0142 BODY_0138: 0142 00d9 | | Load_Top At_Offset_1 0143 00ea | | Load_Encached Null_String_Cache 0144 e7ff | | Load 0x3,-0x1 0145 4800 |H | Short_Literal 0x0 0146 e005 | | Load 0x0,0x5 0147 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0148 c602 | | Store 0x3,0x2 0149 00cf | | Action Mark_Auxiliary 014a 7802 |x | Jump 0x14d 014b 8603 | | Call 0x3,0x3 014c 00c9 | | Action Pop_Auxiliary_Loop 014d 00da | | Load_Top At_Offset_2 014e e005 | | Load 0x0,0x5 014f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0150 6ffa |o | Jump_Zero 0x14b 0151 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0152 TRAP_0138: 0152 00d8 | | Load_Top At_Offset_0 0153 0107 | | Execute Exception,Get_Name 0154 4920 |I | Short_Literal 0x120 0155 492f |I/ | Short_Literal 0x12f 0156 0262 | b | Execute Discrete,In_Range 0157 6801 |h | Jump_Zero 0x159 0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0159 00da | | Load_Top At_Offset_2 015a 8404 | | Call 0x2,0x4 015b c602 | | Store 0x3,0x2 015c 4801 |H | Short_Literal 0x1 015d 4801 |H | Short_Literal 0x1 015e e00f | | Load 0x0,0xf 015f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0160 4802 |H | Short_Literal 0x2 0161 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "Unhandled_Exception" 0163 e00e | | Load 0x0,0xe 0164 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0165 e402 | | Load 0x2,0x2 0166 e00e | | Load 0x0,0xe 0167 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e602 | | Load 0x3,0x2 0174 4803 |H | Short_Literal 0x3 0175 e403 | | Load 0x2,0x3 0176 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0177 6823 |h# | Jump_Zero 0x19b 0178 e602 | | Load 0x3,0x2 0179 4804 |H | Short_Literal 0x4 017a e403 | | Load 0x2,0x3 017b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 017c 6813 |h | Jump_Zero 0x190 017d 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "(Pdl_Name => \x22" 017f e602 | | Load 0x3,0x2 0180 4803 |H | Short_Literal 0x3 0181 e403 | | Load 0x2,0x3 0182 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0183 01cc | | Execute Vector,Catenate 0184 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "\x22, Pdl_Id => Pdl." 0186 01cc | | Execute Vector,Catenate 0187 e602 | | Load 0x3,0x2 0188 4804 |H | Short_Literal 0x4 0189 e403 | | Load 0x2,0x3 018a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018b 01cc | | Execute Vector,Catenate 018c 0092 05f9 | | Action Push_String_Extended,0x5f9 ; ")" 018e 01cc | | Execute Vector,Catenate 018f 00ca | | Action Exit_Nullary_Function 0190 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "(Pdl_Name => \x22" 0192 e602 | | Load 0x3,0x2 0193 4803 |H | Short_Literal 0x3 0194 e403 | | Load 0x2,0x3 0195 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0196 01cc | | Execute Vector,Catenate 0197 0092 05fa | | Action Push_String_Extended,0x5fa ; "\x22)" 0199 01cc | | Execute Vector,Catenate 019a 00ca | | Action Exit_Nullary_Function 019b e602 | | Load 0x3,0x2 019c 4804 |H | Short_Literal 0x4 019d e403 | | Load 0x2,0x3 019e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019f 680b |h | Jump_Zero 0x1ab 01a0 0092 05fb | | Action Push_String_Extended,0x5fb ; "(Pdl_Id => Pdl." 01a2 e602 | | Load 0x3,0x2 01a3 4804 |H | Short_Literal 0x4 01a4 e403 | | Load 0x2,0x3 01a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a6 01cc | | Execute Vector,Catenate 01a7 0092 05f9 | | Action Push_String_Extended,0x5f9 ; ")" 01a9 01cc | | Execute Vector,Catenate 01aa 00ca | | Action Exit_Nullary_Function 01ab 00ea | | Load_Encached Null_String_Cache 01ac 00ca | | Action Exit_Nullary_Function 01ad 0000 0000 | | .XXX[0x3] 01af 0000 | | 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e602 | | Load 0x3,0x2 01b4 4801 |H | Short_Literal 0x1 01b5 e403 | | Load 0x2,0x3 01b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b7 0092 05fc | | Action Push_String_Extended,0x5fc ; "." 01b9 01cc | | Execute Vector,Catenate 01ba e602 | | Load 0x3,0x2 01bb 4806 |H | Short_Literal 0x6 01bc e403 | | Load 0x2,0x3 01bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01be 01cc | | Execute Vector,Catenate 01bf 00ca | | Action Exit_Nullary_Function 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e602 | | Load 0x3,0x2 01c4 4802 |H | Short_Literal 0x2 01c5 e403 | | Load 0x2,0x3 01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c7 8606 | | Call 0x3,0x6 01c8 e602 | | Load 0x3,0x2 01c9 4807 |H | Short_Literal 0x7 01ca e403 | | Load 0x2,0x3 01cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01cc 8607 | | Call 0x3,0x7 01cd e00b | | Load 0x0,0xb 01ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01cf 00ca | | Action Exit_Nullary_Function 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4829 |H) | Short_Literal 0x29 01d4 0092 05fd | | Action Push_String_Extended,0x5fd ; "!Machine.Initialization.Rational.Design_Facilities (" 01d6 e602 | | Load 0x3,0x2 01d7 4806 |H | Short_Literal 0x6 01d8 e403 | | Load 0x2,0x3 01d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01da 01cc | | Execute Vector,Catenate 01db 01cb | | Execute Vector,Append 01dc 00ca | | Action Exit_Nullary_Function 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e004 | | Load 0x0,0x4 01e4 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e5 4801 |H | Short_Literal 0x1 01e6 e004 | | Load 0x0,0x4 01e7 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01e8 681d |h | Jump_Zero 0x206 01e9 0092 05fe | | Action Push_String_Extended,0x5fe ; "S => " 01eb 00db | | Load_Top At_Offset_3 01ec 01cc | | Execute Vector,Catenate 01ed e005 | | Load 0x0,0x5 01ee 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01ef 0092 05ff | | Action Push_String_Extended,0x5ff ; "Context => " 01f1 e9fd | | Load 0x4,-0x3 01f2 01cc | | Execute Vector,Catenate 01f3 e005 | | Load 0x0,0x5 01f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01f5 4801 |H | Short_Literal 0x1 01f6 e005 | | Load 0x0,0x5 01f7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01f8 e9f8 | | Load 0x4,-0x8 01f9 e00b | | Load 0x0,0xb 01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fb e9fa | | Load 0x4,-0x6 01fc 00ea | | Load_Encached Null_String_Cache 01fd e9fc | | Load 0x4,-0x4 01fe e9fd | | Load 0x4,-0x3 01ff e9fe | | Load 0x4,-0x2 0200 e9ff | | Load 0x4,-0x1 0201 e00b | | Load 0x0,0xb 0202 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0203 c9f9 | | Store 0x4,-0x7 0204 c9f8 | | Store 0x4,-0x8 0205 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0206 e9f8 | | Load 0x4,-0x8 0207 e00b | | Load 0x0,0xb 0208 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0209 e9fa | | Load 0x4,-0x6 020a e9fb | | Load 0x4,-0x5 020b e9fc | | Load 0x4,-0x4 020c e9fd | | Load 0x4,-0x3 020d e9fe | | Load 0x4,-0x2 020e e9ff | | Load 0x4,-0x1 020f e00b | | Load 0x0,0xb 0210 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0211 c9f9 | | Store 0x4,-0x7 0212 c9f8 | | Store 0x4,-0x8 0213 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021e | | .CONST 0x021e ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b 00ea | | Load_Encached Null_String_Cache 021c e602 | | Load 0x3,0x2 021d 840d | | Call 0x2,0xd 021e BODY_0218: 021e 00d8 | | Load_Top At_Offset_0 021f 01db | | Execute Vector,Length 0220 0c01 | | Execute_Immediate Greater_Equal,0x1 0221 6803 |h | Jump_Zero 0x225 0222 e7ff | | Load 0x3,-0x1 0223 00d9 | | Load_Top At_Offset_1 0224 8409 | | Call 0x2,0x9 0225 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 02a1 | | .CONST 0x02a1 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 001a | | .CONST 0x001a ; Number of locals 022b INIT_0228: 022b 4818 |H | Short_Literal 0x18 022c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 022d 4800 |H | Short_Literal 0x0 022e 4807 |H | Short_Literal 0x7 022f 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call 0231 03fe | | Declare_Type Discrete,Defined,Visible 0232 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0234 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0236 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0238 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 023a 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 023c 4804 |H | Short_Literal 0x4 023d 032a | * | Declare_Type Record,Incomplete 023e 00d8 | | Load_Top At_Offset_0 023f 02a0 | | Declare_Subprogram Null_Subprogram 0240 e20d | | Load 0x1,0xd 0241 03c7 | | Complete_Type Access,By_Defining 0242 00bf | | Action Accept_Activation 0243 e001 | | Load 0x0,0x1 0244 e002 | | Load 0x0,0x2 0245 4814 |H | Short_Literal 0x14 0246 e003 | | Load 0x0,0x3 0247 0387 | | Declare_Variable Package 0248 00d8 | | Load_Top At_Offset_0 0249 020f | | Execute Module,Activate 024a 0092 0600 | | Action Push_String_Extended,0x600 ; "!Tools.Design.Release." 024c e20e | | Load 0x1,0xe 024d 0266 | f | Execute Discrete,Bounds 024e 00db | | Load_Top At_Offset_3 024f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0250 02a0 | | Declare_Subprogram Null_Subprogram 0251 4801 |H | Short_Literal 0x1 0252 035d | ] | Declare_Type Array,Defined 0253 00d8 | | Load_Top At_Offset_0 0254 0337 | 7 | Declare_Variable Array 0255 0092 0601 | | Action Push_String_Extended,0x601 ; "Pdl_Definition" 0257 e215 | | Load 0x1,0x15 0258 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0259 4806 |H | Short_Literal 0x6 025a 00da | | Load_Top At_Offset_2 025b 01d6 | | Execute Vector,Field_Write 025c 0092 0602 | | Action Push_String_Extended,0x602 ; "Register_Pdl" 025e e215 | | Load 0x1,0x15 025f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0260 4807 |H | Short_Literal 0x7 0261 00da | | Load_Top At_Offset_2 0262 01d6 | | Execute Vector,Field_Write 0263 0092 0603 | | Action Push_String_Extended,0x603 ; "!Machine.Release.Current.Activity" 0265 e215 | | Load 0x1,0x15 0266 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0267 4802 |H | Short_Literal 0x2 0268 00da | | Load_Top At_Offset_2 0269 01d6 | | Execute Vector,Field_Write 026a 4801 |H | Short_Literal 0x1 026b 4800 |H | Short_Literal 0x0 026c 00ea | | Load_Encached Null_String_Cache 026d e215 | | Load 0x1,0x15 026e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 026f 00d9 | | Load_Top At_Offset_1 0270 e218 | | Load 0x1,0x18 0271 01d6 | | Execute Vector,Field_Write 0272 3ff9 |? | Loop_Increasing 0x26c 0273 4805 |H | Short_Literal 0x5 0274 4803 |H | Short_Literal 0x3 0275 00ea | | Load_Encached Null_String_Cache 0276 e215 | | Load 0x1,0x15 0277 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0278 00d9 | | Load_Top At_Offset_1 0279 e218 | | Load 0x1,0x18 027a 01d6 | | Execute Vector,Field_Write 027b 3ff9 |? | Loop_Increasing 0x275 027c 00d9 | | Load_Top At_Offset_1 027d 01c3 | | Execute Vector,Check_In_Type 027e 0007 | | Action Break_Optional 027f 4800 |H | Short_Literal 0x0 0280 480c |H | Short_Literal 0xc 0281 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 0283 03fd | | Declare_Type Discrete,Defined 0284 4800 |H | Short_Literal 0x0 0285 0093 0503 | | push_full_address INIT_0500 0287 02a0 | | Declare_Subprogram Null_Subprogram 0288 038e | | Declare_Type Package,Defined 0289 0387 | | Declare_Variable Package 028a 00d8 | | Load_Top At_Offset_0 028b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 028c 00d9 | | Load_Top At_Offset_1 028d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028e 00e1 | | Load_Encached Boolean_Cache 028f e215 | | Load 0x1,0x15 0290 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0291 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 0293 e214 | | Load 0x1,0x14 0294 0326 | & | Complete_Type Record,By_Defining 0295 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0296 00c7 | | Action Elaborate_Subprogram 0297 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0298 00c7 | | Action Elaborate_Subprogram 0299 1d11 | | Execute_Immediate Reference_Lex_1,0x11 029a 00c7 | | Action Elaborate_Subprogram 029b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 029c 00c7 | | Action Elaborate_Subprogram 029d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 029e 00c7 | | Action Elaborate_Subprogram 029f 00d8 | | Load_Top At_Offset_0 02a0 020f | | Execute Module,Activate 02a1 BODY_0228: 02a1 00bc | | Action Signal_Activated 02a2 00bb | | Action Signal_Completion 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 4607 |F | Jump_Case 0x8 02ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02ad 7806 |x | Jump 0x2b4 ; case 0x1 02ae 7809 |x | Jump 0x2b8 ; case 0x2 02af 780d |x | Jump 0x2bd ; case 0x3 02b0 7810 |x | Jump 0x2c1 ; case 0x4 02b1 7811 |x | Jump 0x2c3 ; case 0x5 02b2 7812 |x | Jump 0x2c5 ; case 0x6 02b3 7815 |x | Jump 0x2c9 ; case 0x7 02b4 00da | | Load_Top At_Offset_2 02b5 0091 05da | | Action Push_String_Extended_Indexed,0x5da ; "NIL" 02b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02b8 00db | | Load_Top At_Offset_3 02b9 00db | | Load_Top At_Offset_3 02ba 00e0 | | Load_Encached Standard_Cache 02bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02bd 00da | | Load_Top At_Offset_2 02be 00e0 | | Load_Encached Standard_Cache 02bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c1 00db | | Load_Top At_Offset_3 02c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c3 00db | | Load_Top At_Offset_3 02c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c5 e20e | | Load 0x1,0xe 02c6 00dc | | Load_Top At_Offset_4 02c7 0267 | g | Execute Discrete,Predecessor 02c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c9 e20e | | Load 0x1,0xe 02ca 00dc | | Load_Top At_Offset_4 02cb 0268 | h | Execute Discrete,Successor 02cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02cd 0000 0000 | | .XXX[0x3] 02cf 0000 | | 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d8 | | .CONST 0x02d8 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 e20d | | Load 0x1,0xd 02d4 03bc | | Declare_Variable Access,By_Allocation 02d5 00d8 | | Load_Top At_Offset_0 02d6 0227 | ' | Execute Access,All_Reference 02d7 1c00 | | Execute_Immediate Run_Utility,0x0 02d8 BODY_02d0: 02d8 00db | | Load_Top At_Offset_3 02d9 e215 | | Load 0x1,0x15 02da 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02db 00d9 | | Load_Top At_Offset_1 02dc 0227 | ' | Execute Access,All_Reference 02dd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02de 00db | | Load_Top At_Offset_3 02df e21a | | Load 0x1,0x1a 02e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02e1 00d9 | | Load_Top At_Offset_1 02e2 0227 | ' | Execute Access,All_Reference 02e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02e4 00d8 | | Load_Top At_Offset_0 02e5 0227 | ' | Execute Access,All_Reference 02e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02e7 e21a | | Load 0x1,0x1a 02e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e9 00d9 | | Load_Top At_Offset_1 02ea 0227 | ' | Execute Access,All_Reference 02eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02ec 00d8 | | Load_Top At_Offset_0 02ed 0227 | ' | Execute Access,All_Reference 02ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ef 0f01 | | Execute_Immediate Equal,0x1 02f0 00d9 | | Load_Top At_Offset_1 02f1 0227 | ' | Execute Access,All_Reference 02f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f3 0f02 | | Execute_Immediate Equal,0x2 02f4 0278 | x | Execute Discrete,Or 02f5 00d9 | | Load_Top At_Offset_1 02f6 0227 | ' | Execute Access,All_Reference 02f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f8 0f04 | | Execute_Immediate Equal,0x4 02f9 0278 | x | Execute Discrete,Or 02fa 00d9 | | Load_Top At_Offset_1 02fb 0227 | ' | Execute Access,All_Reference 02fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fd 0f05 | | Execute_Immediate Equal,0x5 02fe 0278 | x | Execute Discrete,Or 02ff 00d9 | | Load_Top At_Offset_1 0300 0227 | ' | Execute Access,All_Reference 0301 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0302 00d8 | | Load_Top At_Offset_0 0303 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 0227 | ' | Execute Access,All_Reference 030d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 030e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030f 0000 | | .XXX[0x1] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0315 | | .CONST 0x0315 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 0315 BODY_0310: 0315 00db | | Load_Top At_Offset_3 0316 4607 |F | Jump_Case 0x8 0317 7807 |x | Jump 0x31f ; case 0x0 0318 780c |x | Jump 0x325 ; case 0x1 0319 780d |x | Jump 0x327 ; case 0x2 031a 7823 |x# | Jump 0x33e ; case 0x3 031b 7839 |x9 | Jump 0x355 ; case 0x4 031c 784f |xO | Jump 0x36c ; case 0x5 031d 7801 |x | Jump 0x31f ; case 0x6 031e 7800 |x | Jump 0x31f ; case 0x7 031f 00db | | Load_Top At_Offset_3 0320 e218 | | Load 0x1,0x18 0321 01d7 | | Execute Vector,Field_Read 0322 e215 | | Load 0x1,0x15 0323 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0324 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0325 8402 | | Call 0x2,0x2 0326 786b |xk | Jump 0x392 0327 e5fe | | Load 0x2,-0x2 0328 0227 | ' | Execute Access,All_Reference 0329 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 032a 0c02 | | Execute_Immediate Greater_Equal,0x2 032b 680c |h | Jump_Zero 0x338 032c e5fe | | Load 0x2,-0x2 032d 0227 | ' | Execute Access,All_Reference 032e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 032f e5fe | | Load 0x2,-0x2 0330 0227 | ' | Execute Access,All_Reference 0331 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0332 e215 | | Load 0x1,0x15 0333 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0334 4802 |H | Short_Literal 0x2 0335 e21a | | Load 0x1,0x1a 0336 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0337 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0338 00db | | Load_Top At_Offset_3 0339 e218 | | Load 0x1,0x18 033a 01d7 | | Execute Vector,Field_Read 033b e215 | | Load 0x1,0x15 033c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 033d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 033e e5fe | | Load 0x2,-0x2 033f 0227 | ' | Execute Access,All_Reference 0340 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0341 0c03 | | Execute_Immediate Greater_Equal,0x3 0342 680c |h | Jump_Zero 0x34f 0343 e5fe | | Load 0x2,-0x2 0344 0227 | ' | Execute Access,All_Reference 0345 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0346 e5fe | | Load 0x2,-0x2 0347 0227 | ' | Execute Access,All_Reference 0348 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0349 e215 | | Load 0x1,0x15 034a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 034b 4803 |H | Short_Literal 0x3 034c e21a | | Load 0x1,0x1a 034d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 034e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034f 00db | | Load_Top At_Offset_3 0350 e218 | | Load 0x1,0x18 0351 01d7 | | Execute Vector,Field_Read 0352 e215 | | Load 0x1,0x15 0353 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0354 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0355 e5fe | | Load 0x2,-0x2 0356 0227 | ' | Execute Access,All_Reference 0357 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0358 0c04 | | Execute_Immediate Greater_Equal,0x4 0359 680c |h | Jump_Zero 0x366 035a e5fe | | Load 0x2,-0x2 035b 0227 | ' | Execute Access,All_Reference 035c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 035d e5fe | | Load 0x2,-0x2 035e 0227 | ' | Execute Access,All_Reference 035f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0360 e215 | | Load 0x1,0x15 0361 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0362 4804 |H | Short_Literal 0x4 0363 e21a | | Load 0x1,0x1a 0364 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0365 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0366 00db | | Load_Top At_Offset_3 0367 e218 | | Load 0x1,0x18 0368 01d7 | | Execute Vector,Field_Read 0369 e215 | | Load 0x1,0x15 036a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 036b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036c e5fe | | Load 0x2,-0x2 036d 0227 | ' | Execute Access,All_Reference 036e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 036f 0c05 | | Execute_Immediate Greater_Equal,0x5 0370 680c |h | Jump_Zero 0x37d 0371 e5fe | | Load 0x2,-0x2 0372 0227 | ' | Execute Access,All_Reference 0373 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0374 e5fe | | Load 0x2,-0x2 0375 0227 | ' | Execute Access,All_Reference 0376 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0377 e215 | | Load 0x1,0x15 0378 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0379 4805 |H | Short_Literal 0x5 037a e21a | | Load 0x1,0x1a 037b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 037c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 037d e5fe | | Load 0x2,-0x2 037e 4801 |H | Short_Literal 0x1 037f 8211 | | Call 0x1,0x11 0380 0092 05fc | | Action Push_String_Extended,0x5fc ; "." 0382 01cc | | Execute Vector,Catenate 0383 e5fe | | Load 0x2,-0x2 0384 4806 |H | Short_Literal 0x6 0385 8211 | | Call 0x1,0x11 0386 01cc | | Execute Vector,Catenate 0387 0092 0604 | | Action Push_String_Extended,0x604 ; "'Spec_View(" 0389 01cc | | Execute Vector,Catenate 038a e5fe | | Load 0x2,-0x2 038b 4802 |H | Short_Literal 0x2 038c 8211 | | Call 0x1,0x11 038d 01cc | | Execute Vector,Catenate 038e 0092 0605 | | Action Push_String_Extended,0x605 ; ").Units" 0390 01cc | | Execute Vector,Catenate 0391 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0392 0831 | 1 | Execute_Immediate Raise,0x31 0393 0000 0000 | | .BLANK 0000[0x5] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b 00db | | Load_Top At_Offset_3 039c 8210 | | Call 0x1,0x10 039d 6822 |h" | Jump_Zero 0x3c0 039e 00da | | Load_Top At_Offset_2 039f 4607 |F | Jump_Case 0x8 03a0 7807 |x | Jump 0x3a8 ; case 0x0 03a1 7808 |x | Jump 0x3aa ; case 0x1 03a2 7809 |x | Jump 0x3ac ; case 0x2 03a3 780d |x | Jump 0x3b1 ; case 0x3 03a4 7811 |x | Jump 0x3b6 ; case 0x4 03a5 7815 |x | Jump 0x3bb ; case 0x5 03a6 7801 |x | Jump 0x3a8 ; case 0x6 03a7 7800 |x | Jump 0x3a8 ; case 0x7 03a8 4800 |H | Short_Literal 0x0 03a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03aa 4801 |H | Short_Literal 0x1 03ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ac 00db | | Load_Top At_Offset_3 03ad 0227 | ' | Execute Access,All_Reference 03ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03af 0c02 | | Execute_Immediate Greater_Equal,0x2 03b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b1 00db | | Load_Top At_Offset_3 03b2 0227 | ' | Execute Access,All_Reference 03b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b4 0c03 | | Execute_Immediate Greater_Equal,0x3 03b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b6 00db | | Load_Top At_Offset_3 03b7 0227 | ' | Execute Access,All_Reference 03b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b9 0c04 | | Execute_Immediate Greater_Equal,0x4 03ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03bb 00db | | Load_Top At_Offset_3 03bc 0227 | ' | Execute Access,All_Reference 03bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03be 0c05 | | Execute_Immediate Greater_Equal,0x5 03bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c0 4800 |H | Short_Literal 0x0 03c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c2 0000 0000 | | .BLANK 0000[0x6] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cf | | .CONST 0x03cf ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 03cd 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 03cf BODY_03c8: 03cf e004 | | Load 0x0,0x4 03d0 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d1 4801 |H | Short_Literal 0x1 03d2 e004 | | Load 0x0,0x4 03d3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03d4 680d |h | Jump_Zero 0x3e2 03d5 4801 |H | Short_Literal 0x1 03d6 e005 | | Load 0x0,0x5 03d7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 03d8 0092 0606 | | Action Push_String_Extended,0x606 ; "Input Line => " 03da e5fd | | Load 0x2,-0x3 03db 0227 | ' | Execute Access,All_Reference 03dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03dd e215 | | Load 0x1,0x15 03de 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03df 01cc | | Execute Vector,Catenate 03e0 e005 | | Load 0x0,0x5 03e1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03e2 e5fd | | Load 0x2,-0x3 03e3 8210 | | Call 0x1,0x10 03e4 700c |p | Jump_Nonzero 0x3f1 03e5 4822 |H" | Short_Literal 0x22 03e6 0092 0607 | | Action Push_String_Extended,0x607 ; "Errors encountered parsing field:\x22" 03e8 e5fd | | Load 0x2,-0x3 03e9 0227 | ' | Execute Access,All_Reference 03ea 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03eb e215 | | Load 0x1,0x15 03ec 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03ed 01cc | | Execute Vector,Catenate 03ee 01cb | | Execute Vector,Append 03ef 85fe | | Call 0x2,-0x2 03f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f1 00cf | | Action Mark_Auxiliary 03f2 4807 |H | Short_Literal 0x7 03f3 4801 |H | Short_Literal 0x1 03f4 0007 | | Action Break_Optional 03f5 e004 | | Load 0x0,0x4 03f6 180e | | Execute Package,Field_Execute,Field_Number 0xe 03f7 4801 |H | Short_Literal 0x1 03f8 e004 | | Load 0x0,0x4 03f9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03fa 680d |h | Jump_Zero 0x408 03fb 00d8 | | Load_Top At_Offset_0 03fc e20e | | Load 0x1,0xe 03fd 011c | | Execute Any,Convert_Unchecked 03fe 1c01 | | Execute_Immediate Run_Utility,0x1 03ff 0092 0608 | | Action Push_String_Extended,0x608 ; " => " 0401 01cc | | Execute Vector,Catenate 0402 e5fd | | Load 0x2,-0x3 0403 00da | | Load_Top At_Offset_2 0404 8211 | | Call 0x1,0x11 0405 01cc | | Execute Vector,Catenate 0406 e005 | | Load 0x0,0x5 0407 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0408 00d8 | | Load_Top At_Offset_0 0409 0aff | | Execute_Immediate Plus,-0x1 040a 4606 |F | Jump_Case 0x7 040b 7806 |x | Jump 0x412 ; case 0x0 040c 7805 |x | Jump 0x412 ; case 0x1 040d 7807 |x | Jump 0x415 ; case 0x2 040e 7806 |x | Jump 0x415 ; case 0x3 040f 7802 |x | Jump 0x412 ; case 0x4 0410 7803 |x | Jump 0x414 ; case 0x5 0411 7803 |x | Jump 0x415 ; case 0x6 0412 8402 | | Call 0x2,0x2 0413 7801 |x | Jump 0x415 0414 8403 | | Call 0x2,0x3 0415 00c8 | | Action Pop_Auxiliary_Range 0416 3fde |? | Loop_Increasing 0x3f5 0417 00ce | | Action Pop_Auxiliary 0418 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0419 0000 0000 | | .BLANK 0000[0x7] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 4607 |F | Jump_Case 0x8 0424 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0425 7806 |x | Jump 0x42c ; case 0x1 0426 7809 |x | Jump 0x430 ; case 0x2 0427 780d |x | Jump 0x435 ; case 0x3 0428 7810 |x | Jump 0x439 ; case 0x4 0429 7811 |x | Jump 0x43b ; case 0x5 042a 7812 |x | Jump 0x43d ; case 0x6 042b 7815 |x | Jump 0x441 ; case 0x7 042c 00da | | Load_Top At_Offset_2 042d 0091 05e2 | | Action Push_String_Extended_Indexed,0x5e2 ; "NIL" 042f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0430 00db | | Load_Top At_Offset_3 0431 00db | | Load_Top At_Offset_3 0432 00e0 | | Load_Encached Standard_Cache 0433 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0434 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0435 00da | | Load_Top At_Offset_2 0436 00e0 | | Load_Encached Standard_Cache 0437 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0438 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0439 00db | | Load_Top At_Offset_3 043a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043b 00db | | Load_Top At_Offset_3 043c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043d e219 | | Load 0x1,0x19 043e 00dc | | Load_Top At_Offset_4 043f 0267 | g | Execute Discrete,Predecessor 0440 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0441 e219 | | Load 0x1,0x19 0442 00dc | | Load_Top At_Offset_4 0443 0268 | h | Execute Discrete,Successor 0444 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 4608 |F | Jump_Case 0x9 044c 7808 |x | Jump 0x455 ; case 0x0 044d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 044e 780a |x | Jump 0x459 ; case 0x2 044f 7809 |x | Jump 0x459 ; case 0x3 0450 7808 |x | Jump 0x459 ; case 0x4 0451 7807 |x | Jump 0x459 ; case 0x5 0452 7806 |x | Jump 0x459 ; case 0x6 0453 7805 |x | Jump 0x459 ; case 0x7 0454 7804 |x | Jump 0x459 ; case 0x8 0455 00da | | Load_Top At_Offset_2 0456 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0457 1c00 | | Execute_Immediate Run_Utility,0x0 0458 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0459 0869 | i | Execute_Immediate Raise,0x69 045a 0000 0000 | | .BLANK 0000[0x6] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046e | n | .CONST 0x046e ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0002 | | .CONST 0x0002 ; Number of locals 0463 INIT_0460: 0463 e5fe | | Load 0x2,-0x2 0464 0227 | ' | Execute Access,All_Reference 0465 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0466 e5fe | | Load 0x2,-0x2 0467 0227 | ' | Execute Access,All_Reference 0468 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0469 e215 | | Load 0x1,0x15 046a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 046b 4801 |H | Short_Literal 0x1 046c e21a | | Load 0x1,0x1a 046d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 046e BODY_0460: 046e 00d8 | | Load_Top At_Offset_0 046f 01dd | | Execute Vector,First 0470 00d9 | | Load_Top At_Offset_1 0471 01d7 | | Execute Vector,Field_Read 0472 0f21 | ! | Execute_Immediate Equal,0x21 0473 6803 |h | Jump_Zero 0x477 0474 00d8 | | Load_Top At_Offset_0 0475 00cb | | Action Pop_Block_With_Result 0476 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0477 e216 | | Load 0x1,0x16 0478 00d9 | | Load_Top At_Offset_1 0479 01cc | | Execute Vector,Catenate 047a 00cb | | Action Pop_Block_With_Result 047b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 047c 0000 0000 | | .BLANK 0000[0x4] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 048b | | .CONST 0x048b ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 e006 | | Load 0x0,0x6 0484 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0485 02c7 | | Declare_Variable Any 0486 00d8 | | Load_Top At_Offset_0 0487 1c00 | | Execute_Immediate Run_Utility,0x0 0488 e006 | | Load 0x0,0x6 0489 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 048a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 048b BODY_0480: 048b e006 | | Load 0x0,0x6 048c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 048d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 048e 00da | | Load_Top At_Offset_2 048f 0120 | | Execute Any,Is_Value 0490 6803 |h | Jump_Zero 0x494 0491 e006 | | Load 0x0,0x6 0492 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0493 7801 |x | Jump 0x495 0494 00da | | Load_Top At_Offset_2 0495 6022 |`" | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00004000} 0496 e007 | | Load 0x0,0x7 0497 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0498 e008 | | Load 0x0,0x8 0499 1811 | | Execute Package,Field_Execute,Field_Number 0x11 049a e006 | | Load 0x0,0x6 049b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 049c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 049d e5fd | | Load 0x2,-0x3 049e e406 | | Load 0x2,0x6 049f 8211 | | Call 0x1,0x11 04a0 e006 | | Load 0x0,0x6 04a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04a2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04a3 c602 | | Store 0x3,0x2 04a4 0059 | Y | Store_Top Discrete,At_Offset_1 04a5 00d8 | | Load_Top At_Offset_0 04a6 680f |h | Jump_Zero 0x4b6 04a7 e406 | | Load 0x2,0x6 04a8 e20e | | Load 0x1,0xe 04a9 011c | | Execute Any,Convert_Unchecked 04aa 1c01 | | Execute_Immediate Run_Utility,0x1 04ab 0092 0609 | | Action Push_String_Extended,0x609 ; " object " 04ad 01cc | | Execute Vector,Catenate 04ae e5fd | | Load 0x2,-0x3 04af e406 | | Load 0x2,0x6 04b0 8211 | | Call 0x1,0x11 04b1 01cc | | Execute Vector,Catenate 04b2 0092 060a | | Action Push_String_Extended,0x60a ; " does not exist" 04b4 01cc | | Execute Vector,Catenate 04b5 85fe | | Call 0x2,-0x2 04b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04b7 0000 | | .XXX[0x1] 04b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04cb | | .CONST 0x04cb ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0003 | | .CONST 0x0003 ; Number of locals 04c3 INIT_04c0: 04c3 e006 | | Load 0x0,0x6 04c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c5 02c7 | | Declare_Variable Any 04c6 00d8 | | Load_Top At_Offset_0 04c7 1c00 | | Execute_Immediate Run_Utility,0x0 04c8 e006 | | Load 0x0,0x6 04c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04cb BODY_04c0: 04cb e006 | | Load 0x0,0x6 04cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04ce 00da | | Load_Top At_Offset_2 04cf 0120 | | Execute Any,Is_Value 04d0 6803 |h | Jump_Zero 0x4d4 04d1 e006 | | Load 0x0,0x6 04d2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04d3 7801 |x | Jump 0x4d5 04d4 00da | | Load_Top At_Offset_2 04d5 67e2 |g | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00004000} 04d6 e007 | | Load 0x0,0x7 04d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04d8 e008 | | Load 0x0,0x8 04d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04da e006 | | Load 0x0,0x6 04db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04dd e5fd | | Load 0x2,-0x3 04de 4801 |H | Short_Literal 0x1 04df 8211 | | Call 0x1,0x11 04e0 0092 05fc | | Action Push_String_Extended,0x5fc ; "." 04e2 01cc | | Execute Vector,Catenate 04e3 e5fd | | Load 0x2,-0x3 04e4 e406 | | Load 0x2,0x6 04e5 8211 | | Call 0x1,0x11 04e6 01cc | | Execute Vector,Catenate 04e7 e006 | | Load 0x0,0x6 04e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 04e9 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04ea c602 | | Store 0x3,0x2 04eb 0059 | Y | Store_Top Discrete,At_Offset_1 04ec 00d8 | | Load_Top At_Offset_0 04ed 680f |h | Jump_Zero 0x4fd 04ee e406 | | Load 0x2,0x6 04ef e20e | | Load 0x1,0xe 04f0 011c | | Execute Any,Convert_Unchecked 04f1 1c01 | | Execute_Immediate Run_Utility,0x1 04f2 0092 0609 | | Action Push_String_Extended,0x609 ; " object " 04f4 01cc | | Execute Vector,Catenate 04f5 e5fd | | Load 0x2,-0x3 04f6 e406 | | Load 0x2,0x6 04f7 8211 | | Call 0x1,0x11 04f8 01cc | | Execute Vector,Catenate 04f9 0092 060a | | Action Push_String_Extended,0x60a ; " does not exist" 04fb 01cc | | Execute Vector,Catenate 04fc 85fe | | Call 0x2,-0x2 04fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04fe 0000 0000 | | .XXX[0x2] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 052b | + | .CONST 0x052b ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0014 | | .CONST 0x0014 ; Number of locals 0503 INIT_0500: 0503 4800 |H | Short_Literal 0x0 0504 4805 |H | Short_Literal 0x5 0505 00e3 | | Load_Encached Natural_Cache 0506 03f9 | | Declare_Type Discrete,Constrained,Visible 0507 4801 |H | Short_Literal 0x1 0508 4805 |H | Short_Literal 0x5 0509 00da | | Load_Top At_Offset_2 050a 03f9 | | Declare_Type Discrete,Constrained,Visible 050b 4802 |H | Short_Literal 0x2 050c 032b | + | Declare_Type Record,Incomplete,Visible 050d 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 050f 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 0511 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 0513 00e4 | | Load_Encached Positive_Cache 0514 00e4 | | Load_Encached Positive_Cache 0515 02a0 | | Declare_Subprogram Null_Subprogram 0516 4802 |H | Short_Literal 0x2 0517 032d | - | Declare_Type Record,Defined 0518 4801 |H | Short_Literal 0x1 0519 4805 |H | Short_Literal 0x5 051a 00da | | Load_Top At_Offset_2 051b 02a0 | | Declare_Subprogram Null_Subprogram 051c 4801 |H | Short_Literal 0x1 051d 035d | ] | Declare_Type Array,Defined 051e e20d | | Load 0x1,0xd 051f 00d9 | | Load_Top At_Offset_1 0520 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 0522 e20f | | Load 0x1,0xf 0523 0326 | & | Complete_Type Record,By_Defining 0524 00bf | | Action Accept_Activation 0525 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0526 00c7 | | Action Elaborate_Subprogram 0527 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0528 00c7 | | Action Elaborate_Subprogram 0529 1d11 | | Execute_Immediate Reference_Lex_1,0x11 052a 00c7 | | Action Elaborate_Subprogram 052b BODY_0500: 052b 00bc | | Action Signal_Activated 052c 00bb | | Action Signal_Completion 052d 0000 0000 | | .XXX[0x3] 052f 0000 | | 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 053b | ; | .CONST 0x053b ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0004 | | .CONST 0x0004 ; Number of locals 0533 INIT_0530: 0533 e20f | | Load 0x1,0xf 0534 0322 | " | Declare_Variable Record 0535 00d8 | | Load_Top At_Offset_0 0536 1c00 | | Execute_Immediate Run_Utility,0x0 0537 e20d | | Load 0x1,0xd 0538 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0539 029f 058b | | Declare_Subprogram INIT_0588,For_Call 053b BODY_0530: 053b 00cf | | Action Mark_Auxiliary 053c e5ff | | Load 0x2,-0x1 053d 01d9 | | Execute Vector,Reverse_Bounds 053e 0263 | c | Execute Discrete,Above_Bound 053f 7003 |p | Jump_Nonzero 0x543 0540 8404 | | Call 0x2,0x4 0541 00c8 | | Action Pop_Auxiliary_Range 0542 3ffd |? | Loop_Increasing 0x540 0543 00ce | | Action Pop_Auxiliary 0544 00d9 | | Load_Top At_Offset_1 0545 00db | | Load_Top At_Offset_3 0546 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0547 00da | | Load_Top At_Offset_2 0548 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0549 0000 0000 | | .BLANK 0000[0x7] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 00da | | Load_Top At_Offset_2 0554 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0555 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0556 0000 0000 | | .XXX[0x2] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b 00da | | Load_Top At_Offset_2 055c e5fd | | Load 0x2,-0x3 055d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055e 027d | } | Execute Discrete,Greater 055f 6802 |h | Jump_Zero 0x562 0560 00ea | | Load_Encached Null_String_Cache 0561 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0562 00da | | Load_Top At_Offset_2 0563 e5fd | | Load 0x2,-0x3 0564 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0565 01d5 | | Execute Vector,Field_Reference 0566 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0567 e5fe | | Load 0x2,-0x2 0568 01dd | | Execute Vector,First 0569 0273 | s | Execute Discrete,Plus 056a 0aff | | Execute_Immediate Plus,-0x1 056b 00d8 | | Load_Top At_Offset_0 056c 00e2 | | Load_Encached Integer_Cache 056d 0260 | ` | Execute Discrete,In_Type 056e 7001 |p | Jump_Nonzero 0x570 056f 0801 | | Execute_Immediate Raise,0x1 0570 00db | | Load_Top At_Offset_3 0571 e5fd | | Load 0x2,-0x3 0572 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0573 01d5 | | Execute Vector,Field_Reference 0574 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0575 e5fe | | Load 0x2,-0x2 0576 01dd | | Execute Vector,First 0577 0273 | s | Execute Discrete,Plus 0578 0aff | | Execute_Immediate Plus,-0x1 0579 00d8 | | Load_Top At_Offset_0 057a 00e2 | | Load_Encached Integer_Cache 057b 0260 | ` | Execute Discrete,In_Type 057c 7001 |p | Jump_Nonzero 0x57e 057d 0801 | | Execute_Immediate Raise,0x1 057e e5fe | | Load 0x2,-0x2 057f 01cf | | Execute Vector,Slice_Read 0580 0335 | 5 | Declare_Variable Array,Duplicate 0581 00cd | | Action Spare6_Action 0582 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0583 0000 0000 | | .BLANK 0000[0x5] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0591 | | .CONST 0x0591 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0002 | | .CONST 0x0002 ; Number of locals 058b INIT_0588: 058b e407 | | Load 0x2,0x7 058c e5ff | | Load 0x2,-0x1 058d 01d7 | | Execute Vector,Field_Read 058e 0f20 | | Execute_Immediate Equal,0x20 058f 00e1 | | Load_Encached Boolean_Cache 0590 03f1 | | Declare_Variable Discrete,With_Value 0591 BODY_0588: 0591 00d8 | | Load_Top At_Offset_0 0592 702e |p. | Jump_Nonzero 0x5c1 0593 e407 | | Load 0x2,0x7 0594 e5ff | | Load 0x2,-0x1 0595 01dd | | Execute Vector,First 0596 027f | | Execute Discrete,Equal 0597 7006 |p | Jump_Nonzero 0x59e 0598 e407 | | Load 0x2,0x7 0599 0aff | | Execute_Immediate Plus,-0x1 059a e5ff | | Load 0x2,-0x1 059b 01d7 | | Execute Vector,Field_Read 059c 0f20 | | Execute_Immediate Equal,0x20 059d 680e |h | Jump_Zero 0x5ac 059e 00e2 | | Load_Encached Integer_Cache 059f e403 | | Load 0x2,0x3 05a0 0268 | h | Execute Discrete,Successor 05a1 c403 | | Store 0x2,0x3 05a2 e407 | | Load 0x2,0x7 05a3 e5ff | | Load 0x2,-0x1 05a4 01dd | | Execute Vector,First 05a5 0272 | r | Execute Discrete,Minus 05a6 0a01 | | Execute_Immediate Plus,0x1 05a7 e403 | | Load 0x2,0x3 05a8 e402 | | Load 0x2,0x2 05a9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05aa 01d5 | | Execute Vector,Field_Reference 05ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05ac e407 | | Load 0x2,0x7 05ad e5ff | | Load 0x2,-0x1 05ae 01dc | | Execute Vector,Last 05af 027f | | Execute Discrete,Equal 05b0 7006 |p | Jump_Nonzero 0x5b7 05b1 e407 | | Load 0x2,0x7 05b2 0a01 | | Execute_Immediate Plus,0x1 05b3 e5ff | | Load 0x2,-0x1 05b4 01d7 | | Execute Vector,Field_Read 05b5 0f20 | | Execute_Immediate Equal,0x20 05b6 680a |h | Jump_Zero 0x5c1 05b7 e407 | | Load 0x2,0x7 05b8 e5ff | | Load 0x2,-0x1 05b9 01dd | | Execute Vector,First 05ba 0272 | r | Execute Discrete,Minus 05bb 0a01 | | Execute_Immediate Plus,0x1 05bc e403 | | Load 0x2,0x3 05bd e402 | | Load 0x2,0x2 05be 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05bf 01d5 | | Execute Vector,Field_Reference 05c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c2 0000 0000 | | .BLANK 0000[0x6] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb 4608 |F | Jump_Case 0x9 05cc 7808 |x | Jump 0x5d5 ; case 0x0 05cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05ce 780a |x | Jump 0x5d9 ; case 0x2 05cf 7809 |x | Jump 0x5d9 ; case 0x3 05d0 7808 |x | Jump 0x5d9 ; case 0x4 05d1 7807 |x | Jump 0x5d9 ; case 0x5 05d2 7806 |x | Jump 0x5d9 ; case 0x6 05d3 7805 |x | Jump 0x5d9 ; case 0x7 05d4 7804 |x | Jump 0x5d9 ; case 0x8 05d5 4800 |H | Short_Literal 0x0 05d6 00db | | Load_Top At_Offset_3 05d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05d9 0869 | i | Execute_Immediate Raise,0x69 05da ; -------------------------------------------------------------------------------------- 05da ; STRING TABLE 05da ; -------------------------------------------------------------------------------------- 05da 0064 | d | .STRTAB 0x0064->0x060c ; "NIL" 05db 0065 | e | .STRTAB 0x0065->0x060d ; "RDF_CONTEXT" 05dc 006e | n | .STRTAB 0x006e->0x0613 ; "ACTIVITY" 05dd 0074 | t | .STRTAB 0x0074->0x0617 ; "PDL_NAME" 05de 007a | z | .STRTAB 0x007a->0x061b ; "PDL_ID" 05df 007e | ~ | .STRTAB 0x007e->0x061e ; "DESCRIPTION_FILE_CONTEXT" 05e0 0094 | | .STRTAB 0x0094->0x062a ; "SUBSYSTEM_NAME" 05e1 00a0 | | .STRTAB 0x00a0->0x0631 ; "PROGRAM_NAME" 05e2 00aa | | .STRTAB 0x00aa->0x0637 ; "NIL" 05e3 00ab | | .STRTAB 0x00ab->0x0638 ; "PDL_01" 05e4 00af | | .STRTAB 0x00af->0x063b ; "PDL_02" 05e5 00b3 | | .STRTAB 0x00b3->0x063e ; "PDL_03" 05e6 00b7 | | .STRTAB 0x00b7->0x0641 ; "PDL_04" 05e7 00bb | | .STRTAB 0x00bb->0x0644 ; "PDL_05" 05e8 00bf | | .STRTAB 0x00bf->0x0647 ; "PDL_06" 05e9 00c3 | | .STRTAB 0x00c3->0x064a ; "PDL_07" 05ea 00c7 | | .STRTAB 0x00c7->0x064d ; "PDL_08" 05eb 00cb | | .STRTAB 0x00cb->0x0650 ; "PDL_09" 05ec 00cf | | .STRTAB 0x00cf->0x0653 ; "PDL_10" 05ed 00d3 | | .STRTAB 0x00d3->0x0656 ; "PDL_11" 05ee 00d7 | | .STRTAB 0x00d7->0x0659 ; "PDL_12" 05ef 00db | | .STRTAB 0x00db->0x065c ; "!Machine.Initialization.Rational.Design_Facilities" 05f0 010b | | .STRTAB 0x010b->0x0675 ; "Input | Output | Error => !MACHINE.DEVICES.NIL" 05f1 0137 | 7 | .STRTAB 0x0137->0x068c ; "<PROFILE>" 05f2 013e | > | .STRTAB 0x013e->0x0691 ; "Unable_To_Register_Standard_Pdl " 05f3 015c | \ | .STRTAB 0x015c->0x06a1 ; " cannot be found." 05f4 016b | k | .STRTAB 0x016b->0x06a9 ; "Invalid_Pdl_Name" 05f5 0179 | y | .STRTAB 0x0179->0x06b1 ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl" 05f6 01b3 | | .STRTAB 0x01b3->0x06cf ; "Unhandled_Exception" 05f7 01c4 | | .STRTAB 0x01c4->0x06d9 ; "(Pdl_Name => \x22" 05f8 01d0 | | .STRTAB 0x01d0->0x06e0 ; "\x22, Pdl_Id => Pdl." 05f9 01df | | .STRTAB 0x01df->0x06e8 ; ")" 05fa 01de | | .STRTAB 0x01de->0x06e9 ; "\x22)" 05fb 01de | | .STRTAB 0x01de->0x06ea ; "(Pdl_Id => Pdl." 05fc 01eb | | .STRTAB 0x01eb->0x06f1 ; "." 05fd 01ea | | .STRTAB 0x01ea->0x06f2 ; "!Machine.Initialization.Rational.Design_Facilities (" 05fe 021c | | .STRTAB 0x021c->0x070c ; "S => " 05ff 021f | | .STRTAB 0x021f->0x070e ; "Context => " 0600 0228 | ( | .STRTAB 0x0228->0x0714 ; "!Tools.Design.Release." 0601 023c | < | .STRTAB 0x023c->0x071f ; "Pdl_Definition" 0602 0248 | H | .STRTAB 0x0248->0x0726 ; "Register_Pdl" 0603 0252 | R | .STRTAB 0x0252->0x072c ; "!Machine.Release.Current.Activity" 0604 0271 | q | .STRTAB 0x0271->0x073c ; "'Spec_View(" 0605 027a | z | .STRTAB 0x027a->0x0742 ; ").Units" 0606 027f | | .STRTAB 0x027f->0x0745 ; "Input Line => " 0607 028b | | .STRTAB 0x028b->0x074c ; "Errors encountered parsing field:\x22" 0608 02ab | | .STRTAB 0x02ab->0x075d ; " => " 0609 02ad | | .STRTAB 0x02ad->0x075f ; " object " 060a 02b3 | | .STRTAB 0x02b3->0x0763 ; " does not exist" 060b 02c0 | | .STREND 0x02c0->0x076b 060c 4e49 4c52 |NILR| .STRTAB_STRINGS 076b 0000 0000 | | .BLANK 0000[0x5] 0770 ; -------------------------------------------------------------------------------------- 0770 ; Debug Table 0770 ; -------------------------------------------------------------------------------------- 0770 0004 0000 | | .DEBUG4 0x0004,0x0000,0x76ae,0x0000,0x0001,0x0000 0776 dc0e 9802 | | .XXX[0x8a] 0778 e00e ac02 | | 077a e40e c002 | | 077c e80e d402 | | 077e ec0e e802 | | 0780 f00e fc02 | | 0782 f40f 1002 | | 0784 f80f 2402 | $ | 0786 fc0f 3803 | 8 | 0788 000f 4c03 | L | 078a 040f 6003 | ` | 078c 080f 7403 | t | 078e 0c0f 8803 | | 0790 100f 9c03 | | 0792 140f b003 | | 0794 180f c403 | | 0796 1c0f d803 | | 0798 200f ec03 | | 079a 2410 0003 |$ | 079c 2810 1403 |( | 079e 2c10 2803 |, ( | 07a0 3010 3c03 |0 < | 07a2 3410 5003 |4 P | 07a4 3810 6403 |8 d | 07a6 3c10 7803 |< x | 07a8 4010 8c03 |@ | 07aa 4410 a003 |D | 07ac 4810 b403 |H | 07ae 4c10 c803 |L | 07b0 5010 d803 |P | 07b2 5410 ec03 |T | 07b4 5811 0003 |X | 07b6 5c11 1403 |\ | 07b8 6011 2803 |` ( | 07ba 6411 3803 |d 8 | 07bc 6811 4c03 |h L | 07be 6c11 6003 |l ` | 07c0 7011 7403 |p t | 07c2 7411 8803 |t | 07c4 7811 9c03 |x | 07c6 7c11 ac03 || | 07c8 8011 c003 | | 07ca 8411 d403 | | 07cc 8811 e803 | | 07ce 8c11 fc03 | | 07d0 9012 1003 | | 07d2 9412 2403 | $ | 07d4 9812 3803 | 8 | 07d6 9c12 4c03 | L | 07d8 a012 6003 | ` | 07da a412 7403 | t | 07dc a812 8803 | | 07de ac12 9c03 | | 07e0 b012 b003 | | 07e2 b412 c403 | | 07e4 b812 d803 | | 07e6 bc12 ec03 | | 07e8 c013 0003 | | 07ea c413 1403 | | 07ec c813 2803 | ( | 07ee cc13 3c03 | < | 07f0 d013 5003 | P | 07f2 d413 6403 | d | 07f4 d813 7803 | x | 07f6 dc13 8c03 | | 07f8 e013 a003 | | 07fa e413 b403 | | 07fc e813 c803 | | 07fe ec13 dc03 | |