|
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_2f30f2
└─⟦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 01f0 | | .CONST 0x01f0 ; 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 0070 | p | .CONST 0x0070 ; 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 480a |H | Short_Literal 0xa 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 0007 | | Action Break_Optional 0010 00c4 | | Action Make_Default 0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0017 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 001d 0007 | | Action Break_Optional 001e 4800 |H | Short_Literal 0x0 001f 6090 |` | Indirect_Literal Discrete,0xb0,{0x00000000, 0x0000ffff} 0020 00e5 | | Load_Encached Long_Integer_Cache 0021 03f9 | | Declare_Type Discrete,Constrained,Visible 0022 e20d | | Load 0x1,0xd 0023 0266 | f | Execute Discrete,Bounds 0024 00da | | Load_Top At_Offset_2 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 4801 |H | Short_Literal 0x1 0027 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0028 e20d | | Load 0x1,0xd 0029 4801 |H | Short_Literal 0x1 002a 480a |H | Short_Literal 0xa 002b 00db | | Load_Top At_Offset_3 002c 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 002d 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 002f 4800 |H | Short_Literal 0x0 0030 4801 |H | Short_Literal 0x1 0031 4800 |H | Short_Literal 0x0 0032 4800 |H | Short_Literal 0x0 0033 4801 |H | Short_Literal 0x1 0034 4801 |H | Short_Literal 0x1 0035 031e | | Declare_Type Variant_Record,Defined,Visible 0036 4800 |H | Short_Literal 0x0 0037 00d9 | | Load_Top At_Offset_1 0038 1c08 | | Execute_Immediate Run_Utility,0x8 0039 00d8 | | Load_Top At_Offset_0 003a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 003b 0335 | 5 | Declare_Variable Array,Duplicate 003c 00cd | | Action Spare6_Action 003d 00d9 | | Load_Top At_Offset_1 003e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 003f 01d9 | | Execute Vector,Reverse_Bounds 0040 0263 | c | Execute Discrete,Above_Bound 0041 7005 |p | Jump_Nonzero 0x47 0042 4801 |H | Short_Literal 0x1 0043 00d9 | | Load_Top At_Offset_1 0044 e219 | | Load 0x1,0x19 0045 01d6 | | Execute Vector,Field_Write 0046 3ffb |? | Loop_Increasing 0x42 0047 00d9 | | Load_Top At_Offset_1 0048 00d8 | | Load_Top At_Offset_0 0049 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 004a 00da | | Load_Top At_Offset_2 004b 01da | | Execute Vector,Bounds 004c 00da | | Load_Top At_Offset_2 004d 01da | | Execute Vector,Bounds 004e 00da | | Load_Top At_Offset_2 004f 027f | | Execute Discrete,Equal 0050 7001 |p | Jump_Nonzero 0x52 0051 08e0 | | Execute_Immediate Raise,0xe0 0052 00cd | | Action Spare6_Action 0053 027f | | Execute Discrete,Equal 0054 7001 |p | Jump_Nonzero 0x56 0055 08e0 | | Execute_Immediate Raise,0xe0 0056 00d2 | | Pop_Control Pop_Count_2 0057 00d9 | | Load_Top At_Offset_1 0058 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0059 0129 | ) | Execute Any,Make_Visible 005a c20e | | Store 0x1,0xe 005b 00bf | | Action Accept_Activation 005c e20d | | Load 0x1,0xd 005d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 005e 00d9 | | Load_Top At_Offset_1 005f 02ff | | Declare_Variable Variant_Record 0060 00d8 | | Load_Top At_Offset_0 0061 1c00 | | Execute_Immediate Run_Utility,0x0 0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0063 00c7 | | Action Elaborate_Subprogram 0064 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0065 00c7 | | Action Elaborate_Subprogram 0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0067 00c7 | | Action Elaborate_Subprogram 0068 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0069 00c7 | | Action Elaborate_Subprogram 006a 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 006c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 006d 00c7 | | Action Elaborate_Subprogram 006e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006f 00c7 | | Action Elaborate_Subprogram 0070 BODY_0008: 0070 8211 | | Call 0x1,0x11 0071 00bc | | Action Signal_Activated 0072 00bb | | Action Signal_Completion 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 007c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 007d e5fe | | Load 0x2,-0x2 007e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 007f 027c | | | Execute Discrete,Less 0080 6802 |h | Jump_Zero 0x83 0081 4801 |H | Short_Literal 0x1 0082 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0083 00da | | Load_Top At_Offset_2 0084 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0085 e5fe | | Load 0x2,-0x2 0086 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0087 027d | } | Execute Discrete,Greater 0088 6802 |h | Jump_Zero 0x8b 0089 4800 |H | Short_Literal 0x0 008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008b 00cf | | Action Mark_Auxiliary 008c 4801 |H | Short_Literal 0x1 008d e5ff | | Load 0x2,-0x1 008e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 008f 0264 | d | Execute Discrete,Below_Bound 0090 701b |p | Jump_Nonzero 0xac 0091 00d8 | | Load_Top At_Offset_0 0092 e5ff | | Load 0x2,-0x1 0093 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0094 01d7 | | Execute Vector,Field_Read 0095 00d9 | | Load_Top At_Offset_1 0096 e5fe | | Load 0x2,-0x2 0097 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0098 01d7 | | Execute Vector,Field_Read 0099 027c | | | Execute Discrete,Less 009a 6802 |h | Jump_Zero 0x9d 009b 4801 |H | Short_Literal 0x1 009c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009d 00d8 | | Load_Top At_Offset_0 009e e5ff | | Load 0x2,-0x1 009f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00a0 01d7 | | Execute Vector,Field_Read 00a1 00d9 | | Load_Top At_Offset_1 00a2 e5fe | | Load 0x2,-0x2 00a3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00a4 01d7 | | Execute Vector,Field_Read 00a5 027d | } | Execute Discrete,Greater 00a6 6802 |h | Jump_Zero 0xa9 00a7 4800 |H | Short_Literal 0x0 00a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a9 0008 | | Action Idle 00aa 00c8 | | Action Pop_Auxiliary_Range 00ab 37e5 |7 | Loop_Decreasing 0x91 00ac 00ce | | Action Pop_Auxiliary 00ad 4800 |H | Short_Literal 0x0 00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00af 0000 | | .XXX[0x1] 00b0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 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 00da | | Load_Top At_Offset_2 00bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00bd e5fe | | Load 0x2,-0x2 00be 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00bf 027d | } | Execute Discrete,Greater 00c0 6802 |h | Jump_Zero 0xc3 00c1 4801 |H | Short_Literal 0x1 00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c3 00da | | Load_Top At_Offset_2 00c4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00c5 e5fe | | Load 0x2,-0x2 00c6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00c7 027c | | | Execute Discrete,Less 00c8 6802 |h | Jump_Zero 0xcb 00c9 4800 |H | Short_Literal 0x0 00ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cb 00cf | | Action Mark_Auxiliary 00cc 4801 |H | Short_Literal 0x1 00cd e5ff | | Load 0x2,-0x1 00ce 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00cf 0264 | d | Execute Discrete,Below_Bound 00d0 701b |p | Jump_Nonzero 0xec 00d1 00d8 | | Load_Top At_Offset_0 00d2 e5ff | | Load 0x2,-0x1 00d3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00d4 01d7 | | Execute Vector,Field_Read 00d5 00d9 | | Load_Top At_Offset_1 00d6 e5fe | | Load 0x2,-0x2 00d7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00d8 01d7 | | Execute Vector,Field_Read 00d9 027d | } | Execute Discrete,Greater 00da 6802 |h | Jump_Zero 0xdd 00db 4801 |H | Short_Literal 0x1 00dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00dd 00d8 | | Load_Top At_Offset_0 00de e5ff | | Load 0x2,-0x1 00df 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00e0 01d7 | | Execute Vector,Field_Read 00e1 00d9 | | Load_Top At_Offset_1 00e2 e5fe | | Load 0x2,-0x2 00e3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00e4 01d7 | | Execute Vector,Field_Read 00e5 027c | | | Execute Discrete,Less 00e6 6802 |h | Jump_Zero 0xe9 00e7 4800 |H | Short_Literal 0x0 00e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e9 0008 | | Action Idle 00ea 00c8 | | Action Pop_Auxiliary_Range 00eb 37e5 |7 | Loop_Decreasing 0xd1 00ec 00ce | | Action Pop_Auxiliary 00ed 4800 |H | Short_Literal 0x0 00ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 4801 |H | Short_Literal 0x1 00f4 a218 | | Store_Unchecked 0x1,0x18 00f5 e218 | | Load 0x1,0x18 00f6 e217 | | Load 0x1,0x17 00f7 1c08 | | Execute_Immediate Run_Utility,0x8 00f8 00d8 | | Load_Top At_Offset_0 00f9 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00fa 0335 | 5 | Declare_Variable Array,Duplicate 00fb 00cd | | Action Spare6_Action 00fc 00d9 | | Load_Top At_Offset_1 00fd 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 00fe 01d9 | | Execute Vector,Reverse_Bounds 00ff 0263 | c | Execute Discrete,Above_Bound 0100 7005 |p | Jump_Nonzero 0x106 0101 4801 |H | Short_Literal 0x1 0102 00d9 | | Load_Top At_Offset_1 0103 e403 | | Load 0x2,0x3 0104 01d6 | | Execute Vector,Field_Write 0105 3ffb |? | Loop_Increasing 0x101 0106 00d9 | | Load_Top At_Offset_1 0107 00d8 | | Load_Top At_Offset_0 0108 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0109 00da | | Load_Top At_Offset_2 010a 01da | | Execute Vector,Bounds 010b 00da | | Load_Top At_Offset_2 010c 01da | | Execute Vector,Bounds 010d 00da | | Load_Top At_Offset_2 010e 027f | | Execute Discrete,Equal 010f 7001 |p | Jump_Nonzero 0x111 0110 08e0 | | Execute_Immediate Raise,0xe0 0111 00cd | | Action Spare6_Action 0112 027f | | Execute Discrete,Equal 0113 7001 |p | Jump_Nonzero 0x115 0114 08e0 | | Execute_Immediate Raise,0xe0 0115 00d2 | | Pop_Control Pop_Count_2 0116 00d9 | | Load_Top At_Offset_1 0117 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0118 e219 | | Load 0x1,0x19 0119 016d | m | Execute Variant_Record,Structure_Write 011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e219 | | Load 0x1,0x19 0124 00db | | Load_Top At_Offset_3 0125 016d | m | Execute Variant_Record,Structure_Write 0126 4501 |E | Exit_Suprogram 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 4801 |H | Short_Literal 0x1 012c 821a | | Call 0x1,0x1a 012d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 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 00cf | | Action Mark_Auxiliary 0134 00db | | Load_Top At_Offset_3 0135 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0136 0aff | | Execute_Immediate Plus,-0x1 0137 4801 |H | Short_Literal 0x1 0138 0263 | c | Execute Discrete,Above_Bound 0139 700e |p | Jump_Nonzero 0x148 013a e5fe | | Load 0x2,-0x2 013b 00d9 | | Load_Top At_Offset_1 013c e5ff | | Load 0x2,-0x1 013d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 013e 01d7 | | Execute Vector,Field_Read 013f 00e0 | | Load_Encached Standard_Cache 0140 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0141 8002 | | Call 0x0,0x2 0142 e5fe | | Load 0x2,-0x2 0143 0092 01ec | | Action Push_String_Extended,0x1ec ; ", " 0145 8002 | | Call 0x0,0x2 0146 00c8 | | Action Pop_Auxiliary_Range 0147 3ff2 |? | Loop_Increasing 0x13a 0148 00ce | | Action Pop_Auxiliary 0149 00db | | Load_Top At_Offset_3 014a 00db | | Load_Top At_Offset_3 014b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 014c e5ff | | Load 0x2,-0x1 014d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 014e 01d7 | | Execute Vector,Field_Read 014f 00e0 | | Load_Encached Standard_Cache 0150 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0151 8002 | | Call 0x0,0x2 0152 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c e219 | | Load 0x1,0x19 015d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 015e 01d7 | | Execute Vector,Field_Read 015f 6048 |`H | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0000ffff} 0160 027c | | | Execute Discrete,Less 0161 680a |h | Jump_Zero 0x16c 0162 00da | | Load_Top At_Offset_2 0163 e219 | | Load 0x1,0x19 0164 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0165 01d7 | | Execute Vector,Field_Read 0166 0a01 | | Execute_Immediate Plus,0x1 0167 00db | | Load_Top At_Offset_3 0168 e219 | | Load 0x1,0x19 0169 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 016a 01d6 | | Execute Vector,Field_Write 016b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016c 00da | | Load_Top At_Offset_2 016d e218 | | Load 0x1,0x18 016e 027f | | Execute Discrete,Equal 016f 6829 |h) | Jump_Zero 0x199 0170 e218 | | Load 0x1,0x18 0171 0a01 | | Execute_Immediate Plus,0x1 0172 c218 | | Store 0x1,0x18 0173 e218 | | Load 0x1,0x18 0174 e217 | | Load 0x1,0x17 0175 1c08 | | Execute_Immediate Run_Utility,0x8 0176 00d8 | | Load_Top At_Offset_0 0177 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0178 0335 | 5 | Declare_Variable Array,Duplicate 0179 00cd | | Action Spare6_Action 017a 00d9 | | Load_Top At_Offset_1 017b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 017c 01d9 | | Execute Vector,Reverse_Bounds 017d 0263 | c | Execute Discrete,Above_Bound 017e 7005 |p | Jump_Nonzero 0x184 017f 4801 |H | Short_Literal 0x1 0180 00d9 | | Load_Top At_Offset_1 0181 e403 | | Load 0x2,0x3 0182 01d6 | | Execute Vector,Field_Write 0183 3ffb |? | Loop_Increasing 0x17f 0184 00d9 | | Load_Top At_Offset_1 0185 00d8 | | Load_Top At_Offset_0 0186 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 0187 00da | | Load_Top At_Offset_2 0188 01da | | Execute Vector,Bounds 0189 00da | | Load_Top At_Offset_2 018a 01da | | Execute Vector,Bounds 018b 00da | | Load_Top At_Offset_2 018c 027f | | Execute Discrete,Equal 018d 7001 |p | Jump_Nonzero 0x18f 018e 08e0 | | Execute_Immediate Raise,0xe0 018f 00cd | | Action Spare6_Action 0190 027f | | Execute Discrete,Equal 0191 7001 |p | Jump_Nonzero 0x193 0192 08e0 | | Execute_Immediate Raise,0xe0 0193 00d2 | | Pop_Control Pop_Count_2 0194 00d9 | | Load_Top At_Offset_1 0195 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2 0196 e219 | | Load 0x1,0x19 0197 016d | m | Execute Variant_Record,Structure_Write 0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0199 4801 |H | Short_Literal 0x1 019a 00db | | Load_Top At_Offset_3 019b e219 | | Load 0x1,0x19 019c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2 019d 01d6 | | Execute Vector,Field_Write 019e 00da | | Load_Top At_Offset_2 019f 0a01 | | Execute_Immediate Plus,0x1 01a0 00d8 | | Load_Top At_Offset_0 01a1 e20d | | Load 0x1,0xd 01a2 0260 | ` | Execute Discrete,In_Type 01a3 7001 |p | Jump_Nonzero 0x1a5 01a4 0801 | | Execute_Immediate Raise,0x1 01a5 821a | | Call 0x1,0x1a 01a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a7 0000 | | .XXX[0x1] 01a8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4609 |F | Jump_Case 0xa 01b4 7809 |x | Jump 0x1be ; case 0x0 01b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01b6 7813 |x | Jump 0x1ca ; case 0x2 01b7 7816 |x | Jump 0x1ce ; case 0x3 01b8 7832 |x2 | Jump 0x1eb ; case 0x4 01b9 7831 |x1 | Jump 0x1eb ; case 0x5 01ba 7830 |x0 | Jump 0x1eb ; case 0x6 01bb 7818 |x | Jump 0x1d4 ; case 0x7 01bc 7820 |x | Jump 0x1dd ; case 0x8 01bd 7829 |x) | Jump 0x1e7 ; case 0x9 01be 00da | | Load_Top At_Offset_2 01bf 016c | l | Execute Variant_Record,Is_Constrained 01c0 7008 |p | Jump_Nonzero 0x1c9 01c1 00cf | | Action Mark_Auxiliary 01c2 4800 |H | Short_Literal 0x0 01c3 e5ff | | Load 0x2,-0x1 01c4 1c08 | | Execute_Immediate Run_Utility,0x8 01c5 00d8 | | Load_Top At_Offset_0 01c6 1c00 | | Execute_Immediate Run_Utility,0x0 01c7 c5ff | | Store 0x2,-0x1 01c8 00ce | | Action Pop_Auxiliary 01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ca 4801 |H | Short_Literal 0x1 01cb 4802 |H | Short_Literal 0x2 01cc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 01cd 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01ce e5fd | | Load 0x2,-0x3 01cf 00db | | Load_Top At_Offset_3 01d0 1c07 | | Execute_Immediate Run_Utility,0x7 01d1 e5fe | | Load 0x2,-0x2 01d2 0306 | | Complete_Type Variant_Record,By_Renaming 01d3 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 01d4 00db | | Load_Top At_Offset_3 01d5 4801 |H | Short_Literal 0x1 01d6 e5fe | | Load 0x2,-0x2 01d7 e216 | | Load 0x1,0x16 01d8 035b | [ | Declare_Type Array,Constrained 01d9 4801 |H | Short_Literal 0x1 01da e5ff | | Load 0x2,-0x1 01db 031b | | Declare_Type Variant_Record,Constrained 01dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01dd 00db | | Load_Top At_Offset_3 01de 00db | | Load_Top At_Offset_3 01df 02fc | | Declare_Variable Variant_Record,With_Constraint 01e0 4801 |H | Short_Literal 0x1 01e1 e5fe | | Load 0x2,-0x2 01e2 e216 | | Load 0x1,0x16 01e3 0334 | 4 | Declare_Variable Array,With_Constraint 01e4 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2 01e5 016a | j | QQ_execute Variant_Record,XXX 01e6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e7 4800 |H | Short_Literal 0x0 01e8 00db | | Load_Top At_Offset_3 01e9 1c07 | | Execute_Immediate Run_Utility,0x7 01ea 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01eb 0869 | i | Execute_Immediate Raise,0x69 01ec ; -------------------------------------------------------------------------------------- 01ec ; STRING TABLE 01ec ; -------------------------------------------------------------------------------------- 01ec 0004 | | .STRTAB 0x0004->0x01ee ; ", " 01ed 0004 | | .STREND 0x0004->0x01ef 01ee 2c20 |, | .STRTAB_STRINGS 01ef 0000 | | .XXX[0x1] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug Table 01f0 ; -------------------------------------------------------------------------------------- 01f0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xfb2b,0x0000,0x0001,0x000a 01f6 000b 021e | | .DBG4T 0x000b,0x021e,0x8000,0x0000 01fa 005c 022e | \ .| .DBG4T 0x005c,0x022e,0x8000,0x0000 01fe 007b 023a | { :| .DBG4T 0x007b,0x023a,0x0002,0x0000 0202 00bb 0247 | G| .DBG4T 0x00bb,0x0247,0x0002,0x0000 0206 00f3 0254 | T| .DBG4T 0x00f3,0x0254,0x0001,0x0000 020a 0123 0258 | # X| .DBG4T 0x0123,0x0258,0x0001,0x0000 020e 012b 025b | + [| .DBG4T 0x012b,0x025b,0x0001,0x0000 0212 0133 025e | 3 ^| .DBG4T 0x0133,0x025e,0x0001,0x0000 0216 015b 0264 | [ d| .DBG4T 0x015b,0x0264,0x0001,0x0000 021a 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x0005,0x0000 021e ; -------------------------------------------------------------------------------------- 021e ; Debug chain 021e ; -------------------------------------------------------------------------------------- 021e 000e 0000 | | .DBGLEN 0x000e,0x0000 0220 000b 000f | | .DBGLNO 0x000b,0x000f,0x0010,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001e,0x0022,0x0028,0x0036 022e ; -------------------------------------------------------------------------------------- 022e ; Debug chain 022e ; -------------------------------------------------------------------------------------- 022e 0009 0001 | | .DBGLEN 0x0009,0x0001 0230 005c 005e | \ ^| .DBGLNO 0x005c,0x005e,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070 023a ; -------------------------------------------------------------------------------------- 023a ; Debug chain 023a ; -------------------------------------------------------------------------------------- 023a 0000 000b | | .DBGLEN 0x0000,0x000b 023c 007b 0081 | { | .DBGLNO 0x007b,0x0081,0x0083,0x0089,0x008c,0x0091,0x009b,0x009d,0x00a7,0x00a9,0x00ad 0247 ; -------------------------------------------------------------------------------------- 0247 ; Debug chain 0247 ; -------------------------------------------------------------------------------------- 0247 0000 000b | | .DBGLEN 0x0000,0x000b 0249 00bb 00c1 | | .DBGLNO 0x00bb,0x00c1,0x00c3,0x00c9,0x00cc,0x00d1,0x00db,0x00dd,0x00e7,0x00e9,0x00ed 0254 ; -------------------------------------------------------------------------------------- 0254 ; Debug chain 0254 ; -------------------------------------------------------------------------------------- 0254 0000 0002 | | .DBGLEN 0x0000,0x0002 0256 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug chain 0258 ; -------------------------------------------------------------------------------------- 0258 0000 0001 | | .DBGLEN 0x0000,0x0001 025a 0123 | # | .DBGLNO 0x0123 025b ; -------------------------------------------------------------------------------------- 025b ; Debug chain 025b ; -------------------------------------------------------------------------------------- 025b 0000 0001 | | .DBGLEN 0x0000,0x0001 025d 012b | + | .DBGLNO 0x012b 025e ; -------------------------------------------------------------------------------------- 025e ; Debug chain 025e ; -------------------------------------------------------------------------------------- 025e 0000 0004 | | .DBGLEN 0x0000,0x0004 0260 0134 013a | 4 :| .DBGLNO 0x0134,0x013a,0x0142,0x0149 0264 ; -------------------------------------------------------------------------------------- 0264 ; Debug chain 0264 ; -------------------------------------------------------------------------------------- 0264 0000 0007 | | .DBGLEN 0x0000,0x0007 0266 015b 0162 | [ b| .DBGLNO 0x015b,0x0162,0x016c,0x0170,0x0173,0x0199,0x019e 026d 0000 0000 | | .BLANK 0000[0x193]