|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0620 | | .CONST 0x0620 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 009a | | .CONST 0x009a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0032 | 2 | .CONST 0x0032 ; Number of locals 000b INIT_0008: 000b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000d 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0011 e001 | | Load 0x0,0x1 0012 0129 | ) | Execute Any,Make_Visible 0013 4803 |H | Short_Literal 0x3 0014 032b | + | Declare_Type Record,Incomplete,Visible 0015 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0017 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0019 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 001b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 001d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0021 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0023 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0025 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0027 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0029 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 002b 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 002d 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 002f e002 | | Load 0x0,0x2 0030 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0031 6092 |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00000400} 0032 e003 | | Load 0x0,0x3 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 1c07 | | Execute_Immediate Run_Utility,0x7 0035 00e1 | | Load_Encached Boolean_Cache 0036 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 0038 e211 | | Load 0x1,0x11 0039 0326 | & | Complete_Type Record,By_Defining 003a 00bf | | Action Accept_Activation 003b 0092 0604 | | Action Push_String_Extended,0x604 ; "!machine.transport_name_map" 003d 4800 |H | Short_Literal 0x0 003e 0093 05eb | | push_full_address INIT_05e8 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 038e | | Declare_Type Package,Defined 0042 0387 | | Declare_Variable Package 0043 e004 | | Load 0x0,0x4 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 02a0 | | Declare_Subprogram Null_Subprogram 0046 4818 |H | Short_Literal 0x18 0047 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0048 e004 | | Load 0x0,0x4 0049 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b 4818 |H | Short_Literal 0x18 004c 03d3 | | Declare_Type Access,Defined,Accesses_Protected 004d 00e9 | | Load_Encached String_Cache 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 4818 |H | Short_Literal 0x18 0050 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0051 4830 |H0 | Short_Literal 0x30 0052 4839 |H9 | Short_Literal 0x39 0053 00e8 | | Load_Encached Character_Cache 0054 03f8 | | Declare_Type Discrete,Constrained 0055 4800 |H | Short_Literal 0x0 0056 0093 05db | | push_full_address INIT_05d8 0058 00f5 | | Load_Encached Unused21 0059 037d | } | Declare_Type Task,Defined 005a 036f | o | Declare_Variable Task 005b e005 | | Load 0x0,0x5 005c 1910 | | Execute Package,Field_Reference,Field_Number 0x10 005d 0007 | | Action Break_Optional 005e 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0060 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0062 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 0064 e220 | | Load 0x1,0x20 0065 020f | | Execute Module,Activate 0066 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0068 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 006a e006 | | Load 0x0,0x6 006b 1910 | | Execute Package,Field_Reference,Field_Number 0x10 006c 0007 | | Action Break_Optional 006d e006 | | Load 0x0,0x6 006e 1910 | | Execute Package,Field_Reference,Field_Number 0x10 006f 0007 | | Action Break_Optional 0070 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call 0072 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call 0074 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0076 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call 0078 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call 007a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 007b 00c7 | | Action Elaborate_Subprogram 007c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 007d 00c7 | | Action Elaborate_Subprogram 007e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 007f 00c7 | | Action Elaborate_Subprogram 0080 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0081 00c7 | | Action Elaborate_Subprogram 0082 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0083 00c7 | | Action Elaborate_Subprogram 0084 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0085 00c7 | | Action Elaborate_Subprogram 0086 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0087 00c7 | | Action Elaborate_Subprogram 0088 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0089 00c7 | | Action Elaborate_Subprogram 008a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 008b 00c7 | | Action Elaborate_Subprogram 008c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 008d 00c7 | | Action Elaborate_Subprogram 008e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008f 00c7 | | Action Elaborate_Subprogram 0090 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0091 00c7 | | Action Elaborate_Subprogram 0092 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0093 00c7 | | Action Elaborate_Subprogram 0094 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0099 00c7 | | Action Elaborate_Subprogram 009a BODY_0008: 009a 00be | | Action Activate_Tasks 009b 00bc | | Action Signal_Activated 009c 00bb | | Action Signal_Completion 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a5 | | .CONST 0x00a5 ; Address of begin 00a1 00bf | | .CONST 0x00bf ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call 00a5 BODY_00a0: 00a5 00db | | Load_Top At_Offset_3 00a6 8232 | 2 | Call 0x1,0x32 00a7 6808 |h | Jump_Zero 0xb0 00a8 4801 |H | Short_Literal 0x1 00a9 4806 |H | Short_Literal 0x6 00aa 00e9 | | Load_Encached String_Cache 00ab 0334 | 4 | Declare_Variable Array,With_Constraint 00ac 501b |P | Indirect_Literal Any,0xc8,{0x5443502f, 0x49502020} 00ad e004 | | Load 0x0,0x4 00ae 180f | | Execute Package,Field_Execute,Field_Number 0xf 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 00db | | Load_Top At_Offset_3 00b1 822f | / | Call 0x1,0x2f 00b2 6808 |h | Jump_Zero 0xbb 00b3 4801 |H | Short_Literal 0x1 00b4 4808 |H | Short_Literal 0x8 00b5 00e9 | | Load_Encached String_Cache 00b6 0334 | 4 | Declare_Variable Array,With_Constraint 00b7 5014 |P | Indirect_Literal Any,0xcc,{0x45746865, 0x726e6574} 00b8 e004 | | Load 0x0,0x4 00b9 180f | | Execute Package,Field_Execute,Field_Number 0xf 00ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bb 00db | | Load_Top At_Offset_3 00bc e220 | | Load 0x1,0x20 00bd 180d | | Execute Package,Field_Execute,Field_Number 0xd 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf TRAP_00a0: 00bf 0007 | | Action Break_Optional 00c0 8402 | | Call 0x2,0x2 00c1 0831 | 1 | Execute_Immediate Raise,0x31 00c2 0000 0000 | | .XXX[0x2] 00c4 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00c8 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 00cc 4574 6865 |Ethe| .LITERAL {0x45746865, 0x726e6574} 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d9 | | .CONST 0x00d9 ; Address of begin 00d1 00df | | .CONST 0x00df ; Address of exception handler 00d2 0004 | | .CONST 0x0004 ; Number of locals 00d3 INIT_00d0: 00d3 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 00d5 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 00d7 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call 00d9 BODY_00d0: 00d9 8402 | | Call 0x2,0x2 00da 8403 | | Call 0x2,0x3 00db e5ff | | Load 0x2,-0x1 00dc e220 | | Load 0x1,0x20 00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df TRAP_00d0: 00df 0007 | | Action Break_Optional 00e0 8404 | | Call 0x2,0x4 00e1 0831 | 1 | Execute_Immediate Raise,0x31 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ed | | .CONST 0x00ed ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e223 | # | Load 0x1,0x23 00ec 0007 | | Action Break_Optional 00ed BODY_00e8: 00ed e223 | # | Load 0x1,0x23 00ee e5ff | | Load 0x2,-0x1 00ef 4802 |H | Short_Literal 0x2 00f0 e225 | % | Load 0x1,0x25 00f1 170e | | Execute Task,Entry_Call,Field_Number 0xe 00f2 0039 | 9 | Store_Top Access,At_Offset_1 00f3 00d8 | | Load_Top At_Offset_0 00f4 6805 |h | Jump_Zero 0xfa 00f5 00d8 | | Load_Top At_Offset_0 00f6 0227 | ' | Execute Access,All_Reference 00f7 0335 | 5 | Declare_Variable Array,Duplicate 00f8 00cd | | Action Spare6_Action 00f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fa e210 | | Load 0x1,0x10 00fb 0257 | W | Execute Discrete,Raise 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0105 | | .CONST 0x0105 ; Address of begin 0101 0126 | & | .CONST 0x0126 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 029f 051b | | Declare_Subprogram INIT_0518,For_Call 0105 BODY_0100: 0105 00db | | Load_Top At_Offset_3 0106 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0107 e21f | | Load 0x1,0x1f 0108 8227 | ' | Call 0x1,0x27 0109 e5ff | | Load 0x2,-0x1 010a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 010b 00db | | Load_Top At_Offset_3 010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010d e006 | | Load 0x0,0x6 010e 180e | | Execute Package,Field_Execute,Field_Number 0xe 010f 6811 |h | Jump_Zero 0x121 0110 4801 |H | Short_Literal 0x1 0111 e5ff | | Load 0x2,-0x1 0112 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0113 00db | | Load_Top At_Offset_3 0114 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0115 4820 |H | Short_Literal 0x20 0116 4800 |H | Short_Literal 0x0 0117 e003 | | Load 0x0,0x3 0118 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0119 00d1 | | Pop_Control Pop_Count_1 011a 00db | | Load_Top At_Offset_3 011b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011c e006 | | Load 0x0,0x6 011d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011e e5ff | | Load 0x2,-0x1 011f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0120 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0121 4800 |H | Short_Literal 0x0 0122 e5ff | | Load 0x2,-0x1 0123 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0124 8402 | | Call 0x2,0x2 0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0126 TRAP_0100: 0126 0007 | | Action Break_Optional 0127 4801 |H | Short_Literal 0x1 0128 e5ff | | Load 0x2,-0x1 0129 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0135 | 5 | .CONST 0x0135 ; Address of begin 0131 0154 | T | .CONST 0x0154 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call 0135 BODY_0130: 0135 00db | | Load_Top At_Offset_3 0136 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0137 e006 | | Load 0x0,0x6 0138 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0139 00db | | Load_Top At_Offset_3 013a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013b e006 | | Load 0x0,0x6 013c 180e | | Execute Package,Field_Execute,Field_Number 0xe 013d 6811 |h | Jump_Zero 0x14f 013e 4801 |H | Short_Literal 0x1 013f e5ff | | Load 0x2,-0x1 0140 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0141 00db | | Load_Top At_Offset_3 0142 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0143 4820 |H | Short_Literal 0x20 0144 4800 |H | Short_Literal 0x0 0145 e003 | | Load 0x0,0x3 0146 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0147 00d1 | | Pop_Control Pop_Count_1 0148 00db | | Load_Top At_Offset_3 0149 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014a e006 | | Load 0x0,0x6 014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014c e5ff | | Load 0x2,-0x1 014d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014f 4800 |H | Short_Literal 0x0 0150 e5ff | | Load 0x2,-0x1 0151 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0152 8402 | | Call 0x2,0x2 0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0154 TRAP_0130: 0154 0007 | | Action Break_Optional 0155 4801 |H | Short_Literal 0x1 0156 e5ff | | Load 0x2,-0x1 0157 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0158 e5ff | | Load 0x2,-0x1 0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015a e006 | | Load 0x0,0x6 015b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 015c e5ff | | Load 0x2,-0x1 015d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0165 e003 | | Load 0x0,0x3 0166 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0179 | y | .CONST 0x0179 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 e221 | ! | Load 0x1,0x21 0174 0007 | | Action Break_Optional 0175 e222 | " | Load 0x1,0x22 0176 0007 | | Action Break_Optional 0177 e223 | # | Load 0x1,0x23 0178 0007 | | Action Break_Optional 0179 BODY_0170: 0179 e5ff | | Load 0x2,-0x1 017a 8232 | 2 | Call 0x1,0x32 017b 7003 |p | Jump_Nonzero 0x17f 017c e5ff | | Load 0x2,-0x1 017d 822f | / | Call 0x1,0x2f 017e 6802 |h | Jump_Zero 0x181 017f 00ea | | Load_Encached Null_String_Cache 0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0181 e223 | # | Load 0x1,0x23 0182 e222 | " | Load 0x1,0x22 0183 e221 | ! | Load 0x1,0x21 0184 e5ff | | Load 0x2,-0x1 0185 4804 |H | Short_Literal 0x4 0186 e225 | % | Load 0x1,0x25 0187 170d | | Execute Task,Entry_Call,Field_Number 0xd 0188 c402 | | Store 0x2,0x2 0189 003b | ; | Store_Top Access,At_Offset_3 018a 0039 | 9 | Store_Top Access,At_Offset_1 018b 00d8 | | Load_Top At_Offset_0 018c 7002 |p | Jump_Nonzero 0x18f 018d e210 | | Load 0x1,0x10 018e 0257 | W | Execute Discrete,Raise 018f 00d8 | | Load_Top At_Offset_0 0190 0227 | ' | Execute Access,All_Reference 0191 0335 | 5 | Declare_Variable Array,Duplicate 0192 00cd | | Action Spare6_Action 0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c e007 | | Load 0x0,0x7 019d 180f | | Execute Package,Field_Execute,Field_Number 0xf 019e 00db | | Load_Top At_Offset_3 019f 821b | | Call 0x1,0x1b 01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b4 | | .CONST 0x01b4 ; Address of begin 01a9 01cc | | .CONST 0x01cc ; Address of exception handler 01aa 0004 | | .CONST 0x0004 ; Number of locals 01ab INIT_01a8: 01ab e006 | | Load 0x0,0x6 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 02c7 | | Declare_Variable Any 01ae 00d8 | | Load_Top At_Offset_0 01af 1c00 | | Execute_Immediate Run_Utility,0x0 01b0 00db | | Load_Top At_Offset_3 01b1 822b | + | Call 0x1,0x2b 01b2 029f 054b | K| Declare_Subprogram INIT_0548,For_Call 01b4 BODY_01a8: 01b4 00da | | Load_Top At_Offset_2 01b5 e5fe | | Load 0x2,-0x2 01b6 e008 | | Load 0x0,0x8 01b7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 01b8 8228 | ( | Call 0x1,0x28 01b9 c402 | | Store 0x2,0x2 01ba 00cf | | Action Mark_Auxiliary 01bb 7805 |x | Jump 0x1c1 01bc 8404 | | Call 0x2,0x4 01bd 00db | | Load_Top At_Offset_3 01be e006 | | Load 0x0,0x6 01bf 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c0 00c9 | | Action Pop_Auxiliary_Loop 01c1 00db | | Load_Top At_Offset_3 01c2 e006 | | Load 0x0,0x6 01c3 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c4 6ff7 |o | Jump_Zero 0x1bc 01c5 00ce | | Action Pop_Auxiliary 01c6 00da | | Load_Top At_Offset_2 01c7 e006 | | Load 0x0,0x6 01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c9 c402 | | Store 0x2,0x2 01ca e210 | | Load 0x1,0x10 01cb 0257 | W | Execute Discrete,Raise 01cc TRAP_01a8: 01cc e210 | | Load 0x1,0x10 01cd 010f | | Execute Exception,Equal 01ce 6802 |h | Jump_Zero 0x1d1 01cf 00ea | | Load_Encached Null_String_Cache 01d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d1 0100 | | Execute Exception,Raise 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e4 | | .CONST 0x01e4 ; Address of begin 01d9 01fc | | .CONST 0x01fc ; Address of exception handler 01da 0004 | | .CONST 0x0004 ; Number of locals 01db INIT_01d8: 01db e006 | | Load 0x0,0x6 01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dd 02c7 | | Declare_Variable Any 01de 00d8 | | Load_Top At_Offset_0 01df 1c00 | | Execute_Immediate Run_Utility,0x0 01e0 00db | | Load_Top At_Offset_3 01e1 822b | + | Call 0x1,0x2b 01e2 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 01e4 BODY_01d8: 01e4 00da | | Load_Top At_Offset_2 01e5 e5fe | | Load 0x2,-0x2 01e6 e008 | | Load 0x0,0x8 01e7 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 01e8 8228 | ( | Call 0x1,0x28 01e9 c402 | | Store 0x2,0x2 01ea 00cf | | Action Mark_Auxiliary 01eb 7805 |x | Jump 0x1f1 01ec 8404 | | Call 0x2,0x4 01ed 00db | | Load_Top At_Offset_3 01ee e006 | | Load 0x0,0x6 01ef 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01f0 00c9 | | Action Pop_Auxiliary_Loop 01f1 00db | | Load_Top At_Offset_3 01f2 e006 | | Load 0x0,0x6 01f3 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f4 6ff7 |o | Jump_Zero 0x1ec 01f5 00ce | | Action Pop_Auxiliary 01f6 00da | | Load_Top At_Offset_2 01f7 e006 | | Load 0x0,0x6 01f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f9 c402 | | Store 0x2,0x2 01fa e210 | | Load 0x1,0x10 01fb 0257 | W | Execute Discrete,Raise 01fc TRAP_01d8: 01fc e210 | | Load 0x1,0x10 01fd 010f | | Execute Exception,Equal 01fe 6802 |h | Jump_Zero 0x201 01ff 00ea | | Load_Encached Null_String_Cache 0200 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0201 0100 | | Execute Exception,Raise 0202 0000 0000 | | .BLANK 0000[0x6] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0214 | | .CONST 0x0214 ; Address of begin 0209 022c | , | .CONST 0x022c ; Address of exception handler 020a 0004 | | .CONST 0x0004 ; Number of locals 020b INIT_0208: 020b e006 | | Load 0x0,0x6 020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020d 02c7 | | Declare_Variable Any 020e 00d8 | | Load_Top At_Offset_0 020f 1c00 | | Execute_Immediate Run_Utility,0x0 0210 00db | | Load_Top At_Offset_3 0211 822b | + | Call 0x1,0x2b 0212 029f 058b | | Declare_Subprogram INIT_0588,For_Call 0214 BODY_0208: 0214 00da | | Load_Top At_Offset_2 0215 e5fe | | Load 0x2,-0x2 0216 e008 | | Load 0x0,0x8 0217 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 0218 8228 | ( | Call 0x1,0x28 0219 c402 | | Store 0x2,0x2 021a 00cf | | Action Mark_Auxiliary 021b 7805 |x | Jump 0x221 021c 8404 | | Call 0x2,0x4 021d 00db | | Load_Top At_Offset_3 021e e006 | | Load 0x0,0x6 021f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0220 00c9 | | Action Pop_Auxiliary_Loop 0221 00db | | Load_Top At_Offset_3 0222 e006 | | Load 0x0,0x6 0223 180e | | Execute Package,Field_Execute,Field_Number 0xe 0224 6ff7 |o | Jump_Zero 0x21c 0225 00ce | | Action Pop_Auxiliary 0226 00da | | Load_Top At_Offset_2 0227 e006 | | Load 0x0,0x6 0228 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0229 c402 | | Store 0x2,0x2 022a e210 | | Load 0x1,0x10 022b 0257 | W | Execute Discrete,Raise 022c TRAP_0208: 022c e210 | | Load 0x1,0x10 022d 010f | | Execute Exception,Equal 022e 6802 |h | Jump_Zero 0x231 022f 00ea | | Load_Encached Null_String_Cache 0230 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0231 0100 | | Execute Exception,Raise 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023d | = | .CONST 0x023d ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e223 | # | Load 0x1,0x23 023c 0007 | | Action Break_Optional 023d BODY_0238: 023d e223 | # | Load 0x1,0x23 023e e5fe | | Load 0x2,-0x2 023f e5ff | | Load 0x2,-0x1 0240 4803 |H | Short_Literal 0x3 0241 e225 | % | Load 0x1,0x25 0242 170f | | Execute Task,Entry_Call,Field_Number 0xf 0243 0039 | 9 | Store_Top Access,At_Offset_1 0244 00d8 | | Load_Top At_Offset_0 0245 6805 |h | Jump_Zero 0x24b 0246 00d8 | | Load_Top At_Offset_0 0247 0227 | ' | Execute Access,All_Reference 0248 0335 | 5 | Declare_Variable Array,Duplicate 0249 00cd | | Action Spare6_Action 024a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024b 00db | | Load_Top At_Offset_3 024c e004 | | Load 0x0,0x4 024d 180f | | Execute Package,Field_Execute,Field_Number 0xf 024e 4801 |H | Short_Literal 0x1 024f 4806 |H | Short_Literal 0x6 0250 00e9 | | Load_Encached String_Cache 0251 0334 | 4 | Declare_Variable Array,With_Constraint 0252 5019 |P | Indirect_Literal Any,0x26c,{0x5443502f, 0x49502020} 0253 e004 | | Load 0x0,0x4 0254 180f | | Execute Package,Field_Execute,Field_Number 0xf 0255 01df | | Execute Vector,Equal 0256 700c |p | Jump_Nonzero 0x263 0257 00db | | Load_Top At_Offset_3 0258 e004 | | Load 0x0,0x4 0259 180f | | Execute Package,Field_Execute,Field_Number 0xf 025a 4801 |H | Short_Literal 0x1 025b 4806 |H | Short_Literal 0x6 025c 00e9 | | Load_Encached String_Cache 025d 0334 | 4 | Declare_Variable Array,With_Constraint 025e 5011 |P | Indirect_Literal Any,0x270,{0x5544502f, 0x49502020} 025f e004 | | Load 0x0,0x4 0260 180f | | Execute Package,Field_Execute,Field_Number 0xf 0261 01df | | Execute Vector,Equal 0262 6805 |h | Jump_Zero 0x268 0263 e5fe | | Load 0x2,-0x2 0264 e009 | | Load 0x0,0x9 0265 180f | | Execute Package,Field_Execute,Field_Number 0xf 0266 8229 | ) | Call 0x1,0x29 0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0268 e210 | | Load 0x1,0x10 0269 0257 | W | Execute Discrete,Raise 026a 0000 0000 | | .XXX[0x2] 026c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0270 5544 502f |UDP/| .LITERAL {0x5544502f, 0x49502020} 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00da | | Load_Top At_Offset_2 027c 01db | | Execute Vector,Length 027d 0c03 | | Execute_Immediate Greater_Equal,0x3 027e 6810 |h | Jump_Zero 0x28f 027f 00da | | Load_Top At_Offset_2 0280 01dd | | Execute Vector,First 0281 00db | | Load_Top At_Offset_3 0282 01dd | | Execute Vector,First 0283 0a01 | | Execute_Immediate Plus,0x1 0284 00d8 | | Load_Top At_Offset_0 0285 00e2 | | Load_Encached Integer_Cache 0286 0260 | ` | Execute Discrete,In_Type 0287 7001 |p | Jump_Nonzero 0x289 0288 0801 | | Execute_Immediate Raise,0x1 0289 e5ff | | Load 0x2,-0x1 028a 01cf | | Execute Vector,Slice_Read 028b 0092 0605 | | Action Push_String_Extended,0x605 ; "!!" 028d 01df | | Execute Vector,Equal 028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028f 4800 |H | Short_Literal 0x0 0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0291 0000 0000 | | .BLANK 0000[0x7] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a3 | | .CONST 0x02a3 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0003 | | .CONST 0x0003 ; Number of locals 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 01dd | | Execute Vector,First 029d 0a02 | | Execute_Immediate Plus,0x2 029e 00e4 | | Load_Encached Positive_Cache 029f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02a0 00d8 | | Load_Top At_Offset_0 02a1 00e4 | | Load_Encached Positive_Cache 02a2 03f1 | | Declare_Variable Discrete,With_Value 02a3 BODY_0298: 02a3 e5ff | | Load 0x2,-0x1 02a4 821c | | Call 0x1,0x1c 02a5 7001 |p | Jump_Nonzero 0x2a7 02a6 08e0 | | Execute_Immediate Raise,0xe0 02a7 00cf | | Action Mark_Auxiliary 02a8 780e |x | Jump 0x2b7 02a9 00d9 | | Load_Top At_Offset_1 02aa e5ff | | Load 0x2,-0x1 02ab 01d7 | | Execute Vector,Field_Read 02ac 0b21 | ! | Execute_Immediate Case_Compare,0x21 02ad 7006 |p | Jump_Nonzero 0x2b4 02ae 0f2e | . | Execute_Immediate Equal,0x2e 02af 700c |p | Jump_Nonzero 0x2bc 02b0 00d9 | | Load_Top At_Offset_1 02b1 0a01 | | Execute_Immediate Plus,0x1 02b2 005a | Z | Store_Top Discrete,At_Offset_2 02b3 7802 |x | Jump 0x2b6 02b4 00d1 | | Pop_Control Pop_Count_1 02b5 7806 |x | Jump 0x2bc 02b6 00c9 | | Action Pop_Auxiliary_Loop 02b7 00d9 | | Load_Top At_Offset_1 02b8 e5ff | | Load 0x2,-0x1 02b9 01dc | | Execute Vector,Last 02ba 027a | z | Execute Discrete,Less_Equal 02bb 77ed |w | Jump_Nonzero 0x2a9 02bc 00ce | | Action Pop_Auxiliary 02bd 00d9 | | Load_Top At_Offset_1 02be 00d9 | | Load_Top At_Offset_1 02bf 0aff | | Execute_Immediate Plus,-0x1 02c0 e5ff | | Load 0x2,-0x1 02c1 01cf | | Execute Vector,Slice_Read 02c2 0335 | 5 | Declare_Variable Array,Duplicate 02c3 00cd | | Action Spare6_Action 02c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c5 0000 0000 | | .XXX[0x3] 02c7 0000 | | 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02d4 | | .CONST 0x02d4 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc 01dd | | Execute Vector,First 02cd 0a02 | | Execute_Immediate Plus,0x2 02ce 00db | | Load_Top At_Offset_3 02cf 821d | | Call 0x1,0x1d 02d0 01db | | Execute Vector,Length 02d1 0273 | s | Execute Discrete,Plus 02d2 00e4 | | Load_Encached Positive_Cache 02d3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02d4 BODY_02c8: 02d4 00d8 | | Load_Top At_Offset_0 02d5 e5ff | | Load 0x2,-0x1 02d6 01d7 | | Execute Vector,Field_Read 02d7 0b21 | ! | Execute_Immediate Case_Compare,0x21 02d8 7003 |p | Jump_Nonzero 0x2dc 02d9 0f2e | . | Execute_Immediate Equal,0x2e 02da 700a |p | Jump_Nonzero 0x2e5 02db 08e0 | | Execute_Immediate Raise,0xe0 02dc 00d1 | | Pop_Control Pop_Count_1 02dd 00d8 | | Load_Top At_Offset_0 02de e5ff | | Load 0x2,-0x1 02df 01dc | | Execute Vector,Last 02e0 e5ff | | Load 0x2,-0x1 02e1 01cf | | Execute Vector,Slice_Read 02e2 0335 | 5 | Declare_Variable Array,Duplicate 02e3 00cd | | Action Spare6_Action 02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e5 4821 |H! | Short_Literal 0x21 02e6 00d9 | | Load_Top At_Offset_1 02e7 0a01 | | Execute_Immediate Plus,0x1 02e8 00d8 | | Load_Top At_Offset_0 02e9 00e2 | | Load_Encached Integer_Cache 02ea 0260 | ` | Execute Discrete,In_Type 02eb 7001 |p | Jump_Nonzero 0x2ed 02ec 0801 | | Execute_Immediate Raise,0x1 02ed e5ff | | Load 0x2,-0x1 02ee 01dc | | Execute Vector,Last 02ef e5ff | | Load 0x2,-0x1 02f0 01cf | | Execute Vector,Slice_Read 02f1 01ca | | Execute Vector,Prepend 02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f3 0000 0000 | | .BLANK 0000[0x5] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0303 | | .CONST 0x0303 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00db | | Load_Top At_Offset_3 02fc 00ea | | Load_Encached Null_String_Cache 02fd e5ff | | Load 0x2,-0x1 02fe 4800 |H | Short_Literal 0x0 02ff e002 | | Load 0x0,0x2 0300 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0301 c5fe | | Store 0x2,-0x2 0302 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0303 TRAP_02f8: 0303 00d8 | | Load_Top At_Offset_0 0304 0107 | | Execute Exception,Get_Name 0305 4920 |I | Short_Literal 0x120 0306 492f |I/ | Short_Literal 0x12f 0307 0262 | b | Execute Discrete,In_Range 0308 6802 |h | Jump_Zero 0x30b 0309 e210 | | Load 0x1,0x10 030a 0257 | W | Execute Discrete,Raise 030b 0100 | | Execute Exception,Raise 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0324 | $ | .CONST 0x0324 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 e00a | | Load 0x0,0xa 0315 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0316 6802 |h | Jump_Zero 0x319 0317 e210 | | Load 0x1,0x10 0318 0257 | W | Execute Discrete,Raise 0319 00db | | Load_Top At_Offset_3 031a 00ea | | Load_Encached Null_String_Cache 031b e5ff | | Load 0x2,-0x1 031c e00a | | Load 0x0,0xa 031d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 031e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 031f 4800 |H | Short_Literal 0x0 0320 e002 | | Load 0x0,0x2 0321 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0322 c5fe | | Store 0x2,-0x2 0323 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0324 TRAP_0310: 0324 0007 | | Action Break_Optional 0325 e210 | | Load 0x1,0x10 0326 0257 | W | Execute Discrete,Raise 0327 0000 | | .XXX[0x1] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0333 | 3 | .CONST 0x0333 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0003 | | .CONST 0x0003 ; Number of locals 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c 01dd | | Execute Vector,First 032d 00e4 | | Load_Encached Positive_Cache 032e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 032f 00db | | Load_Top At_Offset_3 0330 01dc | | Execute Vector,Last 0331 00e3 | | Load_Encached Natural_Cache 0332 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0333 BODY_0328: 0333 00cf | | Action Mark_Auxiliary 0334 7804 |x | Jump 0x339 0335 00da | | Load_Top At_Offset_2 0336 0a01 | | Execute_Immediate Plus,0x1 0337 005b | [ | Store_Top Discrete,At_Offset_3 0338 00c9 | | Action Pop_Auxiliary_Loop 0339 00da | | Load_Top At_Offset_2 033a 00da | | Load_Top At_Offset_2 033b 027a | z | Execute Discrete,Less_Equal 033c 6806 |h | Jump_Zero 0x343 033d 00da | | Load_Top At_Offset_2 033e e5ff | | Load 0x2,-0x1 033f 01d7 | | Execute Vector,Field_Read 0340 e006 | | Load 0x0,0x6 0341 180f | | Execute Package,Field_Execute,Field_Number 0xf 0342 77f2 |w | Jump_Nonzero 0x335 0343 00c9 | | Action Pop_Auxiliary_Loop 0344 7804 |x | Jump 0x349 0345 00d9 | | Load_Top At_Offset_1 0346 0aff | | Execute_Immediate Plus,-0x1 0347 005a | Z | Store_Top Discrete,At_Offset_2 0348 00c9 | | Action Pop_Auxiliary_Loop 0349 00da | | Load_Top At_Offset_2 034a 00da | | Load_Top At_Offset_2 034b 027a | z | Execute Discrete,Less_Equal 034c 6806 |h | Jump_Zero 0x353 034d 00d9 | | Load_Top At_Offset_1 034e e5ff | | Load 0x2,-0x1 034f 01d7 | | Execute Vector,Field_Read 0350 e006 | | Load 0x0,0x6 0351 180f | | Execute Package,Field_Execute,Field_Number 0xf 0352 77f2 |w | Jump_Nonzero 0x345 0353 00ce | | Action Pop_Auxiliary 0354 00d9 | | Load_Top At_Offset_1 0355 00d9 | | Load_Top At_Offset_1 0356 e5ff | | Load 0x2,-0x1 0357 01cf | | Execute Vector,Slice_Read 0358 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0359 0000 0000 | | .BLANK 0000[0x7] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0368 | h | .CONST 0x0368 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 01da | | Execute Vector,Bounds 0365 00e9 | | Load_Encached String_Cache 0366 035b | [ | Declare_Type Array,Constrained 0367 0337 | 7 | Declare_Variable Array 0368 BODY_0360: 0368 00cf | | Action Mark_Auxiliary 0369 e5ff | | Load 0x2,-0x1 036a 01d9 | | Execute Vector,Reverse_Bounds 036b 0263 | c | Execute Discrete,Above_Bound 036c 701c |p | Jump_Nonzero 0x389 036d 00d8 | | Load_Top At_Offset_0 036e e5ff | | Load 0x2,-0x1 036f 01d7 | | Execute Vector,Field_Read 0370 4861 |Ha | Short_Literal 0x61 0371 487a |Hz | Short_Literal 0x7a 0372 0262 | b | Execute Discrete,In_Range 0373 680d |h | Jump_Zero 0x381 0374 00d8 | | Load_Top At_Offset_0 0375 e5ff | | Load 0x2,-0x1 0376 01d7 | | Execute Vector,Field_Read 0377 0ae0 | | Execute_Immediate Plus,-0x20 0378 00d8 | | Load_Top At_Offset_0 0379 00e8 | | Load_Encached Character_Cache 037a 0260 | ` | Execute Discrete,In_Type 037b 7001 |p | Jump_Nonzero 0x37d 037c 0801 | | Execute_Immediate Raise,0x1 037d 00d9 | | Load_Top At_Offset_1 037e e402 | | Load 0x2,0x2 037f 01d6 | | Execute Vector,Field_Write 0380 7806 |x | Jump 0x387 0381 00d8 | | Load_Top At_Offset_0 0382 e5ff | | Load 0x2,-0x1 0383 01d7 | | Execute Vector,Field_Read 0384 00d9 | | Load_Top At_Offset_1 0385 e402 | | Load 0x2,0x2 0386 01d6 | | Execute Vector,Field_Write 0387 00c8 | | Action Pop_Auxiliary_Range 0388 3fe4 |? | Loop_Increasing 0x36d 0389 00ce | | Action Pop_Auxiliary 038a 00d8 | | Load_Top At_Offset_0 038b 00e9 | | Load_Encached String_Cache 038c 01c6 | | Execute Vector,Convert_To_Formal 038d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038e 0000 0000 | | .XXX[0x2] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 8229 | ) | Call 0x1,0x29 0395 822a | * | Call 0x1,0x2a 0396 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0397 0000 | | .XXX[0x1] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03af | | .CONST 0x03af ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0003 | | .CONST 0x0003 ; Number of locals 039b INIT_0398: 039b 4801 |H | Short_Literal 0x1 039c 4806 |H | Short_Literal 0x6 039d e004 | | Load 0x0,0x4 039e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 039f 035b | [ | Declare_Type Array,Constrained 03a0 0337 | 7 | Declare_Variable Array 03a1 00d8 | | Load_Top At_Offset_0 03a2 0335 | 5 | Declare_Variable Array,Duplicate 03a3 00cd | | Action Spare6_Action 03a4 4806 |H | Short_Literal 0x6 03a5 4801 |H | Short_Literal 0x1 03a6 4800 |H | Short_Literal 0x0 03a7 00d9 | | Load_Top At_Offset_1 03a8 e403 | | Load 0x2,0x3 03a9 01d6 | | Execute Vector,Field_Write 03aa 3ffb |? | Loop_Increasing 0x3a6 03ab 00d9 | | Load_Top At_Offset_1 03ac 01d4 | | Execute Vector,Structure_Write 03ad 00e3 | | Load_Encached Natural_Cache 03ae 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 03af BODY_0398: 03af 00cf | | Action Mark_Auxiliary 03b0 e5ff | | Load 0x2,-0x1 03b1 01d9 | | Execute Vector,Reverse_Bounds 03b2 0263 | c | Execute Discrete,Above_Bound 03b3 705b |p[ | Jump_Nonzero 0x40f 03b4 00d8 | | Load_Top At_Offset_0 03b5 e5ff | | Load 0x2,-0x1 03b6 01d7 | | Execute Vector,Field_Read 03b7 00d8 | | Load_Top At_Offset_0 03b8 0d3a | : | Execute_Immediate Less,0x3a 03b9 700d |p | Jump_Nonzero 0x3c7 03ba 00d8 | | Load_Top At_Offset_0 03bb 0c41 | A | Execute_Immediate Greater_Equal,0x41 03bc 7002 |p | Jump_Nonzero 0x3bf 03bd 00d1 | | Pop_Control Pop_Count_1 03be 08e0 | | Execute_Immediate Raise,0xe0 03bf 00d8 | | Load_Top At_Offset_0 03c0 0c47 | G | Execute_Immediate Greater_Equal,0x47 03c1 6832 |h2 | Jump_Zero 0x3f4 03c2 4861 |Ha | Short_Literal 0x61 03c3 4866 |Hf | Short_Literal 0x66 03c4 0262 | b | Execute Discrete,In_Range 03c5 701a |p | Jump_Nonzero 0x3e0 03c6 7ff7 | | Jump 0x3be 03c7 0b2d | - | Execute_Immediate Case_Compare,0x2d 03c8 7040 |p@ | Jump_Nonzero 0x409 03c9 e224 | $ | Load 0x1,0x24 03ca 0260 | ` | Execute Discrete,In_Type 03cb 7001 |p | Jump_Nonzero 0x3cd 03cc 7ff1 | | Jump 0x3be 03cd 00db | | Load_Top At_Offset_3 03ce e402 | | Load 0x2,0x2 03cf 01d7 | | Execute Vector,Field_Read 03d0 0904 | | Execute_Immediate Binary_Scale,0x4 03d1 00d9 | | Load_Top At_Offset_1 03d2 e5ff | | Load 0x2,-0x1 03d3 01d7 | | Execute Vector,Field_Read 03d4 0ad0 | | Execute_Immediate Plus,-0x30 03d5 00d8 | | Load_Top At_Offset_0 03d6 e00b | | Load 0x0,0xb 03d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03d8 0260 | ` | Execute Discrete,In_Type 03d9 7001 |p | Jump_Nonzero 0x3db 03da 0801 | | Execute_Immediate Raise,0x1 03db 0273 | s | Execute Discrete,Plus 03dc e403 | | Load 0x2,0x3 03dd e402 | | Load 0x2,0x2 03de 01d6 | | Execute Vector,Field_Write 03df 782d |x- | Jump 0x40d 03e0 00db | | Load_Top At_Offset_3 03e1 e402 | | Load 0x2,0x2 03e2 01d7 | | Execute Vector,Field_Read 03e3 0904 | | Execute_Immediate Binary_Scale,0x4 03e4 00d9 | | Load_Top At_Offset_1 03e5 e5ff | | Load 0x2,-0x1 03e6 01d7 | | Execute Vector,Field_Read 03e7 0a9f | | Execute_Immediate Plus,-0x61 03e8 00d8 | | Load_Top At_Offset_0 03e9 e00b | | Load 0x0,0xb 03ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03eb 0260 | ` | Execute Discrete,In_Type 03ec 7001 |p | Jump_Nonzero 0x3ee 03ed 0801 | | Execute_Immediate Raise,0x1 03ee 0273 | s | Execute Discrete,Plus 03ef 0a0a | | Execute_Immediate Plus,0xa 03f0 e403 | | Load 0x2,0x3 03f1 e402 | | Load 0x2,0x2 03f2 01d6 | | Execute Vector,Field_Write 03f3 7819 |x | Jump 0x40d 03f4 00d1 | | Pop_Control Pop_Count_1 03f5 00db | | Load_Top At_Offset_3 03f6 e402 | | Load 0x2,0x2 03f7 01d7 | | Execute Vector,Field_Read 03f8 0904 | | Execute_Immediate Binary_Scale,0x4 03f9 00d9 | | Load_Top At_Offset_1 03fa e5ff | | Load 0x2,-0x1 03fb 01d7 | | Execute Vector,Field_Read 03fc 0abf | | Execute_Immediate Plus,-0x41 03fd 00d8 | | Load_Top At_Offset_0 03fe e00b | | Load 0x0,0xb 03ff 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0400 0260 | ` | Execute Discrete,In_Type 0401 7001 |p | Jump_Nonzero 0x403 0402 0801 | | Execute_Immediate Raise,0x1 0403 0273 | s | Execute Discrete,Plus 0404 0a0a | | Execute_Immediate Plus,0xa 0405 e403 | | Load 0x2,0x3 0406 e402 | | Load 0x2,0x2 0407 01d6 | | Execute Vector,Field_Write 0408 7804 |x | Jump 0x40d 0409 00d1 | | Pop_Control Pop_Count_1 040a 00db | | Load_Top At_Offset_3 040b 0a01 | | Execute_Immediate Plus,0x1 040c c403 | | Store 0x2,0x3 040d 00c8 | | Action Pop_Auxiliary_Range 040e 3fa5 |? | Loop_Increasing 0x3b4 040f 00ce | | Action Pop_Auxiliary 0410 00d8 | | Load_Top At_Offset_0 0411 0e06 | | Execute_Immediate Not_Equal,0x6 0412 6801 |h | Jump_Zero 0x414 0413 08e0 | | Execute_Immediate Raise,0xe0 0414 00d9 | | Load_Top At_Offset_1 0415 e004 | | Load 0x0,0x4 0416 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0417 01c6 | | Execute Vector,Convert_To_Formal 0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0419 0000 0000 | | .BLANK 0000[0x7] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0425 | % | .CONST 0x0425 ; Address of begin 0421 0427 | ' | .CONST 0x0427 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call 0425 BODY_0420: 0425 8402 | | Call 0x2,0x2 0426 0831 | 1 | Execute_Immediate Raise,0x31 0427 TRAP_0420: 0427 010e | | Execute Exception,Is_Constraint_Error 0428 6802 |h | Jump_Zero 0x42b 0429 4800 |H | Short_Literal 0x0 042a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 042b 0100 | | Execute Exception,Raise 042c 0000 0000 | | .BLANK 0000[0x4] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0447 | G | .CONST 0x0447 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0003 | | .CONST 0x0003 ; Number of locals 0433 INIT_0430: 0433 4801 |H | Short_Literal 0x1 0434 4804 |H | Short_Literal 0x4 0435 e004 | | Load 0x0,0x4 0436 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0437 035b | [ | Declare_Type Array,Constrained 0438 0337 | 7 | Declare_Variable Array 0439 00d8 | | Load_Top At_Offset_0 043a 0335 | 5 | Declare_Variable Array,Duplicate 043b 00cd | | Action Spare6_Action 043c 4804 |H | Short_Literal 0x4 043d 4801 |H | Short_Literal 0x1 043e 4800 |H | Short_Literal 0x0 043f 00d9 | | Load_Top At_Offset_1 0440 e403 | | Load 0x2,0x3 0441 01d6 | | Execute Vector,Field_Write 0442 3ffb |? | Loop_Increasing 0x43e 0443 00d9 | | Load_Top At_Offset_1 0444 01d4 | | Execute Vector,Structure_Write 0445 00e3 | | Load_Encached Natural_Cache 0446 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0447 BODY_0430: 0447 00cf | | Action Mark_Auxiliary 0448 e5ff | | Load 0x2,-0x1 0449 01d9 | | Execute Vector,Reverse_Bounds 044a 0263 | c | Execute Discrete,Above_Bound 044b 7024 |p$ | Jump_Nonzero 0x470 044c 00d8 | | Load_Top At_Offset_0 044d e5ff | | Load 0x2,-0x1 044e 01d7 | | Execute Vector,Field_Read 044f 00d8 | | Load_Top At_Offset_0 0450 e224 | $ | Load 0x1,0x24 0451 0260 | ` | Execute Discrete,In_Type 0452 7003 |p | Jump_Nonzero 0x456 0453 0f2e | . | Execute_Immediate Equal,0x2e 0454 7016 |p | Jump_Nonzero 0x46b 0455 08e0 | | Execute_Immediate Raise,0xe0 0456 00d1 | | Pop_Control Pop_Count_1 0457 00db | | Load_Top At_Offset_3 0458 e402 | | Load 0x2,0x2 0459 01d7 | | Execute Vector,Field_Read 045a 480a |H | Short_Literal 0xa 045b 0271 | q | Execute Discrete,Times 045c 00d9 | | Load_Top At_Offset_1 045d e5ff | | Load 0x2,-0x1 045e 01d7 | | Execute Vector,Field_Read 045f 0ad0 | | Execute_Immediate Plus,-0x30 0460 00d8 | | Load_Top At_Offset_0 0461 e00b | | Load 0x0,0xb 0462 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0463 0260 | ` | Execute Discrete,In_Type 0464 7001 |p | Jump_Nonzero 0x466 0465 0801 | | Execute_Immediate Raise,0x1 0466 0273 | s | Execute Discrete,Plus 0467 e403 | | Load 0x2,0x3 0468 e402 | | Load 0x2,0x2 0469 01d6 | | Execute Vector,Field_Write 046a 7803 |x | Jump 0x46e 046b 00db | | Load_Top At_Offset_3 046c 0a01 | | Execute_Immediate Plus,0x1 046d c403 | | Store 0x2,0x3 046e 00c8 | | Action Pop_Auxiliary_Range 046f 3fdc |? | Loop_Increasing 0x44c 0470 00ce | | Action Pop_Auxiliary 0471 00d8 | | Load_Top At_Offset_0 0472 0e04 | | Execute_Immediate Not_Equal,0x4 0473 6801 |h | Jump_Zero 0x475 0474 08e0 | | Execute_Immediate Raise,0xe0 0475 00d9 | | Load_Top At_Offset_1 0476 e004 | | Load 0x0,0x4 0477 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0478 01c6 | | Execute Vector,Convert_To_Formal 0479 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 047a 0000 0000 | | .BLANK 0000[0x6] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0483 | | .CONST 0x0483 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0001 | | .CONST 0x0001 ; Number of locals 0483 BODY_0480: 0483 INIT_0480: 0483 00da | | Load_Top At_Offset_2 0484 01dd | | Execute Vector,First 0485 00db | | Load_Top At_Offset_3 0486 01d7 | | Execute Vector,Field_Read 0487 0f5b | [ | Execute_Immediate Equal,0x5b 0488 681a |h | Jump_Zero 0x4a3 0489 00da | | Load_Top At_Offset_2 048a 01dc | | Execute Vector,Last 048b 00db | | Load_Top At_Offset_3 048c 01d7 | | Execute Vector,Field_Read 048d 0f5d | ] | Execute_Immediate Equal,0x5d 048e 6814 |h | Jump_Zero 0x4a3 048f 00da | | Load_Top At_Offset_2 0490 01dd | | Execute Vector,First 0491 0a01 | | Execute_Immediate Plus,0x1 0492 00d8 | | Load_Top At_Offset_0 0493 00e2 | | Load_Encached Integer_Cache 0494 0260 | ` | Execute Discrete,In_Type 0495 7001 |p | Jump_Nonzero 0x497 0496 0801 | | Execute_Immediate Raise,0x1 0497 00db | | Load_Top At_Offset_3 0498 01dc | | Execute Vector,Last 0499 0aff | | Execute_Immediate Plus,-0x1 049a 00d8 | | Load_Top At_Offset_0 049b 00e2 | | Load_Encached Integer_Cache 049c 0260 | ` | Execute Discrete,In_Type 049d 7001 |p | Jump_Nonzero 0x49f 049e 0801 | | Execute_Immediate Raise,0x1 049f e5ff | | Load 0x2,-0x1 04a0 01cf | | Execute Vector,Slice_Read 04a1 8230 | 0 | Call 0x1,0x30 04a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a3 00da | | Load_Top At_Offset_2 04a4 8230 | 0 | Call 0x1,0x30 04a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04a6 0000 0000 | | .XXX[0x2] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ad | | .CONST 0x04ad ; Address of begin 04a9 04af | | .CONST 0x04af ; Address of exception handler 04aa 0002 | | .CONST 0x0002 ; Number of locals 04ab INIT_04a8: 04ab 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 04ad BODY_04a8: 04ad 8402 | | Call 0x2,0x2 04ae 0831 | 1 | Execute_Immediate Raise,0x31 04af TRAP_04a8: 04af 010e | | Execute Exception,Is_Constraint_Error 04b0 6802 |h | Jump_Zero 0x4b3 04b1 4800 |H | Short_Literal 0x0 04b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b3 0100 | | Execute Exception,Raise 04b4 0000 0000 | | .BLANK 0000[0x4] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04c1 | | .CONST 0x04c1 ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0004 | | .CONST 0x0004 ; Number of locals 04bb INIT_04b8: 04bb e221 | ! | Load 0x1,0x21 04bc 0007 | | Action Break_Optional 04bd e222 | " | Load 0x1,0x22 04be 0007 | | Action Break_Optional 04bf e223 | # | Load 0x1,0x23 04c0 0007 | | Action Break_Optional 04c1 BODY_04b8: 04c1 e223 | # | Load 0x1,0x23 04c2 e222 | " | Load 0x1,0x22 04c3 e221 | ! | Load 0x1,0x21 04c4 e5ff | | Load 0x2,-0x1 04c5 4804 |H | Short_Literal 0x4 04c6 e225 | % | Load 0x1,0x25 04c7 170d | | Execute Task,Entry_Call,Field_Number 0xd 04c8 c602 | | Store 0x3,0x2 04c9 003b | ; | Store_Top Access,At_Offset_3 04ca 0039 | 9 | Store_Top Access,At_Offset_1 04cb 00da | | Load_Top At_Offset_2 04cc 7002 |p | Jump_Nonzero 0x4cf 04cd e210 | | Load 0x1,0x10 04ce 0257 | W | Execute Discrete,Raise 04cf 00da | | Load_Top At_Offset_2 04d0 0227 | ' | Execute Access,All_Reference 04d1 0335 | 5 | Declare_Variable Array,Duplicate 04d2 00cd | | Action Spare6_Action 04d3 00cb | | Action Pop_Block_With_Result 04d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04d5 0000 0000 | | .XXX[0x3] 04d7 0000 | | 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 04df | | .CONST 0x04df ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db e5ff | | Load 0x2,-0x1 04dc 8231 | 1 | Call 0x1,0x31 04dd 00cb | | Action Pop_Block_With_Result 04de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04df TRAP_04d8: 04df 010e | | Execute Exception,Is_Constraint_Error 04e0 6801 |h | Jump_Zero 0x4e2 04e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e2 0100 | | Execute Exception,Raise 04e3 0000 0000 | | .BLANK 0000[0x5] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 04ef | | .CONST 0x04ef ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb e5ff | | Load 0x2,-0x1 04ec 822e | . | Call 0x1,0x2e 04ed 00cb | | Action Pop_Block_With_Result 04ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ef TRAP_04e8: 04ef 010e | | Execute Exception,Is_Constraint_Error 04f0 6801 |h | Jump_Zero 0x4f2 04f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f2 0100 | | Execute Exception,Raise 04f3 0000 0000 | | .BLANK 0000[0x5] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 0501 | | .CONST 0x0501 ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0004 | | .CONST 0x0004 ; Number of locals 04fb INIT_04f8: 04fb e221 | ! | Load 0x1,0x21 04fc 0007 | | Action Break_Optional 04fd e222 | " | Load 0x1,0x22 04fe 0007 | | Action Break_Optional 04ff e223 | # | Load 0x1,0x23 0500 0007 | | Action Break_Optional 0501 BODY_04f8: 0501 e223 | # | Load 0x1,0x23 0502 e222 | " | Load 0x1,0x22 0503 e221 | ! | Load 0x1,0x21 0504 e5ff | | Load 0x2,-0x1 0505 4804 |H | Short_Literal 0x4 0506 e225 | % | Load 0x1,0x25 0507 170d | | Execute Task,Entry_Call,Field_Number 0xd 0508 c602 | | Store 0x3,0x2 0509 003b | ; | Store_Top Access,At_Offset_3 050a 0039 | 9 | Store_Top Access,At_Offset_1 050b 00d9 | | Load_Top At_Offset_1 050c 7002 |p | Jump_Nonzero 0x50f 050d e210 | | Load 0x1,0x10 050e 0257 | W | Execute Discrete,Raise 050f 00d9 | | Load_Top At_Offset_1 0510 0227 | ' | Execute Access,All_Reference 0511 0335 | 5 | Declare_Variable Array,Duplicate 0512 00cd | | Action Spare6_Action 0513 00cb | | Action Pop_Block_With_Result 0514 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0515 0000 0000 | | .XXX[0x3] 0517 0000 | | 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0525 | % | .CONST 0x0525 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0004 | | .CONST 0x0004 ; Number of locals 051b INIT_0518: 051b e5ff | | Load 0x2,-0x1 051c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 051d e006 | | Load 0x0,0x6 051e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 051f e5ff | | Load 0x2,-0x1 0520 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0521 8226 | & | Call 0x1,0x26 0522 e5ff | | Load 0x2,-0x1 0523 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0524 822c | , | Call 0x1,0x2c 0525 BODY_0518: 0525 e5ff | | Load 0x2,-0x1 0526 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0527 00d9 | | Load_Top At_Offset_1 0528 e003 | | Load 0x0,0x3 0529 1810 | | Execute Package,Field_Execute,Field_Number 0x10 052a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 052b 0000 0000 | | .BLANK 0000[0x5] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 053d | = | .CONST 0x053d ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0004 | | .CONST 0x0004 ; Number of locals 0533 INIT_0530: 0533 e5ff | | Load 0x2,-0x1 0534 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0535 e006 | | Load 0x0,0x6 0536 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0537 e5ff | | Load 0x2,-0x1 0538 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0539 8226 | & | Call 0x1,0x26 053a e5ff | | Load 0x2,-0x1 053b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 053c 822c | , | Call 0x1,0x2c 053d BODY_0530: 053d e5ff | | Load 0x2,-0x1 053e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 053f 00d9 | | Load_Top At_Offset_1 0540 e003 | | Load 0x0,0x3 0541 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0542 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0543 0000 0000 | | .BLANK 0000[0x5] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 0554 | T | .CONST 0x0554 ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0004 | | .CONST 0x0004 ; Number of locals 054b INIT_0548: 054b e402 | | Load 0x2,0x2 054c 822c | , | Call 0x1,0x2c 054d 822b | + | Call 0x1,0x2b 054e e402 | | Load 0x2,0x2 054f e006 | | Load 0x0,0x6 0550 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0551 e402 | | Load 0x2,0x2 0552 e006 | | Load 0x0,0x6 0553 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0554 BODY_0548: 0554 00da | | Load_Top At_Offset_2 0555 e403 | | Load 0x2,0x3 0556 01df | | Execute Vector,Equal 0557 7005 |p | Jump_Nonzero 0x55d 0558 00da | | Load_Top At_Offset_2 0559 0092 0606 | | Action Push_String_Extended,0x606 ; "OTHERS" 055b 01df | | Execute Vector,Equal 055c 6807 |h | Jump_Zero 0x564 055d e402 | | Load 0x2,0x2 055e e006 | | Load 0x0,0x6 055f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0560 c402 | | Store 0x2,0x2 0561 00d9 | | Load_Top At_Offset_1 0562 00cb | | Action Pop_Block_With_Result 0563 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0564 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0574 | t | .CONST 0x0574 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0004 | | .CONST 0x0004 ; Number of locals 056b INIT_0568: 056b e402 | | Load 0x2,0x2 056c 822c | , | Call 0x1,0x2c 056d 822b | + | Call 0x1,0x2b 056e e402 | | Load 0x2,0x2 056f e006 | | Load 0x0,0x6 0570 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0571 e402 | | Load 0x2,0x2 0572 e006 | | Load 0x0,0x6 0573 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0574 BODY_0568: 0574 00da | | Load_Top At_Offset_2 0575 e403 | | Load 0x2,0x3 0576 01df | | Execute Vector,Equal 0577 7005 |p | Jump_Nonzero 0x57d 0578 00da | | Load_Top At_Offset_2 0579 0092 0606 | | Action Push_String_Extended,0x606 ; "OTHERS" 057b 01df | | Execute Vector,Equal 057c 6807 |h | Jump_Zero 0x584 057d e402 | | Load 0x2,0x2 057e e006 | | Load 0x0,0x6 057f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0580 c402 | | Store 0x2,0x2 0581 00d8 | | Load_Top At_Offset_0 0582 00cb | | Action Pop_Block_With_Result 0583 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0584 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0585 0000 0000 | | .XXX[0x3] 0587 0000 | | 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0591 | | .CONST 0x0591 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b e402 | | Load 0x2,0x2 058c 822c | , | Call 0x1,0x2c 058d 822b | + | Call 0x1,0x2b 058e e402 | | Load 0x2,0x2 058f e006 | | Load 0x0,0x6 0590 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0591 BODY_0588: 0591 00d9 | | Load_Top At_Offset_1 0592 e403 | | Load 0x2,0x3 0593 01df | | Execute Vector,Equal 0594 7005 |p | Jump_Nonzero 0x59a 0595 00d9 | | Load_Top At_Offset_1 0596 0092 0606 | | Action Push_String_Extended,0x606 ; "OTHERS" 0598 01df | | Execute Vector,Equal 0599 6807 |h | Jump_Zero 0x5a1 059a e402 | | Load 0x2,0x2 059b e006 | | Load 0x0,0x6 059c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 059d c402 | | Store 0x2,0x2 059e 00d8 | | Load_Top At_Offset_0 059f 00cb | | Action Pop_Block_With_Result 05a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a2 0000 0000 | | .BLANK 0000[0x6] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ad | | .CONST 0x05ad ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0002 | | .CONST 0x0002 ; Number of locals 05ab INIT_05a8: 05ab e5ff | | Load 0x2,-0x1 05ac 822e | . | Call 0x1,0x2e 05ad BODY_05a8: 05ad 4801 |H | Short_Literal 0x1 05ae 00cb | | Action Pop_Block_With_Result 05af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b5 | | .CONST 0x05b5 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0002 | | .CONST 0x0002 ; Number of locals 05b3 INIT_05b0: 05b3 e5ff | | Load 0x2,-0x1 05b4 8231 | 1 | Call 0x1,0x31 05b5 BODY_05b0: 05b5 4801 |H | Short_Literal 0x1 05b6 00cb | | Action Pop_Block_With_Result 05b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 4608 |F | Jump_Case 0x9 05bc 7808 |x | Jump 0x5c5 ; case 0x0 05bd 7814 |x | Jump 0x5d2 ; case 0x1 05be 7817 |x | Jump 0x5d6 ; case 0x2 05bf 7816 |x | Jump 0x5d6 ; case 0x3 05c0 7815 |x | Jump 0x5d6 ; case 0x4 05c1 7814 |x | Jump 0x5d6 ; case 0x5 05c2 7813 |x | Jump 0x5d6 ; case 0x6 05c3 7812 |x | Jump 0x5d6 ; case 0x7 05c4 7811 |x | Jump 0x5d6 ; case 0x8 05c5 00da | | Load_Top At_Offset_2 05c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05c7 0125 | % | Execute Any,Set_Constraint 05c8 00da | | Load_Top At_Offset_2 05c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ca 1c00 | | Execute_Immediate Run_Utility,0x0 05cb 00da | | Load_Top At_Offset_2 05cc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05cd 0125 | % | Execute Any,Set_Constraint 05ce 00da | | Load_Top At_Offset_2 05cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05d0 1c00 | | Execute_Immediate Run_Utility,0x0 05d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05d2 00da | | Load_Top At_Offset_2 05d3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05d4 0125 | % | Execute Any,Set_Constraint 05d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05d6 0869 | i | Execute_Immediate Raise,0x69 05d7 0000 | | .XXX[0x1] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e3 | | .CONST 0x05e3 ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 000f | | .CONST 0x000f ; Number of locals 05db INIT_05d8: 05db 4804 |H | Short_Literal 0x4 05dc 02cb | | Declare_Variable Entry 05dd 4802 |H | Short_Literal 0x2 05de 02cb | | Declare_Variable Entry 05df 4803 |H | Short_Literal 0x3 05e0 02cb | | Declare_Variable Entry 05e1 00bf | | Action Accept_Activation 05e2 00bc | | Action Signal_Activated 05e3 BODY_05d8: 05e3 00bb | | Action Signal_Completion 05e4 0000 0000 | | .BLANK 0000[0x4] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f4 | | .CONST 0x05f4 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 000e | | .CONST 0x000e ; Number of locals 05eb INIT_05e8: 05eb 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 05ed 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated 05ef 00bf | | Action Accept_Activation 05f0 1d0d | | Execute_Immediate Reference_Lex_1,0xd 05f1 00c7 | | Action Elaborate_Subprogram 05f2 1d0e | | Execute_Immediate Reference_Lex_1,0xe 05f3 00c7 | | Action Elaborate_Subprogram 05f4 BODY_05e8: 05f4 00bc | | Action Signal_Activated 05f5 00bb | | Action Signal_Completion 05f6 0000 0000 | | .XXX[0x2] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 0833 | 3 | Execute_Immediate Raise,0x33 05fc 0000 0000 | | .BLANK 0000[0x4] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 0833 | 3 | Execute_Immediate Raise,0x33 0604 ; -------------------------------------------------------------------------------------- 0604 ; STRING TABLE 0604 ; -------------------------------------------------------------------------------------- 0604 0008 | | .STRTAB 0x0008->0x0608 ; "!machine.transport_name_map" 0605 0021 | ! | .STRTAB 0x0021->0x0615 ; "!!" 0606 0021 | ! | .STRTAB 0x0021->0x0616 ; "OTHERS" 0607 0025 | % | .STREND 0x0025->0x0619 0608 216d 6163 |!mac| .STRTAB_STRINGS 061a 0000 0000 | | .BLANK 0000[0x6] 0620 ; -------------------------------------------------------------------------------------- 0620 ; Debug Table 0620 ; -------------------------------------------------------------------------------------- 0620 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc8b5,0x0000,0x0001,0x0000 0626 0000 0000 | | .BLANK 0000[0x1da]