|
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 - metrics - download
Length: 3072 (0xc00)
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 0438 | 8 | .CONST 0x0438 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0020
000d 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
000f 00bf | | Action Accept_Activation
0010 029d 0113 | | Declare_Subprogram For_Outer_Call,INIT_0110
0012 029d 012b | +| Declare_Subprogram For_Outer_Call,INIT_0128
0014 029d 014b | K| Declare_Subprogram For_Outer_Call,INIT_0148
0016 029d 016b | k| Declare_Subprogram For_Outer_Call,INIT_0168
0018 029d 017b | {| Declare_Subprogram For_Outer_Call,INIT_0178
001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0036 | 6 | .CONST 0x0036 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0007 | | .CONST 0x0007 ; Number of locals
0023 INIT_0020:
0023 00e3 | | Load_Encached Natural_Cache
0024 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0025 00ec | | Load_Encached Diana_Tree_Cache
0026 029e 01b3 | | Declare_Subprogram For_Call,Unelaborated,INIT_01b0
0028 029e 027b | {| Declare_Subprogram For_Call,Unelaborated,INIT_0278
002a 029f 029b | | Declare_Subprogram For_Call,INIT_0298
002c 029f 02cb | | Declare_Subprogram For_Call,INIT_02c8
002e 4805 |H | Short_Literal 0x5
002f 4802 |H | Short_Literal 0x2
0030 0099 | | Action Reference_Dynamic
0031 00c7 | | Action Elaborate_Subprogram
0032 4804 |H | Short_Literal 0x4
0033 4802 |H | Short_Literal 0x2
0034 0099 | | Action Reference_Dynamic
0035 00c7 | | Action Elaborate_Subprogram
0036 BODY_0020:
0036 e5ff | | Load 0x2,-0x1
0037 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0038 00d8 | | Load_Top At_Offset_0
0039 0d4f | O | Execute_Immediate Less,0x4f
003a 700c |p | Jump_Nonzero 0x47
003b 00d8 | | Load_Top At_Offset_0
003c 0c73 | s | Execute_Immediate Greater_Equal,0x73
003d 7004 |p | Jump_Nonzero 0x42
003e 00d1 | | Pop_Control Pop_Count_1
003f 00ec | | Load_Encached Diana_Tree_Cache
0040 a403 | | Store_Unchecked 0x2,0x3
0041 7847 |xG | Jump 0x89
0042 0b73 | s | Execute_Immediate Case_Compare,0x73
0043 7034 |p4 | Jump_Nonzero 0x78
0044 0f7c | | | Execute_Immediate Equal,0x7c
0045 7021 |p! | Jump_Nonzero 0x67
0046 7ff8 | | Jump 0x3f
0047 0b4c | L | Execute_Immediate Case_Compare,0x4c
0048 7038 |p8 | Jump_Nonzero 0x81
0049 0f4e | N | Execute_Immediate Equal,0x4e
004a 7001 |p | Jump_Nonzero 0x4c
004b 7ff3 | | Jump 0x3f
004c e5fd | | Load 0x2,-0x3
004d 6808 |h | Jump_Zero 0x56
004e e5ff | | Load 0x2,-0x1
004f 00eb | | Load_Encached Diana_Cache
0050 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
0051 00eb | | Load_Encached Diana_Cache
0052 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0053 8406 | | Call 0x2,0x6
0054 a403 | | Store_Unchecked 0x2,0x3
0055 7833 |x3 | Jump 0x89
0056 e5ff | | Load 0x2,-0x1
0057 00eb | | Load_Encached Diana_Cache
0058 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0059 00eb | | Load_Encached Diana_Cache
005a 1889 | | Execute Package,Field_Execute,Field_Number 0x89
005b 8405 | | Call 0x2,0x5
005c a403 | | Store_Unchecked 0x2,0x3
005d e403 | | Load 0x2,0x3
005e 702a |p* | Jump_Nonzero 0x89
005f e5ff | | Load 0x2,-0x1
0060 00eb | | Load_Encached Diana_Cache
0061 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
0062 00eb | | Load_Encached Diana_Cache
0063 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0064 8407 | | Call 0x2,0x7
0065 a403 | | Store_Unchecked 0x2,0x3
0066 7822 |x" | Jump 0x89
0067 e5ff | | Load 0x2,-0x1
0068 00eb | | Load_Encached Diana_Cache
0069 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
006a 00eb | | Load_Encached Diana_Cache
006b 1889 | | Execute Package,Field_Execute,Field_Number 0x89
006c 8406 | | Call 0x2,0x6
006d a403 | | Store_Unchecked 0x2,0x3
006e e403 | | Load 0x2,0x3
006f 7019 |p | Jump_Nonzero 0x89
0070 e5ff | | Load 0x2,-0x1
0071 00eb | | Load_Encached Diana_Cache
0072 18be | | Execute Package,Field_Execute,Field_Number 0xbe
0073 00eb | | Load_Encached Diana_Cache
0074 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0075 8406 | | Call 0x2,0x6
0076 a403 | | Store_Unchecked 0x2,0x3
0077 7811 |x | Jump 0x89
0078 00d1 | | Pop_Control Pop_Count_1
0079 e5ff | | Load 0x2,-0x1
007a 00eb | | Load_Encached Diana_Cache
007b 18bc | | Execute Package,Field_Execute,Field_Number 0xbc
007c 00eb | | Load_Encached Diana_Cache
007d 1889 | | Execute Package,Field_Execute,Field_Number 0x89
007e 8406 | | Call 0x2,0x6
007f a403 | | Store_Unchecked 0x2,0x3
0080 7808 |x | Jump 0x89
0081 00d1 | | Pop_Control Pop_Count_1
0082 e5ff | | Load 0x2,-0x1
0083 00eb | | Load_Encached Diana_Cache
0084 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0085 00eb | | Load_Encached Diana_Cache
0086 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0087 8405 | | Call 0x2,0x5
0088 a403 | | Store_Unchecked 0x2,0x3
0089 e403 | | Load 0x2,0x3
008a 4403 |D | Exit_Subprogram With_Result,0x3
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00a6 | | .CONST 0x00a6 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0007 | | .CONST 0x0007 ; Number of locals
0093 INIT_0090:
0093 00e3 | | Load_Encached Natural_Cache
0094 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0095 00e3 | | Load_Encached Natural_Cache
0096 029e 02f3 | | Declare_Subprogram For_Call,Unelaborated,INIT_02f0
0098 029e 03bb | | Declare_Subprogram For_Call,Unelaborated,INIT_03b8
009a 029f 03db | | Declare_Subprogram For_Call,INIT_03d8
009c 029f 040b | | Declare_Subprogram For_Call,INIT_0408
009e 4805 |H | Short_Literal 0x5
009f 4802 |H | Short_Literal 0x2
00a0 0099 | | Action Reference_Dynamic
00a1 00c7 | | Action Elaborate_Subprogram
00a2 4804 |H | Short_Literal 0x4
00a3 4802 |H | Short_Literal 0x2
00a4 0099 | | Action Reference_Dynamic
00a5 00c7 | | Action Elaborate_Subprogram
00a6 BODY_0090:
00a6 e5ff | | Load 0x2,-0x1
00a7 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00a8 00d8 | | Load_Top At_Offset_0
00a9 0d4f | O | Execute_Immediate Less,0x4f
00aa 700e |p | Jump_Nonzero 0xb9
00ab 00d8 | | Load_Top At_Offset_0
00ac 0c73 | s | Execute_Immediate Greater_Equal,0x73
00ad 7006 |p | Jump_Nonzero 0xb4
00ae 00d1 | | Pop_Control Pop_Count_1
00af 4800 |H | Short_Literal 0x0
00b0 a403 | | Store_Unchecked 0x2,0x3
00b1 4800 |H | Short_Literal 0x0
00b2 a5fc | | Store_Unchecked 0x2,-0x4
00b3 7853 |xS | Jump 0x107
00b4 0b73 | s | Execute_Immediate Case_Compare,0x73
00b5 703c |p< | Jump_Nonzero 0xf2
00b6 0f7c | | | Execute_Immediate Equal,0x7c
00b7 7027 |p' | Jump_Nonzero 0xdf
00b8 7ff6 | | Jump 0xaf
00b9 0b4c | L | Execute_Immediate Case_Compare,0x4c
00ba 7042 |pB | Jump_Nonzero 0xfd
00bb 0f4e | N | Execute_Immediate Equal,0x4e
00bc 7001 |p | Jump_Nonzero 0xbe
00bd 7ff1 | | Jump 0xaf
00be e5ff | | Load 0x2,-0x1
00bf 00eb | | Load_Encached Diana_Cache
00c0 18d1 | | Execute Package,Field_Execute,Field_Number 0xd1
00c1 00eb | | Load_Encached Diana_Cache
00c2 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00c3 8406 | | Call 0x2,0x6
00c4 a403 | | Store_Unchecked 0x2,0x3
00c5 e403 | | Load 0x2,0x3
00c6 7015 |p | Jump_Nonzero 0xdc
00c7 4800 |H | Short_Literal 0x0
00c8 a5fc | | Store_Unchecked 0x2,-0x4
00c9 4800 |H | Short_Literal 0x0
00ca a402 | | Store_Unchecked 0x2,0x2
00cb e5ff | | Load 0x2,-0x1
00cc 00eb | | Load_Encached Diana_Cache
00cd 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
00ce 00eb | | Load_Encached Diana_Cache
00cf 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00d0 8405 | | Call 0x2,0x5
00d1 a403 | | Store_Unchecked 0x2,0x3
00d2 e403 | | Load 0x2,0x3
00d3 7033 |p3 | Jump_Nonzero 0x107
00d4 e5ff | | Load 0x2,-0x1
00d5 00eb | | Load_Encached Diana_Cache
00d6 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
00d7 00eb | | Load_Encached Diana_Cache
00d8 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00d9 8407 | | Call 0x2,0x7
00da a403 | | Store_Unchecked 0x2,0x3
00db 782b |x+ | Jump 0x107
00dc 4801 |H | Short_Literal 0x1
00dd a5fc | | Store_Unchecked 0x2,-0x4
00de 7828 |x( | Jump 0x107
00df e5ff | | Load 0x2,-0x1
00e0 00eb | | Load_Encached Diana_Cache
00e1 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
00e2 00eb | | Load_Encached Diana_Cache
00e3 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00e4 8406 | | Call 0x2,0x6
00e5 a403 | | Store_Unchecked 0x2,0x3
00e6 e403 | | Load 0x2,0x3
00e7 7007 |p | Jump_Nonzero 0xef
00e8 e5ff | | Load 0x2,-0x1
00e9 00eb | | Load_Encached Diana_Cache
00ea 18be | | Execute Package,Field_Execute,Field_Number 0xbe
00eb 00eb | | Load_Encached Diana_Cache
00ec 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00ed 8406 | | Call 0x2,0x6
00ee a403 | | Store_Unchecked 0x2,0x3
00ef 4801 |H | Short_Literal 0x1
00f0 a5fc | | Store_Unchecked 0x2,-0x4
00f1 7815 |x | Jump 0x107
00f2 00d1 | | Pop_Control Pop_Count_1
00f3 e5ff | | Load 0x2,-0x1
00f4 00eb | | Load_Encached Diana_Cache
00f5 18bc | | Execute Package,Field_Execute,Field_Number 0xbc
00f6 00eb | | Load_Encached Diana_Cache
00f7 1889 | | Execute Package,Field_Execute,Field_Number 0x89
00f8 8406 | | Call 0x2,0x6
00f9 a403 | | Store_Unchecked 0x2,0x3
00fa 4801 |H | Short_Literal 0x1
00fb a5fc | | Store_Unchecked 0x2,-0x4
00fc 780a |x | Jump 0x107
00fd 00d1 | | Pop_Control Pop_Count_1
00fe e5ff | | Load 0x2,-0x1
00ff 00eb | | Load_Encached Diana_Cache
0100 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0101 00eb | | Load_Encached Diana_Cache
0102 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0103 8405 | | Call 0x2,0x5
0104 a403 | | Store_Unchecked 0x2,0x3
0105 4800 |H | Short_Literal 0x0
0106 a5fc | | Store_Unchecked 0x2,-0x4
0107 e403 | | Load 0x2,0x3
0108 a5fd | | Store_Unchecked 0x2,-0x3
0109 4503 |E | Exit_Subprogram 0x3
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011a | | .CONST 0x011a ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 00eb | | Load_Encached Diana_Cache
0115 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
0116 00eb | | Load_Encached Diana_Cache
0117 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0118 00eb | | Load_Encached Diana_Cache
0119 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
011a BODY_0110:
011a 00d8 | | Load_Top At_Offset_0
011b 0092 042d | -| Action Push_String_Extended,0x42d ; "ASSERT"
011d 01df | | Execute Vector,Equal
011e 7005 |p | Jump_Nonzero 0x124
011f 00d8 | | Load_Top At_Offset_0
0120 0092 042e | .| Action Push_String_Extended,0x42e ; "INSERT"
0122 01df | | Execute Vector,Equal
0123 4401 |D | Exit_Subprogram With_Result,0x1
0124 4801 |H | Short_Literal 0x1
0125 4401 |D | Exit_Subprogram With_Result,0x1
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012c | , | .CONST 0x012c ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c BODY_0128:
012c 00cf | | Action Mark_Auxiliary
012d 7805 |x | Jump 0x133
012e 00d9 | | Load_Top At_Offset_1
012f 0217 | | Execute Heap_Access,All_Reference
0130 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0131 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0132 00c9 | | Action Pop_Auxiliary_Loop
0133 00d9 | | Load_Top At_Offset_1
0134 6809 |h | Jump_Zero 0x13e
0135 00d9 | | Load_Top At_Offset_1
0136 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
0137 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0138 0f40 | @ | Execute_Immediate Equal,0x40
0139 6804 |h | Jump_Zero 0x13e
013a 00d9 | | Load_Top At_Offset_1
013b 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
013c 820f | | Call 0x1,0xf
013d 6ff0 |o | Jump_Zero 0x12e
013e 00ce | | Action Pop_Auxiliary
013f 00d8 | | Load_Top At_Offset_0
0140 4401 |D | Exit_Subprogram With_Result,0x1
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014e | N | .CONST 0x014e ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 00eb | | Load_Encached Diana_Cache
014d 18ec | | Execute Package,Field_Execute,Field_Number 0xec
014e BODY_0148:
014e 00d8 | | Load_Top At_Offset_0
014f 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0150 0f97 | | Execute_Immediate Equal,0x97
0151 6814 |h | Jump_Zero 0x166
0152 00d8 | | Load_Top At_Offset_0
0153 00eb | | Load_Encached Diana_Cache
0154 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0155 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0156 0b9e | | Execute_Immediate Case_Compare,0x9e
0157 7004 |p | Jump_Nonzero 0x15c
0158 0f60 | ` | Execute_Immediate Equal,0x60
0159 7003 |p | Jump_Nonzero 0x15d
015a 4801 |H | Short_Literal 0x1
015b 4401 |D | Exit_Subprogram With_Result,0x1
015c 00d1 | | Pop_Control Pop_Count_1
015d 00db | | Load_Top At_Offset_3
015e 00d9 | | Load_Top At_Offset_1
015f 00eb | | Load_Encached Diana_Cache
0160 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0161 8210 | | Call 0x1,0x10
0162 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
0163 021f | | Execute Heap_Access,Equal
0164 0f00 | | Execute_Immediate Equal,0x0
0165 4401 |D | Exit_Subprogram With_Result,0x1
0166 4801 |H | Short_Literal 0x1
0167 4401 |D | Exit_Subprogram With_Result,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 8003 | | Call 0x0,0x3
016d 8004 | | Call 0x0,0x4
016e 0f02 | | Execute_Immediate Equal,0x2
016f 6802 |h | Jump_Zero 0x172
0170 4801 |H | Short_Literal 0x1
0171 4401 |D | Exit_Subprogram With_Result,0x1
0172 4800 |H | Short_Literal 0x0
0173 4401 |D | Exit_Subprogram With_Result,0x1
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017c | | | .CONST 0x017c ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 00ec | | Load_Encached Diana_Tree_Cache
017c BODY_0178:
017c 00db | | Load_Top At_Offset_3
017d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
017e 00d8 | | Load_Top At_Offset_0
017f 4837 |H7 | Short_Literal 0x37
0180 483e |H> | Short_Literal 0x3e
0181 0262 | b | Execute Discrete,In_Range
0182 6821 |h! | Jump_Zero 0x1a4
0183 0b37 | 7 | Execute_Immediate Case_Compare,0x37
0184 7019 |p | Jump_Nonzero 0x19e
0185 00d8 | | Load_Top At_Offset_0
0186 0c3a | : | Execute_Immediate Greater_Equal,0x3a
0187 6805 |h | Jump_Zero 0x18d
0188 0b3d | = | Execute_Immediate Case_Compare,0x3d
0189 7009 |p | Jump_Nonzero 0x193
018a 0f3e | > | Execute_Immediate Equal,0x3e
018b 700d |p | Jump_Nonzero 0x199
018c 7818 |x | Jump 0x1a5
018d 00d1 | | Pop_Control Pop_Count_1
018e 00db | | Load_Top At_Offset_3
018f 00eb | | Load_Encached Diana_Cache
0190 18d7 | | Execute Package,Field_Execute,Field_Number 0xd7
0191 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0192 7814 |x | Jump 0x1a7
0193 00d1 | | Pop_Control Pop_Count_1
0194 00db | | Load_Top At_Offset_3
0195 00eb | | Load_Encached Diana_Cache
0196 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4
0197 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0198 780e |x | Jump 0x1a7
0199 00db | | Load_Top At_Offset_3
019a 00eb | | Load_Encached Diana_Cache
019b 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
019c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
019d 7809 |x | Jump 0x1a7
019e 00d1 | | Pop_Control Pop_Count_1
019f 00db | | Load_Top At_Offset_3
01a0 00eb | | Load_Encached Diana_Cache
01a1 18c4 | | Execute Package,Field_Execute,Field_Number 0xc4
01a2 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01a3 7803 |x | Jump 0x1a7
01a4 00d1 | | Pop_Control Pop_Count_1
01a5 00ec | | Load_Encached Diana_Tree_Cache
01a6 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01a7 00d8 | | Load_Top At_Offset_0
01a8 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01a9 0f80 | | Execute_Immediate Equal,0x80
01aa 7002 |p | Jump_Nonzero 0x1ad
01ab 4800 |H | Short_Literal 0x0
01ac 4401 |D | Exit_Subprogram With_Result,0x1
01ad 4801 |H | Short_Literal 0x1
01ae 4401 |D | Exit_Subprogram With_Result,0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b4 | | .CONST 0x01b4 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 00ec | | Load_Encached Diana_Tree_Cache
01b4 BODY_01b0:
01b4 00db | | Load_Top At_Offset_3
01b5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01b6 00d8 | | Load_Top At_Offset_0
01b7 0d53 | S | Execute_Immediate Less,0x53
01b8 700d |p | Jump_Nonzero 0x1c6
01b9 00d8 | | Load_Top At_Offset_0
01ba 0c5f | _ | Execute_Immediate Greater_Equal,0x5f
01bb 7005 |p | Jump_Nonzero 0x1c1
01bc 00d1 | | Pop_Control Pop_Count_1
01bd e402 | | Load 0x2,0x2
01be 0a01 | | Execute_Immediate Plus,0x1
01bf c402 | | Store 0x2,0x2
01c0 7824 |x$ | Jump 0x1e5
01c1 0b5f | _ | Execute_Immediate Case_Compare,0x5f
01c2 7008 |p | Jump_Nonzero 0x1cb
01c3 0fa1 | | Execute_Immediate Equal,0xa1
01c4 7019 |p | Jump_Nonzero 0x1de
01c5 7ff7 | | Jump 0x1bd
01c6 0b40 | @ | Execute_Immediate Case_Compare,0x40
01c7 7005 |p | Jump_Nonzero 0x1cd
01c8 0f52 | R | Execute_Immediate Equal,0x52
01c9 700d |p | Jump_Nonzero 0x1d7
01ca 7ff2 | | Jump 0x1bd
01cb 00d1 | | Pop_Control Pop_Count_1
01cc 7818 |x | Jump 0x1e5
01cd 00d1 | | Pop_Control Pop_Count_1
01ce 00db | | Load_Top At_Offset_3
01cf 49a1 |I | Short_Literal 0x1a1
01d0 00eb | | Load_Encached Diana_Cache
01d1 0096 | | Execute Package,Field_Execute_Dynamic
01d2 7012 |p | Jump_Nonzero 0x1e5
01d3 e402 | | Load 0x2,0x2
01d4 0a01 | | Execute_Immediate Plus,0x1
01d5 c402 | | Store 0x2,0x2
01d6 780e |x | Jump 0x1e5
01d7 00db | | Load_Top At_Offset_3
01d8 8211 | | Call 0x1,0x11
01d9 680b |h | Jump_Zero 0x1e5
01da e402 | | Load 0x2,0x2
01db 0a01 | | Execute_Immediate Plus,0x1
01dc c402 | | Store 0x2,0x2
01dd 7807 |x | Jump 0x1e5
01de 00db | | Load_Top At_Offset_3
01df 00eb | | Load_Encached Diana_Cache
01e0 18ca | | Execute Package,Field_Execute,Field_Number 0xca
01e1 6803 |h | Jump_Zero 0x1e5
01e2 e402 | | Load 0x2,0x2
01e3 0a01 | | Execute_Immediate Plus,0x1
01e4 c402 | | Store 0x2,0x2
01e5 e402 | | Load 0x2,0x2
01e6 e5fe | | Load 0x2,-0x2
01e7 027f | | Execute Discrete,Equal
01e8 6802 |h | Jump_Zero 0x1eb
01e9 00db | | Load_Top At_Offset_3
01ea 4401 |D | Exit_Subprogram With_Result,0x1
01eb 00db | | Load_Top At_Offset_3
01ec 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01ed 00d8 | | Load_Top At_Offset_0
01ee 0d4a | J | Execute_Immediate Less,0x4a
01ef 7029 |p) | Jump_Nonzero 0x219
01f0 00d8 | | Load_Top At_Offset_0
01f1 0c61 | a | Execute_Immediate Greater_Equal,0x61
01f2 7021 |p! | Jump_Nonzero 0x214
01f3 0ab6 | | Execute_Immediate Plus,-0x4a
01f4 4616 |F | Jump_Case 0x16
01f5 7842 |xB | Jump 0x238 ; case 0x0
01f6 7823 |x# | Jump 0x21a ; case 0x1
01f7 7822 |x" | Jump 0x21a ; case 0x2
01f8 7821 |x! | Jump 0x21a ; case 0x3
01f9 7820 |x | Jump 0x21a ; case 0x4
01fa 7845 |xE | Jump 0x240 ; case 0x5
01fb 781e |x | Jump 0x21a ; case 0x6
01fc 780f |x | Jump 0x20c ; case 0x7
01fd 781c |x | Jump 0x21a ; case 0x8
01fe 781b |x | Jump 0x21a ; case 0x9
01ff 781a |x | Jump 0x21a ; case 0xa
0200 7819 |x | Jump 0x21a ; case 0xb
0201 7824 |x$ | Jump 0x226 ; case 0xc
0202 781a |x | Jump 0x21d ; case 0xd
0203 7819 |x | Jump 0x21d ; case 0xe
0204 7815 |x | Jump 0x21a ; case 0xf
0205 7814 |x | Jump 0x21a ; case 0x10
0206 7813 |x | Jump 0x21a ; case 0x11
0207 7812 |x | Jump 0x21a ; case 0x12
0208 7811 |x | Jump 0x21a ; case 0x13
0209 783e |x> | Jump 0x248 ; case 0x14
020a 780f |x | Jump 0x21a ; case 0x15
020b 7800 |x | Jump 0x20c ; case 0x16
020c 00db | | Load_Top At_Offset_3
020d 00eb | | Load_Encached Diana_Cache
020e 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2
020f 00eb | | Load_Encached Diana_Cache
0210 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0211 8405 | | Call 0x2,0x5
0212 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0213 783b |x; | Jump 0x24f
0214 0ba1 | | Execute_Immediate Case_Compare,0xa1
0215 7019 |p | Jump_Nonzero 0x22f
0216 0fa7 | | Execute_Immediate Equal,0xa7
0217 7005 |p | Jump_Nonzero 0x21d
0218 7801 |x | Jump 0x21a
0219 00d1 | | Pop_Control Pop_Count_1
021a 00ec | | Load_Encached Diana_Tree_Cache
021b 0031 | 1 | Store_Top Heap_Access,At_Offset_1
021c 7832 |x2 | Jump 0x24f
021d e402 | | Load 0x2,0x2
021e 0aff | | Execute_Immediate Plus,-0x1
021f c402 | | Store 0x2,0x2
0220 00db | | Load_Top At_Offset_3
0221 00eb | | Load_Encached Diana_Cache
0222 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0223 8404 | | Call 0x2,0x4
0224 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0225 7829 |x) | Jump 0x24f
0226 e402 | | Load 0x2,0x2
0227 0aff | | Execute_Immediate Plus,-0x1
0228 c402 | | Store 0x2,0x2
0229 00db | | Load_Top At_Offset_3
022a 00eb | | Load_Encached Diana_Cache
022b 1889 | | Execute Package,Field_Execute,Field_Number 0x89
022c 8405 | | Call 0x2,0x5
022d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
022e 7820 |x | Jump 0x24f
022f 00d1 | | Pop_Control Pop_Count_1
0230 00db | | Load_Top At_Offset_3
0231 00eb | | Load_Encached Diana_Cache
0232 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0233 00eb | | Load_Encached Diana_Cache
0234 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0235 8405 | | Call 0x2,0x5
0236 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0237 7817 |x | Jump 0x24f
0238 00db | | Load_Top At_Offset_3
0239 00eb | | Load_Encached Diana_Cache
023a 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
023b 00eb | | Load_Encached Diana_Cache
023c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
023d 8405 | | Call 0x2,0x5
023e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
023f 780f |x | Jump 0x24f
0240 00db | | Load_Top At_Offset_3
0241 00eb | | Load_Encached Diana_Cache
0242 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
0243 00eb | | Load_Encached Diana_Cache
0244 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0245 8407 | | Call 0x2,0x7
0246 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0247 7807 |x | Jump 0x24f
0248 00db | | Load_Top At_Offset_3
0249 00eb | | Load_Encached Diana_Cache
024a 18df | | Execute Package,Field_Execute,Field_Number 0xdf
024b 00eb | | Load_Encached Diana_Cache
024c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
024d 8407 | | Call 0x2,0x7
024e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
024f 00d8 | | Load_Top At_Offset_0
0250 6802 |h | Jump_Zero 0x253
0251 00d8 | | Load_Top At_Offset_0
0252 4401 |D | Exit_Subprogram With_Result,0x1
0253 00db | | Load_Top At_Offset_3
0254 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0255 00d8 | | Load_Top At_Offset_0
0256 4851 |HQ | Short_Literal 0x51
0257 4860 |H` | Short_Literal 0x60
0258 0262 | b | Execute Discrete,In_Range
0259 6817 |h | Jump_Zero 0x271
025a 0b51 | Q | Execute_Immediate Case_Compare,0x51
025b 700d |p | Jump_Nonzero 0x269
025c 0b5e | ^ | Execute_Immediate Case_Compare,0x5e
025d 7003 |p | Jump_Nonzero 0x261
025e 0f60 | ` | Execute_Immediate Equal,0x60
025f 700a |p | Jump_Nonzero 0x26a
0260 7811 |x | Jump 0x272
0261 00d1 | | Pop_Control Pop_Count_1
0262 00db | | Load_Top At_Offset_3
0263 00eb | | Load_Encached Diana_Cache
0264 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0265 00eb | | Load_Encached Diana_Cache
0266 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0267 8405 | | Call 0x2,0x5
0268 4401 |D | Exit_Subprogram With_Result,0x1
0269 00d1 | | Pop_Control Pop_Count_1
026a 00db | | Load_Top At_Offset_3
026b 00eb | | Load_Encached Diana_Cache
026c 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3
026d 00eb | | Load_Encached Diana_Cache
026e 1889 | | Execute Package,Field_Execute,Field_Number 0x89
026f 8405 | | Call 0x2,0x5
0270 4401 |D | Exit_Subprogram With_Result,0x1
0271 00d1 | | Pop_Control Pop_Count_1
0272 00ec | | Load_Encached Diana_Tree_Cache
0273 4401 |D | Exit_Subprogram With_Result,0x1
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e | ~ | .CONST 0x027e ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 0007 | | Action Break_Optional
027d 00ec | | Load_Encached Diana_Tree_Cache
027e BODY_0278:
027e 00cf | | Action Mark_Auxiliary
027f 780d |x | Jump 0x28d
0280 00da | | Load_Top At_Offset_2
0281 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
0282 8404 | | Call 0x2,0x4
0283 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0284 00d9 | | Load_Top At_Offset_1
0285 6802 |h | Jump_Zero 0x288
0286 00d9 | | Load_Top At_Offset_1
0287 4401 |D | Exit_Subprogram With_Result,0x1
0288 00da | | Load_Top At_Offset_2
0289 0217 | | Execute Heap_Access,All_Reference
028a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
028c 00c9 | | Action Pop_Auxiliary_Loop
028d 00da | | Load_Top At_Offset_2
028e 77f1 |w | Jump_Nonzero 0x280
028f 00ce | | Action Pop_Auxiliary
0290 00ec | | Load_Encached Diana_Tree_Cache
0291 4401 |D | Exit_Subprogram With_Result,0x1
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029e | | .CONST 0x029e ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 0007 | | Action Break_Optional
029d 00ec | | Load_Encached Diana_Tree_Cache
029e BODY_0298:
029e 00cf | | Action Mark_Auxiliary
029f 7823 |x# | Jump 0x2c3
02a0 00da | | Load_Top At_Offset_2
02a1 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
02a2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02a3 00d9 | | Load_Top At_Offset_1
02a4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02a5 0b40 | @ | Execute_Immediate Case_Compare,0x40
02a6 7008 |p | Jump_Nonzero 0x2af
02a7 4842 |HB | Short_Literal 0x42
02a8 4845 |HE | Short_Literal 0x45
02a9 0262 | b | Execute Discrete,In_Range
02aa 700d |p | Jump_Nonzero 0x2b8
02ab e402 | | Load 0x2,0x2
02ac 0a01 | | Execute_Immediate Plus,0x1
02ad c402 | | Store 0x2,0x2
02ae 7809 |x | Jump 0x2b8
02af 00d1 | | Pop_Control Pop_Count_1
02b0 00d9 | | Load_Top At_Offset_1
02b1 49a1 |I | Short_Literal 0x1a1
02b2 00eb | | Load_Encached Diana_Cache
02b3 0096 | | Execute Package,Field_Execute_Dynamic
02b4 7003 |p | Jump_Nonzero 0x2b8
02b5 e402 | | Load 0x2,0x2
02b6 0a01 | | Execute_Immediate Plus,0x1
02b7 c402 | | Store 0x2,0x2
02b8 e402 | | Load 0x2,0x2
02b9 e5fe | | Load 0x2,-0x2
02ba 027f | | Execute Discrete,Equal
02bb 6802 |h | Jump_Zero 0x2be
02bc 00d9 | | Load_Top At_Offset_1
02bd 4401 |D | Exit_Subprogram With_Result,0x1
02be 00da | | Load_Top At_Offset_2
02bf 0217 | | Execute Heap_Access,All_Reference
02c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c1 0033 | 3 | Store_Top Heap_Access,At_Offset_3
02c2 00c9 | | Action Pop_Auxiliary_Loop
02c3 00da | | Load_Top At_Offset_2
02c4 77db |w | Jump_Nonzero 0x2a0
02c5 00ce | | Action Pop_Auxiliary
02c6 00ec | | Load_Encached Diana_Tree_Cache
02c7 4401 |D | Exit_Subprogram With_Result,0x1
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf | | .CONST 0x02cf ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0004 | | .CONST 0x0004 ; Number of locals
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 0007 | | Action Break_Optional
02cd 00ec | | Load_Encached Diana_Tree_Cache
02ce 00ec | | Load_Encached Diana_Tree_Cache
02cf BODY_02c8:
02cf 00cf | | Action Mark_Auxiliary
02d0 7817 |x | Jump 0x2e8
02d1 00db | | Load_Top At_Offset_3
02d2 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
02d3 0033 | 3 | Store_Top Heap_Access,At_Offset_3
02d4 00da | | Load_Top At_Offset_2
02d5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02d6 0f40 | @ | Execute_Immediate Equal,0x40
02d7 700b |p | Jump_Nonzero 0x2e3
02d8 00da | | Load_Top At_Offset_2
02d9 00eb | | Load_Encached Diana_Cache
02da 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
02db 00eb | | Load_Encached Diana_Cache
02dc 1889 | | Execute Package,Field_Execute,Field_Number 0x89
02dd 8405 | | Call 0x2,0x5
02de 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02df 00d9 | | Load_Top At_Offset_1
02e0 6802 |h | Jump_Zero 0x2e3
02e1 00d9 | | Load_Top At_Offset_1
02e2 4401 |D | Exit_Subprogram With_Result,0x1
02e3 00db | | Load_Top At_Offset_3
02e4 0217 | | Execute Heap_Access,All_Reference
02e5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e6 a602 | | Store_Unchecked 0x3,0x2
02e7 00c9 | | Action Pop_Auxiliary_Loop
02e8 00db | | Load_Top At_Offset_3
02e9 77e7 |w | Jump_Nonzero 0x2d1
02ea 00ce | | Action Pop_Auxiliary
02eb 00ec | | Load_Encached Diana_Tree_Cache
02ec 4401 |D | Exit_Subprogram With_Result,0x1
02ed 0000 0000 | | .XXX[0x3]
02ef 0000 | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f4 | | .CONST 0x02f4 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 00e3 | | Load_Encached Natural_Cache
02f4 BODY_02f0:
02f4 00db | | Load_Top At_Offset_3
02f5 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02f6 00d8 | | Load_Top At_Offset_0
02f7 0d53 | S | Execute_Immediate Less,0x53
02f8 700d |p | Jump_Nonzero 0x306
02f9 00d8 | | Load_Top At_Offset_0
02fa 0c5f | _ | Execute_Immediate Greater_Equal,0x5f
02fb 7005 |p | Jump_Nonzero 0x301
02fc 00d1 | | Pop_Control Pop_Count_1
02fd e402 | | Load 0x2,0x2
02fe 0a01 | | Execute_Immediate Plus,0x1
02ff c402 | | Store 0x2,0x2
0300 7824 |x$ | Jump 0x325
0301 0b5f | _ | Execute_Immediate Case_Compare,0x5f
0302 7008 |p | Jump_Nonzero 0x30b
0303 0fa1 | | Execute_Immediate Equal,0xa1
0304 7019 |p | Jump_Nonzero 0x31e
0305 7ff7 | | Jump 0x2fd
0306 0b40 | @ | Execute_Immediate Case_Compare,0x40
0307 7005 |p | Jump_Nonzero 0x30d
0308 0f52 | R | Execute_Immediate Equal,0x52
0309 700d |p | Jump_Nonzero 0x317
030a 7ff2 | | Jump 0x2fd
030b 00d1 | | Pop_Control Pop_Count_1
030c 7818 |x | Jump 0x325
030d 00d1 | | Pop_Control Pop_Count_1
030e 00db | | Load_Top At_Offset_3
030f 49a1 |I | Short_Literal 0x1a1
0310 00eb | | Load_Encached Diana_Cache
0311 0096 | | Execute Package,Field_Execute_Dynamic
0312 7012 |p | Jump_Nonzero 0x325
0313 e402 | | Load 0x2,0x2
0314 0a01 | | Execute_Immediate Plus,0x1
0315 c402 | | Store 0x2,0x2
0316 780e |x | Jump 0x325
0317 00db | | Load_Top At_Offset_3
0318 8211 | | Call 0x1,0x11
0319 680b |h | Jump_Zero 0x325
031a e402 | | Load 0x2,0x2
031b 0a01 | | Execute_Immediate Plus,0x1
031c c402 | | Store 0x2,0x2
031d 7807 |x | Jump 0x325
031e 00db | | Load_Top At_Offset_3
031f 00eb | | Load_Encached Diana_Cache
0320 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0321 6803 |h | Jump_Zero 0x325
0322 e402 | | Load 0x2,0x2
0323 0a01 | | Execute_Immediate Plus,0x1
0324 c402 | | Store 0x2,0x2
0325 00db | | Load_Top At_Offset_3
0326 e5fe | | Load 0x2,-0x2
0327 021f | | Execute Heap_Access,Equal
0328 6802 |h | Jump_Zero 0x32b
0329 e402 | | Load 0x2,0x2
032a 4401 |D | Exit_Subprogram With_Result,0x1
032b 00db | | Load_Top At_Offset_3
032c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
032d 00d8 | | Load_Top At_Offset_0
032e 0d4a | J | Execute_Immediate Less,0x4a
032f 7029 |p) | Jump_Nonzero 0x359
0330 00d8 | | Load_Top At_Offset_0
0331 0c61 | a | Execute_Immediate Greater_Equal,0x61
0332 7021 |p! | Jump_Nonzero 0x354
0333 0ab6 | | Execute_Immediate Plus,-0x4a
0334 4616 |F | Jump_Case 0x16
0335 7842 |xB | Jump 0x378 ; case 0x0
0336 7823 |x# | Jump 0x35a ; case 0x1
0337 7822 |x" | Jump 0x35a ; case 0x2
0338 7821 |x! | Jump 0x35a ; case 0x3
0339 7820 |x | Jump 0x35a ; case 0x4
033a 7845 |xE | Jump 0x380 ; case 0x5
033b 781e |x | Jump 0x35a ; case 0x6
033c 780f |x | Jump 0x34c ; case 0x7
033d 781c |x | Jump 0x35a ; case 0x8
033e 781b |x | Jump 0x35a ; case 0x9
033f 781a |x | Jump 0x35a ; case 0xa
0340 7819 |x | Jump 0x35a ; case 0xb
0341 7824 |x$ | Jump 0x366 ; case 0xc
0342 781a |x | Jump 0x35d ; case 0xd
0343 7819 |x | Jump 0x35d ; case 0xe
0344 7815 |x | Jump 0x35a ; case 0xf
0345 7814 |x | Jump 0x35a ; case 0x10
0346 7813 |x | Jump 0x35a ; case 0x11
0347 7812 |x | Jump 0x35a ; case 0x12
0348 7811 |x | Jump 0x35a ; case 0x13
0349 783e |x> | Jump 0x388 ; case 0x14
034a 780f |x | Jump 0x35a ; case 0x15
034b 7800 |x | Jump 0x34c ; case 0x16
034c 00db | | Load_Top At_Offset_3
034d 00eb | | Load_Encached Diana_Cache
034e 18e2 | | Execute Package,Field_Execute,Field_Number 0xe2
034f 00eb | | Load_Encached Diana_Cache
0350 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0351 8405 | | Call 0x2,0x5
0352 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0353 783b |x; | Jump 0x38f
0354 0ba1 | | Execute_Immediate Case_Compare,0xa1
0355 7019 |p | Jump_Nonzero 0x36f
0356 0fa7 | | Execute_Immediate Equal,0xa7
0357 7005 |p | Jump_Nonzero 0x35d
0358 7801 |x | Jump 0x35a
0359 00d1 | | Pop_Control Pop_Count_1
035a 4800 |H | Short_Literal 0x0
035b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
035c 7832 |x2 | Jump 0x38f
035d e402 | | Load 0x2,0x2
035e 0aff | | Execute_Immediate Plus,-0x1
035f c402 | | Store 0x2,0x2
0360 00db | | Load_Top At_Offset_3
0361 00eb | | Load_Encached Diana_Cache
0362 18e0 | | Execute Package,Field_Execute,Field_Number 0xe0
0363 8404 | | Call 0x2,0x4
0364 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0365 7829 |x) | Jump 0x38f
0366 e402 | | Load 0x2,0x2
0367 0aff | | Execute_Immediate Plus,-0x1
0368 c402 | | Store 0x2,0x2
0369 00db | | Load_Top At_Offset_3
036a 00eb | | Load_Encached Diana_Cache
036b 1889 | | Execute Package,Field_Execute,Field_Number 0x89
036c 8405 | | Call 0x2,0x5
036d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
036e 7820 |x | Jump 0x38f
036f 00d1 | | Pop_Control Pop_Count_1
0370 00db | | Load_Top At_Offset_3
0371 00eb | | Load_Encached Diana_Cache
0372 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
0373 00eb | | Load_Encached Diana_Cache
0374 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0375 8405 | | Call 0x2,0x5
0376 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0377 7817 |x | Jump 0x38f
0378 00db | | Load_Top At_Offset_3
0379 00eb | | Load_Encached Diana_Cache
037a 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
037b 00eb | | Load_Encached Diana_Cache
037c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
037d 8405 | | Call 0x2,0x5
037e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
037f 780f |x | Jump 0x38f
0380 00db | | Load_Top At_Offset_3
0381 00eb | | Load_Encached Diana_Cache
0382 18b4 | | Execute Package,Field_Execute,Field_Number 0xb4
0383 00eb | | Load_Encached Diana_Cache
0384 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0385 8407 | | Call 0x2,0x7
0386 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0387 7807 |x | Jump 0x38f
0388 00db | | Load_Top At_Offset_3
0389 00eb | | Load_Encached Diana_Cache
038a 18df | | Execute Package,Field_Execute,Field_Number 0xdf
038b 00eb | | Load_Encached Diana_Cache
038c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
038d 8407 | | Call 0x2,0x7
038e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
038f 00d8 | | Load_Top At_Offset_0
0390 6802 |h | Jump_Zero 0x393
0391 00d8 | | Load_Top At_Offset_0
0392 4401 |D | Exit_Subprogram With_Result,0x1
0393 00db | | Load_Top At_Offset_3
0394 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0395 00d8 | | Load_Top At_Offset_0
0396 4851 |HQ | Short_Literal 0x51
0397 4860 |H` | Short_Literal 0x60
0398 0262 | b | Execute Discrete,In_Range
0399 6817 |h | Jump_Zero 0x3b1
039a 0b51 | Q | Execute_Immediate Case_Compare,0x51
039b 700d |p | Jump_Nonzero 0x3a9
039c 0b5e | ^ | Execute_Immediate Case_Compare,0x5e
039d 7003 |p | Jump_Nonzero 0x3a1
039e 0f60 | ` | Execute_Immediate Equal,0x60
039f 700a |p | Jump_Nonzero 0x3aa
03a0 7811 |x | Jump 0x3b2
03a1 00d1 | | Pop_Control Pop_Count_1
03a2 00db | | Load_Top At_Offset_3
03a3 00eb | | Load_Encached Diana_Cache
03a4 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
03a5 00eb | | Load_Encached Diana_Cache
03a6 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03a7 8405 | | Call 0x2,0x5
03a8 4401 |D | Exit_Subprogram With_Result,0x1
03a9 00d1 | | Pop_Control Pop_Count_1
03aa 00db | | Load_Top At_Offset_3
03ab 00eb | | Load_Encached Diana_Cache
03ac 18e3 | | Execute Package,Field_Execute,Field_Number 0xe3
03ad 00eb | | Load_Encached Diana_Cache
03ae 1889 | | Execute Package,Field_Execute,Field_Number 0x89
03af 8405 | | Call 0x2,0x5
03b0 4401 |D | Exit_Subprogram With_Result,0x1
03b1 00d1 | | Pop_Control Pop_Count_1
03b2 4800 |H | Short_Literal 0x0
03b3 4401 |D | Exit_Subprogram With_Result,0x1
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03be | | .CONST 0x03be ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0003 | | .CONST 0x0003 ; Number of locals
03bb INIT_03b8:
03bb 00da | | Load_Top At_Offset_2
03bc 0007 | | Action Break_Optional
03bd 00e3 | | Load_Encached Natural_Cache
03be BODY_03b8:
03be 00cf | | Action Mark_Auxiliary
03bf 780d |x | Jump 0x3cd
03c0 00da | | Load_Top At_Offset_2
03c1 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
03c2 8404 | | Call 0x2,0x4
03c3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03c4 00d9 | | Load_Top At_Offset_1
03c5 6802 |h | Jump_Zero 0x3c8
03c6 00d9 | | Load_Top At_Offset_1
03c7 4401 |D | Exit_Subprogram With_Result,0x1
03c8 00da | | Load_Top At_Offset_2
03c9 0217 | | Execute Heap_Access,All_Reference
03ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03cb 0033 | 3 | Store_Top Heap_Access,At_Offset_3
03cc 00c9 | | Action Pop_Auxiliary_Loop
03cd 00da | | Load_Top At_Offset_2
03ce 77f1 |w | Jump_Nonzero 0x3c0
03cf 00ce | | Action Pop_Auxiliary
03d0 4800 |H | Short_Literal 0x0
03d1 4401 |D | Exit_Subprogram With_Result,0x1
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03de | | .CONST 0x03de ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0003 | | .CONST 0x0003 ; Number of locals
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc 0007 | | Action Break_Optional
03dd 00ec | | Load_Encached Diana_Tree_Cache
03de BODY_03d8:
03de 00cf | | Action Mark_Auxiliary
03df 7823 |x# | Jump 0x403
03e0 00da | | Load_Top At_Offset_2
03e1 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
03e2 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03e3 00d9 | | Load_Top At_Offset_1
03e4 0145 | E | Execute Heap_Access,Diana_Tree_Kind
03e5 0b40 | @ | Execute_Immediate Case_Compare,0x40
03e6 7008 |p | Jump_Nonzero 0x3ef
03e7 4842 |HB | Short_Literal 0x42
03e8 4845 |HE | Short_Literal 0x45
03e9 0262 | b | Execute Discrete,In_Range
03ea 700d |p | Jump_Nonzero 0x3f8
03eb e402 | | Load 0x2,0x2
03ec 0a01 | | Execute_Immediate Plus,0x1
03ed c402 | | Store 0x2,0x2
03ee 7809 |x | Jump 0x3f8
03ef 00d1 | | Pop_Control Pop_Count_1
03f0 00d9 | | Load_Top At_Offset_1
03f1 49a1 |I | Short_Literal 0x1a1
03f2 00eb | | Load_Encached Diana_Cache
03f3 0096 | | Execute Package,Field_Execute_Dynamic
03f4 7003 |p | Jump_Nonzero 0x3f8
03f5 e402 | | Load 0x2,0x2
03f6 0a01 | | Execute_Immediate Plus,0x1
03f7 c402 | | Store 0x2,0x2
03f8 00d9 | | Load_Top At_Offset_1
03f9 e5fe | | Load 0x2,-0x2
03fa 021f | | Execute Heap_Access,Equal
03fb 6802 |h | Jump_Zero 0x3fe
03fc e402 | | Load 0x2,0x2
03fd 4401 |D | Exit_Subprogram With_Result,0x1
03fe 00da | | Load_Top At_Offset_2
03ff 0217 | | Execute Heap_Access,All_Reference
0400 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0401 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0402 00c9 | | Action Pop_Auxiliary_Loop
0403 00da | | Load_Top At_Offset_2
0404 77db |w | Jump_Nonzero 0x3e0
0405 00ce | | Action Pop_Auxiliary
0406 4800 |H | Short_Literal 0x0
0407 4401 |D | Exit_Subprogram With_Result,0x1
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040f | | .CONST 0x040f ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0004 | | .CONST 0x0004 ; Number of locals
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c 0007 | | Action Break_Optional
040d 00ec | | Load_Encached Diana_Tree_Cache
040e 00e3 | | Load_Encached Natural_Cache
040f BODY_0408:
040f 00cf | | Action Mark_Auxiliary
0410 7817 |x | Jump 0x428
0411 00db | | Load_Top At_Offset_3
0412 008b | | Execute Heap_Access,Diana_Seq_Type_Get_Head
0413 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0414 00da | | Load_Top At_Offset_2
0415 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0416 0f40 | @ | Execute_Immediate Equal,0x40
0417 700b |p | Jump_Nonzero 0x423
0418 00da | | Load_Top At_Offset_2
0419 00eb | | Load_Encached Diana_Cache
041a 18e1 | | Execute Package,Field_Execute,Field_Number 0xe1
041b 00eb | | Load_Encached Diana_Cache
041c 1889 | | Execute Package,Field_Execute,Field_Number 0x89
041d 8405 | | Call 0x2,0x5
041e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
041f 00d9 | | Load_Top At_Offset_1
0420 6802 |h | Jump_Zero 0x423
0421 00d9 | | Load_Top At_Offset_1
0422 4401 |D | Exit_Subprogram With_Result,0x1
0423 00db | | Load_Top At_Offset_3
0424 0217 | | Execute Heap_Access,All_Reference
0425 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0426 a602 | | Store_Unchecked 0x3,0x2
0427 00c9 | | Action Pop_Auxiliary_Loop
0428 00db | | Load_Top At_Offset_3
0429 77e7 |w | Jump_Nonzero 0x411
042a 00ce | | Action Pop_Auxiliary
042b 4800 |H | Short_Literal 0x0
042c 4401 |D | Exit_Subprogram With_Result,0x1
042d ; --------------------------------------------------------------------------------------
042d ; STRING TABLE
042d ; --------------------------------------------------------------------------------------
042d 0006 | | .STRTAB 0x0006->0x0430 ; "ASSERT"
042e 000a | | .STRTAB 0x000a->0x0433 ; "INSERT"
042f 000e | | .STREND 0x000e->0x0436
0430 4153 5345 |ASSE| .STRTAB_STRINGS
0436 0000 0000 | | .XXX[0x2]
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug Table
0438 ; --------------------------------------------------------------------------------------
0438 0004 000a | | .DEBUG4 0x0004,0x000a,0xa795,0x0000,0x0001,0x0000
043e 0000 0000 | | .BLANK 0000[0x1c2]