|
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_35b0c5
└─⟦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 01a8 | | .CONST 0x01a8 ; 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 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4804 |H | Short_Literal 0x4 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0014 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0018 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 001a 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001e 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0020 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0022 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0024 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0026 00c4 | | Action Make_Default 0027 e20d | | Load 0x1,0xd 0028 4801 |H | Short_Literal 0x1 0029 00e3 | | Load_Encached Natural_Cache 002a 4801 |H | Short_Literal 0x1 002b 00e3 | | Load_Encached Natural_Cache 002c 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 002e 4802 |H | Short_Literal 0x2 002f 4800 |H | Short_Literal 0x0 0030 4802 |H | Short_Literal 0x2 0031 4800 |H | Short_Literal 0x0 0032 4801 |H | Short_Literal 0x1 0033 031e | | Declare_Type Variant_Record,Defined,Visible 0034 4804 |H | Short_Literal 0x4 0035 00d9 | | Load_Top At_Offset_1 0036 1c08 | | Execute_Immediate Run_Utility,0x8 0037 0129 | ) | Execute Any,Make_Visible 0038 c219 | | Store 0x1,0x19 0039 00bf | | Action Accept_Activation 003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003b 00c7 | | Action Elaborate_Subprogram 003c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003d 00c7 | | Action Elaborate_Subprogram 003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003f 00c7 | | Action Elaborate_Subprogram 0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0041 00c7 | | Action Elaborate_Subprogram 0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0043 00c7 | | Action Elaborate_Subprogram 0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0045 00c7 | | Action Elaborate_Subprogram 0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0047 00c7 | | Action Elaborate_Subprogram 0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0049 00c7 | | Action Elaborate_Subprogram 004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004b 00c7 | | Action Elaborate_Subprogram 004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004d 00c7 | | Action Elaborate_Subprogram 004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004f 00c7 | | Action Elaborate_Subprogram 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 0186 | | Action Push_String_Extended_Indexed,0x186 ; "REAL" 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 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4800 |H | Short_Literal 0x0 0084 e21a | | Load 0x1,0x1a 0085 1c08 | | Execute_Immediate Run_Utility,0x8 0086 00db | | Load_Top At_Offset_3 0087 00d9 | | Load_Top At_Offset_1 0088 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0089 e5fe | | Load 0x2,-0x2 008a 016d | m | Execute Variant_Record,Structure_Write 008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 0094 e21a | | Load 0x1,0x1a 0095 1c08 | | Execute_Immediate Run_Utility,0x8 0096 00db | | Load_Top At_Offset_3 0097 00d9 | | Load_Top At_Offset_1 0098 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0099 e5fe | | Load 0x2,-0x2 009a 016d | m | Execute Variant_Record,Structure_Write 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4802 |H | Short_Literal 0x2 00a4 e21a | | Load 0x1,0x1a 00a5 1c08 | | Execute_Immediate Run_Utility,0x8 00a6 00db | | Load_Top At_Offset_3 00a7 016d | m | Execute Variant_Record,Structure_Write 00a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4803 |H | Short_Literal 0x3 00b4 e21a | | Load 0x1,0x1a 00b5 1c08 | | Execute_Immediate Run_Utility,0x8 00b6 00db | | Load_Top At_Offset_3 00b7 016d | m | Execute Variant_Record,Structure_Write 00b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 0092 018b | | Action Push_String_Extended,0x18b ; "Objet : Kind : " 00c5 00db | | Load_Top At_Offset_3 00c6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00c7 e20d | | Load 0x1,0xd 00c8 011c | | Execute Any,Convert_Unchecked 00c9 1c01 | | Execute_Immediate Run_Utility,0x1 00ca 01cc | | Execute Vector,Catenate 00cb 0092 018c | | Action Push_String_Extended,0x18c ; " Image : " 00cd 01cc | | Execute Vector,Catenate 00ce 00db | | Load_Top At_Offset_3 00cf 8218 | | Call 0x1,0x18 00d0 01cc | | Execute Vector,Catenate 00d1 e002 | | Load 0x0,0x2 00d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00dd 0f00 | | Execute_Immediate Equal,0x0 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 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 0f01 | | Execute_Immediate Equal,0x1 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 0f02 | | Execute_Immediate Equal,0x2 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 4604 |F | Jump_Case 0x5 00fe 7806 |x | Jump 0x105 ; case 0x0 00ff 7808 |x | Jump 0x108 ; case 0x1 0100 7812 |x | Jump 0x113 ; case 0x2 0101 780f |x | Jump 0x111 ; case 0x3 0102 7800 |x | Jump 0x103 ; case 0x4 0103 4800 |H | Short_Literal 0x0 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 00da | | Load_Top At_Offset_2 0106 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0108 00da | | Load_Top At_Offset_2 0109 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 010a 00d8 | | Load_Top At_Offset_0 010b e003 | | Load 0x0,0x3 010c 0260 | ` | Execute Discrete,In_Type 010d 7001 |p | Jump_Nonzero 0x10f 010e 0801 | | Execute_Immediate Raise,0x1 010f 8004 | | Call 0x0,0x4 0110 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0111 8005 | | Call 0x0,0x5 0112 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0113 8006 | | Call 0x0,0x6 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 011d 4800 |H | Short_Literal 0x0 011e 4803 |H | Short_Literal 0x3 011f 0262 | b | Execute Discrete,In_Range 0120 7002 |p | Jump_Nonzero 0x123 0121 00ea | | Load_Encached Null_String_Cache 0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0123 00da | | Load_Top At_Offset_2 0124 8217 | | Call 0x1,0x17 0125 8007 | | Call 0x0,0x7 0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 4609 |F | Jump_Case 0xa 012c 7809 |x | Jump 0x136 ; case 0x0 012d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 012e 7824 |x$ | Jump 0x153 ; case 0x2 012f 7827 |x' | Jump 0x157 ; case 0x3 0130 7854 |xT | Jump 0x185 ; case 0x4 0131 7853 |xS | Jump 0x185 ; case 0x5 0132 782a |x* | Jump 0x15d ; case 0x6 0133 7836 |x6 | Jump 0x16a ; case 0x7 0134 7845 |xE | Jump 0x17a ; case 0x8 0135 784b |xK | Jump 0x181 ; case 0x9 0136 00da | | Load_Top At_Offset_2 0137 016c | l | Execute Variant_Record,Is_Constrained 0138 7009 |p | Jump_Nonzero 0x142 0139 00cf | | Action Mark_Auxiliary 013a 4804 |H | Short_Literal 0x4 013b e5ff | | Load 0x2,-0x1 013c 1c08 | | Execute_Immediate Run_Utility,0x8 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f c5ff | | Store 0x2,-0x1 0140 00ce | | Action Pop_Auxiliary 0141 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0142 00da | | Load_Top At_Offset_2 0143 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0144 4604 |F | Jump_Case 0x5 0145 7805 |x | Jump 0x14b ; case 0x0 0146 7808 |x | Jump 0x14f ; case 0x1 0147 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0148 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0149 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 014a 4302 |C | .XXX[0x1] 014b 4800 |H | Short_Literal 0x0 014c 00db | | Load_Top At_Offset_3 014d 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 014e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 014f 4800 |H | Short_Literal 0x0 0150 00db | | Load_Top At_Offset_3 0151 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0152 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0153 4801 |H | Short_Literal 0x1 0154 4803 |H | Short_Literal 0x3 0155 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0156 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0157 e5fd | | Load 0x2,-0x3 0158 00db | | Load_Top At_Offset_3 0159 1c07 | | Execute_Immediate Run_Utility,0x7 015a e5fe | | Load 0x2,-0x2 015b 0306 | | Complete_Type Variant_Record,By_Renaming 015c 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 015d 00db | | Load_Top At_Offset_3 015e 4604 |F | Jump_Case 0x5 015f 7806 |x | Jump 0x166 ; case 0x0 0160 7807 |x | Jump 0x168 ; case 0x1 0161 7802 |x | Jump 0x164 ; case 0x2 0162 7801 |x | Jump 0x164 ; case 0x3 0163 7800 |x | Jump 0x164 ; case 0x4 0164 48ff |H | Short_Literal 0xff 0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0166 4801 |H | Short_Literal 0x1 0167 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0168 4802 |H | Short_Literal 0x2 0169 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016a 00db | | Load_Top At_Offset_3 016b e5fe | | Load 0x2,-0x2 016c 4604 |F | Jump_Case 0x5 016d 7806 |x | Jump 0x174 ; case 0x0 016e 7807 |x | Jump 0x176 ; case 0x1 016f 7802 |x | Jump 0x172 ; case 0x2 0170 7801 |x | Jump 0x172 ; case 0x3 0171 7800 |x | Jump 0x172 ; case 0x4 0172 48ff |H | Short_Literal 0xff 0173 7803 |x | Jump 0x177 0174 4801 |H | Short_Literal 0x1 0175 7801 |x | Jump 0x177 0176 4802 |H | Short_Literal 0x2 0177 e5ff | | Load 0x2,-0x1 0178 031b | | Declare_Type Variant_Record,Constrained 0179 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017a 00db | | Load_Top At_Offset_3 017b e5fe | | Load 0x2,-0x2 017c e5ff | | Load 0x2,-0x1 017d 1c06 | | Execute_Immediate Run_Utility,0x6 017e e5ff | | Load 0x2,-0x1 017f 02fc | | Declare_Variable Variant_Record,With_Constraint 0180 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0181 4804 |H | Short_Literal 0x4 0182 00db | | Load_Top At_Offset_3 0183 1c07 | | Execute_Immediate Run_Utility,0x7 0184 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0185 0869 | i | Execute_Immediate Raise,0x69 0186 ; -------------------------------------------------------------------------------------- 0186 ; STRING TABLE 0186 ; -------------------------------------------------------------------------------------- 0186 0010 | | .STRTAB 0x0010->0x018e ; "REAL" 0187 0012 | | .STRTAB 0x0012->0x0190 ; "GROUP" 0188 0015 | | .STRTAB 0x0015->0x0192 ; "PLACE" 0189 0018 | | .STRTAB 0x0018->0x0195 ; "HERO" 018a 001a | | .STRTAB 0x001a->0x0197 ; "UNKNOWN" 018b 001f | | .STRTAB 0x001f->0x019a ; "Objet : Kind : " 018c 002c | , | .STRTAB 0x002c->0x01a2 ; " Image : " 018d 0033 | 3 | .STREND 0x0033->0x01a6 018e 5245 414c |REAL| .STRTAB_STRINGS 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug Table 01a8 ; -------------------------------------------------------------------------------------- 01a8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe310,0x0000,0x0001,0x000f 01ae 000b 01ea | | .DBG4T 0x000b,0x01ea,0x8000,0x8000 01b2 003a 020a | : | .DBG4T 0x003a,0x020a,0x8000,0x0000 01b6 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000 01ba 0083 0217 | | .DBG4T 0x0083,0x0217,0x0001,0x0000 01be 0093 021a | | .DBG4T 0x0093,0x021a,0x0001,0x0000 01c2 00a3 021d | | .DBG4T 0x00a3,0x021d,0x0001,0x0000 01c6 00b3 0220 | | .DBG4T 0x00b3,0x0220,0x0001,0x0000 01ca 00c3 0223 | #| .DBG4T 0x00c3,0x0223,0x0001,0x0000 01ce 00db 0226 | &| .DBG4T 0x00db,0x0226,0x0002,0x0000 01d2 00e3 0229 | )| .DBG4T 0x00e3,0x0229,0x0002,0x0000 01d6 00eb 022c | ,| .DBG4T 0x00eb,0x022c,0x0002,0x0000 01da 00f3 022f | /| .DBG4T 0x00f3,0x022f,0x0002,0x0000 01de 00fb 0232 | 2| .DBG4T 0x00fb,0x0232,0x0002,0x4000 01e2 011b 0240 | @| .DBG4T 0x011b,0x0240,0x0002,0x4000 01e6 012b 0000 | + | .DBG4T 0x012b,0x0000,0x0005,0x0000 01ea ; -------------------------------------------------------------------------------------- 01ea ; Debug chain 01ea ; -------------------------------------------------------------------------------------- 01ea 000f 0000 | | .DBGLEN 0x000f,0x0000 01ec 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0027,0x0034 01fb 0001 0003 | | .XXX[0xf] 01fd 0004 0005 | | 01ff 0006 0007 | | 0201 0008 0009 | | 0203 000a 000b | | 0205 000c 000d | | 0207 000e 000f | | 0209 0010 | | 020a ; -------------------------------------------------------------------------------------- 020a ; Debug chain 020a ; -------------------------------------------------------------------------------------- 020a 000b 0000 | | .DBGLEN 0x000b,0x0000 020c 003a 003c | : <| .DBGLNO 0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e 0217 ; -------------------------------------------------------------------------------------- 0217 ; Debug chain 0217 ; -------------------------------------------------------------------------------------- 0217 0000 0001 | | .DBGLEN 0x0000,0x0001 0219 0083 | | .DBGLNO 0x0083 021a ; -------------------------------------------------------------------------------------- 021a ; Debug chain 021a ; -------------------------------------------------------------------------------------- 021a 0000 0001 | | .DBGLEN 0x0000,0x0001 021c 0093 | | .DBGLNO 0x0093 021d ; -------------------------------------------------------------------------------------- 021d ; Debug chain 021d ; -------------------------------------------------------------------------------------- 021d 0000 0001 | | .DBGLEN 0x0000,0x0001 021f 00a3 | | .DBGLNO 0x00a3 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug chain 0220 ; -------------------------------------------------------------------------------------- 0220 0000 0001 | | .DBGLEN 0x0000,0x0001 0222 00b3 | | .DBGLNO 0x00b3 0223 ; -------------------------------------------------------------------------------------- 0223 ; Debug chain 0223 ; -------------------------------------------------------------------------------------- 0223 0000 0001 | | .DBGLEN 0x0000,0x0001 0225 00c3 | | .DBGLNO 0x00c3 0226 ; -------------------------------------------------------------------------------------- 0226 ; Debug chain 0226 ; -------------------------------------------------------------------------------------- 0226 0000 0001 | | .DBGLEN 0x0000,0x0001 0228 00db | | .DBGLNO 0x00db 0229 ; -------------------------------------------------------------------------------------- 0229 ; Debug chain 0229 ; -------------------------------------------------------------------------------------- 0229 0000 0001 | | .DBGLEN 0x0000,0x0001 022b 00e3 | | .DBGLNO 0x00e3 022c ; -------------------------------------------------------------------------------------- 022c ; Debug chain 022c ; -------------------------------------------------------------------------------------- 022c 0000 0001 | | .DBGLEN 0x0000,0x0001 022e 00eb | | .DBGLNO 0x00eb 022f ; -------------------------------------------------------------------------------------- 022f ; Debug chain 022f ; -------------------------------------------------------------------------------------- 022f 0000 0001 | | .DBGLEN 0x0000,0x0001 0231 00f3 | | .DBGLNO 0x00f3 0232 ; -------------------------------------------------------------------------------------- 0232 ; Debug chain 0232 ; -------------------------------------------------------------------------------------- 0232 0000 0006 | | .DBGLEN 0x0000,0x0006 0234 00fb 0103 | | .DBGLNO 0x00fb,0x0103,0x0105,0x0108,0x0111,0x0113 023a 0001 0006 | | .XXX[0x6] 023c 0002 0003 | | 023e 0004 0005 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug chain 0240 ; -------------------------------------------------------------------------------------- 0240 0000 0003 | | .DBGLEN 0x0000,0x0003 0242 011b 0121 | !| .DBGLNO 0x011b,0x0121,0x0123 0245 0001 0003 | | .XXX[0x3] 0247 0002 | | 0248 0000 0000 | | .BLANK 0000[0x1b8]