|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01d8 | | .CONST 0x01d8 ; 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 006a | j | .CONST 0x006a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0059,0x72b5,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd 000e 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x3 = 0xe,0xfffc 000f 00c4 | | Action Make_Default ; Debug Table 0x0.0x4 = 0xf,0xfffb 0010 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x5 = 0x10,0xfffa 0011 0129 | ) | Execute Any,Make_Visible 0012 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x6 = 0x12,0xfff9 0013 0129 | ) | Execute Any,Make_Visible 0014 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x14,0xfff8 0016 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x16,0xfff7 0018 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x18,0xfff6 001a 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1a,0xfff5 001c 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1c,0xfff4 001e 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x1e,0xfff3 0020 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x20,0xfff2 0022 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xe = 0x22,0xfff1 0023 034b | K | Declare_Type Array,Incomplete,Bounds_With_Object 0024 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xf = 0x24,0xfff0 0025 02a0 | | Declare_Subprogram Null_Subprogram 0026 e20d | | Load 0x1,0xd 0027 03a3 | | Complete_Type Heap_Access,By_Defining 0028 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x28,0xffef 0029 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x11 = 0x29,0xffee 002a 0129 | ) | Execute Any,Make_Visible 002b c20e | | Store 0x1,0xe 002c 00bf | | Action Accept_Activation 002d 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x002d,0x0260,0x8000,0x0000,0x0059,0x7665,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x2d,0xffff 002e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1 = 0x2e,0xfffe 002f 02a0 | | Declare_Subprogram Null_Subprogram 0030 4801 |H | Short_Literal 0x1 0031 032d | - | Declare_Type Record,Defined 0032 e210 | | Load 0x1,0x10 ; Debug Table 0x1.0x2 = 0x32,0xfffd 0033 0266 | f | Execute Discrete,Bounds 0034 00da | | Load_Top At_Offset_2 0035 02a0 | | Declare_Subprogram Null_Subprogram 0036 4801 |H | Short_Literal 0x1 0037 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0038 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative ; Debug Table 0x1.0x3 = 0x38,0xfffc 0039 00d9 | | Load_Top At_Offset_1 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 00da | | Load_Top At_Offset_2 003c 03a3 | | Complete_Type Heap_Access,By_Defining 003d 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x3d,0xfffb 003e 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x3e,0xfffa 003f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x6 = 0x3f,0xfff9 0040 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0041 00eb | | Load_Encached Diana_Cache 0042 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0043 00e3 | | Load_Encached Natural_Cache 0044 00e1 | | Load_Encached Boolean_Cache 0045 e21b | | Load 0x1,0x1b 0046 4801 |H | Short_Literal 0x1 0047 e001 | | Load 0x0,0x1 0048 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0049 4801 |H | Short_Literal 0x1 004a 00ec | | Load_Encached Diana_Tree_Cache 004b 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 004d 4802 |H | Short_Literal 0x2 004e 4805 |H | Short_Literal 0x5 004f 4802 |H | Short_Literal 0x2 0050 4800 |H | Short_Literal 0x0 0051 4801 |H | Short_Literal 0x1 0052 031d | | Declare_Type Variant_Record,Defined 0053 e20f | | Load 0x1,0xf ; Debug Table 0x1.0x7 = 0x53,0xfff8 0054 0266 | f | Execute Discrete,Bounds 0055 00da | | Load_Top At_Offset_2 0056 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0058 e218 | | Load 0x1,0x18 0059 0343 | C | Complete_Type Array,By_Defining 005a 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call ; Debug Table 0x1.0x8 = 0x5a,0xfff7 005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x5c,0xfff6 005d 00c7 | | Action Elaborate_Subprogram 005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xa = 0x5e,0xfff5 005f 00c7 | | Action Elaborate_Subprogram 0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xb = 0x60,0xfff4 0061 00c7 | | Action Elaborate_Subprogram 0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xc = 0x62,0xfff3 0063 00c7 | | Action Elaborate_Subprogram 0064 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xd = 0x64,0xfff2 0065 00c7 | | Action Elaborate_Subprogram 0066 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xe = 0x66,0xfff1 0067 00c7 | | Action Elaborate_Subprogram 0068 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xf = 0x68,0xfff0 0069 00c7 | | Action Elaborate_Subprogram 006a BODY_0008: 006a 00bc | | Action Signal_Activated 006b 00bb | | Action Signal_Completion 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4801 |H | Short_Literal 0x1 ; Debug Table 0x2 = .DEBUG 0x0073,0x0282,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0029 ; Debug Table 0x2.0x0 = 0x73,0x1 0074 00db | | Load_Top At_Offset_3 0075 e20d | | Load 0x1,0xd 0076 821d | | Call 0x1,0x1d 0077 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 0078 00d8 | | Load_Top At_Offset_0 0079 0217 | | Execute Heap_Access,All_Reference 007a 1c00 | | Execute_Immediate Run_Utility,0x0 007b a5fe | | Store_Unchecked 0x2,-0x2 007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x2.0x1 = 0x7c,0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0088 | | .CONST 0x0088 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0083,0x0288,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0035 ; Debug Table 0x3.0x0 = 0x83,0xffff 0084 00db | | Load_Top At_Offset_3 0085 0217 | | Execute Heap_Access,All_Reference 0086 01d5 | | Execute Vector,Field_Reference 0087 0007 | | Action Break_Optional 0088 BODY_0080: 0088 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x3.0x1 = 0x88,0x1 0089 681c |h | Jump_Zero 0xa6 008a 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x2 = 0x8a,0x2 008b e21c | | Load 0x1,0x1c 008c 1c08 | | Execute_Immediate Run_Utility,0x8 008d e5fd | | Load 0x2,-0x3 008e 00eb | | Load_Encached Diana_Cache 008f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0090 00ed | | Load_Encached Diana_Symbol_Rep_Cache 0091 0119 | | Execute Any,Check_In_Formal_Type 0092 00d9 | | Load_Top At_Offset_1 0093 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0094 e5fc | | Load 0x2,-0x4 0095 00d9 | | Load_Top At_Offset_1 0096 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0097 e5fa | | Load 0x2,-0x6 0098 00d9 | | Load_Top At_Offset_1 0099 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 009a e5f9 | | Load 0x2,-0x7 009b 00d9 | | Load_Top At_Offset_1 009c 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 009d e21b | | Load 0x1,0x1b 009e 00d9 | | Load_Top At_Offset_1 009f 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 00a0 e5f7 | | Load 0x2,-0x9 00a1 00d9 | | Load_Top At_Offset_1 00a2 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 00a3 00d9 | | Load_Top At_Offset_1 00a4 016d | m | Execute Variant_Record,Structure_Write 00a5 781b |x | Jump 0xc1 00a6 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0xa6,0x3 00a7 e21c | | Load 0x1,0x1c 00a8 1c08 | | Execute_Immediate Run_Utility,0x8 00a9 e5fd | | Load 0x2,-0x3 00aa 00eb | | Load_Encached Diana_Cache 00ab 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00ac 00ed | | Load_Encached Diana_Symbol_Rep_Cache 00ad 0119 | | Execute Any,Check_In_Formal_Type 00ae 00d9 | | Load_Top At_Offset_1 00af 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00b0 e5fc | | Load 0x2,-0x4 00b1 00d9 | | Load_Top At_Offset_1 00b2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00b3 e5fa | | Load 0x2,-0x6 00b4 00d9 | | Load_Top At_Offset_1 00b5 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 00b6 e5f9 | | Load 0x2,-0x7 00b7 00d9 | | Load_Top At_Offset_1 00b8 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 00b9 e21b | | Load 0x1,0x1b 00ba 00d9 | | Load_Top At_Offset_1 00bb 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 00bc e5fb | | Load 0x2,-0x5 00bd 00d9 | | Load_Top At_Offset_1 00be 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 00bf 00d9 | | Load_Top At_Offset_1 00c0 016d | m | Execute Variant_Record,Structure_Write 00c1 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x4 = 0xc1,0x4 00c2 e5f6 | | Load 0x2,-0xa 00c3 e21b | | Load 0x1,0x1b 00c4 821d | | Call 0x1,0x1d 00c5 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 00c6 00d9 | | Load_Top At_Offset_1 00c7 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 00c8 450b |E | Exit_Suprogram New_Top_Offset 0xb ; Debug Table 0x3.0x5 = 0xc8,0x5 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4 = .DEBUG 0x00d3,0x0296,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0067 ; Debug Table 0x4.0x0 = 0xd3,0x1 00d4 e5fd | | Load 0x2,-0x3 00d5 e5fe | | Load 0x2,-0x2 00d6 e5ff | | Load 0x2,-0x1 00d7 0217 | | Execute Heap_Access,All_Reference 00d8 01d5 | | Execute Vector,Field_Reference 00d9 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 00da 0217 | | Execute Heap_Access,All_Reference 00db 01d5 | | Execute Vector,Field_Reference 00dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00dd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00de 0000 0000 | | .XXX[0x2] 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 ; Debug Table 0x5 = .DEBUG 0x00e3,0x029a,0x0002,0x0000,0x0059,0x72b5,0x0000,0x007d ; Debug Table 0x5.0x0 = 0xe3,0x1 00e4 7002 |p | Jump_Nonzero 0xe7 00e5 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x1 = 0xe5,0x2 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0xe7,0x3 00e8 0217 | | Execute Heap_Access,All_Reference 00e9 01dc | | Execute Vector,Last 00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00eb 0000 0000 | | .BLANK 0000[0x5] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f8 | | .CONST 0x00f8 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x00f3,0x02a2,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0086 ; Debug Table 0x6.0x0 = 0xf3,0xffff 00f4 00db | | Load_Top At_Offset_3 00f5 0217 | | Execute Heap_Access,All_Reference 00f6 01d5 | | Execute Vector,Field_Reference 00f7 0007 | | Action Break_Optional 00f8 BODY_00f0: 00f8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1 = 0xf8,0x1 00f9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00fa 681b |h | Jump_Zero 0x116 00fb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0xfb,0x2 00fc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00fd c5fd | | Store 0x2,-0x3 00fe 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0xfe,0x3 00ff 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0100 a5fc | | Store_Unchecked 0x2,-0x4 0101 00eb | | Load_Encached Diana_Cache ; Debug Table 0x6.0x4 = 0x101,0x4 0102 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0103 a5fb | | Store_Unchecked 0x2,-0x5 0104 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x5 = 0x104,0x5 0105 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0106 a5fa | | Store_Unchecked 0x2,-0x6 0107 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x6 = 0x107,0x6 0108 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0109 a5f9 | | Store_Unchecked 0x2,-0x7 010a 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x7 = 0x10a,0x7 010b a5f8 | | Store_Unchecked 0x2,-0x8 010c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x8 = 0x10c,0x8 010d 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7 010e e5f7 | | Load 0x2,-0x9 010f 016d | m | Execute Variant_Record,Structure_Write 0110 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x9 = 0x110,0x9 0111 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0112 0217 | | Execute Heap_Access,All_Reference 0113 01dc | | Execute Vector,Last 0114 a5f6 | | Store_Unchecked 0x2,-0xa 0115 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0116 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xa = 0x116,0xa 0117 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0118 c5fd | | Store 0x2,-0x3 0119 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xb = 0x119,0xb 011a 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 011b a5fc | | Store_Unchecked 0x2,-0x4 011c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xc = 0x11c,0xc 011d 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 011e a5fb | | Store_Unchecked 0x2,-0x5 011f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xd = 0x11f,0xd 0120 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0121 a5fa | | Store_Unchecked 0x2,-0x6 0122 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xe = 0x122,0xe 0123 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0124 a5f9 | | Store_Unchecked 0x2,-0x7 0125 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xf = 0x125,0xf 0126 a5f8 | | Store_Unchecked 0x2,-0x8 0127 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x10 = 0x127,0x10 0128 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0129 e5f7 | | Load 0x2,-0x9 012a 016d | m | Execute Variant_Record,Structure_Write 012b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x11 = 0x12b,0x11 012c 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 012d 0217 | | Execute Heap_Access,All_Reference 012e 01dc | | Execute Vector,Last 012f a5f6 | | Store_Unchecked 0x2,-0xa 0130 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e5fd | | Load 0x2,-0x3 ; Debug Table 0x7 = .DEBUG 0x013b,0x02c8,0x0001,0x0000,0x0059,0x72b5,0x0000,0x00ba ; Debug Table 0x7.0x0 = 0x13b,0x1 013c e5fe | | Load 0x2,-0x2 013d e5ff | | Load 0x2,-0x1 013e 0217 | | Execute Heap_Access,All_Reference 013f 01d5 | | Execute Vector,Field_Reference 0140 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0141 0217 | | Execute Heap_Access,All_Reference 0142 01d5 | | Execute Vector,Field_Reference 0143 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0144 a5fc | | Store_Unchecked 0x2,-0x4 0145 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0150 | P | .CONST 0x0150 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x014b,0x02cc,0x0002,0x0000,0x0059,0x72b5,0x0000,0x00d0 ; Debug Table 0x8.0x0 = 0x14b,0xffff 014c 00db | | Load_Top At_Offset_3 014d 0217 | | Execute Heap_Access,All_Reference 014e 01d5 | | Execute Vector,Field_Reference 014f 0007 | | Action Break_Optional 0150 BODY_0148: 0150 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x150,0x1 0151 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0152 6803 |h | Jump_Zero 0x156 0153 00eb | | Load_Encached Diana_Cache ; Debug Table 0x8.0x2 = 0x153,0x2 0154 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0155 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0156 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x156,0x3 0157 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0158 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x0163,0x02d6,0x0005,0x0000,0x0059,0x7665,0x0000,0x002e 0164 7808 |x | Jump 0x16d ; case 0x0 0165 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0166 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0167 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0168 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0169 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 016a 781e |x | Jump 0x189 ; case 0x6 016b 7825 |x% | Jump 0x191 ; case 0x7 016c 782f |x/ | Jump 0x19c ; case 0x8 016d 00da | | Load_Top At_Offset_2 016e 016c | l | Execute Variant_Record,Is_Constrained 016f 7009 |p | Jump_Nonzero 0x179 0170 00cf | | Action Mark_Auxiliary 0171 4800 |H | Short_Literal 0x0 0172 e5ff | | Load 0x2,-0x1 0173 1c08 | | Execute_Immediate Run_Utility,0x8 0174 00d8 | | Load_Top At_Offset_0 0175 1c00 | | Execute_Immediate Run_Utility,0x0 0176 c5ff | | Store 0x2,-0x1 0177 00ce | | Action Pop_Auxiliary 0178 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0179 00da | | Load_Top At_Offset_2 017a 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2 017b 00da | | Load_Top At_Offset_2 017c 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 017d 1c00 | | Execute_Immediate Run_Utility,0x0 017e 00da | | Load_Top At_Offset_2 017f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0180 4601 |F | Jump_Case 0x2 0181 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0182 7800 |x | Jump 0x183 ; case 0x1 0183 00da | | Load_Top At_Offset_2 0184 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 0185 00da | | Load_Top At_Offset_2 0186 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7 0187 1c00 | | Execute_Immediate Run_Utility,0x0 0188 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0189 00db | | Load_Top At_Offset_3 018a 4601 |F | Jump_Case 0x2 018b 7803 |x | Jump 0x18f ; case 0x0 018c 7800 |x | Jump 0x18d ; case 0x1 018d 4801 |H | Short_Literal 0x1 018e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018f 4802 |H | Short_Literal 0x2 0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0191 00db | | Load_Top At_Offset_3 0192 e5fe | | Load 0x2,-0x2 0193 4601 |F | Jump_Case 0x2 0194 7803 |x | Jump 0x198 ; case 0x0 0195 7800 |x | Jump 0x196 ; case 0x1 0196 4801 |H | Short_Literal 0x1 0197 7801 |x | Jump 0x199 0198 4802 |H | Short_Literal 0x2 0199 e5ff | | Load 0x2,-0x1 019a 031b | | Declare_Type Variant_Record,Constrained 019b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019c 00db | | Load_Top At_Offset_3 019d e5fe | | Load 0x2,-0x2 019e e5ff | | Load 0x2,-0x1 019f 1c06 | | Execute_Immediate Run_Utility,0x6 01a0 e5ff | | Load 0x2,-0x1 01a1 02fc | | Declare_Variable Variant_Record,With_Constraint 01a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a3 0000 0000 | | .BLANK 0000[0x5] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xa = .DEBUG 0x01ab,0x02d8,0x0005,0x0000,0x0059,0x7665,0x0000,0x006d 01ac 00da | | Load_Top At_Offset_2 01ad 01dc | | Execute Vector,Last 01ae 00db | | Load_Top At_Offset_3 01af 01dd | | Execute Vector,First 01b0 0263 | c | Execute Discrete,Above_Bound 01b1 7006 |p | Jump_Nonzero 0x1b8 01b2 00d8 | | Load_Top At_Offset_0 01b3 e5ff | | Load 0x2,-0x1 01b4 01d5 | | Execute Vector,Field_Reference 01b5 1c00 | | Execute_Immediate Run_Utility,0x0 01b6 0a01 | | Execute_Immediate Plus,0x1 01b7 7ff8 | | Jump 0x1b0 01b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01b9 0000 0000 | | .BLANK 0000[0x7] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c6 | | .CONST 0x01c6 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0003 | | .CONST 0x0003 ; Number of locals 01c3 INIT_01c0: 01c3 e001 | | Load 0x0,0x1 ; Debug Table 0xb = .DEBUG 0x01c3,0x02da,0x0002,0x0000,0x0059,0x7665,0x0000,0x0076 ; Debug Table 0xb.0x0 = 0x1c3,0xffff 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb.0x1 = 0x1c5,0xfffe 01c6 BODY_01c0: 01c6 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x2 = 0x1c6,0x1 01c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c8 e001 | | Load 0x0,0x1 01c9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01cb 4800 |H | Short_Literal 0x0 01cc 4800 |H | Short_Literal 0x0 01cd e001 | | Load 0x0,0x1 01ce 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 01cf 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 01d0 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01d1 005a | Z | Store_Top Discrete,At_Offset_2 01d2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x1d2,0x2 01d3 00eb | | Load_Encached Diana_Cache 01d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d5 00ca | | Action Exit_Nullary_Function 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug Table 01d8 ; -------------------------------------------------------------------------------------- 01d8 0003 000c | | .CONST 0x0003,0x000c 01da 000b 023a | :| .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0059,0x72b5,0x0000,0x0007 01e2 002d 0260 | - `| .DEBUG 0x002d,0x0260,0x8000,0x0000,0x0059,0x7665,0x0000,0x0007 01ea 0073 0282 | s | .DEBUG 0x0073,0x0282,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0029 01f2 0083 0288 | | .DEBUG 0x0083,0x0288,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0035 01fa 00d3 0296 | | .DEBUG 0x00d3,0x0296,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0067 0202 00e3 029a | | .DEBUG 0x00e3,0x029a,0x0002,0x0000,0x0059,0x72b5,0x0000,0x007d 020a 00f3 02a2 | | .DEBUG 0x00f3,0x02a2,0x0001,0x0000,0x0059,0x72b5,0x0000,0x0086 0212 013b 02c8 | ; | .DEBUG 0x013b,0x02c8,0x0001,0x0000,0x0059,0x72b5,0x0000,0x00ba 021a 014b 02cc | K | .DEBUG 0x014b,0x02cc,0x0002,0x0000,0x0059,0x72b5,0x0000,0x00d0 0222 0163 02d6 | c | .DEBUG 0x0163,0x02d6,0x0005,0x0000,0x0059,0x7665,0x0000,0x002e 022a 01ab 02d8 | | .DEBUG 0x01ab,0x02d8,0x0005,0x0000,0x0059,0x7665,0x0000,0x006d 0232 01c3 02da | | .DEBUG 0x01c3,0x02da,0x0002,0x0000,0x0059,0x7665,0x0000,0x0076 023a ; -------------------------------------------------------------------------------------- 023a ; Debug3 Subtable 0x0 023a ; -------------------------------------------------------------------------------------- 023a 0012 0000 | | .DBG3TAB 0x0012,0x0000 023c 000b ffff | | .CONST 0x000b,0xffff 023e 000c fffe | | .CONST 0x000c,0xfffe 0240 000d fffd | | .CONST 0x000d,0xfffd 0242 000e fffc | | .CONST 0x000e,0xfffc 0244 000f fffb | | .CONST 0x000f,0xfffb 0246 0010 fffa | | .CONST 0x0010,0xfffa 0248 0012 fff9 | | .CONST 0x0012,0xfff9 024a 0014 fff8 | | .CONST 0x0014,0xfff8 024c 0016 fff7 | | .CONST 0x0016,0xfff7 024e 0018 fff6 | | .CONST 0x0018,0xfff6 0250 001a fff5 | | .CONST 0x001a,0xfff5 0252 001c fff4 | | .CONST 0x001c,0xfff4 0254 001e fff3 | | .CONST 0x001e,0xfff3 0256 0020 fff2 | | .CONST 0x0020,0xfff2 0258 0022 fff1 | " | .CONST 0x0022,0xfff1 025a 0024 fff0 | $ | .CONST 0x0024,0xfff0 025c 0028 ffef | ( | .CONST 0x0028,0xffef 025e 0029 ffee | ) | .CONST 0x0029,0xffee 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug3 Subtable 0x1 0260 ; -------------------------------------------------------------------------------------- 0260 0010 0000 | | .DBG3TAB 0x0010,0x0000 0262 002d ffff | - | .CONST 0x002d,0xffff 0264 002e fffe | . | .CONST 0x002e,0xfffe 0266 0032 fffd | 2 | .CONST 0x0032,0xfffd 0268 0038 fffc | 8 | .CONST 0x0038,0xfffc 026a 003d fffb | = | .CONST 0x003d,0xfffb 026c 003e fffa | > | .CONST 0x003e,0xfffa 026e 003f fff9 | ? | .CONST 0x003f,0xfff9 0270 0053 fff8 | S | .CONST 0x0053,0xfff8 0272 005a fff7 | Z | .CONST 0x005a,0xfff7 0274 005c fff6 | \ | .CONST 0x005c,0xfff6 0276 005e fff5 | ^ | .CONST 0x005e,0xfff5 0278 0060 fff4 | ` | .CONST 0x0060,0xfff4 027a 0062 fff3 | b | .CONST 0x0062,0xfff3 027c 0064 fff2 | d | .CONST 0x0064,0xfff2 027e 0066 fff1 | f | .CONST 0x0066,0xfff1 0280 0068 fff0 | h | .CONST 0x0068,0xfff0 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug3 Subtable 0x2 0282 ; -------------------------------------------------------------------------------------- 0282 0000 0002 | | .DBG3TAB 0x0000,0x0002 0284 0073 0001 | s | .CONST 0x0073,0x0001 0286 007c 0002 | | | .CONST 0x007c,0x0002 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug3 Subtable 0x3 0288 ; -------------------------------------------------------------------------------------- 0288 0001 0005 | | .DBG3TAB 0x0001,0x0005 028a 0083 ffff | | .CONST 0x0083,0xffff 028c 0088 0001 | | .CONST 0x0088,0x0001 028e 008a 0002 | | .CONST 0x008a,0x0002 0290 00a6 0003 | | .CONST 0x00a6,0x0003 0292 00c1 0004 | | .CONST 0x00c1,0x0004 0294 00c8 0005 | | .CONST 0x00c8,0x0005 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug3 Subtable 0x4 0296 ; -------------------------------------------------------------------------------------- 0296 0000 0001 | | .DBG3TAB 0x0000,0x0001 0298 00d3 0001 | | .CONST 0x00d3,0x0001 029a ; -------------------------------------------------------------------------------------- 029a ; Debug3 Subtable 0x5 029a ; -------------------------------------------------------------------------------------- 029a 0000 0003 | | .DBG3TAB 0x0000,0x0003 029c 00e3 0001 | | .CONST 0x00e3,0x0001 029e 00e5 0002 | | .CONST 0x00e5,0x0002 02a0 00e7 0003 | | .CONST 0x00e7,0x0003 02a2 ; -------------------------------------------------------------------------------------- 02a2 ; Debug3 Subtable 0x6 02a2 ; -------------------------------------------------------------------------------------- 02a2 0001 0011 | | .DBG3TAB 0x0001,0x0011 02a4 00f3 ffff | | .CONST 0x00f3,0xffff 02a6 00f8 0001 | | .CONST 0x00f8,0x0001 02a8 00fb 0002 | | .CONST 0x00fb,0x0002 02aa 00fe 0003 | | .CONST 0x00fe,0x0003 02ac 0101 0004 | | .CONST 0x0101,0x0004 02ae 0104 0005 | | .CONST 0x0104,0x0005 02b0 0107 0006 | | .CONST 0x0107,0x0006 02b2 010a 0007 | | .CONST 0x010a,0x0007 02b4 010c 0008 | | .CONST 0x010c,0x0008 02b6 0110 0009 | | .CONST 0x0110,0x0009 02b8 0116 000a | | .CONST 0x0116,0x000a 02ba 0119 000b | | .CONST 0x0119,0x000b 02bc 011c 000c | | .CONST 0x011c,0x000c 02be 011f 000d | | .CONST 0x011f,0x000d 02c0 0122 000e | " | .CONST 0x0122,0x000e 02c2 0125 000f | % | .CONST 0x0125,0x000f 02c4 0127 0010 | ' | .CONST 0x0127,0x0010 02c6 012b 0011 | + | .CONST 0x012b,0x0011 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug3 Subtable 0x7 02c8 ; -------------------------------------------------------------------------------------- 02c8 0000 0001 | | .DBG3TAB 0x0000,0x0001 02ca 013b 0001 | ; | .CONST 0x013b,0x0001 02cc ; -------------------------------------------------------------------------------------- 02cc ; Debug3 Subtable 0x8 02cc ; -------------------------------------------------------------------------------------- 02cc 0001 0003 | | .DBG3TAB 0x0001,0x0003 02ce 014b ffff | K | .CONST 0x014b,0xffff 02d0 0150 0001 | P | .CONST 0x0150,0x0001 02d2 0153 0002 | S | .CONST 0x0153,0x0002 02d4 0156 0003 | V | .CONST 0x0156,0x0003 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug3 Subtable 0x9 02d6 ; -------------------------------------------------------------------------------------- 02d6 0000 0000 | | .DBG3TAB 0x0000,0x0000 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug3 Subtable 0xa 02d8 ; -------------------------------------------------------------------------------------- 02d8 0000 0000 | | .DBG3TAB 0x0000,0x0000 02da ; -------------------------------------------------------------------------------------- 02da ; Debug3 Subtable 0xb 02da ; -------------------------------------------------------------------------------------- 02da 0002 0002 | | .DBG3TAB 0x0002,0x0002 02dc 01c3 ffff | | .CONST 0x01c3,0xffff 02de 01c5 fffe | | .CONST 0x01c5,0xfffe 02e0 01c6 0001 | | .CONST 0x01c6,0x0001 02e2 01d2 0002 | | .CONST 0x01d2,0x0002 02e4 0000 0000 | | .BLANK 0000[0x11c]