|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0238 | 8 | .CONST 0x0238 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4808 |H | Short_Literal 0x8 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0012 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0014 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0016 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0018 4800 |H | Short_Literal 0x0 0019 0093 0173 | s| push_full_address INIT_0170 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 038f | | Declare_Type Package,Defined,Visible 001d 0386 | | Declare_Variable Package,Visible 001e 4800 |H | Short_Literal 0x0 001f 0093 0103 | | push_full_address INIT_0100 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 038f | | Declare_Type Package,Defined,Visible 0023 0386 | | Declare_Variable Package,Visible 0024 00bf | | Action Accept_Activation 0025 4800 |H | Short_Literal 0x0 0026 4803 |H | Short_Literal 0x3 0027 00e5 | | Load_Encached Long_Integer_Cache 0028 03f8 | | Declare_Type Discrete,Constrained 0029 00e5 | | Load_Encached Long_Integer_Cache 002a 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 002b 00d8 | | Load_Top At_Offset_0 002c 0275 | u | Execute Discrete,Unary_Minus 002d 483f |H? | Short_Literal 0x3f 002e 026d | m | Execute Discrete,Exponentiate 002f 0007 | | Action Break_Optional 0030 00d8 | | Load_Top At_Offset_0 0031 0007 | | Action Break_Optional 0032 00d8 | | Load_Top At_Offset_0 0033 00d9 | | Load_Top At_Offset_1 0034 604b |`K | Indirect_Literal Discrete,0x80,{0x00ffffff, 0xffffffff} 0035 0273 | s | Execute Discrete,Plus 0036 00e5 | | Load_Encached Long_Integer_Cache 0037 03f8 | | Declare_Type Discrete,Constrained 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 00c7 | | Action Elaborate_Subprogram 003a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003b 00c7 | | Action Elaborate_Subprogram 003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003d 00c7 | | Action Elaborate_Subprogram 003e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003f 00c7 | | Action Elaborate_Subprogram 0040 e20d | | Load 0x1,0xd 0041 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0042 e002 | | Load 0x0,0x2 0043 4803 |H | Short_Literal 0x3 0044 e212 | | Load 0x1,0x12 0045 020e | | Execute Module,Augment_Imports 0046 e212 | | Load 0x1,0x12 0047 020f | | Execute Module,Activate 0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0049 00db | | Load_Top At_Offset_3 004a e002 | | Load 0x0,0x2 004b 4803 |H | Short_Literal 0x3 004c e213 | | Load 0x1,0x13 004d 020e | | Execute Module,Augment_Imports 004e e213 | | Load 0x1,0x13 004f 020f | | Execute Module,Activate 0050 BODY_0008: 0050 00bc | | Action Signal_Activated 0051 00bb | | Action Signal_Completion 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 4607 |F | Jump_Case 0x8 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7807 |x | Jump 0x65 ; case 0x1 005e 780a |x | Jump 0x69 ; case 0x2 005f 780e |x | Jump 0x6e ; case 0x3 0060 7811 |x | Jump 0x72 ; case 0x4 0061 7812 |x | Jump 0x74 ; case 0x5 0062 7813 |x | Jump 0x76 ; case 0x6 0063 7816 |x | Jump 0x7a ; case 0x7 0064 4302 |C | .XXX[0x1] 0065 00da | | Load_Top At_Offset_2 0066 0091 0202 | | Action Push_String_Extended_Indexed,0x202 ; "PREDEFINED" 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 00db | | Load_Top At_Offset_3 006b 00e0 | | Load_Encached Standard_Cache 006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 00da | | Load_Top At_Offset_2 006f 00e0 | | Load_Encached Standard_Cache 0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0072 00db | | Load_Top At_Offset_3 0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0074 00db | | Load_Top At_Offset_3 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 e20d | | Load 0x1,0xd 0077 00dc | | Load_Top At_Offset_4 0078 0267 | g | Execute Discrete,Predecessor 0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007a e20d | | Load 0x1,0xd 007b 00dc | | Load_Top At_Offset_4 007c 0268 | h | Execute Discrete,Successor 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 0000 0000 | | .XXX[0x2] 0080 00ff ffff | | .LITERAL {0x00ffffff, 0xffffffff} 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 00da | | Load_Top At_Offset_2 008c 4800 |H | Short_Literal 0x0 008d 6032 |`2 | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0000ffff} 008e 0262 | b | Execute Discrete,In_Range 008f 6802 |h | Jump_Zero 0x92 0090 4800 |H | Short_Literal 0x0 0091 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0092 00da | | Load_Top At_Offset_2 0093 6028 |`( | Indirect_Literal Discrete,0xbc,{0x00000000, 0x00010000} 0094 6023 |`# | Indirect_Literal Discrete,0xb8,{0x0000ffff, 0xffffffff} 0095 0262 | b | Execute Discrete,In_Range 0096 6816 |h | Jump_Zero 0xad 0097 00da | | Load_Top At_Offset_2 0098 49ff |I | Short_Literal 0x1ff 0099 0279 | y | Execute Discrete,And 009a 09f9 | | Execute_Immediate Binary_Scale,-0x7 009b 00d8 | | Load_Top At_Offset_0 009c e214 | | Load 0x1,0x14 009d 0260 | ` | Execute Discrete,In_Type 009e 7001 |p | Jump_Nonzero 0xa0 009f 0801 | | Execute_Immediate Raise,0x1 00a0 4603 |F | Jump_Case 0x4 00a1 7805 |x | Jump 0xa7 ; case 0x0 00a2 7806 |x | Jump 0xa9 ; case 0x1 00a3 7807 |x | Jump 0xab ; case 0x2 00a4 7800 |x | Jump 0xa5 ; case 0x3 00a5 4803 |H | Short_Literal 0x3 00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a7 4801 |H | Short_Literal 0x1 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 4802 |H | Short_Literal 0x2 00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ab 4805 |H | Short_Literal 0x5 00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ad 00da | | Load_Top At_Offset_2 00ae e218 | | Load 0x1,0x18 00af 0260 | ` | Execute Discrete,In_Type 00b0 6802 |h | Jump_Zero 0xb3 00b1 4804 |H | Short_Literal 0x4 00b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b3 4805 |H | Short_Literal 0x5 00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 0000 ffff | | .LITERAL {0x0000ffff, 0xffffffff} 00bc 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 00c0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 0910 | | Execute_Immediate Binary_Scale,0x10 00cd 4a00 |J | Short_Literal 0x200 00ce 0273 | s | Execute Discrete,Plus 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 6004 |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0000ffff} 00d4 00ca | | Action Exit_Nullary_Function 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e4 | | .CONST 0x00e4 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 00e5 | | Load_Encached Long_Integer_Cache 00e4 BODY_00e0: 00e4 00db | | Load_Top At_Offset_3 00e5 820e | | Call 0x1,0xe 00e6 0f04 | | Execute_Immediate Equal,0x4 00e7 6810 |h | Jump_Zero 0xf8 00e8 00db | | Load_Top At_Offset_3 00e9 e217 | | Load 0x1,0x17 00ea 0272 | r | Execute Discrete,Minus 00eb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00ec 00d8 | | Load_Top At_Offset_0 00ed 00d9 | | Load_Top At_Offset_1 00ee 67e9 |g | Indirect_Literal Discrete,0xd8,{0x00000000, 0x0000ffff} 00ef 0279 | y | Execute Discrete,And 00f0 0272 | r | Execute Discrete,Minus 00f1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00f2 00d8 | | Load_Top At_Offset_0 00f3 e217 | | Load 0x1,0x17 00f4 0273 | s | Execute Discrete,Plus 00f5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00f6 00d8 | | Load_Top At_Offset_0 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f8 00db | | Load_Top At_Offset_3 00f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fa 0000 0000 | | .BLANK 0000[0x6] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0114 | | .CONST 0x0114 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0010 | | .CONST 0x0010 ; Number of locals 0103 INIT_0100: 0103 4800 |H | Short_Literal 0x0 0104 604f |`O | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000ffff} 0105 00e5 | | Load_Encached Long_Integer_Cache 0106 03f9 | | Declare_Type Discrete,Constrained,Visible 0107 4800 |H | Short_Literal 0x0 0108 604b |`K | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000ffff} 0109 00e5 | | Load_Encached Long_Integer_Cache 010a 03f9 | | Declare_Type Discrete,Constrained,Visible 010b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 010d 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 010f 00bf | | Action Accept_Activation 0110 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0111 00c7 | | Action Elaborate_Subprogram 0112 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0113 00c7 | | Action Elaborate_Subprogram 0114 BODY_0100: 0114 00bc | | Action Signal_Activated 0115 00bb | | Action Signal_Completion 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011e | | .CONST 0x011e ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 00e5 | | Load_Encached Long_Integer_Cache 011d 03f1 | | Declare_Variable Discrete,With_Value 011e BODY_0118: 011e 00db | | Load_Top At_Offset_3 011f 8001 | | Call 0x0,0x1 0120 0f04 | | Execute_Immediate Equal,0x4 0121 7001 |p | Jump_Nonzero 0x123 0122 0887 | | Execute_Immediate Raise,0x87 0123 00d8 | | Load_Top At_Offset_0 0124 e002 | | Load 0x0,0x2 0125 0272 | r | Execute Discrete,Minus 0126 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0127 00d8 | | Load_Top At_Offset_0 0128 602b |`+ | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000ffff} 0129 0279 | y | Execute Discrete,And 012a 00d8 | | Load_Top At_Offset_0 012b e20e | | Load 0x1,0xe 012c 0260 | ` | Execute Discrete,In_Type 012d 7001 |p | Jump_Nonzero 0x12f 012e 0801 | | Execute_Immediate Raise,0x1 012f a5fc | | Store_Unchecked 0x2,-0x4 0130 00d8 | | Load_Top At_Offset_0 0131 09f0 | | Execute_Immediate Binary_Scale,-0x10 0132 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0133 00d8 | | Load_Top At_Offset_0 0134 601f |` | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000ffff} 0135 0279 | y | Execute Discrete,And 0136 00d8 | | Load_Top At_Offset_0 0137 e20d | | Load 0x1,0xd 0138 0260 | ` | Execute Discrete,In_Type 0139 7001 |p | Jump_Nonzero 0x13b 013a 0801 | | Execute_Immediate Raise,0x1 013b a5fd | | Store_Unchecked 0x2,-0x3 013c 00d8 | | Load_Top At_Offset_0 013d 09f0 | | Execute_Immediate Binary_Scale,-0x10 013e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 013f 00d8 | | Load_Top At_Offset_0 0140 600f |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x00ffffff} 0141 0279 | y | Execute Discrete,And 0142 00d8 | | Load_Top At_Offset_0 0143 e003 | | Load 0x0,0x3 0144 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0145 0260 | ` | Execute Discrete,In_Type 0146 7001 |p | Jump_Nonzero 0x148 0147 0801 | | Execute_Immediate Raise,0x1 0148 a5fe | | Store_Unchecked 0x2,-0x2 0149 00d8 | | Load_Top At_Offset_0 014a 09e8 | | Execute_Immediate Binary_Scale,-0x18 014b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 014c 00d8 | | Load_Top At_Offset_0 014d 6801 |h | Jump_Zero 0x14f 014e 0887 | | Execute_Immediate Raise,0x87 014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0150 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff} 0154 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0166 | f | .CONST 0x0166 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e5fd | | Load 0x2,-0x3 015c e5fe | | Load 0x2,-0x2 015d 0910 | | Execute_Immediate Binary_Scale,0x10 015e 0273 | s | Execute Discrete,Plus 015f 00db | | Load_Top At_Offset_3 0160 0920 | | Execute_Immediate Binary_Scale,0x20 0161 0273 | s | Execute Discrete,Plus 0162 e002 | | Load 0x0,0x2 0163 0273 | s | Execute Discrete,Plus 0164 00e5 | | Load_Encached Long_Integer_Cache 0165 03f1 | | Declare_Variable Discrete,With_Value 0166 BODY_0158: 0166 00d8 | | Load_Top At_Offset_0 0167 8001 | | Call 0x0,0x1 0168 0f04 | | Execute_Immediate Equal,0x4 0169 7001 |p | Jump_Nonzero 0x16b 016a 0887 | | Execute_Immediate Raise,0x87 016b 00d8 | | Load_Top At_Offset_0 016c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0188 | | .CONST 0x0188 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0011 | | .CONST 0x0011 ; Number of locals 0173 INIT_0170: 0173 4800 |H | Short_Literal 0x0 0174 6067 |`g | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00003fff} 0175 00e5 | | Load_Encached Long_Integer_Cache 0176 03f9 | | Declare_Type Discrete,Constrained,Visible 0177 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0179 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 017b 00bf | | Action Accept_Activation 017c 4801 |H | Short_Literal 0x1 017d 4801 |H | Short_Literal 0x1 017e 00e1 | | Load_Encached Boolean_Cache 017f 03f8 | | Declare_Type Discrete,Constrained 0180 4802 |H | Short_Literal 0x2 0181 4803 |H | Short_Literal 0x3 0182 e001 | | Load 0x0,0x1 0183 03f8 | | Declare_Type Discrete,Constrained 0184 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0185 00c7 | | Action Elaborate_Subprogram 0186 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0187 00c7 | | Action Elaborate_Subprogram 0188 BODY_0170: 0188 00bc | | Action Signal_Activated 0189 00bb | | Action Signal_Completion 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 019a | | .CONST 0x019a ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0005 | | .CONST 0x0005 ; Number of locals 0193 INIT_0190: 0193 e210 | | Load 0x1,0x10 0194 0007 | | Action Break_Optional 0195 00db | | Load_Top At_Offset_3 0196 00e5 | | Load_Encached Long_Integer_Cache 0197 03f1 | | Declare_Variable Discrete,With_Value 0198 00e5 | | Load_Encached Long_Integer_Cache 0199 03e9 | | Declare_Variable Discrete,Duplicate 019a BODY_0190: 019a e5ff | | Load 0x2,-0x1 019b 8002 | | Call 0x0,0x2 019c e211 | | Load 0x1,0x11 019d 0260 | ` | Execute Discrete,In_Type 019e 7001 |p | Jump_Nonzero 0x1a0 019f 0887 | | Execute_Immediate Raise,0x87 01a0 00da | | Load_Top At_Offset_2 01a1 487f |H | Short_Literal 0x7f 01a2 0279 | y | Execute Discrete,And 01a3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01a4 00da | | Load_Top At_Offset_2 01a5 09f9 | | Execute_Immediate Binary_Scale,-0x7 01a6 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01a7 00da | | Load_Top At_Offset_2 01a8 4801 |H | Short_Literal 0x1 01a9 0279 | y | Execute Discrete,And 01aa 00d8 | | Load_Top At_Offset_0 01ab 00e1 | | Load_Encached Boolean_Cache 01ac 0260 | ` | Execute Discrete,In_Type 01ad 7001 |p | Jump_Nonzero 0x1af 01ae 0801 | | Execute_Immediate Raise,0x1 01af c402 | | Store 0x2,0x2 01b0 00da | | Load_Top At_Offset_2 01b1 09ff | | Execute_Immediate Binary_Scale,-0x1 01b2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01b3 00da | | Load_Top At_Offset_2 01b4 4801 |H | Short_Literal 0x1 01b5 0279 | y | Execute Discrete,And 01b6 00d8 | | Load_Top At_Offset_0 01b7 00e1 | | Load_Encached Boolean_Cache 01b8 0260 | ` | Execute Discrete,In_Type 01b9 7001 |p | Jump_Nonzero 0x1bb 01ba 0801 | | Execute_Immediate Raise,0x1 01bb a5fc | | Store_Unchecked 0x2,-0x4 01bc 00da | | Load_Top At_Offset_2 01bd 09ff | | Execute_Immediate Binary_Scale,-0x1 01be 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01bf 00da | | Load_Top At_Offset_2 01c0 487f |H | Short_Literal 0x7f 01c1 0279 | y | Execute Discrete,And 01c2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01c3 00da | | Load_Top At_Offset_2 01c4 09f9 | | Execute_Immediate Binary_Scale,-0x7 01c5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01c6 00d8 | | Load_Top At_Offset_0 01c7 0907 | | Execute_Immediate Binary_Scale,0x7 01c8 00da | | Load_Top At_Offset_2 01c9 0273 | s | Execute Discrete,Plus 01ca 00d8 | | Load_Top At_Offset_0 01cb e20d | | Load 0x1,0xd 01cc 0260 | ` | Execute Discrete,In_Type 01cd 7001 |p | Jump_Nonzero 0x1cf 01ce 0801 | | Execute_Immediate Raise,0x1 01cf a5fd | | Store_Unchecked 0x2,-0x3 01d0 00da | | Load_Top At_Offset_2 01d1 00d8 | | Load_Top At_Offset_0 01d2 e003 | | Load 0x0,0x3 01d3 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01d4 0260 | ` | Execute Discrete,In_Type 01d5 7001 |p | Jump_Nonzero 0x1d7 01d6 0801 | | Execute_Immediate Raise,0x1 01d7 a5fe | | Store_Unchecked 0x2,-0x2 01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d9 0000 0000 | | .XXX[0x3] 01db 0000 | | 01dc 0000 0000 | | .LITERAL {0x00000000, 0x00003fff} 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01fa | | .CONST 0x01fa ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0004 | | .CONST 0x0004 ; Number of locals 01e3 INIT_01e0: 01e3 00db | | Load_Top At_Offset_3 01e4 09f9 | | Execute_Immediate Binary_Scale,-0x7 01e5 00e5 | | Load_Encached Long_Integer_Cache 01e6 03f1 | | Declare_Variable Discrete,With_Value 01e7 e5fe | | Load 0x2,-0x2 01e8 487f |H | Short_Literal 0x7f 01e9 0279 | y | Execute Discrete,And 01ea 00e5 | | Load_Encached Long_Integer_Cache 01eb 03f1 | | Declare_Variable Discrete,With_Value 01ec e5ff | | Load 0x2,-0x1 01ed 0910 | | Execute_Immediate Binary_Scale,0x10 01ee 00da | | Load_Top At_Offset_2 01ef 0909 | | Execute_Immediate Binary_Scale,0x9 01f0 0273 | s | Execute Discrete,Plus 01f1 e5fd | | Load 0x2,-0x3 01f2 0908 | | Execute_Immediate Binary_Scale,0x8 01f3 0273 | s | Execute Discrete,Plus 01f4 4880 |H | Short_Literal 0x80 01f5 0273 | s | Execute Discrete,Plus 01f6 00d9 | | Load_Top At_Offset_1 01f7 0273 | s | Execute Discrete,Plus 01f8 00e5 | | Load_Encached Long_Integer_Cache 01f9 03f1 | | Declare_Variable Discrete,With_Value 01fa BODY_01e0: 01fa 00d8 | | Load_Top At_Offset_0 01fb 8002 | | Call 0x0,0x2 01fc e211 | | Load 0x1,0x11 01fd 0260 | ` | Execute Discrete,In_Type 01fe 7001 |p | Jump_Nonzero 0x200 01ff 0887 | | Execute_Immediate Raise,0x87 0200 00d8 | | Load_Top At_Offset_0 0201 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0202 ; -------------------------------------------------------------------------------------- 0202 ; STRING TABLE 0202 ; -------------------------------------------------------------------------------------- 0202 0014 | | .STRTAB 0x0014->0x020c ; "PREDEFINED" 0203 001c | | .STRTAB 0x001c->0x0211 ; "MV_DEFINED" 0204 0024 | $ | .STRTAB 0x0024->0x0216 ; "GAMMA" 0205 0027 | ' | .STRTAB 0x0027->0x0218 ; "ARCHIVED_GAMMA" 0206 0033 | 3 | .STRTAB 0x0033->0x021f ; "EPSILON" 0207 0038 | 8 | .STRTAB 0x0038->0x0223 ; "ILLEGAL" 0208 003d | = | .STRTAB 0x003d->0x0226 ; "SPARE_6" 0209 0042 | B | .STRTAB 0x0042->0x022a ; "SPARE_7" 020a 0047 | G | .STRTAB 0x0047->0x022d ; "SPARE_8" 020b 004c | L | .STREND 0x004c->0x0231 020c 5052 4544 |PRED| .STRTAB_STRINGS 0231 0000 0000 | | .BLANK 0000[0x7] 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 000d | | .DEBUG4 0x0004,0x000d,0x6ea1,0x0000,0x0001,0x0000 023e 18cc e0c0 | | .XXX[0x1c2] 0240 80cc e508 | | 0242 cce0 c080 | | 0244 c4e5 08cc | | 0246 c0c0 80c4 | | 0248 e508 ccc0 | | 024a c080 c4e5 | | 024c 08cc c0c0 | | 024e 80c4 e508 | | 0250 ccc0 c028 | (| 0252 80c4 e508 | | 0254 ccc0 c080 | | 0256 c4e5 08cc | | 0258 c0c0 80c4 | | 025a e4c4 ccc0 | | 025c c080 c508 | | 025e c508 c0c0 | | 0260 80c1 18c5 | | 0262 14c0 c080 | | 0264 c118 c514 | | 0266 c0c0 80c1 | | 0268 14c1 14c0 | | 026a c0f8 2941 | )A| 026c 6131 0c81 |a1 | 026e 4940 28c4 |I@( | 0270 e0cc cc80 | | 0272 c4dc d8cc | | 0274 8161 6481 | ad | 0276 18d4 cca1 | | 0278 5d4c a54c |]L L| 027a 80c4 c881 | | 027c e081 18d8 | | 027e a185 d1d1 | | 0280 c9a5 89d5 | | 0282 d194 a54c | L| 0284 80c4 cc81 | | 0286 e0a1 dda5 | | 0288 b1b0 a54c | L| 028a 80c4 cc81 | | 028c e0a1 8994 | | 028e a54c 80c4 | L | 0290 c881 e080 | | 0292 2918 d4cc |) | 0294 a119 0531 | 1| 0296 4d14 a54c |M L| 0298 80d4 c081 | | 029a e480 ccc8 | | 029c dc81 6081 | ` | 029e 18d8 a1a5 | | 02a0 b8a5 4c80 | L | 02a2 c8c0 81e0 | | 02a4 a1a5 b5c1 | | 02a6 b195 b595 | | 02a8 b9d1 85d1 | | 02aa a5bd b9cc | | 02ac a54c 80c8 | L | 02ae c081 e028 | (| 02b0 a18d bdb9 | | 02b2 99bd c9b5 | | 02b4 a5b9 9ca5 | | 02b6 4c80 c8c0 |L | 02b8 81e0 a1d1 | | 02ba bca5 4c80 | L | 02bc c8c0 81e0 | | 02be a1d1 a194 | | 02c0 a54c 80c8 | L | 02c2 c081 e0a1 | | 02c4 89a5 b991 | | 02c6 a5b9 9cb0 | | 02c8 a54c 80c8 | L | 02ca c881 e0a1 | | 02cc dda1 a58d | | 02ce a0a5 4c80 | L | 02d0 c8c0 81e0 | | 02d2 28a1 85b1 |( | 02d4 b1bd ddcc | | 02d6 a54c 80c8 | L | 02d8 c081 e0a1 | | 02da d1a1 95b4 | | 02dc a54c 80c8 | L | 02de c081 e0a1 | | 02e0 d1bc a54c | L| 02e2 80c8 c081 | | 02e4 e0a1 9195 | | 02e6 b1a5 d995 | | 02e8 c8a5 4c80 | L | 02ea c8c0 81e0 | | 02ec a185 b8a5 | | 02ee 4c80 c8c0 |L | 02f0 81e0 a1a5 | | 02f2 b8a5 4c28 | L(| 02f4 a170 c0c4 | p | 02f6 d1b9 a5d1 | | 02f8 e4a5 4c80 | L | 02fa c8c0 81e0 | | 02fc a1a5 b9cd | | 02fe d195 8590 | | 0300 a54c 80c8 | L | 0302 c081 e0a1 | | 0304 bd98 a54c | L| 0306 80c8 c081 | | 0308 e0a1 c985 | | 030a a5cd a5b9 | | 030c 9ca5 4c80 | L | 030e c8c0 81e0 | | 0310 a185 b8a5 | | 0312 4c80 d0e4 |L | 0314 81e4 8028 | (| 0316 ccc8 dc81 | | 0318 60a1 95e1 |` | 031a 8d95 c1d1 | | 031c a5bd b8a5 | | 031e 4c80 c4d0 |L | 0320 81e0 a1dd | | 0322 a195 b8a5 | | 0324 4c80 c4cc |L | 0326 81e0 a1bd | | 0328 d995 c970 | p| 032a c0c4 d5bd | | 032c dca5 4c80 | L | 032e c4cc 81e0 | | 0330 a1bd 8d8d | | 0332 d5c9 cca5 | | 0334 4c80 c4cc |L | 0336 81e0 28a1 | ( | 0338 70a1 85b9 |p | 033a 90a5 4c80 | L | 033c c4cc 81e0 | | 033e a185 b1cd | | 0340 bca5 4c80 | L | 0342 c4d0 81e0 | | 0344 a1dd a195 | | 0346 b8a5 4c80 | L | 0348 c4cc 81e0 | | 034a a191 a5d9 | | 034c a5cd a5bd | | 034e b8a5 4c80 | L | 0350 c4d0 81e0 | | 0352 a189 e4a5 | | 0354 4c80 c4d0 |L | 0356 81e0 28a1 | ( | 0358 e995 c9bc | | 035a a54c 80c4 | L | 035c d081 e0a1 | | 035e bd8d 8dd5 | | 0360 c9cc b0a5 | | 0362 4c80 c4d0 |L | 0364 81e0 a1d1 | | 0366 a1bd d59d | | 0368 a0a5 4c80 | L | 036a c4d0 81e0 | | 036c a1d1 a1a5 | | 036e cca5 4c80 | L | 0370 c4cc 81e0 | | 0372 a1b5 a59d | | 0374 a1d0 a54c | L| 0376 80c4 d081 | | 0378 e028 a1c9 | ( | 037a 95c5 d5a5 | | 037c c994 a54c | L| 037e 80c4 d081 | | 0380 e0a1 84a5 | | 0382 4c80 c4cc |L | 0384 81e0 a18d | | 0386 b185 c9a5 | | 0388 70c0 c4d1 |p | 038a 8d85 d1a5 | | 038c bdb9 70a4 | p | 038e b8a5 4c80 | L | 0390 d4c0 81e4 | | 0392 80cc c8dc | | 0394 8160 8118 | ` | 0396 d4cc 28a1 | ( | 0398 1d15 3915 | 9 | 039a 4925 0d7d |I% }| 039c 1531 1535 | 1 5| 039e 1539 5105 | 9Q | 03a0 4965 7d19 |Ie} | 03a2 5539 0d51 |U9 Q| 03a4 253d 394c |%=9L| 03a6 a54c 80c4 | L | 03a8 d081 e081 | | 03aa 18d8 a1a5 | | 03ac cca5 4c80 | L | 03ae c8c0 81e0 | | 03b0 a1dd 95b1 | | 03b2 b0a5 4c80 | L | 03b4 c8c0 81e0 | | 03b6 28a1 c1bd |( | 03b8 a5cd 9590 | | 03ba a54c 80c8 | L | 03bc c081 e0a1 | | 03be d1bc a54c | L| 03c0 80c8 c081 | | 03c2 e0a1 95e1 | | 03c4 c1b1 bda5 | | 03c6 d0a5 4c80 | L | 03c8 c8c0 81e0 | | 03ca a1a5 b970 | p| 03cc c0c4 d1b9 | | 03ce a5d1 a595 | | 03d0 cca5 4c80 | L | 03d2 c8c0 81e0 | | 03d4 a1a5 b8a5 | | 03d6 4c80 28c8 |L ( | 03d8 c081 e0a1 | | 03da 8d85 cd95 | | 03dc cca5 4c80 | L | 03de c8c0 81e0 | | 03e0 a1bd 98a5 | | 03e2 4c80 c8c0 |L | 03e4 81e0 a1bd | | 03e6 d995 c970 | p| 03e8 c0c4 d5bd | | 03ea dcb0 a54c | L| 03ec 80c8 c881 | | 03ee e0a1 a598 | | 03f0 a54c 80c8 | L | 03f2 c081 e0a1 | | 03f4 85b9 90a5 | | 03f6 4c80 c8c0 |L | 03f8 81e0 28a1 | ( | 03fa dda1 95b8 | | 03fc a54c 80c8 | L | 03fe c081 e0a1 | |