|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0430 | 0 | .CONST 0x0430 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009f | | .CONST 0x009f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b 4804 |H | Short_Literal 0x4
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 4800 |H | Short_Literal 0x0
0012 4802 |H | Short_Literal 0x2
0013 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 4800 |H | Short_Literal 0x0
0017 4802 |H | Short_Literal 0x2
0018 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
001a 03fe | | Declare_Type Discrete,Defined,Visible
001b 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
001d e001 | | Load 0x0,0x1
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 00e2 | | Load_Encached Integer_Cache
0020 00e3 | | Load_Encached Natural_Cache
0021 029f 036b | k| Declare_Subprogram INIT_0368,For_Call
0023 4803 |H | Short_Literal 0x3
0024 032d | - | Declare_Type Record,Defined
0025 00d8 | | Load_Top At_Offset_0
0026 0322 | " | Declare_Variable Record
0027 e001 | | Load 0x0,0x1
0028 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0029 00da | | Load_Top At_Offset_2
002a 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
002b 0119 | | Execute Any,Check_In_Formal_Type
002c 00d9 | | Load_Top At_Offset_1
002d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
002e 4800 |H | Short_Literal 0x0
002f 00d9 | | Load_Top At_Offset_1
0030 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0031 6086 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x7fffffff}
0032 00d9 | | Load_Top At_Offset_1
0033 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0034 4801 |H | Short_Literal 0x1
0035 480a |H | Short_Literal 0xa
0036 00e5 | | Load_Encached Long_Integer_Cache
0037 03f8 | | Declare_Type Discrete,Constrained
0038 00d8 | | Load_Top At_Offset_0
0039 0266 | f | Execute Discrete,Bounds
003a e213 | | Load 0x1,0x13
003b 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
003d 4801 |H | Short_Literal 0x1
003e 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
003f e001 | | Load 0x0,0x1
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 00da | | Load_Top At_Offset_2
0042 4801 |H | Short_Literal 0x1
0043 480a |H | Short_Literal 0xa
0044 e216 | | Load 0x1,0x16
0045 035b | [ | Declare_Type Array,Constrained
0046 029f 0383 | | Declare_Subprogram INIT_0380,For_Call
0048 4803 |H | Short_Literal 0x3
0049 032d | - | Declare_Type Record,Defined
004a 4801 |H | Short_Literal 0x1
004b 4be8 |K | Short_Literal 0x3e8
004c 00e5 | | Load_Encached Long_Integer_Cache
004d 03f8 | | Declare_Type Discrete,Constrained
004e 00d8 | | Load_Top At_Offset_0
004f 0266 | f | Execute Discrete,Bounds
0050 00db | | Load_Top At_Offset_3
0051 029f 02db | | Declare_Subprogram INIT_02d8,For_Call
0053 4801 |H | Short_Literal 0x1
0054 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0055 e002 | | Load 0x0,0x2
0056 e003 | | Load 0x0,0x3
0057 4be8 |K | Short_Literal 0x3e8
0058 e001 | | Load 0x0,0x1
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a e004 | | Load 0x0,0x4
005b 191b | | Execute Package,Field_Reference,Field_Number 0x1b
005c e005 | | Load 0x0,0x5
005d 0387 | | Declare_Variable Package
005e 00d8 | | Load_Top At_Offset_0
005f 020f | | Execute Module,Activate
0060 00da | | Load_Top At_Offset_2
0061 4801 |H | Short_Literal 0x1
0062 4be8 |K | Short_Literal 0x3e8
0063 e219 | | Load 0x1,0x19
0064 035b | [ | Declare_Type Array,Constrained
0065 e006 | | Load 0x0,0x6
0066 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0067 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0068 00db | | Load_Top At_Offset_3
0069 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006a 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
006c e20d | | Load 0x1,0xd
006d 0326 | & | Complete_Type Record,By_Defining
006e 00bf | | Action Accept_Activation
006f 029b 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Unelaborated
0071 a007 | | Store_Unchecked 0x0,0x7
0072 00c6 | | Action Check_Subprogram_Elaborated
0073 e217 | | Load 0x1,0x17
0074 e218 | | Load 0x1,0x18
0075 e219 | | Load 0x1,0x19
0076 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0077 e008 | | Load 0x0,0x8
0078 e009 | | Load 0x0,0x9
0079 4800 |H | Short_Literal 0x0
007a 0007 | | Action Break_Optional
007b 029b 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Unelaborated
007d a007 | | Store_Unchecked 0x0,0x7
007e 00c6 | | Action Check_Subprogram_Elaborated
007f e213 | | Load 0x1,0x13
0080 e215 | | Load 0x1,0x15
0081 e216 | | Load 0x1,0x16
0082 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0083 e00a | | Load 0x0,0xa
0084 e00b | | Load 0x0,0xb
0085 4800 |H | Short_Literal 0x0
0086 0007 | | Action Break_Optional
0087 029b 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Unelaborated
0089 a007 | | Store_Unchecked 0x0,0x7
008a 00c6 | | Action Check_Subprogram_Elaborated
008b e213 | | Load 0x1,0x13
008c e215 | | Load 0x1,0x15
008d e216 | | Load 0x1,0x16
008e 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
008f e00c | | Load 0x0,0xc
0090 e00d | | Load 0x0,0xd
0091 4800 |H | Short_Literal 0x0
0092 0007 | | Action Break_Optional
0093 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0094 00c7 | | Action Elaborate_Subprogram
0095 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0096 00c7 | | Action Elaborate_Subprogram
0097 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0098 00c7 | | Action Elaborate_Subprogram
0099 1d0e | | Execute_Immediate Reference_Lex_1,0xe
009a 00c7 | | Action Elaborate_Subprogram
009b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009c 00c7 | | Action Elaborate_Subprogram
009d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
009e 00c7 | | Action Elaborate_Subprogram
009f BODY_0008:
009f 00bc | | Action Signal_Activated
00a0 00bb | | Action Signal_Completion
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ad e006 | | Load 0x0,0x6
00ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b0 00d1 | | Pop_Control Pop_Count_1
00b1 00da | | Load_Top At_Offset_2
00b2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00b3 e21a | | Load 0x1,0x1a
00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b5 00db | | Load_Top At_Offset_3
00b6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00e3 | | .CONST 0x00e3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0007 | | .CONST 0x0007 ; Number of locals
00c3 INIT_00c0:
00c3 e217 | | Load 0x1,0x17
00c4 0322 | " | Declare_Variable Record
00c5 00d8 | | Load_Top At_Offset_0
00c6 1c00 | | Execute_Immediate Run_Utility,0x0
00c7 e213 | | Load 0x1,0x13
00c8 0322 | " | Declare_Variable Record
00c9 00d8 | | Load_Top At_Offset_0
00ca 1c00 | | Execute_Immediate Run_Utility,0x0
00cb e001 | | Load 0x0,0x1
00cc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00cd 02c7 | | Declare_Variable Any
00ce e5ff | | Load 0x2,-0x1
00cf e00e | | Load 0x0,0xe
00d0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00d1 e00f | | Load 0x0,0xf
00d2 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00d3 a404 | | Store_Unchecked 0x2,0x4
00d4 e001 | | Load 0x0,0x1
00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d6 02c7 | | Declare_Variable Any
00d7 00d8 | | Load_Top At_Offset_0
00d8 1c00 | | Execute_Immediate Run_Utility,0x0
00d9 e001 | | Load 0x0,0x1
00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00db 02c7 | | Declare_Variable Any
00dc 00d8 | | Load_Top At_Offset_0
00dd 1c00 | | Execute_Immediate Run_Utility,0x0
00de e001 | | Load 0x0,0x1
00df 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00e0 02c7 | | Declare_Variable Any
00e1 00d8 | | Load_Top At_Offset_0
00e2 1c00 | | Execute_Immediate Run_Utility,0x0
00e3 BODY_00c0:
00e3 e5fe | | Load 0x2,-0x2
00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e5 4be8 |K | Short_Literal 0x3e8
00e6 027e | ~ | Execute Discrete,Not_Equal
00e7 6868 |hh | Jump_Zero 0x150
00e8 e5ff | | Load 0x2,-0x1
00e9 e402 | | Load 0x2,0x2
00ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00eb 00cf | | Action Mark_Auxiliary
00ec 784e |xN | Jump 0x13b
00ed e404 | | Load 0x2,0x4
00ee e001 | | Load 0x0,0x1
00ef 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f0 c405 | | Store 0x2,0x5
00f1 00db | | Load_Top At_Offset_3
00f2 e00f | | Load 0x0,0xf
00f3 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
00f4 0f01 | | Execute_Immediate Equal,0x1
00f5 7001 |p | Jump_Nonzero 0xf7
00f6 783f |x? | Jump 0x136
00f7 4801 |H | Short_Literal 0x1
00f8 e405 | | Load 0x2,0x5
00f9 e00e | | Load 0x0,0xe
00fa 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00fb e001 | | Load 0x0,0x1
00fc 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00fd c406 | | Store 0x2,0x6
00fe e5fe | | Load 0x2,-0x2
00ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0100 00db | | Load_Top At_Offset_3
0101 e006 | | Load 0x0,0x6
0102 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0103 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0104 00d1 | | Pop_Control Pop_Count_1
0105 e5fe | | Load 0x2,-0x2
0106 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0107 00db | | Load_Top At_Offset_3
0108 e21a | | Load 0x1,0x1a
0109 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010a e5fe | | Load 0x2,-0x2
010b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
010c 00db | | Load_Top At_Offset_3
010d e00e | | Load 0x0,0xe
010e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
010f c407 | | Store 0x2,0x7
0110 00cf | | Action Mark_Auxiliary
0111 781f |x | Jump 0x131
0112 00db | | Load_Top At_Offset_3
0113 e403 | | Load 0x2,0x3
0114 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0115 e5fe | | Load 0x2,-0x2
0116 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0117 e406 | | Load 0x2,0x6
0118 e006 | | Load 0x0,0x6
0119 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
011b e403 | | Load 0x2,0x3
011c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011d e403 | | Load 0x2,0x3
011e e402 | | Load 0x2,0x2
011f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0120 e402 | | Load 0x2,0x2
0121 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0122 01d6 | | Execute Vector,Field_Write
0123 e402 | | Load 0x2,0x2
0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0125 0d0a | | Execute_Immediate Less,0xa
0126 6805 |h | Jump_Zero 0x12c
0127 e402 | | Load 0x2,0x2
0128 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0129 0a01 | | Execute_Immediate Plus,0x1
012a e402 | | Load 0x2,0x2
012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012c 00da | | Load_Top At_Offset_2
012d e001 | | Load 0x0,0x1
012e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
012f c407 | | Store 0x2,0x7
0130 00c9 | | Action Pop_Auxiliary_Loop
0131 00da | | Load_Top At_Offset_2
0132 e001 | | Load 0x0,0x1
0133 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0134 6fdd |o | Jump_Zero 0x112
0135 00ce | | Action Pop_Auxiliary
0136 e404 | | Load 0x2,0x4
0137 e001 | | Load 0x0,0x1
0138 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0139 c404 | | Store 0x2,0x4
013a 00c9 | | Action Pop_Auxiliary_Loop
013b e404 | | Load 0x2,0x4
013c e001 | | Load 0x0,0x1
013d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
013e 6fae |o | Jump_Zero 0xed
013f 00ce | | Action Pop_Auxiliary
0140 e402 | | Load 0x2,0x2
0141 e5fe | | Load 0x2,-0x2
0142 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0143 e5fe | | Load 0x2,-0x2
0144 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0145 01d6 | | Execute Vector,Field_Write
0146 e5fe | | Load 0x2,-0x2
0147 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0148 4be8 |K | Short_Literal 0x3e8
0149 027c | | | Execute Discrete,Less
014a 6805 |h | Jump_Zero 0x150
014b e5fe | | Load 0x2,-0x2
014c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014d 0a01 | | Execute_Immediate Plus,0x1
014e e5fe | | Load 0x2,-0x2
014f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0150 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 4607 |F | Jump_Case 0x8
015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
015d 7806 |x | Jump 0x164 ; case 0x1
015e 7809 |x | Jump 0x168 ; case 0x2
015f 780d |x | Jump 0x16d ; case 0x3
0160 7810 |x | Jump 0x171 ; case 0x4
0161 7811 |x | Jump 0x173 ; case 0x5
0162 7812 |x | Jump 0x175 ; case 0x6
0163 7815 |x | Jump 0x179 ; case 0x7
0164 00da | | Load_Top At_Offset_2
0165 0091 03c8 | | Action Push_String_Extended_Indexed,0x3c8 ; "BY_SIZE"
0167 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0168 00db | | Load_Top At_Offset_3
0169 00db | | Load_Top At_Offset_3
016a 00e0 | | Load_Encached Standard_Cache
016b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016d 00da | | Load_Top At_Offset_2
016e 00e0 | | Load_Encached Standard_Cache
016f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0170 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0171 00db | | Load_Top At_Offset_3
0172 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0173 00db | | Load_Top At_Offset_3
0174 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0175 e210 | | Load 0x1,0x10
0176 00dc | | Load_Top At_Offset_4
0177 0267 | g | Execute Discrete,Predecessor
0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0179 e210 | | Load 0x1,0x10
017a 00dc | | Load_Top At_Offset_4
017b 0268 | h | Execute Discrete,Successor
017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4607 |F | Jump_Case 0x8
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0185 7806 |x | Jump 0x18c ; case 0x1
0186 7809 |x | Jump 0x190 ; case 0x2
0187 780d |x | Jump 0x195 ; case 0x3
0188 7810 |x | Jump 0x199 ; case 0x4
0189 7811 |x | Jump 0x19b ; case 0x5
018a 7812 |x | Jump 0x19d ; case 0x6
018b 7815 |x | Jump 0x1a1 ; case 0x7
018c 00da | | Load_Top At_Offset_2
018d 0091 03cb | | Action Push_String_Extended_Indexed,0x3cb ; "IN_ORDER"
018f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0190 00db | | Load_Top At_Offset_3
0191 00db | | Load_Top At_Offset_3
0192 00e0 | | Load_Encached Standard_Cache
0193 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0195 00da | | Load_Top At_Offset_2
0196 00e0 | | Load_Encached Standard_Cache
0197 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0198 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0199 00db | | Load_Top At_Offset_3
019a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
019b 00db | | Load_Top At_Offset_3
019c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
019d e211 | | Load 0x1,0x11
019e 00dc | | Load_Top At_Offset_4
019f 0267 | g | Execute Discrete,Predecessor
01a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a1 e211 | | Load 0x1,0x11
01a2 00dc | | Load_Top At_Offset_4
01a3 0268 | h | Execute Discrete,Successor
01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01c6 | | .CONST 0x01c6 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0006 | | .CONST 0x0006 ; Number of locals
01ab INIT_01a8:
01ab e010 | | Load 0x0,0x10
01ac e011 | | Load 0x0,0x11
01ad 480b |H | Short_Literal 0xb
01ae 0092 03ce | | Action Push_String_Extended,0x3ce ; " "
01b0 e012 | | Load 0x0,0x12
01b1 0387 | | Declare_Variable Package
01b2 00d8 | | Load_Top At_Offset_0
01b3 020f | | Execute Module,Activate
01b4 4801 |H | Short_Literal 0x1
01b5 4809 |H | Short_Literal 0x9
01b6 00da | | Load_Top At_Offset_2
01b7 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01b8 035b | [ | Declare_Type Array,Constrained
01b9 0337 | 7 | Declare_Variable Array
01ba e217 | | Load 0x1,0x17
01bb 0322 | " | Declare_Variable Record
01bc 00d8 | | Load_Top At_Offset_0
01bd 1c00 | | Execute_Immediate Run_Utility,0x0
01be 00e2 | | Load_Encached Integer_Cache
01bf 4801 |H | Short_Literal 0x1
01c0 480a |H | Short_Literal 0xa
01c1 e216 | | Load 0x1,0x16
01c2 035b | [ | Declare_Type Array,Constrained
01c3 0337 | 7 | Declare_Variable Array
01c4 00d8 | | Load_Top At_Offset_0
01c5 1c00 | | Execute_Immediate Run_Utility,0x0
01c6 BODY_01a8:
01c6 e5fe | | Load 0x2,-0x2
01c7 4602 |F | Jump_Case 0x3
01c8 7852 |xR | Jump 0x21b ; case 0x0
01c9 783a |x: | Jump 0x204 ; case 0x1
01ca 7800 |x | Jump 0x1cb ; case 0x2
01cb 00cf | | Action Mark_Auxiliary
01cc e5fd | | Load 0x2,-0x3
01cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ce 0aff | | Execute_Immediate Plus,-0x1
01cf 4801 |H | Short_Literal 0x1
01d0 0263 | c | Execute Discrete,Above_Bound
01d1 7030 |p0 | Jump_Nonzero 0x202
01d2 00d8 | | Load_Top At_Offset_0
01d3 e5fd | | Load 0x2,-0x3
01d4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d5 01d5 | | Execute Vector,Field_Reference
01d6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01d7 e406 | | Load 0x2,0x6
01d8 01d4 | | Execute Vector,Structure_Write
01d9 00cf | | Action Mark_Auxiliary
01da 00d9 | | Load_Top At_Offset_1
01db e5fd | | Load 0x2,-0x3
01dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01dd 01d5 | | Execute Vector,Field_Reference
01de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01df 0aff | | Execute_Immediate Plus,-0x1
01e0 4801 |H | Short_Literal 0x1
01e1 0263 | c | Execute Discrete,Above_Bound
01e2 700e |p | Jump_Nonzero 0x1f1
01e3 e5fd | | Load 0x2,-0x3
01e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01e5 00d9 | | Load_Top At_Offset_1
01e6 e406 | | Load 0x2,0x6
01e7 01d5 | | Execute Vector,Field_Reference
01e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e9 e21a | | Load 0x1,0x1a
01ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01eb 00d9 | | Load_Top At_Offset_1
01ec e406 | | Load 0x2,0x6
01ed 01d5 | | Execute Vector,Field_Reference
01ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ef 00c8 | | Action Pop_Auxiliary_Range
01f0 3ff2 |? | Loop_Increasing 0x1e3
01f1 00ce | | Action Pop_Auxiliary
01f2 00db | | Load_Top At_Offset_3
01f3 e22c | , | Load 0x1,0x2c
01f4 e22d | - | Load 0x1,0x2d
01f5 e22e | . | Load 0x1,0x2e
01f6 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
01f7 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
01f8 8007 | | Call 0x0,0x7
01f9 00d1 | | Pop_Control Pop_Count_1
01fa 00db | | Load_Top At_Offset_3
01fb 00d9 | | Load_Top At_Offset_1
01fc e5fd | | Load 0x2,-0x3
01fd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01fe 01d5 | | Execute Vector,Field_Reference
01ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0200 00c8 | | Action Pop_Auxiliary_Range
0201 3fd0 |? | Loop_Increasing 0x1d2
0202 00ce | | Action Pop_Auxiliary
0203 7817 |x | Jump 0x21b
0204 00cf | | Action Mark_Auxiliary
0205 e5fd | | Load 0x2,-0x3
0206 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0207 0aff | | Execute_Immediate Plus,-0x1
0208 4801 |H | Short_Literal 0x1
0209 0263 | c | Execute Discrete,Above_Bound
020a 700f |p | Jump_Nonzero 0x21a
020b 00d8 | | Load_Top At_Offset_0
020c e5fd | | Load 0x2,-0x3
020d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
020e 01d5 | | Execute Vector,Field_Reference
020f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0210 00d8 | | Load_Top At_Offset_0
0211 e224 | $ | Load 0x1,0x24
0212 e225 | % | Load 0x1,0x25
0213 e226 | & | Load 0x1,0x26
0214 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0215 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0216 8007 | | Call 0x0,0x7
0217 00d2 | | Pop_Control Pop_Count_2
0218 00c8 | | Action Pop_Auxiliary_Range
0219 3ff1 |? | Loop_Increasing 0x20b
021a 00ce | | Action Pop_Auxiliary
021b e5ff | | Load 0x2,-0x1
021c 4602 |F | Jump_Case 0x3
021d 780f |x | Jump 0x22d ; case 0x0
021e 7817 |x | Jump 0x236 ; case 0x1
021f 7800 |x | Jump 0x220 ; case 0x2
0220 00cf | | Action Mark_Auxiliary
0221 e403 | | Load 0x2,0x3
0222 01d9 | | Execute Vector,Reverse_Bounds
0223 0007 | | Action Break_Optional
0224 00d8 | | Load_Top At_Offset_0
0225 0a01 | | Execute_Immediate Plus,0x1
0226 00d9 | | Load_Top At_Offset_1
0227 e403 | | Load 0x2,0x3
0228 01d6 | | Execute Vector,Field_Write
0229 00c8 | | Action Pop_Auxiliary_Range
022a 3ff9 |? | Loop_Increasing 0x224
022b 00ce | | Action Pop_Auxiliary
022c 7809 |x | Jump 0x236
022d e5fd | | Load 0x2,-0x3
022e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022f e21c | | Load 0x1,0x1c
0230 e21d | | Load 0x1,0x1d
0231 e21e | | Load 0x1,0x1e
0232 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0233 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0234 8007 | | Call 0x0,0x7
0235 00d1 | | Pop_Control Pop_Count_1
0236 4800 |H | Short_Literal 0x0
0237 4800 |H | Short_Literal 0x0
0238 0092 03cf | | Action Push_String_Extended,0x3cf ; "TYPE NAME"
023a e402 | | Load 0x2,0x2
023b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
023c 00cf | | Action Mark_Auxiliary
023d 480a |H | Short_Literal 0xa
023e 4801 |H | Short_Literal 0x1
023f 0007 | | Action Break_Optional
0240 4800 |H | Short_Literal 0x0
0241 4800 |H | Short_Literal 0x0
0242 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "C_"
0244 4820 |H | Short_Literal 0x20
0245 e409 | | Load 0x2,0x9
0246 00e0 | | Load_Encached Standard_Cache
0247 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0248 e013 | | Load 0x0,0x13
0249 181c | | Execute Package,Field_Execute,Field_Number 0x1c
024a 01cc | | Execute Vector,Catenate
024b e402 | | Load 0x2,0x2
024c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024d 00c8 | | Action Pop_Auxiliary_Range
024e 3ff1 |? | Loop_Increasing 0x240
024f 00c9 | | Action Pop_Auxiliary_Loop
0250 e5fd | | Load 0x2,-0x3
0251 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0252 0aff | | Execute_Immediate Plus,-0x1
0253 4801 |H | Short_Literal 0x1
0254 0263 | c | Execute Discrete,Above_Bound
0255 7050 |pP | Jump_Nonzero 0x2a6
0256 00d8 | | Load_Top At_Offset_0
0257 e5fd | | Load 0x2,-0x3
0258 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0259 01d5 | | Execute Vector,Field_Reference
025a e404 | | Load 0x2,0x4
025b 017d | } | Execute Record,Structure_Write
025c 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "Name of the type declaration"
025e e014 | | Load 0x0,0x14
025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0260 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0261 e014 | | Load 0x0,0x14
0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0263 180e | | Execute Package,Field_Execute,Field_Number 0xe
0264 e001 | | Load 0x0,0x1
0265 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0266 e404 | | Load 0x2,0x4
0267 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0268 e404 | | Load 0x2,0x4
0269 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026a e00e | | Load 0x0,0xe
026b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
026c e402 | | Load 0x2,0x2
026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026e 00cf | | Action Mark_Auxiliary
026f 480a |H | Short_Literal 0xa
0270 4801 |H | Short_Literal 0x1
0271 0007 | | Action Break_Optional
0272 00d8 | | Load_Top At_Offset_0
0273 e404 | | Load 0x2,0x4
0274 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0275 01d5 | | Execute Vector,Field_Reference
0276 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0277 a405 | | Store_Unchecked 0x2,0x5
0278 e405 | | Load 0x2,0x5
0279 700f |p | Jump_Nonzero 0x289
027a 00ea | | Load_Encached Null_String_Cache
027b e014 | | Load 0x0,0x14
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
027e e014 | | Load 0x0,0x14
027f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0280 180e | | Execute Package,Field_Execute,Field_Number 0xe
0281 e001 | | Load 0x0,0x1
0282 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0283 e001 | | Load 0x0,0x1
0284 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0285 00ea | | Load_Encached Null_String_Cache
0286 e402 | | Load 0x2,0x2
0287 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0288 7818 |x | Jump 0x2a1
0289 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Integer reference to the component type"
028b e014 | | Load 0x0,0x14
028c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
028e e014 | | Load 0x0,0x14
028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0290 180e | | Execute Package,Field_Execute,Field_Number 0xe
0291 e001 | | Load 0x0,0x1
0292 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0293 e5fd | | Load 0x2,-0x3
0294 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0295 e405 | | Load 0x2,0x5
0296 e006 | | Load 0x0,0x6
0297 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0298 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0299 4820 |H | Short_Literal 0x20
029a e405 | | Load 0x2,0x5
029b 00e0 | | Load_Encached Standard_Cache
029c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029d e013 | | Load 0x0,0x13
029e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
029f e402 | | Load 0x2,0x2
02a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a1 00c8 | | Action Pop_Auxiliary_Range
02a2 3fcf |? | Loop_Increasing 0x272
02a3 00ce | | Action Pop_Auxiliary
02a4 00c8 | | Action Pop_Auxiliary_Range
02a5 3fb0 |? | Loop_Increasing 0x256
02a6 00ce | | Action Pop_Auxiliary
02a7 e5ff | | Load 0x2,-0x1
02a8 4602 |F | Jump_Case 0x3
02a9 7809 |x | Jump 0x2b3 ; case 0x0
02aa 7805 |x | Jump 0x2b0 ; case 0x1
02ab 7800 |x | Jump 0x2ac ; case 0x2
02ac 00db | | Load_Top At_Offset_3
02ad e402 | | Load 0x2,0x2
02ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02af 7803 |x | Jump 0x2b3
02b0 4801 |H | Short_Literal 0x1
02b1 e402 | | Load 0x2,0x2
02b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b3 e5fc | | Load 0x2,-0x4
02b4 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "RECORD TYPE COMPONENTS"
02b6 e402 | | Load 0x2,0x2
02b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b8 c5fc | | Store 0x2,-0x4
02b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 00da | | Load_Top At_Offset_2
02c5 01dc | | Execute Vector,Last
02c6 00db | | Load_Top At_Offset_3
02c7 01dd | | Execute Vector,First
02c8 0263 | c | Execute Discrete,Above_Bound
02c9 7006 |p | Jump_Nonzero 0x2d0
02ca 00d8 | | Load_Top At_Offset_0
02cb e5ff | | Load 0x2,-0x1
02cc 01d5 | | Execute Vector,Field_Reference
02cd 1c00 | | Execute_Immediate Run_Utility,0x0
02ce 0a01 | | Execute_Immediate Plus,0x1
02cf 7ff8 | | Jump 0x2c8
02d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00d1 | | Pop_Control Pop_Count_1
02dc 00da | | Load_Top At_Offset_2
02dd 01dc | | Execute Vector,Last
02de 00db | | Load_Top At_Offset_3
02df 01dd | | Execute Vector,First
02e0 0263 | c | Execute Discrete,Above_Bound
02e1 7006 |p | Jump_Nonzero 0x2e8
02e2 00d8 | | Load_Top At_Offset_0
02e3 e5ff | | Load 0x2,-0x1
02e4 01d5 | | Execute Vector,Field_Reference
02e5 1c00 | | Execute_Immediate Run_Utility,0x0
02e6 0a01 | | Execute_Immediate Plus,0x1
02e7 7ff8 | | Jump 0x2e0
02e8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 e001 | | Load 0x0,0x1
02f6 180f | | Execute Package,Field_Execute,Field_Number 0xf
02f7 6807 |h | Jump_Zero 0x2ff
02f8 00db | | Load_Top At_Offset_3
02f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02fa e001 | | Load 0x0,0x1
02fb 180f | | Execute Package,Field_Execute,Field_Number 0xf
02fc 6802 |h | Jump_Zero 0x2ff
02fd 4800 |H | Short_Literal 0x0
02fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ff 00da | | Load_Top At_Offset_2
0300 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0301 e001 | | Load 0x0,0x1
0302 180f | | Execute Package,Field_Execute,Field_Number 0xf
0303 6802 |h | Jump_Zero 0x306
0304 4800 |H | Short_Literal 0x0
0305 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0306 00db | | Load_Top At_Offset_3
0307 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0308 e001 | | Load 0x0,0x1
0309 180f | | Execute Package,Field_Execute,Field_Number 0xf
030a 6802 |h | Jump_Zero 0x30d
030b 4801 |H | Short_Literal 0x1
030c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
030d 00da | | Load_Top At_Offset_2
030e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030f e5fe | | Load 0x2,-0x2
0310 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0311 027c | | | Execute Discrete,Less
0312 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031d e001 | | Load 0x0,0x1
031e 180f | | Execute Package,Field_Execute,Field_Number 0xf
031f 6807 |h | Jump_Zero 0x327
0320 00db | | Load_Top At_Offset_3
0321 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0322 e001 | | Load 0x0,0x1
0323 180f | | Execute Package,Field_Execute,Field_Number 0xf
0324 6802 |h | Jump_Zero 0x327
0325 4800 |H | Short_Literal 0x0
0326 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0327 00da | | Load_Top At_Offset_2
0328 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0329 e001 | | Load 0x0,0x1
032a 180f | | Execute Package,Field_Execute,Field_Number 0xf
032b 6802 |h | Jump_Zero 0x32e
032c 4800 |H | Short_Literal 0x0
032d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032e 00db | | Load_Top At_Offset_3
032f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0330 e001 | | Load 0x0,0x1
0331 180f | | Execute Package,Field_Execute,Field_Number 0xf
0332 6802 |h | Jump_Zero 0x335
0333 4801 |H | Short_Literal 0x1
0334 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0335 00da | | Load_Top At_Offset_2
0336 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0337 e5fe | | Load 0x2,-0x2
0338 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0339 027c | | | Execute Discrete,Less
033a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
033b 0000 0000 | | .BLANK 0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0345 e001 | | Load 0x0,0x1
0346 180f | | Execute Package,Field_Execute,Field_Number 0xf
0347 6807 |h | Jump_Zero 0x34f
0348 00db | | Load_Top At_Offset_3
0349 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034a e001 | | Load 0x0,0x1
034b 180f | | Execute Package,Field_Execute,Field_Number 0xf
034c 6802 |h | Jump_Zero 0x34f
034d 4800 |H | Short_Literal 0x0
034e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034f 00da | | Load_Top At_Offset_2
0350 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0351 e001 | | Load 0x0,0x1
0352 180f | | Execute Package,Field_Execute,Field_Number 0xf
0353 6802 |h | Jump_Zero 0x356
0354 4800 |H | Short_Literal 0x0
0355 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0356 00db | | Load_Top At_Offset_3
0357 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0358 e001 | | Load 0x0,0x1
0359 180f | | Execute Package,Field_Execute,Field_Number 0xf
035a 6802 |h | Jump_Zero 0x35d
035b 4801 |H | Short_Literal 0x1
035c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035d 00da | | Load_Top At_Offset_2
035e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
035f e5fe | | Load 0x2,-0x2
0360 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0361 027d | } | Execute Discrete,Greater
0362 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0363 0000 0000 | | .BLANK 0000[0x5]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 4608 |F | Jump_Case 0x9
036c 7808 |x | Jump 0x375 ; case 0x0
036d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
036e 780d |x | Jump 0x37c ; case 0x2
036f 780c |x | Jump 0x37c ; case 0x3
0370 780b |x | Jump 0x37c ; case 0x4
0371 780a |x | Jump 0x37c ; case 0x5
0372 7809 |x | Jump 0x37c ; case 0x6
0373 7808 |x | Jump 0x37c ; case 0x7
0374 7807 |x | Jump 0x37c ; case 0x8
0375 00da | | Load_Top At_Offset_2
0376 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0377 0125 | % | Execute Any,Set_Constraint
0378 00da | | Load_Top At_Offset_2
0379 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037a 1c00 | | Execute_Immediate Run_Utility,0x0
037b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
037c 0869 | i | Execute_Immediate Raise,0x69
037d 0000 0000 | | .XXX[0x3]
037f 0000 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383 | | .CONST 0x0383 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0001 | | .CONST 0x0001 ; Number of locals
0383 BODY_0380:
0383 INIT_0380:
0383 4608 |F | Jump_Case 0x9
0384 7808 |x | Jump 0x38d ; case 0x0
0385 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0386 7827 |x' | Jump 0x3ae ; case 0x2
0387 7826 |x& | Jump 0x3ae ; case 0x3
0388 7825 |x% | Jump 0x3ae ; case 0x4
0389 7824 |x$ | Jump 0x3ae ; case 0x5
038a 7823 |x# | Jump 0x3ae ; case 0x6
038b 7822 |x" | Jump 0x3ae ; case 0x7
038c 7821 |x! | Jump 0x3ae ; case 0x8
038d 00da | | Load_Top At_Offset_2
038e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
038f 0125 | % | Execute Any,Set_Constraint
0390 e001 | | Load 0x0,0x1
0391 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0392 00db | | Load_Top At_Offset_3
0393 00d9 | | Load_Top At_Offset_1
0394 00d9 | | Load_Top At_Offset_1
0395 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0396 0119 | | Execute Any,Check_In_Formal_Type
0397 00d1 | | Pop_Control Pop_Count_1
0398 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0399 4801 |H | Short_Literal 0x1
039a 00db | | Load_Top At_Offset_3
039b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
039c e217 | | Load 0x1,0x17
039d 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
039e 0337 | 7 | Declare_Variable Array
039f 480a |H | Short_Literal 0xa
03a0 4801 |H | Short_Literal 0x1
03a1 e214 | | Load 0x1,0x14
03a2 00d9 | | Load_Top At_Offset_1
03a3 e402 | | Load 0x2,0x2
03a4 01d6 | | Execute Vector,Field_Write
03a5 3ffb |? | Loop_Increasing 0x3a1
03a6 00db | | Load_Top At_Offset_3
03a7 00d9 | | Load_Top At_Offset_1
03a8 00d9 | | Load_Top At_Offset_1
03a9 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
03aa 0119 | | Execute Any,Check_In_Formal_Type
03ab 00d1 | | Pop_Control Pop_Count_1
03ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03ae 0869 | i | Execute_Immediate Raise,0x69
03af 0000 | | .XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 4608 |F | Jump_Case 0x9
03b4 7808 |x | Jump 0x3bd ; case 0x0
03b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03b6 7810 |x | Jump 0x3c7 ; case 0x2
03b7 780f |x | Jump 0x3c7 ; case 0x3
03b8 780e |x | Jump 0x3c7 ; case 0x4
03b9 780d |x | Jump 0x3c7 ; case 0x5
03ba 780c |x | Jump 0x3c7 ; case 0x6
03bb 780b |x | Jump 0x3c7 ; case 0x7
03bc 780a |x | Jump 0x3c7 ; case 0x8
03bd 4801 |H | Short_Literal 0x1
03be 00db | | Load_Top At_Offset_3
03bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03c0 00da | | Load_Top At_Offset_2
03c1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c2 1c00 | | Execute_Immediate Run_Utility,0x0
03c3 00da | | Load_Top At_Offset_2
03c4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03c5 1c00 | | Execute_Immediate Run_Utility,0x0
03c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03c7 0869 | i | Execute_Immediate Raise,0x69
03c8 ; --------------------------------------------------------------------------------------
03c8 ; STRING TABLE
03c8 ; --------------------------------------------------------------------------------------
03c8 001a | | .STRTAB 0x001a->0x03d5 ; "BY_SIZE"
03c9 001f | | .STRTAB 0x001f->0x03d8 ; "BY_RECORD_NAME"
03ca 002b | + | .STRTAB 0x002b->0x03df ; "BY_COMPONENT_NAME"
03cb 003a | : | .STRTAB 0x003a->0x03e8 ; "IN_ORDER"
03cc 0040 | @ | .STRTAB 0x0040->0x03ec ; "BY_NAME"
03cd 0045 | E | .STRTAB 0x0045->0x03ef ; "BY_COMPONENT_FREQUENCY"
03ce 0059 | Y | .STRTAB 0x0059->0x03fa ; " "
03cf 0058 | X | .STRTAB 0x0058->0x03fb ; "TYPE NAME"
03d0 005f | _ | .STRTAB 0x005f->0x03ff ; "C_"
03d1 005f | _ | .STRTAB 0x005f->0x0400 ; "Name of the type declaration"
03d2 0079 | y | .STRTAB 0x0079->0x040e ; "Integer reference to the component type"
03d3 009e | | .STRTAB 0x009e->0x0422 ; "RECORD TYPE COMPONENTS"
03d4 00b2 | | .STREND 0x00b2->0x042d
03d5 4259 5f53 |BY_S| .STRTAB_STRINGS
042d 0000 0000 | | .XXX[0x3]
042f 0000 | |
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug Table
0430 ; --------------------------------------------------------------------------------------
0430 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f8e,0x0000,0x0001,0x000f
0436 000b 0472 | r| .DBG4T 0x000b,0x0472,0x8000,0x8000
043a 006f 0492 | o | .DBG4T 0x006f,0x0492,0x8000,0x0000
043e 00ab 04a0 | | .DBG4T 0x00ab,0x04a0,0x0001,0x0000
0442 00c3 04a4 | | .DBG4T 0x00c3,0x04a4,0x0001,0x4000
0446 015b 0000 | [ | .DBG4T 0x015b,0x0000,0x0005,0x0000
044a 0183 0000 | | .DBG4T 0x0183,0x0000,0x0005,0x0000
044e 01ab 04d4 | | .DBG4T 0x01ab,0x04d4,0x0001,0x4000
0452 02c3 0000 | | .DBG4T 0x02c3,0x0000,0x0005,0x0000
0456 02db 0000 | | .DBG4T 0x02db,0x0000,0x0005,0x0000
045a 02f3 0513 | | .DBG4T 0x02f3,0x0513,0x0002,0x0000
045e 031b 051c | | .DBG4T 0x031b,0x051c,0x0002,0x0000
0462 0343 0525 | C %| .DBG4T 0x0343,0x0525,0x0002,0x0000
0466 036b 0000 | k | .DBG4T 0x036b,0x0000,0x0005,0x0000
046a 0383 0000 | | .DBG4T 0x0383,0x0000,0x0005,0x0000
046e 03b3 0000 | | .DBG4T 0x03b3,0x0000,0x0005,0x0000
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug chain
0472 ; --------------------------------------------------------------------------------------
0472 000f 0000 | | .DBGLEN 0x000f,0x0000
0474 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0016,0x001b,0x001d,0x0025,0x0034,0x0038,0x003f,0x004a,0x004e,0x0055,0x0060
0483 0001 0002 | | .XXX[0xf]
0485 0003 0004 | |
0487 0005 0006 | |
0489 0009 000a | |
048b 000b 000c | |
048d 000d 000e | |
048f 000f 0010 | |
0491 0012 | |
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug chain
0492 ; --------------------------------------------------------------------------------------
0492 000c 0000 | | .DBGLEN 0x000c,0x0000
0494 006f 0071 | o q| .DBGLNO 0x006f,0x0071,0x007b,0x007d,0x0087,0x0089,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d
04a0 ; --------------------------------------------------------------------------------------
04a0 ; Debug chain
04a0 ; --------------------------------------------------------------------------------------
04a0 0000 0002 | | .DBGLEN 0x0000,0x0002
04a2 00ab 00b1 | | .DBGLNO 0x00ab,0x00b1
04a4 ; --------------------------------------------------------------------------------------
04a4 ; Debug chain
04a4 ; --------------------------------------------------------------------------------------
04a4 0006 0014 | | .DBGLEN 0x0006,0x0014
04a6 00c3 00c7 | | .DBGLNO 0x00c3,0x00c7,0x00cb,0x00d4,0x00d9,0x00de,0x00e3,0x00e8,0x00ed,0x00f1,0x00f7,0x00fe,0x0105,0x010c,0x0112,0x0115,0x011d,0x0123,0x0127,0x012c,0x0131,0x0136,0x013b,0x0140,0x0146,0x014b
04c0 0001 0002 | | .XXX[0x14]
04c2 0004 0005 | |
04c4 0006 0007 | |
04c6 0008 0009 | |
04c8 000b 000c | |
04ca 000d 000e | |
04cc 000f 0010 | |
04ce 000a 0012 | |
04d0 0003 0013 | |
04d2 0014 0015 | |
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug chain
04d4 ; --------------------------------------------------------------------------------------
04d4 0005 001c | | .DBGLEN 0x0005,0x001c
04d6 01ab 01b4 | | .DBGLNO 0x01ab,0x01b4,0x01ba,0x01be,0x01bf,0x01c6,0x01cc,0x01d2,0x01da,0x01e3,0x01f2,0x01fa,0x0205,0x020b,0x021b,0x0221,0x0224,0x022d,0x0236,0x023d,0x0240,0x0250,0x0256,0x025c,0x026f,0x0272,0x0278,0x027a,0x0289,0x02a7,0x02ac,0x02b0,0x02b3
04f7 0001 0004 | | .XXX[0x1c]
04f9 0005 0006 | |
04fb 0007 0008 | |
04fd 0009 0002 | |
04ff 0003 000b | |
0501 000e 000f | |
0503 000c 0010 | |
0505 0011 0012 | |
0507 0013 0014 | |
0509 0015 0016 | |
050b 0017 0018 | |
050d 0019 001a | |
050f 001b 001e | |
0511 001d 001f | |
0513 ; --------------------------------------------------------------------------------------
0513 ; Debug chain
0513 ; --------------------------------------------------------------------------------------
0513 0000 0007 | | .DBGLEN 0x0000,0x0007
0515 02f3 02fd | | .DBGLNO 0x02f3,0x02fd,0x02ff,0x0304,0x0306,0x030b,0x030d
051c ; --------------------------------------------------------------------------------------
051c ; Debug chain
051c ; --------------------------------------------------------------------------------------
051c 0000 0007 | | .DBGLEN 0x0000,0x0007
051e 031b 0325 | %| .DBGLNO 0x031b,0x0325,0x0327,0x032c,0x032e,0x0333,0x0335
0525 ; --------------------------------------------------------------------------------------
0525 ; Debug chain
0525 ; --------------------------------------------------------------------------------------
0525 0000 0007 | | .DBGLEN 0x0000,0x0007
0527 0343 034d | C M| .DBGLNO 0x0343,0x034d,0x034f,0x0354,0x0356,0x035b,0x035d
052e 0000 0000 | | .BLANK 0000[0xd2]