|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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
; Address of begin
; Address of begin
; Address of begin
; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
; Address of exception handler
; Address of exception handler
; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
; Number of locals
; Number of locals
; Number of locals
; 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 | | PushFullAddress InMicrocode,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 | | PushFullAddress InMicrocode,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 | | PushFullAddress InMicrocode,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 For_Outer_Call,INIT_00d0
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_Subprogram 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 For_Outer_Call,Visible,Unelaborated,INIT_0118
00ed 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
00ef 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
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 For_Outer_Call,INIT_0140
00f6 029d 01d3 | | Declare_Subprogram For_Outer_Call,INIT_01d0
00f8 4800 |H | Short_Literal 0x0
00f9 0093 0213 | | PushFullAddress InMicrocode,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 | | Reference 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0290
0236 480f |H | Short_Literal 0xf
0237 0299 02bb | | Declare_Subprogram For_Accept,INIT_02b8
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 0x2
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_Subprogram 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_Subprogram 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 For_Outer_Call,Visible,Unelaborated,INIT_0300
02cb c213 | | Store 0x1,0x13
02cc 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
02ce c214 | | Store 0x1,0x14
02cf 029a 0353 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0350
02d1 c215 | | Store 0x1,0x15
02d2 029a 038b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0388
02d4 c216 | | Store 0x1,0x16
02d5 029a 03c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c0
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 | | PushFullAddress InMicrocode,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 | | PushFullAddress InMicrocode,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_0490
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 0x4
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_Subprogram 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_Subprogram 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 For_Accept,INIT_04d0
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 For_Accept,INIT_0508
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 5b80 c000 |[ | .XXX[0x1e]
0530 5818 db29 |X )|
0532 8040 0400 | @ |
0534 0340 0000 | @ |
0536 0034 ab01 | 4 |
0538 8770 0000 | p |
053a 0744 00a0 | D |
053c 0000 1440 | @|
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0148 | H|
0546 0c3b 8002 | ; |
0548 4a68 0c3b |Jh ;|
054a 8002 4f80 | O |
054c 0000 0000 | | .BLANK 0000[0x17]
0563 0002 0000 | | .XXX[0x22]
0565 0072 685c | rh\|
0567 eb70 1800 | p |
0569 0b03 1b65 | e|
056b 3008 0080 |0 |
056d 0068 0000 | h |
056f 0006 9560 | `|
0571 30ee 0000 |0 |
0573 00e8 8014 | |
0575 0000 0288 | |
0577 0000 0100 | |
0579 0000 0880 | |
057b 0000 0004 | |
057d 0000 0029 | )|
057f 0187 7000 | p |
0581 494d 0187 |IM |
0583 7000 49f0 |p I |
0585 0000 0000 | | .BLANK 0000[0x18]
059d 4000 000e |@ | .XXX[0x3]
059f 4c00 |L |
05a0 0000 0000 | | .BLANK 0000[0xd]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]