|
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]