|
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_0a7cf5
└─⟦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 0528 | ( | .CONST 0x0528 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x4e0, index=0x0 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x226, index=0x0 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x3f8, index=0x0 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x4b0, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 00c9 | | .CONST 0x00c9 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0032 | 2 | .CONST 0x0032 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b INIT_0008: 000b INIT_0008: 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b e001 | | Load 0x0,0x1 002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002d 0129 | ) | Execute Any,Make_Visible 002e c217 | | Store 0x1,0x17 002f e002 | | Load 0x0,0x2 0030 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0031 0129 | ) | Execute Any,Make_Visible 0032 c218 | | Store 0x1,0x18 0033 e002 | | Load 0x0,0x2 0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0035 0129 | ) | Execute Any,Make_Visible 0036 c219 | | Store 0x1,0x19 0037 e002 | | Load 0x0,0x2 0038 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0039 0129 | ) | Execute Any,Make_Visible 003a c21a | | Store 0x1,0x1a 003b 4800 |H | Short_Literal 0x0 003c 4801 |H | Short_Literal 0x1 003d e003 | | Load 0x0,0x3 003e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 003f 035c | \ | Declare_Type Array,Constrained,Visible 0040 c211 | | Store 0x1,0x11 0041 e004 | | Load 0x0,0x4 0042 0129 | ) | Execute Any,Make_Visible 0043 c21c | | Store 0x1,0x1c 0044 4818 |H | Short_Literal 0x18 0045 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0046 c220 | | Store 0x1,0x20 0047 4805 |H | Short_Literal 0x5 0048 0093 02c3 | | push_full_address INIT_02c0 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 004c c22c | , | Store 0x1,0x2c 004d 4803 |H | Short_Literal 0x3 004e 0093 00eb | | push_full_address INIT_00e8 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0052 c22b | + | Store 0x1,0x2b 0053 4802 |H | Short_Literal 0x2 0054 032a | * | Declare_Type Record,Incomplete 0055 c227 | ' | Store 0x1,0x27 0056 e227 | ' | Load 0x1,0x27 0057 02a0 | | Declare_Subprogram Null_Subprogram 0058 e220 | | Load 0x1,0x20 0059 03c7 | | Complete_Type Access,By_Defining 005a 00bf | | Action Accept_Activation 005b 4801 |H | Short_Literal 0x1 005c e005 | | Load 0x0,0x5 005d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 005e 1c08 | | Execute_Immediate Run_Utility,0x8 005f 4800 |H | Short_Literal 0x0 0060 00d9 | | Load_Top At_Offset_1 0061 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0062 4800 |H | Short_Literal 0x0 0063 e005 | | Load 0x0,0x5 0064 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0065 1c08 | | Execute_Immediate Run_Utility,0x8 0066 4800 |H | Short_Literal 0x0 0067 e005 | | Load 0x0,0x5 0068 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0069 1c08 | | Execute_Immediate Run_Utility,0x8 006a 4800 |H | Short_Literal 0x0 006b 00d9 | | Load_Top At_Offset_1 006c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 006d 00d9 | | Load_Top At_Offset_1 006e 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 006f 00d9 | | Load_Top At_Offset_1 0070 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0071 4801 |H | Short_Literal 0x1 0072 e005 | | Load 0x0,0x5 0073 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0074 1c08 | | Execute_Immediate Run_Utility,0x8 0075 4800 |H | Short_Literal 0x0 0076 00d9 | | Load_Top At_Offset_1 0077 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0078 4801 |H | Short_Literal 0x1 0079 e005 | | Load 0x0,0x5 007a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 007b 1c08 | | Execute_Immediate Run_Utility,0x8 007c 4800 |H | Short_Literal 0x0 007d e005 | | Load 0x0,0x5 007e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 007f 1c08 | | Execute_Immediate Run_Utility,0x8 0080 00d8 | | Load_Top At_Offset_0 0081 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0082 4802 |H | Short_Literal 0x2 0083 00d9 | | Load_Top At_Offset_1 0084 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0085 4802 |H | Short_Literal 0x2 0086 00d0 | | Action Swap_Control 0087 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0088 00d9 | | Load_Top At_Offset_1 0089 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 008a 00d9 | | Load_Top At_Offset_1 008b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 008c e005 | | Load 0x0,0x5 008d 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 008e 02ff | | Declare_Variable Variant_Record 008f 00d8 | | Load_Top At_Offset_0 0090 1c00 | | Execute_Immediate Run_Utility,0x0 0091 4800 |H | Short_Literal 0x0 0092 0093 04db | | push_full_address INIT_04d8 0094 00f5 | | Load_Encached Unused21 0095 037a | z | Declare_Type Task,Defined,Not_Elaborated 0096 00d8 | | Load_Top At_Offset_0 0097 02a0 | | Declare_Subprogram Null_Subprogram 0098 4818 |H | Short_Literal 0x18 0099 03d3 | | Declare_Type Access,Defined,Accesses_Protected 009a e217 | | Load 0x1,0x17 009b 00d9 | | Load_Top At_Offset_1 009c 02a0 | | Declare_Subprogram Null_Subprogram 009d e227 | ' | Load 0x1,0x27 009e 0326 | & | Complete_Type Record,By_Defining 009f 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 00a1 e005 | | Load 0x0,0x5 00a2 4801 |H | Short_Literal 0x1 00a3 e230 | 0 | Load 0x1,0x30 00a4 020e | | Execute Module,Augment_Imports 00a5 00da | | Load_Top At_Offset_2 00a6 020d | | Execute Module,Elaborate 00a7 0007 | | Action Break_Optional 00a8 e002 | | Load 0x0,0x2 00a9 00b6 | | Action Make_Scope 00aa e005 | | Load 0x0,0x5 00ab e22d | - | Load 0x1,0x2d 00ac e22f | / | Load 0x1,0x2f 00ad e001 | | Load 0x0,0x1 00ae 4806 |H | Short_Literal 0x6 00af e22c | , | Load 0x1,0x2c 00b0 020e | | Execute Module,Augment_Imports 00b1 e22c | , | Load 0x1,0x2c 00b2 020d | | Execute Module,Elaborate 00b3 0007 | | Action Break_Optional 00b4 e003 | | Load 0x0,0x3 00b5 e006 | | Load 0x0,0x6 00b6 00b6 | | Action Make_Scope 00b7 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00b8 e007 | | Load 0x0,0x7 00b9 e008 | | Load 0x0,0x8 00ba e009 | | Load 0x0,0x9 00bb e005 | | Load 0x0,0x5 00bc e227 | ' | Load 0x1,0x27 00bd e231 | 1 | Load 0x1,0x31 00be e002 | | Load 0x0,0x2 00bf e001 | | Load 0x0,0x1 00c0 e22e | . | Load 0x1,0x2e 00c1 e22f | / | Load 0x1,0x2f 00c2 e22d | - | Load 0x1,0x2d 00c3 e00a | | Load 0x0,0xa 00c4 4810 |H | Short_Literal 0x10 00c5 e22b | + | Load 0x1,0x2b 00c6 020e | | Execute Module,Augment_Imports 00c7 e22b | + | Load 0x1,0x2b 00c8 020d | | Execute Module,Elaborate 00c9 BODY_0008: 00c9 BODY_0008: 00c9 BODY_0008: 00c9 BODY_0008: 00c9 BODY_0008: 00c9 00bc | | Action Signal_Activated 00ca 00bb | | Action Signal_Completion 00cb 0000 0000 | | .BLANK 0000[0x5] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 0f07 | | Execute_Immediate Equal,0x7 00d5 6802 |h | Jump_Zero 0xd8 00d6 e009 | | Load 0x0,0x9 00d7 0257 | W | Execute Discrete,Raise 00d8 00da | | Load_Top At_Offset_2 00d9 680a |h | Jump_Zero 0xe4 00da e007 | | Load 0x0,0x7 00db 180e | | Execute Package,Field_Execute,Field_Number 0xe 00dc 4802 |H | Short_Literal 0x2 00dd e5ff | | Load 0x2,-0x1 00de e003 | | Load 0x0,0x3 00df 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00e0 e008 | | Load 0x0,0x8 00e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e2 e21c | | Load 0x1,0x1c 00e3 0257 | W | Execute Discrete,Raise 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 0111 | | .CONST 0x0111 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0016 | | .CONST 0x0016 ; Number of locals 00eb INIT_00e8: 00eb 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 00ed 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 00ef 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 00f1 00bf | | Action Accept_Activation 00f2 00e1 | | Load_Encached Boolean_Cache 00f3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f4 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call 00f6 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 00f8 4800 |H | Short_Literal 0x0 00f9 0093 0213 | | push_full_address INIT_0210 00fb 00f5 | | Load_Encached Unused21 00fc 037d | } | Declare_Type Task,Defined 00fd 036f | o | Declare_Variable Task 00fe e001 | | Load 0x0,0x1 00ff e002 | | Load 0x0,0x2 0100 e003 | | Load 0x0,0x3 0101 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0102 a004 | | Store_Unchecked 0x0,0x4 0103 e005 | | Load 0x0,0x5 0104 e006 | | Load 0x0,0x6 0105 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0106 e007 | | Load 0x0,0x7 0107 4809 |H | Short_Literal 0x9 0108 e216 | | Load 0x1,0x16 0109 020e | | Execute Module,Augment_Imports 010a 0007 | | Action Break_Optional 010b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 010c 00c7 | | Action Elaborate_Subprogram 010d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 010e 00c7 | | Action Elaborate_Subprogram 010f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0110 00c7 | | Action Elaborate_Subprogram 0111 BODY_00e8: 0111 00be | | Action Activate_Tasks 0112 00bc | | Action Signal_Activated 0113 00bb | | Action Signal_Completion 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b e5fd | | Load 0x2,-0x3 011c e5fe | | Load 0x2,-0x2 011d e5ff | | Load 0x2,-0x1 011e 4803 |H | Short_Literal 0x3 011f e216 | | Load 0x1,0x16 0120 170d | | Execute Task,Entry_Call,Field_Number 0xd 0121 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e213 | | Load 0x1,0x13 012c 7005 |p | Jump_Nonzero 0x132 012d 4800 |H | Short_Literal 0x0 012e 6005 |` | Indirect_Literal Discrete,0x134,{0x00000000, 0x001e0000} 012f e216 | | Load 0x1,0x16 0130 150e | | Execute Task,Timed_Call,Field_Number 0xe 0131 00d1 | | Pop_Control Pop_Count_1 0132 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0133 0000 | | .XXX[0x1] 0134 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 4800 |H | Short_Literal 0x0 013c e216 | | Load 0x1,0x16 013d 170f | | Execute Task,Entry_Call,Field_Number 0xf 013e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013f 0000 | | .XXX[0x1] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0159 | Y | .CONST 0x0159 ; Address of begin 0141 01c6 | | .CONST 0x01c6 ; Address of exception handler 0142 0004 | | .CONST 0x0004 ; Number of locals 0143 INIT_0140: 0143 e008 | | Load 0x0,0x8 0144 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0145 02ff | | Declare_Variable Variant_Record 0146 00d8 | | Load_Top At_Offset_0 0147 1c00 | | Execute_Immediate Run_Utility,0x0 0148 e009 | | Load 0x0,0x9 0149 0322 | " | Declare_Variable Record 014a e5ff | | Load 0x2,-0x1 014b 00d9 | | Load_Top At_Offset_1 014c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 014d e00a | | Load 0x0,0xa 014e 03bc | | Declare_Variable Access,By_Allocation 014f 00d8 | | Load_Top At_Offset_0 0150 00e0 | | Load_Encached Standard_Cache 0151 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0152 00d9 | | Load_Top At_Offset_1 0153 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0154 e003 | | Load 0x0,0x3 0155 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0156 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0157 e00b | | Load 0x0,0xb 0158 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0159 BODY_0140: 0159 00cf | | Action Mark_Auxiliary 015a 00db | | Load_Top At_Offset_3 015b e5ff | | Load 0x2,-0x1 015c e008 | | Load 0x0,0x8 015d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 015e 00d1 | | Pop_Control Pop_Count_1 015f 00db | | Load_Top At_Offset_3 0160 e008 | | Load 0x0,0x8 0161 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0162 00db | | Load_Top At_Offset_3 0163 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0165 0d02 | | Execute_Immediate Less,0x2 0166 e402 | | Load 0x2,0x2 0167 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0168 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0169 0c03 | | Execute_Immediate Greater_Equal,0x3 016a 0278 | x | Execute Discrete,Or 016b 681c |h | Jump_Zero 0x188 016c 00da | | Load_Top At_Offset_2 016d 0227 | ' | Execute Access,All_Reference 016e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016f e00c | | Load 0x0,0xc 0170 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0171 e00d | | Load 0x0,0xd 0172 e00e | | Load 0x0,0xe 0173 016d | m | Execute Variant_Record,Structure_Write 0174 00db | | Load_Top At_Offset_3 0175 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0176 e00e | | Load 0x0,0xe 0177 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0178 e00e | | Load 0x0,0xe 0179 e5ff | | Load 0x2,-0x1 017a 4802 |H | Short_Literal 0x2 017b e403 | | Load 0x2,0x3 017c 0227 | ' | Execute Access,All_Reference 017d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017e 0229 | ) | Execute Access,All_Read 017f 170d | | Execute Task,Entry_Call,Field_Number 0xd 0180 e5ff | | Load 0x2,-0x1 0181 4801 |H | Short_Literal 0x1 0182 e403 | | Load 0x2,0x3 0183 0227 | ' | Execute Access,All_Reference 0184 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0185 0229 | ) | Execute Access,All_Read 0186 170e | | Execute Task,Entry_Call,Field_Number 0xe 0187 783c |x< | Jump 0x1c4 0188 00db | | Load_Top At_Offset_3 0189 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 018a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 018b e402 | | Load 0x2,0x2 018c 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 018d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018e e402 | | Load 0x2,0x2 018f 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0190 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0191 e402 | | Load 0x2,0x2 0192 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0193 e403 | | Load 0x2,0x3 0194 820f | | Call 0x1,0xf 0195 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0196 00d9 | | Load_Top At_Offset_1 0197 682c |h, | Jump_Zero 0x1c4 0198 00da | | Load_Top At_Offset_2 0199 0227 | ' | Execute Access,All_Reference 019a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019b e00c | | Load 0x0,0xc 019c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019d e00f | | Load 0x0,0xf 019e e00e | | Load 0x0,0xe 019f 016d | m | Execute Variant_Record,Structure_Write 01a0 00db | | Load_Top At_Offset_3 01a1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01a2 e00e | | Load 0x0,0xe 01a3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a4 4801 |H | Short_Literal 0x1 01a5 e008 | | Load 0x0,0x8 01a6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 01a7 1c08 | | Execute_Immediate Run_Utility,0x8 01a8 e00e | | Load 0x0,0xe 01a9 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01aa 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 01ab 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01ac 00d9 | | Load_Top At_Offset_1 01ad 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01ae e00e | | Load 0x0,0xe 01af 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01b0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 01b1 e00e | | Load 0x0,0xe 01b2 00db | | Load_Top At_Offset_3 01b3 0227 | ' | Execute Access,All_Reference 01b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b5 4802 |H | Short_Literal 0x2 01b6 e403 | | Load 0x2,0x3 01b7 0227 | ' | Execute Access,All_Reference 01b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b9 0229 | ) | Execute Access,All_Read 01ba 170d | | Execute Task,Entry_Call,Field_Number 0xd 01bb 00da | | Load_Top At_Offset_2 01bc 0227 | ' | Execute Access,All_Reference 01bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01be 4801 |H | Short_Literal 0x1 01bf e403 | | Load 0x2,0x3 01c0 0227 | ' | Execute Access,All_Reference 01c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c2 0229 | ) | Execute Access,All_Read 01c3 170e | | Execute Task,Entry_Call,Field_Number 0xe 01c4 00c9 | | Action Pop_Auxiliary_Loop 01c5 7f94 | | Jump 0x15a 01c6 TRAP_0140: 01c6 e010 | | Load 0x0,0x10 01c7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01c8 010f | | Execute Exception,Equal 01c9 6801 |h | Jump_Zero 0x1cb 01ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cb 0100 | | Execute Exception,Raise 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01dc | | .CONST 0x01dc ; Address of begin 01d1 01fa | | .CONST 0x01fa ; Address of exception handler 01d2 0004 | | .CONST 0x0004 ; Number of locals 01d3 INIT_01d0: 01d3 e003 | | Load 0x0,0x3 01d4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d5 e010 | | Load 0x0,0x10 01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d7 02c7 | | Declare_Variable Any 01d8 00d8 | | Load_Top At_Offset_0 01d9 1c00 | | Execute_Immediate Run_Utility,0x0 01da e001 | | Load 0x0,0x1 01db 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01dc BODY_01d0: 01dc 00d9 | | Load_Top At_Offset_1 01dd 0120 | | Execute Any,Is_Value 01de 6803 |h | Jump_Zero 0x1e2 01df e010 | | Load 0x0,0x10 01e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e1 7801 |x | Jump 0x1e3 01e2 00d9 | | Load_Top At_Offset_1 01e3 e5ff | | Load 0x2,-0x1 01e4 e010 | | Load 0x0,0x10 01e5 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e6 c403 | | Store 0x2,0x3 01e7 e00c | | Load 0x0,0xc 01e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01e9 00da | | Load_Top At_Offset_2 01ea e00c | | Load 0x0,0xc 01eb 180f | | Execute Package,Field_Execute,Field_Number 0xf 01ec 003b | ; | Store_Top Access,At_Offset_3 01ed 00da | | Load_Top At_Offset_2 01ee 8214 | | Call 0x1,0x14 01ef 00da | | Load_Top At_Offset_2 01f0 e00c | | Load 0x0,0xc 01f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f2 003b | ; | Store_Top Access,At_Offset_3 01f3 00d9 | | Load_Top At_Offset_1 01f4 e010 | | Load 0x0,0x10 01f5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f6 e5ff | | Load 0x2,-0x1 01f7 e002 | | Load 0x0,0x2 01f8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01fa TRAP_01d0: 01fa e007 | | Load 0x0,0x7 01fb 010f | | Execute Exception,Equal 01fc 6802 |h | Jump_Zero 0x1ff 01fd 00d8 | | Load_Top At_Offset_0 01fe 0101 | | Execute Exception,Reraise 01ff e003 | | Load 0x0,0x3 0200 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0201 010f | | Execute Exception,Equal 0202 680c |h | Jump_Zero 0x20f 0203 00db | | Load_Top At_Offset_3 0204 e00c | | Load 0x0,0xc 0205 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0206 c402 | | Store 0x2,0x2 0207 00da | | Load_Top At_Offset_2 0208 e010 | | Load 0x0,0x10 0209 1810 | | Execute Package,Field_Execute,Field_Number 0x10 020a e5ff | | Load 0x2,-0x1 020b e002 | | Load 0x0,0x2 020c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 020d 00d8 | | Load_Top At_Offset_0 020e 0101 | | Execute Exception,Reraise 020f 0100 | | Execute Exception,Raise 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 023a | : | .CONST 0x023a ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0018 | | .CONST 0x0018 ; Number of locals 0213 INIT_0210: 0213 4803 |H | Short_Literal 0x3 0214 02cb | | Declare_Variable Entry 0215 4800 |H | Short_Literal 0x0 0216 02cb | | Declare_Variable Entry 0217 4800 |H | Short_Literal 0x0 0218 02cb | | Declare_Variable Entry 0219 00bf | | Action Accept_Activation 021a e001 | | Load 0x0,0x1 021b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 021c e002 | | Load 0x0,0x2 021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021e 02c7 | | Declare_Variable Any 021f 00d8 | | Load_Top At_Offset_0 0220 1c00 | | Execute_Immediate Run_Utility,0x0 0221 e003 | | Load 0x0,0x3 0222 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0223 0337 | 7 | Declare_Variable Array 0224 00e1 | | Load_Encached Boolean_Cache 0225 00e1 | | Load_Encached Boolean_Cache 0226 480d 484b |H HK| Declare_Variable Select 0x000, 0x001, 0228 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 022a 4800 4801 |H H | [0x00d]: 0x04b = 0x0258 022c 02cf | | 022d 480e 4851 |H HQ| Declare_Variable Select 0x000, 0x001, 022f 4801 4800 |H H | [0x001]: 0x000 = 0x0000, 0231 4800 4801 |H H | [0x00e]: 0x051 = 0x0288 0233 02cf | | 0234 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 0236 480f |H | Short_Literal 0xf 0237 0299 02bb | | Declare_Subprogram INIT_02b8,For_Accept 0239 00bc | | Action Signal_Activated 023a BODY_0210: 023a 00db | | Load_Top At_Offset_3 023b 013f | ? | Execute Select,Rendezvous 023c 00d1 | | Pop_Control Pop_Count_1 023d 00cf | | Action Mark_Auxiliary 023e 00db | | Load_Top At_Offset_3 023f 013f | ? | Execute Select,Rendezvous 0240 4602 |F | Jump_Case 0x3 0241 780b |x | Jump 0x24d ; case 0x0 0242 7801 |x | Jump 0x244 ; case 0x1 0243 7809 |x | Jump 0x24d ; case 0x2 0244 8217 | | Call 0x1,0x17 0245 e213 | | Load 0x1,0x13 0246 0f00 | | Execute_Immediate Equal,0x0 0247 e214 | | Load 0x1,0x14 0248 0f00 | | Execute_Immediate Equal,0x0 0249 0279 | y | Execute Discrete,And 024a 7002 |p | Jump_Nonzero 0x24d 024b 00c9 | | Action Pop_Auxiliary_Loop 024c 7ff1 | | Jump 0x23e 024d 00ce | | Action Pop_Auxiliary 024e e211 | | Load 0x1,0x11 024f e002 | | Load 0x0,0x2 0250 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0251 4801 |H | Short_Literal 0x1 0252 c004 | | Store 0x0,0x4 0253 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0254 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0255 0137 | 7 | Execute Entry,Rendezvous 0256 00bb | | Action Signal_Completion 0257 0000 | | .XXX[0x1] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; See instruction 0x02cf at 0x226, index=0xd 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 e001 | | Load 0x0,0x1 025c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 025d e211 | | Load 0x1,0x11 025e 0120 | | Execute Any,Is_Value 025f 6803 |h | Jump_Zero 0x263 0260 e002 | | Load 0x0,0x2 0261 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0262 7801 |x | Jump 0x264 0263 e211 | | Load 0x1,0x11 0264 e001 | | Load 0x0,0x1 0265 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0266 4801 |H | Short_Literal 0x1 0267 4806 |H | Short_Literal 0x6 0268 00e9 | | Load_Encached String_Cache 0269 0334 | 4 | Declare_Variable Array,With_Constraint 026a 5015 |P | Indirect_Literal Any,0x280,{0x5443502f, 0x49502020} 026b e002 | | Load 0x0,0x2 026c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 026d c211 | | Store 0x1,0x11 026e c210 | | Store 0x1,0x10 026f e210 | | Load 0x1,0x10 0270 8005 | | Call 0x0,0x5 0271 e211 | | Load 0x1,0x11 0272 e002 | | Load 0x0,0x2 0273 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0274 e212 | | Load 0x1,0x12 0275 01d4 | | Execute Vector,Structure_Write 0276 e212 | | Load 0x1,0x12 0277 e5fc | | Load 0x2,-0x4 0278 01d4 | | Execute Vector,Structure_Write 0279 00db | | Load_Top At_Offset_3 027a a213 | | Store_Unchecked 0x1,0x13 027b 4800 |H | Short_Literal 0x0 027c c004 | | Store 0x0,0x4 027d 4101 |A | End_Rendezvous 0x1 027e 0000 0000 | | .XXX[0x2] 0280 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; See instruction 0x02cf at 0x22d, index=0xe 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 4100 |A | End_Rendezvous 0x0 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 02a9 | | .CONST 0x02a9 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 4800 |H | Short_Literal 0x0 0294 a214 | | Store_Unchecked 0x1,0x14 0295 e001 | | Load 0x0,0x1 0296 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0297 601c |` | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x000f0000} 0298 e211 | | Load 0x1,0x11 0299 e002 | | Load 0x0,0x2 029a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 029b c210 | | Store 0x1,0x10 029c e210 | | Load 0x1,0x10 029d 8005 | | Call 0x0,0x5 029e e006 | | Load 0x0,0x6 029f 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a0 4801 |H | Short_Literal 0x1 02a1 0092 050f | | Action Push_String_Extended,0x50f ; "Successful \x22client => server\x22 connection" 02a3 e007 | | Load 0x0,0x7 02a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a5 600a |` | Indirect_Literal Discrete,0x2b0,{0x00000000, 0x01c20000} 02a6 e211 | | Load 0x1,0x11 02a7 8008 | | Call 0x0,0x8 02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a9 TRAP_0290: 02a9 e009 | | Load 0x0,0x9 02aa 010f | | Execute Exception,Equal 02ab 6803 |h | Jump_Zero 0x2af 02ac 4801 |H | Short_Literal 0x1 02ad a214 | | Store_Unchecked 0x1,0x14 02ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02af 0100 | | Execute Exception,Raise 02b0 0000 0000 | | .LITERAL {0x00000000, 0x01c20000} 02b4 0000 0000 | | .LITERAL {0x00000000, 0x000f0000} 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 4100 |A | End_Rendezvous 0x0 02bc 0000 0000 | | .BLANK 0000[0x4] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02fd | | .CONST 0x02fd ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 001a | | .CONST 0x001a ; Number of locals 02c3 INIT_02c0: 02c3 00c4 | | Action Make_Default 02c4 00c4 | | Action Make_Default 02c5 00c4 | | Action Make_Default 02c6 00c4 | | Action Make_Default 02c7 00c4 | | Action Make_Default 02c8 00c4 | | Action Make_Default 02c9 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 02cb c213 | | Store 0x1,0x13 02cc 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 02ce c214 | | Store 0x1,0x14 02cf 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 02d1 c215 | | Store 0x1,0x15 02d2 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 02d4 c216 | | Store 0x1,0x16 02d5 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 02d7 c217 | | Store 0x1,0x17 02d8 00bf | | Action Accept_Activation 02d9 e001 | | Load 0x0,0x1 02da 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02db 4800 |H | Short_Literal 0x0 02dc 0093 04ab | | push_full_address INIT_04a8 02de 00f5 | | Load_Encached Unused21 02df 037d | } | Declare_Type Task,Defined 02e0 036f | o | Declare_Variable Task 02e1 4800 |H | Short_Literal 0x0 02e2 0093 03eb | | push_full_address INIT_03e8 02e4 00f5 | | Load_Encached Unused21 02e5 037d | } | Declare_Type Task,Defined 02e6 036f | o | Declare_Variable Task 02e7 e002 | | Load 0x0,0x2 02e8 e003 | | Load 0x0,0x3 02e9 e004 | | Load 0x0,0x4 02ea e005 | | Load 0x0,0x5 02eb 1d18 | | Execute_Immediate Reference_Lex_1,0x18 02ec e006 | | Load 0x0,0x6 02ed e219 | | Load 0x1,0x19 02ee 00b6 | | Action Make_Scope 02ef 4808 |H | Short_Literal 0x8 02f0 e21a | | Load 0x1,0x1a 02f1 020e | | Execute Module,Augment_Imports 02f2 0007 | | Action Break_Optional 02f3 1d13 | | Execute_Immediate Reference_Lex_1,0x13 02f4 00c7 | | Action Elaborate_Subprogram 02f5 1d14 | | Execute_Immediate Reference_Lex_1,0x14 02f6 00c7 | | Action Elaborate_Subprogram 02f7 1d15 | | Execute_Immediate Reference_Lex_1,0x15 02f8 00c7 | | Action Elaborate_Subprogram 02f9 1d16 | | Execute_Immediate Reference_Lex_1,0x16 02fa 00c7 | | Action Elaborate_Subprogram 02fb 1d17 | | Execute_Immediate Reference_Lex_1,0x17 02fc 00c7 | | Action Elaborate_Subprogram 02fd BODY_02c0: 02fd 00be | | Action Activate_Tasks 02fe 00bc | | Action Signal_Activated 02ff 00bb | | Action Signal_Completion 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 e5fb | | Load 0x2,-0x5 0304 e5fc | | Load 0x2,-0x4 0305 e5fd | | Load 0x2,-0x3 0306 e5fe | | Load 0x2,-0x2 0307 e5ff | | Load 0x2,-0x1 0308 4805 |H | Short_Literal 0x5 0309 e21a | | Load 0x1,0x1a 030a 170d | | Execute Task,Entry_Call,Field_Number 0xd 030b 4800 |H | Short_Literal 0x0 030c e219 | | Load 0x1,0x19 030d 170e | | Execute Task,Entry_Call,Field_Number 0xe 030e 4800 |H | Short_Literal 0x0 030f 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031b | | .CONST 0x031b ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0003 | | .CONST 0x0003 ; Number of locals 0313 INIT_0310: 0313 e5fa | | Load 0x2,-0x6 0314 02c7 | | Declare_Variable Any 0315 00d8 | | Load_Top At_Offset_0 0316 1c00 | | Execute_Immediate Run_Utility,0x0 0317 e5fb | | Load 0x2,-0x5 0318 02c7 | | Declare_Variable Any 0319 00d8 | | Load_Top At_Offset_0 031a 1c00 | | Execute_Immediate Run_Utility,0x0 031b BODY_0310: 031b 00d9 | | Load_Top At_Offset_1 031c 0120 | | Execute Any,Is_Value 031d 6802 |h | Jump_Zero 0x320 031e e5fa | | Load 0x2,-0x6 031f 7803 |x | Jump 0x323 0320 00d9 | | Load_Top At_Offset_1 0321 e5fa | | Load 0x2,-0x6 0322 0119 | | Execute Any,Check_In_Formal_Type 0323 e5f9 | | Load 0x2,-0x7 0324 0227 | ' | Execute Access,All_Reference 0325 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0326 85fc | | Call 0x2,-0x4 0327 c402 | | Store 0x2,0x2 0328 e5f9 | | Load 0x2,-0x7 0329 0227 | ' | Execute Access,All_Reference 032a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 032b e003 | | Load 0x0,0x3 032c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 032d 4800 |H | Short_Literal 0x0 032e e219 | | Load 0x1,0x19 032f 170d | | Execute Task,Entry_Call,Field_Number 0xd 0330 00d8 | | Load_Top At_Offset_0 0331 0120 | | Execute Any,Is_Value 0332 6802 |h | Jump_Zero 0x335 0333 e5fb | | Load 0x2,-0x5 0334 7803 |x | Jump 0x338 0335 00d8 | | Load_Top At_Offset_0 0336 e5fb | | Load 0x2,-0x5 0337 0119 | | Execute Any,Check_In_Formal_Type 0338 00da | | Load_Top At_Offset_2 0339 e5fa | | Load 0x2,-0x6 033a 0119 | | Execute Any,Check_In_Formal_Type 033b 85fe | | Call 0x2,-0x2 033c c403 | | Store 0x2,0x3 033d e005 | | Load 0x0,0x5 033e e5f9 | | Load 0x2,-0x7 033f 0227 | ' | Execute Access,All_Reference 0340 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0341 4802 |H | Short_Literal 0x2 0342 e5f9 | | Load 0x2,-0x7 0343 0227 | ' | Execute Access,All_Reference 0344 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0345 0229 | ) | Execute Access,All_Read 0346 170d | | Execute Task,Entry_Call,Field_Number 0xd 0347 00d8 | | Load_Top At_Offset_0 0348 e5fb | | Load 0x2,-0x5 0349 0119 | | Execute Any,Check_In_Formal_Type 034a e5f9 | | Load 0x2,-0x7 034b 0227 | ' | Execute Access,All_Reference 034c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 034d 85fd | | Call 0x2,-0x3 034e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 034f 0000 | | .XXX[0x1] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 035d | ] | .CONST 0x035d ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0003 | | .CONST 0x0003 ; Number of locals 0353 INIT_0350: 0353 e5fb | | Load 0x2,-0x5 0354 02c7 | | Declare_Variable Any 0355 00d8 | | Load_Top At_Offset_0 0356 1c00 | | Execute_Immediate Run_Utility,0x0 0357 e5f9 | | Load 0x2,-0x7 0358 0227 | ' | Execute Access,All_Reference 0359 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 035a 85fc | | Call 0x2,-0x4 035b e5fa | | Load 0x2,-0x6 035c 011e | | Execute Any,Convert 035d BODY_0350: 035d e5f9 | | Load 0x2,-0x7 035e 0227 | ' | Execute Access,All_Reference 035f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0360 e003 | | Load 0x0,0x3 0361 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0362 4800 |H | Short_Literal 0x0 0363 e219 | | Load 0x1,0x19 0364 170d | | Execute Task,Entry_Call,Field_Number 0xd 0365 00d9 | | Load_Top At_Offset_1 0366 0120 | | Execute Any,Is_Value 0367 6802 |h | Jump_Zero 0x36a 0368 e5fb | | Load 0x2,-0x5 0369 7803 |x | Jump 0x36d 036a 00d9 | | Load_Top At_Offset_1 036b e5fb | | Load 0x2,-0x5 036c 0119 | | Execute Any,Check_In_Formal_Type 036d 00d9 | | Load_Top At_Offset_1 036e e5fa | | Load 0x2,-0x6 036f 0119 | | Execute Any,Check_In_Formal_Type 0370 85fe | | Call 0x2,-0x2 0371 c402 | | Store 0x2,0x2 0372 e005 | | Load 0x0,0x5 0373 e5f9 | | Load 0x2,-0x7 0374 0227 | ' | Execute Access,All_Reference 0375 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0376 4802 |H | Short_Literal 0x2 0377 e5f9 | | Load 0x2,-0x7 0378 0227 | ' | Execute Access,All_Reference 0379 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 037a 0229 | ) | Execute Access,All_Read 037b 170d | | Execute Task,Entry_Call,Field_Number 0xd 037c 00d9 | | Load_Top At_Offset_1 037d e5fb | | Load 0x2,-0x5 037e 0119 | | Execute Any,Check_In_Formal_Type 037f e5f9 | | Load 0x2,-0x7 0380 0227 | ' | Execute Access,All_Reference 0381 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0382 85fd | | Call 0x2,-0x3 0383 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0384 0000 0000 | | .BLANK 0000[0x4] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038f | | .CONST 0x038f ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0002 | | .CONST 0x0002 ; Number of locals 038b INIT_0388: 038b e5fa | | Load 0x2,-0x6 038c 02c7 | | Declare_Variable Any 038d 00d8 | | Load_Top At_Offset_0 038e 1c00 | | Execute_Immediate Run_Utility,0x0 038f BODY_0388: 038f 00d8 | | Load_Top At_Offset_0 0390 0120 | | Execute Any,Is_Value 0391 6802 |h | Jump_Zero 0x394 0392 e5fa | | Load 0x2,-0x6 0393 7803 |x | Jump 0x397 0394 00d8 | | Load_Top At_Offset_0 0395 e5fa | | Load 0x2,-0x6 0396 0119 | | Execute Any,Check_In_Formal_Type 0397 e5f9 | | Load 0x2,-0x7 0398 0227 | ' | Execute Access,All_Reference 0399 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 039a 85fc | | Call 0x2,-0x4 039b c402 | | Store 0x2,0x2 039c e5f9 | | Load 0x2,-0x7 039d 0227 | ' | Execute Access,All_Reference 039e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 039f e003 | | Load 0x0,0x3 03a0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03a1 4800 |H | Short_Literal 0x0 03a2 e219 | | Load 0x1,0x19 03a3 170d | | Execute Task,Entry_Call,Field_Number 0xd 03a4 e005 | | Load 0x0,0x5 03a5 e5f9 | | Load 0x2,-0x7 03a6 0227 | ' | Execute Access,All_Reference 03a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a8 4802 |H | Short_Literal 0x2 03a9 e5f9 | | Load 0x2,-0x7 03aa 0227 | ' | Execute Access,All_Reference 03ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03ac 0229 | ) | Execute Access,All_Read 03ad 170d | | Execute Task,Entry_Call,Field_Number 0xd 03ae 00d8 | | Load_Top At_Offset_0 03af e5fa | | Load 0x2,-0x6 03b0 0119 | | Execute Any,Check_In_Formal_Type 03b1 85fe | | Call 0x2,-0x2 03b2 e5fb | | Load 0x2,-0x5 03b3 0119 | | Execute Any,Check_In_Formal_Type 03b4 e5f9 | | Load 0x2,-0x7 03b5 0227 | ' | Execute Access,All_Reference 03b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b7 85fd | | Call 0x2,-0x3 03b8 4508 |E | Exit_Suprogram New_Top_Offset 0x8 03b9 0000 0000 | | .BLANK 0000[0x7] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c9 | | .CONST 0x03c9 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0002 | | .CONST 0x0002 ; Number of locals 03c3 INIT_03c0: 03c3 e5f9 | | Load 0x2,-0x7 03c4 0227 | ' | Execute Access,All_Reference 03c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c6 85fc | | Call 0x2,-0x4 03c7 e5fa | | Load 0x2,-0x6 03c8 011e | | Execute Any,Convert 03c9 BODY_03c0: 03c9 e5f9 | | Load 0x2,-0x7 03ca 0227 | ' | Execute Access,All_Reference 03cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03cc e003 | | Load 0x0,0x3 03cd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03ce 4800 |H | Short_Literal 0x0 03cf e219 | | Load 0x1,0x19 03d0 170d | | Execute Task,Entry_Call,Field_Number 0xd 03d1 e005 | | Load 0x0,0x5 03d2 e5f9 | | Load 0x2,-0x7 03d3 0227 | ' | Execute Access,All_Reference 03d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d5 4802 |H | Short_Literal 0x2 03d6 e5f9 | | Load 0x2,-0x7 03d7 0227 | ' | Execute Access,All_Reference 03d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03d9 0229 | ) | Execute Access,All_Read 03da 170d | | Execute Task,Entry_Call,Field_Number 0xd 03db 00d8 | | Load_Top At_Offset_0 03dc e5fa | | Load 0x2,-0x6 03dd 0119 | | Execute Any,Check_In_Formal_Type 03de 85fe | | Call 0x2,-0x2 03df e5fb | | Load 0x2,-0x5 03e0 0119 | | Execute Any,Check_In_Formal_Type 03e1 e5f9 | | Load 0x2,-0x7 03e2 0227 | ' | Execute Access,All_Reference 03e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03e4 85fd | | Call 0x2,-0x3 03e5 4508 |E | Exit_Suprogram New_Top_Offset 0x8 03e6 0000 0000 | | .XXX[0x2] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 0402 | | .CONST 0x0402 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0014 | | .CONST 0x0014 ; Number of locals 03eb INIT_03e8: 03eb 4805 |H | Short_Literal 0x5 03ec 02cb | | Declare_Variable Entry 03ed 00bf | | Action Accept_Activation 03ee e001 | | Load 0x0,0x1 03ef 1b20 | | Execute Package,Field_Read,Field_Number 0x20 03f0 e002 | | Load 0x0,0x2 03f1 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 03f2 e002 | | Load 0x0,0x2 03f3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 03f4 e002 | | Load 0x0,0x2 03f5 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 03f6 e002 | | Load 0x0,0x2 03f7 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 03f8 480d 4890 |H H | Declare_Variable Select 0x000, 0x001, 03fa 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 03fc 4800 4801 |H H | [0x00d]: 0x090 = 0x0480 03fe 02cf | | 03ff 029f 0493 | | Declare_Subprogram INIT_0490,For_Call 0401 00bc | | Action Signal_Activated 0402 BODY_03e8: 0402 00cf | | Action Mark_Auxiliary 0403 00da | | Load_Top At_Offset_2 0404 013f | ? | Execute Select,Rendezvous 0405 00d1 | | Pop_Control Pop_Count_1 0406 e003 | | Load 0x0,0x3 0407 e004 | | Load 0x0,0x4 0408 016d | m | Execute Variant_Record,Structure_Write 0409 e20f | | Load 0x1,0xf 040a e004 | | Load 0x0,0x4 040b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 040c 8214 | | Call 0x1,0x14 040d e005 | | Load 0x0,0x5 040e 6864 |hd | Jump_Zero 0x473 040f e20e | | Load 0x1,0xe 0410 0227 | ' | Execute Access,All_Reference 0411 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0412 e006 | | Load 0x0,0x6 0413 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0414 4800 |H | Short_Literal 0x0 0415 e007 | | Load 0x0,0x7 0416 170d | | Execute Task,Entry_Call,Field_Number 0xd 0417 e005 | | Load 0x0,0x5 0418 4604 |F | Jump_Case 0x5 0419 7845 |xE | Jump 0x45f ; case 0x0 041a 7811 |x | Jump 0x42c ; case 0x1 041b 781e |x | Jump 0x43a ; case 0x2 041c 7835 |x5 | Jump 0x452 ; case 0x3 041d 7800 |x | Jump 0x41e ; case 0x4 041e 4804 |H | Short_Literal 0x4 041f e002 | | Load 0x0,0x2 0420 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0421 1c08 | | Execute_Immediate Run_Utility,0x8 0422 e004 | | Load 0x0,0x4 0423 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0424 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0425 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0426 00d9 | | Load_Top At_Offset_1 0427 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0428 e004 | | Load 0x0,0x4 0429 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 042a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 042b 7833 |x3 | Jump 0x45f 042c 4801 |H | Short_Literal 0x1 042d e002 | | Load 0x0,0x2 042e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 042f 1c08 | | Execute_Immediate Run_Utility,0x8 0430 e004 | | Load 0x0,0x4 0431 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0432 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0433 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0434 00d9 | | Load_Top At_Offset_1 0435 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0436 e004 | | Load 0x0,0x4 0437 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0438 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0439 7825 |x% | Jump 0x45f 043a 4802 |H | Short_Literal 0x2 043b e002 | | Load 0x0,0x2 043c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 043d 1c08 | | Execute_Immediate Run_Utility,0x8 043e e004 | | Load 0x0,0x4 043f 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0440 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0441 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0442 00d9 | | Load_Top At_Offset_1 0443 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0444 00d8 | | Load_Top At_Offset_0 0445 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 0446 e008 | | Load 0x0,0x8 0447 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0448 00d9 | | Load_Top At_Offset_1 0449 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 044a e008 | | Load 0x0,0x8 044b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 044c 00d0 | | Action Swap_Control 044d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 044e e004 | | Load 0x0,0x4 044f 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0450 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0451 780d |x | Jump 0x45f 0452 4803 |H | Short_Literal 0x3 0453 e002 | | Load 0x0,0x2 0454 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0455 1c08 | | Execute_Immediate Run_Utility,0x8 0456 e004 | | Load 0x0,0x4 0457 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0458 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 0459 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 045a 00d9 | | Load_Top At_Offset_1 045b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 045c e004 | | Load 0x0,0x4 045d 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 045e 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 045f e004 | | Load 0x0,0x4 0460 e20e | | Load 0x1,0xe 0461 0227 | ' | Execute Access,All_Reference 0462 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0463 4802 |H | Short_Literal 0x2 0464 e20e | | Load 0x1,0xe 0465 0227 | ' | Execute Access,All_Reference 0466 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0467 0229 | ) | Execute Access,All_Read 0468 170d | | Execute Task,Entry_Call,Field_Number 0xd 0469 e20e | | Load 0x1,0xe 046a 0227 | ' | Execute Access,All_Reference 046b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 046c 4801 |H | Short_Literal 0x1 046d e20e | | Load 0x1,0xe 046e 0227 | ' | Execute Access,All_Reference 046f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0470 0229 | ) | Execute Access,All_Read 0471 170e | | Execute Task,Entry_Call,Field_Number 0xe 0472 7809 |x | Jump 0x47c 0473 e20e | | Load 0x1,0xe 0474 0227 | ' | Execute Access,All_Reference 0475 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0476 4801 |H | Short_Literal 0x1 0477 e20e | | Load 0x1,0xe 0478 0227 | ' | Execute Access,All_Reference 0479 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 047a 0229 | ) | Execute Access,All_Read 047b 170e | | Execute Task,Entry_Call,Field_Number 0xe 047c 00c9 | | Action Pop_Auxiliary_Loop 047d 7f85 | | Jump 0x403 047e 0000 0000 | | .XXX[0x2] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; See instruction 0x02cf at 0x3f8, index=0xd 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 00db | | Load_Top At_Offset_3 0484 a20e | | Store_Unchecked 0x1,0xe 0485 e5fd | | Load 0x2,-0x3 0486 a20f | | Store_Unchecked 0x1,0xf 0487 e5fc | | Load 0x2,-0x4 0488 a210 | | Store_Unchecked 0x1,0x10 0489 e5fb | | Load 0x2,-0x5 048a a211 | | Store_Unchecked 0x1,0x11 048b e5fa | | Load 0x2,-0x6 048c a212 | | Store_Unchecked 0x1,0x12 048d 4100 |A | End_Rendezvous 0x0 048e 0000 0000 | | .XXX[0x2] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 049b | | .CONST 0x049b ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 e212 | | Load 0x1,0x12 0494 e211 | | Load 0x1,0x11 0495 e210 | | Load 0x1,0x10 0496 e20e | | Load 0x1,0xe 0497 e008 | | Load 0x0,0x8 0498 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0499 c005 | | Store 0x0,0x5 049a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049b TRAP_0490: 049b e006 | | Load 0x0,0x6 049c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 049d 010f | | Execute Exception,Equal 049e 7004 |p | Jump_Nonzero 0x4a3 049f e002 | | Load 0x0,0x2 04a0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 04a1 010f | | Execute Exception,Equal 04a2 6803 |h | Jump_Zero 0x4a6 04a3 4804 |H | Short_Literal 0x4 04a4 c005 | | Store 0x0,0x5 04a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a6 0100 | | Execute Exception,Raise 04a7 0000 | | .XXX[0x1] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04bb | | .CONST 0x04bb ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0010 | | .CONST 0x0010 ; Number of locals 04ab INIT_04a8: 04ab 4800 |H | Short_Literal 0x0 04ac 02cb | | Declare_Variable Entry 04ad 4800 |H | Short_Literal 0x0 04ae 02cb | | Declare_Variable Entry 04af 00bf | | Action Accept_Activation 04b0 480d 4899 |H H | Declare_Variable Select 0x000, 0x001, 04b2 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 04b4 4800 4801 |H H | [0x00d]: 0x099 = 0x04c8 04b6 02cf | | 04b7 480e |H | Short_Literal 0xe 04b8 0299 04d3 | | Declare_Subprogram INIT_04d0,For_Accept 04ba 00bc | | Action Signal_Activated 04bb BODY_04a8: 04bb 00cf | | Action Mark_Auxiliary 04bc 00da | | Load_Top At_Offset_2 04bd 013f | ? | Execute Select,Rendezvous 04be 00d1 | | Pop_Control Pop_Count_1 04bf 1d10 | | Execute_Immediate Reference_Lex_1,0x10 04c0 1d0e | | Execute_Immediate Reference_Lex_1,0xe 04c1 0137 | 7 | Execute Entry,Rendezvous 04c2 00c9 | | Action Pop_Auxiliary_Loop 04c3 7ff8 | | Jump 0x4bc 04c4 0000 0000 | | .BLANK 0000[0x4] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; See instruction 0x02cf at 0x4b0, index=0xd 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 4100 |A | End_Rendezvous 0x0 04cc 0000 0000 | | .BLANK 0000[0x4] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 4100 |A | End_Rendezvous 0x0 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04eb | | .CONST 0x04eb ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0010 | | .CONST 0x0010 ; Number of locals 04db INIT_04d8: 04db 4802 |H | Short_Literal 0x2 04dc 02cb | | Declare_Variable Entry 04dd 4801 |H | Short_Literal 0x1 04de 02cb | | Declare_Variable Entry 04df 00bf | | Action Accept_Activation 04e0 480d 489f |H H | Declare_Variable Select 0x000, 0x001, 04e2 4800 4801 |H H | [0x000]: 0x001 = 0x0008, 04e4 4800 4801 |H H | [0x00d]: 0x09f = 0x04f8 04e6 02cf | | 04e7 480e |H | Short_Literal 0xe 04e8 0299 050b | | Declare_Subprogram INIT_0508,For_Accept 04ea 00bc | | Action Signal_Activated 04eb BODY_04d8: 04eb 00cf | | Action Mark_Auxiliary 04ec 00da | | Load_Top At_Offset_2 04ed 013f | ? | Execute Select,Rendezvous 04ee 00d1 | | Pop_Control Pop_Count_1 04ef 1d10 | | Execute_Immediate Reference_Lex_1,0x10 04f0 1d0e | | Execute_Immediate Reference_Lex_1,0xe 04f1 0137 | 7 | Execute Entry,Rendezvous 04f2 00c9 | | Action Pop_Auxiliary_Loop 04f3 7ff8 | | Jump 0x4ec 04f4 0000 0000 | | .BLANK 0000[0x4] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; See instruction 0x02cf at 0x4e0, index=0xd 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fb | | .CONST 0x04fb ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0001 | | .CONST 0x0001 ; Number of locals 04fb BODY_04f8: 04fb INIT_04f8: 04fb e5fd | | Load 0x2,-0x3 04fc e5fe | | Load 0x2,-0x2 04fd e001 | | Load 0x0,0x1 04fe 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04ff e5fd | | Load 0x2,-0x3 0500 e001 | | Load 0x0,0x1 0501 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0502 4100 |A | End_Rendezvous 0x0 0503 0000 0000 | | .BLANK 0000[0x5] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 00db | | Load_Top At_Offset_3 050c e001 | | Load 0x0,0x1 050d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 050e 4100 |A | End_Rendezvous 0x0 050f ; -------------------------------------------------------------------------------------- 050f ; STRING TABLE 050f ; -------------------------------------------------------------------------------------- 050f 0004 | | .STRTAB 0x0004->0x0511 ; "Successful \x22client => server\x22 connection" 0510 002a | * | .STREND 0x002a->0x0525 0511 5375 6363 |Succ| .STRTAB_STRINGS 0525 0000 0000 | | .XXX[0x3] 0527 0000 | | 0528 ; -------------------------------------------------------------------------------------- 0528 ; Debug Table 0528 ; -------------------------------------------------------------------------------------- 0528 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0eea,0x0000,0x0001,0x0000 052e 7002 e915 |p | .XXX[0xd2] 0530 1e79 26c4 | y& | 0532 1c63 56ae | cV | 0534 1686 24c0 | $ | 0536 f336 a114 | 6 | 0538 8c3b a370 | ; p| 053a c80a 68d5 | h | 053c de68 4498 | hD | 053e 4810 19c2 |H | 0540 4e90 da0e |N | 0542 70ec 09f9 |p | 0544 aceb 3b09 | ; | 0546 a996 01e9 | | 0548 972f 4c01 | /L | 054a 68e5 538d |h S | 054c 5b0b 5c8d |[ \ | 054e 5e0c 3fe0 |^ ? | 0550 fa77 37a7 | w7 | 0552 c894 1d02 | | 0554 3f85 7024 |? p$| 0556 c07c d99c | | | 0558 652a e0ea |e* | 055a 41cf 9fe5 |A | 055c 7af8 4f4c |z OL| 055e d95c 1ef3 | \ | 0560 364f 6988 |6Oi | 0562 00d7 01ef | | 0564 0019 8192 | | 0566 1e5e 7b34 | ^{4| 0568 37ce 1fcf |7 | 056a d103 6f72 | or| 056c 521b 5458 |R TX| 056e 0db1 1ff8 | | 0570 04d8 00b0 | | 0572 d1b1 87f6 | | 0574 2078 6892 | xh | 0576 f8e3 d1af | | 0578 70d8 cbd0 |p | 057a 44f4 8a0c |D | 057c 9ca0 2960 | )`| 057e 10d1 6adc | j | 0580 60fc 0521 |` !| 0582 9aa8 528f | R | 0584 2670 1ce7 |&p | 0586 380c c468 |8 h| 0588 8809 eb20 | | 058a 2a41 2283 |*A" | 058c 1a82 1d89 | | 058e 7c84 15b0 || | 0590 01e9 21b9 | ! | 0592 5052 e26c |PR l| 0594 3d19 db72 |= r| 0596 9f5f 5414 | _T | 0598 555e fd98 |U^ | 059a 2103 244c |! $L| 059c ffb2 5b78 | [x| 059e 1ba9 e634 | 4| 05a0 601e c372 |` r| 05a2 2800 b2df |( | 05a4 0b1f 71cd | q | 05a6 b4c4 4e03 | N | 05a8 f522 c523 | " #| 05aa 7d50 0123 |}P #| 05ac ba6d 88a4 | m | 05ae e44a 8c44 | J D| 05b0 e01f 959a | | 05b2 c33c 0c02 | < | 05b4 d201 6f02 | o | 05b6 cd56 4729 | VG)| 05b8 1703 6f0a | o | 05ba a57b 7879 | {xy| 05bc 781e 32a0 |x 2 | 05be a710 ede3 | | 05c0 437e 717b |C~q{| 05c2 2790 7275 |' ru| 05c4 5a4b 8305 |ZK | 05c6 f854 0360 | T `| 05c8 1af3 9eed | | 05ca ec95 8a3a | :| 05cc 90d7 83d1 | | 05ce 2820 2031 |( 1| 05d0 cd02 c403 | | 05d2 e9cf 9ee4 | | 05d4 722d e134 |r- 4| 05d6 b8a0 1f23 | #| 05d8 1f94 788f | x | 05da 41f5 0a13 |A | 05dc 8580 f437 | 7| 05de 1894 a800 | | 05e0 980f fe2b | +| 05e2 f4c0 3601 | 6 | 05e4 fef7 6dba | m | 05e6 5220 0788 |R | 05e8 069c 541b | T | 05ea 0292 1009 | | 05ec 408a 6407 |@ d | 05ee 52f1 1006 |R | 05f0 e486 e41e | | 05f2 a5a3 4fda | O | 05f4 be01 fa3c | <| 05f6 06b3 103c | <| 05f8 3336 1d8f |36 | 05fa 0343 8061 | C a| 05fc 4000 6121 |@ a!| 05fe a002 7c54 | |T|