|
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 0408 | | .CONST 0x0408 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ec | | .CONST 0x00ec ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0043 | C | .CONST 0x0043 ; Number of locals
000b INIT_0008:
000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
000d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
000f 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0011 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0013 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0015 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0017 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0019 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
001b 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
001d 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
001f 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0021 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0023 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0025 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0027 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0029 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
002b 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
002d 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
002f 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0031 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0033 0093 0000 | | push_full_address 0x0
0035 6122 |a" | Indirect_Literal Discrete,0x158,{0x80000000, 0x00010000}
0036 0273 | s | Execute Discrete,Plus
0037 e20d | | Load 0x1,0xd
0038 611b |a | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000ffff}
0039 0279 | y | Execute Discrete,And
003a 0273 | s | Execute Discrete,Plus
003b 0129 | ) | Execute Any,Make_Visible
003c 0093 0000 | | push_full_address 0x0
003e 6111 |a | Indirect_Literal Discrete,0x150,{0x80000000, 0x00010000}
003f 0273 | s | Execute Discrete,Plus
0040 e20d | | Load 0x1,0xd
0041 6112 |a | Indirect_Literal Discrete,0x154,{0x00000000, 0x0000ffff}
0042 0279 | y | Execute Discrete,And
0043 0273 | s | Execute Discrete,Plus
0044 e002 | | Load 0x0,0x2
0045 0273 | s | Execute Discrete,Plus
0046 e20e | | Load 0x1,0xe
0047 e211 | | Load 0x1,0x11
0048 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0049 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
004a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004c e210 | | Load 0x1,0x10
004d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0050 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0051 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0052 e003 | | Load 0x0,0x3
0053 0386 | | Declare_Variable Package,Visible
0054 00d8 | | Load_Top At_Offset_0
0055 020f | | Execute Module,Activate
0056 4804 |H | Short_Literal 0x4
0057 032b | + | Declare_Type Record,Incomplete,Visible
0058 00d8 | | Load_Top At_Offset_0
0059 02a0 | | Declare_Subprogram Null_Subprogram
005a 4818 |H | Short_Literal 0x18
005b 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
005c e004 | | Load 0x0,0x4
005d 00db | | Load_Top At_Offset_3
005e 0098 | | Execute Package,Field_Read_Dynamic
005f 0129 | ) | Execute Any,Make_Visible
0060 00d8 | | Load_Top At_Offset_0
0061 e211 | | Load 0x1,0x11
0062 e212 | | Load 0x1,0x12
0063 00e1 | | Load_Encached Boolean_Cache
0064 e005 | | Load 0x0,0x5
0065 e23a | : | Load 0x1,0x3a
0066 0098 | | Execute Package,Field_Read_Dynamic
0067 029f 03cb | | Declare_Subprogram INIT_03c8,For_Call
0069 4805 |H | Short_Literal 0x5
006a 032e | . | Declare_Type Record,Defined,Visible
006b 00bf | | Action Accept_Activation
006c 4800 |H | Short_Literal 0x0
006d 4801 |H | Short_Literal 0x1
006e 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0070 03fd | | Declare_Type Discrete,Defined
0071 e006 | | Load 0x0,0x6
0072 e007 | | Load 0x0,0x7
0073 00da | | Load_Top At_Offset_2
0074 4800 |H | Short_Literal 0x0
0075 4801 |H | Short_Literal 0x1
0076 4801 |H | Short_Literal 0x1
0077 0092 03e0 | | Action Push_String_Extended,0x3e0 ; "others => Unspecified"
0079 00ea | | Load_Encached Null_String_Cache
007a 00ea | | Load_Encached Null_String_Cache
007b 4801 |H | Short_Literal 0x1
007c 4801 |H | Short_Literal 0x1
007d e008 | | Load 0x0,0x8
007e 0387 | | Declare_Variable Package
007f 00d8 | | Load_Top At_Offset_0
0080 020f | | Execute Module,Activate
0081 e009 | | Load 0x0,0x9
0082 e00a | | Load 0x0,0xa
0083 e214 | | Load 0x1,0x14
0084 00c4 | | Action Make_Default
0085 00c4 | | Action Make_Default
0086 00c4 | | Action Make_Default
0087 0092 03e0 | | Action Push_String_Extended,0x3e0 ; "others => Unspecified"
0089 00ea | | Load_Encached Null_String_Cache
008a 00ea | | Load_Encached Null_String_Cache
008b 00c4 | | Action Make_Default
008c 00c4 | | Action Make_Default
008d e243 | C | Load 0x1,0x43
008e 026a | j | Execute Discrete,First
008f 00d8 | | Load_Top At_Offset_0
0090 e214 | | Load 0x1,0x14
0091 0260 | ` | Execute Discrete,In_Type
0092 7001 |p | Jump_Nonzero 0x94
0093 0801 | | Execute_Immediate Raise,0x1
0094 c244 | D | Store 0x1,0x44
0095 e244 | D | Load 0x1,0x44
0096 e214 | | Load 0x1,0x14
0097 0122 | " | Execute Any,Make_Root_Type
0098 1c07 | | Execute_Immediate Run_Utility,0x7
0099 00d8 | | Load_Top At_Offset_0
009a e214 | | Load 0x1,0x14
009b 0260 | ` | Execute Discrete,In_Type
009c 7001 |p | Jump_Nonzero 0x9e
009d 0801 | | Execute_Immediate Raise,0x1
009e c245 | E | Store 0x1,0x45
009f e243 | C | Load 0x1,0x43
00a0 0269 | i | Execute Discrete,Last
00a1 00d8 | | Load_Top At_Offset_0
00a2 e214 | | Load 0x1,0x14
00a3 0260 | ` | Execute Discrete,In_Type
00a4 7001 |p | Jump_Nonzero 0xa6
00a5 0801 | | Execute_Immediate Raise,0x1
00a6 c246 | F | Store 0x1,0x46
00a7 e245 | E | Load 0x1,0x45
00a8 00d8 | | Load_Top At_Offset_0
00a9 e214 | | Load 0x1,0x14
00aa 0260 | ` | Execute Discrete,In_Type
00ab 7001 |p | Jump_Nonzero 0xad
00ac 0801 | | Execute_Immediate Raise,0x1
00ad c24a | J | Store 0x1,0x4a
00ae e246 | F | Load 0x1,0x46
00af 00d8 | | Load_Top At_Offset_0
00b0 e214 | | Load 0x1,0x14
00b1 0260 | ` | Execute Discrete,In_Type
00b2 7001 |p | Jump_Nonzero 0xb4
00b3 0801 | | Execute_Immediate Raise,0x1
00b4 c24b | K | Store 0x1,0x4b
00b5 e008 | | Load 0x0,0x8
00b6 0387 | | Declare_Variable Package
00b7 00d8 | | Load_Top At_Offset_0
00b8 020f | | Execute Module,Activate
00b9 e005 | | Load 0x0,0x5
00ba e23a | : | Load 0x1,0x3a
00bb 0098 | | Execute Package,Field_Read_Dynamic
00bc e23b | ; | Load 0x1,0x3b
00bd 0325 | % | Complete_Type Record,By_Renaming
00be e23c | < | Load 0x1,0x3c
00bf 03c4 | | Complete_Type Access,By_Component_Completion
00c0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00d1 00c7 | | Action Elaborate_Subprogram
00d2 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
00d4 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
00d6 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00e1 00c7 | | Action Elaborate_Subprogram
00e2 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00e3 00c7 | | Action Elaborate_Subprogram
00e4 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
00e5 00c7 | | Action Elaborate_Subprogram
00e6 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
00e7 00c7 | | Action Elaborate_Subprogram
00e8 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
00e9 00c7 | | Action Elaborate_Subprogram
00ea 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
00eb 00c7 | | Action Elaborate_Subprogram
00ec BODY_0008:
00ec 00bc | | Action Signal_Activated
00ed 00bb | | Action Signal_Completion
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 010a | | .CONST 0x010a ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0008 | | .CONST 0x0008 ; Number of locals
00f3 INIT_00f0:
00f3 e23d | = | Load 0x1,0x3d
00f4 0007 | | Action Break_Optional
00f5 00db | | Load_Top At_Offset_3
00f6 e240 | @ | Load 0x1,0x40
00f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f8 e241 | A | Load 0x1,0x41
00f9 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00fa e211 | | Load 0x1,0x11
00fb 02c7 | | Declare_Variable Any
00fc 00d8 | | Load_Top At_Offset_0
00fd 1c00 | | Execute_Immediate Run_Utility,0x0
00fe e210 | | Load 0x1,0x10
00ff 02c7 | | Declare_Variable Any
0100 00d8 | | Load_Top At_Offset_0
0101 1c00 | | Execute_Immediate Run_Utility,0x0
0102 e214 | | Load 0x1,0x14
0103 026a | j | Execute Discrete,First
0104 e214 | | Load 0x1,0x14
0105 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0106 e214 | | Load 0x1,0x14
0107 0269 | i | Execute Discrete,Last
0108 e214 | | Load 0x1,0x14
0109 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
010a BODY_00f0:
010a e5fe | | Load 0x2,-0x2
010b e00b | | Load 0x0,0xb
010c e23a | : | Load 0x1,0x3a
010d 0096 | | Execute Package,Entry
010e a402 | | Store_Unchecked 0x2,0x2
010f 00cf | | Action Mark_Auxiliary
0110 7838 |x8 | Jump 0x149
0111 00ea | | Load_Encached Null_String_Cache
0112 4800 |H | Short_Literal 0x0
0113 e403 | | Load 0x2,0x3
0114 e240 | @ | Load 0x1,0x40
0115 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0116 e241 | A | Load 0x1,0x41
0117 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0118 a404 | | Store_Unchecked 0x2,0x4
0119 e5fe | | Load 0x2,-0x2
011a 00ea | | Load_Encached Null_String_Cache
011b e407 | | Load 0x2,0x7
011c 00d8 | | Load_Top At_Offset_0
011d e214 | | Load 0x1,0x14
011e 0260 | ` | Execute Discrete,In_Type
011f 7001 |p | Jump_Nonzero 0x121
0120 0801 | | Execute_Immediate Raise,0x1
0121 e404 | | Load 0x2,0x4
0122 e241 | A | Load 0x1,0x41
0123 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0124 821c | | Call 0x1,0x1c
0125 c405 | | Store 0x2,0x5
0126 e5fd | | Load 0x2,-0x3
0127 e5fe | | Load 0x2,-0x2
0128 00ea | | Load_Encached Null_String_Cache
0129 e408 | | Load 0x2,0x8
012a 00d8 | | Load_Top At_Offset_0
012b e214 | | Load 0x1,0x14
012c 0260 | ` | Execute Discrete,In_Type
012d 7001 |p | Jump_Nonzero 0x12f
012e 0801 | | Execute_Immediate Raise,0x1
012f e404 | | Load 0x2,0x4
0130 e241 | A | Load 0x1,0x41
0131 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0132 8216 | | Call 0x1,0x16
0133 c406 | | Store 0x2,0x6
0134 e402 | | Load 0x2,0x2
0135 e004 | | Load 0x0,0x4
0136 e23a | : | Load 0x1,0x3a
0137 0098 | | Execute Package,Field_Read_Dynamic
0138 0216 | | Execute Heap_Access,Convert
0139 4801 |H | Short_Literal 0x1
013a e406 | | Load 0x2,0x6
013b e210 | | Load 0x1,0x10
013c 0119 | | Execute Any,Check_In_Formal_Type
013d e405 | | Load 0x2,0x5
013e e211 | | Load 0x1,0x11
013f 0119 | | Execute Any,Check_In_Formal_Type
0140 e00c | | Load 0x0,0xc
0141 e23a | : | Load 0x1,0x3a
0142 0096 | | Execute Package,Entry
0143 c402 | | Store 0x2,0x2
0144 e403 | | Load 0x2,0x3
0145 e240 | @ | Load 0x1,0x40
0146 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0147 c403 | | Store 0x2,0x3
0148 00c9 | | Action Pop_Auxiliary_Loop
0149 e403 | | Load 0x2,0x3
014a e240 | @ | Load 0x1,0x40
014b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
014c 6fc4 |o | Jump_Zero 0x111
014d 00ce | | Action Pop_Auxiliary
014e e402 | | Load 0x2,0x2
014f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0150 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0154 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0158 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e23d | = | Load 0x1,0x3d
0164 0007 | | Action Break_Optional
0165 BODY_0160:
0165 00db | | Load_Top At_Offset_3
0166 e00b | | Load 0x0,0xb
0167 e23a | : | Load 0x1,0x3a
0168 0096 | | Execute Package,Entry
0169 0031 | 1 | Store_Top Heap_Access,At_Offset_1
016a 00d8 | | Load_Top At_Offset_0
016b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0189 | | .CONST 0x0189 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0006 | | .CONST 0x0006 ; Number of locals
017b INIT_0178:
017b e23e | > | Load 0x1,0x3e
017c 0322 | " | Declare_Variable Record
017d 00d8 | | Load_Top At_Offset_0
017e 1c00 | | Execute_Immediate Run_Utility,0x0
017f 00d8 | | Load_Top At_Offset_0
0180 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0181 0007 | | Action Break_Optional
0182 00d9 | | Load_Top At_Offset_1
0183 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0184 0007 | | Action Break_Optional
0185 00da | | Load_Top At_Offset_2
0186 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0187 029f 038b | | Declare_Subprogram INIT_0388,For_Call
0189 BODY_0178:
0189 00db | | Load_Top At_Offset_3
018a e5ff | | Load 0x2,-0x1
018b e00d | | Load 0x0,0xd
018c e23a | : | Load 0x1,0x3a
018d 0096 | | Execute Package,Entry
018e 00d1 | | Pop_Control Pop_Count_1
018f 00db | | Load_Top At_Offset_3
0190 e00e | | Load 0x0,0xe
0191 e23a | : | Load 0x1,0x3a
0192 0096 | | Execute Package,Entry
0193 7006 |p | Jump_Nonzero 0x19a
0194 00db | | Load_Top At_Offset_3
0195 e00f | | Load 0x0,0xf
0196 e23a | : | Load 0x1,0x3a
0197 0096 | | Execute Package,Entry
0198 c405 | | Store 0x2,0x5
0199 8406 | | Call 0x2,0x6
019a e5ff | | Load 0x2,-0x1
019b e402 | | Load 0x2,0x2
019c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019d e402 | | Load 0x2,0x2
019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01a5 e00e | | Load 0x0,0xe
01a6 e23a | : | Load 0x1,0x3a
01a7 0096 | | Execute Package,Entry
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01d9 | | .CONST 0x01d9 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0009 | | .CONST 0x0009 ; Number of locals
01b3 INIT_01b0:
01b3 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "M=>"
01b5 e214 | | Load 0x1,0x14
01b6 026a | j | Execute Discrete,First
01b7 e214 | | Load 0x1,0x14
01b8 1c04 | | Execute_Immediate Run_Utility,0x4
01b9 e214 | | Load 0x1,0x14
01ba 0122 | " | Execute Any,Make_Root_Type
01bb 011c | | Execute Any,Convert_Unchecked
01bc 1c01 | | Execute_Immediate Run_Utility,0x1
01bd 0092 03e2 | | Action Push_String_Extended,0x3e2 ; "=>"
01bf 01cc | | Execute Vector,Catenate
01c0 0007 | | Action Break_Optional
01c1 e214 | | Load 0x1,0x14
01c2 0269 | i | Execute Discrete,Last
01c3 e214 | | Load 0x1,0x14
01c4 1c04 | | Execute_Immediate Run_Utility,0x4
01c5 e214 | | Load 0x1,0x14
01c6 0122 | " | Execute Any,Make_Root_Type
01c7 011c | | Execute Any,Convert_Unchecked
01c8 1c01 | | Execute_Immediate Run_Utility,0x1
01c9 0092 03e2 | | Action Push_String_Extended,0x3e2 ; "=>"
01cb 01cc | | Execute Vector,Catenate
01cc 0007 | | Action Break_Optional
01cd e5ff | | Load 0x2,-0x1
01ce 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01cf 0007 | | Action Break_Optional
01d0 e5ff | | Load 0x2,-0x1
01d1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01d2 0007 | | Action Break_Optional
01d3 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
01d5 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
01d7 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
01d9 BODY_01b0:
01d9 e5ff | | Load 0x2,-0x1
01da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01db 682e |h. | Jump_Zero 0x20a
01dc e213 | | Load 0x1,0x13
01dd 6816 |h | Jump_Zero 0x1f4
01de 480a |H | Short_Literal 0xa
01df 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "M=>("
01e1 e403 | | Load 0x2,0x3
01e2 01cc | | Execute Vector,Catenate
01e3 e406 | | Load 0x2,0x6
01e4 e211 | | Load 0x1,0x11
01e5 0119 | | Execute Any,Check_In_Formal_Type
01e6 8409 | | Call 0x2,0x9
01e7 01cc | | Execute Vector,Catenate
01e8 01cb | | Execute Vector,Append
01e9 e404 | | Load 0x2,0x4
01ea 01cc | | Execute Vector,Catenate
01eb 0092 03e4 | | Action Push_String_Extended,0x3e4 ; "("
01ed 01cc | | Execute Vector,Catenate
01ee e405 | | Load 0x2,0x5
01ef e212 | | Load 0x1,0x12
01f0 0119 | | Execute Any,Check_In_Formal_Type
01f1 8408 | | Call 0x2,0x8
01f2 01cc | | Execute Vector,Catenate
01f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f4 480a |H | Short_Literal 0xa
01f5 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "M=>("
01f7 e403 | | Load 0x2,0x3
01f8 01cc | | Execute Vector,Catenate
01f9 e406 | | Load 0x2,0x6
01fa e211 | | Load 0x1,0x11
01fb 0119 | | Execute Any,Check_In_Formal_Type
01fc 8409 | | Call 0x2,0x9
01fd 01cc | | Execute Vector,Catenate
01fe 01cb | | Execute Vector,Append
01ff e404 | | Load 0x2,0x4
0200 01cc | | Execute Vector,Catenate
0201 e405 | | Load 0x2,0x5
0202 e212 | | Load 0x1,0x12
0203 0119 | | Execute Any,Check_In_Formal_Type
0204 8407 | | Call 0x2,0x7
0205 01cc | | Execute Vector,Catenate
0206 0092 03e5 | | Action Push_String_Extended,0x3e5 ; ")"
0208 01cc | | Execute Vector,Catenate
0209 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020a e405 | | Load 0x2,0x5
020b e212 | | Load 0x1,0x12
020c 0119 | | Execute Any,Check_In_Formal_Type
020d 8408 | | Call 0x2,0x8
020e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021c | | .CONST 0x021c ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0004 | | .CONST 0x0004 ; Number of locals
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0215 0007 | | Action Break_Optional
0216 00db | | Load_Top At_Offset_3
0217 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0218 0007 | | Action Break_Optional
0219 e5ff | | Load 0x2,-0x1
021a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
021b 0007 | | Action Break_Optional
021c BODY_0210:
021c e213 | | Load 0x1,0x13
021d 6810 |h | Jump_Zero 0x22e
021e 00d9 | | Load_Top At_Offset_1
021f 8222 | " | Call 0x1,0x22
0220 700d |p | Jump_Nonzero 0x22e
0221 00d9 | | Load_Top At_Offset_1
0222 00d8 | | Load_Top At_Offset_0
0223 0120 | | Execute Any,Is_Value
0224 6803 |h | Jump_Zero 0x228
0225 e212 | | Load 0x1,0x12
0226 0122 | " | Execute Any,Make_Root_Type
0227 011e | | Execute Any,Convert
0228 8224 | $ | Call 0x1,0x24
0229 c403 | | Store 0x2,0x3
022a 4800 |H | Short_Literal 0x0
022b e5ff | | Load 0x2,-0x1
022c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022e 00da | | Load_Top At_Offset_2
022f e010 | | Load 0x0,0x10
0230 e23a | : | Load 0x1,0x3a
0231 0096 | | Execute Package,Entry
0232 00d1 | | Pop_Control Pop_Count_1
0233 00da | | Load_Top At_Offset_2
0234 e00e | | Load 0x0,0xe
0235 e23a | : | Load 0x1,0x3a
0236 0096 | | Execute Package,Entry
0237 7012 |p | Jump_Nonzero 0x24a
0238 00da | | Load_Top At_Offset_2
0239 e00f | | Load 0x0,0xf
023a e23a | : | Load 0x1,0x3a
023b 0096 | | Execute Package,Entry
023c c404 | | Store 0x2,0x4
023d 00d8 | | Load_Top At_Offset_0
023e e211 | | Load 0x1,0x11
023f 0119 | | Execute Any,Check_In_Formal_Type
0240 e5ff | | Load 0x2,-0x1
0241 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0242 e011 | | Load 0x0,0x11
0243 e23a | : | Load 0x1,0x3a
0244 0096 | | Execute Package,Entry
0245 8221 | ! | Call 0x1,0x21
0246 c403 | | Store 0x2,0x3
0247 4801 |H | Short_Literal 0x1
0248 e5ff | | Load 0x2,-0x1
0249 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
024a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024b 0000 0000 | | .BLANK 0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 0833 | 3 | Execute_Immediate Raise,0x33
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5fd | | Load 0x2,-0x3
025c e004 | | Load 0x0,0x4
025d e23a | : | Load 0x1,0x3a
025e 0098 | | Execute Package,Field_Read_Dynamic
025f 0216 | | Execute Heap_Access,Convert
0260 e5fe | | Load 0x2,-0x2
0261 e5ff | | Load 0x2,-0x1
0262 e012 | | Load 0x0,0x12
0263 e23a | : | Load 0x1,0x3a
0264 0096 | | Execute Package,Entry
0265 c5fd | | Store 0x2,-0x3
0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c a5fd | | Store_Unchecked 0x2,-0x3
026d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
026e 0000 0000 | | .XXX[0x2]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 027d | } | .CONST 0x027d ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00db | | Load_Top At_Offset_3
0274 e211 | | Load 0x1,0x11
0275 0119 | | Execute Any,Check_In_Formal_Type
0276 00db | | Load_Top At_Offset_3
0277 e011 | | Load 0x0,0x11
0278 e23a | : | Load 0x1,0x3a
0279 0096 | | Execute Package,Entry
027a e210 | | Load 0x1,0x10
027b 0119 | | Execute Any,Check_In_Formal_Type
027c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
027d TRAP_0270:
027d e013 | | Load 0x0,0x13
027e e23a | : | Load 0x1,0x3a
027f 0098 | | Execute Package,Field_Read_Dynamic
0280 010f | | Execute Exception,Equal
0281 6802 |h | Jump_Zero 0x284
0282 e239 | 9 | Load 0x1,0x39
0283 0257 | W | Execute Discrete,Raise
0284 0100 | | Execute Exception,Raise
0285 0000 0000 | | .XXX[0x3]
0287 0000 | |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00e1 | | Load_Encached Boolean_Cache
028c e5fd | | Load 0x2,-0x3
028d 00d8 | | Load_Top At_Offset_0
028e 0120 | | Execute Any,Is_Value
028f 6804 |h | Jump_Zero 0x294
0290 e23a | : | Load 0x1,0x3a
0291 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0292 011e | | Execute Any,Convert
0293 7802 |x | Jump 0x296
0294 e210 | | Load 0x1,0x10
0295 0119 | | Execute Any,Check_In_Formal_Type
0296 e5fe | | Load 0x2,-0x2
0297 e211 | | Load 0x1,0x11
0298 0119 | | Execute Any,Check_In_Formal_Type
0299 e5ff | | Load 0x2,-0x1
029a e014 | | Load 0x0,0x14
029b e23a | : | Load 0x1,0x3a
029c 0096 | | Execute Package,Entry
029d c5fd | | Store 0x2,-0x3
029e c5fc | | Store 0x2,-0x4
029f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e5fd | | Load 0x2,-0x3
02a4 e004 | | Load 0x0,0x4
02a5 e23a | : | Load 0x1,0x3a
02a6 0098 | | Execute Package,Field_Read_Dynamic
02a7 0216 | | Execute Heap_Access,Convert
02a8 4800 |H | Short_Literal 0x0
02a9 e5fe | | Load 0x2,-0x2
02aa e210 | | Load 0x1,0x10
02ab 0119 | | Execute Any,Check_In_Formal_Type
02ac e5ff | | Load 0x2,-0x1
02ad e211 | | Load 0x1,0x11
02ae 0119 | | Execute Any,Check_In_Formal_Type
02af e00c | | Load 0x0,0xc
02b0 e23a | : | Load 0x1,0x3a
02b1 0096 | | Execute Package,Entry
02b2 c5fd | | Store 0x2,-0x3
02b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00db | | Load_Top At_Offset_3
02bc e004 | | Load 0x0,0x4
02bd e23a | : | Load 0x1,0x3a
02be 0098 | | Execute Package,Field_Read_Dynamic
02bf 0216 | | Execute Heap_Access,Convert
02c0 00db | | Load_Top At_Offset_3
02c1 e211 | | Load 0x1,0x11
02c2 0119 | | Execute Any,Check_In_Formal_Type
02c3 e015 | | Load 0x0,0x15
02c4 e23a | : | Load 0x1,0x3a
02c5 0096 | | Execute Package,Entry
02c6 c5fe | | Store 0x2,-0x2
02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 0833 | 3 | Execute_Immediate Raise,0x33
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 0833 | 3 | Execute_Immediate Raise,0x33
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02dd | | .CONST 0x02dd ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e23c | < | Load 0x1,0x3c
02dc 03bc | | Declare_Variable Access,By_Allocation
02dd BODY_02d8:
02dd 00d8 | | Load_Top At_Offset_0
02de 0229 | ) | Execute Access,All_Read
02df 00d8 | | Load_Top At_Offset_0
02e0 e5ff | | Load 0x2,-0x1
02e1 e00d | | Load 0x0,0xd
02e2 e23a | : | Load 0x1,0x3a
02e3 0096 | | Execute Package,Entry
02e4 00d2 | | Pop_Control Pop_Count_2
02e5 00d8 | | Load_Top At_Offset_0
02e6 a5fe | | Store_Unchecked 0x2,-0x2
02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 0229 | ) | Execute Access,All_Read
02ed 00d8 | | Load_Top At_Offset_0
02ee e010 | | Load 0x0,0x10
02ef e23a | : | Load 0x1,0x3a
02f0 0096 | | Execute Package,Entry
02f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f2 0000 0000 | | .BLANK 0000[0x6]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 0227 | ' | Execute Access,All_Reference
02fd e00f | | Load 0x0,0xf
02fe e23a | : | Load 0x1,0x3a
02ff 0096 | | Execute Package,Entry
0300 e211 | | Load 0x1,0x11
0301 0119 | | Execute Any,Check_In_Formal_Type
0302 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 0227 | ' | Execute Access,All_Reference
030d e00e | | Load 0x0,0xe
030e e23a | : | Load 0x1,0x3a
030f 0096 | | Execute Package,Entry
0310 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0311 0000 0000 | | .BLANK 0000[0x7]
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 4607 |F | Jump_Case 0x8
031c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
031d 7807 |x | Jump 0x325 ; case 0x1
031e 780a |x | Jump 0x329 ; case 0x2
031f 780e |x | Jump 0x32e ; case 0x3
0320 7811 |x | Jump 0x332 ; case 0x4
0321 7812 |x | Jump 0x334 ; case 0x5
0322 7813 |x | Jump 0x336 ; case 0x6
0323 7816 |x | Jump 0x33a ; case 0x7
0324 4302 |C | .XXX[0x1]
0325 00da | | Load_Top At_Offset_2
0326 0091 03de | | Action Push_String_Extended_Indexed,0x3de ; "NONE"
0328 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0329 00db | | Load_Top At_Offset_3
032a 00db | | Load_Top At_Offset_3
032b 00e0 | | Load_Encached Standard_Cache
032c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
032d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032e 00da | | Load_Top At_Offset_2
032f 00e0 | | Load_Encached Standard_Cache
0330 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0331 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0332 00db | | Load_Top At_Offset_3
0333 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0334 00db | | Load_Top At_Offset_3
0335 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0336 e23f | ? | Load 0x1,0x3f
0337 00dc | | Load_Top At_Offset_4
0338 0267 | g | Execute Discrete,Predecessor
0339 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
033a e23f | ? | Load 0x1,0x3f
033b 00dc | | Load_Top At_Offset_4
033c 0268 | h | Execute Discrete,Successor
033d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
033e 0000 0000 | | .XXX[0x2]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0349 | I | .CONST 0x0349 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0003 | | .CONST 0x0003 ; Number of locals
0343 INIT_0340:
0343 e23c | < | Load 0x1,0x3c
0344 0007 | | Action Break_Optional
0345 e211 | | Load 0x1,0x11
0346 02c7 | | Declare_Variable Any
0347 00d8 | | Load_Top At_Offset_0
0348 1c00 | | Execute_Immediate Run_Utility,0x0
0349 BODY_0340:
0349 e23c | < | Load 0x1,0x3c
034a e5ff | | Load 0x2,-0x1
034b 8235 | 5 | Call 0x1,0x35
034c 003a | : | Store_Top Access,At_Offset_2
034d 00cf | | Action Mark_Auxiliary
034e 7807 |x | Jump 0x356
034f 00da | | Load_Top At_Offset_2
0350 8237 | 7 | Call 0x1,0x37
0351 c403 | | Store 0x2,0x3
0352 00da | | Load_Top At_Offset_2
0353 8236 | 6 | Call 0x1,0x36
0354 003b | ; | Store_Top Access,At_Offset_3
0355 00c9 | | Action Pop_Auxiliary_Loop
0356 00da | | Load_Top At_Offset_2
0357 8238 | 8 | Call 0x1,0x38
0358 6ff6 |o | Jump_Zero 0x34f
0359 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035a 0000 0000 | | .BLANK 0000[0x6]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 036b | k | .CONST 0x036b ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0003 | | .CONST 0x0003 ; Number of locals
0363 INIT_0360:
0363 e005 | | Load 0x0,0x5
0364 e23a | : | Load 0x1,0x3a
0365 0098 | | Execute Package,Field_Read_Dynamic
0366 0322 | " | Declare_Variable Record
0367 e211 | | Load 0x1,0x11
0368 02c7 | | Declare_Variable Any
0369 00d8 | | Load_Top At_Offset_0
036a 1c00 | | Execute_Immediate Run_Utility,0x0
036b BODY_0360:
036b 00d9 | | Load_Top At_Offset_1
036c e5ff | | Load 0x2,-0x1
036d e00d | | Load 0x0,0xd
036e e23a | : | Load 0x1,0x3a
036f 0096 | | Execute Package,Entry
0370 00d1 | | Pop_Control Pop_Count_1
0371 00cf | | Action Mark_Auxiliary
0372 780b |x | Jump 0x37e
0373 00da | | Load_Top At_Offset_2
0374 e00f | | Load 0x0,0xf
0375 e23a | : | Load 0x1,0x3a
0376 0096 | | Execute Package,Entry
0377 c403 | | Store 0x2,0x3
0378 00da | | Load_Top At_Offset_2
0379 e010 | | Load 0x0,0x10
037a e23a | : | Load 0x1,0x3a
037b 0096 | | Execute Package,Entry
037c 00d1 | | Pop_Control Pop_Count_1
037d 00c9 | | Action Pop_Auxiliary_Loop
037e 00da | | Load_Top At_Offset_2
037f e00e | | Load 0x0,0xe
0380 e23a | : | Load 0x1,0x3a
0381 0096 | | Execute Package,Entry
0382 6ff0 |o | Jump_Zero 0x373
0383 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0384 0000 0000 | | .BLANK 0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0390 | | .CONST 0x0390 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0003 | | .CONST 0x0003 ; Number of locals
038b INIT_0388:
038b e210 | | Load 0x1,0x10
038c 02c7 | | Declare_Variable Any
038d 00d8 | | Load_Top At_Offset_0
038e 1c00 | | Execute_Immediate Run_Utility,0x0
038f 00e1 | | Load_Encached Boolean_Cache
0390 BODY_0388:
0390 00e1 | | Load_Encached Boolean_Cache
0391 00da | | Load_Top At_Offset_2
0392 00d8 | | Load_Top At_Offset_0
0393 0120 | | Execute Any,Is_Value
0394 6804 |h | Jump_Zero 0x399
0395 e23a | : | Load 0x1,0x3a
0396 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0397 011e | | Execute Any,Convert
0398 7802 |x | Jump 0x39b
0399 e210 | | Load 0x1,0x10
039a 0119 | | Execute Any,Check_In_Formal_Type
039b e405 | | Load 0x2,0x5
039c e211 | | Load 0x1,0x11
039d 0119 | | Execute Any,Check_In_Formal_Type
039e e5ff | | Load 0x2,-0x1
039f e014 | | Load 0x0,0x14
03a0 e23a | : | Load 0x1,0x3a
03a1 0096 | | Execute Package,Entry
03a2 c602 | | Store 0x3,0x2
03a3 0059 | Y | Store_Top Discrete,At_Offset_1
03a4 00d9 | | Load_Top At_Offset_1
03a5 8221 | ! | Call 0x1,0x21
03a6 c404 | | Store 0x2,0x4
03a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 00da | | Load_Top At_Offset_2
03ac 8223 | # | Call 0x1,0x23
03ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ae 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
03b4 8222 | " | Call 0x1,0x22
03b5 7005 |p | Jump_Nonzero 0x3bb
03b6 00da | | Load_Top At_Offset_2
03b7 e212 | | Load 0x1,0x12
03b8 0119 | | Execute Any,Check_In_Formal_Type
03b9 8407 | | Call 0x2,0x7
03ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bb 0092 03e6 | | Action Push_String_Extended,0x3e6 ; "))"
03bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 00da | | Load_Top At_Offset_2
03c4 821b | | Call 0x1,0x1b
03c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c6 0000 0000 | | .XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb 4601 |F | Jump_Case 0x2
03cc 7801 |x | Jump 0x3ce ; case 0x0
03cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03ce 00da | | Load_Top At_Offset_2
03cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03d0 0125 | % | Execute Any,Set_Constraint
03d1 00da | | Load_Top At_Offset_2
03d2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03d3 1c00 | | Execute_Immediate Run_Utility,0x0
03d4 00da | | Load_Top At_Offset_2
03d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03d6 0125 | % | Execute Any,Set_Constraint
03d7 00da | | Load_Top At_Offset_2
03d8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
03d9 1c00 | | Execute_Immediate Run_Utility,0x0
03da 4801 |H | Short_Literal 0x1
03db 00db | | Load_Top At_Offset_3
03dc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
03de ; --------------------------------------------------------------------------------------
03de ; STRING TABLE
03de ; --------------------------------------------------------------------------------------
03de 0014 | | .STRTAB 0x0014->0x03e8 ; "NONE"
03df 0016 | | .STRTAB 0x0016->0x03ea ; "NO_ELEMENTS"
03e0 001f | | .STRTAB 0x001f->0x03ef ; "others => Unspecified"
03e1 0032 | 2 | .STRTAB 0x0032->0x03fa ; "M=>"
03e2 0033 | 3 | .STRTAB 0x0033->0x03fb ; "=>"
03e3 0033 | 3 | .STRTAB 0x0033->0x03fc ; "M=>("
03e4 0035 | 5 | .STRTAB 0x0035->0x03fe ; "("
03e5 0034 | 4 | .STRTAB 0x0034->0x03ff ; ")"
03e6 0033 | 3 | .STRTAB 0x0033->0x03ff ; "))"
03e7 0033 | 3 | .STREND 0x0033->0x0400
03e8 4e4f 4e45 |NONE| .STRTAB_STRINGS
0401 0000 0000 | | .BLANK 0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 000a | | .DEBUG4 0x0004,0x000a,0x4468,0x0000,0x0001,0x0000
040e 0000 0000 | | .BLANK 0000[0x1f2]