|
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_779ce4
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0200 | | .CONST 0x0200 ; 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 0054 | T | .CONST 0x0054 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0015 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 001d 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0021 4801 |H | Short_Literal 0x1 0022 032b | + | Declare_Type Record,Incomplete,Visible 0023 00d8 | | Load_Top At_Offset_0 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 03ae | | Declare_Type Heap_Access,Defined,Visible 0026 00e2 | | Load_Encached Integer_Cache 0027 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0029 4801 |H | Short_Literal 0x1 002a 032e | . | Declare_Type Record,Defined,Visible 002b 00bf | | Action Accept_Activation 002c 00e4 | | Load_Encached Positive_Cache 002d 0266 | f | Execute Discrete,Bounds 002e e003 | | Load 0x0,0x3 002f 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0031 4801 |H | Short_Literal 0x1 0032 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0033 00d8 | | Load_Top At_Offset_0 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 03ad | | Declare_Type Heap_Access,Defined 0036 00d8 | | Load_Top At_Offset_0 0037 02a0 | | Declare_Subprogram Null_Subprogram 0038 e218 | | Load 0x1,0x18 0039 0326 | & | Complete_Type Record,By_Defining 003a 00db | | Load_Top At_Offset_3 003b 03a0 | | Complete_Type Heap_Access,By_Component_Completion 003c 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 003e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003f 00c7 | | Action Elaborate_Subprogram 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 BODY_0008: 0054 00bc | | Action Signal_Activated 0055 00bb | | Action Signal_Completion 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0077 | w | .CONST 0x0077 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0008 | | .CONST 0x0008 ; Number of locals 005b INIT_0058: 005b e004 | | Load 0x0,0x4 005c 0322 | " | Declare_Variable Record 005d 00db | | Load_Top At_Offset_3 005e 8005 | | Call 0x0,0x5 005f 00d9 | | Load_Top At_Offset_1 0060 017d | } | Execute Record,Structure_Write 0061 00d8 | | Load_Top At_Offset_0 0062 8006 | | Call 0x0,0x6 0063 00e3 | | Load_Encached Natural_Cache 0064 03f1 | | Declare_Variable Discrete,With_Value 0065 e004 | | Load 0x0,0x4 0066 0322 | " | Declare_Variable Record 0067 e5ff | | Load 0x2,-0x1 0068 8007 | | Call 0x0,0x7 0069 00d9 | | Load_Top At_Offset_1 006a 017d | } | Execute Record,Structure_Write 006b 00d8 | | Load_Top At_Offset_0 006c 8008 | | Call 0x0,0x8 006d 0f00 | | Execute_Immediate Equal,0x0 006e 00e1 | | Load_Encached Boolean_Cache 006f 03f1 | | Declare_Variable Discrete,With_Value 0070 e219 | | Load 0x1,0x19 0071 e5fc | | Load 0x2,-0x4 0072 039c | | Declare_Variable Heap_Access,By_Allocation 0073 00e3 | | Load_Encached Natural_Cache 0074 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0075 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0077 BODY_0058: 0077 00db | | Load_Top At_Offset_3 0078 6803 |h | Jump_Zero 0x7c 0079 e403 | | Load 0x2,0x3 007a 0a01 | | Execute_Immediate Plus,0x1 007b c403 | | Store 0x2,0x3 007c 4801 |H | Short_Literal 0x1 007d e403 | | Load 0x2,0x3 007e e21c | | Load 0x1,0x1c 007f e5fc | | Load 0x2,-0x4 0080 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 0081 00d8 | | Load_Top At_Offset_0 0082 0217 | | Execute Heap_Access,All_Reference 0083 1c00 | | Execute_Immediate Run_Utility,0x0 0084 00db | | Load_Top At_Offset_3 0085 0217 | | Execute Heap_Access,All_Reference 0086 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0087 00cf | | Action Mark_Auxiliary 0088 e402 | | Load 0x2,0x2 0089 8008 | | Call 0x0,0x8 008a 700c |p | Jump_Nonzero 0x97 008b e402 | | Load 0x2,0x2 008c 8009 | | Call 0x0,0x9 008d 00db | | Load_Top At_Offset_3 008e 8408 | | Call 0x2,0x8 008f e402 | | Load 0x2,0x2 0090 800a | | Call 0x0,0xa 0091 00d1 | | Pop_Control Pop_Count_1 0092 00da | | Load_Top At_Offset_2 0093 0a01 | | Execute_Immediate Plus,0x1 0094 005b | [ | Store_Top Discrete,At_Offset_3 0095 00c9 | | Action Pop_Auxiliary_Loop 0096 7ff1 | | Jump 0x88 0097 00ce | | Action Pop_Auxiliary 0098 00db | | Load_Top At_Offset_3 0099 6819 |h | Jump_Zero 0xb3 009a 00da | | Load_Top At_Offset_2 009b 0217 | | Execute Heap_Access,All_Reference 009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009d 0217 | | Execute Heap_Access,All_Reference 009e 01dc | | Execute Vector,Last 009f 00db | | Load_Top At_Offset_3 00a0 0219 | | Execute Heap_Access,All_Read 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 0219 | | Execute Heap_Access,All_Read 00a3 01d5 | | Execute Vector,Field_Reference 00a4 00d8 | | Load_Top At_Offset_0 00a5 4802 |H | Short_Literal 0x2 00a6 e5fb | | Load 0x2,-0x5 00a7 e407 | | Load 0x2,0x7 00a8 e5fc | | Load 0x2,-0x4 00a9 e5fa | | Load 0x2,-0x6 00aa 0217 | | Execute Heap_Access,All_Reference 00ab 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 00ac e5fa | | Load 0x2,-0x6 00ad e404 | | Load 0x2,0x4 00ae 8009 | | Call 0x0,0x9 00af 821d | | Call 0x1,0x1d 00b0 e404 | | Load 0x2,0x4 00b1 800b | | Call 0x0,0xb 00b2 00d2 | | Pop_Control Pop_Count_2 00b3 00da | | Load_Top At_Offset_2 00b4 e5fa | | Load 0x2,-0x6 00b5 0217 | | Execute Heap_Access,All_Reference 00b6 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11 00b7 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 00bd BODY_00b8: 00bd e5fe | | Load 0x2,-0x2 00be 7010 |p | Jump_Nonzero 0xcf 00bf e5fc | | Load 0x2,-0x4 00c0 e5fd | | Load 0x2,-0x3 00c1 e5ff | | Load 0x2,-0x1 00c2 0217 | | Execute Heap_Access,All_Reference 00c3 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9 00c4 800c | | Call 0x0,0xc 00c5 e5fc | | Load 0x2,-0x4 00c6 e5fd | | Load 0x2,-0x3 00c7 e5ff | | Load 0x2,-0x1 00c8 0217 | | Execute Heap_Access,All_Reference 00c9 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa 00ca 800d | | Call 0x0,0xd 00cb e5fd | | Load 0x2,-0x3 00cc e5ff | | Load 0x2,-0x1 00cd 800e | | Call 0x0,0xe 00ce 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00cf e5fe | | Load 0x2,-0x2 00d0 e5ff | | Load 0x2,-0x1 00d1 0219 | | Execute Heap_Access,All_Read 00d2 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11 00d3 0219 | | Execute Heap_Access,All_Read 00d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d5 0219 | | Execute Heap_Access,All_Read 00d6 01d5 | | Execute Vector,Field_Reference 00d7 00d8 | | Load_Top At_Offset_0 00d8 8402 | | Call 0x2,0x2 00d9 00d2 | | Pop_Control Pop_Count_2 00da 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00db 0000 0000 | | .BLANK 0000[0x5] 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 e00f | | Load 0x0,0xf 00e4 e5fe | | Load 0x2,-0x2 00e5 e5ff | | Load 0x2,-0x1 00e6 0217 | | Execute Heap_Access,All_Reference 00e7 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11 00e8 0217 | | Execute Heap_Access,All_Reference 00e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ea 0217 | | Execute Heap_Access,All_Reference 00eb 01d5 | | Execute Vector,Field_Reference 00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ed 8010 | | Call 0x0,0x10 00ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 0217 | | Execute Heap_Access,All_Reference 00f5 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11 00f6 0217 | | Execute Heap_Access,All_Reference 00f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f8 0217 | | Execute Heap_Access,All_Reference 00f9 01db | | Execute Vector,Length 00fa 00d8 | | Load_Top At_Offset_0 00fb 00e3 | | Load_Encached Natural_Cache 00fc 0260 | ` | Execute Discrete,In_Type 00fd 7001 |p | Jump_Nonzero 0xff 00fe 0801 | | Execute_Immediate Raise,0x1 00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 e5fd | | Load 0x2,-0x3 0104 e5fe | | Load 0x2,-0x2 0105 e5ff | | Load 0x2,-0x1 0106 8011 | | Call 0x0,0x11 0107 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 e5fd | | Load 0x2,-0x3 010c e5fe | | Load 0x2,-0x2 010d e5ff | | Load 0x2,-0x1 010e 8012 | | Call 0x0,0x12 010f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 8013 | | Call 0x0,0x13 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 0000 0000 | | .XXX[0x2] 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 4800 |H | Short_Literal 0x0 011c e5fd | | Load 0x2,-0x3 011d 0217 | | Execute Heap_Access,All_Reference 011e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 011f 00da | | Load_Top At_Offset_2 0120 e5fd | | Load 0x2,-0x3 0121 0217 | | Execute Heap_Access,All_Reference 0122 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0123 4801 |H | Short_Literal 0x1 0124 e5fd | | Load 0x2,-0x3 0125 0217 | | Execute Heap_Access,All_Reference 0126 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0128 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0129 0000 0000 | | .BLANK 0000[0x7] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0137 | 7 | .CONST 0x0137 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 0217 | | Execute Heap_Access,All_Reference 0135 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0136 0007 | | Action Break_Optional 0137 BODY_0130: 0137 00d8 | | Load_Top At_Offset_0 0138 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0139 e5ff | | Load 0x2,-0x1 013a 0217 | | Execute Heap_Access,All_Reference 013b 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 013c 0217 | | Execute Heap_Access,All_Reference 013d 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11 013e 0217 | | Execute Heap_Access,All_Reference 013f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0140 0217 | | Execute Heap_Access,All_Reference 0141 01db | | Execute Vector,Length 0142 027c | | | Execute Discrete,Less 0143 6806 |h | Jump_Zero 0x14a 0144 00d8 | | Load_Top At_Offset_0 0145 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0146 0a01 | | Execute_Immediate Plus,0x1 0147 00d9 | | Load_Top At_Offset_1 0148 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0149 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014a 4801 |H | Short_Literal 0x1 014b e5ff | | Load 0x2,-0x1 014c 0217 | | Execute Heap_Access,All_Reference 014d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 0217 | | Execute Heap_Access,All_Reference 0155 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0156 700f |p | Jump_Nonzero 0x166 0157 00da | | Load_Top At_Offset_2 0158 0217 | | Execute Heap_Access,All_Reference 0159 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 015a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015b 00db | | Load_Top At_Offset_3 015c 0217 | | Execute Heap_Access,All_Reference 015d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 015e 0217 | | Execute Heap_Access,All_Reference 015f 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11 0160 0217 | | Execute Heap_Access,All_Reference 0161 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0162 0217 | | Execute Heap_Access,All_Reference 0163 01d5 | | Execute Vector,Field_Reference 0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0166 0831 | 1 | Execute_Immediate Raise,0x31 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 0217 | | Execute Heap_Access,All_Reference 016d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00d1 | | Pop_Control Pop_Count_1 0174 00da | | Load_Top At_Offset_2 0175 01d8 | | Execute Vector,Element_Type 0176 0322 | " | Declare_Variable Record 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 00db | | Load_Top At_Offset_3 017a 01dc | | Execute Vector,Last 017b e5ff | | Load 0x2,-0x1 017c 01dd | | Execute Vector,First 017d 0263 | c | Execute Discrete,Above_Bound 017e 7006 |p | Jump_Nonzero 0x185 017f 00da | | Load_Top At_Offset_2 0180 00d9 | | Load_Top At_Offset_1 0181 e5ff | | Load 0x2,-0x1 0182 01d6 | | Execute Vector,Field_Write 0183 0a01 | | Execute_Immediate Plus,0x1 0184 7ff8 | | Jump 0x17d 0185 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b 00ec | | Load_Encached Diana_Tree_Cache 018c 00ec | | Load_Encached Diana_Tree_Cache 018d BODY_0188: 018d e5ff | | Load 0x2,-0x1 018e 8014 | | Call 0x0,0x14 018f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0190 00d9 | | Load_Top At_Offset_1 0191 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0192 00cf | | Action Mark_Auxiliary 0193 00da | | Load_Top At_Offset_2 0194 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0195 0f9e | | Execute_Immediate Equal,-0x62 0196 700e |p | Jump_Nonzero 0x1a5 0197 00da | | Load_Top At_Offset_2 0198 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0199 0f5e | ^ | Execute_Immediate Equal,0x5e 019a 700a |p | Jump_Nonzero 0x1a5 019b 00da | | Load_Top At_Offset_2 019c 6808 |h | Jump_Zero 0x1a5 019d 00da | | Load_Top At_Offset_2 019e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 019f 00da | | Load_Top At_Offset_2 01a0 00eb | | Load_Encached Diana_Cache 01a1 18ec | | Execute Package,Field_Execute,Field_Number 0xec 01a2 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01a3 00c9 | | Action Pop_Auxiliary_Loop 01a4 7fee | | Jump 0x193 01a5 00ce | | Action Pop_Auxiliary 01a6 00d9 | | Load_Top At_Offset_1 01a7 7002 |p | Jump_Nonzero 0x1aa 01a8 e015 | | Load 0x0,0x15 01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01aa 00d9 | | Load_Top At_Offset_1 01ab 0145 | E | Execute Heap_Access,Diana_Tree_Kind 01ac 0f9e | | Execute_Immediate Equal,-0x62 01ad 6803 |h | Jump_Zero 0x1b1 01ae 00d9 | | Load_Top At_Offset_1 01af 8016 | | Call 0x0,0x16 01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b1 00d8 | | Load_Top At_Offset_0 01b2 8016 | | Call 0x0,0x16 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c5 | | .CONST 0x01c5 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb e003 | | Load 0x0,0x3 01bc 0322 | " | Declare_Variable Record 01bd 00d8 | | Load_Top At_Offset_0 01be 1c00 | | Execute_Immediate Run_Utility,0x0 01bf e004 | | Load 0x0,0x4 01c0 0322 | " | Declare_Variable Record 01c1 e7fe | | Load 0x3,-0x2 01c2 8017 | | Call 0x0,0x17 01c3 00d9 | | Load_Top At_Offset_1 01c4 017d | } | Execute Record,Structure_Write 01c5 BODY_01b8: 01c5 00d9 | | Load_Top At_Offset_1 01c6 4802 |H | Short_Literal 0x2 01c7 e5fb | | Load 0x2,-0x5 01c8 e7ff | | Load 0x3,-0x1 01c9 e5fc | | Load 0x2,-0x4 01ca e5fa | | Load 0x2,-0x6 01cb 0217 | | Execute Heap_Access,All_Reference 01cc 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 01cd e5fa | | Load 0x2,-0x6 01ce e7fe | | Load 0x3,-0x2 01cf 821d | | Call 0x1,0x1d 01d0 e603 | | Load 0x3,0x3 01d1 800b | | Call 0x0,0xb 01d2 00d1 | | Pop_Control Pop_Count_1 01d3 00d9 | | Load_Top At_Offset_1 01d4 e7ff | | Load 0x3,-0x1 01d5 e406 | | Load 0x2,0x6 01d6 0217 | | Execute Heap_Access,All_Reference 01d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d8 0217 | | Execute Heap_Access,All_Reference 01d9 01d6 | | Execute Vector,Field_Write 01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e5fe | | Load 0x2,-0x2 01e4 e5fd | | Load 0x2,-0x3 01e5 e7ff | | Load 0x3,-0x1 01e6 e5ff | | Load 0x2,-0x1 01e7 8018 | | Call 0x0,0x18 01e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 4601 |F | Jump_Case 0x2 01f4 7801 |x | Jump 0x1f6 ; case 0x0 01f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01f6 4801 |H | Short_Literal 0x1 01f7 00db | | Load_Top At_Offset_3 01f8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; Debug Table 0200 ; -------------------------------------------------------------------------------------- 0200 0004 000a | | .DEBUG4 0x0004,0x000a,0xa1b4,0x0000,0x0001,0x0000 0206 0000 0000 | | .BLANK 0000[0x1fa]