|
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: 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 04b0 | | .CONST 0x04b0 ; 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 005e | ^ | .CONST 0x005e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0012 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0016 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0018 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001a 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
001e 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0020 4800 |H | Short_Literal 0x0
0021 4803 |H | Short_Literal 0x3
0022 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0024 03fe | | Declare_Type Discrete,Defined,Visible
0025 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0027 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0029 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
002b 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
002d 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
002f 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0031 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0033 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0035 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0037 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
0039 00bf | | Action Accept_Activation
003a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003b 00c7 | | Action Elaborate_Subprogram
003c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003d 00c7 | | Action Elaborate_Subprogram
003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003f 00c7 | | Action Elaborate_Subprogram
0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0041 00c7 | | Action Elaborate_Subprogram
0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0043 00c7 | | Action Elaborate_Subprogram
0044 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0045 00c7 | | Action Elaborate_Subprogram
0046 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0047 00c7 | | Action Elaborate_Subprogram
0048 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0049 00c7 | | Action Elaborate_Subprogram
004a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004b 00c7 | | Action Elaborate_Subprogram
004c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004d 00c7 | | Action Elaborate_Subprogram
004e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004f 00c7 | | Action Elaborate_Subprogram
0050 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0055 00c7 | | Action Elaborate_Subprogram
0056 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0059 00c7 | | Action Elaborate_Subprogram
005a 1d20 | | Execute_Immediate Reference_Lex_1,0x20
005b 00c7 | | Action Elaborate_Subprogram
005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005d 00c7 | | Action Elaborate_Subprogram
005e BODY_0008:
005e 00bc | | Action Signal_Activated
005f 00bb | | Action Signal_Completion
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 4607 |F | Jump_Case 0x8
0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0065 7807 |x | Jump 0x6d ; case 0x1
0066 780a |x | Jump 0x71 ; case 0x2
0067 780e |x | Jump 0x76 ; case 0x3
0068 7811 |x | Jump 0x7a ; case 0x4
0069 7812 |x | Jump 0x7c ; case 0x5
006a 7813 |x | Jump 0x7e ; case 0x6
006b 7816 |x | Jump 0x82 ; case 0x7
006c 4302 |C | .XXX[0x1]
006d 00da | | Load_Top At_Offset_2
006e 0091 0342 | B| Action Push_String_Extended_Indexed,0x342 ; "A_LENGTH_CLAUSE"
0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0071 00db | | Load_Top At_Offset_3
0072 00db | | Load_Top At_Offset_3
0073 00e0 | | Load_Encached Standard_Cache
0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 00da | | Load_Top At_Offset_2
0077 00e0 | | Load_Encached Standard_Cache
0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0079 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007a 00db | | Load_Top At_Offset_3
007b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007c 00db | | Load_Top At_Offset_3
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007e e20d | | Load 0x1,0xd
007f 00dc | | Load_Top At_Offset_4
0080 0267 | g | Execute Discrete,Predecessor
0081 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0082 e20d | | Load 0x1,0xd
0083 00dc | | Load_Top At_Offset_4
0084 0268 | h | Execute Discrete,Successor
0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0092 | | .CONST 0x0092 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e002 | | Load 0x0,0x2
008c 02ff | | Declare_Variable Variant_Record
008d 00db | | Load_Top At_Offset_3
008e 8003 | | Call 0x0,0x3
008f 8004 | | Call 0x0,0x4
0090 00d9 | | Load_Top At_Offset_1
0091 016d | m | Execute Variant_Record,Structure_Write
0092 BODY_0088:
0092 00d8 | | Load_Top At_Offset_0
0093 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0094 0f05 | | Execute_Immediate Equal,0x5
0095 6803 |h | Jump_Zero 0x99
0096 00d8 | | Load_Top At_Offset_0
0097 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0099 4804 |H | Short_Literal 0x4
009a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a6 | | .CONST 0x00a6 ; Address of begin
00a1 00c9 | | .CONST 0x00c9 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 8003 | | Call 0x0,0x3
00a5 00ec | | Load_Encached Diana_Tree_Cache
00a6 BODY_00a0:
00a6 00d9 | | Load_Top At_Offset_1
00a7 00eb | | Load_Encached Diana_Cache
00a8 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
00a9 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00aa 00d9 | | Load_Top At_Offset_1
00ab 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00ac 0b44 | D | Execute_Immediate Case_Compare,0x44
00ad 700a |p | Jump_Nonzero 0xb8
00ae 4842 |HB | Short_Literal 0x42
00af 4843 |HC | Short_Literal 0x43
00b0 0262 | b | Execute Discrete,In_Range
00b1 7013 |p | Jump_Nonzero 0xc5
00b2 0092 034b | K| Action Push_String_Extended,0x34b ; "Element is not a Representation Clause"
00b4 e005 | | Load 0x0,0x5
00b5 8006 | | Call 0x0,0x6
00b6 e007 | | Load 0x0,0x7
00b7 0257 | W | Execute Discrete,Raise
00b8 00d1 | | Pop_Control Pop_Count_1
00b9 00d8 | | Load_Top At_Offset_0
00ba 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00bb 0f0e | | Execute_Immediate Equal,0xe
00bc 6804 |h | Jump_Zero 0xc1
00bd 00d8 | | Load_Top At_Offset_0
00be 8008 | | Call 0x0,0x8
00bf 8009 | | Call 0x0,0x9
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 00d8 | | Load_Top At_Offset_0
00c2 800a | | Call 0x0,0xa
00c3 8009 | | Call 0x0,0x9
00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c5 00d8 | | Load_Top At_Offset_0
00c6 800a | | Call 0x0,0xa
00c7 8009 | | Call 0x0,0x9
00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c9 TRAP_00a0:
00c9 010e | | Execute Exception,Is_Constraint_Error
00ca 6806 |h | Jump_Zero 0xd1
00cb 0092 034b | K| Action Push_String_Extended,0x34b ; "Element is not a Representation Clause"
00cd e005 | | Load 0x0,0x5
00ce 8006 | | Call 0x0,0x6
00cf e007 | | Load 0x0,0x7
00d0 0257 | W | Execute Discrete,Raise
00d1 0100 | | Execute Exception,Raise
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 8003 | | Call 0x0,0x3
00dd BODY_00d8:
00dd 00d8 | | Load_Top At_Offset_0
00de 0145 | E | Execute Heap_Access,Diana_Tree_Kind
00df 00d8 | | Load_Top At_Offset_0
00e0 4864 |Hd | Short_Literal 0x64
00e1 4872 |Hr | Short_Literal 0x72
00e2 0262 | b | Execute Discrete,In_Range
00e3 6810 |h | Jump_Zero 0xf4
00e4 00d8 | | Load_Top At_Offset_0
00e5 4866 |Hf | Short_Literal 0x66
00e6 486a |Hj | Short_Literal 0x6a
00e7 0262 | b | Execute Discrete,In_Range
00e8 700b |p | Jump_Nonzero 0xf4
00e9 4870 |Hp | Short_Literal 0x70
00ea 4871 |Hq | Short_Literal 0x71
00eb 0262 | b | Execute Discrete,In_Range
00ec 7008 |p | Jump_Nonzero 0xf5
00ed 7800 |x | Jump 0xee
00ee 00d8 | | Load_Top At_Offset_0
00ef 4903 |I | Short_Literal 0x103
00f0 00eb | | Load_Encached Diana_Cache
00f1 0096 | | Execute Package,Entry
00f2 8009 | | Call 0x0,0x9
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 00db | | Load_Top At_Offset_3
00f6 800b | | Call 0x0,0xb
00f7 0f0c | | Execute_Immediate Equal,0xc
00f8 7002 |p | Jump_Nonzero 0xfb
00f9 e00c | | Load 0x0,0xc
00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fb 0092 034c | L| Action Push_String_Extended,0x34c ; "Element is not a Type Definition"
00fd e005 | | Load 0x0,0x5
00fe 8006 | | Call 0x0,0x6
00ff e007 | | Load 0x0,0x7
0100 0257 | W | Execute Discrete,Raise
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d | | .CONST 0x010d ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 8003 | | Call 0x0,0x3
010d BODY_0108:
010d 00d8 | | Load_Top At_Offset_0
010e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
010f 00d8 | | Load_Top At_Offset_0
0110 486b |Hk | Short_Literal 0x6b
0111 4873 |Hs | Short_Literal 0x73
0112 0262 | b | Execute Discrete,In_Range
0113 680d |h | Jump_Zero 0x121
0114 0b6c | l | Execute_Immediate Case_Compare,0x6c
0115 700b |p | Jump_Nonzero 0x121
0116 486e |Hn | Short_Literal 0x6e
0117 4872 |Hr | Short_Literal 0x72
0118 0262 | b | Execute Discrete,In_Range
0119 7008 |p | Jump_Nonzero 0x122
011a 7800 |x | Jump 0x11b
011b 00d8 | | Load_Top At_Offset_0
011c 4906 |I | Short_Literal 0x106
011d 00eb | | Load_Encached Diana_Cache
011e 0096 | | Execute Package,Entry
011f 8009 | | Call 0x0,0x9
0120 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0121 00d1 | | Pop_Control Pop_Count_1
0122 0092 034d | M| Action Push_String_Extended,0x34d ; "Element can't have a Storage Size Rep"
0124 e005 | | Load 0x0,0x5
0125 8006 | | Call 0x0,0x6
0126 e007 | | Load 0x0,0x7
0127 0257 | W | Execute Discrete,Raise
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d | - | .CONST 0x012d ; 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 8003 | | Call 0x0,0x3
012d BODY_0128:
012d 00d8 | | Load_Top At_Offset_0
012e 0145 | E | Execute Heap_Access,Diana_Tree_Kind
012f 4831 |H1 | Short_Literal 0x31
0130 4832 |H2 | Short_Literal 0x32
0131 0262 | b | Execute Discrete,In_Range
0132 7006 |p | Jump_Nonzero 0x139
0133 0092 034e | N| Action Push_String_Extended,0x34e ; "Element isn't an Enumeration Element"
0135 e005 | | Load 0x0,0x5
0136 8006 | | Call 0x0,0x6
0137 e007 | | Load 0x0,0x7
0138 0257 | W | Execute Discrete,Raise
0139 00d8 | | Load_Top At_Offset_0
013a 4903 |I | Short_Literal 0x103
013b 00eb | | Load_Encached Diana_Cache
013c 0096 | | Execute Package,Entry
013d 8009 | | Call 0x0,0x9
013e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 0092 034f | O| Action Push_String_Extended,0x34f ; "The LONG_INTEGER form of Associated_Enumeration_Representation is not yet implemented"
0145 e00d | | Load 0x0,0xd
0146 8006 | | Call 0x0,0x6
0147 e00e | | Load 0x0,0xe
0148 0257 | W | Execute Discrete,Raise
0149 0000 0000 | | .XXX[0x3]
014b 0000 | |
014c 8000 0000 | | .XXX[0x4]
014e 0000 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 8003 | | Call 0x0,0x3
0155 BODY_0150:
0155 00cf | | Action Mark_Auxiliary
0156 00d9 | | Load_Top At_Offset_1
0157 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0158 00d8 | | Load_Top At_Offset_0
0159 0d39 | 9 | Execute_Immediate Less,0x39
015a 700f |p | Jump_Nonzero 0x16a
015b 00d8 | | Load_Top At_Offset_0
015c 0c3a | : | Execute_Immediate Greater_Equal,0x3a
015d 7009 |p | Jump_Nonzero 0x167
015e 00d1 | | Pop_Control Pop_Count_1
015f 00d9 | | Load_Top At_Offset_1
0160 00eb | | Load_Encached Diana_Cache
0161 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
0162 00eb | | Load_Encached Diana_Cache
0163 1889 | | Execute Package,Field_Execute,Field_Number 0x89
0164 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
0165 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0166 7818 |x | Jump 0x17f
0167 0f72 | r | Execute_Immediate Equal,0x72
0168 700a |p | Jump_Nonzero 0x173
0169 780f |x | Jump 0x179
016a 0f1c | | Execute_Immediate Equal,0x1c
016b 7001 |p | Jump_Nonzero 0x16d
016c 780c |x | Jump 0x179
016d 00d9 | | Load_Top At_Offset_1
016e 4909 |I | Short_Literal 0x109
016f 00eb | | Load_Encached Diana_Cache
0170 0096 | | Execute Package,Entry
0171 8009 | | Call 0x0,0x9
0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0173 00d9 | | Load_Top At_Offset_1
0174 490e |I | Short_Literal 0x10e
0175 00eb | | Load_Encached Diana_Cache
0176 0096 | | Execute Package,Entry
0177 8009 | | Call 0x0,0x9
0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0179 0092 0350 | P| Action Push_String_Extended,0x350 ; "Element can't have a record rep"
017b e005 | | Load 0x0,0x5
017c 8006 | | Call 0x0,0x6
017d e007 | | Load 0x0,0x7
017e 0257 | W | Execute Discrete,Raise
017f 00c9 | | Action Pop_Auxiliary_Loop
0180 7fd5 | | Jump 0x156
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 8003 | | Call 0x0,0x3
018d BODY_0188:
018d 00cf | | Action Mark_Auxiliary
018e 00d9 | | Load_Top At_Offset_1
018f 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0190 00d8 | | Load_Top At_Offset_0
0191 0d02 | | Execute_Immediate Less,0x2
0192 704a |pJ | Jump_Nonzero 0x1dd
0193 00d8 | | Load_Top At_Offset_0
0194 0c3f | ? | Execute_Immediate Greater_Equal,0x3f
0195 7044 |pD | Jump_Nonzero 0x1da
0196 0afe | | Execute_Immediate Plus,-0x2
0197 463c |F< | Jump_Case 0x3d
0198 7850 |xP | Jump 0x1e9 ; case 0x0
0199 7844 |xD | Jump 0x1de ; case 0x1
019a 7843 |xC | Jump 0x1de ; case 0x2
019b 7842 |xB | Jump 0x1de ; case 0x3
019c 7841 |xA | Jump 0x1de ; case 0x4
019d 7840 |x@ | Jump 0x1de ; case 0x5
019e 783f |x? | Jump 0x1de ; case 0x6
019f 783e |x> | Jump 0x1de ; case 0x7
01a0 783d |x= | Jump 0x1de ; case 0x8
01a1 783c |x< | Jump 0x1de ; case 0x9
01a2 783b |x; | Jump 0x1de ; case 0xa
01a3 783a |x: | Jump 0x1de ; case 0xb
01a4 7839 |x9 | Jump 0x1de ; case 0xc
01a5 7838 |x8 | Jump 0x1de ; case 0xd
01a6 7837 |x7 | Jump 0x1de ; case 0xe
01a7 7836 |x6 | Jump 0x1de ; case 0xf
01a8 7835 |x5 | Jump 0x1de ; case 0x10
01a9 7834 |x4 | Jump 0x1de ; case 0x11
01aa 7833 |x3 | Jump 0x1de ; case 0x12
01ab 7832 |x2 | Jump 0x1de ; case 0x13
01ac 7831 |x1 | Jump 0x1de ; case 0x14
01ad 7830 |x0 | Jump 0x1de ; case 0x15
01ae 782f |x/ | Jump 0x1de ; case 0x16
01af 782e |x. | Jump 0x1de ; case 0x17
01b0 782d |x- | Jump 0x1de ; case 0x18
01b1 782c |x, | Jump 0x1de ; case 0x19
01b2 782b |x+ | Jump 0x1de ; case 0x1a
01b3 7830 |x0 | Jump 0x1e4 ; case 0x1b
01b4 7829 |x) | Jump 0x1de ; case 0x1c
01b5 782e |x. | Jump 0x1e4 ; case 0x1d
01b6 7827 |x' | Jump 0x1de ; case 0x1e
01b7 7826 |x& | Jump 0x1de ; case 0x1f
01b8 7825 |x% | Jump 0x1de ; case 0x20
01b9 7824 |x$ | Jump 0x1de ; case 0x21
01ba 7823 |x# | Jump 0x1de ; case 0x22
01bb 7822 |x" | Jump 0x1de ; case 0x23
01bc 7821 |x! | Jump 0x1de ; case 0x24
01bd 7820 |x | Jump 0x1de ; case 0x25
01be 781f |x | Jump 0x1de ; case 0x26
01bf 7824 |x$ | Jump 0x1e4 ; case 0x27
01c0 781d |x | Jump 0x1de ; case 0x28
01c1 781c |x | Jump 0x1de ; case 0x29
01c2 781b |x | Jump 0x1de ; case 0x2a
01c3 781a |x | Jump 0x1de ; case 0x2b
01c4 7819 |x | Jump 0x1de ; case 0x2c
01c5 7818 |x | Jump 0x1de ; case 0x2d
01c6 781d |x | Jump 0x1e4 ; case 0x2e
01c7 7816 |x | Jump 0x1de ; case 0x2f
01c8 7815 |x | Jump 0x1de ; case 0x30
01c9 7814 |x | Jump 0x1de ; case 0x31
01ca 7813 |x | Jump 0x1de ; case 0x32
01cb 7812 |x | Jump 0x1de ; case 0x33
01cc 7811 |x | Jump 0x1de ; case 0x34
01cd 7810 |x | Jump 0x1de ; case 0x35
01ce 781a |x | Jump 0x1e9 ; case 0x36
01cf 7819 |x | Jump 0x1e9 ; case 0x37
01d0 780d |x | Jump 0x1de ; case 0x38
01d1 780c |x | Jump 0x1de ; case 0x39
01d2 780b |x | Jump 0x1de ; case 0x3a
01d3 781d |x | Jump 0x1f1 ; case 0x3b
01d4 7800 |x | Jump 0x1d5 ; case 0x3c
01d5 00d9 | | Load_Top At_Offset_1
01d6 00eb | | Load_Encached Diana_Cache
01d7 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
01d8 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01d9 781b |x | Jump 0x1f5
01da 0f73 | s | Execute_Immediate Equal,0x73
01db 7008 |p | Jump_Nonzero 0x1e4
01dc 7801 |x | Jump 0x1de
01dd 00d1 | | Pop_Control Pop_Count_1
01de 0092 0351 | Q| Action Push_String_Extended,0x351 ; "Element can't have an Address Rep"
01e0 e005 | | Load 0x0,0x5
01e1 8006 | | Call 0x0,0x6
01e2 e007 | | Load 0x0,0x7
01e3 0257 | W | Execute Discrete,Raise
01e4 00d9 | | Load_Top At_Offset_1
01e5 00eb | | Load_Encached Diana_Cache
01e6 18f6 | | Execute Package,Field_Execute,Field_Number 0xf6
01e7 8009 | | Call 0x0,0x9
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 00d9 | | Load_Top At_Offset_1
01ea 00eb | | Load_Encached Diana_Cache
01eb 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0
01ec 00eb | | Load_Encached Diana_Cache
01ed 1889 | | Execute Package,Field_Execute,Field_Number 0x89
01ee 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head
01ef 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f0 7804 |x | Jump 0x1f5
01f1 00d9 | | Load_Top At_Offset_1
01f2 00eb | | Load_Encached Diana_Cache
01f3 18bf | | Execute Package,Field_Execute,Field_Number 0xbf
01f4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01f5 00c9 | | Action Pop_Auxiliary_Loop
01f6 7f97 | | Jump 0x18e
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4607 |F | Jump_Case 0x8
01fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01fd 7807 |x | Jump 0x205 ; case 0x1
01fe 780a |x | Jump 0x209 ; case 0x2
01ff 780e |x | Jump 0x20e ; case 0x3
0200 7811 |x | Jump 0x212 ; case 0x4
0201 7812 |x | Jump 0x214 ; case 0x5
0202 7813 |x | Jump 0x216 ; case 0x6
0203 7816 |x | Jump 0x21a ; case 0x7
0204 4302 |C | .XXX[0x1]
0205 00da | | Load_Top At_Offset_2
0206 0091 0347 | G| Action Push_String_Extended_Indexed,0x347 ; "SIZE"
0208 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0209 00db | | Load_Top At_Offset_3
020a 00db | | Load_Top At_Offset_3
020b 00e0 | | Load_Encached Standard_Cache
020c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020e 00da | | Load_Top At_Offset_2
020f 00e0 | | Load_Encached Standard_Cache
0210 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0211 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0212 00db | | Load_Top At_Offset_3
0213 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0214 00db | | Load_Top At_Offset_3
0215 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0216 e216 | | Load 0x1,0x16
0217 00dc | | Load_Top At_Offset_4
0218 0267 | g | Execute Discrete,Predecessor
0219 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021a e216 | | Load 0x1,0x16
021b 00dc | | Load_Top At_Offset_4
021c 0268 | h | Execute Discrete,Successor
021d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021e 0000 0000 | | .XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0228 | ( | .CONST 0x0228 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0004 | | .CONST 0x0004 ; Number of locals
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 8003 | | Call 0x0,0x3
0225 00ec | | Load_Encached Diana_Tree_Cache
0226 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0228 BODY_0220:
0228 00da | | Load_Top At_Offset_2
0229 0145 | E | Execute Heap_Access,Diana_Tree_Kind
022a 0f44 | D | Execute_Immediate Equal,0x44
022b 6806 |h | Jump_Zero 0x232
022c 00da | | Load_Top At_Offset_2
022d 00eb | | Load_Encached Diana_Cache
022e 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
022f 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0230 8404 | | Call 0x2,0x4
0231 7806 |x | Jump 0x238
0232 0092 0352 | R| Action Push_String_Extended,0x352 ; "Element isn't a Length Clause"
0234 e005 | | Load 0x0,0x5
0235 8006 | | Call 0x0,0x6
0236 e007 | | Load 0x0,0x7
0237 0257 | W | Execute Discrete,Raise
0238 0831 | 1 | Execute_Immediate Raise,0x31
0239 0000 0000 | | .BLANK 0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245 | E | .CONST 0x0245 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 8003 | | Call 0x0,0x3
0245 BODY_0240:
0245 00d8 | | Load_Top At_Offset_0
0246 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0247 0f44 | D | Execute_Immediate Equal,0x44
0248 680b |h | Jump_Zero 0x254
0249 00d8 | | Load_Top At_Offset_0
024a 00eb | | Load_Encached Diana_Cache
024b 18d4 | | Execute Package,Field_Execute,Field_Number 0xd4
024c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
024d 0f0e | | Execute_Immediate Equal,0xe
024e 7005 |p | Jump_Nonzero 0x254
024f 00d8 | | Load_Top At_Offset_0
0250 00eb | | Load_Encached Diana_Cache
0251 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
0252 8009 | | Call 0x0,0x9
0253 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0254 0092 0353 | S| Action Push_String_Extended,0x353 ; "Element isn't a Representation Aggregate"
0256 e005 | | Load 0x0,0x5
0257 8006 | | Call 0x0,0x6
0258 e007 | | Load 0x0,0x7
0259 0257 | W | Execute Discrete,Raise
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0266 | f | .CONST 0x0266 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 8003 | | Call 0x0,0x3
0265 00ec | | Load_Encached Diana_Tree_Cache
0266 BODY_0260:
0266 00d9 | | Load_Top At_Offset_1
0267 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0268 0f43 | C | Execute_Immediate Equal,0x43
0269 680d |h | Jump_Zero 0x277
026a 00d9 | | Load_Top At_Offset_1
026b 00eb | | Load_Encached Diana_Cache
026c 18b3 | | Execute Package,Field_Execute,Field_Number 0xb3
026d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
026e 00d8 | | Load_Top At_Offset_0
026f 7002 |p | Jump_Nonzero 0x272
0270 e00c | | Load 0x0,0xc
0271 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0272 00d8 | | Load_Top At_Offset_0
0273 00eb | | Load_Encached Diana_Cache
0274 18ca | | Execute Package,Field_Execute,Field_Number 0xca
0275 8009 | | Call 0x0,0x9
0276 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0277 0092 0354 | T| Action Push_String_Extended,0x354 ; "Element isn't an Alignment Expression"
0279 e005 | | Load 0x0,0x5
027a 8006 | | Call 0x0,0x6
027b e007 | | Load 0x0,0x7
027c 0257 | W | Execute Discrete,Raise
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 8003 | | Call 0x0,0x3
0285 BODY_0280:
0285 00d8 | | Load_Top At_Offset_0
0286 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0287 0f43 | C | Execute_Immediate Equal,0x43
0288 6807 |h | Jump_Zero 0x290
0289 00d8 | | Load_Top At_Offset_0
028a 00eb | | Load_Encached Diana_Cache
028b 18b8 | | Execute Package,Field_Execute,Field_Number 0xb8
028c 00eb | | Load_Encached Diana_Cache
028d 1889 | | Execute Package,Field_Execute,Field_Number 0x89
028e 800f | | Call 0x0,0xf
028f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0290 0092 0355 | U| Action Push_String_Extended,0x355 ; "Element isn't a Record Rep"
0292 e005 | | Load 0x0,0x5
0293 8006 | | Call 0x0,0x6
0294 e007 | | Load 0x0,0x7
0295 0257 | W | Execute Discrete,Raise
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 8003 | | Call 0x0,0x3
029d 0145 | E | Execute Heap_Access,Diana_Tree_Kind
029e 0fa0 | | Execute_Immediate Equal,-0x60
029f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5 | | .CONST 0x02a5 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 8003 | | Call 0x0,0x3
02a5 BODY_02a0:
02a5 00d8 | | Load_Top At_Offset_0
02a6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02a7 0fa0 | | Execute_Immediate Equal,-0x60
02a8 6803 |h | Jump_Zero 0x2ac
02a9 00db | | Load_Top At_Offset_3
02aa 8010 | | Call 0x0,0x10
02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ac 0092 0356 | V| Action Push_String_Extended,0x356 ; "Element isn't a Component Clause"
02ae e005 | | Load 0x0,0x5
02af 8006 | | Call 0x0,0x6
02b0 e007 | | Load 0x0,0x7
02b1 0257 | W | Execute Discrete,Raise
02b2 0000 0000 | | .BLANK 0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bd | | .CONST 0x02bd ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 8003 | | Call 0x0,0x3
02bd BODY_02b8:
02bd 00d8 | | Load_Top At_Offset_0
02be 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02bf 0fa0 | | Execute_Immediate Equal,-0x60
02c0 6805 |h | Jump_Zero 0x2c6
02c1 00d8 | | Load_Top At_Offset_0
02c2 00eb | | Load_Encached Diana_Cache
02c3 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
02c4 8009 | | Call 0x0,0x9
02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c6 0092 0356 | V| Action Push_String_Extended,0x356 ; "Element isn't a Component Clause"
02c8 e005 | | Load 0x0,0x5
02c9 8006 | | Call 0x0,0x6
02ca e007 | | Load 0x0,0x7
02cb 0257 | W | Execute Discrete,Raise
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5 | | .CONST 0x02d5 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 8003 | | Call 0x0,0x3
02d5 BODY_02d0:
02d5 00d8 | | Load_Top At_Offset_0
02d6 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02d7 0fa0 | | Execute_Immediate Equal,-0x60
02d8 6805 |h | Jump_Zero 0x2de
02d9 00d8 | | Load_Top At_Offset_0
02da 00eb | | Load_Encached Diana_Cache
02db 18dc | | Execute Package,Field_Execute,Field_Number 0xdc
02dc 8009 | | Call 0x0,0x9
02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02de 0092 0356 | V| Action Push_String_Extended,0x356 ; "Element isn't a Component Clause"
02e0 e005 | | Load 0x0,0x5
02e1 8006 | | Call 0x0,0x6
02e2 e007 | | Load 0x0,0x7
02e3 0257 | W | Execute Discrete,Raise
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ed | | .CONST 0x02ed ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 8003 | | Call 0x0,0x3
02ed BODY_02e8:
02ed 00d8 | | Load_Top At_Offset_0
02ee 0145 | E | Execute Heap_Access,Diana_Tree_Kind
02ef 0f42 | B | Execute_Immediate Equal,0x42
02f0 6806 |h | Jump_Zero 0x2f7
02f1 4801 |H | Short_Literal 0x1
02f2 00d9 | | Load_Top At_Offset_1
02f3 e011 | | Load 0x0,0x11
02f4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02f5 8009 | | Call 0x0,0x9
02f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f7 0092 0357 | W| Action Push_String_Extended,0x357 ; "Element isn't an Address Clause"
02f9 e005 | | Load 0x0,0x5
02fa 8006 | | Call 0x0,0x6
02fb e007 | | Load 0x0,0x7
02fc 0257 | W | Execute Discrete,Raise
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0305 | | .CONST 0x0305 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 8003 | | Call 0x0,0x3
0305 BODY_0300:
0305 00d8 | | Load_Top At_Offset_0
0306 0145 | E | Execute Heap_Access,Diana_Tree_Kind
0307 0f42 | B | Execute_Immediate Equal,0x42
0308 6805 |h | Jump_Zero 0x30e
0309 00d8 | | Load_Top At_Offset_0
030a 00eb | | Load_Encached Diana_Cache
030b 18c5 | | Execute Package,Field_Execute,Field_Number 0xc5
030c 8009 | | Call 0x0,0x9
030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030e 0092 0357 | W| Action Push_String_Extended,0x357 ; "Element isn't an Address Clause"
0310 e005 | | Load 0x0,0x5
0311 8006 | | Call 0x0,0x6
0312 e007 | | Load 0x0,0x7
0313 0257 | W | Execute Discrete,Raise
0314 0000 0000 | | .BLANK 0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031d | | .CONST 0x031d ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0002 | | .CONST 0x0002 ; Number of locals
031b INIT_0318:
031b e403 | | Load 0x2,0x3
031c 8012 | | Call 0x0,0x12
031d BODY_0318:
031d 00d8 | | Load_Top At_Offset_0
031e 0092 0347 | G| Action Push_String_Extended,0x347 ; "SIZE"
0320 01df | | Execute Vector,Equal
0321 6803 |h | Jump_Zero 0x325
0322 4800 |H | Short_Literal 0x0
0323 00cb | | Action Pop_Block_With_Result
0324 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0325 00d8 | | Load_Top At_Offset_0
0326 0092 0358 | X| Action Push_String_Extended,0x358 ; "STORAGE_SIZE"
0328 01df | | Execute Vector,Equal
0329 680f |h | Jump_Zero 0x339
032a e403 | | Load 0x2,0x3
032b 8008 | | Call 0x0,0x8
032c 0145 | E | Execute Heap_Access,Diana_Tree_Kind
032d 0b6b | k | Execute_Immediate Case_Compare,0x6b
032e 7006 |p | Jump_Nonzero 0x335
032f 0f73 | s | Execute_Immediate Equal,0x73
0330 7001 |p | Jump_Nonzero 0x332
0331 780f |x | Jump 0x341
0332 4802 |H | Short_Literal 0x2
0333 00cb | | Action Pop_Block_With_Result
0334 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0335 00d1 | | Pop_Control Pop_Count_1
0336 4801 |H | Short_Literal 0x1
0337 00cb | | Action Pop_Block_With_Result
0338 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0339 00d8 | | Load_Top At_Offset_0
033a 0092 034a | J| Action Push_String_Extended,0x34a ; "SMALL"
033c 01df | | Execute Vector,Equal
033d 6803 |h | Jump_Zero 0x341
033e 4803 |H | Short_Literal 0x3
033f 00cb | | Action Pop_Block_With_Result
0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0341 08e2 | | Execute_Immediate Raise,0xe2
0342 ; --------------------------------------------------------------------------------------
0342 ; STRING TABLE
0342 ; --------------------------------------------------------------------------------------
0342 0030 | 0 | .STRTAB 0x0030->0x035a ; "A_LENGTH_CLAUSE"
0343 003d | = | .STRTAB 0x003d->0x0361 ; "AN_ENUMERATION_REPRESENTATION_CLAUSE"
0344 005f | _ | .STRTAB 0x005f->0x0373 ; "A_RECORD_REPRESENTATION_CLAUSE"
0345 007b | { | .STRTAB 0x007b->0x0382 ; "AN_ADDRESS_CLAUSE"
0346 008a | | .STRTAB 0x008a->0x038b ; "NOT_A_REPRESENTATION_CLAUSE"
0347 00a3 | | .STRTAB 0x00a3->0x0398 ; "SIZE"
0348 00a5 | | .STRTAB 0x00a5->0x039a ; "COLLECTION_STORAGE_SIZE"
0349 00ba | | .STRTAB 0x00ba->0x03a6 ; "TASK_STORAGE_SIZE"
034a 00c9 | | .STRTAB 0x00c9->0x03ae ; "SMALL"
034b 00cc | | .STRTAB 0x00cc->0x03b1 ; "Element is not a Representation Clause"
034c 00f0 | | .STRTAB 0x00f0->0x03c4 ; "Element is not a Type Definition"
034d 010e | | .STRTAB 0x010e->0x03d4 ; "Element can't have a Storage Size Rep"
034e 0131 | 1 | .STRTAB 0x0131->0x03e6 ; "Element isn't an Enumeration Element"
034f 0153 | S | .STRTAB 0x0153->0x03f8 ; "The LONG_INTEGER form of Associated_Enumeration_Representation is not yet implemented"
0350 01a6 | | .STRTAB 0x01a6->0x0423 ; "Element can't have a record rep"
0351 01c3 | | .STRTAB 0x01c3->0x0432 ; "Element can't have an Address Rep"
0352 01e2 | | .STRTAB 0x01e2->0x0443 ; "Element isn't a Length Clause"
0353 01fd | | .STRTAB 0x01fd->0x0451 ; "Element isn't a Representation Aggregate"
0354 0223 | # | .STRTAB 0x0223->0x0465 ; "Element isn't an Alignment Expression"
0355 0246 | F | .STRTAB 0x0246->0x0478 ; "Element isn't a Record Rep"
0356 025e | ^ | .STRTAB 0x025e->0x0485 ; "Element isn't a Component Clause"
0357 027c | | | .STRTAB 0x027c->0x0495 ; "Element isn't an Address Clause"
0358 0299 | | .STRTAB 0x0299->0x04a4 ; "STORAGE_SIZE"
0359 02a3 | | .STREND 0x02a3->0x04aa
035a 415f 4c45 |A_LE| .STRTAB_STRINGS
04ab 0000 0000 | | .BLANK 0000[0x5]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug Table
04b0 ; --------------------------------------------------------------------------------------
04b0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d89,0x0000,0x0001,0x0000
04b6 0000 0000 | | .BLANK 0000[0x14a]