|
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_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0768 | h | .CONST 0x0768 ; 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 004d | M | .CONST 0x004d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000d | | .CONST 0x000d ; Number of locals 001b INIT_0018: 001b 0092 05e7 | | Action Push_String_Extended,0x5e7 ; "!Machine.Initialization.Rational.Design_Facilities" 001d 4800 |H | Short_Literal 0x0 001e 0093 0233 | 3| push_full_address INIT_0230 0020 02a0 | | Declare_Subprogram Null_Subprogram 0021 038e | | Declare_Type Package,Defined 0022 0387 | | Declare_Variable Package 0023 e002 | | Load 0x0,0x2 0024 e003 | | Load 0x0,0x3 0025 e004 | | Load 0x0,0x4 0026 e005 | | Load 0x0,0x5 0027 e006 | | Load 0x0,0x6 0028 e007 | | Load 0x0,0x7 0029 e008 | | Load 0x0,0x8 002a e009 | | Load 0x0,0x9 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 005b | [| Declare_Subprogram INIT_0058,For_Call 0032 00d9 | | Load_Top At_Offset_1 0033 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0034 00c6 | | Action Check_Subprogram_Elaborated 0035 e006 | | Load 0x0,0x6 0036 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0037 0093 0000 | | push_full_address 0x0 0039 601a |` | Indirect_Literal Discrete,0x54,{0x80000000, 0x00010000} 003a 0273 | s | Execute Discrete,Plus 003b e00a | | Load 0x0,0xa 003c 0273 | s | Execute Discrete,Plus 003d e00b | | Load 0x0,0xb 003e 0273 | s | Execute Discrete,Plus 003f 4807 |H | Short_Literal 0x7 0040 0007 | | Action Break_Optional 0041 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0043 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0045 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0047 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0049 029f 010b | | Declare_Subprogram INIT_0108,For_Call 004b 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 004d BODY_0018: 004d e5fd | | Load 0x2,-0x3 004e 840d | | Call 0x2,0xd 004f e5fe | | Load 0x2,-0x2 0050 840d | | Call 0x2,0xd 0051 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0052 0000 0000 | | .XXX[0x2] 0054 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0060 | ` | .CONST 0x0060 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c e006 | | Load 0x0,0x6 005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005e c7ff | | Store 0x3,-0x1 005f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0060 TRAP_0058: 0060 0007 | | Action Break_Optional 0061 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0081 | | .CONST 0x0081 ; Address of begin 0069 00b4 | | .CONST 0x00b4 ; Address of exception handler 006a 000a | | .CONST 0x000a ; Number of locals 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c e403 | | Load 0x2,0x3 006d 180e | | Execute Package,Field_Execute,Field_Number 0xe 006e 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "Input | Output | Error => !MACHINE.DEVICES.NIL" 0070 e00c | | Load 0x0,0xc 0071 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0072 e00c | | Load 0x0,0xc 0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0074 02c7 | | Declare_Variable Any 0075 00d8 | | Load_Top At_Offset_0 0076 1c00 | | Execute_Immediate Run_Utility,0x0 0077 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0079 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 007b 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 007d 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 007f 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0081 BODY_0068: 0081 e602 | | Load 0x3,0x2 0082 4805 |H | Short_Literal 0x5 0083 4802 |H | Short_Literal 0x2 0084 0099 | | Action Reference_Dynamic 0085 4806 |H | Short_Literal 0x6 0086 4802 |H | Short_Literal 0x2 0087 0099 | | Action Reference_Dynamic 0088 e403 | | Load 0x2,0x3 0089 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008a 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "<PROFILE>" 008c e602 | | Load 0x3,0x2 008d 4802 |H | Short_Literal 0x2 008e e403 | | Load 0x2,0x3 008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0090 e00d | | Load 0x0,0xd 0091 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0092 e605 | | Load 0x3,0x5 0093 e00c | | Load 0x0,0xc 0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0095 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "<PROFILE>" 0097 e603 | | Load 0x3,0x3 0098 4800 |H | Short_Literal 0x0 0099 e602 | | Load 0x3,0x2 009a 4805 |H | Short_Literal 0x5 009b e403 | | Load 0x2,0x3 009c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009d 4800 |H | Short_Literal 0x0 009e 8608 | | Call 0x3,0x8 009f 860a | | Call 0x3,0xa 00a0 c604 | | Store 0x3,0x4 00a1 c605 | | Store 0x3,0x5 00a2 e605 | | Load 0x3,0x5 00a3 e00c | | Load 0x0,0xc 00a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a5 700d |p | Jump_Nonzero 0xb3 00a6 e605 | | Load 0x3,0x5 00a7 e00e | | Load 0x0,0xe 00a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a9 4802 |H | Short_Literal 0x2 00aa 0092 05ea | | Action Push_String_Extended,0x5ea ; "Unable_To_Register_Standard_Pdl " 00ac 8607 | | Call 0x3,0x7 00ad 01cc | | Execute Vector,Catenate 00ae e00f | | Load 0x0,0xf 00af 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b0 8609 | | Call 0x3,0x9 00b1 e00f | | Load 0x0,0xf 00b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b4 TRAP_0068: 00b4 00d8 | | Load_Top At_Offset_0 00b5 0107 | | Execute Exception,Get_Name 00b6 4920 |I | Short_Literal 0x120 00b7 492f |I/ | Short_Literal 0x12f 00b8 0262 | b | Execute Discrete,In_Range 00b9 680e |h | Jump_Zero 0xc8 00ba 8607 | | Call 0x3,0x7 00bb 0092 05eb | | Action Push_String_Extended,0x5eb ; " cannot be found." 00bd 01cc | | Execute Vector,Catenate 00be 4802 |H | Short_Literal 0x2 00bf 0092 05ec | | Action Push_String_Extended,0x5ec ; "Invalid_Pdl_Name" 00c1 e00f | | Load 0x0,0xf 00c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c3 0092 05ed | | Action Push_String_Extended,0x5ed ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl" 00c5 e00f | | Load 0x0,0xf 00c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c8 4801 |H | Short_Literal 0x1 00c9 4801 |H | Short_Literal 0x1 00ca e010 | | Load 0x0,0x10 00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cc 4802 |H | Short_Literal 0x2 00cd 0092 05ee | | Action Push_String_Extended,0x5ee ; "Unhandled_Exception" 00cf e00f | | Load 0x0,0xf 00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d1 8609 | | Call 0x3,0x9 00d2 e00f | | Load 0x0,0xf 00d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dd | | .CONST 0x00dd ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 00e2 | | Load_Encached Integer_Cache 00dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00dd BODY_00d8: 00dd 00cf | | Action Mark_Auxiliary 00de e7ff | | Load 0x3,-0x1 00df 01d9 | | Execute Vector,Reverse_Bounds 00e0 0263 | c | Execute Discrete,Above_Bound 00e1 7013 |p | Jump_Nonzero 0xf5 00e2 00d8 | | Load_Top At_Offset_0 00e3 e7ff | | Load 0x3,-0x1 00e4 01d7 | | Execute Vector,Field_Read 00e5 0f28 | ( | Execute_Immediate Equal,0x28 00e6 6804 |h | Jump_Zero 0xeb 00e7 00db | | Load_Top At_Offset_3 00e8 0a01 | | Execute_Immediate Plus,0x1 00e9 c602 | | Store 0x3,0x2 00ea 7808 |x | Jump 0xf3 00eb 00d8 | | Load_Top At_Offset_0 00ec e7ff | | Load 0x3,-0x1 00ed 01d7 | | Execute Vector,Field_Read 00ee 0f29 | ) | Execute_Immediate Equal,0x29 00ef 6803 |h | Jump_Zero 0xf3 00f0 00db | | Load_Top At_Offset_3 00f1 0aff | | Execute_Immediate Plus,-0x1 00f2 c602 | | Store 0x3,0x2 00f3 00c8 | | Action Pop_Auxiliary_Range 00f4 3fed |? | Loop_Increasing 0xe2 00f5 00ce | | Action Pop_Auxiliary 00f6 00d8 | | Load_Top At_Offset_0 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 8409 | | Call 0x2,0x9 00fd 0c01 | | Execute_Immediate Greater_Equal,0x1 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 8409 | | Call 0x2,0x9 0105 0d00 | | Execute_Immediate Less,0x0 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0111 | | .CONST 0x0111 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b 4820 |H | Short_Literal 0x20 010c 00db | | Load_Top At_Offset_3 010d e006 | | Load 0x0,0x6 010e 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 010f e011 | | Load 0x0,0x11 0110 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0111 BODY_0108: 0111 e7fe | | Load 0x3,-0x2 0112 01db | | Execute Vector,Length 0113 7012 |p | Jump_Nonzero 0x126 0114 00d8 | | Load_Top At_Offset_0 0115 840a | | Call 0x2,0xa 0116 6807 |h | Jump_Zero 0x11e 0117 4828 |H( | Short_Literal 0x28 0118 00d9 | | Load_Top At_Offset_1 0119 e011 | | Load 0x0,0x11 011a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011b e7ff | | Load 0x3,-0x1 011c 840c | | Call 0x2,0xc 011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011e 4828 |H( | Short_Literal 0x28 011f 4829 |H) | Short_Literal 0x29 0120 00da | | Load_Top At_Offset_2 0121 e011 | | Load 0x0,0x11 0122 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0123 e011 | | Load 0x0,0x11 0124 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0125 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0126 00d8 | | Load_Top At_Offset_0 0127 840b | | Call 0x2,0xb 0128 680a |h | Jump_Zero 0x133 0129 e7fe | | Load 0x3,-0x2 012a 4829 |H) | Short_Literal 0x29 012b 482c |H, | Short_Literal 0x2c 012c 00db | | Load_Top At_Offset_3 012d e011 | | Load 0x0,0x11 012e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012f e011 | | Load 0x0,0x11 0130 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0131 01cc | | Execute Vector,Catenate 0132 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0133 e7fe | | Load 0x3,-0x2 0134 00d9 | | Load_Top At_Offset_1 0135 01cc | | Execute Vector,Catenate 0136 e7ff | | Load 0x3,-0x1 0137 840c | | Call 0x2,0xc 0138 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014a | J | .CONST 0x014a ; Address of begin 0141 015a | Z | .CONST 0x015a ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e006 | | Load 0x0,0x6 0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0145 02c7 | | Declare_Variable Any 0146 00d8 | | Load_Top At_Offset_0 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 014a BODY_0140: 014a 00d9 | | Load_Top At_Offset_1 014b 00ea | | Load_Encached Null_String_Cache 014c e7ff | | Load 0x3,-0x1 014d 4800 |H | Short_Literal 0x0 014e e006 | | Load 0x0,0x6 014f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0150 c602 | | Store 0x3,0x2 0151 00cf | | Action Mark_Auxiliary 0152 7802 |x | Jump 0x155 0153 8603 | | Call 0x3,0x3 0154 00c9 | | Action Pop_Auxiliary_Loop 0155 00da | | Load_Top At_Offset_2 0156 e006 | | Load 0x0,0x6 0157 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0158 6ffa |o | Jump_Zero 0x153 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a TRAP_0140: 015a 00d8 | | Load_Top At_Offset_0 015b 0107 | | Execute Exception,Get_Name 015c 4920 |I | Short_Literal 0x120 015d 492f |I/ | Short_Literal 0x12f 015e 0262 | b | Execute Discrete,In_Range 015f 6801 |h | Jump_Zero 0x161 0160 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0161 00da | | Load_Top At_Offset_2 0162 8404 | | Call 0x2,0x4 0163 c602 | | Store 0x3,0x2 0164 4801 |H | Short_Literal 0x1 0165 4801 |H | Short_Literal 0x1 0166 e010 | | Load 0x0,0x10 0167 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0168 4802 |H | Short_Literal 0x2 0169 0092 05ee | | Action Push_String_Extended,0x5ee ; "Unhandled_Exception" 016b e00f | | Load 0x0,0xf 016c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016d e402 | | Load 0x2,0x2 016e e00f | | Load 0x0,0xf 016f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0170 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b e602 | | Load 0x3,0x2 017c 4803 |H | Short_Literal 0x3 017d e403 | | Load 0x2,0x3 017e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017f 6823 |h# | Jump_Zero 0x1a3 0180 e602 | | Load 0x3,0x2 0181 4804 |H | Short_Literal 0x4 0182 e403 | | Load 0x2,0x3 0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0184 6813 |h | Jump_Zero 0x198 0185 0092 05ef | | Action Push_String_Extended,0x5ef ; "(Pdl_Name => \x22" 0187 e602 | | Load 0x3,0x2 0188 4803 |H | Short_Literal 0x3 0189 e403 | | Load 0x2,0x3 018a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 018b 01cc | | Execute Vector,Catenate 018c 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "\x22, Pdl_Id => Pdl." 018e 01cc | | Execute Vector,Catenate 018f e602 | | Load 0x3,0x2 0190 4804 |H | Short_Literal 0x4 0191 e403 | | Load 0x2,0x3 0192 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0193 01cc | | Execute Vector,Catenate 0194 0092 05f1 | | Action Push_String_Extended,0x5f1 ; ")" 0196 01cc | | Execute Vector,Catenate 0197 00ca | | Action Exit_Nullary_Function 0198 0092 05ef | | Action Push_String_Extended,0x5ef ; "(Pdl_Name => \x22" 019a e602 | | Load 0x3,0x2 019b 4803 |H | Short_Literal 0x3 019c e403 | | Load 0x2,0x3 019d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 019e 01cc | | Execute Vector,Catenate 019f 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "\x22)" 01a1 01cc | | Execute Vector,Catenate 01a2 00ca | | Action Exit_Nullary_Function 01a3 e602 | | Load 0x3,0x2 01a4 4804 |H | Short_Literal 0x4 01a5 e403 | | Load 0x2,0x3 01a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a7 680b |h | Jump_Zero 0x1b3 01a8 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "(Pdl_Id => Pdl." 01aa e602 | | Load 0x3,0x2 01ab 4804 |H | Short_Literal 0x4 01ac e403 | | Load 0x2,0x3 01ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ae 01cc | | Execute Vector,Catenate 01af 0092 05f1 | | Action Push_String_Extended,0x5f1 ; ")" 01b1 01cc | | Execute Vector,Catenate 01b2 00ca | | Action Exit_Nullary_Function 01b3 00ea | | Load_Encached Null_String_Cache 01b4 00ca | | Action Exit_Nullary_Function 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb e602 | | Load 0x3,0x2 01bc 4801 |H | Short_Literal 0x1 01bd e403 | | Load 0x2,0x3 01be 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01bf 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "." 01c1 01cc | | Execute Vector,Catenate 01c2 e602 | | Load 0x3,0x2 01c3 4806 |H | Short_Literal 0x6 01c4 e403 | | Load 0x2,0x3 01c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c6 01cc | | Execute Vector,Catenate 01c7 00ca | | Action Exit_Nullary_Function 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb e602 | | Load 0x3,0x2 01cc 4802 |H | Short_Literal 0x2 01cd e403 | | Load 0x2,0x3 01ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cf 8606 | | Call 0x3,0x6 01d0 e602 | | Load 0x3,0x2 01d1 4807 |H | Short_Literal 0x7 01d2 e403 | | Load 0x2,0x3 01d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d4 8607 | | Call 0x3,0x7 01d5 e00c | | Load 0x0,0xc 01d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01d7 00ca | | Action Exit_Nullary_Function 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 4829 |H) | Short_Literal 0x29 01dc 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "!Machine.Initialization.Rational.Design_Facilities (" 01de e602 | | Load 0x3,0x2 01df 4806 |H | Short_Literal 0x6 01e0 e403 | | Load 0x2,0x3 01e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e2 01cc | | Execute Vector,Catenate 01e3 01cb | | Execute Vector,Append 01e4 00ca | | Action Exit_Nullary_Function 01e5 0000 0000 | | .XXX[0x3] 01e7 0000 | | 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb e005 | | Load 0x0,0x5 01ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ed 4801 |H | Short_Literal 0x1 01ee e005 | | Load 0x0,0x5 01ef 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01f0 681d |h | Jump_Zero 0x20e 01f1 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "S => " 01f3 00db | | Load_Top At_Offset_3 01f4 01cc | | Execute Vector,Catenate 01f5 e006 | | Load 0x0,0x6 01f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01f7 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "Context => " 01f9 e9fd | | Load 0x4,-0x3 01fa 01cc | | Execute Vector,Catenate 01fb e006 | | Load 0x0,0x6 01fc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01fd 4801 |H | Short_Literal 0x1 01fe e006 | | Load 0x0,0x6 01ff 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0200 e9f8 | | Load 0x4,-0x8 0201 e00c | | Load 0x0,0xc 0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0203 e9fa | | Load 0x4,-0x6 0204 00ea | | Load_Encached Null_String_Cache 0205 e9fc | | Load 0x4,-0x4 0206 e9fd | | Load 0x4,-0x3 0207 e9fe | | Load 0x4,-0x2 0208 e9ff | | Load 0x4,-0x1 0209 e00c | | Load 0x0,0xc 020a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 020b c9f9 | | Store 0x4,-0x7 020c c9f8 | | Store 0x4,-0x8 020d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 020e e9f8 | | Load 0x4,-0x8 020f e00c | | Load 0x0,0xc 0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0211 e9fa | | Load 0x4,-0x6 0212 e9fb | | Load 0x4,-0x5 0213 e9fc | | Load 0x4,-0x4 0214 e9fd | | Load 0x4,-0x3 0215 e9fe | | Load 0x4,-0x2 0216 e9ff | | Load 0x4,-0x1 0217 e00c | | Load 0x0,0xc 0218 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0219 c9f9 | | Store 0x4,-0x7 021a c9f8 | | Store 0x4,-0x8 021b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0226 | & | .CONST 0x0226 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 00ea | | Load_Encached Null_String_Cache 0224 e602 | | Load 0x3,0x2 0225 840c | | Call 0x2,0xc 0226 BODY_0220: 0226 00d8 | | Load_Top At_Offset_0 0227 01db | | Execute Vector,Length 0228 0c01 | | Execute_Immediate Greater_Equal,0x1 0229 6803 |h | Jump_Zero 0x22d 022a e7ff | | Load 0x3,-0x1 022b 00d9 | | Load_Top At_Offset_1 022c 8408 | | Call 0x2,0x8 022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 02a7 | | .CONST 0x02a7 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 001a | | .CONST 0x001a ; Number of locals 0233 INIT_0230: 0233 4800 |H | Short_Literal 0x0 0234 4807 |H | Short_Literal 0x7 0235 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 0237 03fe | | Declare_Type Discrete,Defined,Visible 0238 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 023a 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 023c 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 023e 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0240 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 0242 4818 |H | Short_Literal 0x18 0243 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0244 00bf | | Action Accept_Activation 0245 e001 | | Load 0x0,0x1 0246 e002 | | Load 0x0,0x2 0247 4814 |H | Short_Literal 0x14 0248 e003 | | Load 0x0,0x3 0249 0387 | | Declare_Variable Package 024a 00d8 | | Load_Top At_Offset_0 024b 020f | | Execute Module,Activate 024c 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "!Tools.Design.Release." 024e e20d | | Load 0x1,0xd 024f 0266 | f | Execute Discrete,Bounds 0250 00db | | Load_Top At_Offset_3 0251 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0252 02a0 | | Declare_Subprogram Null_Subprogram 0253 4801 |H | Short_Literal 0x1 0254 035d | ] | Declare_Type Array,Defined 0255 00d8 | | Load_Top At_Offset_0 0256 0337 | 7 | Declare_Variable Array 0257 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "Pdl_Definition" 0259 e214 | | Load 0x1,0x14 025a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 025b 4806 |H | Short_Literal 0x6 025c 00da | | Load_Top At_Offset_2 025d 01d6 | | Execute Vector,Field_Write 025e 0092 05fa | | Action Push_String_Extended,0x5fa ; "Register_Pdl" 0260 e214 | | Load 0x1,0x14 0261 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0262 4807 |H | Short_Literal 0x7 0263 00da | | Load_Top At_Offset_2 0264 01d6 | | Execute Vector,Field_Write 0265 0092 05fb | | Action Push_String_Extended,0x5fb ; "!Machine.Release.Current.Activity" 0267 e214 | | Load 0x1,0x14 0268 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0269 4802 |H | Short_Literal 0x2 026a 00da | | Load_Top At_Offset_2 026b 01d6 | | Execute Vector,Field_Write 026c 4801 |H | Short_Literal 0x1 026d 4800 |H | Short_Literal 0x0 026e 00ea | | Load_Encached Null_String_Cache 026f e214 | | Load 0x1,0x14 0270 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0271 00d9 | | Load_Top At_Offset_1 0272 e217 | | Load 0x1,0x17 0273 01d6 | | Execute Vector,Field_Write 0274 3ff9 |? | Loop_Increasing 0x26e 0275 4805 |H | Short_Literal 0x5 0276 4803 |H | Short_Literal 0x3 0277 00ea | | Load_Encached Null_String_Cache 0278 e214 | | Load 0x1,0x14 0279 1817 | | Execute Package,Field_Execute,Field_Number 0x17 027a 00d9 | | Load_Top At_Offset_1 027b e217 | | Load 0x1,0x17 027c 01d6 | | Execute Vector,Field_Write 027d 3ff9 |? | Loop_Increasing 0x277 027e 00d9 | | Load_Top At_Offset_1 027f 01c3 | | Execute Vector,Check_In_Type 0280 0007 | | Action Break_Optional 0281 4800 |H | Short_Literal 0x0 0282 480c |H | Short_Literal 0xc 0283 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 0285 03fd | | Declare_Type Discrete,Defined 0286 4800 |H | Short_Literal 0x0 0287 0093 0503 | | push_full_address INIT_0500 0289 02a0 | | Declare_Subprogram Null_Subprogram 028a 038e | | Declare_Type Package,Defined 028b 0387 | | Declare_Variable Package 028c 00d8 | | Load_Top At_Offset_0 028d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 028e 00d9 | | Load_Top At_Offset_1 028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0290 00e1 | | Load_Encached Boolean_Cache 0291 e214 | | Load 0x1,0x14 0292 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0293 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 0295 4804 |H | Short_Literal 0x4 0296 032d | - | Declare_Type Record,Defined 0297 00d8 | | Load_Top At_Offset_0 0298 02a0 | | Declare_Subprogram Null_Subprogram 0299 e213 | | Load 0x1,0x13 029a 03c7 | | Complete_Type Access,By_Defining 029b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 029c 00c7 | | Action Elaborate_Subprogram 029d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 029e 00c7 | | Action Elaborate_Subprogram 029f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 02a0 00c7 | | Action Elaborate_Subprogram 02a1 1d11 | | Execute_Immediate Reference_Lex_1,0x11 02a2 00c7 | | Action Elaborate_Subprogram 02a3 1d12 | | Execute_Immediate Reference_Lex_1,0x12 02a4 00c7 | | Action Elaborate_Subprogram 02a5 00d9 | | Load_Top At_Offset_1 02a6 020f | | Execute Module,Activate 02a7 BODY_0230: 02a7 00bc | | Action Signal_Activated 02a8 00bb | | Action Signal_Completion 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 4607 |F | Jump_Case 0x8 02b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02b5 7807 |x | Jump 0x2bd ; case 0x1 02b6 780a |x | Jump 0x2c1 ; case 0x2 02b7 780e |x | Jump 0x2c6 ; case 0x3 02b8 7811 |x | Jump 0x2ca ; case 0x4 02b9 7812 |x | Jump 0x2cc ; case 0x5 02ba 7813 |x | Jump 0x2ce ; case 0x6 02bb 7816 |x | Jump 0x2d2 ; case 0x7 02bc 4302 |C | .XXX[0x1] 02bd 00da | | Load_Top At_Offset_2 02be 0091 05d2 | | Action Push_String_Extended_Indexed,0x5d2 ; "NIL" 02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c1 00db | | Load_Top At_Offset_3 02c2 00db | | Load_Top At_Offset_3 02c3 00e0 | | Load_Encached Standard_Cache 02c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c6 00da | | Load_Top At_Offset_2 02c7 00e0 | | Load_Encached Standard_Cache 02c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02ca 00db | | Load_Top At_Offset_3 02cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02cc 00db | | Load_Top At_Offset_3 02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ce e20d | | Load 0x1,0xd 02cf 00dc | | Load_Top At_Offset_4 02d0 0267 | g | Execute Discrete,Predecessor 02d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d2 e20d | | Load 0x1,0xd 02d3 00dc | | Load_Top At_Offset_4 02d4 0268 | h | Execute Discrete,Successor 02d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e0 | | .CONST 0x02e0 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db e213 | | Load 0x1,0x13 02dc 03bc | | Declare_Variable Access,By_Allocation 02dd 00d8 | | Load_Top At_Offset_0 02de 0227 | ' | Execute Access,All_Reference 02df 1c00 | | Execute_Immediate Run_Utility,0x0 02e0 BODY_02d8: 02e0 00db | | Load_Top At_Offset_3 02e1 e214 | | Load 0x1,0x14 02e2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02e3 00d9 | | Load_Top At_Offset_1 02e4 0227 | ' | Execute Access,All_Reference 02e5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02e6 00db | | Load_Top At_Offset_3 02e7 e219 | | Load 0x1,0x19 02e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 02e9 00d9 | | Load_Top At_Offset_1 02ea 0227 | ' | Execute Access,All_Reference 02eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ec 00d8 | | Load_Top At_Offset_0 02ed 0227 | ' | Execute Access,All_Reference 02ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02ef e219 | | Load 0x1,0x19 02f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f1 00d9 | | Load_Top At_Offset_1 02f2 0227 | ' | Execute Access,All_Reference 02f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02f4 00d8 | | Load_Top At_Offset_0 02f5 0227 | ' | Execute Access,All_Reference 02f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f7 0f01 | | Execute_Immediate Equal,0x1 02f8 00d9 | | Load_Top At_Offset_1 02f9 0227 | ' | Execute Access,All_Reference 02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fb 0f02 | | Execute_Immediate Equal,0x2 02fc 0278 | x | Execute Discrete,Or 02fd 00d9 | | Load_Top At_Offset_1 02fe 0227 | ' | Execute Access,All_Reference 02ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0300 0f04 | | Execute_Immediate Equal,0x4 0301 0278 | x | Execute Discrete,Or 0302 00d9 | | Load_Top At_Offset_1 0303 0227 | ' | Execute Access,All_Reference 0304 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0305 0f05 | | Execute_Immediate Equal,0x5 0306 0278 | x | Execute Discrete,Or 0307 00d9 | | Load_Top At_Offset_1 0308 0227 | ' | Execute Access,All_Reference 0309 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 030a 00d8 | | Load_Top At_Offset_0 030b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 0227 | ' | Execute Access,All_Reference 0315 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0316 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0317 0000 | | .XXX[0x1] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031d | | .CONST 0x031d ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0002 | | .CONST 0x0002 ; Number of locals 031b INIT_0318: 031b 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 031d BODY_0318: 031d 00db | | Load_Top At_Offset_3 031e 4607 |F | Jump_Case 0x8 031f 7807 |x | Jump 0x327 ; case 0x0 0320 780c |x | Jump 0x32d ; case 0x1 0321 780d |x | Jump 0x32f ; case 0x2 0322 7823 |x# | Jump 0x346 ; case 0x3 0323 7839 |x9 | Jump 0x35d ; case 0x4 0324 784f |xO | Jump 0x374 ; case 0x5 0325 7801 |x | Jump 0x327 ; case 0x6 0326 7800 |x | Jump 0x327 ; case 0x7 0327 00db | | Load_Top At_Offset_3 0328 e217 | | Load 0x1,0x17 0329 01d7 | | Execute Vector,Field_Read 032a e214 | | Load 0x1,0x14 032b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 032c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 032d 8402 | | Call 0x2,0x2 032e 786b |xk | Jump 0x39a 032f e5fe | | Load 0x2,-0x2 0330 0227 | ' | Execute Access,All_Reference 0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0332 0c02 | | Execute_Immediate Greater_Equal,0x2 0333 680c |h | Jump_Zero 0x340 0334 e5fe | | Load 0x2,-0x2 0335 0227 | ' | Execute Access,All_Reference 0336 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0337 e5fe | | Load 0x2,-0x2 0338 0227 | ' | Execute Access,All_Reference 0339 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 033a e214 | | Load 0x1,0x14 033b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 033c 4802 |H | Short_Literal 0x2 033d e219 | | Load 0x1,0x19 033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0340 00db | | Load_Top At_Offset_3 0341 e217 | | Load 0x1,0x17 0342 01d7 | | Execute Vector,Field_Read 0343 e214 | | Load 0x1,0x14 0344 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0345 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0346 e5fe | | Load 0x2,-0x2 0347 0227 | ' | Execute Access,All_Reference 0348 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0349 0c03 | | Execute_Immediate Greater_Equal,0x3 034a 680c |h | Jump_Zero 0x357 034b e5fe | | Load 0x2,-0x2 034c 0227 | ' | Execute Access,All_Reference 034d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 034e e5fe | | Load 0x2,-0x2 034f 0227 | ' | Execute Access,All_Reference 0350 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0351 e214 | | Load 0x1,0x14 0352 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0353 4803 |H | Short_Literal 0x3 0354 e219 | | Load 0x1,0x19 0355 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0356 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0357 00db | | Load_Top At_Offset_3 0358 e217 | | Load 0x1,0x17 0359 01d7 | | Execute Vector,Field_Read 035a e214 | | Load 0x1,0x14 035b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 035c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 035d e5fe | | Load 0x2,-0x2 035e 0227 | ' | Execute Access,All_Reference 035f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0360 0c04 | | Execute_Immediate Greater_Equal,0x4 0361 680c |h | Jump_Zero 0x36e 0362 e5fe | | Load 0x2,-0x2 0363 0227 | ' | Execute Access,All_Reference 0364 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0365 e5fe | | Load 0x2,-0x2 0366 0227 | ' | Execute Access,All_Reference 0367 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0368 e214 | | Load 0x1,0x14 0369 1816 | | Execute Package,Field_Execute,Field_Number 0x16 036a 4804 |H | Short_Literal 0x4 036b e219 | | Load 0x1,0x19 036c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 036d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036e 00db | | Load_Top At_Offset_3 036f e217 | | Load 0x1,0x17 0370 01d7 | | Execute Vector,Field_Read 0371 e214 | | Load 0x1,0x14 0372 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0373 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0374 e5fe | | Load 0x2,-0x2 0375 0227 | ' | Execute Access,All_Reference 0376 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0377 0c05 | | Execute_Immediate Greater_Equal,0x5 0378 680c |h | Jump_Zero 0x385 0379 e5fe | | Load 0x2,-0x2 037a 0227 | ' | Execute Access,All_Reference 037b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 037c e5fe | | Load 0x2,-0x2 037d 0227 | ' | Execute Access,All_Reference 037e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 037f e214 | | Load 0x1,0x14 0380 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0381 4805 |H | Short_Literal 0x5 0382 e219 | | Load 0x1,0x19 0383 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0384 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0385 e5fe | | Load 0x2,-0x2 0386 4801 |H | Short_Literal 0x1 0387 8210 | | Call 0x1,0x10 0388 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "." 038a 01cc | | Execute Vector,Catenate 038b e5fe | | Load 0x2,-0x2 038c 4806 |H | Short_Literal 0x6 038d 8210 | | Call 0x1,0x10 038e 01cc | | Execute Vector,Catenate 038f 0092 05fc | | Action Push_String_Extended,0x5fc ; "'Spec_View(" 0391 01cc | | Execute Vector,Catenate 0392 e5fe | | Load 0x2,-0x2 0393 4802 |H | Short_Literal 0x2 0394 8210 | | Call 0x1,0x10 0395 01cc | | Execute Vector,Catenate 0396 0092 05fd | | Action Push_String_Extended,0x5fd ; ").Units" 0398 01cc | | Execute Vector,Catenate 0399 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 039a 0831 | 1 | Execute_Immediate Raise,0x31 039b 0000 0000 | | .BLANK 0000[0x5] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00db | | Load_Top At_Offset_3 03a4 820f | | Call 0x1,0xf 03a5 6822 |h" | Jump_Zero 0x3c8 03a6 00da | | Load_Top At_Offset_2 03a7 4607 |F | Jump_Case 0x8 03a8 7807 |x | Jump 0x3b0 ; case 0x0 03a9 7808 |x | Jump 0x3b2 ; case 0x1 03aa 7809 |x | Jump 0x3b4 ; case 0x2 03ab 780d |x | Jump 0x3b9 ; case 0x3 03ac 7811 |x | Jump 0x3be ; case 0x4 03ad 7815 |x | Jump 0x3c3 ; case 0x5 03ae 7801 |x | Jump 0x3b0 ; case 0x6 03af 7800 |x | Jump 0x3b0 ; case 0x7 03b0 4800 |H | Short_Literal 0x0 03b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b2 4801 |H | Short_Literal 0x1 03b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b4 00db | | Load_Top At_Offset_3 03b5 0227 | ' | Execute Access,All_Reference 03b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b7 0c02 | | Execute_Immediate Greater_Equal,0x2 03b8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03b9 00db | | Load_Top At_Offset_3 03ba 0227 | ' | Execute Access,All_Reference 03bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03bc 0c03 | | Execute_Immediate Greater_Equal,0x3 03bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03be 00db | | Load_Top At_Offset_3 03bf 0227 | ' | Execute Access,All_Reference 03c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c1 0c04 | | Execute_Immediate Greater_Equal,0x4 03c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c3 00db | | Load_Top At_Offset_3 03c4 0227 | ' | Execute Access,All_Reference 03c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c6 0c05 | | Execute_Immediate Greater_Equal,0x5 03c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c8 4800 |H | Short_Literal 0x0 03c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ca 0000 0000 | | .BLANK 0000[0x6] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d7 | | .CONST 0x03d7 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0003 | | .CONST 0x0003 ; Number of locals 03d3 INIT_03d0: 03d3 029f 0483 | | Declare_Subprogram INIT_0480,For_Call 03d5 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 03d7 BODY_03d0: 03d7 e004 | | Load 0x0,0x4 03d8 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d9 4801 |H | Short_Literal 0x1 03da e004 | | Load 0x0,0x4 03db 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03dc 680d |h | Jump_Zero 0x3ea 03dd 4801 |H | Short_Literal 0x1 03de e005 | | Load 0x0,0x5 03df 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 03e0 0092 05fe | | Action Push_String_Extended,0x5fe ; "Input Line => " 03e2 e5fd | | Load 0x2,-0x3 03e3 0227 | ' | Execute Access,All_Reference 03e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03e5 e214 | | Load 0x1,0x14 03e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03e7 01cc | | Execute Vector,Catenate 03e8 e005 | | Load 0x0,0x5 03e9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03ea e5fd | | Load 0x2,-0x3 03eb 820f | | Call 0x1,0xf 03ec 700c |p | Jump_Nonzero 0x3f9 03ed 4822 |H" | Short_Literal 0x22 03ee 0092 05ff | | Action Push_String_Extended,0x5ff ; "Errors encountered parsing field:\x22" 03f0 e5fd | | Load 0x2,-0x3 03f1 0227 | ' | Execute Access,All_Reference 03f2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03f3 e214 | | Load 0x1,0x14 03f4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 03f5 01cc | | Execute Vector,Catenate 03f6 01cb | | Execute Vector,Append 03f7 85fe | | Call 0x2,-0x2 03f8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f9 00cf | | Action Mark_Auxiliary 03fa 4807 |H | Short_Literal 0x7 03fb 4801 |H | Short_Literal 0x1 03fc 0007 | | Action Break_Optional 03fd e004 | | Load 0x0,0x4 03fe 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ff 4801 |H | Short_Literal 0x1 0400 e004 | | Load 0x0,0x4 0401 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0402 680d |h | Jump_Zero 0x410 0403 00d8 | | Load_Top At_Offset_0 0404 e20d | | Load 0x1,0xd 0405 011c | | Execute Any,Convert_Unchecked 0406 1c01 | | Execute_Immediate Run_Utility,0x1 0407 0092 0600 | | Action Push_String_Extended,0x600 ; " => " 0409 01cc | | Execute Vector,Catenate 040a e5fd | | Load 0x2,-0x3 040b 00da | | Load_Top At_Offset_2 040c 8210 | | Call 0x1,0x10 040d 01cc | | Execute Vector,Catenate 040e e005 | | Load 0x0,0x5 040f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0410 00d8 | | Load_Top At_Offset_0 0411 0aff | | Execute_Immediate Plus,-0x1 0412 4606 |F | Jump_Case 0x7 0413 7807 |x | Jump 0x41b ; case 0x0 0414 7806 |x | Jump 0x41b ; case 0x1 0415 7808 |x | Jump 0x41e ; case 0x2 0416 7807 |x | Jump 0x41e ; case 0x3 0417 7803 |x | Jump 0x41b ; case 0x4 0418 7804 |x | Jump 0x41d ; case 0x5 0419 7804 |x | Jump 0x41e ; case 0x6 041a 7803 |x | .XXX[0x1] 041b 8402 | | Call 0x2,0x2 041c 7801 |x | Jump 0x41e 041d 8403 | | Call 0x2,0x3 041e 00c8 | | Action Pop_Auxiliary_Range 041f 3fdd |? | Loop_Increasing 0x3fd 0420 00ce | | Action Pop_Auxiliary 0421 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0422 0000 0000 | | .BLANK 0000[0x6] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 4607 |F | Jump_Case 0x8 042c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 042d 7807 |x | Jump 0x435 ; case 0x1 042e 780a |x | Jump 0x439 ; case 0x2 042f 780e |x | Jump 0x43e ; case 0x3 0430 7811 |x | Jump 0x442 ; case 0x4 0431 7812 |x | Jump 0x444 ; case 0x5 0432 7813 |x | Jump 0x446 ; case 0x6 0433 7816 |x | Jump 0x44a ; case 0x7 0434 4302 |C | .XXX[0x1] 0435 00da | | Load_Top At_Offset_2 0436 0091 05da | | Action Push_String_Extended_Indexed,0x5da ; "NIL" 0438 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0439 00db | | Load_Top At_Offset_3 043a 00db | | Load_Top At_Offset_3 043b 00e0 | | Load_Encached Standard_Cache 043c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 043d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 043e 00da | | Load_Top At_Offset_2 043f 00e0 | | Load_Encached Standard_Cache 0440 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0441 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0442 00db | | Load_Top At_Offset_3 0443 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0444 00db | | Load_Top At_Offset_3 0445 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0446 e218 | | Load 0x1,0x18 0447 00dc | | Load_Top At_Offset_4 0448 0267 | g | Execute Discrete,Predecessor 0449 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 044a e218 | | Load 0x1,0x18 044b 00dc | | Load_Top At_Offset_4 044c 0268 | h | Execute Discrete,Successor 044d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 044e 0000 0000 | | .XXX[0x2] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 4601 |F | Jump_Case 0x2 0454 7801 |x | Jump 0x456 ; case 0x0 0455 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0456 00da | | Load_Top At_Offset_2 0457 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0458 1c00 | | Execute_Immediate Run_Utility,0x0 0459 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 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 e214 | | Load 0x1,0x14 046a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 046b 4801 |H | Short_Literal 0x1 046c e219 | | Load 0x1,0x19 046d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 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 e215 | | Load 0x1,0x15 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 8210 | | Call 0x1,0x10 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 e20d | | Load 0x1,0xd 04a9 011c | | Execute Any,Convert_Unchecked 04aa 1c01 | | Execute_Immediate Run_Utility,0x1 04ab 0092 0601 | | Action Push_String_Extended,0x601 ; " object " 04ad 01cc | | Execute Vector,Catenate 04ae e5fd | | Load 0x2,-0x3 04af e406 | | Load 0x2,0x6 04b0 8210 | | Call 0x1,0x10 04b1 01cc | | Execute Vector,Catenate 04b2 0092 0602 | | Action Push_String_Extended,0x602 ; " 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 8210 | | Call 0x1,0x10 04e0 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "." 04e2 01cc | | Execute Vector,Catenate 04e3 e5fd | | Load 0x2,-0x3 04e4 e406 | | Load 0x2,0x6 04e5 8210 | | Call 0x1,0x10 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 e20d | | Load 0x1,0xd 04f0 011c | | Execute Any,Convert_Unchecked 04f1 1c01 | | Execute_Immediate Run_Utility,0x1 04f2 0092 0601 | | Action Push_String_Extended,0x601 ; " object " 04f4 01cc | | Execute Vector,Catenate 04f5 e5fd | | Load 0x2,-0x3 04f6 e406 | | Load 0x2,0x6 04f7 8210 | | Call 0x1,0x10 04f8 01cc | | Execute Vector,Catenate 04f9 0092 0602 | | Action Push_String_Extended,0x602 ; " 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 0529 | ) | .CONST 0x0529 ; 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 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 050d 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 050f 029a 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call,Visible,Unelaborated 0511 00e4 | | Load_Encached Positive_Cache 0512 00e4 | | Load_Encached Positive_Cache 0513 02a0 | | Declare_Subprogram Null_Subprogram 0514 4802 |H | Short_Literal 0x2 0515 032e | . | Declare_Type Record,Defined,Visible 0516 4801 |H | Short_Literal 0x1 0517 4805 |H | Short_Literal 0x5 0518 00da | | Load_Top At_Offset_2 0519 02a0 | | Declare_Subprogram Null_Subprogram 051a 4801 |H | Short_Literal 0x1 051b 035e | ^ | Declare_Type Array,Defined,Visible 051c e20d | | Load 0x1,0xd 051d 00d9 | | Load_Top At_Offset_1 051e 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 0520 4802 |H | Short_Literal 0x2 0521 032e | . | Declare_Type Record,Defined,Visible 0522 00bf | | Action Accept_Activation 0523 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0524 00c7 | | Action Elaborate_Subprogram 0525 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0526 00c7 | | Action Elaborate_Subprogram 0527 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0528 00c7 | | Action Elaborate_Subprogram 0529 BODY_0500: 0529 00bc | | Action Signal_Activated 052a 00bb | | Action Signal_Completion 052b 0000 0000 | | .BLANK 0000[0x5] 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 e214 | | Load 0x1,0x14 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 4601 |F | Jump_Case 0x2 05cc 7801 |x | Jump 0x5ce ; case 0x0 05cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05ce 4800 |H | Short_Literal 0x0 05cf 00db | | Load_Top At_Offset_3 05d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05d2 ; -------------------------------------------------------------------------------------- 05d2 ; STRING TABLE 05d2 ; -------------------------------------------------------------------------------------- 05d2 0064 | d | .STRTAB 0x0064->0x0604 ; "NIL" 05d3 0065 | e | .STRTAB 0x0065->0x0605 ; "RDF_CONTEXT" 05d4 006e | n | .STRTAB 0x006e->0x060b ; "ACTIVITY" 05d5 0074 | t | .STRTAB 0x0074->0x060f ; "PDL_NAME" 05d6 007a | z | .STRTAB 0x007a->0x0613 ; "PDL_ID" 05d7 007e | ~ | .STRTAB 0x007e->0x0616 ; "DESCRIPTION_FILE_CONTEXT" 05d8 0094 | | .STRTAB 0x0094->0x0622 ; "SUBSYSTEM_NAME" 05d9 00a0 | | .STRTAB 0x00a0->0x0629 ; "PROGRAM_NAME" 05da 00aa | | .STRTAB 0x00aa->0x062f ; "NIL" 05db 00ab | | .STRTAB 0x00ab->0x0630 ; "PDL_01" 05dc 00af | | .STRTAB 0x00af->0x0633 ; "PDL_02" 05dd 00b3 | | .STRTAB 0x00b3->0x0636 ; "PDL_03" 05de 00b7 | | .STRTAB 0x00b7->0x0639 ; "PDL_04" 05df 00bb | | .STRTAB 0x00bb->0x063c ; "PDL_05" 05e0 00bf | | .STRTAB 0x00bf->0x063f ; "PDL_06" 05e1 00c3 | | .STRTAB 0x00c3->0x0642 ; "PDL_07" 05e2 00c7 | | .STRTAB 0x00c7->0x0645 ; "PDL_08" 05e3 00cb | | .STRTAB 0x00cb->0x0648 ; "PDL_09" 05e4 00cf | | .STRTAB 0x00cf->0x064b ; "PDL_10" 05e5 00d3 | | .STRTAB 0x00d3->0x064e ; "PDL_11" 05e6 00d7 | | .STRTAB 0x00d7->0x0651 ; "PDL_12" 05e7 00db | | .STRTAB 0x00db->0x0654 ; "!Machine.Initialization.Rational.Design_Facilities" 05e8 010b | | .STRTAB 0x010b->0x066d ; "Input | Output | Error => !MACHINE.DEVICES.NIL" 05e9 0137 | 7 | .STRTAB 0x0137->0x0684 ; "<PROFILE>" 05ea 013e | > | .STRTAB 0x013e->0x0689 ; "Unable_To_Register_Standard_Pdl " 05eb 015c | \ | .STRTAB 0x015c->0x0699 ; " cannot be found." 05ec 016b | k | .STRTAB 0x016b->0x06a1 ; "Invalid_Pdl_Name" 05ed 0179 | y | .STRTAB 0x0179->0x06a9 ; "!Machine.Initialization.Rational.Design_Facilities.Start_Pdl" 05ee 01b3 | | .STRTAB 0x01b3->0x06c7 ; "Unhandled_Exception" 05ef 01c4 | | .STRTAB 0x01c4->0x06d1 ; "(Pdl_Name => \x22" 05f0 01d0 | | .STRTAB 0x01d0->0x06d8 ; "\x22, Pdl_Id => Pdl." 05f1 01df | | .STRTAB 0x01df->0x06e0 ; ")" 05f2 01de | | .STRTAB 0x01de->0x06e1 ; "\x22)" 05f3 01de | | .STRTAB 0x01de->0x06e2 ; "(Pdl_Id => Pdl." 05f4 01eb | | .STRTAB 0x01eb->0x06e9 ; "." 05f5 01ea | | .STRTAB 0x01ea->0x06ea ; "!Machine.Initialization.Rational.Design_Facilities (" 05f6 021c | | .STRTAB 0x021c->0x0704 ; "S => " 05f7 021f | | .STRTAB 0x021f->0x0706 ; "Context => " 05f8 0228 | ( | .STRTAB 0x0228->0x070c ; "!Tools.Design.Release." 05f9 023c | < | .STRTAB 0x023c->0x0717 ; "Pdl_Definition" 05fa 0248 | H | .STRTAB 0x0248->0x071e ; "Register_Pdl" 05fb 0252 | R | .STRTAB 0x0252->0x0724 ; "!Machine.Release.Current.Activity" 05fc 0271 | q | .STRTAB 0x0271->0x0734 ; "'Spec_View(" 05fd 027a | z | .STRTAB 0x027a->0x073a ; ").Units" 05fe 027f | | .STRTAB 0x027f->0x073d ; "Input Line => " 05ff 028b | | .STRTAB 0x028b->0x0744 ; "Errors encountered parsing field:\x22" 0600 02ab | | .STRTAB 0x02ab->0x0755 ; " => " 0601 02ad | | .STRTAB 0x02ad->0x0757 ; " object " 0602 02b3 | | .STRTAB 0x02b3->0x075b ; " does not exist" 0603 02c0 | | .STREND 0x02c0->0x0763 0604 4e49 4c52 |NILR| .STRTAB_STRINGS 0763 0000 0000 | | .BLANK 0000[0x5] 0768 ; -------------------------------------------------------------------------------------- 0768 ; Debug Table 0768 ; -------------------------------------------------------------------------------------- 0768 0004 0002 | | .DEBUG4 0x0004,0x0002,0x06d1,0x0000,0x0001,0x0000 076e 2020 2020 | | .BLANK 2020[0x5] 0773 4f62 6a65 |Obje| .XXX[0xf] 0775 6374 2e4e |ct.N| 0777 6578 7420 |ext | 0779 2854 6865 |(The| 077b 5f4f 626a |_Obj| 077d 6563 7473 |ects| 077f 293b 2600 |);& | 0781 4f20 |O | 0782 2020 2020 | | .BLANK 2020[0x5] 0787 2065 7869 | exi| .XXX[0x50] 0789 7420 7768 |t wh| 078b 656e 204f |en O| 078d 626a 6563 |bjec| 078f 742e 446f |t.Do| 0791 6e65 2028 |ne (| 0793 5468 655f |The_| 0795 4f62 6a65 |Obje| 0797 6374 7329 |cts)| 0799 206f 7220 | or | 079b 656c 7365 |else| 079d 2054 6869 | Thi| 079f 735f 4b69 |s_Ki| 07a1 6e64 203d |nd =| 07a3 204f 7468 | Oth| 07a5 6572 5f4b |er_K| 07a7 696e 643b |ind;| 07a9 4f00 1120 |O | 07ab 2020 2020 | | 07ad 2020 2065 | e| 07af 6e64 206c |nd l| 07b1 6f6f 703b |oop;| 07b3 1100 1920 | | 07b5 2020 2020 | | 07b7 2020 2072 | r| 07b9 6574 7572 |etur| 07bb 6e20 5468 |n Th| 07bd 6973 5f4b |is_K| 07bf 696e 643b |ind;| 07c1 1900 0d20 | | 07c3 2020 2065 | e| 07c5 7863 6570 |xcep| 07c7 7469 6f6e |tion| 07c9 0d00 1620 | | 07cb 2020 2020 | | 07cd 2020 2077 | w| 07cf 6865 6e20 |hen | 07d1 6f74 6865 |othe| 07d3 7273 203d |rs =| 07d5 3e16 001e |> | 07d7 2020 2020 | | .BLANK 2020[0x6] 07dd 7265 7475 |retu| .XXX[0x17] 07df 726e 204f |rn O| 07e1 7468 6572 |ther| 07e3 5f4b 696e |_Kin| 07e5 643b 1e00 |d; | 07e7 1820 2020 | | 07e9 2065 6e64 | end| 07eb 2047 6574 | Get| 07ed 5f4f 626a |_Obj| 07ef 6563 745f |ect_| 07f1 4b69 6e64 |Kind| 07f3 3b18 |; | 07f4 0000 0000 | | .BLANK 0000[0x5] 07f9 0c20 2020 | | .XXX[0x7] 07fb 202d 2d20 | -- | 07fd 5772 6974 |Writ| 07ff 650c |e |