|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 0340 | @ | .CONST 0x0340 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0046 | F | .CONST 0x0046 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001d c212 | | Store 0x1,0x12 001e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0020 c213 | | Store 0x1,0x13 0021 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0023 c214 | | Store 0x1,0x14 0024 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0026 c215 | | Store 0x1,0x15 0027 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0029 c216 | | Store 0x1,0x16 002a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 002c c218 | | Store 0x1,0x18 002d 00bf | | Action Accept_Activation 002e 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0031 00c7 | | Action Elaborate_Subprogram 0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0033 00c7 | | Action Elaborate_Subprogram 0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0035 00c7 | | Action Elaborate_Subprogram 0036 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 0038 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0039 00c7 | | Action Elaborate_Subprogram 003a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003b 00c7 | | Action Elaborate_Subprogram 003c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003d 00c7 | | Action Elaborate_Subprogram 003e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003f 00c7 | | Action Elaborate_Subprogram 0040 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0041 00c7 | | Action Elaborate_Subprogram 0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0043 00c7 | | Action Elaborate_Subprogram 0044 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0045 00c7 | | Action Elaborate_Subprogram 0046 BODY_0008: 0046 00bc | | Action Signal_Activated 0047 00bb | | Action Signal_Completion 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4800 |H | Short_Literal 0x0 004c 00db | | Load_Top At_Offset_3 004d 0092 0320 | | Action Push_String_Extended,0x320 ; ">>" 004f e001 | | Load 0x0,0x1 0050 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0051 7012 |p | Jump_Nonzero 0x64 0052 4800 |H | Short_Literal 0x0 0053 00db | | Load_Top At_Offset_3 0054 0092 0321 | !| Action Push_String_Extended,0x321 ; "<<" 0056 e001 | | Load 0x0,0x1 0057 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0058 700b |p | Jump_Nonzero 0x64 0059 00db | | Load_Top At_Offset_3 005a 6824 |h$ | Jump_Zero 0x7f 005b 4800 |H | Short_Literal 0x0 005c 00ea | | Load_Encached Null_String_Cache 005d 4820 |H | Short_Literal 0x20 005e e5ff | | Load 0x2,-0x1 005f e001 | | Load 0x0,0x1 0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0061 e001 | | Load 0x0,0x1 0062 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0063 681b |h | Jump_Zero 0x7f 0064 e5fc | | Load 0x2,-0x4 0065 4801 |H | Short_Literal 0x1 0066 4802 |H | Short_Literal 0x2 0067 e002 | | Load 0x0,0x2 0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0069 035b | [ | Declare_Type Array,Constrained 006a 0337 | 7 | Declare_Variable Array 006b e5ff | | Load 0x2,-0x1 006c e002 | | Load 0x0,0x2 006d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006e e002 | | Load 0x0,0x2 006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0070 0119 | | Execute Any,Check_In_Formal_Type 0071 4801 |H | Short_Literal 0x1 0072 00da | | Load_Top At_Offset_2 0073 01d6 | | Execute Vector,Field_Write 0074 e5fd | | Load 0x2,-0x3 0075 e002 | | Load 0x0,0x2 0076 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0077 e002 | | Load 0x0,0x2 0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0079 0119 | | Execute Any,Check_In_Formal_Type 007a 4802 |H | Short_Literal 0x2 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 6002 |` | Indirect_Literal Discrete,0x80,{0x00000000, 0x00008802} 007e 8219 | | Call 0x1,0x19 007f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0080 0000 0000 | | .LITERAL {0x00000000, 0x00008802} 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 4800 |H | Short_Literal 0x0 008c 00ea | | Load_Encached Null_String_Cache 008d 4820 |H | Short_Literal 0x20 008e e5ff | | Load 0x2,-0x1 008f e001 | | Load 0x0,0x1 0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0091 e001 | | Load 0x0,0x1 0092 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0093 681b |h | Jump_Zero 0xaf 0094 e5fd | | Load 0x2,-0x3 0095 4801 |H | Short_Literal 0x1 0096 4802 |H | Short_Literal 0x2 0097 e002 | | Load 0x0,0x2 0098 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0099 035b | [ | Declare_Type Array,Constrained 009a 0337 | 7 | Declare_Variable Array 009b e5ff | | Load 0x2,-0x1 009c e002 | | Load 0x0,0x2 009d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009e e002 | | Load 0x0,0x2 009f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a0 0119 | | Execute Any,Check_In_Formal_Type 00a1 4801 |H | Short_Literal 0x1 00a2 00da | | Load_Top At_Offset_2 00a3 01d6 | | Execute Vector,Field_Write 00a4 e5fe | | Load 0x2,-0x2 00a5 e002 | | Load 0x0,0x2 00a6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a7 e002 | | Load 0x0,0x2 00a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a9 0119 | | Execute Any,Check_In_Formal_Type 00aa 4802 |H | Short_Literal 0x2 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad 67d2 |g | Indirect_Literal Discrete,0x80,{0x00000000, 0x00008802} 00ae 8219 | | Call 0x1,0x19 00af 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b5 | | .CONST 0x00b5 ; Address of begin 00b1 00ce | | .CONST 0x00ce ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 0092 0322 | "| Action Push_String_Extended,0x322 ; "Rcf" 00b5 BODY_00b0: 00b5 00d8 | | Load_Top At_Offset_0 00b6 e003 | | Load 0x0,0x3 00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b8 7006 |p | Jump_Nonzero 0xbf 00b9 00db | | Load_Top At_Offset_3 00ba e002 | | Load 0x0,0x2 00bb 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00bc 601b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00008848} 00bd 8219 | | Call 0x1,0x19 00be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bf e004 | | Load 0x0,0x4 00c0 180f | | Execute Package,Field_Execute,Field_Number 0xf 00c1 4801 |H | Short_Literal 0x1 00c2 00da | | Load_Top At_Offset_2 00c3 e005 | | Load 0x0,0x5 00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c5 e005 | | Load 0x0,0x5 00c6 180f | | Execute Package,Field_Execute,Field_Number 0xf 00c7 7005 |p | Jump_Nonzero 0xcd 00c8 00db | | Load_Top At_Offset_3 00c9 e002 | | Load 0x0,0x2 00ca 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00cb 6008 |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00008847} 00cc 8219 | | Call 0x1,0x19 00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ce TRAP_00b0: 00ce 4884 |H | Short_Literal 0x84 00cf 010f | | Execute Exception,Equal 00d0 6801 |h | Jump_Zero 0xd2 00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d2 0100 | | Execute Exception,Raise 00d3 0000 | | .XXX[0x1] 00d4 0000 0000 | | .LITERAL {0x00000000, 0x00008847} 00d8 0000 0000 | | .LITERAL {0x00000000, 0x00008848} 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00ed | | .CONST 0x00ed ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e006 | | Load 0x0,0x6 00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e5 02c7 | | Declare_Variable Any 00e6 e5fd | | Load 0x2,-0x3 00e7 4801 |H | Short_Literal 0x1 00e8 e5fe | | Load 0x2,-0x2 00e9 e5ff | | Load 0x2,-0x1 00ea e007 | | Load 0x0,0x7 00eb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00ec a402 | | Store_Unchecked 0x2,0x2 00ed BODY_00e0: 00ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fc | | .CONST 0x00fc ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e006 | | Load 0x0,0x6 00f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f5 02c7 | | Declare_Variable Any 00f6 e5fe | | Load 0x2,-0x2 00f7 4801 |H | Short_Literal 0x1 00f8 e5ff | | Load 0x2,-0x1 00f9 e007 | | Load 0x0,0x7 00fa 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 00fb a402 | | Store_Unchecked 0x2,0x2 00fc BODY_00f0: 00fc e5fe | | Load 0x2,-0x2 00fd 00d9 | | Load_Top At_Offset_1 00fe e007 | | Load 0x0,0x7 00ff 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0100 681b |h | Jump_Zero 0x11c 0101 e5fe | | Load 0x2,-0x2 0102 4801 |H | Short_Literal 0x1 0103 4802 |H | Short_Literal 0x2 0104 e002 | | Load 0x0,0x2 0105 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0106 035b | [ | Declare_Type Array,Constrained 0107 0337 | 7 | Declare_Variable Array 0108 00da | | Load_Top At_Offset_2 0109 e002 | | Load 0x0,0x2 010a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 010b e002 | | Load 0x0,0x2 010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010d 0119 | | Execute Any,Check_In_Formal_Type 010e 4801 |H | Short_Literal 0x1 010f 00da | | Load_Top At_Offset_2 0110 01d6 | | Execute Vector,Field_Write 0111 e5ff | | Load 0x2,-0x1 0112 e002 | | Load 0x0,0x2 0113 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0114 e002 | | Load 0x0,0x2 0115 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0116 0119 | | Execute Any,Check_In_Formal_Type 0117 4802 |H | Short_Literal 0x2 0118 00da | | Load_Top At_Offset_2 0119 01d6 | | Execute Vector,Field_Write 011a 6005 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x0000882e} 011b 8219 | | Call 0x1,0x19 011c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 0000 0000 | | .LITERAL {0x00000000, 0x0000882e} 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0130 | 0 | .CONST 0x0130 ; Address of begin 0129 016e | n | .CONST 0x016e ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e006 | | Load 0x0,0x6 012c 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 012d 0322 | " | Declare_Variable Record 012e 00d8 | | Load_Top At_Offset_0 012f 1c00 | | Execute_Immediate Run_Utility,0x0 0130 BODY_0128: 0130 e5fe | | Load 0x2,-0x2 0131 e5ff | | Load 0x2,-0x1 0132 e007 | | Load 0x0,0x7 0133 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0134 00d9 | | Load_Top At_Offset_1 0135 017d | } | Execute Record,Structure_Write 0136 00d8 | | Load_Top At_Offset_0 0137 e007 | | Load 0x0,0x7 0138 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0139 701b |p | Jump_Nonzero 0x155 013a e5fe | | Load 0x2,-0x2 013b 4801 |H | Short_Literal 0x1 013c 4802 |H | Short_Literal 0x2 013d e002 | | Load 0x0,0x2 013e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 013f 035b | [ | Declare_Type Array,Constrained 0140 0337 | 7 | Declare_Variable Array 0141 00da | | Load_Top At_Offset_2 0142 e007 | | Load 0x0,0x7 0143 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0144 e002 | | Load 0x0,0x2 0145 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0146 0119 | | Execute Any,Check_In_Formal_Type 0147 4801 |H | Short_Literal 0x1 0148 00da | | Load_Top At_Offset_2 0149 01d6 | | Execute Vector,Field_Write 014a e5ff | | Load 0x2,-0x1 014b e002 | | Load 0x0,0x2 014c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014d e002 | | Load 0x0,0x2 014e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014f 0119 | | Execute Any,Check_In_Formal_Type 0150 4802 |H | Short_Literal 0x2 0151 00da | | Load_Top At_Offset_2 0152 01d6 | | Execute Vector,Field_Write 0153 6028 |`( | Indirect_Literal Discrete,0x17c,{0x00000000, 0x0000882f} 0154 8219 | | Call 0x1,0x19 0155 00d8 | | Load_Top At_Offset_0 0156 e008 | | Load 0x0,0x8 0157 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0158 e007 | | Load 0x0,0x7 0159 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 015a 6812 |h | Jump_Zero 0x16d 015b e5fe | | Load 0x2,-0x2 015c 4801 |H | Short_Literal 0x1 015d 4801 |H | Short_Literal 0x1 015e e002 | | Load 0x0,0x2 015f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0160 035b | [ | Declare_Type Array,Constrained 0161 0337 | 7 | Declare_Variable Array 0162 00da | | Load_Top At_Offset_2 0163 e007 | | Load 0x0,0x7 0164 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0165 e002 | | Load 0x0,0x2 0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0167 0119 | | Execute Any,Check_In_Formal_Type 0168 4801 |H | Short_Literal 0x1 0169 00da | | Load_Top At_Offset_2 016a 01d6 | | Execute Vector,Field_Write 016b 600c |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00008891} 016c 8219 | | Call 0x1,0x19 016d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016e TRAP_0128: 016e 010e | | Execute Exception,Is_Constraint_Error 016f 6806 |h | Jump_Zero 0x176 0170 e5fe | | Load 0x2,-0x2 0171 e002 | | Load 0x0,0x2 0172 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0173 6004 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00008891} 0174 8219 | | Call 0x1,0x19 0175 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0176 0100 | | Execute Exception,Raise 0177 0000 | | .XXX[0x1] 0178 0000 0000 | | .LITERAL {0x00000000, 0x00008891} 017c 0000 0000 | | .LITERAL {0x00000000, 0x0000882f} 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 018b | | .CONST 0x018b ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0003 | | .CONST 0x0003 ; Number of locals 0183 INIT_0180: 0183 e006 | | Load 0x0,0x6 0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0185 02c7 | | Declare_Variable Any 0186 00d8 | | Load_Top At_Offset_0 0187 1c00 | | Execute_Immediate Run_Utility,0x0 0188 e006 | | Load 0x0,0x6 0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018b BODY_0180: 018b e006 | | Load 0x0,0x6 018c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 018d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018e 00da | | Load_Top At_Offset_2 018f 0120 | | Execute Any,Is_Value 0190 6803 |h | Jump_Zero 0x194 0191 e006 | | Load 0x0,0x6 0192 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0193 7801 |x | Jump 0x195 0194 00da | | Load_Top At_Offset_2 0195 602e |`. | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00004000} 0196 e009 | | Load 0x0,0x9 0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0198 e004 | | Load 0x0,0x4 0199 1811 | | Execute Package,Field_Execute,Field_Number 0x11 019a e006 | | Load 0x0,0x6 019b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 019d e5ff | | Load 0x2,-0x1 019e e006 | | Load 0x0,0x6 019f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01a0 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01a1 c402 | | Store 0x2,0x2 01a2 0059 | Y | Store_Top Discrete,At_Offset_1 01a3 00d8 | | Load_Top At_Offset_0 01a4 6805 |h | Jump_Zero 0x1aa 01a5 00d9 | | Load_Top At_Offset_1 01a6 e006 | | Load 0x0,0x6 01a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a8 012e | . | Execute Any,Not_Equal 01a9 6812 |h | Jump_Zero 0x1bc 01aa e5fe | | Load 0x2,-0x2 01ab 4801 |H | Short_Literal 0x1 01ac 4801 |H | Short_Literal 0x1 01ad e002 | | Load 0x0,0x2 01ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01af 035b | [ | Declare_Type Array,Constrained 01b0 0337 | 7 | Declare_Variable Array 01b1 00db | | Load_Top At_Offset_3 01b2 e002 | | Load 0x0,0x2 01b3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01b4 e002 | | Load 0x0,0x2 01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b6 0119 | | Execute Any,Check_In_Formal_Type 01b7 4801 |H | Short_Literal 0x1 01b8 00da | | Load_Top At_Offset_2 01b9 01d6 | | Execute Vector,Field_Write 01ba 6005 |` | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x00008850} 01bb 8219 | | Call 0x1,0x19 01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 0000 0000 | | .LITERAL {0x00000000, 0x00008850} 01c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 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 00da | | Load_Top At_Offset_2 01cc e007 | | Load 0x0,0x7 01cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ce 7013 |p | Jump_Nonzero 0x1e2 01cf 00db | | Load_Top At_Offset_3 01d0 4801 |H | Short_Literal 0x1 01d1 4801 |H | Short_Literal 0x1 01d2 e002 | | Load 0x0,0x2 01d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d4 035b | [ | Declare_Type Array,Constrained 01d5 0337 | 7 | Declare_Variable Array 01d6 e5ff | | Load 0x2,-0x1 01d7 e002 | | Load 0x0,0x2 01d8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01d9 e002 | | Load 0x0,0x2 01da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01db 0119 | | Execute Any,Check_In_Formal_Type 01dc 4801 |H | Short_Literal 0x1 01dd 00da | | Load_Top At_Offset_2 01de 01d6 | | Execute Vector,Field_Write 01df 6020 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x0000882d} 01e0 8219 | | Call 0x1,0x19 01e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e2 00da | | Load_Top At_Offset_2 01e3 e007 | | Load 0x0,0x7 01e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e5 7012 |p | Jump_Nonzero 0x1f8 01e6 00db | | Load_Top At_Offset_3 01e7 4801 |H | Short_Literal 0x1 01e8 4801 |H | Short_Literal 0x1 01e9 e002 | | Load 0x0,0x2 01ea 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01eb 035b | [ | Declare_Type Array,Constrained 01ec 0337 | 7 | Declare_Variable Array 01ed e5ff | | Load 0x2,-0x1 01ee e002 | | Load 0x0,0x2 01ef 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f0 e002 | | Load 0x0,0x2 01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f2 0119 | | Execute Any,Check_In_Formal_Type 01f3 4801 |H | Short_Literal 0x1 01f4 00da | | Load_Top At_Offset_2 01f5 01d6 | | Execute Vector,Field_Write 01f6 6005 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00008830} 01f7 8219 | | Call 0x1,0x19 01f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f9 0000 0000 | | .XXX[0x3] 01fb 0000 | | 01fc 0000 0000 | | .LITERAL {0x00000000, 0x00008830} 0200 0000 0000 | | .LITERAL {0x00000000, 0x0000882d} 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0225 | % | .CONST 0x0225 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0007 | | .CONST 0x0007 ; Number of locals 020b INIT_0208: 020b e006 | | Load 0x0,0x6 020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 020d 02c7 | | Declare_Variable Any 020e e5fd | | Load 0x2,-0x3 020f 4800 |H | Short_Literal 0x0 0210 e5ff | | Load 0x2,-0x1 0211 e007 | | Load 0x0,0x7 0212 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0213 a402 | | Store_Unchecked 0x2,0x2 0214 e006 | | Load 0x0,0x6 0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0216 02c7 | | Declare_Variable Any 0217 00d8 | | Load_Top At_Offset_0 0218 1c00 | | Execute_Immediate Run_Utility,0x0 0219 e006 | | Load 0x0,0x6 021a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 021b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 021c 02c7 | | Declare_Variable Any 021d 00d8 | | Load_Top At_Offset_0 021e 1c00 | | Execute_Immediate Run_Utility,0x0 021f 00e1 | | Load_Encached Boolean_Cache 0220 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0221 e00a | | Load 0x0,0xa 0222 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0223 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 0225 BODY_0208: 0225 e402 | | Load 0x2,0x2 0226 e006 | | Load 0x0,0x6 0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0228 6800 |h | Jump_Zero 0x229 0229 e5fd | | Load 0x2,-0x3 022a 4800 |H | Short_Literal 0x0 022b e402 | | Load 0x2,0x2 022c e007 | | Load 0x0,0x7 022d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 022e 0092 0323 | #| Action Push_String_Extended,0x323 ; ".@'c(Comb_View)" 0230 01cc | | Execute Vector,Catenate 0231 e007 | | Load 0x0,0x7 0232 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0233 c404 | | Store 0x2,0x4 0234 00cf | | Action Mark_Auxiliary 0235 780d |x | Jump 0x243 0236 e5fd | | Load 0x2,-0x3 0237 4801 |H | Short_Literal 0x1 0238 e404 | | Load 0x2,0x4 0239 e007 | | Load 0x0,0x7 023a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 023b c403 | | Store 0x2,0x3 023c 8407 | | Call 0x2,0x7 023d e404 | | Load 0x2,0x4 023e e006 | | Load 0x0,0x6 023f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0240 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0241 c404 | | Store 0x2,0x4 0242 00c9 | | Action Pop_Auxiliary_Loop 0243 e404 | | Load 0x2,0x4 0244 e006 | | Load 0x0,0x6 0245 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0246 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0247 6fee |o | Jump_Zero 0x236 0248 00ce | | Action Pop_Auxiliary 0249 00da | | Load_Top At_Offset_2 024a 6804 |h | Jump_Zero 0x24f 024b 4803 |H | Short_Literal 0x3 024c 00da | | Load_Top At_Offset_2 024d e00a | | Load 0x0,0xa 024e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 024f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 025c | \ | .CONST 0x025c ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0002 | | .CONST 0x0002 ; Number of locals 0253 INIT_0250: 0253 e006 | | Load 0x0,0x6 0254 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0255 02c7 | | Declare_Variable Any 0256 e5fd | | Load 0x2,-0x3 0257 e5fe | | Load 0x2,-0x2 0258 e5ff | | Load 0x2,-0x1 0259 e007 | | Load 0x0,0x7 025a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 025b a402 | | Store_Unchecked 0x2,0x2 025c BODY_0250: 025c 00d8 | | Load_Top At_Offset_0 025d e006 | | Load 0x0,0x6 025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025f 7016 |p | Jump_Nonzero 0x276 0260 00d8 | | Load_Top At_Offset_0 0261 e007 | | Load 0x0,0x7 0262 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0263 7012 |p | Jump_Nonzero 0x276 0264 e5fd | | Load 0x2,-0x3 0265 4801 |H | Short_Literal 0x1 0266 4801 |H | Short_Literal 0x1 0267 e002 | | Load 0x0,0x2 0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0269 035b | [ | Declare_Type Array,Constrained 026a 0337 | 7 | Declare_Variable Array 026b 00da | | Load_Top At_Offset_2 026c e002 | | Load 0x0,0x2 026d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 026e e002 | | Load 0x0,0x2 026f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0270 0119 | | Execute Any,Check_In_Formal_Type 0271 4801 |H | Short_Literal 0x1 0272 00da | | Load_Top At_Offset_2 0273 01d6 | | Execute Vector,Field_Write 0274 6003 |` | Indirect_Literal Discrete,0x278,{0x00000000, 0x0000888f} 0275 8219 | | Call 0x1,0x19 0276 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0277 0000 | | .XXX[0x1] 0278 0000 0000 | | .LITERAL {0x00000000, 0x0000888f} 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0285 | | .CONST 0x0285 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0002 | | .CONST 0x0002 ; Number of locals 0283 INIT_0280: 0283 e00a | | Load 0x0,0xa 0284 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0285 BODY_0280: 0285 e5fe | | Load 0x2,-0x2 0286 e5ff | | Load 0x2,-0x1 0287 e00a | | Load 0x0,0xa 0288 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0289 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 028a e5fd | | Load 0x2,-0x3 028b 00d9 | | Load_Top At_Offset_1 028c e00a | | Load 0x0,0xa 028d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 028e 4803 |H | Short_Literal 0x3 028f 00d9 | | Load_Top At_Offset_1 0290 e00a | | Load 0x0,0xa 0291 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0292 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a0 | | .CONST 0x02a0 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e006 | | Load 0x0,0x6 029c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 029d 02c7 | | Declare_Variable Any 029e 00d8 | | Load_Top At_Offset_0 029f 1c00 | | Execute_Immediate Run_Utility,0x0 02a0 BODY_0298: 02a0 4801 |H | Short_Literal 0x1 02a1 0092 0324 | $| Action Push_String_Extended,0x324 ; "<INHERIT_MODEL>" 02a3 e5ff | | Load 0x2,-0x1 02a4 e001 | | Load 0x0,0x1 02a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02a6 6807 |h | Jump_Zero 0x2ae 02a7 e5fd | | Load 0x2,-0x3 02a8 4801 |H | Short_Literal 0x1 02a9 e5fe | | Load 0x2,-0x2 02aa e007 | | Load 0x0,0x7 02ab 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 02ac c402 | | Store 0x2,0x2 02ad 7816 |x | Jump 0x2c4 02ae 4800 |H | Short_Literal 0x0 02af e5ff | | Load 0x2,-0x1 02b0 4821 |H! | Short_Literal 0x21 02b1 e001 | | Load 0x0,0x1 02b2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02b3 6807 |h | Jump_Zero 0x2bb 02b4 e5fd | | Load 0x2,-0x3 02b5 4801 |H | Short_Literal 0x1 02b6 e5ff | | Load 0x2,-0x1 02b7 e007 | | Load 0x0,0x7 02b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02b9 c402 | | Store 0x2,0x2 02ba 7809 |x | Jump 0x2c4 02bb e5fd | | Load 0x2,-0x3 02bc 4801 |H | Short_Literal 0x1 02bd 0092 0325 | %| Action Push_String_Extended,0x325 ; "!Model." 02bf e5ff | | Load 0x2,-0x1 02c0 01cc | | Execute Vector,Catenate 02c1 e007 | | Load 0x0,0x7 02c2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c3 c402 | | Store 0x2,0x2 02c4 e5fd | | Load 0x2,-0x3 02c5 00d9 | | Load_Top At_Offset_1 02c6 e007 | | Load 0x0,0x7 02c7 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02c8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02db | | .CONST 0x02db ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 e5fd | | Load 0x2,-0x3 02d4 00d8 | | Load_Top At_Offset_0 02d5 e403 | | Load 0x2,0x3 02d6 e007 | | Load 0x0,0x7 02d7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02d8 e403 | | Load 0x2,0x3 02d9 e00b | | Load 0x0,0xb 02da 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02db BODY_02d0: 02db e403 | | Load 0x2,0x3 02dc e5ff | | Load 0x2,-0x1 02dd 012e | . | Execute Any,Not_Equal 02de 683a |h: | Jump_Zero 0x319 02df e5fd | | Load 0x2,-0x3 02e0 e403 | | Load 0x2,0x3 02e1 e007 | | Load 0x0,0x7 02e2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02e3 7035 |p5 | Jump_Nonzero 0x319 02e4 e5fe | | Load 0x2,-0x2 02e5 01db | | Execute Vector,Length 02e6 6832 |h2 | Jump_Zero 0x319 02e7 4801 |H | Short_Literal 0x1 02e8 00d9 | | Load_Top At_Offset_1 02e9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02ea e5fe | | Load 0x2,-0x2 02eb e001 | | Load 0x0,0x1 02ec 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02ed 682b |h+ | Jump_Zero 0x319 02ee 4801 |H | Short_Literal 0x1 02ef a405 | | Store_Unchecked 0x2,0x5 02f0 4801 |H | Short_Literal 0x1 02f1 4803 |H | Short_Literal 0x3 02f2 e002 | | Load 0x0,0x2 02f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02f4 035b | [ | Declare_Type Array,Constrained 02f5 0337 | 7 | Declare_Variable Array 02f6 e5fe | | Load 0x2,-0x2 02f7 e002 | | Load 0x0,0x2 02f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f9 e002 | | Load 0x0,0x2 02fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02fb 0119 | | Execute Any,Check_In_Formal_Type 02fc 4801 |H | Short_Literal 0x1 02fd 00da | | Load_Top At_Offset_2 02fe 01d6 | | Execute Vector,Field_Write 02ff e5ff | | Load 0x2,-0x1 0300 e002 | | Load 0x0,0x2 0301 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0302 e002 | | Load 0x0,0x2 0303 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0304 0119 | | Execute Any,Check_In_Formal_Type 0305 4802 |H | Short_Literal 0x2 0306 00da | | Load_Top At_Offset_2 0307 01d6 | | Execute Vector,Field_Write 0308 e403 | | Load 0x2,0x3 0309 e002 | | Load 0x0,0x2 030a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 030b e002 | | Load 0x0,0x2 030c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030d 0119 | | Execute Any,Check_In_Formal_Type 030e 4803 |H | Short_Literal 0x3 030f 00da | | Load_Top At_Offset_2 0310 01d6 | | Execute Vector,Field_Write 0311 600a |` | Indirect_Literal Discrete,0x31c,{0x00000000, 0x00008836} 0312 e00a | | Load 0x0,0xa 0313 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0314 a406 | | Store_Unchecked 0x2,0x6 0315 e5fd | | Load 0x2,-0x3 0316 e406 | | Load 0x2,0x6 0317 e00a | | Load 0x0,0xa 0318 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0319 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031a 0000 0000 | | .XXX[0x2] 031c 0000 0000 | | .LITERAL {0x00000000, 0x00008836} 0320 ; -------------------------------------------------------------------------------------- 0320 ; STRING TABLE 0320 ; -------------------------------------------------------------------------------------- 0320 000e | | .STRTAB 0x000e->0x0327 ; ">>" 0321 000e | | .STRTAB 0x000e->0x0328 ; "<<" 0322 000e | | .STRTAB 0x000e->0x0329 ; "Rcf" 0323 000f | | .STRTAB 0x000f->0x032a ; ".@'c(Comb_View)" 0324 001c | | .STRTAB 0x001c->0x0332 ; "<INHERIT_MODEL>" 0325 0029 | ) | .STRTAB 0x0029->0x0339 ; "!Model." 0326 002e | . | .STREND 0x002e->0x033d 0327 3e3e 3c3c |>><<| .STRTAB_STRINGS 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0004 000d | | .DEBUG4 0x0004,0x000d,0x509c,0x0000,0x0001,0x0000 0346 0000 0000 | | .BLANK 0000[0xba]