|
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_0500e0
└─⟦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 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 0024 | $ | .CONST 0x0024 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x01ea,0x8000,0x0000,0x0057,0x34e5,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 00bf | | Action Accept_Activation 0014 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0014,0x01f4,0x8000,0x0000,0x0057,0x5325,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x14,0xffff 0015 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x15,0xfffe 0016 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x16,0xfffd 0017 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x17,0xfffc 0018 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call ; Debug Table 0x1.0x4 = 0x18,0xfffb 001a 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call ; Debug Table 0x1.0x5 = 0x1a,0xfffa 001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x1c,0xfff9 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x7 = 0x1e,0xfff8 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x8 = 0x20,0xfff7 0021 00c7 | | Action Elaborate_Subprogram 0022 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x9 = 0x22,0xfff6 0023 00c7 | | Action Elaborate_Subprogram 0024 BODY_0008: 0024 00bc | | Action Signal_Activated 0025 00bb | | Action Signal_Completion 0026 0000 0000 | | .XXX[0x2] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x002b,0x020a,0x0002,0x0000,0x0057,0x34e5,0x0000,0x0006 ; Debug Table 0x2.0x0 = 0x2b,0x1 002c 00eb | | Load_Encached Diana_Cache 002d 1888 | | Execute Package,Field_Execute,Field_Number 0x88 002e 820e | | Call 0x1,0xe 002f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0034 | 4 | .CONST 0x0034 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0002 | | .CONST 0x0002 ; Number of locals 0033 INIT_0030: 0033 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3 = .DEBUG 0x0033,0x020e,0x0002,0x0000,0x0057,0x34e5,0x0000,0x0011 ; Debug Table 0x3.0x0 = 0x33,0xffff 0034 BODY_0030: 0034 0007 | | Action Break_Optional ; Debug Table 0x3.0x1 = 0x34,0x1 0035 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x2 = 0x35,0x401 0036 021d | | Execute Heap_Access,Is_Null 0037 6802 |h | Jump_Zero 0x3a ; Debug Table 0x3.0x3 = 0x37,0x1 0038 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x4 = 0x38,0x2 0039 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003a 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x5 = 0x3a,0x3 003b e001 | | Load 0x0,0x1 003c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 003d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 003e 0007 | | Action Break_Optional ; Debug Table 0x3.0x6 = 0x3e,0x4 003f e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x7 = 0x3f,0x801 0040 0007 | | Action Break_Optional 0041 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x3.0x8 = 0x41,0x802 0042 0007 | | Action Break_Optional ; Debug Table 0x3.0x9 = 0x42,0x803 0043 0007 | | Action Break_Optional ; Debug Table 0x3.0xa = 0x43,0x804 0044 0b5d | ] | Execute_Immediate Case_Compare,0x5d ; Debug Table 0x3.0xb = 0x44,0x4 0045 700c |p | Jump_Nonzero 0x52 0046 0b55 | U | Execute_Immediate Case_Compare,0x55 0047 700a |p | Jump_Nonzero 0x52 0048 0b5c | \ | Execute_Immediate Case_Compare,0x5c 0049 700a |p | Jump_Nonzero 0x54 004a 0b54 | T | Execute_Immediate Case_Compare,0x54 004b 7020 |p | Jump_Nonzero 0x6c 004c 0b56 | V | Execute_Immediate Case_Compare,0x56 004d 7026 |p& | Jump_Nonzero 0x74 004e 0b4f | O | Execute_Immediate Case_Compare,0x4f 004f 7027 |p' | Jump_Nonzero 0x77 0050 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xc = 0x50,0xa 0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0052 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xd = 0x52,0x5 0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0054 00cf | | Action Mark_Auxiliary ; Debug Table 0x3.0xe = 0x54,0x6 0055 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0xf = 0x55,0xf3ff 0056 00db | | Load_Top At_Offset_3 0057 00eb | | Load_Encached Diana_Cache 0058 18d6 | | Execute Package,Field_Execute,Field_Number 0xd6 0059 0031 | 1 | Store_Top Heap_Access,At_Offset_1 005a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x10 = 0x5a,0xc01 005b 0007 | | Action Break_Optional 005c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x11 = 0x5c,0x1001 005d 021d | | Execute Heap_Access,Is_Null 005e 00d0 | | Action Swap_Control 005f 00d1 | | Pop_Control Pop_Count_1 0060 7009 |p | Jump_Nonzero 0x6a ; Debug Table 0x3.0x12 = 0x60,0xc01 0061 00d8 | | Load_Top At_Offset_0 0062 4976 |Iv | Short_Literal 0x176 0063 00eb | | Load_Encached Diana_Cache 0064 0098 | | Execute Package,Field_Read_Dynamic 0065 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0066 e002 | | Load 0x0,0x2 0067 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0068 0f00 | | Execute_Immediate Equal,0x0 0069 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006a 4801 |H | Short_Literal 0x1 006b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x13 = 0x6c,0x7 006d 00eb | | Load_Encached Diana_Cache 006e 18ca | | Execute Package,Field_Execute,Field_Number 0xca 006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x14 = 0x6f,0x1401 0070 021d | | Execute Heap_Access,Is_Null 0071 00d0 | | Action Swap_Control 0072 00d1 | | Pop_Control Pop_Count_1 0073 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 ; Debug Table 0x3.0x15 = 0x73,0x7 0074 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x16 = 0x74,0x8 0075 8212 | | Call 0x1,0x12 0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0077 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x17 = 0x77,0x9 0078 00eb | | Load_Encached Diana_Cache 0079 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4 007a 8211 | | Call 0x1,0x11 007b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008a | | .CONST 0x008a ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x4 = .DEBUG 0x0083,0x0240,0x0002,0x0000,0x0057,0x34e5,0x0000,0x001c ; Debug Table 0x4.0x0 = 0x83,0xffff 0084 00db | | Load_Top At_Offset_3 0085 00eb | | Load_Encached Diana_Cache 0086 1888 | | Execute Package,Field_Execute,Field_Number 0x88 0087 e001 | | Load 0x0,0x1 0088 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0089 0031 | 1 | Store_Top Heap_Access,At_Offset_1 008a BODY_0080: 008a 0007 | | Action Break_Optional ; Debug Table 0x4.0x1 = 0x8a,0x1 008b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0x8b,0x401 008c 7002 |p | Jump_Nonzero 0x8f 008d 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x4.0x3 = 0x8d,0x402 008e 7803 |x | Jump 0x92 008f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x4 = 0x8f,0x403 0090 0217 | | Execute Heap_Access,All_Reference 0091 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0092 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x5 = 0x92,0x1 0093 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0094 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0x94,0x801 0095 021d | | Execute Heap_Access,Is_Null 0096 00d0 | | Action Swap_Control 0097 00d1 | | Pop_Control Pop_Count_1 0098 683d |h= | Jump_Zero 0xd6 ; Debug Table 0x4.0x7 = 0x98,0x1 0099 00d8 | | Load_Top At_Offset_0 009a 0007 | | Action Break_Optional 009b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0x9b,0xc01 009c 7002 |p | Jump_Nonzero 0x9f 009d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x9 = 0x9d,0xc02 009e 782c |x, | Jump 0xcb 009f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xa = 0x9f,0xc03 00a0 0217 | | Execute Heap_Access,All_Reference 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 6804 |h | Jump_Zero 0xa7 00a3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xb = 0xa3,0xc04 00a4 0217 | | Execute Heap_Access,All_Reference 00a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a6 7824 |x$ | Jump 0xcb 00a7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xc = 0xa7,0xc05 00a8 0007 | | Action Break_Optional 00a9 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xd = 0xa9,0x1001 00aa 0007 | | Action Break_Optional 00ab 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x4.0xe = 0xab,0x1002 00ac 0007 | | Action Break_Optional ; Debug Table 0x4.0xf = 0xac,0x1003 00ad 00d0 | | Action Swap_Control ; Debug Table 0x4.0x10 = 0xad,0x1004 00ae 00d1 | | Pop_Control Pop_Count_1 00af 49bb |I | Short_Literal 0x1bb ; Debug Table 0x4.0x11 = 0xaf,0xc05 00b0 00eb | | Load_Encached Diana_Cache 00b1 0098 | | Execute Package,Field_Read_Dynamic 00b2 012c | , | Execute Any,Size 00b3 e003 | | Load 0x0,0x3 00b4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b5 025b | [ | Execute Discrete,Check_In_Type 00b6 0273 | s | Execute Discrete,Plus 00b7 00d9 | | Load_Top At_Offset_1 00b8 0007 | | Action Break_Optional 00b9 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x12 = 0xb9,0x1401 00ba 0007 | | Action Break_Optional 00bb 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x4.0x13 = 0xbb,0x1402 00bc 0007 | | Action Break_Optional ; Debug Table 0x4.0x14 = 0xbc,0x1403 00bd 00d0 | | Action Swap_Control ; Debug Table 0x4.0x15 = 0xbd,0x1404 00be 00d1 | | Pop_Control Pop_Count_1 00bf 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x4.0x16 = 0xbf,0x1004 00c0 00eb | | Load_Encached Diana_Cache 00c1 0098 | | Execute Package,Field_Read_Dynamic 00c2 49c9 |I | Short_Literal 0x1c9 00c3 00eb | | Load_Encached Diana_Cache 00c4 0098 | | Execute Package,Field_Read_Dynamic 00c5 49ca |I | Short_Literal 0x1ca 00c6 00eb | | Load_Encached Diana_Cache 00c7 0095 | | Execute Package,Field_Reference_Dynamic 00c8 e004 | | Load 0x0,0x4 00c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00ca 7800 |x | Jump 0xcb 00cb 00d0 | | Action Swap_Control 00cc 00d1 | | Pop_Control Pop_Count_1 00cd 0007 | | Action Break_Optional ; Debug Table 0x4.0x17 = 0xcd,0x801 00ce e403 | | Load 0x2,0x3 ; Debug Table 0x4.0x18 = 0xce,0x1801 00cf 0007 | | Action Break_Optional 00d0 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x4.0x19 = 0xd0,0x1802 00d1 0007 | | Action Break_Optional ; Debug Table 0x4.0x1a = 0xd1,0x1803 00d2 00d0 | | Action Swap_Control ; Debug Table 0x4.0x1b = 0xd2,0x1804 00d3 00d1 | | Pop_Control Pop_Count_1 00d4 0f5a | Z | Execute_Immediate Equal,0x5a ; Debug Table 0x4.0x1c = 0xd4,0x801 00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d6 4800 |H | Short_Literal 0x0 00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 0007 | | Action Break_Optional ; Debug Table 0x5 = .DEBUG 0x00db,0x027c,0x0002,0x0000,0x0057,0x34e5,0x0000,0x0027 ; Debug Table 0x5.0x0 = 0xdb,0x1 00dc e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x1 = 0xdc,0x401 00dd 0007 | | Action Break_Optional 00de 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0x2 = 0xde,0x402 00df 0007 | | Action Break_Optional ; Debug Table 0x5.0x3 = 0xdf,0x403 00e0 0007 | | Action Break_Optional ; Debug Table 0x5.0x4 = 0xe0,0x404 00e1 0b4d | M | Execute_Immediate Case_Compare,0x4d ; Debug Table 0x5.0x5 = 0xe1,0x1 00e2 7004 |p | Jump_Nonzero 0xe7 00e3 0b5b | [ | Execute_Immediate Case_Compare,0x5b 00e4 7008 |p | Jump_Nonzero 0xed 00e5 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x6 = 0xe5,0x4 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x7 = 0xe7,0x2 00e8 00eb | | Load_Encached Diana_Cache 00e9 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5 00ea e005 | | Load 0x0,0x5 00eb 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ed 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x8 = 0xed,0x3 00ee 490c |I | Short_Literal 0x10c 00ef 00eb | | Load_Encached Diana_Cache 00f0 0096 | | Execute Package,Entry 00f1 e005 | | Load 0x0,0x5 00f2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0103 | | .CONST 0x0103 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x6 = .DEBUG 0x00fb,0x0290,0x0002,0x0000,0x0057,0x5325,0x0000,0x0022 ; Debug Table 0x6.0x0 = 0xfb,0xffff 00fc 00db | | Load_Top At_Offset_3 00fd 00eb | | Load_Encached Diana_Cache 00fe 1888 | | Execute Package,Field_Execute,Field_Number 0x88 00ff e001 | | Load 0x0,0x1 0100 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0101 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0102 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x6.0x1 = 0x102,0xfffe 0103 BODY_00f8: 0103 00cf | | Action Mark_Auxiliary 0104 784a |xJ | Jump 0x14f 0105 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x105,0x2 0106 0007 | | Action Break_Optional 0107 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x107,0x401 0108 7002 |p | Jump_Nonzero 0x10b 0109 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x4 = 0x109,0x402 010a 782c |x, | Jump 0x137 010b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x5 = 0x10b,0x403 010c 0217 | | Execute Heap_Access,All_Reference 010d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010e 6804 |h | Jump_Zero 0x113 010f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x6 = 0x10f,0x404 0110 0217 | | Execute Heap_Access,All_Reference 0111 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0112 7824 |x$ | Jump 0x137 0113 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x7 = 0x113,0x405 0114 0007 | | Action Break_Optional 0115 e406 | | Load 0x2,0x6 ; Debug Table 0x6.0x8 = 0x115,0x801 0116 0007 | | Action Break_Optional 0117 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x6.0x9 = 0x117,0x802 0118 0007 | | Action Break_Optional ; Debug Table 0x6.0xa = 0x118,0x803 0119 00d0 | | Action Swap_Control ; Debug Table 0x6.0xb = 0x119,0x804 011a 00d1 | | Pop_Control Pop_Count_1 011b 49bb |I | Short_Literal 0x1bb ; Debug Table 0x6.0xc = 0x11b,0x405 011c 00eb | | Load_Encached Diana_Cache 011d 0098 | | Execute Package,Field_Read_Dynamic 011e 012c | , | Execute Any,Size 011f e003 | | Load 0x0,0x3 0120 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0121 025b | [ | Execute Discrete,Check_In_Type 0122 0273 | s | Execute Discrete,Plus 0123 00d9 | | Load_Top At_Offset_1 0124 0007 | | Action Break_Optional 0125 e407 | | Load 0x2,0x7 ; Debug Table 0x6.0xd = 0x125,0xc01 0126 0007 | | Action Break_Optional 0127 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x6.0xe = 0x127,0xc02 0128 0007 | | Action Break_Optional ; Debug Table 0x6.0xf = 0x128,0xc03 0129 00d0 | | Action Swap_Control ; Debug Table 0x6.0x10 = 0x129,0xc04 012a 00d1 | | Pop_Control Pop_Count_1 012b 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x6.0x11 = 0x12b,0x804 012c 00eb | | Load_Encached Diana_Cache 012d 0098 | | Execute Package,Field_Read_Dynamic 012e 49c9 |I | Short_Literal 0x1c9 012f 00eb | | Load_Encached Diana_Cache 0130 0098 | | Execute Package,Field_Read_Dynamic 0131 49ca |I | Short_Literal 0x1ca 0132 00eb | | Load_Encached Diana_Cache 0133 0095 | | Execute Package,Field_Reference_Dynamic 0134 e004 | | Load 0x0,0x4 0135 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0136 7800 |x | Jump 0x137 0137 00d0 | | Action Swap_Control 0138 00d1 | | Pop_Control Pop_Count_1 0139 00eb | | Load_Encached Diana_Cache ; Debug Table 0x6.0x12 = 0x139,0x2 013a 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1 013b 00eb | | Load_Encached Diana_Cache 013c 1888 | | Execute Package,Field_Execute,Field_Number 0x88 013d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x13 = 0x13e,0x3 013f 820e | | Call 0x1,0xe 0140 7002 |p | Jump_Nonzero 0x143 0141 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x14 = 0x141,0x4 0142 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0143 0007 | | Action Break_Optional ; Debug Table 0x6.0x15 = 0x143,0x5 0144 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x16 = 0x144,0x1001 0145 7002 |p | Jump_Nonzero 0x148 0146 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x6.0x17 = 0x146,0x1002 0147 7803 |x | Jump 0x14b 0148 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x18 = 0x148,0x1003 0149 0217 | | Execute Heap_Access,All_Reference 014a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014b e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x19 = 0x14b,0x5 014c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 014e 00c9 | | Action Pop_Auxiliary_Loop 014f 0007 | | Action Break_Optional ; Debug Table 0x6.0x1a = 0x14f,0x1 0150 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1b = 0x150,0x1401 0151 021d | | Execute Heap_Access,Is_Null 0152 6fb2 |o | Jump_Zero 0x105 ; Debug Table 0x6.0x1c = 0x152,0x1 0153 00ce | | Action Pop_Auxiliary 0154 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x1d = 0x154,0x6 0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x7 = .DEBUG 0x015b,0x02ce,0x0002,0x0000,0x0057,0x5325,0x0000,0x0085 ; Debug Table 0x7.0x0 = 0x15b,0xffff 015c 00db | | Load_Top At_Offset_3 015d 00eb | | Load_Encached Diana_Cache 015e 1888 | | Execute Package,Field_Execute,Field_Number 0x88 015f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0160 BODY_0158: 0160 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0x160,0x1 0161 4975 |Iu | Short_Literal 0x175 0162 00eb | | Load_Encached Diana_Cache 0163 0098 | | Execute Package,Field_Read_Dynamic 0164 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0165 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x165,0x401 0166 7002 |p | Jump_Nonzero 0x169 0167 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x3 = 0x167,0x402 0168 782c |x, | Jump 0x195 0169 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0x169,0x403 016a 0217 | | Execute Heap_Access,All_Reference 016b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016c 6804 |h | Jump_Zero 0x171 016d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x5 = 0x16d,0x404 016e 0217 | | Execute Heap_Access,All_Reference 016f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0170 7824 |x$ | Jump 0x195 0171 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x6 = 0x171,0x405 0172 0007 | | Action Break_Optional 0173 e404 | | Load 0x2,0x4 ; Debug Table 0x7.0x7 = 0x173,0x801 0174 0007 | | Action Break_Optional 0175 0148 | H | Execute Heap_Access,Get_Offset ; Debug Table 0x7.0x8 = 0x175,0x802 0176 0007 | | Action Break_Optional ; Debug Table 0x7.0x9 = 0x176,0x803 0177 00d0 | | Action Swap_Control ; Debug Table 0x7.0xa = 0x177,0x804 0178 00d1 | | Pop_Control Pop_Count_1 0179 49bb |I | Short_Literal 0x1bb ; Debug Table 0x7.0xb = 0x179,0x405 017a 00eb | | Load_Encached Diana_Cache 017b 0098 | | Execute Package,Field_Read_Dynamic 017c 012c | , | Execute Any,Size 017d e003 | | Load 0x0,0x3 017e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 017f 025b | [ | Execute Discrete,Check_In_Type 0180 0273 | s | Execute Discrete,Plus 0181 00d9 | | Load_Top At_Offset_1 0182 0007 | | Action Break_Optional 0183 e405 | | Load 0x2,0x5 ; Debug Table 0x7.0xc = 0x183,0xc01 0184 0007 | | Action Break_Optional 0185 0210 | | Execute Heap_Access,Get_Segment ; Debug Table 0x7.0xd = 0x185,0xc02 0186 0007 | | Action Break_Optional ; Debug Table 0x7.0xe = 0x186,0xc03 0187 00d0 | | Action Swap_Control ; Debug Table 0x7.0xf = 0x187,0xc04 0188 00d1 | | Pop_Control Pop_Count_1 0189 49c8 |I | Short_Literal 0x1c8 ; Debug Table 0x7.0x10 = 0x189,0x804 018a 00eb | | Load_Encached Diana_Cache 018b 0098 | | Execute Package,Field_Read_Dynamic 018c 49c9 |I | Short_Literal 0x1c9 018d 00eb | | Load_Encached Diana_Cache 018e 0098 | | Execute Package,Field_Read_Dynamic 018f 49ca |I | Short_Literal 0x1ca 0190 00eb | | Load_Encached Diana_Cache 0191 0095 | | Execute Package,Field_Reference_Dynamic 0192 e004 | | Load 0x0,0x4 0193 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0194 7800 |x | Jump 0x195 0195 00d0 | | Action Swap_Control 0196 00d1 | | Pop_Control Pop_Count_1 0197 00eb | | Load_Encached Diana_Cache ; Debug Table 0x7.0x11 = 0x197,0x1 0198 18ca | | Execute Package,Field_Execute,Field_Number 0xca 0199 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x12 = 0x199,0x1001 019a 021d | | Execute Heap_Access,Is_Null 019b 00d0 | | Action Swap_Control 019c 00d1 | | Pop_Control Pop_Count_1 019d 6803 |h | Jump_Zero 0x1a1 ; Debug Table 0x7.0x13 = 0x19d,0x1 019e 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x14 = 0x19e,0x2 019f 8211 | | Call 0x1,0x11 01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a1 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x15 = 0x1a1,0x3 01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a3 0000 0000 | | .BLANK 0000[0x5] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug Table 01a8 ; -------------------------------------------------------------------------------------- 01a8 0003 0008 | | .CONST 0x0003,0x0008 01aa 000b 01ea | | .DEBUG 0x000b,0x01ea,0x8000,0x0000,0x0057,0x34e5,0x0000,0x0005 01b2 0014 01f4 | | .DEBUG 0x0014,0x01f4,0x8000,0x0000,0x0057,0x5325,0x0000,0x000d 01ba 002b 020a | + | .DEBUG 0x002b,0x020a,0x0002,0x0000,0x0057,0x34e5,0x0000,0x0006 01c2 0033 020e | 3 | .DEBUG 0x0033,0x020e,0x0002,0x0000,0x0057,0x34e5,0x0000,0x0011 01ca 0083 0240 | @| .DEBUG 0x0083,0x0240,0x0002,0x0000,0x0057,0x34e5,0x0000,0x001c 01d2 00db 027c | || .DEBUG 0x00db,0x027c,0x0002,0x0000,0x0057,0x34e5,0x0000,0x0027 01da 00fb 0290 | | .DEBUG 0x00fb,0x0290,0x0002,0x0000,0x0057,0x5325,0x0000,0x0022 01e2 015b 02ce | [ | .DEBUG 0x015b,0x02ce,0x0002,0x0000,0x0057,0x5325,0x0000,0x0085 01ea ; -------------------------------------------------------------------------------------- 01ea ; Debug3 Subtable 0x0 01ea ; -------------------------------------------------------------------------------------- 01ea 0004 0000 | | .DBG3TAB 0x0004,0x0000 01ec 000b ffff | | .CONST 0x000b,0xffff 01ee 000d fffe | | .CONST 0x000d,0xfffe 01f0 000f fffd | | .CONST 0x000f,0xfffd 01f2 0011 fffc | | .CONST 0x0011,0xfffc 01f4 ; -------------------------------------------------------------------------------------- 01f4 ; Debug3 Subtable 0x1 01f4 ; -------------------------------------------------------------------------------------- 01f4 000a 0000 | | .DBG3TAB 0x000a,0x0000 01f6 0014 ffff | | .CONST 0x0014,0xffff 01f8 0015 fffe | | .CONST 0x0015,0xfffe 01fa 0016 fffd | | .CONST 0x0016,0xfffd 01fc 0017 fffc | | .CONST 0x0017,0xfffc 01fe 0018 fffb | | .CONST 0x0018,0xfffb 0200 001a fffa | | .CONST 0x001a,0xfffa 0202 001c fff9 | | .CONST 0x001c,0xfff9 0204 001e fff8 | | .CONST 0x001e,0xfff8 0206 0020 fff7 | | .CONST 0x0020,0xfff7 0208 0022 fff6 | " | .CONST 0x0022,0xfff6 020a ; -------------------------------------------------------------------------------------- 020a ; Debug3 Subtable 0x2 020a ; -------------------------------------------------------------------------------------- 020a 0000 0001 | | .DBG3TAB 0x0000,0x0001 020c 002b 0001 | + | .CONST 0x002b,0x0001 020e ; -------------------------------------------------------------------------------------- 020e ; Debug3 Subtable 0x3 020e ; -------------------------------------------------------------------------------------- 020e 0002 0016 | | .DBG3TAB 0x0002,0x0016 0210 0033 ffff | 3 | .CONST 0x0033,0xffff 0212 0034 0001 | 4 | .CONST 0x0034,0x0001 0214 0035 0401 | 5 | .CONST 0x0035,0x0401 0216 0037 0001 | 7 | .CONST 0x0037,0x0001 0218 0038 0002 | 8 | .CONST 0x0038,0x0002 021a 003a 0003 | : | .CONST 0x003a,0x0003 021c 003e 0004 | > | .CONST 0x003e,0x0004 021e 003f 0801 | ? | .CONST 0x003f,0x0801 0220 0041 0802 | A | .CONST 0x0041,0x0802 0222 0042 0803 | B | .CONST 0x0042,0x0803 0224 0043 0804 | C | .CONST 0x0043,0x0804 0226 0044 0004 | D | .CONST 0x0044,0x0004 0228 0050 000a | P | .CONST 0x0050,0x000a 022a 0052 0005 | R | .CONST 0x0052,0x0005 022c 0054 0006 | T | .CONST 0x0054,0x0006 022e 0055 f3ff | U | .CONST 0x0055,0xf3ff 0230 005a 0c01 | Z | .CONST 0x005a,0x0c01 0232 005c 1001 | \ | .CONST 0x005c,0x1001 0234 0060 0c01 | ` | .CONST 0x0060,0x0c01 0236 006c 0007 | l | .CONST 0x006c,0x0007 0238 006f 1401 | o | .CONST 0x006f,0x1401 023a 0073 0007 | s | .CONST 0x0073,0x0007 023c 0074 0008 | t | .CONST 0x0074,0x0008 023e 0077 0009 | w | .CONST 0x0077,0x0009 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug3 Subtable 0x4 0240 ; -------------------------------------------------------------------------------------- 0240 0001 001c | | .DBG3TAB 0x0001,0x001c 0242 0083 ffff | | .CONST 0x0083,0xffff 0244 008a 0001 | | .CONST 0x008a,0x0001 0246 008b 0401 | | .CONST 0x008b,0x0401 0248 008d 0402 | | .CONST 0x008d,0x0402 024a 008f 0403 | | .CONST 0x008f,0x0403 024c 0092 0001 | | .CONST 0x0092,0x0001 024e 0094 0801 | | .CONST 0x0094,0x0801 0250 0098 0001 | | .CONST 0x0098,0x0001 0252 009b 0c01 | | .CONST 0x009b,0x0c01 0254 009d 0c02 | | .CONST 0x009d,0x0c02 0256 009f 0c03 | | .CONST 0x009f,0x0c03 0258 00a3 0c04 | | .CONST 0x00a3,0x0c04 025a 00a7 0c05 | | .CONST 0x00a7,0x0c05 025c 00a9 1001 | | .CONST 0x00a9,0x1001 025e 00ab 1002 | | .CONST 0x00ab,0x1002 0260 00ac 1003 | | .CONST 0x00ac,0x1003 0262 00ad 1004 | | .CONST 0x00ad,0x1004 0264 00af 0c05 | | .CONST 0x00af,0x0c05 0266 00b9 1401 | | .CONST 0x00b9,0x1401 0268 00bb 1402 | | .CONST 0x00bb,0x1402 026a 00bc 1403 | | .CONST 0x00bc,0x1403 026c 00bd 1404 | | .CONST 0x00bd,0x1404 026e 00bf 1004 | | .CONST 0x00bf,0x1004 0270 00cd 0801 | | .CONST 0x00cd,0x0801 0272 00ce 1801 | | .CONST 0x00ce,0x1801 0274 00d0 1802 | | .CONST 0x00d0,0x1802 0276 00d1 1803 | | .CONST 0x00d1,0x1803 0278 00d2 1804 | | .CONST 0x00d2,0x1804 027a 00d4 0801 | | .CONST 0x00d4,0x0801 027c ; -------------------------------------------------------------------------------------- 027c ; Debug3 Subtable 0x5 027c ; -------------------------------------------------------------------------------------- 027c 0000 0009 | | .DBG3TAB 0x0000,0x0009 027e 00db 0001 | | .CONST 0x00db,0x0001 0280 00dc 0401 | | .CONST 0x00dc,0x0401 0282 00de 0402 | | .CONST 0x00de,0x0402 0284 00df 0403 | | .CONST 0x00df,0x0403 0286 00e0 0404 | | .CONST 0x00e0,0x0404 0288 00e1 0001 | | .CONST 0x00e1,0x0001 028a 00e5 0004 | | .CONST 0x00e5,0x0004 028c 00e7 0002 | | .CONST 0x00e7,0x0002 028e 00ed 0003 | | .CONST 0x00ed,0x0003 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0x6 0290 ; -------------------------------------------------------------------------------------- 0290 0002 001c | | .DBG3TAB 0x0002,0x001c 0292 00fb ffff | | .CONST 0x00fb,0xffff 0294 0102 fffe | | .CONST 0x0102,0xfffe 0296 0105 0002 | | .CONST 0x0105,0x0002 0298 0107 0401 | | .CONST 0x0107,0x0401 029a 0109 0402 | | .CONST 0x0109,0x0402 029c 010b 0403 | | .CONST 0x010b,0x0403 029e 010f 0404 | | .CONST 0x010f,0x0404 02a0 0113 0405 | | .CONST 0x0113,0x0405 02a2 0115 0801 | | .CONST 0x0115,0x0801 02a4 0117 0802 | | .CONST 0x0117,0x0802 02a6 0118 0803 | | .CONST 0x0118,0x0803 02a8 0119 0804 | | .CONST 0x0119,0x0804 02aa 011b 0405 | | .CONST 0x011b,0x0405 02ac 0125 0c01 | % | .CONST 0x0125,0x0c01 02ae 0127 0c02 | ' | .CONST 0x0127,0x0c02 02b0 0128 0c03 | ( | .CONST 0x0128,0x0c03 02b2 0129 0c04 | ) | .CONST 0x0129,0x0c04 02b4 012b 0804 | + | .CONST 0x012b,0x0804 02b6 0139 0002 | 9 | .CONST 0x0139,0x0002 02b8 013e 0003 | > | .CONST 0x013e,0x0003 02ba 0141 0004 | A | .CONST 0x0141,0x0004 02bc 0143 0005 | C | .CONST 0x0143,0x0005 02be 0144 1001 | D | .CONST 0x0144,0x1001 02c0 0146 1002 | F | .CONST 0x0146,0x1002 02c2 0148 1003 | H | .CONST 0x0148,0x1003 02c4 014b 0005 | K | .CONST 0x014b,0x0005 02c6 014f 0001 | O | .CONST 0x014f,0x0001 02c8 0150 1401 | P | .CONST 0x0150,0x1401 02ca 0152 0001 | R | .CONST 0x0152,0x0001 02cc 0154 0006 | T | .CONST 0x0154,0x0006 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug3 Subtable 0x7 02ce ; -------------------------------------------------------------------------------------- 02ce 0001 0015 | | .DBG3TAB 0x0001,0x0015 02d0 015b ffff | [ | .CONST 0x015b,0xffff 02d2 0160 0001 | ` | .CONST 0x0160,0x0001 02d4 0165 0401 | e | .CONST 0x0165,0x0401 02d6 0167 0402 | g | .CONST 0x0167,0x0402 02d8 0169 0403 | i | .CONST 0x0169,0x0403 02da 016d 0404 | m | .CONST 0x016d,0x0404 02dc 0171 0405 | q | .CONST 0x0171,0x0405 02de 0173 0801 | s | .CONST 0x0173,0x0801 02e0 0175 0802 | u | .CONST 0x0175,0x0802 02e2 0176 0803 | v | .CONST 0x0176,0x0803 02e4 0177 0804 | w | .CONST 0x0177,0x0804 02e6 0179 0405 | y | .CONST 0x0179,0x0405 02e8 0183 0c01 | | .CONST 0x0183,0x0c01 02ea 0185 0c02 | | .CONST 0x0185,0x0c02 02ec 0186 0c03 | | .CONST 0x0186,0x0c03 02ee 0187 0c04 | | .CONST 0x0187,0x0c04 02f0 0189 0804 | | .CONST 0x0189,0x0804 02f2 0197 0001 | | .CONST 0x0197,0x0001 02f4 0199 1001 | | .CONST 0x0199,0x1001 02f6 019d 0001 | | .CONST 0x019d,0x0001 02f8 019e 0002 | | .CONST 0x019e,0x0002 02fa 01a1 0003 | | .CONST 0x01a1,0x0003 02fc 0000 0000 | | .BLANK 0000[0x104]