|
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_03bcfe
└─⟦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 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 0000 0000 | | .XXX[0x3] 0240 0000 | | 0241 170e | | .XXX[0x1] 0242 0000 0000 | | .BLANK 0000[0x5] 0247 13fa 8000 | | .XXX[0x2] 0249 0000 0000 | | .BLANK 0000[0xe] 0257 146b | k | .XXX[0x1] 0258 0000 0000 | | .BLANK 0000[0xb] 0263 162d | - | .XXX[0x1] 0264 0000 0000 | | .BLANK 0000[0x4] 0268 38ed e63f |8 ?| .XXX[0x23] 026a 86a1 f73b | ;| 026c 0000 03a0 | | 026e 8000 0040 | @| 0270 0000 1000 | | 0272 0000 13fa | | 0274 c000 01a0 | | 0276 4000 0000 |@ | 0278 0000 0000 | | 027a 003a 0800 | : | 027c 003f a800 | ? | 027e 003f a800 | ? | 0280 001a 0400 | | 0282 0000 0002 | | 0284 6980 0006 |i | 0286 7e00 0003 |~ | 0288 a080 0003 | | 028a a080 | | 028b 0000 0000 | | .BLANK 0000[0x44] 02cf 0008 0000 | | .XXX[0x131] 02d1 3408 0190 |4 | 02d3 0000 07d7 | | 02d5 0000 002a | *| 02d7 214d 4143 |!MAC| 02d9 4849 4e45 |HINE| 02db 2e44 4653 |.DFS| 02dd 2e52 4556 |.REV| 02df 335f 305f |3_0_| 02e1 5350 4543 |SPEC| 02e3 2e55 4e49 |.UNI| 02e5 5453 2e56 |TS.V| 02e7 4653 4c4f |FSLO| 02e9 4727 5350 |G'SP| 02eb 4543 8000 |EC | 02ed 0340 8008 | @ | 02ef 0000 0000 | | 02f1 1000 0000 | | 02f3 6564 6534 |ede4| 02f5 c4f4 7000 | p | 02f7 0800 0034 | 4| 02f9 0801 f000 | | 02fb 0007 cb00 | | 02fd 0000 3621 | 6!| 02ff 4d41 4348 |MACH| 0301 494e 452e |INE.| 0303 4446 532e |DFS.| 0305 5245 5633 |REV3| 0307 5f30 5f53 |_0_S| 0309 5045 432e |PEC.| 030b 554e 4954 |UNIT| 030d 532e 4c4f |S.LO| 030f 475f 5052 |G_PR| 0311 4556 494f |EVIO| 0313 5553 5f43 |US_C| 0315 5241 5348 |RASH| 0317 2753 5045 |'SPE| 0319 4380 0003 |C | 031b 4080 0d00 |@ | 031d 0000 0010 | | 031f 0000 0124 | $| 0321 c4f4 75f5 | u | 0323 0524 5564 | $Ud| 0325 94f5 5535 | U5| 0327 f435 2415 | 5$ | 0329 3488 0000 |4 | 032b 3408 01c8 |4 | 032d 0000 07d0 | | 032f 0000 0031 | 1| 0331 214d 4143 |!MAC| 0333 4849 4e45 |HINE| 0335 2e44 4653 |.DFS| 0337 2e52 4556 |.REV| 0339 335f 305f |3_0_| 033b 5350 4543 |SPEC| 033d 2e55 4e49 |.UNI| 033f 5453 2e49 |TS.I| 0341 4e53 5441 |NSTA| 0343 4c4c 5f54 |LL_T| 0345 4f4f 4c53 |OOLS| 0347 2753 5045 |'SPE| 0349 4380 0003 |C | 034b 4080 0a80 |@ | 034d 0000 0010 | | 034f 0000 00d4 | | 0351 94e5 3544 | 5D| 0353 14c4 c5f5 | | 0355 44f4 f4c5 |D | 0357 3800 0034 |8 4| 0359 0801 9800 | | 035b 0007 d600 | | 035d 0000 2b21 | +!| 035f 4d41 4348 |MACH| 0361 494e 452e |INE.| 0363 4446 532e |DFS.| 0365 5245 5633 |REV3| 0367 5f30 5f53 |_0_S| 0369 5045 432e |PEC.| 036b 554e 4954 |UNIT| 036d 532e 4653 |S.FS| 036f 5459 5045 |TYPE| 0371 5327 5350 |S'SP| 0373 4543 8000 |EC | 0375 0340 8008 | @ | 0377 0000 0000 | | 0379 1000 0000 | | 037b 7465 3545 |te5E| 037d 9504 5530 | U0| 037f 0800 0034 | 4| 0381 0801 a000 | | 0383 0007 d500 | | 0385 0000 2c21 | ,!| 0387 4d41 4348 |MACH| 0389 494e 452e |INE.| 038b 4446 532e |DFS.| 038d 5245 5633 |REV3| 038f 5f30 5f53 |_0_S| 0391 5045 432e |PEC.| 0393 554e 4954 |UNIT| 0395 532e 4653 |S.FS| 0397 4c41 4245 |LABE| 0399 4c53 2753 |LS'S| 039b 5045 4380 |PEC | 039d 0003 4080 | @ | 039f 0800 0000 | | 03a1 0010 0000 | | 03a3 0084 6534 | e4| 03a5 c414 2454 | $T| 03a7 c538 0000 | 8 | 03a9 3408 0178 |4 x| 03ab 0000 07da | | 03ad 0000 0027 | '| 03af 214d 4143 |!MAC| 03b1 4849 4e45 |HINE| 03b3 2e44 4653 |.DFS| 03b5 2e52 4556 |.REV| 03b7 335f 305f |3_0_| 03b9 5350 4543 |SPEC| 03bb 2e55 4e49 |.UNI| 03bd 5453 2e44 |TS.D| 03bf 4653 2753 |FS'S| 03c1 5045 4380 |PEC | 03c3 0003 4080 | @ | 03c5 0800 0000 | | 03c7 0010 0000 | | 03c9 0034 4465 | 4De| 03cb 3000 0000 |0 | 03cd 0008 0000 | | 03cf 3408 0178 |4 x| 03d1 0000 07da | | 03d3 0000 0027 | '| 03d5 214d 4143 |!MAC| 03d7 4849 4e45 |HINE| 03d9 2e44 4653 |.DFS| 03db 2e52 4556 |.REV| 03dd 335f 305f |3_0_| 03df 5350 4543 |SPEC| 03e1 2e55 4e49 |.UNI| 03e3 5453 2e42 |TS.B| 03e5 4653 2753 |FS'S| 03e7 5045 4380 |PEC | 03e9 0003 4080 | @ | 03eb 0800 0000 | | 03ed 0010 0000 | | 03ef 0034 2465 | 4$e| 03f1 3000 0000 |0 | 03f3 0008 0000 | | 03f5 3408 01a0 |4 | 03f7 0000 07d5 | | 03f9 0000 002c | ,| 03fb 214d 4143 |!MAC| 03fd 4849 4e45 |HINE| 03ff 2e44 |.D |