|
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_03c0fe
└─⟦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 | | .BLANK 0000[0x1c2]