|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_41c0fc
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01e8 | | .CONST 0x01e8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0058 | X | .CONST 0x0058 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4804 |H | Short_Literal 0x4 000d 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0012 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0014 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0016 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0018 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001a 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001c 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001e 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0020 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0022 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0024 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0026 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0028 00c4 | | Action Make_Default 0029 e20d | | Load 0x1,0xd 002a 4801 |H | Short_Literal 0x1 002b 00e3 | | Load_Encached Natural_Cache 002c 4801 |H | Short_Literal 0x1 002d 00e3 | | Load_Encached Natural_Cache 002e 4801 |H | Short_Literal 0x1 002f 00e3 | | Load_Encached Natural_Cache 0030 4801 |H | Short_Literal 0x1 0031 00e3 | | Load_Encached Natural_Cache 0032 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0034 4804 |H | Short_Literal 0x4 0035 4800 |H | Short_Literal 0x0 0036 4804 |H | Short_Literal 0x4 0037 4800 |H | Short_Literal 0x0 0038 4801 |H | Short_Literal 0x1 0039 031e | | Declare_Type Variant_Record,Defined,Visible 003a 4804 |H | Short_Literal 0x4 003b 00d9 | | Load_Top At_Offset_1 003c 1c08 | | Execute_Immediate Run_Utility,0x8 003d 0129 | ) | Execute Any,Make_Visible 003e c21a | | Store 0x1,0x1a 003f 00bf | | Action Accept_Activation 0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0041 00c7 | | Action Elaborate_Subprogram 0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0043 00c7 | | Action Elaborate_Subprogram 0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0045 00c7 | | Action Elaborate_Subprogram 0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0047 00c7 | | Action Elaborate_Subprogram 0048 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0049 00c7 | | Action Elaborate_Subprogram 004a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004b 00c7 | | Action Elaborate_Subprogram 004c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004d 00c7 | | Action Elaborate_Subprogram 004e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004f 00c7 | | Action Elaborate_Subprogram 0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0051 00c7 | | Action Elaborate_Subprogram 0052 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0053 00c7 | | Action Elaborate_Subprogram 0054 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0055 00c7 | | Action Elaborate_Subprogram 0056 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0057 00c7 | | Action Elaborate_Subprogram 0058 BODY_0008: 0058 00bc | | Action Signal_Activated 0059 00bb | | Action Signal_Completion 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4607 |F | Jump_Case 0x8 0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0065 7807 |x | Jump 0x6d ; case 0x1 0066 780a |x | Jump 0x71 ; case 0x2 0067 780e |x | Jump 0x76 ; case 0x3 0068 7811 |x | Jump 0x7a ; case 0x4 0069 7812 |x | Jump 0x7c ; case 0x5 006a 7813 |x | Jump 0x7e ; case 0x6 006b 7816 |x | Jump 0x82 ; case 0x7 006c 4302 |C | .XXX[0x1] 006d 00da | | Load_Top At_Offset_2 006e 0091 01b6 | | Action Push_String_Extended_Indexed,0x1b6 ; "REAL_FIELD" 0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0071 00db | | Load_Top At_Offset_3 0072 00db | | Load_Top At_Offset_3 0073 00e0 | | Load_Encached Standard_Cache 0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 00da | | Load_Top At_Offset_2 0077 00e0 | | Load_Encached Standard_Cache 0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0079 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007a 00db | | Load_Top At_Offset_3 007b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007c 00db | | Load_Top At_Offset_3 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e e20d | | Load 0x1,0xd 007f 00dc | | Load_Top At_Offset_4 0080 0267 | g | Execute Discrete,Predecessor 0081 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0082 e20d | | Load 0x1,0xd 0083 00dc | | Load_Top At_Offset_4 0084 0268 | h | Execute Discrete,Successor 0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0086 0000 0000 | | .XXX[0x2] 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 e21b | | Load 0x1,0x1b 008d 1c08 | | Execute_Immediate Run_Utility,0x8 008e 00db | | Load_Top At_Offset_3 008f 00d9 | | Load_Top At_Offset_1 0090 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0091 e5fe | | Load 0x2,-0x2 0092 016d | m | Execute Variant_Record,Structure_Write 0093 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4801 |H | Short_Literal 0x1 009c e21b | | Load 0x1,0x1b 009d 1c08 | | Execute_Immediate Run_Utility,0x8 009e 00db | | Load_Top At_Offset_3 009f 00d9 | | Load_Top At_Offset_1 00a0 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 00a1 e5fe | | Load 0x2,-0x2 00a2 016d | m | Execute Variant_Record,Structure_Write 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4803 |H | Short_Literal 0x3 00ac e21b | | Load 0x1,0x1b 00ad 1c08 | | Execute_Immediate Run_Utility,0x8 00ae 00db | | Load_Top At_Offset_3 00af 00d9 | | Load_Top At_Offset_1 00b0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 00b1 e5fe | | Load 0x2,-0x2 00b2 016d | m | Execute Variant_Record,Structure_Write 00b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4802 |H | Short_Literal 0x2 00bc e21b | | Load 0x1,0x1b 00bd 1c08 | | Execute_Immediate Run_Utility,0x8 00be 00db | | Load_Top At_Offset_3 00bf 00d9 | | Load_Top At_Offset_1 00c0 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 00c1 e5fe | | Load 0x2,-0x2 00c2 016d | m | Execute Variant_Record,Structure_Write 00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 0092 01bb | | Action Push_String_Extended,0x1bb ; "Detail : Kind : " 00cd 00db | | Load_Top At_Offset_3 00ce 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00cf e20d | | Load 0x1,0xd 00d0 011c | | Execute Any,Convert_Unchecked 00d1 1c01 | | Execute_Immediate Run_Utility,0x1 00d2 01cc | | Execute Vector,Catenate 00d3 0092 01bc | | Action Push_String_Extended,0x1bc ; " Image : " 00d5 01cc | | Execute Vector,Catenate 00d6 00db | | Load_Top At_Offset_3 00d7 8219 | | Call 0x1,0x19 00d8 01cc | | Execute Vector,Catenate 00d9 e002 | | Load 0x0,0x2 00da 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00e5 0f00 | | Execute_Immediate Equal,0x0 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00ed 0f01 | | Execute_Immediate Equal,0x1 00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00f5 0f03 | | Execute_Immediate Equal,0x3 00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00fd 0f02 | | Execute_Immediate Equal,0x2 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 8218 | | Call 0x1,0x18 0105 0e00 | | Execute_Immediate Not_Equal,0x0 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 010d 4604 |F | Jump_Case 0x5 010e 7806 |x | Jump 0x115 ; case 0x0 010f 7808 |x | Jump 0x118 ; case 0x1 0110 7815 |x | Jump 0x126 ; case 0x2 0111 7809 |x | Jump 0x11b ; case 0x3 0112 7800 |x | Jump 0x113 ; case 0x4 0113 4800 |H | Short_Literal 0x0 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 00da | | Load_Top At_Offset_2 0116 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 00da | | Load_Top At_Offset_2 0119 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 00da | | Load_Top At_Offset_2 011c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 011d 00d8 | | Load_Top At_Offset_0 011e e003 | | Load 0x0,0x3 011f 0260 | ` | Execute Discrete,In_Type 0120 7001 |p | Jump_Nonzero 0x122 0121 0801 | | Execute_Immediate Raise,0x1 0122 8004 | | Call 0x0,0x4 0123 8005 | | Call 0x0,0x5 0124 8006 | | Call 0x0,0x6 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 00da | | Load_Top At_Offset_2 0127 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0128 00d8 | | Load_Top At_Offset_0 0129 e003 | | Load 0x0,0x3 012a 0260 | ` | Execute Discrete,In_Type 012b 7001 |p | Jump_Nonzero 0x12d 012c 0801 | | Execute_Immediate Raise,0x1 012d 8004 | | Call 0x0,0x4 012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0135 4604 |F | Jump_Case 0x5 0136 7806 |x | Jump 0x13d ; case 0x0 0137 7809 |x | Jump 0x141 ; case 0x1 0138 7808 |x | Jump 0x141 ; case 0x2 0139 7803 |x | Jump 0x13d ; case 0x3 013a 7800 |x | Jump 0x13b ; case 0x4 013b 00ea | | Load_Encached Null_String_Cache 013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013d 00da | | Load_Top At_Offset_2 013e 8218 | | Call 0x1,0x18 013f 8007 | | Call 0x0,0x7 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 00da | | Load_Top At_Offset_2 0142 8218 | | Call 0x1,0x18 0143 8005 | | Call 0x0,0x5 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4609 |F | Jump_Case 0xa 014c 7809 |x | Jump 0x156 ; case 0x0 014d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 014e 782c |x, | Jump 0x17b ; case 0x2 014f 782f |x/ | Jump 0x17f ; case 0x3 0150 7864 |xd | Jump 0x1b5 ; case 0x4 0151 7863 |xc | Jump 0x1b5 ; case 0x5 0152 7832 |x2 | Jump 0x185 ; case 0x6 0153 7842 |xB | Jump 0x196 ; case 0x7 0154 7855 |xU | Jump 0x1aa ; case 0x8 0155 785b |x[ | Jump 0x1b1 ; case 0x9 0156 00da | | Load_Top At_Offset_2 0157 016c | l | Execute Variant_Record,Is_Constrained 0158 7009 |p | Jump_Nonzero 0x162 0159 00cf | | Action Mark_Auxiliary 015a 4804 |H | Short_Literal 0x4 015b e5ff | | Load 0x2,-0x1 015c 1c08 | | Execute_Immediate Run_Utility,0x8 015d 00d8 | | Load_Top At_Offset_0 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f c5ff | | Store 0x2,-0x1 0160 00ce | | Action Pop_Auxiliary 0161 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0162 00da | | Load_Top At_Offset_2 0163 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0164 4604 |F | Jump_Case 0x5 0165 7805 |x | Jump 0x16b ; case 0x0 0166 7808 |x | Jump 0x16f ; case 0x1 0167 780f |x | Jump 0x177 ; case 0x2 0168 780a |x | Jump 0x173 ; case 0x3 0169 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 016a 4302 |C | .XXX[0x1] 016b 4800 |H | Short_Literal 0x0 016c 00db | | Load_Top At_Offset_3 016d 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 016e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 016f 4800 |H | Short_Literal 0x0 0170 00db | | Load_Top At_Offset_3 0171 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0172 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0173 4800 |H | Short_Literal 0x0 0174 00db | | Load_Top At_Offset_3 0175 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0176 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0177 4800 |H | Short_Literal 0x0 0178 00db | | Load_Top At_Offset_3 0179 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 017a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 017b 4801 |H | Short_Literal 0x1 017c 4805 |H | Short_Literal 0x5 017d 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 017e 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 017f e5fd | | Load 0x2,-0x3 0180 00db | | Load_Top At_Offset_3 0181 1c07 | | Execute_Immediate Run_Utility,0x7 0182 e5fe | | Load 0x2,-0x2 0183 0306 | | Complete_Type Variant_Record,By_Renaming 0184 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0185 00db | | Load_Top At_Offset_3 0186 4604 |F | Jump_Case 0x5 0187 7806 |x | Jump 0x18e ; case 0x0 0188 7807 |x | Jump 0x190 ; case 0x1 0189 780a |x | Jump 0x194 ; case 0x2 018a 7807 |x | Jump 0x192 ; case 0x3 018b 7800 |x | Jump 0x18c ; case 0x4 018c 48ff |H | Short_Literal 0xff 018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018e 4801 |H | Short_Literal 0x1 018f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0190 4802 |H | Short_Literal 0x2 0191 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0192 4803 |H | Short_Literal 0x3 0193 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0194 4804 |H | Short_Literal 0x4 0195 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0196 00db | | Load_Top At_Offset_3 0197 e5fe | | Load 0x2,-0x2 0198 4604 |F | Jump_Case 0x5 0199 7806 |x | Jump 0x1a0 ; case 0x0 019a 7807 |x | Jump 0x1a2 ; case 0x1 019b 780a |x | Jump 0x1a6 ; case 0x2 019c 7807 |x | Jump 0x1a4 ; case 0x3 019d 7800 |x | Jump 0x19e ; case 0x4 019e 48ff |H | Short_Literal 0xff 019f 7807 |x | Jump 0x1a7 01a0 4801 |H | Short_Literal 0x1 01a1 7805 |x | Jump 0x1a7 01a2 4802 |H | Short_Literal 0x2 01a3 7803 |x | Jump 0x1a7 01a4 4803 |H | Short_Literal 0x3 01a5 7801 |x | Jump 0x1a7 01a6 4804 |H | Short_Literal 0x4 01a7 e5ff | | Load 0x2,-0x1 01a8 031b | | Declare_Type Variant_Record,Constrained 01a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01aa 00db | | Load_Top At_Offset_3 01ab e5fe | | Load 0x2,-0x2 01ac e5ff | | Load 0x2,-0x1 01ad 1c06 | | Execute_Immediate Run_Utility,0x6 01ae e5ff | | Load 0x2,-0x1 01af 02fc | | Declare_Variable Variant_Record,With_Constraint 01b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b1 4804 |H | Short_Literal 0x4 01b2 00db | | Load_Top At_Offset_3 01b3 1c07 | | Execute_Immediate Run_Utility,0x7 01b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b5 0869 | i | Execute_Immediate Raise,0x69 01b6 ; -------------------------------------------------------------------------------------- 01b6 ; STRING TABLE 01b6 ; -------------------------------------------------------------------------------------- 01b6 0010 | | .STRTAB 0x0010->0x01be ; "REAL_FIELD" 01b7 0018 | | .STRTAB 0x0018->0x01c3 ; "REAL_COMPLEMENT" 01b8 0025 | % | .STRTAB 0x0025->0x01ca ; "COMPLEMENT_GROUP" 01b9 0033 | 3 | .STRTAB 0x0033->0x01d2 ; "FIELD_GROUP" 01ba 003c | < | .STRTAB 0x003c->0x01d8 ; "UNKNOWN" 01bb 0041 | A | .STRTAB 0x0041->0x01db ; "Detail : Kind : " 01bc 004f | O | .STRTAB 0x004f->0x01e3 ; " Image : " 01bd 0056 | V | .STREND 0x0056->0x01e8 01be 5245 414c |REAL| .STRTAB_STRINGS 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug Table 01e8 ; -------------------------------------------------------------------------------------- 01e8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe6be,0x0000,0x0001,0x0010 01ee 000b 022e | .| .DBG4T 0x000b,0x022e,0x8000,0x8000 01f2 0040 0250 | @ P| .DBG4T 0x0040,0x0250,0x8000,0x0000 01f6 0063 0000 | c | .DBG4T 0x0063,0x0000,0x0005,0x0000 01fa 008b 025e | ^| .DBG4T 0x008b,0x025e,0x0001,0x0000 01fe 009b 0261 | a| .DBG4T 0x009b,0x0261,0x0001,0x0000 0202 00ab 0264 | d| .DBG4T 0x00ab,0x0264,0x0001,0x0000 0206 00bb 0267 | g| .DBG4T 0x00bb,0x0267,0x0001,0x0000 020a 00cb 026a | j| .DBG4T 0x00cb,0x026a,0x0001,0x0000 020e 00e3 026d | m| .DBG4T 0x00e3,0x026d,0x0002,0x0000 0212 00eb 0270 | p| .DBG4T 0x00eb,0x0270,0x0002,0x0000 0216 00f3 0273 | s| .DBG4T 0x00f3,0x0273,0x0002,0x0000 021a 00fb 0276 | v| .DBG4T 0x00fb,0x0276,0x0002,0x0000 021e 0103 0279 | y| .DBG4T 0x0103,0x0279,0x0002,0x0000 0222 010b 027c | || .DBG4T 0x010b,0x027c,0x0002,0x4000 0226 0133 028a | 3 | .DBG4T 0x0133,0x028a,0x0002,0x4000 022a 014b 0000 | K | .DBG4T 0x014b,0x0000,0x0005,0x0000 022e ; -------------------------------------------------------------------------------------- 022e ; Debug chain 022e ; -------------------------------------------------------------------------------------- 022e 0010 0000 | | .DBGLEN 0x0010,0x0000 0230 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x0029,0x003a 0240 0001 0003 | | .XXX[0x10] 0242 0004 0005 | | 0244 0006 0007 | | 0246 0008 0009 | | 0248 000a 000b | | 024a 000c 000d | | 024c 000e 000f | | 024e 0010 0011 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug chain 0250 ; -------------------------------------------------------------------------------------- 0250 000c 0000 | | .DBGLEN 0x000c,0x0000 0252 0040 0042 | @ B| .DBGLNO 0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056 025e ; -------------------------------------------------------------------------------------- 025e ; Debug chain 025e ; -------------------------------------------------------------------------------------- 025e 0000 0001 | | .DBGLEN 0x0000,0x0001 0260 008b | | .DBGLNO 0x008b 0261 ; -------------------------------------------------------------------------------------- 0261 ; Debug chain 0261 ; -------------------------------------------------------------------------------------- 0261 0000 0001 | | .DBGLEN 0x0000,0x0001 0263 009b | | .DBGLNO 0x009b 0264 ; -------------------------------------------------------------------------------------- 0264 ; Debug chain 0264 ; -------------------------------------------------------------------------------------- 0264 0000 0001 | | .DBGLEN 0x0000,0x0001 0266 00ab | | .DBGLNO 0x00ab 0267 ; -------------------------------------------------------------------------------------- 0267 ; Debug chain 0267 ; -------------------------------------------------------------------------------------- 0267 0000 0001 | | .DBGLEN 0x0000,0x0001 0269 00bb | | .DBGLNO 0x00bb 026a ; -------------------------------------------------------------------------------------- 026a ; Debug chain 026a ; -------------------------------------------------------------------------------------- 026a 0000 0001 | | .DBGLEN 0x0000,0x0001 026c 00cb | | .DBGLNO 0x00cb 026d ; -------------------------------------------------------------------------------------- 026d ; Debug chain 026d ; -------------------------------------------------------------------------------------- 026d 0000 0001 | | .DBGLEN 0x0000,0x0001 026f 00e3 | | .DBGLNO 0x00e3 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug chain 0270 ; -------------------------------------------------------------------------------------- 0270 0000 0001 | | .DBGLEN 0x0000,0x0001 0272 00eb | | .DBGLNO 0x00eb 0273 ; -------------------------------------------------------------------------------------- 0273 ; Debug chain 0273 ; -------------------------------------------------------------------------------------- 0273 0000 0001 | | .DBGLEN 0x0000,0x0001 0275 00f3 | | .DBGLNO 0x00f3 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0000 0001 | | .DBGLEN 0x0000,0x0001 0278 00fb | | .DBGLNO 0x00fb 0279 ; -------------------------------------------------------------------------------------- 0279 ; Debug chain 0279 ; -------------------------------------------------------------------------------------- 0279 0000 0001 | | .DBGLEN 0x0000,0x0001 027b 0103 | | .DBGLNO 0x0103 027c ; -------------------------------------------------------------------------------------- 027c ; Debug chain 027c ; -------------------------------------------------------------------------------------- 027c 0000 0006 | | .DBGLEN 0x0000,0x0006 027e 010b 0113 | | .DBGLNO 0x010b,0x0113,0x0115,0x0118,0x011b,0x0126 0284 0001 0006 | | .XXX[0x6] 0286 0002 0003 | | 0288 0004 0005 | | 028a ; -------------------------------------------------------------------------------------- 028a ; Debug chain 028a ; -------------------------------------------------------------------------------------- 028a 0000 0004 | | .DBGLEN 0x0000,0x0004 028c 0133 013b | 3 ;| .DBGLNO 0x0133,0x013b,0x013d,0x0141 0290 0001 0004 | | .XXX[0x4] 0292 0002 0003 | | 0294 0000 0000 | | .BLANK 0000[0x16c]